#include "M3Runtime.h" #define t17 ADDRESS typedef int t3; #define TC17 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #define t26 ADDRESS #define t38 void #define TC26 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #define t40 ADDRESS #define TC40 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #line 13 "String.i3" #define t4 ADDRESS PRIVATE typecell t4_TC = {0, 0, 0, 0, 0, (PROC)NIL, #line 13 0, 0, NIL, 0, 0, (PROC)NIL, (PROC)NIL, (PROC)NIL, NIL, 0, 0}; PRIVATE TYPE TC4 = &t4_TC; #line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef struct { char* elts; int size[1]; } t24; #line 19 "String.i3" #define t1 t24 typedef t38 (*t2)(); #line 58 typedef t3 (*t5)(); typedef int t6; #line 19 typedef signed_char t14; typedef struct { t4 elts[100]; } t15; #line 17 typedef struct { t3 _top; t15 _stk; } t7; #define t27 ADDRESS typedef struct { TYPE self; int private; } t27_methods; #define t27_msize (sizeof (t27_methods)) typedef struct { ADDRESS methods; } t27_fields; #define t27_size (sizeof (t27_fields)) #define TC27 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t27_MapProc TC_ROOT->mapProc #define t8 ADDRESS #define TC8 TC_Wr__T IMPORT TYPE TC_Wr__T; #line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3" IMPORT char VS_Wr__T__2555b70b3f7780b1; #define t8_MapProc TC_Wr__T->mapProc #define t9 ADDRESS #define TC9 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t9_MapProc TC_TEXT->mapProc typedef t9 (*t10)(); #line 34 "String.i3" typedef t4 (*t11)(); typedef unsigned char t12; #line 28 #define t13 t24 typedef struct { #line 14 t4 _module; t4 _item; } t16; #line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3" typedef signed_char t18; typedef t18 (*t19)(); typedef unsigned char t20; #line 55 typedef t20 (*t21)(); #line 26 typedef t6 (*t22)(); #line 23 typedef t12 (*t23)(); #line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef unsigned char t25; #line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3" #define t28 ADDRESS #define TC28 TC_Thread__T IMPORT TYPE TC_Thread__T; #line 15 IMPORT char VS_Thread__T__2555b70b3f7780b1; #define t28_MapProc TC_Thread__T->mapProc typedef t26 (*t29)(); #define t30 ADDRESS #define TC30 TC_Thread__Condition IMPORT TYPE TC_Thread__Condition; #line 21 IMPORT char VS_Thread__Condition__26d5968239e08f4e; #define t30_MapProc TC_Thread__Condition->mapProc #define t31 ADDRESS #define TC31 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t31_MapProc TC_MUTEX->mapProc typedef t28 (*t32)(); #line 23 #define t33 ADDRESS #line 23 typedef struct { t29 _apply; } t33_methods; #define t33_msize (sizeof (t33_methods)) typedef struct { #line 23 int filler; } t33_fields; #define t33_size (sizeof (t33_fields)) #define TC33 TC_Thread__Closure IMPORT TYPE TC_Thread__Closure; #line 23 IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; #define t33_MapProc TC_Thread__Closure->mapProc typedef t30 (*t34)(); typedef t31 (*t35)(); #line 28 #define t36 ADDRESS #line 28 typedef struct { int filler; } t36_methods; #define t36_msize (sizeof (t36_methods)) typedef struct { #line 28 t6 _stackSize; } t36_fields; #define t36_size (sizeof (t36_fields)) #define TC36 TC_Thread__SizedClosure IMPORT TYPE TC_Thread__SizedClosure; #line 28 IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; #define t36_MapProc TC_Thread__SizedClosure->mapProc typedef CLOSURE t37; #define t39 ADDRESS typedef struct { TYPE self; int private; } t39_methods; #define t39_msize (sizeof (t39_methods)) typedef struct { ADDRESS methods; } t39_fields; #define t39_size (sizeof (t39_fields)) #define TC39 TC_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; typedef double t41; typedef float t42; #line 9 "String.i3" IMPORT INITLINK* Text__init; IMPORT INITLINK* Wr__init; EXPORT INITLINK* String__init = (INITLINK*) 0; IMPORT TYPE TC_Text__T; #line 9 IMPORT char VS_Text__T__fc4b369f3ab271fd; IMPORT EXCEPTION_NAME _Thread__Alerted; IMPORT char VS_Thread__Alerted__fc88feb43485af46; #line 9 IMPORT EXCEPTION_NAME _Wr__Failure; IMPORT char VS_Wr__Failure__5f82cfb43dabf527; IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15; #line 9 EXPORT TYPE TC_String__T = &t4_TC; EXPORT char VS_String__T__3a6c7dc12615e4ee = '\0'; IMPORT t4 _String__Add (); IMPORT char VS_String__Add__0f5e21cc3d204b63; #line 9 IMPORT t4 _String__AddInt (); IMPORT char VS_String__AddInt__3485cc122538fb2d; IMPORT t4 _String__FromStr (); IMPORT char VS_String__FromStr__4226c3282dddebc2; #line 9 IMPORT t4 _String__Concat (); IMPORT char VS_String__Concat__52f07b88222785f0; IMPORT t4 _String__Unique (); IMPORT char VS_String__Unique__cd4dd9782d0ff343; #line 9 IMPORT t9 _String__ToText (); IMPORT char VS_String__ToText__b5eb19e626fe180d; IMPORT t38 _String__Put (); IMPORT char VS_String__Put__2457561e210725b3; #line 9 IMPORT t38 _String__PutChars (); IMPORT char VS_String__PutChars__3deea76a27eef07c; IMPORT t38 _String__PutStack (); IMPORT char VS_String__PutStack__2155a7863fdb4aca; #line 9 IMPORT t38 _String__SetClass (); IMPORT char VS_String__SetClass__5d54257a285f9c99; IMPORT t3 _String__GetClass (); IMPORT char VS_String__GetClass__0367456e2d55200c; #line 9 IMPORT t3 _String__Length (); IMPORT char VS_String__Length__75f8af7a37a956d2; IMPORT t3 _String__GetUID (); IMPORT char VS_String__GetUID__54d5228a21500678; #line 9 IMPORT t38 _String__SetUID (); IMPORT char VS_String__SetUID__d5af33282e8887a9; IMPORT t38 _String__Initialize (); IMPORT char VS_String__Initialize__2d344ec923e7ebf1; #line 9 PRIVATE int init_done = -1; #line 9 "String.i3" PRIVATE void String__initProc (g) int g; { #line 9 "String.i3" if (init_done >= g) return; init_done = g; INITIALIZE (& Text__init); INITIALIZE (& Wr__init); }; PRIVATE INITLINK me = {(INITLINK*)NIL, 1, String__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_String__Add__0f5e21cc3d204b63, &VS_String__AddInt__3485cc122538fb2d, &VS_String__FromStr__4226c3282dddebc2, &VS_String__Concat__52f07b88222785f0, &VS_String__Unique__cd4dd9782d0ff343, &VS_String__ToText__b5eb19e626fe180d, &VS_String__Put__2457561e210725b3, &VS_String__PutChars__3deea76a27eef07c, &VS_String__PutStack__2155a7863fdb4aca, &VS_String__SetClass__5d54257a285f9c99, &VS_String__GetClass__0367456e2d55200c, &VS_String__Length__75f8af7a37a956d2, &VS_String__GetUID__54d5228a21500678, &VS_String__SetUID__d5af33282e8887a9, &VS_String__Initialize__2d344ec923e7ebf1, NIL }; void String__ILink (phase) int phase; { switch (phase) { case 0: { me.link = String__init; String__init = & me; REGISTEROPAQUE (TC4); break; }; case 1: { break; }; case 2: { break; }; }; };