【正文】 一個保留字對應的symbol類型symbol ssym[100]。// 一些符號對應的symbol類型表合 char mnemonic[8][6]。// 類PCODE指令助記符表symset declbegsys,statbegsys,facbegsys。// 聲明開始、表達式開始和項開始符號集 Table table[txmax+1]。// 符號表FILE* fin,*fout。public:PL0(char* source,char*destination)。~PL0(){fclose(fin),fclose(fout)。}void error(int n)。位置和出錯代碼void getsym()。個單詞void getch()。個字符void gen(fct x,int y,int z)。程序區(qū)void test(symset s1,symset s2,int n)。合法void block(int lev,int tx,symset fsys)。void enter(obj0 k,int amp。tx,int amp。dx,int lev)。int position(alfa id,int tx)。的位置void constdeclaration(intamp。tx,intamp。dx,int lev)。void vardeclaration(intamp。tx,intamp。dx,int lev)。void listcode(int cx0)。void statement(symset fsys,int tx,int lev)。void expression(symset fsys,int tx,int lev)。void term(symset fsys,int tx,int lev)。void factor(symset fsys,int tx,int lev)。void condition(symset fsys,int tx,int lev)。void arraydeclaration(intamp。 tx,intamp。 dx,int lev)。void interpret()。執(zhí)行程序int base(int l,int b,int s[])。基地址void SaveCode()。// 構造函數(shù)// 析構函數(shù)// 出錯處理，打印出錯// 詞法分析，讀取一// 漏掉空格，讀取一// 生成目標代碼，并送入目標// 測試當前單詞符號是否// 分程序分析處理過程// 登入名字表// 查找標示符在名字表中// 常量定義處理// 變量說明處理// 列出目標代碼清單// 語句部分處理// 表達式處理// 項處理// 因子處理// 條件處理// 數(shù)組說明處理// 對目標代碼的解釋// 通過靜態(tài)鏈求出數(shù)據(jù)區(qū)的 // 保存代碼}。endif ： include “”// 錯誤字符串數(shù)組string PL0::errStr[]={“,”error 0001: 常數(shù)說明中“=”寫成“：=”“, ”error 0002: 常數(shù)說明中的“=”后應為數(shù)字“, ”error 0003: 常數(shù)說明中的標識符后應是“=”“, ”error 0004: const,var,procedure后應為標識符“, ”error 0005: 漏掉了‘,’或‘?！? ”error 0006: 過程說明后的符號不正確（應是語句開始符或過程開始符）“, ”error 0007: 應是語句開始符“, ”error 0008: 過程體內(nèi)語句部分的后跟符不正確“, ”error 0009: 程序皆為丟了句號‘.’“, ”error 0010: 語句之間漏了‘?！? ”error 0011: 標識符沒說明“, ”error 0012: 賦值語句中，賦值號左部標識符屬性應是變量“, ”error 0013: 賦值語句左部標識符應是賦值號:=“, ”error 0014: call后應為標識符“, ”error 0015: call后標識符屬性應為過程“, ”error 0016: 條件語句中丟了then“, ”error 0017: 丟了end或。“, ”error 0018: while型循環(huán)語句中丟了do“, ”error 0019: 語句后的標識符不正確“, ”error 0020: 應為關系運算符“, ”error 0021: 表達式內(nèi)標識符屬性不能是過程“, ”error 0022: 表達式中漏掉了右括號‘)’“, ”error 0023: 因子后的非法符號“, ”error 0024: 表達式開始符不能是此符號“, ”error 0025: 文件在不該結束的地方結束了“, ”error 0026: 結束符出現(xiàn)在不該結束的地方“, ”error 0027: “,”error 0028: “,”error 0029: “,”error 0030: “, ”error 0031: 數(shù)越界“, ”error 0032: read語句括號中標識符不是變量“, ”error 0033: else附近錯誤“ , ”error 0034: repeat附近錯誤“}。// PL0構造函數(shù)PL0::PL0(char* source,char*destination){ listswitch=true,sourceEnd=false。strcpy(word[1],”begin“)。// 初始化存儲保留字strcpy(word[2],”call“)。strcpy(word[3],”const“)。strcpy(word[4],”do“)。strcpy(word[5],”else“)。strcpy(word[6],”end“)。strcpy(word[7],”if“)。strcpy(word[8],”odd“)。strcpy(word[9],”procedure“)。strcpy(word[10],”read“)。strcpy(word[11],”repeat“)。strcpy(word[12],”then“)。strcpy(word[13],”until“)。strcpy(word[14],”var“)。strcpy(word[15],”while“)。strcpy(word[16],”write“)。wsym[1]= BEGINSYM。wsym[2]= CALLSYM。留字對應的symbol類型wsym[3]= CONSTSYM。wsym[4]= DOSYM。wsym[5]= ELSESYM。wsym[6]= ENDSYM。wsym[7]= IFSYM。wsym[8]= ODDSYM。wsym[9]= PROCSYM。wsym[10]= READSYM。wsym[11]= REPEATSYM。wsym[12]= THENSYM。wsym[13]= UNTILSYM。wsym[14]= VARSYM。wsym[15]= WHILESYM。wsym[16]= WRITESYM。memset(code,0,sizeof(code))。memset(ssym,0,100*sizeof(symbol))。memset(table,0,sizeof(table))。memset(line,0,sizeof(line))。ssym[39。+39。]= PLUS。類型表ssym[39。39。]= MINUS。ssym[39。*39。]= TIMES。ssym[39。/39。]= SLASH。ssym[39。(39。]= LPAREN。ssym[39。)39。]= RPAREN。ssym[39。=39。]= EQL。ssym[39。,39。]= COMMA。ssym[39。.39。]= PERIOD。// 初始化保留字表中每一個保// 初始化一些符號對應的symbolssym[39。39。]= NEQ。ssym[39。39。]= GTR。ssym[39。39。]= SEMICOLON。strcpy(mnemonic[LIT],” lit “)。// 初始化類PCODE指令助記符表strcpy(mnemonic[OPR],” opr “)。strcpy(mnemonic[LOD],” lod “)。strcpy(mnemonic[STO],” sto “)。strcpy(mnemonic[CAL],” cal “)。strcpy(mnemonic[INT],” int “)。strcpy(mnemonic[JMP],” jmp “)。strcpy(mnemonic[JPC],” jpc “)。(CONSTSYM),(VARSYM),(PROCSYM)。// 初始化聲明開始符號集合 (BEGINSYM),(CALLSYM),(IFSYM),(WHILESYM)。// (IDENT),(NUMBER),(LPAREN)。// 初始化項開始符號集合err= 0。cc= 0。// 行緩沖區(qū)指針cx= 0。// 代碼分配指針，代碼生成模塊總在cx所指位置生成新的代碼ll= 0。// 行緩沖區(qū)長度ch= 39。 39。// last character read}kk= al。// 引入此變量是出于程序性能考慮 codeNo=0。// code line =fopen(source,”r“)。fout=fopen(destination,”w“)。// 出錯處理，打印出錯位置和出錯代碼 void PL0::error(int n){ char s[10]。sprintf(s,”第 %d 行:“,codeNo)。(s+errStr[n])。err= err+1。//error count }//error end // 詞法分析，讀取一個單詞void PL0::getsym(){ if(sourceEnd)return。int i,j,k。while(ch ==39。 39。||ch==9)getch()。// cls space and tab if(isalpha(ch))// id or reserved word {k=0。memset(a,0,al+1)。// 檢測一個單詞長度 do{ if(k al){a[k]= ch。k= k+1。} getch()。if(sourceEnd)return。}while(isalpha(ch)||isdigit(ch))。if(k = kk)kk = k。else { do{a[kk]= 39。 39。kk= kk1。}while(kk k)。} strcpy(id,a)。i= 1。j= norw。// 判斷是否是關鍵字（二分搜索）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。}// 生成目標代碼，并送入目標程序區(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// 測試當前單詞符號是否合法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。// 變