编译原理及实现-附录C-语法分析程序-代码(包含词法分析代码)

TESTparse.cpp

#include

#include

#include

#include

intTESTparse();

int program();

intcompound_stat();

int statement();

intexpression_stat();

int expression();

intbool_expr();

intadditive_expr();

int term();

int factor();

intif_stat();

intwhile_stat();

intfor_stat();

intwrite_stat();

intread_stat();

intdeclaration_stat();

intdeclaration_list();

intstatement_list();

intcompound_stat();

//token保存单词符号，token1保存单词值

char token[20] ,token1[40];

//保存词法分析输出文件名

extern char Scanout[300];

//用于指向输入文件的指针

FILE * fp;

//语法分析程序

intTESTparse()

{

intes = 0;

if ((fp = fopen(Scanout,"r")) == NULL)

{

printf("\n 打开文件%s 错误！\n", Scanout);

es = 10;

}

if (es == 0) es = program();

printf("=====语法分析结果! ======== \n");

switch (es)

{

case 0: printf("语法分析成功！\n"); break;

case 10:printf("打开文件%s失败！\n",Scanout); break;

case 1: printf("缺少{! \n");break;

case 2: printf("缺少}! \n"); break;

case 3: printf("缺少标识符!\n"); break;

case 4: printf("少分号! \n"); break;

case 5: printf("缺少(! \n"); break;

case 6: printf("缺少)! \n"); break;

case 7: printf("狹少操作数! \n"); break;

}

fclose(fp);

return(es);

}

//<程序> ::={<声明序列><语句序列>}

//program: := { }

int program()

{

intes = 0;

fscanf(fp, "%s %s\n", token, token1);

printf("%s %s\n", token, token1);

if (strcmp(token, "{")) //判断是否为'{'

{

es = 1;

return(es);

}

fscanf(fp, "%s %s\n", &token, &token1);

printf("%s %s\n", token, token1);

es = declaration_list();

if (es> 0) return(es);

es = statement_list();

if (es> 0) return(es);

if (strcmp(token, "}")) //判断是否为，}'

{

es = 2;

return (es);

}

return(es);

}

//<声明序列>::= <声明序列><声明语句>1<声明语句> //::=

// |e //3tJ^l : :* { } intdeclaration_list()

{

intes=0;

while (strcmp (token, "int")== 0)

{

es=declaration_stat();

if(es>0) return(es);

}

return(es);

}

//<声明语句>::=ID<变量>;

// : : = int ID;

intdeclaration_stat()

{

intes=0;

fscanf(fp, "%s %s\n", &token, &token1);

printf ("%s %s\n",token, token1);

if (strcmp (token, "ID")) return (es*3); //不是标识符

fscanf(fp,"%s %s\n",&token,&token1);

printf("%s %s\n",token,token1);

if(strcmp(token,"?")) return(es=4);

fscanf (fp, "%s %s\n", &token, &token1);

printf ("%s %s\n",token, token1);

return(es);

}

//<语句序列> ::=<语句序列><语句> |e

// : : = < statement> |e //改成 : :8= {< statement> }

intstatement_list()

{

intes = 0;

while (strcmp(token, "}"))

{

es = statement();

if (es> 0) return (es);

}

return(es);

}

//<语句> :: = | |丨 |丨<复合语句>丨<表达式语句>

//< statement> : : = | |

// | |

int statement()

{

intes = 0;

if (es == 0 &&strcmp(token, "if") == 0) es = if_stat(); //

if (es == 0 &&strcmp(token, "while") == 0) es = while_stat(); //

if (es == 0 &&strcmp(token, "for") == 0) es=for_stat(); //< for 语句>

if (es == 0 &&strcmp(token, "resd") == 0) es = read_stat(); //

if (es == 0 &&strcmp(token, "write") == 0) es = write_stat();//

if (es == 0 &&strcmp(token, "{") == 0) es = compound_stat(); //<复合语句>

if (es == 0 && (strcmp(token, "ID") == 0 || strcmp(token, "NUM") == 0 || strcmp(token, "(") == 0)) es = expression_stat(); //<表达式语句>

return(es);

}

// :: = if (<表达式> ) <语句> 4136<语句>]

// : : = if { ) [else< statement> ]

intif_stat()

{

intes = 0; //if

fscanf(fp, "%s %s\n", &token, &token1);

printf("%s %s\n", token, token1);

if (strcmp(token, " ("))if (es> 0) return (es = 5); //少左括号

fscanf(fp, "%s %s\n", &token, &token1);

printf("%s %s\n", token, token1);

es = expression();

if (es> 0) return(es);

if (strcmp(token, ";"))if (es> 0) return (es = 4); //少分号

fscanf(fp, "%s %s\n", &token, &token1);

printf("%s %s\n", token, token1);

es = expression();

if (es> 0) return (es);

if (strcmp(token, ") "))if (es> 0) return (es = 6); //少右括号

fscanf(fp, "%s %s\n", &token, &token1);

printf("%s %s\n", token, token1);

es = statement(); if (es> 0) return(es);

if (strcmp(token, "else") == 0) //else部分处理

{

fscanf(fp, "%s %s\n", &token, &token1);

printf("%s %s\n", token, token1);

es = statement();

if (es> 0) return (es);

}

return (es);

}

// ::=while (<表达式> ) <语句>

// : : = while () < statement>

intwhile_stat()

{

intes=0;

fscanf(fp,"%s %s\n",&token,&token1);

printf ("%s %s\n",token, token1);

if (strcmp (token," ("))if (es> 0) return (es=5); //少左括号

fscanf (fp, "%s %s\n", &token, &token1) ;

printf("%s %s\n", token, token1);

es=expression();

if(es>0) return(es);

if (strcmp (token, ")"))if (es> 0) return (es= 6); //少右括号

fscanf (fp, "%s %s\n",&token, &token1);

printf("%s %s\n",token,token1);

es=statement();

return(es);

}

//< for语句> :: = for (<表达式> ;<表达式> ;<表达式> ) <语句>

// : :=for ( ; ; ) < statement> intfor_stat()

{

intes = 0;

fscanf(fp, "%s %s\n", &token, &token1);

printf("%s %s\n", token, token1);

if (strcmp(token, " ("))if (es> 0) return (es = 5); //少左括号

fscanf(fp, "%s %s\n", &token, &token1);

printf("%s %s\n", token, token1); es = expression();

if (es> 0) return (es);

if (strcmp(token, ") "))if (es> 0) return (es = 6); //少右括号

fscanf(fp, "%s %s\n", &token, &token1);

printf("%s.%s\n", token, token1);

es = statement();

return(es);

if (strcmp(token, ";"))if (es> 0) return (es = 4); //少分号

fscanf(fp, "%s %s\n", &token, &token1);

printf("%s %s\n", token, token1);

es = expression();

if (es> 0) return (es);

}

//< write_语句> ::=write<表达式>;

// : : = write;;

intwrite_stat()

{

intes=0;

fscanf (fp, "%s %s\n", & token, & token1);

printf ("%s %s\n",token,token1);

es=expression();

if (es>0) return (es);

if (strcmp(token, ";"))if (es> 0) return (es = 4); //少分号

fscanf(fp, "%s %s\n",&token, & token1);

printf("%s %s\n",token,token1);

return(es);

}

// : ^找日化变量>;

// : : = resd ID;

intread_stat()

{

intes=0;

fscanf(fp,"%s %s\n",&token,&token1);

printf("%s %s\n",token,token1);

if (strcmp (token, "ID"))if (es> 0) return(es=3) ; //例示识符fscanf(fp, "%s %s\n", &token, &token1);

printf("%s %s\n",token,token1);

if(strcmp(token,";"))if (es> 0) return (es=4); //少分号

fscanf (fp,"%s %s\n",&token,&token1);

printf ("%s %s\n",token, token1);

return (es);

}

//<复合语句>::-(<语句序列>}

// : : = { } 一: i>;- ,：; -^ -1 intcompound_stat() //复合语句函数{

intes=0;

fscanf (fp,"%s %s\n",&token,&token1);

printf ("%s %s\n",token, token1);

es= statement_list();

return(es);

}

//<表达式语句>人:= <<表达式>;丨;

// : : = ; | ; intexpression_stat()

{

intes=0;

if (strcmp (token, ";")== 0)

{

fscanf(fp,"%s %s\n",&token,&token1);

printf ("%s %s\n",token,token1) ;

return(es);

}

es=expression();

if(es>0) return(es);

if(es== 0 &&strcmp (token, ";")== 0)

{

fscanf (fp,"%s %s\n", &token, & token1);

printf ("%s %s\n",token, token1);

return(es);

}

else

{

es=4;

return (es); //少分号

}

}

//<表达式> ::"<标识符> = <布尔表达式> |<布尔表达式> // : : = ID== |

int expression()

{

intes=0,filesdd;

char token2[20],token3[40];

if (strcmp(token, "ID") == 0)

{

filesdd = ftell(fp); //记住当前文件位置

fscanf(fp, "%s %sVi", &token2, &token3);

printf("%s %s\n", token2, token3 ) ;

if (strcmp(token2, "=") == 0) // '='

{

fscanf(fp, "%s %s\n", &token, &token1);

printf("%s %s\n", token, token1);

es = bool_expr();

if (es> 0) return(es );

}

else

{

fseek(fp, filesdd, 0);//若非^=’，则文件指针回到'==前的标识符

printf ("%s %s\n" ,token, token1);

es = bool_expr();

if (es> 0) return(es);

}

}

elsees = bool_expr();

return (es) ;

}

//<布尔表达式> :—〈算术表达式> |<算术表达式> (>丨<彳>=丨<=|== f:!=)

//<算术表达式> ^-m.c'.j

// :: =

// | (> |< f>= |< = | == | !*)

intbool_expr()

{

intes=0;

es= additive_expr();

if (es>0) return (es);

if (strcmp (token, ">")== 0 ||strcmp(token,">") ==0 ||strcmp (token, "<")==0 ||strcmp (token, "<=")==0 ||strcmp(token,"==")== 0||strcmp(token,"!= ")== 0)

{

fscanf(fp,"%s %s\n",&token,&token1);

printf ("%s %s\n",token,token1);

es= additive_expr();

if(es>0) return(es);

}

return(es);

}

//<算术表达式> ::= <项> { (+ | -)<项> }

// : : = { (+ | - ) }

intadditive_expr()

{

intes=0;

es=term();

if(es>0) return (es);

while (strcmp(token, "+") == 0 || strcmp(token, "-") == 0)

{

fscanf(fp, "%s %s\n", &token, &token1);

printf("%s %s\n", token, token1);

es = term();

if (es> 0) return (es);

}

return(es);

}

// <项> ::48 <因子> | ( * | / ) <因子> )>

// : :* { ( * ( /)< factor> }

int term()

{

intes=0;

es= factor();

if (es>0) return (es);

while(strcmp(token,"*")==0||strcmp(token,"/")== 0)

{

fscanf(fp,"%s %s\n",&token,&token1);

printf ("%s %s\n",token,token1);

es= factor();

if (es>0) return (es);

}

return(es);

}

//<因子>::(<表达式>>丨<标识符> |<无符号整数>

//: := ()丨ID|NUM

int factor()

{

intes=0;

if (strcmp (token, " (")== 0)

{

fscanf(fp,"%s %s\n",&token,&token1);

printf("%s %s\n",token,token1);

es=expression();

if(es>0) return (es);

if (strcmp (token, ") ")) return (es=6); //少右括号

fscanf(fp,"%s %s\n",&token,&token1);

printf("%s %s\n",token,token1) ;

}

else

{

if (strcmp(token, "ID") == 0 || strcmp(token, "NUM") == 0)

{

fscanf(fp, "%s %s\n", &token, &token1);

printf("%s %s\n", token, token1);

return(es);

}

else

{

es = 7; //缺少操作数

return(es);

}

}

return(es);

}

TESTscan.cpp

#include

#include

#include

#define keywordSum 8

char *keyword[keywordSum]={"if","else","for","while","do","int","read","write"};//添加的保留字do;

charsingleword[50]="+ - * () {} ; , : ";

chardoubleword[10]=">< = ! ";

chardoublewordhe[10]="&&";

char doublewordhuo[10]="||";//添加双分界符

chardoublewordjia[10]="++";

extern char Scanin[300],Scanout[300];

extern FILE * fin,*fout;

intTESTscan()

{

charch,token[40];

intes=0,j,n;

printf ("请输入源程序文件名（包括路径）:");

scanf ("%s",Scanin);

printf ("请输入词法分析输出文件名（包括路径）:");

scanf ("%s",Scanout);

if ((fin=fopen(Scanin,"r"))==NULL)

{

printf("\n打开词法分析输入文件出错！\n");

return(1);

}

if((fout=fopen(Scanout,"w"))==NULL)

{

printf("\n创建词法分析输出文件出错！\n");

return(2);

}

ch=getc(fin);

while(ch!=EOF)

{

while (ch==' '|| ch=='\n'|| ch=='\t')ch=getc(fin);

if(isalpha(ch))

{

token[0]=ch;j=1;

ch=getc(fin);

while(isalnum(ch))

{

token[j++]=ch;

ch=getc(fin);

}

token[j]='\0';

n=0;

while ((n

if(n>=keywordSum)

fprintf(fout,"%s\t%s\n","ID",token);

else

fprintf(fout,"%s\t%s\n",token,token);

}

else if (isdigit(ch))

{

token[0]=ch;

j=1;

ch=getc(fin);

while (isdigit(ch))

{

token[j++]=ch;

ch=getc(fin);

}

token[j]='\0';

fprintf(fout,"%s\t%s\n","NUM",token); }

else if (strchr(doubleword,ch)>0)

{

token[0]=ch;

ch=getc(fin);

token[1]='\0';

fprintf(fout,"%s\t%s\n",token,token); }

else if(strchr(doublewordhe,ch)>0)

{

token[0]=ch;

ch=getc(fin);

if(ch=='&')

{

token[1]=ch;

token[2]='\0';

ch=getc(fin);

}

else

token[1]='\0';

fprintf(fout,"%s\t%s\n",token,token); }//所加代码；

else if(strchr(doublewordhuo,ch)>0)

{

token[0]=ch;

ch=getc(fin);

if(ch=='|')

{

token[1]=ch;

token[2]='\0';

ch=getc(fin);

}

else

token[1]='\0';

fprintf(fout,"%s\t%s\n",token,token); }//所加代码；

else if(strchr(doublewordjia,ch)>0)

{

token[0]=ch;

ch=getc(fin);

if(ch=='+')

{

token[1]=ch;

token[2]='\0';

ch=getc(fin);

}

else

token[1]='\0';

fprintf(fout,"%s\t%s\n",token,token);

}//所加代码；

else if (strchr(singleword,ch)>0)

{

token[0]=ch;

token[1]='\0';

ch=getc(fin);

fprintf(fout,"%s\t%s\n",token,token);

}

else if (ch=='/')

{

ch=getc(fin);

if (ch=='*')

{

char ch1;

ch1=getc(fin);

do

{

ch=ch1;ch1=getc(fin);

}

while ((ch!='*'||ch1!='/')&&ch1!=EOF);

ch=getc(fin);

}

else

{

token[0]=ch;token[1]='\0';

fprintf(fout,"%s\t%s\n",token,token);

}

}

else

{

token[0]=ch;token[1]='\0';

ch=getc(fin);

es=3;

fprintf(fout,"%s\t%s]\n","ERROR",token); }

}

fclose(fin);

fclose(fout);

return(es);

}

main.cpp

#include

#include

externintTESTscan();

externintTESTparse();

char Scanin[300],Scanout[300] ; //用于接收输入输出文件名FILE * fin, * fout; //用于指向输入输出文件的指针

void main ()

{

intes=0;

es=TESTscan(); //调词法分析

if (es>0) printf ("词法分析有错，编译停止！") ;

else printf ("词法分析成功！\n");

if (es == 0)

{

es=TESTparse(); //调语法分析

if(es==0)printf("语法分析成功!\n");

else printf ("语法分析错误！\n");

}

}