/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: April 21, 1992 2:58:39 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XlImplSpecialMonitor, module: XlImplSpecialMonitor */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [3270525903,4026492274] XlImplSpecialMonitor";
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;} W7;
typedef struct {word f0, f1;} W2;
#define SOURCE(p, l) /* source p, l */
static void NoName←Q780();
static void XlImplSpecialMonitor←P0();
static word PutEventProp←P60();
static word GetEventProp←P120();
static void PutConnectionProp←P180();
static word GetConnectionProp←P240();
static word GetConnectionPropAndInit←P300();
static word WrapInit←P720();
static void PutScreenProp←P360();
static word GetScreenProp←P420();
static void PutScreenDepthProp←P480();
static word GetScreenDepthProp←P540();
static void PutVisualTypeProp←P600();
static word GetVisualTypeProp←P660();
static struct {unsigned f; char r[4];} string1 = {65540, "\251\000\000"};
static struct {unsigned f; char r[4];} string2 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string3 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\126\304\000\000"};
static struct {unsigned f; char r[60];} string5 = {3735609, "\006\023\040\001\070\001\100\100\001\100\104\001\100\110\001\100\140\001\100\144\001\100\150\001\100\154\001\100\160\001\100\164\001\100\170\001\100\174\001\100\200\001\100\224\001\100\234\001\100\240\001\100\244\001\100\250\001\000\000"};
static struct {unsigned f; char r[4];} string6 = {65540, "x\000\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\302\360\103\317\300\357\377\145\162\100\164\000\000"};
static struct {unsigned f; char r[4];} string8 = {131074, "\003\014\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\256\042\060\232\300\060\151\325\207\100\150\000\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\325\254\237\140\300\010\077\265\175\100\150\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300M2J\336\300Gu\3743@h\000\000"};
static struct {
word f0[13]; word f13; word f14; word f15;
word f16; word f17; word f18; 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[4];
} globalframe = {
{0}, (word) GetVisualTypeProp←P660, 0, (word) PutVisualTypeProp←P600,
0, (word) GetScreenDepthProp←P540, 0, (word) PutScreenDepthProp←P480,
0, (word) GetScreenProp←P420, 0, (word) PutScreenProp←P360,
0, (word) GetConnectionPropAndInit←P300, 0, (word) GetConnectionProp←P240,
0, (word) PutConnectionProp←P180, 0, (word) GetEventProp←P120,
0, (word) PutEventProp←P60, 0, (word) XlImplSpecialMonitor←P0,
{0}
};
static void NoName←Q780()
{
register ptr gf←c069 = (ptr) &globalframe;
word var←c11112;
(* (( (ptr) gf←c069)+8) ) = (word) XR←GetTypeIndexS((word) (&string1));
(* (( (ptr) gf←c069)+9) ) = (word) XR←GetTypeIndex((word) &string2, 0, (word) &string3);
(* (( (ptr) gf←c069)+11) ) = (word) XR←GetTypeIndex((word) &string4, 0, (word) &string5);
(* (ptr) (( (bPt) gf←c069)+48) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c069)+9) ), (word) &string6);
(void) XR←DeclareGlobalFrame((word) "XlImplSpecialMonitor", &globalframe, (word) XR←GetTypeIndex((word) &string7, 0, (word) &string8)
, (word) (( (bPt) gf←c069)+140)/* var←c10632 */ );
var←c11112 = (word) XR←ImportInterface((word) "PropList", (word) XR←GetTypeIndexS((word) (&string9)), 13);
(* (( (ptr) gf←c069)+38)/* var←c10760 */ ) = var←c11112;
(void) XR←ImportProcS(var←c11112, 135268612);
(void) XR←ImportProcS(var←c11112, 67634434);
(void) XR←ImportProcS(var←c11112, 67896835);
var←c11112 = (word) XR←ImportInterface((word) "UnsafePropList", (word) XR←GetTypeIndexS((word) (&string10)), 9);
(* (( (ptr) gf←c069)+37)/* var←c10696 */ ) = var←c11112;
(void) XR←ImportProcS(var←c11112, 67633154);
(void) XR←ImportProcS(var←c11112, 67895555);
var←c11112 = (word) XR←ExportInterface((word) "Xl", (word) XR←GetTypeIndexS((word) (&string11)), 218);
(* (( (ptr) gf←c069)+39)/* var←c11144 */ ) = var←c11112;
(void) XR←ExportProcS(var←c11112, (word) (( (bPt) gf←c069)+116)/* var←c10536 */ , 792323);
(void) XR←ExportProcS(var←c11112, (word) (( (bPt) gf←c069)+108)/* var←c10504 */ , 67639298);
(void) XR←ExportProcS(var←c11112, (word) (( (bPt) gf←c069)+100)/* var←c10472 */ , 67901699);
(void) XR←ExportProcS(var←c11112, (word) (( (bPt) gf←c069)+92)/* var←c10440 */ , 793091);
(void) XR←ExportProcS(var←c11112, (word) (( (bPt) gf←c069)+84)/* var←c10408 */ , 67640066);
(void) XR←ExportProcS(var←c11112, (word) (( (bPt) gf←c069)+76)/* var←c10376 */ , 793603);
(void) XR←ExportProcS(var←c11112, (word) (( (bPt) gf←c069)+68)/* var←c10344 */ , 67640578);
(void) XR←ExportProcS(var←c11112, (word) (( (bPt) gf←c069)+60)/* var←c10312 */ , 794115);
(void) XR←ExportProcS(var←c11112, (word) (( (bPt) gf←c069)+52)/* var←c10280 */ , 67641090);
var←c11112 = (word) XR←ExportInterface((word) "XlEventProperties", (word) XR←GetTypeIndexS((word) (&string12)), 2);
(* (( (ptr) gf←c069)+39)/* var←c11144 */ ) = var←c11112;
(void) XR←ExportProcS(var←c11112, (word) (( (bPt) gf←c069)+124)/* var←c10568 */ , 67633154);
(void) XR←ExportProcS(var←c11112, (word) (( (bPt) gf←c069)+132)/* var←c10600 */ , 67895555);
}
static void XlImplSpecialMonitor←P0(formal←c021, formal←c020)
word formal←c021;
word formal←c020;
{
/* XlImplSpecialMonitor: */
}
static word PutEventProp←P60(ev←v2940, key←v2968, val←v2996)
word ev←v2940;
word key←v2968;
word val←v2996;
{
register ptr gf←c11176 = (ptr) &globalframe;
word var←c3068;
word event←v4632;
/* PutEventProp: */
SOURCE(227, 194)
SOURCE(314, 37)
event←v4632 = ev←v2940;
SOURCE(353, 68)
{
word pd13;
pd13 = (* (( (ptr) (* (( (ptr) gf←c11176)+37)/* var←c10696 */ ))+5) );
return((word) ( *( (fPt) ((* (ptr) pd13 ))))((word) (( (bPt) event←v4632)+12), key←v2968, val←v2996, pd13));
};
}
static word GetEventProp←P120(ev←v3140, key←v3168)
word ev←v3140;
word key←v3168;
{
register ptr gf←c11208 = (ptr) &globalframe;
word var←c3224;
word event←v4688;
/* GetEventProp: */
SOURCE(425, 179)
SOURCE(502, 37)
event←v4688 = ev←v3140;
SOURCE(541, 63)
{
word pd14;
pd14 = (* (( (ptr) (* (( (ptr) gf←c11208)+37)/* var←c10696 */ ))+4) );
return((word) ( *( (fPt) ((* (ptr) pd14 ))))((word) (( (bPt) event←v4688)+12), key←v3168, pd14));
};
}
static void PutConnectionProp←P180(c←v3296, key←v3324, val←v3352)
word c←v3296;
word key←v3324;
word val←v3352;
{
register ptr gf←c11240 = (ptr) &globalframe;
/* PutConnectionProp: */
SOURCE(608, 120)
SOURCE(682, 46)
{
word var←c10792;
word pd15;
pd15 = (* (( (ptr) (* (( (ptr) gf←c11240)+38)/* var←c10760 */ ))+10) );
var←c10792 = (word) ( *( (fPt) ((* (ptr) pd15 ))))((* (( (ptr) c←v3296)+29) ), key←v3324, val←v3352, pd15);
};
}
static word GetConnectionProp←P240(c←v3436, key←v3464)
word c←v3436;
word key←v3464;
{
register ptr gf←c11272 = (ptr) &globalframe;
word var←c3520;
/* GetConnectionProp: */
SOURCE(732, 125)
SOURCE(810, 47)
{
word pd16;
pd16 = (* (( (ptr) (* (( (ptr) gf←c11272)+38)/* var←c10760 */ ))+9) );
return((word) ( *( (fPt) ((* (ptr) pd16 ))))((* (( (ptr) c←v3436)+29) ), key←v3464, pd16));
};
}
static word GetConnectionPropAndInit←P300(c←v3592, key←v3620, formal←c085)
word c←v3592;
word key←v3620;
word formal←c085;
{
W7 var←c11304;
/* declaration of init←v3648 skipped */
register ptr gf←c11336 = (ptr) &globalframe;
word val←v3704;
/* declaration of var←c10856 skipped */
W2 var←c043;
var←c11304.f4/* init←v3648 */ = formal←c085;
/* GetConnectionPropAndInit: */
SOURCE(861, 260)
{
word tmpAddr17;
tmpAddr17 = (word) (( (ptr) &var←c11304)+5)/* var←c10856 */ ;
(* (ptr) tmpAddr17 ) = ( ((word) (fPt) WrapInit←P720) );
(* (( (ptr) tmpAddr17) + 1) ) = 1;
};
SOURCE(861, 260)
val←v3704 = 0;
SOURCE(1056, 65)
{
word pd18;
pd18 = (* (( (ptr) (* (( (ptr) gf←c11336)+38)/* var←c10760 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd18 ))))((word) &var←c043, (* (( (ptr) c←v3592)+29) ), key←v3620, (word) (( (bPt) &var←c11304)+20)
/* var←c10856 */ , c←v3592, pd18);
};
val←v3704 = var←c043.f0;
SOURCE(861, 260)
return(val←v3704);
}
static word WrapInit←P720(data←v6920, key←v6948, formal←c11400)
word data←v6920;
word key←v6948;
word formal←c11400;
{
register ptr gf←c11368 = (ptr) &globalframe;
word val←v6992;
formal←c11400 = (formal←c11400 - 20);
/* WrapInit: */
SOURCE(981, 72)
SOURCE(981, 72)
val←v6992 = (* (( (ptr) gf←c11368)+12) );
SOURCE(1023, 30)
{
word var←c10888;
var←c10888 = XR←Narrow(data←v6920, (* (( (ptr) gf←c11368)+11) ));
{
word pd19;
pd19 = (* (( (ptr) formal←c11400)+4) );
val←v6992 = (word) ( *( (fPt) ((* (ptr) pd19 ))))(var←c10888, key←v6948, pd19);
};
};
SOURCE(981, 72)
return(val←v6992);
}
static void PutScreenProp←P360(screen←v3776, key←v3804, val←v3832)
word screen←v3776;
word key←v3804;
word val←v3832;
{
register ptr gf←c11432 = (ptr) &globalframe;
/* PutScreenProp: */
SOURCE(1125, 128)
SOURCE(1202, 51)
{
word var←c10920;
word pd20;
pd20 = (* (( (ptr) (* (( (ptr) gf←c11432)+38)/* var←c10760 */ ))+10) );
var←c10920 = (word) ( *( (fPt) ((* (ptr) pd20 ))))((* (( (ptr) screen←v3776)+18) ), key←v3804, val←v3832, pd20);
};
}
static word GetScreenProp←P420(screen←v3916, key←v3944)
word screen←v3916;
word key←v3944;
{
register ptr gf←c11464 = (ptr) &globalframe;
word val←v4000;
/* GetScreenProp: */
SOURCE(1257, 132)
SOURCE(1257, 132)
val←v4000 = 0;
SOURCE(1337, 52)
{
word pd21;
pd21 = (* (( (ptr) (* (( (ptr) gf←c11464)+38)/* var←c10760 */ ))+9) );
return((word) ( *( (fPt) ((* (ptr) pd21 ))))((* (( (ptr) screen←v3916)+18) ), key←v3944, pd21));
};
}
static void PutScreenDepthProp←P480(sd←v4072, key←v4100, val←v4128)
word sd←v4072;
word key←v4100;
word val←v4128;
{
register ptr gf←c11496 = (ptr) &globalframe;
/* PutScreenDepthProp: */
SOURCE(1392, 130)
SOURCE(1475, 47)
{
word var←c10984;
word pd22;
pd22 = (* (( (ptr) (* (( (ptr) gf←c11496)+38)/* var←c10760 */ ))+10) );
var←c10984 = (word) ( *( (fPt) ((* (ptr) pd22 ))))((* (( (ptr) sd←v4072)+2) ), key←v4100, val←v4128, pd22);
};
}
static word GetScreenDepthProp←P540(sd←v4212, key←v4240)
word sd←v4212;
word key←v4240;
{
register ptr gf←c11528 = (ptr) &globalframe;
word val←v4296;
/* GetScreenDepthProp: */
SOURCE(1526, 134)
SOURCE(1526, 134)
val←v4296 = 0;
SOURCE(1612, 48)
{
word pd23;
pd23 = (* (( (ptr) (* (( (ptr) gf←c11528)+38)/* var←c10760 */ ))+9) );
return((word) ( *( (fPt) ((* (ptr) pd23 ))))((* (( (ptr) sd←v4212)+2) ), key←v4240, pd23));
};
}
static void PutVisualTypeProp←P600(vt←v4368, key←v4396, val←v4424)
word vt←v4368;
word key←v4396;
word val←v4424;
{
register ptr gf←c11560 = (ptr) &globalframe;
/* PutVisualTypeProp: */
SOURCE(1663, 128)
SOURCE(1744, 47)
{
word var←c11048;
word pd24;
pd24 = (* (( (ptr) (* (( (ptr) gf←c11560)+38)/* var←c10760 */ ))+10) );
var←c11048 = (word) ( *( (fPt) ((* (ptr) pd24 ))))((* (( (ptr) vt←v4368)+7) ), key←v4396, val←v4424, pd24);
};
}
static word GetVisualTypeProp←P660(vt←v4508, key←v4536)
word vt←v4508;
word key←v4536;
{
register ptr gf←c11592 = (ptr) &globalframe;
word val←v4592;
/* GetVisualTypeProp: */
SOURCE(1795, 132)
SOURCE(1795, 132)
val←v4592 = 0;
SOURCE(1879, 48)
{
word pd25;
pd25 = (* (( (ptr) (* (( (ptr) gf←c11592)+38)/* var←c10760 */ ))+9) );
return((word) ( *( (fPt) ((* (ptr) pd25 ))))((* (( (ptr) vt←v4508)+7) ), key←v4536, pd25));
};
}
/* file: XlImplSpecialMonitor, module: XlImplSpecialMonitor, compiled at: April 21, 1992 2:58:38 pm PDT */
extern void XR←install←XlImplSpecialMonitor() {
NoName←Q780();
}
extern void XR←run←XlImplSpecialMonitor() { XR←Start(&globalframe); }