#include "M3Runtime.h" #define t20 ADDRESS #define t48 void #define TC20 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #define t33 ADDRESS typedef int t1; #define TC33 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #define t50 ADDRESS #define TC50 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #line 15 "../Interfaces/Token.i3" typedef unsigned char t9; #line 45 typedef struct { int elts[4]; } t2; #line 13 "Ident.m3" typedef t1 (*t3)(); #line 38 "../Interfaces/Scanner.i3" typedef t48 (*t4)(); #define t21 ADDRESS typedef struct { TYPE self; int private; } t21_methods; #define t21_msize (sizeof (t21_methods)) typedef struct { ADDRESS methods; } t21_fields; #define t21_size (sizeof (t21_fields)) #define TC21 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t21_MapProc TC_ROOT->mapProc #define t5 ADDRESS #define TC5 TC_Rd__T IMPORT TYPE TC_Rd__T; #line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3" IMPORT char VS_Rd__T__2555b70b3f7780b1; #define t5_MapProc TC_Rd__T->mapProc #define t6 ADDRESS #define TC6 TC_String__T IMPORT TYPE TC_String__T; #line 13 "../Interfaces/String.i3" IMPORT char VS_String__T__3a6c7dc12615e4ee; #define t7 ADDRESS #define TC7 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t7_MapProc TC_TEXT->mapProc typedef t6 (*t8)(); #line 13 "../Interfaces/Scanner.i3" typedef struct { t9 _token; t6 _string; t1 _value; t1 _offset; } t10; typedef unsigned char t11; #line 287 ".ROOT/.boots/corelib/Interfaces/Rd.i3" typedef t11 (*t12)(); typedef int t13; #line 249 typedef t13 (*t14)(); #line 220 typedef t7 (*t15)(); typedef unsigned char t16; #line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef struct { char* elts; int size[1]; } t36; #line 189 ".ROOT/.boots/corelib/Interfaces/Rd.i3" #define t17 t36 typedef t16 (*t18)(); #line 84 typedef unsigned char t19; #line 17 "./Ident.i3" #define t22 t36 #define t23 t36 typedef unsigned char t24; #line 17 typedef struct { t1 elts[201]; } t25; #line 16 typedef struct { t6 elts[201]; } t26; #line 65 "../Interfaces/Token.i3" typedef struct { t6 elts[97]; } t27; #line 19 "../Interfaces/String.i3" typedef signed_char t30; typedef struct { t6 elts[100]; } t31; #line 17 typedef struct { t1 _top; t31 _stk; } t28; #line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3" #define t29 ADDRESS #define TC29 TC_Wr__T IMPORT TYPE TC_Wr__T; #line 90 IMPORT char VS_Wr__T__2555b70b3f7780b1; #define t29_MapProc TC_Wr__T->mapProc typedef struct { #line 14 "../Interfaces/String.i3" t6 _module; t6 _item; } t32; #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef signed_char t34; typedef t34 (*t35)(); #line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef unsigned char t37; #line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3" #define t38 ADDRESS #define TC38 TC_Thread__T IMPORT TYPE TC_Thread__T; #line 15 IMPORT char VS_Thread__T__2555b70b3f7780b1; #define t38_MapProc TC_Thread__T->mapProc typedef t20 (*t39)(); #define t40 ADDRESS #define TC40 TC_Thread__Condition IMPORT TYPE TC_Thread__Condition; #line 21 IMPORT char VS_Thread__Condition__26d5968239e08f4e; #define t40_MapProc TC_Thread__Condition->mapProc #define t41 ADDRESS #define TC41 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t41_MapProc TC_MUTEX->mapProc typedef t38 (*t42)(); #line 23 #define t43 ADDRESS #line 23 typedef struct { t39 _apply; } t43_methods; #define t43_msize (sizeof (t43_methods)) typedef struct { #line 23 int filler; } t43_fields; #define t43_size (sizeof (t43_fields)) #define TC43 TC_Thread__Closure IMPORT TYPE TC_Thread__Closure; #line 23 IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; #define t43_MapProc TC_Thread__Closure->mapProc typedef t40 (*t44)(); typedef t41 (*t45)(); #line 28 #define t46 ADDRESS #line 28 typedef struct { int filler; } t46_methods; #define t46_msize (sizeof (t46_methods)) typedef struct { #line 28 t13 _stackSize; } t46_fields; #define t46_size (sizeof (t46_fields)) #define TC46 TC_Thread__SizedClosure IMPORT TYPE TC_Thread__SizedClosure; #line 28 IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; #define t46_MapProc TC_Thread__SizedClosure->mapProc typedef CLOSURE t47; #define t49 ADDRESS typedef struct { TYPE self; int private; } t49_methods; #define t49_msize (sizeof (t49_methods)) typedef struct { ADDRESS methods; } t49_fields; #define t49_size (sizeof (t49_fields)) #define TC49 TC_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; typedef double t51; typedef float t52; #line 8 "Ident.m3" IMPORT INITLINK* Scanner__init; IMPORT INITLINK* Token__init; IMPORT INITLINK* String__init; IMPORT INITLINK* Ident__init; #line 8 IMPORT t10 _Scanner__cur; IMPORT char VS_Scanner__cur__929fa6f8367ea415; IMPORT t6 _Scanner__MatchID (); IMPORT char VS_Scanner__MatchID__4fb3c66f3429afd9; #line 8 IMPORT t48 _Scanner__GetToken (); IMPORT char VS_Scanner__GetToken__192100a32c7e576d; IMPORT t2 _Token__DeclStart; IMPORT char VS_Token__DeclStart__730c82bc2c2001b8; #line 8 IMPORT t2 _Token__TypeStart; IMPORT char VS_Token__TypeStart__f71616cb38a20d02; IMPORT t2 _Token__ExprStart; IMPORT char VS_Token__ExprStart__21dc8a0a27344836; #line 8 IMPORT char VS_Ident__MaxIDs__008b1dc032f417a4; IMPORT t26 _Ident__stack; IMPORT char VS_Ident__stack__26abbee13e46561c; #line 8 IMPORT t25 _Ident__offset; IMPORT char VS_Ident__offset__ef43975b2dae4deb; IMPORT t1 _Ident__top; IMPORT char VS_Ident__top__5f69d9f328d50d34; #line 8 EXPORT t1 _Ident__ParseList (); EXPORT char VS_Ident__ParseList__bf92180a2a700808 = '\0'; #line 13 "Ident.m3" EXPORT t1 _Ident__ParseList (_fail) t2 * _fail; { t1 z4; t2 z2; t1 z3; t2 z5; t6 z6; t11 z7; #line 13 "Ident.m3" { auto t1 _start; auto t1 __result; { CHECKSTACKOVERFLOW; _start = _Ident__top; loop_0:; z4 = _Ident__top; if ((z4 < 0) || (200 < z4)) RANGEFAULT; (_Ident__offset.elts[z4]) = (_Scanner__cur._offset); z2.elts [0] = 0x00004000; z2.elts [1] = 0; z2.elts [2] = 0; z2.elts [3] = 0; z5 = z2; z6 = _Scanner__MatchID (&(*_fail), &z5); #line 19 z3 = _Ident__top; if ((z3 < 0) || (200 < z3)) RANGEFAULT; (_Ident__stack.elts[z3]) = z6; _Ident__top += 1 ; z7 = ((_Scanner__cur._token) != 14 ); if (z7) { goto loop_exit_0; }; _Scanner__GetToken (); goto loop_0; loop_exit_0: /**/; z3 = _Ident__top - _start; __result = z3; return __result; } } }; PRIVATE int init_done = -1; #line 24 "Ident.m3" PRIVATE void Ident__initProc (g) int g; { #line 24 "Ident.m3" if (init_done >= g) return; init_done = g; INITIALIZE (& Ident__init); INITIALIZE (& Scanner__init); INITIALIZE (& Token__init); #line 24 INITIALIZE (& String__init); return; }; PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, Ident__initProc}; static char* VSimports[] = { &VS_Scanner__cur__929fa6f8367ea415, &VS_Scanner__MatchID__4fb3c66f3429afd9, &VS_Scanner__GetToken__192100a32c7e576d, &VS_Token__DeclStart__730c82bc2c2001b8, &VS_Token__TypeStart__f71616cb38a20d02, &VS_Token__ExprStart__21dc8a0a27344836, &VS_String__T__3a6c7dc12615e4ee, &VS_Ident__MaxIDs__008b1dc032f417a4, &VS_Ident__stack__26abbee13e46561c, &VS_Ident__offset__ef43975b2dae4deb, &VS_Ident__top__5f69d9f328d50d34, &VS_Scanner__cur__929fa6f8367ea415, &VS_Scanner__GetToken__192100a32c7e576d, &VS_Scanner__MatchID__4fb3c66f3429afd9, NIL }; void Ident__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = Ident__init; Ident__init = & me_0; break; }; case 1: { break; }; case 2: { break; }; }; };