/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: April 27, 1992 11:44:32 am PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XTkBlinkerImpl, module: XTkBlinkerImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [1102955933,146885219] XTkBlinkerImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W5 *W5Pt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {W8 f; W8 r;} W16;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W16 f; W3 r;} W19;
typedef struct {W8 f; W7 r;} W15;
typedef W15 *W15Pt;
typedef W3 *W3Pt;
#define SOURCE(p, l) /* source p, l */
static void NoName←Q1152();
static void XTkBlinkerImpl←P0();
static void IgnoreErrors←P60();
static word NewBlinkerClass←P120();
static void InstallBlinker←P180();
static void WindowCreated←P240();
static void BlinkerSetPos←P300();
static void BlinkerOn←P360();
static void ChangeBlinkerSpeed←P420();
static void DoBlinking←P480();
static void MakeVisible←P924();
static void MakeInvisible←P984();
static void CreateWindow←P540();
static void Assign←P1044();
static void BlinkerOff←P600();
static word GetBlinker←P660();
static void Check←P720();
static word NoName←Q1212();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\105\154\000\000"};
static struct {unsigned f; char r[4];} string2 = {196611, "\004A\330"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\107\320\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\004\016\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\067\364\334\343\300\133\256\014\325\100\164\000\000"};
static struct {unsigned f; char r[4];} string6 = {131074, "\003\002\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\101\275\305\235\300\010\301\112\143\100\200\000\000"};
static struct {unsigned f; char r[4];} string8 = {196611, "\004@C"};
static struct {unsigned f; char r[4];} string9 = {65540, "\242\000\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\101\275\305\235\300\010\301\112\143\100\214\000\000"};
static struct {unsigned f; char r[4];} string11 = {196611, "\004A\001"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\101\275\305\235\300\010\301\112\143\100\164\000\000"};
static struct {unsigned f; char r[4];} string13 = {131074, "\003\010\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\240\236\274\315\300\111\163\325\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\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\067\364\334\343\300\133\256\014\325\100\150\000\000"};
static struct {
word f0[20]; 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; word f38;
word f39; word f40; word f41; word f42;
word f43; word f44; word f45; word f46;
word f47; word f48; word f49; word f50;
word f51; word f52; word f53; word f54;
word f55; word f56; word f57[2]; word f59;
word f60; word f61[4];
} globalframe = {
{0}, (word) Check←P720, 0, (word) GetBlinker←P660,
0, (word) BlinkerOff←P600, 0, (word) CreateWindow←P540,
0, (word) DoBlinking←P480, 0, (word) ChangeBlinkerSpeed←P420,
0, (word) BlinkerOn←P360, 0, (word) BlinkerSetPos←P300,
0, (word) WindowCreated←P240, 0, (word) InstallBlinker←P180,
0, (word) NewBlinkerClass←P120, 0, (word) IgnoreErrors←P60,
0, (word) XTkBlinkerImpl←P0, 0, 4294967295,
4294967295, 4294967295, 4294967295, 11,
11, 3, 4294967295, 4294967295,
1, 1, {0}, 4294967295,
4294967295, {0}
};
static void NoName←Q1152()
{
register ptr gf←c0102 = (ptr) &globalframe;
word var←c13724;
(* (( (ptr) gf←c0102)+9) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0102)+10) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (( (ptr) gf←c0102)+16) ) = (word) XR←GetTypeIndex((word) &string5, 0, (word) &string6);
(* (( (ptr) gf←c0102)+17) ) = (word) XR←GetTypeIndex((word) &string7, 0, (word) &string8);
(* (( (ptr) gf←c0102)+18) ) = (word) XR←GetTypeIndexS((word) (&string9));
(* (( (ptr) gf←c0102)+19) ) = (word) XR←GetTypeIndex((word) &string10, 0, (word) &string11);
(void) XR←DeclareGlobalFrame((word) "XTkBlinkerImpl", &globalframe, (word) XR←GetTypeIndex((word) &string12, 0, (word) &string13)
, (word) (( (bPt) gf←c0102)+176)/* var←c13084 */ );
var←c13724 = (word) XR←ImportInterface((word) "Process", (word) XR←GetTypeIndexS((word) (&string14)), 22);
(* (( (ptr) gf←c0102)+61)/* var←c13308 */ ) = var←c13724;
(void) XR←ImportProcS(var←c13724, 266497);
(void) XR←ImportProcS(var←c13724, 526081);
(void) XR←ImportProcS(var←c13724, 67371521);
var←c13724 = (word) XR←ImportInterface((word) "Xl", (word) XR←GetTypeIndexS((word) (&string15)), 218);
(* (( (ptr) gf←c0102)+63)/* var←c13468 */ ) = var←c13724;
(void) XR←ImportProcS(var←c13724, 806147);
(void) XR←ImportProcS(var←c13724, 805635);
(void) XR←ImportProcS(var←c13724, 2641670);
var←c13724 = (word) XR←ImportInterface((word) "XTk", (word) XR←GetTypeIndexS((word) (&string16)), 50);
(* (( (ptr) gf←c0102)+62)/* var←c13436 */ ) = var←c13724;
(void) XR←ImportProcS(var←c13724, 67634690);
(void) XR←ImportProcS(var←c13724, 1050628);
(void) XR←ImportProcS(var←c13724, 788227);
var←c13724 = (word) XR←ExportInterface((word) "XTkBlinker", (word) XR←GetTypeIndexS((word) (&string17)), 6);
(* (( (ptr) gf←c0102)+64)/* var←c13756 */ ) = var←c13724;
(void) XR←ExportProcS(var←c13724, (word) (( (bPt) gf←c0102)+160)/* var←c13020 */ , 68419589);
(void) XR←ExportProcS(var←c13724, (word) (( (bPt) gf←c0102)+152)/* var←c12988 */ , 1048836);
(void) XR←ExportProcS(var←c13724, (word) (( (bPt) gf←c0102)+136)/* var←c12924 */ , 1049091);
(void) XR←ExportProcS(var←c13724, (word) (( (bPt) gf←c0102)+128)/* var←c12892 */ , 787203);
(void) XR←ExportProcS(var←c13724, (word) (( (bPt) gf←c0102)+96)/* var←c12764 */ , 525314);
(void) XR←ExportProcS(var←c13724, (word) (( (bPt) gf←c0102)+120)/* var←c12860 */ , 1049860);
}
static void XTkBlinkerImpl←P0(formal←c027, formal←c023)
word formal←c027;
word formal←c023;
{
register ptr gf←c13788 = (ptr) &globalframe;
/* XTkBlinkerImpl: */
SOURCE(42, 4615)
/* 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(587, 108)
{
word var←c13180;
word var←c13244;
{
word var←c13212;
var←c13212 = XR←NewObject(16, (* (( (ptr) gf←c13788)+10) ));
(* (ptr) var←c13212 ) = (word) (( (bPt) gf←c13788)+168)/* var←c13052 */ ;
var←c13180 = var←c13212;
};
var←c13244 = XR←NewObject(36, (* (( (ptr) gf←c13788)+9) ));
(* (( (ptr) var←c13244)+3) ) = var←c13180;
(* (( (ptr) var←c13244)+5) ) = 3;
(* (( (ptr) gf←c13788)+8)/* flush←v2692 */ ) = var←c13244;
};
}
static void IgnoreErrors←P60(event←v8492, clientData←v8520, tq←v8548)
word event←v8492;
word clientData←v8520;
word tq←v8548;
{
/* IgnoreErrors: */
}
static word NewBlinkerClass←P120(createProc←v3584, installProc←v3612, classData←v3640, onMsec←v3668, offMsec←v3696)
word createProc←v3584;
word installProc←v3612;
word classData←v3640;
word onMsec←v3668;
word offMsec←v3696;
{
register ptr gf←c13820 = (ptr) &globalframe;
word var←c3752;
word c←v4896;
/* NewBlinkerClass: */
SOURCE(735, 329)
SOURCE(916, 136)
{
word var←c13276;
word var←c13340;
word var←c13372;
{
word pd18;
pd18 = (* (( (ptr) (* (( (ptr) gf←c13820)+61)/* var←c13308 */ ))+6) );
var←c13276 = (word) ( *( (fPt) ((* (ptr) pd18 ))))(onMsec←v3668, pd18);
};
{
word pd19;
pd19 = (* (( (ptr) (* (( (ptr) gf←c13820)+61)/* var←c13308 */ ))+6) );
var←c13340 = (word) ( *( (fPt) ((* (ptr) pd19 ))))(offMsec←v3696, pd19);
};
var←c13372 = XR←NewObject(20, (* (( (ptr) gf←c13820)+16) ));
(* (ptr) var←c13372 ) = XR←CheckProc(createProc←v3584);
(* (( (ptr) var←c13372)+1) ) = XR←CheckProc(installProc←v3612);
(* (( (ptr) var←c13372)+2) ) = classData←v3640;
(* (( (ptr) var←c13372)+3) ) = var←c13276;
(* (( (ptr) var←c13372)+4) ) = var←c13340;
c←v4896 = var←c13372;
};
SOURCE(1054, 10)
return(c←v4896);
}
static void InstallBlinker←P180(w←v3812, key←v3840, blinkerClass←v3868, persistent←v3896)
word w←v3812;
word key←v3840;
word blinkerClass←v3868;
word persistent←v3896;
{
register ptr gf←c13852 = (ptr) &globalframe;
word bd←v4940;
/* InstallBlinker: */
SOURCE(1070, 451)
SOURCE(1182, 37)
bd←v4940 = XR←NewObject(36, (* (( (ptr) gf←c13852)+17) ));
(* (( (ptr) bd←v4940)+5) ) = (word) -1;
SOURCE(1221, 23)
(* (ptr) bd←v4940 ) = blinkerClass←v3868;
SOURCE(1246, 32)
(* (( (ptr) bd←v4940)+7) ) = (* (( (ptr) blinkerClass←v3868)+3) );
SOURCE(1280, 34)
(* (( (ptr) bd←v4940)+8) ) = (* (( (ptr) blinkerClass←v3868)+4) );
SOURCE(1316, 29)
{
word pd20;
pd20 = (* (( (ptr) (* (( (ptr) gf←c13852)+62)/* var←c13436 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd20 ))))(w←v3812, key←v3840, bd←v4940, pd20);
};
SOURCE(1347, 83)
if (((* (( (ptr) blinkerClass←v3868)+1) ) != 0)) {
SOURCE(1384, 46)
{
word pd21;
pd21 = (* (( (ptr) blinkerClass←v3868)+1) );
(void) ( *( (fPt) ((* (ptr) pd21 ))))(w←v3812, key←v3840, blinkerClass←v3868, pd21);
};
};
SOURCE(1432, 89)
if ((0 != persistent←v3896)) {
SOURCE(1451, 70)
{
word pd22;
pd22 = (* (( (ptr) (* (( (ptr) gf←c13852)+62)/* var←c13436 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd22 ))))(w←v3812, (* (ptr) (* (( (ptr) (* (( (ptr) gf←c13852)+62)/* var←c13436 */ ))+17) ) ), (word) (
( (bPt) gf←c13852)+144)/* var←c12956 */ , key←v3840, pd22);
};
};
}
static void WindowCreated←P240(widget←v8640, registerData←v8668, callData←v8696, event←v8724)
word widget←v8640;
word registerData←v8668;
word callData←v8696;
word event←v8724;
{
word b←v4984;
/* WindowCreated: */
SOURCE(1527, 152)
SOURCE(1567, 49)
b←v4984 = (word) GetBlinker←P660(widget←v8640, registerData←v8668);
SOURCE(1618, 61)
if ((0 != (* (( (ptr) b←v4984)+4) ))) {
SOURCE(1639, 40)
(void) BlinkerOn←P360(widget←v8640, registerData←v8668, (* (( (ptr) b←v4984)+5) ));
};
}
static void BlinkerSetPos←P300(w←v3968, key←v3996, pos←v4024)
word w←v3968;
word key←v3996;
W2 pos←v4024;
{
register ptr gf←c13884 = (ptr) &globalframe;
word b←v5028;
/* BlinkerSetPos: */
SOURCE(1685, 510)
SOURCE(1757, 35)
b←v5028 = (word) GetBlinker←P660(w←v3968, key←v3996);
SOURCE(1794, 401)
if ((b←v5028 != 0)) {
SOURCE(1809, 519)
{
word life←v5072;
SOURCE(1811, 28)
life←v5072 = (* (( (ptr) b←v5028)+1) );
SOURCE(1841, 11)
(* (W2Pt) (( (ptr) b←v5028)+2) ) = pos←v4024;
SOURCE(1854, 341)
if ((life←v5072 != 0)) {
SOURCE(1873, 322)
if ( ( ( ((* (( (ptr) w←v3968)+37) ) == 0) ? ((* (( (ptr) w←v3968)+34) ) == (* (ptr) life←v5072 )) : 0 ) ? ((* (( (ptr) w←v3968)+35)
) == (* (( (ptr) life←v5072)+1) )) : 0 ) ) {
SOURCE(1963, 359)
{
W5 geometry←v5128;
SOURCE(1965, 37)
geometry←v5128 = (* (W5Pt) (( (ptr) life←v5072)+3) );
SOURCE(2004, 37)
geometry←v5128.f0 = (geometry←v5128.f0 + pos←v4024.f0);
SOURCE(2043, 37)
geometry←v5128.f1 = (geometry←v5128.f1 + pos←v4024.f1);
SOURCE(2082, 113)
{
word pd23;
pd23 = (* (( (ptr) (* (( (ptr) gf←c13884)+63)/* var←c13468 */ ))+83) );
(void) ( *( (fPt) ((* (ptr) pd23 ))))((* (ptr) life←v5072 ), (* (( (ptr) life←v5072)+2) ), geometry←v5128, 0, 2, (* (( (ptr) gf←c13884)+8)
/* flush←v2692 */ ), pd23);
};
};
};
};
};
};
}
static void BlinkerOn←P360(w←v4096, key←v4124, count←v4152)
word w←v4096;
word key←v4124;
word count←v4152;
{
register ptr gf←c13916 = (ptr) &globalframe;
word b←v5172;
/* BlinkerOn: */
SOURCE(2335, 331)
SOURCE(2414, 35)
b←v5172 = (word) GetBlinker←P660(w←v4096, key←v4124);
SOURCE(2451, 215)
if ((b←v5172 != 0)) {
SOURCE(2467, 15)
(* (( (ptr) b←v5172)+5) ) = count←v4152;
SOURCE(2484, 19)
(* (( (ptr) b←v5172)+4) ) = 1;
SOURCE(2505, 37)
if (((* (( (ptr) b←v5172)+1) ) == 0)) {
SOURCE(2524, 18)
(void) CreateWindow←P540(w←v4096, b←v5172);
};
SOURCE(2544, 122)
if (((* (( (ptr) b←v5172)+1) ) != 0)) {
SOURCE(2563, 106)
{
word runKey←v5216;
SOURCE(2565, 26)
runKey←v5216 = XR←NewObject(4, (* (( (ptr) gf←c13916)+18) ));
SOURCE(2593, 17)
(* (( (ptr) b←v5172)+6) ) = runKey←v5216;
SOURCE(2620, 46)
SOURCE(2621, 45)
{
W2 var←c13500;
{
W2 var←c064;
word var←c063;
var←c063 = XR←ExtensionAlloc(7);
{
word tmpAddr24;
tmpAddr24 = (word) var←c063;
(* (ptr) tmpAddr24 ) = ( ((word) (fPt) NoName←Q1212) );
(* (( (ptr) tmpAddr24) + 1) ) = 0;
(* (( (ptr) tmpAddr24) + 2) ) = (word) (( (bPt) gf←c13916)+112)/* var←c12828 */ ;
(* (( (ptr) tmpAddr24) + 3) ) = 0;
(* (( (ptr) tmpAddr24) + 4) ) = b←v5172;
(* (( (ptr) tmpAddr24) + 5) ) = w←v4096;
(* (( (ptr) tmpAddr24) + 6) ) = runKey←v5216;
};
(void) XR←Fork((word) &var←c064, var←c063);
var←c13500 = var←c064;
};
{
word pd25;
pd25 = (* (( (ptr) (* (( (ptr) gf←c13916)+61)/* var←c13308 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd25 ))))(var←c13500, pd25);
};
};
};
};
};
}
static void ChangeBlinkerSpeed←P420(w←v4224, key←v4252, onMsec←v4280, offMsec←v4308)
word w←v4224;
word key←v4252;
word onMsec←v4280;
word offMsec←v4308;
{
register ptr gf←c13948 = (ptr) &globalframe;
word b←v5272;
/* ChangeBlinkerSpeed: */
SOURCE(2679, 236)
SOURCE(2780, 35)
b←v5272 = (word) GetBlinker←P660(w←v4224, key←v4252);
SOURCE(2817, 98)
if ((b←v5272 != 0)) {
SOURCE(2833, 39)
{
word pd26;
pd26 = (* (( (ptr) (* (( (ptr) gf←c13948)+61)/* var←c13308 */ ))+6) );
(* (( (ptr) b←v5272)+7) ) = (word) ( *( (fPt) ((* (ptr) pd26 ))))(onMsec←v4280, pd26);
};
SOURCE(2874, 41)
{
word pd27;
pd27 = (* (( (ptr) (* (( (ptr) gf←c13948)+61)/* var←c13308 */ ))+6) );
(* (( (ptr) b←v5272)+8) ) = (word) ( *( (fPt) ((* (ptr) pd27 ))))(offMsec←v4308, pd27);
};
};
}
static void DoBlinking←P480(b←v4380, parent←v4408, runKey←v4436)
word b←v4380;
word parent←v4408;
word runKey←v4436;
{
W8 var←c13980;
register ptr gf←c14012 = (ptr) &globalframe;
/* declaration of var←c13532 skipped */
/* declaration of var←c13564 skipped */
word life←v5372;
/* DoBlinking: */
SOURCE(2924, 655)
{
word tmpAddr28;
tmpAddr28 = (word) (( (ptr) &var←c13980)+4)/* var←c13532 */ ;
(* (ptr) tmpAddr28 ) = ( ((word) (fPt) MakeInvisible←P984) );
(* (( (ptr) tmpAddr28) + 1) ) = 1;
};
{
word tmpAddr29;
tmpAddr29 = (word) (( (ptr) &var←c13980)+6)/* var←c13564 */ ;
(* (ptr) tmpAddr29 ) = ( ((word) (fPt) MakeVisible←P924) );
(* (( (ptr) tmpAddr29) + 1) ) = 1;
};
SOURCE(3203, 27)
life←v5372 = (* (( (ptr) b←v4380)+1) );
SOURCE(3232, 23)
if ((life←v5372 == 0)) {
SOURCE(3249, 6)
return;
};
SOURCE(3257, 322)
lab←L100002: ;
if ( ( ( ((* (( (ptr) b←v4380)+6) ) == runKey←v4436) ? ((* (( (ptr) b←v4380)+1) ) == life←v5372) : 0 ) ? ((* (( (ptr) b←v4380)+5)
) > 0) : 0 ) ) {
}
else {
goto lab←L100000;
};
SOURCE(3312, 72)
if (((* (( (ptr) parent←v4408)+37) ) != 0) || ((* (( (ptr) parent←v4408)+35) ) != (* (( (ptr) life←v5372)+1) ))) {
SOURCE(3378, 6)
return;
};
SOURCE(3386, 17)
(void) MakeVisible←P924(life←v5372, (word) (( (bPt) &var←c13980)+24)/* var←c13564 */ );
SOURCE(3405, 24)
{
word pd30;
pd30 = (* (( (ptr) (* (( (ptr) gf←c14012)+61)/* var←c13308 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd30 ))))((* ((( (ptr) b←v4380)+7)) ), pd30);
};
SOURCE(3431, 74)
if (((* (( (ptr) parent←v4408)+37) ) != 0) || ((* (( (ptr) parent←v4408)+35) ) != (* (( (ptr) life←v5372)+1) ))) {
SOURCE(3499, 6)
return;
};
SOURCE(3510, 19)
(void) MakeInvisible←P984(life←v5372, (word) (( (bPt) &var←c13980)+16)/* var←c13532 */ );
SOURCE(3531, 25)
{
word pd31;
pd31 = (* (( (ptr) (* (( (ptr) gf←c14012)+61)/* var←c13308 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd31 ))))((* ((( (ptr) b←v4380)+8)) ), pd31);
};
SOURCE(3558, 21)
(* (( (ptr) b←v4380)+5) ) = ((* (( (ptr) b←v4380)+5) ) - 1);
goto lab←L100002;
lab←L100000: ;
}
static void MakeVisible←P924(l←v5448, formal←c14076)
word l←v5448;
word formal←c14076;
{
register ptr gf←c14044 = (ptr) &globalframe;
formal←c14076 = (formal←c14076 - 24);
/* MakeVisible: */
SOURCE(2995, 97)
SOURCE(3035, 57)
if ((l←v5448 != 0)) {
SOURCE(3049, 43)
{
word pd32;
pd32 = (* (( (ptr) (* (( (ptr) gf←c14044)+63)/* var←c13468 */ ))+79) );
(void) ( *( (fPt) ((* (ptr) pd32 ))))((* (ptr) l←v5448 ), (* (( (ptr) l←v5448)+2) ), (* (( (ptr) gf←c14044)+8)/* flush←v2692 */ ), pd32)
;
};
};
}
static void MakeInvisible←P984(l←v5520, formal←c14140)
word l←v5520;
word formal←c14140;
{
register ptr gf←c14108 = (ptr) &globalframe;
formal←c14140 = (formal←c14140 - 16);
/* MakeInvisible: */
SOURCE(3097, 101)
SOURCE(3139, 59)
if ((l←v5520 != 0)) {
SOURCE(3153, 45)
{
word pd33;
pd33 = (* (( (ptr) (* (( (ptr) gf←c14108)+63)/* var←c13468 */ ))+81) );
(void) ( *( (fPt) ((* (ptr) pd33 ))))((* (ptr) l←v5520 ), (* (( (ptr) l←v5520)+2) ), (* (( (ptr) gf←c14108)+8)/* flush←v2692 */ ), pd33)
;
};
};
}
static void CreateWindow←P540(parent←v4508, b←v4536)
word parent←v4508;
word b←v4536;
{
W6 var←c14172;
register ptr gf←c14204 = (ptr) &globalframe;
/* declaration of var←c13596 skipped */
word life←v5600;
/* CreateWindow: */
SOURCE(3593, 530)
{
word tmpAddr34;
tmpAddr34 = (word) (( (ptr) &var←c14172)+4)/* var←c13596 */ ;
(* (ptr) tmpAddr34 ) = ( ((word) (fPt) Assign←P1044) );
(* (( (ptr) tmpAddr34) + 1) ) = 1;
};
SOURCE(3827, 34)
life←v5600 = XR←NewObject(40, (* (( (ptr) gf←c14204)+19) ));
(* (( (ptr) life←v5600)+3) ) = 2147483648;
(* (( (ptr) life←v5600)+4) ) = 2147483648;
(* (( (ptr) life←v5600)+5) ) = 2147483648;
(* (( (ptr) life←v5600)+6) ) = 2147483648;
(* (( (ptr) life←v5600)+7) ) = 2147483648;
SOURCE(3863, 28)
(* (( (ptr) life←v5600)+1) ) = (* (( (ptr) parent←v4508)+35) );
SOURCE(3893, 35)
(* (ptr) life←v5600 ) = (* (( (ptr) parent←v4508)+34) );
SOURCE(3930, 168)
{
W7 var←c13660;
{
W19 var←c086;
(* (ptr) (word) &var←c086 ) = (* (ptr) b←v4536 );
(* (( (ptr) (word) &var←c086) + 1) ) = parent←v4508;
(* (W15Pt) (( (ptr) (word) &var←c086) + 2) ) = (* (W15Pt) (( (ptr) gf←c14204)+46)/* var←c13148 */ );
(* (W2Pt) (( (ptr) (word) &var←c086) + 17) ) = (* (W2Pt) (( (ptr) b←v4536)+2) );
{
word pd35;
pd35 = (* (ptr) (* (ptr) b←v4536 ) );
(void) ( *( (fPt) ((* (ptr) pd35 ))))((word) &var←c13660, (word) &var←c086, pd35);
};
};
(* (( (ptr) life←v5600)+8) ) = var←c13660.f6;
(* (W5Pt) (( (ptr) life←v5600)+3) ) = (* (W5Pt) (( (ptr) &var←c13660)+1) );
(* (( (ptr) life←v5600)+2) ) = var←c13660.f0;
};
SOURCE(4100, 23)
(void) Assign←P1044(b←v4536, parent←v4508, life←v5600, (word) (( (bPt) &var←c14172)+16)/* var←c13596 */ );
}
static void Assign←P1044(b←v5676, parent←v5704, life←v5732, formal←c14268)
word b←v5676;
word parent←v5704;
word life←v5732;
word formal←c14268;
{
register ptr gf←c14236 = (ptr) &globalframe;
formal←c14268 = (formal←c14268 - 16);
/* Assign: */
SOURCE(3653, 168)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c14236)+16)/* LOCK←v2580 */ ));
SOURCE(3732, 89)
if ( ( ((* (( (ptr) life←v5732)+1) ) == (* (( (ptr) parent←v5704)+35) )) ? ((* (ptr) life←v5732 ) == (* (( (ptr) parent←v5704)+34)
)) : 0 ) ) {
SOURCE(3807, 14)
(* (( (ptr) b←v5676)+1) ) = life←v5732;
};
SOURCE(3653, 168)
(void) (XR←MonitorExit((word) (( (bPt) gf←c14236)+16)/* LOCK←v2580 */ ));
return;
}
static void BlinkerOff←P600(w←v4596, key←v4624)
word w←v4596;
word key←v4624;
{
word b←v5784;
/* BlinkerOff: */
SOURCE(4129, 143)
SOURCE(4183, 35)
b←v5784 = (word) GetBlinker←P660(w←v4596, key←v4624);
SOURCE(4220, 52)
if ((b←v5784 != 0)) {
SOURCE(4236, 20)
(* (( (ptr) b←v5784)+4) ) = 0;
SOURCE(4258, 14)
(* (( (ptr) b←v5784)+6) ) = 0;
};
}
static word GetBlinker←P660(w←v4696, key←v4724)
word w←v4696;
word key←v4724;
{
register ptr gf←c14300 = (ptr) &globalframe;
word var←c4780;
/* GetBlinker: */
SOURCE(4280, 158)
SOURCE(4280, 158)
var←c4780 = 0;
SOURCE(4353, 85)
{
word var←c13692;
{
word pd36;
pd36 = (* (( (ptr) (* (( (ptr) gf←c14300)+62)/* var←c13436 */ ))+10) );
var←c13692 = (word) ( *( (fPt) ((* (ptr) pd36 ))))(w←v4696, key←v4724, pd36);
};
if ((var←c13692 == 0)) {
goto lab←L100003;
};
if (((* (( (ptr) gf←c14300)+17) ) == XR←GetReferentType(var←c13692))) {
{
word b←v5828;
b←v5828 = var←c13692;
SOURCE(4415, 11)
(void) Check←P720(w←v4696, b←v5828);
SOURCE(4428, 10)
return(b←v5828);
};
}
else {
lab←L100003: ;
};
};
SOURCE(4280, 158)
return(var←c4780);
}
static void Check←P720(w←v4840, b←v4868)
word w←v4840;
word b←v4868;
{
word life←v5872;
/* Check: */
SOURCE(4460, 197)
SOURCE(4508, 27)
life←v5872 = (* (( (ptr) b←v4868)+1) );
SOURCE(4537, 120)
if ((life←v5872 != 0)) {
SOURCE(4556, 101)
if ((((* (( (ptr) w←v4840)+37) ) != 0) || ((* (( (ptr) w←v4840)+34) ) != (* (ptr) life←v5872 ))) || ((* (( (ptr) w←v4840)+35)
) != (* (( (ptr) life←v5872)+1) ))) {
SOURCE(4644, 13)
(* (( (ptr) b←v4868)+1) ) = 0;
};
};
}
static word NoName←Q1212(formal←c065)
word formal←c065;
{
W3 var←c067;
word var←c066;
/* intermediary proc for a FORK, nArgs: 3, nRets: 0 */
var←c067 = (* (W3Pt) (( (ptr) formal←c065)+4) );
var←c066 = (* (( (ptr) formal←c065)+2) );
formal←c065 = XR←ExtensionFree(formal←c065);
(void) ( *( (fPt) ((* (ptr) var←c066 ))))(var←c067.f0, var←c067.f1, var←c067.f2, var←c066);
return(0);
}
/* file: XTkBlinkerImpl, module: XTkBlinkerImpl, compiled at: April 27, 1992 11:44:30 am PDT */
extern void XR←install←XTkBlinkerImpl() {
NoName←Q1152();
}
extern void XR←run←XTkBlinkerImpl() { XR←Start(&globalframe); }