/* 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 <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
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); }