/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: April 21, 1992 12:44:49 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XTkHelpStringsImpl, module: XTkHelpStringsImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [689737756,1031435215] XTkHelpStringsImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
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;} W4;
typedef W4 *W4Pt;
typedef word (*fPt)();
#define SOURCE(p, l) /* source p, l */
static void NoName←Q768();
static void XTkHelpStringsImpl←P0();
static void Create←P60();
static word GetHandle←P120();
static void SetHandle←P180();
static word MyCreateHandle←P240();
static void MyDisplay←P300();
static void MyClear←P360();
static void NoVisible←P420();
static struct {unsigned f; char r[4];} string1 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\051\034\220\034\300\075\172\163\317\100\274\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\004\007\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string6 = {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];} string7 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\267\210\110\244\300\302\136\033\142\100\164\000\000"};
static struct {unsigned f; char r[4];} string9 = {131074, "\004\003\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\267\210\110\244\300\302\136\033\142\100\200\000\000"};
static struct {unsigned f; char r[4];} string11 = {131074, "\003\004\000"};
static struct {unsigned f; char r[36];} string12 = {2228260, " \000"};
static struct {unsigned f; char r[20];} string13 = {1179668, "XTkHelpWidgetsImpl\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\051\034\220\034\300\075\172\163\317\100\164\000\000"};
static struct {unsigned f; char r[12];} string15 = {524296, "\006\002\040\001\100\104\004\003\000\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\234\350\054\033\300\120\345\145\367\100\150\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\000\150\313\125\300\372\040\271\021\100\150\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\324\061\112\362\300\056\040\271\100\100\150\000\000"};
static struct {
word f0[19]; word f19; word f20; word f21;
word f22; word f23; word f24; word f25;
word f26; word f27; word f28; word f29;
word f30; word f31; word f32; word f33;
word f34; word f35; word f36; word f37[5];
} globalframe = {
{0}, (word) NoVisible←P420, 0, (word) MyClear←P360,
0, (word) MyDisplay←P300, 0, (word) MyCreateHandle←P240,
0, (word) SetHandle←P180, 0, (word) GetHandle←P120,
0, (word) Create←P60, 0, (word) XTkHelpStringsImpl←P0,
0, 4294967295, 4294967295, {0}
};
static void NoName←Q768()
{
register ptr gf←c052 = (ptr) &globalframe;
word var←c11036;
(* (( (ptr) gf←c052)+9) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c052)+10) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (( (ptr) gf←c052)+12) ) = (word) XR←GetTypeIndex((word) &string5, 0, (word) &string6);
(* (( (ptr) gf←c052)+13) ) = (word) XR←GetTypeIndex((word) &string7, 0, (word) &string2);
(* (( (ptr) gf←c052)+14) ) = (word) XR←GetTypeIndex((word) &string8, 0, (word) &string9);
(* (( (ptr) gf←c052)+15) ) = (word) XR←GetTypeIndex((word) &string10, 0, (word) &string11);
(* (ptr) (( (bPt) gf←c052)+68) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c052)+13) ), (word) &string12);
(* (ptr) (( (bPt) gf←c052)+72) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c052)+9) ), (word) &string13);
(void) XR←DeclareGlobalFrame((word) "XTkHelpStringsImpl", &globalframe, (word) XR←GetTypeIndex((word) &string14, 0, (word) &string15)
, (word) (( (bPt) gf←c052)+132)/* var←c10620 */ );
var←c11036 = (word) XR←ImportInterface((word) "XTk", (word) XR←GetTypeIndexS((word) (&string16)), 50);
(* (( (ptr) gf←c052)+40)/* var←c10780 */ ) = var←c11036;
(void) XR←ImportProcS(var←c11036, 788227);
(void) XR←ImportProcS(var←c11036, 67378433);
(void) XR←ImportProcS(var←c11036, 67634690);
var←c11036 = (word) XR←ImportInterface((word) "XTkLabels", (word) XR←GetTypeIndexS((word) (&string17)), 9);
(* (( (ptr) gf←c052)+39)/* var←c10748 */ ) = var←c11036;
(void) XR←ImportProcS(var←c11036, 787203);
(void) XR←ImportProcS(var←c11036, 70778883);
var←c11036 = (word) XR←ExportInterface((word) "XTkHelpStrings", (word) XR←GetTypeIndexS((word) (&string18)), 2);
(* (( (ptr) gf←c052)+41)/* var←c11068 */ ) = var←c11036;
(void) XR←ExportProcS(var←c11036, (word) (( (bPt) gf←c052)+116)/* var←c10556 */ , 67371009);
(void) XR←ExportProcS(var←c11036, (word) (( (bPt) gf←c052)+108)/* var←c10524 */ , 524546);
var←c11036 = (word) XR←ExportInterface((word) "XTkHelpWidgets", (word) XR←GetTypeIndexS((word) (&string19)), 1);
(* (( (ptr) gf←c052)+41)/* var←c11068 */ ) = var←c11036;
(void) XR←ExportProcS(var←c11036, (word) (( (bPt) gf←c052)+124)/* var←c10588 */ , 136577025);
}
static void XTkHelpStringsImpl←P0(formal←c020, formal←c018)
word formal←c020;
word formal←c018;
{
register ptr gf←c11100 = (ptr) &globalframe;
/* XTkHelpStringsImpl: */
SOURCE(82, 1753)
/* moved to installation proc */
/* moved to installation proc */
SOURCE(899, 158)
{
word var←c10716;
var←c10716 = XR←NewObject(20, (* (( (ptr) gf←c11100)+15) ));
(* (ptr) var←c10716 ) = (word) (( (bPt) gf←c11100)+92)/* var←c10460 */ ;
(* (( (ptr) var←c10716)+1) ) = (word) (( (bPt) gf←c11100)+84)/* var←c10428 */ ;
(* (( (ptr) var←c10716)+2) ) = (word) (( (bPt) gf←c11100)+76)/* var←c10396 */ ;
(* (( (ptr) var←c10716)+3) ) = (word) (( (bPt) gf←c11100)+76)/* var←c10396 */ ;
(* (( (ptr) gf←c11100)+8)/* myHelpClass←v2776 */ ) = var←c10716;
};
}
static void Create←P60(formal←c024, widgetSpec←v2996)
word formal←c024;
W9 widgetSpec←v2996;
{
register ptr gf←c11132 = (ptr) &globalframe;
word w←v3040;
word h←v3068;
/* Create: */
SOURCE(282, 189)
SOURCE(282, 189)
w←v3040 = 0;
SOURCE(282, 189)
h←v3068 = 0;
SOURCE(387, 44)
{
word pd20;
pd20 = (* (( (ptr) (* (( (ptr) gf←c11132)+39)/* var←c10748 */ ))+4) );
w←v3040 = (word) ( *( (fPt) ((* (ptr) pd20 ))))(widgetSpec←v2996, (* (( (ptr) gf←c11132)+17) ), (* (W4Pt) (( (ptr) gf←c11132)+35)
/* var←c10684 */ ), pd20);
};
SOURCE(433, 21)
h←v3068 = (word) MyCreateHandle←P240(w←v3040);
SOURCE(456, 15)
(void) SetHandle←P180(w←v3040, h←v3068);
/* removed tail goto */
(* (ptr) formal←c024 ) = w←v3040;
(* (( (ptr) formal←c024)+1) ) = h←v3068;
return;
}
static word GetHandle←P120(w←v3128)
word w←v3128;
{
register ptr gf←c11164 = (ptr) &globalframe;
word var←c3172;
/* GetHandle: */
SOURCE(478, 295)
SOURCE(478, 295)
var←c3172 = 0;
SOURCE(556, 80)
{
word var←c10812;
{
word pd21;
pd21 = (* (( (ptr) (* (( (ptr) gf←c11164)+40)/* var←c10780 */ ))+10) );
var←c10812 = (word) ( *( (fPt) ((* (ptr) pd21 ))))(w←v3128, (* (( (ptr) gf←c11164)+18) ), pd21);
};
if ((var←c10812 == 0)) {
goto lab←L100001;
};
if (((* (( (ptr) gf←c11164)+14) ) == XR←GetReferentType(var←c10812))) {
{
word h←v3912;
h←v3912 = var←c10812;
SOURCE(626, 10)
return(h←v3912);
};
}
else {
lab←L100001: ;
};
};
SOURCE(653, 21)
{
word pd22;
pd22 = (* (( (ptr) (* (( (ptr) gf←c11164)+40)/* var←c10780 */ ))+33) );
w←v3128 = (word) ( *( (fPt) ((* (ptr) pd22 ))))(w←v3128, pd22);
};
SOURCE(676, 97)
if ((w←v3128 != 0)) {
SOURCE(693, 80)
{
word var←c10844;
{
word pd23;
pd23 = (* (( (ptr) (* (( (ptr) gf←c11164)+40)/* var←c10780 */ ))+10) );
var←c10844 = (word) ( *( (fPt) ((* (ptr) pd23 ))))(w←v3128, (* (( (ptr) gf←c11164)+18) ), pd23);
};
if ((var←c10844 == 0)) {
goto lab←L100002;
};
if (((* (( (ptr) gf←c11164)+14) ) == XR←GetReferentType(var←c10844))) {
{
word h←v3956;
h←v3956 = var←c10844;
SOURCE(763, 10)
return(h←v3956);
};
}
else {
lab←L100002: ;
};
};
};
SOURCE(478, 295)
return(var←c3172);
}
static void SetHandle←P180(w←v3232, h←v3260)
word w←v3232;
word h←v3260;
{
register ptr gf←c11196 = (ptr) &globalframe;
/* SetHandle: */
SOURCE(797, 96)
SOURCE(863, 30)
{
word pd24;
pd24 = (* (( (ptr) (* (( (ptr) gf←c11196)+40)/* var←c10780 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd24 ))))(w←v3232, (* (( (ptr) gf←c11196)+18) ), h←v3260, pd24);
};
}
static word MyCreateHandle←P240(w←v3460)
word w←v3460;
{
register ptr gf←c11228 = (ptr) &globalframe;
word h←v3504;
word md←v4000;
/* MyCreateHandle: */
SOURCE(1147, 175)
SOURCE(1147, 175)
h←v3504 = 0;
SOURCE(1226, 41)
md←v4000 = XR←NewObject(12, (* (( (ptr) gf←c11228)+10) ));
(* (ptr) md←v4000 ) = w←v3460;
SOURCE(1269, 53)
{
word var←c10908;
var←c10908 = XR←NewObject(8, (* (( (ptr) gf←c11228)+14) ));
(* (ptr) var←c10908 ) = (* (( (ptr) gf←c11228)+8)/* myHelpClass←v2776 */ );
(* (( (ptr) var←c10908)+1) ) = md←v4000;
h←v3504 = var←c10908;
};
SOURCE(1147, 175)
return(h←v3504);
}
static void MyDisplay←P300(h←v3564, string←v3592, key←v3620)
word h←v3564;
word string←v3592;
word key←v3620;
{
register ptr gf←c11260 = (ptr) &globalframe;
/* MyDisplay: */
SOURCE(1326, 289)
SOURCE(1399, 216)
{
word var←c10940;
var←c10940 = (* (( (ptr) h←v3564)+1) );
if ((var←c10940 == 0)) {
goto lab←L100003;
};
if (((* (( (ptr) gf←c11260)+10) ) == XR←GetReferentType(var←c10940))) {
{
word md←v4056;
md←v4056 = var←c10940;
SOURCE(1441, 176)
{
word text←v4112 = 0;
SOURCE(1466, 67)
{
word var←c10972;
var←c10972 = string←v3592;
if ((var←c10972 == 0)) {
goto lab←L100004;
};
{
word tc25;
if (((* (( (ptr) gf←c11260)+12) ) == XR←GetReferentType(var←c10972))) {
tc25 = (word) ((*(int*)var←c10972<0) == 0);
}
else {
tc25 = (word) 0;
};
if (tc25) {
{
word r←v4156;
r←v4156 = var←c10972;
SOURCE(1506, 8)
text←v4112 = r←v4156;
};
}
else {
lab←L100004: ;
SOURCE(1527, 6)
return;
};
};
};
SOURCE(1535, 18)
(* (( (ptr) md←v4056)+1) ) = string←v3592;
SOURCE(1555, 12)
(* (( (ptr) md←v4056)+2) ) = key←v3620;
SOURCE(1569, 46)
{
word pd26;
pd26 = (* (( (ptr) (* (( (ptr) gf←c11260)+39)/* var←c10748 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd26 ))))((* (ptr) md←v4056 ), text←v4112, 2, pd26);
};
};
};
}
else {
lab←L100003: ;
};
};
}
static void MyClear←P360(h←v3704, string←v3732, key←v3760)
word h←v3704;
word string←v3732;
word key←v3760;
{
register ptr gf←c11292 = (ptr) &globalframe;
/* MyClear: */
SOURCE(1638, 197)
SOURCE(1709, 126)
{
word var←c11004;
var←c11004 = (* (( (ptr) h←v3704)+1) );
if ((var←c11004 == 0)) {
goto lab←L100005;
};
if (((* (( (ptr) gf←c11292)+10) ) == XR←GetReferentType(var←c11004))) {
{
word md←v4200;
md←v4200 = var←c11004;
SOURCE(1753, 82)
if (((* (( (ptr) md←v4200)+1) ) == string←v3732) || ((* (( (ptr) md←v4200)+2) ) == key←v3760)) {
SOURCE(1792, 43)
{
word pd27;
pd27 = (* (( (ptr) (* (( (ptr) gf←c11292)+39)/* var←c10748 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd27 ))))((* (ptr) md←v4200 ), (* (( (ptr) gf←c11292)+17) ), 1, pd27);
};
};
};
}
else {
lab←L100005: ;
};
};
}
static void NoVisible←P420(h←v3844, data←v3872)
word h←v3844;
word data←v3872;
{
/* NoVisible: */
}
/* file: XTkHelpStringsImpl, module: XTkHelpStringsImpl, compiled at: April 21, 1992 12:44:47 pm PDT */
extern void XR←install←XTkHelpStringsImpl() {
NoName←Q768();
}
extern void XR←run←XTkHelpStringsImpl() { XR←Start(&globalframe); }