/* 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 #include 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); }