📄 unit1.cpp
字号:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
/*** PL0 COMPILER WITH CODE GENERATION ***/
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
const AL = 10; /* 标识符长度*/
const NORW = 18; /* 保留字个数 */
const TXMAX = 100; /* 标识符表长度 */
const NMAX = 14; /* 数中数字的最大个数 */
const AMAX =2047; /* 最大地址 */
const LEVMAX= 3; /* 分程序嵌套的最大深度 */
const CXMAX = 200; /* 目标代码数组的大小 */
typedef enum { 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, PROGSYM,ELSESYM,
FORSYM,TOSYM,DOWNTOSYM,DOUBLEPLUS, DOUBLEMINUS,
PLUSBECOMES, MINUSBECOMES
} SYMBOL;
char *SYMOUT[] = {"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", "PROGSYM","ELSESYM",
"FORSYM","TOSYM","DOWNTOSYM","DOUBLEPLUS", "DOUBLEMINUS",
"PLUSBECOMES", "MINUSBECOMES"};
typedef int *SYMSET; // SET OF SYMBOL;
typedef char ALFA[11];
typedef enum { CONSTANT, VARIABLE, PROCEDUR} OBJECTS ;
typedef enum { LIT, OPR, LOD, STO, CAL, INI, JMP, JPC } FCT;
typedef struct {
FCT F; /*FUNCTION CODE*/
int L; /*0..LEVMAX LEVEL*/
int A; /*0..AMAX DISPLACEMENT ADDR*/
} INSTRUCTION;
/* LIT O A -- 取长量a */
/* OPR 0 A -- 执行运算a */
/* LOD L A -- 取变量(相对地址为;层差为1) */
/* STO L A -- 存变量 */
/* CAL L A -- 调用过程(入口地址为a;层差为1) */
/* INI 0 A -- 运行栈S的增加a */
/* JMP 0 A -- 转移到指令地址a */
/* JPC 0 A -- 条件转移到指令地址a处 */
char CH; //当前字符
SYMBOL SYM; //当前符号
ALFA ID; //当前标识符
int NUM; //当前数
int CC; //字符计数
int LL; //行长
int CX; //目标代码下标
char LINE[81];
INSTRUCTION CODE[CXMAX];//目标代码区
ALFA KWORD[NORW+1];//保留字表
SYMBOL WSYM[NORW+1];// 保留字机内表示表
SYMBOL SSYM['^'+1];//运算符,界限符机内表示表
ALFA MNEMONIC[9];
SYMSET DECLBEGSYS, STATBEGSYS, FACBEGSYS;
struct {
ALFA NAME;
OBJECTS KIND;
union {
int VAL; /*CONSTANT*/
struct { int LEVEL,ADR,SIZE; } vp; /*VARIABLE,PROCEDUR:*/
};
} TABLE[TXMAX];
FILE *FIN,*FOUT;
int ERR;
void EXPRESSION(SYMSET FSYS, int LEV, int &TX);
void TERM(SYMSET FSYS, int LEV, int &TX);
//---------------------------------------------------------------------------
int SymIn(SYMBOL SYM, SYMSET S1) {
return S1[SYM];
}
//---------------------------------------------------------------------------
SYMSET SymSetUnion(SYMSET S1, SYMSET S2) {
SYMSET S=(SYMSET)malloc(sizeof(int)*33);
for (int i=0; i<33; i++)
if (S1[i] || S2[i]) S[i]=1;
else S[i]=0;
return S;
}
//---------------------------------------------------------------------------
SYMSET SymSetAdd(SYMBOL SY, SYMSET S) {
SYMSET S1;
S1=(SYMSET)malloc(sizeof(int)*60);
for (int i=0; i<60; i++) S1[i]=S[i];
S1[SY]=1;
return S1;
}
//---------------------------------------------------------------------------
SYMSET SymSetNew(SYMBOL a) {
SYMSET S; int i,k;
S=(SYMSET)malloc(sizeof(int)*60);
for (i=0; i<60; i++) S[i]=0;
S[a]=1;
return S;
}
//---------------------------------------------------------------------------
SYMSET SymSetNew(SYMBOL a, SYMBOL b) {
SYMSET S; int i,k;
S=(SYMSET)malloc(sizeof(int)*60);
for (i=0; i<60; i++) S[i]=0;
S[a]=1; S[b]=1;
return S;
}
//---------------------------------------------------------------------------
SYMSET SymSetNew(SYMBOL a, SYMBOL b, SYMBOL c) {
SYMSET S; int i,k;
S=(SYMSET)malloc(sizeof(int)*60);
for (i=0; i<60; i++) S[i]=0;
S[a]=1; S[b]=1; S[c]=1;
return S;
}
//---------------------------------------------------------------------------
SYMSET SymSetNew(SYMBOL a, SYMBOL b, SYMBOL c, SYMBOL d) {
SYMSET S; int i,k;
S=(SYMSET)malloc(sizeof(int)*60);
for (i=0; i<60; i++) S[i]=0;
S[a]=1; S[b]=1; S[c]=1; S[d]=1;
return S;
}
//---------------------------------------------------------------------------
SYMSET SymSetNew(SYMBOL a, SYMBOL b, SYMBOL c, SYMBOL d,SYMBOL e) {
SYMSET S; int i,k;
S=(SYMSET)malloc(sizeof(int)*33);
for (i=0; i<33; i++) S[i]=0;
S[a]=1; S[b]=1; S[c]=1; S[d]=1; S[e]=1;
return S;
}
//---------------------------------------------------------------------------
SYMSET SymSetNew(SYMBOL a, SYMBOL b, SYMBOL c, SYMBOL d,SYMBOL e, SYMBOL f) {
SYMSET S; int i,k;
S=(SYMSET)malloc(sizeof(int)*60);
for (i=0; i<60; i++) S[i]=0;
S[a]=1; S[b]=1; S[c]=1; S[d]=1; S[e]=1; S[f]=1;
return S;
}
//---------------------------------------------------------------------------
SYMSET SymSetNULL() {
SYMSET S; int i,n,k;
S=(SYMSET)malloc(sizeof(int)*60);
for (i=0; i<60; i++) S[i]=0;
return S;
}
//---------------------------------------------------------------------------
void Error(int n) {
String s = "***"+AnsiString::StringOfChar(' ', CC-1)+"^";
Form1->printls(s.c_str(),n); fprintf(FOUT,"%s%c\n", s.c_str(), n);
ERR++;
} /*Error*/
//---------------------------------------------------------------------------
void GetCh() {
if (CC==LL) {
if (feof(FIN)) {
Form1->printfs("PROGRAM INCOMPLETE");
fprintf(FOUT,"PROGRAM INCOMPLETE\n");
fclose(FOUT);
exit(0);
}
LL=0; CC=0;
CH=' ';
while (!feof(FIN) && CH!=10)
{ CH=fgetc(FIN); LINE[LL++]=CH; }
LINE[LL-1]=' '; LINE[LL]=0;
String s=IntToStr(CX);
while(s.Length()<3) s=" "+s;
s=s+" "+LINE;
Form1->printfs(s.c_str());
fprintf(FOUT,"%s\n",s);
}
CH=LINE[CC++];
} /*GetCh()*/
//---------------------------------------------------------------------------
void GetSym() {
int i,J,K; ALFA A;
while (CH<=' ') GetCh();
if (CH>='A' && CH<='Z') { /*ID OR RESERVED WORD*/
K=0;
do {
if (K<AL) A[K++]=CH;
GetCh();
}while((CH>='A' && CH<='Z')||(CH>='0' && CH<='9'));
A[K]='\0';
strcpy(ID,A); i=1; J=NORW;
do {
K=(i+J) / 2;
if (strcmp(ID,KWORD[K])<=0) J=K-1;
if (strcmp(ID,KWORD[K])>=0) i=K+1;
}while(i<=J);
if (i-1 > J) SYM=WSYM[K];
else SYM=IDENT;
}
else
if (CH>='0' && CH<='9') { /*NUMBER*/
K=0; NUM=0; SYM=NUMBER;
do {
NUM=10*NUM+(CH-'0');
K++; GetCh();
}while(CH>='0' && CH<='9');
if (K>NMAX) Error(30);
}
else
if (CH==':') {
GetCh();
if (CH=='=') { SYM=BECOMES; GetCh(); }
else SYM=NUL;
}
else /* THE FOLLOWING TWO CHECK WERE ADDED
BECAUSE ASCII DOES NOT HAVE A SINGLE CHARACTER FOR <= OR >= */
if (CH=='<') {
GetCh();
if (CH=='=') { SYM=LEQ; GetCh(); }
else
if(CH=='>'){SYM=NEQ;GetCh();}
else SYM=LSS;
}
else
if (CH=='>') {
GetCh();
if (CH=='=') { SYM=GEQ; GetCh(); }
else SYM=GTR;
}
else
if(CH=='+'){
GetCh();
if(CH=='='){SYM=PLUSBECOMES;GetCh();}
else
if(CH=='+'){SYM=DOUBLEPLUS;GetCh();}
else SYM=PLUS;
}
else
if(CH=='-'){
GetCh();
if(CH=='='){SYM=MINUSBECOMES;GetCh();}
else
if(CH=='-'){SYM=DOUBLEMINUS;GetCh();}
else SYM=MINUS;
}
else { SYM=SSYM[CH]; GetCh(); }
} /*GetSym()*/
//---------------------------------------------------------------------------
void GEN(FCT X, int Y, int Z) {
if (CX>CXMAX) {
Form1->printfs("PROGRAM TOO LONG");
fprintf(FOUT,"PROGRAM TOO LONG\n");
fclose(FOUT);
exit(0);
}
CODE[CX].F=X; CODE[CX].L=Y; CODE[CX].A=Z;
CX++;
} /*GEN*/
//---------------------------------------------------------------------------
void TEST(SYMSET S1, SYMSET S2, int N) {
if (!SymIn(SYM,S1)) {
Error(N);
while (!SymIn(SYM,SymSetUnion(S1,S2))) GetSym();
}
} /*TEST*/
//---------------------------------------------------------------------------
void ENTER(OBJECTS K,int LEV, int &TX, int &DX) { /*ENTER OBJECT INTO TABLE*/
TX++;
strcpy(TABLE[TX].NAME,ID); TABLE[TX].KIND=K;
switch (K) {
case CONSTANT:
if (NUM>AMAX) { Error(31); NUM=0; }
TABLE[TX].VAL=NUM;
break;
case VARIABLE:
TABLE[TX].vp.LEVEL=LEV; TABLE[TX].vp.ADR=DX; DX++;
break;
case PROCEDUR:
TABLE[TX].vp.LEVEL=LEV;
break;
}
} /*ENTER*/
//---------------------------------------------------------------------------
int POSITION(ALFA ID, int TX) { /*FIND IDENTIFIER IN TABLE*/
int i=TX;
strcpy(TABLE[0].NAME,ID);
while (strcmp(TABLE[i].NAME,ID)!=0) i--;
return i;
} /*POSITION*/
//---------------------------------------------------------------------------
void ConstDeclaration(int LEV,int &TX,int &DX) {
if (SYM==IDENT) {
GetSym();
if (SYM==EQL||SYM==BECOMES) {
if (SYM==BECOMES) Error(1);
GetSym();
if (SYM==NUMBER) {
ENTER(CONSTANT,LEV,TX,DX);
GetSym();
}
else Error(2);
}
else Error(3);
}
else Error(4);
} /*ConstDeclaration()*/
//---------------------------------------------------------------------------
void VarDeclaration(int LEV,int &TX,int &DX) {
if(SYM==IDENT)
ENTER(VARIABLE,LEV,TX,DX); GetSym();
} /*VarDeclaration()*/
//---------------------------------------------------------------------------
void ListCode(int CX0) { /*LIST CODE GENERATED FOR THIS Block*/
if (Form1->ListSwitch->ItemIndex==0)
for (int i=CX0; i<CX; i++) {
String s=IntToStr(i);
while(s.Length()<3)s=" "+s;
s=s+" "+MNEMONIC[CODE[i].F]+" "+IntToStr(CODE[i].L)+" "+IntToStr(CODE[i].A);
Form1->printfs(s.c_str());
fprintf(FOUT,"%3d%5s%4d%4d\n",i,MNEMONIC[CODE[i].F],CODE[i].L,CODE[i].A);
}
} /*ListCode()*/;
//---------------------------------------------------------------------------
void DOUBLEOP(){//前加
int i,TX;
SYMBOL DOP;
DOP=SYM;
GetSym();
if (SYM==IDENT) {
i=POSITION(ID,TX);
if (i==0) Error(11);
}
else if (TABLE[i].KIND==VARIABLE)
GEN(LOD,TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);//将变量放到栈顶
else
Error(25); //运算符后必须是变量
GEN(LIT,0,1); //将1取到运行栈顶
if(DOP==DOUBLEPLUS)
GEN(OPR,0,2);
else
GEN(OPR,0,3);
GEN(STO,TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);//存结果
GEN(LOD,TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);//将变量放到栈顶
GetSym();
}
//---------------------------------------------------------------------------
void OPDOUBLE(int i){ //后加
if(i==0)
Error(11);
else
if (TABLE[i].KIND==VARIABLE)
GEN(LOD,TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
else
Error(25);
GEN(LIT,0,1);
if(SYM==DOUBLEPLUS)
GEN(OPR,0,2);
else
GEN(OPR,0,3);
GEN(STO,TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
GetSym();
}
//---------------------------------------------------------------------------
void FACTOR(SYMSET FSYS, int LEV, int &TX) {
int i;
bool isvar=false;
TEST(FACBEGSYS,FSYS,24);
while (SymIn(SYM,FACBEGSYS)) {
if (SYM==IDENT) {
i=POSITION(ID,TX);
if (i==0) Error(11);
else
switch (TABLE[i].KIND) {
case CONSTANT: GEN(LIT,0,TABLE[i].VAL); break;
case VARIABLE:{ GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
isvar=true;
break;
}
case PROCEDUR: Error(21); break;
}
GetSym();
if(isvar&&(SYM==DOUBLEPLUS||SYM==DOUBLEMINUS))
OPDOUBLE(i);
}
else
if (SYM==NUMBER) {
if (NUM>AMAX) { Error(31); NUM=0; }
GEN(LIT,0,NUM); GetSym();
}
else
if (SYM==LPAREN) {
GetSym(); EXPRESSION(SymSetAdd(RPAREN,FSYS),LEV,TX);
if (SYM==RPAREN) GetSym();
else Error(22);
}
// TEST(FSYS,FACBEGSYS,23);
}
}/*FACTOR*/
//---------------------------------------------------------------------------
void TERM(SYMSET FSYS, int LEV, int &TX) { /*TERM*/
SYMBOL MULOP;
FACTOR(SymSetUnion(FSYS,SymSetNew(TIMES,SLASH)), LEV,TX);
while (SYM==TIMES || SYM==SLASH ) {
MULOP=SYM; GetSym();
FACTOR(SymSetUnion(FSYS,SymSetNew(TIMES,SLASH)),LEV,TX);
if (MULOP==TIMES) GEN(OPR,0,4);
else GEN(OPR,0,5);
}
} /*TERM*/;
//---------------------------------------------------------------------------
void EXPRESSION(SYMSET FSYS, int LEV, int &TX) {
SYMBOL ADDOP;
if (SYM==PLUS || SYM==MINUS) {
ADDOP=SYM; GetSym();
TERM(SymSetUnion(FSYS,SymSetNew(PLUS,MINUS)),LEV,TX);
if (ADDOP==MINUS) GEN(OPR,0,1);
}
else
if(SYM==DOUBLEPLUS||SYM==DOUBLEMINUS)
DOUBLEOP();
else
TERM(SymSetUnion(FSYS,SymSetNew(PLUS,MINUS)),LEV,TX);
while (SYM==PLUS || SYM==MINUS) {
ADDOP=SYM; GetSym();
TERM(SymSetUnion(FSYS,SymSetNew(PLUS,MINUS)),LEV,TX);
if (ADDOP==PLUS) GEN(OPR,0,2);
else GEN(OPR,0,3);
}
} /*EXPRESSION*/
//---------------------------------------------------------------------------
void CONDITION(SYMSET FSYS,int LEV,int &TX) {
SYMBOL RELOP;
if (SYM==ODDSYM) { GetSym(); EXPRESSION(FSYS,LEV,TX); GEN(OPR,0,6); }
else {
EXPRESSION(SymSetUnion(SymSetNew(EQL,NEQ,LSS,LEQ,GTR,GEQ),FSYS),LEV,TX);
if (!SymIn(SYM,SymSetNew(EQL,NEQ,LSS,LEQ,GTR,GEQ))) Error(20);
else {
RELOP=SYM; GetSym(); EXPRESSION(FSYS,LEV,TX);
switch (RELOP) {
case EQL: GEN(OPR,0,8); break;
case NEQ: GEN(OPR,0,9); break;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -