PL0源程序-编译原理实验代码VIP

附件1小组成员：程序清单主要c#包括#包括#包括无效错误(int n)；void getsym()；/无效输入(枚举对象k，int *ptx，int lev，int * pdx)；int位置(char*idt，int tx)；int constdeclaration(int *ptx，int lev，int * pdx)；int vardeclaration(int *ptx，int lev，int * pdx)；int因子(int*ptx，int lev)；int项(int *ptx，int lev)；int表达式(int *ptx，int lev)；int语句(int *ptx，int lev)；int块()；枚举对象常量、变量、过程；结构选项卡char名称14；枚举对象种类；int val国际水平；int adrint大小；表100；枚举符号nul，ident，number，加号，减号时代周刊，斜杠、oddsym、eql、neq、lss、leq、gtr、geq、lparen、rparen、逗号，分号，period，beginsym，endsym，ifsym，thensym，whilesym，writesym，readsym，dosym，callsym，constsym，varsym，procsym，progsym，；枚举符号sym=nul枚举符号mulop枚举符号wsym14；枚举符号ssy m256；char ch=；char *字符串；茶字1410=begin ， call ， const ， do ， end ， if ， odd ， procedure ， program ， read ， then ， var ， while ， write ；/设置保留字名字整数int lev=0；int tx=0；int k；int *mm ./=(int *)malloc(sizeof(int)；char *id，符号14；充电a14；文件*fp1，*fp2，* fp3无效错误(int n)开关(n)case 1:printf(常数说明中的= 写成了:= 。 n )；休息；case 2:printf(常数说明中= 后应是数字)；休息；case 3:printf(常数说明中的标识符后应是= 。 n )；休息；case 4:printf(程序，常量，变量，程序后应为标识符)；休息；case 5:printf()漏掉了 ， 或 . 。 n )；休息；case 6:printf(过程说明的符号不正确)；休息；case 7:printf()应该是语句的开始符)；休息；case 8:printf(程序体内语句部分的后跟符不正确)；休息；case 9:printf(程序的结尾丢了句号 . 。 n )；休息；案例10:printf(语句之间漏了 . 。 n )；休息；case 11:printf(标识符未说明)；休息；case 12:printf(赋值语句中，赋值号左部标识符属性应是变量)；休息；case 13:printf(赋值语句左部标识符后应是赋值号:= 。 n )；休息；case 14:printf(call后应为标识符)；休息；case 15:printf(call后标识符属性应为过程)；休息；案例16:printf(条件语句中丢了 然后 。 n )；休息；案例17:printf(丢了end 或 . 。 n )；休息；案例18:printf(while型循环语句中丢了do 。 n )；休息；案例19:printf(语句后的符号不正确)；休息；case 20:printf(应为关系运算符)；休息；case 21:printf(表达式内标识符属性不能是过程)；休息；case 22:printf(表达式中漏掉右括号) 。 n )；休息；case 23:printf(因子后的非法符号)；休息；案例24:printf(表达式的开始符不能是此符号)；休息；案例25:printf(不能识别的符号)；休息；case 26:printf(程序的层次越界)；休息；案例27:printf(程序应该以程序保留字开始)；休息；案例28:printf(程序没有程序主体)；休息；case 31:printf(数越界)；休息；case 32:printf(已读语句括号中的标识符不是变量)；休息；case 33:printf(读/写单词后应为左括号)；休息；case 34:printf(读/写语句括号中的标识符应是申明过的变量)；休息；case 35:printf(读/写语句没有右括号)；void getsym()int i，n=1，l=0；int j，m；做而(ch=|ch=10|ch=9)if(ch=10)n；ch=fg等(fp1)；if(ch=ach=z) /名字或保留字以字母开头k=0；做if(k10)ak=ch；k=1；ch=fg等(fp1)；同时(ch=ach=z | | ch=0ch=9)；/读取一串字符ak= 0；/字符串最后置结束符id=a ./单词自身值赋给编号对于(1=0；i14i )对于(j=0；j13)sym=ident ./将字符串类别值赋给符号否则如果(ch=0ch=9) /检测是否为数字：以0.9开头k=0；num=0；sym=数字。做ak=ch；num=10 * num(ch-0)；k=1；ch=fg等(fp1)；同时(ch=0ch=9)；/读取数字，并转换为数k-；id=a .if(k14)num=0；错误(31)；/数字位数超过14位出错printf(第%d行出错n ，n)；k=0；*(id k)=0；ak=0；否则if(ch=:) /检测赋值符号k=0；ch=fg等(fp1)；*(id k)=:ak=:if(ch=)sym=变成；k=k1*(id k)=；ak=；ch=fg等(fp1)；否则错误(25)；sym=num 1 ./不能识别的符号printf(第%d行出错n ，n)；否则如果(ch=) /检测小于或小于等于符号k=0；ch=fg等(fp1)；*(id k)=；ak=；if(ch=)sym=leq .k=1；*(id k)=；ak=；ch=fg等(fp1)；其他sym=lss .否则如果(ch=) /检测大于或大于等于符号k=0；ch=fg等(fp1)；*(id k)=；ak=；if(ch=)sym=geq .k=1；*(id k)=；ak=；ch=fg等(fp1)；其他sym=gtr .否则如果(ch=|ch=-| | ch=* | | ch=/| | ch=(| | ch=)| | ch=，| | ch=.| | ch=# | | ch=|ch=) /单字符符号处理sym=ssy mch；k=0；ak=ch；id=a .ch=fg等(fp1)；否则 /当符号不能满足上述条件时，全部按不能识别的符号处理sym=num 1 .k=0；ak=ch；id=a .错误(25)；printf(第%d行出错n ，n)；ch=fg等(fp1)；开关（符号)案件编号：str=编号休息；case ident:str= ident休息；case number:str= number休息；case plus:str= plus休息；案