编译原理pl0课本代码Word文档格式.docx

1、 /输出源文件及其各行对应的首地址FILE *fa2; /输出结果bool listswitch; /显示虚拟机代码与否bool tableswitch; /显示名字表与否char ch; /获取字符的缓冲区，getch使用enum symbol sym ; /当前的符号char idal+1; /当前ident,多出的一个字节用于存放0int num ; /当前numberint cc,ll; /getch使用的计数器， cc表示当前字符（ch）的位置int cx; /虚拟机代码指针，取值范围0,cxmax-1char line81; /读取行缓冲区char aal+1; /临时符号，多出的

2、一个字节用于存放0struct instruction codecxmax; /存放虚拟机代码的数组char wordnorwal; /保留字enum symbol wsymnorw; /保留字对应的符号值enum symbol ssym256; /单字符的符号值char mnemonicfctnum5; /虚拟机代码指令名称bool declbegsyssymnum; /表示声明开始的符号集合bool statbegsyssymnum;/表示语句开始的符号集合bool facbegsyssymnum;/表示因子开始的符号集合/Page 455/名字表结构struct tablestruct

3、char nameal;/名字 enum object kind; / 类型:const,var,array or procedure int val; /数值，仅const使用 int level;/所处层，仅const不使用 int adr; /地址,仅const不使用 int size; /需要分配的数据区空间，仅procedure使用struct tablestruct tabletxmax;/名字表FILE *fin;FILE *fout;char fnameal;int err;/当函数中会发生fatal error时，返回-1告知调用它的函数，最终退出程序#define gets

4、ymdo if（-1=getsym（）return -1#define getchdo if（-1=getch（）return -1#define testdo（a,b,c） if（-1=test（a,b,c）return -1#define gendo（a,b,c） if（-1=gen（a,b,c）return -1#define expressiondo（a,b,c） if（-1=expression（a,b,c）return -1#define factordo（a,b,c） if（-1=factor（a,b,c）return -1#define termdo（a,b,c） if（-1=

5、term（a,b,c）return -1#define conditiondo（a,b,c） if（-1=condition（a,b,c）return -1#define statementdo（a,b,c） if（-1=statement（a,b,c）return -1#define constdeclarationdo（a,b,c） if（-1=constdeclaration（a,b,c）return -1#define vardeclarationdo（a,b,c） if（-1=vardeclaration（a,b,c）return -1void error（int n）;int ge

6、tsym（）;int getch（）;void init（）;int gen（enum fct x,int y,int z）;int test（bool *s1,bool *s2,int n）;int inset（int e,bool *s）;int addset（bool *sr,bool *s1,bool *s2,int n）;int subset（bool *sr,bool *s1,bool *s2,int n）;int mulset（bool *sr,bool *s1,bool *s2,int n）;int block（int lev,int tx,bool *fsys）;void i

7、nterpret（）;int factor（bool *fsys,int *ptx,int lev）;int term（bool *fsys,int *ptx,int lev）;int condition（bool *fsys,int *ptx,int lev）;int expression（bool *fsys,int *ptx,int lev）;int statement（bool *fsys,int *ptx,int lev）;void listcode（int cx0）;int vardeclaration（int *ptx,int lev,int *pdx）;int constdec

8、laration（int *ptx,int lev,int *pdx）;int position（char*idt,int tx）;void enter（enum object k,int *ptx,int lev,int *pdx）;int base（int l,int *s,int b）;#include string.h#define stacksize 500int main（） bool nxtlevsymnum; printf（Input pl/0 file?）; scanf（%s,fname）; /输入文件名 以后恢复/ strcpy（fname,begin fin=fopen（

9、fname,r if（fin） printf（List object code?（Y/N）/是否输入虚拟机代码 scanf（ listswitch=（fname0=y|fname0=YList symbol table? /是否输出名字表 tableswitch=（fname0= fa1=fopen（fa1.tmp,w fprintf（fa1,%sn init（）; /初始化 err=0; cc=cx=ll=0; ch= ; if（-1!=getsym（） fa=fopen（fa.tmp fas=fopen（fas.tmp/Page 430 addset（nxtlev,declbegsys,s

10、tatbegsys,symnum）; nxtlevperiod=true; if（-1=block（0,0,nxtlev） /调用编译程序 fclose（fa）; fclose（fa1）; fclose（fas）; fclose（fin）; printf（n return 0; fclose（fa）; fclose（fa1）; fclose（fas）; if（sym!=period） error（9）; if（err=0） fa2=fopen（fa2.tmp interpret（）; /调用解释执行程序 fclose（fa2）; elseErrors in pl/0 program fclos

11、e（fin）; elseCant open file! return 0;void init（） int i; /设置单字符符号 for（i=0;iachz） k=0; do if（k|ch09 ak=0; strcpy（id,a）; i=0; j=norw-1; /搜索当前符号是否为保留字 k=（i+j）/2; if（strcmp（id,wordk） i=k+1; while（ij） sym=wsymk; else sym=ident; /搜索失败，则是名字或数字 if（ch /检测是否为数字：以0.9开头 k=0; num=0; sym=number; do num=10*num+ch-

12、getchdo; while（ch /获取数字的值 k-; if（knmax） error（30）; if（ch=:） /检测赋值符号 if（ch= sym=becomes; getchdo; else sym=nul; /不能识别的符号） /检测大于或大于等于符号 if（ch= sym=geq; getchdo; else sym=gtr; sym=ssymch;/当符号不满足上述条件时，全部按照单字符符号处理 /getchdo /rechjard if（sym! /end richardint gen（enum fct x,int y,int z） if（cx=cxmax）Program

13、too long /程序过长 return -1; codecx.f=x; codecx.l=y; codecx.a=z; cx+;/测试当前符号是否合法/在某一部分（如一条语句，一个表达式）将要结束时，我们希望下一个符号属于某集合/（该部分的后跟符号），test负责这项检测，并且负责当检测不通过时的补救措施/程序在需要检测时指定当前需要的符号集合和补救用的集合（如之前未完成部分的后跟符号），以及检测不通过时的错误符号/s1:我们需要的符号/s2:如果不是我们需要的，则需要一个补救用的集合/n:错误号int test（bool *s1,bool *s2,int n） if（!inset（sym,s1） error（n）; /当检测不通过时，不停获取符号，直到它属于需要的集合或补救的集合 while（!inset（sym,s1）&inset（sym,s2） getsymdo;/编译程序主体/lev:当前分程序所在层/tx:名字表当前尾指针/fsys:当前模块后跟符号