/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: January 11, 1993 11:41:39 am PST */
/* C2C version: October 7, 1992 (native) */
/* ref-counting: off */
/* file: XlDBImpl, module: XlDBImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [229537753,2421014498] XlDBImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {word f0, f1, f2, f3;} W4;
typedef struct {W8 f; W4 r;} W12;
typedef W4 *W4Pt;
typedef struct {word f0, f1, f2;} W3;
typedef W3 *W3Pt;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q972();
static void XlDBImpl_P0();
static void ResetProc_P60();
static word InitializeProp_P120();
static word ReloadDBCache_P180();
static word NoName_Q1032();
static word GetStandardDBReadWrite_P240();
static word GetStandardDB_P300();
static void ConsInvalidator_P360();
static void RegisterDBInvalidator_P420();
static word QueryStandardDB_P480();
static void NoName_Q1092();
static struct {unsigned f; char r[4];} string1 = {65540, "\251\000\000"};
static struct {unsigned f; char r[4];} string2 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string3 = {65537, "\001\000\000"};
static struct {unsigned f; char r[44];} string4 = {2752556, "\260\006\005\146\151\162\163\164\257\300\015\256\167\331\300\220\115\277\342\100\354\005\004\162\145\163\164\214\257\300\015\256\167\331\300\220\115\277\342\100\354\261\000"};
static struct {unsigned f; char r[4];} string5 = {131074, "\004\016\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\015\256\167\331\300\220\115\277\342\100\214\000\000"};
static struct {unsigned f; char r[4];} string7 = {196611, "\004@\360"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\107\320\000\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string10 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"};
static struct {unsigned f; char r[16];} string11 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[44];} string12 = {2752556, "failed reading resource_manager property: \000"};
static struct {unsigned f; char r[32];} string13 = {1900576, "bad resource_manager property\000\000"};
static struct {unsigned f; char r[8];} string14 = {262152, "XlDB\000\000\000"};
static struct {unsigned f; char r[4];} string15 = {65540, "x\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\015\256\167\331\300\220\115\277\342\100\200\000\000"};
static struct {unsigned f; char r[12];} string17 = {655370, "\006\003\020\001\024\001\100\100\004\017\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\047\312\257\214\300\225\003\264\361\100\150\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\264\326\343\056\300\340\077\001\214\100\150\000\000"};
static struct {
   word f0[20]; 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[5]; 
   } globalframe = {
   {0}, (word) QueryStandardDB_P480, 0, (word) RegisterDBInvalidator_P420, 
   0, (word) ConsInvalidator_P360, 0, (word) GetStandardDB_P300, 
   0, (word) GetStandardDBReadWrite_P240, 0, (word) ReloadDBCache_P180, 
   0, (word) InitializeProp_P120, 0, (word) ResetProc_P60, 
   0, (word) XlDBImpl_P0, {0}
   };

static void NoName_Q972()
   {
   register ptr gf_c082 =  (ptr) &globalframe;
   word var_c14620;
   (* (( (ptr) gf_c082)+6) ) = (word) XR_GetTypeIndexS((word) (&string1));
   (* (( (ptr) gf_c082)+7) ) = (word) XR_GetTypeIndex((word) &string2, 0, (word) &string3);
   (* (( (ptr) gf_c082)+9) ) = (word) XR_GetTypeIndex((word) &string4, 0, (word) &string5);
   (* (( (ptr) gf_c082)+11) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string7);
   (* (( (ptr) gf_c082)+12) ) = (word) XR_GetTypeIndex((word) &string8, 0, (word) &string5);
   (* (( (ptr) gf_c082)+13) ) = (word) XR_GetTypeIndex((word) &string9, 0, (word) &string10);
   (* (( (ptr) gf_c082)+14) ) = (word) XR_GetTypeIndex((word) &string11, 0, (word) &string3);
   (*  (ptr) (( (bPt) gf_c082)+64) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c082)+14) ), (word) &string12);
   (*  (ptr) (( (bPt) gf_c082)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c082)+14) ), (word) &string13);
   (*  (ptr) (( (bPt) gf_c082)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c082)+7) ), (word) &string14);
   (*  (ptr) (( (bPt) gf_c082)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c082)+7) ), (word) &string15);
   (void) XR_DeclareGlobalFrame((word) "XlDBImpl", &globalframe, (word) XR_GetTypeIndex((word) &string16, 0, (word) &string17)
      , (word) (( (bPt) gf_c082)+144)/* var_c13948 */ );
   var_c14620 = (word) XR_ImportInterface((word) "Customize", (word) XR_GetTypeIndexS((word) (&string18)), 19);
   (* (( (ptr) gf_c082)+40)/* var_c14396 */  ) = var_c14620;
   (void) XR_ImportProcS(var_c14620, 67634946);
   (void) XR_ImportProcS(var_c14620, 67633922);
   (void) XR_ImportProcS(var_c14620, 67109120);
   var_c14620 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string19)), 43);
   (* (( (ptr) gf_c082)+39)/* var_c14268 */  ) = var_c14620;
   (void) XR_ImportProcS(var_c14620, 67633666);
   var_c14620 = (word) XR_ImportInterface((word) "Xl", (word) XR_GetTypeIndexS((word) (&string20)), 218);
   (* (( (ptr) gf_c082)+38)/* var_c14012 */  ) = var_c14620;
   (void) XR_ImportProcS(var_c14620, 67901699);
   (void) XR_ImportProcS(var_c14620, 270545672);
   (void) XR_ImportProcS(var_c14620, 1329157);
   (void) XR_ImportProcS(var_c14620, 67910403);
   (void) XR_ImportProcS(var_c14620, 67375105);
   (void) XR_ImportProcS(var_c14620, 1063940);
   (void) XR_ImportProcS(var_c14620, 68207876);
   var_c14620 = (word) XR_ExportInterface((word) "XlDB", (word) XR_GetTypeIndexS((word) (&string21)), 4);
   (* (( (ptr) gf_c082)+41)/* var_c14652 */  ) = var_c14620;
   (void) XR_ExportProcS(var_c14620, (word) (( (bPt) gf_c082)+112)/* var_c13820 */ , 67371009);
   (void) XR_ExportProcS(var_c14620, (word) (( (bPt) gf_c082)+104)/* var_c13788 */ , 67371265);
   (void) XR_ExportProcS(var_c14620, (word) (( (bPt) gf_c082)+88)/* var_c13724 */ , 1049092);
   (void) XR_ExportProcS(var_c14620, (word) (( (bPt) gf_c082)+80)/* var_c13692 */ , 67633922);
   }

static void XlDBImpl_P0(formal_c024, formal_c022)
   word formal_c024;
   word formal_c022;
   {
   register ptr gf_c14684 =  (ptr) &globalframe;
   /* XlDBImpl: */ 
SOURCE(58, 3046)
SOURCE(327, 35)
   {
      word var_c13980;
      var_c13980 = XR_NewObject(4, (* (( (ptr) gf_c14684)+7) ));
      (*  (ptr) var_c13980 ) = (* (( (ptr) gf_c14684)+18) );
      (* (( (ptr) gf_c14684)+4)/* myKey_v2676 */  ) = var_c13980;
      };
SOURCE(365, 69)
   {
      word pd22;
      pd22 = (* (( (ptr) (* (( (ptr) gf_c14684)+38)/* var_c14012 */  ))+201) );
      (* (( (ptr) gf_c14684)+5)/* propertyEvents_v2704 */  ) = (word) ( *( (fPt) ((*  (ptr) pd22 ))))(28, 35, 35, 35, pd22);
      };
   }

static void ResetProc_P60(event_v6308, clientData_v6336, tq_v6364)
   word event_v6308;
   word clientData_v6336;
   word tq_v6364;
   {
   register ptr gf_c14716 =  (ptr) &globalframe;
   /* ResetProc: */ 
SOURCE(436, 331)
SOURCE(468, 299)
   {
      word var_c14044;
      var_c14044 = event_v6308;
      if ((var_c14044 == 0)) {
         goto lab_L100000;
         };
      if (((* (( (ptr) var_c14044)+4) ) == 28)) {
         {
            word pne_v4140;
            pne_v4140 = var_c14044;
SOURCE(522, 245)
            if (((* (( (ptr) pne_v4140)+7) ) == 23)) {
SOURCE(573, 205)
               {
                  word mr_v4184;
SOURCE(575, 34)
                  mr_v4184 = XR_Narrow(clientData_v6336, (* (( (ptr) gf_c14716)+11) ));
SOURCE(611, 12)
                  (* (( (ptr) mr_v4184)+4) ) = 0;
SOURCE(625, 11)
                  (* (( (ptr) mr_v4184)+5) ) = 0;
SOURCE(638, 129)
                  {
                     register word l_v4240;
                     l_v4240 = (* (( (ptr) mr_v4184)+7) );
                     lab_L100004: ;
                     if ((l_v4240 != 0)) {
                        }
                     else {
                        goto lab_L100001;
                        };
SOURCE(710, 57)
                     {
                        word pd23;
                        pd23 = (* (( (ptr) (* (( (ptr) gf_c14716)+38)/* var_c14012 */  ))+64) );
                        (void) ( *( (fPt) ((*  (ptr) pd23 ))))((* (( (ptr) l_v4240)+1) ), (*  (ptr) l_v4240 ), (* (( (ptr) l_v4240)+2) ), event_v6308, pd23)
                        ;
                        };
                     l_v4240 = (* (( (ptr) l_v4240)+3) );
                     goto lab_L100004;
                     lab_L100001: ;
                     };
                  };
               };
            };
         }
      else {
         lab_L100000: ;
         };
      };
   }

static word InitializeProp_P120(c_v6424, key_v6452)
   word c_v6424;
   word key_v6452;
   {
   register ptr gf_c14748 =  (ptr) &globalframe;
   word val_v6496;
   word rootWindow_v4368;
   word mr_v4396;
   word match_v4424;
   /* InitializeProp: */ 
SOURCE(800, 294)
SOURCE(800, 294)
   val_v6496 = (* (( (ptr) gf_c14748)+19) );
SOURCE(842, 39)
   {
      word pd24;
      pd24 = (* (( (ptr) (* (( (ptr) gf_c14748)+38)/* var_c14012 */  ))+20) );
      rootWindow_v4368 = (word) ( *( (fPt) ((*  (ptr) pd24 ))))(c_v6424, pd24);
      };
SOURCE(883, 26)
   mr_v4396 = XR_NewObject(32, (* (( (ptr) gf_c14748)+11) ));
SOURCE(911, 108)
   {
      word var_c14108;
      word var_c14140;
      {
         word pd25;
         pd25 = (* (( (ptr) (* (( (ptr) gf_c14748)+38)/* var_c14012 */  ))+63) );
         var_c14108 = (word) ( *( (fPt) ((*  (ptr) pd25 ))))(0, 0, 0, pd25);
         };
      var_c14140 = XR_NewObject(16, (* (( (ptr) gf_c14748)+12) ));
      (*  (ptr) var_c14140 ) = (word) (( (bPt) gf_c14748)+136)/* var_c13916 */ ;
      (* (( (ptr) var_c14140)+1) ) = (* (( (ptr) gf_c14748)+5)/* propertyEvents_v2704 */  );
      (* (( (ptr) var_c14140)+2) ) = var_c14108;
      (* (( (ptr) var_c14140)+3) ) = mr_v4396;
      match_v4424 = var_c14140;
      };
SOURCE(1021, 60)
   {
      word pd26;
      pd26 = (* (( (ptr) (* (( (ptr) gf_c14748)+38)/* var_c14012 */  ))+76) );
      (void) ( *( (fPt) ((*  (ptr) pd26 ))))(c_v6424, rootWindow_v4368, match_v4424, 4194304, 0, pd26);
      };
SOURCE(1083, 11)
   return(mr_v4396);
   }

static word ReloadDBCache_P180(formal_c097, formal_c098, readonly_v3344)
   word formal_c097;
   word formal_c098;
   word readonly_v3344;
   {
   W12 var_c14780;
   /* declaration of c_v3288 skipped */ 
   /* declaration of mr_v3316 skipped */ 
   register ptr gf_c14812 =  (ptr) &globalframe;
   word db_v3400;
   (* (( (ptr) &var_c14780)+4)/* c_v3288 */  ) = formal_c097;
   (* (( (ptr) &var_c14780)+5)/* mr_v3316 */  ) = formal_c098;
   /* ReloadDBCache: */ 
SOURCE(1100, 731)
   (void) (XR_MonitorEntry(* (( (ptr) &var_c14780)+5)/* mr_v3316 */  ));
SOURCE(1100, 731)
   db_v3400 = 0;
SOURCE(1213, 10)
   db_v3400 = (* (( (ptr) (* (( (ptr) &var_c14780)+5)/* mr_v3316 */  ))+5) );
SOURCE(1225, 606)
   if ((0 == readonly_v3344) || (db_v3400 == 0)) {
SOURCE(1253, 580)
      {
         word val_v4480;
SOURCE(1256, 23)
         val_v4480 = (* (( (ptr) (* (( (ptr) &var_c14780)+5)/* mr_v3316 */  ))+4) );
SOURCE(1281, 430)
         if ((val_v4480 == 0)) {
SOURCE(1297, 414)
SOURCE(1299, 24)
            {
               W4 pr_v4524;
               word var_c14300;
SOURCE(1299, 24)
               pr_v4524.f0 = 0;
               pr_v4524.f1 = 0;
               pr_v4524.f2 = 0;
               pr_v4524.f3 = 0;
SOURCE(1325, 193)
               {
                  /* declaration of var_c14204 skipped */ 
                  {
                     word pd27;
                     pd27 = (* (( (ptr) (* (( (ptr) gf_c14812)+38)/* var_c14012 */  ))+20) );
                     (* (( (ptr) &var_c14780)+6)/* var_c14204 */  ) = (word) ( *( (fPt) ((*  (ptr) pd27 ))))((* ((( (ptr) &var_c14780)+4)/* c_v3288 */ ) ), pd27)
                     ;
                     };
                  {
                     /* declaration of var_c01 skipped */ 
                     (* (( (ptr) &var_c14780)+7)/* var_c01 */  ) = (* (( (ptr) (* (( (ptr) gf_c14812)+38)/* var_c14012 */  ))+55) );
                     {
                        /* declaration of var_c02 skipped */ 
                        {
                           word var_c03;
                           {
/*1*/   word var_c094;
/*1*/   var_c094 = (word) &var_c14780;
/*1*/   var_c03 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1032) ), ( ((word)  (fPt) NoName_Q1092) ), var_c094);
/*1*/   };
                           if ((var_c03 == 2)) {
/*1*/   goto lab_L100005;
/*1*/   };
                           };
                        pr_v4524 = (*  (W4Pt) (( (ptr) &var_c14780)+8)/* var_c02 */  );
                        };
                     };
                  };
SOURCE(1535, 156)
               {
                  word tc28;
                  if ((pr_v4524.f0 == 31)) {
                     var_c14300 = pr_v4524.f2;
                     if ((var_c14300 == 0)) {
                        tc28 =  (word) 1;
                        }
                     else {
                        if (((* (( (ptr) gf_c14812)+13) ) == XR_GetReferentType(var_c14300))) {
                           tc28 =  (word) ((*(int*)var_c14300<0) == 0);
                           }
                        else {
                           tc28 =  (word) 0;
                           };
                        };
                     }
                  else {
                     tc28 =  (word) 0;
                     };
                  if (tc28) {
SOURCE(1611, 37)
                     {
                        word var_c14332;
                        {
                           word var_c14364;
                           var_c14364 = XR_Narrow(pr_v4524.f2, (* (( (ptr) gf_c14812)+13) ));
                           if ((var_c14364 == 0)) {
/*1*/   goto lab_L100008;
/*1*/   };
                           if (((*(int*)var_c14364<0) == 0)) {
/*1*/   goto lab_L100008;
/*1*/   };
                           (void) XR_RaiseError(XR_NarrowFault, 0);
                           lab_L100008: ;
                           var_c14332 = var_c14364;
                           };
                        val_v4480 = var_c14332;
                        (* (( (ptr) (* (( (ptr) &var_c14780)+5)/* mr_v3316 */  ))+4) ) = var_c14332;
                        };
                     }
                  else {
SOURCE(1648, 43)
                     (* (( (ptr) (* (( (ptr) &var_c14780)+5)/* mr_v3316 */  ))+6) ) = (* (( (ptr) gf_c14812)+17) );
                     };
                  };
               };
            goto lab_L100009;
            lab_L100005: ;
            lab_L100009: ;
            };
SOURCE(1714, 25)
         {
            word pd29;
            pd29 = (* (( (ptr) (* (( (ptr) gf_c14812)+40)/* var_c14396 */  ))+5) );
            db_v3400 = (word) ( *( (fPt) ((*  (ptr) pd29 ))))(pd29);
            };
SOURCE(1741, 61)
         if ((val_v4480 != 0)) {
SOURCE(1757, 45)
            {
               word pd30;
               pd30 = (* (( (ptr) (* (( (ptr) gf_c14812)+40)/* var_c14396 */  ))+7) );
               (* (( (ptr) (* (( (ptr) &var_c14780)+5)/* mr_v3316 */  ))+6) ) = (word) ( *( (fPt) ((*  (ptr) pd30 ))))(db_v3400, val_v4480, pd30)
               ;
               };
            };
SOURCE(1804, 27)
         if ((0 != readonly_v3344)) {
SOURCE(1821, 10)
            (* (( (ptr) (* (( (ptr) &var_c14780)+5)/* mr_v3316 */  ))+5) ) = db_v3400;
            };
         };
      };
SOURCE(1100, 731)
   (void) (XR_MonitorExit(* (( (ptr) &var_c14780)+5)/* mr_v3316 */  ));
   return(db_v3400);
   }

static word NoName_Q1032(formal_c087)
   word formal_c087;
   {
SOURCE(1325, 193)
   {
      word pd31;
      pd31 = (* (( (ptr) formal_c087)+7) );
      (void) ( *( (fPt) ((*  (ptr) pd31 ))))((word) (( (bPt) formal_c087)+32), (* (( (ptr) formal_c087)+4) ), (* (( (ptr) formal_c087)+6)
          ), 23, 0, 0
         , 0, 2147483647, 0, pd31);
      };
   return(0);
   }

static word GetStandardDBReadWrite_P240(c_v3460)
   word c_v3460;
   {
   register ptr gf_c14844 =  (ptr) &globalframe;
   word db_v3504;
   /* GetStandardDBReadWrite: */ 
SOURCE(1840, 208)
SOURCE(1840, 208)
   db_v3504 = 0;
SOURCE(1926, 122)
   {
      word var_c14428;
      {
         word pd32;
         pd32 = (* (( (ptr) (* (( (ptr) gf_c14844)+38)/* var_c14012 */  ))+29) );
         var_c14428 = (word) ( *( (fPt) ((*  (ptr) pd32 ))))(c_v3460, (* (( (ptr) gf_c14844)+4)/* myKey_v2676 */  ), (word) (( (bPt) gf_c14844)+128)
            /* var_c13884 */ , pd32);
         };
      if ((var_c14428 == 0)) {
         goto lab_L100010;
         };
      if (((* (( (ptr) gf_c14844)+11) ) == XR_GetReferentType(var_c14428))) {
         {
            word mr_v4568;
            mr_v4568 = var_c14428;
SOURCE(2016, 32)
            db_v3504 = (word) ReloadDBCache_P180(c_v3460, mr_v4568, 0);
            };
         }
      else {
         lab_L100010: ;
SOURCE(2064, 5)
         (void) XR_RaiseUnnamedError();
         };
      };
SOURCE(1840, 208)
   return(db_v3504);
   }

static word GetStandardDB_P300(c_v3564)
   word c_v3564;
   {
   register ptr gf_c14876 =  (ptr) &globalframe;
   word db_v3608;
   /* GetStandardDB: */ 
SOURCE(2075, 234)
SOURCE(2075, 234)
   db_v3608 = 0;
SOURCE(2160, 149)
   {
      word var_c14460;
      {
         word pd33;
         pd33 = (* (( (ptr) (* (( (ptr) gf_c14876)+38)/* var_c14012 */  ))+29) );
         var_c14460 = (word) ( *( (fPt) ((*  (ptr) pd33 ))))(c_v3564, (* (( (ptr) gf_c14876)+4)/* myKey_v2676 */  ), (word) (( (bPt) gf_c14876)+128)
            /* var_c13884 */ , pd33);
         };
      if ((var_c14460 == 0)) {
         goto lab_L100011;
         };
      if (((* (( (ptr) gf_c14876)+11) ) == XR_GetReferentType(var_c14460))) {
         {
            word mr_v4624;
            mr_v4624 = var_c14460;
SOURCE(2250, 10)
            db_v3608 = (* (( (ptr) mr_v4624)+5) );
SOURCE(2263, 46)
            if ((db_v3608 == 0)) {
SOURCE(2278, 31)
               db_v3608 = (word) ReloadDBCache_P180(c_v3564, mr_v4624, 1);
               };
            };
         }
      else {
         lab_L100011: ;
SOURCE(2325, 5)
         (void) XR_RaiseUnnamedError();
         };
      };
SOURCE(2075, 234)
   return(db_v3608);
   }

static void ConsInvalidator_P360(mr_v3784, ir_v3812)
   word mr_v3784;
   W3 ir_v3812;
   {
   register ptr gf_c14908 =  (ptr) &globalframe;
   /* ConsInvalidator: */ 
SOURCE(2416, 112)
   (void) (XR_MonitorEntry(mr_v3784));
SOURCE(2485, 43)
   {
      word var_c14492;
      var_c14492 = XR_NewObject(16, (* (( (ptr) gf_c14908)+9) ));
      (*  (W3Pt) var_c14492 ) = ir_v3812;
      (* (( (ptr) var_c14492)+3) ) = (* (( (ptr) mr_v3784)+7) );
      (* (( (ptr) mr_v3784)+7) ) = var_c14492;
      };
SOURCE(2416, 112)
   (void) (XR_MonitorExit(mr_v3784));
   return;
   }

static void RegisterDBInvalidator_P420(c_v3884, proc_v3912, tq_v3940, data_v3968)
   word c_v3884;
   word proc_v3912;
   word tq_v3940;
   word data_v3968;
   {
   register ptr gf_c14940 =  (ptr) &globalframe;
   /* RegisterDBInvalidator: */ 
SOURCE(2534, 297)
SOURCE(2644, 187)
   {
      word var_c14524;
      {
         word pd34;
         pd34 = (* (( (ptr) (* (( (ptr) gf_c14940)+38)/* var_c14012 */  ))+29) );
         var_c14524 = (word) ( *( (fPt) ((*  (ptr) pd34 ))))(c_v3884, (* (( (ptr) gf_c14940)+4)/* myKey_v2676 */  ), (word) (( (bPt) gf_c14940)+128)
            /* var_c13884 */ , pd34);
         };
      if ((var_c14524 == 0)) {
         goto lab_L100012;
         };
      if (((* (( (ptr) gf_c14940)+11) ) == XR_GetReferentType(var_c14524))) {
         {
            word mr_v4680;
            mr_v4680 = var_c14524;
SOURCE(2734, 23)
            if ((proc_v3912 == 0)) {
SOURCE(2751, 6)
               return;
               };
SOURCE(2759, 33)
            if ((tq_v3940 == 0)) {
SOURCE(2774, 18)
               {
                  word pd35;
                  pd35 = (* (( (ptr) (* (( (ptr) gf_c14940)+38)/* var_c14012 */  ))+63) );
                  tq_v3940 = (word) ( *( (fPt) ((*  (ptr) pd35 ))))(0, 0, 0, pd35);
                  };
               };
SOURCE(2794, 37)
            {
               W3 var_c14556;
               var_c14556.f0 = XR_CheckProc(proc_v3912);
               var_c14556.f1 = tq_v3940;
               var_c14556.f2 = data_v3968;
               (void) ConsInvalidator_P360(mr_v4680, var_c14556);
               };
            };
         }
      else {
         lab_L100012: ;
SOURCE(2847, 5)
         (void) XR_RaiseUnnamedError();
         };
      };
   }

static word QueryStandardDB_P480(c_v4040, query_v4068)
   word c_v4040;
   word query_v4068;
   {
   register ptr gf_c14972 =  (ptr) &globalframe;
   word answer_v4112;
   word db_v4736;
   /* QueryStandardDB: */ 
SOURCE(2858, 246)
SOURCE(2858, 246)
   answer_v4112 = 0;
SOURCE(2956, 43)
   db_v4736 = (word) GetStandardDB_P300(c_v4040);
SOURCE(3001, 103)
   {
      word var_c14588;
      {
         word pd36;
         pd36 = (* (( (ptr) (* (( (ptr) gf_c14972)+40)/* var_c14396 */  ))+11) );
         var_c14588 = (word) ( *( (fPt) ((*  (ptr) pd36 ))))(db_v4736, query_v4068, pd36);
         };
      if ((var_c14588 == 0)) {
         goto lab_L100013;
         };
      {
         word tc37;
         if (((* (( (ptr) gf_c14972)+13) ) == XR_GetReferentType(var_c14588))) {
            tc37 =  (word) ((*(int*)var_c14588<0) == 0);
            }
         else {
            tc37 =  (word) 0;
            };
         if (tc37) {
            {
               word r_v4780;
               r_v4780 = var_c14588;
SOURCE(3069, 10)
               return(r_v4780);
               };
            }
         else {
            lab_L100013: ;
SOURCE(3092, 12)
            return(0);
            };
         };
      };
   }

static void NoName_Q1092(formal_c081, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c081;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c093 =  (ptr) &globalframe;
   if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c093)+38)/* var_c14012 */  ))+4) ))) {
      {
         word err_v10000;
         err_v10000 = (*  (ptr) formal_c200003 );
SOURCE(1432, 86)
         {
            word var_c14236;
            {
               word pd38;
               pd38 = (* (( (ptr) (* (( (ptr) gf_c093)+39)/* var_c14268 */  ))+6) );
               var_c14236 = (word) ( *( (fPt) ((*  (ptr) pd38 ))))((* (( (ptr) gf_c093)+16) ), (* (( (ptr) err_v10000)+5) ), pd38);
               };
            (* (( (ptr) (* (( (ptr) formal_c200000)+5) ))+6) ) = var_c14236;
            };
SOURCE(1520, 9)
         (*  (ptr) formal_c081 ) = 2;
         (* (( (ptr) formal_c081)+1) ) = 2;
         return;
         };
      };
   (*  (ptr) formal_c081 ) = 0;
   (* (( (ptr) formal_c081)+1) ) = 0;
   return;
   }

/* file: XlDBImpl, module: XlDBImpl, compiled at: January 11, 1993 11:41:38 am PST */ 
extern void XR_install_XlDBImpl() {
   NoName_Q972();
   }
extern void XR_run_XlDBImpl() { XR_Start(&globalframe); }