Homework Programming Language Processor Class Really Need Help Codes Much Thanks Compilec Q43828099
homework from Programming Language Processor class.. I reallyneed help with the codes. Very much thanks!
/*************** compile.c *************/
#include “getSource.h”#ifndef TBL#define TBL#include “table.h”#endif#include “codegen.h”
#define MINERROR 3 /*縲€繧ｨ繝ｩ繝ｼ縺後％繧御ｻ･荳九↑繧牙ｮ溯｡後€€*/#define FIRSTADDR 2 /*縲€蜷�ヶ繝ｭ繝�け縺ｮ譛€蛻昴�螟画焚縺ｮ繧｢繝峨Ξ繧ｹ縲€*/
static Token token; /*縲€谺｡縺ｮ繝医�繧ｯ繝ｳ繧貞�繧後※縺翫￥縲€*/
static void block(int pIndex); /*縲€繝悶Ο繝�け縺ｮ繧ｳ繝ｳ繝代う繝ｫ縲€*//*縲€pIndex 縺ｯ縺薙�繝悶Ο繝�け縺ｮ髢｢謨ｰ蜷阪�繧､繝ｳ繝�ャ繧ｯ繧ｹ縲€*/static void constDecl(); /*縲€螳壽焚螳｣險€縺ｮ繧ｳ繝ｳ繝代う繝ｫ縲€*/static void varDecl(); /*縲€螟画焚螳｣險€縺ｮ繧ｳ繝ｳ繝代う繝ｫ縲€*/static void funcDecl(); /*縲€髢｢謨ｰ螳｣險€縺ｮ繧ｳ繝ｳ繝代う繝ｫ縲€*/static void statement(); /*縲€譁��繧ｳ繝ｳ繝代う繝ｫ縲€*/static void expression(); /*縲€蠑上�繧ｳ繝ｳ繝代う繝ｫ縲€*/static void term(); /*縲€蠑上�鬆��繧ｳ繝ｳ繝代う繝ｫ縲€*/static void factor(); /*縲€蠑上�蝗�蟄舌�繧ｳ繝ｳ繝代う繝ｫ縲€*/static void condition(); /*縲€譚｡莉ｶ蠑上�繧ｳ繝ｳ繝代う繝ｫ縲€*/static int isStBeginKey(Token t);/*縲€繝医�繧ｯ繝ｳt縺ｯ譁��蜈磯�ｭ縺ｮ繧ｭ繝ｼ縺具ｼ溘€€*/
int compile(){int i;printf(“start compilationn”);initSource(); /*縲€getSource縺ｮ蛻晄悄險ｭ螳壹€€*/token = nextToken(); /*縲€譛€蛻昴�繝医�繧ｯ繝ｳ縲€*/blockBegin(FIRSTADDR);/*縲€縺薙ｌ莉･蠕後�螳｣險€縺ｯ譁ｰ縺励＞繝悶Ο繝�け縺ｮ繧ゅ�縲€*/block(0); /*縲€0 縺ｯ繝€繝溘��井ｸｻ繝悶Ο繝�け縺ｮ髢｢謨ｰ蜷阪�縺ｪ縺�ｼ峨€€*/finalSource();i = errorN(); /*縲€繧ｨ繝ｩ繝ｼ繝｡繝�そ繝ｼ繧ｸ縺ｮ蛟区焚縲€*/if (i!=0)printf(“%d errorsn”, i);/* listCode(); */ /*縲€逶ｮ逧�さ繝ｼ繝峨�繝ｪ繧ｹ繝茨ｼ亥ｿ�ｦ√↑繧会ｼ峨€€*/return i<MINERROR;/*縲€繧ｨ繝ｩ繝ｼ繝｡繝�そ繝ｼ繧ｸ縺ｮ蛟区焚縺悟ｰ代↑縺�°縺ｩ縺�°縺ｮ蛻､螳壹€€*/}
void block(int pIndex) /*縲€pIndex縺ｯ縺薙�繝悶Ο繝�け縺ｮ髢｢謨ｰ蜷阪�繧､繝ｳ繝�ャ繧ｯ繧ｹ縲€*/{int backP;backP = genCodeV(jmp, 0);/*縲€蜀�Κ髢｢謨ｰ繧帝｣帙�雜翫☆蜻ｽ莉､縲∝ｾ後〒繝舌ャ繧ｯ繝代ャ繝√€€*/while (1) { /*縲€螳｣險€驛ｨ縺ｮ繧ｳ繝ｳ繝代う繝ｫ繧堤ｹｰ繧願ｿ斐☆縲€*/switch (token.kind){case Const: /*縲€螳壽焚螳｣險€驛ｨ縺ｮ繧ｳ繝ｳ繝代う繝ｫ縲€*/token = nextToken();constDecl(); continue;case Var: /*縲€螟画焚螳｣險€驛ｨ縺ｮ繧ｳ繝ｳ繝代う繝ｫ縲€*/token = nextToken();varDecl(); continue;case Func: /*縲€髢｢謨ｰ螳｣險€驛ｨ縺ｮ繧ｳ繝ｳ繝代う繝ｫ縲€*/token = nextToken();funcDecl(); continue;default: /*縲€縺昴ｌ莉･螟悶↑繧牙ｮ｣險€驛ｨ縺ｯ邨ゅｏ繧翫€€*/break;}break;}backPatch(backP); /*縲€蜀�Κ髢｢謨ｰ繧帝｣帙�雜翫☆蜻ｽ莉､縺ｫ繝代ャ繝√€€*/changeV(pIndex, nextCode());/*縲€縺薙�髢｢謨ｰ縺ｮ髢句ｧ狗分蝨ｰ繧剃ｿｮ豁｣縲€*/genCodeV(ict, frameL());/*縲€縺薙�繝悶Ο繝�け縺ｮ螳溯｡梧凾縺ｮ蠢�ｦ∬ｨ俶�蝓溘ｒ縺ｨ繧句多莉､縲€*/statement(); /*縲€縺薙�繝悶Ο繝�け縺ｮ荳ｻ譁�€€*/genCodeR(); /*縲€繝ｪ繧ｿ繝ｼ繝ｳ蜻ｽ莉､縲€*/blockEnd(); /*縲€繝悶Ο繝�け縺檎ｵゅ▲縺溘％縺ｨ繧稚able縺ｫ騾｣邨｡縲€*/}
void constDecl() /*縲€螳壽焚螳｣險€縺ｮ繧ｳ繝ｳ繝代う繝ｫ縲€*/{Token temp;while(1){if (token.kind==Id){setIdKind(constId); /*縲€蜊ｰ蟄励�縺溘ａ縺ｮ諠��ｱ縺ｮ繧ｻ繝�ヨ縲€*/temp = token; /*縲€蜷榊燕繧貞�繧後※縺翫￥縲€*/token = checkGet(nextToken(), Equal);/*縲€蜷榊燕縺ｮ谺｡縺ｯ”=”縺ｮ縺ｯ縺壹€€*/if (token.kind==Num)enterTconst(temp.u.id, token.u.value);/*縲€螳壽焚蜷阪→蛟､繧偵ユ繝ｼ繝悶Ν縺ｫ縲€*/elseerrorType(“number”);token = nextToken();}elseerrorMissingId();if (token.kind!=Comma){ /*縲€谺｡縺後さ繝ｳ繝槭↑繧牙ｮ壽焚螳｣險€縺檎ｶ壹￥縲€*/if (token.kind==Id){/*縲€谺｡縺悟錐蜑阪↑繧峨さ繝ｳ繝槭ｒ蠢倥ｌ縺溘％縺ｨ縺ｫ縺吶ｋ縲€*/errorInsert(Comma);continue;}elsebreak;}token = nextToken();}token = checkGet(token, Semicolon);/*縲€譛€蠕後�”;”縺ｮ縺ｯ縺壹€€*/}
void varDecl() /*縲€螟画焚螳｣險€縺ｮ繧ｳ繝ｳ繝代う繝ｫ縲€*/{while(1){if (token.kind==Id){setIdKind(varId); /*縲€蜊ｰ蟄励�縺溘ａ縺ｮ諠��ｱ縺ｮ繧ｻ繝�ヨ縲€*/enterTvar(token.u.id);/*縲€螟画焚蜷阪ｒ繝��繝悶Ν縺ｫ縲∫分蝨ｰ縺ｯtable縺梧ｱｺ繧√ｋ縲€*/token = nextToken();}elseerrorMissingId();if (token.kind!=Comma){ /*縲€谺｡縺後さ繝ｳ繝槭↑繧牙､画焚螳｣險€縺檎ｶ壹￥縲€*/if (token.kind==Id){/*縲€谺｡縺悟錐蜑阪↑繧峨さ繝ｳ繝槭ｒ蠢倥ｌ縺溘％縺ｨ縺ｫ縺吶ｋ縲€*/errorInsert(Comma);continue;}elsebreak;}token = nextToken();}token = checkGet(token, Semicolon);/*縲€譛€蠕後�”;”縺ｮ縺ｯ縺壹€€*/}
void funcDecl() /*縲€髢｢謨ｰ螳｣險€縺ｮ繧ｳ繝ｳ繝代う繝ｫ縲€*/{int fIndex;if (token.kind==Id){setIdKind(funcId); /*縲€蜊ｰ蟄励�縺溘ａ縺ｮ諠��ｱ縺ｮ繧ｻ繝�ヨ縲€*/fIndex = enterTfunc(token.u.id, nextCode());/*縲€髢｢謨ｰ蜷阪ｒ繝��繝悶Ν縺ｫ逋ｻ骭ｲ縲€*//*縲€縺昴�蜈磯�ｭ逡ｪ蝨ｰ縺ｯ縲√∪縺壹€∵ｬ｡縺ｮ繧ｳ繝ｼ繝峨�逡ｪ蝨ｰnextCode()縺ｨ縺吶ｋ縲€*/token = checkGet(nextToken(), Lparen);blockBegin(FIRSTADDR);/*縲€繝代Λ繝｡繧ｿ蜷阪�繝ｬ繝吶Ν縺ｯ髢｢謨ｰ縺ｮ繝悶Ο繝�け縺ｨ蜷後§縲€*/while(1){if (token.kind==Id){ /*縲€繝代Λ繝｡繧ｿ蜷阪′縺ゅｋ蝣ｴ蜷医€€*/setIdKind(parId); /*縲€蜊ｰ蟄励�縺溘ａ縺ｮ諠��ｱ縺ｮ繧ｻ繝�ヨ縲€*/enterTpar(token.u.id); /*縲€繝代Λ繝｡繧ｿ蜷阪ｒ繝��繝悶Ν縺ｫ逋ｻ骭ｲ縲€*/token = nextToken();}elsebreak;if (token.kind!=Comma){/*縲€谺｡縺後さ繝ｳ繝槭↑繧峨ヱ繝ｩ繝｡繧ｿ蜷阪′邯壹￥縲€*/if (token.kind==Id){ /*縲€谺｡縺悟錐蜑阪↑繧峨さ繝ｳ繝槭ｒ蠢倥ｌ縺溘％縺ｨ縺ｫ縲€*/errorInsert(Comma);continue;}elsebreak;}token = nextToken();}token = checkGet(token, Rparen); /*縲€譛€蠕後�”)”縺ｮ縺ｯ縺壹€€*/endpar(); /*縲€繝代Λ繝｡繧ｿ驛ｨ縺檎ｵゅｏ縺｣縺溘％縺ｨ繧偵ユ繝ｼ繝悶Ν縺ｫ騾｣邨｡縲€*/if (token.kind==Semicolon){errorDelete();token = nextToken();}block(fIndex);/*縲€繝悶Ο繝�け縺ｮ繧ｳ繝ｳ繝代う繝ｫ縲√◎縺ｮ髢｢謨ｰ蜷阪�繧､繝ｳ繝�ャ繧ｯ繧ｹ繧呈ｸ｡縺吶€€*/token = checkGet(token, Semicolon);/*縲€譛€蠕後�”;”縺ｮ縺ｯ縺壹€€*/} elseerrorMissingId(); /*縲€髢｢謨ｰ蜷阪′縺ｪ縺�€€*/}
void statement() /*縲€譁��繧ｳ繝ｳ繝代う繝ｫ縲€*/{int tIndex;KindT k;int backP, backP2; /*縲€繝舌ャ繧ｯ繝代ャ繝∫畑縲€*/
while(1) {switch (token.kind) {case Id: /*縲€莉｣蜈･譁��繧ｳ繝ｳ繝代う繝ｫ縲€*/tIndex = searchT(token.u.id, varId);/*縲€蟾ｦ霎ｺ縺ｮ螟画焚縺ｮ繧､繝ｳ繝�ャ繧ｯ繧ｹ縲€*/setIdKind(k=kindT(tIndex));/*縲€蜊ｰ蟄励�縺溘ａ縺ｮ諠��ｱ縺ｮ繧ｻ繝�ヨ縲€*/if (k != varId && k != parId)/*縲€螟画焚蜷阪°繝代Λ繝｡繧ｿ蜷阪�縺ｯ縺壹€€*/errorType(“var/par”);token = checkGet(nextToken(), Assign);/*縲€”:=”縺ｮ縺ｯ縺壹€€*/expression(); /*縲€蠑上�繧ｳ繝ｳ繝代う繝ｫ縲€*/genCodeT(sto, tIndex); /*縲€蟾ｦ霎ｺ縺ｸ縺ｮ莉｣蜈･蜻ｽ莉､縲€*/return;case If: /*縲€if譁��繧ｳ繝ｳ繝代う繝ｫ縲€*/token = nextToken();condition(); /*縲€譚｡莉ｶ蠑上�繧ｳ繝ｳ繝代う繝ｫ縲€*/token = checkGet(token, Then); /*縲€”then”縺ｮ縺ｯ縺壹€€*/backP = genCodeV(jpc, 0); /*縲€jpc蜻ｽ莉､縲€*/statement(); /*縲€譁��繧ｳ繝ｳ繝代う繝ｫ縲€*/backPatch(backP); /*縲€荳翫�jpc蜻ｽ莉､縺ｫ繝舌ャ繧ｯ繝代ャ繝√€€*/return;case Ret: /*縲€return譁��繧ｳ繝ｳ繝代う繝ｫ縲€*/token = nextToken();expression(); /*縲€蠑上�繧ｳ繝ｳ繝代う繝ｫ縲€*/genCodeR(); /*縲€ret蜻ｽ莉､縲€*/return;case Begin: /*縲€begin . . end譁��繧ｳ繝ｳ繝代う繝ｫ縲€*/token = nextToken();while(1){statement(); /*縲€譁��繧ｳ繝ｳ繝代う繝ｫ縲€*/while(1){if (token.kind==Semicolon){ /*縲€谺｡縺�”;”縺ｪ繧画枚縺檎ｶ壹￥縲€*/token = nextToken();break;}if (token.kind==End){ /*縲€谺｡縺憩nd縺ｪ繧臥ｵゅｊ縲€*/token = nextToken();return;}if (isStBeginKey(token)){ /*縲€谺｡縺梧枚縺ｮ蜈磯�ｭ險伜捷縺ｪ繧峨€€*/errorInsert(Semicolon); /*縲€”;”繧貞ｿ倥ｌ縺溘％縺ｨ縺ｫ縺吶ｋ縲€*/break;}errorDelete(); /*縲€縺昴ｌ莉･螟悶↑繧峨お繝ｩ繝ｼ縺ｨ縺励※隱ｭ縺ｿ謐ｨ縺ｦ繧九€€*/token = nextToken();}}case While: /*縲€while譁��繧ｳ繝ｳ繝代う繝ｫ縲€*/token = nextToken();backP2 = nextCode(); /*縲€while譁��譛€蠕後�jmp蜻ｽ莉､縺ｮ鬟帙�蜈医€€*/condition(); /*縲€譚｡莉ｶ蠑上�繧ｳ繝ｳ繝代う繝ｫ縲€*/token = checkGet(token, Do); /*縲€”do”縺ｮ縺ｯ縺壹€€*/backP = genCodeV(jpc, 0);/*縲€譚｡莉ｶ蠑上′蛛ｽ縺ｮ縺ｨ縺埼｣帙�蜃ｺ縺冕pc蜻ｽ莉､縲€*/statement(); /*縲€譁��繧ｳ繝ｳ繝代う繝ｫ縲€*/genCodeV(jmp, backP2);/*縲€while譁��蜈磯�ｭ縺ｸ縺ｮ繧ｸ繝｣繝ｳ繝怜多莉､縲€*/backPatch(backP);/*縲€蛛ｽ縺ｮ縺ｨ縺埼｣帙�蜃ｺ縺冕pc蜻ｽ莉､縺ｸ縺ｮ繝舌ャ繧ｯ繝代ャ繝√€€*/return;case Write: /*縲€write譁��繧ｳ繝ｳ繝代う繝ｫ縲€*/token = nextToken();expression(); /*縲€蠑上�繧ｳ繝ｳ繝代う繝ｫ縲€*/genCodeO(wrt); /*縲€縺昴�蛟､繧貞�蜉帙☆繧仇rt蜻ｽ莉､縲€*/return;case WriteLn: /*縲€writeln譁��繧ｳ繝ｳ繝代う繝ｫ縲€*/token = nextToken();genCodeO(wrl); /*縲€謾ｹ陦後ｒ蜃ｺ蜉帙☆繧仇rl蜻ｽ莉､縲€*/return;case End: case Semicolon: /*縲€遨ｺ譁�ｒ隱ｭ繧薙□縺薙→縺ｫ縺励※邨ゅｊ縲€*/return;default: /*縲€譁��蜈磯�ｭ縺ｮ繧ｭ繝ｼ縺ｾ縺ｧ隱ｭ縺ｿ謐ｨ縺ｦ繧九€€*/errorDelete(); /*縲€莉願ｪｭ繧薙□繝医�繧ｯ繝ｳ繧定ｪｭ縺ｿ謐ｨ縺ｦ繧九€€*/token = nextToken();continue;}}}
int isStBeginKey(Token t)/*縲€繝医�繧ｯ繝ｳt縺ｯ譁��蜈磯�ｭ縺ｮ繧ｭ繝ｼ縺具ｼ溘€€*/{switch (t.kind){case If: case Begin: case Ret:case While: case Write: case WriteLn:return 1;default:return 0;}}
void expression() /*縲€蠑上�繧ｳ繝ｳ繝代う繝ｫ縲€*/{KeyId k;k = token.kind;if (k==Plus || k==Minus){token = nextToken();term();if (k==Minus)genCodeO(neg);}elseterm();k = token.kind;while (k==Plus || k==Minus){token = nextToken();term();if (k==Minus)genCodeO(sub);elsegenCodeO(add);k = token.kind;}}
void term() /*縲€蠑上�鬆��繧ｳ繝ｳ繝代う繝ｫ縲€*/{KeyId k;factor();k = token.kind;while (k==Mult || k==Div){token = nextToken();factor();if (k==Mult)genCodeO(mul);elsegenCodeO(div);k = token.kind;}}
void factor() /*縲€蠑上�蝗�蟄舌�繧ｳ繝ｳ繝代う繝ｫ縲€*/{int tIndex, i;KeyId k;if (token.kind==Id){tIndex = searchT(token.u.id, varId);setIdKind(k=kindT(tIndex));/*縲€蜊ｰ蟄励�縺溘ａ縺ｮ諠��ｱ縺ｮ繧ｻ繝�ヨ縲€*/switch (k) {case varId: case parId: /*縲€螟画焚蜷阪°繝代Λ繝｡繧ｿ蜷阪€€*/genCodeT(lod, tIndex);token = nextToken(); break;case constId: /*縲€螳壽焚蜷阪€€*/genCodeV(lit, val(tIndex));token = nextToken(); break;case funcId: /*縲€髢｢謨ｰ蜻ｼ縺ｳ蜃ｺ縺励€€*/token = nextToken();if (token.kind==Lparen){i=0; /*縲€i縺ｯ螳溷ｼ墓焚縺ｮ蛟区焚縲€*/token = nextToken();if (token.kind != Rparen) {for (; ; ) {expression(); i++; /*縲€螳溷ｼ墓焚縺ｮ繧ｳ繝ｳ繝代う繝ｫ縲€*/if (token.kind==Comma){ /* 谺｡縺後さ繝ｳ繝槭↑繧牙ｮ溷ｼ墓焚縺檎ｶ壹￥ */token = nextToken();continue;}token = checkGet(token, Rparen);break;}} elsetoken = nextToken();if (pars(tIndex) != i)errorMessage(“#par”); /*縲€pars(tIndex)縺ｯ莉ｮ蠑墓焚縺ｮ蛟区焚縲€*/}else{errorInsert(Lparen);errorInsert(Rparen);}genCodeT(cal, tIndex); /*縲€call蜻ｽ莉､縲€*/break;}}else if (token.kind==Num){ /*縲€螳壽焚縲€*/genCodeV(lit, token.u.value);token = nextToken();}else if (token.kind==Lparen){ /*縲€縲�(縲阪€悟屏蟄舌€阪€�)縲阪€€*/token = nextToken();expression();token = checkGet(token, Rparen);}switch (token.kind){ /*縲€蝗�蟄舌�蠕後′縺ｾ縺溷屏蟄舌↑繧峨お繝ｩ繝ｼ縲€*/case Id: case Num: case Lparen:errorMissingOp();factor();default:return;}}void condition() /*縲€譚｡莉ｶ蠑上�繧ｳ繝ｳ繝代う繝ｫ縲€*/{KeyId k;if (token.kind==Odd){token = nextToken();expression();genCodeO(odd);}else{expression();k = token.kind;switch(k){case Equal: case Lss: case Gtr:case NotEq: case LssEq: case GtrEq:break;default:errorType(“rel-op”);break;}token = nextToken();expression();switch(k){case Equal: genCodeO(eq); break;case Lss: genCodeO(ls); break;case Gtr: genCodeO(gr); break;case NotEq: genCodeO(neq); break;case LssEq: genCodeO(lseq); break;case GtrEq: genCodeO(greq); break;}}}
Question 1 To introduce the following do-while statement to PL/0′, answer the following questions. Production rule statement → do statement while condition Action A statement ‘do statement while condition works as follows 1. Execute statement. 2. If the value of condition is true, go to the step 1. Otherwise, exit this loop. Question 1-1 To add a token do to a set of starting tokens of statement, modify a function isStBeginKey in compile.c and explain the modification in your report. Question 1-2 Modify a function statement in compile.c so that your PL/O compiler can output object codes of Fig.1 for do-while statements. Explain the modificaiton in your report. labell: Object codes of statement Object codes of condition jpc label2 jmp label1 label2: Figure 1: Object codes for a do-while statement Statement then statemene Statement – if condition Statement it condition (do – statemene while y condition) – Statement – repent statement then statement until a condition! Statements else statement – cardituen xhen – statement the stron Show transcribed image text Question 1 To introduce the following do-while statement to PL/0’, answer the following questions. Production rule statement → do statement while condition Action A statement ‘do statement while condition works as follows 1. Execute statement. 2. If the value of condition is true, go to the step 1. Otherwise, exit this loop. Question 1-1 To add a token do to a set of starting tokens of statement, modify a function isStBeginKey in compile.c and explain the modification in your report. Question 1-2 Modify a function statement in compile.c so that your PL/O compiler can output object codes of Fig.1 for do-while statements. Explain the modificaiton in your report. labell: Object codes of statement Object codes of condition jpc label2 jmp label1 label2: Figure 1: Object codes for a do-while statement
Statement then statemene Statement – if condition Statement it condition (do – statemene while y condition) – Statement – repent statement then statement until a condition! Statements else statement – cardituen xhen – statement the stron
Expert Answer
Answer to homework from Programming Language Processor class.. I really need help with the codes. Very much thanks! /*************…
OR