【正文】 MICOLON)getsym()。elseerror(5)。symset tmp = fsys。(SEMICOLON)。block(lev+1,tx,tmp)。if(sym == SEMICOLON){getsym()。symset tmp = statbegsys。for(int i= IDENT。i((symbol)i)。test(tmp,fsys,6)。}elseerror(5)。}symset tmp=statbegsys。(IDENT)。test(tmp,declbegsys,7)。}while((sym)!=())。code[table[tx0].].a= cx。table[tx0].= cx。// start adr of code table[tx0].=dx。cx0= cx。gen(INT,0,dx)。symset tmp=statbegsys。for(int i=SEMICOLON。i ((symbol)i)。statement(tmp,tx,lev)。gen(OPR,0,0)。// return symset s2。test(fsys,s2,8)。listcode(cx0)。}// block end// 登入名字表void PL0::enter(obj0 k,int amp。tx,int amp。dx,int lev){ tx= tx+1。strcpy(table[tx].name,id)。table[tx].kind=k。switch(k){ case CONSTANT:if(numamax){error(31)。num=0。}table[tx].=num。break。case VARIABLE:table[tx].=lev。table[tx].=dx。dx++。break。case PROCEDURE:table[tx].=lev。break。case ARRAY:table[tx]. = lev。break。} }//enter end// 查找標(biāo)示符在名字表中的位置int PL0::position(alfa id,int tx)//find identifier id in table { int i。strcpy(table[0].name, id)。i= tx。while(strcmp(table[i].name,id)!=0)i。return i。}//position end// 常量定義處理void PL0::constdeclaration(intamp。tx,intamp。dx,int lev){ if(sym == IDENT){getsym()。if(sym=EQLamp。amp。sym{if(sym ==BECOMES)error(1)。getsym()。if(sym == NUMBER){enter(CONSTANT,tx,dx,lev)。getsym()。}elseerror(2)。}elseerror(3)。} elseerror(4)。}// constdeclaration end// 變量說明處理void PL0::vardeclaration(intamp。tx,intamp。dx,int lev){ if(sym == IDENT){enter(VARIABLE,tx,dx,lev)。getsym()。} elseerror(4)。}//vardeclaration end// 數(shù)組說明處理void PL0::arraydeclaration(intamp。tx,intamp。dx,int lev){int upscript=0,downscript=0。getsym()。if(sym == NUMBER || sym == CONSTSYM){if(num == 0){upscript = num。getsym()。}elseerror(32)。} if(sym == COMMA)getsym()。elseerror(32)。if(sym == NUMBER || sym == CONSTSYM){downscript = num。getsym()。} if(sym!= RPAREN)} error(32)。else { enter(ARRAY,tx,dx,downscript+1)。getsym()。} // 列出目標(biāo)代碼清單void PL0::listcode(int cx0)//list code generated for this block { int i。if(listswitch)for(i= cx0。icout// 語句部分處理void PL0::statement(symset fsys,int tx,int lev){ if(sourceEnd)return。int i,cx1,cx2。if(sym ==IDENT){i= position(id,tx)。if(i == 0)error(11)。else if(table[i].kind!=VARIABLE){error(12)。i= 0。}getsym()。if(sym ==BECOMES)getsym()。elseerror(13)。expression(fsys,tx,lev)。if(sym!= SEMICOLON)error(10)。if(i!= 0)gen(STO,levtable[i].,table[i].)。} else if(sym == READSYM){ getsym()。if(sym!=LPAREN)error(34)。elsedo{getsym()。if(sym==IDENT)i=position(id,tx)。elsei=0。if(i==0)error(35)。else{gen(OPR,0,16)。gen(STO,levtable[i].,table[i].)。}getsym()。}while(sym == COMMA)。if(sym!= RPAREN){error(33)。while((sym)!=())getsym()。}elsegetsym()。} else if(sym == WRITESYM){ getsym()。if(sym==LPAREN){do{getsym()。symset tmp=fsys。for(int t=RPAREN。t((symbol)t)。expression(tmp,tx,lev)。gen(OPR,0,14)。}while(sym==COMMA)。if(sym!=RPAREN)error(33)。elsegetsym()。} gen(OPR,0,15)。} else if(sym ==CALLSYM){ getsym()。if(sym!=IDENT)error(14)。else {i= position(id,tx)。if(i == 0)error(11)。else if(table[i].kind = PROCEDURE)gen(CAL,levtable[i].,table[i].)。elseerror(15)。getsym()。} } else if(sym ==IFSYM){ getsym()。symset tmp=fsys。for(int i = THENSYM。i((symbol)i)。condition(tmp,tx,lev)。if(sym == THENSYM)getsym()。elseerror(16)。cx1= cx。gen(JPC,0,0)。(ELSESYM)。statement(tmp,tx,lev)。getsym()。code[cx1].a= cx。if(sym == ELSESYM){getsym()。cx2=cx。gen(JMP,0,0)。code[cx1].a=cx。statement(fsys,tx,lev)。code[cx2].a=cx。} } else if(sym ==BEGINSYM){ getsym()。symset tmp=fsys。for(int i=SEMICOLON。i((symbol)i)。statement(tmp,tx,lev)。tmp=statbegsys。(SEMICOLON)。while((sym)!=()){if(sourceEnd)return。if(sym ==SEMICOLON||sym ==ENDSYM)getsym()。else if(sym=PERIOD){error(26)。getsym()。}elseerror(10)。tmp=fsys。for(i=SEMICOLON。i((symbol)i)。if(sourceEnd)return。if(sym==ENDSYM)break。statement(tmp,tx,lev)。} if(sym ==ENDSYM)getsym()。else if(!sourceEnd)error(17)。} else if(sym ==WHILESYM){ cx1= cx。// 記下當(dāng)前代碼分配位置，這是while循環(huán)的開始位置getsym()。symset tmp=fsys。(DOSYM)。condition(tmp,tx,lev)。cx2= cx。// 記下當(dāng)前代碼分配位置，這是while的do中的語句的開始位置gen(JPC,0,0)。if(sym ==DOSYM)getsym()。elseerror(18)。statement(fsys,tx,lev)。gen(JMP,0,cx1)。code[cx2].a= cx。} else if(sym == REPEATSYM){symset temp1, temp2。temp1= fsys,(SEMICOLON),(UNTILSYM)。cx1= cx。getsym()。statement(temp1,tx,lev)。temp2 = statbegsys。(SEMICOLON)。while((sym)!= ()){if(sym == SEMICOLON)getsym()。elseerror(34)。statement(temp1,tx,lev)。}if(sym == UNTILSYM){getsym()。condition(fsys,tx,lev)。gen(JPC,0,cx1)。}elseerror(34)。} symset setT。test(fsys,setT,19)。}//statement end// 表達(dá)式處理void PL0::expression(symset fsys,int tx,int lev){ symbol addop。symset tmp=fsys。for(int t=PLUS。t((symbol)t)。if(sym=PLUSamp。amp。symaddop= sym。getsym()。term(tmp,tx,lev)。if(addop ==MINUS)gen(OPR,0,1)。} elseterm(tmp,tx,lev)。while(sym =PLUSamp。amp。symaddop= sym。getsym()。term(tmp,tx,lev)。if(addop ==PLUS)gen(OPR,0,2)。elsegen(OPR,0,3)。} }// expression end// 項(xiàng)處理void PL0::term(symset fsys,int tx,int lev){ if(sourceEnd)return。symbol mulop。symset tmp=fsys。for(int t=TIMES。t((symbol)t)。factor(tmp,tx,lev)。while(sym=TIMES amp。amp。 symmulop= sym。getsym()。factor(tmp,tx,lev)。if(mulop ==TIMES)gen(OPR,0,4)。elsegen(OPR,0,5)。} }// term end// 因子處理void PL0:: factor(symset fsys,int tx,int lev){ int i。test(facbegsys,fsys,24)。while((sym)!=()){if(sym ==IDENT){i= position(id,tx)。if(i == 0)error(11)。elseswitch(table[i].kind){case CONSTANT:gen(LIT,0,table[i].)。break。case VARIABLE:gen(LOD,levtable[i].,table[i].)。break。case PROCEDURE:error(21)。break。}getsym()。}else if(sym ==NUMBER){if(numamax){error(31)。num= 0。}gen(LIT,0,num)。getsym()。}else if(sym ==LPAREN){getsym()。symset tmp=fsys。(RPAREN)。expression(tmp,tx,lev)。if(sym == R