/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */
/* time: October 19, 1993 1:13:10 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: NodeStyleImpl, module: NodeStyleImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [3637041162,3580717864] NodeStyleImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W16 f; W16 r;} W32;
typedef struct {W32 f; W32 r;} W64;
typedef struct {W64 f; W64 r;} W128;
typedef struct {W128 f; W128 r;} W256;
typedef W256 *W256Pt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {word f0, f1;} W2;
typedef struct {W8 f; W2 r;} W10;
typedef W2 *W2Pt;
#define SOURCE(p, l) /* source p, l */
static float fc13 = 0.0;
static float fc14 = 2147483647.0;
static float fc15 = -2147483648.0;
static float fc16 = 12.0;
static float fc17 = 1.0;
static float fc19 = 0.0138370;
static float fc22 = 2.540;
static float fc25 = 10.0;
static float fc28 = 26.60;
static float fc30 = 10000.0;
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
#define SGNCK(i) ((int) (word) (i) < 0 ? XR←RaiseArithmeticFault(): i )
static void NoName←Q2232();
static void NodeStyleImpl←P0();
static word GetReal←P60();
static word GetInt←P120();
static word GetRealOverflow←P180();
static word GetIntOverflow←P240();
static word IntegerValue←P300();
static word EnterReal←P360();
static word NoName←Q2292();
static void SetReal←P420();
static word NoName←Q2352();
static word GetTabLoc←P480();
static word GetTabLocI←P540();
static word GetTabLeaderSpacing←P600();
static word GetTabLeaderSpacingI←P660();
static word GetTabRuleWeight←P720();
static word GetTabRuleWeightI←P780();
static word GetTabRuleVShift←P840();
static word GetTabRuleVShiftI←P900();
static word GetTabRealCode←P960();
static word NoName←Q2412();
static word GetRulesTabCount←P1020();
static void GetRulesTabInfo←P1080();
static void GetRulesTabInfoI←P1140();
static word GetTabOverflow←P1200();
static word GetTabIntOverflow←P1260();
static word ConsDataListObject←P1320();
static void Update←P1980();
static word ConsDataListReal←P1380();
static word ConsDataListTab←P1440();
static void NoName←Q2472();
static void NoName←Q2532();
static void NoName←Q2592();
static struct {unsigned f; char r[8];} string1 = {458760, "\205\210\242\000@\377\256"};
static struct {unsigned f; char r[8];} string2 = {458760, "\205\210\242\000@\377\242"};
static struct {unsigned f; char r[48];} string3 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\167\317\044\003\300\277\140\004\026\100\274\005\004\162\145\163\164\214\216\257\300\167\317\044\003\300\277\140\004\026\100\274\261\000\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\004\003\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\167\317\044\003\300\277\140\004\026\100\274\000\000"};
static struct {unsigned f; char r[12];} string6 = {589833, "\007\040\040\003\004\015\001\004\005\000\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\330\310\330\012\300\325\155\153\050\100\164\000\000"};
static struct {unsigned f; char r[12];} string8 = {589833, "\006\003\040\001\044\001\100\134\001\000\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\246\205\220\035\300\344\000\142\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\242\221\264\046\300\105\142\142\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\150\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\167\317\044\003\300\277\140\004\026\100\150\000\000"};
static struct {
word f0[38]; 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;
word f61; word f62; word f63; word f64;
word f65; word f66; word f67; word f68;
word f69; word f70; word f71; word f72;
word f73; word f74; word f75; word f76;
word f77; word f78; word f79; word f80;
word f81; word f82; word f83; word f84;
word f85; word f86; word f87[5];
} globalframe = {
{0}, (word) ConsDataListTab←P1440, 0, (word) ConsDataListReal←P1380,
0, (word) ConsDataListObject←P1320, 0, (word) GetTabIntOverflow←P1260,
0, (word) GetTabOverflow←P1200, 0, (word) GetRulesTabInfoI←P1140,
0, (word) GetRulesTabInfo←P1080, 0, (word) GetRulesTabCount←P1020,
0, (word) GetTabRealCode←P960, 0, (word) GetTabRuleVShiftI←P900,
0, (word) GetTabRuleVShift←P840, 0, (word) GetTabRuleWeightI←P780,
0, (word) GetTabRuleWeight←P720, 0, (word) GetTabLeaderSpacingI←P660,
0, (word) GetTabLeaderSpacing←P600, 0, (word) GetTabLocI←P540,
0, (word) GetTabLoc←P480, 0, (word) SetReal←P420,
0, (word) EnterReal←P360, 0, (word) IntegerValue←P300,
0, (word) GetIntOverflow←P240, 0, (word) GetRealOverflow←P180,
0, (word) GetInt←P120, 0, (word) GetReal←P60,
0, (word) NodeStyleImpl←P0, {0}
};
static void NoName←Q2232()
{
register ptr gf←c0210 = (ptr) &globalframe;
word var←c15128;
(* (( (ptr) gf←c0210)+29) ) = (word) XR←GetTypeIndexS((word) (&string1));
(* (( (ptr) gf←c0210)+30) ) = (word) XR←GetTypeIndexS((word) (&string2));
(* (( (ptr) gf←c0210)+32) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (( (ptr) gf←c0210)+33) ) = (word) XR←GetTypeIndex((word) &string5, 0, (word) &string6);
(void) XR←DeclareGlobalFrame((word) "NodeStyleImpl", &globalframe, (word) XR←GetTypeIndex((word) &string7, 0, (word) &string8)
, (word) (( (bPt) gf←c0210)+344)/* var←c13752 */ );
var←c15128 = (word) XR←ImportInterface((word) "Real", (word) XR←GetTypeIndexS((word) (&string9)), 11);
(* (( (ptr) gf←c0210)+89)/* var←c14040 */ ) = var←c15128;
(void) XR←ImportProcS(var←c15128, 67371521);
var←c15128 = (word) XR←ImportInterface((word) "RefTab", (word) XR←GetTypeIndexS((word) (&string10)), 16);
(* (( (ptr) gf←c0210)+88)/* var←c13816 */ ) = var←c15128;
(void) XR←ImportProcS(var←c15128, 788995);
(void) XR←ImportProcS(var←c15128, 67895555);
var←c15128 = (word) XR←ImportInterface((word) "TJaM", (word) XR←GetTypeIndexS((word) (&string11)), 101);
(* (( (ptr) gf←c0210)+90)/* var←c14776 */ ) = var←c15128;
(void) XR←ImportProcS(var←c15128, 67633410);
var←c15128 = (word) XR←ExportInterface((word) "NodeStyle", (word) XR←GetTypeIndexS((word) (&string12)), 41);
(* (( (ptr) gf←c0210)+91)/* var←c15160 */ ) = var←c15128;
(void) XR←ExportVar(var←c15128, 0, (word) (( (bPt) gf←c0210)+56)/* PointsPerPica←v3392 */ );
(void) XR←ExportVar(var←c15128, 1, (word) (( (bPt) gf←c0210)+60)/* PointsPerInch←v3420 */ );
(void) XR←ExportVar(var←c15128, 2, (word) (( (bPt) gf←c0210)+64)/* PointsPerCentimeter←v3448 */ );
(void) XR←ExportVar(var←c15128, 3, (word) (( (bPt) gf←c0210)+68)/* PointsPerMillimeter←v3476 */ );
(void) XR←ExportVar(var←c15128, 4, (word) (( (bPt) gf←c0210)+72)/* PointsPerDidot←v3504 */ );
(void) XR←ExportVar(var←c15128, 5, (word) (( (bPt) gf←c0210)+76)/* PointsPerFil←v3532 */ );
(void) XR←ExportVar(var←c15128, 6, (word) (( (bPt) gf←c0210)+80)/* PointsPerFill←v3560 */ );
(void) XR←ExportVar(var←c15128, 7, (word) (( (bPt) gf←c0210)+84)/* PointsPerFilll←v3588 */ );
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+336)/* var←c13720 */ , 67635202, (word) "GetReal");
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+328)/* var←c13688 */ , 67635458, (word) "GetInt");
(void) XR←ExportVar(var←c15128, 10, (word) (( (bPt) gf←c0210)+32)/* realArray←v2720 */ );
(void) XR←ExportVar(var←c15128, 11, (word) (( (bPt) gf←c0210)+36)/* intArray←v2748 */ );
(void) XR←ExportVar(var←c15128, 12, (word) (( (bPt) gf←c0210)+148)/* var←c12952 */ );
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+304)/* var←c13592 */ , 67374337, (word) "IntegerValue");
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+296)/* var←c13560 */ , 67374593, (word) "EnterReal");
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+288)/* var←c13528 */ , 790275, (word) "SetReal");
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+280)/* var←c13496 */ , 67639554, (word) "GetTabLoc");
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+272)/* var←c13464 */ , 67639810, (word) "GetTabLocI");
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+264)/* var←c13432 */ , 67640066, (word) "GetTabLeaderSpacing")
;
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+256)/* var←c13400 */ , 67640322, (word) "GetTabLeaderSpacingI")
;
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+248)/* var←c13368 */ , 67640578, (word) "GetTabRuleWeight");
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+240)/* var←c13336 */ , 67640834, (word) "GetTabRuleWeightI");
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+232)/* var←c13304 */ , 67641090, (word) "GetTabRuleVShift");
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+224)/* var←c13272 */ , 67641346, (word) "GetTabRuleVShiftI");
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+216)/* var←c13240 */ , 68165892, (word) "GetTabRealCode");
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+208)/* var←c13208 */ , 67379713, (word) "GetRulesTabCount");
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+200)/* var←c13176 */ , 134750978, (word) "GetRulesTabInfo");
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+192)/* var←c13144 */ , 134751234, (word) "GetRulesTabInfoI");
(void) XR←ExportProcS(var←c15128, (word) (( (bPt) gf←c0210)+168)/* var←c13048 */ , 67905539, (word) "ConsDataListObject")
;
}
static void NodeStyleImpl←P0(formal←c057, formal←c055)
word formal←c057;
word formal←c055;
{
register ptr gf←c15192 = (ptr) &globalframe;
/* NodeStyleImpl: */
SOURCE(253, 7925)
SOURCE(1541, 84)
{
word var←c13784;
var←c13784 = XR←NewObject(1024, (* (( (ptr) gf←c15192)+29) ));
XR←FillWords(&(* (W256Pt) (var←c13784)), 256, (* (ptr) &fc13 ));
(* (( (ptr) gf←c15192)+8)/* realArray←v2720 */ ) = var←c13784;
};
SOURCE(1627, 79)
(* (( (ptr) gf←c15192)+9)/* intArray←v2748 */ ) = XR←NewObject(1024, (* (( (ptr) gf←c15192)+30) ));
SOURCE(1708, 30)
(* (( (ptr) gf←c15192)+10)/* nextFreeRealCode←v2776 */ ) = 1;
SOURCE(2020, 39)
(* (( (ptr) gf←c15192)+12)/* lastIntegerAsReal←v2888 */ ) = (* (ptr) &fc14 );
SOURCE(2061, 41)
(* (( (ptr) gf←c15192)+13)/* firstIntegerAsReal←v2916 */ ) = (* (ptr) &fc15 );
SOURCE(6022, 33)
(* (( (ptr) gf←c15192)+14)/* PointsPerPica←v3392 */ ) = (* (ptr) &fc16 );
SOURCE(6057, 42)
{
word x18;
word x20;
*(float*)(( (ptr) gf←c15192)+15)/* PointsPerInch←v3420 */ = (
x18 = (* (ptr) &fc17 ), *(float*)&x18
) / (
x20 = (* (ptr) &fc19 ), *(float*)&x20
);
};
SOURCE(6110, 54)
{
word x21;
word x23;
*(float*)(( (ptr) gf←c15192)+16)/* PointsPerCentimeter←v3448 */ = (
x21 = (* (( (ptr) gf←c15192)+15)/* PointsPerInch←v3420 */ ), *(float*)&x21
) / (
x23 = (* (ptr) &fc22 ), *(float*)&x23
);
};
SOURCE(6166, 57)
{
word x24;
word x26;
*(float*)(( (ptr) gf←c15192)+17)/* PointsPerMillimeter←v3476 */ = (
x24 = (* (( (ptr) gf←c15192)+16)/* PointsPerCentimeter←v3448 */ ), *(float*)&x24
) / (
x26 = (* (ptr) &fc25 ), *(float*)&x26
);
};
SOURCE(6225, 55)
{
word x27;
word x29;
*(float*)(( (ptr) gf←c15192)+18)/* PointsPerDidot←v3504 */ = (
x27 = (* (( (ptr) gf←c15192)+16)/* PointsPerCentimeter←v3448 */ ), *(float*)&x27
) / (
x29 = (* (ptr) &fc28 ), *(float*)&x29
);
};
SOURCE(6282, 35)
(* (( (ptr) gf←c15192)+19)/* PointsPerFil←v3532 */ ) = (* (ptr) &fc30 );
SOURCE(6319, 54)
{
word x31;
word x32;
*(float*)(( (ptr) gf←c15192)+20)/* PointsPerFill←v3560 */ = (
x31 = (* (( (ptr) gf←c15192)+19)/* PointsPerFil←v3532 */ ), *(float*)&x31
) * (
x32 = (* (( (ptr) gf←c15192)+19)/* PointsPerFil←v3532 */ ), *(float*)&x32
);
};
SOURCE(6375, 56)
{
word x33;
word x34;
*(float*)(( (ptr) gf←c15192)+21)/* PointsPerFilll←v3588 */ = (
x33 = (* (( (ptr) gf←c15192)+20)/* PointsPerFill←v3560 */ ), *(float*)&x33
) * (
x34 = (* (( (ptr) gf←c15192)+19)/* PointsPerFil←v3532 */ ), *(float*)&x34
);
};
SOURCE(6434, 34)
(* (( (ptr) gf←c15192)+22)/* canonicalizeDataLists←v3616 */ ) = 1;
SOURCE(6470, 43)
{
word pd35;
pd35 = (* (( (ptr) (* (( (ptr) gf←c15192)+88)/* var←c13816 */ ))+5) );
(* (( (ptr) gf←c15192)+23)/* dataListTable←v3644 */ ) = (word) ( *( (fPt) ((* (ptr) pd35 ))))(17, 0, 0, pd35);
};
}
static word GetReal←P60(ref←v3836, param←v3864)
word ref←v3836;
word param←v3864;
{
register ptr gf←c15224 = (ptr) &globalframe;
word value←v3908;
word code←v7428 = 0;
/* GetReal: */
SOURCE(351, 203)
SOURCE(351, 203)
value←v3908 = (* (ptr) &fc13 );
SOURCE(449, 68)
code←v7428 = (unsigned) (word) (* ((( (bPt) ref←v3836)+64)+param←v3864) );
if ((code←v7428 != 255)) {
SOURCE(493, 24)
return((* (( (ptr) (* (( (ptr) gf←c15224)+8)/* realArray←v2720 */ ))+code←v7428) ));
};
SOURCE(519, 35)
return((word) GetRealOverflow←P180(ref←v3836, param←v3864));
}
static word GetInt←P120(ref←v3968, param←v3996)
word ref←v3968;
word param←v3996;
{
register ptr gf←c15256 = (ptr) &globalframe;
word value←v4040;
word code←v7472 = 0;
/* GetInt: */
SOURCE(560, 197)
SOURCE(654, 67)
code←v7472 = (unsigned) (word) (* ((( (bPt) ref←v3968)+64)+param←v3996) );
if ((code←v7472 != 255)) {
SOURCE(698, 23)
return((* (( (ptr) (* (( (ptr) gf←c15256)+9)/* intArray←v2748 */ ))+code←v7472) ));
};
SOURCE(723, 34)
return((word) GetIntOverflow←P240(ref←v3968, param←v3996));
}
static word GetRealOverflow←P180(ref←v4100, param←v4128)
word ref←v4100;
word param←v4128;
{
register ptr gf←c15288 = (ptr) &globalframe;
word value←v4172;
word code←v7516;
/* GetRealOverflow: */
SOURCE(763, 311)
SOURCE(763, 311)
value←v4172 = (* (ptr) &fc13 );
SOURCE(846, 32)
code←v7516 = (unsigned) (word) (* ((( (bPt) ref←v4100)+64)+param←v4128) );
SOURCE(880, 48)
if ((code←v7516 != 255)) {
SOURCE(904, 24)
return((* (( (ptr) (* (( (ptr) gf←c15288)+8)/* realArray←v2720 */ ))+code←v7516) ));
};
SOURCE(930, 144)
{
register word x←v7560;
x←v7560 = (* (( (ptr) ref←v4100)+36) );
lab←L100003: ;
if ((x←v7560 != 0)) {
}
else {
goto lab←L100000;
};
SOURCE(984, 90)
{
word var←c13912;
var←c13912 = x←v7560;
if ((var←c13912 == 0)) {
goto lab←L100004;
};
if (((* (( (ptr) var←c13912)+1) ) == 1)) {
{
word xx←v7604;
xx←v7604 = var←c13912;
SOURCE(1031, 43)
if (((* (( (ptr) xx←v7604)+2) ) == param←v4128)) {
SOURCE(1056, 18)
return((* (( (ptr) xx←v7604)+3) ));
};
};
}
else {
lab←L100004: ;
};
};
x←v7560 = (* (ptr) x←v7560 );
goto lab←L100003;
lab←L100000: ;
};
SOURCE(1103, 47)
(void) XR←RaiseUnnamedError();
}
static word GetIntOverflow←P240(ref←v4232, param←v4260)
word ref←v4232;
word param←v4260;
{
register ptr gf←c15320 = (ptr) &globalframe;
word value←v4304;
word code←v7660;
/* GetIntOverflow: */
SOURCE(1154, 307)
SOURCE(1233, 32)
code←v7660 = (unsigned) (word) (* ((( (bPt) ref←v4232)+64)+param←v4260) );
SOURCE(1267, 47)
if ((code←v7660 != 255)) {
SOURCE(1291, 23)
return((* (( (ptr) (* (( (ptr) gf←c15320)+9)/* intArray←v2748 */ ))+code←v7660) ));
};
SOURCE(1316, 145)
{
register word x←v7704;
x←v7704 = (* (( (ptr) ref←v4232)+36) );
lab←L100008: ;
if ((x←v7704 != 0)) {
}
else {
goto lab←L100005;
};
SOURCE(1370, 91)
{
word var←c13944;
var←c13944 = x←v7704;
if ((var←c13944 == 0)) {
goto lab←L100009;
};
if (((* (( (ptr) var←c13944)+1) ) == 1)) {
{
word xx←v7748;
xx←v7748 = var←c13944;
SOURCE(1417, 44)
if (((* (( (ptr) xx←v7748)+2) ) == param←v4260)) {
SOURCE(1442, 19)
return((* (( (ptr) xx←v7748)+4) ));
};
};
}
else {
lab←L100009: ;
};
};
x←v7704 = (* (ptr) x←v7704 );
goto lab←L100008;
lab←L100005: ;
};
SOURCE(1490, 47)
(void) XR←RaiseUnnamedError();
}
static word IntegerValue←P300(value←v4468)
word value←v4468;
{
register ptr gf←c15352 = (ptr) &globalframe;
word var←c4512;
/* IntegerValue: */
SOURCE(1805, 210)
SOURCE(1873, 142)
{
word var←c14008;
var←c14008 = value←v4468;
{
word x36;
word x37;
word x38;
word x39;
word pd40;
if (((
x36 = var←c14008, *(float*)&x36
) > (
x37 = (* (( (ptr) gf←c15352)+12)/* lastIntegerAsReal←v2888 */ ), *(float*)&x37
))) {
return(2147483647);
}
else {
if (((
x38 = var←c14008, *(float*)&x38
) < (
x39 = (* (( (ptr) gf←c15352)+13)/* firstIntegerAsReal←v2916 */ ), *(float*)&x39
))) {
return(2147483648);
}
else {
pd40 = (* (( (ptr) (* (( (ptr) gf←c15352)+89)/* var←c14040 */ ))+6) );
return((word) ( *( (fPt) ((* (ptr) pd40 ))))(value←v4468, pd40));
};
};
};
};
}
static word EnterReal←P360(formal←c0253)
word formal←c0253;
{
W6 var←c15384;
/* declaration of value←v4572 skipped */
register ptr gf←c15416 = (ptr) &globalframe;
/* declaration of code←v4616 skipped */
var←c15384.f4/* value←v4572 */ = formal←c0253;
/* EnterReal: */
SOURCE(2104, 557)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c15416)+16)/* LOCK←v2580 */ ));
SOURCE(2104, 557)
var←c15384.f5/* code←v4616 */ = 0;
SOURCE(2182, 479)
{
word var←c0238;
var←c0238 = (word) &var←c15384;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q2292) ), ( ((word) (fPt) NoName←Q2592) ), var←c0238);
};
SOURCE(2104, 557)
(void) (XR←MonitorExit((word) (( (bPt) gf←c15416)+16)/* LOCK←v2580 */ ));
return(var←c15384.f5/* code←v4616 */ );
}
static word NoName←Q2292(formal←c0219)
word formal←c0219;
{
register ptr gf←c0218 = (ptr) &globalframe;
SOURCE(2205, 23)
(* (( (ptr) formal←c0219)+5) ) = (* (( (ptr) gf←c0218)+10)/* nextFreeRealCode←v2776 */ );
SOURCE(2230, 95)
{
register word c←v7804 = 0;
register word noName←c14072;
noName←c14072 = (* (( (ptr) gf←c0218)+10)/* nextFreeRealCode←v2776 */ );
if (( (int)c←v7804 >= (int)noName←c14072)) {
goto lab←L100012;
};
lab←L100015: ;
SOURCE(2288, 37)
{
word x41;
word x42;
if (((
x41 = (* (( (ptr) (* (( (ptr) gf←c0218)+8)/* realArray←v2720 */ ))+c←v7804) ), *(float*)&x41
) == (
x42 = (* (( (ptr) formal←c0219)+4) ), *(float*)&x42
))) {
SOURCE(2317, 8)
(* (( (ptr) formal←c0219)+5) ) = c←v7804;
SOURCE(2327, 5)
goto lab←L100013;
};
};
c←v7804 = (c←v7804 + 1);
if ((c←v7804 < noName←c14072)) {
goto lab←L100015;
};
lab←L100012: ;
lab←L100013: ;
};
SOURCE(2344, 317)
{
word var←c14104;
var←c14104 = (* (( (ptr) formal←c0219)+5) );
if ((var←c14104 < (* (( (ptr) gf←c0218)+10)/* nextFreeRealCode←v2776 */ ))) {
goto endif043;
};
if ((var←c14104 == 255)) {
SOURCE(2454, 31)
(* (( (ptr) gf←c0218)+11)/* overflowCount←v2804 */ ) = ((* (( (ptr) gf←c0218)+11)/* overflowCount←v2804 */ ) + 1);
SOURCE(2487, 23)
(void) XR←RaiseError((word) (( (bPt) gf←c0218)+148)/* var←c12952 */ , 0);
goto endif043;
};
if ((var←c14104 == (* (( (ptr) gf←c0218)+10)/* nextFreeRealCode←v2776 */ ))) {
SOURCE(2561, 37)
{
word idx44;
(* (( (ptr) gf←c0218)+10)/* nextFreeRealCode←v2776 */ ) = (
idx44 = (word) ((* (( (ptr) gf←c0218)+10)/* nextFreeRealCode←v2776 */ ) + 1),
BCK(idx44, 256)
);
};
SOURCE(2600, 23)
(* (( (ptr) (* (( (ptr) gf←c0218)+8)/* realArray←v2720 */ ))+(* (( (ptr) formal←c0219)+5) )) ) = (* (( (ptr) formal←c0219)+4)
);
SOURCE(2625, 36)
{
word var←c14136;
var←c14136 = (word) IntegerValue←P300((* ((( (ptr) formal←c0219)+4)) ));
(* (( (ptr) (* (( (ptr) gf←c0218)+9)/* intArray←v2748 */ ))+(* (( (ptr) formal←c0219)+5) )) ) = var←c14136;
};
goto endif043;
};
SOURCE(2677, 5)
(void) XR←RaiseUnnamedError();
goto endif043;
endif043: ;
};
return(0);
}
static void SetReal←P420(formal←c0254, formal←c0255, formal←c0256)
word formal←c0254;
word formal←c0255;
word formal←c0256;
{
W8 var←c15448;
/* declaration of ref←v4676 skipped */
/* declaration of param←v4704 skipped */
/* declaration of value←v4732 skipped */
var←c15448.f4/* ref←v4676 */ = formal←c0254;
var←c15448.f5/* param←v4704 */ = formal←c0255;
var←c15448.f6/* value←v4732 */ = formal←c0256;
/* SetReal: */
SOURCE(2688, 219)
SOURCE(2761, 146)
SOURCE(2761, 146)
{
word var←c14168;
{
/* declaration of var←c01 skipped */
{
word var←c02;
{
word var←c0239;
var←c0239 = (word) &var←c15448;
var←c02 = (word) XR←Enable(( ((word) (fPt) NoName←Q2352) ), ( ((word) (fPt) NoName←Q2532) ), var←c0239);
};
if ((var←c02 == 2)) {
goto lab←L100017;
};
};
var←c14168 = var←c15448.f7/* var←c01 */ ;
};
(* ((( (bPt) var←c15448.f4/* ref←v4676 */ )+64)+var←c15448.f5/* param←v4704 */ ) ) = var←c14168;
};
lab←L100017: ;
}
static word NoName←Q2352(formal←c0220)
word formal←c0220;
{
SOURCE(2761, 146)
(* (( (ptr) formal←c0220)+7) ) = (word) EnterReal←P360((* ((( (ptr) formal←c0220)+6)) ));
return(0);
}
static word GetTabLoc←P480(stop←v4792, s←v4820)
word stop←v4792;
word s←v4820;
{
register ptr gf←c15480 = (ptr) &globalframe;
word var←c4864;
word code←v7848 = 0;
/* GetTabLoc: */
SOURCE(2926, 185)
SOURCE(2926, 185)
var←c4864 = (* (ptr) &fc13 );
SOURCE(3013, 61)
code←v7848 = (* (( (ptr) stop←v4792)+1) );
if ((code←v7848 != 255)) {
SOURCE(3050, 24)
return((* (( (ptr) (* (( (ptr) gf←c15480)+8)/* realArray←v2720 */ ))+code←v7848) ));
};
SOURCE(3076, 35)
return((word) GetTabOverflow←P1200(s←v4820, stop←v4792, 0));
}
static word GetTabLocI←P540(stop←v4924, s←v4952)
word stop←v4924;
word s←v4952;
{
register ptr gf←c15512 = (ptr) &globalframe;
word var←c4996;
word code←v7892 = 0;
/* GetTabLocI: */
SOURCE(3117, 185)
SOURCE(3202, 60)
code←v7892 = (* (( (ptr) stop←v4924)+1) );
if ((code←v7892 != 255)) {
SOURCE(3239, 23)
return((* (( (ptr) (* (( (ptr) gf←c15512)+9)/* intArray←v2748 */ ))+code←v7892) ));
};
SOURCE(3264, 38)
return((word) GetTabIntOverflow←P1260(s←v4952, stop←v4924, 0));
}
static word GetTabLeaderSpacing←P600(stop←v5056, s←v5084)
word stop←v5056;
word s←v5084;
{
register ptr gf←c15544 = (ptr) &globalframe;
word var←c5128;
word code←v7936 = 0;
/* GetTabLeaderSpacing: */
SOURCE(3308, 209)
SOURCE(3308, 209)
var←c5128 = (* (ptr) &fc13 );
SOURCE(3411, 65)
code←v7936 = (* (( (ptr) stop←v5056)+8) );
if ((code←v7936 != 255)) {
SOURCE(3452, 24)
return((* (( (ptr) (* (( (ptr) gf←c15544)+8)/* realArray←v2720 */ ))+code←v7936) ));
};
SOURCE(3478, 39)
return((word) GetTabOverflow←P1200(s←v5084, stop←v5056, 1));
}
static word GetTabLeaderSpacingI←P660(stop←v5188, s←v5216)
word stop←v5188;
word s←v5216;
{
register ptr gf←c15576 = (ptr) &globalframe;
word var←c5260;
word code←v7980 = 0;
/* GetTabLeaderSpacingI: */
SOURCE(3522, 209)
SOURCE(3623, 64)
code←v7980 = (* (( (ptr) stop←v5188)+8) );
if ((code←v7980 != 255)) {
SOURCE(3664, 23)
return((* (( (ptr) (* (( (ptr) gf←c15576)+9)/* intArray←v2748 */ ))+code←v7980) ));
};
SOURCE(3689, 42)
return((word) GetTabIntOverflow←P1260(s←v5216, stop←v5188, 1));
}
static word GetTabRuleWeight←P720(stop←v5320, s←v5348)
word stop←v5320;
word s←v5348;
{
register ptr gf←c15608 = (ptr) &globalframe;
word var←c5392;
word code←v8024 = 0;
/* GetTabRuleWeight: */
SOURCE(3736, 202)
SOURCE(3736, 202)
var←c5392 = (* (ptr) &fc13 );
SOURCE(3834, 64)
code←v8024 = (* (( (ptr) stop←v5320)+6) );
if ((code←v8024 != 255)) {
SOURCE(3874, 24)
return((* (( (ptr) (* (( (ptr) gf←c15608)+8)/* realArray←v2720 */ ))+code←v8024) ));
};
SOURCE(3900, 38)
return((word) GetTabOverflow←P1200(s←v5348, stop←v5320, 2));
}
static word GetTabRuleWeightI←P780(stop←v5452, s←v5480)
word stop←v5452;
word s←v5480;
{
register ptr gf←c15640 = (ptr) &globalframe;
word var←c5524;
word code←v8068 = 0;
/* GetTabRuleWeightI: */
SOURCE(3943, 202)
SOURCE(4039, 63)
code←v8068 = (* (( (ptr) stop←v5452)+6) );
if ((code←v8068 != 255)) {
SOURCE(4079, 23)
return((* (( (ptr) (* (( (ptr) gf←c15640)+9)/* intArray←v2748 */ ))+code←v8068) ));
};
SOURCE(4104, 41)
return((word) GetTabIntOverflow←P1260(s←v5480, stop←v5452, 2));
}
static word GetTabRuleVShift←P840(stop←v5584, s←v5612)
word stop←v5584;
word s←v5612;
{
register ptr gf←c15672 = (ptr) &globalframe;
word var←c5656;
word code←v8112 = 0;
/* GetTabRuleVShift: */
SOURCE(4150, 202)
SOURCE(4150, 202)
var←c5656 = (* (ptr) &fc13 );
SOURCE(4248, 64)
code←v8112 = (* (( (ptr) stop←v5584)+7) );
if ((code←v8112 != 255)) {
SOURCE(4288, 24)
return((* (( (ptr) (* (( (ptr) gf←c15672)+8)/* realArray←v2720 */ ))+code←v8112) ));
};
SOURCE(4314, 38)
return((word) GetTabOverflow←P1200(s←v5612, stop←v5584, 3));
}
static word GetTabRuleVShiftI←P900(stop←v5716, s←v5744)
word stop←v5716;
word s←v5744;
{
register ptr gf←c15704 = (ptr) &globalframe;
word var←c5788;
word code←v8156 = 0;
/* GetTabRuleVShiftI: */
SOURCE(4357, 202)
SOURCE(4453, 63)
code←v8156 = (* (( (ptr) stop←v5716)+7) );
if ((code←v8156 != 255)) {
SOURCE(4493, 23)
return((* (( (ptr) (* (( (ptr) gf←c15704)+9)/* intArray←v2748 */ ))+code←v8156) ));
};
SOURCE(4518, 41)
return((word) GetTabIntOverflow←P1260(s←v5744, stop←v5716, 3));
}
static word GetTabRealCode←P960(formal←c0257, formal←c0258, formal←c0259, formal←c0260)
word formal←c0257;
word formal←c0258;
word formal←c0259;
word formal←c0260;
{
W10 var←c15736;
/* declaration of ref←v5848 skipped */
/* declaration of stop←v5876 skipped */
/* declaration of which←v5904 skipped */
/* declaration of value←v5932 skipped */
/* declaration of code←v5976 skipped */
(* (( (ptr) &var←c15736)+4)/* ref←v5848 */ ) = formal←c0257;
(* (( (ptr) &var←c15736)+5)/* stop←v5876 */ ) = formal←c0258;
(* (( (ptr) &var←c15736)+6)/* which←v5904 */ ) = formal←c0259;
(* (( (ptr) &var←c15736)+7)/* value←v5932 */ ) = formal←c0260;
/* GetTabRealCode: */
SOURCE(4564, 252)
SOURCE(4564, 252)
(* (( (ptr) &var←c15736)+8)/* code←v5976 */ ) = 0;
SOURCE(4687, 129)
SOURCE(4687, 129)
{
/* declaration of var←c03 skipped */
{
word var←c04;
{
word var←c0240;
var←c0240 = (word) &var←c15736;
var←c04 = (word) XR←Enable(( ((word) (fPt) NoName←Q2412) ), ( ((word) (fPt) NoName←Q2472) ), var←c0240);
};
if ((var←c04 == 3)) {
goto lab←L100021;
};
};
(* (( (ptr) &var←c15736)+8)/* code←v5976 */ ) = (* (( (ptr) &var←c15736)+9)/* var←c03 */ );
};
lab←L100021: ;
SOURCE(4564, 252)
return((* (( (ptr) &var←c15736)+8)/* code←v5976 */ ));
}
static word NoName←Q2412(formal←c0229)
word formal←c0229;
{
SOURCE(4687, 129)
(* (( (ptr) formal←c0229)+9) ) = (word) EnterReal←P360((* ((( (ptr) formal←c0229)+7)) ));
return(0);
}
static word GetRulesTabCount←P1020(stop←v6036)
word stop←v6036;
{
word count←v6080;
/* GetRulesTabCount: */
SOURCE(4835, 106)
SOURCE(4915, 26)
{
word idx45;
return((
idx45 = (* (ptr) (* (( (ptr) stop←v6036)+6) ) ),
SGNCK(idx45)
));
};
}
static void GetRulesTabInfo←P1080(formal←c0138, stop←v6140, num←v6168)
word formal←c0138;
word stop←v6140;
word num←v6168;
{
word weight←v6212;
word vshift←v6240;
/* GetRulesTabInfo: */
SOURCE(4947, 176)
SOURCE(5046, 37)
{
word var←c14520;
word var←c0241;
{
word limit46;
var←c14520 = (* (( (ptr) stop←v6140)+6) );
var←c0241 = (* (( (W2Pt) (( (ptr) var←c14520)+1))+(
limit46 = (* (ptr) var←c14520 ),
BCK(num←v6168, limit46)
)) ).f0;
};
{
float tf47;
weight←v6212 = (
tf47 = (float)(unsigned)var←c0241, *(word*)&tf47
);
};
};
SOURCE(5085, 38)
{
word var←c14552;
word var←c0242;
{
word limit48;
var←c14552 = (* (( (ptr) stop←v6140)+6) );
var←c0242 = (* (( (W2Pt) (( (ptr) var←c14552)+1))+(
limit48 = (* (ptr) var←c14552 ),
BCK(num←v6168, limit48)
)) ).f1;
};
{
float tf49;
vshift←v6240 = (
tf49 = (float)(unsigned)var←c0242, *(word*)&tf49
);
};
};
/* removed tail goto */
(* (ptr) formal←c0138 ) = weight←v6212;
(* (( (ptr) formal←c0138)+1) ) = vshift←v6240;
return;
}
static void GetRulesTabInfoI←P1140(formal←c0145, stop←v6300, num←v6328)
word formal←c0145;
word stop←v6300;
word num←v6328;
{
word weight←v6372;
word vshift←v6400;
/* GetRulesTabInfoI: */
SOURCE(5127, 208)
SOURCE(5230, 51)
{
word var←c14584;
word var←c0243;
{
word limit50;
var←c14584 = (* (( (ptr) stop←v6300)+6) );
var←c0243 = (* (( (W2Pt) (( (ptr) var←c14584)+1))+(
limit50 = (* (ptr) var←c14584 ),
BCK(num←v6328, limit50)
)) ).f0;
};
{
float tf51;
weight←v6372 = (word) IntegerValue←P300((
tf51 = (float)(unsigned)var←c0243, *(word*)&tf51
));
};
};
SOURCE(5283, 52)
{
word var←c14616;
word var←c0244;
{
word limit52;
var←c14616 = (* (( (ptr) stop←v6300)+6) );
var←c0244 = (* (( (W2Pt) (( (ptr) var←c14616)+1))+(
limit52 = (* (ptr) var←c14616 ),
BCK(num←v6328, limit52)
)) ).f1;
};
{
float tf53;
vshift←v6400 = (word) IntegerValue←P300((
tf53 = (float)(unsigned)var←c0244, *(word*)&tf53
));
};
};
/* removed tail goto */
(* (ptr) formal←c0145 ) = weight←v6372;
(* (( (ptr) formal←c0145)+1) ) = vshift←v6400;
return;
}
static word GetTabOverflow←P1200(ref←v6460, stop←v6488, which←v6516)
word ref←v6460;
word stop←v6488;
word which←v6516;
{
word value←v6560;
/* GetTabOverflow: */
SOURCE(5339, 261)
SOURCE(5339, 261)
value←v6560 = (* (ptr) &fc13 );
SOURCE(5439, 161)
{
register word x←v8200;
x←v8200 = (* (( (ptr) ref←v6460)+36) );
lab←L100029: ;
if ((x←v8200 != 0)) {
}
else {
goto lab←L100026;
};
SOURCE(5493, 107)
{
word var←c14648;
var←c14648 = x←v8200;
if ((var←c14648 == 0)) {
goto lab←L100030;
};
if (((* (( (ptr) var←c14648)+1) ) == 2)) {
{
word xx←v8244;
xx←v8244 = var←c14648;
SOURCE(5539, 61)
if ( ( ((* (( (ptr) xx←v8244)+2) ) == stop←v6488) ? ((* (( (ptr) xx←v8244)+3) ) == which←v6516) : 0 ) ) {
SOURCE(5582, 18)
return((* (( (ptr) xx←v8244)+4) ));
};
};
}
else {
lab←L100030: ;
};
};
x←v8200 = (* (ptr) x←v8200 );
goto lab←L100029;
lab←L100026: ;
};
SOURCE(5629, 47)
(void) XR←RaiseUnnamedError();
}
static word GetTabIntOverflow←P1260(ref←v6620, stop←v6648, which←v6676)
word ref←v6620;
word stop←v6648;
word which←v6676;
{
word value←v6720;
/* GetTabIntOverflow: */
SOURCE(5680, 262)
SOURCE(5780, 162)
{
register word x←v8300;
x←v8300 = (* (( (ptr) ref←v6620)+36) );
lab←L100034: ;
if ((x←v8300 != 0)) {
}
else {
goto lab←L100031;
};
SOURCE(5834, 108)
{
word var←c14680;
var←c14680 = x←v8300;
if ((var←c14680 == 0)) {
goto lab←L100035;
};
if (((* (( (ptr) var←c14680)+1) ) == 2)) {
{
word xx←v8344;
xx←v8344 = var←c14680;
SOURCE(5880, 62)
if ( ( ((* (( (ptr) xx←v8344)+2) ) == stop←v6648) ? ((* (( (ptr) xx←v8344)+3) ) == which←v6676) : 0 ) ) {
SOURCE(5923, 19)
return((* (( (ptr) xx←v8344)+5) ));
};
};
}
else {
lab←L100035: ;
};
};
x←v8300 = (* (ptr) x←v8300 );
goto lab←L100034;
lab←L100031: ;
};
SOURCE(5971, 47)
(void) XR←RaiseUnnamedError();
}
static word ConsDataListObject←P1320(formal←c0261, formal←c0262, formal←c0263)
word formal←c0261;
word formal←c0262;
word formal←c0263;
{
W10 var←c15768;
/* declaration of name←v6936 skipped */
/* declaration of object←v6964 skipped */
/* declaration of dataList←v6992 skipped */
register ptr gf←c15800 = (ptr) &globalframe;
/* declaration of newDataList←v7052 skipped */
/* declaration of var←c14712 skipped */
(* (( (ptr) &var←c15768)+4)/* name←v6936 */ ) = formal←c0261;
(* (( (ptr) &var←c15768)+5)/* object←v6964 */ ) = formal←c0262;
(* (( (ptr) &var←c15768)+6)/* dataList←v6992 */ ) = formal←c0263;
/* ConsDataListObject: */
SOURCE(6579, 1125)
{
word tmpAddr54;
tmpAddr54 = (word) (( (ptr) &var←c15768)+8)/* var←c14712 */ ;
(* (ptr) tmpAddr54 ) = ( ((word) (fPt) Update←P1980) );
(* (( (ptr) tmpAddr54) + 1) ) = 1;
};
SOURCE(6579, 1125)
(* (( (ptr) &var←c15768)+7)/* newDataList←v7052 */ ) = 0;
SOURCE(6699, 904)
if ((0 != (* (( (ptr) gf←c15800)+22)/* canonicalizeDataLists←v3616 */ ))) {
SOURCE(6729, 874)
SOURCE(7276, 37)
(* (( (ptr) gf←c15800)+24) ) = ((* (( (ptr) gf←c15800)+24) ) + 1);
SOURCE(7315, 187)
{
register word x←v8444;
x←v8444 = (* (( (ptr) &var←c15768)+6)/* dataList←v6992 */ );
lab←L100039: ;
if ((x←v8444 != 0)) {
}
else {
goto lab←L100036;
};
SOURCE(7367, 135)
{
word var←c14744;
var←c14744 = x←v8444;
if ((var←c14744 == 0)) {
goto lab←L100040;
};
if (((* (( (ptr) var←c14744)+1) ) == 0)) {
{
word xx←v8488;
xx←v8488 = var←c14744;
SOURCE(7416, 86)
if (((* (( (ptr) xx←v8488)+2) ) == (* (( (ptr) &var←c15768)+4)/* name←v6936 */ ))) {
SOURCE(7441, 61)
{
word pd55;
pd55 = (* (( (ptr) (* (( (ptr) gf←c15800)+90)/* var←c14776 */ ))+5) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd55 ))))((* (( (ptr) xx←v8488)+3) ), (* (( (ptr) &var←c15768)+5)/* object←v6964 */ ), pd55)
)) {
SOURCE(7479, 23)
return((* (( (ptr) &var←c15768)+6)/* dataList←v6992 */ ));
}
else {
SOURCE(7502, 4)
goto lab←L100037;
};
};
};
};
}
else {
lab←L100040: ;
};
};
x←v8444 = (* (ptr) x←v8444 );
goto lab←L100039;
lab←L100036: ;
lab←L100037: ;
};
SOURCE(7540, 63)
{
word pd56;
pd56 = (* (( (ptr) (* (( (ptr) gf←c15800)+88)/* var←c13816 */ ))+14) );
(void) ( *( (fPt) ((* (ptr) pd56 ))))((* (( (ptr) gf←c15800)+23)/* dataListTable←v3644 */ ), (* (( (ptr) &var←c15768)+6)
/* dataList←v6992 */ ), (word) (( (bPt) &var←c15768)+32)/* var←c14712 */ , pd56);
};
};
SOURCE(7606, 98)
if (((* (( (ptr) &var←c15768)+7)/* newDataList←v7052 */ ) == 0)) {
SOURCE(7634, 70)
{
word var←c14808;
var←c14808 = XR←NewObject(16, (* (( (ptr) gf←c15800)+33) ));
(* (ptr) var←c14808 ) = (* (( (ptr) &var←c15768)+6)/* dataList←v6992 */ );
(* (( (ptr) var←c14808)+2) ) = (* (( (ptr) &var←c15768)+4)/* name←v6936 */ );
(* (( (ptr) var←c14808)+3) ) = (* (( (ptr) &var←c15768)+5)/* object←v6964 */ );
(* (( (ptr) &var←c15768)+7)/* newDataList←v7052 */ ) = var←c14808;
};
};
SOURCE(6579, 1125)
return((* (( (ptr) &var←c15768)+7)/* newDataList←v7052 */ ));
}
static void Update←P1980(formal←c0179, found←v12528, val←v12556, formal←c15864)
word formal←c0179;
word found←v12528;
word val←v12556;
word formal←c15864;
{
register ptr gf←c15832 = (ptr) &globalframe;
word op←v12600;
word new←v12628;
word tops←v8544;
formal←c15864 = (formal←c15864 - 32);
/* Update: */
SOURCE(6731, 30)
SOURCE(6731, 30)
op←v12600 = 0;
SOURCE(6731, 30)
new←v12628 = 0;
SOURCE(6763, 6)
tops←v8544 = XR←Narrow(val←v12556, (* (( (ptr) gf←c15832)+32) ));
SOURCE(6801, 265)
{
register word each←v8672;
each←v8672 = tops←v8544;
lab←L100045: ;
if ((each←v8672 != 0)) {
}
else {
goto lab←L100042;
};
SOURCE(6866, 200)
{
word var←c14840;
var←c14840 = (* (ptr) each←v8672 );
if ((var←c14840 == 0)) {
goto lab←L100046;
};
if (((* (( (ptr) var←c14840)+1) ) == 0)) {
{
word xx←v8800;
xx←v8800 = var←c14840;
SOURCE(6924, 142)
{
word tc57;
word pd58;
if (((* (( (ptr) xx←v8800)+2) ) == (* (( (ptr) formal←c15864)+4) ))) {
pd58 = (* (( (ptr) (* (( (ptr) gf←c15832)+90)/* var←c14776 */ ))+5) );
tc57 = (word) (0 != (word) ( *( (fPt) ((* (ptr) pd58 ))))((* (( (ptr) xx←v8800)+3) ), (* (( (ptr) formal←c15864)+5) ), pd58)
);
}
else {
tc57 = (word) 0;
};
if (tc57) {
SOURCE(6983, 24)
(* (( (ptr) formal←c15864)+7) ) = (* (ptr) each←v8672 );
SOURCE(7009, 37)
(* (( (ptr) gf←c15832)+25) ) = ((* (( (ptr) gf←c15832)+25) ) + 1);
SOURCE(7048, 18)
op←v12600 = 0;
new←v12628 = 0;
goto lab←L100041;
};
};
};
}
else {
lab←L100046: ;
};
};
each←v8672 = (* (( (ptr) each←v8672)+1) );
goto lab←L100045;
lab←L100042: ;
};
SOURCE(7098, 70)
{
word var←c14872;
var←c14872 = XR←NewObject(16, (* (( (ptr) gf←c15832)+33) ));
(* (ptr) var←c14872 ) = (* (( (ptr) formal←c15864)+6) );
(* (( (ptr) var←c14872)+2) ) = (* (( (ptr) formal←c15864)+4) );
(* (( (ptr) var←c14872)+3) ) = (* (( (ptr) formal←c15864)+5) );
(* (( (ptr) formal←c15864)+7) ) = var←c14872;
};
SOURCE(7170, 30)
{
word var←c14904;
var←c14904 = XR←NewObject(8, (* (( (ptr) gf←c15832)+32) ));
(* (ptr) var←c14904 ) = (* (( (ptr) formal←c15864)+7) );
(* (( (ptr) var←c14904)+1) ) = tops←v8544;
tops←v8544 = var←c14904;
};
SOURCE(7202, 39)
(* (( (ptr) gf←c15832)+26) ) = ((* (( (ptr) gf←c15832)+26) ) + 1);
SOURCE(7243, 30)
op←v12600 = 1;
new←v12628 = tops←v8544;
/* removed tail goto */
lab←L100041: ;
(* (ptr) formal←c0179 ) = op←v12600;
(* (( (ptr) formal←c0179)+1) ) = new←v12628;
return;
}
static word ConsDataListReal←P1380(param←v7112, value←v7140, dataList←v7168)
word param←v7112;
word value←v7140;
word dataList←v7168;
{
register ptr gf←c15896 = (ptr) &globalframe;
word var←c7212;
/* ConsDataListReal: */
SOURCE(7713, 217)
SOURCE(7811, 35)
(* (( (ptr) gf←c15896)+27) ) = ((* (( (ptr) gf←c15896)+27) ) + 1);
SOURCE(7848, 82)
{
word var←c14968;
word var←c15000;
var←c14968 = (word) IntegerValue←P300(value←v7140);
var←c15000 = XR←NewObject(20, (* (( (ptr) gf←c15896)+33) ));
(* (ptr) var←c15000 ) = dataList←v7168;
(* (( (ptr) var←c15000)+1) ) = 1;
(* (( (ptr) var←c15000)+2) ) = param←v7112;
(* (( (ptr) var←c15000)+3) ) = value←v7140;
(* (( (ptr) var←c15000)+4) ) = var←c14968;
return(var←c15000);
};
}
static word ConsDataListTab←P1440(tabStop←v7272, which←v7300, value←v7328, dataList←v7356)
word tabStop←v7272;
word which←v7300;
word value←v7328;
word dataList←v7356;
{
register ptr gf←c15928 = (ptr) &globalframe;
word var←c7400;
/* ConsDataListTab: */
SOURCE(7936, 242)
SOURCE(8054, 33)
(* (( (ptr) gf←c15928)+28) ) = ((* (( (ptr) gf←c15928)+28) ) + 1);
SOURCE(8089, 89)
{
word var←c15064;
word var←c15096;
var←c15064 = (word) IntegerValue←P300(value←v7328);
var←c15096 = XR←NewObject(24, (* (( (ptr) gf←c15928)+33) ));
(* (ptr) var←c15096 ) = dataList←v7356;
(* (( (ptr) var←c15096)+1) ) = 2;
(* (( (ptr) var←c15096)+2) ) = tabStop←v7272;
(* (( (ptr) var←c15096)+3) ) = which←v7300;
(* (( (ptr) var←c15096)+4) ) = value←v7328;
(* (( (ptr) var←c15096)+5) ) = var←c15064;
return(var←c15096);
};
}
static void NoName←Q2472(formal←c0198, formal←c200008, formal←c200009, formal←c200010, formal←c200011)
word formal←c0198;
word formal←c200008;
word formal←c200009;
word formal←c200010;
word formal←c200011;
{
register ptr gf←c0235 = (ptr) &globalframe;
if ((formal←c200009 == (word) (( (bPt) gf←c0235)+148)/* var←c12952 */ )) {
SOURCE(4735, 15)
(* (( (ptr) formal←c200008)+8) ) = 255;
SOURCE(4752, 64)
{
word var←c14488;
var←c14488 = (word) ConsDataListTab←P1440((* (( (ptr) formal←c200008)+5) ), (* (( (ptr) formal←c200008)+6) ), (* (( (ptr) formal←c200008)+7)
), (* (( (ptr) (* (( (ptr) formal←c200008)+4) ))+36) ));
(* (( (ptr) (* (( (ptr) formal←c200008)+4) ))+36) ) = var←c14488;
};
SOURCE(4818, 9)
(* (ptr) formal←c0198 ) = 2;
(* (( (ptr) formal←c0198)+1) ) = 3;
return;
};
(* (ptr) formal←c0198 ) = 0;
(* (( (ptr) formal←c0198)+1) ) = 0;
return;
}
static void NoName←Q2532(formal←c0204, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c0204;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
register ptr gf←c0236 = (ptr) &globalframe;
if ((formal←c200005 == (word) (( (bPt) gf←c0236)+148)/* var←c12952 */ )) {
SOURCE(2820, 26)
(* ((( (bPt) (* (( (ptr) formal←c200004)+4) ))+64)+(* (( (ptr) formal←c200004)+5) )) ) = 255;
SOURCE(2848, 59)
{
word var←c14200;
var←c14200 = (word) ConsDataListReal←P1380((* (( (ptr) formal←c200004)+5) ), (* (( (ptr) formal←c200004)+6) ), (* (( (ptr) (* (
( (ptr) formal←c200004)+4) ))+36) ));
(* (( (ptr) (* (( (ptr) formal←c200004)+4) ))+36) ) = var←c14200;
};
SOURCE(2909, 9)
(* (ptr) formal←c0204 ) = 2;
(* (( (ptr) formal←c0204)+1) ) = 2;
return;
};
(* (ptr) formal←c0204 ) = 0;
(* (( (ptr) formal←c0204)+1) ) = 0;
return;
}
static void NoName←Q2592(formal←c0209, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0209;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c0237 = (ptr) &globalframe;
if ((formal←c200001 == XR←Unwind)) {
(void) (XR←MonitorExit((word) (( (bPt) gf←c0237)+16)/* LOCK←v2580 */ ));
};
(* (ptr) formal←c0209 ) = 0;
(* (( (ptr) formal←c0209)+1) ) = 0;
return;
}
/* file: NodeStyleImpl, module: NodeStyleImpl, compiled at: October 19, 1993 1:13:10 pm PDT */
extern void XR←install←NodeStyleImpl() {
NoName←Q2232();
}
extern void XR←run←NodeStyleImpl() { XR←Start(&globalframe); }