Diplomarbeit - Hochschule für Technik und Wirtschaft Dresden

Diplomarbeit: Modulares System Anhang
/* Nr tBg BgX Action,Next,Alt */
tBog gProgram[]=
{
/* 0 */ {BgSy,{(unsigned long)zPRG }, NULL , 1, 3}, /*(0) --'PROGRAM'--> (1)*/
/* 1 */ {BgMo,{(unsigned long)mcIdent }, NULL , 2, 0}, /*(1) ---ident-----> (2)*/
/* 2 */ {BgSy,{(unsigned long) ';' }, NULL , 3, 0}, /*(2) ----';'------> (3)*/
/* 3 */ {BgGr,{(unsigned long)gBlock }, NULL , 4, 0}, /*(3) ---block-----> (4)*/
/* 4 */ {BgSy,{(unsigned long) '.' }, Pr_04, 5, 0}, /*(4) ----'.'------> (5)*/
/* 5 */ {BgEn,{(unsigned long) 0 }, NULL , 0, 0} /*(5) ------------->(ENDE)*/
};
tBog gBlock[]=
{
/* 0 */ {BgSy,{(unsigned long)zCST }, NULL , 1, 6}, /*(0) --'CONST'--> (1)*/
/* 1 */ {BgMo,{(unsigned long)mcIdent }, Bl_01, 2, 0}, /*(1) ---ident---> (2)*/
/* 2 */ {BgSy,{(unsigned long) '=' }, NULL , 3, 0}, /*(2) ----'='----> (3)*/
/* 3 */ {BgMo,{(unsigned long)mcONumb }, Bl_03, 4, 0}, /*(3) ---o-number--> (5)*/
/* 4 */ {BgSy,{(unsigned long) ',' }, NULL , 1, 5}, /*(5) ----','----> (1)*/
/* 5 */ {BgSy,{(unsigned long) ';' }, NULL , 6, 0}, /* + ----';'----> (7)*/
/* 6 */ {BgSy,{(unsigned long)zVAR }, NULL , 7,10}, /*(6) ---'VAR'---> (7)*/
/* 7 */ {BgMo,{(unsigned long)mcIdent }, Bl_08, 8, 0}, /*(7) ---ident---> (8)*/
/* 8 */ {BgSy,{(unsigned long) ',' }, NULL , 7, 9}, /*(8) ----','----> (7)*/
/* 9 */ {BgSy,{(unsigned long) ';' }, NULL ,10, 0}, /* + ----';'---->(10)*/
/*10 */ {BgSy,{(unsigned long)zPRC }, NULL ,11,15}, /*(10)--'PROCEDURE'-->(11)*/
/*11 */ {BgMo,{(unsigned long)mcIdent }, Bl_12,12, 0}, /*(11)---ident--->(12)*/
/*12 */ {BgSy,{(unsigned long) ';' }, NULL ,13, 0}, /*(12)----';'---->(13)*/
/*13 */ {BgGr,{(unsigned long)gBlock }, NULL ,14, 0}, /*(13) --block--->(14)*/
/*14 */ {BgSy,{(unsigned long) ';' }, Bl_15,10, 0}, /*(14)----';'---->(10)*/
/*15 */ {BgSy,{(unsigned long)zFNC }, NULL ,16,20}, /*(10)--'FUNCTION'-->(11)*/
/*16 */ {BgMo,{(unsigned long)mcIdent }, Bl_17,17, 0}, /*(11)---ident--->(12)*/
/*17 */ {BgSy,{(unsigned long) ';' }, NULL ,18, 0}, /*(12)----';'---->(13)*/
/*18 */ {BgGr,{(unsigned long)gBlock }, NULL ,19, 0}, /*(13) --block--->(14)*/
/*19 */ {BgSy,{(unsigned long) ';' }, Bl_20,10, 0}, /*(14)----';'---->(10)*/
/*20 */ {BgNl,{(unsigned long) 0 }, Bl_21,21, 0}, /*(15)----nil---->(16)*/
/*21 */ {BgGr,{(unsigned long)gStatement}, NULL ,22, 0}, /*(16)-Statement->(17)*/
/*22 */ {BgEn,{(unsigned long) 0 }, NULL , 0, 0} /*(17)----------->(ENDE)*/
};
tBog gStatement[]=
{
/* 0 */ {BgMo,{(unsigned long)mcIdent },St_00, 1, 3}, /*( 0)---ident---> (1)*/
/* 1 */ {BgSy,{(unsigned long)zErg },NULL , 2, 0}, /*( 1)---':='----> (2)*/
/* 2 */ {BgGr,{(unsigned long)gExpr },St_02,31, 0}, /*( 2)--express-->(23)*/
/* 3 */ {BgSy,{(unsigned long)zCLL },NULL , 4, 5}, /*( 3)--'CALL'---> (4)*/
/* 4 */ {BgMo,{(unsigned long)mcIdent },St_04,31, 0}, /*( 4)---ident--->(23)*/
/* 5 */ {BgSy,{(unsigned long)zIF },NULL , 6,11}, /*( 5)----'IF'---> (6)*/
/* 6 */ {BgGr,{(unsigned long)gCondition},St_06, 7, 0}, /*( 6)-condition-> (7)*/
/* 7 */ {BgSy,{(unsigned long)zTHN },NULL , 8, 0}, /*( 7)---'THEN'--> (8)*/
/* 8 */ {BgGr,{(unsigned long)gStatement},St_08, 9, 0}, /*( 8)-statement-> (9)*/
/* 9 */ {BgSy,{(unsigned long)zELSE },St_09,10,31}, /*( 9)---'ELSE'-->(10)*/
/*10 */ {BgGr,{(unsigned long)gStatement},St_10,31, 0}, /*(10)-statement->(23)*/
/*11 */ {BgSy,{(unsigned long)zWHL },St_11,12,15}, /*(11)--'WHILE'-->(12)*/
/*12 */ {BgGr,{(unsigned long)gCondition},St_12,13, 0}, /*(12)-condition->(13)*/
/*13 */ {BgSy,{(unsigned long)zDO },NULL ,14, 0}, /*(13)----'DO'--->(14)*/
/*14 */ {BgGr,{(unsigned long)gStatement},St_14,31, 0}, /*(14)-statement->(23)*/
/*15 */ {BgSy,{(unsigned long)zBGN },NULL ,16,19}, /*(15)--'BEGIN'-->(16)*/
/*16 */ {BgGr,{(unsigned long)gStatement},NULL ,17,18}, /*(16)-statement->(17)*/
/*17 */ {BgSy,{(unsigned long)';' },NULL ,16, 0}, /*(17)----';'---->(16)*/
/*18 */ {BgSy,{(unsigned long)zEND },NULL ,31, 0}, /*(18)---'END'--->(23)*/
/*19 */ {BgSy,{(unsigned long)'?' },NULL ,20,21}, /*(19)----'?'---->(20)*/
/*20 */ {BgMo,{(unsigned long)mcIdent },St_20,31, 0}, /*(20)---ident--->(23)*/
/*21 */ {BgSy,{(unsigned long)'!' },NULL ,22,23}, /*(21)----'!'---->(22)*/
/*22 */ {BgGr,{(unsigned long)gExpr },St_22,31, 0}, /*(22)--express-->(23)*/
/*23 */ {BgSy,{(unsigned long)zPUT },NULL ,24, 0}, /*(21)----'Put'---->(22)*/
/*24 */ {BgSy,{(unsigned long) '(' },NULL ,25, 0}, /* + ----'('----> (1)*/
/*25 */ {BgGr,{(unsigned long) gExpr },NULL ,26, 0}, /*(1) --express--> (2)*/
/*26 */ {BgSy,{(unsigned long) ',' },NULL ,27, 0}, /* + ----','----> (1)*/
/*27 */ {BgGr,{(unsigned long) gExpr },NULL ,28, 0}, /*(1) --express--> (2)*/
/*28 */ {BgSy,{(unsigned long) ',' },NULL ,29, 0}, /* + ----','----> (1)*/
/*29 */ {BgGr,{(unsigned long) gExpr },NULL ,30, 0}, /*(1) --express--> (2)*/
/*30 */ {BgSy,{(unsigned long) ')' },St_30,31, 0}, /*(2) ----')'----> (3)*/
/*31 */ {BgEn,{(unsigned long)0 },NULL , 0, 0} /*(23)--------->(ENDE)*/
};
26.07.2004 Seite 74 von 85