/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */ /* time: October 19, 1993 1:04:11 pm PDT */ /* C2C version: April 20, 1993 (sun4) */ /* ref-counting: off */ /* file: TJaMIOImpl, module: TJaMIOImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [40055616,2127488726] TJaMIOImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef word (*fPt)(); typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8; typedef struct {word f0, f1, f2;} W3; typedef struct {W8 f; W3 r;} W11; typedef struct {word f0, f1;} W2; typedef struct {word f0, f1, f2, f3;} W4; typedef W4 *W4Pt; typedef struct {word f0, f1, f2, f3, f4;} W5; typedef W5 *W5Pt; typedef W2 *W2Pt; #define SOURCE(p, l) /* source p, l */ static void NoName_Q120(); static void TJaMIOImpl_P0(); static void ApplyRun_P60(); static word NoName_Q180(); static void NoName_Q240(); 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[12];} string3 = {589836, ".pfserror\000\000"}; static struct {unsigned f; char r[12];} string4 = {524300, ".badname\000\000\000"}; static struct {unsigned f; char r[8];} string5 = {262152, ".run\000\000\000"}; static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\002\143\063\100\300\176\316\346\326\100\164\000\000"}; static struct {unsigned f; char r[4];} string7 = {196611, "\004N0"}; static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\141\260\110\353\300\162\250\066\353\100\150\000\000"}; static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\150\000\000"}; static struct { word f0[12]; word f12; word f13; word f14; word f15; word f16; word f17[10]; } globalframe = { {0}, (word) ApplyRun_P60, 0, (word) TJaMIOImpl_P0, 0, (word) 2147483647, {0} }; static void NoName_Q120() { register ptr gf_c033 = (ptr) &globalframe; word var_c9852; (* (( (ptr) gf_c033)+7) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (ptr) (( (bPt) gf_c033)+36) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c033)+7) ), (word) &string3); (* (ptr) (( (bPt) gf_c033)+40) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c033)+7) ), (word) &string4); (* (ptr) (( (bPt) gf_c033)+44) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c033)+7) ), (word) &string5); (void) XR_DeclareGlobalFrame((word) "TJaMIOImpl", &globalframe, (word) XR_GetTypeIndex((word) &string6, 0, (word) &string7) , (word) (( (bPt) gf_c033)+56)/* var_c9532 */ ); var_c9852 = (word) XR_ImportInterface((word) "PFS", (word) XR_GetTypeIndexS((word) (&string8)), 40); (* (( (ptr) gf_c033)+26)/* var_c9756 */ ) = var_c9852; (void) XR_ImportProcS(var_c9852, 67371265); (void) XR_ImportProcS(var_c9852, 71312136); var_c9852 = (word) XR_ImportInterface((word) "TJaM", (word) XR_GetTypeIndexS((word) (&string9)), 101); (* (( (ptr) gf_c033)+25)/* var_c9692 */ ) = var_c9852; (void) XR_ImportProcS(var_c9852, 809987); (void) XR_ImportProcS(var_c9852, 531202); (void) XR_ImportProcS(var_c9852, 67380993); (void) XR_ImportProcS(var_c9852, 812035); (void) XR_ImportProcS(var_c9852, 67375617); } static void TJaMIOImpl_P0(formal_c017, formal_c016) word formal_c017; word formal_c016; { register ptr gf_c9884 = (ptr) &globalframe; /* TJaMIOImpl: */ SOURCE(171, 582) /* moved to installation proc */ SOURCE(235, 40) { word pd10; pd10 = (* (( (ptr) (* (( (ptr) gf_c9884)+25)/* var_c9692 */ ))+22) ); (* (( (ptr) gf_c9884)+4)/* badName_v2496 */ ) = (word) ( *( (fPt) ((* (ptr) pd10 ))))((* ((( (ptr) gf_c9884)+10)) ), pd10) ; }; SOURCE(277, 42) { word pd11; pd11 = (* (( (ptr) (* (( (ptr) gf_c9884)+25)/* var_c9692 */ ))+22) ); (* (( (ptr) gf_c9884)+5)/* pfsError_v2524 */ ) = (word) ( *( (fPt) ((* (ptr) pd11 ))))((* ((( (ptr) gf_c9884)+9)) ), pd11) ; }; SOURCE(718, 35) { word pd12; pd12 = (* (( (ptr) (* (( (ptr) gf_c9884)+25)/* var_c9692 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd12 ))))((* (( (ptr) gf_c9884)+11) ), (word) (( (bPt) gf_c9884)+48)/* var_c9500 */ , 0, pd12) ; }; } static void ApplyRun_P60(formal_c042, cmd_v9228) word formal_c042; word cmd_v9228; { W11 var_c9916; /* declaration of frame_v9200 skipped */ register ptr gf_c9948 = (ptr) &globalframe; word fileName_v2600; /* declaration of errorAtom_v2628 skipped */ word stream_v2656 = 0; (* (( (ptr) &var_c9916)+4)/* frame_v9200 */ ) = formal_c042; /* ApplyRun: */ SOURCE(322, 389) SOURCE(348, 31) { word pd13; pd13 = (* (( (ptr) (* (( (ptr) gf_c9948)+25)/* var_c9692 */ ))+43) ); fileName_v2600 = (word) ( *( (fPt) ((* (ptr) pd13 ))))((* ((( (ptr) &var_c9916)+4)/* frame_v9200 */ ) ), pd13); }; SOURCE(381, 21) (* (( (ptr) &var_c9916)+5)/* errorAtom_v2628 */ ) = 0; SOURCE(426, 191) SOURCE(426, 191) { /* declaration of var_c9724 skipped */ { word pd14; pd14 = (* (( (ptr) (* (( (ptr) gf_c9948)+26)/* var_c9756 */ ))+5) ); (* (( (ptr) &var_c9916)+6)/* var_c9724 */ ) = (word) ( *( (fPt) ((* (ptr) pd14 ))))(fileName_v2600, pd14); }; { /* declaration of var_c01 skipped */ /* declaration of var_c02 skipped */ (* (( (ptr) &var_c9916)+7) ) = 4096; (* (( (ptr) &var_c9916)+8) ) = 2; (* (( (ptr) &var_c9916)+9)/* var_c02 */ ) = (* (( (ptr) (* (( (ptr) gf_c9948)+26)/* var_c9756 */ ))+39) ); { /* declaration of var_c03 skipped */ { word var_c04; { word var_c039; var_c039 = (word) &var_c9916; var_c04 = (word) XR_Enable(( ((word) (fPt) NoName_Q180) ), ( ((word) (fPt) NoName_Q240) ), var_c039); }; if ((var_c04 == 2)) { goto lab_L100001; }; }; stream_v2656 = (* (( (ptr) &var_c9916)+10)/* var_c03 */ ); }; }; }; lab_L100001: ; SOURCE(636, 75) if ((stream_v2656 != 0)) { SOURCE(655, 34) { word pd15; pd15 = (* (( (ptr) (* (( (ptr) gf_c9948)+25)/* var_c9692 */ ))+96) ); (void) ( *( (fPt) ((* (ptr) pd15 ))))((* (( (ptr) &var_c9916)+4)/* frame_v9200 */ ), stream_v2656, 1, pd15); }; } else { SOURCE(689, 22) { word var_c025; var_c025 = (* (( (ptr) &var_c9916)+5)/* errorAtom_v2628 */ ); (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c9948)+25)/* var_c9692 */ ))+92) ), (word) &var_c025); }; }; } static word NoName_Q180(formal_c037) word formal_c037; { register ptr gf_c036 = (ptr) &globalframe; SOURCE(426, 191) { word pd16; pd16 = (* (( (ptr) formal_c037)+9) ); (* (( (ptr) formal_c037)+10) ) = (word) ( *( (fPt) ((* (ptr) pd16 ))))((* (( (ptr) formal_c037)+6) ), 0, (* (W4Pt) (( (ptr) gf_c036)+16) /* var_c9596 */ ), 0, 0, (* (W5Pt) (( (ptr) gf_c036)+20)/* var_c9660 */ ) , 1, (* (W2Pt) (( (ptr) formal_c037)+7) ), pd16); }; return(0); } static void NoName_Q240(formal_c032, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c032; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c038 = (ptr) &globalframe; if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c038)+26)/* var_c9756 */ ))+9) ))) { { W4 error_v9288; error_v9288 = (* (W4Pt) formal_c200003 ); SOURCE(494, 123) { word var_c9820; var_c9820 = error_v9288.f0; if ((var_c9820 == 4)) { SOURCE(526, 19) (* (( (ptr) formal_c200000)+5) ) = (* (( (ptr) gf_c038)+4)/* badName_v2496 */ ); } else { SOURCE(560, 34) { word pd17; pd17 = (* (( (ptr) (* (( (ptr) gf_c038)+25)/* var_c9692 */ ))+31) ); (void) ( *( (fPt) ((* (ptr) pd17 ))))((* (( (ptr) formal_c200000)+4) ), error_v9288.f2, pd17); }; SOURCE(596, 21) (* (( (ptr) formal_c200000)+5) ) = (* (( (ptr) gf_c038)+5)/* pfsError_v2524 */ ); }; }; SOURCE(620, 8) (* (ptr) formal_c032 ) = 2; (* (( (ptr) formal_c032)+1) ) = 2; return; }; }; (* (ptr) formal_c032 ) = 0; (* (( (ptr) formal_c032)+1) ) = 0; return; } /* file: TJaMIOImpl, module: TJaMIOImpl, compiled at: October 19, 1993 1:04:11 pm PDT */ extern void XR_install_TJaMIOImpl() { NoName_Q120(); } extern void XR_run_TJaMIOImpl() { XR_Start(&globalframe); }