📄 unit1.~cpp
字号:
else Error(13);
EXPRESSION(SymSetUnion(SymSetNew(TOSYM,DOWNTOSYM),FSYS),LEV,TX,TABLE[i].KIND);
if (i!=0) GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); }
if(SYM==TOSYM||SYM==DOWNTOSYM)
{
if(SYM==TOSYM)TOD=TOSYM;
else TOD=DOWNTOSYM;
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);//再送变量，
//目的是让上下界作差
GetSym();
EXPRESSION(SymSetUnion(SymSetNew(DOSYM),FSYS),LEV,TX,TABLE[i].KIND);
GEN(OPR,0,3);
if(TOD==TOSYM)
GEN(OPR,0,1);
GEN(STO,TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
CX1=CX;
GEN(LOD,TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
GEN(LIT,0,0);
GEN(OPR,0,8);
CX2=CX;
GEN(JPC,0,0);
GEN(LOD,TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
GEN(LIT,0,1);
GEN(OPR,0,3);
GEN(STO,TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
GetSym();
STATEMENT(SymSetUnion(SymSetNew(SEMICOLON),FSYS),LEV,TX,TX0);
GEN(JMP,0,CX1);
CODE[CX2].A=CX; }
break;
case ADDADD:
EXPRESSION(FSYS,LEV,TX,notype);
//当++I；这种情形，会多出一条LOD，O，X 指令 但不影响结果
break;
case JIANJIAN:
EXPRESSION(FSYS,LEV,TX,notype);
break;
}
TEST(FSYS,SymSetNULL(),19);
} /*STATEMENT*/
//---------------------------------------------------------------------------
void Block(int LEV, int TX, SYMSET FSYS) {
int DX=3; /*DATA ALLOCATION INDEX*/
int TX0=TX; /*INITIAL TABLE INDEX*/
int CX0=CX; /*INITIAL CODE INDEX*/
int TX1; //用于处理变量时回填类型
TABLE[TX].vp.ADR=CX; GEN(JMP,0,0);
if (LEV>LEVMAX) Error(32);
if (SYM==LPAREN)
{
TABLE[TX].vp.ADR=DX;
DX++;//为函数名留一个空间
GetSym();
CANSHU *Y=(CANSHU*)malloc(sizeof(CANSHU));
TABLE[TX].vp.FP=Y;
Y->Passnum=0;
do {
TX1=TX;
ENTER(LEV,TX);
while (SYM!=COLON)
{
GetSym();
if(SYM==IDENT)
ENTER(LEV,TX);
}
if(SYM==COLON){
GetSym();
if(SYM==ARRAYSYM) //数组变量
{
GetSym();
if(SYM!=LZPAREN)Error(105);
GetSym();
if(SYM!=NUMBER&&KIND!=Int)Error(105);
do{
GetSym();
}while (SYM==PERIOD);
if(SYM==NUMBER&&KIND==Int)
for(int N=TX1+1;N<=TX1;N++){
TABLE[N].KIND=ARRAY;
TABLE[N].vp.ADR=DX;
DX=DX+NUM-1; }
else
Error(105);
GetSym();
if(SYM!=RZPAREN)Error(105);
GetSym();
if(SYM!=OFSYM)Error(105);
GetSym();
if(SYM!=CHARSYM&&SYM!=INTSYM&&SYM!=REALSYM)Error(106);
}
else //其它类型
if(SYM==CHARSYM||SYM==INTSYM||SYM==REALSYM)
{
for(int n=TX1+1;n<=TX;n++)
{
switch(SYM)
{
case CHARSYM : TABLE[n].KIND=CHARC;
TABLE[n].vp.ADR=DX;
DX++;
Y->Passnum++;
break;
case INTSYM : TABLE[n].KIND=Int;
TABLE[n].vp.ADR=DX;
DX++;
Y->Passnum++;
break;
case REALSYM : TABLE[n].KIND=REAL;
TABLE[n].vp.ADR=DX;
DX++;
Y->Passnum++;
break;
}
} //for
}
else Error(105);
}
else Error(101);
GetSym();
if (SYM==COMMA)GetSym();
else if(SYM==RPAREN);
else Error(107);
}while(SYM!=RPAREN);
GetSym();
if(SYM!=COLON)Error(108);
GetSym();
switch(SYM){ //函数或过程返回值类型
case CHARSYM : Y->return_type=CHARC;
break;
case INTSYM : Y->return_type=Int;
break;
case REALSYM : Y->return_type=REAL;
}
GetSym();
if(SYM!=BECOMES)Error(113);
GetSym();
}
//常量 声明
do {
if (SYM==CONSTSYM) {
GetSym();
do {
ConstDeclaration(LEV,TX,DX);
while (SYM==COMMA) {
GetSym(); ConstDeclaration(LEV,TX,DX);
}
if (SYM==SEMICOLON) GetSym();
else Error(5);
}while(SYM==IDENT);
}
//变量声明
if (SYM==VARSYM) {
GetSym();
do {
TX1=TX;
ENTER(LEV,TX);
while (SYM!=COLON)
{
GetSym();
if(SYM==IDENT)
ENTER(LEV,TX);
}
if(SYM==COLON){
GetSym();
if(SYM==ARRAYSYM) {//数组
GetSym();
if(SYM!=LZPAREN)Error(105);
GetSym();
if(SYM!=NUMBER&&KIND!=Int)Error(105);
do{
GetSym();
}while (SYM==PERIOD);
if(SYM==NUMBER&&KIND==Int)
for(int N=TX1+1;N<=TX;N++){
TABLE[N].KIND=ARRAY;
TABLE[N].vp.ADR=DX;
DX=DX+NUM; }
else
Error(105);
GetSym();
if(SYM!=RZPAREN)Error(105);
GetSym();
if(SYM!=OFSYM)Error(105);
GetSym();
if(SYM!=CHARSYM&&SYM!=INTSYM&&SYM!=REALSYM)Error(106);
}
else //其它类型
if(SYM==CHARSYM||SYM==INTSYM||SYM==REALSYM)
{
for(int n=TX1+1;n<=TX;n++)
{
switch(SYM){
case CHARSYM : TABLE[n].KIND=CHARC;
TABLE[n].vp.ADR=DX;
DX++;
break;
case INTSYM : TABLE[n].KIND=Int;
TABLE[n].vp.ADR=DX;
DX++;
break;
case REALSYM : TABLE[n].KIND=REAL;
TABLE[n].vp.ADR=DX;
DX++;
break;
}
} //for
}
else Error(105);
}
else Error(101);
GetSym();
if (SYM==SEMICOLON)GetSym();
else Error(5);
}while(SYM==IDENT);
}
//函数声明
while(SYM==FUCTION)
{ GetSym();
if(SYM==IDENT) {ENTER(FUCTIONC,LEV,TX,DX);GetSym(); }
else Error(106);
Block(LEV+1,TX,SymSetAdd(SEMICOLON,FSYS));
if (SYM==SEMICOLON) {
GetSym();
TEST(SymSetUnion(SymSetNew(IDENT,PROCSYM),STATBEGSYS),FSYS,6);
}
else Error(5);
}
while ( SYM==PROCSYM) {
GetSym();
if (SYM==IDENT) { ENTER(PROCEDUR,LEV,TX,DX); GetSym(); }
else Error(4);
if (SYM==SEMICOLON) GetSym();
else Error(5);
Block(LEV+1,TX,SymSetAdd(SEMICOLON,FSYS));
if (SYM==SEMICOLON) {
GetSym();
TEST(SymSetUnion(SymSetNew(IDENT,PROCSYM),STATBEGSYS),FSYS,6);
}
else Error(5);
}
TEST(SymSetAdd(IDENT,STATBEGSYS), DECLBEGSYS,7);
}while(SymIn(SYM,DECLBEGSYS));
CODE[TABLE[TX0].vp.ADR].A=CX;
//if(TABLE[TX0].VP.KIND==PROCEDUR)
//TABLE[TX0].vp.ADR=CX; /*START ADDR OF CODE*/
TABLE[TX0].vp.SIZE=DX; /*SIZE OF DATA SEGMENT*/
GEN(INI,0,DX);
STATEMENT(SymSetUnion(SymSetNew(SEMICOLON,ENDSYM),FSYS),LEV,TX,TX0);
if(TABLE[TX0].vp.FP!=NULL){
GEN(LOD,0,TABLE[TX0].vp.ADR);
GEN(STO,0,TABLE[TX0].vp.ADR-4); }
GEN(OPR,0,0); /*RETURN*/
TEST(FSYS,SymSetNULL(),8);
ListCode(CX0);
} /*Block*/
//---------------------------------------------------------------------------
int BASE(int L,int B,int 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;
String s; /*PROGRAM BASE TOPSTACK REGISTERS*/
INSTRUCTION I;
int 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 (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]=(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: Form1->printls("",S[T]); fprintf(FOUT,"%d\n",S[T]); T--;
break;
case 15: /*Form1->printfs(""); fprintf(FOUT,"\n"); */ break;
case 16: T++; S[T]=InputBox("输入","请键盘输入：", 0).ToInt();
Form1->printls("? ",S[T]); fprintf(FOUT,"? %d\n",S[T]);
break;
}
break;
case LOD: T++; S[T]=S[BASE(I.L,B,S)+I.A]; break;
case STO: S[BASE(I.L,B,S)+I.A]=S[T]; T--; break;
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);
Form1->printfs("~~~ END PL0 ~~~");
fprintf(FOUT,"~~~ END PL0 ~~~\n");
} /*Interpret*/
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonRunClick(TObject *Sender) {
for (CH=' '; CH<='^'; CH++) SSYM[CH]=NUL;
strcpy(KWORD[ 1],"ARRAY");
strcpy(KWORD[ 2],"BEGIN"); strcpy(KWORD[ 3],"CALL");
strcpy(KWORD[ 4],"CHAR");
strcpy(KWORD[ 5],"CONST"); strcpy(KWORD[ 6],"DO");
strcpy(KWORD[ 7],"DOWNTO"); strcpy(KWORD[ 8],"ELSE");
strcpy(KWORD[ 9],"END"); strcpy(KWORD[ 10],"FOR");
strcpy(KWORD[ 11],"FUCTION");
strcpy(KWORD[ 12],"IF"); strcpy(KWORD[ 13],"INT");
strcpy(KWORD[ 14],"ODD"); strcpy(KWORD[ 15],"OF");
strcpy(KWORD[ 16],"PROCEDURE");
strcpy(KWORD[ 17],"PROGRAM"); strcpy(KWORD[ 18],"READ");
strcpy(KWORD[ 19],"REAL");
strcpy(KWORD[20],"REPEAT"); strcpy(KWORD[21],"THEN");
strcpy(KWORD[22],"TO");
strcpy(KWORD[23],"UNTIL"); strcpy(KWORD[24],"VAR");
strcpy(KWORD[25],"WHILE"); strcpy(KWORD[26],"WRITE");
WSYM[ 1]=ARRAYSYM;
WSYM[ 2]=BEGINSYM; WSYM[ 3]=CALLSYM;
WSYM[ 4]=CHARSYM;
WSYM[ 5]=CONSTSYM; WSYM[ 6]=DOSYM;
WSYM[ 7]=DOWNTOSYM; WSYM[ 8]=ELSESYM;
WSYM[ 9]=ENDSYM; WSYM[ 10]=FORSYM;
WSYM[ 11]=FUCTION;
WSYM[ 12]=IFSYM; WSYM[ 13]=INTSYM;
WSYM[ 14]=ODDSYM; WSYM[ 15]=OFSYM;
WSYM[16]=PROCSYM;
WSYM[ 17]=PROGSYM; WSYM[ 18]=READSYM;
WSYM[ 19]=REALSYM;
WSYM[20]=REPEATSYM; WSYM[21]=THENSYM;
WSYM[ 22]=TOSYM;
WSYM[23]=UNTILSYM; WSYM[24]=VARSYM;
WSYM[25]=WHILESYM; WSYM[26]=WRITESYM;
SSYM['+']=PLUS; SSYM['-']=MINUS;
SSYM['*']=TIMES; SSYM['/']=SLASH;
SSYM['(']=LPAREN; SSYM[')']=RPAREN;
SSYM['=']=EQL; SSYM[',']=COMMA;
SSYM['.']=PERIOD; SSYM['#']=NEQ;
SSYM[';']=SEMICOLON; SSYM[39]=YINHAO;
SSYM['[']=LZPAREN; SSYM[']']=RZPAREN;
strcpy(MNEMONIC[LIT],"LIT"); strcpy(MNEMONIC[OPR],"OPR");
strcpy(MNEMONIC[LOD],"LOD"); strcpy(MNEMONIC[STO],"STO");
strcpy(MNEMONIC[CAL],"CAL"); strcpy(MNEMONIC[INI],"INI");
strcpy(MNEMONIC[JMP],"JMP"); strcpy(MNEMONIC[JPC],"JPC");
DECLBEGSYS=(int*)malloc(sizeof(int)*45);
STATBEGSYS=(int*)malloc(sizeof(int)*45);
FACBEGSYS =(int*)malloc(sizeof(int)*45);
for(int j=0; j<45; j++) {
DECLBEGSYS[j]=0; STATBEGSYS[j]=0; FACBEGSYS[j] =0;
}
DECLBEGSYS[CONSTSYM]=1;
DECLBEGSYS[VARSYM]=1;
DECLBEGSYS[PROCSYM]=1;
DECLBEGSYS[CHARSYM]=1;
DECLBEGSYS[REALSYM]=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[NUMBER]=1;
FACBEGSYS[LPAREN]=1;
FACBEGSYS[ADDADD]=1;
FACBEGSYS[JIANJIAN]=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 + -