1、1编译原理实践编译原理实践教程作为编译原理和技术课程的延伸，其目的是让大家动手设计和实现某一规模适中的语言的编译器，该编译器不仅涉及编译程序的各个阶段，而且也强调了编译的总体设计、各个阶段的接口安排等等。通过上机实践，来设计这个相对完整的编译器，一方面可以使学生增加对编译程序的整体认识和了解巩固编译原理和技术课程所学知识，另一方面，通过上机练习，学生也可以学到很多程序调试技巧和设计大型程序一般的原则，如模块接口的协调，数据结构的合理选择等等。为了使学生能尽早动手实践，我们建议把实践分成三部分，首先阅读本教程第一部分，在这部分就 PL/0 语言的语法及其编译程序的各个阶段作了简单介绍，以便对 P
2、L/0 编译程序有个初步的印象。其次要认真阅读理解第三部分所给出的 PL/0 编译器源程序，使上一阶段的初步印象得以加深、具体化。最后按照第二部分的实验要求扩充 PL/0 语言的功能并加以实现。第一部分 PL/0 语言及其编译器1. PL/0 语言介绍PL/0 程序设计语言是一个较简单的语言，它以赋值语句为基础，构造概念有顺序、条件和重复（循环）三种。PL/0 有子程序概念，包括过程定义（可以嵌套）与调用且有局部变量说明。PL/0 中唯一的数据类型是整型，可以用来说明该类型的常量和变量。当然 PL/0 也具有通常的算术运算和关系运算。具体的 PL/0 语法图见书。21.1 词法分析PL/0 的
3、语言的词法分析器将要完成以下工作：（1） 跳过分隔符（如空格，回车，制表符） ；（2） 识别诸如 begin，end，if，while 等保留字；（3） 识别非保留字的一般标识符，此标识符值（字符序列）赋给全局量 id，而全局量 sym 赋值为 SYM_IDENTIFIER。（4） 识别数字序列，当前值赋给全局量 NUM，sym 则置为 SYM_NUMBER；（5） 识别:=，=之类的特殊符号，全局量 sym 则分别被赋值为SYM_BECOMES，SYM_LEQ，SYM_GEQ 等。相关过程（函数）有 getsym()，getch()，其中 getch()为获取单个字符的过程，除此之外，它还完
4、成：（1） 识别且跳过行结束符；（2） 将输入源文件复写到输出文件；（3） 产生一份程序列表，输出相应行号或指令计数器的值。1.2 语法分析我们采用递归下降的方法来设计 PL/0 编译器。以下我们给出该语言的 FIRST 和FOLLOW 集合。非终结符（S） FIRST(S) FOLLOW(S)程序体 const var procedure ident call if begin while. ;语句 ident call begin if while . ; end条件 odd + - ( ident number then do表达式 + - ( ident number . ; ) R
5、end then do项 ident number ( . ; ) R + - end then do因子 ident number ( . ; ) R + - * / end then do注：表中 R 代表六个关系运算符。不难证明，PL/0 语言属于 LL（1）文法。 （证明从略。 ）以下是我们给出如何结合语法图编写（递归下降）语法分析程序的一般方法。假定图 S 所对应的程序段为 T（S） ，则：（1） 用合适的替换将语法约化成尽可能少的单个图；（2） 将每一个图按下面的规则（3）-（7）翻译成一个过程说明；（3） 顺序图对应复合语句：对应：begin T(S1); T(S2); .; T
6、(Sn) endS1 S2 Sn3（4） 选择：对应：case 语句或者条件语句：case ch of if ch in L1 then T(S1) elseL1: T(S1); if ch in L2 then T(S2) elseL2: T(S2); 或 . if ch in Ln then T(Sn) elseLn: T(Sn); error其中 LiFIRST（Si） ，ch 为当前输入符号。 （下同）（5） 循环对应：while ch in L do T(S)（6） 表示另一个图 A 的图：对应：过程调用 A。（7） 表示终结符的单元图：对应：if ch = x then read(
7、ch) else error相关过程有：block(), constdeclaration(), vardeclaration(), statement(), condition(), expression(), term(), factor()等。S1S2S3SAx4它们之间依赖关系如图 1-2：1.3 语义分析PL/0 的语义分析主要进行以下检查：（1） 是否存在标识符先引用未声明的情况；（2） 是否存在己声明的标识符的错误引用；（3） 是否存在一般标识符的多重声明。1.4 代码生成PL/0 编译程序不仅完成通常的词法分析、语法分析，而且还产生中间代码和“目标”代码。最终我们要“运行”该目
8、标码。为了使我们的编译程序保持适当简单的水平，不致陷入与本课程无关的实际机器的特有性质的考虑中去，我们假想有台适合PL/0 程序运行的计算机，我们称之为 PL/0 处理机。PL/0 处理机顺序解释生成的目标代码，我们称之为解释程序。注意：这里的假设与我们的编译概念并不矛盾，在本课程中我们写的只是一个示范性的编译程序，它的后端无法完整地实现，因而只能在一个解释性的环境下予以模拟。从另一个角度上讲，把解释程序就看成是 PL/0 机硬件，把解释执行看成是 PL/0 的硬件执行，那么我们所做的工作：由 PL/0 源语言程序到PL/0 机器指令的变换，就是一个完整的编译程序。PL/0 处理机有两类存贮，
9、目标代码放在一个固定的存贮数组 code 中，而所需数据组织成一个栈形式存放。PL/0 处理机的指令集根据 PL/0 语言的要求而设计，它包括以下的指令：程序程序体语句条件表达式项因子图 1-2 语法分析过程依赖关系5（1）LIT /* 将常数置于栈顶 */（2）LOD /* 将变量值置于栈顶 */（3）STO /* 将栈顶的值赋与某变量 */（4）CAL /* 用于过程调用的指令 */（5）INT /* 在数据栈中分配存贮空间 */（6）JMP, JPC /* 用于 if, while 语句的条件或无条件控制转移指令 */（7）OPR /* 一组算术或逻辑运算指令 */上述指令的格式由三部分
10、组成：F L A其中，f, l, a 的含义见下表：F L aINT 常 量LIT 常 量LOD 层次差 数据地址STO 层次差 数据地址CAL 层次差 程序地址JMP 程序地址JPC 程序地址OPR 运算类别上表中，层次差为变量名或过程名引用和声明之间的静态层次差别，程序地址为目标数组 code 的下标，数据地址为变量在局部存贮中的相对地址。PL/0 的编译程序为每一条 PL/0 源程序的可执行语句生成后缀式目标代码。这种代码生成方式对于表达式、赋值语句、过程调用等的翻译较简单。如赋值语句 X := Y op Z（op 为某个运算符） ，将被翻译成下面的目标代码序列：（设指令计数从第 100
11、 号开始）No. f L a100 LOD Level_diff_Y Addr_Y101 LOD Level_diff_Z Addr_Z102 OPR op103 STO Level_diff_X Addr_X而对 if 和 while 语句稍繁琐一点，因为此时要生成一些跳转指令，而跳转的目标地址大都是未知的。为解决这一问题，我们在 PL/0 编译程序中采用了回填技术，即产生跳转目标地址不明确的指令时，先保留这些指令的地址（code 数组的下标） ，等到目标地址明确后再回过来将该跳转指令的目标地址补上，使其成为完整的指令。下表是if、while 语句目标代码生成的模式。 （L1，L2 是代码地
12、址）表 2-1 PL/0 处理机指令6if C then S While C do S条件 C 的目标代码JPC - L1语句 S 的目标代码L1: .L1: 条件 C 的目标代码JPC L2语句 S 的目标代码JMP L1L2: .相关过程（函数）有：gen()，其任务是把三个参数 f、l、a 组装成一条目标指令并存放于 code 数组中，增加 CX 的值，CX 表示下一条即将生成的目标指令的地址。1.5 代码执行为了简单起见，我们假设有一个 PL/0 处理机，它能够解释执行 PL/0 编译程序所生成的目标代码。这个 PL/0 处理机有两类存贮、一个指令寄存器和三个地址寄存器组成。程序（目标
13、代码）存贮称为 code，由编译程序装入，在目标代码执行过程中保持不变，因此它可被看成是“只读”存贮器。数据存贮 S 组织成为一个栈，所有的算术运算均对栈顶元和次栈顶元进行（一元运算仅作用于栈顶元） ，并用结果值代替原来的运算对象。栈顶元的地址（下标）记在栈顶寄存器 T 中，指令寄存器 I 包含着当前正在解释执行的指令，程序地址寄存器 P 指向下一条将取出的指令。PL/0 的每一个过程可能包含着局部变量，因为这些过程可以被递归地调用，故在实际调用前，无法为这些局部变量分配存贮地址。各个过程的数据区在存贮栈 S 内顺序叠起来，每个过程，除用户定义的变量外，还应当有它自己的内部信息，即调用它的程序
14、段地址（返回地址）和它的调用者的数据区地址。在过程终止后，为了恢复原来程序的执行，这两个地址都是必须的。我们可将这两个内部值作为位于该过程数据区的内部式隐式局部变量。我们把它们分别称为返回地址（return address）RA 和动态链（dynamic link）DL。动态链的头，即最新分配的数据区的地址，保存在某地址寄存器 B 内。因为实际的存贮分配是运行（解释）时进行的，编译程序不能为其生成的代码提供绝对地址，它只能确定变量在数据区内的位置，因此它只能提供相对地址。为了正确地存取数据，解释程序需将某个修正量加到相应的数据区的基地址上去。若变量是局部于当前正在解释的过程，则此基地址由寄存器
15、 B 给出，否则，就需要顺着数据区的链逐层上去找。然而遗憾的是，编译程序只能知道存取路线的表的长度，同时动态链保存的则是过程活动的动态历史，而这两条存取路线并不总是一样。例如，假定有过程 A，B，C，其中过程 C 的说明局部于过程 B，而过程 B 的说明局部于过程 A，程序运行时，过程 A 调用过程 B，过程 B 则调用过程 C，过程 C 又调用过程 B，如下图所示：表 2-2 if-while 语句目标代码生成模式A ABBBCAC B图 2-1 过程说明嵌套图 过程调用图 表示 A 调用 B7从静态的角度我们可以说 A 是在第一层说明的，B 是在第二层说明的，C 则是在第三层说明的。若在
16、B 中存取 A 中说明的变量 a，由于编译程序只知道 A，B 间的静态层差为 1，如果这时沿着动态链下降一步，将导致对 C 的局部变量的操作。为防止这种情况发生，有必要设置第二条链，它以编译程序能明了的方式将各个数据区连接起来。我们称之为静态链（static link）SL。这样，编译程序所生成的代码地址是一对数，指示着静态层差和数据区的相对修正量。下面我们给出的是过程 A、B 和 C 运行时刻的数据区图示：DL RA SLA 的变量B 的变量C 的变量B 的变量有了以上认识，我们就不难明白 PL/0 源程序的目标代码是如何被解释执行的。以语句 X ：= Y op Z 为例， （该语句的目标代
17、码序列我们己在 2.4 节给出） ，PL/0 处理机解释该指令的“步骤”如下：step 1,S+T Sbase(level_diff_Y) + addr_Y;/ 将变量 Y 的值放在栈顶step 2,S+T Sbase(level_diff_Z) + addr_Z;/ 将变量 Z 的值放在栈顶，此栈顶元为变量 Y 的值step 3,T-;/ 栈顶指针指向次栈顶元，即存放结果的单元step 4,ST ST op ST + 1;/ 变量 Y 和变量 Z 之间进行“op”操作step 5,Sbase(level_diff_X) + addr_X ST;/ 将栈顶的值存放到变量 X 所在的单元step
18、 6,T-;8/ 栈顶指针减一相关过程：base()，interpret()。其中 base()的功能是根据层次差并从当前数据区沿着静态链查找，以便获取变量实际所在的数据区其地址；interpret()则完成各种指令的执行工作。1.6 错误诊断处理一个编译程序，在多数情况下，所接受的源程序正文都是有错误的。发现错误，并给出合适的诊断信息且继续编译下去从而发现更多的错误，对于编译程序而言是完全必要的。一个好的编译器，其特征在于： 任何输入序列都不会引起编译程序的崩溃。 一切按语言定义为非法的结构，都能被发现和标志出来。 经常出现的错误，程序员的粗心或误解造成的错误能被正确地诊断出来，而不致引起进
19、一步的株连错误。根据这样的要求，我们为 PL/0 编译程序制定了以下两条规则：（1） 关键字规则；程序员在写程序时，可能会因为粗心而漏掉语句的分隔符“;”，但他决不会漏掉算术运算符“+” ，对于编译程序而言，不论是分隔符号类的符号还是关键字符号类的符号，它们都具有同等重要的地位。基于这样的特点，我们可以采用不易出错的部分来作为恢复正常步调的标记。每当遇到错误时，分析程序跳过后面的某些部分，直到出现所期望的符号为止。对于程序设计语言来说，这种符号（称为同步符号）的最好选择就是关键字。PL/0 的每一种构造语句以 begin、if 或 while 开头；每种说明则以var、const 或 proc
20、edure 开头。每遇到错误时，编译程序便可跳过一段程序，直到遇到这类符号为止，而继续编译。（2） 镇定规则；自顶向下分析的特点在于目标对分成一些子目标，分程序则用别的分析程序来处理其子目标。镇定规则是说一个分析程序发现了错误，它不应该消极地停止前进，仅仅向调用它的程序报告发生的错误；而应该自己继续向前扫描，找到似乎可以使正常的分析得以恢复的地方。这一规则在程序设计上的含义就是任一分析程序除了正常终止外，没有其它出口。对于镇定规则，一个可能的严格解释为：一旦发现非法结构，即跳过后面的输入正文，直到下一个可以正确地跟随当前正在分析的句子结构的符号为止。这意味着每一分析程序需知道其当前活动结点的后
21、继符号集合。为了找到这个后继符号集合，我们给对应语法图的每一个分析过程提供一个显式参数，set，它指明可能的后继集合。不过在任何条件下，如果都跳到输入正文中下一个这种后继符号出现的地方，未免太短视了。程序中所含的错误可能只不过是漏掉了一个符号（如“;” ）而己，由此而忽略去源程序的符号集合中，再凑加一些关键字，它们用于标记那些不容忽略的结构的开始符，因此，作为参数传递给分析过程的那些符号就不仅是后继符号了。对于这样的符号集，我们采用这样的计算策略：先用一些明显的关键符号给它赋初值，然后随着分析子目标的层次深入，逐步补充别的合法符号。为了灵活起见，我们引入 test 子程序来实现所说的验证工作。
22、test 过程有三个参数：（1） 可允许的下一个符号集合 S1，如果当前符号不在此集合中，当即得到一个错误号；（2） 另加的停止符号集合 S2，有些符号的出现，虽然无疑是错的，但它们绝9对不应被忽略而跳过；（3） 整数 n，表示有关错误的诊断号：void test(symset s1, symset s2, int n)symset s;if (! inset(sym, s1)error(n);s = uniteset(s1, s2);while(! inset(sym, s)getsym();destroyset(s);我们前面提出的方案，具有这样的性质：试图通过略过输入正文中的一个或多个符
23、号来恢复分析的正常步调。在错误仅为漏掉一个符号所引起的情况下，它都是不适宜的策略。经验表明，这类错误基本上限于那种仅有语法作用，而不代表动作的符号（如“;” ） 。把一些关键字加到后继符号集合中去可使分析程序不再盲目地跳过后面的符号，好象漏掉的已经补上去一样。下面程序段就是 PL/0 分析程序中复合语句分析的一小段。它的效果等于关键字前插入漏掉的分号。statbegsys 集合是“语句”这个结构的首符号集。if (sym = SYM_BEGIN) getsym();set1 = createset(SYM_SEMICOLON, SYM_END, SYM_NULL);set = uniteset
24、(set1, fsys);statement(set);while (sym = SYM_SEMICOLON | inset(sym, statbegsys)if (sym = SYM_SEMICOLON)getsym();elseerror(10);statement(set); / whiledestroyset(set1);destroyset(set);if (sym = SYM_END)getsym();else10error(17); / ; or end expected.相关过程：test(), inset(), createset, uniteset(), error().1
25、.7 符号表管理为了组成一条指令，编译程序必须知道其操作码及其参数（数或地址） 。这些值是由编译程序本身联系到相应标识符上去的。这种联系是在处理常数、变量和过程说明完成的。为此，标识符表应包含每一标识符所联系的属性；如果标识符被说明为常数，其属性值为常数值；如果标识符被说明成变量，其属性就是由层次和修正量（偏移量）组成的地址；如果标识符被说明为过程，其属性就是过程的入口地址及层次。常数的值由程序正文提供，编译的任务就是确定存放该值的地址。我们选择顺序分配变量和代码的方法；每遇到一个变量说明，就将数据单元的下标加一（PL/0 机中，每个变量占一个存贮单元） 。开始编译一个过程时，要对数据单元的下
26、标 dx 赋初值，表示新开辟一个数据区。dx 的初值为 3，因为每个数据区包含三个内部变量 RA，DL 和SL。相关过程：enter()，该函数用于向符号表添加新的符号，并确定标识符的有关属性。1.8 其他本教程所提供的 PL/0 编译程序包括词法分析、语法分析、错误诊断、代码生成、解释执行等几部分。关于这几个程序，我们做如下说明：（1） 每一个分程序（过程）被编译结束后，将列出该部分 PL/0 程序代码。这个工作由过程 listcode()完成。注意，每个分程序（过程）的第一条指令未被列出。该指令是跳转指令。其作用是绕过该分程序的说明部分所产生的代码（含过程说明所产生的代码） 。（2） 解释
27、程序作为 PL/0 编译程序的一个过程，若被编译的源代码没有错误，则编译结束时调用这个过程。（3） PL/0 语言没有输出语句。解释程序按执行次序，每遇到对变量的赋值就输出其值。11第二部分 PL/0 语言编译器源程序2.1 PL/0 语言源程序下面我们给出一个 PL/0 语言写的二数相乘、除并求最大公约数的算法：const m = 7, n = 85;var x, y, z, q, r;procedure multiply;var a, b;begina := x; b := y; z := 0;while b 0 dobeginif odd b then z := z + a;a := 2
28、 * a; b := b / 2;endend;procedure divide;var w;beginr := x; q := 0; w := y;while w y dobeginq := 2 * q; w := w / 2;if w g dobeginif f 12 JPC 0 29 - if b 0odd(b)z := z + aa := 2 * ab := b / 2ifwhileb := y132. PL/0 语言编译器源程序PL/0 语言编译器源程序包括如下 C 程序文件，PL0.h、PL0.c、set.h 和set.c。 /* PL0.h */#include #define
29、NRW 11 / number of reserved words#define TXMAX 500 / length of identifier table#define MAXNUMLEN 14 / maximum number of digits in numbers#define NSYM 10 / maximum number of symbols in array ssym and csym#define MAXIDLEN 10 / length of identifiers#define MAXADDRESS 32767 / maximum address#define MAXL
30、EVEL 32 / maximum depth of nesting block#define CXMAX 500 / size of code array#define MAXSYM 30 / maximum number of symbols #define STACKSIZE 1000 / maximum storageenum symtypeSYM_NULL,SYM_IDENTIFIER,SYM_NUMBER,SYM_PLUS,SYM_MINUS,SYM_TIMES,SYM_SLASH,SYM_ODD,SYM_EQU,SYM_NEQ,SYM_LES,SYM_LEQ,SYM_GTR,SY
31、M_GEQ,SYM_LPAREN,SYM_RPAREN,SYM_COMMA,SYM_SEMICOLON,SYM_PERIOD,SYM_BECOMES,SYM_BEGIN,SYM_END,SYM_IF,SYM_THEN,14SYM_WHILE,SYM_DO,SYM_CALL,SYM_CONST,SYM_VAR,SYM_PROCEDURE;enum idtypeID_CONSTANT, ID_VARIABLE, ID_PROCEDURE;enum opcodeLIT, OPR, LOD, STO, CAL, INT, JMP, JPC;enum oprcodeOPR_RET, OPR_NEG, O
32、PR_ADD, OPR_MIN,OPR_MUL, OPR_DIV, OPR_ODD, OPR_EQU,OPR_NEQ, OPR_LES, OPR_LEQ, OPR_GTR,OPR_GEQ;typedef structint f; / function codeint l; / levelint a; / displacement address instruction;/char* err_msg =/* 0 */ “,/* 1 */ “Found := when expecting =.“,/* 2 */ “There must be a number to follow =.“,/* 3
33、*/ “There must be an = to follow the identifier.“,/* 4 */ “There must be an identifier to follow const, var, or procedure.“,/* 5 */ “Missing , or ;.“,/* 6 */ “Incorrect procedure name.“,/* 7 */ “Statement expected.“,/* 8 */ “Follow the statement is an incorrect symbol.“,15/* 9 */ “. expected.“,/* 10
34、 */ “; expected.“,/* 11 */ “Undeclared identifier.“,/* 12 */ “Illegal assignment.“,/* 13 */ “:= expected.“,/* 14 */ “There must be an identifier to follow the call.“,/* 15 */ “A constant or variable can not be called.“,/* 16 */ “then expected.“,/* 17 */ “; or end expected.“,/* 18 */ “do expected.“,/
35、* 19 */ “Incorrect symbol.“,/* 20 */ “Relative operators expected.“,/* 21 */ “Procedure identifier can not be in an expression.“,/* 22 */ “Missing ).“,/* 23 */ “The symbol can not be followed by a factor.“,/* 24 */ “The symbol can not be as the beginning of an expression.“,/* 25 */ “The number is to
36、o great.“,/* 26 */ “,/* 27 */ “,/* 28 */ “,/* 29 */ “,/* 30 */ “,/* 31 */ “,/* 32 */ “There are too many levels.“;/char ch; / last character readint sym; / last symbol readchar idMAXIDLEN + 1; / last identifier readint num; / last number readint cc; / character countint ll; / line lengthint kk;int e
37、rr;int cx; / index of current instruction to be generated.int level = 0;int tx = 0;char line80;instruction codeCXMAX;char* wordNRW + 1 =“, /* place holder */16“begin“, “call“, “const“, “do“, “end“,“if“,“odd“, “procedure“, “then“, “var“, “while“;int wsymNRW + 1 =SYM_NULL, SYM_BEGIN, SYM_CALL, SYM_CON
38、ST, SYM_DO, SYM_END,SYM_IF, SYM_ODD, SYM_PROCEDURE, SYM_THEN, SYM_VAR, SYM_WHILE;int ssymNSYM + 1 =SYM_NULL, SYM_PLUS, SYM_MINUS, SYM_TIMES, SYM_SLASH,SYM_LPAREN, SYM_RPAREN, SYM_EQU, SYM_COMMA, SYM_PERIOD, SYM_SEMICOLON;char csymNSYM + 1 = , +, -, *, /, (, ), =, , ., ;#define MAXINS 8char* mnemonic
39、MAXINS =“LIT“, “OPR“, “LOD“, “STO“, “CAL“, “INT“, “JMP“, “JPC“;typedef structchar nameMAXIDLEN + 1;int kind;int value; comtab;comtab tableTXMAX;typedef structchar nameMAXIDLEN + 1;17int kind;short level;short address; mask;FILE* infile;/ EOF PL0.h/* SET.h */#ifndef SET_H#define SET_Htypedef struct s
40、nodeint elem;struct snode* next; snode, *symset;symset phi, declbegsys, statbegsys, facbegsys, relset;symset createset(int data, ./* SYM_NULL */);void destroyset(symset s);symset uniteset(symset s1, symset s2);int inset(int elem, symset s);#endif/ EOF set.h/* SET.c */#include #include #include #incl
41、ude “set.h“symset uniteset(symset s1, symset s2)symset s;snode* p;s = p = (snode*) malloc(sizeof(snode);while (s1 18p = p-next;if (s1-elem elem)p-elem = s1-elem;s1 = s1-next;elsep-elem = s2-elem;s2 = s2-next;while (s1)p-next = (snode*) malloc(sizeof(snode);p = p-next;p-elem = s1-elem;s1 = s1-next;wh
42、ile (s2)p-next = (snode*) malloc(sizeof(snode);p = p-next;p-elem = s2-elem;s2 = s2-next;p-next = NULL;return s; / unitesetvoid setinsert(symset s, int elem)snode* p = s;snode* q;while (p-next q = (snode*) malloc(sizeof(snode);19q-elem = elem;q-next = p-next;p-next = q; / setinsertsymset createset(in
43、t elem, ./* SYM_NULL */)va_list list;symset s;s = (snode*) malloc(sizeof(snode);s-next = NULL;va_start(list, elem);while (elem)setinsert(s, elem);elem = va_arg(list, int);va_end(list);return s; / createsetvoid destroyset(symset s)snode* p;while (s)p = s;s = s-next;free(p); / destroysetint inset(int
44、elem, symset s)s = s-next;while (s if (s elsereturn 0; / inset20/ EOF set.c/* PL0.c */ pl0 compiler source code#include #include #include #include #include “set.h“#include “pl0.h“/ print error message.void error(n)int i;printf(“ “);for (i = 1; i MAXNUMLEN)error(25); / The number is too great.else if
45、 (ch = :)22getch();if (ch = =)sym = SYM_BECOMES; / :=getch();elsesym = SYM_NULL; / illegal?else if (ch = )getch();if (ch = =)sym = SYM_GEQ; / =getch();elsesym = SYM_GTR; / else if (ch = )sym = SYM_NEQ; / MAXADDRESS)error(25); / The number is too great.num = 0;tabletx.value = num;break;case ID_VARIAB
46、LE:mk = (mask*) mk-level = level;mk-address = dx+;break;case ID_PROCEDURE:mk = (mask*) mk-level = level;break; / switch / enter/ locates identifier in symbol table.int position(char* id)int i;strcpy(table0.name, id);i = tx + 1;while (strcmp(table-i.name, id) != 0);return i; / position/void constdeclaration()if (sym = SYM_IDENTIFIER)getsym();if (sym = SYM_EQU | sym = SYM_BECOMES)if (sym = SYM_BECOMES)25error(1); / Found := when expecting =.getsym();if (sym = SYM_NUMBER)enter(ID_CONSTANT);getsym();elseerror(2); / Th
