pl0词法分析器(C语言版).docx

#includestdio.h #includestring.h #includestdlib.h void init(); void getsym(); enum symbol {nul,ident,number,plus,minus,times,slash,oddsym,eql,neq, beginsym,endsym,ifsym,thensym,whilesym,writesym,readsym,dosym,callsym, constsym,varsym,procsym,programsym, }; #define norw 14 #define al 10 #define nmax 10 char word [norw][al]; char ch; enum symbol sym; enum symbol wsym[norw]; enum symbol ssym[256]; FILE *fin,*fout; void main(){printf(please input outfiles name: \n);// 词法分析之后的结果要输出到的文件 }char outname[30],inname[30]; scanf(%s,outname); 1 / 8 if((fout=fopen(outname,w))==NULL){printf(cannot open output file!); exit (0);}printf(please input infiles name: \n);// 需要词法分析的源程序 scanf(%s,inname); if((fin=fopen(inname,r))==NULL){printf(cannot open file!\n); exit (0);}ch=fgetc(fin); while(ch!=EOF){}getsym(); 读取源文件 void getsym(){long m; char id[al+1],a[al+1]; int i,k; init(); if(ch== ||ch==10||ch==9){} else {if(ch=ach=z||ch=Ach=Z){k=0; ch=fgetc(fin); do {if(kal){a[k]=ch; k++;}ch=fgetc(fin); }while ((ch=ach=z||ch=0ch=9)||(ch=Ach=Z||ch=0ch=9) ); 2 / 8 a[k]=0; strcpy(id,a); for(i=0;inorw;i++){if(strcmp(id,word[i])==0){sym=wsym[i]; printf(%s %ssym\n,id,id); fprintf(fout,%s %ssym\n,id,id); break;}else {if(i==(norw-1)){sym=ident; printf(%s ident\n,id); fprintf(fout,%s ident\n,id); }}}} else {if(ch=0ch=9){k=0; m=0; sym=number; do }{ m=10*m+ch-0; k++; ch=getc(fin); }while(ch=0ch=9); if(k=nmax){printf(error! 数值太大！ \n); //exit (0);}printf(%d number\n,m); 3 / 8 fprintf(fout,%d number\n,m); else {if(ch==: ){ch=getc(fin); printf(: fprintf(fout,: ch=fgetc(fin);}else {}sym=nul; fprintf(fout,: nul\n); printf(: nul\n); else {if(ch==){ch=fgetc(fin); if(ch===){sym=leq; printf(=lep\n); fprintf(fout,= ch=fgetc(fin);}else {sym=lss; printf( fprintf(fout,}} else {if(ch==){ch=fgetc(fin); if(ch===){sym=geq; printf(= fprintf(fout,= 4 / 8 ch=fgetc(fin);}else {sym=gtr; printf( fprintf(fout,}} else {sym=ssym[ch]; if(ch==+){printf(+ plus\n);ch=fgetc(fin);} else lep\n); lss\n); lss\n); geq\n); geq\n); gtr\n); gt