/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: July 6, 1993 9:24:13 am PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: DecomposerRegistryImpl, module: DecomposerRegistryImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [2383660275,3905436150] DecomposerRegistryImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
static void NoName_Q1308();
static void DecomposerRegistryImpl_P0();
static void Register_P60();
static void UnRegister_P120();
static word Lookup_P180();
static word Enumerate_P240();
static word MakeBoolVal_P300();
static word MakeCardVal_P360();
static word MakeIntVal_P420();
static word MakeTimeVal_P480();
static word MakeTextVal_P540();
static word MakeSeqVal1_P600();
static word MakeSeqVal2_P660();
static word MakeSeqValList_P720();
static struct {unsigned f; char r[48];} string1 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\125\320\113\245\300\331\322\350\010\102\014\005\004\162\145\163\164\214\216\257\300\125\320\113\245\300\331\322\350\010\102\014\261\000\000\000"};
static struct {unsigned f; char r[4];} string2 = {131074, "\004\003\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\125\320\113\245\300\331\322\350\010\100\274\000\000"};
static struct {unsigned f; char r[16];} string4 = {786444, "\007\000\040\007\000\000\000\000\003\001\000\013\000\000\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\125\320\113\245\300\331\322\350\010\101\064\000\000"};
static struct {unsigned f; char r[12];} string6 = {524296, "\011\000\004\000\040\000\004\001\000\000\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\216\023\304\363\300\350\310\071\366\100\150\000\000"};
static struct {unsigned f; char r[4];} string8 = {131074, "\003\010\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\125\320\113\245\300\331\322\350\010\100\150\000\000"};
static struct {
   word f0[15]; word f15; word f16; word f17; 
   word f18; word f19; word f20; word f21; 
   word f22; word f23; word f24; word f25; 
   word f26; word f27; word f28; word f29; 
   word f30; word f31; word f32; word f33; 
   word f34; word f35; word f36; word f37; 
   word f38; word f39; word f40[2]; 
   } globalframe = {
   {0}, (word) MakeSeqValList_P720, 0, (word) MakeSeqVal2_P660, 
   0, (word) MakeSeqVal1_P600, 0, (word) MakeTextVal_P540, 
   0, (word) MakeTimeVal_P480, 0, (word) MakeIntVal_P420, 
   0, (word) MakeCardVal_P360, 0, (word) MakeBoolVal_P300, 
   0, (word) Enumerate_P240, 0, (word) Lookup_P180, 
   0, (word) UnRegister_P120, 0, (word) Register_P60, 
   0, (word) DecomposerRegistryImpl_P0, {0}
   };

static void NoName_Q1308()
   {
   register ptr gf_c073 =  (ptr) &globalframe;
   word var_c7908;
   (* (( (ptr) gf_c073)+10) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c073)+11) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c073)+13) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6);
   (void) XR_DeclareGlobalFrame((word) "DecomposerRegistryImpl", &globalframe, (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8)
      , (word) (( (bPt) gf_c073)+156)/* var_c7076 */ );
   var_c7908 = (word) XR_ExportInterface((word) "DecomposerRegistry", (word) XR_GetTypeIndexS((word) (&string9)), 12);
   (* (( (ptr) gf_c073)+41)/* var_c7876 */  ) = var_c7908;
   (void) XR_ExportProcS(var_c7908, (word) (( (bPt) gf_c073)+148)/* var_c7044 */ , 262145, (word) "Register");
   (void) XR_ExportProcS(var_c7908, (word) (( (bPt) gf_c073)+140)/* var_c7012 */ , 262401, (word) "UnRegister");
   (void) XR_ExportProcS(var_c7908, (word) (( (bPt) gf_c073)+132)/* var_c6980 */ , 67371521, (word) "Lookup");
   (void) XR_ExportProcS(var_c7908, (word) (( (bPt) gf_c073)+124)/* var_c6948 */ , 67109632, (word) "Enumerate");
   (void) XR_ExportProcS(var_c7908, (word) (( (bPt) gf_c073)+116)/* var_c6916 */ , 67372033, (word) "MakeBoolVal");
   (void) XR_ExportProcS(var_c7908, (word) (( (bPt) gf_c073)+108)/* var_c6884 */ , 67372289, (word) "MakeCardVal");
   (void) XR_ExportProcS(var_c7908, (word) (( (bPt) gf_c073)+100)/* var_c6852 */ , 67372545, (word) "MakeIntVal");
   (void) XR_ExportProcS(var_c7908, (word) (( (bPt) gf_c073)+92)/* var_c6820 */ , 67372801, (word) "MakeTimeVal");
   (void) XR_ExportProcS(var_c7908, (word) (( (bPt) gf_c073)+84)/* var_c6788 */ , 67373057, (word) "MakeTextVal");
   (void) XR_ExportProcS(var_c7908, (word) (( (bPt) gf_c073)+76)/* var_c6756 */ , 67373313, (word) "MakeSeqVal1");
   (void) XR_ExportProcS(var_c7908, (word) (( (bPt) gf_c073)+68)/* var_c6724 */ , 67635714, (word) "MakeSeqVal2");
   (void) XR_ExportProcS(var_c7908, (word) (( (bPt) gf_c073)+60)/* var_c6692 */ , 67373825, (word) "MakeSeqValList");
   }

static void DecomposerRegistryImpl_P0(formal_c020, formal_c019)
   word formal_c020;
   word formal_c019;
   {
   /* DecomposerRegistryImpl: */ 
   }

static void Register_P60(data_v3020)
   word data_v3020;
   {
   register ptr gf_c7940 =  (ptr) &globalframe;
   /* Register: */ 
SOURCE(223, 275)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c7940)+16)/* LOCK_v2464 */ ));
SOURCE(278, 220)
   if ((data_v3020 != 0)) {
SOURCE(299, 156)
      {
         register word each_v4300;
         each_v4300 = (* (( (ptr) gf_c7940)+8)/* registry_v2520 */  );
         lab_L100003: ;
         if ((each_v4300 != 0)) {
            }
         else {
            goto lab_L100000;
            };
         {
            word first_v4344;
SOURCE(364, 34)
            first_v4344 = (*  (ptr) each_v4300 );
SOURCE(400, 55)
            if (((*  (ptr) first_v4344 ) == (*  (ptr) data_v3020 ))) {
SOURCE(430, 17)
               (*  (ptr) each_v4300 ) = data_v3020;
SOURCE(449, 6)
               (void) (XR_MonitorExit((word) (( (bPt) gf_c7940)+16)/* LOCK_v2464 */ ));
               return;
               };
            };
         each_v4300 = (* (( (ptr) each_v4300)+1) );
         goto lab_L100003;
         lab_L100000: ;
         };
SOURCE(467, 31)
      {
         word var_c7108;
         var_c7108 = XR_NewObject(8, (* (( (ptr) gf_c7940)+10) ));
         (*  (ptr) var_c7108 ) = data_v3020;
         (* (( (ptr) var_c7108)+1) ) = (* (( (ptr) gf_c7940)+8)/* registry_v2520 */  );
         (* (( (ptr) gf_c7940)+8)/* registry_v2520 */  ) = var_c7108;
         };
      };
SOURCE(223, 275)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c7940)+16)/* LOCK_v2464 */ ));
   return;
   }

static void UnRegister_P120(data_v3080)
   word data_v3080;
   {
   register ptr gf_c7972 =  (ptr) &globalframe;
   /* UnRegister: */ 
SOURCE(506, 319)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c7972)+16)/* LOCK_v2464 */ ));
SOURCE(563, 262)
   if ((data_v3080 != 0)) {
SOURCE(582, 254)
      {
         word lag_v4388 = 0;
SOURCE(609, 216)
         {
            register word each_v4432;
            each_v4432 = (* (( (ptr) gf_c7972)+8)/* registry_v2520 */  );
            lab_L100007: ;
            if ((each_v4432 != 0)) {
               }
            else {
               goto lab_L100004;
               };
            {
               word first_v4476;
SOURCE(674, 34)
               first_v4476 = (*  (ptr) each_v4432 );
SOURCE(710, 100)
               if (((*  (ptr) each_v4432 ) == data_v3080)) {
SOURCE(738, 64)
                  if ((lag_v4388 == 0)) {
SOURCE(756, 26)
                     (* (( (ptr) gf_c7972)+8)/* registry_v2520 */  ) = (* (( (ptr) each_v4432)+1) );
                     }
                  else {
SOURCE(782, 20)
                     (* (( (ptr) lag_v4388)+1) ) = (* (( (ptr) each_v4432)+1) );
                     };
SOURCE(804, 6)
                  (void) (XR_MonitorExit((word) (( (bPt) gf_c7972)+16)/* LOCK_v2464 */ ));
                  return;
                  };
SOURCE(815, 10)
               lag_v4388 = each_v4432;
               };
            each_v4432 = (* (( (ptr) each_v4432)+1) );
            goto lab_L100007;
            lab_L100004: ;
            };
         };
      };
SOURCE(506, 319)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c7972)+16)/* LOCK_v2464 */ ));
   return;
   }

static word Lookup_P180(key_v3140)
   word key_v3140;
   {
   register ptr gf_c8004 =  (ptr) &globalframe;
   word var_c3184;
   /* Lookup: */ 
SOURCE(843, 229)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c8004)+16)/* LOCK_v2464 */ ));
SOURCE(910, 139)
   {
      register word each_v4520;
      each_v4520 = (* (( (ptr) gf_c8004)+8)/* registry_v2520 */  );
      lab_L100011: ;
      if ((each_v4520 != 0)) {
         }
      else {
         goto lab_L100008;
         };
      {
         word first_v4564;
SOURCE(975, 34)
         first_v4564 = (*  (ptr) each_v4520 );
SOURCE(1011, 38)
         if (((*  (ptr) first_v4564 ) == key_v3140)) {
SOURCE(1035, 14)
            (void) (XR_MonitorExit((word) (( (bPt) gf_c8004)+16)/* LOCK_v2464 */ ));
            return(first_v4564);
            };
         };
      each_v4520 = (* (( (ptr) each_v4520)+1) );
      goto lab_L100011;
      lab_L100008: ;
      };
SOURCE(1060, 12)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c8004)+16)/* LOCK_v2464 */ ));
   return(0);
   }

static word Enumerate_P240()
   {
   register ptr gf_c8036 =  (ptr) &globalframe;
   word var_c3244;
   word head_v4608 = 0;
   word tail_v4636 = 0;
   /* Enumerate: */ 
SOURCE(1077, 307)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c8036)+16)/* LOCK_v2464 */ ));
SOURCE(1195, 165)
   {
      register word each_v4680;
      each_v4680 = (* (( (ptr) gf_c8036)+8)/* registry_v2520 */  );
      lab_L100015: ;
      if ((each_v4680 != 0)) {
         }
      else {
         goto lab_L100012;
         };
      {
         word new_v4724;
SOURCE(1260, 36)
         new_v4724 = XR_NewObject(8, (* (( (ptr) gf_c8036)+10) ));
         {
            word var_c7172;
            var_c7172 = new_v4724;
            (*  (ptr) var_c7172 ) = (*  (ptr) each_v4680 );
            };
SOURCE(1298, 50)
         if ((tail_v4636 == 0)) {
SOURCE(1317, 16)
            head_v4608 = new_v4724;
            }
         else {
SOURCE(1333, 15)
            (* (( (ptr) tail_v4636)+1) ) = new_v4724;
            };
SOURCE(1350, 10)
         tail_v4636 = new_v4724;
         };
      each_v4680 = (* (( (ptr) each_v4680)+1) );
      goto lab_L100015;
      lab_L100012: ;
      };
SOURCE(1371, 13)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c8036)+16)/* LOCK_v2464 */ ));
   return(head_v4608);
   }

static word MakeBoolVal_P300(b_v3388)
   word b_v3388;
   {
   register ptr gf_c8068 =  (ptr) &globalframe;
   word var_c3432;
   /* MakeBoolVal: */ 
SOURCE(1390, 100)
SOURCE(1445, 45)
   {
      word var_c7236;
      var_c7236 = XR_NewObject(8, (* (( (ptr) gf_c8068)+11) ));
      (*  (ptr) var_c7236 ) = 2;
      (* (( (ptr) var_c7236)+1) ) = b_v3388;
      return(var_c7236);
      };
   }

static word MakeCardVal_P360(c_v3492)
   word c_v3492;
   {
   register ptr gf_c8100 =  (ptr) &globalframe;
   word var_c3536;
   /* MakeCardVal: */ 
SOURCE(1496, 104)
SOURCE(1553, 47)
   {
      word var_c7300;
      var_c7300 = XR_NewObject(8, (* (( (ptr) gf_c8100)+11) ));
      (* (( (ptr) var_c7300)+1) ) = c_v3492;
      return(var_c7300);
      };
   }

static word MakeIntVal_P420(i_v3596)
   word i_v3596;
   {
   register ptr gf_c8132 =  (ptr) &globalframe;
   word var_c3640;
   /* MakeIntVal: */ 
SOURCE(1606, 100)
SOURCE(1661, 45)
   {
      word var_c7364;
      var_c7364 = XR_NewObject(8, (* (( (ptr) gf_c8132)+11) ));
      (*  (ptr) var_c7364 ) = 1;
      (* (( (ptr) var_c7364)+1) ) = i_v3596;
      return(var_c7364);
      };
   }

static word MakeTimeVal_P480(gmt_v3700)
   word gmt_v3700;
   {
   register ptr gf_c8164 =  (ptr) &globalframe;
   word var_c3744;
   /* MakeTimeVal: */ 
SOURCE(1712, 107)
SOURCE(1778, 41)
   {
      word var_c7428;
      var_c7428 = XR_NewObject(8, (* (( (ptr) gf_c8164)+11) ));
      (*  (ptr) var_c7428 ) = 5;
      (* (( (ptr) var_c7428)+1) ) = gmt_v3700;
      return(var_c7428);
      };
   }

static word MakeTextVal_P540(rope_v3804)
   word rope_v3804;
   {
   register ptr gf_c8196 =  (ptr) &globalframe;
   word var_c3848;
   /* MakeTextVal: */ 
SOURCE(1825, 105)
SOURCE(1888, 42)
   {
      word var_c7492;
      var_c7492 = XR_NewObject(8, (* (( (ptr) gf_c8196)+11) ));
      (*  (ptr) var_c7492 ) = 4;
      (* (( (ptr) var_c7492)+1) ) = rope_v3804;
      return(var_c7492);
      };
   }

static word MakeSeqVal1_P600(val_v3908)
   word val_v3908;
   {
   register ptr gf_c8228 =  (ptr) &globalframe;
   word var_c3952;
   word seq_v4768;
   /* MakeSeqVal1: */ 
SOURCE(1936, 158)
SOURCE(1994, 35)
   seq_v4768 = XR_NewObject(8, (* (( (ptr) gf_c8228)+13) ));
   (*  (ptr) seq_v4768 ) = 1;
SOURCE(2031, 12)
   {
      word limit10;
      (* ((( (ptr) seq_v4768)+1)+(
            limit10 = (*  (ptr) seq_v4768 ),
            BCK(0, limit10)
            )) ) = val_v3908;
      };
SOURCE(2045, 49)
   {
      word var_c7588;
      var_c7588 = XR_NewObject(8, (* (( (ptr) gf_c8228)+11) ));
      (*  (ptr) var_c7588 ) = 6;
      (* (( (ptr) var_c7588)+1) ) = seq_v4768;
      return(var_c7588);
      };
   }

static word MakeSeqVal2_P660(val1_v4012, val2_v4040)
   word val1_v4012;
   word val2_v4040;
   {
   register ptr gf_c8260 =  (ptr) &globalframe;
   word var_c4084;
   word seq_v4812;
   /* MakeSeqVal2: */ 
SOURCE(2100, 181)
SOURCE(2165, 35)
   seq_v4812 = XR_NewObject(12, (* (( (ptr) gf_c8260)+13) ));
   (*  (ptr) seq_v4812 ) = 2;
SOURCE(2202, 13)
   {
      word limit11;
      (* ((( (ptr) seq_v4812)+1)+(
            limit11 = (*  (ptr) seq_v4812 ),
            BCK(0, limit11)
            )) ) = val1_v4012;
      };
SOURCE(2217, 13)
   {
      word limit12;
      (* ((( (ptr) seq_v4812)+1)+(
            limit12 = (*  (ptr) seq_v4812 ),
            BCK(1, limit12)
            )) ) = val2_v4040;
      };
SOURCE(2232, 49)
   {
      word var_c7684;
      var_c7684 = XR_NewObject(8, (* (( (ptr) gf_c8260)+11) ));
      (*  (ptr) var_c7684 ) = 6;
      (* (( (ptr) var_c7684)+1) ) = seq_v4812;
      return(var_c7684);
      };
   }

static word MakeSeqValList_P720(list_v4144)
   word list_v4144;
   {
   register ptr gf_c8292 =  (ptr) &globalframe;
   word var_c4272;
   word seq_v4856 = 0;
   word n_v4884 = 0;
   /* MakeSeqValList: */ 
SOURCE(2287, 371)
SOURCE(2390, 71)
   {
      register word each_v4928;
      each_v4928 = list_v4144;
      lab_L100019: ;
      if ((each_v4928 != 0)) {
         }
      else {
         goto lab_L100016;
         };
SOURCE(2452, 9)
      n_v4884 = (n_v4884 + 1);
      each_v4928 = (* (( (ptr) each_v4928)+1) );
      goto lab_L100019;
      lab_L100016: ;
      };
SOURCE(2472, 25)
   {
      word var_c7716;
      word var_c7748;
      word var_c7780;
      var_c7716 = BCK(n_v4884, 67108863);
      var_c7748 = ((word) var_c7716 << 2);
      var_c7780 = XR_NewObject((4 + var_c7748), (* (( (ptr) gf_c8292)+13) ));
      (*  (ptr) var_c7780 ) = var_c7716;
      seq_v4856 = var_c7780;
      };
SOURCE(2499, 5)
   n_v4884 = 0;
SOURCE(2506, 92)
   {
      register word each_v5056;
      each_v5056 = list_v4144;
      lab_L100023: ;
      if ((each_v5056 != 0)) {
         }
      else {
         goto lab_L100020;
         };
SOURCE(2568, 19)
      {
         word limit13;
         (* ((( (ptr) seq_v4856)+1)+(
               limit13 = (*  (ptr) seq_v4856 ),
               BCK(n_v4884, limit13)
               )) ) = (*  (ptr) each_v5056 );
         };
SOURCE(2589, 9)
      n_v4884 = (n_v4884 + 1);
      each_v5056 = (* (( (ptr) each_v5056)+1) );
      goto lab_L100023;
      lab_L100020: ;
      };
SOURCE(2609, 49)
   {
      word var_c7844;
      var_c7844 = XR_NewObject(8, (* (( (ptr) gf_c8292)+11) ));
      (*  (ptr) var_c7844 ) = 6;
      (* (( (ptr) var_c7844)+1) ) = seq_v4856;
      return(var_c7844);
      };
   }

/* file: DecomposerRegistryImpl, module: DecomposerRegistryImpl, compiled at: July 6, 1993 9:24:13 am PDT */ 
extern void XR_install_DecomposerRegistryImpl() {
   NoName_Q1308();
   }
extern void XR_run_DecomposerRegistryImpl() { XR_Start(&globalframe); }