#include "M3Runtime.h" typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "*EOF*", 6}; PRIVATE TXT txt2 = { 3, "*id*", 5}; PRIVATE TXT txt3 = { 3, "*cardinal*", 11}; PRIVATE TXT txt4 = { 3, "*real*", 7}; PRIVATE TXT txt5 = { 3, "*longreal*", 11}; PRIVATE TXT txt6 = { 3, "*char*", 7}; PRIVATE TXT txt7 = { 3, "*text*", 7}; PRIVATE TXT txt8 = { 3, "+", 2}; PRIVATE TXT txt9 = { 3, "-", 2}; PRIVATE TXT txt10 = { 3, "*", 2}; PRIVATE TXT txt11 = { 3, "/", 2}; PRIVATE TXT txt12 = { 3, ":=", 3}; PRIVATE TXT txt13 = { 3, "&", 2}; PRIVATE TXT txt14 = { 3, ".", 2}; PRIVATE TXT txt15 = { 3, ",", 2}; PRIVATE TXT txt16 = { 3, ";", 2}; PRIVATE TXT txt17 = { 3, "(", 2}; PRIVATE TXT txt18 = { 3, "[", 2}; PRIVATE TXT txt19 = { 3, "{", 2}; PRIVATE TXT txt20 = { 3, "^", 2}; PRIVATE TXT txt21 = { 3, "=", 2}; PRIVATE TXT txt22 = { 3, "#", 2}; PRIVATE TXT txt23 = { 3, "<", 2}; PRIVATE TXT txt24 = { 3, ">", 2}; PRIVATE TXT txt25 = { 3, "<=", 3}; PRIVATE TXT txt26 = { 3, ">=", 3}; PRIVATE TXT txt27 = { 3, "..", 3}; PRIVATE TXT txt28 = { 3, ":", 2}; PRIVATE TXT txt29 = { 3, ")", 2}; PRIVATE TXT txt30 = { 3, "]", 2}; PRIVATE TXT txt31 = { 3, "}", 2}; PRIVATE TXT txt32 = { 3, "|", 2}; PRIVATE TXT txt33 = { 3, "<:", 3}; PRIVATE TXT txt34 = { 3, "=>", 3}; PRIVATE TXT txt35 = { 3, "<*INLINE", 9}; PRIVATE TXT txt36 = { 3, "<*EXTERNAL", 11}; PRIVATE TXT txt37 = { 3, "<*ASSERT", 9}; PRIVATE TXT txt38 = { 3, "<*NOWARN", 9}; PRIVATE TXT txt39 = { 3, "<*UNUSED", 9}; PRIVATE TXT txt40 = { 3, "<*OBSOLETE", 11}; PRIVATE TXT txt41 = { 3, "AND", 4}; PRIVATE TXT txt42 = { 3, "ARRAY", 6}; PRIVATE TXT txt43 = { 3, "BEGIN", 6}; PRIVATE TXT txt44 = { 3, "BITS", 5}; PRIVATE TXT txt45 = { 3, "BRANDED", 8}; PRIVATE TXT txt46 = { 3, "BY", 3}; PRIVATE TXT txt47 = { 3, "CASE", 5}; PRIVATE TXT txt48 = { 3, "CONST", 6}; PRIVATE TXT txt49 = { 3, "DIV", 4}; PRIVATE TXT txt50 = { 3, "DO", 3}; PRIVATE TXT txt51 = { 3, "ELSE", 5}; PRIVATE TXT txt52 = { 3, "ELSIF", 6}; PRIVATE TXT txt53 = { 3, "END", 4}; PRIVATE TXT txt54 = { 3, "EXCEPT", 7}; PRIVATE TXT txt55 = { 3, "EXCEPTION", 10}; PRIVATE TXT txt56 = { 3, "EXIT", 5}; PRIVATE TXT txt57 = { 3, "EXPORTS", 8}; PRIVATE TXT txt58 = { 3, "EVAL", 5}; PRIVATE TXT txt59 = { 3, "FINALLY", 8}; PRIVATE TXT txt60 = { 3, "FOR", 4}; PRIVATE TXT txt61 = { 3, "FROM", 5}; PRIVATE TXT txt62 = { 3, "IF", 3}; PRIVATE TXT txt63 = { 3, "IMPORT", 7}; PRIVATE TXT txt64 = { 3, "IN", 3}; PRIVATE TXT txt65 = { 3, "INTERFACE", 10}; PRIVATE TXT txt66 = { 3, "LOCK", 5}; PRIVATE TXT txt67 = { 3, "LOOP", 5}; PRIVATE TXT txt68 = { 3, "METHODS", 8}; PRIVATE TXT txt69 = { 3, "MOD", 4}; PRIVATE TXT txt70 = { 3, "MODULE", 7}; PRIVATE TXT txt71 = { 3, "NOT", 4}; PRIVATE TXT txt72 = { 3, "OBJECT", 7}; PRIVATE TXT txt73 = { 3, "OF", 3}; PRIVATE TXT txt74 = { 3, "OR", 3}; PRIVATE TXT txt75 = { 3, "PROCEDURE", 10}; PRIVATE TXT txt76 = { 3, "RAISE", 6}; PRIVATE TXT txt77 = { 3, "RAISES", 7}; PRIVATE TXT txt78 = { 3, "READONLY", 9}; PRIVATE TXT txt79 = { 3, "RECORD", 7}; PRIVATE TXT txt80 = { 3, "REF", 4}; PRIVATE TXT txt81 = { 3, "REPEAT", 7}; PRIVATE TXT txt82 = { 3, "RETURN", 7}; PRIVATE TXT txt83 = { 3, "REVEAL", 7}; PRIVATE TXT txt84 = { 3, "SET", 4}; PRIVATE TXT txt85 = { 3, "THEN", 5}; PRIVATE TXT txt86 = { 3, "TO", 3}; PRIVATE TXT txt87 = { 3, "TRY", 4}; PRIVATE TXT txt88 = { 3, "TYPE", 5}; PRIVATE TXT txt89 = { 3, "TYPECASE", 9}; PRIVATE TXT txt90 = { 3, "UNSAFE", 7}; PRIVATE TXT txt91 = { 3, "UNTIL", 6}; PRIVATE TXT txt92 = { 3, "UNTRACED", 9}; PRIVATE TXT txt93 = { 3, "VALUE", 6}; PRIVATE TXT txt94 = { 3, "VAR", 4}; PRIVATE TXT txt95 = { 3, "WHILE", 6}; PRIVATE TXT txt96 = { 3, "WITH", 5}; #define t20 ADDRESS typedef int t8; #define TC20 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #define t29 ADDRESS #define t41 void #define TC29 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #define t43 ADDRESS #define TC43 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #line 22 "Token.m3" typedef t41 (*t1)(); #line 13 "./String.i3" #define t2 ADDRESS #define TC2 TC_String__T IMPORT TYPE TC_String__T; #line 13 IMPORT char VS_String__T__3a6c7dc12615e4ee; #line 15 "./Token.i3" typedef unsigned char t3; #define t4 ADDRESS #define TC4 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t4_MapProc TC_TEXT->mapProc typedef struct { #line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3" char* elts; int size[1]; } t27; #line 65 "./Token.i3" #define t5 t27 typedef struct { t2 elts[97]; } t6; #line 45 typedef struct { int elts[4]; } t7; #line 58 "./String.i3" typedef t8 (*t9)(); typedef int t10; #line 19 typedef signed_char t17; typedef struct { t2 elts[100]; } t18; #line 17 typedef struct { t8 _top; t18 _stk; } t11; #define t30 ADDRESS typedef struct { TYPE self; int private; } t30_methods; #define t30_msize (sizeof (t30_methods)) typedef struct { ADDRESS methods; } t30_fields; #define t30_size (sizeof (t30_fields)) #define TC30 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t30_MapProc TC_ROOT->mapProc #define t12 ADDRESS #define TC12 TC_Wr__T IMPORT TYPE TC_Wr__T; #line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3" IMPORT char VS_Wr__T__2555b70b3f7780b1; #define t12_MapProc TC_Wr__T->mapProc typedef t4 (*t13)(); #line 34 "./String.i3" typedef t2 (*t14)(); typedef unsigned char t15; #line 28 #define t16 t27 typedef struct { #line 14 t2 _module; t2 _item; } t19; #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef signed_char t21; typedef t21 (*t22)(); typedef unsigned char t23; #line 55 typedef t23 (*t24)(); #line 26 typedef t10 (*t25)(); #line 23 typedef t15 (*t26)(); #line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef unsigned char t28; #line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3" #define t31 ADDRESS #define TC31 TC_Thread__T IMPORT TYPE TC_Thread__T; #line 15 IMPORT char VS_Thread__T__2555b70b3f7780b1; #define t31_MapProc TC_Thread__T->mapProc typedef t29 (*t32)(); #define t33 ADDRESS #define TC33 TC_Thread__Condition IMPORT TYPE TC_Thread__Condition; #line 21 IMPORT char VS_Thread__Condition__26d5968239e08f4e; #define t33_MapProc TC_Thread__Condition->mapProc #define t34 ADDRESS #define TC34 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t34_MapProc TC_MUTEX->mapProc typedef t31 (*t35)(); #line 23 #define t36 ADDRESS #line 23 typedef struct { t32 _apply; } t36_methods; #define t36_msize (sizeof (t36_methods)) typedef struct { #line 23 int filler; } t36_fields; #define t36_size (sizeof (t36_fields)) #define TC36 TC_Thread__Closure IMPORT TYPE TC_Thread__Closure; #line 23 IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; #define t36_MapProc TC_Thread__Closure->mapProc typedef t33 (*t37)(); typedef t34 (*t38)(); #line 28 #define t39 ADDRESS #line 28 typedef struct { int filler; } t39_methods; #define t39_msize (sizeof (t39_methods)) typedef struct { #line 28 t10 _stackSize; } t39_fields; #define t39_size (sizeof (t39_fields)) #define TC39 TC_Thread__SizedClosure IMPORT TYPE TC_Thread__SizedClosure; #line 28 IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; #define t39_MapProc TC_Thread__SizedClosure->mapProc typedef CLOSURE t40; #define t42 ADDRESS typedef struct { TYPE self; int private; } t42_methods; #define t42_msize (sizeof (t42_methods)) typedef struct { ADDRESS methods; } t42_fields; #define t42_size (sizeof (t42_fields)) #define TC42 TC_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; typedef double t44; typedef float t45; #line 10 "Token.m3" IMPORT INITLINK* Text__init; IMPORT INITLINK* String__init; IMPORT INITLINK* Token__init; IMPORT TYPE TC_Text__T; IMPORT char VS_Text__T__fc4b369f3ab271fd; #line 10 IMPORT t2 _String__Add (); IMPORT char VS_String__Add__0f5e21cc3d204b63; IMPORT t41 _String__SetClass (); IMPORT char VS_String__SetClass__5d54257a285f9c99; #line 10 IMPORT t7 _Token__DeclStart; IMPORT char VS_Token__DeclStart__730c82bc2c2001b8; IMPORT t7 _Token__TypeStart; IMPORT char VS_Token__TypeStart__f71616cb38a20d02; #line 10 IMPORT t7 _Token__ExprStart; IMPORT char VS_Token__ExprStart__21dc8a0a27344836; IMPORT t6 _Token__name; IMPORT char VS_Token__name__ca7a44a32968dc66; #line 10 EXPORT t41 _Token__Initialize (); EXPORT char VS_Token__Initialize__e6b4a7a23b1d37e6 = '\0'; PRIVATE t41 _Token__RW (); #line 10 #line 14 "Token.m3" PRIVATE t41 _Token__RW (_s, _tok) t4 _s; t3 _tok; { t2 z3; t8 z4; #line 14 "Token.m3" { auto t2 _str; { CHECKSTACKOVERFLOW; z3 = _String__Add (_s, 999999 ); _str = z3; z4 = _tok; if (z4 < 0) RANGEFAULT; _String__SetClass (_str, z4); (_Token__name.elts[_tok]) = _str; } } }; #line 22 "Token.m3" EXPORT t41 _Token__Initialize () { #line 22 "Token.m3" { { CHECKSTACKOVERFLOW; _Token__RW (((ADDRESS)(& txt1.str)), 0 ); _Token__RW (((ADDRESS)(& txt2.str)), 1 ); _Token__RW (((ADDRESS)(& txt3.str)), 2 ); _Token__RW (((ADDRESS)(& txt4.str)), 3 ); _Token__RW (((ADDRESS)(& txt5.str)), 4 ); _Token__RW (((ADDRESS)(& txt6.str)), 5 ); _Token__RW (((ADDRESS)(& txt7.str)), 6 ); _Token__RW (((ADDRESS)(& txt8.str)), 7 ); _Token__RW (((ADDRESS)(& txt9.str)), 8 ); _Token__RW (((ADDRESS)(& txt10.str)), 9 ); _Token__RW (((ADDRESS)(& txt11.str)), 10 ); _Token__RW (((ADDRESS)(& txt12.str)), 11 ); _Token__RW (((ADDRESS)(& txt13.str)), 12 ); _Token__RW (((ADDRESS)(& txt14.str)), 13 ); _Token__RW (((ADDRESS)(& txt15.str)), 14 ); _Token__RW (((ADDRESS)(& txt16.str)), 15 ); _Token__RW (((ADDRESS)(& txt17.str)), 16 ); _Token__RW (((ADDRESS)(& txt18.str)), 17 ); _Token__RW (((ADDRESS)(& txt19.str)), 18 ); _Token__RW (((ADDRESS)(& txt20.str)), 19 ); _Token__RW (((ADDRESS)(& txt21.str)), 20 ); _Token__RW (((ADDRESS)(& txt22.str)), 21 ); _Token__RW (((ADDRESS)(& txt23.str)), 22 ); _Token__RW (((ADDRESS)(& txt24.str)), 23 ); _Token__RW (((ADDRESS)(& txt25.str)), 24 ); _Token__RW (((ADDRESS)(& txt26.str)), 25 ); _Token__RW (((ADDRESS)(& txt27.str)), 26 ); _Token__RW (((ADDRESS)(& txt28.str)), 27 ); _Token__RW (((ADDRESS)(& txt29.str)), 28 ); _Token__RW (((ADDRESS)(& txt30.str)), 29 ); _Token__RW (((ADDRESS)(& txt31.str)), 30 ); _Token__RW (((ADDRESS)(& txt32.str)), 31 ); _Token__RW (((ADDRESS)(& txt33.str)), 32 ); _Token__RW (((ADDRESS)(& txt34.str)), 33 ); _Token__RW (((ADDRESS)(& txt35.str)), 35 ); _Token__RW (((ADDRESS)(& txt36.str)), 36 ); _Token__RW (((ADDRESS)(& txt37.str)), 37 ); _Token__RW (((ADDRESS)(& txt38.str)), 38 ); _Token__RW (((ADDRESS)(& txt39.str)), 39 ); _Token__RW (((ADDRESS)(& txt40.str)), 40 ); _Token__RW (((ADDRESS)(& txt41.str)), 41 ); _Token__RW (((ADDRESS)(& txt42.str)), 42 ); _Token__RW (((ADDRESS)(& txt43.str)), 43 ); _Token__RW (((ADDRESS)(& txt44.str)), 44 ); _Token__RW (((ADDRESS)(& txt45.str)), 45 ); _Token__RW (((ADDRESS)(& txt46.str)), 46 ); _Token__RW (((ADDRESS)(& txt47.str)), 47 ); _Token__RW (((ADDRESS)(& txt48.str)), 48 ); _Token__RW (((ADDRESS)(& txt49.str)), 49 ); _Token__RW (((ADDRESS)(& txt50.str)), 50 ); _Token__RW (((ADDRESS)(& txt51.str)), 51 ); _Token__RW (((ADDRESS)(& txt52.str)), 52 ); _Token__RW (((ADDRESS)(& txt53.str)), 53 ); _Token__RW (((ADDRESS)(& txt54.str)), 55 ); _Token__RW (((ADDRESS)(& txt55.str)), 56 ); _Token__RW (((ADDRESS)(& txt56.str)), 57 ); _Token__RW (((ADDRESS)(& txt57.str)), 58 ); _Token__RW (((ADDRESS)(& txt58.str)), 54 ); _Token__RW (((ADDRESS)(& txt59.str)), 59 ); _Token__RW (((ADDRESS)(& txt60.str)), 60 ); _Token__RW (((ADDRESS)(& txt61.str)), 61 ); _Token__RW (((ADDRESS)(& txt62.str)), 62 ); _Token__RW (((ADDRESS)(& txt63.str)), 63 ); _Token__RW (((ADDRESS)(& txt64.str)), 64 ); _Token__RW (((ADDRESS)(& txt65.str)), 65 ); _Token__RW (((ADDRESS)(& txt66.str)), 66 ); _Token__RW (((ADDRESS)(& txt67.str)), 67 ); _Token__RW (((ADDRESS)(& txt68.str)), 68 ); _Token__RW (((ADDRESS)(& txt69.str)), 69 ); _Token__RW (((ADDRESS)(& txt70.str)), 70 ); _Token__RW (((ADDRESS)(& txt71.str)), 71 ); _Token__RW (((ADDRESS)(& txt72.str)), 72 ); _Token__RW (((ADDRESS)(& txt73.str)), 73 ); _Token__RW (((ADDRESS)(& txt74.str)), 74 ); _Token__RW (((ADDRESS)(& txt75.str)), 75 ); _Token__RW (((ADDRESS)(& txt76.str)), 76 ); _Token__RW (((ADDRESS)(& txt77.str)), 77 ); _Token__RW (((ADDRESS)(& txt78.str)), 78 ); _Token__RW (((ADDRESS)(& txt79.str)), 79 ); _Token__RW (((ADDRESS)(& txt80.str)), 80 ); _Token__RW (((ADDRESS)(& txt81.str)), 81 ); _Token__RW (((ADDRESS)(& txt82.str)), 82 ); _Token__RW (((ADDRESS)(& txt83.str)), 83 ); _Token__RW (((ADDRESS)(& txt84.str)), 84 ); _Token__RW (((ADDRESS)(& txt85.str)), 85 ); _Token__RW (((ADDRESS)(& txt86.str)), 86 ); _Token__RW (((ADDRESS)(& txt87.str)), 87 ); _Token__RW (((ADDRESS)(& txt88.str)), 88 ); _Token__RW (((ADDRESS)(& txt89.str)), 89 ); _Token__RW (((ADDRESS)(& txt90.str)), 90 ); _Token__RW (((ADDRESS)(& txt91.str)), 91 ); _Token__RW (((ADDRESS)(& txt92.str)), 92 ); _Token__RW (((ADDRESS)(& txt93.str)), 93 ); _Token__RW (((ADDRESS)(& txt94.str)), 94 ); _Token__RW (((ADDRESS)(& txt95.str)), 95 ); _Token__RW (((ADDRESS)(& txt96.str)), 96 ); } } }; PRIVATE int init_done = -1; #line 121 "Token.m3" PRIVATE void Token__initProc (g) int g; { #line 121 "Token.m3" if (init_done >= g) return; init_done = g; INITIALIZE (& Token__init); INITIALIZE (& Text__init); INITIALIZE (& String__init); #line 121 return; }; PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, Token__initProc}; static char* VSimports[] = { &VS_Text__T__fc4b369f3ab271fd, &VS_String__T__3a6c7dc12615e4ee, &VS_String__Add__0f5e21cc3d204b63, &VS_String__SetClass__5d54257a285f9c99, &VS_Token__DeclStart__730c82bc2c2001b8, &VS_Token__TypeStart__f71616cb38a20d02, &VS_Token__ExprStart__21dc8a0a27344836, &VS_Token__name__ca7a44a32968dc66, NIL }; void Token__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = Token__init; Token__init = & me_0; break; }; case 1: { break; }; case 2: { break; }; }; };