📄 unit1.cpp
字号:
while( SYM==FUNCSYM) //函数定义 依PASCAL语法为 FUNCTION <函数名>(参数,..参数:<类型名>;参数:<类型名>):<类型名>
{ // |(VAR 参数:<类型名>...):<类型名>
bool IsVAR=FALSE; //参数是值参还是变量参数
int DXP=3; //参数的相对地址个数
PARACOUNT=0;
ALFA FUNNAME;
GetSym();
if(SYM==IDENT)
{
strcpy(FUNNAME,ID);
strcpy(FUNLAYER[LEV+1],ID); //当前处理的函数名，全局变量
GetSym();
ENTER(FUNCTION,NOTYP,LEV,TX,DX,"",FALSE); //参数对列的队尾
}
else Error(4);
if(SYM==LPAREN) //参数定义类似变量定义
{
GetSym();
DISPLAY[LEV+1].bp=0;
do
{
//ParaVarDeclaration(LEV,TX,DX);
count=0; //同一类的参数个数，如a，b，c：integer
IsVAR=FALSE; //如果识别到VAR
if(SYM==VARSYM)
{
GetSym();
IsVAR=TRUE;
}
if(SYM==IDENT)
{
strcpy(VARS[count],ID); //先存入在名字表中
count++;
PARACOUNT++; //同类变量增加，变量总数增加
GetSym();
if(count>500) Error(5);
}
else Error(4);
while (SYM==COMMA) //同类变量用‘，’号隔开
{
GetSym();
if(SYM==IDENT)
strcpy(VARS[count],ID); //先存入在名字表中
else Error(5);
count++; //同类变量增加，变量总数增加
PARACOUNT++;
GetSym();
if(count>500) Error(5);
}
if(SYM==OO)
{
GetSym();
ParaDeclaration(LEV+1,TX,DXP,count,VARS,IsVAR); //从一次定义完名字表中的同类变量
GetSym();
}else Error(4);
if(SYM!=RPAREN)
{
if (SYM==SEMICOLON) GetSym();
else Error(6);
}
}while(SYM==IDENT);
if(SYM==RPAREN) GetSym();
else Error(4);
}//end if(SYM==LPAREN);
if(SYM==OO)
{
GetSym();
if(SYM==INTEGERSYM || SYM==REALSYM ||SYM==CHARSYM )
{
TYPES tm;
switch(SYM)
{
case INTEGERSYM: tm=INTCON; break;
case REALSYM : tm=REALCON; break;
case CHARSYM : tm=CHARCON; break;
}
ENTER(FUNCTION,tm,LEV,TX,DX,FUNNAME,FALSE); //定义函数变量 作为参数队列的队首
TABLE[TX-1].CS=CX;
GetSym();
}
else Error(4);
}else Error(4);
if (SYM==SEMICOLON) GetSym();
else Error(5);
Block((LEV+1),TX,SymSetAdd(SEMICOLON,FSYS)); //递归调用入口函数 BLOCK
if (SYM==SEMICOLON)
{
GetSym();
TEST(SymSetUnion(SymSetNew(IDENT,FUNCSYM),STATBEGSYS),FSYS,6);
}
else Error(5);
}//end while(SYM==FUNSYM)
//--------------------------------------------------------------------
TEST(SymSetAdd(IDENT,STATBEGSYS), DECLBEGSYS,7);
}while(SymIn(SYM,DECLBEGSYS));
CODE[TABLE[TX0].vp.ADR].A=CX;
TABLE[TX0].vp.ADR=CX; /*START ADDR OF CODE*/
TABLE[TX0].vp.SIZE=DX; /*SIZE OF DATA SEGMENT*/
GEN(INI,0,DX);
DISPLAY[LEV+1].tp=0;
STATEMENT(SymSetUnion(SymSetNew(SEMICOLON,ENDSYM),FSYS),LEV,TX);
GEN(OPR,0,0); /*RETURN*/
TEST(FSYS,SymSetNULL(),8);
ListCode(CX0);
} /*Block*/
//---------------------------------------------------------------------------
int BASE(int L,int B,float S[]) {
int B1=B; /*FIND BASE L LEVELS DOWN*/
while (L>0) { B1=S[B1]; L=L-1; }
return B1;
} /*BASE*/
//---------------------------------------------------------------------------
void Interpret() {
const STACKSIZE = 500;
int P,B,T; /*PROGRAM BASE TOPSTACK REGISTERS*/
INSTRUCTION I;
float S[STACKSIZE]; /*DATASTORE*/ //把数据栈都定义为实型运算
Form1->printfs("~~~ RUN PL0 ~~~");
fprintf(FOUT,"~~~ RUN PL0 ~~~\n");
T=0; B=1; P=0;
S[1]=0; S[2]=0; S[3]=0;
do {
I=CODE[P]; P=P+1;
switch (I.F) {
case LIT: T++; S[T]=I.A; break;
case OPR:
switch ((int)I.A) { /*OPERATOR*/
case 0: /*RETURN*/ T=B-1; P=S[T+3]; B=S[T+2]; break;
case 1: S[T]=-S[T]; break;
case 2: T--; S[T]=S[T]+S[T+1]; break;
case 3: T--; S[T]=S[T]-S[T+1]; break;
case 4: T--; S[T]=S[T]*S[T+1]; break;
case 5: T--; S[T]=S[T]/S[T+1]; break;
case 6: S[T]=((int)S[T]%2!=0); break;
case 8: T--; S[T]=S[T]==S[T+1]; break;
case 9: T--; S[T]=S[T]!=S[T+1]; break;
case 10: T--; S[T]=S[T]<S[T+1]; break;
case 11: T--; S[T]=S[T]>=S[T+1]; break;
case 12: T--; S[T]=S[T]>S[T+1]; break;
case 13: T--; S[T]=S[T]<=S[T+1]; break;
case 14:
fprintf(FOUT,"%f\n",S[T]);
Form1->printrs("",S[T]);
T--;
break;
case 15: //输入实数
T++; S[T]=InputBox("输入","请键盘输入：", 0).ToDouble();
Form1->printrs("? ",S[T]); fprintf(FOUT,"? %f\n",S[T]);
break;
case 16: T++; S[T]=InputBox("输入","请键盘输入：", 0).ToDouble(); //输入整型
if((S[T]-(int)S[T])!=0) { RunTimeError(210,T); goto LOOP;}
Form1->printrs("? ",S[T]); fprintf(FOUT,"? %f\n",S[T]);
break;
case 17:T--; S[T]=(int)(S[T]/S[T+1]); break;
case 18:T--; S[T]=(int)S[T]%(int)S[T+1]; break;
case 19:
Form1->printcs(S[T]);
fprintf(FOUT,"%c\n",(char)S[T]); T--;
break;
case 20: //输入字符
T++;
AnsiString css=InputBox("输入","请键盘输入：", 0);//.AnsiLastChar();
char *buf=css.c_str();
S[T]=(int)buf[0]; Form1->printcs('?');
Form1->printcs((char)S[T]); fprintf(FOUT,"? %c\n",(char)S[T]);
break;
}
break;
case LOD: T++; S[T]=S[BASE(I.L,B,S)+(int)I.A]; break;
case STO: S[BASE(I.L,B,S)+(int)I.A]=S[T]; T--; break;
case STOPAR: S[T+(int)I.A]=S[T]; T--; break;
case STOARR: S[BASE(I.L,B,S)+(int)I.A+(int)S[(T-1)]]=S[T]; T--; break; //对数组的存储 S[T-1]放入了偏移地址
case LODARR: S[T]=S[BASE(I.L,B,S)+(int)I.A+(int)S[T]]; break; //对数组的读取 第二个S[T]是放入偏移地址的
case LODVAR: S[T]=S[BASE(I.L,B,S)+(int)S[T]]; break; //对地址变量的读取
case STOVAR: S[BASE(I.L,B,S)+(int)S[(T-1)]]=S[T]; T--; T--; break; //对地址变量的存储
//case LODPARX:
//case STOPARX:
case CAL: /*GENERAT NEW Block MARK*/
S[T+1]=BASE(I.L,B,S); S[T+2]=B; S[T+3]=P;
B=T+1; P=I.A; break;
case INI: T=T+I.A; break;
case JMP: P=I.A; break;
case JPC: if (S[T]==0) P=I.A; T--; break;
} /*switch*/
}while(P!=0);
LOOP: Form1->printfs("~~~ END PL0 ~~~");
fprintf(FOUT,"~~~ END PL0 ~~~\n");
} /*Interpret*/
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonRunClick(TObject *Sender) {
for (CH=' '; CH<='^'; CH++) SSYM[CH]=NUL;
for (int i=0;i<3;i++)
DISPLAY[i].tp=DISPLAY[i].bp=0; //DS STORE
strcpy(KWORD[ 1],"ARRAY");
strcpy(KWORD[ 2],"BEGIN"); strcpy(KWORD[ 3],"CALL"); //call不用了，函数或过程直接就可以调用了
strcpy(KWORD[ 4],"CHAR"); strcpy(KWORD[ 5],"CONST");
strcpy(KWORD[ 6],"DIV"); strcpy(KWORD[ 7],"DO");
strcpy(KWORD[ 8],"DOWNTO"); strcpy(KWORD[ 9],"ELSE");
strcpy(KWORD[10],"END"); strcpy(KWORD[11],"FOR");
strcpy(KWORD[12],"FUNCTION"); strcpy(KWORD[13],"IF");
strcpy(KWORD[14],"INTEGER"); strcpy(KWORD[15],"MOD");
strcpy(KWORD[16],"ODD"); strcpy(KWORD[17],"OF");
strcpy(KWORD[18],"PROCEDURE");
strcpy(KWORD[19],"PROGRAM"); strcpy(KWORD[20],"READ");
strcpy(KWORD[21],"REAL"); strcpy(KWORD[22],"REPEAT");
strcpy(KWORD[23],"THEN"); strcpy(KWORD[24],"TO");
strcpy(KWORD[25],"UNTIL"); strcpy(KWORD[26],"VAR");
strcpy(KWORD[27],"WHILE"); strcpy(KWORD[28],"WRITE");
WSYM[ 1]=ARRAYSYM; //新加的关键字都是按字典顺序放的，因为词法分析是用二分查找算法
WSYM[ 2]=BEGINSYM; WSYM[ 3]=CALLSYM;
WSYM[ 4]=CHARSYM; WSYM[ 5]=CONSTSYM;
WSYM[ 6]=DIVSYM; WSYM[ 7]=DOSYM;
WSYM[ 8]=DOWNTOSYM; WSYM[ 9]=ELSESYM;
WSYM[10]=ENDSYM; WSYM[11]=FORSYM;
WSYM[12]=FUNCSYM; WSYM[13]=IFSYM;
WSYM[14]=INTEGERSYM; WSYM[15]=MODSYM;
WSYM[16]=ODDSYM; WSYM[17]=OFSYM;
WSYM[18]=PROCSYM;
WSYM[19]=PROGSYM; WSYM[20]=READSYM;
WSYM[21]=REALSYM; WSYM[22]=REPEATSYM;
WSYM[23]=THENSYM; WSYM[24]=TOSYM;
WSYM[25]=UNTILSYM; WSYM[26]=VARSYM;
WSYM[27]=WHILESYM; WSYM[28]=WRITESYM;
SSYM['+']=PLUS; SSYM['-']=MINUS;
SSYM['*']=TIMES; SSYM['/']=SLASH;
SSYM['(']=LPAREN; SSYM[')']=RPAREN;
SSYM['=']=EQL; SSYM[',']=COMMA;
SSYM['.']=PERIOD; SSYM[';']=SEMICOLON;
SSYM['[']=SQLPAREN; SSYM[']']=SQRPAREN;
strcpy(MNEMONIC[LIT],"LIT"); strcpy(MNEMONIC[OPR],"OPR");
strcpy(MNEMONIC[LOD],"LOD"); strcpy(MNEMONIC[STO],"STO");
strcpy(MNEMONIC[LODARR],"LODARR");strcpy(MNEMONIC[STOARR],"STOARR");
strcpy(MNEMONIC[LODVAR],"LODVAR");strcpy(MNEMONIC[STOVAR],"STOVAR");
strcpy(MNEMONIC[STOPAR],"STOPAR");
strcpy(MNEMONIC[CAL],"CAL"); strcpy(MNEMONIC[INI],"INI");
strcpy(MNEMONIC[JMP],"JMP"); strcpy(MNEMONIC[JPC],"JPC");
DECLBEGSYS=(int*)malloc(sizeof(int)*56);
STATBEGSYS=(int*)malloc(sizeof(int)*56);
FACBEGSYS =(int*)malloc(sizeof(int)*56);
for(int j=0; j<56; j++) {
DECLBEGSYS[j]=0; STATBEGSYS[j]=0; FACBEGSYS[j] =0;
}
DECLBEGSYS[CONSTSYM]=1;
DECLBEGSYS[VARSYM]=1;
DECLBEGSYS[PROCSYM]=1;
DECLBEGSYS[FUNCSYM]=1;
DECLBEGSYS[ARR]=1;
STATBEGSYS[BEGINSYM]=1;
STATBEGSYS[CALLSYM]=1;
STATBEGSYS[IFSYM]=1;
STATBEGSYS[WHILESYM]=1;
STATBEGSYS[WRITESYM]=1;
STATBEGSYS[REPEATSYM]=1;
//------------------------
STATBEGSYS[FORSYM]=1;
//----------------------
FACBEGSYS[IDENT] =1;
FACBEGSYS[LPAREN]=1;
FACBEGSYS[CHARS]=1;
FACBEGSYS[INTS]=1;
FACBEGSYS[REALS]=1;
if ((FIN=fopen((Form1->EditName->Text+".PL0").c_str(),"r"))!=0) {
FOUT=fopen((Form1->EditName->Text+".COD").c_str(),"w");
Form1->printfs("=== COMPILE PL0 ===");
fprintf(FOUT,"=== COMPILE PL0 ===\n");
ERR=0;
CC=0; CX=0; LL=0; CH=' '; GetSym();
if (SYM!=PROGSYM) Error(0);
else {
GetSym();
if (SYM!=IDENT) Error(0);
else {
GetSym();
if (SYM!=SEMICOLON) Error(5);
else GetSym();
}
}
Block(0,0,SymSetAdd(PERIOD,SymSetUnion(DECLBEGSYS,STATBEGSYS)));
if (SYM!=PERIOD) Error(9);
if (ERR==0) Interpret();
else {
Form1->printfs("ERROR IN PL/0 PROGRAM");
fprintf(FOUT,"ERROR IN PL/0 PROGRAM");
}
fprintf(FOUT,"\n"); fclose(FOUT);
}
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -