CTDP linux 程序员手册 C和C++编程（11）Viewmod程序

大家可以通过这个例子体会linux的c编程。

#include <termios.h>

#include <stdio.h>

#include <unistd.h>

#include <fcntl.h>

#include <dirent.h>

#include <string.h>

#include <stdlib.h>

#include <time.h>

#include <sys/signal.h>

#include <sys/types.h>

#include <sys/stat.h>

#define _POSIX_SOURCE 1 //POSIX 兼容源码

#define FALSE 0

#define TRUE 1

#define MAX_DEVICES 64

#define MAX_IDS 64

#define LINE_LENGTH 1128

FILE *output;

char input_fname[80]; //打印机的文件名称

FILE *input_file;

mode_t mode;

char Char; //用于单个char的处理

int display; //"-D" 项: 0-ASC,1-ASC/HEX, 2-Hex 3-dec 4-dec/asc 5-DOS text 6-UNIX text 7- strip all non-asc

int out_length;//-L 选项

int display_col; //显示列计数

int char_len;

int asc_char; //0-non-asc, 1-asc, 2-CR, 3-LF

int nospace;

int last_char; //最后一个 char的类型

int get_linestring(char *file_line, char *label_name, int qty_statements, int strno);

int freadln(FILE *handle,char *outputline);//从一个文件读一行

void Process_Bufchar(); //一次处理一个在缓存中的Char

main(int Parm_Count, char *Parms[])

{

 char message[90];

 int start_options, in_source, done;

 char *lastslash; //最后一个slash 的字符串地址

 char dirname[80]; //目录名称

 DIR *current_directory;

 int i;

 char In1, Key;

 char buf[255]; //数据缓存

 out_length = 80;

 display = 1;//缺省值 HEX/ASC 显示, 在CR, CR/LF, LF后断开

 start_options=0;

 in_source = 0; //缺省值,便准输出

 if (Parm_Count>1)//在程序名后面如果有参数

 {

 start_options = 1;

 strcpy(message,Parms[1]);

 if (message[0]!='-')//如果是一个输入文件的名称

 {

 if ((input_file = fopen(Parms[1], "rb")) == NULL)

 {

 fprintf(stderr,"%s: Unable to open the input file %s\n",Parms[0],Parms[1]);

 exit(1); //发生错误退出

 }

 else

 {

 in_source = 1;//file

 }

 }//end 如果是一个输入文件

 }//end在程序名后面如果有参数

 //获得参数

 if (start_options<Parm_Count)//如果开始选项存在

 {

 for (i=1; i<Parm_Count; i++)

 {

 strcpy(message, Parms[i]);

 if (message[0]=='-')

 {

 if ((message[1]=='D') || (message[1]=='d'))//if display option

 {

 if (message[2]=='0') display=0;

 if (message[2]=='1') display=1;

 if (message[2]=='2') display=2;

 if (message[2]=='3') display=3;

 if (message[2]=='4') display=4;

 if (message[2]=='5') display=5;

 if (message[2]=='6') display=6;

 if (message[2]=='7') display=7;

 }

 if ((message[1]=='L') || (message[1]=='l'))//如果有 length选项

 {

 out_length=atoi(&message[2]);

 }

 }

 }

 }//end如果开始选项存在

 done = 0;

 display_col=0;

 nospace = 1;//我们不需要space

 last_char=4;

 while (!done)

 {

 if (in_source==1) //从文件读一个字符

 {

 if ((Char=fgetc(input_file))==EOF)

  {

 done = 1;

 }

 }

 else //从标准输入读一个字符

 {

 Char=getchar();

 if (Char==EOF)

 {

 done = 1;

 }

 }

 if (done==0) //输出这个字符到标准输出

 {

 asc_char=0; //假设不是 asc 字符

 if ((Char>31) && (Char < 127)) asc_char = 1;

 if (Char==13) asc_char = 2;

 if (Char==10) asc_char = 3;

  switch (display)

 {

 case 0: //ASC

 if (asc_char < 2) char_len=1;

 else char_len=0;

 if (display_col+char_len>out_length)

 {

 putchar(10);//如果此行太长滚动

 display_col=0;

 }

 putchar(Char);

  display_col++;

 if (asc_char==3) display_col=0;

 break;

 case 1: //ASC/HEX

 default:

 if (asc_char==1) char_len=1;

 else char_len=2;

 if ((display_col==0) || (last_char==4) || ((last_char==1) && (asc_char==1)))nospace=1;//dont need space

 else nospace=0;

 if (nospace==0) char_len++;//如果我们需要一个 space

 if (display_col+char_len>out_length)

 {

 putchar(10);//如果此行太长滚动

 display_col=0;

 if (nospace==0)

 {

 nospace=1;

 char_len--;

 }

 }

 if (nospace==0)//加一个 space

 {

 putchar(' ');

 display_col++;

 }

 if (asc_char==1)

 {

 putchar(Char);

 display_col++;

 }

 else

 {

 sprintf(message,"%2x",Char);

 fputs(message,stdout);

 display_col +=2;

 if (asc_char==3)

 {

 putchar(10);

 display_col=0;

 }

 }

 if ((last_char==2) && (asc_char!=3))//如果有 CR 没有 LF

 {

 putchar(10);

 display_col=0;

 }

 last_char=asc_char;

 break;

 case 2: //hex

 char_len=2;

 if (display_col==0) nospace = 1;

 else nospace = 0;

 if (nospace == 0) char_len++; //如果我们需要一个 space

 if (display_col+char_len>out_length)

 {

 putchar(10);//如果此行太长滚动

 display_col=0;

 if (nospace==0)

 {

 nospace=1;

 char_len--;

 }

 }

 if (nospace==0)//添加space

 {

 putchar(' ');

 display_col++;

 }

 sprintf(message,"%2x",Char);

 fputs(message,stdout);

 display_col +=2;

 break;

 case 5: //unix 文本 – 调整dos文本,在所有LF加CR 

 if (Char==10) putchar(13);

 putchar(Char);

 break;

 case 6: //dos 文本 – 到 unix, 跳过所有CR

 if ((last_char==2) && (asc_char !=3))putchar(10); //if this char is not a LF and the last one was CR, need a line feed for unix

 if (Char!=13) putchar(Char);

 last_char=asc_char;

 break;

 case 3: //decimal

 char_len=3;

 if (display_col==0) nospace = 1;

 else nospace = 0;

 if (nospace == 0) char_len++; //如果我们需要一个 space

 if (display_col+char_len>out_length)

 {

 putchar(10);//如果此行太长滚动

 display_col=0;

 if (nospace==0)

 {

 nospace=1;

 char_len--;

 }

 }

 if (nospace==0)//添加一个 space

 {

 putchar(' ');

 display_col++;

 }

 sprintf(message,"%3d",Char);

 fputs(message,stdout);

 display_col +=2;

 break;

 case 4: //decimal asc

 if (asc_char==1) char_len=1;

 else char_len=3;

 if ((display_col==0) || (last_char==4) || ((last_char==1) && (asc_char==1)))nospace=1;//dont need space

 else nospace=0;

 if (nospace==0) char_len++;//如果我们需要一个space

 if (display_col+char_len>out_length)

 {

 putchar(10);//如果此行太长滚动

 display_col=0;

 if (nospace==0)

 {

 nospace=1;

 char_len--;

 }

 }

 if (nospace==0)//add a space

 {

 putchar(' ');

 display_col++;

 }

 if (asc_char==1)

 {

 putchar(Char);

 display_col++;

 }

 else

 {

 sprintf(message,"%3d",Char);

 fputs(message,stdout);

 display_col +=2;

 if (asc_char==3)

 {

 putchar(10);

 display_col=0;

 }

 }

 if ((last_char==2) && (asc_char!=3))//如果有 CR 没有 LF

 {

 putchar(10);

 display_col=0;

 }

 last_char=asc_char;

 break;

 case 7: //跳过所有得 non-asc 字符转到 Unix 文件 (除了ASC 和 LF)

 if ((asc_char==1) || (asc_char==3)) putchar(Char);

 break;

 }//end of switch display

 }//end of if not done

 }//end of while not done

}//end of main