#include "M3Runtime.h" #define t15 ADDRESS #define t29 void #define TC15 TC_REFANY IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; #define t31 ADDRESS typedef int t27; #define TC31 TC_ADDRESS IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; #define t32 ADDRESS #define TC32 TC_NULL IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; #define t1 ADDRESS #define TC1 TC_TEXT IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; #define t1_MapProc TC_TEXT->mapProc #define t16 ADDRESS typedef struct { TYPE self; int private; } t16_methods; #define t16_msize (sizeof (t16_methods)) typedef struct { ADDRESS methods; } t16_fields; #define t16_size (sizeof (t16_fields)) #define TC16 TC_ROOT IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; #define t16_MapProc TC_ROOT->mapProc #define t5 ADDRESS #define TC5 TC_Wr__T IMPORT TYPE TC_Wr__T; #line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3" IMPORT char VS_Wr__T__2555b70b3f7780b1; #define t5_MapProc TC_Wr__T->mapProc #define t2 ADDRESS PRIVATE typecell t2_TC = {0, 0, 0, 0, 0, (PROC)NIL, #line 23 "TextWr.i3" 0, 0, NIL, 0, 0, (PROC)NIL, (PROC)NIL, (PROC)NIL, NIL, 0, 0}; PRIVATE TYPE TC2 = &t2_TC; #define t2_MapProc t2_TC.mapProc typedef t1 (*t3)(); typedef t2 (*t4)(); #line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3" typedef struct { char* elts; int size[1]; } t6; typedef unsigned char t7; #line 161 typedef t7 (*t8)(); typedef int t9; #line 155 typedef t9 (*t10)(); #line 143 typedef t29 (*t11)(); typedef unsigned char t12; #line 116 #define t13 t6 typedef unsigned char t14; #line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3" #define t17 ADDRESS #define TC17 TC_Thread__T IMPORT TYPE TC_Thread__T; #line 15 IMPORT char VS_Thread__T__2555b70b3f7780b1; #define t17_MapProc TC_Thread__T->mapProc typedef t15 (*t18)(); #define t19 ADDRESS #define TC19 TC_Thread__Condition IMPORT TYPE TC_Thread__Condition; #line 21 IMPORT char VS_Thread__Condition__26d5968239e08f4e; #define t19_MapProc TC_Thread__Condition->mapProc #define t20 ADDRESS #define TC20 TC_MUTEX IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; #define t20_MapProc TC_MUTEX->mapProc typedef t17 (*t21)(); #line 23 #define t22 ADDRESS #line 23 typedef struct { t18 _apply; } t22_methods; #define t22_msize (sizeof (t22_methods)) typedef struct { #line 23 int filler; } t22_fields; #define t22_size (sizeof (t22_fields)) #define TC22 TC_Thread__Closure IMPORT TYPE TC_Thread__Closure; #line 23 IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; #define t22_MapProc TC_Thread__Closure->mapProc typedef t19 (*t23)(); typedef t20 (*t24)(); #line 28 #define t25 ADDRESS #line 28 typedef struct { int filler; } t25_methods; #define t25_msize (sizeof (t25_methods)) typedef struct { #line 28 t9 _stackSize; } t25_fields; #define t25_size (sizeof (t25_fields)) #define TC25 TC_Thread__SizedClosure IMPORT TYPE TC_Thread__SizedClosure; #line 28 IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; #define t25_MapProc TC_Thread__SizedClosure->mapProc typedef t27 (*t26)(); typedef CLOSURE t28; #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_UNTRACED_ROOT IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20; typedef double t33; typedef float t34; #line 20 "TextWr.i3" IMPORT INITLINK* Wr__init; EXPORT INITLINK* TextWr__init = (INITLINK*) 0; IMPORT EXCEPTION_NAME _Thread__Alerted; IMPORT char VS_Thread__Alerted__fc88feb43485af46; #line 20 IMPORT EXCEPTION_NAME _Wr__Failure; IMPORT char VS_Wr__Failure__5f82cfb43dabf527; IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15; #line 20 EXPORT TYPE TC_TextWr__T = &t2_TC; EXPORT char VS_TextWr__T__aa7fbe4a3afd8be5 = '\0'; IMPORT t2 _TextWr__New (); IMPORT char VS_TextWr__New__b2aced2f341cea58; #line 20 IMPORT t1 _TextWr__ToText (); IMPORT char VS_TextWr__ToText__07606fcd3a0c5476; PRIVATE int init_done = -1; #line 20 "TextWr.i3" PRIVATE void TextWr__initProc (g) int g; { #line 20 "TextWr.i3" if (init_done >= g) return; init_done = g; INITIALIZE (& Wr__init); }; PRIVATE INITLINK me = {(INITLINK*)NIL, 1, TextWr__initProc }; static char* VSimports[] = { &VS_Thread__Alerted__fc88feb43485af46, &VS_Wr__T__2555b70b3f7780b1, &VS_Wr__Failure__5f82cfb43dabf527, &VS_Wr__Error__c367253d3ed4fd15, &VS_TextWr__New__b2aced2f341cea58, &VS_TextWr__ToText__07606fcd3a0c5476, NIL }; void TextWr__ILink (phase) int phase; { switch (phase) { case 0: { me.link = TextWr__init; TextWr__init = & me; REGISTEROPAQUE (TC2); break; }; case 1: { break; }; case 2: { break; }; }; };