#include "M3Runtime.h"

#define t6 ADDRESS
#define t29 void
typedef unsigned char t7;
#line 116 "./Wr.i3"
typedef struct { char* elts; int size[1]; } t12;
#line 80 "WrClass.i3"
#define t8 t12
PRIVATE void t6_PrintProc ();
#line 80
PRIVATE typecell t6_TC; PRIVATE typecell t6_TC_init = {0, 0, 0, 0, 0, (PROC)NIL,   -2, 0, NIL, 1, 1, (PROC)NIL, (PROC)NIL, t6_PrintProc,
#line 80
  "", 991118862, 833218118}; PRIVATE TYPE TC6 = &t6_TC;  
#define t16 ADDRESS
#define TC16 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 t11 ADDRESS
 typedef struct { TYPE self; int private; } t11_methods; 
#define t11_msize (sizeof (t11_methods))
typedef struct { ADDRESS methods; } t11_fields; 
#define t11_size (sizeof (t11_fields))
#define TC11 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t11_MapProc TC_ROOT->mapProc
#define t1 ADDRESS
#define TC1 TC_Wr__T
IMPORT TYPE TC_Wr__T;
#line 90 "./Wr.i3"
IMPORT char VS_Wr__T__2555b70b3f7780b1; 
#define t1_MapProc TC_Wr__T->mapProc
typedef t29 (*t2)(); typedef int t3;
#line 208 "WrClass.i3"
typedef t3 (*t4)(); typedef unsigned char t5;
#line 79
#define t9 ADDRESS

#line 76
#define t10 ADDRESS
PRIVATE typecell t10_TC = {0, 0, 0, 0, 0, (PROC)NIL,
#line 76
  0, 0, NIL, 0, 0, (PROC)NIL, (PROC)NIL,   (PROC)NIL, NIL, 0, 0}; PRIVATE TYPE TC10 = &t10_TC;  
#define t10_MapProc t10_TC.mapProc
typedef struct {
   t2 _seek; t4 _length; t2 _flush; t2 _close; } t9_methods; 
#define t9_msize (sizeof (t9_methods))
typedef struct {
#line 79
 t6 _buff; t3 _st; t3 _lo; t3 _hi; t3 _cur; t5 _closed; t5 _seekable; t5 _buffered; } t9_fields; 
#define t9_size (sizeof (t9_fields))
PRIVATE void t9_InitProc ();
#line 79
PRIVATE void t9_SetupProc (); PRIVATE void t9_PrintProc (); PRIVATE void t9_MapProc (); PRIVATE typecell t9_TC; PRIVATE typecell t9_TC_init = {0, 0, 0, &t10_TC, 0, t9_MapProc,
#line 79
  t9_size, t9_msize, NIL, 0, 0, t9_InitProc,   t9_SetupProc,   t9_PrintProc, "WrClass#$%^_0001", 196304551, 1000570635}; PRIVATE TYPE TC9 = &t9_TC;
#line 79

#line 161 "./Wr.i3"
typedef t5 (*t13)(); 
#define t14 ADDRESS
#define TC14 TC_TEXT
IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; 
#define t14_MapProc TC_TEXT->mapProc
typedef unsigned char t15;
#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 t16 (*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
 t3 _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 70 "WrClass.i3"
IMPORT INITLINK* Wr__init; IMPORT INITLINK* Thread__init; EXPORT INITLINK* WrClass__init = (INITLINK*) 0;  IMPORT EXCEPTION_NAME _Thread__Alerted;
#line 70
IMPORT char VS_Thread__Alerted__fc88feb43485af46; IMPORT EXCEPTION_NAME _Wr__Failure; IMPORT char VS_Wr__Failure__5f82cfb43dabf527;
#line 70
IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15;   IMPORT char VS_Thread__DefaultStackSize__0c949e2e2def4e40;
#line 70
IMPORT TYPE TC_Thread__Mutex; IMPORT char VS_Thread__Mutex__4f5c12072cdeec3e;   EXPORT TYPE TC_WrClass__Private = &t10_TC;
#line 70
EXPORT char VS_WrClass__Private__5594af883f1b8361 = '\0'; IMPORT t29 _WrClass__Lock (); IMPORT char VS_WrClass__Lock__c7e43d8d3affa311;
#line 70
IMPORT t29 _WrClass__Unlock (); IMPORT char VS_WrClass__Unlock__30e083913e7a52e9; IMPORT t3 _WrClass__LengthDefault (); IMPORT char VS_WrClass__LengthDefault__f78fa4a22d1f7f55;
#line 70
IMPORT t29 _WrClass__CloseDefault (); IMPORT char VS_WrClass__CloseDefault__d8c30bfe280fb390; IMPORT t29 _WrClass__FlushDefault ();
#line 70
IMPORT char VS_WrClass__FlushDefault__0f59e35131773891;  EXPORT char VS_Wr__T__85e526fe26f23155 = '\0';  PRIVATE int init_done = -1;
#line 70 "WrClass.i3"
 PRIVATE void WrClass__initProc (g) int g; { 
#line 70 "WrClass.i3"
if (init_done >= g) return; init_done = g; INITIALIZE (& Wr__init); INITIALIZE (& Thread__init); };  PRIVATE void t6_PrintProc (ref) t8* ref; { CHECKSTACKOVERFLOW; fprintf (stderr, "%s {", TC6->brand); fprintf (stderr, "^ = array");
   fprintf (stderr, "}\n"); };  PRIVATE void t9_InitProc (obj) char* obj; { register t9_fields* p; CHECKSTACKOVERFLOW; p = (t9_fields*) (obj + TC10->datasize); };  PRIVATE void t9_SetupProc () { register int* p; t9_TC.datasize += TC10->datasize; t9_TC.methodsize += TC10->methodsize; p = (int*) UALLOC (t9_TC.methodsize); COPY (TC10->defaultMethods, p, (TC10->methodsize));
p[0] = (int)(& t9_TC); p[1] = 0; ((t9_methods*) (((char*)p) + TC10->methodsize))->_length = _WrClass__LengthDefault; ((t9_methods*) (((char*)p) + TC10->methodsize))->_flush = _WrClass__FlushDefault;
((t9_methods*) (((char*)p) + TC10->methodsize))->_close = _WrClass__CloseDefault; t9_TC.defaultMethods = (char*) p; };  PRIVATE void t9_PrintProc (obj) char *obj; { t9_fields* o; CHECKSTACKOVERFLOW; if (TC10->printProc != 0) {TC10->printProc (obj); } fprintf (stderr, "{%s} ", TC9->brand); o = (t9_fields*) (obj + TC10->datasize);
fprintf (stderr, "buff = %#x", o->_buff); fprintf (stderr, ", "); fprintf (stderr, "st = %d", o->_st); fprintf (stderr, ", ");
fprintf (stderr, "lo = %d", o->_lo); fprintf (stderr, ", "); fprintf (stderr, "hi = %d", o->_hi); fprintf (stderr, ", ");
fprintf (stderr, "cur = %d", o->_cur); fprintf (stderr, ", "); fprintf (stderr, "closed = %d", o->_closed); fprintf (stderr, ", ");
fprintf (stderr, "seekable = %d", o->_seekable); fprintf (stderr, ", "); fprintf (stderr, "buffered = %d", o->_buffered);
fprintf (stderr, ", "); };  PRIVATE void t9_MapProc (p, r, c) void (*p) (); char*  r; ADDRESS c; { register t9_fields*  o;
CHECKSTACKOVERFLOW; t10_MapProc (p, r, c); o = (t9_fields*) (r + TC10->datasize); p (& (o->_buff), r, c); };   PRIVATE INITLINK me = {(INITLINK*)NIL, 1, WrClass__initProc };
static char* VSimports[] = { &VS_Thread__Alerted__fc88feb43485af46, &VS_Wr__T__2555b70b3f7780b1, &VS_Wr__Failure__5f82cfb43dabf527,
&VS_Wr__Error__c367253d3ed4fd15, &VS_Thread__DefaultStackSize__0c949e2e2def4e40, &VS_Thread__T__2555b70b3f7780b1, &VS_Thread__Mutex__4f5c12072cdeec3e,
&VS_Thread__Condition__26d5968239e08f4e, &VS_Thread__Closure__7fb5c6232c5a658a, &VS_Thread__SizedClosure__8a46717d2eae7b07,
&VS_Thread__Alerted__fc88feb43485af46, &VS_Wr__Error__c367253d3ed4fd15, &VS_Wr__Failure__5f82cfb43dabf527, &VS_Thread__Alerted__fc88feb43485af46,
&VS_WrClass__Lock__c7e43d8d3affa311, &VS_WrClass__Unlock__30e083913e7a52e9, &VS_WrClass__LengthDefault__f78fa4a22d1f7f55,
&VS_WrClass__CloseDefault__d8c30bfe280fb390, &VS_WrClass__FlushDefault__0f59e35131773891, NIL };  void WrClass__ILink (phase) int phase; { switch (phase) { case 0: { me.link = WrClass__init; WrClass__init = & me; t6_TC = t6_TC_init;
         REGISTERTYPE (TC6); t9_TC = t9_TC_init; REGISTERTYPE (TC9); REGISTEROPAQUE (TC10); break; }; case 1: {
#line 79 "WrClass.i3"
         IDENTIFYTYPES (TC1, TC9); break; }; case 2: { break; }; }; };