/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */
/* time: April 19, 1993 10:40:55 am PDT */
/* C2C version: March 29, 1993 (sun4) */
/* ref-counting: off */
/* file: XTkHelpShellsImpl, module: XTkHelpShellsImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [4018915024,1237062829] XTkHelpShellsImpl";
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, f5, f6, f7;} W8;
typedef struct {W8 f; word r;} W9;
typedef W9 *W9Pt;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W16 f; W4 r;} W20;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W5 *W5Pt;
#define SOURCE(p, l) /* source p, l */
static void NoName←Q1308();
static void XTkHelpShellsImpl←P0();
static word AssignLabel←P60();
static word CreateHelpWithPopShell←P120();
static void ParentDestroyed←P180();
static word MyCreateHandle←P240();
static void MyDisplay←P300();
static void MyClear←P360();
static void ForkedCreate←P420();
static word NoName←Q1368();
static void MakeVisible←P480();
static void NoVisible←P540();
static void Remove←P600();
static void ForkedDestroy←P660();
static void NoName←Q1428();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string2 = {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];} string3 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string4 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\244\000\000"};
static struct {unsigned f; char r[40];} string6 = {2555943, "\011\000\004\106\000\040\006\011\020\004\101\201\100\174\001\100\200\001\100\204\001\100\210\001\100\220\001\100\264\001\100\270\001\100\274\001\100\304\001"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\267\210\110\244\300\302\136\033\142\100\200\000\000"};
static struct {unsigned f; char r[4];} string8 = {131074, "\003\004\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\267\210\110\244\300\302\136\033\142\100\164\000\000"};
static struct {unsigned f; char r[4];} string10 = {131074, "\004\003\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\357\213\306\320\300\111\274\024\255\100\200\000\000"};
static struct {unsigned f; char r[4];} string12 = {131074, "\004=\000"};
static struct {unsigned f; char r[4];} string13 = {131076, "\216\251\000"};
static struct {unsigned f; char r[8];} string14 = {262152, "Help\000\000\000"};
static struct {unsigned f; char r[36];} string15 = {2228260, " \000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\357\213\306\320\300\111\274\024\255\100\164\000\000"};
static struct {unsigned f; char r[12];} string17 = {524296, "\006\002\040\001\100\110\004\007\000\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\263\064\342\215\300\063\160\325\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\150\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\000\150\313\125\300\372\040\271\021\100\150\000\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\234\350\054\033\300\120\345\145\367\100\150\000\000"};
static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\054\174\025\242\300\120\014\117\154\100\150\000\000"};
static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\320\075\064\316\300\052\004\271\020\100\150\000\000"};
static struct {
word f0[21]; 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; word f38; word f39;
word f40; word f41; word f42; word f43;
word f44[2]; word f46; word f47; word f48;
word f49; word f50; word f51; word f52[2];
word f54; word f55; word f56[3]; word f59;
word f60; word f61; word f62; word f63;
word f64; word f65[2]; word f67; word f68;
word f69; word f70; word f71; word f72[7];
} globalframe = {
{0}, (word) ForkedDestroy←P660, 0, (word) Remove←P600,
0, (word) NoVisible←P540, 0, (word) MakeVisible←P480,
0, (word) ForkedCreate←P420, 0, (word) MyClear←P360,
0, (word) MyDisplay←P300, 0, (word) MyCreateHandle←P240,
0, (word) ParentDestroyed←P180, 0, (word) CreateHelpWithPopShell←P120,
0, (word) AssignLabel←P60, 0, (word) XTkHelpShellsImpl←P0,
{0}, (word) 2147483648, (word) 2147483648, (word) 350,
(word) 20, (word) 2147483648, (word) 3, {0},
(word) 4294967295, (word) 4294967295, {0}, (word) 2147483648,
(word) 2147483648, (word) 2147483648, (word) 2147483648, (word) 2147483648,
(word) 3, {0}, (word) 2147483648, (word) 2147483648,
(word) 2147483648, (word) 2147483648, (word) 2147483648, {0}
};
static void NoName←Q1308()
{
register ptr gf←c093 = (ptr) &globalframe;
word var←c18524;
(* (( (ptr) gf←c093)+9) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c093)+10) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (( (ptr) gf←c093)+11) ) = (word) XR←GetTypeIndex((word) &string5, 0, (word) &string6);
(* (( (ptr) gf←c093)+12) ) = (word) XR←GetTypeIndex((word) &string7, 0, (word) &string8);
(* (( (ptr) gf←c093)+14) ) = (word) XR←GetTypeIndex((word) &string9, 0, (word) &string10);
(* (( (ptr) gf←c093)+15) ) = (word) XR←GetTypeIndex((word) &string11, 0, (word) &string12);
(* (( (ptr) gf←c093)+17) ) = (word) XR←GetTypeIndex((word) &string13, 0, (word) &string4);
(* (ptr) (( (bPt) gf←c093)+72) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c093)+17) ), (word) &string14);
(* (ptr) (( (bPt) gf←c093)+76) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c093)+10) ), (word) &string14);
(* (ptr) (( (bPt) gf←c093)+80) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c093)+10) ), (word) &string15);
(void) XR←DeclareGlobalFrame((word) "XTkHelpShellsImpl", &globalframe, (word) XR←GetTypeIndex((word) &string16, 0, (word) &string17)
, (word) (( (bPt) gf←c093)+172)/* var←c17596 */ );
var←c18524 = (word) XR←ImportInterface((word) "ForkOps", (word) XR←GetTypeIndexS((word) (&string18)), 4);
(* (( (ptr) gf←c093)+73)/* var←c18140 */ ) = var←c18524;
(void) XR←ImportProcS(var←c18524, 1048836);
var←c18524 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string19)), 43);
(* (( (ptr) gf←c093)+74)/* var←c18172 */ ) = var←c18524;
(void) XR←ImportProcS(var←c18524, 67896323);
var←c18524 = (word) XR←ImportInterface((word) "XTk", (word) XR←GetTypeIndexS((word) (&string20)), 50);
(* (( (ptr) gf←c093)+72)/* var←c17916 */ ) = var←c18524;
(void) XR←ImportProcS(var←c18524, 67378433);
(void) XR←ImportProcS(var←c18524, 1050628);
var←c18524 = (word) XR←ImportInterface((word) "XTkHelpStrings", (word) XR←GetTypeIndexS((word) (&string21)), 2);
(* (( (ptr) gf←c093)+77)/* var←c18332 */ ) = var←c18524;
(void) XR←ImportProcS(var←c18524, 524546);
var←c18524 = (word) XR←ImportInterface((word) "XTkLabels", (word) XR←GetTypeIndexS((word) (&string22)), 9);
(* (( (ptr) gf←c093)+75)/* var←c18204 */ ) = var←c18524;
(void) XR←ImportProcS(var←c18524, 70778883);
(void) XR←ImportProcS(var←c18524, 787203);
var←c18524 = (word) XR←ImportInterface((word) "XTkShellWidgets", (word) XR←GetTypeIndexS((word) (&string23)), 26);
(* (( (ptr) gf←c093)+76)/* var←c18300 */ ) = var←c18524;
(void) XR←ImportProcS(var←c18524, 264705);
(void) XR←ImportProcS(var←c18524, 67371009);
(void) XR←ImportProcS(var←c18524, 2099204);
(void) XR←ImportProcS(var←c18524, 786947);
(void) XR←ImportProcS(var←c18524, 72352012);
var←c18524 = (word) XR←ExportInterface((word) "XTkHelpShells", (word) XR←GetTypeIndexS((word) (&string24)), 1);
(* (( (ptr) gf←c093)+78)/* var←c18556 */ ) = var←c18524;
(void) XR←ExportProcS(var←c18524, (word) (( (bPt) gf←c093)+156)/* var←c17532 */ , 67371009);
}
static void XTkHelpShellsImpl←P0(formal←c032, formal←c030)
word formal←c032;
word formal←c030;
{
register ptr gf←c18588 = (ptr) &globalframe;
/* XTkHelpShellsImpl: */
SOURCE(106, 3571)
/* 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 */
/* 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(302, 160)
{
word var←c17884;
var←c17884 = XR←NewObject(20, (* (( (ptr) gf←c18588)+12) ));
(* (ptr) var←c17884 ) = (word) (( (bPt) gf←c18588)+132)/* var←c17436 */ ;
(* (( (ptr) var←c17884)+1) ) = (word) (( (bPt) gf←c18588)+124)/* var←c17404 */ ;
(* (( (ptr) var←c17884)+2) ) = (word) (( (bPt) gf←c18588)+108)/* var←c17340 */ ;
(* (( (ptr) var←c17884)+3) ) = (word) (( (bPt) gf←c18588)+100)/* var←c17308 */ ;
(* (( (ptr) gf←c18588)+8)/* myHelpClass←v2832 */ ) = var←c17884;
};
}
static word AssignLabel←P60(md←v3484, label←v3512)
word md←v3484;
word label←v3512;
{
register ptr gf←c18620 = (ptr) &globalframe;
word previous←v3568;
/* AssignLabel: */
SOURCE(627, 133)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c18620)+16)/* LOCK←v2776 */ ));
SOURCE(627, 133)
previous←v3568 = 0;
SOURCE(722, 20)
previous←v3568 = (* (ptr) md←v3484 );
SOURCE(744, 16)
(* (ptr) md←v3484 ) = label←v3512;
SOURCE(627, 133)
(void) (XR←MonitorExit((word) (( (bPt) gf←c18620)+16)/* LOCK←v2776 */ ));
return(previous←v3568);
}
static word CreateHelpWithPopShell←P120(for←v3628)
word for←v3628;
{
register ptr gf←c18652 = (ptr) &globalframe;
word h←v3672;
/* CreateHelpWithPopShell: */
SOURCE(766, 199)
SOURCE(766, 199)
h←v3672 = 0;
SOURCE(856, 20)
h←v3672 = (word) MyCreateHandle←P240();
SOURCE(878, 87)
if ((for←v3628 != 0)) {
SOURCE(894, 71)
{
word pd25;
pd25 = (* (( (ptr) (* (( (ptr) gf←c18652)+72)/* var←c17916 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd25 ))))(for←v3628, (* (ptr) (* (( (ptr) (* (( (ptr) gf←c18652)+72)/* var←c17916 */ ))+22)
) ), (word) (( (bPt) gf←c18652)+148)/* var←c17500 */ , h←v3672, pd25);
};
};
SOURCE(766, 199)
return(h←v3672);
}
static void ParentDestroyed←P180(widget←v9408, registerData←v9436, callData←v9464, event←v9492)
word widget←v9408;
word registerData←v9436;
word callData←v9464;
word event←v9492;
{
register ptr gf←c18684 = (ptr) &globalframe;
word h←v4444;
/* ParentDestroyed: */
SOURCE(971, 158)
SOURCE(1013, 44)
h←v4444 = XR←Narrow(registerData←v9436, (* (( (ptr) gf←c18684)+14) ));
SOURCE(1059, 70)
{
word var←c17948;
var←c17948 = (* (( (ptr) h←v4444)+1) );
if ((var←c17948 == 0)) {
goto lab←L100000;
};
if (((* (( (ptr) gf←c18684)+15) ) == XR←GetReferentType(var←c17948))) {
{
word md←v4488;
md←v4488 = var←c17948;
SOURCE(1101, 28)
{
word var←c17980;
var←c17980 = (word) AssignLabel←P60(md←v4488, 0);
(void) Remove←P600(var←c17980);
};
};
}
else {
lab←L100000: ;
};
};
}
static word MyCreateHandle←P240()
{
register ptr gf←c18716 = (ptr) &globalframe;
word h←v3732;
word md←v4544;
/* MyCreateHandle: */
SOURCE(1149, 154)
SOURCE(1149, 154)
h←v3732 = 0;
SOURCE(1215, 33)
md←v4544 = XR←NewObject(24, (* (( (ptr) gf←c18716)+15) ));
SOURCE(1250, 53)
{
word var←c18044;
var←c18044 = XR←NewObject(8, (* (( (ptr) gf←c18716)+14) ));
(* (ptr) var←c18044 ) = (* (( (ptr) gf←c18716)+8)/* myHelpClass←v2832 */ );
(* (( (ptr) var←c18044)+1) ) = md←v4544;
h←v3732 = var←c18044;
};
SOURCE(1149, 154)
return(h←v3732);
}
static void MyDisplay←P300(h←v3792, string←v3820, key←v3848)
word h←v3792;
word string←v3820;
word key←v3848;
{
register ptr gf←c18748 = (ptr) &globalframe;
/* MyDisplay: */
SOURCE(1307, 656)
SOURCE(1380, 583)
{
word var←c18076;
var←c18076 = (* (( (ptr) h←v3792)+1) );
if ((var←c18076 == 0)) {
goto lab←L100001;
};
if (((* (( (ptr) gf←c18748)+15) ) == XR←GetReferentType(var←c18076))) {
{
word md←v4600;
md←v4600 = var←c18076;
SOURCE(1422, 543)
{
word previousText←v4656;
word label←v4684 = 0;
SOURCE(1424, 33)
previousText←v4656 = (* (( (ptr) md←v4600)+4) );
SOURCE(1478, 70)
{
word var←c18108;
var←c18108 = string←v3820;
if ((var←c18108 == 0)) {
goto lab←L100002;
};
{
word tc26;
if (((* (( (ptr) gf←c18748)+9) ) == XR←GetReferentType(var←c18108))) {
tc26 = (word) ( (unsigned) (*(int*)var←c18108<0) == 0);
}
else {
tc26 = (word) 0;
};
if (tc26) {
{
word r←v4728;
r←v4728 = var←c18108;
SOURCE(1518, 11)
(* (( (ptr) md←v4600)+4) ) = r←v4728;
};
}
else {
lab←L100002: ;
SOURCE(1542, 6)
return;
};
};
};
SOURCE(1550, 18)
(* (( (ptr) md←v4600)+3) ) = string←v3820;
SOURCE(1570, 12)
(* (( (ptr) md←v4600)+5) ) = key←v3848;
SOURCE(1584, 170)
if ( ( (0 != (* (( (ptr) md←v4600)+1) )) ? ( ((* (ptr) md←v4600 ) == 0) ? 1 : ((* (( (ptr) (* (ptr) md←v4600 ))+38) ) != 0) ) : 0 ) ) {
SOURCE(1663, 30)
(* (( (ptr) md←v4600)+1) ) = 0;
SOURCE(1695, 18)
previousText←v4656 = 0;
SOURCE(1715, 39)
{
word pd27;
pd27 = (* (( (ptr) (* (( (ptr) gf←c18748)+73)/* var←c18140 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd27 ))))(0, (word) (( (bPt) gf←c18748)+116)/* var←c17372 */ , h←v3792, 2, pd27);
};
};
SOURCE(1841, 16)
label←v4684 = (* (ptr) md←v4600 );
SOURCE(1859, 104)
{
word tc28;
word pd29;
if ((label←v4684 != 0)) {
pd29 = (* (( (ptr) (* (( (ptr) gf←c18748)+74)/* var←c18172 */ ))+8) );
tc28 = (word) (0 == (word) ( *( (fPt) ((* (ptr) pd29 ))))(previousText←v4656, (* (( (ptr) md←v4600)+4) ), 1, pd29));
}
else {
tc28 = (word) 0;
};
if (tc28) {
SOURCE(1917, 46)
{
word pd30;
pd30 = (* (( (ptr) (* (( (ptr) gf←c18748)+75)/* var←c18204 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd30 ))))(label←v4684, (* (( (ptr) md←v4600)+4) ), 2, pd30);
};
};
};
};
};
}
else {
lab←L100001: ;
};
};
}
static void MyClear←P360(h←v3932, string←v3960, key←v3988)
word h←v3932;
word string←v3960;
word key←v3988;
{
register ptr gf←c18780 = (ptr) &globalframe;
/* MyClear: */
SOURCE(1986, 262)
SOURCE(2057, 191)
{
word var←c18236;
var←c18236 = (* (( (ptr) h←v3932)+1) );
if ((var←c18236 == 0)) {
goto lab←L100003;
};
if (((* (( (ptr) gf←c18780)+15) ) == XR←GetReferentType(var←c18236))) {
{
word md←v4772;
md←v4772 = var←c18236;
SOURCE(2101, 147)
if (((* (( (ptr) md←v4772)+3) ) == string←v3960) || ((* (( (ptr) md←v4772)+5) ) == key←v3988)) {
SOURCE(2140, 110)
{
word label←v4828;
SOURCE(2142, 28)
label←v4828 = (* (ptr) md←v4772 );
SOURCE(2172, 61)
if ((label←v4828 != 0)) {
SOURCE(2190, 43)
{
word pd31;
pd31 = (* (( (ptr) (* (( (ptr) gf←c18780)+75)/* var←c18204 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd31 ))))((* (ptr) md←v4772 ), (* (( (ptr) gf←c18780)+20) ), 1, pd31);
};
};
SOURCE(2235, 13)
(* (( (ptr) md←v4772)+4) ) = 0;
};
};
};
}
else {
lab←L100003: ;
};
};
}
static void ForkedCreate←P420(x←v4072)
word x←v4072;
{
W9 var←c18812;
register ptr gf←c18844 = (ptr) &globalframe;
/* declaration of h←v4872 skipped */
/* ForkedCreate: */
SOURCE(2274, 760)
SOURCE(2306, 33)
(* (( (ptr) &var←c18812)+4)/* h←v4872 */ ) = XR←Narrow(x←v4072, (* (( (ptr) gf←c18844)+14) ));
SOURCE(2341, 693)
{
word var←c18268;
var←c18268 = (* (( (ptr) (* (( (ptr) &var←c18812)+4)/* h←v4872 */ ))+1) );
if ((var←c18268 == 0)) {
goto lab←L100004;
};
if (((* (( (ptr) gf←c18844)+15) ) == XR←GetReferentType(var←c18268))) {
{
/* declaration of md←v4916 skipped */
(* (( (ptr) &var←c18812)+5)/* md←v4916 */ ) = var←c18268;
SOURCE(2383, 653)
{
/* declaration of connection←v4972 skipped */
/* declaration of label←v5000 skipped */
/* declaration of shell←v5028 skipped */
word old←v5056;
SOURCE(2385, 19)
(* (( (ptr) &var←c18812)+6)/* connection←v4972 */ ) = 0;
SOURCE(2406, 94)
{
word pd32;
pd32 = (* (( (ptr) (* (( (ptr) gf←c18844)+75)/* var←c18204 */ ))+4) );
(* (( (ptr) &var←c18812)+7)/* label←v5000 */ ) = (word) ( *( (fPt) ((* (ptr) pd32 ))))((* (W9Pt) (( (ptr) gf←c18844)+45)
/* var←c17660 */ ), (* (( (ptr) gf←c18844)+20) ), (* (W4Pt) (( (ptr) gf←c18844)+54)/* var←c17724 */ ), pd32);
};
SOURCE(2502, 123)
{
W20 var←c071;
(* (W9Pt) (word) &var←c071 ) = (* (W9Pt) (( (ptr) gf←c18844)+58)/* var←c17788 */ );
(* (( (ptr) (word) &var←c071) + 9) ) = (* (( (ptr) &var←c18812)+7)/* label←v5000 */ );
(* (( (ptr) (word) &var←c071) + 10) ) = (* (( (ptr) gf←c18844)+19) );
(* (( (ptr) (word) &var←c071) + 11) ) = 0;
(* (( (ptr) (word) &var←c071) + 12) ) = (* (( (ptr) gf←c18844)+18) );
(* (( (ptr) (word) &var←c071) + 13) ) = 0;
(* (( (ptr) (word) &var←c071) + 14) ) = 0;
(* (( (ptr) (word) &var←c071) + 15) ) = 0;
(* (( (ptr) (word) &var←c071) + 16) ) = 0;
(* (( (ptr) (word) &var←c071) + 17) ) = 1;
(* (( (ptr) (word) &var←c071) + 18) ) = 0;
(* (( (ptr) (word) &var←c071) + 19) ) = 1;
{
word pd33;
pd33 = (* (( (ptr) (* (( (ptr) gf←c18844)+76)/* var←c18300 */ ))+5) );
(* (( (ptr) &var←c18812)+8)/* shell←v5028 */ ) = (word) ( *( (fPt) ((* (ptr) pd33 ))))((word) (&var←c071), pd33);
};
};
SOURCE(2627, 40)
old←v5056 = (word) AssignLabel←P60((* (( (ptr) &var←c18812)+5)/* md←v4916 */ ), (* (( (ptr) &var←c18812)+7)/* label←v5000 */ ))
;
SOURCE(2669, 349)
SOURCE(2675, 323)
{
word var←c01;
{
word var←c0108;
var←c0108 = (word) &var←c18812;
var←c01 = (word) XR←Enable(( ((word) (fPt) NoName←Q1368) ), ( ((word) (fPt) NoName←Q1428) ), var←c0108);
};
if ((var←c01 == 2)) {
goto lab←L100005;
};
};
goto lab←L100009;
lab←L100005: ;
lab←L100009: ;
SOURCE(3023, 11)
(void) Remove←P600(old←v5056);
};
};
}
else {
lab←L100004: ;
};
};
}
static word NoName←Q1368(formal←c0103)
word formal←c0103;
{
register ptr gf←c0102 = (ptr) &globalframe;
SOURCE(2705, 34)
{
word pd34;
pd34 = (* (( (ptr) (* (( (ptr) gf←c0102)+77)/* var←c18332 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd34 ))))((* (( (ptr) formal←c0103)+8) ), (* (( (ptr) formal←c0103)+4) ), pd34);
};
SOURCE(2741, 100)
{
word var←c18364;
var←c18364 = (* (( (ptr) (* (( (ptr) formal←c0103)+5) ))+2) );
if ((var←c18364 == 0)) {
goto lab←L100008;
};
if (((* (( (ptr) gf←c0102)+11) ) == XR←GetReferentType(var←c18364))) {
{
word w←v5112;
w←v5112 = var←c18364;
SOURCE(2783, 25)
(* (( (ptr) formal←c0103)+6) ) = (* (( (ptr) w←v5112)+34) );
};
}
else {
lab←L100008: ;
SOURCE(2821, 20)
(* (( (ptr) formal←c0103)+6) ) = (* (( (ptr) (* (( (ptr) formal←c0103)+5) ))+2) );
};
};
SOURCE(2844, 69)
{
word pd35;
pd35 = (* (( (ptr) (* (( (ptr) gf←c0102)+76)/* var←c18300 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd35 ))))((* (( (ptr) formal←c0103)+8) ), (* (( (ptr) formal←c0103)+6) ), 0, pd35);
};
SOURCE(2915, 46)
{
word pd36;
pd36 = (* (( (ptr) (* (( (ptr) gf←c0102)+75)/* var←c18204 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd36 ))))((* (( (ptr) formal←c0103)+7) ), (* (( (ptr) (* (( (ptr) formal←c0103)+5) ))+4) ), 2, pd36)
;
};
SOURCE(2963, 35)
{
word pd37;
pd37 = (* (( (ptr) (* (( (ptr) gf←c0102)+76)/* var←c18300 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd37 ))))((* (( (ptr) formal←c0103)+8) ), (* (W5Pt) (( (ptr) gf←c0102)+67)/* var←c17852 */ ), 0, 1, pd37)
;
};
return(0);
}
static void MakeVisible←P480(h←v4144, data←v4172)
word h←v4144;
word data←v4172;
{
register ptr gf←c18876 = (ptr) &globalframe;
/* MakeVisible: */
SOURCE(3058, 146)
SOURCE(3115, 89)
{
word var←c18396;
var←c18396 = (* (( (ptr) h←v4144)+1) );
if ((var←c18396 == 0)) {
goto lab←L100010;
};
if (((* (( (ptr) gf←c18876)+15) ) == XR←GetReferentType(var←c18396))) {
{
word md←v5156;
md←v5156 = var←c18396;
SOURCE(3159, 14)
(* (( (ptr) md←v5156)+2) ) = data←v4172;
SOURCE(3175, 29)
(* (( (ptr) md←v5156)+1) ) = 1;
};
}
else {
lab←L100010: ;
};
};
}
static void NoVisible←P540(h←v4244, data←v4272)
word h←v4244;
word data←v4272;
{
register ptr gf←c18908 = (ptr) &globalframe;
/* NoVisible: */
SOURCE(3227, 159)
SOURCE(3282, 104)
{
word var←c18428;
var←c18428 = (* (( (ptr) h←v4244)+1) );
if ((var←c18428 == 0)) {
goto lab←L100011;
};
if (((* (( (ptr) gf←c18908)+15) ) == XR←GetReferentType(var←c18428))) {
{
word md←v5212;
md←v5212 = var←c18428;
SOURCE(3326, 30)
(* (( (ptr) md←v5212)+1) ) = 0;
SOURCE(3358, 28)
{
word var←c18460;
var←c18460 = (word) AssignLabel←P60(md←v5212, 0);
(void) Remove←P600(var←c18460);
};
};
}
else {
lab←L100011: ;
};
};
}
static void Remove←P600(old←v4344)
word old←v4344;
{
register ptr gf←c18940 = (ptr) &globalframe;
/* Remove: */
SOURCE(3409, 93)
SOURCE(3444, 58)
if ((old←v4344 != 0)) {
SOURCE(3460, 42)
{
word pd38;
pd38 = (* (( (ptr) (* (( (ptr) gf←c18940)+73)/* var←c18140 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd38 ))))(0, (word) (( (bPt) gf←c18940)+84)/* var←c17244 */ , old←v4344, 2, pd38);
};
};
}
static void ForkedDestroy←P660(x←v4404)
word x←v4404;
{
register ptr gf←c18972 = (ptr) &globalframe;
word shell←v5268;
/* ForkedDestroy: */
SOURCE(3508, 169)
SOURCE(3541, 45)
{
word var←c18492;
var←c18492 = XR←Narrow(x←v4404, (* (( (ptr) gf←c18972)+11) ));
{
word pd39;
pd39 = (* (( (ptr) (* (( (ptr) gf←c18972)+72)/* var←c17916 */ ))+33) );
shell←v5268 = (word) ( *( (fPt) ((* (ptr) pd39 ))))(var←c18492, pd39);
};
};
SOURCE(3588, 89)
{
word tc40;
word pd41;
if ((shell←v5268 != 0)) {
pd41 = (* (( (ptr) (* (( (ptr) gf←c18972)+76)/* var←c18300 */ ))+4) );
tc40 = (word) (0 != (word) ( *( (fPt) ((* (ptr) pd41 ))))(shell←v5268, pd41));
}
else {
tc40 = (word) 0;
};
if (tc40) {
SOURCE(3642, 35)
{
word pd42;
pd42 = (* (( (ptr) (* (( (ptr) gf←c18972)+76)/* var←c18300 */ ))+14) );
(void) ( *( (fPt) ((* (ptr) pd42 ))))(shell←v5268, pd42);
};
};
};
}
static void NoName←Q1428(formal←c092, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c092;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
if ((formal←c200001 == XR←Uncaught)) {
SOURCE(2694, 9)
(* (ptr) formal←c092 ) = 2;
(* (( (ptr) formal←c092)+1) ) = 2;
return;
};
(* (ptr) formal←c092 ) = 0;
(* (( (ptr) formal←c092)+1) ) = 0;
return;
}
/* file: XTkHelpShellsImpl, module: XTkHelpShellsImpl, compiled at: April 19, 1993 10:40:53 am PDT */
extern void XR←install←XTkHelpShellsImpl() {
NoName←Q1308();
}
extern void XR←run←XTkHelpShellsImpl() { XR←Start(&globalframe); }