#include "M3Runtime.h" #define t19 ADDRESS #define t44 void #define TC19 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #define t29 ADDRESS typedef int t4; #define TC29 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #define t46 ADDRESS #define TC46 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #line 38 "Scanner.i3" typedef t44 (*t1)(); #define t20 ADDRESS typedef struct { TYPE self; int private; } t20_methods; #define t20_msize (sizeof (t20_methods)) typedef struct { ADDRESS methods; } t20_fields; #define t20_size (sizeof (t20_fields)) #define TC20 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t20_MapProc TC_ROOT->mapProc #define t2 ADDRESS #define TC2 TC_Rd__T IMPORT TYPE TC_Rd__T; #line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3" IMPORT char VS_Rd__T__2555b70b3f7780b1; #define t2_MapProc TC_Rd__T->mapProc #define t3 ADDRESS #define TC3 TC_String__T IMPORT TYPE TC_String__T; #line 13 "./String.i3" IMPORT char VS_String__T__3a6c7dc12615e4ee; #line 15 "./Token.i3" typedef unsigned char t8; #line 45 typedef struct { int elts[4]; } t5; #define t6 ADDRESS #define TC6 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t6_MapProc TC_TEXT->mapProc typedef t3 (*t7)(); #line 13 "Scanner.i3" typedef struct { t8 _token; t3 _string; t4 _value; t4 _offset; } t9; typedef unsigned char t10; #line 287 ".ROOT/.boots/corelib/Interfaces/Rd.i3" typedef t10 (*t11)(); typedef int t12; #line 249 typedef t12 (*t13)(); #line 220 typedef t6 (*t14)(); typedef unsigned char t15; #line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef struct { char* elts; int size[1]; } t32; #line 189 ".ROOT/.boots/corelib/Interfaces/Rd.i3" #define t16 t32 typedef t15 (*t17)(); #line 84 typedef unsigned char t18; #line 65 "./Token.i3" #define t21 t32 typedef struct { t3 elts[97]; } t22; #line 58 "./String.i3" typedef t4 (*t23)(); #line 19 typedef signed_char t26; typedef struct { t3 elts[100]; } t27; #line 17 typedef struct { t4 _top; t27 _stk; } t24; #line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3" #define t25 ADDRESS #define TC25 TC_Wr__T IMPORT TYPE TC_Wr__T; #line 90 IMPORT char VS_Wr__T__2555b70b3f7780b1; #define t25_MapProc TC_Wr__T->mapProc typedef struct { #line 14 "./String.i3" t3 _module; t3 _item; } t28; #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef signed_char t30; typedef t30 (*t31)(); #line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef unsigned char t33; #line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3" #define t34 ADDRESS #define TC34 TC_Thread__T IMPORT TYPE TC_Thread__T; #line 15 IMPORT char VS_Thread__T__2555b70b3f7780b1; #define t34_MapProc TC_Thread__T->mapProc typedef t19 (*t35)(); #define t36 ADDRESS #define TC36 TC_Thread__Condition IMPORT TYPE TC_Thread__Condition; #line 21 IMPORT char VS_Thread__Condition__26d5968239e08f4e; #define t36_MapProc TC_Thread__Condition->mapProc #define t37 ADDRESS #define TC37 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t37_MapProc TC_MUTEX->mapProc typedef t34 (*t38)(); #line 23 #define t39 ADDRESS #line 23 typedef struct { t35 _apply; } t39_methods; #define t39_msize (sizeof (t39_methods)) typedef struct { #line 23 int filler; } t39_fields; #define t39_size (sizeof (t39_fields)) #define TC39 TC_Thread__Closure IMPORT TYPE TC_Thread__Closure; #line 23 IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; #define t39_MapProc TC_Thread__Closure->mapProc typedef t36 (*t40)(); typedef t37 (*t41)(); #line 28 #define t42 ADDRESS #line 28 typedef struct { int filler; } t42_methods; #define t42_msize (sizeof (t42_methods)) typedef struct { #line 28 t12 _stackSize; } t42_fields; #define t42_size (sizeof (t42_fields)) #define TC42 TC_Thread__SizedClosure IMPORT TYPE TC_Thread__SizedClosure; #line 28 IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; #define t42_MapProc TC_Thread__SizedClosure->mapProc typedef CLOSURE t43; #define t45 ADDRESS typedef struct { TYPE self; int private; } t45_methods; #define t45_msize (sizeof (t45_methods)) typedef struct { ADDRESS methods; } t45_fields; #define t45_size (sizeof (t45_fields)) #define TC45 TC_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; typedef double t47; typedef float t48; #line 8 "Scanner.i3" IMPORT INITLINK* Text__init; IMPORT INITLINK* String__init; IMPORT INITLINK* Rd__init; IMPORT INITLINK* Token__init; EXPORT INITLINK* Scanner__init = (INITLINK*) 0; #line 8 IMPORT TYPE TC_Text__T; IMPORT char VS_Text__T__fc4b369f3ab271fd; IMPORT EXCEPTION_NAME _Thread__Alerted; IMPORT char VS_Thread__Alerted__fc88feb43485af46; #line 8 IMPORT EXCEPTION_NAME _Rd__EndOfFile; IMPORT char VS_Rd__EndOfFile__f4a9d2f63b7e105d; IMPORT EXCEPTION_NAME _Rd__Failure; #line 8 IMPORT char VS_Rd__Failure__e4a829e331222b6d; IMPORT EXCEPTION_NAME _Rd__Error; IMPORT char VS_Rd__Error__5ca07bfe2ba90cfc; #line 8 IMPORT t5 _Token__DeclStart; IMPORT char VS_Token__DeclStart__730c82bc2c2001b8; IMPORT t5 _Token__TypeStart; IMPORT char VS_Token__TypeStart__f71616cb38a20d02; #line 8 IMPORT t5 _Token__ExprStart; IMPORT char VS_Token__ExprStart__21dc8a0a27344836; EXPORT t9 _Scanner__cur; EXPORT char VS_Scanner__cur__929fa6f8367ea415 = '\0'; #line 8 EXPORT t4 _Scanner__offset; EXPORT char VS_Scanner__offset__dfc05f042d8347f4 = '\0'; IMPORT t44 _Scanner__Match (); IMPORT char VS_Scanner__Match__aaf5b32f2f19a6d8; #line 8 IMPORT t3 _Scanner__MatchID (); IMPORT char VS_Scanner__MatchID__4fb3c66f3429afd9; IMPORT t44 _Scanner__GetToken (); IMPORT char VS_Scanner__GetToken__192100a32c7e576d; #line 8 IMPORT t44 _Scanner__Fail (); IMPORT char VS_Scanner__Fail__a15a8cf32391aa62; IMPORT t44 _Scanner__Here (); IMPORT char VS_Scanner__Here__1284254c3cfdbf9f; #line 8 IMPORT t44 _Scanner__Push (); IMPORT char VS_Scanner__Push__2865089230018ad8; IMPORT t44 _Scanner__Pop (); IMPORT char VS_Scanner__Pop__201d3ab93a5755c6; #line 8 IMPORT t44 _Scanner__Initialize (); IMPORT char VS_Scanner__Initialize__d46c4d5d3bf18383; PRIVATE int init_done = -1; #line 8 "Scanner.i3" PRIVATE void Scanner__initProc (g) int g; { #line 8 "Scanner.i3" if (init_done >= g) return; init_done = g; INITIALIZE (& Text__init); INITIALIZE (& String__init); INITIALIZE (& Rd__init); #line 8 INITIALIZE (& Token__init); #line 21 ZERO4 (& _Scanner__cur); #line 8 }; PRIVATE INITLINK me = {(INITLINK*)NIL, 1, Scanner__initProc }; static char* VSimports[] = { &VS_Text__T__fc4b369f3ab271fd, &VS_String__T__3a6c7dc12615e4ee, &VS_Thread__Alerted__fc88feb43485af46, &VS_Rd__T__2555b70b3f7780b1, &VS_Rd__EndOfFile__f4a9d2f63b7e105d, &VS_Rd__Failure__e4a829e331222b6d, &VS_Rd__Error__5ca07bfe2ba90cfc, &VS_Token__DeclStart__730c82bc2c2001b8, &VS_Token__TypeStart__f71616cb38a20d02, &VS_Token__ExprStart__21dc8a0a27344836, &VS_Scanner__Match__aaf5b32f2f19a6d8, &VS_Scanner__MatchID__4fb3c66f3429afd9, &VS_Scanner__GetToken__192100a32c7e576d, &VS_Scanner__Fail__a15a8cf32391aa62, &VS_Scanner__Here__1284254c3cfdbf9f, &VS_Scanner__Push__2865089230018ad8, &VS_Scanner__Pop__201d3ab93a5755c6, &VS_Scanner__Initialize__d46c4d5d3bf18383, NIL }; void Scanner__ILink (phase) int phase; { switch (phase) { case 0: { me.link = Scanner__init; Scanner__init = & me; break; }; case 1: { ZERO4 (& _Scanner__cur); break; }; case 2: { break; }; }; };