/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1994 by Xerox Corporation. All rights reserved. */
/* time: April 11, 1994 10:34:07 am PDT */
/* C2C version: January 12, 1994 (sun4) */
/* ref-counting: off */
/* file: Greet, module: Greet */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [187570292,2959658417] Greet";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
#define SOURCE(p, l) /* source p, l */
#define SGNCK(i) ((int) (word) (i) < 0 ? XR←RaiseArithmeticFault(): i )
static void NoName←Q360();
static void Greet←P0();
static word GetMachineType←P60();
static word GetMachineTypeName←P120();
static word MachineTypeFromName←P180();
static word LastMachineType←P240();
static void Run←P300();
static struct {unsigned f; char r[16];} string1 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[44];} string3 = {2752556, "\260\006\005\146\151\162\163\164\257\300\015\277\004\146\300\034\367\146\045\112\114\005\004\162\145\163\164\214\257\300\015\277\004\146\300\034\367\146\045\112\114\261\000"};
static struct {unsigned f; char r[28];} string4 = {1572888, "\006\002\000\007\000\040\016\000\003\001\000\000\000\000\014\014\000\014\014\014\014\000\010\001\000\000\000"};
static struct {unsigned f; char r0[200]; char r1[200]; char r2[44];} string5
= { 28901820,
"\012Welcome to Cedar %g.%g.%g of %g.\012Copyright (c) 1991 by Xerox Corporation. All rights reserved. \012Copyright protection claimed includes all forms and matters of \012copyrightable material and information",
" now allowed by statutory or \012judicial law or hereinafter granted, including without limitation, \012material generated from the software programs which are displayed on the \012screen such as icons, screen",
" display looks, character bitmaps, etc.\012\012\000\000"};
static struct {unsigned f; char r[40];} string6 = {2359336, "\012Welcome to Cedar %g.%g.%g of %g.\012\012\000\000\000"};
static struct {unsigned f; char r[16];} string7 = {917520, "April 11, 1994\000"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\013\056\030\164\300\260\150\315\261\100\164\000\000"};
static struct {unsigned f; char r[12];} string9 = {655370, "\006\003\034\001\040\001\100\100\004\007\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\011\071\113\334\300\244\027\111\067\100\150\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\241\235\001\025\300\065\011\226\172\100\150\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\212\064\201\064\300\246\250\327\344\100\150\000\000"};
static struct {
word f0[4]; word f4; word f5; word f6;
word f7[12]; word f19; word f20; word f21;
word f22; word f23; word f24; word f25;
word f26; word f27; word f28; word f29;
word f30[5];
} globalframe = {
{0}, (word) 10, (word) 1, (word) 3,
{0}, (word) Run←P300, 0, (word) LastMachineType←P240,
0, (word) MachineTypeFromName←P180, 0, (word) GetMachineTypeName←P120,
0, (word) GetMachineType←P60, 0, (word) Greet←P0,
{0}
};
static void NoName←Q360()
{
register ptr gf←c032 = (ptr) &globalframe;
word var←c9668;
(* (( (ptr) gf←c032)+10) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c032)+13) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (ptr) (( (bPt) gf←c032)+64) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c032)+10) ), (word) &string5);
(* (ptr) (( (bPt) gf←c032)+68) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c032)+10) ), (word) &string6);
(* (ptr) (( (bPt) gf←c032)+72) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c032)+10) ), (word) &string7);
(void) XR←DeclareGlobalFrame((word) "Greet", &globalframe, (word) XR←GetTypeIndex((word) &string8, 0, (word) &string9), (word) (
( (bPt) gf←c032)+116)/* var←c9220 */ );
var←c9668 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string10)), 103);
(* (( (ptr) gf←c032)+31)/* var←c9348 */ ) = var←c9668;
(void) XR←ImportProcS(var←c9668, 530434);
(void) XR←ImportProcS(var←c9668, 1071364);
(void) XR←ImportProcS(var←c9668, 67648770);
var←c9668 = (word) XR←ImportInterface((word) "ProcessorFace", (word) XR←GetTypeIndexS((word) (&string11)), 5);
(* (( (ptr) gf←c032)+32)/* var←c9508 */ ) = var←c9668;
(void) XR←ImportProcS(var←c9668, 67109888);
(void) XR←ImportProcS(var←c9668, 67371777);
(void) XR←ImportProcS(var←c9668, 67371521);
(void) XR←ImportProcS(var←c9668, 67109120);
var←c9668 = (word) XR←ImportInterface((word) "UXIO", (word) XR←GetTypeIndexS((word) (&string12)), 7);
(* (( (ptr) gf←c032)+33)/* var←c9636 */ ) = var←c9668;
(void) XR←ImportProcS(var←c9668, 67371009);
var←c9668 = (word) XR←ExportInterface((word) "SystemVersion", (word) XR←GetTypeIndexS((word) (&string13)), 6);
(* (( (ptr) gf←c032)+34)/* var←c9700 */ ) = var←c9668;
(void) XR←ExportProcS(var←c9668, (word) (( (bPt) gf←c032)+108)/* var←c9188 */ , 67109120, (word) "GetMachineType");
(void) XR←ExportProcS(var←c9668, (word) (( (bPt) gf←c032)+100)/* var←c9156 */ , 67371521, (word) "GetMachineTypeName");
(void) XR←ExportProcS(var←c9668, (word) (( (bPt) gf←c032)+92)/* var←c9124 */ , 67371777, (word) "MachineTypeFromName");
(void) XR←ExportProcS(var←c9668, (word) (( (bPt) gf←c032)+84)/* var←c9092 */ , 67109888, (word) "LastMachineType");
(void) XR←ExportVar(var←c9668, 5, (word) (( (bPt) gf←c032)+16)/* release←v2692 */ );
}
static void Greet←P0(formal←c024, formal←c017)
word formal←c024;
word formal←c017;
{
register ptr gf←c9732 = (ptr) &globalframe;
/* Greet: */
SOURCE(101, 1649)
SOURCE(297, 77)
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
SOURCE(377, 588)
{
word var←c9252;
{
word var←c9284;
word var←c9316;
var←c9284 = XR←NewObject(12, (* (( (ptr) gf←c9732)+13) ));
var←c9316 = var←c9284;
(* (ptr) var←c9316 ) = 5;
{
word idx14;
(* (( (ptr) var←c9316)+1) ) = (
idx14 = (* (( (ptr) gf←c9732)+4) ),
SGNCK(idx14)
);
};
(* (( (ptr) var←c9316)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c9732)+13) ));
var←c9316 = (* (( (ptr) var←c9316)+2) );
(* (ptr) var←c9316 ) = 5;
{
word idx15;
(* (( (ptr) var←c9316)+1) ) = (
idx15 = (* (( (ptr) gf←c9732)+5) ),
SGNCK(idx15)
);
};
(* (( (ptr) var←c9316)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c9732)+13) ));
var←c9316 = (* (( (ptr) var←c9316)+2) );
(* (ptr) var←c9316 ) = 5;
{
word idx16;
(* (( (ptr) var←c9316)+1) ) = (
idx16 = (* (( (ptr) gf←c9732)+6) ),
SGNCK(idx16)
);
};
(* (( (ptr) var←c9316)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c9732)+13) ));
var←c9316 = (* (( (ptr) var←c9316)+2) );
(* (ptr) var←c9316 ) = 11;
(* (( (ptr) var←c9316)+1) ) = (* (( (ptr) gf←c9732)+18) );
var←c9252 = var←c9284;
};
{
word pd17;
pd17 = (* (( (ptr) (* (( (ptr) gf←c9732)+31)/* var←c9348 */ ))+65) );
(* (( (ptr) gf←c9732)+7)/* greetRopeVerbose←v2720 */ ) = (word) ( *( (fPt) ((* (ptr) pd17 ))))((* (( (ptr) gf←c9732)+16)
), var←c9252, pd17);
};
};
SOURCE(967, 176)
{
word var←c9380;
{
word var←c9412;
word var←c9444;
var←c9412 = XR←NewObject(12, (* (( (ptr) gf←c9732)+13) ));
var←c9444 = var←c9412;
(* (ptr) var←c9444 ) = 5;
{
word idx18;
(* (( (ptr) var←c9444)+1) ) = (
idx18 = (* (( (ptr) gf←c9732)+4) ),
SGNCK(idx18)
);
};
(* (( (ptr) var←c9444)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c9732)+13) ));
var←c9444 = (* (( (ptr) var←c9444)+2) );
(* (ptr) var←c9444 ) = 5;
{
word idx19;
(* (( (ptr) var←c9444)+1) ) = (
idx19 = (* (( (ptr) gf←c9732)+5) ),
SGNCK(idx19)
);
};
(* (( (ptr) var←c9444)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c9732)+13) ));
var←c9444 = (* (( (ptr) var←c9444)+2) );
(* (ptr) var←c9444 ) = 5;
{
word idx20;
(* (( (ptr) var←c9444)+1) ) = (
idx20 = (* (( (ptr) gf←c9732)+6) ),
SGNCK(idx20)
);
};
(* (( (ptr) var←c9444)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c9732)+13) ));
var←c9444 = (* (( (ptr) var←c9444)+2) );
(* (ptr) var←c9444 ) = 11;
(* (( (ptr) var←c9444)+1) ) = (* (( (ptr) gf←c9732)+18) );
var←c9380 = var←c9412;
};
{
word pd21;
pd21 = (* (( (ptr) (* (( (ptr) gf←c9732)+31)/* var←c9348 */ ))+65) );
(* (( (ptr) gf←c9732)+8)/* greetRope←v2748 */ ) = (word) ( *( (fPt) ((* (ptr) pd21 ))))((* (( (ptr) gf←c9732)+17) ), var←c9380, pd21)
;
};
};
}
static word GetMachineType←P60()
{
register ptr gf←c9764 = (ptr) &globalframe;
word var←c2968;
/* GetMachineType: */
SOURCE(1146, 95)
SOURCE(1200, 41)
{
word pd22;
pd22 = (* (( (ptr) (* (( (ptr) gf←c9764)+32)/* var←c9508 */ ))+5) );
return((word) ( *( (fPt) ((* (ptr) pd22 ))))(pd22));
};
}
static word GetMachineTypeName←P120(type←v3028)
word type←v3028;
{
register ptr gf←c9796 = (ptr) &globalframe;
word var←c3072;
/* GetMachineTypeName: */
SOURCE(1245, 120)
SOURCE(1316, 49)
{
word pd23;
pd23 = (* (( (ptr) (* (( (ptr) gf←c9796)+32)/* var←c9508 */ ))+6) );
return((word) ( *( (fPt) ((* (ptr) pd23 ))))(type←v3028, pd23));
};
}
static word MachineTypeFromName←P180(name←v3132)
word name←v3132;
{
register ptr gf←c9828 = (ptr) &globalframe;
word var←c3176;
/* MachineTypeFromName: */
SOURCE(1369, 122)
SOURCE(1441, 50)
{
word pd24;
pd24 = (* (( (ptr) (* (( (ptr) gf←c9828)+32)/* var←c9508 */ ))+7) );
return((word) ( *( (fPt) ((* (ptr) pd24 ))))(name←v3132, pd24));
};
}
static word LastMachineType←P240()
{
register ptr gf←c9860 = (ptr) &globalframe;
word var←c3236;
/* LastMachineType: */
SOURCE(1495, 96)
SOURCE(1549, 42)
{
word pd25;
pd25 = (* (( (ptr) (* (( (ptr) gf←c9860)+32)/* var←c9508 */ ))+8) );
return((word) ( *( (fPt) ((* (ptr) pd25 ))))(pd25));
};
}
static void Run←P300()
{
register ptr gf←c9892 = (ptr) &globalframe;
word greetStream←v3280;
/* Run: */
SOURCE(1595, 127)
SOURCE(1609, 58)
{
word pd26;
pd26 = (* (( (ptr) (* (( (ptr) gf←c9892)+33)/* var←c9636 */ ))+4) );
greetStream←v3280 = (word) ( *( (fPt) ((* (ptr) pd26 ))))(1, pd26);
};
SOURCE(1669, 32)
{
word pd27;
pd27 = (* (( (ptr) (* (( (ptr) gf←c9892)+31)/* var←c9348 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd27 ))))(greetStream←v3280, (* (( (ptr) gf←c9892)+8)/* greetRope←v2748 */ ), 0, 2147483647, pd27)
;
};
SOURCE(1703, 19)
{
word pd28;
pd28 = (* (( (ptr) (* (( (ptr) gf←c9892)+31)/* var←c9348 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd28 ))))(greetStream←v3280, 0, pd28);
};
}
/* file: Greet, module: Greet, compiled at: April 11, 1994 10:34:07 am PDT */
extern void XR←install←Greet() {
NoName←Q360();
}
extern void XR←run←Greet() { XR←Start(&globalframe); }