📄 unit1.cpp
字号:
/*** 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; /* LENGTH OF IDENTIFIERS */
const NORW = 28; /* # OF RESERVED WORDS */
const TXMAX = 100; /* LENGTH OF IDENTIFIER TABLE */
const NMAX = 14; /* MAX NUMBER OF DEGITS IN NUMBERS */
const AMAX =2047; /* MAXIMUM ADDRESS */
const RMAX =32767;
const LEVMAX= 3; /* MAX DEPTH OF BLOCK NESTING */
const CXMAX = 200; /* SIZE OF CODE ARRAY */
//..............
int UPARR; //数组上界的全局变量
int DOWNARR; //数组下界的全局变量
int WNUMK=0; //实数与整型区别的全局变量
//..............
typedef enum { NUL, IDENT, PLUS, MINUS, TIMES, PP,MM,PE,ME,OO,
SLASH, ODDSYM, EQL, NEQ, LSS, LEQ, GTR, GEQ,SQLPAREN,SQRPAREN,
LPAREN, RPAREN, COMMA, SEMICOLON, PERIOD,
BECOMES, BEGINSYM, ENDSYM, IFSYM, THENSYM,ELSESYM,REPEATSYM,
WHILESYM, WRITESYM, READSYM, DOSYM, CALLSYM,UNTILSYM,ARRAYSYM,OFSYM,
CONSTSYM, VARSYM, PROCSYM, PROGSYM, FUNCSYM ,FORSYM,TOSYM,DOWNTOSYM,
INTEGERSYM,REALSYM,CHARSYM,DIVSYM,MODSYM
} SYMBOL;
char *SYMOUT[] = {"NUL", "IDENT", "PLUS", "MINUS", "TIMES", "PP", "MM", "OO",
"SLASH", "ODDSYM", "EQL", "NEQ", "LSS", "LEQ", "GTR", "PE",
"LPAREN", "RPAREN", "COMMA", "SEMICOLON", "PERIOD", "GEQ", "SQLPAREN", "SQRPAREN",
"BECOMES", "BEGINSYM", "ENDSYM", "IFSYM", "THENSYM", "ELSESYM", "REPEATSYM", "ME",
"WHILESYM", "WRITESYM", "READSYM", "DOSYM", "CALLSYM", "UNTILSYM", "FORSYM", "TOSYM","DOWNTOSYM"
"CONSTSYM", "VARSYM", "PROCSYM", "PROGSYM", "FUNCSYM" "ARRAYSYM", "OFSYM",
"INTEGERSYM","REALSYM", "CHARSYM", "DIVSYM", "MODSYM" };
typedef int *SYMSET; // SET OF SYMBOL;
typedef char ALFA[11];
typedef enum { CONSTANT,PROCEDUR,ARR,VARIABLE,FUNCTION,VAR} OBJECTS ;
typedef enum { LIT, OPR, LOD, STO,STOARR,LODARR, CAL, INI, JMP, JPC } FCT; //加入对数组的运算STOARR和LODARR
typedef struct {
FCT F; /*FUNCTION CODE*/
int L; /*0..LEVMAX LEVEL*/
float A; /*0..AMAX DISPLACEMENT ADDR*/
} INSTRUCTION;
/* LIT O A -- LOAD CONSTANT A */
/* OPR 0 A -- EXECUTE OPR A */
/* LOD L A -- LOAD VARIABLE L,A */
/* STO L A -- STORE VARIABLE L,A */
/* CAL L A -- CALL PROCEDURE A AT LEVEL L */
/* INI 0 A -- INCREMET T-REGISTER BY A */
/* JMP 0 A -- JUMP TO A */
/* JPC 0 A -- JUMP CONDITIONAL TO A */
char CH; /*LAST CHAR READ*/
SYMBOL SYM; /*LAST SYMBOL READ*/
ALFA ID; /*LAST IDENTIFIER READ*/
float NUM; /*LAST NUMBER READ*/
int CC; /*CHARACTER COUNT*/
int LL; /*LINE LENGTH*/
int CX; /*CODE ALLOCATION INDEX*/
char LINE[81];
INSTRUCTION CODE[CXMAX];
ALFA KWORD[NORW+1];
SYMBOL WSYM[NORW+1];
SYMBOL SSYM['^'+1];
ALFA MNEMONIC[11];
SYMSET DECLBEGSYS, STATBEGSYS, FACBEGSYS;
//..............
int PARACOUNT; //参数的个数
ALFA FUNLAYER[LEVMAX+1]; //存放当前所处理函数的函数名
struct DS // DS STORE //Display函数活动区域记录
{
int tp;
int bp;
//int index;
} DISPLAY[LEVMAX+1];
//..............
struct {
ALFA NAME;
OBJECTS KIND;
ALFA NUMKIND;
//---------
int CS;
bool IsVAR;
//---------
union {
float 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)*53);
for (int i=0; i<53; 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)*53);
for (int i=0; i<53; i++) S1[i]=S[i];
S1[SY]=1;
return S1;
}
//---------------------------------------------------------------------------
SYMSET SymSetNew(SYMBOL a) {
SYMSET S; int i,k;
S=(SYMSET)malloc(sizeof(int)*53);
for (i=0; i<53; 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)*53);
for (i=0; i<53; 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)*53);
for (i=0; i<53; 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)*53);
for (i=0; i<53; 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)*53);
for (i=0; i<53; 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)*53);
for (i=0; i<53; 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)*53);
for (i=0; i<53; 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%d\n", s.c_str(), n);
ERR++;
} /*Error*/
//---------------------------------------------------------------------------
void RunTimeError(int n,int T)
{
String f;
switch(n)
{
case 210: f="Runtime error 210 at ""00x"+IntToStr(T)+"^"; break;
}
Form1->printfs(f.c_str()); fprintf(FOUT,"%s\n", f.c_str());
ERR++;
}
//----------------------------------------------------------------------------
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>='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=INTEGERSYM; float count=10;
do
{
if(CH=='.')
{
GetCh();
SYM=REALSYM;
while(CH>='0' && CH<='9')
{
NUM=NUM+(CH-'0')/count;
K++;
count*=10;
GetCh();
}
break;
}
else
{
NUM=10*NUM+(CH-'0');
K++;
GetCh();
}
}while((CH>='0' && CH<='9')||CH=='.');
if (K>NMAX) Error(30);
}
else
//----------------------------加入字符类型 只接受 'a' 里面的一个字母
if((int)CH==39)
{
GetCh();
if((CH>='A' && CH<='Z')||(CH>='a' && CH<='z'))
{
NUM=(int)CH;
GetCh();
if((int)CH==39)
SYM=CHARSYM;
else { NUM=0;SYM=NUL;Error(39);} //类型错误
}
else Error(39); //类型不匹配
GetCh();
}
else
//-----------------------------------------------------------end
//++++++++++++++++++++++++++++START
if (CH==':') {
GetCh();
if (CH=='=') { SYM=BECOMES; GetCh(); }
else
{
SYM=OO;
}
}
//+++++++++++++++++++++++END
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=PE;
GetCh();
}
else if(CH=='+')
{
SYM=PP;
GetCh();
}else
SYM=PLUS;
}
else if(CH=='-')
{
GetCh();
if(CH=='=')
{
SYM=ME;
GetCh();
}
else if(CH=='-')
{
SYM=MM;
GetCh();
}else
SYM=MINUS;
}
////++++++++++++++++++++++++++++++++++++++++++++++++++++++++++添加结束
else { SYM=SSYM[CH]; GetCh(); }
} /*GetSym()*/
//---------------------------------------------------------------------------
void GEN(FCT X, int Y, float 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,ALFA NUMKIND, int LEV, int &TX, int &DX,ALFA IDS,bool IsVAR)
{ /*ENTER OBJECT INTO TABLE*/ //这里入表函数的处理过程，参量分别是 K OBJECTS
//ALFA NUMKIND 是该标识符的类型，
//ALFA IDS 标识符的名 //bool IsVAR是否变量参数还是值参数
TX++;
strcpy(TABLE[TX].NAME,IDS); TABLE[TX].KIND=K;
strcpy(TABLE[TX].NUMKIND,NUMKIND);
TABLE[TX].IsVAR=IsVAR;
switch (K) {
case CONSTANT:
if (NUM>AMAX && SYM==INTEGERSYM) { Error(31); NUM=0; }
if (NUM>RMAX && SYM==REALSYM) { Error(31); NUM=0;}
TABLE[TX].VAL=NUM;
break;
case PROCEDUR:
TABLE[TX].vp.LEVEL=LEV;
break;
//++++++++++++++++++++++++++++++++++++++++++++++++数组输入到符号表
case ARR:
TABLE[TX].vp.LEVEL=LEV; //数组的层
TABLE[TX].vp.ADR=DX; //数组的首地址
TX++;
TABLE[TX].VAL=UPARR; //开多一个符号表，存地址的上界
TX++;
TABLE[TX].VAL=DOWNARR; //再开多个符号表，存地址的下界
DX=DX+DOWNARR-UPARR+1;
break;
//+++++++++++++++++++++++++++++++++++++++++++++++++end arr enter
//------------------------------------------------函数标识符输入到符号表
case FUNCTION:
TABLE[TX].vp.LEVEL=LEV;
if(strcmp(TABLE[TX].NAME,"")!=0)
{
DX++;
TABLE[TX].vp.ADR=DX;
TX++;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -