/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: February 22, 1992 10:56:17 am PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: TestProfiles, module: TestProfiles */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [1841684743,304281101] TestProfiles";
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 {word f0, f1;} W2;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
#define SOURCE(p, l) /* source p, l */
static void NoName←Q336();
static void TestProfiles←P0();
static void CreateProfile←P60();
static word NoName←Q396();
static void ProfileLine←P120();
static void Init←P180();
static void NoName←Q456();
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[16];} string3 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[8];} string4 = {458760, "Failure"};
static struct {unsigned f; char r[28];} string5 = {1638428, "Can't find any filenames\012\000\000"};
static struct {unsigned f; char r[36];} string6 = {2293796, "Can't find profile on property list"};
static struct {unsigned f; char r[20];} string7 = {1245204, "Key: %g, Value: %g\012"};
static struct {unsigned f; char r[12];} string8 = {720908, "(not found)"};
static struct {unsigned f; char r[16];} string9 = {851984, "CreateProfile\000\000"};
static struct {unsigned f; char r[68];} string10 = {4194372, "Create a profile from the list of filenames on the command line\012\000\000\000"};
static struct {unsigned f; char r[12];} string11 = {720908, "ProfileLine"};
static struct {unsigned f; char r[96];} string12 = {6226016, "Look up the keys on the command line in the profile stored on the command tool's property list\012"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\155\305\341\007\300\022\042\366\015\100\164\000\000"};
static struct {unsigned f; char r[12];} string14 = {524296, "\006\002\020\001\050\004\101\377\000\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\311\235\133\064\300\165\175\234\175\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\141\260\110\353\300\162\250\066\353\100\150\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\000\150\114\241\300\252\115\265\110\100\150\000\000"};
static struct {
word f0[19]; word f19; word f20; word f21;
word f22; word f23; word f24; word f25;
word f26[6];
} globalframe = {
{0}, (word) Init←P180, 0, (word) ProfileLine←P120,
0, (word) CreateProfile←P60, 0, (word) TestProfiles←P0,
{0}
};
static void NoName←Q336()
{
register ptr gf←c045 = (ptr) &globalframe;
word var←c9492;
(* (( (ptr) gf←c045)+6) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c045)+7) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string2);
(* (ptr) (( (bPt) gf←c045)+40) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c045)+6) ), (word) &string4);
(* (ptr) (( (bPt) gf←c045)+44) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c045)+7) ), (word) &string5);
(* (ptr) (( (bPt) gf←c045)+48) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c045)+7) ), (word) &string6);
(* (ptr) (( (bPt) gf←c045)+52) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c045)+7) ), (word) &string7);
(* (ptr) (( (bPt) gf←c045)+56) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c045)+7) ), (word) &string8);
(* (ptr) (( (bPt) gf←c045)+60) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c045)+7) ), (word) &string9);
(* (ptr) (( (bPt) gf←c045)+64) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c045)+7) ), (word) &string10);
(* (ptr) (( (bPt) gf←c045)+68) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c045)+7) ), (word) &string11);
(* (ptr) (( (bPt) gf←c045)+72) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c045)+7) ), (word) &string12);
(void) XR←DeclareGlobalFrame((word) "TestProfiles", &globalframe, (word) XR←GetTypeIndex((word) &string13, 0, (word) &string14)
, (word) (( (bPt) gf←c045)+100)/* var←c9012 */ );
var←c9492 = (word) XR←ImportInterface((word) "Commander", (word) XR←GetTypeIndexS((word) (&string15)), 3);
(* (( (ptr) gf←c045)+31)/* var←c9460 */ ) = var←c9492;
(void) XR←ImportProcS(var←c9492, 1310725);
var←c9492 = (word) XR←ImportInterface((word) "CommanderOps", (word) XR←GetTypeIndexS((word) (&string16)), 14);
(* (( (ptr) gf←c045)+27)/* var←c9044 */ ) = var←c9492;
(void) XR←ImportProcS(var←c9492, 134742274);
var←c9492 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string17)), 103);
(* (( (ptr) gf←c045)+30)/* var←c9428 */ ) = var←c9492;
(void) XR←ImportProcS(var←c9492, 2111493);
var←c9492 = (word) XR←ImportInterface((word) "PFS", (word) XR←GetTypeIndexS((word) (&string18)), 40);
(* (( (ptr) gf←c045)+29)/* var←c9172 */ ) = var←c9492;
var←c9492 = (word) XR←ImportInterface((word) "Profiles", (word) XR←GetTypeIndexS((word) (&string19)), 17);
(* (( (ptr) gf←c045)+28)/* var←c9140 */ ) = var←c9492;
(void) XR←ImportProcS(var←c9492, 67897603);
(void) XR←ImportProcS(var←c9492, 67633410);
}
static void TestProfiles←P0(formal←c018, formal←c017)
word formal←c018;
word formal←c017;
{
/* TestProfiles: */
SOURCE(61, 1151)
SOURCE(1206, 6)
(void) Init←P180();
}
static void CreateProfile←P60(formal←c027, cmd←v3820)
word formal←c027;
word cmd←v3820;
{
W8 var←c9524;
register ptr gf←c9556 = (ptr) &globalframe;
word result←v3864;
/* declaration of msg←v3892 skipped */
/* CreateProfile: */
SOURCE(208, 294)
SOURCE(208, 294)
result←v3864 = 0;
SOURCE(208, 294)
var←c9524.f4/* msg←v3892 */ = 0;
SOURCE(247, 255)
SOURCE(249, 8)
{
/* declaration of tokens←v2868 skipped */
W2 var←c023;
SOURCE(249, 8)
{
word pd20;
pd20 = (* (( (ptr) (* (( (ptr) gf←c9556)+27)/* var←c9044 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd20 ))))((word) &var←c023, cmd←v3820, 0, pd20);
};
var←c9524.f5/* tokens←v2868 */ = var←c023.f0;
SOURCE(313, 65)
if ((var←c9524.f5/* tokens←v2868 */ == 0)) {
SOURCE(332, 46)
result←v3864 = (* (( (ptr) gf←c9556)+10) );
var←c9524.f4/* msg←v3892 */ = (* (( (ptr) gf←c9556)+11) );
goto lab←L100000;
};
SOURCE(380, 73)
{
/* declaration of var←c01 skipped */
var←c9524.f6/* var←c01 */ = (* (( (ptr) (* (( (ptr) gf←c9556)+28)/* var←c9140 */ ))+5) );
{
/* declaration of var←c02 skipped */
{
word var←c03;
{
word var←c051;
var←c051 = (word) &var←c9524;
var←c03 = (word) XR←Enable(( ((word) (fPt) NoName←Q396) ), ( ((word) (fPt) NoName←Q456) ), var←c051);
};
if ((var←c03 == 2)) {
goto lab←L100001;
};
};
(* (( (ptr) gf←c9556)+4)/* profile←v2720 */ ) = var←c9524.f7/* var←c02 */ ;
};
};
};
goto lab←L100004;
lab←L100001: ;
SOURCE(483, 17)
result←v3864 = (* (( (ptr) gf←c9556)+10) );
var←c9524.f4/* msg←v3892 */ = 0;
goto lab←L100000;
lab←L100004: ;
/* removed tail goto */
lab←L100000: ;
(* (ptr) formal←c027 ) = result←v3864;
(* (( (ptr) formal←c027)+1) ) = var←c9524.f4/* msg←v3892 */ ;
return;
}
static word NoName←Q396(formal←c047)
word formal←c047;
{
SOURCE(380, 73)
{
word pd21;
pd21 = (* (( (ptr) formal←c047)+6) );
(* (( (ptr) formal←c047)+7) ) = (word) ( *( (fPt) ((* (ptr) pd21 ))))((* (( (ptr) formal←c047)+5) ), 1, pd21);
};
return(0);
}
static void ProfileLine←P120(formal←c038, cmd←v3952)
word formal←c038;
word cmd←v3952;
{
register ptr gf←c9588 = (ptr) &globalframe;
word result←v3996;
word msg←v4024;
/* ProfileLine: */
SOURCE(506, 364)
SOURCE(506, 364)
result←v3996 = 0;
SOURCE(506, 364)
msg←v4024 = 0;
SOURCE(545, 76)
if (((* (( (ptr) gf←c9588)+4)/* profile←v2720 */ ) == 0)) {
SOURCE(565, 56)
result←v3996 = (* (( (ptr) gf←c9588)+10) );
msg←v4024 = (* (( (ptr) gf←c9588)+12) );
goto lab←L100005;
};
SOURCE(623, 247)
{
register word tokens←v2996;
W2 var←c034;
{
word pd22;
pd22 = (* (( (ptr) (* (( (ptr) gf←c9588)+27)/* var←c9044 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd22 ))))((word) &var←c034, cmd←v3952, 0, pd22);
};
tokens←v2996 = var←c034.f0;
lab←L100009: ;
if ((tokens←v2996 != 0)) {
}
else {
goto lab←L100006;
};
SOURCE(723, 147)
{
word var←c9300;
{
word pd23;
pd23 = (* (( (ptr) (* (( (ptr) gf←c9588)+28)/* var←c9140 */ ))+13) );
var←c9300 = (word) ( *( (fPt) ((* (ptr) pd23 ))))((* (( (ptr) gf←c9588)+4)/* profile←v2720 */ ), (* (ptr) tokens←v2996 ), (* (
( (ptr) gf←c9588)+14) ), pd23);
};
{
W2 var←c9332;
W2 var←c9364;
W2 var←c052;
var←c9332.f0 = 11;
var←c9332.f1 = (* (ptr) tokens←v2996 );
var←c9364.f0 = 11;
var←c9364.f1 = var←c9300;
(* (ptr) (word) &var←c052 ) = 0;
(* (( (ptr) (word) &var←c052) + 1) ) = 0;
{
word pd24;
pd24 = (* (( (ptr) (* (( (ptr) gf←c9588)+30)/* var←c9428 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd24 ))))((* (( (ptr) cmd←v3952)+1) ), (* (( (ptr) gf←c9588)+13) ), var←c9332, var←c9364, var←c052, pd24)
;
};
};
};
tokens←v2996 = (* (( (ptr) tokens←v2996)+1) );
goto lab←L100009;
lab←L100006: ;
};
/* removed tail goto */
lab←L100005: ;
(* (ptr) formal←c038 ) = result←v3996;
(* (( (ptr) formal←c038)+1) ) = msg←v4024;
return;
}
static void Init←P180()
{
register ptr gf←c9620 = (ptr) &globalframe;
/* Init: */
SOURCE(885, 314)
SOURCE(900, 135)
{
word pd25;
pd25 = (* (( (ptr) (* (( (ptr) gf←c9620)+31)/* var←c9460 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd25 ))))((* (( (ptr) gf←c9620)+15) ), (word) (( (bPt) gf←c9620)+92)/* var←c8980 */ , (* (( (ptr) gf←c9620)+16)
), 0, 1, pd25);
};
SOURCE(1037, 162)
{
word pd26;
pd26 = (* (( (ptr) (* (( (ptr) gf←c9620)+31)/* var←c9460 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd26 ))))((* (( (ptr) gf←c9620)+17) ), (word) (( (bPt) gf←c9620)+84)/* var←c8948 */ , (* (( (ptr) gf←c9620)+18)
), 0, 1, pd26);
};
}
static void NoName←Q456(formal←c044, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c044;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c050 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c050)+29)/* var←c9172 */ ))+9) ))) {
{
W4 error←v7656;
error←v7656 = (* (W4Pt) formal←c200003 );
SOURCE(429, 24)
(* (( (ptr) formal←c200000)+4) ) = error←v7656.f2;
SOURCE(455, 9)
(* (ptr) formal←c044 ) = 2;
(* (( (ptr) formal←c044)+1) ) = 2;
return;
};
};
(* (ptr) formal←c044 ) = 0;
(* (( (ptr) formal←c044)+1) ) = 0;
return;
}
/* file: TestProfiles, module: TestProfiles, compiled at: February 22, 1992 10:56:17 am PST */
extern void XR←install←TestProfiles() {
NoName←Q336();
}
extern void XR←run←TestProfiles() { XR←Start(&globalframe); }