📄 unit1.~cpp
字号:
GEN(OPR,0,3);
GEN(STOMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
GEN(LODMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
}
//++++++++++++++++++++ end ++ --
}
else
if (SYM==INTEGERSYM || SYM==REALSYM) {
if (NUM>AMAX && SYM==INTEGERSYM) { Error(31); NUM=0; }
if (NUM>RMAX && SYM==REALSYM){ Error(31); NUM=0;}
if ((WNUMK && SYM==REALSYM)||strcmp(ID,"REAL")==0||strcmp(ID,"INTEGER")==0) { Error(32); NUM=0;}
//类型不匹配
GEN(LIT,0,NUM); GetSym();
if(SYM==PP) //数字自加运算
{
GetSym();
GEN(LIT,0,1);
GEN(OPR,0,2);
}
else if(SYM==MM) //数字自减运算
{
GetSym();
GEN(LIT,0,1);
GEN(OPR,0,3);
}
}
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,DIVSYM,MODSYM)), LEV,TX);
while (SYM==TIMES || SYM==SLASH || SYM==DIVSYM || SYM==MODSYM)
{
MULOP=SYM; GetSym();
FACTOR(SymSetUnion(FSYS,SymSetNew(TIMES,SLASH,DIVSYM,MODSYM)),LEV,TX);
switch(MULOP)
{
case TIMES: GEN(OPR,0,4); break;
case SLASH: if(WNUMK) Error(18); else GEN(OPR,0,5); break; //整型运算中不允许出现 '/'运算符
case DIVSYM: GEN(OPR,0,17); break; //整型的运算符，整除
case MODSYM: GEN(OPR,0,18); break; //取余预算
}
}
} /*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 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;
case LSS: GEN(OPR,0,10); break;
case GEQ: GEN(OPR,0,11); break;
case GTR: GEN(OPR,0,12); break;
case LEQ: GEN(OPR,0,13); break;
}
}
}
} /*CONDITION*/
//---------------------------------------------------------------------------
void STATEMENT(SYMSET FSYS,int LEV,int &TX) { /*STATEMENT*/
int i,CX1,CX2,jk;
FCT STOMode[2]={STO,STOARR};
FCT LODMode[2]={LOD,LODARR};
bool IsFUN;
SYMBOL Temp;
jk=0;
switch (SYM) {
case IDENT:
//+++++++++++++START ++
IsFUN=FALSE;
i=POSITION(ID,TX);
if (i==0) Error(11);
else
{
if (TABLE[i].KIND==CONSTANT) /*ASSIGNMENT TO NON-VARIABLE*/
{
Error(12);
i=0;
}
//call function in statement or assimenet to function.val
if(TABLE[i].KIND==FUNCTION)
{
ParaGetSub(FSYS,LEV,TX,i);
if((LEV==0 && strcmp(FUNLAYER[LEV],ID)!=0)||SYM==RPAREN)//call
//函数调用不是第一层而且与当前函数不同名，就可以调用，
//否则就是用下面的赋值功能，作为函数返回值
{ //这里 就没有考虑到 函数的递归调用功能
GEN(CAL,LEV-TABLE[i].vp.LEVEL,TABLE[i].CS);
GetSym();
break;
}
IsFUN=TRUE;
goto LOOP;
//else assiment
}
//----------------end call function
//call procedure
if(TABLE[i].KIND==PROCEDUR)
{
ParaGetSub(FSYS,LEV,TX,i);
GEN(CAL,LEV-TABLE[i].vp.LEVEL,TABLE[i].CS);
break;
}
//------------------end call procedure
if(TABLE[i].KIND==ARR) //处理的变量是数组
{
ARRGetSub(FSYS,LEV,TX);
jk=1;
}
}//else if(i==0)
if(strcmp(TABLE[i].NUMKIND,"CHAR")==0)
{
GetSym();
if(SYM!=BECOMES) Error(13);
else
{
GetSym();
if(SYM!=SYM || strcmp(ID,"CHAR")==0) Error(32); //类型出错
else
{
GEN(LIT,0,NUM);
GEN(STOMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
}
}
GetSym();
break;
}
GetSym();
if (SYM==BECOMES)
{
LOOP: if(strcmp(TABLE[i].NUMKIND,"INTEGER")==0)
WNUMK=1;
GetSym();
EXPRESSION(FSYS,LEV,TX);
if (i!=0) GEN(STOMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
else Error(98);
WNUMK=0;
if(IsFUN) GEN(OPR,0,0);
}
else
if(SYM==PP) //++运算
{
GetSym();
GEN(LODMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
GEN(LIT,0,1);
GEN(OPR,0,2);
GEN(STOMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
}
else
if(SYM==PE) //+=运算
{
GEN(LODMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
if(strcmp(TABLE[i].NUMKIND,"INTEGER")==0)
WNUMK=1;
GetSym();
EXPRESSION(FSYS,LEV,TX);
WNUMK=0;
GEN(OPR,0,2);
GEN(STOMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
}
else
if(SYM==MM) //--运算
{
GetSym();
GEN(LODMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
GEN(LIT,0,1);
GEN(OPR,0,3);
GEN(STOMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
}
else
if(SYM==ME) //-=运算
{
GEN(LODMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
if(strcmp(TABLE[i].NUMKIND,"INTEGER")==0)
WNUMK=1;
GetSym();
EXPRESSION(FSYS,LEV,TX);
WNUMK=0;
GEN(OPR,0,3);
GEN(STOMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
}
else Error(13);
break;
//+++++++++++++++++++++END
case READSYM:
GetSym();
if (SYM!=LPAREN) Error(34);
else
do {
GetSym();
if (SYM==IDENT) i=POSITION(ID,TX);
else i=0;
if (i==0) Error(35);
else
{
if(TABLE[i].KIND==ARR) //如果读入到数组元素里
{
ARRGetSub(FSYS,LEV,TX);
jk=1; //存储或读取模式选1
}
if(strcmp(TABLE[i].NUMKIND,"INTEGER")==0 )
GEN(OPR,0,16); //16号运算代码为输入整型
else if( strcmp(TABLE[i].NUMKIND,"CHAR")==0)
GEN(OPR,0,20); //20号为输入字符
else GEN(OPR,0,15); //15为输入实型
GEN(STOMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
}
GetSym();
}while(SYM==COMMA);
if (SYM!=RPAREN) {
Error(33);
while (!SymIn(SYM,FSYS)) GetSym();
}
else GetSym();
break; /* READSYM */
case WRITESYM:
GetSym();
if (SYM==LPAREN) {
do {
int boolen=1;
GetSym();
if(SYM==IDENT)
{
int i=POSITION(ID,TX);
if(i!=0 && strcmp(TABLE[i].NUMKIND,"CHAR")==0)
{
if(TABLE[i].KIND==ARR) { ARRGetSub(FSYS,LEV,TX);jk=1;}
GEN(LODMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
GEN(OPR,0,19); //19号为输出字符
GetSym();
boolen=0;
}
}
if(boolen){
EXPRESSION(SymSetUnion(SymSetNew(RPAREN,COMMA),FSYS),LEV,TX);
GEN(OPR,0,14); //14号输出运算
}
}while(SYM==COMMA);
if (SYM!=RPAREN) Error(33);
else GetSym();
}
//GEN(OPR,0,15);
break; /*WRITESYM*/
//++++++++++++++++++++++++++++START IF语句的分析过程
case IFSYM: //PASCAL语法 为 IF <条件> THEN <语句> ELSE <语句>
GetSym(); //条件判断开始
CONDITION(SymSetUnion(SymSetNew(THENSYM,DOSYM),FSYS),LEV,TX);
if (SYM==THENSYM)
GetSym();
else
Error(16);
CX1=CX; //记录当前代码段到CX1后处理 THEN 后的语句
GEN(JPC,0,0);
STATEMENT(SymSetUnion(SymSetNew(SEMICOLON,ELSESYM),FSYS),LEV,TX);
if(SYM==ELSESYM) //如果后面出现ELSE
{
GetSym();
CX2=CX; //记录当前代码段到CX2
GEN(JMP,0,0);
CODE[CX1].A=CX; //回填当前代码段作为已记录CX1的JPC代码的跳转地址
STATEMENT(FSYS,LEV,TX); //ELSE后的语句
CODE[CX2].A=CX; //回填当前代码段为已记录CX2的JMP代码的跳转地址
}
else
{
CODE[CX1].A=CX; //不出现ELSE，就只回填当前代码段作为已记录CX1的JPC代码的跳转地址
}
break;
//+++++++++++++++++++++++++END */
case BEGINSYM:
GetSym();
STATEMENT(SymSetUnion(SymSetNew(SEMICOLON,ENDSYM),FSYS),LEV,TX);
while (SymIn(SYM, SymSetAdd(SEMICOLON,STATBEGSYS))) {
if (SYM==SEMICOLON) GetSym();
else Error(10);
STATEMENT(SymSetUnion(SymSetNew(SEMICOLON,ENDSYM),FSYS),LEV,TX);
}
if (SYM==ENDSYM) GetSym();
else Error(17);
break;
case WHILESYM:
CX1=CX; GetSym(); CONDITION(SymSetAdd(DOSYM,FSYS),LEV,TX);
CX2=CX; GEN(JPC,0,0);
if (SYM==DOSYM) GetSym();
else Error(18);
STATEMENT(FSYS,LEV,TX);
GEN(JMP,0,CX1);
CODE[CX2].A=CX;
break;
//+++++++++++++++START repeatsym
case REPEATSYM:
CX1=CX;
GetSym();
STATEMENT(SymSetUnion(SymSetNew(UNTILSYM),FSYS),LEV,TX);
if (SYM==UNTILSYM) GetSym();
else Error(98);
CONDITION(FSYS,LEV,TX);
GEN(JPC,0,CX1);
break;
case FORSYM: //FOR语句的处理过程
GetSym(); //PASCAL语法 FOR <变量> := <运算表达式> TO|DOWNTO <运算表达式> DO
if(SYM==IDENT)
{
i=POSITION(ID,TX);
if(i==0) Error(11);
else
{ //变量为常数或过程都出错
if(TABLE[i].KIND==CONSTANT||TABLE[i].KIND==PROCEDUR)
{
Error(12);
i=0;
}
if(TABLE[i].KIND==ARR)
{
ARRGetSub(FSYS,LEV,TX);
jk=0;
}
}//else if(i==0)
GetSym();
if(SYM==BECOMES) //变量赋初始值
{
GetSym(); //第一个运算表达式
EXPRESSION(SymSetUnion(SymSetNew(TOSYM,DOWNTOSYM),FSYS),LEV,TX);
}
if(SYM==TOSYM) //如果为TO
{
CX1=CX; //CX1记录当前代码段作为开始循环位置
GEN(STOMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //把数存进变量中
GEN(LODMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //读取此变量的数，放入栈顶
GetSym();
EXPRESSION(SymSetUnion(SymSetNew(DOSYM),FSYS),LEV,TX); //计算第二个运算表达式，放入栈顶
GEN(OPR,0,13); //判断运算是否大于
CX2=CX; GEN(JPC,0,0); //CX2记录当前代码段，用于JPC的跳转地址回填
Temp=TOSYM;
}
else if(SYM==DOWNTOSYM) //DOWNTO 类似 TO，不同处为判断预算选是否小于
{
CX1=CX;
GEN(STOMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
GEN(LODMode[jk],LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
GetSym();
EXPRESSION(SymSetUnion(SymSetNew(DOSYM),FSYS),LEV,TX);
GEN(OPR,0,11);
CX2=CX; GEN(JPC,0,0);
Temp=DOWNTOSYM;
}
else Error(19);
if(SYM==DOSYM) GetSym(); //做DO后面的<语句>
else Error(18);
STATEMENT(FSYS,LEV,TX);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -