#include "M3Runtime.h"

typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "nested revelation", 18}; PRIVATE TXT txt2 = { 3, "nested exception declaration", 29};
PRIVATE TXT txt3 = { 3, "declaration pragma not followed by a declaration", 49 }; 
#define t20 ADDRESS
#define t77 void
#define TC20 TC_REFANY
IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a;
#line 17 "../Interfaces/Type.i3"
#define t25 ADDRESS
#define t57 ADDRESS
 typedef struct { TYPE self; int private; } t57_methods; 
#define t57_msize (sizeof (t57_methods))
typedef struct { ADDRESS methods; } t57_fields; 
#define t57_size (sizeof (t57_fields))
#define TC57 TC_UNTRACED_ROOT
IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20;
#line 18 "../Interfaces/M3.i3"
#define t22 ADDRESS
#define TC22 TC_M3__Type
IMPORT TYPE TC_M3__Type;
#line 18
IMPORT char VS_M3__Type__4d87bc25311f81d2;
#line 17 "../Interfaces/Type.i3"
typedef struct { t25 _next; t22 _type; } t55; 
#define TC25 TC_Type__List
IMPORT TYPE TC_Type__List;
#line 17
IMPORT char VS_Type__List__5791758e343becc1; 
#define t29 ADDRESS
typedef int t8; 
#define TC29 TC_ADDRESS
IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44;
#line 14 "../Interfaces/Expr.i3"
#define t36 ADDRESS
#define t35 ADDRESS
#define TC35 TC_M3__Expr
IMPORT TYPE TC_M3__Expr;
#line 16 "../Interfaces/M3.i3"
IMPORT char VS_M3__Expr__8ae39aaa2d432477;
#line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef struct { char* elts; int size[1]; } t65;
#line 14 "../Interfaces/Expr.i3"
#define t52 t65
#define TC36 TC_Expr__List
IMPORT TYPE TC_Expr__List;
#line 14
IMPORT char VS_Expr__List__3f87eceb2b9a246a;
#line 17 "../Interfaces/Scope.i3"
#define t43 ADDRESS
#define t23 ADDRESS
#define TC23 TC_M3__Value
IMPORT TYPE TC_M3__Value;
#line 15 "../Interfaces/M3.i3"
IMPORT char VS_M3__Value__6f64cf9c2cae25fb;
#line 17 "../Interfaces/Scope.i3"
#define t47 t65
#define TC43 TC_Scope__ValueList
IMPORT TYPE TC_Scope__ValueList;
#line 17
IMPORT char VS_Scope__ValueList__64bf053e22e4e53c;
#line 16 "../Interfaces/Type.i3"
#define t49 ADDRESS
#define t56 t65
#define TC49 TC_Type__Map
IMPORT TYPE TC_Type__Map;
#line 16
IMPORT char VS_Type__Map__41dd9f4b33104fce; 
#define t78 ADDRESS
#define TC78 TC_NULL
IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc;
#line 13 "../Interfaces/String.i3"
#define t7 ADDRESS
#define TC7 TC_String__T
IMPORT TYPE TC_String__T;
#line 13
IMPORT char VS_String__T__3a6c7dc12615e4ee; typedef unsigned char t2;
#line 14 "./Decl.i3"
typedef struct { t7 _alias; t2 _isExternal; t2 _isInline; t2 _isUnused; t2 _isObsolete; } t1;
#line 15 "../Interfaces/Token.i3"
typedef unsigned char t5;
#line 45
typedef struct { int elts[4]; } t3;
#line 19 "Decl.m3"
typedef t77 (*t4)(); 
#define t21 ADDRESS
 typedef struct { TYPE self; int private; } t21_methods; 
#define t21_msize (sizeof (t21_methods))
typedef struct { ADDRESS methods; } t21_fields; 
#define t21_size (sizeof (t21_fields))
#define TC21 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t21_MapProc TC_ROOT->mapProc
#define t6 ADDRESS
#define TC6 TC_Rd__T
IMPORT TYPE TC_Rd__T;
#line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
IMPORT char VS_Rd__T__2555b70b3f7780b1; 
#define t6_MapProc TC_Rd__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 t7 (*t10)();
#line 13 "../Interfaces/Scanner.i3"
typedef struct { t5 _token; t7 _string; t8 _value; t8 _offset; } t11;
#line 287 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
typedef t2 (*t12)(); typedef int t13;
#line 249
typedef t13 (*t14)();
#line 220
typedef t9 (*t15)(); typedef unsigned char t16;
#line 189
#define t17 t65
typedef t16 (*t18)();
#line 84
typedef unsigned char t19;
#line 15 "./Exceptionz.i3"
typedef t22 (*t24)();
#line 32 "./Revelation.i3"
typedef t25 (*t26)();
#line 14
#define t27 ADDRESS
#define TC27 TC_Revelation__Set
IMPORT TYPE TC_Revelation__Set;
#line 14
IMPORT char VS_Revelation__Set__d30dba392ce2e71e;

typedef t27 (*t28)();
#line 19 "../Interfaces/M3.i3"
#define t30 ADDRESS
#define TC30 TC_M3__Temp
IMPORT TYPE TC_M3__Temp;
#line 19
IMPORT char VS_M3__Temp__450b691937f03dae;
#line 37 "./Procedure.i3"
#define t31 t65
#define t32 ADDRESS
#define TC32 TC_Procedure__T
IMPORT TYPE TC_Procedure__T;
#line 15
IMPORT char VS_Procedure__T__be7ead4a3afd8be5;
#line 37
typedef t30 (*t33)();
#line 17 "../Interfaces/CallExpr.i3"
#define t34 ADDRESS
#define TC34 TC_CallExpr__MethodList
IMPORT TYPE TC_CallExpr__MethodList;
#line 17
IMPORT char VS_CallExpr__MethodList__7e87c2d720444b71;
#line 39
typedef t35 (*t37)();
#line 27
typedef t34 (*t38)();
#line 14 "../Interfaces/M3.i3"
#define t39 ADDRESS
#define TC39 TC_M3__Scope
IMPORT TYPE TC_M3__Scope;
#line 14
IMPORT char VS_M3__Scope__6e6d8848308d8a2d;
#line 16 "./Variable.i3"
#define t40 ADDRESS
#define TC40 TC_Variable__T
IMPORT TYPE TC_Variable__T;
#line 16
IMPORT char VS_Variable__T__be7ead4a3afd8be5;







typedef t40 (*t41)();
#line 19 "../Interfaces/String.i3"
typedef signed_char t61;
#line 65 "../Interfaces/Token.i3"
#define t59 t65
typedef struct { t7 elts[100]; } t62;
#line 17 "../Interfaces/String.i3"
typedef struct { t8 _top; t62 _stk; } t42;
#line 14
typedef struct { t7 _module; t7 _item; } t44;
#line 38 "../Interfaces/Scope.i3"
typedef t23 (*t45)();
#line 31
typedef t39 (*t46)();
#line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
#define t48 ADDRESS
#define TC48 TC_Wr__T
IMPORT TYPE TC_Wr__T;
#line 90
IMPORT char VS_Wr__T__2555b70b3f7780b1; 
#define t48_MapProc TC_Wr__T->mapProc
typedef unsigned char t50;
#line 40 "./Value.i3"
typedef t50 (*t51)();
#line 121 "../Interfaces/Type.i3"
typedef t49 (*t53)();
#line 97
typedef t8 (*t54)();
#line 17 "../Interfaces/M3.i3"
#define t58 ADDRESS
#define TC58 TC_M3__Stmt
IMPORT TYPE TC_M3__Stmt;
#line 17
IMPORT char VS_M3__Stmt__376b307627fc1f2f;
#line 65 "../Interfaces/Token.i3"
typedef struct { t7 elts[97]; } t60;
#line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3"
typedef signed_char t63; typedef t63 (*t64)();
#line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef unsigned char t66;
#line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3"
#define t67 ADDRESS
#define TC67 TC_Thread__T
IMPORT TYPE TC_Thread__T;
#line 15
IMPORT char VS_Thread__T__2555b70b3f7780b1; 
#define t67_MapProc TC_Thread__T->mapProc
typedef t20 (*t68)();



#define t69 ADDRESS
#define TC69 TC_Thread__Condition
IMPORT TYPE TC_Thread__Condition;
#line 21
IMPORT char VS_Thread__Condition__26d5968239e08f4e; 
#define t69_MapProc TC_Thread__Condition->mapProc
#define t70 ADDRESS
#define TC70 TC_MUTEX
IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; 
#define t70_MapProc TC_MUTEX->mapProc
typedef t67 (*t71)();
#line 23
#define t72 ADDRESS

#line 23
typedef struct { t68 _apply; } t72_methods; 
#define t72_msize (sizeof (t72_methods))
typedef struct {
#line 23
 int filler; } t72_fields; 
#define t72_size (sizeof (t72_fields))
#define TC72 TC_Thread__Closure
IMPORT TYPE TC_Thread__Closure;
#line 23
IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; 
#define t72_MapProc TC_Thread__Closure->mapProc
typedef t69 (*t73)();





typedef t70 (*t74)();
#line 28
#define t75 ADDRESS

#line 28
typedef struct { int filler; } t75_methods; 
#define t75_msize (sizeof (t75_methods))
typedef struct {
#line 28
 t13 _stackSize; } t75_fields; 
#define t75_size (sizeof (t75_fields))
#define TC75 TC_Thread__SizedClosure
IMPORT TYPE TC_Thread__SizedClosure;
#line 28
IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; 
#define t75_MapProc TC_Thread__SizedClosure->mapProc
typedef CLOSURE t76; typedef double t79; typedef float t80;
#line 9 "Decl.m3"
IMPORT INITLINK* Scanner__init; IMPORT INITLINK* Exceptionz__init; IMPORT INITLINK* Revelation__init; IMPORT INITLINK* Procedure__init;
#line 9
IMPORT INITLINK* Variable__init; IMPORT INITLINK* Tipe__init; IMPORT INITLINK* Constant__init; IMPORT INITLINK* Error__init;
#line 9
IMPORT INITLINK* Token__init; IMPORT INITLINK* Decl__init;  IMPORT t11 _Scanner__cur; IMPORT char VS_Scanner__cur__929fa6f8367ea415;
#line 9
IMPORT t77 _Scanner__Match (); IMPORT char VS_Scanner__Match__aaf5b32f2f19a6d8; IMPORT t7 _Scanner__MatchID (); IMPORT char VS_Scanner__MatchID__4fb3c66f3429afd9;
#line 9
IMPORT t77 _Scanner__GetToken (); IMPORT char VS_Scanner__GetToken__192100a32c7e576d; IMPORT t77 _Scanner__Fail (); IMPORT char VS_Scanner__Fail__a15a8cf32391aa62;
#line 9
  IMPORT t77 _Exceptionz__ParseDecl (); IMPORT char VS_Exceptionz__ParseDecl__a686f72b250573e4;   IMPORT t77 _Revelation__Parse ();
#line 9
IMPORT char VS_Revelation__Parse__286aceb32db03a80;   IMPORT t77 _Procedure__ParseDecl (); IMPORT char VS_Procedure__ParseDecl__e8f979982ce97f32;
#line 9
  IMPORT t77 _Variable__ParseDecl (); IMPORT char VS_Variable__ParseDecl__18a3960b3d9d7c28;   IMPORT t77 _Tipe__Parse ();
#line 9
IMPORT char VS_Tipe__Parse__48dca175242a6fa1;   IMPORT t77 _Constant__ParseDecl (); IMPORT char VS_Constant__ParseDecl__8ef8496430ac80e6;
#line 9
  IMPORT t77 _Error__Msg (); IMPORT char VS_Error__Msg__4d119a332467757f;   IMPORT t3 _Token__DeclStart; IMPORT char VS_Token__DeclStart__730c82bc2c2001b8;
#line 9
IMPORT t3 _Token__TypeStart; IMPORT char VS_Token__TypeStart__f71616cb38a20d02; IMPORT t3 _Token__ExprStart; IMPORT char VS_Token__ExprStart__21dc8a0a27344836;
#line 9
  EXPORT t77 _Decl__Parse (); EXPORT char VS_Decl__Parse__e6cb29993103d662 = '\0';     
#line 19 "Decl.m3"
 EXPORT t77 _Decl__Parse (_fail, _interface, _top_level) t3 * _fail; t2 _interface; t2 _top_level; { t2 z3; t2 z0; t2 z4;
t3 z5; t8 z6; t3 z7; t2 z1; t2 z2;
#line 19 "Decl.m3"
{ auto t1 _att; {

      ZERO2  (& _att);
#line 19
      CHECKSTACKOVERFLOW;



      (_att._isInline) =  0 ;
      (_att._isExternal) =  0 ;
      (_att._isUnused) =  0 ;
      (_att._isObsolete) =  0 ;
      (_att._alias) = (t7) 0;
      loop_0:; switch ((_Scanner__cur._token)) {
         case 36: _Scanner__GetToken ();


            z3 = ((_Scanner__cur._token) ==  1 ); z0 = 1; if (! z3) { z4 = ((_Scanner__cur._token) ==  6 ); z0 = z4; }; if (z0) {
               (_att._alias) = (_Scanner__cur._string); _Scanner__GetToken (); goto if_1_end; }; (_att._alias) = (t7) 0;
 if_1_end: /**/;

            (_att._isExternal) =  1 ; break; case 35: (_att._isInline) =  1 ;
            _Scanner__GetToken (); break; case 39: (_att._isUnused) =  1 ;
            _Scanner__GetToken (); break; case 40: (_att._isObsolete) =  1 ;
            _Scanner__GetToken (); break; default: /**/; goto loop_exit_0;
 };

         z5.elts [0] = 0; z5.elts [1] = 0; z5.elts [2] = 0; z5.elts [3] = 0; z7 = z5; _Scanner__Match ( 34 , &(*_fail), &z7);
#line 42
         goto loop_0; loop_exit_0: /**/;


      { register t5 e = (_Scanner__cur._token); if (e < 48) goto c1_else; if (e <= 48) goto c1_0; if (e < 56) goto c1_else;
#line 45
         if (e <= 56) goto c1_5; if (e < 75) goto c1_else; if (e <= 75) goto c1_3; if (e < 83) goto c1_else; if (e <= 83) goto c1_4;
#line 45
         if (e < 88) goto c1_else; if (e <= 88) goto c1_1; if (e < 94) goto c1_else; if (e <= 94) goto c1_2; goto c1_else;
#line 45
         c1_0:; _Constant__ParseDecl (&(*_fail), _att);

            goto c1_exit; c1_1:; _Tipe__Parse (&(*_fail), _att);

            goto c1_exit; c1_2:; _Variable__ParseDecl (&(*_fail), _att);

            goto c1_exit; c1_3:; _Procedure__ParseDecl (&(*_fail), _att, _interface);

            goto c1_exit; c1_4:; z1 = ! _top_level;

            if (z1) { _Error__Msg (((ADDRESS)(& txt1.str))); goto if_2_end; }; if_2_end: /**/;
            _Revelation__Parse (&(*_fail), _att); goto c1_exit; c1_5:; z1 = ! _top_level;

            if (z1) { _Error__Msg (((ADDRESS)(& txt2.str))); goto if_3_end; }; if_3_end: /**/;
            _Exceptionz__ParseDecl (&(*_fail), _att); goto c1_exit; c1_else:; z2 = 1;

            if (! (_att._isInline)) { z2 = (_att._isExternal); }; z0 = 1; if (! z2) { z0 = (_att._isUnused); }; z1 = 1; if (! z0) {
#line 61
               z1 = (_att._isObsolete); }; if (z1) {

               _Error__Msg (((ADDRESS)(& txt3.str))); goto if_4_end; }; if_4_end: /**/; c1_exit: /* exit */; }; } } };  PRIVATE int init_done = -1;
#line 63 "Decl.m3"
 PRIVATE void Decl__initProc (g) int g; {
#line 63 "Decl.m3"
if (init_done >= g) return; init_done = g; INITIALIZE (& Decl__init); INITIALIZE (& Scanner__init); INITIALIZE (& Exceptionz__init);
#line 63
INITIALIZE (& Revelation__init); INITIALIZE (& Procedure__init); INITIALIZE (& Variable__init); INITIALIZE (& Tipe__init);
#line 63
INITIALIZE (& Constant__init); INITIALIZE (& Error__init); INITIALIZE (& Token__init); return; };   PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, Decl__initProc};
static char* VSimports[] = { &VS_Scanner__cur__929fa6f8367ea415, &VS_Scanner__Match__aaf5b32f2f19a6d8, &VS_Scanner__MatchID__4fb3c66f3429afd9,
   &VS_Scanner__GetToken__192100a32c7e576d, &VS_Scanner__Fail__a15a8cf32391aa62, &VS_Exceptionz__ParseDecl__a686f72b250573e4,
   &VS_Revelation__Set__d30dba392ce2e71e, &VS_Revelation__Parse__286aceb32db03a80, &VS_Procedure__T__be7ead4a3afd8be5, &VS_Procedure__ParseDecl__e8f979982ce97f32,
   &VS_Variable__T__be7ead4a3afd8be5, &VS_Variable__ParseDecl__18a3960b3d9d7c28, &VS_Tipe__Parse__48dca175242a6fa1, &VS_Constant__ParseDecl__8ef8496430ac80e6,
   &VS_Error__Msg__4d119a332467757f, &VS_Token__DeclStart__730c82bc2c2001b8, &VS_Token__TypeStart__f71616cb38a20d02, &VS_Token__ExprStart__21dc8a0a27344836,
   &VS_Scanner__cur__929fa6f8367ea415, &VS_Scanner__MatchID__4fb3c66f3429afd9, &VS_Scanner__Match__aaf5b32f2f19a6d8, &VS_Scanner__Fail__a15a8cf32391aa62,
   &VS_Scanner__GetToken__192100a32c7e576d, NIL };  void Decl__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = Decl__init; Decl__init = & me_0; break; };
      case 1: { break; }; case 2: { break; }; }; };