/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: October 19, 1993 1:01:17 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: TJaMControlImpl, module: TJaMControlImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [3955154695,2168200429] TJaMControlImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q468();
static void TJaMControlImpl_P0();
static word NewFrame_P60();
static void Register_P120();
static word SysDict_P180();
static void ApplyTrue_P240();
static void ApplyFalse_P300();
static void ApplySysDict_P360();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\367\310\321\062\300\174\163\370\126\100\164\000\000"};
static struct {unsigned f; char r[4];} string2 = {131074, "\004\017\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[4];} string4 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\340\000\000"};
static struct {unsigned f; char r[4];} string6 = {131074, "\004\006\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\101\050\000\000"};
static struct {unsigned f; char r[4];} string8 = {131074, "\004\003\000"};
static struct {unsigned f; char r[12];} string9 = {524300, ".sysdict\000\000\000"};
static struct {unsigned f; char r[8];} string10 = {393224, ".false\000"};
static struct {unsigned f; char r[8];} string11 = {327688, ".true\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\353\276\337\007\300\201\074\034\355\100\164\000\000"};
static struct {unsigned f; char r[4];} string13 = {196611, "\004x\000"};
static struct {unsigned f; char r[4];} string14 = {1414160717, "\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\150\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\367\310\321\062\300\174\163\370\126\100\150\000\000"};
static struct {unsigned f; char r[28];} string17 = {1638428, "\211\015\014\106\162\141\155\145\111\155\160\154\122\145\160\300\243\004\305\073\300\011\303\367\103\000\000"};
static struct {
   word f0[14]; 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[4]; 
   } globalframe = {
   {0}, (word) ApplySysDict_P360, 0, (word) ApplyFalse_P300, 
   0, (word) ApplyTrue_P240, 0, (word) SysDict_P180, 
   0, (word) Register_P120, 0, (word) NewFrame_P60, 
   0, (word) TJaMControlImpl_P0, {0}
   };

static void NoName_Q468()
   {
   register ptr gf_c044 =  (ptr) &globalframe;
   word var_c9920;
   (* (( (ptr) gf_c044)+4) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c044)+6) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c044)+8) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6);
   (* (( (ptr) gf_c044)+10) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8);
   (*  (ptr) (( (bPt) gf_c044)+44) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c044)+6) ), (word) &string9);
   (*  (ptr) (( (bPt) gf_c044)+48) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c044)+6) ), (word) &string10);
   (*  (ptr) (( (bPt) gf_c044)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c044)+6) ), (word) &string11);
   (void) XR_DeclareGlobalFrame((word) "TJaMControlImpl", &globalframe, (word) XR_GetTypeIndex((word) &string12, 0, (word) &string13)
      , (word) (( (bPt) gf_c044)+104)/* var_c9600 */ );
   var_c9920 = (word) XR_ImportInterface((word) &string14, (word) XR_GetTypeIndexS((word) (&string15)), 101);
   (* (( (ptr) gf_c044)+28)/* var_c9632 */  ) = var_c9920;
   (void) XR_ImportProcS(var_c9920, 532226);
   (void) XR_ImportProcS(var_c9920, 529922);
   (void) XR_ImportProcS(var_c9920, 807427);
   (void) XR_ImportProcS(var_c9920, 67651074);
   (void) XR_ImportProcS(var_c9920, 134762242);
   (void) XR_ImportProcS(var_c9920, 545794);
   (void) XR_ImportProcS(var_c9920, 67388161);
   (void) XR_ImportProcS(var_c9920, 812035);
   var_c9920 = (word) XR_ImportInterface((word) "TJaMPrivate", (word) XR_GetTypeIndexS((word) (&string16)), 2);
   (* (( (ptr) gf_c044)+29)/* var_c9664 */  ) = var_c9920;
   (void) XR_ImportProcS(var_c9920, 67371265);
   (void) XR_ImportProcS(var_c9920, 67371009);
   var_c9920 = (word) XR_ExportInterface((word) &string14, (word) XR_GetTypeIndexS((word) (&string15)), 101);
   (* (( (ptr) gf_c044)+30)/* var_c9952 */  ) = var_c9920;
   (void) XR_ExportType((word) "FrameImplRep", (word) XR_GetTypeIndexS((word) (&string17)), (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2)
      );
   (void) XR_ExportProcS(var_c9920, (word) (( (bPt) gf_c044)+80)/* var_c9504 */ , 67393281, (word) "SysDict");
   (void) XR_ExportProcS(var_c9920, (word) (( (bPt) gf_c044)+96)/* var_c9568 */ , 67133952, (word) "NewFrame");
   (void) XR_ExportProcS(var_c9920, (word) (( (bPt) gf_c044)+88)/* var_c9536 */ , 1073924, (word) "Register");
   }

static void TJaMControlImpl_P0(formal_c015, formal_c014)
   word formal_c015;
   word formal_c014;
   {
   register ptr gf_c9984 =  (ptr) &globalframe;
   /* TJaMControlImpl: */ 
SOURCE(31, 1209)
SOURCE(1117, 37)
   {
      word pd18;
      pd18 = (* (( (ptr) (* (( (ptr) gf_c9984)+28)/* var_c9632 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd18 ))))((* (( (ptr) gf_c9984)+13) ), (word) (( (bPt) gf_c9984)+72)/* var_c9472 */ , 0, pd18)
      ;
      };
SOURCE(1156, 39)
   {
      word pd19;
      pd19 = (* (( (ptr) (* (( (ptr) gf_c9984)+28)/* var_c9632 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd19 ))))((* (( (ptr) gf_c9984)+12) ), (word) (( (bPt) gf_c9984)+64)/* var_c9440 */ , 0, pd19)
      ;
      };
SOURCE(1197, 43)
   {
      word pd20;
      pd20 = (* (( (ptr) (* (( (ptr) gf_c9984)+28)/* var_c9632 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd20 ))))((* (( (ptr) gf_c9984)+11) ), (word) (( (bPt) gf_c9984)+56)/* var_c9408 */ , 0, pd20)
      ;
      };
   }

static word NewFrame_P60()
   {
   register ptr gf_c10016 =  (ptr) &globalframe;
   word var_c2744;
   word stack_v3036;
   word dictStack_v3064;
   word sysDict_v3092;
   word impl_v3120;
   word frame_v3148;
   /* NewFrame: */ 
SOURCE(189, 316)
SOURCE(230, 28)
   {
      word pd21;
      pd21 = (* (( (ptr) (* (( (ptr) gf_c10016)+29)/* var_c9664 */  ))+4) );
      stack_v3036 = (word) ( *( (fPt) ((*  (ptr) pd21 ))))(200, pd21);
      };
SOURCE(260, 39)
   {
      word pd22;
      pd22 = (* (( (ptr) (* (( (ptr) gf_c10016)+29)/* var_c9664 */  ))+5) );
      dictStack_v3064 = (word) ( *( (fPt) ((*  (ptr) pd22 ))))(20, pd22);
      };
SOURCE(301, 27)
   {
      word pd23;
      pd23 = (* (( (ptr) (* (( (ptr) gf_c10016)+28)/* var_c9632 */  ))+71) );
      sysDict_v3092 = (word) ( *( (fPt) ((*  (ptr) pd23 ))))(17, pd23);
      };
SOURCE(330, 92)
   impl_v3120 = XR_NewObject(20, (* (( (ptr) gf_c10016)+4) ));
   (*  (ptr) impl_v3120 ) = stack_v3036;
   (* (( (ptr) impl_v3120)+1) ) = dictStack_v3064;
   (* (( (ptr) impl_v3120)+3) ) = sysDict_v3092;
SOURCE(424, 43)
   frame_v3148 = XR_NewObject(8, (* (( (ptr) gf_c10016)+10) ));
   (*  (ptr) frame_v3148 ) = impl_v3120;
SOURCE(469, 21)
   {
      word pd24;
      pd24 = (* (( (ptr) (* (( (ptr) gf_c10016)+28)/* var_c9632 */  ))+88) );
      (void) ( *( (fPt) ((*  (ptr) pd24 ))))(frame_v3148, sysDict_v3092, pd24);
      };
SOURCE(492, 13)
   return(frame_v3148);
   }

static void Register_P120(frame_v2804, name_v2832, proc_v2860, data_v2888)
   word frame_v2804;
   word name_v2832;
   word proc_v2860;
   word data_v2888;
   {
   register ptr gf_c10048 =  (ptr) &globalframe;
   word found_v3192;
   word dict_v3220 = 0;
   /* Register: */ 
SOURCE(511, 317)
SOURCE(618, 34)
   {
      W2 var_c9760;
      {
         word pd25;
         pd25 = (* (( (ptr) (* (( (ptr) gf_c10048)+28)/* var_c9632 */  ))+83) );
         (void) ( *( (fPt) ((*  (ptr) pd25 ))))((word) &var_c9760, frame_v2804, name_v2832, pd25);
         };
      dict_v3220 = var_c9760.f1;
      found_v3192 = var_c9760.f0;
      };
SOURCE(654, 94)
   if ((0 != found_v3192)) {
SOURCE(668, 80)
      {
         word var_c9792;
         {
            word pd26;
            pd26 = (* (( (ptr) (* (( (ptr) gf_c10048)+28)/* var_c9632 */  ))+74) );
            var_c9792 = (word) ( *( (fPt) ((*  (ptr) pd26 ))))(dict_v3220, name_v2832, pd26);
            };
         if ((var_c9792 == 0)) {
            goto lab_L100000;
            };
         if (((* (( (ptr) gf_c10048)+8) ) == XR_GetReferentType(var_c9792))) {
            {
               word cmd_v3264;
               cmd_v3264 = var_c9792;
SOURCE(715, 15)
               (*  (ptr) cmd_v3264 ) = XR_CheckProc(proc_v2860);
SOURCE(732, 16)
               (* (( (ptr) cmd_v3264)+1) ) = data_v2888;
               };
            }
         else {
            lab_L100000: ;
            };
         };
      };
SOURCE(760, 68)
   {
      word var_c9824;
      {
         word var_c9856;
         var_c9856 = XR_NewObject(12, (* (( (ptr) gf_c10048)+8) ));
         (*  (ptr) var_c9856 ) = XR_CheckProc(proc_v2860);
         (* (( (ptr) var_c9856)+1) ) = data_v2888;
         (* (( (ptr) var_c9856)+2) ) = name_v2832;
         var_c9824 = var_c9856;
         };
      {
         word pd27;
         pd27 = (* (( (ptr) (* (( (ptr) gf_c10048)+28)/* var_c9632 */  ))+86) );
         (void) ( *( (fPt) ((*  (ptr) pd27 ))))(frame_v2804, name_v2832, var_c9824, pd27);
         };
      };
   }

static word SysDict_P180(frame_v2964)
   word frame_v2964;
   {
   word var_c3008;
   word impl_v3308;
   /* SysDict: */ 
SOURCE(834, 105)
SOURCE(889, 28)
   impl_v3308 = (*  (ptr) frame_v2964 );
SOURCE(919, 20)
   return((* (( (ptr) impl_v3308)+3) ));
   }

static void ApplyTrue_P240(frame_v4304, cmd_v4332)
   word frame_v4304;
   word cmd_v4332;
   {
   register ptr gf_c10080 =  (ptr) &globalframe;
   /* ApplyTrue: */ 
SOURCE(945, 49)
SOURCE(972, 22)
   {
      word pd28;
      pd28 = (* (( (ptr) (* (( (ptr) gf_c10080)+28)/* var_c9632 */  ))+26) );
      (void) ( *( (fPt) ((*  (ptr) pd28 ))))(frame_v4304, 1, pd28);
      };
   }

static void ApplyFalse_P300(frame_v4392, cmd_v4420)
   word frame_v4392;
   word cmd_v4420;
   {
   register ptr gf_c10112 =  (ptr) &globalframe;
   /* ApplyFalse: */ 
SOURCE(997, 51)
SOURCE(1025, 23)
   {
      word pd29;
      pd29 = (* (( (ptr) (* (( (ptr) gf_c10112)+28)/* var_c9632 */  ))+26) );
      (void) ( *( (fPt) ((*  (ptr) pd29 ))))(frame_v4392, 0, pd29);
      };
   }

static void ApplySysDict_P360(frame_v4480, cmd_v4508)
   word frame_v4480;
   word cmd_v4508;
   {
   register ptr gf_c10144 =  (ptr) &globalframe;
   /* ApplySysDict: */ 
SOURCE(1051, 62)
SOURCE(1081, 32)
   {
      word var_c9888;
      var_c9888 = (word) SysDict_P180(frame_v4480);
      {
         word pd30;
         pd30 = (* (( (ptr) (* (( (ptr) gf_c10144)+28)/* var_c9632 */  ))+35) );
         (void) ( *( (fPt) ((*  (ptr) pd30 ))))(frame_v4480, var_c9888, pd30);
         };
      };
   }

/* file: TJaMControlImpl, module: TJaMControlImpl, compiled at: October 19, 1993 1:01:17 pm PDT */ 
extern void XR_install_TJaMControlImpl() {
   NoName_Q468();
   }
extern void XR_run_TJaMControlImpl() { XR_Start(&globalframe); }