#include "perms.h" // 1 %begin #line 1 "regression-compile-tmp/precedence-rainer.imp" int main(int argc, char **argv) { __label__ _imp_endofblock; _imp_initialise(argc, argv); // 2 %realfn eval {evaluate sub-expression} _imp_current_line = 2; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 2 "regression-compile-tmp/precedence-rainer.imp" float EVAL( void ) #line 2 "regression-compile-tmp/precedence-rainer.imp" { __label__ _imp_endofblock; // 3 %routinespec pushopd(%real val) _imp_current_line = 3; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 3 "regression-compile-tmp/precedence-rainer.imp" auto void PUSHOPD( float VAL ); // 4 %routinespec pushop(%integer op) _imp_current_line = 4; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 4 "regression-compile-tmp/precedence-rainer.imp" auto void PUSHOP( int OP ); // 5 %realfnspec popopd _imp_current_line = 5; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 5 "regression-compile-tmp/precedence-rainer.imp" auto float POPOPD( void ); // 6 %integerfnspec popop _imp_current_line = 6; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 6 "regression-compile-tmp/precedence-rainer.imp" auto int POPOP( void ); // 7 %realfnspec nextopd _imp_current_line = 7; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 7 "regression-compile-tmp/precedence-rainer.imp" auto float NEXTOPD( void ); // 8 %integerfnspec nextop _imp_current_line = 8; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 8 "regression-compile-tmp/precedence-rainer.imp" auto int NEXTOP( void ); // 9 %routinespec operate _imp_current_line = 9; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 9 "regression-compile-tmp/precedence-rainer.imp" auto void OPERATE( void ); // 10 %constinteger plus=1,minus=2,times=3,divide=4,exp=5,assign=6,end=7,space=' ' _imp_current_line = 10; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; // 11 %constintegerarray prec(plus:assign)=1,1,2,2,3,0 _imp_current_line = 11; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 11 "regression-compile-tmp/precedence-rainer.imp" const int PREC[6] = { 1, 1, 2, 2, 3, 0, }; // 12 %realarray opds(0:4) {operand stack} _imp_current_line = 12; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 12 "regression-compile-tmp/precedence-rainer.imp" float OPDS[5]; // 13 %integerarray ops(0:3) {operator stack} _imp_current_line = 13; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 13 "regression-compile-tmp/precedence-rainer.imp" int OPS[4]; // 14 %ownrealarray vars('a':'z')=0(*) _imp_current_line = 14; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 14 "regression-compile-tmp/precedence-rainer.imp" static float VARS[26] = { [0 ... 25] = 0 }; // 15 %ownintegerarray vara('a':'z')=0(*) _imp_current_line = 15; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 15 "regression-compile-tmp/precedence-rainer.imp" static int VARA[26] = { [0 ... 25] = 0 }; // 16 %integer op,opdsp,opsp,var _imp_current_line = 16; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 16 "regression-compile-tmp/precedence-rainer.imp" int OP; #line 16 "regression-compile-tmp/precedence-rainer.imp" int OPDSP; #line 16 "regression-compile-tmp/precedence-rainer.imp" int OPSP; #line 16 "regression-compile-tmp/precedence-rainer.imp" int VAR; // 17 opdsp=0 ; opsp=0 {init stack pointers} _imp_current_line = 17; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 17 "regression-compile-tmp/precedence-rainer.imp" OPDSP = 0; _imp_current_line = 17; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 17 "regression-compile-tmp/precedence-rainer.imp" OPSP = 0; // 18 pushopd(nextopd) {first operand} _imp_current_line = 18; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 18 "regression-compile-tmp/precedence-rainer.imp" PUSHOPD(NEXTOPD()); // 19 %cycle {for each operator} _imp_current_line = 19; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 19 "regression-compile-tmp/precedence-rainer.imp" L_0002:; // 20 op=nextop _imp_current_line = 20; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 20 "regression-compile-tmp/precedence-rainer.imp" OP = NEXTOP(); // 21 %if op=end %then %exit _imp_current_line = 21; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 21 "regression-compile-tmp/precedence-rainer.imp" if (((OP) != (7))) goto L_0005; #line 21 "regression-compile-tmp/precedence-rainer.imp" goto L_0003; #line 21 "regression-compile-tmp/precedence-rainer.imp" L_0005:; // 22 operate %while opsp>0 %and prec(ops(opsp))>=prec(op) _imp_current_line = 22; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 22 "regression-compile-tmp/precedence-rainer.imp" L_0006:; #line 22 "regression-compile-tmp/precedence-rainer.imp" if (((OPSP) <= (0))) goto L_0007; #line 22 "regression-compile-tmp/precedence-rainer.imp" if ((((PREC-1)[OPS[OPSP]]) < ((PREC-1)[OP]))) goto L_0007; #line 22 "regression-compile-tmp/precedence-rainer.imp" OPERATE(); #line 22 "regression-compile-tmp/precedence-rainer.imp" goto L_0006; #line 22 "regression-compile-tmp/precedence-rainer.imp" L_0007:; // 23 %if op=assign %then %start _imp_current_line = 23; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 23 "regression-compile-tmp/precedence-rainer.imp" if (((OP) != (6))) goto L_0009; // 24 read symbol(var) _imp_current_line = 24; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 24 "regression-compile-tmp/precedence-rainer.imp" _imp_READSYMBOL(&VAR); // 25 %unless 'a'<=var<='z' %or 'A'<=var<='Z' %then print symbol(var) %c _imp_current_line = 25; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 25 "regression-compile-tmp/precedence-rainer.imp" if ((((97) > (VAR))) || (((VAR) <= (122)))) goto L_000b; #line 25 "regression-compile-tmp/precedence-rainer.imp" L_000a:; #line 25 "regression-compile-tmp/precedence-rainer.imp" if ((((65) > (VAR))) || (((VAR) <= (90)))) goto L_000b; #line 25 "regression-compile-tmp/precedence-rainer.imp" L_000c:; #line 25 "regression-compile-tmp/precedence-rainer.imp" _imp_PRINTSYMBOL(VAR); #line 25 "regression-compile-tmp/precedence-rainer.imp" _imp_PRINTSTRING(_imp_str_literal(" variable")); #line 25 "regression-compile-tmp/precedence-rainer.imp" _imp_signal(15, 0, 0, ""); #line 25 "regression-compile-tmp/precedence-rainer.imp" L_000b:; // 26 %and print string(" variable") %and %signal 15 // 27 %if 'A'<=var<='Z' %then var=var-'A'+'a' _imp_current_line = 27; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 27 "regression-compile-tmp/precedence-rainer.imp" if ((((65) > (VAR))) || (((VAR) > (90)))) goto L_000d; #line 27 "regression-compile-tmp/precedence-rainer.imp" VAR = (((int)((((int)(VAR)) - (65)))) + (97)); #line 27 "regression-compile-tmp/precedence-rainer.imp" L_000d:; // 28 vars(var)=opds(opdsp) _imp_current_line = 28; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 28 "regression-compile-tmp/precedence-rainer.imp" (VARS-97)[VAR] = OPDS[OPDSP]; // 29 vara(var)=1 {assigned} _imp_current_line = 29; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 29 "regression-compile-tmp/precedence-rainer.imp" (VARA-97)[VAR] = 1; // 30 %continue _imp_current_line = 30; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 30 "regression-compile-tmp/precedence-rainer.imp" goto L_0004; // 31 %finish _imp_current_line = 31; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 31 "regression-compile-tmp/precedence-rainer.imp" L_0009:; // 32 pushop(op) _imp_current_line = 32; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 32 "regression-compile-tmp/precedence-rainer.imp" PUSHOP(OP); // 33 pushopd(nextopd) _imp_current_line = 33; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 33 "regression-compile-tmp/precedence-rainer.imp" PUSHOPD(NEXTOPD()); // 34 %repeat _imp_current_line = 34; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 34 "regression-compile-tmp/precedence-rainer.imp" L_0004:; #line 34 "regression-compile-tmp/precedence-rainer.imp" goto L_0002; #line 34 "regression-compile-tmp/precedence-rainer.imp" L_0003:; // 35 operate %while opsp>0 _imp_current_line = 35; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 35 "regression-compile-tmp/precedence-rainer.imp" L_000e:; #line 35 "regression-compile-tmp/precedence-rainer.imp" if (((OPSP) <= (0))) goto L_000f; #line 35 "regression-compile-tmp/precedence-rainer.imp" OPERATE(); #line 35 "regression-compile-tmp/precedence-rainer.imp" goto L_000e; #line 35 "regression-compile-tmp/precedence-rainer.imp" L_000f:; // 36 %result=popopd _imp_current_line = 36; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 36 "regression-compile-tmp/precedence-rainer.imp" return POPOPD(); // 37 ! // 38 %routine pushopd(%real val) _imp_current_line = 38; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 38 "regression-compile-tmp/precedence-rainer.imp" void PUSHOPD( float VAL ) #line 38 "regression-compile-tmp/precedence-rainer.imp" { __label__ _imp_endofblock; // 39 opdsp=opdsp+1 _imp_current_line = 39; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 39 "regression-compile-tmp/precedence-rainer.imp" OPDSP = (((int)(OPDSP)) + (1)); // 40 opds(opdsp)=val _imp_current_line = 40; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 40 "regression-compile-tmp/precedence-rainer.imp" OPDS[OPDSP] = VAL; // 41 %end _imp_current_line = 41; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 41 "regression-compile-tmp/precedence-rainer.imp" return; _imp_endofblock: ; } // End of block PUSHOPD at level 3 // 42 ! // 43 %routine pushop(%integer op) _imp_current_line = 43; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 43 "regression-compile-tmp/precedence-rainer.imp" void PUSHOP( int OP ) #line 43 "regression-compile-tmp/precedence-rainer.imp" { __label__ _imp_endofblock; // 44 opsp=opsp+1 _imp_current_line = 44; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 44 "regression-compile-tmp/precedence-rainer.imp" OPSP = (((int)(OPSP)) + (1)); // 45 ops(opsp)=op _imp_current_line = 45; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 45 "regression-compile-tmp/precedence-rainer.imp" OPS[OPSP] = OP; // 46 %end _imp_current_line = 46; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 46 "regression-compile-tmp/precedence-rainer.imp" return; _imp_endofblock: ; } // End of block PUSHOP at level 3 // 47 ! // 48 %realfn popopd _imp_current_line = 48; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 48 "regression-compile-tmp/precedence-rainer.imp" float POPOPD( void ) #line 48 "regression-compile-tmp/precedence-rainer.imp" { __label__ _imp_endofblock; // 49 %real val _imp_current_line = 49; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 49 "regression-compile-tmp/precedence-rainer.imp" float VAL; // 50 val=opds(opdsp) _imp_current_line = 50; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 50 "regression-compile-tmp/precedence-rainer.imp" VAL = OPDS[OPDSP]; // 51 opdsp=opdsp-1 _imp_current_line = 51; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 51 "regression-compile-tmp/precedence-rainer.imp" OPDSP = (((int)(OPDSP)) - (1)); // 52 %result=val _imp_current_line = 52; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 52 "regression-compile-tmp/precedence-rainer.imp" return VAL; // 53 %end _imp_current_line = 53; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 53 "regression-compile-tmp/precedence-rainer.imp" _imp_endofblock: ; } // End of block POPOPD at level 3 // 54 ! // 55 %integerfn popop _imp_current_line = 55; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 55 "regression-compile-tmp/precedence-rainer.imp" int POPOP( void ) #line 55 "regression-compile-tmp/precedence-rainer.imp" { __label__ _imp_endofblock; // 56 %integer op _imp_current_line = 56; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 56 "regression-compile-tmp/precedence-rainer.imp" int OP; // 57 op=ops(opsp) _imp_current_line = 57; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 57 "regression-compile-tmp/precedence-rainer.imp" OP = OPS[OPSP]; // 58 opsp=opsp-1 _imp_current_line = 58; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 58 "regression-compile-tmp/precedence-rainer.imp" OPSP = (((int)(OPSP)) - (1)); // 59 %result=op _imp_current_line = 59; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 59 "regression-compile-tmp/precedence-rainer.imp" return OP; // 60 %end _imp_current_line = 60; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 60 "regression-compile-tmp/precedence-rainer.imp" _imp_endofblock: ; } // End of block POPOP at level 3 // 61 ! // 62 %realfn nextopd _imp_current_line = 62; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 62 "regression-compile-tmp/precedence-rainer.imp" float NEXTOPD( void ) #line 62 "regression-compile-tmp/precedence-rainer.imp" { __label__ _imp_endofblock; // 63 %integer var _imp_current_line = 63; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 63 "regression-compile-tmp/precedence-rainer.imp" int VAR; // 64 %real opd _imp_current_line = 64; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 64 "regression-compile-tmp/precedence-rainer.imp" float OPD; // 65 skip symbol %while next symbol=space %or next symbol=nl _imp_current_line = 65; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 65 "regression-compile-tmp/precedence-rainer.imp" L_0011:; #line 65 "regression-compile-tmp/precedence-rainer.imp" if (((_imp_NEXTSYMBOL()) == (32))) goto L_0013; #line 65 "regression-compile-tmp/precedence-rainer.imp" if (((_imp_NEXTSYMBOL()) != (10))) goto L_0012; #line 65 "regression-compile-tmp/precedence-rainer.imp" L_0013:; #line 65 "regression-compile-tmp/precedence-rainer.imp" _imp_SKIPSYMBOL(); #line 65 "regression-compile-tmp/precedence-rainer.imp" goto L_0011; #line 65 "regression-compile-tmp/precedence-rainer.imp" L_0012:; // 66 %if '0'<=next symbol<='9' %or next symbol='-' %or next symbol='.' %c _imp_current_line = 66; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 66 "regression-compile-tmp/precedence-rainer.imp" if (({int tmp1 = 48, tmp2 = _imp_NEXTSYMBOL(), tmp3 = 57; (tmp1 > tmp2) || (tmp2 <= tmp3);})) goto L_0015; #line 66 "regression-compile-tmp/precedence-rainer.imp" L_0014:; #line 66 "regression-compile-tmp/precedence-rainer.imp" if (((_imp_NEXTSYMBOL()) == (45))) goto L_0015; #line 66 "regression-compile-tmp/precedence-rainer.imp" if (((_imp_NEXTSYMBOL()) != (46))) goto L_0016; #line 66 "regression-compile-tmp/precedence-rainer.imp" L_0015:; #line 66 "regression-compile-tmp/precedence-rainer.imp" _imp_READ(&OPD); #line 66 "regression-compile-tmp/precedence-rainer.imp" return OPD; #line 66 "regression-compile-tmp/precedence-rainer.imp" L_0016:; // 67 %then read(opd) %and %result=opd // 68 %if next symbol='(' %then skip symbol %and %result=eval _imp_current_line = 68; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 68 "regression-compile-tmp/precedence-rainer.imp" if (((_imp_NEXTSYMBOL()) != (40))) goto L_0017; #line 68 "regression-compile-tmp/precedence-rainer.imp" _imp_SKIPSYMBOL(); #line 68 "regression-compile-tmp/precedence-rainer.imp" return EVAL(); #line 68 "regression-compile-tmp/precedence-rainer.imp" L_0017:; // 69 %if 'a'<=next symbol<='z' %or 'A'<=next symbol<='Z' %then %start _imp_current_line = 69; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 69 "regression-compile-tmp/precedence-rainer.imp" if (({int tmp1 = 97, tmp2 = _imp_NEXTSYMBOL(), tmp3 = 122; (tmp1 > tmp2) || (tmp2 <= tmp3);})) goto L_0019; #line 69 "regression-compile-tmp/precedence-rainer.imp" L_0018:; #line 69 "regression-compile-tmp/precedence-rainer.imp" if (({int tmp1 = 65, tmp2 = _imp_NEXTSYMBOL(), tmp3 = 90; (tmp1 > tmp2) || (tmp2 > tmp3);})) goto L_001a; #line 69 "regression-compile-tmp/precedence-rainer.imp" L_0019:; // 70 read symbol(var) _imp_current_line = 70; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 70 "regression-compile-tmp/precedence-rainer.imp" _imp_READSYMBOL(&VAR); // 71 %if 'A'<=var<='Z' %then var=var-'A'+'a' _imp_current_line = 71; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 71 "regression-compile-tmp/precedence-rainer.imp" if ((((65) > (VAR))) || (((VAR) > (90)))) goto L_001b; #line 71 "regression-compile-tmp/precedence-rainer.imp" VAR = (((int)((((int)(VAR)) - (65)))) + (97)); #line 71 "regression-compile-tmp/precedence-rainer.imp" L_001b:; // 72 %if vara(var)=0 %then print symbol(var) %and %c _imp_current_line = 72; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 72 "regression-compile-tmp/precedence-rainer.imp" if ((((VARA-97)[VAR]) != (0))) goto L_001c; #line 72 "regression-compile-tmp/precedence-rainer.imp" _imp_PRINTSYMBOL(VAR); #line 72 "regression-compile-tmp/precedence-rainer.imp" _imp_PRINTSTRING(_imp_str_literal(" unassigned")); #line 72 "regression-compile-tmp/precedence-rainer.imp" _imp_signal(15, 0, 0, ""); #line 72 "regression-compile-tmp/precedence-rainer.imp" L_001c:; // 73 print string(" unassigned") %and %signal 15 // 74 %result=vars(var) _imp_current_line = 74; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 74 "regression-compile-tmp/precedence-rainer.imp" return (VARS-97)[VAR]; // 75 %finish _imp_current_line = 75; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 75 "regression-compile-tmp/precedence-rainer.imp" L_001a:; // 76 read symbol(var) _imp_current_line = 76; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 76 "regression-compile-tmp/precedence-rainer.imp" _imp_READSYMBOL(&VAR); // 77 print symbol(var) _imp_current_line = 77; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 77 "regression-compile-tmp/precedence-rainer.imp" _imp_PRINTSYMBOL(VAR); // 78 print string(" operand") _imp_current_line = 78; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 78 "regression-compile-tmp/precedence-rainer.imp" _imp_PRINTSTRING(_imp_str_literal(" operand")); // 79 %signal 15 _imp_current_line = 79; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 79 "regression-compile-tmp/precedence-rainer.imp" _imp_signal(15, 0, 0, ""); // 80 %end _imp_current_line = 80; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 80 "regression-compile-tmp/precedence-rainer.imp" /*_imp_signal(8, 4, 0, "");*/ fprintf(stderr, "%%RESULT missing in %s in file %s:%d\n", __PRETTY_FUNCTION__, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); _imp_endofblock: ; } // End of block NEXTOPD at level 3 // 81 ! // 82 %integerfn nextop _imp_current_line = 82; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 82 "regression-compile-tmp/precedence-rainer.imp" int NEXTOP( void ) #line 82 "regression-compile-tmp/precedence-rainer.imp" { __label__ _imp_endofblock; // 83 %integer sym _imp_current_line = 83; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 83 "regression-compile-tmp/precedence-rainer.imp" int SYM; // 84 skip symbol %while next symbol=space _imp_current_line = 84; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 84 "regression-compile-tmp/precedence-rainer.imp" L_001d:; #line 84 "regression-compile-tmp/precedence-rainer.imp" if (((_imp_NEXTSYMBOL()) != (32))) goto L_001e; #line 84 "regression-compile-tmp/precedence-rainer.imp" _imp_SKIPSYMBOL(); #line 84 "regression-compile-tmp/precedence-rainer.imp" goto L_001d; #line 84 "regression-compile-tmp/precedence-rainer.imp" L_001e:; // 85 read symbol(sym) _imp_current_line = 85; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 85 "regression-compile-tmp/precedence-rainer.imp" _imp_READSYMBOL(&SYM); // 86 %if sym='+' %then %result=plus _imp_current_line = 86; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 86 "regression-compile-tmp/precedence-rainer.imp" if (((SYM) != (43))) goto L_0020; #line 86 "regression-compile-tmp/precedence-rainer.imp" return 1; #line 86 "regression-compile-tmp/precedence-rainer.imp" L_0020:; // 87 %if sym='-' %then %result=minus _imp_current_line = 87; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 87 "regression-compile-tmp/precedence-rainer.imp" if (((SYM) != (45))) goto L_0021; #line 87 "regression-compile-tmp/precedence-rainer.imp" return 2; #line 87 "regression-compile-tmp/precedence-rainer.imp" L_0021:; // 88 %if sym='*' %then %result=times _imp_current_line = 88; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 88 "regression-compile-tmp/precedence-rainer.imp" if (((SYM) != (42))) goto L_0022; #line 88 "regression-compile-tmp/precedence-rainer.imp" return 3; #line 88 "regression-compile-tmp/precedence-rainer.imp" L_0022:; // 89 %if sym='/' %then %result=divide _imp_current_line = 89; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 89 "regression-compile-tmp/precedence-rainer.imp" if (((SYM) != (47))) goto L_0023; #line 89 "regression-compile-tmp/precedence-rainer.imp" return 4; #line 89 "regression-compile-tmp/precedence-rainer.imp" L_0023:; // 90 %if sym='^' %then %result=exp _imp_current_line = 90; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 90 "regression-compile-tmp/precedence-rainer.imp" if (((SYM) != (94))) goto L_0024; #line 90 "regression-compile-tmp/precedence-rainer.imp" return 5; #line 90 "regression-compile-tmp/precedence-rainer.imp" L_0024:; // 91 %if sym=':' %then %result=assign _imp_current_line = 91; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 91 "regression-compile-tmp/precedence-rainer.imp" if (((SYM) != (58))) goto L_0025; #line 91 "regression-compile-tmp/precedence-rainer.imp" return 6; #line 91 "regression-compile-tmp/precedence-rainer.imp" L_0025:; // 92 %if sym=')' %or sym=nl %then %result=end _imp_current_line = 92; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 92 "regression-compile-tmp/precedence-rainer.imp" if (((SYM) == (41))) goto L_001f; #line 92 "regression-compile-tmp/precedence-rainer.imp" if (((SYM) != (10))) goto L_0026; #line 92 "regression-compile-tmp/precedence-rainer.imp" L_001f:; #line 92 "regression-compile-tmp/precedence-rainer.imp" return 7; #line 92 "regression-compile-tmp/precedence-rainer.imp" L_0026:; // 93 print symbol(sym) _imp_current_line = 93; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 93 "regression-compile-tmp/precedence-rainer.imp" _imp_PRINTSYMBOL(SYM); // 94 print string(" operator") _imp_current_line = 94; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 94 "regression-compile-tmp/precedence-rainer.imp" _imp_PRINTSTRING(_imp_str_literal(" operator")); // 95 %signal 15 _imp_current_line = 95; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 95 "regression-compile-tmp/precedence-rainer.imp" _imp_signal(15, 0, 0, ""); // 96 %end _imp_current_line = 96; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 96 "regression-compile-tmp/precedence-rainer.imp" /*_imp_signal(8, 4, 0, "");*/ fprintf(stderr, "%%RESULT missing in %s in file %s:%d\n", __PRETTY_FUNCTION__, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); _imp_endofblock: ; } // End of block NEXTOP at level 3 // 97 ! // 98 %routine operate _imp_current_line = 98; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 98 "regression-compile-tmp/precedence-rainer.imp" void OPERATE( void ) #line 98 "regression-compile-tmp/precedence-rainer.imp" { __label__ _imp_endofblock; // 99 %real opd1,opd2 _imp_current_line = 99; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 99 "regression-compile-tmp/precedence-rainer.imp" float OPD1; #line 99 "regression-compile-tmp/precedence-rainer.imp" float OPD2; // 100 %switch opn(plus:exp) _imp_current_line = 100; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 100 "regression-compile-tmp/precedence-rainer.imp" static int sw1_OPN_idx; static const void * /*SWITCH*/ sw1_OPN[5] = { &&sw1_OPN_1, &&sw1_OPN_2, &&sw1_OPN_3, &&sw1_OPN_4, &&sw1_OPN_5, }; // 101 opd2=popopd _imp_current_line = 101; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 101 "regression-compile-tmp/precedence-rainer.imp" OPD2 = POPOPD(); // 102 opd1=popopd _imp_current_line = 102; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 102 "regression-compile-tmp/precedence-rainer.imp" OPD1 = POPOPD(); // 103 ->opn(popop) _imp_current_line = 103; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 103 "regression-compile-tmp/precedence-rainer.imp" sw1_OPN_idx = POPOP(); if ((1 <= sw1_OPN_idx) && (sw1_OPN_idx <= 5)) goto *(sw1_OPN-1)[sw1_OPN_idx]; /* Bounds=1:5 */ else { /*_imp_signal(8, 2, sw1_OPN_idx);*/ fprintf(stderr, "%%SWITCH index OPN(%d) not in range 1:5 at %s:%d\n", sw1_OPN_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 104 opn(plus):pushopd(opd1+opd2) ; %return _imp_current_line = 104; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 104 "regression-compile-tmp/precedence-rainer.imp" sw1_OPN_1:; _imp_current_line = 104; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 104 "regression-compile-tmp/precedence-rainer.imp" PUSHOPD((((float)(OPD1)) + (OPD2))); _imp_current_line = 104; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 104 "regression-compile-tmp/precedence-rainer.imp" return; // 105 opn(minus):pushopd(opd1-opd2) ; %return _imp_current_line = 105; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 105 "regression-compile-tmp/precedence-rainer.imp" sw1_OPN_2:; _imp_current_line = 105; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 105 "regression-compile-tmp/precedence-rainer.imp" PUSHOPD((((float)(OPD1)) - (OPD2))); _imp_current_line = 105; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 105 "regression-compile-tmp/precedence-rainer.imp" return; // 106 opn(times):pushopd(opd1*opd2) ; %return _imp_current_line = 106; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 106 "regression-compile-tmp/precedence-rainer.imp" sw1_OPN_3:; _imp_current_line = 106; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 106 "regression-compile-tmp/precedence-rainer.imp" PUSHOPD((((float)(OPD1)) * (OPD2))); _imp_current_line = 106; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 106 "regression-compile-tmp/precedence-rainer.imp" return; // 107 opn(divide):%if opd2=0 %then print string("divide by zero") %and %signal 15 _imp_current_line = 107; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 107 "regression-compile-tmp/precedence-rainer.imp" sw1_OPN_4:; _imp_current_line = 107; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 107 "regression-compile-tmp/precedence-rainer.imp" if (((OPD2) != (0))) goto L_0027; #line 107 "regression-compile-tmp/precedence-rainer.imp" _imp_PRINTSTRING(_imp_str_literal("divide by zero")); #line 107 "regression-compile-tmp/precedence-rainer.imp" _imp_signal(15, 0, 0, ""); #line 107 "regression-compile-tmp/precedence-rainer.imp" L_0027:; // 108 pushopd(opd1/opd2) ; %return _imp_current_line = 108; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 108 "regression-compile-tmp/precedence-rainer.imp" PUSHOPD(((((float)(OPD1)) / ((float)(OPD2))))); _imp_current_line = 108; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 108 "regression-compile-tmp/precedence-rainer.imp" return; // 109 opn(exp):pushopd(opd1^int(opd2)) _imp_current_line = 109; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 109 "regression-compile-tmp/precedence-rainer.imp" sw1_OPN_5:; _imp_current_line = 109; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 109 "regression-compile-tmp/precedence-rainer.imp" PUSHOPD(_imp_REXP(OPD1, _imp_INT(OPD2))); // 110 %end _imp_current_line = 110; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 110 "regression-compile-tmp/precedence-rainer.imp" return; _imp_endofblock: ; } // End of block OPERATE at level 3 // 111 ! // 112 %end {of eval} _imp_current_line = 112; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 112 "regression-compile-tmp/precedence-rainer.imp" /*_imp_signal(8, 4, 0, "");*/ fprintf(stderr, "%%RESULT missing in %s in file %s:%d\n", __PRETTY_FUNCTION__, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); _imp_endofblock: ; } // End of block EVAL at level 2 // 113 %real val _imp_current_line = 113; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 113 "regression-compile-tmp/precedence-rainer.imp" float VAL; // 114 // 115 %on %event 9,15 %start {to trap everything} _imp_current_line = 115; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 115 "regression-compile-tmp/precedence-rainer.imp" if (!_imp_on_event(9, 15)) goto L_0028; // 116 {*} %stop %if Event_Event = 9 _imp_current_line = 116; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 116 "regression-compile-tmp/precedence-rainer.imp" if (((_imp_EVENT().EVENT) != (9))) goto L_0029; #line 116 "regression-compile-tmp/precedence-rainer.imp" exit(0); #line 116 "regression-compile-tmp/precedence-rainer.imp" L_0029:; // 117 print string("? _imp_current_line = 117; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 117 "regression-compile-tmp/precedence-rainer.imp" _imp_PRINTSTRING(_imp_str_literal("?\n")); // 118 ") // 119 ->again ; %finish _imp_current_line = 119; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 119 "regression-compile-tmp/precedence-rainer.imp" goto U_1000; _imp_current_line = 119; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 119 "regression-compile-tmp/precedence-rainer.imp" L_0028:; // 120 // 121 select input(0); select output(0) _imp_current_line = 121; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 121 "regression-compile-tmp/precedence-rainer.imp" _imp_SELECTINPUT(0); _imp_current_line = 121; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 121 "regression-compile-tmp/precedence-rainer.imp" _imp_SELECTOUTPUT(0); // 122 prompt("eval:") _imp_current_line = 122; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 122 "regression-compile-tmp/precedence-rainer.imp" _imp_PROMPT(_imp_str_literal("eval:")); // 123 again:val=eval _imp_current_line = 123; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 123 "regression-compile-tmp/precedence-rainer.imp" U_1000:; _imp_current_line = 123; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 123 "regression-compile-tmp/precedence-rainer.imp" VAL = EVAL(); // 124 %if val=int(val) %then write(int(val),0) { imp77 perms missing} {%else print(val,0,4)} _imp_current_line = 124; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 124 "regression-compile-tmp/precedence-rainer.imp" if (((VAL) != (_imp_INT(VAL)))) goto L_002a; #line 124 "regression-compile-tmp/precedence-rainer.imp" _imp_WRITE(_imp_INT(VAL), 0); #line 124 "regression-compile-tmp/precedence-rainer.imp" L_002a:; // 125 newline _imp_current_line = 125; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 125 "regression-compile-tmp/precedence-rainer.imp" _imp_NEWLINE(); // 126 ->again _imp_current_line = 126; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 126 "regression-compile-tmp/precedence-rainer.imp" goto U_1000; // 127 // 128 %endofprogram _imp_current_line = 128; _imp_current_file = "regression-compile-tmp/precedence-rainer.imp"; #line 128 "regression-compile-tmp/precedence-rainer.imp" return 0; _imp_endofblock: ; } // End of block _imp_main at level 1 #line 128 "regression-compile-tmp/precedence-rainer.imp" // End of file