/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: July 10, 1992 1:53:24 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: X11ClipHack, module: X11ClipHack */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [3423178636,150060392] X11ClipHack";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3;} W4;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; word r;} W9;
typedef W9 *W9Pt;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W16 f; W4 r;} W20;
typedef struct {word f0, f1;} W2;
typedef W4 *W4Pt;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W5 *W5Pt;
#define SOURCE(p, l) /* source p, l */
static void NoName←Q276();
static void X11ClipHack←P0();
static void CreateInstanceCommand←P60();
static word NoName←Q336();
static void NoName←Q396();
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[16];} string4 = {917520, "clipboard hack\000"};
static struct {unsigned f; char r[12];} string5 = {720908, "X11ClipHack"};
static struct {unsigned f; char r[28];} string6 = {1703964, "Creates a clip hack widget\000"};
static struct {unsigned f; char r[4];} string7 = {131076, "%g\000"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\314\011\217\214\300\010\361\275\150\100\164\000\000"};
static struct {unsigned f; char r[4];} string9 = {196611, "\004~\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\311\235\133\064\300\165\175\234\175\100\150\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\145\202\371\143\300\336\312\353\353\100\150\000\000"};
static struct {
word f0[14]; word f14; word f15; word f16;
word f17[2]; word f19; word f20; word f21;
word f22; word f23; word f24; word f25[2];
word f27; word f28; word f29[2]; word f31;
word f32; word f33; word f34; word f35;
word f36[5];
} globalframe = {
{0}, (word) CreateInstanceCommand←P60, 0, (word) X11ClipHack←P0,
{0}, 2147483648, 2147483648, 2147483648,
2147483648, 2147483648, 3, {0},
4294967295, 4294967295, {0}, 2147483648,
2147483648, 2147483648, 2147483648, 2147483648,
{0}
};
static void NoName←Q276()
{
register ptr gf←c036 = (ptr) &globalframe;
word var←c11280;
(* (( (ptr) gf←c036)+5) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c036)+8) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string2);
(* (ptr) (( (bPt) gf←c036)+36) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c036)+5) ), (word) &string4);
(* (ptr) (( (bPt) gf←c036)+40) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c036)+8) ), (word) &string5);
(* (ptr) (( (bPt) gf←c036)+44) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c036)+5) ), (word) &string6);
(* (ptr) (( (bPt) gf←c036)+48) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c036)+5) ), (word) &string7);
(* (ptr) (( (bPt) gf←c036)+52) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c036)+5) ), (word) &string5);
(void) XR←DeclareGlobalFrame((word) "X11ClipHack", &globalframe, (word) XR←GetTypeIndex((word) &string8, 0, (word) &string9)
, (word) (( (bPt) gf←c036)+64)/* var←c10800 */ );
var←c11280 = (word) XR←ImportInterface((word) "Commander", (word) XR←GetTypeIndexS((word) (&string10)), 3);
(* (( (ptr) gf←c036)+36)/* var←c11024 */ ) = var←c11280;
(void) XR←ImportProcS(var←c11280, 1310725);
var←c11280 = (word) XR←ImportInterface((word) "CommanderOps", (word) XR←GetTypeIndexS((word) (&string11)), 14);
(* (( (ptr) gf←c036)+38)/* var←c11088 */ ) = var←c11280;
var←c11280 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string12)), 103);
(* (( (ptr) gf←c036)+40)/* var←c11248 */ ) = var←c11280;
(void) XR←ImportProcS(var←c11280, 67910402);
var←c11280 = (word) XR←ImportInterface((word) "Xl", (word) XR←GetTypeIndexS((word) (&string13)), 218);
(* (( (ptr) gf←c036)+37)/* var←c11056 */ ) = var←c11280;
var←c11280 = (word) XR←ImportInterface((word) "XTkWidgets", (word) XR←GetTypeIndexS((word) (&string14)), 52);
(* (( (ptr) gf←c036)+39)/* var←c11120 */ ) = var←c11280;
(void) XR←ImportProcS(var←c11280, 2099460);
(void) XR←ImportProcS(var←c11280, 70787331);
(void) XR←ImportProcS(var←c11280, 793347);
(void) XR←ImportProcS(var←c11280, 72352268);
(void) XR←ImportProcS(var←c11280, 69998595);
}
static void X11ClipHack←P0(formal←c015, formal←c014)
word formal←c015;
word formal←c014;
{
register ptr gf←c11312 = (ptr) &globalframe;
/* X11ClipHack: */
SOURCE(62, 704)
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* 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(680, 86)
{
word pd15;
pd15 = (* (( (ptr) (* (( (ptr) gf←c11312)+36)/* var←c11024 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd15 ))))((* (( (ptr) gf←c11312)+13) ), (word) (( (bPt) gf←c11312)+56)/* var←c10768 */ , (* (
( (ptr) gf←c11312)+11) ), 0, 1, pd15);
};
}
static void CreateInstanceCommand←P60(formal←c019, cmd←v3460)
word formal←c019;
word cmd←v3460;
{
W4 var←c11344;
word result←v3504;
word msg←v3532;
/* CreateInstanceCommand: */
SOURCE(151, 523)
SOURCE(151, 523)
result←v3504 = 0;
SOURCE(151, 523)
msg←v3532 = 0;
SOURCE(200, 474)
{
word var←c041;
var←c041 = (word) &var←c11344;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q336) ), ( ((word) (fPt) NoName←Q396) ), var←c041);
};
/* removed tail goto */
(* (ptr) formal←c019 ) = result←v3504;
(* (( (ptr) formal←c019)+1) ) = msg←v3532;
return;
}
static word NoName←Q336(formal←c039)
word formal←c039;
{
register ptr gf←c038 = (ptr) &globalframe;
SOURCE(323, 49)
{
word container←v2740;
word shell←v2768;
SOURCE(323, 49)
{
word pd16;
pd16 = (* (( (ptr) (* (( (ptr) gf←c038)+39)/* var←c11120 */ ))+28) );
container←v2740 = (word) ( *( (fPt) ((* (ptr) pd16 ))))((* (W9Pt) (( (ptr) gf←c038)+18)/* var←c10864 */ ), 0, (word) -1, pd16)
;
};
SOURCE(374, 142)
{
W20 var←c022;
(* (W9Pt) (word) &var←c022 ) = (* (W9Pt) (( (ptr) gf←c038)+18)/* var←c10864 */ );
(* (( (ptr) (word) &var←c022) + 9) ) = container←v2740;
(* (( (ptr) (word) &var←c022) + 10) ) = (* (( (ptr) gf←c038)+9) );
(* (( (ptr) (word) &var←c022) + 11) ) = 0;
(* (( (ptr) (word) &var←c022) + 12) ) = (* (( (ptr) gf←c038)+10) );
(* (( (ptr) (word) &var←c022) + 13) ) = 0;
(* (( (ptr) (word) &var←c022) + 14) ) = 0;
(* (( (ptr) (word) &var←c022) + 15) ) = 0;
(* (( (ptr) (word) &var←c022) + 16) ) = 0;
(* (( (ptr) (word) &var←c022) + 17) ) = 1;
(* (( (ptr) (word) &var←c022) + 18) ) = 1;
(* (( (ptr) (word) &var←c022) + 19) ) = 1;
{
word pd17;
pd17 = (* (( (ptr) (* (( (ptr) gf←c038)+39)/* var←c11120 */ ))+6) );
shell←v2768 = (word) ( *( (fPt) ((* (ptr) pd17 ))))((word) (&var←c022), pd17);
};
};
SOURCE(518, 115)
{
register word i←v2812 = 0;
if (( (int)i←v2812 > (int)7)) {
goto lab←L100003;
};
lab←L100006: ;
SOURCE(542, 91)
{
word var←c11152;
{
word var←c11184;
{
W2 var←c11216;
var←c11216.f0 = 5;
var←c11216.f1 = i←v2812;
{
word pd18;
pd18 = (* (( (ptr) (* (( (ptr) gf←c038)+40)/* var←c11248 */ ))+63) );
var←c11184 = (word) ( *( (fPt) ((* (ptr) pd18 ))))((* (( (ptr) gf←c038)+12) ), var←c11216, pd18);
};
};
{
word pd19;
pd19 = (* (( (ptr) (* (( (ptr) gf←c038)+39)/* var←c11120 */ ))+37) );
var←c11152 = (word) ( *( (fPt) ((* (ptr) pd19 ))))((* (W9Pt) (( (ptr) gf←c038)+18)/* var←c10864 */ ), var←c11184, (* (W4Pt) (
( (ptr) gf←c038)+27)/* var←c10928 */ ), pd19);
};
};
{
word pd20;
pd20 = (* (( (ptr) (* (( (ptr) gf←c038)+39)/* var←c11120 */ ))+31) );
(void) ( *( (fPt) ((* (ptr) pd20 ))))(container←v2740, var←c11152, 1, pd20);
};
};
if (( (int)i←v2812 >= (int)7)) {
goto lab←L100003;
};
i←v2812 = (i←v2812 + 1);
goto lab←L100006;
lab←L100003: ;
};
SOURCE(644, 30)
{
word pd21;
pd21 = (* (( (ptr) (* (( (ptr) gf←c038)+39)/* var←c11120 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd21 ))))(shell←v2768, (* (W5Pt) (( (ptr) gf←c038)+31)/* var←c10992 */ ), 0, 1, pd21);
};
};
return(0);
}
static void NoName←Q396(formal←c035, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c035;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c040 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c040)+37)/* var←c11056 */ ))+4) ))) {
{
word err←v6568;
err←v6568 = (* (ptr) formal←c200003 );
SOURCE(222, 36)
{
word var←c032;
var←c032 = (* (( (ptr) err←v6568)+5) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c040)+38)/* var←c11088 */ ))+4) ), (word) &var←c032);
};
};
}
else {
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c040)+37)/* var←c11056 */ ))+39) ))) {
{
word why←v6968;
why←v6968 = (* (ptr) formal←c200003 );
SOURCE(287, 31)
{
word var←c034;
var←c034 = (* (( (ptr) why←v6968)+1) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c040)+38)/* var←c11088 */ ))+4) ), (word) &var←c034);
};
};
};
};
(* (ptr) formal←c035 ) = 0;
(* (( (ptr) formal←c035)+1) ) = 0;
return;
}
/* file: X11ClipHack, module: X11ClipHack, compiled at: July 10, 1992 1:53:23 pm PDT */
extern void XR←install←X11ClipHack() {
NoName←Q276();
}
extern void XR←run←X11ClipHack() { XR←Start(&globalframe); }