【文章內容簡介】 STSYM,VARSYM,PROCSYM,ELSESYM,REPEATSYM,UNTILSYM} symbol。// symobl類型標識了不同類型的詞匯typedef char alfa[al+1]。// alfa類型用于標識符 typedef enum {CONSTANT,VARIABLE,PROCEDURE,ARRAY} obj0。// 三種標識符的類型 typedef enum {LIT,OPR,LOD,STO,CAL,INT,JMP,JPC} fct。// functions typedef set symset。struct instruction{ fct f。// function code int l。// level,cann39。t big than levmaxint a。// displacement address,cann39。t big than amax }。// 類PCODE指令類型，包含三個字段：指令f、層差l和另一個操作數(shù)a/******************************************* * lit 0,a: load constant a* * opr 0,a: execute operation a* * lod l,a: load variable l,a* * sto l,a: store variable l,a* * cal l,a: call procedure a at level l* * int 0,a: increment tregister by a* * jmp 0,a: jump to a* * jpc 0,a: jump conditional to a* *******************************************/typedef struct{ alfa name。obj0 kind。union {struct{int level,adr,size。}inOther。int val。}other。} Table。class PL0 {protected:bool listswitch,sourceEnd。char ch。// last character read symbol sym。// last symbol read alfa id。// last identifier read int num。// last number readint cc。// character count int ll。// line length int kk,err。int cx。// code allocation index int codeNo。// code line string errStr[]。// error stringchar line[lineLength]。// code line vector errorString。// error array alfa a。// 詞法分析器中用于臨時存放正在分析的詞instruction code[cxmax+1]。// destination code arrayalfa word[norw+1]。// 保留字表symbol wsym[norw+1]。// 保留字表中每一個保留字對應的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[])?；刂穠oid 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: 過程體內語句部分的后跟符不正確“, ”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: 表達式內標識符屬性不能是過程“, ”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(s