#include "M3Runtime.h" #define t17 ADDRESS #define t41 void #define TC17 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #define t26 ADDRESS typedef int t2; #define TC26 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #define t43 ADDRESS #define TC43 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #line 38 "Host.i3" typedef t41 (*t1)(); #define t18 ADDRESS typedef struct { TYPE self; int private; } t18_methods; #define t18_msize (sizeof (t18_methods)) typedef struct { ADDRESS methods; } t18_fields; #define t18_size (sizeof (t18_fields)) #define TC18 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t18_MapProc TC_ROOT->mapProc #define t3 ADDRESS #define TC3 TC_Rd__T IMPORT TYPE TC_Rd__T; #line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3" IMPORT char VS_Rd__T__2555b70b3f7780b1; #define t3_MapProc TC_Rd__T->mapProc #define t4 ADDRESS #define TC4 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t4_MapProc TC_TEXT->mapProc typedef t3 (*t5)(); #line 13 "./String.i3" #define t6 ADDRESS #define TC6 TC_String__T IMPORT TYPE TC_String__T; #line 13 IMPORT char VS_String__T__3a6c7dc12615e4ee; typedef unsigned char t7; #line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3" #define t8 ADDRESS #define TC8 TC_Wr__T IMPORT TYPE TC_Wr__T; #line 90 IMPORT char VS_Wr__T__2555b70b3f7780b1; #define t8_MapProc TC_Wr__T->mapProc typedef t7 (*t9)(); typedef int t10; #line 249 ".ROOT/.boots/corelib/Interfaces/Rd.i3" typedef t10 (*t11)(); #line 220 typedef t4 (*t12)(); typedef unsigned char t13; #line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef struct { char* elts; int size[1]; } t29; #line 189 ".ROOT/.boots/corelib/Interfaces/Rd.i3" #define t14 t29 typedef t13 (*t15)(); #line 84 typedef unsigned char t16; #line 19 "./String.i3" #define t19 t29 typedef t2 (*t20)(); #line 19 typedef signed_char t23; typedef struct { t6 elts[100]; } t24; #line 17 typedef struct { t2 _top; t24 _stk; } t21; #line 34 typedef t6 (*t22)(); #line 14 typedef struct { t6 _module; t6 _item; } t25; #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef signed_char t27; typedef t27 (*t28)(); #line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef unsigned char t30; #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 t17 (*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 "Host.i3" IMPORT INITLINK* Text__init; IMPORT INITLINK* Wr__init; IMPORT INITLINK* Rd__init; IMPORT INITLINK* String__init; EXPORT INITLINK* Host__init = (INITLINK*) 0; #line 10 IMPORT TYPE TC_Text__T; IMPORT char VS_Text__T__fc4b369f3ab271fd; IMPORT EXCEPTION_NAME _Thread__Alerted; IMPORT char VS_Thread__Alerted__fc88feb43485af46; #line 10 IMPORT EXCEPTION_NAME _Wr__Failure; IMPORT char VS_Wr__Failure__5f82cfb43dabf527; IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15; #line 10 IMPORT EXCEPTION_NAME _Rd__EndOfFile; IMPORT char VS_Rd__EndOfFile__f4a9d2f63b7e105d; IMPORT EXCEPTION_NAME _Rd__Failure; #line 10 IMPORT char VS_Rd__Failure__e4a829e331222b6d; IMPORT EXCEPTION_NAME _Rd__Error; IMPORT char VS_Rd__Error__5ca07bfe2ba90cfc; #line 10 EXPORT t6 _Host__filename; EXPORT char VS_Host__filename__22e443082eed9cdf = '\0'; EXPORT t3 _Host__source; EXPORT char VS_Host__source__9984d47c245ba2b6 = '\0'; #line 10 EXPORT t8 _Host__errors; EXPORT char VS_Host__errors__68d293de2fd61f13 = '\0'; EXPORT t8 _Host__output; EXPORT char VS_Host__output__f4abf81320b5b8f0 = '\0'; #line 10 EXPORT t7 _Host__verbose; EXPORT char VS_Host__verbose__446e4df03fef5543 = '\0'; EXPORT t7 _Host__Clines; EXPORT char VS_Host__Clines__d3bebdbe2144568f = '\0'; #line 10 EXPORT t7 _Host__asserts; EXPORT char VS_Host__asserts__a73d098f32529ac7 = '\0'; EXPORT t2 _Host__errorDie; EXPORT char VS_Host__errorDie__eb41f6122b3b143b = '\0'; #line 10 EXPORT t7 _Host__standard; EXPORT char VS_Host__standard__241b7c922bd89e90 = '\0'; EXPORT t2 _Host__warnings; EXPORT char VS_Host__warnings__08814d1c28a391ba = '\0'; #line 10 EXPORT t7 _Host__coverage; EXPORT char VS_Host__coverage__7e5b007739b6f6cf = '\0'; EXPORT t7 _Host__inlines; EXPORT char VS_Host__inlines__564ad924303b65d4 = '\0'; #line 10 EXPORT t7 _Host__versionStamps; EXPORT char VS_Host__versionStamps__349a7ae73215b586 = '\0'; EXPORT t2 _Host__incrementalVersion; #line 10 EXPORT char VS_Host__incrementalVersion__1798bcf82af0e178 = '\0'; EXPORT t6 _Host__toCompile; EXPORT char VS_Host__toCompile__bcbbdf8434b39d67 = '\0'; #line 10 IMPORT t3 _Host__OpenInterface (); IMPORT char VS_Host__OpenInterface__f7dcf6632ef32c58; IMPORT t3 _Host__OpenFile (); IMPORT char VS_Host__OpenFile__2214d4e23310f488; #line 10 IMPORT t41 _Host__CloseFile (); IMPORT char VS_Host__CloseFile__19dd0e0c3457343b; IMPORT t41 _Host__Halt (); IMPORT char VS_Host__Halt__cf1f17093643059d; #line 10 IMPORT t41 _Host__Initialize (); IMPORT char VS_Host__Initialize__bb56cbde2aea2fbe; void Host__IMap (p) void (*p) (); { #line 10 ADDRESS r = NIL; ADDRESS c = NIL; CHECKSTACKOVERFLOW; p (& (_Host__source), r, c); p (& (_Host__errors), r, c); p (& (_Host__output), r, c); #line 10 }; PRIVATE int init_done = -1; #line 10 "Host.i3" PRIVATE void Host__initProc (g) int g; { #line 10 "Host.i3" if (init_done >= g) return; init_done = g; INITIALIZE (& Text__init); INITIALIZE (& Wr__init); INITIALIZE (& Rd__init); INITIALIZE (& String__init); ZERO1 (& _Host__source); ZERO1 (& _Host__errors); ZERO1 (& _Host__output); ZERO1B (& _Host__verbose); ZERO1B (& _Host__Clines); ZERO1B (& _Host__asserts); ZERO1B (& _Host__standard); ZERO1B (& _Host__coverage); ZERO1B (& _Host__inlines); ZERO1B (& _Host__versionStamps); #line 15 ZERO1 ((& _Host__filename)); #line 27 _Host__versionStamps = 1 ; ZERO1 ((& _Host__toCompile)); #line 10 }; PRIVATE INITLINK me = {(INITLINK*)NIL, 1, Host__initProc }; static char* VSimports[] = { &VS_Text__T__fc4b369f3ab271fd, &VS_Thread__Alerted__fc88feb43485af46, &VS_Wr__T__2555b70b3f7780b1, &VS_Wr__Failure__5f82cfb43dabf527, &VS_Wr__Error__c367253d3ed4fd15, &VS_Thread__Alerted__fc88feb43485af46, &VS_Rd__T__2555b70b3f7780b1, &VS_Rd__EndOfFile__f4a9d2f63b7e105d, &VS_Rd__Failure__e4a829e331222b6d, &VS_Rd__Error__5ca07bfe2ba90cfc, &VS_String__T__3a6c7dc12615e4ee, &VS_Host__OpenInterface__f7dcf6632ef32c58, &VS_Host__OpenFile__2214d4e23310f488, &VS_Host__CloseFile__19dd0e0c3457343b, &VS_Host__Halt__cf1f17093643059d, &VS_Host__Initialize__bb56cbde2aea2fbe, NIL }; void Host__ILink (phase) int phase; { switch (phase) { case 0: { me.link = Host__init; Host__init = & me; break; }; case 1: { ZERO1 (& _Host__source); ZERO1 (& _Host__errors); ZERO1 (& _Host__output); ZERO1B (& _Host__verbose); ZERO1B (& _Host__Clines); ZERO1B (& _Host__asserts); ZERO1B (& _Host__standard); ZERO1B (& _Host__coverage); ZERO1B (& _Host__inlines); break; }; case 2: { break; }; }; };