/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: April 21, 1992 12:53:49 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XTkBasicsImpl, module: XTkBasicsImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [646041774,3651453227] XTkBasicsImpl";
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; W8 r;} W16;
typedef struct {W8 f; word r;} W9;
typedef struct {W16 f; W9 r;} W25;
typedef word (*fPt)();
#define SOURCE(p, l) /* source p, l */
static void NoName←Q480();
static void XTkBasicsImpl←P0();
static word CreateBare←P60();
static word CreateSpace←P120();
static word HSpace←P180();
static word VSpace←P240();
static word CreateRuler←P300();
static word HRule←P360();
static word VRule←P420();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\072\360\043\311\300\372\054\163\300\100\164\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[8];} string4 = {262152, "Bare\000\000\000"};
static struct {unsigned f; char r[8];} string5 = {327688, "white\000\000"};
static struct {unsigned f; char r[8];} string6 = {327688, "space\000\000"};
static struct {unsigned f; char r[8];} string7 = {262152, "rule\000\000\000"};
static struct {unsigned f; char r[8];} string8 = {327688, "Ruler\000\000"};
static struct {unsigned f; char r[8];} string9 = {327688, "black\000\000"};
static struct {unsigned f; char r[8];} string10 = {262152, "bare\000\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\046\201\320\256\300\331\244\301\053\100\164\000\000"};
static struct {unsigned f; char r[16];} string12 = {983055, "\006\005\040\001\044\001\050\001\054\001\100\100\004\100\177"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\150\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\227\370\144\253\300\176\165\034\110\100\150\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\330\257\130\166\300\144\346\056\151\100\150\000\000"};
static struct {
word f0[23]; 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[4];
} globalframe = {
{0}, (word) VRule←P420, 0, (word) HRule←P360,
0, (word) CreateRuler←P300, 0, (word) VSpace←P240,
0, (word) HSpace←P180, 0, (word) CreateSpace←P120,
0, (word) CreateBare←P60, 0, (word) XTkBasicsImpl←P0,
{0}
};
static void NoName←Q480()
{
register ptr gf←c047 = (ptr) &globalframe;
word var←c10160;
(* (( (ptr) gf←c047)+12) ) = (word) XR←GetTypeIndexS((word) (&string1));
(* (( (ptr) gf←c047)+13) ) = (word) XR←GetTypeIndex((word) &string2, 0, (word) &string3);
(* (ptr) (( (bPt) gf←c047)+64) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c047)+13) ), (word) &string4);
(* (ptr) (( (bPt) gf←c047)+68) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c047)+13) ), (word) &string5);
(* (ptr) (( (bPt) gf←c047)+72) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c047)+13) ), (word) &string6);
(* (ptr) (( (bPt) gf←c047)+76) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c047)+13) ), (word) &string7);
(* (ptr) (( (bPt) gf←c047)+80) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c047)+13) ), (word) &string8);
(* (ptr) (( (bPt) gf←c047)+84) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c047)+13) ), (word) &string9);
(* (ptr) (( (bPt) gf←c047)+88) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c047)+13) ), (word) &string10);
(void) XR←DeclareGlobalFrame((word) "XTkBasicsImpl", &globalframe, (word) XR←GetTypeIndex((word) &string11, 0, (word) &string12)
, (word) (( (bPt) gf←c047)+148)/* var←c9584 */ );
var←c10160 = (word) XR←ImportInterface((word) "XTk", (word) XR←GetTypeIndexS((word) (&string13)), 50);
(* (( (ptr) gf←c047)+40)/* var←c9808 */ ) = var←c10160;
(void) XR←ImportProcS(var←c10160, 69992451);
var←c10160 = (word) XR←ImportInterface((word) "XTkFriends", (word) XR←GetTypeIndexS((word) (&string14)), 33);
(* (( (ptr) gf←c047)+39)/* var←c9680 */ ) = var←c10160;
(void) XR←ImportProcS(var←c10160, 73666049);
var←c10160 = (word) XR←ExportInterface((word) "XTkBasics", (word) XR←GetTypeIndexS((word) (&string15)), 10);
(* (( (ptr) gf←c047)+41)/* var←c10192 */ ) = var←c10160;
(void) XR←ExportVar(var←c10160, 0, (word) (( (bPt) gf←c047)+36)/* bareClass←v2608 */ );
(void) XR←ExportProcS(var←c10160, (word) (( (bPt) gf←c047)+140)/* var←c9552 */ , 69468417);
(void) XR←ExportVar(var←c10160, 2, (word) (( (bPt) gf←c047)+40)/* spaceClass←v2636 */ );
(void) XR←ExportProcS(var←c10160, (word) (( (bPt) gf←c047)+132)/* var←c9520 */ , 69468929);
(void) XR←ExportProcS(var←c10160, (word) (( (bPt) gf←c047)+124)/* var←c9488 */ , 67372033);
(void) XR←ExportProcS(var←c10160, (word) (( (bPt) gf←c047)+116)/* var←c9456 */ , 67372289);
(void) XR←ExportVar(var←c10160, 6, (word) (( (bPt) gf←c047)+44)/* rulerClass←v2664 */ );
(void) XR←ExportProcS(var←c10160, (word) (( (bPt) gf←c047)+108)/* var←c9424 */ , 69469953);
(void) XR←ExportProcS(var←c10160, (word) (( (bPt) gf←c047)+100)/* var←c9392 */ , 67373057);
(void) XR←ExportProcS(var←c10160, (word) (( (bPt) gf←c047)+92)/* var←c9360 */ , 67373313);
}
static void XTkBasicsImpl←P0(formal←c028, formal←c020)
word formal←c028;
word formal←c020;
{
register ptr gf←c10224 = (ptr) &globalframe;
/* XTkBasicsImpl: */
SOURCE(50, 1649)
SOURCE(129, 93)
{
word var←c9616;
var←c9616 = XR←NewObject(4, (* (( (ptr) gf←c10224)+12) ));
(* (ptr) var←c9616 ) = 24;
(* (( (ptr) gf←c10224)+8)/* inertCursorKey←v2580 */ ) = var←c9616;
};
SOURCE(225, 138)
{
W25 var←c023;
(* (ptr) &var←c023 ) = (* (( (ptr) gf←c10224)+22) );
(* (( (ptr) &var←c023)+1) ) = (* (( (ptr) gf←c10224)+16) );
(* (( (ptr) &var←c023)+2) ) = 0;
(* (( (ptr) &var←c023)+3) ) = 0;
(* (( (ptr) &var←c023)+4) ) = 0;
(* (( (ptr) &var←c023)+5) ) = 0;
(* (( (ptr) &var←c023)+6) ) = XR←CheckProc(0);
(* (( (ptr) &var←c023)+7) ) = XR←CheckProc(0);
(* (( (ptr) &var←c023)+8) ) = XR←CheckProc(0);
(* (( (ptr) &var←c023)+9) ) = XR←CheckProc(0);
(* (( (ptr) &var←c023)+10) ) = XR←CheckProc(0);
(* (( (ptr) &var←c023)+11) ) = XR←CheckProc(0);
(* (( (ptr) &var←c023)+12) ) = XR←CheckProc(0);
(* (( (ptr) &var←c023)+13) ) = XR←CheckProc(0);
(* (( (ptr) &var←c023)+14) ) = XR←CheckProc(0);
(* (( (ptr) &var←c023)+15) ) = XR←CheckProc(0);
(* (( (ptr) &var←c023)+16) ) = XR←CheckProc(0);
(* (( (ptr) &var←c023)+17) ) = XR←CheckProc(0);
(* (( (ptr) &var←c023)+18) ) = XR←CheckProc(0);
(* (( (ptr) &var←c023)+19) ) = (* (( (ptr) gf←c10224)+8)/* inertCursorKey←v2580 */ );
(* (( (ptr) &var←c023)+20) ) = (* (( (ptr) gf←c10224)+17) );
(* (( (ptr) &var←c023)+21) ) = 0;
(* (( (ptr) &var←c023)+22) ) = 0;
(* (( (ptr) &var←c023)+23) ) = XR←CheckProc(0);
(* (( (ptr) &var←c023)+24) ) = XR←CheckProc(0);
{
word pd16;
pd16 = (* (( (ptr) (* (( (ptr) gf←c10224)+39)/* var←c9680 */ ))+18) );
(* (( (ptr) gf←c10224)+9)/* bareClass←v2608 */ ) = (word) ( *( (fPt) ((* (ptr) pd16 ))))((word) (&var←c023), pd16);
};
};
SOURCE(365, 140)
{
W25 var←c025;
(* (ptr) &var←c025 ) = (* (( (ptr) gf←c10224)+18) );
(* (( (ptr) &var←c025)+1) ) = (* (( (ptr) gf←c10224)+16) );
(* (( (ptr) &var←c025)+2) ) = 0;
(* (( (ptr) &var←c025)+3) ) = 0;
(* (( (ptr) &var←c025)+4) ) = 0;
(* (( (ptr) &var←c025)+5) ) = 0;
(* (( (ptr) &var←c025)+6) ) = XR←CheckProc(0);
(* (( (ptr) &var←c025)+7) ) = XR←CheckProc(0);
(* (( (ptr) &var←c025)+8) ) = XR←CheckProc(0);
(* (( (ptr) &var←c025)+9) ) = XR←CheckProc(0);
(* (( (ptr) &var←c025)+10) ) = XR←CheckProc(0);
(* (( (ptr) &var←c025)+11) ) = XR←CheckProc(0);
(* (( (ptr) &var←c025)+12) ) = XR←CheckProc(0);
(* (( (ptr) &var←c025)+13) ) = XR←CheckProc(0);
(* (( (ptr) &var←c025)+14) ) = XR←CheckProc(0);
(* (( (ptr) &var←c025)+15) ) = XR←CheckProc(0);
(* (( (ptr) &var←c025)+16) ) = XR←CheckProc(0);
(* (( (ptr) &var←c025)+17) ) = XR←CheckProc(0);
(* (( (ptr) &var←c025)+18) ) = XR←CheckProc(0);
(* (( (ptr) &var←c025)+19) ) = (* (( (ptr) gf←c10224)+8)/* inertCursorKey←v2580 */ );
(* (( (ptr) &var←c025)+20) ) = (* (( (ptr) gf←c10224)+17) );
(* (( (ptr) &var←c025)+21) ) = 0;
(* (( (ptr) &var←c025)+22) ) = 0;
(* (( (ptr) &var←c025)+23) ) = XR←CheckProc(0);
(* (( (ptr) &var←c025)+24) ) = XR←CheckProc(0);
{
word pd17;
pd17 = (* (( (ptr) (* (( (ptr) gf←c10224)+39)/* var←c9680 */ ))+18) );
(* (( (ptr) gf←c10224)+10)/* spaceClass←v2636 */ ) = (word) ( *( (fPt) ((* (ptr) pd17 ))))((word) (&var←c025), pd17);
};
};
SOURCE(507, 140)
{
W25 var←c027;
(* (ptr) &var←c027 ) = (* (( (ptr) gf←c10224)+19) );
(* (( (ptr) &var←c027)+1) ) = (* (( (ptr) gf←c10224)+20) );
(* (( (ptr) &var←c027)+2) ) = 0;
(* (( (ptr) &var←c027)+3) ) = 0;
(* (( (ptr) &var←c027)+4) ) = 0;
(* (( (ptr) &var←c027)+5) ) = 0;
(* (( (ptr) &var←c027)+6) ) = XR←CheckProc(0);
(* (( (ptr) &var←c027)+7) ) = XR←CheckProc(0);
(* (( (ptr) &var←c027)+8) ) = XR←CheckProc(0);
(* (( (ptr) &var←c027)+9) ) = XR←CheckProc(0);
(* (( (ptr) &var←c027)+10) ) = XR←CheckProc(0);
(* (( (ptr) &var←c027)+11) ) = XR←CheckProc(0);
(* (( (ptr) &var←c027)+12) ) = XR←CheckProc(0);
(* (( (ptr) &var←c027)+13) ) = XR←CheckProc(0);
(* (( (ptr) &var←c027)+14) ) = XR←CheckProc(0);
(* (( (ptr) &var←c027)+15) ) = XR←CheckProc(0);
(* (( (ptr) &var←c027)+16) ) = XR←CheckProc(0);
(* (( (ptr) &var←c027)+17) ) = XR←CheckProc(0);
(* (( (ptr) &var←c027)+18) ) = XR←CheckProc(0);
(* (( (ptr) &var←c027)+19) ) = (* (( (ptr) gf←c10224)+8)/* inertCursorKey←v2580 */ );
(* (( (ptr) &var←c027)+20) ) = (* (( (ptr) gf←c10224)+21) );
(* (( (ptr) &var←c027)+21) ) = 0;
(* (( (ptr) &var←c027)+22) ) = 0;
(* (( (ptr) &var←c027)+23) ) = XR←CheckProc(0);
(* (( (ptr) &var←c027)+24) ) = XR←CheckProc(0);
{
word pd18;
pd18 = (* (( (ptr) (* (( (ptr) gf←c10224)+39)/* var←c9680 */ ))+18) );
(* (( (ptr) gf←c10224)+11)/* rulerClass←v2664 */ ) = (word) ( *( (fPt) ((* (ptr) pd18 ))))((word) (&var←c027), pd18);
};
};
}
static word CreateBare←P60(widgetSpec←v2952)
W9 widgetSpec←v2952;
{
register ptr gf←c10256 = (ptr) &globalframe;
word var←c2996;
/* CreateBare: */
SOURCE(650, 133)
SOURCE(733, 50)
{
word pd19;
pd19 = (* (( (ptr) (* (( (ptr) gf←c10256)+40)/* var←c9808 */ ))+4) );
return((word) ( *( (fPt) ((* (ptr) pd19 ))))(widgetSpec←v2952, (* (( (ptr) gf←c10256)+9)/* bareClass←v2608 */ ), 0, pd19)
);
};
}
static word CreateSpace←P120(widgetSpec←v3056)
W9 widgetSpec←v3056;
{
register ptr gf←c10288 = (ptr) &globalframe;
word var←c3100;
/* CreateSpace: */
SOURCE(788, 134)
SOURCE(872, 50)
{
word pd20;
pd20 = (* (( (ptr) (* (( (ptr) gf←c10288)+40)/* var←c9808 */ ))+4) );
return((word) ( *( (fPt) ((* (ptr) pd20 ))))(widgetSpec←v3056, (* (( (ptr) gf←c10288)+9)/* bareClass←v2608 */ ), 0, pd20)
);
};
}
static word HSpace←P180(width←v3160)
word width←v3160;
{
word var←c3204;
/* HSpace: */
SOURCE(927, 153)
SOURCE(989, 91)
{
word var←c052;
{
W9 var←c9904;
(* (ptr) &var←c9904 ) = 0;
(* (( (ptr) &var←c9904)+1) ) = 2147483648;
(* (( (ptr) &var←c9904)+2) ) = 2147483648;
(* (( (ptr) &var←c9904)+3) ) = width←v3160;
(* (( (ptr) &var←c9904)+4) ) = 2147483648;
(* (( (ptr) &var←c9904)+5) ) = 2147483648;
(* (( (ptr) &var←c9904)+6) ) = 3;
(* (( (ptr) &var←c9904)+7) ) = 0;
(* (( (ptr) &var←c9904)+8) ) = 0;
var←c052 = (word) CreateSpace←P120(var←c9904);
};
return(var←c052);
};
}
static word VSpace←P240(height←v3264)
word height←v3264;
{
word var←c3308;
/* VSpace: */
SOURCE(1086, 155)
SOURCE(1149, 92)
{
word var←c053;
{
W9 var←c9968;
(* (ptr) &var←c9968 ) = 0;
(* (( (ptr) &var←c9968)+1) ) = 2147483648;
(* (( (ptr) &var←c9968)+2) ) = 2147483648;
(* (( (ptr) &var←c9968)+3) ) = 2147483648;
(* (( (ptr) &var←c9968)+4) ) = height←v3264;
(* (( (ptr) &var←c9968)+5) ) = 2147483648;
(* (( (ptr) &var←c9968)+6) ) = 3;
(* (( (ptr) &var←c9968)+7) ) = 0;
(* (( (ptr) &var←c9968)+8) ) = 0;
var←c053 = (word) CreateSpace←P120(var←c9968);
};
return(var←c053);
};
}
static word CreateRuler←P300(widgetSpec←v3368)
W9 widgetSpec←v3368;
{
register ptr gf←c10320 = (ptr) &globalframe;
word var←c3412;
/* CreateRuler: */
SOURCE(1246, 135)
SOURCE(1330, 51)
{
word pd21;
pd21 = (* (( (ptr) (* (( (ptr) gf←c10320)+40)/* var←c9808 */ ))+4) );
return((word) ( *( (fPt) ((* (ptr) pd21 ))))(widgetSpec←v3368, (* (( (ptr) gf←c10320)+11)/* rulerClass←v2664 */ ), 0, pd21)
);
};
}
static word HRule←P360(height←v3472)
word height←v3472;
{
word var←c3516;
/* HRule: */
SOURCE(1387, 154)
SOURCE(1449, 92)
{
word var←c054;
{
W9 var←c10064;
(* (ptr) &var←c10064 ) = 0;
(* (( (ptr) &var←c10064)+1) ) = 2147483648;
(* (( (ptr) &var←c10064)+2) ) = 2147483648;
(* (( (ptr) &var←c10064)+3) ) = 2147483648;
(* (( (ptr) &var←c10064)+4) ) = height←v3472;
(* (( (ptr) &var←c10064)+5) ) = 2147483648;
(* (( (ptr) &var←c10064)+6) ) = 3;
(* (( (ptr) &var←c10064)+7) ) = 0;
(* (( (ptr) &var←c10064)+8) ) = 0;
var←c054 = (word) CreateRuler←P300(var←c10064);
};
return(var←c054);
};
}
static word VRule←P420(width←v3576)
word width←v3576;
{
word var←c3620;
/* VRule: */
SOURCE(1547, 152)
SOURCE(1608, 91)
{
word var←c055;
{
W9 var←c10128;
(* (ptr) &var←c10128 ) = 0;
(* (( (ptr) &var←c10128)+1) ) = 2147483648;
(* (( (ptr) &var←c10128)+2) ) = 2147483648;
(* (( (ptr) &var←c10128)+3) ) = width←v3576;
(* (( (ptr) &var←c10128)+4) ) = 2147483648;
(* (( (ptr) &var←c10128)+5) ) = 2147483648;
(* (( (ptr) &var←c10128)+6) ) = 3;
(* (( (ptr) &var←c10128)+7) ) = 0;
(* (( (ptr) &var←c10128)+8) ) = 0;
var←c055 = (word) CreateRuler←P300(var←c10128);
};
return(var←c055);
};
}
/* file: XTkBasicsImpl, module: XTkBasicsImpl, compiled at: April 21, 1992 12:53:48 pm PDT */
extern void XR←install←XTkBasicsImpl() {
NoName←Q480();
}
extern void XR←run←XTkBasicsImpl() { XR←Start(&globalframe); }