/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: March 10, 1993 10:48:12 am PST */
/* C2C version: February 24, 1993 (sun4) */
/* ref-counting: off */
/* file: XlAccessImpl, module: XlAccessImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [1023673773,3190855662] XlAccessImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W2 r;} W10;
typedef W2 *W2Pt;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q984();
static void XlAccessImpl_P0();
static word GetCirioPortNum_P60();
static word NoName_Q1044();
static word GetCirioPortRope_P120();
static word Self_P180();
static word ServerNameFromProperties_P240();
static word IsArpaAddress_P300();
static word SubstituteLocalNames_P360();
static word StripDisplayNumber_P420();
static word IsLocalHost_P480();
static word DefaultServer_P540();
static word AddressFromName_P600();
static word NoName_Q1104();
static void Raise_P756();
static void NoName_Q1164();
static void NoName_Q1224();
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 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string4 = {65537, "\001\000\000"};
static struct {unsigned f; char r[4];} string5 = {131076, "\216\251\000"};
static struct {unsigned f; char r[8];} string6 = {262152, "Host\000\000\000"};
static struct {unsigned f; char r[8];} string7 = {458760, "%g (%g)"};
static struct {unsigned f; char r[8];} string8 = {327688, "Cirio\000\000"};
static struct {unsigned f; char r[4];} string9 = {196612, "X11"};
static struct {unsigned f; char r[8];} string10 = {458760, "DISPLAY"};
static struct {unsigned f; char r[12];} string11 = {720908, "0123456789."};
static struct {unsigned f; char r[8];} string12 = {458760, "*.*.*.*"};
static struct {unsigned f; char r[12];} string13 = {589836, "localhost\000\000"};
static struct {unsigned f; char r[4];} string14 = {65540, ":\000\000"};
static struct {unsigned f; char r[8];} string15 = {262152, "unix\000\000\000"};
static struct {unsigned f; char r[12];} string16 = {589836, "127.0.0.1\000\000"};
static struct {unsigned f; char r[12];} string17 = {720908, "[127.0.0.1]"};
static struct {unsigned f; char r[8];} string18 = {262152, "Unix\000\000\000"};
static struct {unsigned f; char r[8];} string19 = {262152, "ARPA\000\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\075\004\005\255\300\276\060\227\356\100\164\000\000"};
static struct {unsigned f; char r[16];} string21 = {851981, "\006\004\020\001\024\001\030\001\060\004\200\177\377\000\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"};
static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\314\240\077\114\300\013\241\042\210\100\150\000\000"};
static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string26 = {851984, "\257\300\060\265\373\245\300\074\044\062\136\100\150\000\000"};
static struct {unsigned f; char r[16];} string27 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[12];} string28 = {720908, "\257\300kte\023\205\204\320@h"};
static struct {unsigned f; char r[16];} string29 = {851984, "\257\300\163\265\337\305\300\117\370\025\000\100\150\000\000"};
static struct {unsigned f; char r[16];} string30 = {851984, "\257\300\156\124\232\133\300\236\077\321\110\100\150\000\000"};
static struct {
   word f0[28]; 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; word f41; word f42; 
   word f43; word f44; word f45; word f46; 
   word f47; word f48; word f49[9]; 
   } globalframe = {
   {0}, (word) AddressFromName_P600, 0, (word) DefaultServer_P540, 
   0, (word) IsLocalHost_P480, 0, (word) StripDisplayNumber_P420, 
   0, (word) SubstituteLocalNames_P360, 0, (word) IsArpaAddress_P300, 
   0, (word) ServerNameFromProperties_P240, 0, (word) Self_P180, 
   0, (word) GetCirioPortRope_P120, 0, (word) GetCirioPortNum_P60, 
   0, (word) XlAccessImpl_P0, {0}
   };

static void NoName_Q984()
   {
   register ptr gf_c078 =  (ptr) &globalframe;
   word var_c13068;
   (* (( (ptr) gf_c078)+7) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c078)+8) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c078)+11) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string4);
   (*  (ptr) (( (bPt) gf_c078)+48) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c078)+11) ), (word) &string6);
   (*  (ptr) (( (bPt) gf_c078)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c078)+8) ), (word) &string7);
   (*  (ptr) (( (bPt) gf_c078)+56) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c078)+11) ), (word) &string8);
   (*  (ptr) (( (bPt) gf_c078)+60) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c078)+11) ), (word) &string9);
   (*  (ptr) (( (bPt) gf_c078)+64) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c078)+11) ), (word) &string10);
   (*  (ptr) (( (bPt) gf_c078)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c078)+8) ), (word) &string11);
   (*  (ptr) (( (bPt) gf_c078)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c078)+8) ), (word) &string12);
   (*  (ptr) (( (bPt) gf_c078)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c078)+8) ), (word) &string13);
   (*  (ptr) (( (bPt) gf_c078)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c078)+8) ), (word) &string14);
   (*  (ptr) (( (bPt) gf_c078)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c078)+8) ), (word) &string15);
   (*  (ptr) (( (bPt) gf_c078)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c078)+8) ), (word) &string16);
   (*  (ptr) (( (bPt) gf_c078)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c078)+8) ), (word) &string17);
   (*  (ptr) (( (bPt) gf_c078)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c078)+11) ), (word) &string18);
   (*  (ptr) (( (bPt) gf_c078)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c078)+8) ), (word) &string10);
   (*  (ptr) (( (bPt) gf_c078)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c078)+11) ), (word) &string19);
   (void) XR_DeclareGlobalFrame((word) "XlAccessImpl", &globalframe, (word) XR_GetTypeIndex((word) &string20, 0, (word) &string21)
      , (word) (( (bPt) gf_c078)+192)/* var_c12460 */ );
   var_c13068 = (word) XR_ImportInterface((word) "Atom", (word) XR_GetTypeIndexS((word) (&string22)), 16);
   (* (( (ptr) gf_c078)+53)/* var_c12780 */  ) = var_c13068;
   (void) XR_ImportProcS(var_c13068, 67634946);
   var_c13068 = (word) XR_ImportInterface((word) "Convert", (word) XR_GetTypeIndexS((word) (&string23)), 73);
   (* (( (ptr) gf_c078)+52)/* var_c12716 */  ) = var_c13068;
   (void) XR_ImportProcS(var_c13068, 67901443);
   var_c13068 = (word) XR_ImportInterface((word) "EnvironmentVariables", (word) XR_GetTypeIndexS((word) (&string24)), 1);
   (* (( (ptr) gf_c078)+55)/* var_c12972 */  ) = var_c13068;
   (void) XR_ImportProcS(var_c13068, 67371009);
   var_c13068 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string25)), 103);
   (* (( (ptr) gf_c078)+51)/* var_c12620 */  ) = var_c13068;
   (void) XR_ImportProcS(var_c13068, 68958724);
   var_c13068 = (word) XR_ImportInterface((word) "NetworkName", (word) XR_GetTypeIndexS((word) (&string26)), 6);
   (* (( (ptr) gf_c078)+56)/* var_c13036 */  ) = var_c13068;
   (void) XR_ImportProcS(var_c13068, 135528965);
   var_c13068 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string27)), 43);
   (* (( (ptr) gf_c078)+54)/* var_c12844 */  ) = var_c13068;
   (void) XR_ImportProcS(var_c13068, 67896323);
   (void) XR_ImportProcS(var_c13068, 67373313);
   (void) XR_ImportProcS(var_c13068, 67898627);
   (void) XR_ImportProcS(var_c13068, 68160516);
   (void) XR_ImportProcS(var_c13068, 67900419);
   (void) XR_ImportProcS(var_c13068, 67900163);
   (void) XR_ImportProcS(var_c13068, 67900675);
   (void) XR_ImportProcS(var_c13068, 67634434);
   (void) XR_ImportProcS(var_c13068, 67373569);
   var_c13068 = (word) XR_ImportInterface((word) "SystemNames", (word) XR_GetTypeIndexS((word) (&string28)), 9);
   (* (( (ptr) gf_c078)+50)/* var_c12492 */  ) = var_c13068;
   (void) XR_ImportProcS(var_c13068, 67109120);
   var_c13068 = (word) XR_ExportInterface((word) "Identification", (word) XR_GetTypeIndexS((word) (&string29)), 1);
   (* (( (ptr) gf_c078)+57)/* var_c13100 */  ) = var_c13068;
   (void) XR_ExportProcS(var_c13068, (word) (( (bPt) gf_c078)+168)/* var_c12364 */ , 67371009);
   var_c13068 = (word) XR_ExportInterface((word) "XlAccess", (word) XR_GetTypeIndexS((word) (&string30)), 4);
   (* (( (ptr) gf_c078)+57)/* var_c13100 */  ) = var_c13068;
   (void) XR_ExportProcS(var_c13068, (word) (( (bPt) gf_c078)+120)/* var_c12172 */ , 67371009);
   (void) XR_ExportProcS(var_c13068, (word) (( (bPt) gf_c078)+128)/* var_c12204 */ , 67371265);
   (void) XR_ExportProcS(var_c13068, (word) (( (bPt) gf_c078)+112)/* var_c12140 */ , 67371521);
   (void) XR_ExportVar(var_c13068, 3, (word) (( (bPt) gf_c078)+108)/* var_c12108 */ );
   }

static void XlAccessImpl_P0(formal_c034, formal_c031)
   word formal_c034;
   word formal_c031;
   {
   register ptr gf_c13132 =  (ptr) &globalframe;
   /* XlAccessImpl: */ 
SOURCE(118, 3039)
SOURCE(276, 47)
   {
      word pd31;
      pd31 = (* (( (ptr) (* (( (ptr) gf_c13132)+50)/* var_c12492 */  ))+5) );
      (* (( (ptr) gf_c13132)+4)/* hostName_v2888 */  ) = (word) ( *( (fPt) ((*  (ptr) pd31 ))))(pd31);
      };
SOURCE(325, 41)
   (* (( (ptr) gf_c13132)+5)/* cirioPort_v2916 */  ) = (word) GetCirioPortRope_P120();
SOURCE(368, 77)
   {
      W2 var_c12524;
      W2 var_c12556;
      W2 var_c095;
      var_c12524.f0 = 11;
      var_c12524.f1 = (* (( (ptr) gf_c13132)+4)/* hostName_v2888 */  );
      var_c12556.f0 = 11;
      var_c12556.f1 = (* (( (ptr) gf_c13132)+5)/* cirioPort_v2916 */  );
      (*  (ptr) (word) &var_c095 ) = 0;
      (* (( (ptr) (word) &var_c095) + 1) ) = 0;
      {
         word pd32;
         pd32 = (* (( (ptr) (* (( (ptr) gf_c13132)+51)/* var_c12620 */  ))+62) );
         (* (( (ptr) gf_c13132)+6)/* ident_v2944 */  ) = (word) ( *( (fPt) ((*  (ptr) pd32 ))))((* (( (ptr) gf_c13132)+13) ), var_c12524, var_c12556, var_c095, pd32)
         ;
         };
      };
   }

static word GetCirioPortNum_P60()
   {
   W5 var_c13164;
   word n_v3332;
   /* GetCirioPortNum: */ 
SOURCE(448, 153)
SOURCE(448, 153)
   n_v3332 = 0;
SOURCE(578, 23)
SOURCE(578, 23)
   {
      /* declaration of var_c01 skipped */ 
      {
         word var_c02;
         {
            word var_c096;
            var_c096 = (word) &var_c13164;
            var_c02 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1044) ), ( ((word)  (fPt) NoName_Q1224) ), var_c096);
            };
         if ((var_c02 == 2)) {
            goto lab_L100001;
            };
         };
      n_v3332 = var_c13164.f4/* var_c01 */ ;
      };
   lab_L100001: ;
SOURCE(448, 153)
   return(n_v3332);
   }

static word NoName_Q1044(formal_c080)
   word formal_c080;
   {
SOURCE(578, 23)
   (* (( (ptr) formal_c080)+4) ) = (word) CirioNubLocalGetPort();
   return(0);
   }

static word GetCirioPortRope_P120()
   {
   register ptr gf_c13196 =  (ptr) &globalframe;
   word var_c3392;
   /* GetCirioPortRope: */ 
SOURCE(616, 99)
SOURCE(666, 49)
   {
      word var_c12684;
      var_c12684 = (word) GetCirioPortNum_P60();
      {
         word pd33;
         pd33 = (* (( (ptr) (* (( (ptr) gf_c13196)+52)/* var_c12716 */  ))+28) );
         return((word) ( *( (fPt) ((*  (ptr) pd33 ))))(var_c12684, 8, 1, pd33));
         };
      };
   }

static word Self_P180(a_v3452)
   word a_v3452;
   {
   register ptr gf_c13228 =  (ptr) &globalframe;
   word var_c3496;
   /* Self: */ 
SOURCE(719, 178)
SOURCE(777, 120)
   {
      word var_c12748;
      var_c12748 = a_v3452;
      if ((var_c12748 == 0)) {
SOURCE(798, 14)
         return((* (( (ptr) gf_c13228)+6)/* ident_v2944 */  ));
         };
      if ((var_c12748 == (* (( (ptr) gf_c13228)+12) ))) {
SOURCE(823, 17)
         return((* (( (ptr) gf_c13228)+4)/* hostName_v2888 */  ));
         };
      if ((var_c12748 == (* (( (ptr) gf_c13228)+14) ))) {
SOURCE(852, 18)
         return((* (( (ptr) gf_c13228)+5)/* cirioPort_v2916 */  ));
         };
SOURCE(883, 14)
      return((* (( (ptr) gf_c13228)+6)/* ident_v2944 */  ));
      };
   }

static word ServerNameFromProperties_P240(for_v3556)
   word for_v3556;
   {
   register ptr gf_c13260 =  (ptr) &globalframe;
   word name_v3600;
   /* ServerNameFromProperties: */ 
SOURCE(902, 176)
SOURCE(902, 176)
   name_v3600 = 0;
SOURCE(981, 26)
   if ((for_v3556 == 0)) {
SOURCE(997, 10)
      for_v3556 = (* (( (ptr) gf_c13260)+15) );
      };
SOURCE(1009, 69)
   {
      word var_c12812;
      {
         word pd35;
         pd35 = (* (( (ptr) (* (( (ptr) gf_c13260)+53)/* var_c12780 */  ))+11) );
         var_c12812 = (word) ( *( (fPt) ((*  (ptr) pd35 ))))(for_v3556, (* (( (ptr) gf_c13260)+16) ), pd35);
         };
      if ((var_c12812 == 0)) {
         goto lab_L100004;
         };
      {
         word tc36;
         if (((* (( (ptr) gf_c13260)+7) ) == XR_GetReferentType(var_c12812))) {
            tc36 =  (word) ( (unsigned) (*(int*)var_c12812<0) == 0);
            }
         else {
            tc36 =  (word) 0;
            };
         if (tc36) {
            {
               word r_v4416;
               r_v4416 = var_c12812;
SOURCE(1070, 8)
               name_v3600 = r_v4416;
               };
            }
         else {
            lab_L100004: ;
            };
         };
      };
SOURCE(902, 176)
   return(name_v3600);
   }

static word IsArpaAddress_P300(r_v3660)
   word r_v3660;
   {
   register ptr gf_c13292 =  (ptr) &globalframe;
   word var_c3704;
   word len_v4460;
   word var_c12876;
   word ch_v12060;
   /* IsArpaAddress: */ 
SOURCE(1099, 259)
SOURCE(1099, 259)
   var_c3704 = 0;
SOURCE(1161, 25)
   {
      word pd37;
      pd37 = (* (( (ptr) (* (( (ptr) gf_c13292)+54)/* var_c12844 */  ))+14) );
      len_v4460 = (word) ( *( (fPt) ((*  (ptr) pd37 ))))(r_v3660, pd37);
      };
SOURCE(1188, 170)
   {
      word tc38;
      if (( (int)len_v4460 >  (int)0)) {
         {
            word pd39;
            pd39 = (* (( (ptr) (* (( (ptr) gf_c13292)+54)/* var_c12844 */  ))+9) );
            ch_v12060 = (word) ( *( (fPt) ((*  (ptr) pd39 ))))(r_v3660, 0, pd39);
            };
         var_c12876 =  (unsigned) ((ch_v12060 - 48) <= 9);
         tc38 =  (word) (0 != var_c12876);
         }
      else {
         tc38 =  (word) 0;
         };
      if (tc38) {
SOURCE(1237, 121)
         {
            word pd40;
            pd40 = (* (( (ptr) (* (( (ptr) gf_c13292)+54)/* var_c12844 */  ))+25) );
            if (( (int)(word) ( *( (fPt) ((*  (ptr) pd40 ))))(r_v3660, 0, (* (( (ptr) gf_c13292)+17) ), pd40) >=  (int)len_v4460)) {
SOURCE(1294, 64)
               {
                  word pd41;
                  pd41 = (* (( (ptr) (* (( (ptr) gf_c13292)+54)/* var_c12844 */  ))+23) );
                  if ((0 != (word) ( *( (fPt) ((*  (ptr) pd41 ))))((* (( (ptr) gf_c13292)+18) ), r_v3660, 1, pd41))) {
SOURCE(1344, 14)
                     return(1);
                     };
                  };
               };
            };
         };
      };
SOURCE(1099, 259)
   return(var_c3704);
   }

static word SubstituteLocalNames_P360(serverName_v3764)
   word serverName_v3764;
   {
   register ptr gf_c13324 =  (ptr) &globalframe;
   word var_c3808;
   /* SubstituteLocalNames: */ 
SOURCE(1362, 300)
SOURCE(1437, 225)
   if ((0 == (word) IsLocalHost_P480(serverName_v3764))) {
SOURCE(1470, 26)
      return(serverName_v3764);
      }
   else {
SOURCE(1496, 168)
      {
         word colonPos_v4532;
SOURCE(1534, 53)
         {
            word pd42;
            pd42 = (* (( (ptr) (* (( (ptr) gf_c13324)+54)/* var_c12844 */  ))+24) );
            colonPos_v4532 = (word) ( *( (fPt) ((*  (ptr) pd42 ))))(serverName_v3764, 0, (* (( (ptr) gf_c13324)+20) ), pd42);
            };
SOURCE(1589, 73)
         {
            word pd43;
            pd43 = (* (( (ptr) (* (( (ptr) gf_c13324)+54)/* var_c12844 */  ))+16) );
            return((word) ( *( (fPt) ((*  (ptr) pd43 ))))(serverName_v3764, 0, colonPos_v4532, (* (( (ptr) gf_c13324)+19) ), pd43));
            };
         };
      };
   }

static word StripDisplayNumber_P420(name_v3868)
   word name_v3868;
   {
   register ptr gf_c13356 =  (ptr) &globalframe;
   word var_c3912;
   word colonPos_v4576;
   /* StripDisplayNumber: */ 
SOURCE(1671, 156)
SOURCE(1738, 47)
   {
      word pd44;
      pd44 = (* (( (ptr) (* (( (ptr) gf_c13356)+54)/* var_c12844 */  ))+24) );
      colonPos_v4576 = (word) ( *( (fPt) ((*  (ptr) pd44 ))))(name_v3868, 0, (* (( (ptr) gf_c13356)+20) ), pd44);
      };
SOURCE(1787, 40)
   {
      word pd45;
      pd45 = (* (( (ptr) (* (( (ptr) gf_c13356)+54)/* var_c12844 */  ))+17) );
      return((word) ( *( (fPt) ((*  (ptr) pd45 ))))(name_v3868, 0, colonPos_v4576, pd45));
      };
   }

static word IsLocalHost_P480(serverName_v3972)
   word serverName_v3972;
   {
   register ptr gf_c13388 =  (ptr) &globalframe;
   word var_c4016;
   /* IsLocalHost: */ 
SOURCE(1831, 498)
SOURCE(1899, 43)
   serverName_v3972 = (word) StripDisplayNumber_P420(serverName_v3972);
   {
      word pd46;
      pd46 = (* (( (ptr) (* (( (ptr) gf_c13388)+54)/* var_c12844 */  ))+13) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd46 ))))(serverName_v3972, pd46))) {
SOURCE(1989, 13)
         return(1);
         }
      else {
         {
            word pd47;
            pd47 = (* (( (ptr) (* (( (ptr) gf_c13388)+54)/* var_c12844 */  ))+8) );
            if ((0 != (word) ( *( (fPt) ((*  (ptr) pd47 ))))((* (( (ptr) gf_c13388)+19) ), serverName_v3972, 0, pd47))) {
SOURCE(2050, 13)
               return(1);
               }
            else {
               {
                  word pd48;
                  pd48 = (* (( (ptr) (* (( (ptr) gf_c13388)+54)/* var_c12844 */  ))+8) );
                  if ((0 != (word) ( *( (fPt) ((*  (ptr) pd48 ))))((* (( (ptr) gf_c13388)+21) ), serverName_v3972, 0, pd48))) {
SOURCE(2106, 13)
                     return(1);
                     }
                  else {
                     {
                        word pd49;
                        pd49 = (* (( (ptr) (* (( (ptr) gf_c13388)+54)/* var_c12844 */  ))+8) );
                        if ((0 != (word) ( *( (fPt) ((*  (ptr) pd49 ))))((* (( (ptr) gf_c13388)+22) ), serverName_v3972, 0, pd49))) {
SOURCE(2167, 13)
                           return(1);
                           }
                        else {
                           {
/*1*/   word pd50;
/*1*/   pd50 = (* (( (ptr) (* (( (ptr) gf_c13388)+54)/* var_c12844 */  ))+8) );
/*1*/   if ((0 != (word) ( *( (fPt) ((*  (ptr) pd50 ))))((* (( (ptr) gf_c13388)+23) ), serverName_v3972, 0, pd50))) {
SOURCE(2230, 13)
/*1*/      return(1);
/*1*/      }
/*1*/   else {
/*1*/      {
/*1*/         word pd51;
/*1*/         pd51 = (* (( (ptr) (* (( (ptr) gf_c13388)+54)/* var_c12844 */  ))+8) );
/*1*/         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd51 ))))((* (( (ptr) gf_c13388)+4)/* hostName_v2888 */  ), serverName_v3972, 0, pd51)
/*1*/         )) {
SOURCE(2288, 13)
/*1*/            return(1);
/*1*/            }
/*1*/         else {
SOURCE(2314, 15)
/*1*/            return(0);
/*1*/            };
/*1*/         };
/*1*/      };
/*1*/   };
                           };
                        };
                     };
                  };
               };
            };
         };
      };
   }

static word DefaultServer_P540(for_v4076)
   word for_v4076;
   {
   register ptr gf_c13420 =  (ptr) &globalframe;
   word serverName_v4120;
   /* DefaultServer: */ 
SOURCE(2333, 365)
SOURCE(2333, 365)
   serverName_v4120 = 0;
SOURCE(2414, 153)
   if ((for_v4076 != (* (( (ptr) gf_c13420)+24) ))) {
SOURCE(2434, 42)
      serverName_v4120 = (word) ServerNameFromProperties_P240(for_v4076);
SOURCE(2478, 89)
      {
         word tc52;
         word pd53;
         pd53 = (* (( (ptr) (* (( (ptr) gf_c13420)+54)/* var_c12844 */  ))+13) );
         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd53 ))))(serverName_v4120, pd53))) {
            tc52 =  (word) (for_v4076 != 0);
            }
         else {
            tc52 =  (word) 0;
            };
         if (tc52) {
SOURCE(2524, 43)
            serverName_v4120 = (word) ServerNameFromProperties_P240(0);
            };
         };
      };
SOURCE(2570, 81)
   {
      word pd54;
      pd54 = (* (( (ptr) (* (( (ptr) gf_c13420)+54)/* var_c12844 */  ))+13) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd54 ))))(serverName_v4120, pd54))) {
SOURCE(2603, 48)
         {
            word pd55;
            pd55 = (* (( (ptr) (* (( (ptr) gf_c13420)+55)/* var_c12972 */  ))+4) );
            serverName_v4120 = (word) ( *( (fPt) ((*  (ptr) pd55 ))))((* ((( (ptr) gf_c13420)+25)) ), pd55);
            };
         };
      };
SOURCE(2653, 45)
   serverName_v4120 = (word) SubstituteLocalNames_P360(serverName_v4120);
SOURCE(2333, 365)
   return(serverName_v4120);
   }

static word AddressFromName_P600(formal_c0102)
   word formal_c0102;
   {
   W10 var_c13452;
   /* declaration of name_v4240 skipped */ 
   register ptr gf_c13484 =  (ptr) &globalframe;
   word address_v4284;
   /* declaration of var_c13004 skipped */ 
   (* (( (ptr) &var_c13452)+4)/* name_v4240 */  ) = formal_c0102;
   /* AddressFromName: */ 
SOURCE(2766, 391)
   {
      word tmpAddr56;
      tmpAddr56 = (word) (( (ptr) &var_c13452)+5)/* var_c13004 */ ;
      (*  (ptr) tmpAddr56 ) = ( ((word)  (fPt) Raise_P756) );
      (* (( (ptr) tmpAddr56) + 1) ) = 1;
      };
SOURCE(2766, 391)
   address_v4284 = 0;
   {
      /* declaration of var_c03 skipped */ 
      /* declaration of var_c04 skipped */ 
SOURCE(2912, 31)
      (* (( (ptr) &var_c13452)+4)/* name_v4240 */  ) = (word) StripDisplayNumber_P420((* ((( (ptr) &var_c13452)+4)/* name_v4240 */ ) ))
      ;
SOURCE(2945, 41)
      if ((0 != (word) IsArpaAddress_P300((* ((( (ptr) &var_c13452)+4)/* name_v4240 */ ) )))) {
SOURCE(2973, 13)
         return((* (( (ptr) &var_c13452)+4)/* name_v4240 */  ));
         };
SOURCE(2988, 46)
      if ((0 != (word) IsLocalHost_P480((* ((( (ptr) &var_c13452)+4)/* name_v4240 */ ) )))) {
SOURCE(3014, 20)
         return((* (( (ptr) gf_c13484)+22) ));
         };
SOURCE(3036, 121)
      (* (( (ptr) &var_c13452)+7)/* var_c03 */  ) = (* (( (ptr) (* (( (ptr) gf_c13484)+56)/* var_c13036 */  ))+6) );
      {
         word var_c097;
         var_c097 = (word) &var_c13452;
          (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q1104) ), ( ((word)  (fPt) NoName_Q1164) ), var_c097);
         };
      address_v4284 = (*  (W2Pt) (( (ptr) &var_c13452)+8)/* var_c04 */  ).f0;
      };
SOURCE(2766, 391)
   return(address_v4284);
   }

static word NoName_Q1104(formal_c091)
   word formal_c091;
   {
   register ptr gf_c090 =  (ptr) &globalframe;
SOURCE(3036, 121)
   {
      word pd57;
      pd57 = (* (( (ptr) formal_c091)+7) );
      (void) ( *( (fPt) ((*  (ptr) pd57 ))))((word) (( (bPt) formal_c091)+32), (* (( (ptr) gf_c090)+26) ), (* (( (ptr) formal_c091)+4)
          ), 0, 0, 0, pd57);
      };
   return(0);
   }

static void Raise_P756(msg_v4696, formal_c13548)
   word msg_v4696;
   word formal_c13548;
   {
   register ptr gf_c13516 =  (ptr) &globalframe;
   formal_c13548 = (formal_c13548 - 20);
   /* Raise: */ 
SOURCE(2852, 57)
SOURCE(2883, 26)
   {
      word var_c065;
      var_c065 = msg_v4696;
      (void) XR_RaiseError((word) (( (bPt) gf_c13516)+108)/* var_c12108 */ , (word) &var_c065);
      };
   }

static void NoName_Q1164(formal_c072, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c072;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c094 =  (ptr) &globalframe;
   if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c094)+56)/* var_c13036 */  ))+4) ))) {
      {
         word codes_v11852;
         word msg_v11880;
         codes_v11852 = (*  (ptr) formal_c200007 );
         msg_v11880 = (* (( (ptr) formal_c200007)+1) );
SOURCE(3141, 16)
         (void) Raise_P756(msg_v11880, (word) (( (bPt) formal_c200004)+20));
         };
      };
   (*  (ptr) formal_c072 ) = 0;
   (* (( (ptr) formal_c072)+1) ) = 0;
   return;
   }

static void NoName_Q1224(formal_c077, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c077;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   if ((formal_c200001 == XR_Uncaught)) {
SOURCE(601, 11)
      (*  (ptr) formal_c077 ) = 2;
      (* (( (ptr) formal_c077)+1) ) = 2;
      return;
      };
   (*  (ptr) formal_c077 ) = 0;
   (* (( (ptr) formal_c077)+1) ) = 0;
   return;
   }

/* file: XlAccessImpl, module: XlAccessImpl, compiled at: March 10, 1993 10:48:11 am PST */ 
extern void XR_install_XlAccessImpl() {
   NoName_Q984();
   }
extern void XR_run_XlAccessImpl() { XR_Start(&globalframe); }