#include "perms.h" // 1 // 2 !* Title : XII // 3 !* Version : I // 4 !* Date : 29 June 1984 // 5 !* Description: Tests the ability to raise events within a program // 6 !* both in the standard procedures etc and by the user. // 7 // 8 // 9 %Begin #line 9 "regression-compile-tmp/EVENTS.imp" int main(int argc, char **argv) { __label__ _imp_endofblock; _imp_initialise(argc, argv); // 10 %Switch Trap (0 : 15) _imp_current_line = 10; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 10 "regression-compile-tmp/EVENTS.imp" static int sw1_TRAP_idx; static const void * /*SWITCH*/ sw1_TRAP[16] = { &&sw1_TRAP_0, &&sw1_TRAP_1, &&sw1_TRAP_2, &&sw1_TRAP_3, &&sw1_TRAP_4, &&sw1_TRAP_5, &&sw1_TRAP_6, &&sw1_TRAP_7, &&sw1_TRAP_8, &&sw1_TRAP_9, &&sw1_TRAP_10, &&sw1_TRAP_11, &&sw1_TRAP_12, &&sw1_TRAP_13, &&sw1_TRAP_14, &&sw1_TRAP_15, }; // 11 %Integer Sub _imp_current_line = 11; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 11 "regression-compile-tmp/EVENTS.imp" int SUB; // 12 // 13 %owninteger failures=0 _imp_current_line = 13; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 13 "regression-compile-tmp/EVENTS.imp" static int FAILURES = 0; // 14 // 15 %routine pass _imp_current_line = 15; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 15 "regression-compile-tmp/EVENTS.imp" void PASS( void ) #line 15 "regression-compile-tmp/EVENTS.imp" { __label__ _imp_endofblock; // 16 printstring("Pass: ") _imp_current_line = 16; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 16 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("Pass: ")); // 17 %end _imp_current_line = 17; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 17 "regression-compile-tmp/EVENTS.imp" return; _imp_endofblock: ; } // End of block PASS at level 2 // 18 %routine fail _imp_current_line = 18; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 18 "regression-compile-tmp/EVENTS.imp" void FAIL( void ) #line 18 "regression-compile-tmp/EVENTS.imp" { __label__ _imp_endofblock; // 19 printstring("FAIL: ") _imp_current_line = 19; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 19 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("FAIL: ")); // 20 failures = failures+1 _imp_current_line = 20; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 20 "regression-compile-tmp/EVENTS.imp" FAILURES = (((int)(FAILURES)) + (1)); // 21 %end _imp_current_line = 21; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 21 "regression-compile-tmp/EVENTS.imp" return; _imp_endofblock: ; } // End of block FAIL at level 2 // 22 // 23 %On %Event 0, 10, 13, 15 %Start _imp_current_line = 23; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 23 "regression-compile-tmp/EVENTS.imp" if (!_imp_on_event(0, 10, 13, 15)) goto L_0002; // 24 // 25 Sub = Event_Sub {Event} _imp_current_line = 25; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 25 "regression-compile-tmp/EVENTS.imp" SUB = _imp_EVENT().SUB; // 26 -> Trap (Event_Event) _imp_current_line = 26; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 26 "regression-compile-tmp/EVENTS.imp" sw1_TRAP_idx = _imp_EVENT().EVENT; if ((0 <= sw1_TRAP_idx) && (sw1_TRAP_idx <= 15)) goto *sw1_TRAP[sw1_TRAP_idx]; else { /*_imp_signal(8, 2, sw1_TRAP_idx);*/ fprintf(stderr, "%%SWITCH index TRAP(%d) not in range 0:15 at %s:%d\n", sw1_TRAP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 27 // 28 Trap(10): { Trap an event raised inside a %On block _imp_current_line = 28; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 28 "regression-compile-tmp/EVENTS.imp" sw1_TRAP_10:; // 29 { Raised inside local routine 'Eventful'. // 30 // 31 %If Sub = 116 %c _imp_current_line = 31; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 31 "regression-compile-tmp/EVENTS.imp" if (((SUB) != (116))) goto L_0003; #line 31 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("Trapped an event inside an %ON block")); #line 31 "regression-compile-tmp/EVENTS.imp" goto L_0004; #line 31 "regression-compile-tmp/EVENTS.imp" L_0003:; #line 31 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("Error in _Sub Event field for event 10")); #line 31 "regression-compile-tmp/EVENTS.imp" L_0004:; // 32 %then Print String ("Trapped an event inside an %ON block") %c // 33 %else Print String ("Error in _Sub Event field for event 10") // 34 New Line _imp_current_line = 34; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 34 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINE(); // 35 -> Resume2 _imp_current_line = 35; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 35 "regression-compile-tmp/EVENTS.imp" goto U_1000; // 36 // 37 Trap(15): { Trapping events inside routines. _imp_current_line = 37; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 37 "regression-compile-tmp/EVENTS.imp" sw1_TRAP_15:; // 38 // 39 Print String ("Trapped event inside a ") _imp_current_line = 39; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 39 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("Trapped event inside a ")); // 40 %If Sub = 115 %then %Start _imp_current_line = 40; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 40 "regression-compile-tmp/EVENTS.imp" if (((SUB) != (115))) goto L_0005; // 41 Print String ("local routine.") _imp_current_line = 41; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 41 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("local routine.")); // 42 New Line _imp_current_line = 42; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 42 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINE(); // 43 %If Event_Info{Extra} = 20 %then pass %else fail _imp_current_line = 43; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 43 "regression-compile-tmp/EVENTS.imp" if (((_imp_EVENT().INFO) != (20))) goto L_0006; #line 43 "regression-compile-tmp/EVENTS.imp" PASS(); #line 43 "regression-compile-tmp/EVENTS.imp" goto L_0007; #line 43 "regression-compile-tmp/EVENTS.imp" L_0006:; #line 43 "regression-compile-tmp/EVENTS.imp" FAIL(); #line 43 "regression-compile-tmp/EVENTS.imp" L_0007:; // 44 Print String ("Event_Extra field correctly assigned.") _imp_current_line = 44; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 44 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("Event_Extra field correctly assigned.")); // 45 New Line _imp_current_line = 45; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 45 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINE(); // 46 -> Resume3 _imp_current_line = 46; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 46 "regression-compile-tmp/EVENTS.imp" goto U_1001; // 47 %Finish %else %if Sub = 118 %then %start _imp_current_line = 47; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 47 "regression-compile-tmp/EVENTS.imp" L_0005:; #line 47 "regression-compile-tmp/EVENTS.imp" if (((SUB) != (118))) goto L_0008; // 48 Print String ("nested, deeply recursed routine.") _imp_current_line = 48; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 48 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("nested, deeply recursed routine.")); // 49 New Line _imp_current_line = 49; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 49 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINE(); // 50 -> Resume4 _imp_current_line = 50; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 50 "regression-compile-tmp/EVENTS.imp" goto U_1002; // 51 %Finish _imp_current_line = 51; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 51 "regression-compile-tmp/EVENTS.imp" L_0008:; // 52 // 53 TRAP(*): _imp_current_line = 53; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 53 "regression-compile-tmp/EVENTS.imp" sw1_TRAP_default:; // 54 Print String("FAIL: Unexpected event") _imp_current_line = 54; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 54 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("FAIL: Unexpected event")); // 55 write(event_event,1); newline _imp_current_line = 55; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 55 "regression-compile-tmp/EVENTS.imp" _imp_WRITE(_imp_EVENT().EVENT, 1); _imp_current_line = 55; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 55 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINE(); // 56 %stop _imp_current_line = 56; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 56 "regression-compile-tmp/EVENTS.imp" exit(0); // 57 %Finish _imp_current_line = 57; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 57 "regression-compile-tmp/EVENTS.imp" L_0002:; // 58 // 59 // 60 %Routine Test Standard Events _imp_current_line = 60; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 60 "regression-compile-tmp/EVENTS.imp" void TESTSTANDARDEVENTS( void ) #line 60 "regression-compile-tmp/EVENTS.imp" { __label__ _imp_endofblock; // 61 // 62 !* This routine forces the standard events to be raised to // 63 !* test their validity. // 64 // 65 %Label Catch _imp_current_line = 65; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 65 "regression-compile-tmp/EVENTS.imp" __label__ U_1003; // 66 // 67 %Integer J _imp_current_line = 67; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 67 "regression-compile-tmp/EVENTS.imp" int J; // 68 %Integer K _imp_current_line = 68; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 68 "regression-compile-tmp/EVENTS.imp" int K; // 69 %Integer C _imp_current_line = 69; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 69 "regression-compile-tmp/EVENTS.imp" int C; // 70 %Integer A _imp_current_line = 70; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 70 "regression-compile-tmp/EVENTS.imp" int A; // 71 // 72 %Integer Start = 0 _imp_current_line = 72; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 72 "regression-compile-tmp/EVENTS.imp" int START; #line 72 "regression-compile-tmp/EVENTS.imp" START = 0; // 73 // 74 %Integer Zero = 0 _imp_current_line = 74; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 74 "regression-compile-tmp/EVENTS.imp" int ZERO; #line 74 "regression-compile-tmp/EVENTS.imp" ZERO = 0; // 75 %Integer Minus = -1 _imp_current_line = 75; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 75 "regression-compile-tmp/EVENTS.imp" int MINUS; #line 75 "regression-compile-tmp/EVENTS.imp" MINUS = (-1); // 76 %Integer Unassigned _imp_current_line = 76; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 76 "regression-compile-tmp/EVENTS.imp" int UNASSIGNED; // 77 // 78 %String(255) S, T _imp_current_line = 78; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 78 "regression-compile-tmp/EVENTS.imp" _imp_string /*%string(255)*/ S; #line 78 "regression-compile-tmp/EVENTS.imp" _imp_string /*%string(255)*/ T; // 79 // 80 %Switch EN (0 : 100) { Event Number = Event * 10 + Sub _imp_current_line = 80; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 80 "regression-compile-tmp/EVENTS.imp" static int sw2_EN_idx; static const void * /*SWITCH*/ sw2_EN[101] = { &&sw2_EN_0, &&sw2_EN_1, &&sw2_EN_2, &&sw2_EN_3, &&sw2_EN_4, &&sw2_EN_5, &&sw2_EN_6, &&sw2_EN_7, &&sw2_EN_8, &&sw2_EN_9, &&sw2_EN_10, &&sw2_EN_11, &&sw2_EN_12, &&sw2_EN_13, &&sw2_EN_14, &&sw2_EN_15, &&sw2_EN_16, &&sw2_EN_17, &&sw2_EN_18, &&sw2_EN_19, &&sw2_EN_20, &&sw2_EN_21, &&sw2_EN_22, &&sw2_EN_23, &&sw2_EN_24, &&sw2_EN_25, &&sw2_EN_26, &&sw2_EN_27, &&sw2_EN_28, &&sw2_EN_29, &&sw2_EN_30, &&sw2_EN_31, &&sw2_EN_32, &&sw2_EN_33, &&sw2_EN_34, &&sw2_EN_35, &&sw2_EN_36, &&sw2_EN_37, &&sw2_EN_38, &&sw2_EN_39, &&sw2_EN_40, &&sw2_EN_41, &&sw2_EN_42, &&sw2_EN_43, &&sw2_EN_44, &&sw2_EN_45, &&sw2_EN_46, &&sw2_EN_47, &&sw2_EN_48, &&sw2_EN_49, &&sw2_EN_50, &&sw2_EN_51, &&sw2_EN_52, &&sw2_EN_53, &&sw2_EN_54, &&sw2_EN_55, &&sw2_EN_56, &&sw2_EN_57, &&sw2_EN_58, &&sw2_EN_59, &&sw2_EN_60, &&sw2_EN_61, &&sw2_EN_62, &&sw2_EN_63, &&sw2_EN_64, &&sw2_EN_65, &&sw2_EN_66, &&sw2_EN_67, &&sw2_EN_68, &&sw2_EN_69, &&sw2_EN_70, &&sw2_EN_71, &&sw2_EN_72, &&sw2_EN_73, &&sw2_EN_74, &&sw2_EN_75, &&sw2_EN_76, &&sw2_EN_77, &&sw2_EN_78, &&sw2_EN_79, &&sw2_EN_80, &&sw2_EN_81, &&sw2_EN_82, &&sw2_EN_83, &&sw2_EN_84, &&sw2_EN_85, &&sw2_EN_86, &&sw2_EN_87, &&sw2_EN_88, &&sw2_EN_89, &&sw2_EN_90, &&sw2_EN_91, &&sw2_EN_92, &&sw2_EN_93, &&sw2_EN_94, &&sw2_EN_95, &&sw2_EN_96, &&sw2_EN_97, &&sw2_EN_98, &&sw2_EN_99, &&sw2_EN_100, }; // 81 // 82 // 83 %On %Event 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 %Start _imp_current_line = 83; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 83 "regression-compile-tmp/EVENTS.imp" if (!_imp_on_event(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)) goto L_0009; // 84 // 85 Select Output ({1}0) %if K = 90 { Revert back to old stream. _imp_current_line = 85; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 85 "regression-compile-tmp/EVENTS.imp" if (((K) != (90))) goto L_000a; #line 85 "regression-compile-tmp/EVENTS.imp" _imp_SELECTOUTPUT(0); #line 85 "regression-compile-tmp/EVENTS.imp" L_000a:; // 86 // 87 %If Event_Event = K // 10 %and Event_Sub {Event} = Rem (K, 10) %Start _imp_current_line = 87; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 87 "regression-compile-tmp/EVENTS.imp" if (((_imp_EVENT().EVENT) != (((((int)(K)) / ((int)(10))))))) goto L_000b; #line 87 "regression-compile-tmp/EVENTS.imp" if (((_imp_EVENT().SUB) != (_imp_REM(K, 10)))) goto L_000b; // 88 Print String ("Successfully trapped: Event =") _imp_current_line = 88; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 88 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("Successfully trapped: Event =")); // 89 Write (K // 10, 1) _imp_current_line = 89; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 89 "regression-compile-tmp/EVENTS.imp" _imp_WRITE(((((int)(K)) / ((int)(10)))), 1); // 90 Print String (" Sub =") _imp_current_line = 90; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 90 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal(" Sub =")); // 91 Write (Rem (K, 10), 1) _imp_current_line = 91; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 91 "regression-compile-tmp/EVENTS.imp" _imp_WRITE(_imp_REM(K, 10), 1); // 92 New Line _imp_current_line = 92; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 92 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINE(); // 93 %finish %else %start _imp_current_line = 93; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 93 "regression-compile-tmp/EVENTS.imp" goto L_000c; #line 93 "regression-compile-tmp/EVENTS.imp" L_000b:; // 94 Print String ("Should have trapped: Event =") _imp_current_line = 94; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 94 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("Should have trapped: Event =")); // 95 Write (K // 10, 1) _imp_current_line = 95; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 95 "regression-compile-tmp/EVENTS.imp" _imp_WRITE(((((int)(K)) / ((int)(10)))), 1); // 96 Print String (" Sub =") _imp_current_line = 96; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 96 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal(" Sub =")); // 97 Write (Rem (K, 10), 1) _imp_current_line = 97; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 97 "regression-compile-tmp/EVENTS.imp" _imp_WRITE(_imp_REM(K, 10), 1); // 98 New Line _imp_current_line = 98; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 98 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINE(); // 99 Print String ("Instead trapped: Event =") _imp_current_line = 99; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 99 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("Instead trapped: Event =")); // 100 Write (Event_Event, 1) _imp_current_line = 100; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 100 "regression-compile-tmp/EVENTS.imp" _imp_WRITE(_imp_EVENT().EVENT, 1); // 101 Print String (" Sub =") _imp_current_line = 101; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 101 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal(" Sub =")); // 102 Write (Event_Sub {Event}, 1) _imp_current_line = 102; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 102 "regression-compile-tmp/EVENTS.imp" _imp_WRITE(_imp_EVENT().SUB, 1); // 103 New Line _imp_current_line = 103; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 103 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINE(); // 104 %Finish _imp_current_line = 104; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 104 "regression-compile-tmp/EVENTS.imp" L_000c:; // 105 Start = K + 1 _imp_current_line = 105; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 105 "regression-compile-tmp/EVENTS.imp" START = (((int)(K)) + (1)); // 106 // 107 %Finish _imp_current_line = 107; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 107 "regression-compile-tmp/EVENTS.imp" L_0009:; // 108 // 109 // 110 %For K = Start, 1, 100 %cycle _imp_current_line = 110; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 110 "regression-compile-tmp/EVENTS.imp" K = (((int)(START)) - (1)); if ((((100)-(START)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle K = START, 1, 100"); L_000d:; if (K == 100) goto L_000e; K += 1; // 111 // 112 write(k,1);newline _imp_current_line = 112; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 112 "regression-compile-tmp/EVENTS.imp" _imp_WRITE(K, 1); _imp_current_line = 112; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 112 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINE(); // 113 -> EN(K) _imp_current_line = 113; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 113 "regression-compile-tmp/EVENTS.imp" sw2_EN_idx = K; if ((0 <= sw2_EN_idx) && (sw2_EN_idx <= 100)) goto *sw2_EN[sw2_EN_idx]; else { /*_imp_signal(8, 2, sw2_EN_idx);*/ fprintf(stderr, "%%SWITCH index EN(%d) not in range 0:100 at %s:%d\n", sw2_EN_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 114 // 115 // 116 EN(0): { Normal Termination by the %STOP Instruction. _imp_current_line = 116; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 116 "regression-compile-tmp/EVENTS.imp" sw2_EN_0:; // 117 // 118 %Stop _imp_current_line = 118; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 118 "regression-compile-tmp/EVENTS.imp" exit(0); // 119 -> Catch _imp_current_line = 119; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 119 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 120 // 121 // 122 // 123 EN(11): { Integer Overflow _imp_current_line = 123; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 123 "regression-compile-tmp/EVENTS.imp" sw2_EN_11:; // 124 // 125 J = 2147483600 { Two to the power of 32. _imp_current_line = 125; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 125 "regression-compile-tmp/EVENTS.imp" J = 2147483600; // 126 C = J * 3 _imp_current_line = 126; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 126 "regression-compile-tmp/EVENTS.imp" C = (((int)(J)) * (3)); // 127 -> Catch _imp_current_line = 127; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 127 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 128 // 129 // 130 // 131 EN(13): { String Overflow. _imp_current_line = 131; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 131 "regression-compile-tmp/EVENTS.imp" sw2_EN_13:; // 132 // 133 S = "1234567890" _imp_current_line = 133; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 133 "regression-compile-tmp/EVENTS.imp" S = _imp_str_literal("1234567890"); // 134 T = "" _imp_current_line = 134; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 134 "regression-compile-tmp/EVENTS.imp" T = _imp_str_literal(""); // 135 T = T . S %for J = 1, 1, 30 _imp_current_line = 135; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 135 "regression-compile-tmp/EVENTS.imp" J = 0; if ((((30)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, 30"); L_0010:; if (J == 30) goto L_0011; J += 1; #line 135 "regression-compile-tmp/EVENTS.imp" T = _imp_join((_imp_string)T,(_imp_string)S); #line 135 "regression-compile-tmp/EVENTS.imp" goto L_0010; #line 135 "regression-compile-tmp/EVENTS.imp" L_0011:; // 136 -> Catch _imp_current_line = 136; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 136 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 137 // 138 // 139 EN(14): { Division by zero. _imp_current_line = 139; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 139 "regression-compile-tmp/EVENTS.imp" sw2_EN_14:; // 140 // 141 J = Minus // Zero _imp_current_line = 141; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 141 "regression-compile-tmp/EVENTS.imp" J = (((int)(MINUS)) / ((int)(_Z(ZERO)))); // 142 -> Catch _imp_current_line = 142; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 142 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 143 // 144 // 145 // 146 EN(21): { Store Space Exhausted _imp_current_line = 146; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 146 "regression-compile-tmp/EVENTS.imp" sw2_EN_21:; // 147 // 148 %Begin _imp_current_line = 148; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 148 "regression-compile-tmp/EVENTS.imp" void _BLOCK_1_LEVEL_2_(void) { __label__ _imp_endofblock; // 149 %Integer %Array Temp (1 : 10000000) _imp_current_line = 149; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 149 "regression-compile-tmp/EVENTS.imp" int TEMP[10000000]; // 150 // 151 J = 10000000 _imp_current_line = 151; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 151 "regression-compile-tmp/EVENTS.imp" J = 10000000; // 152 Temp (J) = 1 _imp_current_line = 152; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 152 "regression-compile-tmp/EVENTS.imp" TEMP[(((int)(J)) - (1))] = 1; // 153 %End _imp_current_line = 153; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 153 "regression-compile-tmp/EVENTS.imp" goto _imp_endofblock; _imp_endofblock: ; } // End of block _BLOCK_1_LEVEL_2_ at level 3 _BLOCK_1_LEVEL_2_(); // 154 -> Catch _imp_current_line = 154; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 154 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 155 // 156 // 157 // 158 EN(33): { Failure to open a file. _imp_current_line = 158; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 158 "regression-compile-tmp/EVENTS.imp" sw2_EN_33:; // 159 // 160 Open Input (2, "ZZZZZ.ZZZ") { Non-existent? _imp_current_line = 160; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 160 "regression-compile-tmp/EVENTS.imp" _imp_OPENINPUT(2, _imp_str_literal("ZZZZZ.ZZZ")); // 161 -> Catch _imp_current_line = 161; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 161 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 162 // 163 // 164 // 165 EN(41): { Non-numeric char for numeric input. _imp_current_line = 165; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 165 "regression-compile-tmp/EVENTS.imp" sw2_EN_41:; // 166 // 167 Open Input (2, "Char.dat") _imp_current_line = 167; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 167 "regression-compile-tmp/EVENTS.imp" _imp_OPENINPUT(2, _imp_str_literal("Char.dat")); // 168 Select Input (2) _imp_current_line = 168; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 168 "regression-compile-tmp/EVENTS.imp" _imp_SELECTINPUT(2); // 169 Read (J) _imp_current_line = 169; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 169 "regression-compile-tmp/EVENTS.imp" _imp_READ(&J); // 170 -> Catch _imp_current_line = 170; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 170 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 171 // 172 // 173 // 174 EN(51): { Inconsistent combination of values for %For loop. _imp_current_line = 174; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 174 "regression-compile-tmp/EVENTS.imp" sw2_EN_51:; // 175 // 176 J = 0 _imp_current_line = 176; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 176 "regression-compile-tmp/EVENTS.imp" J = 0; // 177 A = 0 _imp_current_line = 177; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 177 "regression-compile-tmp/EVENTS.imp" A = 0; // 178 %For C = 2, 1, J %cycle _imp_current_line = 178; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 178 "regression-compile-tmp/EVENTS.imp" {static int _initial, _increment, _final, _control; _initial = 2; _increment = 1; _final = J; C = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle C = 2, 1, J"); C -= _increment; _control -= _increment; L_0013:; if (C == _final) goto L_0014; C += _increment; _control += _increment; if (C != _control) _imp_signal(4,2,0,"Corrupt control variable C"); /* FOR loop control variable corrupted */ } // 179 A = A + 1 _imp_current_line = 179; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 179 "regression-compile-tmp/EVENTS.imp" A = (((int)(A)) + (1)); // 180 %Exit %if A = 10 { Break an infinite loop. _imp_current_line = 180; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 180 "regression-compile-tmp/EVENTS.imp" if (((A) != (10))) goto L_0016; #line 180 "regression-compile-tmp/EVENTS.imp" goto L_0014; #line 180 "regression-compile-tmp/EVENTS.imp" L_0016:; // 181 %Repeat _imp_current_line = 181; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 181 "regression-compile-tmp/EVENTS.imp" goto L_0013; #line 181 "regression-compile-tmp/EVENTS.imp" L_0014:; // 182 -> Catch _imp_current_line = 182; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 182 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 183 // 184 // 185 // 186 // 187 EN(52): { Illegal exponent for exponentiation. _imp_current_line = 187; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 187 "regression-compile-tmp/EVENTS.imp" sw2_EN_52:; // 188 // 189 J = -4 _imp_current_line = 189; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 189 "regression-compile-tmp/EVENTS.imp" J = (-4); // 190 C = 2 ^^ J _imp_current_line = 190; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 190 "regression-compile-tmp/EVENTS.imp" C = _imp_IEXP(2, J); // 191 -> Catch _imp_current_line = 191; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 191 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 192 // 193 // 194 // 195 EN(53): { Upper bound less than lower in array declaration. _imp_current_line = 195; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 195 "regression-compile-tmp/EVENTS.imp" sw2_EN_53:; // 196 // 197 J = 20 _imp_current_line = 197; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 197 "regression-compile-tmp/EVENTS.imp" J = 20; // 198 %Begin _imp_current_line = 198; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 198 "regression-compile-tmp/EVENTS.imp" void _BLOCK_2_LEVEL_2_(void) { __label__ _imp_endofblock; // 199 %Integer %Array Temp (40 : J) _imp_current_line = 199; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 199 "regression-compile-tmp/EVENTS.imp" int TEMP[(((unsigned char)((((int)(J)) - (40)))) + (1))]; // 200 // 201 J = 35 _imp_current_line = 201; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 201 "regression-compile-tmp/EVENTS.imp" J = 35; // 202 Temp(J) = 10 _imp_current_line = 202; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 202 "regression-compile-tmp/EVENTS.imp" TEMP[(((int)(J)) - (40))] = 10; // 203 %End _imp_current_line = 203; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 203 "regression-compile-tmp/EVENTS.imp" goto _imp_endofblock; _imp_endofblock: ; } // End of block _BLOCK_2_LEVEL_2_ at level 3 _BLOCK_2_LEVEL_2_(); // 204 -> Catch _imp_current_line = 204; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 204 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 205 // 206 // 207 // 208 EN(54): { First index greater than second for SUB STRING. _imp_current_line = 208; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 208 "regression-compile-tmp/EVENTS.imp" sw2_EN_54:; // 209 // 210 S = "1234567890" _imp_current_line = 210; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 210 "regression-compile-tmp/EVENTS.imp" S = _imp_str_literal("1234567890"); // 211 J = 20 _imp_current_line = 211; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 211 "regression-compile-tmp/EVENTS.imp" J = 20; // 212 S = Sub String (S, J, 5) _imp_current_line = 212; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 212 "regression-compile-tmp/EVENTS.imp" S = _imp_SUBSTRING(S, J, 5); // 213 -> Catch _imp_current_line = 213; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 213 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 214 // 215 // 216 // 217 EN(62): { Array index out of bounds. _imp_current_line = 217; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 217 "regression-compile-tmp/EVENTS.imp" sw2_EN_62:; // 218 // 219 J = 20 _imp_current_line = 219; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 219 "regression-compile-tmp/EVENTS.imp" J = 20; // 220 %Begin _imp_current_line = 220; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 220 "regression-compile-tmp/EVENTS.imp" void _BLOCK_3_LEVEL_2_(void) { __label__ _imp_endofblock; // 221 %Integer %Array Temp (0 : J) _imp_current_line = 221; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 221 "regression-compile-tmp/EVENTS.imp" int TEMP[((J) + ((int)(1)))]; // 222 // 223 Temp (J + 5) = 29 _imp_current_line = 223; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 223 "regression-compile-tmp/EVENTS.imp" TEMP[(((int)(J)) + (5))] = 29; // 224 %End _imp_current_line = 224; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 224 "regression-compile-tmp/EVENTS.imp" goto _imp_endofblock; _imp_endofblock: ; } // End of block _BLOCK_3_LEVEL_2_ at level 3 _BLOCK_3_LEVEL_2_(); // 225 -> Catch _imp_current_line = 225; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 225 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 226 // 227 // 228 // 229 // 230 // 231 EN(65): { CHAR NO index out of range 1 to max string length. _imp_current_line = 231; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 231 "regression-compile-tmp/EVENTS.imp" sw2_EN_65:; // 232 // 233 S = "1234567890" _imp_current_line = 233; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 233 "regression-compile-tmp/EVENTS.imp" S = _imp_str_literal("1234567890"); // 234 J = 20 _imp_current_line = 234; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 234 "regression-compile-tmp/EVENTS.imp" J = 20; // 235 C = Char No (S, J) _imp_current_line = 235; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 235 "regression-compile-tmp/EVENTS.imp" C = *_imp_CHARNO(&S, J); // 236 -> Catch _imp_current_line = 236; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 236 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 237 // 238 // 239 // 240 EN(66): { Value out of range for TO STRING. _imp_current_line = 240; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 240 "regression-compile-tmp/EVENTS.imp" sw2_EN_66:; // 241 // 242 S = To String (Minus) _imp_current_line = 242; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 242 "regression-compile-tmp/EVENTS.imp" S = _imp_TOSTRING(MINUS); // 243 -> Catch _imp_current_line = 243; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 243 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 244 // 245 // 246 // 247 EN(67): { Value out of range of OPEN and SELECT. _imp_current_line = 247; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 247 "regression-compile-tmp/EVENTS.imp" sw2_EN_67:; // 248 // 249 SELECT INPUT (20) _imp_current_line = 249; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 249 "regression-compile-tmp/EVENTS.imp" _imp_SELECTINPUT(20); // 250 -> Catch _imp_current_line = 250; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 250 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 251 // 252 // 253 // 254 EN(70): { String Resolution error. _imp_current_line = 254; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 254 "regression-compile-tmp/EVENTS.imp" sw2_EN_70:; // 255 // 256 S = "ABCD" _imp_current_line = 256; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 256 "regression-compile-tmp/EVENTS.imp" S = _imp_str_literal("ABCD"); // 257 S -> S.("EFGH") _imp_current_line = 257; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 257 "regression-compile-tmp/EVENTS.imp" if (!_imp_resolve(S, &S, _imp_str_literal("EFGH"), 0 /*NULL*/)) _imp_signal(7,1,0, "string resolution fails"); // 258 -> Catch _imp_current_line = 258; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 258 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 259 // 260 // 261 // 262 EN(81): { Unassigned variable. _imp_current_line = 262; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 262 "regression-compile-tmp/EVENTS.imp" sw2_EN_81:; // 263 // 264 J = Unassigned _imp_current_line = 264; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 264 "regression-compile-tmp/EVENTS.imp" J = UNASSIGNED; // 265 -> Catch _imp_current_line = 265; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 265 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 266 // 267 // 268 // 269 EN(90): { End of Input _imp_current_line = 269; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 269 "regression-compile-tmp/EVENTS.imp" sw2_EN_90:; // 270 // 271 Open Output (2, "Null.dat") _imp_current_line = 271; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 271 "regression-compile-tmp/EVENTS.imp" _imp_OPENOUTPUT(2, _imp_str_literal("Null.dat")); // 272 Select Output (2) _imp_current_line = 272; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 272 "regression-compile-tmp/EVENTS.imp" _imp_SELECTOUTPUT(2); // 273 Close Output _imp_current_line = 273; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 273 "regression-compile-tmp/EVENTS.imp" _imp_CLOSEOUTPUT(); // 274 Open Input (2, "Null.dat") _imp_current_line = 274; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 274 "regression-compile-tmp/EVENTS.imp" _imp_OPENINPUT(2, _imp_str_literal("Null.dat")); // 275 Select Input (2) _imp_current_line = 275; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 275 "regression-compile-tmp/EVENTS.imp" _imp_SELECTINPUT(2); // 276 Read (J) _imp_current_line = 276; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 276 "regression-compile-tmp/EVENTS.imp" _imp_READ(&J); // 277 -> Catch _imp_current_line = 277; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 277 "regression-compile-tmp/EVENTS.imp" goto U_1003; // 278 // 279 // 280 // 281 Catch: Print String ("FAILED to trap: Event =") _imp_current_line = 281; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 281 "regression-compile-tmp/EVENTS.imp" U_1003:; _imp_current_line = 281; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 281 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("FAILED to trap: Event =")); // 282 Write (K // 10, 1) _imp_current_line = 282; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 282 "regression-compile-tmp/EVENTS.imp" _imp_WRITE(((((int)(K)) / ((int)(10)))), 1); // 283 Print String (" Sub =") _imp_current_line = 283; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 283 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal(" Sub =")); // 284 Write (Rem (K, 10), 1) _imp_current_line = 284; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 284 "regression-compile-tmp/EVENTS.imp" _imp_WRITE(_imp_REM(K, 10), 1); // 285 New Line _imp_current_line = 285; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 285 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINE(); // 286 // 287 // 288 EN(*): _imp_current_line = 288; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 288 "regression-compile-tmp/EVENTS.imp" sw2_EN_default:; // 289 // 290 %Repeat _imp_current_line = 290; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 290 "regression-compile-tmp/EVENTS.imp" goto L_000d; #line 290 "regression-compile-tmp/EVENTS.imp" L_000e:; // 291 // 292 // 293 %End { of Test Standard Events _imp_current_line = 293; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 293 "regression-compile-tmp/EVENTS.imp" return; sw2_EN_1:; sw2_EN_2:; sw2_EN_3:; sw2_EN_4:; sw2_EN_5:; sw2_EN_6:; sw2_EN_7:; sw2_EN_8:; sw2_EN_9:; sw2_EN_10:; sw2_EN_12:; sw2_EN_15:; sw2_EN_16:; sw2_EN_17:; sw2_EN_18:; sw2_EN_19:; sw2_EN_20:; sw2_EN_22:; sw2_EN_23:; sw2_EN_24:; sw2_EN_25:; sw2_EN_26:; sw2_EN_27:; sw2_EN_28:; sw2_EN_29:; sw2_EN_30:; sw2_EN_31:; sw2_EN_32:; sw2_EN_34:; sw2_EN_35:; sw2_EN_36:; sw2_EN_37:; sw2_EN_38:; sw2_EN_39:; sw2_EN_40:; sw2_EN_42:; sw2_EN_43:; sw2_EN_44:; sw2_EN_45:; sw2_EN_46:; sw2_EN_47:; sw2_EN_48:; sw2_EN_49:; sw2_EN_50:; sw2_EN_55:; sw2_EN_56:; sw2_EN_57:; sw2_EN_58:; sw2_EN_59:; sw2_EN_60:; sw2_EN_61:; sw2_EN_63:; sw2_EN_64:; sw2_EN_68:; sw2_EN_69:; sw2_EN_71:; sw2_EN_72:; sw2_EN_73:; sw2_EN_74:; sw2_EN_75:; sw2_EN_76:; sw2_EN_77:; sw2_EN_78:; sw2_EN_79:; sw2_EN_80:; sw2_EN_82:; sw2_EN_83:; sw2_EN_84:; sw2_EN_85:; sw2_EN_86:; sw2_EN_87:; sw2_EN_88:; sw2_EN_89:; sw2_EN_91:; sw2_EN_92:; sw2_EN_93:; sw2_EN_94:; sw2_EN_95:; sw2_EN_96:; sw2_EN_97:; sw2_EN_98:; sw2_EN_99:; sw2_EN_100:; goto sw2_EN_default; _imp_endofblock: ; } // End of block TESTSTANDARDEVENTS at level 2 // 294 // 295 // 296 // 297 %Routine Eventful (%Integer Trap) _imp_current_line = 297; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 297 "regression-compile-tmp/EVENTS.imp" void EVENTFUL( int TRAP ) #line 297 "regression-compile-tmp/EVENTS.imp" { __label__ _imp_endofblock; // 298 // 299 !* Tests the trapping of events within a routine block. // 300 !* Does the control fall through the bottom of the %On // 301 !* block? If a trap is not present will control be passed // 302 !* to the parent block? // 303 // 304 %Integer E = 14 _imp_current_line = 304; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 304 "regression-compile-tmp/EVENTS.imp" int E; #line 304 "regression-compile-tmp/EVENTS.imp" E = 14; // 305 // 306 %On %Event 14 %Start _imp_current_line = 306; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 306 "regression-compile-tmp/EVENTS.imp" if (!_imp_on_event(14)) goto L_0017; // 307 %Signal %Event 10, 116 %if E = 14 %and Trap = 1 _imp_current_line = 307; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 307 "regression-compile-tmp/EVENTS.imp" if (((E) != (14))) goto L_0018; #line 307 "regression-compile-tmp/EVENTS.imp" if (((TRAP) != (1))) goto L_0018; #line 307 "regression-compile-tmp/EVENTS.imp" _imp_signal(10, 116, 0, ""); #line 307 "regression-compile-tmp/EVENTS.imp" L_0018:; // 308 E = E + 1 _imp_current_line = 308; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 308 "regression-compile-tmp/EVENTS.imp" E = (((int)(E)) + (1)); // 309 %Finish _imp_current_line = 309; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 309 "regression-compile-tmp/EVENTS.imp" L_0017:; // 310 // 311 %Signal %Event 14 %if E = 14 _imp_current_line = 311; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 311 "regression-compile-tmp/EVENTS.imp" if (((E) != (14))) goto L_0019; #line 311 "regression-compile-tmp/EVENTS.imp" _imp_signal(14, 0, 0, ""); #line 311 "regression-compile-tmp/EVENTS.imp" L_0019:; // 312 %Signal %Event 15, 115, 20 { Test the _Extra field. _imp_current_line = 312; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 312 "regression-compile-tmp/EVENTS.imp" _imp_signal(15, 115, 20, ""); // 313 // 314 %End { of Eventful _imp_current_line = 314; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 314 "regression-compile-tmp/EVENTS.imp" return; _imp_endofblock: ; } // End of block EVENTFUL at level 2 // 315 // 316 // 317 // 318 // 319 // 320 !* The following set of routines test various aspects of // 321 !* procedures. Firstly, it checks whether routines nested // 322 !* to depth four can be handled. Then it checks %Routine %Specs // 323 !* and mutual recursion. Finally, at a very deep recursion and // 324 !* level of nesting, the signalling of an event. This severe // 325 !* test checks the possibility of stack corruption and automatic // 326 !* %Return from a great, complex depth. // 327 // 328 // 329 %Routine %Spec Inc (%Integer D) _imp_current_line = 329; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 329 "regression-compile-tmp/EVENTS.imp" auto void INC( int D ); // 330 // 331 // 332 %Routine Inc2 (%Integer D) _imp_current_line = 332; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 332 "regression-compile-tmp/EVENTS.imp" void INC2( int D ) #line 332 "regression-compile-tmp/EVENTS.imp" { __label__ _imp_endofblock; // 333 // 334 %Routine Inc3 (%Integer D) _imp_current_line = 334; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 334 "regression-compile-tmp/EVENTS.imp" void INC3( int D ) #line 334 "regression-compile-tmp/EVENTS.imp" { __label__ _imp_endofblock; // 335 // 336 %Routine Inc4 (%Integer D) _imp_current_line = 336; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 336 "regression-compile-tmp/EVENTS.imp" void INC4( int D ) #line 336 "regression-compile-tmp/EVENTS.imp" { __label__ _imp_endofblock; // 337 // 338 %Routine Inc5 (%Integer D) _imp_current_line = 338; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 338 "regression-compile-tmp/EVENTS.imp" void INC5( int D ) #line 338 "regression-compile-tmp/EVENTS.imp" { __label__ _imp_endofblock; // 339 // 340 %If D > 400 %then %Start _imp_current_line = 340; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 340 "regression-compile-tmp/EVENTS.imp" if (((D) <= (400))) goto L_001a; // 341 %Signal %Event 15, 118 _imp_current_line = 341; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 341 "regression-compile-tmp/EVENTS.imp" _imp_signal(15, 118, 0, ""); // 342 Print String ("FAIL: To raise a deep event.") _imp_current_line = 342; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 342 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("FAIL: To raise a deep event.")); // 343 New Line _imp_current_line = 343; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 343 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINE(); // 344 %Return _imp_current_line = 344; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 344 "regression-compile-tmp/EVENTS.imp" return; // 345 %Finish _imp_current_line = 345; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 345 "regression-compile-tmp/EVENTS.imp" L_001a:; // 346 Inc (D+1) { Mutual Recursion. _imp_current_line = 346; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 346 "regression-compile-tmp/EVENTS.imp" INC((((int)(D)) + (1))); // 347 // 348 %End { of Inc5 _imp_current_line = 348; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 348 "regression-compile-tmp/EVENTS.imp" return; _imp_endofblock: ; } // End of block INC5 at level 5 // 349 // 350 Inc5 (D+1) _imp_current_line = 350; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 350 "regression-compile-tmp/EVENTS.imp" INC5((((int)(D)) + (1))); // 351 // 352 %End { of Inc4 _imp_current_line = 352; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 352 "regression-compile-tmp/EVENTS.imp" return; _imp_endofblock: ; } // End of block INC4 at level 4 // 353 // 354 Inc4 (D+1) _imp_current_line = 354; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 354 "regression-compile-tmp/EVENTS.imp" INC4((((int)(D)) + (1))); // 355 // 356 %End { of Inc3 _imp_current_line = 356; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 356 "regression-compile-tmp/EVENTS.imp" return; _imp_endofblock: ; } // End of block INC3 at level 3 // 357 // 358 Inc3 (D+1) _imp_current_line = 358; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 358 "regression-compile-tmp/EVENTS.imp" INC3((((int)(D)) + (1))); // 359 // 360 %End { of Inc2 _imp_current_line = 360; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 360 "regression-compile-tmp/EVENTS.imp" return; _imp_endofblock: ; } // End of block INC2 at level 2 // 361 // 362 // 363 // 364 // 365 %Routine Inc (%Integer D) _imp_current_line = 365; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 365 "regression-compile-tmp/EVENTS.imp" void INC( int D ) #line 365 "regression-compile-tmp/EVENTS.imp" { __label__ _imp_endofblock; // 366 // 367 Inc2 (D+1) _imp_current_line = 367; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 367 "regression-compile-tmp/EVENTS.imp" INC2((((int)(D)) + (1))); // 368 // 369 %End { of Inc _imp_current_line = 369; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 369 "regression-compile-tmp/EVENTS.imp" return; _imp_endofblock: ; } // End of block INC at level 2 // 370 // 371 // 372 // 373 %if cliparam = "" %start _imp_current_line = 373; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 373 "regression-compile-tmp/EVENTS.imp" if ((_imp_strcmp(_imp_CLIPARAM(), _imp_str_literal("")) != 0)) goto L_001b; // 374 Open Output (1, "/tmp/EVENTS.out") _imp_current_line = 374; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 374 "regression-compile-tmp/EVENTS.imp" _imp_OPENOUTPUT(1, _imp_str_literal("/tmp/EVENTS.out")); // 375 %else _imp_current_line = 375; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 375 "regression-compile-tmp/EVENTS.imp" goto L_001c; #line 375 "regression-compile-tmp/EVENTS.imp" L_001b:; // 376 print string("Writing to ".cliparam); newline _imp_current_line = 376; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 376 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal("Writing to "),(_imp_string)_imp_CLIPARAM())); _imp_current_line = 376; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 376 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINE(); // 377 Open Output (1, cliparam) _imp_current_line = 377; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 377 "regression-compile-tmp/EVENTS.imp" _imp_OPENOUTPUT(1, _imp_CLIPARAM()); // 378 %finish _imp_current_line = 378; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 378 "regression-compile-tmp/EVENTS.imp" L_001c:; // 379 Select Output (1) _imp_current_line = 379; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 379 "regression-compile-tmp/EVENTS.imp" _imp_SELECTOUTPUT(1); // 380 // 381 New Lines (3) _imp_current_line = 381; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 381 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINES(3); // 382 // 383 Print String ("Test the Ability to Raise Standard Events"); New Line _imp_current_line = 383; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 383 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("Test the Ability to Raise Standard Events")); _imp_current_line = 383; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 383 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINE(); // 384 Print String ("-----------------------------------------") _imp_current_line = 384; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 384 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("-----------------------------------------")); // 385 New Lines (2) _imp_current_line = 385; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 385 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINES(2); // 386 // 387 Test Standard Events _imp_current_line = 387; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 387 "regression-compile-tmp/EVENTS.imp" TESTSTANDARDEVENTS(); // 388 // 389 New Lines (2) _imp_current_line = 389; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 389 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINES(2); // 390 // 391 Eventful(1) _imp_current_line = 391; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 391 "regression-compile-tmp/EVENTS.imp" EVENTFUL(1); // 392 Resume2: Eventful(0) _imp_current_line = 392; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 392 "regression-compile-tmp/EVENTS.imp" U_1000:; _imp_current_line = 392; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 392 "regression-compile-tmp/EVENTS.imp" EVENTFUL(0); // 393 Resume3: Inc (1) _imp_current_line = 393; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 393 "regression-compile-tmp/EVENTS.imp" U_1001:; _imp_current_line = 393; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 393 "regression-compile-tmp/EVENTS.imp" INC(1); // 394 Resume4: _imp_current_line = 394; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 394 "regression-compile-tmp/EVENTS.imp" U_1002:; // 395 Print String ("Returned from a depth correctly.") _imp_current_line = 395; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 395 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal("Returned from a depth correctly.")); // 396 New Lines (2) _imp_current_line = 396; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 396 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINES(2); // 397 // 398 select output(0) _imp_current_line = 398; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 398 "regression-compile-tmp/EVENTS.imp" _imp_SELECTOUTPUT(0); // 399 write(failures,1); printstring(" failure(s)"); newline _imp_current_line = 399; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 399 "regression-compile-tmp/EVENTS.imp" _imp_WRITE(FAILURES, 1); _imp_current_line = 399; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 399 "regression-compile-tmp/EVENTS.imp" _imp_PRINTSTRING(_imp_str_literal(" failure(s)")); _imp_current_line = 399; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 399 "regression-compile-tmp/EVENTS.imp" _imp_NEWLINE(); // 400 // 401 %End %of %Program _imp_current_line = 401; _imp_current_file = "regression-compile-tmp/EVENTS.imp"; #line 401 "regression-compile-tmp/EVENTS.imp" return 0; sw1_TRAP_0:; sw1_TRAP_1:; sw1_TRAP_2:; sw1_TRAP_3:; sw1_TRAP_4:; sw1_TRAP_5:; sw1_TRAP_6:; sw1_TRAP_7:; sw1_TRAP_8:; sw1_TRAP_9:; sw1_TRAP_11:; sw1_TRAP_12:; sw1_TRAP_13:; sw1_TRAP_14:; goto sw1_TRAP_default; _imp_endofblock: ; } // End of block _imp_main at level 1 #line 401 "regression-compile-tmp/EVENTS.imp" // End of file