/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: August 27, 1992 7:30:44 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: X11ResourceCommands, module: X11ResourceCommands */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [3846415286,1849930582] X11ResourceCommands";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {word f0, f1, f2, f3;} W4;
typedef struct {W16 f; W4 r;} W20;
typedef struct {W8 f; word r;} W9;
typedef W9 *W9Pt;
typedef struct {word f0, f1;} W2;
#define SOURCE(p, l) /* source p, l */
static void NoName←Q228();
static void X11ResourceCommands←P0();
static void ReadResource←P60();
static word NoName←Q288();
static void NoName←Q348();
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[32];} string3 = {1900576, "Query the X resource database\000\000"};
static struct {unsigned f; char r[24];} string4 = {1441816, "Customize.QueryError: \000"};
static struct {unsigned f; char r[28];} string5 = {1572892, "Connection not created: \000\000\000"};
static struct {unsigned f; char r[44];} string6 = {2621484, "Command needs exactly one query argument\000\000\000"};
static struct {unsigned f; char r[24];} string7 = {1310744, "No entry in database\000\000\000"};
static struct {unsigned f; char r[4];} string8 = {196612, "%g\012"};
static struct {unsigned f; char r[16];} string9 = {983056, "X11ReadResource"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\345\103\243\266\300\156\103\263\126\100\164\000\000"};
static struct {unsigned f; char r[8];} string11 = {393222, "\006\001,\004@\177\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\311\235\133\064\300\165\175\234\175\100\150\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\047\312\257\214\300\225\003\264\361\100\150\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\264\326\343\056\300\340\077\001\214\100\150\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\145\202\371\143\300\336\312\353\353\100\150\000\000"};
static struct {
word f0[18]; word f18; word f19; word f20;
word f21[2]; word f23; word f24; word f25;
word f26; word f27; word f28; word f29[10];
} globalframe = {
{0}, (word) ReadResource←P60, 0, (word) X11ResourceCommands←P0,
{0}, 2147483648, 2147483648, 2147483648,
2147483648, 2147483648, 3, {0}
};
static void NoName←Q228()
{
register ptr gf←c041 = (ptr) &globalframe;
word var←c11560;
(* (( (ptr) gf←c041)+9) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (ptr) (( (bPt) gf←c041)+44) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c041)+9) ), (word) &string3);
(* (ptr) (( (bPt) gf←c041)+48) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c041)+9) ), (word) &string4);
(* (ptr) (( (bPt) gf←c041)+52) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c041)+9) ), (word) &string5);
(* (ptr) (( (bPt) gf←c041)+56) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c041)+9) ), (word) &string6);
(* (ptr) (( (bPt) gf←c041)+60) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c041)+9) ), (word) &string7);
(* (ptr) (( (bPt) gf←c041)+64) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c041)+9) ), (word) &string8);
(* (ptr) (( (bPt) gf←c041)+68) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c041)+9) ), (word) &string9);
(void) XR←DeclareGlobalFrame((word) "X11ResourceCommands", &globalframe, (word) XR←GetTypeIndex((word) &string10, 0, (word) &string11)
, (word) (( (bPt) gf←c041)+80)/* var←c11112 */ );
var←c11560 = (word) XR←ImportInterface((word) "Commander", (word) XR←GetTypeIndexS((word) (&string12)), 3);
(* (( (ptr) gf←c041)+31)/* var←c11208 */ ) = var←c11560;
(void) XR←ImportProcS(var←c11560, 1310725);
var←c11560 = (word) XR←ImportInterface((word) "CommanderOps", (word) XR←GetTypeIndexS((word) (&string13)), 14);
(* (( (ptr) gf←c041)+33)/* var←c11272 */ ) = var←c11560;
(void) XR←ImportProcS(var←c11560, 67371777);
(void) XR←ImportProcS(var←c11560, 67896579);
var←c11560 = (word) XR←ImportInterface((word) "Customize", (word) XR←GetTypeIndexS((word) (&string14)), 19);
(* (( (ptr) gf←c041)+32)/* var←c11240 */ ) = var←c11560;
var←c11560 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string15)), 103);
(* (( (ptr) gf←c041)+38)/* var←c11528 */ ) = var←c11560;
(void) XR←ImportProcS(var←c11560, 1063171);
var←c11560 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string16)), 43);
(* (( (ptr) gf←c041)+34)/* var←c11336 */ ) = var←c11560;
(void) XR←ImportProcS(var←c11560, 67633666);
var←c11560 = (word) XR←ImportInterface((word) "Xl", (word) XR←GetTypeIndexS((word) (&string17)), 218);
(* (( (ptr) gf←c041)+35)/* var←c11368 */ ) = var←c11560;
var←c11560 = (word) XR←ImportInterface((word) "XlDB", (word) XR←GetTypeIndexS((word) (&string18)), 4);
(* (( (ptr) gf←c041)+37)/* var←c11464 */ ) = var←c11560;
(void) XR←ImportProcS(var←c11560, 67633922);
var←c11560 = (word) XR←ImportInterface((word) "XTkWidgets", (word) XR←GetTypeIndexS((word) (&string19)), 52);
(* (( (ptr) gf←c041)+36)/* var←c11432 */ ) = var←c11560;
(void) XR←ImportProcS(var←c11560, 264961);
(void) XR←ImportProcS(var←c11560, 787203);
(void) XR←ImportProcS(var←c11560, 72352268);
}
static void X11ResourceCommands←P0(formal←c017, formal←c016)
word formal←c017;
word formal←c016;
{
register ptr gf←c11592 = (ptr) &globalframe;
/* X11ResourceCommands: */
SOURCE(79, 935)
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
SOURCE(930, 84)
{
word pd20;
pd20 = (* (( (ptr) (* (( (ptr) gf←c11592)+31)/* var←c11208 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd20 ))))((* (( (ptr) gf←c11592)+17) ), (word) (( (bPt) gf←c11592)+72)/* var←c11080 */ , (* (
( (ptr) gf←c11592)+11) ), 0, 1, pd20);
};
}
static void ReadResource←P60(formal←c021, formal←c049)
word formal←c021;
word formal←c049;
{
W5 var←c11624;
/* declaration of cmd←v3700 skipped */
word result←v3744;
word msg←v3772;
var←c11624.f4/* cmd←v3700 */ = formal←c049;
/* ReadResource: */
SOURCE(198, 726)
SOURCE(198, 726)
result←v3744 = 0;
SOURCE(198, 726)
msg←v3772 = 0;
SOURCE(238, 686)
{
word var←c046;
var←c046 = (word) &var←c11624;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q288) ), ( ((word) (fPt) NoName←Q348) ), var←c046);
};
/* removed tail goto */
(* (ptr) formal←c021 ) = result←v3744;
(* (( (ptr) formal←c021)+1) ) = msg←v3772;
return;
}
static word NoName←Q288(formal←c044)
word formal←c044;
{
register ptr gf←c043 = (ptr) &globalframe;
SOURCE(441, 44)
{
word query←v2908;
word answer←v2936 = 0;
word db←v2964 = 0;
word shell←v2992 = 0;
SOURCE(441, 44)
{
word pd21;
pd21 = (* (( (ptr) (* (( (ptr) gf←c043)+33)/* var←c11272 */ ))+9) );
query←v2908 = (word) ( *( (fPt) ((* (ptr) pd21 ))))((* (( (ptr) formal←c044)+4) ), 1, 0, pd21);
};
SOURCE(559, 100)
{
word pd22;
pd22 = (* (( (ptr) (* (( (ptr) gf←c043)+33)/* var←c11272 */ ))+7) );
if (( (int)(word) ( *( (fPt) ((* (ptr) pd22 ))))((* ((( (ptr) formal←c044)+4)) ), pd22) != (int)2)) {
SOURCE(596, 63)
{
word var←c026;
var←c026 = (* (( (ptr) gf←c043)+14) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c043)+33)/* var←c11272 */ ))+4) ), (word) &var←c026);
};
};
};
SOURCE(661, 32)
{
W20 var←c027;
(* (W9Pt) (word) &var←c027 ) = (* (W9Pt) (( (ptr) gf←c043)+22)/* var←c11176 */ );
(* (( (ptr) (word) &var←c027) + 9) ) = 0;
(* (( (ptr) (word) &var←c027) + 10) ) = 0;
(* (( (ptr) (word) &var←c027) + 11) ) = 0;
(* (( (ptr) (word) &var←c027) + 12) ) = 0;
(* (( (ptr) (word) &var←c027) + 13) ) = 0;
(* (( (ptr) (word) &var←c027) + 14) ) = 0;
(* (( (ptr) (word) &var←c027) + 15) ) = 0;
(* (( (ptr) (word) &var←c027) + 16) ) = 0;
(* (( (ptr) (word) &var←c027) + 17) ) = 1;
(* (( (ptr) (word) &var←c027) + 18) ) = 1;
(* (( (ptr) (word) &var←c027) + 19) ) = 1;
{
word pd23;
pd23 = (* (( (ptr) (* (( (ptr) gf←c043)+36)/* var←c11432 */ ))+6) );
shell←v2992 = (word) ( *( (fPt) ((* (ptr) pd23 ))))((word) (&var←c027), pd23);
};
};
SOURCE(695, 33)
{
word pd24;
pd24 = (* (( (ptr) (* (( (ptr) gf←c043)+36)/* var←c11432 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd24 ))))(shell←v2992, 0, 0, pd24);
};
SOURCE(730, 54)
{
word pd25;
pd25 = (* (( (ptr) (* (( (ptr) gf←c043)+37)/* var←c11464 */ ))+7) );
answer←v2936 = (word) ( *( (fPt) ((* (ptr) pd25 ))))((* (( (ptr) shell←v2992)+34) ), query←v2908, pd25);
};
SOURCE(786, 30)
{
word pd26;
pd26 = (* (( (ptr) (* (( (ptr) gf←c043)+36)/* var←c11432 */ ))+15) );
(void) ( *( (fPt) ((* (ptr) pd26 ))))(shell←v2992, pd26);
};
SOURCE(818, 62)
if ((answer←v2936 == 0)) {
SOURCE(837, 43)
{
word var←c028;
var←c028 = (* (( (ptr) gf←c043)+15) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c043)+33)/* var←c11272 */ ))+4) ), (word) &var←c028);
};
};
SOURCE(882, 42)
{
W2 var←c11496;
var←c11496.f0 = 11;
var←c11496.f1 = answer←v2936;
{
word pd27;
pd27 = (* (( (ptr) (* (( (ptr) gf←c043)+38)/* var←c11528 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd27 ))))((* (( (ptr) (* (( (ptr) formal←c044)+4) ))+1) ), (* (( (ptr) gf←c043)+16) ), var←c11496, pd27)
;
};
};
};
return(0);
}
static void NoName←Q348(formal←c040, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c040;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c045 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c045)+32)/* var←c11240 */ ))+22) ))) {
{
word what←v6696;
what←v6696 = (* (ptr) formal←c200003 );
SOURCE(271, 64)
{
word var←c11304;
{
word pd28;
pd28 = (* (( (ptr) (* (( (ptr) gf←c045)+34)/* var←c11336 */ ))+6) );
var←c11304 = (word) ( *( (fPt) ((* (ptr) pd28 ))))((* (( (ptr) gf←c045)+12) ), what←v6696, pd28);
};
{
word var←c036;
var←c036 = var←c11304;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c045)+33)/* var←c11272 */ ))+4) ), (word) &var←c036);
};
};
};
}
else {
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c045)+35)/* var←c11368 */ ))+39) ))) {
{
word why←v7196;
why←v7196 = (* (ptr) formal←c200003 );
SOURCE(364, 72)
{
word var←c11400;
{
word pd29;
pd29 = (* (( (ptr) (* (( (ptr) gf←c045)+34)/* var←c11336 */ ))+6) );
var←c11400 = (word) ( *( (fPt) ((* (ptr) pd29 ))))((* (( (ptr) gf←c045)+13) ), (* (( (ptr) why←v7196)+1) ), pd29);
};
{
word var←c039;
var←c039 = var←c11400;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c045)+33)/* var←c11272 */ ))+4) ), (word) &var←c039);
};
};
};
};
};
(* (ptr) formal←c040 ) = 0;
(* (( (ptr) formal←c040)+1) ) = 0;
return;
}
/* file: X11ResourceCommands, module: X11ResourceCommands, compiled at: August 27, 1992 7:30:43 pm PDT */
extern void XR←install←X11ResourceCommands() {
NoName←Q228();
}
extern void XR←run←X11ResourceCommands() { XR←Start(&globalframe); }