#include "M3Runtime.h"

typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, ".:/proj/ultrix/lib/m3", 22}; PRIVATE TXT txt2 = { 3, ".i3", 4};
PRIVATE TXT txt3 = { 3, "INTERFACE ", 11}; PRIVATE TXT txt4 = { 3, "; END ", 7}; PRIVATE TXT txt5 = { 3, ".", 2}; PRIVATE TXT txt6 = { 3, "importing from \042", 17};
PRIVATE TXT txt7 = { 3, "\042", 2}; PRIVATE TXT txt8 = { 3, "\003", 2}; PRIVATE TXT txt9 = { 3, "<stdin>", 8}; PRIVATE TXT txt10 = { 3, "missing file", 13};
PRIVATE TXT txt11 = { 3, "  no \042", 7}; PRIVATE TXT txt12 = { 3, "\042 on path \042", 12}; PRIVATE TXT txt13 = { 3, "\042\012", 3}; PRIVATE TXT txt14 = { 3, "unable to open file", 20};
PRIVATE TXT txt15 = { 3, "  \042", 4}; PRIVATE TXT txt16 = { 3, "\042: ??\012", 7}; PRIVATE TXT txt17 = { 3, "missing output file", 20};
PRIVATE TXT txt18 = { 3, "unable to open output file", 27}; PRIVATE TXT txt19 = { 3, "-D", 3}; PRIVATE TXT txt20 = { 3, ":", 2};
PRIVATE TXT txt21 = { 3, "-v", 3}; PRIVATE TXT txt22 = { 3, "-V", 3}; PRIVATE TXT txt23 = { 3, "-a", 3}; PRIVATE TXT txt24 = { 3, "-C", 3};
PRIVATE TXT txt25 = { 3, "-S", 3}; PRIVATE TXT txt26 = { 3, "-Std", 5}; PRIVATE TXT txt27 = { 3, "-P", 3}; PRIVATE TXT txt28 = { 3, "-w", 3};
PRIVATE TXT txt29 = { 3, "-Z", 3}; PRIVATE TXT txt30 = { 3, "-I", 3}; PRIVATE TXT txt31 = { 3, "-E", 3}; PRIVATE TXT txt32 = { 3, "-o", 3};
PRIVATE TXT txt33 = { 3, "unknown option: ", 17}; PRIVATE TXT txt34 = { 3, "\012", 2}; PRIVATE TXT txt35 = { 3, "\042 does not exist.\012", 19};
PRIVATE TXT txt36 = { 3, "multiple files specified: ", 27};
#line 17 "./Scope.i3"
#define t26 ADDRESS
#define t116 void
#define t47 ADDRESS
 typedef struct { TYPE self; int private; } t47_methods; 
#define t47_msize (sizeof (t47_methods))
typedef struct { ADDRESS methods; } t47_fields; 
#define t47_size (sizeof (t47_fields))
#define TC47 TC_UNTRACED_ROOT
IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20;
#line 15 "./M3.i3"
#define t17 ADDRESS
#define TC17 TC_M3__Value
IMPORT TYPE TC_M3__Value;
#line 15
IMPORT char VS_M3__Value__6f64cf9c2cae25fb;
#line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef struct { char* elts; int size[1]; } t104;
#line 17 "./Scope.i3"
#define t30 t104
#define TC26 TC_Scope__ValueList
IMPORT TYPE TC_Scope__ValueList;
#line 17
IMPORT char VS_Scope__ValueList__64bf053e22e4e53c;
#line 16 "../Interfaces/Type.i3"
#define t34 ADDRESS
typedef int t1;
#line 16
#define t42 t104
#define TC34 TC_Type__Map
IMPORT TYPE TC_Type__Map;
#line 16
IMPORT char VS_Type__Map__41dd9f4b33104fce;
#line 14 "../Interfaces/Expr.i3"
#define t37 ADDRESS
#define t31 ADDRESS
#define TC31 TC_M3__Expr
IMPORT TYPE TC_M3__Expr;
#line 16 "./M3.i3"
IMPORT char VS_M3__Expr__8ae39aaa2d432477;
#line 14 "../Interfaces/Expr.i3"
#define t38 t104
#define TC37 TC_Expr__List
IMPORT TYPE TC_Expr__List;
#line 14
IMPORT char VS_Expr__List__3f87eceb2b9a246a;
#line 17 "../Interfaces/Type.i3"
#define t40 ADDRESS
#define t22 ADDRESS
#define TC22 TC_M3__Type
IMPORT TYPE TC_M3__Type;
#line 18 "./M3.i3"
IMPORT char VS_M3__Type__4d87bc25311f81d2;
#line 17 "../Interfaces/Type.i3"
typedef struct { t40 _next; t22 _type; } t41; 
#define TC40 TC_Type__List
IMPORT TYPE TC_Type__List;
#line 17
IMPORT char VS_Type__List__5791758e343becc1; 
#define t46 ADDRESS
#define TC46 TC_ADDRESS
IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44;
#line 20 ".ROOT/.boots/corelib/Interfaces/Cstdarg.i3"
#define t53 ADDRESS
typedef unsigned char t54;
#line 20
#define t52 t104
typedef struct { t46 elts[256]; } t55;
#line 20
#define TC53 TC_M3toC__Argv
IMPORT TYPE TC_M3toC__Argv;
#line 20
IMPORT char VS_M3toC__Argv__01eb9fa23b3b0c10;
#line 17 ".ROOT/.boots/corelib/Interfaces/Ctypes.i3"
#define t57 ADDRESS
typedef double t18;
#line 17
#define TC57 TC_Ctypes__DoubleStar
IMPORT TYPE TC_Ctypes__DoubleStar;
#line 17
IMPORT char VS_Ctypes__DoubleStar__09a97cc036088f62;
#line 33
#define t59 ADDRESS
typedef float t61;
#line 33
#define TC59 TC_Ctypes__FloatStar
IMPORT TYPE TC_Ctypes__FloatStar;
#line 33
IMPORT char VS_Ctypes__FloatStar__6c7e0b722780a93f;
#line 63
#define t64 ADDRESS
typedef short t82; typedef unsigned char t2;
#line 63
#define t63 t104
typedef struct { t2 elts[4096]; } t83;
#line 63
#define TC64 TC_Ctypes__String4096
IMPORT TYPE TC_Ctypes__String4096;
#line 63
IMPORT char VS_Ctypes__String4096__8d2ce04b3a64ff9f;
#line 62
#define t65 ADDRESS
typedef short t84;
#line 62
typedef struct { t2 elts[1024]; } t85; 
#define TC65 TC_Ctypes__String1024
IMPORT TYPE TC_Ctypes__String1024;
#line 62
IMPORT char VS_Ctypes__String1024__85fe08042cc88853;
#line 61
#define t66 ADDRESS
typedef struct { t2 elts[256]; } t86;
#line 61
#define TC66 TC_Ctypes__String256
IMPORT TYPE TC_Ctypes__String256;
#line 61
IMPORT char VS_Ctypes__String256__e84eeb8129c76f43;
#line 60
#define t67 ADDRESS
typedef signed_char t87;
#line 60
typedef struct { t2 elts[64]; } t88; 
#define TC67 TC_Ctypes__String64
IMPORT TYPE TC_Ctypes__String64;
#line 60
IMPORT char VS_Ctypes__String64__e232939e2f4ff601;
#line 59
#define t68 ADDRESS
typedef signed_char t89;
#line 59
typedef struct { t2 elts[16]; } t90; 
#define TC68 TC_Ctypes__String16
IMPORT TYPE TC_Ctypes__String16;
#line 59
IMPORT char VS_Ctypes__String16__46fccbf225a113eb;
#line 58
#define t69 ADDRESS
typedef signed_char t91;
#line 58
typedef struct { t2 elts[4]; } t92; 
#define TC69 TC_Ctypes__String4
IMPORT TYPE TC_Ctypes__String4;
#line 58
IMPORT char VS_Ctypes__String4__1ecbc452350ba764;
#line 52
#define t70 ADDRESS
typedef unsigned short t71;
#line 52
#define TC70 TC_Ctypes__UnsignedShortStar
IMPORT TYPE TC_Ctypes__UnsignedShortStar;
#line 52
IMPORT char VS_Ctypes__UnsignedShortStar__ba7321c22f5477f7;
#line 50
#define t72 ADDRESS
#define t73 ADDRESS
typedef short t74;
#line 49
#define TC73 TC_Ctypes__ShortStar
IMPORT TYPE TC_Ctypes__ShortStar;
#line 49
IMPORT char VS_Ctypes__ShortStar__ceeffab3338d5be6;
#define TC72 TC_Ctypes__ShortStarStar
IMPORT TYPE TC_Ctypes__ShortStarStar;
#line 50
IMPORT char VS_Ctypes__ShortStarStar__1827fd6f22a4a56a;
#line 46
#define t75 ADDRESS
#define TC75 TC_Ctypes__IntStar
IMPORT TYPE TC_Ctypes__IntStar;
#line 46
IMPORT char VS_Ctypes__IntStar__e39a77b6392d7c83;
#line 44
#define t76 ADDRESS
#define TC76 TC_Ctypes__IntStarStar
IMPORT TYPE TC_Ctypes__IntStarStar;
#line 44
IMPORT char VS_Ctypes__IntStarStar__a46afe5b32b9d475;
#line 26
#define t77 ADDRESS
#define TC77 TC_Ctypes__UnsignedCharStar
IMPORT TYPE TC_Ctypes__UnsignedCharStar;
#line 26
IMPORT char VS_Ctypes__UnsignedCharStar__5ba21f95225c580b;
#define t78 ADDRESS
#define TC78 TC_Ctypes__UnsignedCharStarStar
IMPORT TYPE TC_Ctypes__UnsignedCharStarStar;
#line 27
IMPORT char VS_Ctypes__UnsignedCharStarStar__64970e213b9e555a;
#line 24
#define t79 ADDRESS
#define t80 ADDRESS
#define TC80 TC_Ctypes__CharStarStar
IMPORT TYPE TC_Ctypes__CharStarStar;
#line 23
IMPORT char VS_Ctypes__CharStarStar__5cd33554337263a0;
#define TC79 TC_Ctypes__CharStarStarStar
IMPORT TYPE TC_Ctypes__CharStarStarStar;
#line 24
IMPORT char VS_Ctypes__CharStarStarStar__a792f1ad3925ee76; 
#define t97 ADDRESS
#define TC97 TC_REFANY
IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; 
#define t117 ADDRESS
#define TC117 TC_NULL
IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc; 
#define t3 ADDRESS
#define TC3 TC_TEXT
IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; 
#define t3_MapProc TC_TEXT->mapProc
typedef t1 (*t4)();
#line 122 "Host.m3"
typedef t116 (*t5)(); 
#define t98 ADDRESS
 typedef struct { TYPE self; int private; } t98_methods; 
#define t98_msize (sizeof (t98_methods))
typedef struct { ADDRESS methods; } t98_fields; 
#define t98_size (sizeof (t98_fields))
#define TC98 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t98_MapProc TC_ROOT->mapProc
#define t6 ADDRESS
#define TC6 TC_Wr__T
IMPORT TYPE TC_Wr__T;
#line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
IMPORT char VS_Wr__T__2555b70b3f7780b1; 
#define t6_MapProc TC_Wr__T->mapProc
typedef t6 (*t7)();
#line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
#define t8 ADDRESS
#define TC8 TC_Rd__T
IMPORT TYPE TC_Rd__T;
#line 83
IMPORT char VS_Rd__T__2555b70b3f7780b1; 
#define t8_MapProc TC_Rd__T->mapProc
#define t9 ADDRESS
#define TC9 TC_String__T
IMPORT TYPE TC_String__T;
#line 13 "./String.i3"
IMPORT char VS_String__T__3a6c7dc12615e4ee;
#line 57 "Host.m3"
typedef t8 (*t10)(); typedef unsigned char t11;
#line 27 "./Emit.i3"
typedef signed_char t12;
#line 63
typedef t12 (*t13)();
#line 19 "./String.i3"
typedef signed_char t100;
#line 65 "./Token.i3"
#define t43 t104
typedef struct { t9 elts[100]; } t101;
#line 17 "./String.i3"
typedef struct { t1 _top; t101 _stk; } t14;
#line 19 "./M3.i3"
#define t15 ADDRESS
#define TC15 TC_M3__Temp
IMPORT TYPE TC_M3__Temp;
#line 19
IMPORT char VS_M3__Temp__450b691937f03dae;
#line 16 "../Interfaces/Variable.i3"
#define t16 ADDRESS
#define TC16 TC_Variable__T
IMPORT TYPE TC_Variable__T;
#line 16
IMPORT char VS_Variable__T__be7ead4a3afd8be5;
#line 14 "./M3.i3"
#define t19 ADDRESS
#define TC19 TC_M3__Scope
IMPORT TYPE TC_M3__Scope;
#line 14
IMPORT char VS_M3__Scope__6e6d8848308d8a2d;
#line 38 "../Interfaces/Variable.i3"
typedef t15 (*t20)();
#line 33
typedef t11 (*t21)();
#line 24
typedef t16 (*t23)();
#line 14 "../Interfaces/Decl.i3"
typedef struct { t9 _alias; t11 _isExternal; t11 _isInline; t11 _isUnused; t11 _isObsolete; } t24;
#line 15 "./Token.i3"
typedef unsigned char t44;
#line 45
typedef struct { int elts[4]; } t25;
#line 14 "./String.i3"
typedef struct { t9 _module; t9 _item; } t27;
#line 38 "./Scope.i3"
typedef t17 (*t28)();
#line 31
typedef t19 (*t29)();
#line 45 "../Interfaces/Value.i3"
typedef t22 (*t32)();
#line 44
typedef t31 (*t33)();
#line 18
typedef unsigned char t35;
#line 40
typedef t35 (*t36)();
#line 121 "../Interfaces/Type.i3"
typedef t34 (*t39)();
#line 65 "./Token.i3"
typedef struct { t9 elts[97]; } t45;
#line 17 "./M3.i3"
#define t48 ADDRESS
#define TC48 TC_M3__Stmt
IMPORT TYPE TC_M3__Stmt;
#line 17
IMPORT char VS_M3__Stmt__376b307627fc1f2f;
#line 13 ".ROOT/.boots/corelib/Interfaces/TextRd.i3"
#define t49 ADDRESS
#define TC49 TC_TextRd__T
IMPORT TYPE TC_TextRd__T;
#line 13
IMPORT char VS_TextRd__T__aa7fbe4a3afd8be5; 
#define t49_MapProc TC_TextRd__T->mapProc
typedef t49 (*t50)();
#line 79 ".ROOT/.boots/corelib/Interfaces/Filename.i3"
typedef t3 (*t51)();
#line 19 ".ROOT/.boots/corelib/Interfaces/Cstdlib.i3"
typedef t46 (*t56)();
#line 43 ".ROOT/.boots/corelib/Interfaces/M3toC.i3"
typedef t57 (*t58)();
#line 40
typedef t59 (*t60)();
#line 37
typedef t61 (*t62)();
#line 19 ".ROOT/.boots/corelib/Interfaces/Ctypes.i3"
typedef signed_char t81; typedef int t93;
#line 249 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
typedef t93 (*t94)();
#line 92
typedef t2 (*t95)();
#line 84
typedef unsigned char t96;
#line 34 "./String.i3"
typedef t9 (*t99)();
#line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3"
typedef signed_char t102; typedef t102 (*t103)();
#line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef unsigned char t105;
#line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3"
#define t106 ADDRESS
#define TC106 TC_Thread__T
IMPORT TYPE TC_Thread__T;
#line 15
IMPORT char VS_Thread__T__2555b70b3f7780b1; 
#define t106_MapProc TC_Thread__T->mapProc
typedef t97 (*t107)();



#define t108 ADDRESS
#define TC108 TC_Thread__Condition
IMPORT TYPE TC_Thread__Condition;
#line 21
IMPORT char VS_Thread__Condition__26d5968239e08f4e; 
#define t108_MapProc TC_Thread__Condition->mapProc
#define t109 ADDRESS
#define TC109 TC_MUTEX
IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; 
#define t109_MapProc TC_MUTEX->mapProc
typedef t106 (*t110)();
#line 23
#define t111 ADDRESS

#line 23
typedef struct { t107 _apply; } t111_methods; 
#define t111_msize (sizeof (t111_methods))
typedef struct {
#line 23
 int filler; } t111_fields; 
#define t111_size (sizeof (t111_fields))
#define TC111 TC_Thread__Closure
IMPORT TYPE TC_Thread__Closure;
#line 23
IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; 
#define t111_MapProc TC_Thread__Closure->mapProc
typedef t108 (*t112)();





typedef t109 (*t113)();
#line 28
#define t114 ADDRESS

#line 28
typedef struct { int filler; } t114_methods; 
#define t114_msize (sizeof (t114_methods))
typedef struct {
#line 28
 t93 _stackSize; } t114_fields; 
#define t114_size (sizeof (t114_fields))
#define TC114 TC_Thread__SizedClosure
IMPORT TYPE TC_Thread__SizedClosure;
#line 28
IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; 
#define t114_MapProc TC_Thread__SizedClosure->mapProc
typedef CLOSURE t115;
#line 11 "Host.m3"
IMPORT INITLINK* Emit__init; IMPORT INITLINK* TextRd__init; IMPORT INITLINK* Filename__init; IMPORT INITLINK* Text__init;
#line 11
IMPORT INITLINK* Error__init; IMPORT INITLINK* Wr__init; IMPORT INITLINK* Stdio__init; IMPORT INITLINK* FileStream__init;
#line 11
IMPORT INITLINK* Cstdarg__init; IMPORT INITLINK* Cstdlib__init; IMPORT INITLINK* M3toC__init; IMPORT INITLINK* Rd__init; IMPORT INITLINK* String__init;
#line 11
IMPORT INITLINK* Host__init;  IMPORT char VS_Emit__MaxStream__cf0a0e8934c9c9f3; IMPORT TYPE TC_Emit__Format; IMPORT char VS_Emit__Format__bc4a2b083b93bbd7;
#line 11
IMPORT t116 _Emit__Op (); IMPORT char VS_Emit__Op__072646cc27c8ae10;   IMPORT t49 _TextRd__New (); IMPORT char VS_TextRd__New__4194d0fe285dac05;
#line 11
  IMPORT t11 _Filename__FileIsReadable (); IMPORT char VS_Filename__FileIsReadable__9b3bd1213f26bd28; IMPORT t3 _Filename__SearchPath ();
#line 11
IMPORT char VS_Filename__SearchPath__f960e69a200e2452;   IMPORT TYPE TC_Text__T; IMPORT char VS_Text__T__fc4b369f3ab271fd;
#line 11
IMPORT t11 _Text__Equal (); IMPORT char VS_Text__Equal__f19b6e6f34d36826; IMPORT t2 _Text__GetChar (); IMPORT char VS_Text__GetChar__0f4bd6e72493f4ff;
#line 11
IMPORT t93 _Text__Length (); IMPORT char VS_Text__Length__661a58173d76f41c; IMPORT t3 _Text__Sub (); IMPORT char VS_Text__Sub__ba151c702fe1a06f;
#line 11
  IMPORT t116 _Error__Msg (); IMPORT char VS_Error__Msg__4d119a332467757f; IMPORT t116 _Error__Info (); IMPORT char VS_Error__Info__c5b4711436dbf5da;
#line 11
  IMPORT EXCEPTION_NAME _Thread__Alerted; IMPORT char VS_Thread__Alerted__fc88feb43485af46; IMPORT EXCEPTION_NAME _Wr__Failure;
#line 11
IMPORT char VS_Wr__Failure__5f82cfb43dabf527; IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15;
#line 11
IMPORT t116 _Wr__PutText (); IMPORT char VS_Wr__PutText__e034dab73a793846; IMPORT t116 _Wr__Close (); IMPORT char VS_Wr__Close__6e568877234e064a;
#line 11
  IMPORT t8 _Stdio__stdin; IMPORT char VS_Stdio__stdin__e330ea7f240b0c63; IMPORT t6 _Stdio__stdout; IMPORT char VS_Stdio__stdout__90ec4d7626198023;
#line 11
IMPORT t6 _Stdio__stderr; IMPORT char VS_Stdio__stderr__adb65da037aadcf0;   IMPORT t8 _FileStream__OpenRead (); IMPORT char VS_FileStream__OpenRead__ba61beaf3cb581b3;
#line 11
IMPORT t6 _FileStream__OpenWrite (); IMPORT char VS_FileStream__OpenWrite__449333bc31e524a0;   IMPORT t116 _Cstdarg__Foo ();
#line 11
IMPORT char VS_Cstdarg__Foo__824115bb33e53dd3; IMPORT TYPE TC_Cstdarg__Argv; IMPORT char VS_Cstdarg__Argv__01eb9fa23b3b0c10;
#line 11
IMPORT t1 _Cstdarg__argc; IMPORT char VS_Cstdarg__argc__d76baf0627172066; IMPORT t53 _Cstdarg__argv; IMPORT char VS_Cstdarg__argv__fd6d1b383d42313f;
#line 11
  IMPORT TYPE TC_Ctypes__const_char_star; IMPORT char VS_Ctypes__const_char_star__81d35d212987031d; IMPORT TYPE TC_Ctypes__char_star;
#line 11
IMPORT char VS_Ctypes__char_star__90cf39683847e5e8;   IMPORT t3 _M3toC__StoT (); IMPORT char VS_M3toC__StoT__101c3d9d28a7443d;
#line 11
  IMPORT EXCEPTION_NAME _Rd__EndOfFile; IMPORT char VS_Rd__EndOfFile__f4a9d2f63b7e105d; IMPORT EXCEPTION_NAME _Rd__Failure;
#line 11
IMPORT char VS_Rd__Failure__e4a829e331222b6d; IMPORT EXCEPTION_NAME _Rd__Error; IMPORT char VS_Rd__Error__5ca07bfe2ba90cfc;
#line 11
IMPORT t116 _Rd__Close (); IMPORT char VS_Rd__Close__adf5eb9535b06daa;   IMPORT t9 _String__Add (); IMPORT char VS_String__Add__0f5e21cc3d204b63;
#line 11
IMPORT t3 _String__ToText (); IMPORT char VS_String__ToText__b5eb19e626fe180d;   IMPORT t9 _Host__filename; IMPORT char VS_Host__filename__22e443082eed9cdf;
#line 11
IMPORT t8 _Host__source; IMPORT char VS_Host__source__9984d47c245ba2b6; IMPORT t6 _Host__errors; IMPORT char VS_Host__errors__68d293de2fd61f13;
#line 11
IMPORT t6 _Host__output; IMPORT char VS_Host__output__f4abf81320b5b8f0; IMPORT t11 _Host__verbose; IMPORT char VS_Host__verbose__446e4df03fef5543;
#line 11
IMPORT t11 _Host__Clines; IMPORT char VS_Host__Clines__d3bebdbe2144568f; IMPORT t11 _Host__asserts; IMPORT char VS_Host__asserts__a73d098f32529ac7;
#line 11
IMPORT t1 _Host__errorDie; IMPORT char VS_Host__errorDie__eb41f6122b3b143b; IMPORT t11 _Host__standard; IMPORT char VS_Host__standard__241b7c922bd89e90;
#line 11
IMPORT t1 _Host__warnings; IMPORT char VS_Host__warnings__08814d1c28a391ba; IMPORT t11 _Host__coverage; IMPORT char VS_Host__coverage__7e5b007739b6f6cf;
#line 11
IMPORT t11 _Host__inlines; IMPORT char VS_Host__inlines__564ad924303b65d4; IMPORT t11 _Host__versionStamps; IMPORT char VS_Host__versionStamps__349a7ae73215b586;
#line 11
IMPORT t1 _Host__incrementalVersion; IMPORT char VS_Host__incrementalVersion__1798bcf82af0e178; IMPORT t9 _Host__toCompile;
#line 11
IMPORT char VS_Host__toCompile__bcbbdf8434b39d67; EXPORT t8 _Host__OpenInterface (); EXPORT char VS_Host__OpenInterface__f7dcf6632ef32c58 = '\0';
#line 11
EXPORT t8 _Host__OpenFile (); EXPORT char VS_Host__OpenFile__2214d4e23310f488 = '\0'; EXPORT t116 _Host__CloseFile (); EXPORT char VS_Host__CloseFile__19dd0e0c3457343b = '\0';
#line 11
EXPORT t116 _Host__Halt (); EXPORT char VS_Host__Halt__cf1f17093643059d = '\0'; EXPORT t116 _Host__Initialize (); EXPORT char VS_Host__Initialize__bb56cbde2aea2fbe = '\0';
#line 11
PRIVATE t3 _Host__searchPath; PRIVATE t8 _Host__DoOpenFile (); PRIVATE t6 _Host__OpenWriter (); IMPORT t116 exit (); PRIVATE t116 _Host__ProcessOptions ();
#line 11
PRIVATE t1 _Host__GetInt ();       void Host__MMap (p) void (*p) (); { ADDRESS r = NIL; ADDRESS c = NIL; CHECKSTACKOVERFLOW;
#line 11
   p (& (_Host__searchPath), r, c); }; 
#line 48
PRIVATE EXCEPTION_NAME *try_labels_0 [] = { & _Rd__Failure, 0 };
#line 85
PRIVATE EXCEPTION_NAME *try_labels_2 [] = { & _Wr__Failure, 0 };
#line 22 "Host.m3"
 EXPORT t8 _Host__OpenFile (_name) t3 _name; { t8 z5;
#line 22 "Host.m3"
{ auto t3 _file; auto t8 __result; {

      ZERO1  (& _file);
#line 22
      ZERO1  (& __result); CHECKSTACKOVERFLOW;



      z5 = _Host__DoOpenFile (_name, &_file, ((ADDRESS)(& txt5.str)),  0 ); __result = z5; return __result; } } };
#line 29 "Host.m3"
 PRIVATE t8 _Host__DoOpenFile (_name, _filename, _path, _issueMsg) t3 _name; t3 * _filename; t3 _path; t11 _issueMsg; { t3 z4;
t11 z2; t3 z3; t8 z5;
#line 29 "Host.m3"
{ auto t8 __result; { ZERO1  (& __result); CHECKSTACKOVERFLOW;


      z4 = _Filename__SearchPath (_path, _name, _Filename__FileIsReadable); (*_filename) = z4;
      z2 = ((*_filename) == 0); if (z2) {
         if (_issueMsg) {
            _Error__Msg (((ADDRESS)(& txt10.str)));

            z4 = (ADDRESS) _Text__Cat (((ADDRESS)(& txt11.str)), _name); z3 = (ADDRESS) _Text__Cat (z4, ((ADDRESS)(& txt12.str)));
#line 37
            z4 = (ADDRESS) _Text__Cat (z3, _path); z3 = (ADDRESS) _Text__Cat (z4, ((ADDRESS)(& txt13.str))); _Wr__PutText (_Host__errors, z3);
#line 37
            goto if_2_end; }; if_2_end: /**/;

         __result = 0; return __result; };



      { HANDLER htry_0; PUSH_TRY (htry_0, try_labels_0, try_0);
#line 42
         z5 = _FileStream__OpenRead ((*_filename)); __result = z5; return __result;  try_0: CUT_TO_NEXT_HANDLER (htry_0);
#line 42
            if ((htry_0.exception->e == & _Rd__Failure)) { if (_issueMsg) {


                  _Error__Msg (((ADDRESS)(& txt14.str)));
                  z4 = (ADDRESS) _Text__Cat (((ADDRESS)(& txt15.str)), (*_filename)); z3 = (ADDRESS) _Text__Cat (z4, ((ADDRESS)(& txt16.str)));
#line 46
                  _Wr__PutText (_Host__errors, z3); goto if_3_end; }; if_3_end: /**/;

               __result = 0; return __result; }; RAISE_FOR_SURE (htry_0.exception); try_0_exit: /**/; }; } } };
#line 52 "Host.m3"
 EXPORT t116 _Host__CloseFile (_rd) t8 _rd; {
#line 52 "Host.m3"
{ { CHECKSTACKOVERFLOW;

      { HANDLER htry_1; PUSH_TRY (htry_1, 0, try_1); _Rd__Close (_rd); CUT_TO_NEXT_HANDLER (htry_1); goto try_1_exit;  try_1:
#line 54
 CUT_TO_NEXT_HANDLER (htry_1); try_1_exit: /**/; }; } } };
#line 57 "Host.m3"
 EXPORT t8 _Host__OpenInterface (_name, _filen) t9 _name; t9 * _filen; { t3 z2; t3 z3; t8 z5; t11 z4; t49 z1; t9 z6;
#line 57 "Host.m3"
{ auto t3 _file; auto t3 _fullname; auto t8 _rd; auto t8 __result; {
      ZERO1  (& _file); ZERO1  (& _fullname); ZERO1  (& _rd);
#line 57
      ZERO1  (& __result); CHECKSTACKOVERFLOW;


      z2 = _String__ToText (_name); _file = z2;
      z3 = (ADDRESS) _Text__Cat (_file, ((ADDRESS)(& txt2.str))); z5 = _Host__DoOpenFile (z3, &_fullname, _Host__searchPath,  1 );
#line 61
      _rd = z5;
      z4 = (_rd == 0); if (z4) {
         z3 = (ADDRESS) _Text__Cat (((ADDRESS)(& txt3.str)), _file); z2 = (ADDRESS) _Text__Cat (z3, ((ADDRESS)(& txt4.str)));
#line 63
         z3 = (ADDRESS) _Text__Cat (z2, _file); z2 = (ADDRESS) _Text__Cat (z3, ((ADDRESS)(& txt5.str))); z1 = _TextRd__New (z2);
#line 63
         _rd = (t8) z1; goto if_4_end; }; if_4_end: /**/;

      z4 = (_fullname != 0); if (z4) {
         z6 = _String__Add (_fullname,  999999 ); (*_filen) = z6;
         z3 = (ADDRESS) _Text__Cat (((ADDRESS)(& txt6.str)), _fullname); z2 = (ADDRESS) _Text__Cat (z3, ((ADDRESS)(& txt7.str)));
#line 67
         _Error__Info (z2); goto if_5_end; }; (*_filen) = _name;

 if_5_end: /**/;

      __result = _rd; return __result; } } };
#line 74 "Host.m3"
 PRIVATE t6 _Host__OpenWriter (_name) t3 _name; { t11 z2; t6 z3; t3 z4; t3 z5;
#line 74 "Host.m3"
{ auto t6 __result; { ZERO1  (& __result); CHECKSTACKOVERFLOW;

      z2 = (_name == 0); if (z2) {
         _Error__Msg (((ADDRESS)(& txt17.str)));
         __result = _Stdio__stdout; return __result; };



      { HANDLER htry_2; PUSH_TRY (htry_2, try_labels_2, try_2);
#line 81
         z3 = _FileStream__OpenWrite (_name); __result = z3; return __result;  try_2: CUT_TO_NEXT_HANDLER (htry_2); if ((htry_2.exception->e == & _Wr__Failure)) {
#line 81


               _Error__Msg (((ADDRESS)(& txt18.str)));
               z4 = (ADDRESS) _Text__Cat (((ADDRESS)(& txt15.str)), _name); z5 = (ADDRESS) _Text__Cat (z4, ((ADDRESS)(& txt16.str)));
#line 84
               _Wr__PutText (_Host__errors, z5);
               __result = _Stdio__stdout; return __result; }; RAISE_FOR_SURE (htry_2.exception); try_2_exit: /**/; }; } }
#line 85
 };
#line 91 "Host.m3"
 EXPORT t116 _Host__Halt (_e) t1 _e; { t11 z2;
#line 91 "Host.m3"
{ { CHECKSTACKOVERFLOW;

      { HANDLER htry_3; PUSH_TRY (htry_3, 0, try_3); _Wr__Close (_Host__errors); CUT_TO_NEXT_HANDLER (htry_3); goto try_3_exit;
#line 93
 try_3: CUT_TO_NEXT_HANDLER (htry_3); try_3_exit: /**/; };
      z2 = (_e ==  0 ); if (z2) { _Emit__Op (((ADDRESS)(& txt8.str))); goto if_7_end; }; if_7_end: /**/;
      { HANDLER htry_4; PUSH_TRY (htry_4, 0, try_4); _Wr__Close (_Host__output); CUT_TO_NEXT_HANDLER (htry_4); goto try_4_exit;
#line 95
 try_4: CUT_TO_NEXT_HANDLER (htry_4); try_4_exit: /**/; };
      z2 = (_e >  0 ); if (z2) { exit (_e); goto if_8_end; }; if_8_end: /**/; } } };
#line 99 "Host.m3"
 EXPORT t116 _Host__Initialize () { t1 z1; t11 z2; t9 z3;
#line 99 "Host.m3"
{ { CHECKSTACKOVERFLOW;

      _Host__errors = _Stdio__stderr;
      _Host__output = _Stdio__stdout;
      _Host__source = (t8) 0;
      _Host__verbose =  0 ;
      _Host__Clines =  0 ;
      _Host__asserts =  1 ;
      _Host__searchPath = (t3) 0;
      z1 = -  1 ; _Host__errorDie = z1;
      _Host__standard =  0 ;
      _Host__warnings =  2 ;
      _Host__coverage =  0 ;
      _Host__inlines =  0 ;
      z1 = -  1 ; _Host__incrementalVersion = z1;
      _Host__ProcessOptions ();
      z2 = (_Host__source == 0); if (z2) {
         z3 = _String__Add (((ADDRESS)(& txt9.str)),  999999 ); _Host__filename = z3;
         _Host__source = _Stdio__stdin; goto if_9_end; }; if_9_end: /**/;

      z2 = (_Host__searchPath == 0); if (z2) { _Host__searchPath = ((ADDRESS)(& txt1.str)); goto if_10_end; }; if_10_end: /**/;
#line 119
      } } };
#line 122 "Host.m3"
 PRIVATE t116 _Host__ProcessOptions () { t11 z2; t53 z3; t1 z4; t3 z5; t3 z1; t11 z6; t9 z7; t6 z8; t2 z9; t3 z10; t8 z11;
#line 122 "Host.m3"
{ auto t1 _i; auto t3 _t; {
      ZERO1  (& _t);
#line 122
      CHECKSTACKOVERFLOW;


      _i =  1 ;
      z2 = (_i < _Cstdarg__argc); if (z2) do { NILCHECKB (z3 = _Cstdarg__argv);
         z4 = _i; if ((z4 < 0) || (255 < z4)) RANGEFAULT; z5 = _M3toC__StoT (((*((t55*) z3)).elts[z4])); _t = z5;
         z5 = _Text__Sub (_t,  0 ,  2 ); z2 = _Text__Equal (z5, ((ADDRESS)(& txt19.str))); if (z2) {
            z4 =  2147483647 ; if (z4 < 0) RANGEFAULT; z5 = _Text__Sub (_t,  2 , z4); _t = z5;
            z2 = (_Host__searchPath == 0); if (z2) {
               _Host__searchPath = _t; goto if_12_end; }; z5 = (ADDRESS) _Text__Cat (_Host__searchPath, ((ADDRESS)(& txt20.str)));

               z1 = (ADDRESS) _Text__Cat (z5, _t); _Host__searchPath = z1; if_12_end: /**/; goto if_11_end; }; z6 = _Text__Equal (_t, ((ADDRESS)(& txt21.str)));
#line 133
         if (z6) {


            _Host__verbose =  1 ;
            z4 = -  1 ; _Host__warnings = z4; goto if_11_end; }; z5 = _Text__Sub (_t,  0 ,  2 ); z2 = _Text__Equal (z5, ((ADDRESS)(& txt22.str)));
#line 137
         if (z2) {

            z4 = _Host__GetInt (_t,  2 ); _Host__incrementalVersion = z4; goto if_11_end; }; z6 = _Text__Equal (_t, ((ADDRESS)(& txt23.str)));
#line 139
         if (z6) {

            _Host__asserts =  0 ; goto if_11_end; }; z6 = _Text__Equal (_t, ((ADDRESS)(& txt24.str))); if (z6) {

            _Host__Clines =  1 ; goto if_11_end; }; z6 = _Text__Equal (_t, ((ADDRESS)(& txt25.str))); if (z6) {

            _Host__versionStamps =  0 ; goto if_11_end; }; z6 = _Text__Equal (_t, ((ADDRESS)(& txt26.str))); if (z6) {

            _Host__standard =  1 ; goto if_11_end; }; z5 = _Text__Sub (_t,  0 ,  2 ); z2 = _Text__Equal (z5, ((ADDRESS)(& txt27.str)));
#line 147
         if (z2) {

            z5 = _Text__Sub (_t,  2 ,  1000 ); z7 = _String__Add (z5,  999999 ); _Host__toCompile = z7; goto if_11_end; }; z6 = _Text__Equal (_t, ((ADDRESS)(& txt28.str)));
#line 149
         if (z6) {

            _Host__warnings =  99 ; goto if_11_end; }; z5 = _Text__Sub (_t,  0 ,  2 ); z2 = _Text__Equal (z5, ((ADDRESS)(& txt28.str)));
#line 151
         if (z2) {

            z4 = _Host__GetInt (_t,  2 ); _Host__warnings = z4; goto if_11_end; }; z6 = _Text__Equal (_t, ((ADDRESS)(& txt29.str)));
#line 153
         if (z6) {

            _Host__coverage =  1 ; goto if_11_end; }; z6 = _Text__Equal (_t, ((ADDRESS)(& txt30.str))); if (z6) {

            _Host__inlines =  1 ; goto if_11_end; }; z5 = _Text__Sub (_t,  0 ,  2 ); z2 = _Text__Equal (z5, ((ADDRESS)(& txt31.str)));
#line 157
         if (z2) {

            z4 = _Host__GetInt (_t,  2 ); _Host__errorDie = z4; goto if_11_end; }; z6 = _Text__Equal (_t, ((ADDRESS)(& txt32.str)));
#line 159
         if (z6) {

            _i +=  1 ;
            NILCHECKB (z3 = _Cstdarg__argv); z4 = _i; if ((z4 < 0) || (255 < z4)) RANGEFAULT; z5 = _M3toC__StoT (((*((t55*) z3)).elts[z4]));
#line 162
            _t = z5;
            z8 = _Host__OpenWriter (_t); _Host__output = z8; goto if_11_end; }; z9 = _Text__GetChar (_t,  0 ); z2 = (z9 ==  '-' );
#line 163
         if (z2) {

            z5 = (ADDRESS) _Text__Cat (((ADDRESS)(& txt33.str)), _t); z10 = (ADDRESS) _Text__Cat (z5, ((ADDRESS)(& txt34.str)));
#line 165
            _Wr__PutText (_Stdio__stderr, z10);
            z4 = -  1 ; _Host__Halt (z4); goto if_11_end; }; z2 = (_Host__filename == 0); if (z2) {

            z7 = _String__Add (_t,  999999 ); _Host__filename = z7;
            z11 = _Host__OpenFile (_t); _Host__source = z11;
            z2 = (_Host__source == 0); if (z2) {
               z5 = (ADDRESS) _Text__Cat (((ADDRESS)(& txt7.str)), _t); z10 = (ADDRESS) _Text__Cat (z5, ((ADDRESS)(& txt35.str)));
#line 171
               _Wr__PutText (_Stdio__stderr, z10);
               z4 = -  1 ; _Host__Halt (z4); goto if_13_end; }; if_13_end: /**/; goto if_11_end; }; z5 = (ADDRESS) _Text__Cat (((ADDRESS)(& txt36.str)), _t);


            z10 = (ADDRESS) _Text__Cat (z5, ((ADDRESS)(& txt34.str))); _Wr__PutText (_Stdio__stderr, z10);
            z4 = -  1 ; _Host__Halt (z4); if_11_end: /**/;

         _i +=  1 ; z2 = (_i < _Cstdarg__argc); } while (z2); } } };
#line 182 "Host.m3"
 PRIVATE t1 _Host__GetInt (_t, _start) t3 _t; t1 _start; { t93 z2; t1 z1; t1 z3; t2 z4; t11 z5; t11 z0;
#line 182 "Host.m3"
{ auto t2 _c; auto t1 _n; auto t1 __result; {
      ZERO1B (& _c); ZERO1  ((& _n));
#line 182
      CHECKSTACKOVERFLOW;


      { int from, to, index; from = _start; z2 = _Text__Length (_t); z1 = z2 -  1 ; to = z1; { auto t1 _j; { for (index = from; index <= to; index += 1) {
#line 185
                  _j = (t1) index;
                  z3 = _j; if (z3 < 0) RANGEFAULT; z4 = _Text__GetChar (_t, z3); _c = z4;
                  z5 = (_c <  '0' ); z0 = 1; if (! z5) { z5 = ( '9'  < _c); z0 = z5; }; if (z0) { __result = _n; return __result;
#line 187
 };
                  z3 = _n *  10 ; z1 = z3 + _c; z3 = z1 -  48 ; _n = z3; } } }; };

      __result = _n; return __result; } } };  PRIVATE int init_done = -1;
#line 190 "Host.m3"
 PRIVATE void Host__initProc (g) int g; {
#line 190 "Host.m3"
if (init_done >= g) return; init_done = g; INITIALIZE (& Host__init); INITIALIZE (& Emit__init); INITIALIZE (& TextRd__init);
#line 190
INITIALIZE (& Filename__init); INITIALIZE (& Text__init); INITIALIZE (& Error__init); INITIALIZE (& Wr__init); INITIALIZE (& Stdio__init);
#line 190
INITIALIZE (& FileStream__init); INITIALIZE (& Cstdarg__init); INITIALIZE (& Cstdlib__init); INITIALIZE (& M3toC__init); INITIALIZE (& Rd__init);
#line 190
INITIALIZE (& String__init);
#line 20
ZERO1  (& _Host__searchPath);
#line 190
return; };   PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, Host__initProc}; static char* VSimports[] = { &VS_Emit__MaxStream__cf0a0e8934c9c9f3,
   &VS_Emit__Format__bc4a2b083b93bbd7, &VS_Emit__Op__072646cc27c8ae10, &VS_TextRd__T__aa7fbe4a3afd8be5, &VS_TextRd__New__4194d0fe285dac05,
   &VS_Filename__FileIsReadable__9b3bd1213f26bd28, &VS_Filename__SearchPath__f960e69a200e2452, &VS_Text__T__fc4b369f3ab271fd,
   &VS_Text__Equal__f19b6e6f34d36826, &VS_Text__GetChar__0f4bd6e72493f4ff, &VS_Text__Length__661a58173d76f41c, &VS_Text__Sub__ba151c702fe1a06f,
   &VS_Error__Msg__4d119a332467757f, &VS_Error__Info__c5b4711436dbf5da, &VS_Thread__Alerted__fc88feb43485af46, &VS_Wr__T__2555b70b3f7780b1,
   &VS_Wr__Failure__5f82cfb43dabf527, &VS_Wr__Error__c367253d3ed4fd15, &VS_Wr__PutText__e034dab73a793846, &VS_Wr__Close__6e568877234e064a,
   &VS_Stdio__stdin__e330ea7f240b0c63, &VS_Stdio__stdout__90ec4d7626198023, &VS_Stdio__stderr__adb65da037aadcf0, &VS_FileStream__OpenRead__ba61beaf3cb581b3,
   &VS_FileStream__OpenWrite__449333bc31e524a0, &VS_Cstdarg__Foo__824115bb33e53dd3, &VS_Cstdarg__Argv__01eb9fa23b3b0c10, &VS_Cstdarg__argc__d76baf0627172066,
   &VS_Cstdarg__argv__fd6d1b383d42313f, &VS_Ctypes__const_char_star__81d35d212987031d, &VS_Ctypes__char_star__90cf39683847e5e8,
   &VS_M3toC__StoT__101c3d9d28a7443d, &VS_M3toC__Argv__01eb9fa23b3b0c10, &VS_Thread__Alerted__fc88feb43485af46, &VS_Rd__T__2555b70b3f7780b1,
   &VS_Rd__EndOfFile__f4a9d2f63b7e105d, &VS_Rd__Failure__e4a829e331222b6d, &VS_Rd__Error__5ca07bfe2ba90cfc, &VS_Rd__Close__adf5eb9535b06daa,
   &VS_String__T__3a6c7dc12615e4ee, &VS_String__Add__0f5e21cc3d204b63, &VS_String__ToText__b5eb19e626fe180d, &VS_Host__filename__22e443082eed9cdf,
   &VS_Host__source__9984d47c245ba2b6, &VS_Host__errors__68d293de2fd61f13, &VS_Host__output__f4abf81320b5b8f0, &VS_Host__verbose__446e4df03fef5543,
   &VS_Host__Clines__d3bebdbe2144568f, &VS_Host__asserts__a73d098f32529ac7, &VS_Host__errorDie__eb41f6122b3b143b, &VS_Host__standard__241b7c922bd89e90,
   &VS_Host__warnings__08814d1c28a391ba, &VS_Host__coverage__7e5b007739b6f6cf, &VS_Host__inlines__564ad924303b65d4, &VS_Host__versionStamps__349a7ae73215b586,
   &VS_Host__incrementalVersion__1798bcf82af0e178, &VS_Host__toCompile__bcbbdf8434b39d67, NIL };  void Host__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = Host__init; Host__init = & me_0; break; };
      case 1: { break; }; case 2: { break; }; }; };