/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: March 10, 1993 10:54:37 am PST */
/* C2C version: February 24, 1993 (sun4) */
/* ref-counting: off */
/* file: X11Commands, module: X11Commands */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [1873467250,3546428641] X11Commands";
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, f5, f6, f7;} W8;
typedef struct {W8 f; word r;} W9;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q684();
static void X11Commands_P0();
static word CurrentServerDefaults_P60();
static void TestServer_P120();
static word NoName_Q744();
static void DefaultServerCommand_P180();
static void IdentificationCommand_P240();
static void TrustedSetServerHostCommand_P300();
static word NoName_Q804();
static void NoName_Q864();
static void NoName_Q924();
static struct {unsigned f; char r[16];} string1 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[4];} string3 = {131076, "\216\251\000"};
static struct {unsigned f; char r[24];} string4 = {1310744, "Print Identification\000\000\000"};
static struct {unsigned f; char r[24];} string5 = {1507352, "X11TrustedSetServerHost"};
static struct {unsigned f; char r[52];} string6 = {3145780, "Initializes PARC_ServerHost convention on server\000\000\000"};
static struct {unsigned f; char r[32];} string7 = {1835040, "X server general default: %g\000\000\000"};
static struct {unsigned f; char r[20];} string8 = {1114132, "X11Identification\000\000"};
static struct {unsigned f; char r[4];} string9 = {196612, "X11"};
static struct {unsigned f; char r[80];} string10 = {5177424, "Denote X server for new connections.  Use X11DefaultServer {application} server"};
static struct {unsigned f; char r[32];} string11 = {1835040, "%g, (for application %g: %g)\000\000\000"};
static struct {unsigned f; char r[4];} string12 = {65540, "\012\000\000"};
static struct {unsigned f; char r[52];} string13 = {3276852, "Format is: X11DefaultServer {{application} server}\000"};
static struct {unsigned f; char r[4];} string14 = {196612, "nil"};
static struct {unsigned f; char r[8];} string15 = {458760, "DISPLAY"};
static struct {unsigned f; char r[16];} string16 = {983056, " not accessed: "};
static struct {unsigned f; char r[8];} string17 = {458760, "Failure"};
static struct {unsigned f; char r[16];} string18 = {983056, "PARC_ServerHost"};
static struct {unsigned f; char r[20];} string19 = {1048596, "X11DefaultServer\000\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\157\252\327\162\300\323\142\064\341\100\164\000\000"};
static struct {unsigned f; char r[8];} string21 = {458759, "\006\0014\004\200\377\377"};
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\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\311\235\133\064\300\165\175\234\175\100\150\000\000"};
static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\163\265\337\305\300\117\370\025\000\100\150\000\000"};
static struct {unsigned f; char r[16];} string26 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\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\351\276\264\273\300\115\104\320\264\100\164\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 {unsigned f; char r[16];} string31 = {851984, "\257\300\337\070\153\303\300\227\216\321\214\100\150\000\000"};
static struct {
   word f0[29]; word f29; word f30; word f31; 
   word f32; word f33; word f34; word f35; 
   word f36; word f37; word f38; word f39; 
   word f40[11]; 
   } globalframe = {
   {0}, (word) TrustedSetServerHostCommand_P300, 0, (word) IdentificationCommand_P240, 
   0, (word) DefaultServerCommand_P180, 0, (word) TestServer_P120, 
   0, (word) CurrentServerDefaults_P60, 0, (word) X11Commands_P0, 
   {0}
   };

static void NoName_Q684()
   {
   register ptr gf_c084 =  (ptr) &globalframe;
   word var_c14904;
   (* (( (ptr) gf_c084)+9) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c084)+12) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string2);
   (*  (ptr) (( (bPt) gf_c084)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+9) ), (word) &string4);
   (*  (ptr) (( (bPt) gf_c084)+56) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+9) ), (word) &string5);
   (*  (ptr) (( (bPt) gf_c084)+60) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+9) ), (word) &string6);
   (*  (ptr) (( (bPt) gf_c084)+64) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+9) ), (word) &string7);
   (*  (ptr) (( (bPt) gf_c084)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+9) ), (word) &string8);
   (*  (ptr) (( (bPt) gf_c084)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+12) ), (word) &string9);
   (*  (ptr) (( (bPt) gf_c084)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+9) ), (word) &string10);
   (*  (ptr) (( (bPt) gf_c084)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+9) ), (word) &string11);
   (*  (ptr) (( (bPt) gf_c084)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+9) ), (word) &string12);
   (*  (ptr) (( (bPt) gf_c084)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+9) ), (word) &string13);
   (*  (ptr) (( (bPt) gf_c084)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+9) ), (word) &string14);
   (*  (ptr) (( (bPt) gf_c084)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+12) ), (word) &string15);
   (*  (ptr) (( (bPt) gf_c084)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+9) ), (word) &string16);
   (*  (ptr) (( (bPt) gf_c084)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+12) ), (word) &string17);
   (*  (ptr) (( (bPt) gf_c084)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+9) ), (word) &string18);
   (*  (ptr) (( (bPt) gf_c084)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c084)+9) ), (word) &string19);
   (void) XR_DeclareGlobalFrame((word) "X11Commands", &globalframe, (word) XR_GetTypeIndex((word) &string20, 0, (word) &string21)
      , (word) (( (bPt) gf_c084)+156)/* var_c14104 */ );
   var_c14904 = (word) XR_ImportInterface((word) "Atom", (word) XR_GetTypeIndexS((word) (&string22)), 16);
   (* (( (ptr) gf_c084)+47)/* var_c14648 */  ) = var_c14904;
   (void) XR_ImportProcS(var_c14904, 788739);
   (void) XR_ImportProcS(var_c14904, 527106);
   (void) XR_ImportProcS(var_c14904, 67895555);
   var_c14904 = (word) XR_ImportInterface((word) "Commander", (word) XR_GetTypeIndexS((word) (&string23)), 3);
   (* (( (ptr) gf_c084)+41)/* var_c14136 */  ) = var_c14904;
   (void) XR_ImportProcS(var_c14904, 1310725);
   var_c14904 = (word) XR_ImportInterface((word) "CommanderOps", (word) XR_GetTypeIndexS((word) (&string24)), 14);
   (* (( (ptr) gf_c084)+46)/* var_c14552 */  ) = var_c14904;
   (void) XR_ImportProcS(var_c14904, 67634178);
   (void) XR_ImportProcS(var_c14904, 67371777);
   var_c14904 = (word) XR_ImportInterface((word) "Identification", (word) XR_GetTypeIndexS((word) (&string25)), 1);
   (* (( (ptr) gf_c084)+48)/* var_c14776 */  ) = var_c14904;
   (void) XR_ImportProcS(var_c14904, 67371009);
   var_c14904 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string26)), 103);
   (* (( (ptr) gf_c084)+43)/* var_c14296 */  ) = var_c14904;
   (void) XR_ImportProcS(var_c14904, 68958724);
   (void) XR_ImportProcS(var_c14904, 67910402);
   var_c14904 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string27)), 43);
   (* (( (ptr) gf_c084)+44)/* var_c14488 */  ) = var_c14904;
   (void) XR_ImportProcS(var_c14904, 68419845);
   (void) XR_ImportProcS(var_c14904, 67896323);
   (void) XR_ImportProcS(var_c14904, 67633666);
   var_c14904 = (word) XR_ImportInterface((word) "SystemNames", (word) XR_GetTypeIndexS((word) (&string28)), 9);
   (* (( (ptr) gf_c084)+49)/* var_c14808 */  ) = var_c14904;
   (void) XR_ImportProcS(var_c14904, 67109120);
   var_c14904 = (word) XR_ImportInterface((word) "Xl", (word) XR_GetTypeIndexS((word) (&string29)), 218);
   (* (( (ptr) gf_c084)+45)/* var_c14520 */  ) = var_c14904;
   (void) XR_ImportProcS(var_c14904, 67375105);
   (void) XR_ImportProcS(var_c14904, 2371849);
   (void) XR_ImportProcS(var_c14904, 67644930);
   (void) XR_ImportProcS(var_c14904, 271873);
   (void) XR_ImportProcS(var_c14904, 68690438);
   var_c14904 = (word) XR_ImportInterface((word) "XlAccess", (word) XR_GetTypeIndexS((word) (&string30)), 4);
   (* (( (ptr) gf_c084)+42)/* var_c14232 */  ) = var_c14904;
   (void) XR_ImportProcS(var_c14904, 67371009);
   var_c14904 = (word) XR_ImportInterface((word) "XlDetails", (word) XR_GetTypeIndexS((word) (&string31)), 4);
   (* (( (ptr) gf_c084)+50)/* var_c14872 */  ) = var_c14904;
   }

static void X11Commands_P0(formal_c026, formal_c025)
   word formal_c026;
   word formal_c025;
   {
   register ptr gf_c14936 =  (ptr) &globalframe;
   /* X11Commands: */ 
SOURCE(125, 2559)
SOURCE(2277, 159)
   {
      word pd32;
      pd32 = (* (( (ptr) (* (( (ptr) gf_c14936)+41)/* var_c14136 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd32 ))))((* (( (ptr) gf_c14936)+28) ), (word) (( (bPt) gf_c14936)+132)/* var_c14008 */ , (* (
            ( (ptr) gf_c14936)+19) ), 0, 1, pd32);
      };
SOURCE(2438, 102)
   {
      word pd33;
      pd33 = (* (( (ptr) (* (( (ptr) gf_c14936)+41)/* var_c14136 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd33 ))))((* (( (ptr) gf_c14936)+17) ), (word) (( (bPt) gf_c14936)+124)/* var_c13976 */ , (* (
            ( (ptr) gf_c14936)+13) ), 0, 1, pd33);
      };
SOURCE(2542, 142)
   {
      word pd34;
      pd34 = (* (( (ptr) (* (( (ptr) gf_c14936)+41)/* var_c14136 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd34 ))))((* (( (ptr) gf_c14936)+14) ), (word) (( (bPt) gf_c14936)+116)/* var_c13944 */ , (* (
            ( (ptr) gf_c14936)+15) ), 0, 1, pd34);
      };
   }

static word CurrentServerDefaults_P60(app_v3192)
   word app_v3192;
   {
   register ptr gf_c14968 =  (ptr) &globalframe;
   word msg_v3236;
   /* CurrentServerDefaults: */ 
SOURCE(263, 540)
SOURCE(263, 540)
   msg_v3236 = 0;
SOURCE(332, 471)
   {
      W2 var_c14168;
      {
         W2 var_c14200;
         word v_v13896;
         {
            word pd35;
            pd35 = (* (( (ptr) (* (( (ptr) gf_c14968)+42)/* var_c14232 */  ))+4) );
            v_v13896 = (word) ( *( (fPt) ((*  (ptr) pd35 ))))(0, pd35);
            };
         var_c14200.f0 = 11;
         var_c14200.f1 = v_v13896;
         var_c14168 = var_c14200;
         };
      {
         word pd36;
         pd36 = (* (( (ptr) (* (( (ptr) gf_c14968)+43)/* var_c14296 */  ))+63) );
         msg_v3236 = (word) ( *( (fPt) ((*  (ptr) pd36 ))))((* (( (ptr) gf_c14968)+16) ), var_c14168, pd36);
         };
      };
SOURCE(419, 384)
   if ( ( (app_v3192 != 0) ? (app_v3192 != (* (( (ptr) gf_c14968)+18) )) : 0 ) ) {
SOURCE(450, 353)
      {
         W2 var_c14328;
         {
            W2 var_c14360;
            word v_v13848;
            {
               word pd37;
               pd37 = (* (( (ptr) (* (( (ptr) gf_c14968)+42)/* var_c14232 */  ))+4) );
               v_v13848 = (word) ( *( (fPt) ((*  (ptr) pd37 ))))(app_v3192, pd37);
               };
            var_c14360.f0 = 11;
            var_c14360.f1 = v_v13848;
            var_c14328 = var_c14360;
            };
         {
            W2 var_c14424;
            W2 var_c14456;
            var_c14424.f0 = 11;
            var_c14424.f1 = msg_v3236;
            var_c14456.f0 = 1;
            var_c14456.f1 = app_v3192;
            {
               word pd38;
               pd38 = (* (( (ptr) (* (( (ptr) gf_c14968)+43)/* var_c14296 */  ))+62) );
               msg_v3236 = (word) ( *( (fPt) ((*  (ptr) pd38 ))))((* (( (ptr) gf_c14968)+20) ), var_c14424, var_c14456, var_c14328, pd38)
               ;
               };
            };
         };
      };
SOURCE(570, 233)
   {
      word pd39;
      pd39 = (* (( (ptr) (* (( (ptr) gf_c14968)+44)/* var_c14488 */  ))+6) );
      msg_v3236 = (word) ( *( (fPt) ((*  (ptr) pd39 ))))(msg_v3236, (* (( (ptr) gf_c14968)+21) ), pd39);
      };
SOURCE(263, 540)
   return(msg_v3236);
   }

static void TestServer_P120(formal_c041, formal_c0101)
   word formal_c041;
   word formal_c0101;
   {
   W9 var_c15000;
   /* declaration of server_v3296 skipped */ 
   register ptr gf_c15032 =  (ptr) &globalframe;
   /* declaration of ok_v3340 skipped */ 
   /* declaration of message_v3368 skipped */ 
   word c_v3396 = 0;
   (* (( (ptr) &var_c15000)+4)/* server_v3296 */  ) = formal_c0101;
   /* TestServer: */ 
SOURCE(604, 277)
SOURCE(604, 277)
   (* (( (ptr) &var_c15000)+5)/* ok_v3340 */  ) = 1;
SOURCE(604, 277)
   (* (( (ptr) &var_c15000)+6)/* message_v3368 */  ) = 0;
SOURCE(709, 94)
SOURCE(709, 94)
   {
      /* declaration of var_c01 skipped */ 
      (* (( (ptr) &var_c15000)+7)/* var_c01 */  ) = (* (( (ptr) (* (( (ptr) gf_c15032)+45)/* var_c14520 */  ))+38) );
      {
         /* declaration of var_c02 skipped */ 
         {
            word var_c03;
            {
               word var_c095;
               var_c095 = (word) &var_c15000;
               var_c03 = (word) XR_Enable(( ((word)  (fPt) NoName_Q744) ), ( ((word)  (fPt) NoName_Q924) ), var_c095);
               };
            if ((var_c03 == 2)) {
               goto lab_L100004;
               };
            };
         c_v3396 = (* (( (ptr) &var_c15000)+8)/* var_c02 */  );
         };
      };
   lab_L100004: ;
SOURCE(818, 63)
   if ((0 != (* (( (ptr) &var_c15000)+5)/* ok_v3340 */  ))) {
SOURCE(831, 16)
      if ((c_v3396 != 0)) {
         (* (( (ptr) &var_c15000)+5)/* ok_v3340 */  ) =  (unsigned) (0 != (* (( (ptr) c_v3396)+15) ));
         }
      else {
         (* (( (ptr) &var_c15000)+5)/* ok_v3340 */  ) =  (unsigned) 0;
         };
SOURCE(849, 32)
      if ((0 != (* (( (ptr) &var_c15000)+5)/* ok_v3340 */  ))) {
SOURCE(860, 21)
         {
            word pd40;
            pd40 = (* (( (ptr) (* (( (ptr) gf_c15032)+45)/* var_c14520 */  ))+42) );
            (void) ( *( (fPt) ((*  (ptr) pd40 ))))(c_v3396, pd40);
            };
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c041 ) = (* (( (ptr) &var_c15000)+5)/* ok_v3340 */  );
   (* (( (ptr) formal_c041)+1) ) = (* (( (ptr) &var_c15000)+6)/* message_v3368 */  );
   return;
   }

static word NoName_Q744(formal_c088)
   word formal_c088;
   {
SOURCE(709, 94)
   {
      word pd41;
      pd41 = (* (( (ptr) formal_c088)+7) );
      (* (( (ptr) formal_c088)+8) ) = (word) ( *( (fPt) ((*  (ptr) pd41 ))))((* (( (ptr) formal_c088)+4) ), 0, 0, 0, 0, 0, pd41)
      ;
      };
   return(0);
   }

static void DefaultServerCommand_P180(formal_c057, cmd_v4420)
   word formal_c057;
   word cmd_v4420;
   {
   register ptr gf_c15064 =  (ptr) &globalframe;
   word result_v4464;
   word msg_v4492;
   word num_v3440;
   word app_v3468 = 0;
   word server_v3496 = 0;
   word message_v3524 = 0;
   word ok_v3552;
   /* DefaultServerCommand: */ 
SOURCE(890, 677)
SOURCE(890, 677)
   result_v4464 = 0;
SOURCE(890, 677)
   msg_v4492 = 0;
SOURCE(938, 36)
   {
      word pd42;
      pd42 = (* (( (ptr) (* (( (ptr) gf_c15064)+46)/* var_c14552 */  ))+7) );
      num_v3440 = (word) ( *( (fPt) ((*  (ptr) pd42 ))))(cmd_v4420, pd42);
      };
SOURCE(1025, 225)
   {
      word var_c14584;
      var_c14584 = num_v3440;
      switch (var_c14584) {
         case 1: 
SOURCE(1047, 32)
            msg_v4492 = (word) CurrentServerDefaults_P60(0);
SOURCE(1081, 6)
            goto lab_L100007;
         case 2: 
SOURCE(1095, 10)
            app_v3468 = (* (( (ptr) gf_c15064)+18) );
            break;
         case 3: 
SOURCE(1113, 51)
            {
               word var_c14616;
               {
                  word pd43;
                  pd43 = (* (( (ptr) (* (( (ptr) gf_c15064)+46)/* var_c14552 */  ))+8) );
                  var_c14616 = (word) ( *( (fPt) ((*  (ptr) pd43 ))))(cmd_v4420, 0, pd43);
                  };
               {
                  word pd44;
                  pd44 = (* (( (ptr) (* (( (ptr) gf_c15064)+47)/* var_c14648 */  ))+5) );
                  app_v3468 = (word) ( *( (fPt) ((*  (ptr) pd44 ))))(var_c14616, 0, 2147483647, pd44);
                  };
               };
            break;
         default: 
SOURCE(1177, 73)
            {
               word var_c052;
               var_c052 = (* (( (ptr) gf_c15064)+22) );
               (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c15064)+46)/* var_c14552 */  ))+4) ), (word) &var_c052);
               };
            break;
         };
      };
SOURCE(1252, 39)
   {
      word pd45;
      pd45 = (* (( (ptr) (* (( (ptr) gf_c15064)+46)/* var_c14552 */  ))+8) );
      server_v3496 = (word) ( *( (fPt) ((*  (ptr) pd45 ))))(cmd_v4420, 0, pd45);
      };
SOURCE(1293, 237)
   {
      word pd46;
      pd46 = (* (( (ptr) (* (( (ptr) gf_c15064)+44)/* var_c14488 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd46 ))))(server_v3496, (* (( (ptr) gf_c15064)+23) ), 0, pd46))) {
SOURCE(1334, 33)
         {
            word pd47;
            pd47 = (* (( (ptr) (* (( (ptr) gf_c15064)+47)/* var_c14648 */  ))+15) );
            (void) ( *( (fPt) ((*  (ptr) pd47 ))))(app_v3468, (* (( (ptr) gf_c15064)+24) ), pd47);
            };
         }
      else {
SOURCE(1369, 34)
         {
            W2 var_c14680;
            (void) TestServer_P120((word) &var_c14680, server_v3496);
            message_v3524 = var_c14680.f1;
            ok_v3552 = var_c14680.f0;
            };
SOURCE(1405, 125)
         if ((0 != ok_v3552)) {
SOURCE(1417, 41)
            {
               word pd48;
               pd48 = (* (( (ptr) (* (( (ptr) gf_c15064)+47)/* var_c14648 */  ))+13) );
               (void) ( *( (fPt) ((*  (ptr) pd48 ))))(app_v3468, (* (( (ptr) gf_c15064)+24) ), server_v3496, pd48);
               };
            }
         else {
SOURCE(1458, 72)
            {
               word var_c14712;
               {
                  word pd49;
                  pd49 = (* (( (ptr) (* (( (ptr) gf_c15064)+44)/* var_c14488 */  ))+5) );
                  var_c14712 = (word) ( *( (fPt) ((*  (ptr) pd49 ))))(server_v3496, (* (( (ptr) gf_c15064)+25) ), message_v3524, (* (( (ptr) gf_c15064)+21)
                      ), 0, pd49);
                  };
               {
                  word var_c056;
                  var_c056 = var_c14712;
                  (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c15064)+46)/* var_c14552 */  ))+4) ), (word) &var_c056);
                  };
               };
            };
         };
      };
SOURCE(1535, 32)
   msg_v4492 = (word) CurrentServerDefaults_P60(app_v3468);
   /* removed tail goto */ 
   lab_L100007: ;
   (*  (ptr) formal_c057 ) = result_v4464;
   (* (( (ptr) formal_c057)+1) ) = msg_v4492;
   return;
   }

static void IdentificationCommand_P240(formal_c062, cmd_v4552)
   word formal_c062;
   word cmd_v4552;
   {
   register ptr gf_c15096 =  (ptr) &globalframe;
   word result_v4596;
   word msg_v4624;
   /* IdentificationCommand: */ 
SOURCE(1573, 96)
SOURCE(1573, 96)
   result_v4596 = 0;
SOURCE(1573, 96)
   msg_v4624 = 0;
SOURCE(1622, 47)
   {
      word var_c14744;
      {
         word pd50;
         pd50 = (* (( (ptr) (* (( (ptr) gf_c15096)+48)/* var_c14776 */  ))+4) );
         var_c14744 = (word) ( *( (fPt) ((*  (ptr) pd50 ))))(0, pd50);
         };
      {
         word pd51;
         pd51 = (* (( (ptr) (* (( (ptr) gf_c15096)+44)/* var_c14488 */  ))+6) );
         msg_v4624 = (word) ( *( (fPt) ((*  (ptr) pd51 ))))(var_c14744, (* (( (ptr) gf_c15096)+21) ), pd51);
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c062 ) = result_v4596;
   (* (( (ptr) formal_c062)+1) ) = msg_v4624;
   return;
   }

static void TrustedSetServerHostCommand_P300(formal_c066, cmd_v4684)
   word formal_c066;
   word cmd_v4684;
   {
   W6 var_c15128;
   /* declaration of result_v4728 skipped */ 
   /* declaration of msg_v4756 skipped */ 
   /* TrustedSetServerHostCommand: */ 
SOURCE(1673, 600)
SOURCE(1673, 600)
   var_c15128.f4/* result_v4728 */  = 0;
SOURCE(1673, 600)
   var_c15128.f5/* msg_v4756 */  = 0;
SOURCE(1726, 547)
SOURCE(1728, 525)
   {
      word var_c04;
      {
         word var_c096;
         var_c096 = (word) &var_c15128;
         var_c04 = (word) XR_Enable(( ((word)  (fPt) NoName_Q804) ), ( ((word)  (fPt) NoName_Q864) ), var_c096);
         };
      if ((var_c04 == 3)) {
         goto lab_L100010;
         };
      };
   goto lab_L100013;
   lab_L100010: ;
   lab_L100013: ;
   /* removed tail goto */ 
   (*  (ptr) formal_c066 ) = var_c15128.f4/* result_v4728 */ ;
   (* (( (ptr) formal_c066)+1) ) = var_c15128.f5/* msg_v4756 */ ;
   return;
   }

static word NoName_Q804(formal_c092)
   word formal_c092;
   {
   register ptr gf_c091 =  (ptr) &globalframe;
SOURCE(1925, 45)
   {
      word server_v3596;
      word c_v3624;
      word serverHostAtom_v3652;
SOURCE(1925, 45)
      {
         word pd52;
         pd52 = (* (( (ptr) (* (( (ptr) gf_c091)+49)/* var_c14808 */  ))+5) );
         server_v3596 = (word) ( *( (fPt) ((*  (ptr) pd52 ))))(pd52);
         };
SOURCE(1972, 46)
      {
         word pd53;
         pd53 = (* (( (ptr) (* (( (ptr) gf_c091)+45)/* var_c14520 */  ))+38) );
         c_v3624 = (word) ( *( (fPt) ((*  (ptr) pd53 ))))(server_v3596, 0, 0, 0, 0, 0, pd53);
         };
SOURCE(2020, 60)
      {
         word pd54;
         pd54 = (* (( (ptr) (* (( (ptr) gf_c091)+45)/* var_c14520 */  ))+50) );
         serverHostAtom_v3652 = (word) ( *( (fPt) ((*  (ptr) pd54 ))))(c_v3624, (* (( (ptr) gf_c091)+27) ), pd54);
         };
SOURCE(2082, 148)
      {
         word var_c14840;
         {
            word pd55;
            pd55 = (* (( (ptr) (* (( (ptr) gf_c091)+45)/* var_c14520 */  ))+20) );
            var_c14840 = (word) ( *( (fPt) ((*  (ptr) pd55 ))))(c_v3624, pd55);
            };
         {
            word pd56;
            pd56 = (* (( (ptr) (* (( (ptr) gf_c091)+45)/* var_c14520 */  ))+53) );
            (void) ( *( (fPt) ((*  (ptr) pd56 ))))(c_v3624, var_c14840, serverHostAtom_v3652, 31, 0, server_v3596
               , 0, 2147483647, (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c091)+50)/* var_c14872 */  ))+5) ) ), pd56);
            };
         };
SOURCE(2232, 21)
      {
         word pd57;
         pd57 = (* (( (ptr) (* (( (ptr) gf_c091)+45)/* var_c14520 */  ))+42) );
         (void) ( *( (fPt) ((*  (ptr) pd57 ))))(c_v3624, pd57);
         };
      };
   return(0);
   }

static void NoName_Q864(formal_c077, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c077;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c093 =  (ptr) &globalframe;
   if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c093)+45)/* var_c14520 */  ))+4) ))) {
      {
         word err_v12112;
         err_v12112 = (*  (ptr) formal_c200007 );
SOURCE(1752, 21)
         (* (( (ptr) formal_c200004)+5) ) = (* (( (ptr) err_v12112)+5) );
SOURCE(1775, 17)
         (* (( (ptr) formal_c200004)+4) ) = (* (( (ptr) gf_c093)+26) );
SOURCE(1795, 34)
         {
            word pd58;
            pd58 = (* (( (ptr) (* (( (ptr) gf_c093)+45)/* var_c14520 */  ))+42) );
            (void) ( *( (fPt) ((*  (ptr) pd58 ))))((* ((( (ptr) err_v12112)+2)) ), pd58);
            };
SOURCE(1832, 10)
         (*  (ptr) formal_c077 ) = 2;
         (* (( (ptr) formal_c077)+1) ) = 3;
         return;
         };
      }
   else {
      if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c093)+45)/* var_c14520 */  ))+39) ))) {
         {
            word why_v12364;
            why_v12364 = (*  (ptr) formal_c200007 );
SOURCE(1873, 16)
            (* (( (ptr) formal_c200004)+5) ) = (* (( (ptr) why_v12364)+1) );
SOURCE(1891, 17)
            (* (( (ptr) formal_c200004)+4) ) = (* (( (ptr) gf_c093)+26) );
SOURCE(1910, 9)
            (*  (ptr) formal_c077 ) = 2;
            (* (( (ptr) formal_c077)+1) ) = 3;
            return;
            };
         };
      };
   (*  (ptr) formal_c077 ) = 0;
   (* (( (ptr) formal_c077)+1) ) = 0;
   return;
   }

static void NoName_Q924(formal_c083, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c083;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c094 =  (ptr) &globalframe;
   if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c094)+45)/* var_c14520 */  ))+39) ))) {
      {
         word why_v9808;
         why_v9808 = (*  (ptr) formal_c200003 );
SOURCE(771, 10)
         (* (( (ptr) formal_c200000)+5) ) = 0;
SOURCE(783, 20)
         (* (( (ptr) formal_c200000)+6) ) = (* (( (ptr) why_v9808)+1) );
SOURCE(805, 9)
         (*  (ptr) formal_c083 ) = 2;
         (* (( (ptr) formal_c083)+1) ) = 2;
         return;
         };
      };
   (*  (ptr) formal_c083 ) = 0;
   (* (( (ptr) formal_c083)+1) ) = 0;
   return;
   }

/* file: X11Commands, module: X11Commands, compiled at: March 10, 1993 10:54:36 am PST */ 
extern void XR_install_X11Commands() {
   NoName_Q684();
   }
extern void XR_run_X11Commands() { XR_Start(&globalframe); }