/* 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); }