【正文】 。else { do{a[kk]= 39。 39。kk= kk1。}while(kk k)。} strcpy(id,a)。i= 1。j= norw。// 判斷是否是關(guān)鍵字（二分搜索）do{ k=(i+j)/ 2。if(strcmp(id, word[k])j= k1。if(strcmp(id,word[k])=0)i= k+1。}while(i j)sym= wsym[k]。elsesym= IDENT。} else if(isdigit(ch))// number { k= 0。num= 0。sym= NUMBER。do{num= 10 * num + ch39。039。k= k+1。getch()。}while(isdigit(ch))。if(k nmax)error(30)。} else if(ch == 39。:39。){ getch()。if(ch == 39。=39。){sym= BECOMES。getch()。} elsesym= NUL。} else if(ch == 39。// extra stuff added to support 39。){ getch()。if(ch == 39。=39。){sym= GEQ。getch()。} elsesym= GTR。} else// end of extra stuff { sym= ssym[ch]。// 其它符號的賦值getch()。} }// 漏掉空格，讀取一個字符void PL0::getch(){ if(cc == ll){if(feof(fin)){if(sym!=PERIOD)error(25)。sourceEnd=true。return。}cc= 0。fgets(line,lineLength,fin)。codeNo++。ll=strlen(line)。if(line[ll1]==10)ll。} ch= line[cc]。cc= cc+1。}// 生成目標(biāo)代碼，并送入目標(biāo)程序區(qū)void PL0::gen(fct x,int y,int z){ if(cx cxmax){coutreturn。}code[cx].f= x。code[cx].l= y。code[cx].a= z。cx= cx+1。}//gen end// 測試當(dāng)前單詞符號是否合法void PL0::test(symset s1,symset s2,int n){ if(sourceEnd)return。if((sym)==()){error(n)。symset::iterator it。for(it=()。it!=()。it++)(*it)。//s1=s1+s2while((sym)==())getsym()。} }//test end// 分程序分析處理過程void PL0::block(int lev,int tx,symset fsys){ if(sourceEnd)return。int dx。// data allocation index int tx0。// initial table index int cx0。// initial code indexdx= 3。// 變量的個數(shù) tx0= tx。// 表指針table[tx].= cx。gen(JMP,0,0)。if(levlevmax)error(32)。do{if(sym == CONSTSYM)// 處理常量聲明{getsym()。do{constdeclaration(tx,dx,lev)。while(sym == COMMA){}getsym()。constdeclaration(tx,dx,lev)。} if(sym ==SEMICOLON)getsym()。elseerror(5)。}while(sym==IDENT)。if(sym == VARSYM)// 處理變量聲明 { getsym()。do{vardeclaration(tx,dx,lev)。while(sym == COMMA){getsym()。vardeclaration(tx,dx,lev)。}if(sym ==SEMICOLON)getsym()。elseerror(5)。}while(sym==IDENT)。} while(sym ==PROCSYM)// 處理過程的聲明 { getsym()。if(sym ==IDENT){enter(PROCEDURE,tx,dx,lev)。getsym()。} elseerror(4)。if(sym ==SEMICOLON)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。