/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */
/* time: September 14, 1993 4:29:34 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: XlWMOpsImpl, module: XlWMOpsImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [16002578,3160271907] XlWMOpsImpl";
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;} W2;
typedef word (*fPt)();
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; W3 r;} W11;
#define SOURCE(p, l) /* source p, l */
#define MIN(cast, x, y) ( ( cast x) < ( cast y) ? (x) : (y) )
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
#define MAX(cast, x, y) ( ( cast x) > ( cast y) ? (x) : (y) )
static void NoName←Q840();
static void XlWMOpsImpl←P0();
static void ChangeSaveSet←P60();
static void action←P480();
static word Int16←P120();
static void SetScreenSaver←P180();
static void action←P540();
static void ForceScreenSaver←P240();
static void action←P600();
static void SetAccessControl←P300();
static void action←P660();
static void SetCloseDownMode←P360();
static void action←P720();
static void KillClient←P420();
static void action←P780();
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[20];} string3 = {1179668, "XlImplSomeResource\000"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\000\364\056\022\300\274\135\354\043\100\200\000\000"};
static struct {unsigned f; char r[4];} string5 = {131074, "\003\007\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\304\042\023\266\300\315\144\243\337\100\150\000\000"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\163\111\224\332\300\071\360\161\171\100\150\000\000"};
static struct {
word f0[8]; word f8; word f9; word f10;
word f11; word f12; word f13; word f14;
word f15; word f16; word f17; word f18;
word f19; word f20; word f21; word f22;
word f23[4];
} globalframe = {
{0}, (word) KillClient←P420, 0, (word) SetCloseDownMode←P360,
0, (word) SetAccessControl←P300, 0, (word) ForceScreenSaver←P240,
0, (word) SetScreenSaver←P180, 0, (word) Int16←P120,
0, (word) ChangeSaveSet←P60, 0, (word) XlWMOpsImpl←P0,
{0}
};
static void NoName←Q840()
{
register ptr gf←c055 = (ptr) &globalframe;
word var←c7028;
(* (( (ptr) gf←c055)+4) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (ptr) (( (bPt) gf←c055)+28) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c055)+4) ), (word) &string3);
(void) XR←DeclareGlobalFrame((word) "XlWMOpsImpl", &globalframe, (word) XR←GetTypeIndex((word) &string4, 0, (word) &string5)
, (word) (( (bPt) gf←c055)+88)/* var←c6676 */ );
var←c7028 = (word) XR←ImportInterface((word) "Xl", (word) XR←GetTypeIndexS((word) (&string6)), 218);
(* (( (ptr) gf←c055)+25)/* var←c6964 */ ) = var←c7028;
(void) XR←ImportProcS(var←c7028, 792323);
var←c7028 = (word) XR←ImportInterface((word) "XlPrivate", (word) XR←GetTypeIndexS((word) (&string7)), 77);
(* (( (ptr) gf←c055)+24)/* var←c6740 */ ) = var←c7028;
(void) XR←ImportProcS(var←c7028, 528642);
(void) XR←ImportProcS(var←c7028, 528386);
(void) XR←ImportProcS(var←c7028, 528130);
(void) XR←ImportProcS(var←c7028, 529666);
(void) XR←ImportProcS(var←c7028, 539650);
(void) XR←ImportProcS(var←c7028, 530178);
(void) XR←ImportProcS(var←c7028, 1051908);
(void) XR←ImportProcS(var←c7028, 786947);
var←c7028 = (word) XR←ExportInterface((word) "XlWMOps", (word) XR←GetTypeIndexS((word) (&string8)), 6);
(* (( (ptr) gf←c055)+26)/* var←c7060 */ ) = var←c7028;
(void) XR←ExportProcS(var←c7028, (word) (( (bPt) gf←c055)+80)/* var←c6644 */ , 1048580, (word) "ChangeSaveSet");
(void) XR←ExportProcS(var←c7028, (word) (( (bPt) gf←c055)+64)/* var←c6580 */ , 1573126, (word) "SetScreenSaver");
(void) XR←ExportProcS(var←c7028, (word) (( (bPt) gf←c055)+56)/* var←c6548 */ , 786947, (word) "ForceScreenSaver");
(void) XR←ExportProcS(var←c7028, (word) (( (bPt) gf←c055)+48)/* var←c6516 */ , 787203, (word) "SetAccessControl");
(void) XR←ExportProcS(var←c7028, (word) (( (bPt) gf←c055)+40)/* var←c6484 */ , 787459, (word) "SetCloseDownMode");
(void) XR←ExportProcS(var←c7028, (word) (( (bPt) gf←c055)+32)/* var←c6452 */ , 787715, (word) "KillClient");
}
static void XlWMOpsImpl←P0(formal←c016, formal←c015)
word formal←c016;
word formal←c015;
{
/* XlWMOpsImpl: */
}
static void ChangeSaveSet←P60(c←v2800, formal←c086, formal←c087, formal←c088)
word c←v2800;
word formal←c086;
word formal←c087;
word formal←c088;
{
W9 var←c7092;
/* declaration of window←v2828 skipped */
/* declaration of op←v2856 skipped */
/* declaration of details←v2884 skipped */
register ptr gf←c7124 = (ptr) &globalframe;
/* declaration of var←c6708 skipped */
(* (( (ptr) &var←c7092)+4)/* window←v2828 */ ) = formal←c086;
(* (( (ptr) &var←c7092)+5)/* op←v2856 */ ) = formal←c087;
(* (( (ptr) &var←c7092)+6)/* details←v2884 */ ) = formal←c088;
/* ChangeSaveSet: */
SOURCE(189, 247)
{
word tmpAddr9;
tmpAddr9 = (word) (( (ptr) &var←c7092)+7)/* var←c6708 */ ;
(* (ptr) tmpAddr9 ) = ( ((word) (fPt) action←P480) );
(* (( (ptr) tmpAddr9) + 1) ) = 1;
};
SOURCE(405, 31)
{
word pd10;
pd10 = (* (( (ptr) (* (( (ptr) gf←c7124)+24)/* var←c6740 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd10 ))))(c←v2800, (word) (( (bPt) &var←c7092)+28)/* var←c6708 */ , (* (( (ptr) &var←c7092)+6)
/* details←v2884 */ ), pd10);
};
}
static void action←P480(c←v3756, formal←c7188)
word c←v3756;
word formal←c7188;
{
register ptr gf←c7156 = (ptr) &globalframe;
formal←c7188 = (formal←c7188 - 28);
/* action: */
SOURCE(288, 112)
SOURCE(321, 23)
{
word pd11;
pd11 = (* (( (ptr) (* (( (ptr) gf←c7156)+24)/* var←c6740 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd11 ))))(c←v3756, 6, (* (( (ptr) formal←c7188)+5) ), 2, pd11);
};
SOURCE(346, 23)
{
word pd12;
pd12 = (* (( (ptr) (* (( (ptr) gf←c7156)+24)/* var←c6740 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd12 ))))(c←v3756, (* (( (ptr) formal←c7188)+4) ), pd12);
};
SOURCE(371, 29)
{
word pd13;
pd13 = (* (( (ptr) (* (( (ptr) gf←c7156)+24)/* var←c6740 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd13 ))))(c←v3756, (* (( (ptr) formal←c7188)+6) ), pd13);
};
}
static word Int16←P120(i←v2944)
word i←v2944;
{
word var←c2988;
/* Int16: */
SOURCE(442, 119)
SOURCE(483, 78)
if (( (int)i←v2944 >= (int)0)) {
SOURCE(497, 34)
{
word idx14;
return(((
idx14 = (word) ((MIN((int)(word), i←v2944, 32767)) + 32768),
BCK(idx14, 65536)
) - 32768));
};
}
else {
SOURCE(531, 30)
{
word idx15;
return(((
idx15 = (word) ((MAX((int)(word), i←v2944, 4294934528)) + 32768),
BCK(idx15, 65536)
) - 32768));
};
};
}
static void SetScreenSaver←P180(c←v3048, formal←c089, formal←c090, formal←c091, formal←c092, formal←c093)
word c←v3048;
word formal←c089;
word formal←c090;
word formal←c091;
word formal←c092;
word formal←c093;
{
W11 var←c7220;
/* declaration of timeout←v3076 skipped */
/* declaration of interval←v3104 skipped */
/* declaration of blanking←v3132 skipped */
/* declaration of exposures←v3160 skipped */
/* declaration of details←v3188 skipped */
register ptr gf←c7252 = (ptr) &globalframe;
/* declaration of var←c6772 skipped */
(* (( (ptr) &var←c7220)+4)/* timeout←v3076 */ ) = formal←c089;
(* (( (ptr) &var←c7220)+5)/* interval←v3104 */ ) = formal←c090;
(* (( (ptr) &var←c7220)+6)/* blanking←v3132 */ ) = formal←c091;
(* (( (ptr) &var←c7220)+7)/* exposures←v3160 */ ) = formal←c092;
(* (( (ptr) &var←c7220)+8)/* details←v3188 */ ) = formal←c093;
/* SetScreenSaver: */
SOURCE(565, 414)
{
word tmpAddr16;
tmpAddr16 = (word) (( (ptr) &var←c7220)+9)/* var←c6772 */ ;
(* (ptr) tmpAddr16 ) = ( ((word) (fPt) action←P540) );
(* (( (ptr) tmpAddr16) + 1) ) = 1;
};
SOURCE(948, 31)
{
word pd17;
pd17 = (* (( (ptr) (* (( (ptr) gf←c7252)+24)/* var←c6740 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd17 ))))(c←v3048, (word) (( (bPt) &var←c7220)+36)/* var←c6772 */ , (* (( (ptr) &var←c7220)+8)
/* details←v3188 */ ), pd17);
};
}
static void action←P540(c←v3860, formal←c7316)
word c←v3860;
word formal←c7316;
{
register ptr gf←c7284 = (ptr) &globalframe;
formal←c7316 = (formal←c7316 - 36);
/* action: */
SOURCE(725, 218)
SOURCE(758, 19)
{
word pd18;
pd18 = (* (( (ptr) (* (( (ptr) gf←c7284)+24)/* var←c6740 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd18 ))))(c←v3860, 107, 0, 3, pd18);
};
SOURCE(779, 28)
{
word var←c6804;
var←c6804 = (word) Int16←P120((* ((( (ptr) formal←c7316)+4)) ));
{
word pd19;
pd19 = (* (( (ptr) (* (( (ptr) gf←c7284)+24)/* var←c6740 */ ))+25) );
(void) ( *( (fPt) ((* (ptr) pd19 ))))(c←v3860, var←c6804, pd19);
};
};
SOURCE(809, 29)
{
word var←c6836;
var←c6836 = (word) Int16←P120((* ((( (ptr) formal←c7316)+5)) ));
{
word pd20;
pd20 = (* (( (ptr) (* (( (ptr) gf←c7284)+24)/* var←c6740 */ ))+25) );
(void) ( *( (fPt) ((* (ptr) pd20 ))))(c←v3860, var←c6836, pd20);
};
};
SOURCE(840, 23)
{
word pd21;
pd21 = (* (( (ptr) (* (( (ptr) gf←c7284)+24)/* var←c6740 */ ))+19) );
(void) ( *( (fPt) ((* (ptr) pd21 ))))(c←v3860, (* (( (ptr) formal←c7316)+6) ), pd21);
};
SOURCE(865, 24)
{
word pd22;
pd22 = (* (( (ptr) (* (( (ptr) gf←c7284)+24)/* var←c6740 */ ))+19) );
(void) ( *( (fPt) ((* (ptr) pd22 ))))(c←v3860, (* (( (ptr) formal←c7316)+7) ), pd22);
};
SOURCE(891, 12)
{
word pd23;
pd23 = (* (( (ptr) (* (( (ptr) gf←c7284)+24)/* var←c6740 */ ))+20) );
(void) ( *( (fPt) ((* (ptr) pd23 ))))(c←v3860, 0, pd23);
};
SOURCE(914, 29)
{
word pd24;
pd24 = (* (( (ptr) (* (( (ptr) gf←c7284)+24)/* var←c6740 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd24 ))))(c←v3860, (* (( (ptr) formal←c7316)+8) ), pd24);
};
}
static void ForceScreenSaver←P240(c←v3248, formal←c094, formal←c095)
word c←v3248;
word formal←c094;
word formal←c095;
{
W8 var←c7348;
/* declaration of mode←v3276 skipped */
/* declaration of details←v3304 skipped */
register ptr gf←c7380 = (ptr) &globalframe;
/* declaration of var←c6868 skipped */
var←c7348.f4/* mode←v3276 */ = formal←c094;
var←c7348.f5/* details←v3304 */ = formal←c095;
/* ForceScreenSaver: */
SOURCE(985, 216)
{
word tmpAddr25;
tmpAddr25 = (word) (( (ptr) &var←c7348)+6)/* var←c6868 */ ;
(* (ptr) tmpAddr25 ) = ( ((word) (fPt) action←P600) );
(* (( (ptr) tmpAddr25) + 1) ) = 1;
};
SOURCE(1170, 31)
{
word pd26;
pd26 = (* (( (ptr) (* (( (ptr) gf←c7380)+24)/* var←c6740 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd26 ))))(c←v3248, (word) (( (bPt) &var←c7348)+24)/* var←c6868 */ , var←c7348.f5/* details←v3304 */ , pd26)
;
};
}
static void action←P600(c←v3964, formal←c7444)
word c←v3964;
word formal←c7444;
{
register ptr gf←c7412 = (ptr) &globalframe;
formal←c7444 = (formal←c7444 - 24);
/* action: */
SOURCE(1074, 91)
SOURCE(1107, 27)
{
word pd27;
pd27 = (* (( (ptr) (* (( (ptr) gf←c7412)+24)/* var←c6740 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd27 ))))(c←v3964, 115, (* (( (ptr) formal←c7444)+4) ), 1, pd27);
};
SOURCE(1136, 29)
{
word pd28;
pd28 = (* (( (ptr) (* (( (ptr) gf←c7412)+24)/* var←c6740 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd28 ))))(c←v3964, (* (( (ptr) formal←c7444)+5) ), pd28);
};
}
static void SetAccessControl←P300(c←v3364, formal←c096, formal←c097)
word c←v3364;
word formal←c096;
word formal←c097;
{
W8 var←c7476;
/* declaration of enable←v3392 skipped */
/* declaration of details←v3420 skipped */
register ptr gf←c7508 = (ptr) &globalframe;
/* declaration of var←c6900 skipped */
var←c7476.f4/* enable←v3392 */ = formal←c096;
var←c7476.f5/* details←v3420 */ = formal←c097;
/* SetAccessControl: */
SOURCE(1207, 223)
{
word tmpAddr29;
tmpAddr29 = (word) (( (ptr) &var←c7476)+6)/* var←c6900 */ ;
(* (ptr) tmpAddr29 ) = ( ((word) (fPt) action←P660) );
(* (( (ptr) tmpAddr29) + 1) ) = 1;
};
SOURCE(1399, 31)
{
word pd30;
pd30 = (* (( (ptr) (* (( (ptr) gf←c7508)+24)/* var←c6740 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd30 ))))(c←v3364, (word) (( (bPt) &var←c7476)+24)/* var←c6900 */ , var←c7476.f5/* details←v3420 */ , pd30)
;
};
}
static void action←P660(c←v4068, formal←c7572)
word c←v4068;
word formal←c7572;
{
register ptr gf←c7540 = (ptr) &globalframe;
formal←c7572 = (formal←c7572 - 24);
/* action: */
SOURCE(1289, 105)
SOURCE(1322, 41)
{
word pd31;
word idx32;
pd31 = (* (( (ptr) (* (( (ptr) gf←c7540)+24)/* var←c6740 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd31 ))))(c←v4068, 111, (
idx32 = (word) ( (0 != (* (( (ptr) formal←c7572)+4) )) ? 1 : 0 ) ,
BCK(idx32, 256)
), 1, pd31);
};
SOURCE(1365, 29)
{
word pd33;
pd33 = (* (( (ptr) (* (( (ptr) gf←c7540)+24)/* var←c6740 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd33 ))))(c←v4068, (* (( (ptr) formal←c7572)+5) ), pd33);
};
}
static void SetCloseDownMode←P360(c←v3480, formal←c098, formal←c099)
word c←v3480;
word formal←c098;
word formal←c099;
{
W8 var←c7604;
/* declaration of mode←v3508 skipped */
/* declaration of details←v3536 skipped */
register ptr gf←c7636 = (ptr) &globalframe;
/* declaration of var←c6932 skipped */
var←c7604.f4/* mode←v3508 */ = formal←c098;
var←c7604.f5/* details←v3536 */ = formal←c099;
/* SetCloseDownMode: */
SOURCE(1436, 347)
{
word tmpAddr34;
tmpAddr34 = (word) (( (ptr) &var←c7604)+6)/* var←c6932 */ ;
(* (ptr) tmpAddr34 ) = ( ((word) (fPt) action←P720) );
(* (( (ptr) tmpAddr34) + 1) ) = 1;
};
SOURCE(1621, 72)
if ((var←c7604.f4/* mode←v3508 */ != 0)) {
SOURCE(1644, 49)
{
word pd35;
pd35 = (* (( (ptr) (* (( (ptr) gf←c7636)+25)/* var←c6964 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd35 ))))(c←v3480, (* (( (ptr) gf←c7636)+7) ), 0, pd35);
};
};
SOURCE(1752, 31)
{
word pd36;
pd36 = (* (( (ptr) (* (( (ptr) gf←c7636)+24)/* var←c6740 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd36 ))))(c←v3480, (word) (( (bPt) &var←c7604)+24)/* var←c6932 */ , var←c7604.f5/* details←v3536 */ , pd36)
;
};
}
static void action←P720(c←v4172, formal←c7700)
word c←v4172;
word formal←c7700;
{
register ptr gf←c7668 = (ptr) &globalframe;
formal←c7700 = (formal←c7700 - 24);
/* action: */
SOURCE(1525, 91)
SOURCE(1558, 27)
{
word pd37;
pd37 = (* (( (ptr) (* (( (ptr) gf←c7668)+24)/* var←c6740 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd37 ))))(c←v4172, 112, (* (( (ptr) formal←c7700)+4) ), 1, pd37);
};
SOURCE(1587, 29)
{
word pd38;
pd38 = (* (( (ptr) (* (( (ptr) gf←c7668)+24)/* var←c6740 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd38 ))))(c←v4172, (* (( (ptr) formal←c7700)+5) ), pd38);
};
}
static void KillClient←P420(c←v3596, formal←c0100, formal←c0101)
word c←v3596;
word formal←c0100;
word formal←c0101;
{
W8 var←c7732;
/* declaration of resource←v3624 skipped */
/* declaration of details←v3652 skipped */
register ptr gf←c7764 = (ptr) &globalframe;
/* declaration of var←c6996 skipped */
var←c7732.f4/* resource←v3624 */ = formal←c0100;
var←c7732.f5/* details←v3652 */ = formal←c0101;
/* KillClient: */
SOURCE(1789, 216)
{
word tmpAddr39;
tmpAddr39 = (word) (( (ptr) &var←c7732)+6)/* var←c6996 */ ;
(* (ptr) tmpAddr39 ) = ( ((word) (fPt) action←P780) );
(* (( (ptr) tmpAddr39) + 1) ) = 1;
};
SOURCE(1974, 31)
{
word pd40;
pd40 = (* (( (ptr) (* (( (ptr) gf←c7764)+24)/* var←c6740 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd40 ))))(c←v3596, (word) (( (bPt) &var←c7732)+24)/* var←c6996 */ , var←c7732.f5/* details←v3652 */ , pd40)
;
};
}
static void action←P780(c←v4276, formal←c7828)
word c←v4276;
word formal←c7828;
{
register ptr gf←c7796 = (ptr) &globalframe;
formal←c7828 = (formal←c7828 - 24);
/* action: */
SOURCE(1865, 104)
SOURCE(1898, 19)
{
word pd41;
pd41 = (* (( (ptr) (* (( (ptr) gf←c7796)+24)/* var←c6740 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd41 ))))(c←v4276, 113, 0, 2, pd41);
};
SOURCE(1919, 19)
{
word pd42;
pd42 = (* (( (ptr) (* (( (ptr) gf←c7796)+24)/* var←c6740 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd42 ))))(c←v4276, (* (( (ptr) formal←c7828)+4) ), pd42);
};
SOURCE(1940, 29)
{
word pd43;
pd43 = (* (( (ptr) (* (( (ptr) gf←c7796)+24)/* var←c6740 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd43 ))))(c←v4276, (* (( (ptr) formal←c7828)+5) ), pd43);
};
}
/* file: XlWMOpsImpl, module: XlWMOpsImpl, compiled at: September 14, 1993 4:29:33 pm PDT */
extern void XR←install←XlWMOpsImpl() {
NoName←Q840();
}
extern void XR←run←XlWMOpsImpl() { XR←Start(&globalframe); }