/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1994 by Xerox Corporation. All rights reserved. */ /* time: March 23, 1994 11:27:28 am PST */ /* C2C version: January 12, 1994 (sun4) */ /* ref-counting: off */ /* file: NewUXIOTestImpl, module: NewUXIOTestImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [2671360653,93700843] NewUXIOTestImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef word (*fPt)(); typedef struct {word f0, f1;} W2; typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8; typedef struct {W8 f; W8 r;} W16; #define SOURCE(p, l) /* source p, l */ #define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) ) #define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i ) static float fc108 = 1.0; static void NoName_Q732(); static void NewUXIOTestImpl_P0(); static void DoInternalSetIndex_P60(); static void DoGetTokenTest_P120(); static word MyTokenProc_P528(); static void DoStat_P180(); static void DoStream_P240(); static void DoStandard_P300(); static void DoFile_P360(); static void DoFlags_P420(); 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[44];} string3 = {2752556, "\260\006\005\146\151\162\163\164\257\300\015\277\004\146\300\034\367\146\045\112\114\005\004\162\145\163\164\214\257\300\015\277\004\146\300\034\367\146\045\112\114\261\000"}; static struct {unsigned f; char r[28];} string4 = {1572888, "\006\002\000\007\000\040\016\000\003\001\000\000\000\000\014\014\000\014\014\014\014\000\010\001\000\000\000"}; static struct {unsigned f; char r[12];} string5 = {720908, "UXIODoFlags"}; static struct {unsigned f; char r[48];} string6 = {3014704, "/project/bonsai2.0/testlib/BlackWalnut.mailLog\000"}; static struct {unsigned f; char r[32];} string7 = {2031648, "GetIndex: %g, SetIndex was: %g\012"}; static struct {unsigned f; char r[28];} string8 = {1572892, "GetIndex: %g, EndOf: %g\012\000\000\000"}; static struct {unsigned f; char r[12];} string9 = {524300, "(%g) %g\012\000\000\000"}; static struct {unsigned f; char r[28];} string10 = {1769500, "Now do SetIndex back to %g\012"}; static struct {unsigned f; char r[8];} string11 = {327688, "break\000\000"}; static struct {unsigned f; char r[8];} string12 = {262152, "sepr\000\000\000"}; static struct {unsigned f; char r[8];} string13 = {327688, "other\000\000"}; static struct {unsigned f; char r[16];} string14 = {786448, " <<%g, %g>> \000\000\000"}; static struct {unsigned f; char r[28];} string15 = {1638428, "UnixSysCalls.Open failed\012\000\000"}; static struct {unsigned f; char r[16];} string16 = {851984, "FStat failed\012\000\000"}; static struct {unsigned f; char r[52];} string17 = {3145780, "[ino: %g, mode: %g, uid: %g, gid: %g, size: %g]\012\000\000\000"}; static struct {unsigned f; char r[12];} string18 = {655372, "UXIODoFile\000"}; static struct {unsigned f; char r[16];} string19 = {917520, "UXIODoStandard\000"}; static struct {unsigned f; char r[20];} string20 = {1179668, "UXIODoGetTokenTest\000"}; static struct {unsigned f; char r[24];} string21 = {1441816, "UXIODoInternalSetIndex\000"}; static struct {unsigned f; char r[40];} string22 = {2424872, "Hello world; Cedar is alive on a Sun\012\000\000"}; static struct {unsigned f; char r[12];} string23 = {720908, "a rope: %g\012"}; static struct {unsigned f; char r[8];} string24 = {262152, "rope\000\000\000"}; static struct {unsigned f; char r[12];} string25 = {720908, "an int: %g\012"}; static struct {unsigned f; char r[12];} string26 = {720908, "a char: %g\012"}; static struct {unsigned f; char r[16];} string27 = {786448, "an atom: %g\012\000\000\000"}; static struct {unsigned f; char r[8];} string28 = {262152, "atom\000\000\000"}; static struct {unsigned f; char r[12];} string29 = {720908, "a bool: %g\012"}; static struct {unsigned f; char r[12];} string30 = {720908, "a card: %g\012"}; static struct {unsigned f; char r[12];} string31 = {720908, "a real: %g\012"}; static struct {unsigned f; char r[8];} string32 = {393224, "myfile\000"}; static struct {unsigned f; char r[20];} string33 = {1179668, "wrote file myfile\012\000"}; static struct {unsigned f; char r[28];} string34 = {1572892, "now to append to myfile\012\000\000\000"}; static struct {unsigned f; char r[36];} string35 = {2228260, "finished appending to file myfile\012\000"}; static struct {unsigned f; char r[44];} string36 = {2818092, "unixflags: read=%xH, write=%xH, append=%xH\012"}; static struct {unsigned f; char r[48];} string37 = {2883632, "posixflags: read=%xH, write=%xH, append=%xH\012\000\000\000"}; static struct {unsigned f; char r[12];} string38 = {655372, "UXIODoStat\000"}; static struct {unsigned f; char r[16];} string39 = {851984, "\257\300\237\071\272\215\300\005\225\302\353\100\164\000\000"}; static struct {unsigned f; char r[12];} string40 = {589833, "\006\001\100\114\010\000\004\042\001\000\000"}; static struct {unsigned f; char r[16];} string41 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"}; static struct {unsigned f; char r[16];} string42 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"}; static struct {unsigned f; char r[16];} string43 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"}; static struct {unsigned f; char r[16];} string44 = {851984, "\257\300\211\056\077\074\300\127\047\310\242\100\150\000\000"}; static struct {unsigned f; char r[16];} string45 = {851984, "\257\300\241\235\001\025\300\065\011\226\172\100\150\000\000"}; static struct {unsigned f; char r[16];} string46 = {851984, "\257\300\220\270\074\115\300\121\012\115\357\100\150\000\000"}; static struct { word f0[4]; word f4; word f5; word f6; word f7; word f8; word f9; word f10; word f11; word f12[41]; word f53; word f54; word f55; word f56; word f57; word f58; word f59; word f60; word f61; word f62; word f63; word f64; word f65; word f66; word f67; word f68[7]; } globalframe = { {0}, (word) 446, (word) 50264, (word) 243144, (word) 55468, (word) 234330, (word) 158217, 0, (word) 436, {0}, (word) DoFlags_P420, 0, (word) DoFile_P360, 0, (word) DoStandard_P300, 0, (word) DoStream_P240, 0, (word) DoStat_P180, 0, (word) DoGetTokenTest_P120, 0, (word) DoInternalSetIndex_P60, 0, (word) NewUXIOTestImpl_P0, {0} }; static void NoName_Q732() { register ptr gf_c0125 = (ptr) &globalframe; word var_c18852; (* (( (ptr) gf_c0125)+13) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0125)+18) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4); (* (ptr) (( (bPt) gf_c0125)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string5); (* (ptr) (( (bPt) gf_c0125)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string6); (* (ptr) (( (bPt) gf_c0125)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string7); (* (ptr) (( (bPt) gf_c0125)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string8); (* (ptr) (( (bPt) gf_c0125)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string9); (* (ptr) (( (bPt) gf_c0125)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string10); (* (ptr) (( (bPt) gf_c0125)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string11); (* (ptr) (( (bPt) gf_c0125)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string12); (* (ptr) (( (bPt) gf_c0125)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string13); (* (ptr) (( (bPt) gf_c0125)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string14); (* (ptr) (( (bPt) gf_c0125)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string15); (* (ptr) (( (bPt) gf_c0125)+120) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string16); (* (ptr) (( (bPt) gf_c0125)+124) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string17); (* (ptr) (( (bPt) gf_c0125)+128) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string18); (* (ptr) (( (bPt) gf_c0125)+132) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string19); (* (ptr) (( (bPt) gf_c0125)+136) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string20); (* (ptr) (( (bPt) gf_c0125)+140) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string21); (* (ptr) (( (bPt) gf_c0125)+144) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string22); (* (ptr) (( (bPt) gf_c0125)+148) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string23); (* (ptr) (( (bPt) gf_c0125)+152) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string24); (* (ptr) (( (bPt) gf_c0125)+156) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string25); (* (ptr) (( (bPt) gf_c0125)+160) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string26); (* (ptr) (( (bPt) gf_c0125)+164) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string27); (* (ptr) (( (bPt) gf_c0125)+168) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string28); (* (ptr) (( (bPt) gf_c0125)+172) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string29); (* (ptr) (( (bPt) gf_c0125)+176) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string30); (* (ptr) (( (bPt) gf_c0125)+180) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string31); (* (ptr) (( (bPt) gf_c0125)+184) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string32); (* (ptr) (( (bPt) gf_c0125)+188) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string33); (* (ptr) (( (bPt) gf_c0125)+192) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string34); (* (ptr) (( (bPt) gf_c0125)+196) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string35); (* (ptr) (( (bPt) gf_c0125)+200) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string36); (* (ptr) (( (bPt) gf_c0125)+204) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string37); (* (ptr) (( (bPt) gf_c0125)+208) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0125)+13) ), (word) &string38); (void) XR_DeclareGlobalFrame((word) "NewUXIOTestImpl", &globalframe, (word) XR_GetTypeIndex((word) &string39, 0, (word) &string40) , (word) (( (bPt) gf_c0125)+268)/* var_c16580 */ ); var_c18852 = (word) XR_ImportInterface((word) "Atom", (word) XR_GetTypeIndexS((word) (&string41)), 16); (* (( (ptr) gf_c0125)+74)/* var_c18468 */ ) = var_c18852; (void) XR_ImportProcS(var_c18852, 67895555); var_c18852 = (word) XR_ImportInterface((word) "Commander", (word) XR_GetTypeIndexS((word) (&string42)), 3); (* (( (ptr) gf_c0125)+69)/* var_c16612 */ ) = var_c18852; (void) XR_ImportProcS(var_c18852, 1310725); var_c18852 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string43)), 103); (* (( (ptr) gf_c0125)+71)/* var_c16676 */ ) = var_c18852; (void) XR_ImportProcS(var_c18852, 801795); (void) XR_ImportProcS(var_c18852, 1063171); (void) XR_ImportProcS(var_c18852, 67392257); (void) XR_ImportProcS(var_c18852, 134763778); (void) XR_ImportProcS(var_c18852, 67373825); (void) XR_ImportProcS(var_c18852, 530434); (void) XR_ImportProcS(var_c18852, 528642); (void) XR_ImportProcS(var_c18852, 67393281); (void) XR_ImportProcS(var_c18852, 1071364); (void) XR_ImportProcS(var_c18852, 67377409); (void) XR_ImportProcS(var_c18852, 2111493); (void) XR_ImportProcS(var_c18852, 530946); var_c18852 = (word) XR_ImportInterface((word) "UnixSysCalls", (word) XR_GetTypeIndexS((word) (&string44)), 77); (* (( (ptr) gf_c0125)+73)/* var_c18148 */ ) = var_c18852; (void) XR_ImportProcS(var_c18852, 67372289); (void) XR_ImportProcS(var_c18852, 67650050); (void) XR_ImportProcS(var_c18852, 67906563); var_c18852 = (word) XR_ImportInterface((word) "UXIO", (word) XR_GetTypeIndexS((word) (&string45)), 7); (* (( (ptr) gf_c0125)+70)/* var_c16644 */ ) = var_c18852; (void) XR_ImportProcS(var_c18852, 67895555); (void) XR_ImportProcS(var_c18852, 67371009); var_c18852 = (word) XR_ImportInterface((word) "UXStrings", (word) XR_GetTypeIndexS((word) (&string46)), 9); (* (( (ptr) gf_c0125)+72)/* var_c18116 */ ) = var_c18852; (void) XR_ImportProcS(var_c18852, 67371265); } static void NewUXIOTestImpl_P0(formal_c022, formal_c021) word formal_c022; word formal_c021; { register ptr gf_c18884 = (ptr) &globalframe; /* NewUXIOTestImpl: */ SOURCE(91, 5458) SOURCE(206, 71) /* moved to installation proc */ /* moved to installation proc */ /* moved to installation proc */ /* moved to installation proc */ /* moved to installation proc */ /* moved to installation proc */ /* moved to installation proc */ SOURCE(5249, 40) { word pd47; pd47 = (* (( (ptr) (* (( (ptr) gf_c18884)+69)/* var_c16612 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd47 ))))((* (( (ptr) gf_c18884)+52) ), (word) (( (bPt) gf_c18884)+244)/* var_c16484 */ , 0, 0, 1, pd47) ; }; SOURCE(5291, 64) { word pd48; pd48 = (* (( (ptr) (* (( (ptr) gf_c18884)+69)/* var_c16612 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd48 ))))((* (( (ptr) gf_c18884)+35) ), (word) (( (bPt) gf_c18884)+260)/* var_c16548 */ , 0, 0, 1, pd48) ; }; SOURCE(5357, 56) { word pd49; pd49 = (* (( (ptr) (* (( (ptr) gf_c18884)+69)/* var_c16612 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd49 ))))((* (( (ptr) gf_c18884)+34) ), (word) (( (bPt) gf_c18884)+252)/* var_c16516 */ , 0, 0, 1, pd49) ; }; SOURCE(5415, 48) { word pd50; pd50 = (* (( (ptr) (* (( (ptr) gf_c18884)+69)/* var_c16612 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd50 ))))((* (( (ptr) gf_c18884)+33) ), (word) (( (bPt) gf_c18884)+228)/* var_c16420 */ , 0, 0, 1, pd50) ; }; SOURCE(5465, 40) { word pd51; pd51 = (* (( (ptr) (* (( (ptr) gf_c18884)+69)/* var_c16612 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd51 ))))((* (( (ptr) gf_c18884)+32) ), (word) (( (bPt) gf_c18884)+220)/* var_c16388 */ , 0, 0, 1, pd51) ; }; SOURCE(5507, 42) { word pd52; pd52 = (* (( (ptr) (* (( (ptr) gf_c18884)+69)/* var_c16612 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd52 ))))((* (( (ptr) gf_c18884)+19) ), (word) (( (bPt) gf_c18884)+212)/* var_c16356 */ , 0, 0, 1, pd52) ; }; } static void DoInternalSetIndex_P60(formal_c033, cmd_v5492) word formal_c033; word cmd_v5492; { register ptr gf_c18916 = (ptr) &globalframe; word result_v5536; word msg_v5564; word o_v3780; word s_v3808 = 0; /* DoInternalSetIndex: */ SOURCE(302, 441) SOURCE(302, 441) result_v5536 = 0; SOURCE(302, 441) msg_v5564 = 0; SOURCE(348, 48) { word pd53; pd53 = (* (( (ptr) (* (( (ptr) gf_c18916)+70)/* var_c16644 */ ))+4) ); o_v3780 = (word) ( *( (fPt) ((* (ptr) pd53 ))))(1, pd53); }; SOURCE(488, 39) { word pd54; pd54 = (* (( (ptr) (* (( (ptr) gf_c18916)+70)/* var_c16644 */ ))+5) ); s_v3808 = (word) ( *( (fPt) ((* (ptr) pd54 ))))((* (( (ptr) gf_c18916)+20) ), 0, 436, pd54); }; SOURCE(529, 179) { register word i_v3880 = 0; if (( (int)i_v3880 > (int)5)) { goto lab_L100001; }; lab_L100004: ; SOURCE(553, 20) { word pd55; pd55 = (* (( (ptr) (* (( (ptr) gf_c18916)+71)/* var_c16676 */ ))+30) ); (void) ( *( (fPt) ((* (ptr) pd55 ))))(s_v3808, (* ((( (ptr) gf_c18916)+4)/* where_v2804 */ +BCK(i_v3880, 6)) ), pd55); }; SOURCE(575, 89) { word var_c16708; { word pd56; pd56 = (* (( (ptr) (* (( (ptr) gf_c18916)+71)/* var_c16676 */ ))+29) ); var_c16708 = (word) ( *( (fPt) ((* (ptr) pd56 ))))(s_v3808, pd56); }; { W2 var_c16740; W2 var_c16772; W2 var_c0136; var_c16740.f0 = 5; var_c16740.f1 = var_c16708; var_c16772.f0 = 5; var_c16772.f1 = (* ((( (ptr) gf_c18916)+4)/* where_v2804 */ +BCK(i_v3880, 6)) ); (* (ptr) (word) &var_c0136 ) = 0; (* (( (ptr) (word) &var_c0136) + 1) ) = 0; { word pd57; pd57 = (* (( (ptr) (* (( (ptr) gf_c18916)+71)/* var_c16676 */ ))+60) ); (void) ( *( (fPt) ((* (ptr) pd57 ))))(o_v3780, (* (( (ptr) gf_c18916)+21) ), var_c16740, var_c16772, var_c0136, pd57); }; }; }; SOURCE(666, 26) { word var_c16836; { word pd58; pd58 = (* (( (ptr) (* (( (ptr) gf_c18916)+71)/* var_c16676 */ ))+91) ); var_c16836 = (word) ( *( (fPt) ((* (ptr) pd58 ))))(s_v3808, pd58); }; { word pd59; pd59 = (* (( (ptr) (* (( (ptr) gf_c18916)+71)/* var_c16676 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd59 ))))(o_v3780, var_c16836, 0, 2147483647, pd59); }; }; SOURCE(694, 14) { word pd60; pd60 = (* (( (ptr) (* (( (ptr) gf_c18916)+71)/* var_c16676 */ ))+21) ); (void) ( *( (fPt) ((* (ptr) pd60 ))))(o_v3780, 10, pd60); }; if (( (int)i_v3880 >= (int)5)) { goto lab_L100001; }; i_v3880 = (i_v3880 + 1); goto lab_L100004; lab_L100001: ; }; SOURCE(719, 11) { word pd61; pd61 = (* (( (ptr) (* (( (ptr) gf_c18916)+71)/* var_c16676 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd61 ))))(o_v3780, 0, pd61); }; SOURCE(732, 11) { word pd62; pd62 = (* (( (ptr) (* (( (ptr) gf_c18916)+71)/* var_c16676 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd62 ))))(s_v3808, 0, pd62); }; /* removed tail goto */ (* (ptr) formal_c033 ) = result_v5536; (* (( (ptr) formal_c033)+1) ) = msg_v5564; return; } static void DoGetTokenTest_P120(formal_c073, cmd_v5624) word formal_c073; word cmd_v5624; { W7 var_c18948; register ptr gf_c18980 = (ptr) &globalframe; word result_v5668; word msg_v5696; /* declaration of var_c16868 skipped */ /* declaration of o_v3924 skipped */ word s_v3952 = 0; word pos_v3980 = 0; /* DoGetTokenTest: */ SOURCE(749, 1389) { word tmpAddr63; tmpAddr63 = (word) (( (ptr) &var_c18948)+4)/* var_c16868 */ ; (* (ptr) tmpAddr63 ) = ( ((word) (fPt) MyTokenProc_P528) ); (* (( (ptr) tmpAddr63) + 1) ) = 1; }; SOURCE(749, 1389) result_v5668 = 0; SOURCE(749, 1389) msg_v5696 = 0; SOURCE(791, 22) var_c18948.f6/* o_v3924 */ = (* (( (ptr) cmd_v5624)+1) ); SOURCE(1314, 39) { word pd64; pd64 = (* (( (ptr) (* (( (ptr) gf_c18980)+70)/* var_c16644 */ ))+5) ); s_v3952 = (word) ( *( (fPt) ((* (ptr) pd64 ))))((* (( (ptr) gf_c18980)+20) ), 0, 436, pd64); }; SOURCE(1355, 83) { word var_c16900; word var_c16932; { word pd65; pd65 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+29) ); var_c16900 = (word) ( *( (fPt) ((* (ptr) pd65 ))))(s_v3952, pd65); }; { word pd66; pd66 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+15) ); var_c16932 = (word) ( *( (fPt) ((* (ptr) pd66 ))))(s_v3952, pd66); }; { W2 var_c16964; W2 var_c16996; W2 var_c0137; var_c16964.f0 = 5; var_c16964.f1 = var_c16900; var_c16996.f0 = 2; var_c16996.f1 = var_c16932; (* (ptr) (word) &var_c0137 ) = 0; (* (( (ptr) (word) &var_c0137) + 1) ) = 0; { word pd67; pd67 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+60) ); (void) ( *( (fPt) ((* (ptr) pd67 ))))(var_c18948.f6/* o_v3924 */ , (* (( (ptr) gf_c18980)+22) ), var_c16964, var_c16996, var_c0137, pd67) ; }; }; }; SOURCE(1440, 101) { register word i_v4080 = 0; if (( (int)i_v4080 > (int)4)) { goto lab_L100006; }; lab_L100009: ; SOURCE(1464, 77) { word var_c17060; W2 var_c047; { word pd68; pd68 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+89) ); (void) ( *( (fPt) ((* (ptr) pd68 ))))((word) &var_c047, s_v3952, (word) (( (bPt) &var_c18948)+16)/* var_c16868 */ , pd68) ; }; var_c17060 = var_c047.f0; { W2 var_c17092; W2 var_c17124; W2 var_c0138; var_c17092.f0 = 5; var_c17092.f1 = i_v4080; var_c17124.f0 = 11; var_c17124.f1 = var_c17060; (* (ptr) (word) &var_c0138 ) = 0; (* (( (ptr) (word) &var_c0138) + 1) ) = 0; { word pd69; pd69 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+60) ); (void) ( *( (fPt) ((* (ptr) pd69 ))))(var_c18948.f6/* o_v3924 */ , (* (( (ptr) gf_c18980)+23) ), var_c17092, var_c17124, var_c0138, pd69) ; }; }; }; if (( (int)i_v4080 >= (int)4)) { goto lab_L100006; }; i_v4080 = (i_v4080 + 1); goto lab_L100009; lab_L100006: ; }; SOURCE(1552, 18) { word pd70; pd70 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+29) ); pos_v3980 = (word) ( *( (fPt) ((* (ptr) pd70 ))))(s_v3952, pd70); }; SOURCE(1572, 83) { word var_c17188; word var_c17220; { word pd71; pd71 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+29) ); var_c17188 = (word) ( *( (fPt) ((* (ptr) pd71 ))))(s_v3952, pd71); }; { word pd72; pd72 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+15) ); var_c17220 = (word) ( *( (fPt) ((* (ptr) pd72 ))))(s_v3952, pd72); }; { W2 var_c17252; W2 var_c17284; W2 var_c0139; var_c17252.f0 = 5; var_c17252.f1 = var_c17188; var_c17284.f0 = 2; var_c17284.f1 = var_c17220; (* (ptr) (word) &var_c0139 ) = 0; (* (( (ptr) (word) &var_c0139) + 1) ) = 0; { word pd73; pd73 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+60) ); (void) ( *( (fPt) ((* (ptr) pd73 ))))(var_c18948.f6/* o_v3924 */ , (* (( (ptr) gf_c18980)+22) ), var_c17252, var_c17284, var_c0139, pd73) ; }; }; }; SOURCE(1657, 101) { register word i_v4124 = 6; if (( (int)i_v4124 > (int)8)) { goto lab_L100010; }; lab_L100013: ; SOURCE(1681, 77) { word var_c17348; W2 var_c056; { word pd74; pd74 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+89) ); (void) ( *( (fPt) ((* (ptr) pd74 ))))((word) &var_c056, s_v3952, (word) (( (bPt) &var_c18948)+16)/* var_c16868 */ , pd74) ; }; var_c17348 = var_c056.f0; { W2 var_c17380; W2 var_c17412; W2 var_c0140; var_c17380.f0 = 5; var_c17380.f1 = i_v4124; var_c17412.f0 = 11; var_c17412.f1 = var_c17348; (* (ptr) (word) &var_c0140 ) = 0; (* (( (ptr) (word) &var_c0140) + 1) ) = 0; { word pd75; pd75 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+60) ); (void) ( *( (fPt) ((* (ptr) pd75 ))))(var_c18948.f6/* o_v3924 */ , (* (( (ptr) gf_c18980)+23) ), var_c17380, var_c17412, var_c0140, pd75) ; }; }; }; if (( (int)i_v4124 >= (int)8)) { goto lab_L100010; }; i_v4124 = (i_v4124 + 1); goto lab_L100013; lab_L100010: ; }; SOURCE(1769, 83) { word var_c17476; word var_c17508; { word pd76; pd76 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+29) ); var_c17476 = (word) ( *( (fPt) ((* (ptr) pd76 ))))(s_v3952, pd76); }; { word pd77; pd77 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+15) ); var_c17508 = (word) ( *( (fPt) ((* (ptr) pd77 ))))(s_v3952, pd77); }; { W2 var_c17540; W2 var_c17572; W2 var_c0141; var_c17540.f0 = 5; var_c17540.f1 = var_c17476; var_c17572.f0 = 2; var_c17572.f1 = var_c17508; (* (ptr) (word) &var_c0141 ) = 0; (* (( (ptr) (word) &var_c0141) + 1) ) = 0; { word pd78; pd78 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+60) ); (void) ( *( (fPt) ((* (ptr) pd78 ))))(var_c18948.f6/* o_v3924 */ , (* (( (ptr) gf_c18980)+22) ), var_c17540, var_c17572, var_c0141, pd78) ; }; }; }; SOURCE(1854, 56) { W2 var_c17636; var_c17636.f0 = 5; var_c17636.f1 = pos_v3980; { word pd79; pd79 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+61) ); (void) ( *( (fPt) ((* (ptr) pd79 ))))(var_c18948.f6/* o_v3924 */ , (* (( (ptr) gf_c18980)+24) ), var_c17636, pd79); }; }; SOURCE(1912, 15) { word pd80; pd80 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+30) ); (void) ( *( (fPt) ((* (ptr) pd80 ))))(s_v3952, pos_v3980, pd80); }; SOURCE(1929, 101) { register word i_v4168 = 6; if (( (int)i_v4168 > (int)8)) { goto lab_L100014; }; lab_L100017: ; SOURCE(1953, 77) { word var_c17668; W2 var_c066; { word pd81; pd81 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+89) ); (void) ( *( (fPt) ((* (ptr) pd81 ))))((word) &var_c066, s_v3952, (word) (( (bPt) &var_c18948)+16)/* var_c16868 */ , pd81) ; }; var_c17668 = var_c066.f0; { W2 var_c17700; W2 var_c17732; W2 var_c0142; var_c17700.f0 = 5; var_c17700.f1 = i_v4168; var_c17732.f0 = 11; var_c17732.f1 = var_c17668; (* (ptr) (word) &var_c0142 ) = 0; (* (( (ptr) (word) &var_c0142) + 1) ) = 0; { word pd82; pd82 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+60) ); (void) ( *( (fPt) ((* (ptr) pd82 ))))(var_c18948.f6/* o_v3924 */ , (* (( (ptr) gf_c18980)+23) ), var_c17700, var_c17732, var_c0142, pd82) ; }; }; }; if (( (int)i_v4168 >= (int)8)) { goto lab_L100014; }; i_v4168 = (i_v4168 + 1); goto lab_L100017; lab_L100014: ; }; SOURCE(2041, 83) { word var_c17796; word var_c17828; { word pd83; pd83 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+29) ); var_c17796 = (word) ( *( (fPt) ((* (ptr) pd83 ))))(s_v3952, pd83); }; { word pd84; pd84 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+15) ); var_c17828 = (word) ( *( (fPt) ((* (ptr) pd84 ))))(s_v3952, pd84); }; { W2 var_c17860; W2 var_c17892; W2 var_c0143; var_c17860.f0 = 5; var_c17860.f1 = var_c17796; var_c17892.f0 = 2; var_c17892.f1 = var_c17828; (* (ptr) (word) &var_c0143 ) = 0; (* (( (ptr) (word) &var_c0143) + 1) ) = 0; { word pd85; pd85 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+60) ); (void) ( *( (fPt) ((* (ptr) pd85 ))))(var_c18948.f6/* o_v3924 */ , (* (( (ptr) gf_c18980)+22) ), var_c17860, var_c17892, var_c0143, pd85) ; }; }; }; SOURCE(2127, 11) { word pd86; pd86 = (* (( (ptr) (* (( (ptr) gf_c18980)+71)/* var_c16676 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd86 ))))(s_v3952, 0, pd86); }; /* removed tail goto */ (* (ptr) formal_c073 ) = result_v5668; (* (( (ptr) formal_c073)+1) ) = msg_v5696; return; } static word MyTokenProc_P528(char_v11644, formal_c19044) word char_v11644; word formal_c19044; { register ptr gf_c19012 = (ptr) &globalframe; word var_c11688; word cc_v4212; word what_v4240 = 0; formal_c19044 = (formal_c19044 - 16); /* MyTokenProc: */ SOURCE(919, 389) SOURCE(984, 239) { word var_c17956; var_c17956 = char_v11644; if (((((((((((((var_c17956 == 91) || (var_c17956 == 93)) || (var_c17956 == 40)) || (var_c17956 == 41)) || (var_c17956 == 123)) || (var_c17956 == 125)) || (var_c17956 == 34)) || (var_c17956 == 43)) || (var_c17956 == 45)) || (var_c17956 == 42)) || (var_c17956 == 47)) || (var_c17956 == 64)) || (var_c17956 == 95)) { SOURCE(1057, 10) cc_v4212 = 0; SOURCE(1069, 14) what_v4240 = (* (( (ptr) gf_c19012)+25) ); goto endif087; }; if ((var_c17956 <= 32)) { SOURCE(1112, 9) cc_v4212 = 1; SOURCE(1123, 14) what_v4240 = (* (( (ptr) gf_c19012)+26) ); goto endif087; }; if (((var_c17956 == 44) || (var_c17956 == 58)) || (var_c17956 == 59)) { SOURCE(1156, 9) cc_v4212 = 1; SOURCE(1167, 14) what_v4240 = (* (( (ptr) gf_c19012)+26) ); goto endif087; }; SOURCE(1197, 10) cc_v4212 = 2; SOURCE(1209, 14) what_v4240 = (* (( (ptr) gf_c19012)+27) ); goto endif087; endif087: ; }; SOURCE(1226, 70) if ((0 != (* (( (ptr) gf_c19012)+10)/* debug_v2832 */ ))) { SOURCE(1240, 56) { W2 var_c17988; W2 var_c18020; W2 var_c0144; var_c17988.f0 = 3; var_c17988.f1 = char_v11644; var_c18020.f0 = 11; var_c18020.f1 = what_v4240; (* (ptr) (word) &var_c0144 ) = 0; (* (( (ptr) (word) &var_c0144) + 1) ) = 0; { word pd88; pd88 = (* (( (ptr) (* (( (ptr) gf_c19012)+71)/* var_c16676 */ ))+60) ); (void) ( *( (fPt) ((* (ptr) pd88 ))))((* (( (ptr) formal_c19044)+6) ), (* (( (ptr) gf_c19012)+28) ), var_c17988, var_c18020, var_c0144, pd88) ; }; }; }; SOURCE(1298, 10) return(cc_v4212); } static void DoStat_P180(formal_c093, cmd_v5788) word formal_c093; word cmd_v5788; { register ptr gf_c19076 = (ptr) &globalframe; word result_v5832; word msg_v5860; word o_v4284; W16 stat_v4340; word cName_v4368; word res_v4396; word fd_v4424; /* DoStat: */ SOURCE(2186, 678) SOURCE(2186, 678) result_v5832 = 0; SOURCE(2186, 678) msg_v5860 = 0; SOURCE(2220, 22) o_v4284 = (* (( (ptr) cmd_v5788)+1) ); SOURCE(2314, 20) XR_FillWords(&stat_v4340, 16, 0); SOURCE(2336, 50) { word pd89; pd89 = (* (( (ptr) (* (( (ptr) gf_c19076)+72)/* var_c18116 */ ))+5) ); cName_v4368 = (word) ( *( (fPt) ((* (ptr) pd89 ))))((* ((( (ptr) gf_c19076)+20)) ), pd89); }; SOURCE(2398, 67) { word pd90; pd90 = (* (( (ptr) (* (( (ptr) gf_c19076)+73)/* var_c18148 */ ))+48) ); fd_v4424 = (word) ( *( (fPt) ((* (ptr) pd90 ))))(cName_v4368, 0, (* (( (ptr) gf_c19076)+11)/* mode_v2916 */ ), pd90); }; SOURCE(2467, 69) if ((fd_v4424 == (word) -1)) { SOURCE(2488, 39) { word pd91; pd91 = (* (( (ptr) (* (( (ptr) gf_c19076)+71)/* var_c16676 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd91 ))))(o_v4284, (* (( (ptr) gf_c19076)+29) ), 0, 2147483647, pd91); }; SOURCE(2529, 7) goto lab_L100018; }; SOURCE(2547, 38) SOURCE(2549, 36) { word pd92; pd92 = (* (( (ptr) (* (( (ptr) gf_c19076)+73)/* var_c18148 */ ))+70) ); res_v4396 = (word) ( *( (fPt) ((* (ptr) pd92 ))))(fd_v4424, (word) &stat_v4340, pd92); }; SOURCE(2588, 60) if ((res_v4396 != 0)) { SOURCE(2612, 27) { word pd93; pd93 = (* (( (ptr) (* (( (ptr) gf_c19076)+71)/* var_c16676 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd93 ))))(o_v4284, (* (( (ptr) gf_c19076)+30) ), 0, 2147483647, pd93); }; SOURCE(2641, 7) goto lab_L100018; }; SOURCE(2651, 184) { word var_c18180; { word var_c18212; word var_c18244; var_c18212 = XR_NewObject(12, (* (( (ptr) gf_c19076)+18) )); var_c18244 = var_c18212; (* (ptr) var_c18244 ) = 5; { word idx94; (* (( (ptr) var_c18244)+1) ) = ( idx94 = (* (( (ptr) &stat_v4340)+1) ), SGNCK(idx94) ); }; (* (( (ptr) var_c18244)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c19076)+18) )); var_c18244 = (* (( (ptr) var_c18244)+2) ); (* (ptr) var_c18244 ) = 5; (* (( (ptr) var_c18244)+1) ) = (unsigned) (* (( (hPt) &stat_v4340)+4) ); (* (( (ptr) var_c18244)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c19076)+18) )); var_c18244 = (* (( (ptr) var_c18244)+2) ); (* (ptr) var_c18244 ) = 5; (* (( (ptr) var_c18244)+1) ) = (int) ( short )(* (( (hPt) &stat_v4340)+6) ); (* (( (ptr) var_c18244)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c19076)+18) )); var_c18244 = (* (( (ptr) var_c18244)+2) ); (* (ptr) var_c18244 ) = 5; (* (( (ptr) var_c18244)+1) ) = (int) ( short )(* (( (hPt) &stat_v4340)+7) ); (* (( (ptr) var_c18244)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c19076)+18) )); var_c18244 = (* (( (ptr) var_c18244)+2) ); (* (ptr) var_c18244 ) = 5; { word idx95; (* (( (ptr) var_c18244)+1) ) = ( idx95 = (* (( (ptr) &stat_v4340)+5) ), SGNCK(idx95) ); }; var_c18180 = var_c18212; }; { word pd96; pd96 = (* (( (ptr) (* (( (ptr) gf_c19076)+71)/* var_c16676 */ ))+64) ); (void) ( *( (fPt) ((* (ptr) pd96 ))))(o_v4284, (* (( (ptr) gf_c19076)+31) ), var_c18180, pd96); }; }; SOURCE(2837, 27) { word var_c18276; word pd97; pd97 = (* (( (ptr) (* (( (ptr) gf_c19076)+73)/* var_c18148 */ ))+9) ); var_c18276 = (word) ( *( (fPt) ((* (ptr) pd97 ))))(fd_v4424, pd97); }; /* removed tail goto */ lab_L100018: ; (* (ptr) formal_c093 ) = result_v5832; (* (( (ptr) formal_c093)+1) ) = msg_v5860; return; } static void DoStream_P240(s_v3256) word s_v3256; { register ptr gf_c19108 = (ptr) &globalframe; /* DoStream: */ SOURCE(2870, 539) SOURCE(2904, 55) { word pd98; pd98 = (* (( (ptr) (* (( (ptr) gf_c19108)+71)/* var_c16676 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd98 ))))(s_v3256, (* (( (ptr) gf_c19108)+36) ), 0, 2147483647, pd98); }; SOURCE(2961, 43) { W2 var_c18308; var_c18308.f0 = 11; var_c18308.f1 = (* (( (ptr) gf_c19108)+38) ); { word pd99; pd99 = (* (( (ptr) (* (( (ptr) gf_c19108)+71)/* var_c16676 */ ))+61) ); (void) ( *( (fPt) ((* (ptr) pd99 ))))(s_v3256, (* (( (ptr) gf_c19108)+37) ), var_c18308, pd99); }; }; SOURCE(3006, 49) { W2 var_c18340; var_c18340.f0 = 5; var_c18340.f1 = 2147483647; { word pd100; pd100 = (* (( (ptr) (* (( (ptr) gf_c19108)+71)/* var_c16676 */ ))+61) ); (void) ( *( (fPt) ((* (ptr) pd100 ))))(s_v3256, (* (( (ptr) gf_c19108)+39) ), var_c18340, pd100); }; }; SOURCE(3057, 50) { W2 var_c18372; var_c18372.f0 = 5; var_c18372.f1 = 2147483648; { word pd101; pd101 = (* (( (ptr) (* (( (ptr) gf_c19108)+71)/* var_c16676 */ ))+61) ); (void) ( *( (fPt) ((* (ptr) pd101 ))))(s_v3256, (* (( (ptr) gf_c19108)+39) ), var_c18372, pd101); }; }; SOURCE(3109, 44) { W2 var_c18404; var_c18404.f0 = 3; var_c18404.f1 = 99; { word pd102; pd102 = (* (( (ptr) (* (( (ptr) gf_c19108)+71)/* var_c16676 */ ))+61) ); (void) ( *( (fPt) ((* (ptr) pd102 ))))(s_v3256, (* (( (ptr) gf_c19108)+40) ), var_c18404, pd102); }; }; SOURCE(3155, 59) { word var_c18436; { word pd103; pd103 = (* (( (ptr) (* (( (ptr) gf_c19108)+74)/* var_c18468 */ ))+5) ); var_c18436 = (word) ( *( (fPt) ((* (ptr) pd103 ))))((* (( (ptr) gf_c19108)+42) ), 0, 2147483647, pd103); }; { W2 var_c18500; var_c18500.f0 = 1; var_c18500.f1 = var_c18436; { word pd104; pd104 = (* (( (ptr) (* (( (ptr) gf_c19108)+71)/* var_c16676 */ ))+61) ); (void) ( *( (fPt) ((* (ptr) pd104 ))))(s_v3256, (* (( (ptr) gf_c19108)+41) ), var_c18500, pd104); }; }; }; SOURCE(3216, 44) { W2 var_c18532; var_c18532.f0 = 2; var_c18532.f1 = 1; { word pd105; pd105 = (* (( (ptr) (* (( (ptr) gf_c19108)+71)/* var_c16676 */ ))+61) ); (void) ( *( (fPt) ((* (ptr) pd105 ))))(s_v3256, (* (( (ptr) gf_c19108)+43) ), var_c18532, pd105); }; }; SOURCE(3262, 51) { W2 var_c18564; var_c18564.f0 = 4; var_c18564.f1 = (word) -1; { word pd106; pd106 = (* (( (ptr) (* (( (ptr) gf_c19108)+71)/* var_c16676 */ ))+61) ); (void) ( *( (fPt) ((* (ptr) pd106 ))))(s_v3256, (* (( (ptr) gf_c19108)+44) ), var_c18564, pd106); }; }; SOURCE(3315, 52) { W2 var_c18596; var_c18596.f0 = 4; var_c18596.f1 = 0; { word pd107; pd107 = (* (( (ptr) (* (( (ptr) gf_c19108)+71)/* var_c16676 */ ))+61) ); (void) ( *( (fPt) ((* (ptr) pd107 ))))(s_v3256, (* (( (ptr) gf_c19108)+44) ), var_c18596, pd107); }; }; SOURCE(3369, 40) { W2 var_c18628; var_c18628.f0 = 8; var_c18628.f1 = (* (ptr) &fc108 ); { word pd109; pd109 = (* (( (ptr) (* (( (ptr) gf_c19108)+71)/* var_c16676 */ ))+61) ); (void) ( *( (fPt) ((* (ptr) pd109 ))))(s_v3256, (* (( (ptr) gf_c19108)+45) ), var_c18628, pd109); }; }; } static void DoStandard_P300(formal_c0109, cmd_v5920) word formal_c0109; word cmd_v5920; { register ptr gf_c19140 = (ptr) &globalframe; word result_v5964; word msg_v5992; word s_v4468; /* DoStandard: */ SOURCE(3415, 99) SOURCE(3415, 99) result_v5964 = 0; SOURCE(3415, 99) msg_v5992 = 0; SOURCE(3453, 48) { word pd110; pd110 = (* (( (ptr) (* (( (ptr) gf_c19140)+70)/* var_c16644 */ ))+4) ); s_v4468 = (word) ( *( (fPt) ((* (ptr) pd110 ))))(1, pd110); }; SOURCE(3503, 11) (void) DoStream_P240(s_v4468); /* removed tail goto */ (* (ptr) formal_c0109 ) = result_v5964; (* (( (ptr) formal_c0109)+1) ) = msg_v5992; return; } static void DoFile_P360(formal_c0114, cmd_v6052) word formal_c0114; word cmd_v6052; { register ptr gf_c19172 = (ptr) &globalframe; word result_v6096; word msg_v6124; word s_v4512; /* DoFile: */ SOURCE(3520, 300) SOURCE(3520, 300) result_v6096 = 0; SOURCE(3520, 300) msg_v6124 = 0; SOURCE(3554, 53) { word pd111; pd111 = (* (( (ptr) (* (( (ptr) gf_c19172)+70)/* var_c16644 */ ))+5) ); s_v4512 = (word) ( *( (fPt) ((* (ptr) pd111 ))))((* (( (ptr) gf_c19172)+46) ), 2, 436, pd111); }; SOURCE(3609, 11) (void) DoStream_P240(s_v4512); SOURCE(3622, 38) { word pd112; pd112 = (* (( (ptr) (* (( (ptr) gf_c19172)+71)/* var_c16676 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd112 ))))((* (( (ptr) cmd_v6052)+1) ), (* (( (ptr) gf_c19172)+47) ), 0, 2147483647, pd112); }; SOURCE(3662, 44) { word pd113; pd113 = (* (( (ptr) (* (( (ptr) gf_c19172)+71)/* var_c16676 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd113 ))))((* (( (ptr) cmd_v6052)+1) ), (* (( (ptr) gf_c19172)+48) ), 0, 2147483647, pd113); }; SOURCE(3708, 43) { word pd114; pd114 = (* (( (ptr) (* (( (ptr) gf_c19172)+70)/* var_c16644 */ ))+5) ); s_v4512 = (word) ( *( (fPt) ((* (ptr) pd114 ))))((* (( (ptr) gf_c19172)+46) ), 1, 436, pd114); }; SOURCE(3753, 11) (void) DoStream_P240(s_v4512); SOURCE(3766, 54) { word pd115; pd115 = (* (( (ptr) (* (( (ptr) gf_c19172)+71)/* var_c16676 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd115 ))))((* (( (ptr) cmd_v6052)+1) ), (* (( (ptr) gf_c19172)+49) ), 0, 2147483647, pd115); }; /* removed tail goto */ (* (ptr) formal_c0114 ) = result_v6096; (* (( (ptr) formal_c0114)+1) ) = msg_v6124; return; } static void DoFlags_P420(formal_c0124, cmd_v6756) word formal_c0124; word cmd_v6756; { register ptr gf_c19204 = (ptr) &globalframe; word result_v6800; word msg_v6828; /* DoFlags: */ SOURCE(4827, 415) SOURCE(4827, 415) result_v6800 = 0; SOURCE(4827, 415) msg_v6828 = 0; SOURCE(4862, 181) { W2 var_c18660; W2 var_c18692; W2 var_c18724; var_c18660.f0 = 5; var_c18660.f1 = 0; var_c18692.f0 = 5; var_c18692.f1 = 1537; var_c18724.f0 = 5; var_c18724.f1 = 521; { word pd116; pd116 = (* (( (ptr) (* (( (ptr) gf_c19204)+71)/* var_c16676 */ ))+60) ); (void) ( *( (fPt) ((* (ptr) pd116 ))))((* (( (ptr) cmd_v6756)+1) ), (* (( (ptr) gf_c19204)+50) ), var_c18660, var_c18692, var_c18724, pd116) ; }; }; SOURCE(5045, 197) { W2 var_c18756; W2 var_c18788; W2 var_c18820; var_c18756.f0 = 5; var_c18756.f1 = 0; var_c18788.f0 = 5; var_c18788.f1 = 769; var_c18820.f0 = 5; var_c18820.f1 = 265; { word pd117; pd117 = (* (( (ptr) (* (( (ptr) gf_c19204)+71)/* var_c16676 */ ))+60) ); (void) ( *( (fPt) ((* (ptr) pd117 ))))((* (( (ptr) cmd_v6756)+1) ), (* (( (ptr) gf_c19204)+51) ), var_c18756, var_c18788, var_c18820, pd117) ; }; }; /* removed tail goto */ (* (ptr) formal_c0124 ) = result_v6800; (* (( (ptr) formal_c0124)+1) ) = msg_v6828; return; } /* file: NewUXIOTestImpl, module: NewUXIOTestImpl, compiled at: March 23, 1994 11:27:27 am PST */ extern void XR_install_NewUXIOTestImpl() { NoName_Q732(); } extern void XR_run_NewUXIOTestImpl() { XR_Start(&globalframe); }