📄 unit1.cpp
字号:
/*** PL0 COMPILER WITH CODE GENERATION ***/
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int b=0;
int n=0;
const AL = 10; /* LENGTH OF IDENTIFIERS */
const NORW = 19; /* # 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 LEVMAX= 3; /* MAX DEPTH OF BLOCK NESTING */
const CXMAX = 200; /* SIZE OF CODE ARRAY */
int WNUMK=0; //添加实数与整型区别的全局变量
//符号
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,
PLUSBK, MINUSBK,
SQLPAREN,SQRPAREN,
INC, DEC, ELSESYM, FORSYM, TOSYM, DOWNTOSYM,
RETURNSYM
} SYMBOL; //添加SQLPAREN,SQRPAREN,INC,DEC,ELSESYM,FORSYM,TOSYM,DOWNTOSYM
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",
"PLUSBK", "MINUSBK",
"SQLPAREN","SQRPAREN",
"INC", "DEC","ELSESYM", "FORSYM", "TOSYM", "DOWNTOSYM",
"RETURNSYM"
}; //44 //+++++2添加"INC","DEC","ELSESYM","FORSYM","TOSYM","DOWNTOSYM"
//----------------------------------------------------------------------------
typedef int * SYMSET; // SET OF SYMBOL;
typedef char ALFA[11];
//名字表中的类型
typedef enum { CONSTANT,PROCEDUR,ARR,VARIABLE,FUNCTION,PARR} OBJECTS ;//+++++添加枚举类型
typedef enum { CHARCON, REALCON, INTCON,NOTYP} TYPES;
//虚拟机代码
typedef enum { LIT,OPR,LOD,STO,STOARR,LODARR,CAL,INI,JMP,JPC,PUSH,STOVAR,LODVAR,STOPAR}FCT; //+++++加入对数组的运算STOARR和LODARR,加入对地址参数的运算，STOVAR和LODVAR
//虚拟机代码结构
typedef struct {
FCT F; /*FUNCTION CODE*/
int L; /*0..LEVMAX LEVEL*/
int 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*/
int NUM; /*LAST NUMBER READ*/
int CC; /*CHARACTER COUNT*/
int LL; /*LINE LENGTH*/
int CX; /*CODE ALLOCATION INDEX*/
char LINE[81];
INSTRUCTION CODE[CXMAX]; //200
ALFA KWORD[NORW+1]; //20
SYMBOL WSYM[NORW+1]; //20
SYMBOL SSYM['^'+1]; //95
ALFA MNEMONIC[10];
SYMSET DECLBEGSYS, STATBEGSYS, FACBEGSYS;
//名字表结构
struct {
ALFA NAME;
OBJECTS KIND;
bool IsVAR;
TYPES TYPE;//添加类型
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)*44);
for (int i=0; i<44; 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)*44);
for (int i=0; i<44; i++) S1[i]=S[i];
S1[SY]=1;
return S1;
}
SYMSET SymSetNew(SYMBOL a) {
SYMSET S; int i,k;
S=(SYMSET)malloc(sizeof(int)*44);
for (i=0; i<44; 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)*44);
for (i=0; i<44; 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)*44);
for (i=0; i<44; 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)*44);
for (i=0; i<44; 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)*44);
for (i=0; i<44; 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)*44);
for (i=0; i<44; 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 SymSetNew(SYMBOL a, SYMBOL b, SYMBOL c, SYMBOL d,
SYMBOL e, SYMBOL f, SYMBOL g, SYMBOL h) {
SYMSET S; int i,k;
S=(SYMSET)malloc(sizeof(int)*44);
for (i=0; i<44; i++) S[i]=0;
S[a]=1; S[b]=1; S[c]=1; S[d]=1; S[e]=1; S[f]=1; S[g]=1; S[h]=1;
return S;
}
SYMSET SymSetNULL() {
SYMSET S; int i,n,k;
S=(SYMSET)malloc(sizeof(int)*44);
for (i=0; i<44; 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 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() {
long 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]; //if(SYM==ELSESYM)
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(); } //3 修改不等号<>
else SYM=LSS;
}
else
if (CH=='>') {
GetCh();
if (CH=='=') { SYM=GEQ; GetCh(); }
else SYM=GTR;
}
else //4添加+=,-=,++,--
if(CH=='+'){
GetCh();
if(CH=='=')
{
SYM=PLUSBK;
GetCh();
}
else
if(CH=='+')
{
SYM=INC;
GetCh();
}
else { SYM=PLUS; }
}
else
if(CH=='-'){
GetCh();
if(CH=='=')
{
SYM=MINUSBK;
GetCh();
}
else
if(CH=='-')
{
SYM=DEC;
GetCh();
}
else { SYM=MINUS; }
}
else
if(CH=='/'){
char c=LINE[CC];
if(c=='/')
{
CC=LL;//for(int i=0;i<81;i++) LINE[i]=' ';
GetCh();
GetSym();
}
else
{ // Form1->printls("JJJ",55);
SYM=SLASH; GetCh();
}
}
else
{
SYM=SSYM[CH]; GetCh();
}
} /*GetSym()*/
//---------------------------------------------------------------------------
void ARRGetSub(SYMSET FSYS, int LEV,int &TX) //+++++添加
{
GetSym();
if(SYM==SQLPAREN) //数组的语法为 <数组名> [ 运算表达式 ];
{
GetSym();
WNUMK=1; //因为数组中只能进行,整型的运算,所以对下面的运算只能调用一类运算,WNUMK是全局变量
EXPRESSION(SymSetUnion(SymSetNew(SQRPAREN),FSYS),LEV,TX);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -