编译原理课程设计-PL/0编译器的扩充（C语言完整版）

看到网上有很多pl0的源码，但是很多都是不完整的，这里上传一份完整版，按要求扩展了几个功能，希望对大家的理解有所帮助。

注：转载请声明转自：http://blog.csdn.net/ahoob/article/details/44519687

课程设计要求：
1、基本内容（成绩范围：“中”、“及格”或“不及格”）
（1）扩充赋值运算：*= 和 /=
(2)扩充语句（Pascal的FOR语句）:
①FOR <变量>:=<表达式> TO <表达式> DO <语句>
②FOR <变量>:=<表达式> DOWNTO <表达式> DO <语句>
其中，语句①的循环变量的步长为1，
语句②的循环变量的步长为-1。

2、选做内容（成绩评定范围扩大到：“优”和“良”，完成2项以上才可为优，若两项以上的人少，则降低为两项才可以为优）
（1）增加类型：① 字符类型； ② 实数类型。
(2) 增加 注释; 注释由/和/包含；
（3）扩充函数：① 有返回值和返回语句；② 有参数函数。
（4）增加一维数组类型（可增加指令）。
（5）增加运算：++ 和 –。
（6）其他典型语言设施。

3、本人在课程设计中已实现的功能
（1）扩充赋值运算：*= 和 /=
(2)扩充语句（Pascal的FOR语句）:
①FOR <变量>:=<表达式> TO <表达式> DO <语句>
②FOR <变量>:=<表达式> DOWNTO <表达式> DO <语句>
其中，语句①的循环变量的步长为1，
语句②的循环变量的步长为-1。
（3）增加类型：① 字符类型；
(4) 增加 注释; 注释由/和/包含；
（5）增加运算：++ 和 - -。

扩展了的pl0编译器，直接上代码
pl0.h

                         /*PL/0 编译系统C版本头文件 pl0.h*/

# define norw 19                 /*关键字个数*/ //关键字个数数由初始值13增加至19
# define txmax 100               /*名字表容量*/
# define nmax  14                /*number的最大位数*/
# define al 10                   /*符号的最大长度*/
# define amax 2047               /*地址上界*/
# define levmax 3                /*最大允许过程嵌套声明层数[0，lexmax]*/
# define cxmax 200               /*最多的虚拟机代码数*/
/*符号*/
//增加单词:保留字 ELSE，FOR，TO，DOWNTO，RETURN
//运算符 *=，/=，++，--
enum symbol{
     nul,    ident,     number,     plus,     minus,
     times,   slash,   oddsym,   eql,     neq,
lss,     leq,      gtr,     geq,     lparen,
rparen,  comma,   semicolon,period,  becomes,
beginsym, endsym, ifsym,    thensym,  whilesym,
writesym, readsym,  dosym,  callsym,  constsym,
varsym,  procsym, elsesym, forsym, tosym, downtosym, 
returnsym , timeseql, slasheql, plusplus, minusminus,
charsym,
};
#define symnum 42    //符号数初始值由32增加至42
/*-------------*/
enum object{
   constant,
   variable,
   procedur,
   charcon,//字符型
   realcon,//实型
};
/*--------------*/
enum fct{
lit, opr,  lod,  sto,  cal,  inte,  jmp,  jpc,
};
#define fctnum 8
/*--------------*/
struct instruction
{
  enum fct f;
  int l;
  int a;
  //double a;//实型字符型修改
};

FILE * fas;
FILE * fa;
FILE * fa1;
FILE * fa2;

bool tableswitch;
bool listswitch;
char ch;
enum symbol sym;
char id[al+1];
int  num;
int cc,ll;
int cx;
char line[81];
char a[al+1];
struct instruction code[cxmax];
char word[norw][al];
enum symbol wsym[norw];
enum symbol ssym[256];
char mnemonic[fctnum][5];
bool declbegsys[symnum];
bool statbegsys[symnum];
bool facbegsys[symnum];
/*------------------------------*/
struct tablestruct
{
   char name[al];                            /*名字*/
   enum object kind;                         /*类型：const，var，array or procedure*/
   int val;                                  /*数值，仅const使用*/
   int level;                                /*所处层，仅const不使用*/
   int adr;                                  /*地址，仅const不使用*/
   int size;                                 /*需要分配的数据区空间，仅procedure使用*/
};
struct tablestruct table[txmax];             /*名字表*/
FILE * fin;
FILE* fout;
char fname[al];
int err;                                       /*错误计数器*/
/*当函数中会发生fatal error时，返回－1告知调用它的函数，最终退出程序*/
#define getsymdo                              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==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 -1
#define chardeclarationdo(a,b,c)              if(-1==chardeclaration(a,b,c))return -1
void error(int n);
int getsym();
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 interpret();
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 constdeclaration(int* ptx,int lev, int* pdx);
int chardeclaration(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);

pl0.cpp
有点长。。。耐心看

//A.2     C      版   本

/*
*使用方法:
*运行后输入PL/0 源程序文件名
*回答是否输出虚拟机代码
*回答是否输出名字表
*fa.tmp 输出虚拟机代码
*fa1.tmp  输出源文件及其各行对应的首地址
*fa2.tmp  输出结果 
*fas.tmp  输出名字表
*     @author:zzh
*/
#include<stdio.h>
#include"pl0.h"
#include"string.h"
/*解释执行时使用的栈*/
#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');
        fa1=fopen("fa1.tmp","w");
        fprintf(fa1,"Iput pl/0 file ?");
        fprintf(fa1,"%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(nxtlev,declbegsys,statbegsys,symnum);
            nxtlev[period]=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", "w");
                interpret();
                fclose(fa2);
            }
            else
            {
                printf("Errors in pl/0 program");
            }
        }
        fclose(fin);
    }
    else
    {
        printf("Can't open file! \n");
    }
    printf("\n");
    getchar();
    getchar();
    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]),"char");/*增加保留字char*/
    strcpy(&(word[3][0]),"const");
    strcpy(&(word[4][0]),"do");
    strcpy(&(word[5][0]),"downto");/*增加保留字downto*/
    strcpy(&(word[6][0]),"else");/*增加保留字else*/
    strcpy(&(word[7][0]),"end");
    strcpy(&(word[8][0]),"for");/**增加保留字for*/
    strcpy(&(word[9][0]),"if");
    strcpy(&(word[10][0]),"odd");
    strcpy(&(word[11][0]),"procedure");
    strcpy(&(word[12][0]),"read");
    strcpy(&(word[13][0]),"return");/*增加保留字return*/
    strcpy(&(word[14][0]),"then");
    strcpy(&(word[15][0]),"to");/*增加保留字to*/
    strcpy(&(word[16][0]),"var");
    strcpy(&(word[17][0]),"while");
    strcpy(&(word[18][0]),"write");
    /*设置保留字符号*/
    wsym[0]=beginsym;
    wsym[1]=callsym;
    wsym[2]=charsym;/*增加保留字符号charsym*/
    wsym[3]=constsym;
    wsym[4]=dosym;
    wsym[5]=downtosym;/*增加保留字符号downtosym*/
    wsym[6]=elsesym;/*增加保留字符号elsesym*/
    wsym[7]=endsym;
    wsym[8]=forsym;/*增加保留字符号forsym*/
    wsym[9]=ifsym;
    wsym[10]=oddsym;
    wsym[11]=procsym;
    wsym[12]=readsym;
    wsym[13]=returnsym;/*增加保留字符号returnsym*/
    wsym[14]=thensym;
    wsym[15]=tosym;/*增加保留字符号tosym*/ 
    wsym[16]=varsym;
    wsym[17]=whilesym;
    wsym[18]=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]),"int");
    strcpy<