PL/0编译程序（c语言版本）

编译原理（张素琴版）的PL/0编译程序的C语言代码，在目录中附有测试文本文件test.txt，该程序可用于编译原理的学习

/*
*录入：codecjw
*本程序有两文件：pl.c和pl.h
*pl/0语法请参考清大编译原理（张素琴版），压缩包中test.txt文件符合pl/0语法
*使用方法：
*运行后输入pl/0源程序文件名
*回答是否输出虚拟机代码
*回答是否输出名字表
*fa.tmp输出虚拟机代码
*fa1.tmp输出源文件及其各行对应的首地址
*fa2.tmp输出结果
*fas.tmp输出名字表
*特别说明：虚拟机代码的inte与int同效
*/
#include
#include“pl.h“
#include
#define stacksize 500

int main（）
{
	bool nxtlev[symnum];
	printf（“input pl/0 file?“）;
	scanf（“%s“fname）;
	fin=fopen（fname“r“）;
	if（fin）
	{
		printf（“list object code?（Y/N）“）;
		scanf（“%s“fname）;
		listswitch=（fname[0]==‘y‘||fname[0]==‘Y‘）;
		printf（“list symbol table?（Y/N）“）;
		scanf（“%s“fname）;
		tableswitch=（fname[0]==‘y‘||fname[0]==‘Y‘）;
		fal=fopen（“fal.tmp““w“）;
		fprintf（fal“input pl/0 file?“）;
		fprintf（fal“%s\n“fname）;
		init（）;
		err=0;
		cc=cx=ll=0;
		ch=‘ ‘;
		if（-1!=getsym（））
		{
			fa=fopen（“fa.tmp““w“）;
			fas=fopen（“fas.tmp““w“）;
			addset（nxtlevdeclbegsysstatbegsyssymnum）;
			nxtlev[period]=true;
			if（-1==block（00nxtlev））
			{
				fclose（fa）;
				fclose（fal）;
				fclose（fas）;
				fclose（fin）;
				printf（“\n“）;
				return 0;
			}
			fclose（fa）;
			fclose（fal）;
			fclose（fas）;
			if（sym!=period）
			{
				error（9）;
			}
			if（err==0）
			{
				fa2=fopen（“fa2.tmp““w“）;
				interpret（）;
				fclose（fa2）;
			}
			else
			{
				printf（“errors in pl/0 program“）;
			}
			fclose（fin）;
		}
		else
		{
			printf（“can‘t open file!\n“）;
		}
		printf（“\n“）;
		return 0;
	}

}

void init（）
{
	int i;
	for（i=0;i<255;i++）
	{
		ssym[i]=nul;
	}
	ssym[‘+‘]=plus;
	ssym[‘-‘]=minus;
	ssym[‘*‘]=times;
	ssym[‘/‘]=slash;
	ssym[‘（‘]=lparen;
	ssym[‘）‘]=rparen;
	ssym[‘=‘]=eql;
	ssym[‘‘]=comma;
	ssym[‘.‘]=period;
	ssym[‘#‘]=neq;
	ssym[‘;‘]=semicolon;

	strcpy（&（word[0][0]）“begin“）;
	strcpy（&（word[1][0]）“call“）;
	strcpy（&（word[2][0]）“const“）;
	strcpy（&（word[3][0]）“do“）;
	strcpy（&（word[4][0]）“end“）;
	strcpy（&（word[5][0]）“if“）;
	strcpy（&（word[6][0]）“odd“）;
	strcpy（&（word[7][0]）“procedure“）;
	strcpy（&（word[8][0]）“read“）;
	strcpy（&（word[9][0]）“then“）;
	strcpy（&（word[10][0]）“var“）;
	strcpy（&（word[11][0]）“while“）;
	strcpy（&（word[12][0]）“write“）;

	wsym[0]=beginsym;
	wsym[1]=callsym;
	wsym[2]=constsym;
	wsym[3]=dosym;
	wsym[4]=endsym;
	wsym[5]=ifsym;
	wsym[6]=oddsym;
	wsym[7]=procsym;
	wsym[8]=readsym;
	wsym[9]=thensym;
	wsym[10]=varsym;
	wsym[11]=whilesym;
	wsym[12]=writesym;

	strcpy（&（mnemonic[lit][0]）“lit“）;
	strcpy（&（mnemonic[opr][0]）“opr“）;
	strcpy（&（mnemonic[lod][0]）“lod“）;
	strcpy（&（mnemonic[sto][0]）“sto“）;
	strcpy（&（mnemonic[cal][0]）“cal“）;
	strcpy（&（mnemonic[inte][0]）“inte“）;
	strcpy（&（mnemonic[jmp][0]）“jmp“）;
	strcpy（&（mnemonic[jpc][0]）“jpc“）;

	for（i=0;i	{
		declbegsys[i]=false;
		statbegsys[i]=false;
		facbegsys[i]=false;
	}
	declbegsys[constsym]=true;
	declbegsys[varsym]=true;
	declbegsys[procsym]=true;

	statbegsys[beginsym]=true;
	statbegsys[callsym]=true;
	statbegsys[ifsym]=true;
	statbeg

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     目录          0  2009-03-23 00:10  pl

     文件      19618  2008-06-03 16:47  pl\pl.c

     文件       4291  2008-03-25 16:59  pl\pl.dsp

     文件        529  2008-03-25 15:31  pl\pl.dsw

     文件       3642  2008-03-25 16:28  pl\pl.h

     文件      50176  2009-03-23 00:09  pl\pl.ncb

     文件      57856  2009-03-23 00:09  pl\pl.opt

     文件       1333  2009-03-23 00:09  pl\pl.plg

     文件         59  2008-06-01 15:01  pl\test.txt

----------- ---------  ---------- -----  ----

               137504                    9