/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */ /* time: February 24, 1992 2:05:07 pm PST */ /* C2C version: October 16, 1990 (native) */ /* ref-counting: off */ /* file: PCRCmdImpl, module: PCRCmdImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [641828490,326717721] PCRCmdImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; typedef struct {word f0, f1;} W2; typedef word (*fPt)(); #define SOURCE(p, l) /* source p, l */ static void NoName_Q360(); static void PCRCmdImpl_P0(); static void PCRCmdCommandProc_P60(); static void PutIt_P300(); static void RegisterPCRCmd_P120(); static word PCedarCmdProc_P180(); static void RegisterPCedarCmdWithPCR_P240(); 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[44];} string3 = {2818092, "\216\260\007\006\154\145\156\147\164\150\210\241\000\200\177\377\005\004\164\145\170\164\254\206\012\011\155\141\170\114\145\156\147\164\150\210\241\000\200\177\377\243\261"}; static struct {unsigned f; char r[16];} string4 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"}; static struct {unsigned f; char r[8];} string5 = {393224, "PCRCmd\000"}; static struct {unsigned f; char r[64];} string6 = {3997760, "PCRCmd expression ; ...\012 Execute command in PCR interpreter\000\000"}; static struct {unsigned f; char r[8];} string7 = {458760, "Failure"}; static struct {unsigned f; char r[12];} string8 = {589836, "PCedarCmd\000\000"}; static struct {unsigned f; char r[4];} string9 = {4, "\000\000\000"}; static struct {unsigned f; char r[64];} string10 = {4063296, "pcedar-command -- execute pcedar-command in a PCedar Commander\000"}; static struct {unsigned f; char r[8];} string11 = {458760, "Success"}; static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\046\101\206\212\300\023\171\121\031\100\164\000\000"}; static struct {unsigned f; char r[8];} string13 = {393222, "\006\001,\004@\177\000"}; static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"}; static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\311\235\133\064\300\165\175\234\175\100\150\000\000"}; static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"}; static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\220\270\074\115\300\121\012\115\357\100\150\000\000"}; static struct { word f0[18]; word f18; word f19; word f20; word f21; word f22; word f23; word f24; word f25; word f26; word f27[6]; } globalframe = { {0}, (word) RegisterPCedarCmdWithPCR_P240, 0, (word) PCedarCmdProc_P180, 0, (word) RegisterPCRCmd_P120, 0, (word) PCRCmdCommandProc_P60, 0, (word) PCRCmdImpl_P0, {0} }; static void NoName_Q360() { register ptr gf_c044 = (ptr) &globalframe; word var_c9744; (* (( (ptr) gf_c044)+4) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c044)+7) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string2); (* (( (ptr) gf_c044)+9) ) = (word) XR_GetTypeIndex((word) &string4, 0, (word) &string2); (* (ptr) (( (bPt) gf_c044)+44) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c044)+9) ), (word) &string5); (* (ptr) (( (bPt) gf_c044)+48) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c044)+9) ), (word) &string6); (* (ptr) (( (bPt) gf_c044)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c044)+4) ), (word) &string7); (* (ptr) (( (bPt) gf_c044)+56) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c044)+7) ), (word) &string8); (* (ptr) (( (bPt) gf_c044)+60) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c044)+7) ), (word) &string9); (* (ptr) (( (bPt) gf_c044)+64) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c044)+7) ), (word) &string10); (* (ptr) (( (bPt) gf_c044)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c044)+4) ), (word) &string11); (void) XR_DeclareGlobalFrame((word) "PCRCmdImpl", &globalframe, (word) XR_GetTypeIndex((word) &string12, 0, (word) &string13) , (word) (( (bPt) gf_c044)+104)/* var_c9168 */ ); var_c9744 = (word) XR_ImportInterface((word) "Commander", (word) XR_GetTypeIndexS((word) (&string14)), 3); (* (( (ptr) gf_c044)+30)/* var_c9456 */ ) = var_c9744; (void) XR_ImportProcS(var_c9744, 1310725); var_c9744 = (word) XR_ImportInterface((word) "CommanderOps", (word) XR_GetTypeIndexS((word) (&string15)), 14); (* (( (ptr) gf_c044)+31)/* var_c9488 */ ) = var_c9744; (void) XR_ImportProcS(var_c9744, 135006211); var_c9744 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string16)), 103); (* (( (ptr) gf_c044)+29)/* var_c9424 */ ) = var_c9744; (void) XR_ImportProcS(var_c9744, 1071364); var_c9744 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string17)), 43); (* (( (ptr) gf_c044)+32)/* var_c9584 */ ) = var_c9744; (void) XR_ImportProcS(var_c9744, 67373569); var_c9744 = (word) XR_ImportInterface((word) "UXStrings", (word) XR_GetTypeIndexS((word) (&string18)), 9); (* (( (ptr) gf_c044)+28)/* var_c9232 */ ) = var_c9744; (void) XR_ImportProcS(var_c9744, 67633922); (void) XR_ImportProcS(var_c9744, 67371265); } static void PCRCmdImpl_P0(formal_c015, formal_c014) word formal_c015; word formal_c014; { /* PCRCmdImpl: */ SOURCE(71, 1355) SOURCE(1382, 16) (void) RegisterPCRCmd_P120(); SOURCE(1400, 26) (void) RegisterPCedarCmdWithPCR_P240(); } static void PCRCmdCommandProc_P60(formal_c025, formal_c053) word formal_c025; word formal_c053; { W7 var_c9776; /* declaration of cmd_v4236 skipped */ register ptr gf_c9808 = (ptr) &globalframe; word result_v4280; word msg_v4308; /* declaration of var_c9200 skipped */ word rawCmdString_v2912 = 0; word ans_v2940 = 0; var_c9776.f4/* cmd_v4236 */ = formal_c053; /* PCRCmdCommandProc: */ SOURCE(211, 404) { word tmpAddr19; tmpAddr19 = (word) (( (ptr) &var_c9776)+5)/* var_c9200 */ ; (* (ptr) tmpAddr19 ) = ( ((word) (fPt) PutIt_P300) ); (* (( (ptr) tmpAddr19) + 1) ) = 1; }; SOURCE(211, 404) result_v4280 = 0; SOURCE(211, 404) msg_v4308 = 0; SOURCE(432, 48) { word pd20; pd20 = (* (( (ptr) (* (( (ptr) gf_c9808)+28)/* var_c9232 */ ))+5) ); rawCmdString_v2912 = (word) ( *( (fPt) ((* (ptr) pd20 ))))((* ((( (ptr) var_c9776.f4/* cmd_v4236 */ )+4)) ), pd20); }; SOURCE(482, 45) ans_v2940 = (word) PCRCmdGlue$Execute(rawCmdString_v2912, (word) (( (bPt) &var_c9776)+20)/* var_c9200 */ ); SOURCE(529, 86) if ((ans_v2940 == 0)) { SOURCE(547, 28) result_v4280 = (* (( (ptr) gf_c9808)+17) ); msg_v4308 = 0; /* removed tail goto */ } else { SOURCE(575, 40) { word var_c9328; word var_c9360; var_c9328 = (* (( (ptr) gf_c9808)+13) ); { word pd21; pd21 = (* (( (ptr) (* (( (ptr) gf_c9808)+28)/* var_c9232 */ ))+7) ); var_c9360 = (word) ( *( (fPt) ((* (ptr) pd21 ))))(ans_v2940, 2147483647, pd21); }; result_v4280 = var_c9328; msg_v4308 = var_c9360; /* removed tail goto */ }; }; (* (ptr) formal_c025 ) = result_v4280; (* (( (ptr) formal_c025)+1) ) = msg_v4308; return; } static void PutIt_P300(msg_v4528, nBytes_v4556, formal_c9872) word msg_v4528; word nBytes_v4556; word formal_c9872; { register ptr gf_c9840 = (ptr) &globalframe; formal_c9872 = (formal_c9872 - 20); /* PutIt: */ SOURCE(327, 100) SOURCE(377, 50) { word var_c9392; { word pd22; pd22 = (* (( (ptr) (* (( (ptr) gf_c9840)+28)/* var_c9232 */ ))+7) ); var_c9392 = (word) ( *( (fPt) ((* (ptr) pd22 ))))(msg_v4528, nBytes_v4556, pd22); }; { word pd23; pd23 = (* (( (ptr) (* (( (ptr) gf_c9840)+29)/* var_c9424 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd23 ))))((* (( (ptr) (* (( (ptr) formal_c9872)+4) ))+1) ), var_c9392, 0, 2147483647, pd23); }; }; } static void RegisterPCRCmd_P120() { register ptr gf_c9904 = (ptr) &globalframe; word doc_v3012; /* RegisterPCRCmd: */ SOURCE(621, 172) SOURCE(646, 81) doc_v3012 = (* (( (ptr) gf_c9904)+12) ); SOURCE(729, 64) { word pd24; pd24 = (* (( (ptr) (* (( (ptr) gf_c9904)+30)/* var_c9456 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd24 ))))((* (( (ptr) gf_c9904)+11) ), (word) (( (bPt) gf_c9904)+96)/* var_c9136 */ , doc_v3012, 0, 0, pd24) ; }; } static word PCedarCmdProc_P180(cmdLine_v4368, putProc_v4396, data_v4424) word cmdLine_v4368; word putProc_v4396; word data_v4424; { register ptr gf_c9936 = (ptr) &globalframe; word result_v4468; word cmdLineRope_v3056 = 0; word outRope_v3084 = 0; word outString_v3112 = 0; /* PCedarCmdProc: */ SOURCE(798, 338) SOURCE(798, 338) result_v4468 = 0; SOURCE(945, 39) { word pd25; pd25 = (* (( (ptr) (* (( (ptr) gf_c9936)+28)/* var_c9232 */ ))+7) ); cmdLineRope_v3056 = (word) ( *( (fPt) ((* (ptr) pd25 ))))(cmdLine_v4368, 2147483647, pd25); }; SOURCE(986, 69) { W2 var_c9520; { word pd26; pd26 = (* (( (ptr) (* (( (ptr) gf_c9936)+31)/* var_c9488 */ ))+12) ); (void) ( *( (fPt) ((* (ptr) pd26 ))))((word) &var_c9520, cmdLineRope_v3056, 0, 0, pd26); }; result_v4468 = var_c9520.f1; outRope_v3084 = var_c9520.f0; }; SOURCE(1057, 37) { word pd27; pd27 = (* (( (ptr) (* (( (ptr) gf_c9936)+28)/* var_c9232 */ ))+5) ); outString_v3112 = (word) ( *( (fPt) ((* (ptr) pd27 ))))(outRope_v3084, pd27); }; SOURCE(1096, 40) { word var_c9552; { word pd28; pd28 = (* (( (ptr) (* (( (ptr) gf_c9936)+32)/* var_c9584 */ ))+14) ); var_c9552 = (word) ( *( (fPt) ((* (ptr) pd28 ))))(outRope_v3084, pd28); }; (void) ( *( (fPt) ((* (ptr) putProc_v4396 ))))(outString_v3112, var_c9552, putProc_v4396); }; SOURCE(798, 338) return(result_v4468); } static void RegisterPCedarCmdWithPCR_P240() { register ptr gf_c9968 = (ptr) &globalframe; /* RegisterPCedarCmdWithPCR: */ SOURCE(1142, 234) SOURCE(1177, 199) { word var_c9712; { word var_c9616; word var_c9648; word var_c9680; { word pd29; pd29 = (* (( (ptr) (* (( (ptr) gf_c9968)+28)/* var_c9232 */ ))+5) ); var_c9616 = (word) ( *( (fPt) ((* (ptr) pd29 ))))((* ((( (ptr) gf_c9968)+14)) ), pd29); }; { word pd30; pd30 = (* (( (ptr) (* (( (ptr) gf_c9968)+28)/* var_c9232 */ ))+5) ); var_c9648 = (word) ( *( (fPt) ((* (ptr) pd30 ))))((* ((( (ptr) gf_c9968)+15)) ), pd30); }; { word pd31; pd31 = (* (( (ptr) (* (( (ptr) gf_c9968)+28)/* var_c9232 */ ))+5) ); var_c9680 = (word) ( *( (fPt) ((* (ptr) pd31 ))))((* ((( (ptr) gf_c9968)+16)) ), pd31); }; var_c9712 = (word) PCRCmdGlue$RegisterWithPCRCommandLoop((word) (( (bPt) gf_c9968)+80)/* var_c9072 */ , 0, var_c9616, var_c9648, var_c9680) ; }; }; } /* file: PCRCmdImpl, module: PCRCmdImpl, compiled at: February 24, 1992 2:05:05 pm PST */ extern void XR_install_PCRCmdImpl() { NoName_Q360(); } extern void XR_run_PCRCmdImpl() { XR_Start(&globalframe); }