/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */ /* time: February 21, 1992 9:36:30 pm PST */ /* C2C version: October 16, 1990 (native) */ /* ref-counting: off */ /* file: IOScanImpl, module: IOScanImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [76795305,4052816741] IOScanImpl"; 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 {W8 f; word r;} W9; typedef struct {word f0, f1;} W2; typedef struct {word f0, f1, f2, f3, f4, f5;} W6; typedef struct {W8 f; W8 r;} W16; typedef struct {W8 f; W2 r;} W10; typedef struct {W16 f; W10 r;} W26; typedef struct {word f0, f1, f2, f3;} W4; typedef struct {W8 f; W4 r;} W12; typedef struct {W16 f; W2 r;} W18; typedef struct {word f0, f1, f2;} W3; typedef struct {W8 f; W3 r;} W11; typedef W11 *W11Pt; typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; typedef struct {word f0, f1, f2, f3, f4;} W5; #define SOURCE(p, l) /* source p, l */ #define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) ) #define INEG(x) ( (word) ( - ((int) (word) (x)) ) ) #define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i ) static void NoName_Q3960(); static void IOScanImpl_P0(); static void GetToken_P60(); static void GetTokenRope_P120(); static word NoName_Q4020(); static word IDProc_P180(); static word TokenProc_P240(); static word GetLine_P300(); static word NoName_Q4080(); static word GetLineRope_P360(); static word NoName_Q4140(); static word SkipWhitespace_P420(); static void GetCedarToken_P480(); static word NoName_Q4200(); static word NoName_Q4260(); static word Get_P1560(); static void PutbackChar_P1680(); static word AcceptExtendedChar_P1740(); static void AcceptRealTail_P1800(); static word AcceptExponent_P1860(); static word AcceptHexTail_P1920(); static void AcceptAngleComment_P1980(); static void GetCedarTokenRope_P540(); static word NoName_Q4320(); static word GetInt_P600(); static word GetCard_P660(); static void GetNumber_P720(); static word NoName_Q4380(); static word GetReal_P780(); static word GetTime_P840(); static word NoName_Q4440(); static word GetBool_P900(); static word NoName_Q4500(); static word GetAtom_P960(); static word NoName_Q4560(); static word GetRopeLiteral_P1020(); static word GetCharLiteral_P1080(); static word NoName_Q4620(); static word GetID_P1140(); static word GetRefAny_P1200(); static word NoName_Q4680(); static word GetRefAny0_P2232(); static word NoName_Q4740(); static word NoName_Q4800(); static word GetRefAnyLine_P1260(); static void NoName_Q4860(); static void NoName_Q4920(); static void NoName_Q4980(); static void NoName_Q5040(); static void NoName_Q5100(); static void NoName_Q5160(); static void NoName_Q5220(); static void NoName_Q5280(); static void NoName_Q5340(); static void NoName_Q5400(); static void NoName_Q5460(); static void NoName_Q5520(); static void NoName_Q5580(); static void NoName_Q5640(); 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, "\260\006\005\146\151\162\163\164\217\005\004\162\145\163\164\214\217\261\000"}; static struct {unsigned f; char r[4];} string4 = {131074, "\004\003\000"}; static struct {unsigned f; char r[4];} string5 = {65540, "\232\000\000"}; static struct {unsigned f; char r[4];} string6 = {65540, "\243\000\000"}; static struct {unsigned f; char r[4];} string7 = {65540, "\242\000\000"}; static struct {unsigned f; char r[4];} string8 = {65540, "\256\000\000"}; static struct {unsigned f; char r[8];} string9 = {327688, "FALSE\000\000"}; static struct {unsigned f; char r[8];} string10 = {262152, "TRUE\000\000\000"}; static struct {unsigned f; char r[4];} string11 = {196612, "NIL"}; static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\004\223\315\251\300\361\221\023\145\100\164\000\000"}; static struct {unsigned f; char r[8];} string13 = {262148, "\004\200p\000\000\000\000"}; static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\212\174\364\337\300\361\376\000\156\100\150\000\000"}; static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"}; static unsigned string16 = 1229914112; 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\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\332\223\177\020\300\304\076\102\260\100\164\000\000"}; static struct { word f0[17]; 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; word f31; word f32; word f33; word f34; word f35; word f36; word f37; word f38; word f39; word f40; word f41; word f42; word f43; word f44; word f45; word f46; word f47; word f48; word f49; word f50; word f51; word f52; word f53; word f54; word f55; word f56; word f57; word f58; word f59; word f60[7]; } globalframe = { {0}, (word) GetRefAnyLine_P1260, 0, (word) GetRefAny_P1200, 0, (word) GetID_P1140, 0, (word) GetCharLiteral_P1080, 0, (word) GetRopeLiteral_P1020, 0, (word) GetAtom_P960, 0, (word) GetBool_P900, 0, (word) GetTime_P840, 0, (word) GetReal_P780, 0, (word) GetNumber_P720, 0, (word) GetCard_P660, 0, (word) GetInt_P600, 0, (word) GetCedarTokenRope_P540, 0, (word) GetCedarToken_P480, 0, (word) SkipWhitespace_P420, 0, (word) GetLineRope_P360, 0, (word) GetLine_P300, 0, (word) TokenProc_P240, 0, (word) IDProc_P180, 0, (word) GetTokenRope_P120, 0, (word) GetToken_P60, 0, (word) IOScanImpl_P0, {0} }; static void NoName_Q3960() { register ptr gf_c0442 = (ptr) &globalframe; word var_c27688; (* (( (ptr) gf_c0442)+5) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0442)+7) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4); (* (( (ptr) gf_c0442)+8) ) = (word) XR_GetTypeIndexS((word) (&string5)); (* (( (ptr) gf_c0442)+9) ) = (word) XR_GetTypeIndexS((word) (&string6)); (* (( (ptr) gf_c0442)+10) ) = (word) XR_GetTypeIndexS((word) (&string7)); (* (( (ptr) gf_c0442)+11) ) = (word) XR_GetTypeIndexS((word) (&string8)); (* (ptr) (( (bPt) gf_c0442)+48) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0442)+5) ), (word) &string9); (* (ptr) (( (bPt) gf_c0442)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0442)+5) ), (word) &string10); (* (ptr) (( (bPt) gf_c0442)+56) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0442)+5) ), (word) &string11); (void) XR_DeclareGlobalFrame((word) "IOScanImpl", &globalframe, (word) XR_GetTypeIndex((word) &string12, 0, (word) &string13) , (word) (( (bPt) gf_c0442)+236)/* var_c22952 */ ); var_c27688 = (word) XR_ImportInterface((word) "BasicTime", (word) XR_GetTypeIndexS((word) (&string14)), 24); (* (( (ptr) gf_c0442)+65)/* var_c25480 */ ) = var_c27688; (void) XR_ImportProcS(var_c27688, 69997569); var_c27688 = (word) XR_ImportInterface((word) "Convert", (word) XR_GetTypeIndexS((word) (&string15)), 73); (* (( (ptr) gf_c0442)+64)/* var_c24744 */ ) = var_c27688; (void) XR_ImportProcS(var_c27688, 67634690); (void) XR_ImportProcS(var_c27688, 67638786); (void) XR_ImportProcS(var_c27688, 67638530); (void) XR_ImportProcS(var_c27688, 67374593); (void) XR_ImportProcS(var_c27688, 67374337); (void) XR_ImportProcS(var_c27688, 67638274); (void) XR_ImportProcS(var_c27688, 67637506); (void) XR_ImportProcS(var_c27688, 67637250); (void) XR_ImportProcS(var_c27688, 67636994); var_c27688 = (word) XR_ImportInterface((word) &string16, (word) XR_GetTypeIndexS((word) (&string17)), 103); (* (( (ptr) gf_c0442)+61)/* var_c22984 */ ) = var_c27688; (void) XR_ImportProcS(var_c27688, 527874); (void) XR_ImportProcS(var_c27688, 738479617); (void) XR_ImportProcS(var_c27688, 67372801); (void) XR_ImportProcS(var_c27688, 67373825); var_c27688 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string18)), 43); (* (( (ptr) gf_c0442)+63)/* var_c23176 */ ) = var_c27688; (void) XR_ImportProcS(var_c27688, 67896323); (void) XR_ImportProcS(var_c27688, 67633666); (void) XR_ImportProcS(var_c27688, 67903235); var_c27688 = (word) XR_ImportInterface((word) "RefText", (word) XR_GetTypeIndexS((word) (&string19)), 26); (* (( (ptr) gf_c0442)+62)/* var_c23112 */ ) = var_c27688; (void) XR_ImportProcS(var_c27688, 67371009); (void) XR_ImportProcS(var_c27688, 262913); (void) XR_ImportProcS(var_c27688, 67371521); (void) XR_ImportProcS(var_c27688, 67634946); var_c27688 = (word) XR_ExportInterface((word) &string16, (word) XR_GetTypeIndexS((word) (&string17)), 103); (* (( (ptr) gf_c0442)+66)/* var_c27720 */ ) = var_c27688; (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+172)/* var_c22696 */ , 269238787); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+164)/* var_c22664 */ , 201868034); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+156)/* var_c22632 */ , 67388417); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+148)/* var_c22600 */ , 67388673); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+132)/* var_c22536 */ , 67388929); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+116)/* var_c22472 */ , 67389441); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+108)/* var_c22440 */ , 67389697); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+100)/* var_c22408 */ , 67389953); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+92)/* var_c22376 */ , 67390209); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+84)/* var_c22344 */ , 67390465); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+124)/* var_c22504 */ , 67390721); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+76)/* var_c22312 */ , 67391233); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+68)/* var_c22280 */ , 67391489); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+180)/* var_c22728 */ , 67653890); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+228)/* var_c22920 */ , 135025155); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+204)/* var_c22824 */ , 67392257); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+212)/* var_c22856 */ , 67392513); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+220)/* var_c22888 */ , 134763778); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+196)/* var_c22792 */ , 67655170); (void) XR_ExportProcS(var_c27688, (word) (( (bPt) gf_c0442)+188)/* var_c22760 */ , 67393281); } static void IOScanImpl_P0(formal_c052, formal_c051) word formal_c052; word formal_c051; { /* IOScanImpl: */ } static void GetToken_P60(formal_c065, stream_v3696, breakProc_v3724, buffer_v3752) word formal_c065; word stream_v3696; word breakProc_v3724; word buffer_v3752; { register ptr gf_c27752 = (ptr) &globalframe; word token_v3808; word charsSkipped_v3836; word quit_v6300 = 0; word include_v6328 = 0; word anySeen_v6356 = 0; /* GetToken: */ SOURCE(1035, 713) SOURCE(1035, 713) token_v3808 = 0; SOURCE(1215, 16) charsSkipped_v3836 = 0; SOURCE(1233, 17) (* (hPt) buffer_v3752 ) = 0; SOURCE(1252, 457) lab_L100003: ; { word tc20; word pd21; if ((0 == quit_v6300)) { if (((* (hPt) buffer_v3752 ) <= 0)) { tc20 = (word) 1; } else { pd21 = (* (( (ptr) (* (( (ptr) gf_c27752)+61)/* var_c22984 */ ))+15) ); tc20 = (word) (0 == (word) ( *( (fPt) ((* (ptr) pd21 ))))(stream_v3696, pd21)); }; } else { tc20 = (word) 0; }; if (tc20) { } else { goto lab_L100001; }; }; { word char_v6400; SOURCE(1310, 31) { word pd22; pd22 = (* (( (ptr) (* (( (ptr) gf_c27752)+61)/* var_c22984 */ ))+11) ); char_v6400 = (word) ( *( (fPt) ((* (ptr) pd22 ))))(stream_v3696, pd22); }; SOURCE(1343, 173) { word var_c23016; var_c23016 = (word) ( *( (fPt) ((* (ptr) breakProc_v3724 ))))(char_v6400, breakProc_v3724); switch (var_c23016) { case 0: SOURCE(1381, 21) include_v6328 = (0 == anySeen_v6356); SOURCE(1404, 11) quit_v6300 = 1; break; case 1: SOURCE(1427, 15) include_v6328 = 0; SOURCE(1444, 15) quit_v6300 = anySeen_v6356; break; case 2: SOURCE(1472, 14) include_v6328 = 1; SOURCE(1488, 12) quit_v6300 = 0; SOURCE(1502, 14) anySeen_v6356 = 1; break; default: SOURCE(1530, 5) (void) XR_RaiseUnnamedError(); break; }; }; if ((0 != include_v6328)) { SOURCE(1566, 47) { word var_c23048; word to_v22200; to_v22200 = buffer_v3752; if (((* (hPt) to_v22200 ) >= (* (( (hPt) to_v22200)+1) ))) { { word pd23; pd23 = (* (( (ptr) (* (( (ptr) gf_c27752)+62)/* var_c23112 */ ))+11) ); var_c23048 = (word) ( *( (fPt) ((* (ptr) pd23 ))))(to_v22200, char_v6400, pd23); }; goto lab_L100004; }; { word idx24; word limit25; (* ((( (bPt) to_v22200)+4)+( idx24 = (word) (* (hPt) to_v22200 ), limit25 = (word) (* (( (hPt) to_v22200)+1) ), BCK(idx24, limit25) )) ) = char_v6400; }; { word idx26; (* (hPt) to_v22200 ) = ( idx26 = (word) ((* (hPt) to_v22200 ) + 1), BCK(idx26, 32768) ); }; var_c23048 = to_v22200; lab_L100004: ; buffer_v3752 = var_c23048; }; } else { if ((0 != quit_v6300)) { SOURCE(1625, 39) { word pd27; pd27 = (* (( (ptr) (* (ptr) stream_v3696 ))+5) ); (void) ( *( (fPt) ((* (ptr) pd27 ))))(stream_v3696, char_v6400, pd27); }; } else { SOURCE(1678, 31) charsSkipped_v3836 = (charsSkipped_v3836 + 1); }; }; }; goto lab_L100003; lab_L100001: ; SOURCE(1720, 28) token_v3808 = buffer_v3752; /* removed bogus assignment */ /* removed tail goto */ (* (ptr) formal_c065 ) = token_v3808; (* (( (ptr) formal_c065)+1) ) = charsSkipped_v3836; return; } static void GetTokenRope_P120(formal_c071, formal_c0547, formal_c0548) word formal_c071; word formal_c0547; word formal_c0548; { W9 var_c27784; /* declaration of stream_v3908 skipped */ /* declaration of breakProc_v3936 skipped */ register ptr gf_c27816 = (ptr) &globalframe; /* declaration of token_v3980 skipped */ /* declaration of charsSkipped_v4008 skipped */ /* declaration of buffer_v6444 skipped */ (* (( (ptr) &var_c27784)+4)/* stream_v3908 */ ) = formal_c0547; (* (( (ptr) &var_c27784)+5)/* breakProc_v3936 */ ) = formal_c0548; /* GetTokenRope: */ SOURCE(1754, 394) SOURCE(1754, 394) (* (( (ptr) &var_c27784)+6)/* token_v3980 */ ) = 0; SOURCE(1864, 45) { word pd28; pd28 = (* (( (ptr) (* (( (ptr) gf_c27816)+62)/* var_c23112 */ ))+6) ); (* (( (ptr) &var_c27784)+8)/* buffer_v6444 */ ) = (word) ( *( (fPt) ((* (ptr) pd28 ))))(100, pd28); }; SOURCE(1913, 170) { word var_c0506; var_c0506 = (word) &var_c27784; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q4020) ), ( ((word) (fPt) NoName_Q5640) ), var_c0506); }; SOURCE(2088, 30) { word pd29; pd29 = (* (( (ptr) (* (( (ptr) gf_c27816)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd29 ))))((* ((( (ptr) &var_c27784)+8)/* buffer_v6444 */ ) ), pd29); }; SOURCE(2120, 28) /* removed bogus assignment */ /* removed bogus assignment */ /* removed tail goto */ (* (ptr) formal_c071 ) = (* (( (ptr) &var_c27784)+6)/* token_v3980 */ ); (* (( (ptr) formal_c071)+1) ) = (* (( (ptr) &var_c27784)+7)/* charsSkipped_v4008 */ ); return; } static word NoName_Q4020(formal_c0446) word formal_c0446; { register ptr gf_c0445 = (ptr) &globalframe; SOURCE(1962, 19) { word tokenText_v6500 = 0; SOURCE(1983, 63) { W2 var_c23144; (void) GetToken_P60((word) &var_c23144, (* (( (ptr) formal_c0446)+4) ), (* (( (ptr) formal_c0446)+5) ), (* (( (ptr) formal_c0446)+8) )); (* (( (ptr) formal_c0446)+7) ) = var_c23144.f1; tokenText_v6500 = var_c23144.f0; }; SOURCE(2048, 35) { word pd30; pd30 = (* (( (ptr) (* (( (ptr) gf_c0445)+63)/* var_c23176 */ ))+35) ); (* (( (ptr) formal_c0446)+6) ) = (word) ( *( (fPt) ((* (ptr) pd30 ))))(tokenText_v6500, 0, 32767, pd30); }; }; return(0); } static word IDProc_P180(char_v16360) word char_v16360; { word var_c16404; /* IDProc: */ SOURCE(2154, 120) SOURCE(2183, 91) { word var_c23208; var_c23208 = char_v16360; if ((var_c23208 <= 32)) { return(1); } else { if (((var_c23208 == 44) || (var_c23208 == 58)) || (var_c23208 == 59)) { return(1); } else { return(2); }; }; }; } static word TokenProc_P240(char_v16464) word char_v16464; { word var_c16508; /* TokenProc: */ SOURCE(2280, 185) SOURCE(2312, 153) { word var_c23240; var_c23240 = char_v16464; if (((((((((((((var_c23240 == 91) || (var_c23240 == 93)) || (var_c23240 == 40)) || (var_c23240 == 41)) || (var_c23240 == 123)) || (var_c23240 == 125)) || (var_c23240 == 34)) || (var_c23240 == 43)) || (var_c23240 == 45)) || (var_c23240 == 42)) || (var_c23240 == 47)) || (var_c23240 == 64)) || (var_c23240 == 95)) { return(0); }; if ((var_c23240 <= 32)) { return(1); }; if (((var_c23240 == 44) || (var_c23240 == 58)) || (var_c23240 == 59)) { return(1); }; return(2); }; } static word GetLine_P300(formal_c0549, formal_c0550) word formal_c0549; word formal_c0550; { W6 var_c27848; /* declaration of stream_v4068 skipped */ /* declaration of buffer_v4096 skipped */ register ptr gf_c27880 = (ptr) &globalframe; word line_v4152; var_c27848.f4/* stream_v4068 */ = formal_c0549; var_c27848.f5/* buffer_v4096 */ = formal_c0550; /* GetLine: */ SOURCE(2471, 455) SOURCE(2471, 455) line_v4152 = 0; SOURCE(2603, 46) if ((var_c27848.f5/* buffer_v4096 */ == 0)) { SOURCE(2624, 25) { word pd32; pd32 = (* (( (ptr) (* (( (ptr) gf_c27880)+62)/* var_c23112 */ ))+4) ); var_c27848.f5/* buffer_v4096 */ = (word) ( *( (fPt) ((* (ptr) pd32 ))))(100, pd32); }; }; SOURCE(2651, 17) (* (hPt) var_c27848.f5/* buffer_v4096 */ ) = 0; SOURCE(2672, 225) SOURCE(2672, 225) { word var_c01; { word var_c0507; var_c0507 = (word) &var_c27848; var_c01 = (word) XR_Enable(( ((word) (fPt) NoName_Q4080) ), ( ((word) (fPt) NoName_Q5580) ), var_c0507); }; /* removed trivial cond node */ }; SOURCE(2911, 15) return(var_c27848.f5/* buffer_v4096 */ ); } static word NoName_Q4080(formal_c0449) word formal_c0449; { register ptr gf_c0448 = (ptr) &globalframe; SOURCE(2745, 152) lab_L100014: ; SOURCE(2745, 152) { word char_v6600; SOURCE(2748, 31) { word pd33; pd33 = (* (( (ptr) (* (( (ptr) gf_c0448)+61)/* var_c22984 */ ))+11) ); char_v6600 = (word) ( *( (fPt) ((* (ptr) pd33 ))))((* ((( (ptr) formal_c0449)+4)) ), pd33); }; SOURCE(2781, 63) if ((char_v6600 == 10)) { goto then034;}; if ((char_v6600 == 13)) { goto then034;}; if (((* (hPt) (* (( (ptr) formal_c0449)+5) ) ) == 32767)) { then034: ; SOURCE(2844, 4) goto lab_L100013; }; SOURCE(2850, 47) { word var_c23272; word to_v22124; word from_v22152; to_v22124 = (* (( (ptr) formal_c0449)+5) ); from_v22152 = char_v6600; if (((* (hPt) to_v22124 ) >= (* (( (hPt) to_v22124)+1) ))) { { word pd35; pd35 = (* (( (ptr) (* (( (ptr) gf_c0448)+62)/* var_c23112 */ ))+11) ); var_c23272 = (word) ( *( (fPt) ((* (ptr) pd35 ))))(to_v22124, from_v22152, pd35); }; goto lab_L100015; }; { word idx36; word limit37; (* ((( (bPt) to_v22124)+4)+( idx36 = (word) (* (hPt) to_v22124 ), limit37 = (word) (* (( (hPt) to_v22124)+1) ), BCK(idx36, limit37) )) ) = from_v22152; }; { word idx38; (* (hPt) to_v22124 ) = ( idx38 = (word) ((* (hPt) to_v22124 ) + 1), BCK(idx38, 32768) ); }; var_c23272 = to_v22124; lab_L100015: ; (* (( (ptr) formal_c0449)+5) ) = var_c23272; }; }; goto lab_L100014; lab_L100013: ; return(0); } static word GetLineRope_P360(formal_c0551) word formal_c0551; { W9 var_c27912; /* declaration of stream_v4224 skipped */ register ptr gf_c27944 = (ptr) &globalframe; /* declaration of line_v4268 skipped */ /* declaration of buffer_v6672 skipped */ /* declaration of bLen_v6700 skipped */ /* declaration of chars_v6728 skipped */ (* (( (ptr) &var_c27912)+4)/* stream_v4224 */ ) = formal_c0551; /* GetLineRope: */ SOURCE(2932, 637) SOURCE(2932, 637) (* (( (ptr) &var_c27912)+5)/* line_v4268 */ ) = 0; SOURCE(3024, 48) { word pd39; pd39 = (* (( (ptr) (* (( (ptr) gf_c27944)+62)/* var_c23112 */ ))+6) ); (* (( (ptr) &var_c27912)+6)/* buffer_v6672 */ ) = (word) ( *( (fPt) ((* (ptr) pd39 ))))(256, pd39); }; SOURCE(3074, 13) (* (( (ptr) &var_c27912)+7)/* bLen_v6700 */ ) = 0; SOURCE(3089, 14) (* (( (ptr) &var_c27912)+8)/* chars_v6728 */ ) = 0; SOURCE(3107, 312) SOURCE(3107, 312) { word var_c02; { word var_c0508; var_c0508 = (word) &var_c27912; var_c02 = (word) XR_Enable(( ((word) (fPt) NoName_Q4140) ), ( ((word) (fPt) NoName_Q5520) ), var_c0508); }; /* removed trivial cond node */ }; SOURCE(3433, 20) { word idx40; (* (hPt) (* (( (ptr) &var_c27912)+6)/* buffer_v6672 */ ) ) = ( idx40 = (* (( (ptr) &var_c27912)+7)/* bLen_v6700 */ ), BCK(idx40, 32768) ); }; SOURCE(3455, 67) if (((* (( (ptr) &var_c27912)+7)/* bLen_v6700 */ ) != 0)) { SOURCE(3472, 50) { word var_c23368; { word pd41; pd41 = (* (( (ptr) (* (( (ptr) gf_c27944)+63)/* var_c23176 */ ))+35) ); var_c23368 = (word) ( *( (fPt) ((* (ptr) pd41 ))))((* (( (ptr) &var_c27912)+6)/* buffer_v6672 */ ), 0, 32767, pd41); }; { word pd42; pd42 = (* (( (ptr) (* (( (ptr) gf_c27944)+63)/* var_c23176 */ ))+6) ); (* (( (ptr) &var_c27912)+5)/* line_v4268 */ ) = (word) ( *( (fPt) ((* (ptr) pd42 ))))((* (( (ptr) &var_c27912)+5)/* line_v4268 */ ), var_c23368, pd42) ; }; }; }; SOURCE(3524, 30) { word pd43; pd43 = (* (( (ptr) (* (( (ptr) gf_c27944)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd43 ))))((* ((( (ptr) &var_c27912)+6)/* buffer_v6672 */ ) ), pd43); }; SOURCE(3556, 13) return((* (( (ptr) &var_c27912)+5)/* line_v4268 */ )); } static word NoName_Q4140(formal_c0452) word formal_c0452; { register ptr gf_c0451 = (ptr) &globalframe; SOURCE(3172, 247) lab_L100022: ; SOURCE(3172, 247) { word char_v6784; SOURCE(3175, 31) { word pd44; pd44 = (* (( (ptr) (* (( (ptr) gf_c0451)+61)/* var_c22984 */ ))+11) ); char_v6784 = (word) ( *( (fPt) ((* (ptr) pd44 ))))((* ((( (ptr) formal_c0452)+4)) ), pd44); }; SOURCE(3208, 41) if ((char_v6784 == 10) || (char_v6784 == 13)) { SOURCE(3249, 4) goto lab_L100021; }; SOURCE(3255, 17) (* (( (ptr) formal_c0452)+8) ) = ((* (( (ptr) formal_c0452)+8) ) + 1); SOURCE(3274, 106) if (((* (( (ptr) formal_c0452)+7) ) == 256)) { SOURCE(3298, 20) { word idx45; (* (hPt) (* (( (ptr) formal_c0452)+6) ) ) = ( idx45 = (* (( (ptr) formal_c0452)+7) ), BCK(idx45, 32768) ); }; SOURCE(3320, 50) { word var_c23336; { word pd46; pd46 = (* (( (ptr) (* (( (ptr) gf_c0451)+63)/* var_c23176 */ ))+35) ); var_c23336 = (word) ( *( (fPt) ((* (ptr) pd46 ))))((* (( (ptr) formal_c0452)+6) ), 0, 32767, pd46); }; { word pd47; pd47 = (* (( (ptr) (* (( (ptr) gf_c0451)+63)/* var_c23176 */ ))+6) ); (* (( (ptr) formal_c0452)+5) ) = (word) ( *( (fPt) ((* (ptr) pd47 ))))((* (( (ptr) formal_c0452)+5) ), var_c23336, pd47) ; }; }; SOURCE(3372, 8) (* (( (ptr) formal_c0452)+7) ) = 0; }; SOURCE(3385, 19) { word idx48; word limit49; (* ((( (bPt) (* (( (ptr) formal_c0452)+6) ))+4)+( idx48 = (* (( (ptr) formal_c0452)+7) ), limit49 = (word) (* (( (hPt) (* (( (ptr) formal_c0452)+6) ))+1) ), BCK(idx48, limit49) )) ) = char_v6784; }; SOURCE(3406, 13) (* (( (ptr) formal_c0452)+7) ) = ((* (( (ptr) formal_c0452)+7) ) + 1); }; goto lab_L100022; lab_L100021: ; return(0); } static word SkipWhitespace_P420(stream_v4328, flushComments_v4356) word stream_v4328; word flushComments_v4356; { register ptr gf_c27976 = (ptr) &globalframe; word charsSkipped_v4400; /* SkipWhitespace: */ SOURCE(3575, 893) SOURCE(3575, 893) charsSkipped_v4400 = 0; SOURCE(3675, 793) SOURCE(3677, 10) { word char_v6828; SOURCE(3689, 16) charsSkipped_v4400 = 0; SOURCE(3707, 668) lab_L100026: ; SOURCE(3710, 25) { word pd50; pd50 = (* (( (ptr) (* (( (ptr) gf_c27976)+61)/* var_c22984 */ ))+15) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd50 ))))(stream_v4328, pd50))) { SOURCE(3735, 10) goto lab_L100023; }; }; SOURCE(3747, 25) { word pd51; pd51 = (* (( (ptr) (* (( (ptr) gf_c27976)+61)/* var_c22984 */ ))+11) ); char_v6828 = (word) ( *( (fPt) ((* (ptr) pd51 ))))(stream_v4328, pd51); }; SOURCE(3774, 601) { word var_c23400; var_c23400 = char_v6828; if ((var_c23400 <= 32)) { SOURCE(3815, 31) charsSkipped_v4400 = (charsSkipped_v4400 + 1); } else { if ((var_c23400 == 45)) { SOURCE(3856, 46) { word pd52; pd52 = (* (( (ptr) (* (( (ptr) gf_c27976)+61)/* var_c22984 */ ))+15) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd52 ))))(stream_v4328, pd52)) || (0 == flushComments_v4356)) { SOURCE(3902, 4) goto lab_L100025; }; }; SOURCE(3908, 25) { word pd53; pd53 = (* (( (ptr) (* (( (ptr) gf_c27976)+61)/* var_c22984 */ ))+11) ); char_v6828 = (word) ( *( (fPt) ((* (ptr) pd53 ))))(stream_v4328, pd53); }; SOURCE(3935, 440) if ((char_v6828 != 45)) { SOURCE(3955, 39) { word pd54; pd54 = (* (( (ptr) (* (ptr) stream_v4328 ))+5) ); (void) ( *( (fPt) ((* (ptr) pd54 ))))(stream_v4328, char_v6828, pd54); }; SOURCE(3996, 9) char_v6828 = 45; SOURCE(4007, 4) goto lab_L100025; } else { SOURCE(4020, 31) charsSkipped_v4400 = (charsSkipped_v4400 + 2); SOURCE(4053, 280) lab_L100029: ; SOURCE(4056, 25) { word pd55; pd55 = (* (( (ptr) (* (( (ptr) gf_c27976)+61)/* var_c22984 */ ))+15) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd55 ))))(stream_v4328, pd55))) { SOURCE(4081, 10) goto lab_L100023; }; }; SOURCE(4093, 25) { word pd56; pd56 = (* (( (ptr) (* (( (ptr) gf_c27976)+61)/* var_c22984 */ ))+11) ); char_v6828 = (word) ( *( (fPt) ((* (ptr) pd56 ))))(stream_v4328, pd56); }; SOURCE(4120, 213) { word var_c23432; var_c23432 = char_v6828; switch (var_c23432) { case 10: case 13: SOURCE(4153, 4) goto lab_L100028; case 45: SOURCE(4167, 31) charsSkipped_v4400 = (charsSkipped_v4400 + 1); SOURCE(4200, 25) { /*1*/ word pd57; /*1*/ pd57 = (* (( (ptr) (* (( (ptr) gf_c27976)+61)/* var_c22984 */ ))+15) ); /*1*/ if ((0 != (word) ( *( (fPt) ((* (ptr) pd57 ))))(stream_v4328, pd57))) { SOURCE(4225, 10) /*1*/ goto lab_L100023; /*1*/ }; /*1*/ }; SOURCE(4237, 25) { /*1*/ word pd58; /*1*/ pd58 = (* (( (ptr) (* (( (ptr) gf_c27976)+61)/* var_c22984 */ ))+11) ); /*1*/ char_v6828 = (word) ( *( (fPt) ((* (ptr) pd58 ))))(stream_v4328, pd58); /*1*/ }; SOURCE(4264, 18) if ((char_v6828 == 45)) { SOURCE(4282, 4) /*1*/ goto lab_L100028; /*1*/ }; break; default: SOURCE(4302, 31) charsSkipped_v4400 = (charsSkipped_v4400 + 1); break; }; }; goto lab_L100029; lab_L100028: ; SOURCE(4344, 31) charsSkipped_v4400 = (charsSkipped_v4400 + 1); }; } else { SOURCE(4394, 4) goto lab_L100025; }; }; }; goto lab_L100026; lab_L100025: ; SOURCE(4409, 39) { word pd59; pd59 = (* (( (ptr) (* (ptr) stream_v4328 ))+5) ); (void) ( *( (fPt) ((* (ptr) pd59 ))))(stream_v4328, char_v6828, pd59); }; }; goto lab_L100030; lab_L100023: ; lab_L100030: ; SOURCE(3575, 893) return(charsSkipped_v4400); } static void GetCedarToken_P480(formal_c0136, formal_c0552, buffer_v4488, formal_c0553) word formal_c0136; word formal_c0552; word buffer_v4488; word formal_c0553; { W26 var_c28008; /* declaration of stream_v4460 skipped */ /* declaration of flushComments_v4516 skipped */ register ptr gf_c28040 = (ptr) &globalframe; /* declaration of tokenKind_v4572 skipped */ /* declaration of token_v4600 skipped */ /* declaration of charsSkipped_v4628 skipped */ /* declaration of error_v4656 skipped */ /* declaration of var_c23464 skipped */ /* declaration of var_c23496 skipped */ /* declaration of var_c23528 skipped */ /* declaration of var_c23560 skipped */ /* declaration of var_c23592 skipped */ /* declaration of var_c23624 skipped */ /* declaration of var_c23656 skipped */ /* declaration of char_v6872 skipped */ /* declaration of low_v6900 skipped */ (* (( (ptr) &var_c28008)+4)/* stream_v4460 */ ) = formal_c0552; (* (( (ptr) &var_c28008)+5)/* flushComments_v4516 */ ) = formal_c0553; /* GetCedarToken: */ SOURCE(4471, 7777) { word tmpAddr60; tmpAddr60 = (word) (( (ptr) &var_c28008)+10)/* var_c23464 */ ; (* (ptr) tmpAddr60 ) = ( ((word) (fPt) AcceptAngleComment_P1980) ); (* (( (ptr) tmpAddr60) + 1) ) = 1; }; { word tmpAddr61; tmpAddr61 = (word) (( (ptr) &var_c28008)+12)/* var_c23496 */ ; (* (ptr) tmpAddr61 ) = ( ((word) (fPt) AcceptHexTail_P1920) ); (* (( (ptr) tmpAddr61) + 1) ) = 1; }; { word tmpAddr62; tmpAddr62 = (word) (( (ptr) &var_c28008)+14)/* var_c23528 */ ; (* (ptr) tmpAddr62 ) = ( ((word) (fPt) AcceptExponent_P1860) ); (* (( (ptr) tmpAddr62) + 1) ) = 1; }; { word tmpAddr63; tmpAddr63 = (word) (( (ptr) &var_c28008)+16)/* var_c23560 */ ; (* (ptr) tmpAddr63 ) = ( ((word) (fPt) AcceptRealTail_P1800) ); (* (( (ptr) tmpAddr63) + 1) ) = 1; }; { word tmpAddr64; tmpAddr64 = (word) (( (ptr) &var_c28008)+18)/* var_c23592 */ ; (* (ptr) tmpAddr64 ) = ( ((word) (fPt) AcceptExtendedChar_P1740) ); (* (( (ptr) tmpAddr64) + 1) ) = 1; }; { word tmpAddr65; tmpAddr65 = (word) (( (ptr) &var_c28008)+20)/* var_c23624 */ ; (* (ptr) tmpAddr65 ) = ( ((word) (fPt) PutbackChar_P1680) ); (* (( (ptr) tmpAddr65) + 1) ) = 1; }; { word tmpAddr66; tmpAddr66 = (word) (( (ptr) &var_c28008)+22)/* var_c23656 */ ; (* (ptr) tmpAddr66 ) = ( ((word) (fPt) Get_P1560) ); (* (( (ptr) tmpAddr66) + 1) ) = 1; }; SOURCE(4471, 7777) (* (( (ptr) &var_c28008)+7)/* token_v4600 */ ) = 0; SOURCE(4652, 15) (* (( (ptr) &var_c28008)+24)/* char_v6872 */ ) = 0; SOURCE(4669, 14) (* (( (ptr) &var_c28008)+25)/* low_v6900 */ ) = 0; SOURCE(7374, 13) (* (( (ptr) &var_c28008)+9)/* error_v4656 */ ) = 0; SOURCE(7389, 14) (* (( (ptr) &var_c28008)+7)/* token_v4600 */ ) = buffer_v4488; SOURCE(7405, 16) (* (hPt) (* (( (ptr) &var_c28008)+7)/* token_v4600 */ ) ) = 0; SOURCE(7423, 16) (* (( (ptr) &var_c28008)+8)/* charsSkipped_v4628 */ ) = 0; SOURCE(7441, 4807) SOURCE(7443, 4348) lab_L100042: ; SOURCE(7446, 16) (* (hPt) (* (( (ptr) &var_c28008)+7)/* token_v4600 */ ) ) = 0; SOURCE(7464, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(7482, 15) goto lab_L100038; }; SOURCE(7499, 4292) { word var_c23688; var_c23688 = (* (( (ptr) &var_c28008)+25)/* low_v6900 */ ); if ((var_c23688 <= 32)) { SOURCE(7541, 31) (* (( (ptr) &var_c28008)+8)/* charsSkipped_v4628 */ ) = ((* (( (ptr) &var_c28008)+8)/* charsSkipped_v4628 */ ) + 1); goto endif067; }; if ((var_c23688 == 45)) { SOURCE(7583, 565) { word prev_v7516 = 13; SOURCE(7605, 24) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 9; SOURCE(7631, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(7649, 12) goto lab_L100032; }; SOURCE(7663, 18) if (((* (( (ptr) &var_c28008)+24)/* char_v6872 */ ) != 45)) { SOURCE(7681, 19) goto lab_L100033; }; SOURCE(7702, 25) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 11; SOURCE(7729, 408) if ((0 != (* (( (ptr) &var_c28008)+5)/* flushComments_v4516 */ ))) { SOURCE(7751, 232) SOURCE(7753, 31) (* (( (ptr) &var_c28008)+8)/* charsSkipped_v4628 */ ) = ((* (( (ptr) &var_c28008)+8)/* charsSkipped_v4628 */ ) + 2); SOURCE(7817, 138) lab_L100046: ; SOURCE(7820, 25) { word pd68; pd68 = (* (( (ptr) (* (( (ptr) gf_c28040)+61)/* var_c22984 */ ))+15) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd68 ))))((* ((( (ptr) &var_c28008)+4)/* stream_v4460 */ ) ), pd68))) { SOURCE(7845, 9) goto lab_L100043; }; }; SOURCE(7856, 73) { word var_c23752; { word var_c23720; SOURCE(4914, 25) { word pd69; pd69 = (* (( (ptr) (* (( (ptr) gf_c28040)+61)/* var_c22984 */ ))+11) ); (* (( (ptr) &var_c28008)+24)/* char_v6872 */ ) = (word) ( *( (fPt) ((* (ptr) pd69 ))))((* ((( (ptr) &var_c28008)+4)/* stream_v4460 */ ) ), pd69) ; }; SOURCE(4941, 31) (* (( (ptr) &var_c28008)+8)/* charsSkipped_v4628 */ ) = ((* (( (ptr) &var_c28008)+8)/* charsSkipped_v4628 */ ) + 1); SOURCE(4974, 13) var_c23720 = (* (( (ptr) &var_c28008)+24)/* char_v6872 */ ); var_c23752 = var_c23720; }; switch (var_c23752) { case 13: case 10: SOURCE(7899, 4) goto lab_L100045; case 45: SOURCE(7911, 18) if ((prev_v7516 == 45)) { SOURCE(7929, 4) goto lab_L100045; }; break; }; }; SOURCE(7944, 11) prev_v7516 = (* (( (ptr) &var_c28008)+24)/* char_v6872 */ ); goto lab_L100046; lab_L100045: ; goto lab_L100048; lab_L100043: ; lab_L100048: ; } else { SOURCE(7990, 147) lab_L100051: ; SOURCE(7993, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(8011, 12) goto lab_L100032; }; SOURCE(8025, 78) { word var_c23784; var_c23784 = (* (( (ptr) &var_c28008)+24)/* char_v6872 */ ); switch (var_c23784) { case 13: case 10: SOURCE(8058, 19) goto lab_L100033; case 45: SOURCE(8085, 18) if ((prev_v7516 == 45)) { SOURCE(8103, 12) goto lab_L100032; }; break; }; }; SOURCE(8126, 11) prev_v7516 = (* (( (ptr) &var_c28008)+24)/* char_v6872 */ ); goto lab_L100051; }; }; goto endif067; }; if (((var_c23688 - 97) <= 25)) { SOURCE(8170, 20) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 1; SOURCE(8192, 79) lab_L100054: ; SOURCE(8195, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(8213, 12) goto lab_L100032; }; SOURCE(8227, 44) { word var_c23816; var_c23816 = (* (( (ptr) &var_c28008)+25)/* low_v6900 */ ); if (((var_c23816 - 97) <= 25) || ((var_c23816 - 48) <= 9)) { } else { SOURCE(8288, 19) goto lab_L100033; }; }; goto lab_L100054; }; if (((var_c23688 - 48) <= 9)) { SOURCE(8338, 1052) SOURCE(8340, 25) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 2; SOURCE(8367, 64) lab_L100058: ; SOURCE(8370, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(8388, 12) goto lab_L100032; }; SOURCE(8402, 29) if ((((* (( (ptr) &var_c28008)+24)/* char_v6872 */ ) - 48) > 9)) { SOURCE(8431, 4) goto lab_L100057; }; goto lab_L100058; lab_L100057: ; SOURCE(8446, 808) { word var_c23848; var_c23848 = (* (( (ptr) &var_c28008)+25)/* low_v6900 */ ); switch (var_c23848) { case 46: SOURCE(8470, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(8488, 13) goto lab_L100055; }; SOURCE(8503, 145) if ((((* (( (ptr) &var_c28008)+24)/* char_v6872 */ ) - 48) <= 9)) { SOURCE(8540, 22) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 5; SOURCE(8564, 16) (void) AcceptRealTail_P1800((word) ((( (bPt) &var_c28008)+64)/* var_c23560 */ )); SOURCE(8583, 13) goto lab_L100032; } else { SOURCE(8635, 13) (void) PutbackChar_P1680((word) ((( (bPt) &var_c28008)+80)/* var_c23624 */ )); SOURCE(8651, 20) goto lab_L100033; }; case 97: case 102: SOURCE(8688, 24) if ((0 != (word) AcceptHexTail_P1920((word) ((( (bPt) &var_c28008)+48)/* var_c23496 */ )))) { SOURCE(8712, 18) goto lab_L100032; } else { SOURCE(8730, 13) goto lab_L100055; }; case 98: case 100: SOURCE(8760, 40) if (((* (( (ptr) &var_c28008)+25)/* low_v6900 */ ) == 98)) { SOURCE(8777, 23) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 3; }; SOURCE(8802, 24) if ((0 != (word) AcceptHexTail_P1920((word) ((( (bPt) &var_c28008)+48)/* var_c23496 */ )))) { SOURCE(8826, 12) goto lab_L100032; }; SOURCE(8840, 64) lab_L100061: ; SOURCE(8843, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(8861, 12) goto lab_L100032; }; SOURCE(8875, 29) if ((((* (( (ptr) &var_c28008)+24)/* char_v6872 */ ) - 48) > 9)) { SOURCE(8904, 4) goto lab_L100060; }; goto lab_L100061; lab_L100060: ; SOURCE(8919, 19) goto lab_L100033; case 99: SOURCE(8951, 50) if ((0 == (word) AcceptHexTail_P1920((word) ((( (bPt) &var_c28008)+48)/* var_c23496 */ )))) { SOURCE(8979, 22) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 7; }; SOURCE(9003, 12) goto lab_L100032; case 101: SOURCE(9028, 24) if ((0 != (word) AcceptHexTail_P1920((word) ((( (bPt) &var_c28008)+48)/* var_c23496 */ )))) { SOURCE(9052, 12) goto lab_L100032; }; SOURCE(9066, 49) if ((0 != (word) AcceptExponent_P1860((word) ((( (bPt) &var_c28008)+56)/* var_c23528 */ )))) { SOURCE(9093, 22) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 5; SOURCE(9117, 13) goto lab_L100032; } else { SOURCE(9137, 17) goto lab_L100039; }; case 104: SOURCE(9167, 21) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 4; SOURCE(9190, 64) lab_L100064: ; SOURCE(9193, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(9211, 12) goto lab_L100032; }; SOURCE(9225, 29) if ((((* (( (ptr) &var_c28008)+24)/* char_v6872 */ ) - 48) > 9)) { SOURCE(9254, 4) goto lab_L100063; }; goto lab_L100064; lab_L100063: ; SOURCE(9269, 19) goto lab_L100033; default: SOURCE(9304, 19) goto lab_L100033; }; }; /* c2c skipped dead code */ lab_L100055: ; SOURCE(9344, 23) (* (( (ptr) &var_c28008)+9)/* error_v4656 */ ) = 2; SOURCE(9370, 18) goto lab_L100039; }; if ((var_c23688 == 46)) { SOURCE(9401, 24) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 9; SOURCE(9427, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(9445, 12) goto lab_L100032; }; SOURCE(9459, 23) { word var_c23880; var_c23880 = (* (( (ptr) &var_c28008)+24)/* char_v6872 */ ); if ((var_c23880 == 46)) { SOURCE(9482, 18) goto lab_L100035; } else { if (((var_c23880 - 48) <= 9)) { } else { SOURCE(9552, 19) goto lab_L100033; }; }; }; SOURCE(9580, 22) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 5; SOURCE(9604, 16) (void) AcceptRealTail_P1800((word) ((( (bPt) &var_c28008)+64)/* var_c23560 */ )); SOURCE(9622, 12) goto lab_L100032; }; if (((((((((((((((((((((var_c23688 == 44) || (var_c23688 == 59)) || (var_c23688 == 58)) || (var_c23688 == 95)) || (var_c23688 == 35)) || (var_c23688 == 43)) || (var_c23688 == 47)) || (var_c23688 == 94)) || (var_c23688 == 64)) || (var_c23688 == 33)) || (var_c23688 == 40)) || (var_c23688 == 41)) || (var_c23688 == 91)) || (var_c23688 == 93)) || (var_c23688 == 123)) || (var_c23688 == 125)) || (var_c23688 == 124)) || (var_c23688 == 184)) || (var_c23688 == 180)) || (var_c23688 == 172)) || (var_c23688 == 173)) { SOURCE(9767, 18) goto lab_L100034; }; if ((var_c23688 == 42)) { SOURCE(9795, 24) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 9; SOURCE(9821, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(9839, 12) goto lab_L100032; }; SOURCE(9853, 23) { word var_c23912; var_c23912 = (* (( (ptr) &var_c28008)+24)/* char_v6872 */ ); if ((var_c23912 == 42)) { SOURCE(9876, 18) goto lab_L100035; } else { SOURCE(9907, 19) goto lab_L100033; }; }; }; if ((var_c23688 == 126)) { SOURCE(9939, 24) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 9; SOURCE(9965, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(9983, 12) goto lab_L100032; }; SOURCE(9997, 31) { word var_c23944; var_c23944 = (* (( (ptr) &var_c28008)+24)/* char_v6872 */ ); switch (var_c23944) { case 61: case 60: case 62: SOURCE(10028, 18) goto lab_L100035; default: SOURCE(10059, 19) goto lab_L100033; }; }; }; if ((var_c23688 == 39)) { SOURCE(10090, 302) SOURCE(10092, 22) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 7; SOURCE(10117, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(10135, 13) goto lab_L100066; }; SOURCE(10150, 57) { word var_c23976; var_c23976 = (* (( (ptr) &var_c28008)+24)/* char_v6872 */ ); if ((var_c23976 == 92)) { SOURCE(10174, 33) if ((0 == (word) AcceptExtendedChar_P1740((word) ((( (bPt) &var_c28008)+72)/* var_c23592 */ )))) { SOURCE(10207, 23) goto lab_L100039; } else { SOURCE(10230, 12) goto lab_L100032; }; } else { if ((((var_c23976 - 32) <= 94) || (var_c23976 == 172)) || (var_c23976 == 173)) { SOURCE(10289, 12) goto lab_L100032; } else { SOURCE(10314, 13) goto lab_L100066; }; }; }; /* c2c skipped dead code */ lab_L100066: ; SOURCE(10348, 20) (* (( (ptr) &var_c28008)+9)/* error_v4656 */ ) = 3; SOURCE(10371, 18) goto lab_L100039; }; if ((var_c23688 == 34)) { SOURCE(10402, 506) SOURCE(10404, 23) { word quoteSeen_v7560 = 0; SOURCE(10429, 22) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 6; SOURCE(10453, 293) lab_L100071: ; SOURCE(10456, 37) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(10475, 18) if ((0 != quoteSeen_v7560)) { SOURCE(10493, 18) goto lab_L100032; } else { SOURCE(10511, 13) goto lab_L100068; }; }; SOURCE(10527, 219) { word var_c24008; var_c24008 = (* (( (ptr) &var_c28008)+25)/* low_v6900 */ ); if ((var_c24008 == 34)) { SOURCE(10550, 25) quoteSeen_v7560 = (0 == quoteSeen_v7560); goto endif070; }; if ((var_c24008 == 92)) { SOURCE(10584, 61) if ((0 != quoteSeen_v7560)) { SOURCE(10602, 10) goto lab_L100070; } else { SOURCE(10612, 33) if ((0 == (word) AcceptExtendedChar_P1740((word) ((( (bPt) &var_c28008)+72)/* var_c23592 */ )))) { SOURCE(10645, 17) goto lab_L100039; }; }; goto endif070; }; if (((((((var_c24008 - 32) <= 94) || (var_c24008 == 10)) || (var_c24008 == 13)) || (var_c24008 == 9)) || (var_c24008 == 172)) || (var_c24008 == 173)) { SOURCE(10728, 18) if ((0 != quoteSeen_v7560)) { SOURCE(10746, 4) goto lab_L100070; }; goto endif070; }; SOURCE(10763, 13) goto lab_L100068; endif070: ; }; goto lab_L100071; lab_L100070: ; SOURCE(10787, 17) if (((* (( (ptr) &var_c28008)+25)/* low_v6900 */ ) == 108)) { SOURCE(10804, 18) goto lab_L100032; } else { SOURCE(10822, 19) goto lab_L100033; }; }; /* c2c skipped dead code */ lab_L100068: ; SOURCE(10862, 22) (* (( (ptr) &var_c28008)+9)/* error_v4656 */ ) = 4; SOURCE(10887, 18) goto lab_L100039; }; if ((var_c23688 == 36) || (var_c23688 == 164)) { SOURCE(10937, 22) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 8; SOURCE(10961, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(10979, 13) goto lab_L100036; }; SOURCE(10994, 31) { word var_c24040; var_c24040 = (* (( (ptr) &var_c28008)+25)/* low_v6900 */ ); if (((var_c24040 - 97) <= 25)) { } else { SOURCE(11040, 13) goto lab_L100036; }; }; SOURCE(11056, 79) lab_L100075: ; SOURCE(11059, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(11077, 12) goto lab_L100032; }; SOURCE(11091, 44) { word var_c24072; var_c24072 = (* (( (ptr) &var_c28008)+25)/* low_v6900 */ ); if (((var_c24072 - 97) <= 25) || ((var_c24072 - 48) <= 9)) { } else { SOURCE(11152, 19) goto lab_L100033; }; }; goto lab_L100075; }; if ((var_c23688 == 61)) { SOURCE(11193, 24) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 9; SOURCE(11219, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(11237, 12) goto lab_L100032; }; SOURCE(11251, 22) { word var_c24104; var_c24104 = (* (( (ptr) &var_c28008)+25)/* low_v6900 */ ); if ((var_c24104 == 62)) { SOURCE(11273, 18) goto lab_L100035; } else { SOURCE(11304, 19) goto lab_L100033; }; }; }; if ((var_c23688 == 62)) { SOURCE(11336, 24) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 9; SOURCE(11362, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(11380, 12) goto lab_L100032; }; SOURCE(11394, 22) { word var_c24136; var_c24136 = (* (( (ptr) &var_c28008)+25)/* low_v6900 */ ); if ((var_c24136 == 61)) { SOURCE(11416, 18) goto lab_L100035; } else { SOURCE(11447, 19) goto lab_L100033; }; }; }; if ((var_c23688 == 60)) { SOURCE(11479, 24) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 9; SOURCE(11505, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) &var_c28008)+88)/* var_c23656 */ )))) { SOURCE(11523, 12) goto lab_L100032; }; SOURCE(11537, 87) { word var_c24168; var_c24168 = (* (( (ptr) &var_c28008)+25)/* low_v6900 */ ); if ((var_c24168 == 61)) { SOURCE(11559, 18) goto lab_L100035; } else { if ((var_c24168 == 60)) { SOURCE(11585, 39) { word var_c03; { word var_c0509; var_c0509 = (word) &var_c28008; var_c03 = (word) XR_Enable(( ((word) (fPt) NoName_Q4260) ), ( ((word) (fPt) NoName_Q5460) ), var_c0509); }; if ((var_c03 == 4)) { goto lab_L100037; }; }; } else { SOURCE(11656, 19) goto lab_L100033; }; }; }; goto endif067; }; if ((var_c23688 == 171)) { SOURCE(11699, 39) { word var_c04; { word var_c0510; var_c0510 = (word) &var_c28008; var_c04 = (word) XR_Enable(( ((word) (fPt) NoName_Q4200) ), ( ((word) (fPt) NoName_Q5400) ), var_c0510); }; if ((var_c04 == 4)) { goto lab_L100037; }; }; goto endif067; }; SOURCE(11772, 19) (* (( (ptr) &var_c28008)+9)/* error_v4656 */ ) = 6; SOURCE(11793, 18) goto lab_L100039; endif067: ; }; goto lab_L100042; /* c2c skipped dead code */ lab_L100032: ; SOURCE(11842, 7) goto lab_L100031; /* c2c skipped dead code */ lab_L100033: ; SOURCE(11871, 13) (void) PutbackChar_P1680((word) ((( (bPt) &var_c28008)+80)/* var_c23624 */ )); SOURCE(11886, 7) goto lab_L100031; /* c2c skipped dead code */ lab_L100034: ; SOURCE(11914, 24) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 9; SOURCE(11940, 7) goto lab_L100031; /* c2c skipped dead code */ lab_L100035: ; SOURCE(11968, 24) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 10; SOURCE(11994, 7) goto lab_L100031; /* c2c skipped dead code */ lab_L100036: ; SOURCE(12017, 23) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 0; SOURCE(12042, 19) (* (( (ptr) &var_c28008)+9)/* error_v4656 */ ) = 5; SOURCE(12063, 7) goto lab_L100031; /* c2c skipped dead code */ lab_L100037: ; SOURCE(12091, 23) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 0; SOURCE(12116, 18) (* (( (ptr) &var_c28008)+9)/* error_v4656 */ ) = 6; SOURCE(12136, 7) goto lab_L100031; /* c2c skipped dead code */ lab_L100038: ; SOURCE(12161, 21) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 12; SOURCE(12185, 7) goto lab_L100031; /* c2c skipped dead code */ lab_L100039: ; SOURCE(12212, 23) (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ) = 0; SOURCE(12238, 7) goto lab_L100031; lab_L100031: ; (* (ptr) formal_c0136 ) = (* (( (ptr) &var_c28008)+6)/* tokenKind_v4572 */ ); (* (( (ptr) formal_c0136)+1) ) = (* (( (ptr) &var_c28008)+7)/* token_v4600 */ ); (* (( (ptr) formal_c0136)+2) ) = (* (( (ptr) &var_c28008)+8)/* charsSkipped_v4628 */ ); (* (( (ptr) formal_c0136)+3) ) = (* (( (ptr) &var_c28008)+9)/* error_v4656 */ ); return; } static word NoName_Q4200(formal_c0455) word formal_c0455; { SOURCE(11699, 39) (void) AcceptAngleComment_P1980((word) ((( (bPt) formal_c0455)+40))); return(0); } static word NoName_Q4260(formal_c0456) word formal_c0456; { SOURCE(11585, 39) (void) AcceptAngleComment_P1980((word) ((( (bPt) formal_c0456)+40))); return(0); } static word Get_P1560(formal_c28104) word formal_c28104; { register ptr gf_c28072 = (ptr) &globalframe; word eof_v7200; formal_c28104 = (formal_c28104 - 88); /* Get: */ SOURCE(4685, 179) SOURCE(4685, 179) eof_v7200 = 0; SOURCE(4727, 38) { word pd71; pd71 = (* (( (ptr) (* (( (ptr) gf_c28072)+61)/* var_c22984 */ ))+15) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd71 ))))((* ((( (ptr) formal_c28104)+4)) ), pd71))) { SOURCE(4752, 13) return(1); }; }; SOURCE(4767, 25) { word pd72; pd72 = (* (( (ptr) (* (( (ptr) gf_c28072)+61)/* var_c22984 */ ))+11) ); (* (( (ptr) formal_c28104)+24) ) = (word) ( *( (fPt) ((* (ptr) pd72 ))))((* ((( (ptr) formal_c28104)+4)) ), pd72); }; SOURCE(4794, 45) { word var_c24200; word to_v22048; word from_v22076; to_v22048 = (* (( (ptr) formal_c28104)+7) ); from_v22076 = (* (( (ptr) formal_c28104)+24) ); if (((* (hPt) to_v22048 ) >= (* (( (hPt) to_v22048)+1) ))) { { word pd73; pd73 = (* (( (ptr) (* (( (ptr) gf_c28072)+62)/* var_c23112 */ ))+11) ); var_c24200 = (word) ( *( (fPt) ((* (ptr) pd73 ))))(to_v22048, from_v22076, pd73); }; goto lab_L100081; }; { word idx74; word limit75; (* ((( (bPt) to_v22048)+4)+( idx74 = (word) (* (hPt) to_v22048 ), limit75 = (word) (* (( (hPt) to_v22048)+1) ), BCK(idx74, limit75) )) ) = from_v22076; }; { word idx76; (* (hPt) to_v22048 ) = ( idx76 = (word) ((* (hPt) to_v22048 ) + 1), BCK(idx76, 32768) ); }; var_c24200 = to_v22048; lab_L100081: ; (* (( (ptr) formal_c28104)+7) ) = var_c24200; }; SOURCE(4841, 23) if ((((* (( (ptr) formal_c28104)+24) ) - 65) <= 25)) { (* (( (ptr) formal_c28104)+25) ) = ((* (( (ptr) formal_c28104)+24) ) + 32); } else { (* (( (ptr) formal_c28104)+25) ) = (* (( (ptr) formal_c28104)+24) ); }; SOURCE(4685, 179) return(eof_v7200); } static void PutbackChar_P1680(formal_c28136) word formal_c28136; { formal_c28136 = (formal_c28136 - 80); /* PutbackChar: */ SOURCE(4992, 95) SOURCE(5014, 73) { word var_c24296; word var_c0511; { word idx77; var_c24296 = ( idx77 = (word) ((* (hPt) (* (( (ptr) formal_c28136)+7) ) ) - 1), BCK(idx77, 32768) ); }; (* (hPt) (* (( (ptr) formal_c28136)+7) ) ) = var_c24296; { word limit78; var_c0511 = (word) (* ((( (bPt) (* (( (ptr) formal_c28136)+7) ))+4)+( limit78 = (word) (* (( (hPt) (* (( (ptr) formal_c28136)+7) ))+1) ), BCK(var_c24296, limit78) )) ); }; { word pd79; pd79 = (* (( (ptr) (* (ptr) (* (( (ptr) formal_c28136)+4) ) ))+5) ); (void) ( *( (fPt) ((* (ptr) pd79 ))))((* (( (ptr) formal_c28136)+4) ), var_c0511, pd79); }; }; } static word AcceptExtendedChar_P1740(formal_c28168) word formal_c28168; { word success_v7336; formal_c28168 = (formal_c28168 - 72); /* AcceptExtendedChar: */ SOURCE(5093, 369) SOURCE(5093, 369) success_v7336 = 0; SOURCE(5152, 310) SOURCE(5154, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) formal_c28168)+88))))) { SOURCE(5172, 13) goto lab_L100082; }; SOURCE(5187, 204) { word var_c24328; var_c24328 = (* (( (ptr) formal_c28168)+25) ); if (((((((((var_c24328 == 110) || (var_c24328 == 114)) || (var_c24328 == 116)) || (var_c24328 == 98)) || (var_c24328 == 102)) || (var_c24328 == 108)) || (var_c24328 == 39)) || (var_c24328 == 34)) || (var_c24328 == 92)) { SOURCE(5244, 12) return(1); } else { if (((var_c24328 - 48) <= 9)) { SOURCE(5275, 80) { register word noName_c24360 = 1; if ((noName_c24360 > 2)) { goto lab_L100083; }; lab_L100086: ; SOURCE(5293, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) formal_c28168)+88))))) { SOURCE(5311, 13) goto lab_L100082; }; SOURCE(5326, 29) if ((((* (( (ptr) formal_c28168)+24) ) - 48) > 9)) { SOURCE(5355, 13) goto lab_L100082; }; if ((noName_c24360 >= 2)) { goto lab_L100083; }; noName_c24360 = (noName_c24360 + 1); goto lab_L100086; lab_L100083: ; }; SOURCE(5379, 12) return(1); }; }; }; goto lab_L100087; lab_L100082: ; SOURCE(5423, 21) (* (( (ptr) formal_c28168)+9) ) = 1; SOURCE(5446, 14) return(0); lab_L100087: ; SOURCE(5093, 369) return(success_v7336); } static void AcceptRealTail_P1800(formal_c28200) word formal_c28200; { formal_c28200 = (formal_c28200 - 64); /* AcceptRealTail: */ SOURCE(5465, 211) SOURCE(5491, 185) SOURCE(5493, 148) lab_L100091: ; SOURCE(5496, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) formal_c28200)+88))))) { SOURCE(5514, 12) goto lab_L100088; }; SOURCE(5528, 113) { word var_c24392; var_c24392 = (* (( (ptr) formal_c28200)+25) ); if (((var_c24392 - 48) <= 9)) { } else { if ((var_c24392 == 101)) { SOURCE(5573, 21) { word var_c24424; var_c24424 = (word) AcceptExponent_P1860((word) ((( (bPt) formal_c28200)+56))); }; SOURCE(5596, 7) return; } else { SOURCE(5619, 13) (void) PutbackChar_P1680((word) ((( (bPt) formal_c28200)+80))); SOURCE(5634, 7) return; }; }; }; goto lab_L100091; /* c2c skipped dead code */ lab_L100088: ; SOURCE(5669, 7) return; } static word AcceptExponent_P1860(formal_c28232) word formal_c28232; { word success_v7412; formal_c28232 = (formal_c28232 - 56); /* AcceptExponent: */ SOURCE(5679, 398) SOURCE(5726, 351) SOURCE(5728, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) formal_c28232)+88))))) { SOURCE(5746, 13) goto lab_L100094; }; SOURCE(5761, 44) { word var_c24456; var_c24456 = (* (( (ptr) formal_c28232)+25) ); if ((var_c24456 == 45) || (var_c24456 == 43)) { SOURCE(5787, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) formal_c28232)+88))))) { SOURCE(5805, 13) goto lab_L100094; }; } else { }; }; SOURCE(5837, 29) if ((((* (( (ptr) formal_c28232)+24) ) - 48) > 9)) { SOURCE(5866, 13) goto lab_L100094; }; SOURCE(5881, 80) lab_L100097: ; SOURCE(5884, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) formal_c28232)+88))))) { SOURCE(5902, 13) goto lab_L100093; }; SOURCE(5917, 44) if ((((* (( (ptr) formal_c28232)+24) ) - 48) > 9)) { SOURCE(5948, 13) (void) PutbackChar_P1680((word) ((( (bPt) formal_c28232)+80))); SOURCE(5963, 14) goto lab_L100093; }; goto lab_L100097; /* c2c skipped dead code */ lab_L100093: ; SOURCE(6005, 13) return(1); /* c2c skipped dead code */ lab_L100094: ; SOURCE(6033, 23) (* (( (ptr) formal_c28232)+9) ) = 2; SOURCE(6059, 15) return(0); } static word AcceptHexTail_P1920(formal_c28264) word formal_c28264; { word success_v7472; word length_v7604; formal_c28264 = (formal_c28264 - 48); /* AcceptHexTail: */ SOURCE(6080, 566) SOURCE(6131, 26) length_v7604 = (* (hPt) (* (( (ptr) formal_c28264)+7) ) ); SOURCE(6159, 487) SOURCE(6161, 77) lab_L100104: ; SOURCE(6164, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) formal_c28264)+88))))) { SOURCE(6182, 10) goto lab_L100101; }; SOURCE(6194, 44) { word var_c24488; var_c24488 = (* (( (ptr) formal_c28264)+25) ); if (((var_c24488 - 48) <= 9) || ((var_c24488 - 97) <= 5)) { } else { if ((var_c24488 == 104)) { SOURCE(6250, 4) goto lab_L100103; } else { SOURCE(6267, 10) goto lab_L100101; }; }; }; goto lab_L100104; lab_L100103: ; SOURCE(6288, 64) lab_L100107: ; SOURCE(6291, 18) if ((0 != (word) Get_P1560((word) ((( (bPt) formal_c28264)+88))))) { SOURCE(6309, 12) goto lab_L100099; }; SOURCE(6323, 29) if ((((* (( (ptr) formal_c28264)+24) ) - 48) > 9)) { SOURCE(6352, 4) goto lab_L100106; }; goto lab_L100107; lab_L100106: ; SOURCE(6367, 19) goto lab_L100100; /* c2c skipped dead code */ lab_L100099: ; SOURCE(6406, 21) (* (( (ptr) formal_c28264)+6) ) = 4; SOURCE(6429, 14) return(1); /* c2c skipped dead code */ lab_L100100: ; SOURCE(6465, 13) (void) PutbackChar_P1680((word) ((( (bPt) formal_c28264)+80))); SOURCE(6480, 21) (* (( (ptr) formal_c28264)+6) ) = 4; SOURCE(6503, 14) return(1); /* c2c skipped dead code */ lab_L100101: ; SOURCE(6530, 74) { register word i_v7648; i_v7648 = (* (hPt) (* (( (ptr) formal_c28264)+7) ) ); if ((length_v7604 >= i_v7648)) { goto lab_L100109; }; i_v7648 = (i_v7648 - 1); lab_L100112: ; SOURCE(6583, 21) (void) PutbackChar_P1680((word) ((( (bPt) formal_c28264)+80))); if ((length_v7604 >= i_v7648)) { goto lab_L100109; }; i_v7648 = (i_v7648 - 1); goto lab_L100112; lab_L100109: ; }; SOURCE(6606, 21) (* (hPt) (* (( (ptr) formal_c28264)+7) ) ) = BCK(length_v7604, 32768); SOURCE(6629, 15) return(0); } static void AcceptAngleComment_P1980(formal_c28328) word formal_c28328; { register ptr gf_c28296 = (ptr) &globalframe; word state_v7692 = 0; word nest_v7720 = 1; formal_c28328 = (formal_c28328 - 40); /* AcceptAngleComment: */ SOURCE(6651, 708) SOURCE(6751, 25) (* (( (ptr) formal_c28328)+6) ) = 11; SOURCE(6778, 581) lab_L100115: ; SOURCE(6781, 46) if ((0 != (word) Get_P1560((word) ((( (bPt) formal_c28328)+88))))) { SOURCE(6799, 28) { word var_c0155; var_c0155 = (* (( (ptr) formal_c28328)+4) ); (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28296)+61)/* var_c22984 */ ))+4) ), (word) &var_c0155); }; }; SOURCE(6829, 72) if ((0 != (* (( (ptr) formal_c28328)+5) ))) { SOURCE(6852, 31) (* (( (ptr) formal_c28328)+8) ) = ((* (( (ptr) formal_c28328)+8) ) + 1); SOURCE(6885, 16) (* (hPt) (* (( (ptr) formal_c28328)+7) ) ) = 0; }; SOURCE(6904, 455) { word var_c24520; var_c24520 = (* (( (ptr) formal_c28328)+24) ); switch (var_c24520) { case 62: SOURCE(6927, 136) { word var_c24552; var_c24552 = state_v7692; switch (var_c24552) { case 0: case 1: SOURCE(6967, 20) state_v7692 = 2; break; case 2: SOURCE(7005, 58) if ((nest_v7720 == 1)) { SOURCE(7022, 10) goto lab_L100114; } else { SOURCE(7033, 13) state_v7692 = 0; SOURCE(7048, 15) nest_v7720 = (nest_v7720 - 1); }; break; }; }; break; case 60: SOURCE(7081, 108) { word var_c24584; var_c24584 = state_v7692; switch (var_c24584) { case 0: case 2: SOURCE(7122, 19) state_v7692 = 1; break; case 1: SOURCE(7159, 13) state_v7692 = 0; SOURCE(7174, 15) nest_v7720 = (nest_v7720 + 1); break; }; }; break; case 171: SOURCE(7221, 13) state_v7692 = 0; SOURCE(7236, 15) nest_v7720 = (nest_v7720 + 1); break; case 187: SOURCE(7274, 58) if ((nest_v7720 == 1)) { SOURCE(7291, 10) goto lab_L100114; } else { SOURCE(7302, 13) state_v7692 = 0; SOURCE(7317, 15) nest_v7720 = (nest_v7720 - 1); }; break; default: SOURCE(7346, 13) state_v7692 = 0; break; }; }; goto lab_L100115; lab_L100114: ; } static void GetCedarTokenRope_P540(formal_c0165, formal_c0554, formal_c0555) word formal_c0165; word formal_c0554; word formal_c0555; { W10 var_c28360; /* declaration of stream_v4728 skipped */ /* declaration of flushComments_v4756 skipped */ register ptr gf_c28392 = (ptr) &globalframe; /* declaration of tokenKind_v4800 skipped */ /* declaration of token_v4828 skipped */ /* declaration of charsSkipped_v4856 skipped */ /* declaration of buffer_v7864 skipped */ (* (( (ptr) &var_c28360)+4)/* stream_v4728 */ ) = formal_c0554; (* (( (ptr) &var_c28360)+5)/* flushComments_v4756 */ ) = formal_c0555; /* GetCedarTokenRope: */ SOURCE(12255, 609) SOURCE(12255, 609) (* (( (ptr) &var_c28360)+7)/* token_v4828 */ ) = 0; SOURCE(12392, 45) { word pd80; pd80 = (* (( (ptr) (* (( (ptr) gf_c28392)+62)/* var_c23112 */ ))+6) ); (* (( (ptr) &var_c28360)+9)/* buffer_v7864 */ ) = (word) ( *( (fPt) ((* (ptr) pd80 ))))(100, pd80); }; SOURCE(12441, 347) { word var_c0512; var_c0512 = (word) &var_c28360; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q4320) ), ( ((word) (fPt) NoName_Q5340) ), var_c0512); }; SOURCE(12793, 30) { word pd81; pd81 = (* (( (ptr) (* (( (ptr) gf_c28392)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd81 ))))((* ((( (ptr) &var_c28360)+9)/* buffer_v7864 */ ) ), pd81); }; SOURCE(12825, 39) /* removed bogus assignment */ /* removed bogus assignment */ /* removed bogus assignment */ /* removed tail goto */ (* (ptr) formal_c0165 ) = (* (( (ptr) &var_c28360)+6)/* tokenKind_v4800 */ ); (* (( (ptr) formal_c0165)+1) ) = (* (( (ptr) &var_c28360)+7)/* token_v4828 */ ); (* (( (ptr) formal_c0165)+2) ) = (* (( (ptr) &var_c28360)+8)/* charsSkipped_v4856 */ ); return; } static word NoName_Q4320(formal_c0468) word formal_c0468; { register ptr gf_c0467 = (ptr) &globalframe; SOURCE(12490, 19) { word tokenText_v7920 = 0; SOURCE(12511, 115) { W4 var_c24616; (void) GetCedarToken_P480((word) &var_c24616, (* (( (ptr) formal_c0468)+4) ), (* (( (ptr) formal_c0468)+9) ), (* (( (ptr) formal_c0468)+5) )); (* (( (ptr) formal_c0468)+8) ) = var_c24616.f2; tokenText_v7920 = var_c24616.f1; (* (( (ptr) formal_c0468)+6) ) = var_c24616.f0; }; SOURCE(12628, 114) { word var_c24648; var_c24648 = (* (( (ptr) formal_c0468)+6) ); if ((var_c24648 == 12)) { SOURCE(12662, 28) { word var_c0170; var_c0170 = (* (( (ptr) formal_c0468)+4) ); (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0467)+61)/* var_c22984 */ ))+4) ), (word) &var_c0170); }; } else { if ((var_c24648 == 0)) { SOURCE(12706, 36) { W4 var_c0171; (* (ptr) (word) &var_c0171 ) = 7; (* (( (ptr) (word) &var_c0171) + 1) ) = (* (( (ptr) formal_c0468)+4) ); (* (( (ptr) (word) &var_c0171) + 2) ) = 0; (* (( (ptr) (word) &var_c0171) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0467)+61)/* var_c22984 */ ))+5) ), (word) &var_c0171); }; }; }; }; SOURCE(12753, 35) { word pd82; pd82 = (* (( (ptr) (* (( (ptr) gf_c0467)+63)/* var_c23176 */ ))+35) ); (* (( (ptr) formal_c0468)+7) ) = (word) ( *( (fPt) ((* (ptr) pd82 ))))(tokenText_v7920, 0, 32767, pd82); }; }; return(0); } static word GetInt_P600(stream_v4916) word stream_v4916; { register ptr gf_c28424 = (ptr) &globalframe; word var_c4960; word card_v8004; word negative_v8032; /* GetInt: */ SOURCE(12869, 312) SOURCE(12996, 42) { W2 var_c24680; (void) GetNumber_P720((word) &var_c24680, stream_v4916, 1); negative_v8032 = var_c24680.f1; card_v8004 = var_c24680.f0; }; SOURCE(13040, 105) if ((0 != negative_v8032)) { SOURCE(13059, 40) if ((card_v8004 <= 2147483648)) { SOURCE(13085, 14) return(INEG(card_v8004)); }; } else { SOURCE(13108, 37) if ((card_v8004 <= 2147483647)) { SOURCE(13132, 13) return(SGNCK(card_v8004)); }; }; SOURCE(13148, 33) { W4 var_c0178; (* (ptr) (word) &var_c0178 ) = 8; (* (( (ptr) (word) &var_c0178) + 1) ) = stream_v4916; (* (( (ptr) (word) &var_c0178) + 2) ) = 0; (* (( (ptr) (word) &var_c0178) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28424)+61)/* var_c22984 */ ))+5) ), (word) &var_c0178); }; } static word GetCard_P660(stream_v5020) word stream_v5020; { word var_c5064; /* GetCard: */ SOURCE(13187, 103) SOURCE(13253, 37) { word var_c0513; W2 var_c0181; (void) GetNumber_P720((word) &var_c0181, stream_v5020, 0); var_c0513 = var_c0181.f0; return(var_c0513); }; } static void GetNumber_P720(formal_c0193, formal_c0556, formal_c0557) word formal_c0193; word formal_c0556; word formal_c0557; { W12 var_c28456; /* declaration of stream_v5124 skipped */ /* declaration of negativeOK_v5152 skipped */ register ptr gf_c28488 = (ptr) &globalframe; /* declaration of card_v5196 skipped */ /* declaration of negative_v5224 skipped */ /* declaration of tokenKind_v8076 skipped */ /* declaration of token_v8104 skipped */ /* declaration of signSeen_v8132 skipped */ /* declaration of buffer_v8160 skipped */ (* (( (ptr) &var_c28456)+4)/* stream_v5124 */ ) = formal_c0556; (* (( (ptr) &var_c28456)+5)/* negativeOK_v5152 */ ) = formal_c0557; /* GetNumber: */ SOURCE(13296, 1326) SOURCE(13296, 1326) (* (( (ptr) &var_c28456)+6)/* card_v5196 */ ) = 0; SOURCE(13296, 1326) (* (( (ptr) &var_c28456)+7)/* negative_v5224 */ ) = 0; SOURCE(13439, 15) (* (( (ptr) &var_c28456)+9)/* token_v8104 */ ) = 0; SOURCE(13456, 22) (* (( (ptr) &var_c28456)+10)/* signSeen_v8132 */ ) = 0; SOURCE(13480, 45) { word pd83; pd83 = (* (( (ptr) (* (( (ptr) gf_c28488)+62)/* var_c23112 */ ))+6) ); (* (( (ptr) &var_c28456)+11)/* buffer_v8160 */ ) = (word) ( *( (fPt) ((* (ptr) pd83 ))))(100, pd83); }; SOURCE(13527, 16) (* (( (ptr) &var_c28456)+7)/* negative_v5224 */ ) = 0; SOURCE(13545, 1077) SOURCE(13547, 814) { word var_c05; { word var_c0514; var_c0514 = (word) &var_c28456; var_c05 = (word) XR_Enable(( ((word) (fPt) NoName_Q4380) ), ( ((word) (fPt) NoName_Q5280) ), var_c0514); }; switch (var_c05) { case 7: goto lab_L100122; case 6: goto lab_L100120; case 5: goto lab_L100121; }; }; goto lab_L100131; lab_L100120: ; SOURCE(14386, 30) { word pd84; pd84 = (* (( (ptr) (* (( (ptr) gf_c28488)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd84 ))))((* ((( (ptr) &var_c28456)+11)/* buffer_v8160 */ ) ), pd84); }; SOURCE(14418, 29) { word var_c0190; var_c0190 = (* (( (ptr) &var_c28456)+4)/* stream_v5124 */ ); (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28488)+61)/* var_c22984 */ ))+4) ), (word) &var_c0190); }; /* removed dead code */ lab_L100121: ; SOURCE(14467, 30) { word pd85; pd85 = (* (( (ptr) (* (( (ptr) gf_c28488)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd85 ))))((* ((( (ptr) &var_c28456)+11)/* buffer_v8160 */ ) ), pd85); }; SOURCE(14499, 37) { W4 var_c0191; (* (ptr) (word) &var_c0191 ) = 7; (* (( (ptr) (word) &var_c0191) + 1) ) = (* (( (ptr) &var_c28456)+4)/* stream_v5124 */ ); (* (( (ptr) (word) &var_c0191) + 2) ) = 0; (* (( (ptr) (word) &var_c0191) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28488)+61)/* var_c22984 */ ))+5) ), (word) &var_c0191); }; /* removed dead code */ lab_L100122: ; SOURCE(14553, 30) { word pd86; pd86 = (* (( (ptr) (* (( (ptr) gf_c28488)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd86 ))))((* ((( (ptr) &var_c28456)+11)/* buffer_v8160 */ ) ), pd86); }; SOURCE(14585, 34) { W4 var_c0192; (* (ptr) (word) &var_c0192 ) = 8; (* (( (ptr) (word) &var_c0192) + 1) ) = (* (( (ptr) &var_c28456)+4)/* stream_v5124 */ ); (* (( (ptr) (word) &var_c0192) + 2) ) = 0; (* (( (ptr) (word) &var_c0192) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28488)+61)/* var_c22984 */ ))+5) ), (word) &var_c0192); }; lab_L100131: ; /* removed tail goto */ (* (ptr) formal_c0193 ) = (* (( (ptr) &var_c28456)+6)/* card_v5196 */ ); (* (( (ptr) formal_c0193)+1) ) = (* (( (ptr) &var_c28456)+7)/* negative_v5224 */ ); return; } static word NoName_Q4380(formal_c0472) word formal_c0472; { register ptr gf_c0471 = (ptr) &globalframe; SOURCE(13614, 636) lab_L100127: ; SOURCE(13643, 74) { W4 var_c24776; (void) GetCedarToken_P480((word) &var_c24776, (* (( (ptr) formal_c0472)+4) ), (* (( (ptr) formal_c0472)+11) ), 1); (* (( (ptr) formal_c0472)+9) ) = var_c24776.f1; (* (( (ptr) formal_c0472)+8) ) = var_c24776.f0; }; SOURCE(13719, 531) { word var_c24808; var_c24808 = (* (( (ptr) formal_c0472)+8) ); switch (var_c24808) { case 2: SOURCE(13759, 69) { word var_c24840; { word text_v22000; text_v22000 = (* (( (ptr) formal_c0472)+9) ); var_c24840 = text_v22000; }; { word pd87; pd87 = (* (( (ptr) (* (( (ptr) gf_c0471)+64)/* var_c24744 */ ))+19) ); (* (( (ptr) formal_c0472)+6) ) = (word) ( *( (fPt) ((* (ptr) pd87 ))))(var_c24840, 0, pd87); }; }; SOURCE(13830, 5) goto lab_L100126; case 3: SOURCE(13854, 67) { word var_c24904; { word text_v21952; text_v21952 = (* (( (ptr) formal_c0472)+9) ); var_c24904 = text_v21952; }; { word pd88; pd88 = (* (( (ptr) (* (( (ptr) gf_c0471)+64)/* var_c24744 */ ))+20) ); (* (( (ptr) formal_c0472)+6) ) = (word) ( *( (fPt) ((* (ptr) pd88 ))))(var_c24904, 0, pd88); }; }; SOURCE(13923, 5) goto lab_L100126; case 4: SOURCE(13945, 65) { word var_c24968; { word text_v21904; text_v21904 = (* (( (ptr) formal_c0472)+9) ); var_c24968 = text_v21904; }; { word pd89; pd89 = (* (( (ptr) (* (( (ptr) gf_c0471)+64)/* var_c24744 */ ))+21) ); (* (( (ptr) formal_c0472)+6) ) = (word) ( *( (fPt) ((* (ptr) pd89 ))))(var_c24968, 0, pd89); }; }; SOURCE(14012, 5) goto lab_L100126; case 9: SOURCE(14037, 17) if ((0 != (* (( (ptr) formal_c0472)+10) ))) { SOURCE(14054, 17) return(5); }; SOURCE(14073, 15) (* (( (ptr) formal_c0472)+10) ) = 1; SOURCE(14090, 67) { word var_c25032; { word limit90; var_c25032 = (word) (* ((( (bPt) (* (( (ptr) formal_c0472)+9) ))+4)+( limit90 = (word) (* (( (hPt) (* (( (ptr) formal_c0472)+9) ))+1) ), BCK(0, limit90) )) ); }; if ((var_c25032 == 45)) { SOURCE(14117, 40) if ((0 != (* (( (ptr) formal_c0472)+5) ))) { SOURCE(14136, 21) (* (( (ptr) formal_c0472)+7) ) = 1; } else { SOURCE(14157, 17) return(5); }; } else { if ((var_c25032 == 43)) { } else { SOURCE(14199, 17) return(5); }; }; }; break; case 12: SOURCE(14233, 17) if ((0 != (* (( (ptr) formal_c0472)+10) ))) { SOURCE(14250, 23) return(5); } else { SOURCE(14273, 17) return(6); }; default: SOURCE(14303, 17) return(5); }; }; goto lab_L100127; lab_L100126: ; SOURCE(14331, 30) { word pd91; pd91 = (* (( (ptr) (* (( (ptr) gf_c0471)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd91 ))))((* ((( (ptr) formal_c0472)+11)) ), pd91); }; return(0); } static word GetReal_P780(stream_v5284) word stream_v5284; { register ptr gf_c28520 = (ptr) &globalframe; word var_c5328; word tokenKind_v8228; word token_v8256 = 0; word signSeen_v8284 = 0; word negative_v8312 = 0; word real_v8340; word buffer_v8368; /* GetReal: */ SOURCE(14629, 1205) SOURCE(14772, 45) { word pd92; pd92 = (* (( (ptr) (* (( (ptr) gf_c28520)+62)/* var_c23112 */ ))+6) ); buffer_v8368 = (word) ( *( (fPt) ((* (ptr) pd92 ))))(100, pd92); }; SOURCE(14819, 1015) SOURCE(14821, 681) lab_L100136: ; SOURCE(14850, 74) { W4 var_c25064; (void) GetCedarToken_P480((word) &var_c25064, stream_v5284, buffer_v8368, 1); token_v8256 = var_c25064.f1; tokenKind_v8228 = var_c25064.f0; }; SOURCE(14926, 576) { word var_c25096; var_c25096 = tokenKind_v8228; switch (var_c25096) { case 2: SOURCE(14966, 69) { word var_c25128; { word text_v21856; text_v21856 = token_v8256; var_c25128 = text_v21856; }; { word pd93; float tf94; pd93 = (* (( (ptr) (* (( (ptr) gf_c28520)+64)/* var_c24744 */ ))+19) ); real_v8340 = ( tf94 = (float)(unsigned)(word) ( *( (fPt) ((* (ptr) pd93 ))))(var_c25128, 0, pd93), *(word*)&tf94 ); }; }; SOURCE(15037, 5) goto lab_L100135; case 3: SOURCE(15061, 67) { word var_c25192; { word text_v21808; text_v21808 = token_v8256; var_c25192 = text_v21808; }; { word pd95; float tf96; pd95 = (* (( (ptr) (* (( (ptr) gf_c28520)+64)/* var_c24744 */ ))+20) ); real_v8340 = ( tf96 = (float)(unsigned)(word) ( *( (fPt) ((* (ptr) pd95 ))))(var_c25192, 0, pd95), *(word*)&tf96 ); }; }; SOURCE(15130, 5) goto lab_L100135; case 4: SOURCE(15152, 65) { word var_c25256; { word text_v21760; text_v21760 = token_v8256; var_c25256 = text_v21760; }; { word pd97; float tf98; pd97 = (* (( (ptr) (* (( (ptr) gf_c28520)+64)/* var_c24744 */ ))+21) ); real_v8340 = ( tf98 = (float)(unsigned)(word) ( *( (fPt) ((* (ptr) pd97 ))))(var_c25256, 0, pd97), *(word*)&tf98 ); }; }; SOURCE(15219, 5) goto lab_L100135; case 5: SOURCE(15242, 62) { word var_c25320; { word text_v21712; text_v21712 = token_v8256; var_c25320 = text_v21712; }; { word pd99; pd99 = (* (( (ptr) (* (( (ptr) gf_c28520)+64)/* var_c24744 */ ))+24) ); real_v8340 = (word) ( *( (fPt) ((* (ptr) pd99 ))))(var_c25320, 0, pd99); }; }; SOURCE(15306, 5) goto lab_L100135; case 9: SOURCE(15331, 17) if ((0 != signSeen_v8284)) { SOURCE(15348, 17) goto lab_L100133; }; SOURCE(15367, 15) signSeen_v8284 = 1; SOURCE(15384, 42) { word var_c25384; { word limit100; var_c25384 = (word) (* ((( (bPt) token_v8256)+4)+( limit100 = (word) (* (( (hPt) token_v8256)+1) ), BCK(0, limit100) )) ); }; if ((var_c25384 == 45)) { SOURCE(15411, 15) negative_v8312 = 1; } else { if ((var_c25384 == 43)) { } else { SOURCE(15451, 17) goto lab_L100133; }; }; }; break; case 12: SOURCE(15485, 17) if ((0 != signSeen_v8284)) { SOURCE(15502, 23) goto lab_L100133; } else { SOURCE(15525, 17) goto lab_L100132; }; default: SOURCE(15555, 17) goto lab_L100133; }; }; goto lab_L100136; lab_L100135: ; SOURCE(15583, 30) { word pd101; pd101 = (* (( (ptr) (* (( (ptr) gf_c28520)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd101 ))))(buffer_v8368, pd101); }; SOURCE(15615, 41) { word x102; float tf103; if ((0 != negative_v8312)) { return(( tf103 = - ( x102 = real_v8340, *(float*)&x102 ), *(word*)&tf103 )); } else { return(real_v8340); }; }; /* c2c skipped dead code */ lab_L100132: ; SOURCE(15681, 30) { word pd104; pd104 = (* (( (ptr) (* (( (ptr) gf_c28520)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd104 ))))(buffer_v8368, pd104); }; SOURCE(15713, 29) { word var_c0224; var_c0224 = stream_v5284; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28520)+61)/* var_c22984 */ ))+4) ), (word) &var_c0224); }; /* removed dead code */ lab_L100133: ; SOURCE(15762, 30) { word pd105; pd105 = (* (( (ptr) (* (( (ptr) gf_c28520)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd105 ))))(buffer_v8368, pd105); }; SOURCE(15794, 37) { W4 var_c0225; (* (ptr) (word) &var_c0225 ) = 7; (* (( (ptr) (word) &var_c0225) + 1) ) = stream_v5284; (* (( (ptr) (word) &var_c0225) + 2) ) = 0; (* (( (ptr) (word) &var_c0225) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28520)+61)/* var_c22984 */ ))+5) ), (word) &var_c0225); }; } static word GetTime_P840(formal_c0558) word formal_c0558; { W18 var_c28552; /* declaration of stream_v5388 skipped */ register ptr gf_c28584 = (ptr) &globalframe; word var_c5432; (* (( (ptr) &var_c28552)+4)/* stream_v5388 */ ) = formal_c0558; /* GetTime: */ SOURCE(15841, 174) SOURCE(15907, 108) { W11 var_c0229; /* declaration of var_c25448 skipped */ { word pd106; pd106 = (* (( (ptr) (* (( (ptr) gf_c28584)+61)/* var_c22984 */ ))+82) ); (void) ( *( (fPt) ((* (ptr) pd106 ))))((word) &var_c0229, (* (( (ptr) &var_c28552)+4)/* stream_v5388 */ ), pd106); }; (* (W11Pt) (( (ptr) &var_c28552)+5)/* var_c25448 */ ) = var_c0229; { /* declaration of var_c06 skipped */ (* (( (ptr) &var_c28552)+16)/* var_c06 */ ) = (* (( (ptr) (* (( (ptr) gf_c28584)+65)/* var_c25480 */ ))+24) ); { /* declaration of var_c07 skipped */ (void) (word) XR_Enable(( ((word) (fPt) NoName_Q4440) ), ( ((word) (fPt) NoName_Q5220) ), (word) &var_c28552); return((* (( (ptr) &var_c28552)+17)/* var_c07 */ )); }; }; }; } static word NoName_Q4440(formal_c0475) word formal_c0475; { SOURCE(15907, 108) { word pd107; pd107 = (* (( (ptr) formal_c0475)+16) ); (* (( (ptr) formal_c0475)+17) ) = (word) ( *( (fPt) ((* (ptr) pd107 ))))((* (W11Pt) ((( (ptr) formal_c0475)+5)) ), pd107) ; }; return(0); } static word GetBool_P900(formal_c0559) word formal_c0559; { W8 var_c28616; /* declaration of stream_v5492 skipped */ register ptr gf_c28648 = (ptr) &globalframe; word bool_v5536; word tokenKind_v8436; word token_v8464 = 0; word buffer_v8492; var_c28616.f4/* stream_v5492 */ = formal_c0559; /* GetBool: */ SOURCE(16021, 528) SOURCE(16123, 45) { word pd108; pd108 = (* (( (ptr) (* (( (ptr) gf_c28648)+62)/* var_c23112 */ ))+6) ); buffer_v8492 = (word) ( *( (fPt) ((* (ptr) pd108 ))))(100, pd108); }; SOURCE(16170, 74) { W4 var_c25512; (void) GetCedarToken_P480((word) &var_c25512, var_c28616.f4/* stream_v5492 */ , buffer_v8492, 1); token_v8464 = var_c25512.f1; tokenKind_v8436 = var_c25512.f0; }; SOURCE(16246, 128) { word var_c25544; var_c25544 = tokenKind_v8436; if ((var_c25544 == 1)) { } else { if ((var_c25544 == 12)) { SOURCE(16297, 28) { word var_c0238; var_c0238 = var_c28616.f4/* stream_v5492 */ ; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28648)+61)/* var_c22984 */ ))+4) ), (word) &var_c0238); }; } else { SOURCE(16338, 36) { W4 var_c0239; (* (ptr) (word) &var_c0239 ) = 7; (* (( (ptr) (word) &var_c0239) + 1) ) = var_c28616.f4/* stream_v5492 */ ; (* (( (ptr) (word) &var_c0239) + 2) ) = 0; (* (( (ptr) (word) &var_c0239) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28648)+61)/* var_c22984 */ ))+5) ), (word) &var_c0239); }; }; }; }; SOURCE(16376, 140) { /* declaration of var_c25576 skipped */ { word text_v21664; text_v21664 = token_v8464; var_c28616.f5/* var_c25576 */ = text_v21664; }; { /* declaration of var_c08 skipped */ var_c28616.f6/* var_c08 */ = (* (( (ptr) (* (( (ptr) gf_c28648)+64)/* var_c24744 */ ))+17) ); { /* declaration of var_c09 skipped */ { word var_c0515; var_c0515 = (word) &var_c28616; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q4500) ), ( ((word) (fPt) NoName_Q5160) ), var_c0515); }; bool_v5536 = var_c28616.f7/* var_c09 */ ; }; }; }; SOURCE(16519, 30) { word pd109; pd109 = (* (( (ptr) (* (( (ptr) gf_c28648)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd109 ))))(buffer_v8492, pd109); }; SOURCE(16021, 528) return(bool_v5536); } static word NoName_Q4500(formal_c0477) word formal_c0477; { SOURCE(16376, 140) { word pd110; pd110 = (* (( (ptr) formal_c0477)+6) ); (* (( (ptr) formal_c0477)+7) ) = (word) ( *( (fPt) ((* (ptr) pd110 ))))((* ((( (ptr) formal_c0477)+5)) ), pd110); }; return(0); } static word GetAtom_P960(formal_c0560) word formal_c0560; { W8 var_c28680; /* declaration of stream_v5596 skipped */ register ptr gf_c28712 = (ptr) &globalframe; word atom_v5640; word tokenKind_v8560; word token_v8588 = 0; word buffer_v8616; var_c28680.f4/* stream_v5596 */ = formal_c0560; /* GetAtom: */ SOURCE(16555, 547) SOURCE(16555, 547) atom_v5640 = 0; SOURCE(16657, 45) { word pd111; pd111 = (* (( (ptr) (* (( (ptr) gf_c28712)+62)/* var_c23112 */ ))+6) ); buffer_v8616 = (word) ( *( (fPt) ((* (ptr) pd111 ))))(100, pd111); }; SOURCE(16704, 74) { W4 var_c25640; (void) GetCedarToken_P480((word) &var_c25640, var_c28680.f4/* stream_v5596 */ , buffer_v8616, 1); token_v8588 = var_c25640.f1; tokenKind_v8560 = var_c25640.f0; }; SOURCE(16780, 147) { word var_c25672; var_c25672 = tokenKind_v8560; switch (var_c25672) { case 1: break; case 8: break; case 12: SOURCE(16850, 28) { word var_c0250; var_c0250 = var_c28680.f4/* stream_v5596 */ ; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28712)+61)/* var_c22984 */ ))+4) ), (word) &var_c0250); }; break; default: SOURCE(16891, 36) { W4 var_c0251; (* (ptr) (word) &var_c0251 ) = 7; (* (( (ptr) (word) &var_c0251) + 1) ) = var_c28680.f4/* stream_v5596 */ ; (* (( (ptr) (word) &var_c0251) + 2) ) = 0; (* (( (ptr) (word) &var_c0251) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28712)+61)/* var_c22984 */ ))+5) ), (word) &var_c0251); }; break; }; }; SOURCE(16929, 140) { /* declaration of var_c25704 skipped */ { word text_v21616; text_v21616 = token_v8588; var_c28680.f5/* var_c25704 */ = text_v21616; }; { /* declaration of var_c010 skipped */ var_c28680.f6/* var_c010 */ = (* (( (ptr) (* (( (ptr) gf_c28712)+64)/* var_c24744 */ ))+18) ); { /* declaration of var_c011 skipped */ { word var_c0516; var_c0516 = (word) &var_c28680; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q4560) ), ( ((word) (fPt) NoName_Q5100) ), var_c0516); }; atom_v5640 = var_c28680.f7/* var_c011 */ ; }; }; }; SOURCE(17072, 30) { word pd112; pd112 = (* (( (ptr) (* (( (ptr) gf_c28712)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd112 ))))(buffer_v8616, pd112); }; SOURCE(16555, 547) return(atom_v5640); } static word NoName_Q4560(formal_c0479) word formal_c0479; { SOURCE(16929, 140) { word pd113; pd113 = (* (( (ptr) formal_c0479)+6) ); (* (( (ptr) formal_c0479)+7) ) = (word) ( *( (fPt) ((* (ptr) pd113 ))))((* ((( (ptr) formal_c0479)+5)) ), pd113); }; return(0); } static word GetRopeLiteral_P1020(stream_v5700) word stream_v5700; { register ptr gf_c28744 = (ptr) &globalframe; word r_v5744; word tokenKind_v8684; word token_v8712 = 0; word buffer_v8740; /* GetRopeLiteral: */ SOURCE(17108, 452) SOURCE(17108, 452) r_v5744 = 0; SOURCE(17214, 45) { word pd114; pd114 = (* (( (ptr) (* (( (ptr) gf_c28744)+62)/* var_c23112 */ ))+6) ); buffer_v8740 = (word) ( *( (fPt) ((* (ptr) pd114 ))))(100, pd114); }; SOURCE(17261, 74) { W4 var_c25768; (void) GetCedarToken_P480((word) &var_c25768, stream_v5700, buffer_v8740, 1); token_v8712 = var_c25768.f1; tokenKind_v8684 = var_c25768.f0; }; SOURCE(17337, 130) { word var_c25800; var_c25800 = tokenKind_v8684; if ((var_c25800 == 6)) { } else { if ((var_c25800 == 12)) { SOURCE(17390, 28) { word var_c0262; var_c0262 = stream_v5700; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28744)+61)/* var_c22984 */ ))+4) ), (word) &var_c0262); }; } else { SOURCE(17431, 36) { W4 var_c0263; (* (ptr) (word) &var_c0263 ) = 7; (* (( (ptr) (word) &var_c0263) + 1) ) = stream_v5700; (* (( (ptr) (word) &var_c0263) + 2) ) = 0; (* (( (ptr) (word) &var_c0263) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28744)+61)/* var_c22984 */ ))+5) ), (word) &var_c0263); }; }; }; }; SOURCE(17469, 59) { word var_c25832; { word text_v21568; text_v21568 = token_v8712; var_c25832 = text_v21568; }; { word pd115; pd115 = (* (( (ptr) (* (( (ptr) gf_c28744)+64)/* var_c24744 */ ))+25) ); r_v5744 = (word) ( *( (fPt) ((* (ptr) pd115 ))))(var_c25832, 0, pd115); }; }; SOURCE(17530, 30) { word pd116; pd116 = (* (( (ptr) (* (( (ptr) gf_c28744)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd116 ))))(buffer_v8740, pd116); }; SOURCE(17108, 452) return(r_v5744); } static word GetCharLiteral_P1080(formal_c0561) word formal_c0561; { W8 var_c28776; /* declaration of stream_v5804 skipped */ register ptr gf_c28808 = (ptr) &globalframe; word c_v5848; word tokenKind_v8808; word token_v8836 = 0; word buffer_v8864; var_c28776.f4/* stream_v5804 */ = formal_c0561; /* GetCharLiteral: */ SOURCE(17566, 532) SOURCE(17672, 45) { word pd117; pd117 = (* (( (ptr) (* (( (ptr) gf_c28808)+62)/* var_c23112 */ ))+6) ); buffer_v8864 = (word) ( *( (fPt) ((* (ptr) pd117 ))))(100, pd117); }; SOURCE(17719, 74) { W4 var_c25896; (void) GetCedarToken_P480((word) &var_c25896, var_c28776.f4/* stream_v5804 */ , buffer_v8864, 1); token_v8836 = var_c25896.f1; tokenKind_v8808 = var_c25896.f0; }; SOURCE(17795, 130) { word var_c25928; var_c25928 = tokenKind_v8808; if ((var_c25928 == 7)) { } else { if ((var_c25928 == 12)) { SOURCE(17848, 28) { word var_c0274; var_c0274 = var_c28776.f4/* stream_v5804 */ ; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28808)+61)/* var_c22984 */ ))+4) ), (word) &var_c0274); }; } else { SOURCE(17889, 36) { W4 var_c0275; (* (ptr) (word) &var_c0275 ) = 7; (* (( (ptr) (word) &var_c0275) + 1) ) = var_c28776.f4/* stream_v5804 */ ; (* (( (ptr) (word) &var_c0275) + 2) ) = 0; (* (( (ptr) (word) &var_c0275) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28808)+61)/* var_c22984 */ ))+5) ), (word) &var_c0275); }; }; }; }; SOURCE(17927, 139) { /* declaration of var_c25960 skipped */ { word text_v21520; text_v21520 = token_v8836; var_c28776.f5/* var_c25960 */ = text_v21520; }; { /* declaration of var_c012 skipped */ var_c28776.f6/* var_c012 */ = (* (( (ptr) (* (( (ptr) gf_c28808)+64)/* var_c24744 */ ))+26) ); { /* declaration of var_c013 skipped */ { word var_c0517; var_c0517 = (word) &var_c28776; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q4620) ), ( ((word) (fPt) NoName_Q5040) ), var_c0517); }; c_v5848 = var_c28776.f7/* var_c013 */ ; }; }; }; SOURCE(18068, 30) { word pd118; pd118 = (* (( (ptr) (* (( (ptr) gf_c28808)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd118 ))))(buffer_v8864, pd118); }; SOURCE(17566, 532) return(c_v5848); } static word NoName_Q4620(formal_c0482) word formal_c0482; { SOURCE(17927, 139) { word pd119; pd119 = (* (( (ptr) formal_c0482)+6) ); (* (( (ptr) formal_c0482)+7) ) = (word) ( *( (fPt) ((* (ptr) pd119 ))))((* (( (ptr) formal_c0482)+5) ), 0, pd119); }; return(0); } static word GetID_P1140(stream_v5908) word stream_v5908; { register ptr gf_c28840 = (ptr) &globalframe; word r_v5952; word tokenKind_v8932; word token_v8960 = 0; word buffer_v8988; /* GetID: */ SOURCE(18104, 409) SOURCE(18104, 409) r_v5952 = 0; SOURCE(18201, 45) { word pd120; pd120 = (* (( (ptr) (* (( (ptr) gf_c28840)+62)/* var_c23112 */ ))+6) ); buffer_v8988 = (word) ( *( (fPt) ((* (ptr) pd120 ))))(100, pd120); }; SOURCE(18248, 74) { W4 var_c26024; (void) GetCedarToken_P480((word) &var_c26024, stream_v5908, buffer_v8988, 1); token_v8960 = var_c26024.f1; tokenKind_v8932 = var_c26024.f0; }; SOURCE(18324, 128) { word var_c26056; var_c26056 = tokenKind_v8932; if ((var_c26056 == 1)) { } else { if ((var_c26056 == 12)) { SOURCE(18375, 28) { word var_c0286; var_c0286 = stream_v5908; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28840)+61)/* var_c22984 */ ))+4) ), (word) &var_c0286); }; } else { SOURCE(18416, 36) { W4 var_c0287; (* (ptr) (word) &var_c0287 ) = 7; (* (( (ptr) (word) &var_c0287) + 1) ) = stream_v5908; (* (( (ptr) (word) &var_c0287) + 2) ) = 0; (* (( (ptr) (word) &var_c0287) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28840)+61)/* var_c22984 */ ))+5) ), (word) &var_c0287); }; }; }; }; SOURCE(18454, 27) { word pd121; pd121 = (* (( (ptr) (* (( (ptr) gf_c28840)+63)/* var_c23176 */ ))+35) ); r_v5952 = (word) ( *( (fPt) ((* (ptr) pd121 ))))(token_v8960, 0, 32767, pd121); }; SOURCE(18483, 30) { word pd122; pd122 = (* (( (ptr) (* (( (ptr) gf_c28840)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd122 ))))(buffer_v8988, pd122); }; SOURCE(18104, 409) return(r_v5952); } static word GetRefAny_P1200(formal_c0562) word formal_c0562; { W9 var_c28872; /* declaration of stream_v6012 skipped */ register ptr gf_c28904 = (ptr) &globalframe; word object_v6056; /* declaration of var_c26088 skipped */ /* declaration of buffer_v9140 skipped */ (* (( (ptr) &var_c28872)+4)/* stream_v6012 */ ) = formal_c0562; /* GetRefAny: */ SOURCE(18518, 2340) { word tmpAddr123; tmpAddr123 = (word) (( (ptr) &var_c28872)+5)/* var_c26088 */ ; (* (ptr) tmpAddr123 ) = ( ((word) (fPt) GetRefAny0_P2232) ); (* (( (ptr) tmpAddr123) + 1) ) = 1; }; SOURCE(18518, 2340) object_v6056 = 0; SOURCE(20649, 45) { word pd124; pd124 = (* (( (ptr) (* (( (ptr) gf_c28904)+62)/* var_c23112 */ ))+6) ); (* (( (ptr) &var_c28872)+7)/* buffer_v9140 */ ) = (word) ( *( (fPt) ((* (ptr) pd124 ))))(100, pd124); }; SOURCE(20696, 128) { /* declaration of var_c014 skipped */ { word var_c0518; var_c0518 = (word) &var_c28872; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q4680) ), ( ((word) (fPt) NoName_Q4980) ), var_c0518); }; object_v6056 = (* (( (ptr) &var_c28872)+8)/* var_c014 */ ); }; SOURCE(20828, 30) { word pd125; pd125 = (* (( (ptr) (* (( (ptr) gf_c28904)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd125 ))))((* ((( (ptr) &var_c28872)+7)/* buffer_v9140 */ ) ), pd125); }; SOURCE(18518, 2340) return(object_v6056); } static word NoName_Q4680(formal_c0485) word formal_c0485; { SOURCE(20696, 128) (* (( (ptr) formal_c0485)+8) ) = (word) GetRefAny0_P2232((* (( (ptr) formal_c0485)+4) ), (* (( (ptr) formal_c0485)+7) ), (word) ( ( (bPt) formal_c0485)+20)); return(0); } static word GetRefAny0_P2232(formal_c0563, formal_c0564, formal_c29000) word formal_c0563; word formal_c0564; word formal_c29000; { W7 var_c28936; /* declaration of stream_v9248 skipped */ /* declaration of buffer_v9276 skipped */ register ptr gf_c28968 = (ptr) &globalframe; /* declaration of var_c015 skipped */ word var_c9332; formal_c29000 = (formal_c29000 - 20); var_c28936.f4/* stream_v9248 */ = formal_c0563; var_c28936.f5/* buffer_v9276 */ = formal_c0564; var_c28936.f0 = formal_c29000; /* GetRefAny0: */ SOURCE(18637, 2009) SOURCE(18705, 1941) SOURCE(18707, 1856) { word var_c018; { word var_c0519; var_c0519 = (word) &var_c28936; var_c018 = (word) XR_Enable(( ((word) (fPt) NoName_Q4740) ), ( ((word) (fPt) NoName_Q4860) ), var_c0519); }; if ((var_c018 == 8)) { goto lab_L100156; } else { if ((var_c018 == 1)) { goto lab_L014; }; }; }; goto lab_L100177; lab_L100156: ; SOURCE(20608, 36) { W4 var_c0295; (* (ptr) (word) &var_c0295 ) = 7; (* (( (ptr) (word) &var_c0295) + 1) ) = var_c28936.f4/* stream_v9248 */ ; (* (( (ptr) (word) &var_c0295) + 2) ) = 0; (* (( (ptr) (word) &var_c0295) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c28968)+61)/* var_c22984 */ ))+5) ), (word) &var_c0295); }; lab_L100177: ; lab_L014: ; return(var_c28936.f6/* var_c015 */ ); } static word NoName_Q4740(formal_c0489) word formal_c0489; { W5 var_c0546; register ptr gf_c0488 = (ptr) &globalframe; var_c0546.f0 = formal_c0489; SOURCE(18860, 23) { word tokenKind_v9384; word token_v9412 = 0; SOURCE(18902, 1661) lab_L100161: ; SOURCE(18906, 74) { W4 var_c26120; (void) GetCedarToken_P480((word) &var_c26120, (* (( (ptr) formal_c0489)+4) ), (* (( (ptr) formal_c0489)+5) ), 1); token_v9412 = var_c26120.f1; tokenKind_v9384 = var_c26120.f0; }; SOURCE(18982, 1581) { word var_c26152; word var_c26184; word var_c26248; word var_c26376; var_c26152 = tokenKind_v9384; if ((var_c26152 == 0)) { SOURCE(19018, 12) return(8); }; if ((var_c26152 == 1)) { { word pd127; { word text_v21472; text_v21472 = token_v9412; var_c26184 = text_v21472; }; pd127 = (* (( (ptr) (* (( (ptr) gf_c0488)+63)/* var_c23176 */ ))+8) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd127 ))))(var_c26184, (* (( (ptr) gf_c0488)+14) ), 1, pd127))) { SOURCE(19115, 12) (* (( (ptr) formal_c0489)+6) ) = 0; return(1); } else { { word pd128; { word text_v21424; text_v21424 = token_v9412; var_c26248 = text_v21424; }; pd128 = (* (( (ptr) (* (( (ptr) gf_c0488)+63)/* var_c23176 */ ))+8) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd128 ))))(var_c26248, (* (( (ptr) gf_c0488)+13) ), 1, pd128))) { SOURCE(19183, 24) { word var_c26344; var_c26344 = XR_NewObject(4, (* (( (ptr) gf_c0488)+8) )); (* (ptr) var_c26344 ) = 1; (* (( (ptr) formal_c0489)+6) ) = var_c26344; }; return(1); } else { { word pd129; { /*1*/ word text_v21376; /*1*/ text_v21376 = token_v9412; /*1*/ var_c26376 = text_v21376; /*1*/ }; pd129 = (* (( (ptr) (* (( (ptr) gf_c0488)+63)/* var_c23176 */ ))+8) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd129 ))))(var_c26376, (* (( (ptr) gf_c0488)+12) ), 1, pd129))) { SOURCE(19264, 25) /*1*/ (* (( (ptr) formal_c0489)+6) ) = XR_NewObject(4, (* (( (ptr) gf_c0488)+8) )); /*1*/ return(1); /*1*/ } else { SOURCE(19302, 61) /*1*/ { /*1*/ word var_c26536; /*1*/ { /*1*/ word text_v21328; /*1*/ text_v21328 = token_v9412; /*1*/ var_c26536 = text_v21328; /*1*/ }; /*1*/ { /*1*/ word pd130; /*1*/ pd130 = (* (( (ptr) (* (( (ptr) gf_c0488)+64)/* var_c24744 */ ))+18) ); /*1*/ (* (( (ptr) formal_c0489)+6) ) = (word) ( *( (fPt) ((* (ptr) pd130 ))))(var_c26536, pd130); /*1*/ }; /*1*/ }; /*1*/ return(1); /*1*/ }; }; }; }; }; }; }; if (((var_c26152 - 2) <= 2)) { SOURCE(19401, 71) { word var_c26632; word var_c26728; { word var_c26664; { word text_v21280; text_v21280 = token_v9412; var_c26664 = text_v21280; }; { word pd131; pd131 = (* (( (ptr) (* (( (ptr) gf_c0488)+64)/* var_c24744 */ ))+10) ); var_c26632 = (word) ( *( (fPt) ((* (ptr) pd131 ))))(var_c26664, 8, pd131); }; }; var_c26728 = XR_NewObject(4, (* (( (ptr) gf_c0488)+10) )); (* (ptr) var_c26728 ) = var_c26632; (* (( (ptr) formal_c0489)+6) ) = var_c26728; }; return(1); }; if ((var_c26152 == 5)) { SOURCE(19487, 76) { word var_c26792; word var_c26888; { word var_c26824; { word text_v21232; text_v21232 = token_v9412; var_c26824 = text_v21232; }; { word pd132; pd132 = (* (( (ptr) (* (( (ptr) gf_c0488)+64)/* var_c24744 */ ))+24) ); var_c26792 = (word) ( *( (fPt) ((* (ptr) pd132 ))))(var_c26824, 0, pd132); }; }; var_c26888 = XR_NewObject(4, (* (( (ptr) gf_c0488)+11) )); (* (ptr) var_c26888 ) = var_c26792; (* (( (ptr) formal_c0489)+6) ) = var_c26888; }; return(1); }; if ((var_c26152 == 6)) { SOURCE(19578, 63) { word var_c26952; { word text_v21184; text_v21184 = token_v9412; var_c26952 = text_v21184; }; { word pd133; pd133 = (* (( (ptr) (* (( (ptr) gf_c0488)+64)/* var_c24744 */ ))+25) ); (* (( (ptr) formal_c0489)+6) ) = (word) ( *( (fPt) ((* (ptr) pd133 ))))(var_c26952, 0, pd133); }; }; return(1); }; if ((var_c26152 == 7)) { SOURCE(19656, 76) { word var_c27048; word var_c27144; { word var_c27080; { word text_v21136; text_v21136 = token_v9412; var_c27080 = text_v21136; }; { word pd134; pd134 = (* (( (ptr) (* (( (ptr) gf_c0488)+64)/* var_c24744 */ ))+26) ); var_c27048 = (word) ( *( (fPt) ((* (ptr) pd134 ))))(var_c27080, 0, pd134); }; }; var_c27144 = XR_NewObject(4, (* (( (ptr) gf_c0488)+9) )); (* (ptr) var_c27144 ) = var_c27048; (* (( (ptr) formal_c0489)+6) ) = var_c27144; }; return(1); }; if ((var_c26152 == 8)) { SOURCE(19747, 60) { word var_c27208; { word text_v21088; text_v21088 = token_v9412; var_c27208 = text_v21088; }; { word pd135; pd135 = (* (( (ptr) (* (( (ptr) gf_c0488)+64)/* var_c24744 */ ))+18) ); (* (( (ptr) formal_c0489)+6) ) = (word) ( *( (fPt) ((* (ptr) pd135 ))))(var_c27208, pd135); }; }; return(1); }; if ((var_c26152 == 9)) { SOURCE(19825, 644) { word c_v9468; SOURCE(19827, 18) { word limit136; c_v9468 = (word) (* ((( (bPt) token_v9412)+4)+( limit136 = (word) (* (( (hPt) token_v9412)+1) ), BCK(0, limit136) )) ); }; SOURCE(19848, 591) { word var_c27272; var_c27272 = c_v9468; switch (var_c27272) { case 40: SOURCE(19868, 280) { word lst_v9512 = 0; word tail_v9540 = 0; word obj_v9568 = 0; SOURCE(19910, 214) lab_L100173: ; { /*1*/ word pd137; /*1*/ pd137 = (* (( (ptr) (* (( (ptr) gf_c0488)+61)/* var_c22984 */ ))+15) ); /*1*/ if ((0 == (word) ( *( (fPt) ((* (ptr) pd137 ))))((* ((( (ptr) formal_c0489)+4)) ), pd137))) { /*1*/ } /*1*/ else { /*1*/ goto lab_L100171; /*1*/ }; /*1*/ }; { /*1*/ word new_v9720 = 0; SOURCE(19960, 64) /*1*/ { /*1*/ /* declaration of var_c016 skipped */ /*1*/ { /*1*/ word var_c017; /*1*/ { /*1*/ word var_c0520; /*1*/ var_c0520 = (word) &var_c0546; /*1*/ var_c017 = (word) XR_Enable(( ((word) (fPt) NoName_Q4800) ), ( ((word) (fPt) NoName_Q4920) ), var_c0520); /*1*/ }; /*1*/ switch (var_c017) { /*1*/ case 10: /*1*/ goto lab_L100173; /*1*/ case 9: /*1*/ goto lab_L100172; /*1*/ case 8: /*1*/ return(8); /*1*/ case 1: /*1*/ return(1); /*1*/ }; /*1*/ }; /*1*/ obj_v9568 = var_c0546.f4/* var_c016 */ ; /*1*/ }; SOURCE(20046, 15) /*1*/ { /*1*/ word var_c27304; /*1*/ word var_c27336; /*1*/ var_c27304 = XR_NewObject(8, (* (( (ptr) gf_c0488)+7) )); /*1*/ var_c27336 = var_c27304; /*1*/ (* (ptr) var_c27336 ) = obj_v9568; /*1*/ new_v9720 = var_c27304; /*1*/ }; SOURCE(20063, 49) /*1*/ if ((tail_v9540 != 0)) { SOURCE(20082, 21) /*1*/ (* (( (ptr) tail_v9540)+1) ) = new_v9720; /*1*/ } /*1*/ else { SOURCE(20103, 9) /*1*/ lst_v9512 = new_v9720; /*1*/ }; SOURCE(20114, 10) /*1*/ tail_v9540 = new_v9720; /*1*/ }; goto lab_L100173; lab_L100171: ; lab_L100172: ; SOURCE(20135, 11) (* (( (ptr) formal_c0489)+6) ) = lst_v9512; return(1); }; case 41: SOURCE(20157, 16) (void) XR_RaiseError((word) (( (bPt) gf_c0488)+60), 0); break; case 94: break; case 44: SOURCE(20239, 11) (void) XR_RaiseError((word) (( (bPt) gf_c0488)+64), 0); break; case 45: case 43: SOURCE(20262, 179) { word obj_v9860; SOURCE(20264, 37) obj_v9860 = (word) GetRefAny0_P2232((* (( (ptr) formal_c0489)+4) ), (* (( (ptr) formal_c0489)+5) ), (word) (( (bPt) (* (ptr) formal_c0489 ))+20) /*1*/ ); SOURCE(20303, 98) { /*1*/ word var_c27368; /*1*/ word var_c27400; /*1*/ var_c27368 = obj_v9860; /*1*/ if ((var_c27368 == 0)) { /*1*/ goto lab_L100176; /*1*/ }; /*1*/ var_c27400 = XR_GetReferentType(var_c27368); /*1*/ if (((* (( (ptr) gf_c0488)+10) ) == var_c27400)) { /*1*/ { /*1*/ word x_v9916; /*1*/ x_v9916 = var_c27368; SOURCE(20338, 23) /*1*/ if ((c_v9468 == 45)) { SOURCE(20353, 8) /*1*/ (* (ptr) x_v9916 ) = INEG((* (ptr) x_v9916 )); /*1*/ }; /*1*/ }; /*1*/ } /*1*/ else { /*1*/ if (((* (( (ptr) gf_c0488)+11) ) == var_c27400)) { /*1*/ { /*1*/ word x_v9972; /*1*/ x_v9972 = var_c27368; SOURCE(20378, 23) /*1*/ if ((c_v9468 == 45)) { SOURCE(20393, 8) /*1*/ { /*1*/ word x138; /*1*/ *(float*)x_v9972 = - ( /*1*/ x138 = (* (ptr) x_v9972 ), *(float*)&x138 /*1*/ ); /*1*/ }; /*1*/ }; /*1*/ }; /*1*/ } /*1*/ else { /*1*/ lab_L100176: ; SOURCE(20414, 12) /*1*/ return(8); /*1*/ }; /*1*/ }; /*1*/ }; SOURCE(20428, 11) (* (( (ptr) formal_c0489)+6) ) = obj_v9860; return(1); }; default: SOURCE(20455, 12) return(8); }; }; }; goto endif0126; }; if ((var_c26152 == 10)) { SOURCE(20487, 12) return(8); }; if ((var_c26152 == 11)) { goto endif0126; }; if ((var_c26152 == 12)) { SOURCE(20535, 28) { word var_c0339; var_c0339 = (* (( (ptr) formal_c0489)+4) ); (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0488)+61)/* var_c22984 */ ))+4) ), (word) &var_c0339); }; goto endif0126; }; SOURCE(20576, 5) (void) XR_RaiseUnnamedError(); goto endif0126; endif0126: ; }; goto lab_L100161; }; /* c2c skipped dead code */ } static word NoName_Q4800(formal_c0490) word formal_c0490; { SOURCE(19960, 64) (* (( (ptr) formal_c0490)+4) ) = (word) GetRefAny0_P2232((* (( (ptr) (* (ptr) formal_c0490 ))+4) ), (* (( (ptr) (* (ptr) formal_c0490 ))+5) ), (word) (( (bPt) (* (ptr) (* (ptr) formal_c0490 ) ))+20)); return(0); } static word GetRefAnyLine_P1260(stream_v6132) word stream_v6132; { register ptr gf_c29032 = (ptr) &globalframe; word var_c6176; word lst_v10028 = 0; word tail_v10056 = 0; /* GetRefAnyLine: */ SOURCE(20864, 344) SOURCE(20964, 36) { word var_c27432; { word var_c27464; word var_c27496; var_c27464 = XR_NewObject(8, (* (( (ptr) gf_c29032)+7) )); var_c27496 = var_c27464; (* (ptr) var_c27496 ) = (word) GetRefAny_P1200(stream_v6132); var_c27432 = var_c27464; }; tail_v10056 = var_c27432; lst_v10028 = var_c27432; }; SOURCE(21002, 184) lab_L100180: ; { word pd139; pd139 = (* (( (ptr) (* (( (ptr) gf_c29032)+61)/* var_c22984 */ ))+15) ); if ((0 == (word) ( *( (fPt) ((* (ptr) pd139 ))))(stream_v6132, pd139))) { } else { goto lab_L100178; }; }; { word c_v10196; SOURCE(21026, 26) { word pd140; pd140 = (* (( (ptr) (* (( (ptr) gf_c29032)+61)/* var_c22984 */ ))+11) ); c_v10196 = (word) ( *( (fPt) ((* (ptr) pd140 ))))(stream_v6132, pd140); }; SOURCE(21054, 35) if ((c_v10196 == 13) || (c_v10196 == 10)) { SOURCE(21089, 4) goto lab_L100179; }; SOURCE(21095, 36) if ((c_v10196 != 32)) { SOURCE(21111, 20) { word pd141; pd141 = (* (( (ptr) (* (( (ptr) gf_c29032)+61)/* var_c22984 */ ))+18) ); (void) ( *( (fPt) ((* (ptr) pd141 ))))(stream_v6132, c_v10196, pd141); }; }; SOURCE(21133, 35) { word var_c27560; { word var_c27592; word var_c27624; var_c27592 = XR_NewObject(8, (* (( (ptr) gf_c29032)+7) )); var_c27624 = var_c27592; (* (ptr) var_c27624 ) = (word) GetRefAny_P1200(stream_v6132); var_c27560 = var_c27592; }; (* (( (ptr) tail_v10056)+1) ) = var_c27560; }; SOURCE(21170, 16) tail_v10056 = (* (( (ptr) tail_v10056)+1) ); }; goto lab_L100180; lab_L100178: ; lab_L100179: ; SOURCE(21197, 11) return(lst_v10028); } static void NoName_Q4860(formal_c0359, formal_c200048, formal_c200049, formal_c200050, formal_c200051) word formal_c0359; word formal_c200048; word formal_c200049; word formal_c200050; word formal_c200051; { register ptr gf_c0492 = (ptr) &globalframe; if ((formal_c200049 == (* (( (ptr) (* (( (ptr) gf_c0492)+64)/* var_c24744 */ ))+7) ))) { { word reason_v18332; word index_v18360; reason_v18332 = (* (ptr) formal_c200051 ); index_v18360 = (* (( (ptr) formal_c200051)+1) ); SOURCE(18731, 127) if ((reason_v18332 == 0)) { SOURCE(18756, 42) { W4 var_c0357; (* (ptr) (word) &var_c0357 ) = 7; (* (( (ptr) (word) &var_c0357) + 1) ) = (* (( (ptr) formal_c200048)+4) ); (* (( (ptr) (word) &var_c0357) + 2) ) = 0; (* (( (ptr) (word) &var_c0357) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0492)+61)/* var_c22984 */ ))+5) ), (word) &var_c0357); }; } else { SOURCE(18798, 60) if ((reason_v18332 == 1)) { SOURCE(18825, 33) { W4 var_c0358; (* (ptr) (word) &var_c0358 ) = 8; (* (( (ptr) (word) &var_c0358) + 1) ) = (* (( (ptr) formal_c200048)+4) ); (* (( (ptr) (word) &var_c0358) + 2) ) = 0; (* (( (ptr) (word) &var_c0358) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0492)+61)/* var_c22984 */ ))+5) ), (word) &var_c0358); }; }; }; }; }; (* (ptr) formal_c0359 ) = 0; (* (( (ptr) formal_c0359)+1) ) = 0; return; } static void NoName_Q4920(formal_c0364, formal_c200052, formal_c200053, formal_c200054, formal_c200055) word formal_c0364; word formal_c200052; word formal_c200053; word formal_c200054; word formal_c200055; { register ptr gf_c0493 = (ptr) &globalframe; if ((formal_c200053 == (word) (( (bPt) gf_c0493)+60)) || (formal_c200053 == (* (( (ptr) (* (( (ptr) gf_c0493)+61)/* var_c22984 */ ))+4) ))) { SOURCE(20024, 4) (* (ptr) formal_c0364 ) = 2; (* (( (ptr) formal_c0364)+1) ) = 9; return; } else { if ((formal_c200053 == (word) (( (bPt) gf_c0493)+64))) { SOURCE(20039, 5) (* (ptr) formal_c0364 ) = 2; (* (( (ptr) formal_c0364)+1) ) = 10; return; }; }; (* (ptr) formal_c0364 ) = 0; (* (( (ptr) formal_c0364)+1) ) = 0; return; } static void NoName_Q4980(formal_c0370, formal_c200044, formal_c200045, formal_c200046, formal_c200047) word formal_c0370; word formal_c200044; word formal_c200045; word formal_c200046; word formal_c200047; { register ptr gf_c0494 = (ptr) &globalframe; if ((formal_c200045 == (word) (( (bPt) gf_c0494)+60)) || (formal_c200045 == (word) (( (bPt) gf_c0494)+64))) { SOURCE(20756, 30) { word pd142; pd142 = (* (( (ptr) (* (( (ptr) gf_c0494)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd142 ))))((* ((( (ptr) formal_c200044)+7)) ), pd142); }; SOURCE(20788, 36) { W4 var_c0369; (* (ptr) (word) &var_c0369 ) = 7; (* (( (ptr) (word) &var_c0369) + 1) ) = (* (( (ptr) formal_c200044)+4) ); (* (( (ptr) (word) &var_c0369) + 2) ) = 0; (* (( (ptr) (word) &var_c0369) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0494)+61)/* var_c22984 */ ))+5) ), (word) &var_c0369); }; }; (* (ptr) formal_c0370 ) = 0; (* (( (ptr) formal_c0370)+1) ) = 0; return; } static void NoName_Q5040(formal_c0378, formal_c200040, formal_c200041, formal_c200042, formal_c200043) word formal_c0378; word formal_c200040; word formal_c200041; word formal_c200042; word formal_c200043; { register ptr gf_c0495 = (ptr) &globalframe; if ((formal_c200041 == (* (( (ptr) (* (( (ptr) gf_c0495)+64)/* var_c24744 */ ))+7) ))) { { word reason_v18228; word index_v18256; reason_v18228 = (* (ptr) formal_c200043 ); index_v18256 = (* (( (ptr) formal_c200043)+1) ); SOURCE(18005, 61) if ((reason_v18228 == 1)) { SOURCE(18032, 34) { W4 var_c0377; (* (ptr) (word) &var_c0377 ) = 8; (* (( (ptr) (word) &var_c0377) + 1) ) = (* (( (ptr) formal_c200040)+4) ); (* (( (ptr) (word) &var_c0377) + 2) ) = 0; (* (( (ptr) (word) &var_c0377) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0495)+61)/* var_c22984 */ ))+5) ), (word) &var_c0377); }; }; }; }; (* (ptr) formal_c0378 ) = 0; (* (( (ptr) formal_c0378)+1) ) = 0; return; } static void NoName_Q5100(formal_c0386, formal_c200036, formal_c200037, formal_c200038, formal_c200039) word formal_c0386; word formal_c200036; word formal_c200037; word formal_c200038; word formal_c200039; { register ptr gf_c0496 = (ptr) &globalframe; if ((formal_c200037 == (* (( (ptr) (* (( (ptr) gf_c0496)+64)/* var_c24744 */ ))+7) ))) { { word reason_v18140; word index_v18168; reason_v18140 = (* (ptr) formal_c200039 ); index_v18168 = (* (( (ptr) formal_c200039)+1) ); SOURCE(17007, 62) if ((reason_v18140 == 0)) { SOURCE(17032, 37) { W4 var_c0385; (* (ptr) (word) &var_c0385 ) = 7; (* (( (ptr) (word) &var_c0385) + 1) ) = (* (( (ptr) formal_c200036)+4) ); (* (( (ptr) (word) &var_c0385) + 2) ) = 0; (* (( (ptr) (word) &var_c0385) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0496)+61)/* var_c22984 */ ))+5) ), (word) &var_c0385); }; }; }; }; (* (ptr) formal_c0386 ) = 0; (* (( (ptr) formal_c0386)+1) ) = 0; return; } static void NoName_Q5160(formal_c0394, formal_c200032, formal_c200033, formal_c200034, formal_c200035) word formal_c0394; word formal_c200032; word formal_c200033; word formal_c200034; word formal_c200035; { register ptr gf_c0497 = (ptr) &globalframe; if ((formal_c200033 == (* (( (ptr) (* (( (ptr) gf_c0497)+64)/* var_c24744 */ ))+7) ))) { { word reason_v18020; word index_v18048; reason_v18020 = (* (ptr) formal_c200035 ); index_v18048 = (* (( (ptr) formal_c200035)+1) ); SOURCE(16454, 62) if ((reason_v18020 == 0)) { SOURCE(16479, 37) { W4 var_c0393; (* (ptr) (word) &var_c0393 ) = 7; (* (( (ptr) (word) &var_c0393) + 1) ) = (* (( (ptr) formal_c200032)+4) ); (* (( (ptr) (word) &var_c0393) + 2) ) = 0; (* (( (ptr) (word) &var_c0393) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0497)+61)/* var_c22984 */ ))+5) ), (word) &var_c0393); }; }; }; }; (* (ptr) formal_c0394 ) = 0; (* (( (ptr) formal_c0394)+1) ) = 0; return; } static void NoName_Q5220(formal_c0400, formal_c200028, formal_c200029, formal_c200030, formal_c200031) word formal_c0400; word formal_c200028; word formal_c200029; word formal_c200030; word formal_c200031; { register ptr gf_c0498 = (ptr) &globalframe; if ((formal_c200029 == (* (( (ptr) (* (( (ptr) gf_c0498)+65)/* var_c25480 */ ))+4) ))) { SOURCE(15980, 35) { W4 var_c0399; (* (ptr) (word) &var_c0399 ) = 8; (* (( (ptr) (word) &var_c0399) + 1) ) = (* (( (ptr) formal_c200028)+4) ); (* (( (ptr) (word) &var_c0399) + 2) ) = 0; (* (( (ptr) (word) &var_c0399) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0498)+61)/* var_c22984 */ ))+5) ), (word) &var_c0399); }; }; (* (ptr) formal_c0400 ) = 0; (* (( (ptr) formal_c0400)+1) ) = 0; return; } static void NoName_Q5280(formal_c0407, formal_c200024, formal_c200025, formal_c200026, formal_c200027) word formal_c0407; word formal_c200024; word formal_c200025; word formal_c200026; word formal_c200027; { register ptr gf_c0499 = (ptr) &globalframe; if ((formal_c200025 == (* (( (ptr) (* (( (ptr) gf_c0499)+64)/* var_c24744 */ ))+7) ))) { { word reason_v17884; word index_v17912; reason_v17884 = (* (ptr) formal_c200027 ); index_v17912 = (* (( (ptr) formal_c200027)+1) ); SOURCE(13571, 27) if ((reason_v17884 == 1)) { SOURCE(13598, 14) (* (ptr) formal_c0407 ) = 2; (* (( (ptr) formal_c0407)+1) ) = 7; return; }; }; }; (* (ptr) formal_c0407 ) = 0; (* (( (ptr) formal_c0407)+1) ) = 0; return; } static void NoName_Q5340(formal_c0412, formal_c200020, formal_c200021, formal_c200022, formal_c200023) word formal_c0412; word formal_c200020; word formal_c200021; word formal_c200022; word formal_c200023; { register ptr gf_c0500 = (ptr) &globalframe; if ((formal_c200021 == XR_Unwind)) { SOURCE(12458, 30) { word pd143; pd143 = (* (( (ptr) (* (( (ptr) gf_c0500)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd143 ))))((* ((( (ptr) formal_c200020)+9)) ), pd143); }; }; (* (ptr) formal_c0412 ) = 0; (* (( (ptr) formal_c0412)+1) ) = 0; return; } static void NoName_Q5400(formal_c0418, formal_c200016, formal_c200017, formal_c200018, formal_c200019) word formal_c0418; word formal_c200016; word formal_c200017; word formal_c200018; word formal_c200019; { register ptr gf_c0501 = (ptr) &globalframe; if ((formal_c200017 == (* (( (ptr) (* (( (ptr) gf_c0501)+61)/* var_c22984 */ ))+4) ))) { { word stream_v17552; stream_v17552 = (* (ptr) formal_c200019 ); SOURCE(11738, 19) (* (ptr) formal_c0418 ) = 2; (* (( (ptr) formal_c0418)+1) ) = 4; return; }; }; (* (ptr) formal_c0418 ) = 0; (* (( (ptr) formal_c0418)+1) ) = 0; return; } static void NoName_Q5460(formal_c0424, formal_c200012, formal_c200013, formal_c200014, formal_c200015) word formal_c0424; word formal_c200012; word formal_c200013; word formal_c200014; word formal_c200015; { register ptr gf_c0502 = (ptr) &globalframe; if ((formal_c200013 == (* (( (ptr) (* (( (ptr) gf_c0502)+61)/* var_c22984 */ ))+4) ))) { { word stream_v17492; stream_v17492 = (* (ptr) formal_c200015 ); SOURCE(11624, 19) (* (ptr) formal_c0424 ) = 2; (* (( (ptr) formal_c0424)+1) ) = 4; return; }; }; (* (ptr) formal_c0424 ) = 0; (* (( (ptr) formal_c0424)+1) ) = 0; return; } static void NoName_Q5520(formal_c0430, formal_c200008, formal_c200009, formal_c200010, formal_c200011) word formal_c0430; word formal_c200008; word formal_c200009; word formal_c200010; word formal_c200011; { register ptr gf_c0503 = (ptr) &globalframe; if ((formal_c200009 == (* (( (ptr) (* (( (ptr) gf_c0503)+61)/* var_c22984 */ ))+4) ))) { { word stream_v16984; stream_v16984 = (* (ptr) formal_c200011 ); SOURCE(3132, 18) if (( (int)(* (( (ptr) formal_c200008)+8) ) > (int)0)) { SOURCE(3150, 14) (* (ptr) formal_c0430 ) = 2; (* (( (ptr) formal_c0430)+1) ) = 3; return; } else { /* removed tail goto */ }; }; }; (* (ptr) formal_c0430 ) = 0; (* (( (ptr) formal_c0430)+1) ) = 0; return; } static void NoName_Q5580(formal_c0436, formal_c200004, formal_c200005, formal_c200006, formal_c200007) word formal_c0436; word formal_c200004; word formal_c200005; word formal_c200006; word formal_c200007; { register ptr gf_c0504 = (ptr) &globalframe; if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0504)+61)/* var_c22984 */ ))+4) ))) { { word stream_v16924; stream_v16924 = (* (ptr) formal_c200007 ); SOURCE(2697, 26) if (((* (hPt) (* (( (ptr) formal_c200004)+5) ) ) > 0)) { SOURCE(2723, 14) (* (ptr) formal_c0436 ) = 2; (* (( (ptr) formal_c0436)+1) ) = 2; return; } else { /* removed tail goto */ }; }; }; (* (ptr) formal_c0436 ) = 0; (* (( (ptr) formal_c0436)+1) ) = 0; return; } static void NoName_Q5640(formal_c0441, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0441; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c0505 = (ptr) &globalframe; if ((formal_c200001 == XR_Unwind)) { SOURCE(1930, 30) { word pd144; pd144 = (* (( (ptr) (* (( (ptr) gf_c0505)+62)/* var_c23112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd144 ))))((* ((( (ptr) formal_c200000)+8)) ), pd144); }; }; (* (ptr) formal_c0441 ) = 0; (* (( (ptr) formal_c0441)+1) ) = 0; return; } /* file: IOScanImpl, module: IOScanImpl, compiled at: February 21, 1992 9:36:29 pm PST */ extern void XR_install_IOScanImpl() { NoName_Q3960(); } extern void XR_run_IOScanImpl() { XR_Start(&globalframe); }