/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: September 25, 1992 5:56:20 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XTkDBImpl, module: XTkDBImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [1571192195,3501018244] XTkDBImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; W3 r;} W11;
typedef struct {word f0, f1;} W2;
typedef word (*fPt)();
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W5 *W5Pt;
#define SOURCE(p, l) /* source p, l */
#define INEG(x)  ( (word) ( - ((int) (word) (x)) ) )
#define MAX(cast, x, y)  ( ( cast x) > ( cast y) ? (x) : (y) )
static void NoName_Q1392();
static void XTkDBImpl_P0();
static void ScanGeometry_P60();
static word NoName_Q1452();
static word ScanInt_P120();
static word NoName_Q1512();
static void ScanSize_P180();
static word NoName_Q1572();
static word BuildQueryFromWidget_P240();
static word RecurseDown_P1008();
static word DoQueryFromWidget_P300();
static void GetGeometryFromDB_P360();
static void GetSizeFromDB_P420();
static void NoName_Q1632();
static void NoName_Q1692();
static void NoName_Q1752();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string2 = {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];} string3 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\102\060\000\000"};
static struct {unsigned f; char r[4];} string4 = {65540, "\242\000\000"};
static struct {unsigned f; char r[12];} string5 = {524300, "\210\241\000\300\177\377\377\377\000\000\000"};
static struct {unsigned f; char r[4];} string6 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string7 = {65537, "\001\000\000"};
static struct {unsigned f; char r[4];} string8 = {131076, "bw\000"};
static struct {unsigned f; char r[8];} string9 = {327688, "color\000\000"};
static struct {unsigned f; char r[12];} string10 = {524300, "geometry\000\000\000"};
static struct {unsigned f; char r[8];} string11 = {262152, "size\000\000\000"};
static struct {unsigned f; char r[12];} string12 = {589836, "anyscreen\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\135\246\175\203\300\320\255\114\204\100\164\000\000"};
static struct {unsigned f; char r[8];} string14 = {327685, "\006\001<\004\037\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\047\312\257\214\300\225\003\264\361\100\150\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\264\326\343\056\300\340\077\001\214\100\150\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\227\370\144\253\300\176\165\034\110\100\150\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\313\123\221\202\300\154\256\060\341\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[6]; 
   } globalframe = {
   {0}, (word) GetSizeFromDB_P420, 0, (word) GetGeometryFromDB_P360, 
   0, (word) DoQueryFromWidget_P300, 0, (word) BuildQueryFromWidget_P240, 
   0, (word) ScanSize_P180, 0, (word) ScanInt_P120, 
   0, (word) ScanGeometry_P60, 0, (word) XTkDBImpl_P0, 
   {0}
   };

static void NoName_Q1392()
   {
   register ptr gf_c0110 =  (ptr) &globalframe;
   word var_c14204;
   (* (( (ptr) gf_c0110)+8) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c0110)+9) ) = (word) XR_GetTypeIndexS((word) (&string3));
   (* (( (ptr) gf_c0110)+10) ) = (word) XR_GetTypeIndexS((word) (&string4));
   (* (( (ptr) gf_c0110)+11) ) = (word) XR_GetTypeIndexS((word) (&string5));
   (* (( (ptr) gf_c0110)+12) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string7);
   (*  (ptr) (( (bPt) gf_c0110)+60) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0110)+12) ), (word) &string8);
   (*  (ptr) (( (bPt) gf_c0110)+64) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0110)+12) ), (word) &string9);
   (*  (ptr) (( (bPt) gf_c0110)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0110)+12) ), (word) &string10);
   (*  (ptr) (( (bPt) gf_c0110)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0110)+12) ), (word) &string11);
   (*  (ptr) (( (bPt) gf_c0110)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0110)+12) ), (word) &string12);
   (void) XR_DeclareGlobalFrame((word) "XTkDBImpl", &globalframe, (word) XR_GetTypeIndex((word) &string13, 0, (word) &string14)
      , (word) (( (bPt) gf_c0110)+136)/* var_c13500 */ );
   var_c14204 = (word) XR_ImportInterface((word) "Customize", (word) XR_GetTypeIndexS((word) (&string15)), 19);
   (* (( (ptr) gf_c0110)+37)/* var_c14044 */  ) = var_c14204;
   (void) XR_ImportProcS(var_c14204, 266241);
   (void) XR_ImportProcS(var_c14204, 67634690);
   (void) XR_ImportProcS(var_c14204, 67636738);
   (void) XR_ImportProcS(var_c14204, 67899139);
   (void) XR_ImportProcS(var_c14204, 67635714);
   var_c14204 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string16)), 103);
   (* (( (ptr) gf_c0110)+36)/* var_c13532 */  ) = var_c14204;
   (void) XR_ImportProcS(var_c14204, 67372801);
   (void) XR_ImportProcS(var_c14204, 67653890);
   (void) XR_ImportProcS(var_c14204, 67388417);
   (void) XR_ImportProcS(var_c14204, 67640578);
   var_c14204 = (word) XR_ImportInterface((word) "XlDB", (word) XR_GetTypeIndexS((word) (&string17)), 4);
   (* (( (ptr) gf_c0110)+39)/* var_c14140 */  ) = var_c14204;
   (void) XR_ImportProcS(var_c14204, 67371265);
   var_c14204 = (word) XR_ImportInterface((word) "XTkFriends", (word) XR_GetTypeIndexS((word) (&string18)), 33);
   (* (( (ptr) gf_c0110)+38)/* var_c14076 */  ) = var_c14204;
   (void) XR_ImportProcS(var_c14204, 270337);
   var_c14204 = (word) XR_ExportInterface((word) "XTkDB", (word) XR_GetTypeIndexS((word) (&string19)), 7);
   (* (( (ptr) gf_c0110)+40)/* var_c14236 */  ) = var_c14204;
   (void) XR_ExportProcS(var_c14204, (word) (( (bPt) gf_c0110)+104)/* var_c13372 */ , 67633154);
   (void) XR_ExportProcS(var_c14204, (word) (( (bPt) gf_c0110)+96)/* var_c13340 */ , 68157700);
   (void) XR_ExportProcS(var_c14204, (word) (( (bPt) gf_c0110)+128)/* var_c13468 */ , 402915841);
   (void) XR_ExportProcS(var_c14204, (word) (( (bPt) gf_c0110)+112)/* var_c13404 */ , 134480641);
   (void) XR_ExportProcS(var_c14204, (word) (( (bPt) gf_c0110)+120)/* var_c13436 */ , 67372033);
   (void) XR_ExportProcS(var_c14204, (word) (( (bPt) gf_c0110)+88)/* var_c13308 */ , 335807745);
   (void) XR_ExportProcS(var_c14204, (word) (( (bPt) gf_c0110)+80)/* var_c13276 */ , 134481409);
   }

static void XTkDBImpl_P0(formal_c022, formal_c021)
   word formal_c022;
   word formal_c021;
   {
   /* XTkDBImpl: */ 
   }

static void ScanGeometry_P60(formal_c028, formal_c0137)
   word formal_c028;
   word formal_c0137;
   {
   W11 var_c14268;
   /* declaration of val_v3136 skipped */ 
   /* declaration of s_v3196 skipped */ 
   /* declaration of p_v3224 skipped */ 
   /* declaration of xneg_v3252 skipped */ 
   /* declaration of yneg_v3280 skipped */ 
   (* (( (ptr) &var_c14268)+4)/* val_v3136 */  ) = formal_c0137;
   /* ScanGeometry: */ 
SOURCE(219, 909)
SOURCE(219, 909)
   (* (( (ptr) &var_c14268)+5) ) = 2147483648;
   (* (( (ptr) &var_c14268)+6) ) = 2147483648;
SOURCE(219, 909)
   (* (( (ptr) &var_c14268)+7) ) = 2147483648;
   (* (( (ptr) &var_c14268)+8) ) = 2147483648;
SOURCE(219, 909)
   (* (( (ptr) &var_c14268)+9)/* xneg_v3252 */  ) = 0;
SOURCE(219, 909)
   (* (( (ptr) &var_c14268)+10)/* yneg_v3280 */  ) = 0;
SOURCE(372, 756)
SOURCE(374, 720)
   {
      word var_c01;
      {
         word var_c0126;
         var_c0126 = (word) &var_c14268;
         var_c01 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1452) ), ( ((word)  (fPt) NoName_Q1752) ), var_c0126);
         };
      if ((var_c01 == 2)) {
         goto lab_L100001;
         };
      };
   goto lab_L100005;
   lab_L100001: ;
   lab_L100005: ;
   /* removed tail goto */ 
   (*  (W2Pt) formal_c028 ) = (*  (W2Pt) (( (ptr) &var_c14268)+5)/* s_v3196 */  );
   (*  (W2Pt) (( (ptr) formal_c028)+2) ) = (*  (W2Pt) (( (ptr) &var_c14268)+7)/* p_v3224 */  );
   (* (( (ptr) formal_c028)+4) ) = (* (( (ptr) &var_c14268)+9)/* xneg_v3252 */  );
   (* (( (ptr) formal_c028)+5) ) = (* (( (ptr) &var_c14268)+10)/* yneg_v3280 */  );
   return;
   }

static word NoName_Q1452(formal_c0112)
   word formal_c0112;
   {
   register ptr gf_c0111 =  (ptr) &globalframe;
SOURCE(420, 674)
   {
      word var_c13564;
      word var_c13596;
      var_c13564 = (* (( (ptr) formal_c0112)+4) );
      if ((var_c13564 == 0)) {
         goto lab_L100004;
         };
      var_c13596 = XR_GetReferentType(var_c13564);
      {
         word tc20;
         if (((* (( (ptr) gf_c0111)+8) ) == var_c13596)) {
            tc20 =  (word) ((*(int*)var_c13564<0) == 0);
            }
         else {
            tc20 =  (word) 0;
            };
         if (tc20) {
            {
               word r_v4080;
               r_v4080 = var_c13564;
SOURCE(457, 608)
               {
                  word i_v4124;
                  word char0_v4152 = 43;
                  word char1_v4180;
                  word stream_v4208;
SOURCE(499, 29)
                  {
                     word pd21;
                     pd21 = (* (( (ptr) (* (( (ptr) gf_c0111)+36)/* var_c13532 */  ))+33) );
                     stream_v4208 = (word) ( *( (fPt) ((*  (ptr) pd21 ))))(r_v4080, 0, pd21);
                     };
SOURCE(530, 21)
                  {
                     word pd22;
                     pd22 = (* (( (ptr) (* (( (ptr) gf_c0111)+36)/* var_c13532 */  ))+72) );
                     i_v4124 = (word) ( *( (fPt) ((*  (ptr) pd22 ))))(stream_v4208, pd22);
                     };
SOURCE(553, 30)
                  {
                     word var_c13628;
                     word pd23;
                     pd23 = (* (( (ptr) (* (( (ptr) gf_c0111)+36)/* var_c13532 */  ))+85) );
                     var_c13628 = (word) ( *( (fPt) ((*  (ptr) pd23 ))))(stream_v4208, 1, pd23);
                     };
SOURCE(587, 26)
                  {
                     word pd24;
                     pd24 = (* (( (ptr) (* (( (ptr) gf_c0111)+36)/* var_c13532 */  ))+11) );
                     char1_v4180 = (word) ( *( (fPt) ((*  (ptr) pd24 ))))(stream_v4208, pd24);
                     };
SOURCE(615, 218)
                  if (( ( ((char1_v4180 - 97) <= 25) ? (char1_v4180 - 32) : char1_v4180 )  == 88)) {
SOURCE(647, 11)
                     (* (( (ptr) formal_c0112)+5) ) = i_v4124;
SOURCE(660, 28)
                     {
                        word pd25;
                        pd25 = (* (( (ptr) (* (( (ptr) gf_c0111)+36)/* var_c13532 */  ))+72) );
                        (* (( (ptr) formal_c0112)+6) ) = (word) ( *( (fPt) ((*  (ptr) pd25 ))))(stream_v4208, pd25);
                        };
SOURCE(690, 30)
                     {
                        word var_c13660;
                        word pd26;
                        pd26 = (* (( (ptr) (* (( (ptr) gf_c0111)+36)/* var_c13532 */  ))+85) );
                        var_c13660 = (word) ( *( (fPt) ((*  (ptr) pd26 ))))(stream_v4208, 1, pd26);
                        };
SOURCE(724, 26)
                     {
                        word pd27;
                        pd27 = (* (( (ptr) (* (( (ptr) gf_c0111)+36)/* var_c13532 */  ))+11) );
                        char0_v4152 = (word) ( *( (fPt) ((*  (ptr) pd27 ))))(stream_v4208, pd27);
                        };
SOURCE(752, 21)
                     {
                        word pd28;
                        pd28 = (* (( (ptr) (* (( (ptr) gf_c0111)+36)/* var_c13532 */  ))+72) );
                        i_v4124 = (word) ( *( (fPt) ((*  (ptr) pd28 ))))(stream_v4208, pd28);
                        };
SOURCE(775, 30)
                     {
                        word var_c13692;
                        word pd29;
                        pd29 = (* (( (ptr) (* (( (ptr) gf_c0111)+36)/* var_c13532 */  ))+85) );
                        var_c13692 = (word) ( *( (fPt) ((*  (ptr) pd29 ))))(stream_v4208, 1, pd29);
                        };
SOURCE(807, 26)
                     {
                        word pd30;
                        pd30 = (* (( (ptr) (* (( (ptr) gf_c0111)+36)/* var_c13532 */  ))+11) );
                        char1_v4180 = (word) ( *( (fPt) ((*  (ptr) pd30 ))))(stream_v4208, pd30);
                        };
                     };
SOURCE(838, 46)
                  {
                     word var_c13724;
                     var_c13724 = char0_v4152;
                     if ((var_c13724 == 43)) {
                        }
                     else {
                        if ((var_c13724 == 45)) {
SOURCE(873, 11)
                           (* (( (ptr) formal_c0112)+9) ) = 1;
                           }
                        else {
SOURCE(898, 9)
                           return(2);
                           };
                        };
                     };
SOURCE(909, 28)
                  if (( (int)i_v4124 >=  (int)0)) {
                     (* (( (ptr) formal_c0112)+7) ) = i_v4124;
                     }
                  else {
                     (* (( (ptr) formal_c0112)+7) ) = INEG(i_v4124);
                     };
SOURCE(969, 46)
                  {
                     word var_c13756;
                     var_c13756 = char1_v4180;
                     if ((var_c13756 == 43)) {
                        }
                     else {
                        if ((var_c13756 == 45)) {
SOURCE(1004, 11)
                           (* (( (ptr) formal_c0112)+10) ) = 1;
                           }
                        else {
SOURCE(1029, 9)
                           return(2);
                           };
                        };
                     };
SOURCE(1040, 23)
                  {
                     word pd31;
                     pd31 = (* (( (ptr) (* (( (ptr) gf_c0111)+36)/* var_c13532 */  ))+72) );
                     (* (( (ptr) formal_c0112)+8) ) = (word) ( *( (fPt) ((*  (ptr) pd31 ))))(stream_v4208, pd31);
                     };
                  };
               };
            }
         else {
            if (((* (( (ptr) gf_c0111)+9) ) == var_c13596)) {
               {
                  word rs_v4252;
                  rs_v4252 = var_c13564;
SOURCE(1087, 7)
                  (*  (W2Pt) (( (ptr) formal_c0112)+5) ) = (*  (W2Pt) rs_v4252 );
                  };
               }
            else {
               lab_L100004: ;
               };
            };
         };
      };
   return(0);
   }

static word ScanInt_P120(formal_c0138)
   word formal_c0138;
   {
   W6 var_c14300;
   /* declaration of val_v3340 skipped */ 
   /* declaration of i_v3396 skipped */ 
   var_c14300.f4/* val_v3340 */  = formal_c0138;
   /* ScanInt: */ 
SOURCE(1132, 316)
SOURCE(1132, 316)
   var_c14300.f5/* i_v3396 */  = 2147483648;
SOURCE(1196, 252)
SOURCE(1198, 216)
   {
      word var_c02;
      {
         word var_c0127;
         var_c0127 = (word) &var_c14300;
         var_c02 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1512) ), ( ((word)  (fPt) NoName_Q1692) ), var_c0127);
         };
      if ((var_c02 == 3)) {
         goto lab_L100006;
         };
      };
   goto lab_L100010;
   lab_L100006: ;
   lab_L100010: ;
SOURCE(1132, 316)
   return(var_c14300.f5/* i_v3396 */ );
   }

static word NoName_Q1512(formal_c0114)
   word formal_c0114;
   {
   register ptr gf_c0113 =  (ptr) &globalframe;
SOURCE(1244, 170)
   {
      word var_c13788;
      word var_c13820;
      var_c13788 = (* (( (ptr) formal_c0114)+4) );
      if ((var_c13788 == 0)) {
         goto lab_L100009;
         };
      var_c13820 = XR_GetReferentType(var_c13788);
      {
         word var_c13852;
         {
            word tc33;
            if (((* (( (ptr) gf_c0113)+8) ) == var_c13820)) {
               tc33 =  (word) ((*(int*)var_c13788<0) == 0);
               }
            else {
               tc33 =  (word) 0;
               };
            if (tc33) {
               {
                  word r_v4308;
                  r_v4308 = var_c13788;
SOURCE(1281, 56)
                  {
                     word stream_v4352;
SOURCE(1283, 29)
                     {
                        word pd34;
                        pd34 = (* (( (ptr) (* (( (ptr) gf_c0113)+36)/* var_c13532 */  ))+33) );
                        stream_v4352 = (word) ( *( (fPt) ((*  (ptr) pd34 ))))(r_v4308, 0, pd34);
                        };
SOURCE(1314, 21)
                     {
                        word pd35;
                        pd35 = (* (( (ptr) (* (( (ptr) gf_c0113)+36)/* var_c13532 */  ))+72) );
                        (* (( (ptr) formal_c0114)+5) ) = (word) ( *( (fPt) ((*  (ptr) pd35 ))))(stream_v4352, pd35);
                        };
                     };
                  };
               goto endif032;
               };
            if (((
               var_c13852 = (* (( (ptr) gf_c0113)+10) )
               ) == var_c13820)) {
               {
                  word ri_v4396;
                  ri_v4396 = var_c13788;
SOURCE(1355, 7)
                  (* (( (ptr) formal_c0114)+5) ) = (*  (ptr) ri_v4396 );
                  };
               goto endif032;
               };
            if (((* (( (ptr) gf_c0113)+11) ) == var_c13820)) {
               {
                  word rn_v4452;
                  rn_v4452 = var_c13788;
SOURCE(1379, 7)
                  (* (( (ptr) formal_c0114)+5) ) = (*  (ptr) rn_v4452 );
                  };
               goto endif032;
               };
            if ((var_c13852 == var_c13820)) {
               {
                  word ri_v4508;
                  ri_v4508 = var_c13788;
SOURCE(1407, 7)
                  (* (( (ptr) formal_c0114)+5) ) = (*  (ptr) ri_v4508 );
                  };
               goto endif032;
               };
            lab_L100009: ;
            goto endif032;
            endif032: ;
            };
         };
      };
   return(0);
   }

static void ScanSize_P180(formal_c054, formal_c0139)
   word formal_c054;
   word formal_c0139;
   {
   W7 var_c14332;
   /* declaration of val_v3456 skipped */ 
   /* declaration of s_v3512 skipped */ 
   var_c14332.f4/* val_v3456 */  = formal_c0139;
   /* ScanSize: */ 
SOURCE(1452, 410)
SOURCE(1452, 410)
   var_c14332.f5 = 2147483648;
   var_c14332.f6 = 2147483648;
SOURCE(1535, 327)
SOURCE(1537, 291)
   {
      word var_c03;
      {
         word var_c0128;
         var_c0128 = (word) &var_c14332;
         var_c03 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1572) ), ( ((word)  (fPt) NoName_Q1632) ), var_c0128);
         };
      if ((var_c03 == 4)) {
         goto lab_L100012;
         };
      };
   goto lab_L100017;
   lab_L100012: ;
   lab_L100017: ;
   /* removed tail goto */ 
   (*  (W2Pt) formal_c054 ) = (*  (W2Pt) (( (ptr) &var_c14332)+5)/* s_v3512 */  );
   return;
   }

static word NoName_Q1572(formal_c0116)
   word formal_c0116;
   {
   register ptr gf_c0115 =  (ptr) &globalframe;
SOURCE(1583, 245)
   {
      word var_c13884;
      word var_c13916;
      var_c13884 = (* (( (ptr) formal_c0116)+4) );
      if ((var_c13884 == 0)) {
         goto lab_L100015;
         };
      var_c13916 = XR_GetReferentType(var_c13884);
      {
         word tc36;
         if (((* (( (ptr) gf_c0115)+8) ) == var_c13916)) {
            tc36 =  (word) ((*(int*)var_c13884<0) == 0);
            }
         else {
            tc36 =  (word) 0;
            };
         if (tc36) {
            {
               word r_v4564;
               r_v4564 = var_c13884;
SOURCE(1620, 179)
               {
                  word stream_v4608;
                  word var_c13980;
                  word ch_v13228;
SOURCE(1622, 29)
                  {
                     word pd37;
                     pd37 = (* (( (ptr) (* (( (ptr) gf_c0115)+36)/* var_c13532 */  ))+33) );
                     stream_v4608 = (word) ( *( (fPt) ((*  (ptr) pd37 ))))(r_v4564, 0, pd37);
                     };
SOURCE(1653, 27)
                  {
                     word pd38;
                     pd38 = (* (( (ptr) (* (( (ptr) gf_c0115)+36)/* var_c13532 */  ))+72) );
                     (* (( (ptr) formal_c0116)+5) ) = (word) ( *( (fPt) ((*  (ptr) pd38 ))))(stream_v4608, pd38);
                     };
SOURCE(1682, 30)
                  {
                     word var_c13948;
                     word pd39;
                     pd39 = (* (( (ptr) (* (( (ptr) gf_c0115)+36)/* var_c13532 */  ))+85) );
                     var_c13948 = (word) ( *( (fPt) ((*  (ptr) pd39 ))))(stream_v4608, 1, pd39);
                     };
SOURCE(1715, 43)
                  {
                     word pd40;
                     pd40 = (* (( (ptr) (* (( (ptr) gf_c0115)+36)/* var_c13532 */  ))+11) );
                     ch_v13228 = (word) ( *( (fPt) ((*  (ptr) pd40 ))))(stream_v4608, pd40);
                     };
                  if (((ch_v13228 - 97) <= 25)) {
                     var_c13980 = (ch_v13228 - 32);
                     }
                  else {
                     var_c13980 = ch_v13228;
                     };
                  if ((var_c13980 != 88)) {
SOURCE(1758, 9)
                     return(4);
                     };
SOURCE(1769, 28)
                  {
                     word pd41;
                     pd41 = (* (( (ptr) (* (( (ptr) gf_c0115)+36)/* var_c13532 */  ))+72) );
                     (* (( (ptr) formal_c0116)+6) ) = (word) ( *( (fPt) ((*  (ptr) pd41 ))))(stream_v4608, pd41);
                     };
                  };
               };
            }
         else {
            if (((* (( (ptr) gf_c0115)+9) ) == var_c13916)) {
               {
                  word rs_v4652;
                  rs_v4652 = var_c13884;
SOURCE(1821, 7)
                  (*  (W2Pt) (( (ptr) formal_c0116)+5) ) = (*  (W2Pt) rs_v4652 );
                  };
               }
            else {
               lab_L100015: ;
               };
            };
         };
      };
   return(0);
   }

static word BuildQueryFromWidget_P240(w_v3572, screenPrefix_v3600)
   word w_v3572;
   word screenPrefix_v3600;
   {
   W6 var_c14364;
   register ptr gf_c14396 =  (ptr) &globalframe;
   word query_v3644;
   /* declaration of var_c14012 skipped */ 
   /* BuildQueryFromWidget: */ 
SOURCE(1866, 813)
   {
      word tmpAddr42;
      tmpAddr42 = (word) (( (ptr) &var_c14364)+4)/* var_c14012 */ ;
      (*  (ptr) tmpAddr42 ) = ( ((word)  (fPt) RecurseDown_P1008) );
      (* (( (ptr) tmpAddr42) + 1) ) = 1;
      };
SOURCE(1866, 813)
   query_v3644 = 0;
SOURCE(2267, 28)
   {
      word pd43;
      pd43 = (* (( (ptr) (* (( (ptr) gf_c14396)+37)/* var_c14044 */  ))+14) );
      query_v3644 = (word) ( *( (fPt) ((*  (ptr) pd43 ))))(16, 0, pd43);
      };
SOURCE(2297, 348)
   if ((0 != screenPrefix_v3600)) {
SOURCE(2320, 30)
      {
         word pd44;
         pd44 = (* (( (ptr) (* (( (ptr) gf_c14396)+38)/* var_c14076 */  ))+36) );
         (void) ( *( (fPt) ((*  (ptr) pd44 ))))(w_v3572, pd44);
         };
      if (((* (( (ptr) w_v3572)+36) ) == 0)) {
SOURCE(2392, 52)
         {
            word pd45;
            pd45 = (* (( (ptr) (* (( (ptr) gf_c14396)+37)/* var_c14044 */  ))+19) );
            query_v3644 = (word) ( *( (fPt) ((*  (ptr) pd45 ))))(query_v3644, (* (( (ptr) gf_c14396)+19) ), (* (( (ptr) gf_c14396)+15)
                ), pd45);
            };
SOURCE(2446, 49)
         {
            word pd46;
            pd46 = (* (( (ptr) (* (( (ptr) gf_c14396)+37)/* var_c14044 */  ))+18) );
            query_v3644 = (word) ( *( (fPt) ((*  (ptr) pd46 ))))(query_v3644, (* (( (ptr) gf_c14396)+16) ), pd46);
            };
         }
      else {
         if (((* (( (ptr) (* (( (ptr) w_v3572)+36) ))+3) ) == 1)) {
SOURCE(2525, 52)
            {
               word pd47;
               pd47 = (* (( (ptr) (* (( (ptr) gf_c14396)+37)/* var_c14044 */  ))+19) );
               query_v3644 = (word) ( *( (fPt) ((*  (ptr) pd47 ))))(query_v3644, (* (( (ptr) gf_c14396)+15) ), (* (( (ptr) gf_c14396)+19)
                   ), pd47);
               };
            }
         else {
SOURCE(2590, 55)
            {
               word pd48;
               pd48 = (* (( (ptr) (* (( (ptr) gf_c14396)+37)/* var_c14044 */  ))+19) );
               query_v3644 = (word) ( *( (fPt) ((*  (ptr) pd48 ))))(query_v3644, (* (( (ptr) gf_c14396)+16) ), (* (( (ptr) gf_c14396)+19)
                   ), pd48);
               };
            };
         };
      };
SOURCE(2650, 29)
   query_v3644 = (word) RecurseDown_P1008(query_v3644, w_v3572, (word) (( (bPt) &var_c14364)+16)/* var_c14012 */ );
SOURCE(1866, 813)
   return(query_v3644);
   }

static word RecurseDown_P1008(query_v4784, w_v4812, formal_c14460)
   word query_v4784;
   word w_v4812;
   word formal_c14460;
   {
   register ptr gf_c14428 =  (ptr) &globalframe;
   word var_c4856;
   word inst_v4884;
   formal_c14460 = (formal_c14460 - 16);
   /* RecurseDown: */ 
SOURCE(1980, 282)
SOURCE(2068, 25)
   inst_v4884 = (* (( (ptr) w_v4812)+11) );
SOURCE(2095, 57)
   if (((* (( (ptr) w_v4812)+31) ) != 0)) {
SOURCE(2116, 36)
      query_v4784 = (word) RecurseDown_P1008(query_v4784, (* (( (ptr) w_v4812)+31) ), (word) (( (bPt) formal_c14460)+16));
      };
SOURCE(2154, 92)
   if ((inst_v4884 != 0) || ((* (( (ptr) w_v4812)+31) ) == 0)) {
SOURCE(2187, 59)
      {
         word var_c14108;
         {
            word pd49;
            pd49 = (* (( (ptr) (* (( (ptr) w_v4812)+4) ))+25) );
            var_c14108 = (word) ( *( (fPt) ((*  (ptr) pd49 ))))(w_v4812, pd49);
            };
         {
            word pd50;
            pd50 = (* (( (ptr) (* (( (ptr) gf_c14428)+37)/* var_c14044 */  ))+19) );
            query_v4784 = (word) ( *( (fPt) ((*  (ptr) pd50 ))))(query_v4784, inst_v4884, var_c14108, pd50);
            };
         };
      };
SOURCE(2248, 14)
   return(query_v4784);
   }

static word DoQueryFromWidget_P300(w_v3704, screenPrefix_v3732, key1_v3760, key2_v3788)
   word w_v3704;
   word screenPrefix_v3732;
   word key1_v3760;
   word key2_v3788;
   {
   register ptr gf_c14492 =  (ptr) &globalframe;
   word val_v3832;
   word c_v4928;
   /* DoQueryFromWidget: */ 
SOURCE(2685, 408)
SOURCE(2685, 408)
   val_v3832 = 0;
SOURCE(2812, 31)
   c_v4928 = (* (( (ptr) w_v3704)+34) );
SOURCE(2846, 247)
   if ( ( (c_v4928 != 0) ? (0 != (* (( (ptr) c_v4928)+15) )) : 0 ) ) {
SOURCE(2866, 229)
      {
         word db_v4972;
         word query_v5000;
SOURCE(2868, 48)
         {
            word pd51;
            pd51 = (* (( (ptr) (* (( (ptr) gf_c14492)+39)/* var_c14140 */  ))+5) );
            db_v4972 = (word) ( *( (fPt) ((*  (ptr) pd51 ))))(c_v4928, pd51);
            };
SOURCE(2918, 62)
         query_v5000 = (word) BuildQueryFromWidget_P240(w_v3704, screenPrefix_v3732);
SOURCE(2982, 47)
         {
            word pd52;
            pd52 = (* (( (ptr) (* (( (ptr) gf_c14492)+37)/* var_c14044 */  ))+19) );
            query_v5000 = (word) ( *( (fPt) ((*  (ptr) pd52 ))))(query_v5000, key1_v3760, key2_v3788, pd52);
            };
SOURCE(3031, 34)
         {
            word pd53;
            pd53 = (* (( (ptr) (* (( (ptr) gf_c14492)+37)/* var_c14044 */  ))+10) );
            val_v3832 = (word) ( *( (fPt) ((*  (ptr) pd53 ))))(db_v4972, query_v5000, pd53);
            };
SOURCE(3067, 26)
         {
            word pd54;
            pd54 = (* (( (ptr) (* (( (ptr) gf_c14492)+37)/* var_c14044 */  ))+20) );
            (void) ( *( (fPt) ((*  (ptr) pd54 ))))(query_v5000, pd54);
            };
         };
      };
SOURCE(2685, 408)
   return(val_v3832);
   }

static void GetGeometryFromDB_P360(formal_c089, w_v3904)
   word formal_c089;
   word w_v3904;
   {
   register ptr gf_c14524 =  (ptr) &globalframe;
   W5 g_v3948;
   word val_v5044;
   /* GetGeometryFromDB: */ 
SOURCE(3102, 618)
SOURCE(3102, 618)
   g_v3948.f0 = 2147483648;
   g_v3948.f1 = 2147483648;
   g_v3948.f2 = 2147483648;
   g_v3948.f3 = 2147483648;
   g_v3948.f4 = 2147483648;
SOURCE(3178, 55)
   val_v5044 = (word) DoQueryFromWidget_P300(w_v3904, 1, (* (( (ptr) gf_c14524)+17) ), (* (( (ptr) gf_c14524)+18) ));
SOURCE(3235, 485)
   if ((val_v5044 != 0)) {
SOURCE(3251, 490)
      {
         W2 p_v5100;
         word xneg_v5128;
         word yneg_v5156;
         W2 ss_v5184;
SOURCE(3284, 47)
         ss_v5184 = (*  (W2Pt) (( (ptr) (* (( (ptr) (* (( (ptr) w_v3904)+36) ))+1) ))+5) );
SOURCE(3333, 43)
         {
            W6 var_c14172;
            (void) ScanGeometry_P60((word) &var_c14172, val_v5044);
            yneg_v5156 = var_c14172.f5;
            xneg_v5128 = var_c14172.f4;
            p_v5100 = (*  (W2Pt) (( (ptr) &var_c14172)+2) );
            (*  (W2Pt) (( (ptr) &g_v3948)+2) ) = (*  (W2Pt) &var_c14172 );
            };
SOURCE(3379, 158)
         if (( (int)p_v5100.f0 !=  (int)2147483648)) {
            if ( ( (0 == xneg_v5128) ? ( (int)p_v5100.f0 <  (int)ss_v5184.f0) : 0 ) ) {
SOURCE(3448, 13)
               g_v3948.f0 = p_v5100.f0;
               }
            else {
               if ( ( (0 != xneg_v5128) ? ( (int)p_v5100.f0 <  (int)ss_v5184.f0) : 0 ) ) {
SOURCE(3490, 47)
                  {
                     word x55;
                     g_v3948.f0 = ((ss_v5184.f0 - (x55 = g_v3948.f2,
                        MAX((int)(word), x55, 0))) - p_v5100.f0);
                     };
                  };
               };
            };
SOURCE(3558, 162)
         if (( (int)p_v5100.f1 !=  (int)2147483648)) {
            if ( ( (0 == xneg_v5128) ? ( (int)p_v5100.f1 <  (int)ss_v5184.f1) : 0 ) ) {
SOURCE(3628, 13)
               g_v3948.f1 = p_v5100.f1;
               }
            else {
               if ( ( (0 != xneg_v5128) ? ( (int)p_v5100.f1 <  (int)ss_v5184.f1) : 0 ) ) {
SOURCE(3671, 49)
                  {
                     word x56;
                     g_v3948.f1 = ((ss_v5184.f1 - (x56 = g_v3948.f3,
                        MAX((int)(word), x56, 0))) - p_v5100.f1);
                     };
                  };
               };
            };
         };
      };
   /* removed tail goto */ 
   (*  (W5Pt) formal_c089 ) = g_v3948;
   return;
   }

static void GetSizeFromDB_P420(formal_c094, w_v4008)
   word formal_c094;
   word w_v4008;
   {
   register ptr gf_c14556 =  (ptr) &globalframe;
   W2 s_v4052;
   word val_v5228;
   /* GetSizeFromDB: */ 
SOURCE(3748, 185)
SOURCE(3748, 185)
   s_v4052.f0 = 2147483648;
   s_v4052.f1 = 2147483648;
SOURCE(3843, 55)
   val_v5228 = (word) DoQueryFromWidget_P300(w_v4008, 1, (* (( (ptr) gf_c14556)+18) ), (* (( (ptr) gf_c14556)+17) ));
SOURCE(3900, 33)
   if ((val_v5228 != 0)) {
SOURCE(3916, 17)
      (void) ScanSize_P180((word) &s_v4052, val_v5228);
      };
   /* removed tail goto */ 
   (*  (W2Pt) formal_c094 ) = s_v4052;
   return;
   }

static void NoName_Q1632(formal_c099, formal_c200008, formal_c200009, formal_c200010, formal_c200011)
   word formal_c099;
   word formal_c200008;
   word formal_c200009;
   word formal_c200010;
   word formal_c200011;
   {
   register ptr gf_c0123 =  (ptr) &globalframe;
   if ((formal_c200009 == (* (( (ptr) (* (( (ptr) gf_c0123)+36)/* var_c13532 */  ))+5) )) || (formal_c200009 == (* (( (ptr) (* (
         ( (ptr) gf_c0123)+36)/* var_c13532 */  ))+4) ))) {
SOURCE(1572, 9)
      (*  (ptr) formal_c099 ) = 2;
      (* (( (ptr) formal_c099)+1) ) = 4;
      return;
      };
   (*  (ptr) formal_c099 ) = 0;
   (* (( (ptr) formal_c099)+1) ) = 0;
   return;
   }

static void NoName_Q1692(formal_c0104, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c0104;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c0124 =  (ptr) &globalframe;
   if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0124)+36)/* var_c13532 */  ))+5) )) || (formal_c200005 == (* (( (ptr) (* (
         ( (ptr) gf_c0124)+36)/* var_c13532 */  ))+4) ))) {
SOURCE(1233, 9)
      (*  (ptr) formal_c0104 ) = 2;
      (* (( (ptr) formal_c0104)+1) ) = 3;
      return;
      };
   (*  (ptr) formal_c0104 ) = 0;
   (* (( (ptr) formal_c0104)+1) ) = 0;
   return;
   }

static void NoName_Q1752(formal_c0109, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c0109;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c0125 =  (ptr) &globalframe;
   if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c0125)+36)/* var_c13532 */  ))+5) )) || (formal_c200001 == (* (( (ptr) (* (
         ( (ptr) gf_c0125)+36)/* var_c13532 */  ))+4) ))) {
SOURCE(409, 9)
      (*  (ptr) formal_c0109 ) = 2;
      (* (( (ptr) formal_c0109)+1) ) = 2;
      return;
      };
   (*  (ptr) formal_c0109 ) = 0;
   (* (( (ptr) formal_c0109)+1) ) = 0;
   return;
   }

/* file: XTkDBImpl, module: XTkDBImpl, compiled at: September 25, 1992 5:56:18 pm PDT */ 
extern void XR_install_XTkDBImpl() {
   NoName_Q1392();
   }
extern void XR_run_XTkDBImpl() { XR_Start(&globalframe); }