/* 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); }