

#include "BUILTIN.h"
extern OBJ _ARep_119(OBJ);extern OBJ __ARep_119;

#include "Nat.h"

#include "Char.h"
extern OBJ _ASeqReduce_3(OBJ,OBJ,OBJ);extern OBJ __ASeqReduce_3;
extern OBJ _ASeqMap_3(OBJ,OBJ);extern OBJ __ASeqMap_3;

#include "CharConv.h"

#include "Denotation.h"
extern OBJ __APrintableChar_10;

#include "Array.h"

#include "Int.h"
extern OBJ _AGlobPragma_2(OBJ,OBJ);OBJ __AGlobPragma_2; /* lexem */
extern OBJ _AGlobPragma_3(OBJ);OBJ __AGlobPragma_3; /* lexem? */
extern OBJ _AGlobPragma_4(OBJ);OBJ __AGlobPragma_4; /* pos */
extern OBJ _AGlobPragma_5(OBJ);OBJ __AGlobPragma_5; /* ide */
extern OBJ _AGlobPragma_6(OBJ);OBJ __AGlobPragma_6; /* identify */
extern OBJ _AGlobPragma_7(OBJ);OBJ __AGlobPragma_7; /* identify? */
extern OBJ _AGlobPragma_8(OBJ);OBJ __AGlobPragma_8; /* pns */
extern OBJ _AGlobPragma_10(OBJ);OBJ __AGlobPragma_10; /* prag */
extern OBJ _AGlobPragma_11(OBJ);OBJ __AGlobPragma_11; /* prag? */
extern OBJ _AGlobPragma_12(OBJ);OBJ __AGlobPragma_12; /* pragS */
extern OBJ _AGlobPragma_14(OBJ,OBJ);OBJ __AGlobPragma_14; /* ` */
extern OBJ _AGlobPragma_15(OBJ,OBJ);OBJ __AGlobPragma_15; /* `,1 */
extern OBJ _AGlobPragma_16(OBJ);OBJ __AGlobPragma_16; /* `,1'16 */
extern OBJ _AGlobPragma_17(OBJ,OBJ);OBJ __AGlobPragma_17; /* `,1'17 */
OBJ __AGlobPragma_18; /* `,1'18 */
OBJ __AGlobPragma_19; /* `,1'19 */
extern OBJ _AGlobPragma_20(OBJ);OBJ __AGlobPragma_20; /* `,1'20 */

extern OBJ _AGlobPragma_2(OBJ x1,OBJ x2) /* lexem */
{OBJ r;
 PRD(2,1,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AGlobPragma_3(OBJ x1) /* lexem? */
{OBJ r;
 if(ISTGPRD(x1,1)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  if(EXPRD(x1,1)){
   FREE(FLD(x1,1),1);DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AGlobPragma_4(OBJ x1) /* pos */
{OBJ r;
 if(ISTGPRD(x1,1)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FRPRD(FLD(x1,1),1);DSPRDF(x1);
   }else{
    COPY(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("GlobPragma at <unknown> : undefined selection pos\'GlobPragma:pragmaItem->pos");}
 return r;}

extern OBJ _AGlobPragma_5(OBJ x1) /* ide */
{OBJ r;
 if(ISTGPRD(x1,1)){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    FREE(FLD(x1,2),1);DSPRDF(x1);
   }else{
    CPPRD(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("GlobPragma at <unknown> : undefined selection ide\'GlobPragma:pragmaItem->rep");}
 return r;}

extern OBJ _AGlobPragma_6(OBJ x1) /* identify */
{OBJ r;
 PRD(1,0,r);FLD(r,1)=x1;
 return r;}

extern OBJ _AGlobPragma_7(OBJ x1) /* identify? */
{OBJ r;
 if(ISTGPRD(x1,0)){
  if(EXPRD(x1,1)){
   FREE(FLD(x1,1),1);DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AGlobPragma_8(OBJ x1) /* pns */
{OBJ r;
 if(ISTGPRD(x1,0)){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    DSPRDF(x1);
   }else{
    COPY(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("GlobPragma at <unknown> : undefined selection pns\'GlobPragma:pragmaItem->seq");}
 return r;}

extern OBJ _AGlobPragma_10(OBJ x1) /* prag */
{OBJ r;
 r=x1;
 return r;}

extern OBJ _AGlobPragma_11(OBJ x1) /* prag? */
{OBJ r;
 FREE(x1,1);
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AGlobPragma_12(OBJ x1) /* pragS */
{OBJ r;
 r=x1;
 return r;}

extern OBJ _AGlobPragma_14(OBJ x1,OBJ x2) /* ` */
{OBJ r;
 CPCLS(__AGlobPragma_15,1);
 CPPRD(__ADenotation_3,1);
 CPCLS(__ADenotation_4,1);
 {OBJ x3;OBJ x4;
  x3=(*(OBJ(*)(OBJ,OBJ))METHOD(__AGlobPragma_15,1))(__AGlobPragma_15,x1);
  x4=_ASeqMap_3(x3,x2);
  r=_ASeqReduce_3(__ADenotation_4,__ADenotation_3,x4);}
 return r;}

extern OBJ _AGlobPragma_15(OBJ x1,OBJ x2) /* `,1 */
{OBJ r;
 if(ISTGPRD(x2,0)){
  {OBJ x54=FLD(x2,1);
   if(EXPRD(x2,1)){
    DSPRDF(x2);
   }else{
    COPY(x54,1);
    FRPRD(x2,1);}
   if(ISPRM(x54)){
    FRCLS(x1,1);
    CPPRD(__ADenotation_3,1);
    r=__ADenotation_3;
   }else{
    {OBJ x55=FLD1(x54,1);OBJ x56=FLD1(x54,2);
     if(EXPRD(x54,1)){
      DSPRDF(x54);
     }else{
      COPY(x55,1);COPY(x56,1);
      FRPRD(x54,1);}
     CPCLS(x1,1);
     CPCLS(__AGlobPragma_17,1);
     CPPRD(__AGlobPragma_18,1);
     CPPRD(__AGlobPragma_19,1);
     CPCLS(__ADenotation_4,1);
     {OBJ x58;OBJ x59;OBJ x60;OBJ x61;OBJ x62;
      x58=(*(OBJ(*)(OBJ,OBJ))METHOD(x1,1))(x1,x55);
      x59=(*(OBJ(*)(OBJ,OBJ))METHOD(__AGlobPragma_17,1))(__AGlobPragma_17,x1);
      x60=_ASeqMap_3(x59,x56);
      x61=_ASeqReduce_3(__ADenotation_4,__AGlobPragma_18,x60);
      ADenotation_4(x58,x61,x62);
      ADenotation_4(__AGlobPragma_19,x62,r);}}}}
 }else{
  {OBJ x63=FLD(x2,1);
   if(EXPRD(x2,1)){
    FREE(FLD(x2,2),1);DSPRDF(x2);
   }else{
    CPPRD(x63,1);
    FRPRD(x2,1);}
   FRCLS(x1,1);
   CPCLS(__AGlobPragma_20,1);
   {OBJ x65;OBJ x66;
    x65=(*(OBJ(*)(OBJ,OBJ))METHOD(__AGlobPragma_20,1))(__AGlobPragma_20,__ABUILTIN_20);
    x66=_ARep_119(x63);
    ADenotation_4(x66,x65,r);}}}
 return r;}

extern OBJ _AGlobPragma_16(OBJ x1) /* `,1'16 */
{OBJ r;
 ADenotation_1(__ANat_8,__APrintableChar_10,r);
 return r;}

extern OBJ _AGlobPragma_17(OBJ x1,OBJ x2) /* `,1'17 */
{OBJ r;
 CPCLS(__AGlobPragma_16,1);
 {OBJ x3;OBJ x4;
  x3=(*(OBJ(*)(OBJ,OBJ))METHOD(__AGlobPragma_16,1))(__AGlobPragma_16,__ABUILTIN_20);
  x4=(*(OBJ(*)(OBJ,OBJ))METHOD(x1,1))(x1,x2);
  ADenotation_4(x3,x4,r);}
 return r;}

extern OBJ _AGlobPragma_20(OBJ x1) /* `,1'20 */
{OBJ r;
 ADenotation_1(__ANat_8,__AChar_8,r);
 return r;}

init_AGlobPragma()
{
 static int visited=0; if(visited) return; visited=1;
 init_ARep();
 init_AOcPos();
 init_ASeq();
 init_ANat();
 init_AOption();
 init_AChar();
 init_ASeqReduce();
 init_ASeqMap();
 init_ACharConv();
 init_ADenotation();
 init_APrintableChar();
 init_AArray();
 init_ASet();
 init_AString();
 init_ALexem();
 init_AInt();
 LCLS(1,_AGlobPragma_20,__AGlobPragma_20);
 DEN("[ ",__AGlobPragma_19);
 DEN(" ] ",__AGlobPragma_18);
 CLS(2,_AGlobPragma_17,__AGlobPragma_17);
 LCLS(1,_AGlobPragma_16,__AGlobPragma_16);
 CLS(2,_AGlobPragma_15,__AGlobPragma_15);
 CLS(2,_AGlobPragma_14,__AGlobPragma_14);
 CLS(1,_AGlobPragma_12,__AGlobPragma_12);
 CLS(1,_AGlobPragma_11,__AGlobPragma_11);
 CLS(1,_AGlobPragma_10,__AGlobPragma_10);
 CLS(1,_AGlobPragma_8,__AGlobPragma_8);
 CLS(1,_AGlobPragma_7,__AGlobPragma_7);
 CLS(1,_AGlobPragma_6,__AGlobPragma_6);
 CLS(1,_AGlobPragma_5,__AGlobPragma_5);
 CLS(1,_AGlobPragma_4,__AGlobPragma_4);
 CLS(1,_AGlobPragma_3,__AGlobPragma_3);
 CLS(2,_AGlobPragma_2,__AGlobPragma_2);}

