/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: January 19, 1993 12:23:18 pm PST */
/* C2C version: October 7, 1992 (native) */
/* ref-counting: off */
/* file: CommanderSysPImpl, module: CommanderSysPImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [4221914629,3177391448] CommanderSysPImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q540();
static void CommanderSysPImpl_P0();
static void ExtendedNow_P60();
static word GetEnv_P120();
static void CurrentProcess_P180();
static void AbortProcess_P240();
static word UNCAUGHTProtect_P300();
static void ExitWorldCommand_P360();
static void InterceptTerminationCommand_P420();
static void GCollect_P480();
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[20];} string3 = {1179668, "Exit the PCR world\000"};
static struct {unsigned f; char r[12];} string4 = {655372, "ExitWorld!\000"};
static struct {unsigned f; char r[56];} string5 = {3539000, "Same as ExitWorld, defeats command abbreviation danger\000"};
static struct {unsigned f; char r[12];} string6 = {524300, "GCollect\000\000\000"};
static struct {unsigned f; char r[24];} string7 = {1507352, "force a garbage collect"};
static struct {unsigned f; char r[12];} string8 = {589836, "ExitWorld\000\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\373\245\116\005\300\275\143\045\130\100\164\000\000"};
static struct {unsigned f; char r[4];} string10 = {196611, "\004_\200"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\212\174\364\337\300\361\376\000\156\100\150\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\064\321\106\155\300\242\071\325\060\100\150\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\240\236\274\315\300\111\163\325\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\277\374\326\303\300\302\136\022\175\100\150\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\210\010\162\111\300\030\013\367\102\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\322\342\022\352\300\100\014\165\000\100\150\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\327\320\204\011\300\302\026\022\076\100\150\000\000"};
static struct {
   word f0[13]; word f13; word f14; word f15; 
   word f16; word f17; word f18; word f19; 
   word f20; word f21; word f22; word f23; 
   word f24; word f25; word f26; word f27; 
   word f28; word f29; word f30[9]; 
   } globalframe = {
   {0}, (word) GCollect_P480, 0, (word) InterceptTerminationCommand_P420, 
   0, (word) ExitWorldCommand_P360, 0, (word) UNCAUGHTProtect_P300, 
   0, (word) AbortProcess_P240, 0, (word) CurrentProcess_P180, 
   0, (word) GetEnv_P120, 0, (word) ExtendedNow_P60, 
   0, (word) CommanderSysPImpl_P0, {0}
   };

static void NoName_Q540()
   {
   register ptr gf_c049 =  (ptr) &globalframe;
   word var_c9652;
   (* (( (ptr) gf_c049)+5) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (*  (ptr) (( (bPt) gf_c049)+28) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c049)+5) ), (word) &string3);
   (*  (ptr) (( (bPt) gf_c049)+32) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c049)+5) ), (word) &string4);
   (*  (ptr) (( (bPt) gf_c049)+36) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c049)+5) ), (word) &string5);
   (*  (ptr) (( (bPt) gf_c049)+40) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c049)+5) ), (word) &string6);
   (*  (ptr) (( (bPt) gf_c049)+44) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c049)+5) ), (word) &string7);
   (*  (ptr) (( (bPt) gf_c049)+48) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c049)+5) ), (word) &string8);
   (void) XR_DeclareGlobalFrame((word) "CommanderSysPImpl", &globalframe, (word) XR_GetTypeIndex((word) &string9, 0, (word) &string10)
      , (word) (( (bPt) gf_c049)+116)/* var_c9236 */ );
   var_c9652 = (word) XR_ImportInterface((word) "BasicTime", (word) XR_GetTypeIndexS((word) (&string11)), 24);
   (* (( (ptr) gf_c049)+32)/* var_c9300 */  ) = var_c9652;
   (void) XR_ImportProcS(var_c9652, 134220544);
   var_c9652 = (word) XR_ImportInterface((word) "Commander", (word) XR_GetTypeIndexS((word) (&string12)), 3);
   (* (( (ptr) gf_c049)+31)/* var_c9268 */  ) = var_c9652;
   (void) XR_ImportProcS(var_c9652, 1310725);
   var_c9652 = (word) XR_ImportInterface((word) "PreDebug", (word) XR_GetTypeIndexS((word) (&string13)), 5);
   (* (( (ptr) gf_c049)+35)/* var_c9556 */  ) = var_c9652;
   (void) XR_ImportProcS(var_c9652, 67633922);
   var_c9652 = (word) XR_ImportInterface((word) "Process", (word) XR_GetTypeIndexS((word) (&string14)), 22);
   (* (( (ptr) gf_c049)+34)/* var_c9460 */  ) = var_c9652;
   (void) XR_ImportProcS(var_c9652, 527105);
   (void) XR_ImportProcS(var_c9652, 134219776);
   var_c9652 = (word) XR_ImportInterface((word) "SafeStorage", (word) XR_GetTypeIndexS((word) (&string15)), 27);
   (* (( (ptr) gf_c049)+37)/* var_c9620 */  ) = var_c9652;
   (void) XR_ImportProcS(var_c9652, 526082);
   var_c9652 = (word) XR_ImportInterface((word) "Termination", (word) XR_GetTypeIndexS((word) (&string16)), 5);
   (* (( (ptr) gf_c049)+36)/* var_c9588 */  ) = var_c9652;
   (void) XR_ImportProcS(var_c9652, 768);
   (void) XR_ImportProcS(var_c9652, 524290);
   var_c9652 = (word) XR_ImportInterface((word) "UnixEnviron", (word) XR_GetTypeIndexS((word) (&string17)), 1);
   (* (( (ptr) gf_c049)+33)/* var_c9396 */  ) = var_c9652;
   (void) XR_ImportProcS(var_c9652, 67371009);
   var_c9652 = (word) XR_ExportInterface((word) "CommanderSys", (word) XR_GetTypeIndexS((word) (&string18)), 5);
   (* (( (ptr) gf_c049)+38)/* var_c9684 */  ) = var_c9652;
   (void) XR_ExportProcS(var_c9652, (word) (( (bPt) gf_c049)+108)/* var_c9204 */ , 134217728);
   (void) XR_ExportProcS(var_c9652, (word) (( (bPt) gf_c049)+100)/* var_c9172 */ , 67371265);
   (void) XR_ExportProcS(var_c9652, (word) (( (bPt) gf_c049)+92)/* var_c9140 */ , 134218240);
   (void) XR_ExportProcS(var_c9652, (word) (( (bPt) gf_c049)+84)/* var_c9108 */ , 525057);
   (void) XR_ExportProcS(var_c9652, (word) (( (bPt) gf_c049)+76)/* var_c9076 */ , 67634178);
   }

static void CommanderSysPImpl_P0(formal_c022, formal_c021)
   word formal_c022;
   word formal_c021;
   {
   register ptr gf_c9716 =  (ptr) &globalframe;
   /* CommanderSysPImpl: */ 
SOURCE(111, 1414)
SOURCE(1176, 104)
   {
      word pd19;
      pd19 = (* (( (ptr) (* (( (ptr) gf_c9716)+31)/* var_c9268 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd19 ))))((* (( (ptr) gf_c9716)+12) ), (word) (( (bPt) gf_c9716)+68)/* var_c9044 */ , (* (( (ptr) gf_c9716)+7)
          ), 0, 1, pd19);
      };
SOURCE(1282, 141)
   {
      word pd20;
      pd20 = (* (( (ptr) (* (( (ptr) gf_c9716)+31)/* var_c9268 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd20 ))))((* (( (ptr) gf_c9716)+8) ), (word) (( (bPt) gf_c9716)+68)/* var_c9044 */ , (* (( (ptr) gf_c9716)+9)
          ), 0, 1, pd20);
      };
SOURCE(1425, 100)
   {
      word pd21;
      pd21 = (* (( (ptr) (* (( (ptr) gf_c9716)+31)/* var_c9268 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd21 ))))((* (( (ptr) gf_c9716)+10) ), (word) (( (bPt) gf_c9716)+52)/* var_c8980 */ , (* (( (ptr) gf_c9716)+11)
          ), 0, 1, pd21);
      };
   }

static void ExtendedNow_P60(formal_c026)
   word formal_c026;
   {
   register ptr gf_c9748 =  (ptr) &globalframe;
   word var_c059;
   word var_c060;
   W2 now_v3644;
   /* ExtendedNow: */ 
SOURCE(287, 128)
   /* Return var split */ 
SOURCE(331, 52)
   {
      word pd22;
      pd22 = (* (( (ptr) (* (( (ptr) gf_c9748)+32)/* var_c9300 */  ))+15) );
      (void) ( *( (fPt) ((*  (ptr) pd22 ))))((word) (&now_v3644), pd22);
      };
SOURCE(385, 30)
   var_c059 = now_v3644.f0;
   var_c060 = now_v3644.f1;
   /* removed tail goto */ 
   (* (( (ptr) formal_c026)+1) ) = var_c060;
   (*  (ptr) formal_c026 ) = var_c059;
   return;
   }

static word GetEnv_P120(key_v3168)
   word key_v3168;
   {
   register ptr gf_c9780 =  (ptr) &globalframe;
   word var_c3212;
   /* GetEnv: */ 
SOURCE(419, 84)
SOURCE(470, 33)
   {
      word pd23;
      pd23 = (* (( (ptr) (* (( (ptr) gf_c9780)+33)/* var_c9396 */  ))+4) );
      return((word) ( *( (fPt) ((*  (ptr) pd23 ))))(key_v3168, pd23));
      };
   }

static void CurrentProcess_P180(formal_c032)
   word formal_c032;
   {
   register ptr gf_c9812 =  (ptr) &globalframe;
   W2 var_c3272;
   /* CurrentProcess: */ 
SOURCE(507, 79)
SOURCE(557, 29)
   {
      W2 var_c9492;
      {
         word pd24;
         pd24 = (* (( (ptr) (* (( (ptr) gf_c9812)+34)/* var_c9460 */  ))+12) );
         (void) ( *( (fPt) ((*  (ptr) pd24 ))))((word) (&var_c9492), pd24);
         };
      var_c3272 = var_c9492;
      /* removed tail goto */ 
      };
   (*  (W2Pt) formal_c032 ) = var_c3272;
   return;
   }

static void AbortProcess_P240(process_v3348)
   W2 process_v3348;
   {
   register ptr gf_c9844 =  (ptr) &globalframe;
   /* AbortProcess: */ 
SOURCE(592, 79)
SOURCE(649, 22)
   {
      word pd25;
      pd25 = (* (( (ptr) (* (( (ptr) gf_c9844)+34)/* var_c9460 */  ))+15) );
      (void) ( *( (fPt) ((*  (ptr) pd25 ))))(process_v3348, pd25);
      };
   }

static word UNCAUGHTProtect_P300(inner_v3424, rejectP_v3452)
   word inner_v3424;
   word rejectP_v3452;
   {
   register ptr gf_c9876 =  (ptr) &globalframe;
   word ok_v3616;
   /* UNCAUGHTProtect: */ 
SOURCE(677, 152)
SOURCE(677, 152)
   ok_v3616 = 1;
SOURCE(787, 42)
   {
      word pd26;
      pd26 = (* (( (ptr) (* (( (ptr) gf_c9876)+35)/* var_c9556 */  ))+7) );
      return((word) ( *( (fPt) ((*  (ptr) pd26 ))))(inner_v3424, rejectP_v3452, pd26));
      };
   }

static void ExitWorldCommand_P360(formal_c040, cmd_v4400)
   word formal_c040;
   word cmd_v4400;
   {
   register ptr gf_c9908 =  (ptr) &globalframe;
   word result_v4444;
   word msg_v4472;
   /* ExitWorldCommand: */ 
SOURCE(833, 131)
SOURCE(833, 131)
   result_v4444 = 0;
SOURCE(833, 131)
   msg_v4472 = 0;
SOURCE(877, 69)
   {
      word pd27;
      pd27 = (* (( (ptr) (* (( (ptr) gf_c9908)+36)/* var_c9588 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd27 ))))((* (( (ptr) cmd_v4400)+4) ), 0, pd27);
      };
SOURCE(948, 16)
   result_v4444 = 0;
   msg_v4472 = 0;
   /* removed tail goto */ 
   (*  (ptr) formal_c040 ) = result_v4444;
   (* (( (ptr) formal_c040)+1) ) = msg_v4472;
   return;
   }

static void InterceptTerminationCommand_P420(formal_c044, cmd_v4532)
   word formal_c044;
   word cmd_v4532;
   {
   register ptr gf_c9940 =  (ptr) &globalframe;
   word result_v4576;
   word msg_v4604;
   /* InterceptTerminationCommand: */ 
SOURCE(969, 103)
SOURCE(969, 103)
   result_v4576 = 0;
SOURCE(969, 103)
   msg_v4604 = 0;
SOURCE(1024, 30)
   {
      word pd28;
      pd28 = (* (( (ptr) (* (( (ptr) gf_c9940)+36)/* var_c9588 */  ))+7) );
      (void) ( *( (fPt) ((*  (ptr) pd28 ))))(pd28);
      };
SOURCE(1056, 16)
   result_v4576 = 0;
   msg_v4604 = 0;
   /* removed tail goto */ 
   (*  (ptr) formal_c044 ) = result_v4576;
   (* (( (ptr) formal_c044)+1) ) = msg_v4604;
   return;
   }

static void GCollect_P480(formal_c048, cmd_v4664)
   word formal_c048;
   word cmd_v4664;
   {
   register ptr gf_c9972 =  (ptr) &globalframe;
   word result_v4708;
   word msg_v4736;
   /* GCollect: */ 
SOURCE(1077, 93)
SOURCE(1077, 93)
   result_v4708 = 0;
SOURCE(1077, 93)
   msg_v4736 = 0;
SOURCE(1113, 39)
   {
      word pd29;
      pd29 = (* (( (ptr) (* (( (ptr) gf_c9972)+37)/* var_c9620 */  ))+11) );
      (void) ( *( (fPt) ((*  (ptr) pd29 ))))(1, 0, pd29);
      };
SOURCE(1154, 16)
   result_v4708 = 0;
   msg_v4736 = 0;
   /* removed tail goto */ 
   (*  (ptr) formal_c048 ) = result_v4708;
   (* (( (ptr) formal_c048)+1) ) = msg_v4736;
   return;
   }

/* file: CommanderSysPImpl, module: CommanderSysPImpl, compiled at: January 19, 1993 12:23:18 pm PST */ 
extern void XR_install_CommanderSysPImpl() {
   NoName_Q540();
   }
extern void XR_run_CommanderSysPImpl() { XR_Start(&globalframe); }