/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */ /* time: October 19, 1993 1:15:58 pm PDT */ /* C2C version: April 20, 1993 (sun4) */ /* ref-counting: off */ /* file: NodeStyleWorks2Impl, module: NodeStyleWorks2Impl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [2642726143,3973689039] NodeStyleWorks2Impl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef struct {word f0, f1;} W2; typedef word (*fPt)(); typedef struct {word f0, f1, f2, f3, f4, f5;} W6; typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8; typedef struct {W8 f; word r;} W9; typedef struct {word f0, f1, f2, f3, f4;} W5; #define SOURCE(p, l) /* source p, l */ #define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i ) #define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) ) static float fc81 = 0.0; static float fc121 = 100.0; static float fc127 = 0.01; static void NoName_Q3492(); static void NodeStyleWorks2Impl_P0(); static word GetCommand_P60(); static word ForceLowerName_P120(); static word CheckLower_P1488(); static word ForceLowerRope_P180(); static word ForceCharLower_P1644(); static word PopName_P240(); static void TryToPopName_P300(); static void TryToPopReal_P360(); static void TryToPopRope_P420(); static word TypeCheckName_P480(); static word TypeCheckDict_P540(); static word TypeCheckCommand_P600(); static void IsCommentOp_P660(); static void IsPrintOp_P720(); static void NestingLevelOp_P780(); static void StyleParamOp_P840(); static void SpecialOpArray_P900(); static word StyleParamKey_P960(); static void SpecialOp_P1020(); static void Load_P2076(); static void RegisterStyleCommand_P1080(); static void RegisterStyleLiteral_P1140(); static word GetExecutingName_P1200(); static word GetWhere_P1260(); static void ReportStyleErrorOp_P1320(); static word NoName_Q3552(); static word NoName_Q3612(); static void RegisterWorks2_P1380(); static void NoName_Q3672(); static void NoName_Q3732(); static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"}; static struct {unsigned f; char r[24];} string2 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"}; static struct {unsigned f; char r[16];} string3 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"}; static struct {unsigned f; char r[4];} string4 = {65537, "\001\000\000"}; static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\112\064\000\000"}; static struct {unsigned f; char r[4];} string6 = {131074, "\004\037\000"}; static struct {unsigned f; char r[4];} string7 = {65540, "\251\000\000"}; static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\354\000\000"}; static struct {unsigned f; char r[4];} string9 = {131074, "\004\003\000"}; static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\340\000\000"}; static struct {unsigned f; char r[4];} string11 = {131074, "\004\006\000"}; static struct {unsigned f; char r[4];} string12 = {131076, "\216\251\000"}; static struct {unsigned f; char r[12];} string13 = {589836, "SpecialOp\000\000"}; static struct {unsigned f; char r[4];} string14 = {131076, "!!\000"}; static struct {unsigned f; char r[4];} string15 = {196612, "the"}; static struct {unsigned f; char r[8];} string16 = {393224, "bigger\000"}; static struct {unsigned f; char r[8];} string17 = {458760, "percent"}; static struct {unsigned f; char r[8];} string18 = {458760, "smaller"}; static struct {unsigned f; char r[24];} string19 = {1441816, "has illegal qualifier:\000"}; static struct {unsigned f; char r[16];} string20 = {786448, "Style error \000\000\000"}; static struct {unsigned f; char r[8];} string21 = {262152, "in \042\000\000\000"}; static struct {unsigned f; char r[8];} string22 = {458760, "\042 rule "}; static struct {unsigned f; char r[4];} string23 = {196612, "at "}; static struct {unsigned f; char r[12];} string24 = {524300, " in doc \000\000\000"}; static struct {unsigned f; char r[4];} string25 = {131076, "- \000"}; static struct {unsigned f; char r[4];} string26 = {65540, " \000\000"}; static struct {unsigned f; char r[8];} string27 = {393224, "StdOut\000"}; static struct {unsigned f; char r[8];} string28 = {393224, "\012 *** \000"}; static struct {unsigned f; char r[4];} string29 = {65540, "\012\000\000"}; static struct {unsigned f; char r[40];} string30 = {2359336, " -- found where a name was expected.\000\000\000"}; static struct {unsigned f; char r[8];} string31 = {327688, "Tioga\000\000"}; static struct {unsigned f; char r[8];} string32 = {327688, "Error\000\000"}; static struct {unsigned f; char r[12];} string33 = {589836, "isComment\000\000"}; static struct {unsigned f; char r[8];} string34 = {458760, "isPrint"}; static struct {unsigned f; char r[16];} string35 = {786448, "nestingLevel\000\000\000"}; static struct {unsigned f; char r[12];} string36 = {655372, "StyleParam\000"}; static struct {unsigned f; char r[20];} string37 = {1048596, "ReportStyleError\000\000\000"}; static struct {unsigned f; char r[16];} string38 = {851984, "\257\300\235\204\314\377\300\354\331\256\317\100\164\000\000"}; static struct {unsigned f; char r[16];} string39 = {983055, "\006\004\040\001\044\001\050\001\100\114\010\000\004\031\001"}; static struct {unsigned f; char r[16];} string40 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"}; static struct {unsigned f; char r[16];} string41 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"}; static struct {unsigned f; char r[16];} string42 = {851984, "\257\300\167\317\044\003\300\277\140\004\026\100\150\000\000"}; static struct {unsigned f; char r[12];} string43 = {1315923045, "StyleWorks"}; static struct {unsigned f; char r[16];} string44 = {851984, "\257\300\051\356\171\277\300\146\001\231\234\100\150\000\000"}; static struct {unsigned f; char r[16];} string45 = {851984, "\257\300\314\116\377\204\300\167\024\373\125\100\150\000\000"}; static struct {unsigned f; char r[16];} string46 = {851984, "\257\300\332\223\177\020\300\304\076\102\260\100\164\000\000"}; static struct {unsigned f; char r[16];} string47 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string48 = {851984, "\257\300\275\320\070\317\300\004\110\363\366\100\150\000\000"}; static struct {unsigned f; char r[16];} string49 = {851984, "\257\300\353\035\365\325\300\132\075\117\337\100\150\000\000"}; static struct {unsigned f; char r[16];} string50 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\150\000\000"}; static struct { word f0[46]; 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; word f88; word f89; word f90; word f91; word f92; word f93[12]; } globalframe = { {0}, (word) RegisterWorks2_P1380, 0, (word) ReportStyleErrorOp_P1320, 0, (word) GetWhere_P1260, 0, (word) GetExecutingName_P1200, 0, (word) RegisterStyleLiteral_P1140, 0, (word) RegisterStyleCommand_P1080, 0, (word) SpecialOp_P1020, 0, (word) StyleParamKey_P960, 0, (word) SpecialOpArray_P900, 0, (word) StyleParamOp_P840, 0, (word) NestingLevelOp_P780, 0, (word) IsPrintOp_P720, 0, (word) IsCommentOp_P660, 0, (word) TypeCheckCommand_P600, 0, (word) TypeCheckDict_P540, 0, (word) TypeCheckName_P480, 0, (word) TryToPopRope_P420, 0, (word) TryToPopReal_P360, 0, (word) TryToPopName_P300, 0, (word) PopName_P240, 0, (word) ForceLowerRope_P180, 0, (word) ForceLowerName_P120, 0, (word) GetCommand_P60, 0, (word) NodeStyleWorks2Impl_P0, {0} }; static void NoName_Q3492() { register ptr gf_c0228 = (ptr) &globalframe; word var_c25516; (* (( (ptr) gf_c0228)+12) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0228)+13) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4); (* (( (ptr) gf_c0228)+14) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6); (* (( (ptr) gf_c0228)+15) ) = (word) XR_GetTypeIndexS((word) (&string7)); (* (( (ptr) gf_c0228)+16) ) = (word) XR_GetTypeIndex((word) &string8, 0, (word) &string9); (* (( (ptr) gf_c0228)+17) ) = (word) XR_GetTypeIndex((word) &string10, 0, (word) &string11); (* (( (ptr) gf_c0228)+18) ) = (word) XR_GetTypeIndex((word) &string12, 0, (word) &string4); (* (ptr) (( (bPt) gf_c0228)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+18) ), (word) &string13); (* (ptr) (( (bPt) gf_c0228)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+13) ), (word) &string14); (* (ptr) (( (bPt) gf_c0228)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+18) ), (word) &string15); (* (ptr) (( (bPt) gf_c0228)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+18) ), (word) &string16); (* (ptr) (( (bPt) gf_c0228)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+18) ), (word) &string17); (* (ptr) (( (bPt) gf_c0228)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+18) ), (word) &string18); (* (ptr) (( (bPt) gf_c0228)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+13) ), (word) &string19); (* (ptr) (( (bPt) gf_c0228)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+13) ), (word) &string20); (* (ptr) (( (bPt) gf_c0228)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+13) ), (word) &string21); (* (ptr) (( (bPt) gf_c0228)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+13) ), (word) &string22); (* (ptr) (( (bPt) gf_c0228)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+13) ), (word) &string23); (* (ptr) (( (bPt) gf_c0228)+120) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+13) ), (word) &string24); (* (ptr) (( (bPt) gf_c0228)+124) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+13) ), (word) &string25); (* (ptr) (( (bPt) gf_c0228)+128) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+13) ), (word) &string26); (* (ptr) (( (bPt) gf_c0228)+132) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+18) ), (word) &string27); (* (ptr) (( (bPt) gf_c0228)+136) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+13) ), (word) &string28); (* (ptr) (( (bPt) gf_c0228)+140) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+13) ), (word) &string29); (* (ptr) (( (bPt) gf_c0228)+144) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+13) ), (word) &string30); (* (ptr) (( (bPt) gf_c0228)+148) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+18) ), (word) &string31); (* (ptr) (( (bPt) gf_c0228)+152) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+18) ), (word) &string32); (* (ptr) (( (bPt) gf_c0228)+156) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+18) ), (word) &string33); (* (ptr) (( (bPt) gf_c0228)+160) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+18) ), (word) &string34); (* (ptr) (( (bPt) gf_c0228)+164) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+18) ), (word) &string35); (* (ptr) (( (bPt) gf_c0228)+168) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+18) ), (word) &string36); (* (ptr) (( (bPt) gf_c0228)+172) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0228)+18) ), (word) &string37); (void) XR_DeclareGlobalFrame((word) "NodeStyleWorks2Impl", &globalframe, (word) XR_GetTypeIndex((word) &string38, 0, (word) &string39) , (word) (( (bPt) gf_c0228)+368)/* var_c23532 */ ); var_c25516 = (word) XR_ImportInterface((word) "Atom", (word) XR_GetTypeIndexS((word) (&string40)), 16); (* (( (ptr) gf_c0228)+95)/* var_c23692 */ ) = var_c25516; (void) XR_ImportProcS(var_c25516, 67372033); (void) XR_ImportProcS(var_c25516, 67372289); var_c25516 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string41)), 103); (* (( (ptr) gf_c0228)+102)/* var_c25452 */ ) = var_c25516; (void) XR_ImportProcS(var_c25516, 1071364); var_c25516 = (word) XR_ImportInterface((word) "NodeStyle", (word) XR_GetTypeIndexS((word) (&string42)), 41); (* (( (ptr) gf_c0228)+99)/* var_c24908 */ ) = var_c25516; (void) XR_ImportProcS(var_c25516, 67905539); var_c25516 = (word) XR_ImportInterface((word) &string43, (word) XR_GetTypeIndexS((word) (&string44)), 69); (* (( (ptr) gf_c0228)+98)/* var_c24044 */ ) = var_c25516; (void) XR_ImportProcS(var_c25516, 67371777); (void) XR_ImportProcS(var_c25516, 529922); var_c25516 = (word) XR_ImportInterface((word) "ProcessProps", (word) XR_GetTypeIndexS((word) (&string45)), 6); (* (( (ptr) gf_c0228)+101)/* var_c25388 */ ) = var_c25516; (void) XR_ImportProcS(var_c25516, 67371777); var_c25516 = (word) XR_ImportInterface((word) "RefText", (word) XR_GetTypeIndexS((word) (&string46)), 26); (* (( (ptr) gf_c0228)+97)/* var_c23756 */ ) = var_c25516; (void) XR_ImportProcS(var_c25516, 68158980); (void) XR_ImportProcS(var_c25516, 262913); (void) XR_ImportProcS(var_c25516, 67371521); var_c25516 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string47)), 43); (* (( (ptr) gf_c0228)+96)/* var_c23724 */ ) = var_c25516; (void) XR_ImportProcS(var_c25516, 68419845); (void) XR_ImportProcS(var_c25516, 68163332); (void) XR_ImportProcS(var_c25516, 67634434); (void) XR_ImportProcS(var_c25516, 67373569); (void) XR_ImportProcS(var_c25516, 68163076); var_c25516 = (word) XR_ImportInterface((word) "RuntimeError", (word) XR_GetTypeIndexS((word) (&string48)), 27); (* (( (ptr) gf_c0228)+100)/* var_c25228 */ ) = var_c25516; var_c25516 = (word) XR_ImportInterface((word) "SimpleFeedback", (word) XR_GetTypeIndexS((word) (&string49)), 7); (* (( (ptr) gf_c0228)+103)/* var_c25484 */ ) = var_c25516; (void) XR_ImportProcS(var_c25516, 1048580); var_c25516 = (word) XR_ImportInterface((word) "TJaM", (word) XR_GetTypeIndexS((word) (&string50)), 101); (* (( (ptr) gf_c0228)+94)/* var_c23564 */ ) = var_c25516; (void) XR_ImportProcS(var_c25516, 67379969); (void) XR_ImportProcS(var_c25516, 67653890); (void) XR_ImportProcS(var_c25516, 804611); (void) XR_ImportProcS(var_c25516, 1073924); (void) XR_ImportProcS(var_c25516, 530434); (void) XR_ImportProcS(var_c25516, 548610); (void) XR_ImportProcS(var_c25516, 67376129); (void) XR_ImportProcS(var_c25516, 801795); (void) XR_ImportProcS(var_c25516, 67385601); (void) XR_ImportProcS(var_c25516, 67375873); (void) XR_ImportProcS(var_c25516, 807427); (void) XR_ImportProcS(var_c25516, 530178); (void) XR_ImportProcS(var_c25516, 529922); (void) XR_ImportProcS(var_c25516, 67375361); (void) XR_ImportProcS(var_c25516, 67380225); (void) XR_ImportProcS(var_c25516, 531202); (void) XR_ImportProcS(var_c25516, 529666); (void) XR_ImportProcS(var_c25516, 67379457); (void) XR_ImportProcS(var_c25516, 67380993); (void) XR_ImportProcS(var_c25516, 67375617); (void) XR_ImportProcS(var_c25516, 67380737); (void) XR_ImportProcS(var_c25516, 67382785); (void) XR_ImportProcS(var_c25516, 67384577); (void) XR_ImportProcS(var_c25516, 134762498); var_c25516 = (word) XR_ExportInterface((word) &string43, (word) XR_GetTypeIndexS((word) (&string44)), 69); (* (( (ptr) gf_c0228)+104)/* var_c25548 */ ) = var_c25516; (void) XR_ExportVar(var_c25516, 20, (word) (( (bPt) gf_c0228)+176)); (void) XR_ExportVar(var_c25516, 21, (word) (( (bPt) gf_c0228)+180)); (void) XR_ExportVar(var_c25516, 23, (word) (( (bPt) gf_c0228)+32)/* load_v3784 */ ); (void) XR_ExportVar(var_c25516, 24, (word) (( (bPt) gf_c0228)+36)/* get_v3812 */ ); (void) XR_ExportVar(var_c25516, 25, (word) (( (bPt) gf_c0228)+40)/* run_v3840 */ ); (void) XR_ExportProcS(var_c25516, (word) (( (bPt) gf_c0228)+360)/* var_c23500 */ , 67645954, (word) "GetCommand"); (void) XR_ExportProcS(var_c25516, (word) (( (bPt) gf_c0228)+352)/* var_c23468 */ , 67384065, (word) "ForceLowerName"); (void) XR_ExportProcS(var_c25516, (word) (( (bPt) gf_c0228)+344)/* var_c23436 */ , 67384321, (word) "ForceLowerRope"); (void) XR_ExportProcS(var_c25516, (word) (( (bPt) gf_c0228)+336)/* var_c23404 */ , 67384577, (word) "PopName"); (void) XR_ExportProcS(var_c25516, (word) (( (bPt) gf_c0228)+328)/* var_c23372 */ , 134493697, (word) "TryToPopName"); (void) XR_ExportProcS(var_c25516, (word) (( (bPt) gf_c0228)+320)/* var_c23340 */ , 134493953, (word) "TryToPopReal"); (void) XR_ExportProcS(var_c25516, (word) (( (bPt) gf_c0228)+312)/* var_c23308 */ , 134494209, (word) "TryToPopRope"); (void) XR_ExportProcS(var_c25516, (word) (( (bPt) gf_c0228)+304)/* var_c23276 */ , 67385601, (word) "TypeCheckName"); (void) XR_ExportProcS(var_c25516, (word) (( (bPt) gf_c0228)+296)/* var_c23244 */ , 67385857, (word) "TypeCheckDict"); (void) XR_ExportProcS(var_c25516, (word) (( (bPt) gf_c0228)+288)/* var_c23212 */ , 67386113, (word) "TypeCheckCommand"); (void) XR_ExportProcS(var_c25516, (word) (( (bPt) gf_c0228)+248)/* var_c23052 */ , 134757378, (word) "SpecialOpArray"); (void) XR_ExportProcS(var_c25516, (word) (( (bPt) gf_c0228)+240)/* var_c23020 */ , 67386625, (word) "StyleParamKey"); (void) XR_ExportProcS(var_c25516, (word) (( (bPt) gf_c0228)+224)/* var_c22956 */ , 802307, (word) "RegisterStyleCommand") ; (void) XR_ExportProcS(var_c25516, (word) (( (bPt) gf_c0228)+216)/* var_c22924 */ , 540418, (word) "RegisterStyleLiteral") ; (void) XR_ExportProcS(var_c25516, (word) (( (bPt) gf_c0228)+184)/* var_c22796 */ , 278785, (word) "RegisterWorks2"); } static void NodeStyleWorks2Impl_P0(formal_c049, formal_c048) word formal_c049; word formal_c048; { /* NodeStyleWorks2Impl: */ } static word GetCommand_P60(frame_v4068, name_v4096) word frame_v4068; word name_v4096; { register ptr gf_c25580 = (ptr) &globalframe; word var_c4140; word known_v5836 = 0; word obj_v5864 = 0; /* GetCommand: */ SOURCE(1136, 207) SOURCE(1244, 42) { W2 var_c23596; { word pd51; pd51 = (* (( (ptr) (* (( (ptr) gf_c25580)+94)/* var_c23564 */ ))+84) ); (void) ( *( (fPt) ((* (ptr) pd51 ))))((word) &var_c23596, frame_v4068, name_v4096, pd51); }; obj_v5864 = var_c23596.f1; known_v5836 = var_c23596.f0; }; SOURCE(1288, 18) if ((0 == known_v5836)) { SOURCE(1306, 5) (void) XR_RaiseUnnamedError(); }; SOURCE(1313, 30) return((word) TypeCheckCommand_P600(obj_v5864)); } static word ForceLowerName_P120(n_v4200) word n_v4200; { W6 var_c25612; register ptr gf_c25644 = (ptr) &globalframe; word var_c4244; /* declaration of var_c23660 skipped */ /* ForceLowerName: */ SOURCE(1349, 462) { word tmpAddr52; tmpAddr52 = (word) (( (ptr) &var_c25612)+4)/* var_c23660 */ ; (* (ptr) tmpAddr52 ) = ( ((word) (fPt) CheckLower_P1488) ); (* (( (ptr) tmpAddr52) + 1) ) = 1; }; SOURCE(1406, 387) if ((n_v4200 != 0)) { SOURCE(1420, 378) { word rope_v5908; SOURCE(1422, 29) { word pd53; pd53 = (* (( (ptr) (* (( (ptr) gf_c25644)+95)/* var_c23692 */ ))+9) ); rope_v5908 = (word) ( *( (fPt) ((* (ptr) pd53 ))))(n_v4200, pd53); }; SOURCE(1507, 286) { word pd54; pd54 = (* (( (ptr) (* (( (ptr) gf_c25644)+96)/* var_c23724 */ ))+26) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd54 ))))(rope_v5908, 0, 2147483647, (word) (( (bPt) &var_c25612)+16)/* var_c23660 */ , pd54) )) { SOURCE(1556, 239) { word len_v5980; word text_v6008; SOURCE(1558, 28) { word pd55; word idx56; pd55 = (* (( (ptr) (* (( (ptr) gf_c25644)+96)/* var_c23724 */ ))+14) ); len_v5980 = ( idx56 = (word) ( *( (fPt) ((* (ptr) pd55 ))))(rope_v5908, pd55), SGNCK(idx56) ); }; SOURCE(1588, 43) { word pd57; pd57 = (* (( (ptr) (* (( (ptr) gf_c25644)+97)/* var_c23756 */ ))+6) ); text_v6008 = (word) ( *( (fPt) ((* (ptr) pd57 ))))(BCK(len_v5980, 32768), pd57); }; SOURCE(1633, 75) { register word i_v6064 = 0; if ((i_v6064 >= len_v5980)) { goto lab_L100000; }; lab_L100003: ; SOURCE(1658, 50) { word var_c23788; { word var_c23820; word ch_v22716; { /*1*/ word pd58; /*1*/ pd58 = (* (( (ptr) (* (( (ptr) gf_c25644)+96)/* var_c23724 */ ))+9) ); /*1*/ ch_v22716 = (word) ( *( (fPt) ((* (ptr) pd58 ))))(rope_v5908, i_v6064, pd58); /*1*/ }; if (((ch_v22716 - 65) <= 25)) { /*1*/ var_c23820 = (ch_v22716 + 32); /*1*/ } else { /*1*/ var_c23820 = ch_v22716; /*1*/ }; var_c23788 = var_c23820; }; { word limit59; (* ((( (bPt) text_v6008)+4)+( /*1*/ limit59 = (word) (unsigned) (* (( (hPt) text_v6008)+1) ), /*1*/ BCK(i_v6064, limit59) /*1*/ )) ) = var_c23788; }; }; i_v6064 = (i_v6064 + 1); if ((i_v6064 < len_v5980)) { goto lab_L100003; }; lab_L100000: ; }; SOURCE(1710, 17) (* (hPt) text_v6008 ) = BCK(len_v5980, 32768); SOURCE(1729, 34) { word pd60; pd60 = (* (( (ptr) (* (( (ptr) gf_c25644)+95)/* var_c23692 */ ))+8) ); n_v4200 = (word) ( *( (fPt) ((* (ptr) pd60 ))))(text_v6008, pd60); }; SOURCE(1765, 28) { word pd61; pd61 = (* (( (ptr) (* (( (ptr) gf_c25644)+97)/* var_c23756 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd61 ))))(text_v6008, pd61); }; }; }; }; }; }; SOURCE(1801, 10) return(n_v4200); } static word CheckLower_P1488(c_v17360, formal_c25676) word c_v17360; word formal_c25676; { word quit_v17404; formal_c25676 = (formal_c25676 - 16); /* CheckLower: */ SOURCE(1453, 30) SOURCE(1453, 30) quit_v17404 = 0; SOURCE(1484, 20) quit_v17404 = (unsigned) ((c_v17360 - 65) <= 25); SOURCE(1453, 30) return(quit_v17404); } static word ForceLowerRope_P180(r_v4304) word r_v4304; { W6 var_c25708; register ptr gf_c25740 = (ptr) &globalframe; word var_c4348; /* declaration of var_c23852 skipped */ /* ForceLowerRope: */ SOURCE(1817, 203) { word tmpAddr62; tmpAddr62 = (word) (( (ptr) &var_c25708)+4)/* var_c23852 */ ; (* (ptr) tmpAddr62 ) = ( ((word) (fPt) ForceCharLower_P1644) ); (* (( (ptr) tmpAddr62) + 1) ) = 1; }; SOURCE(1960, 60) { word pd63; pd63 = (* (( (ptr) (* (( (ptr) gf_c25740)+96)/* var_c23724 */ ))+27) ); return((word) ( *( (fPt) ((* (ptr) pd63 ))))(r_v4304, 0, 2147483647, (word) (( (bPt) &var_c25708)+16)/* var_c23852 */ , pd63) ); }; } static word ForceCharLower_P1644(old_v6184, formal_c25772) word old_v6184; word formal_c25772; { word new_v6228; formal_c25772 = (formal_c25772 - 16); /* ForceCharLower: */ SOURCE(1874, 83) SOURCE(1931, 26) if (((old_v6184 - 65) <= 25)) { return((old_v6184 + 32)); } else { return(old_v6184); }; } static word PopName_P240(frame_v4408) word frame_v4408; { register ptr gf_c25804 = (ptr) &globalframe; word name_v4452; word ok_v6256 = 1; word obj_v6284 = 0; /* PopName: */ SOURCE(2026, 452) SOURCE(2026, 452) name_v4452 = 0; SOURCE(2123, 43) { word pd64; pd64 = (* (( (ptr) (* (( (ptr) gf_c25804)+94)/* var_c23564 */ ))+57) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd64 ))))(frame_v4408, pd64))) { SOURCE(2156, 10) ok_v6256 = 0; }; }; SOURCE(2168, 183) if ((0 != ok_v6256)) { SOURCE(2179, 172) { word var_c23916; { word pd65; pd65 = (* (( (ptr) (* (( (ptr) gf_c25804)+94)/* var_c23564 */ ))+50) ); var_c23916 = (word) ( *( (fPt) ((* (ptr) pd65 ))))(frame_v4408, pd65); }; if ((var_c23916 == 2)) { SOURCE(2219, 28) { word pd66; pd66 = (* (( (ptr) (* (( (ptr) gf_c25804)+94)/* var_c23564 */ ))+42) ); return((word) ( *( (fPt) ((* (ptr) pd66 ))))(frame_v4408, pd66)); }; } else { if ((var_c23916 == 3)) { SOURCE(2257, 59) { word var_c24012; { word pd67; pd67 = (* (( (ptr) (* (( (ptr) gf_c25804)+94)/* var_c23564 */ ))+43) ); var_c24012 = (word) ( *( (fPt) ((* (ptr) pd67 ))))(frame_v4408, pd67); }; { word pd68; pd68 = (* (( (ptr) (* (( (ptr) gf_c25804)+94)/* var_c23564 */ ))+22) ); return((word) ( *( (fPt) ((* (ptr) pd68 ))))(var_c24012, pd68)); }; }; } else { SOURCE(2318, 10) ok_v6256 = 0; SOURCE(2330, 21) { word pd69; pd69 = (* (( (ptr) (* (( (ptr) gf_c25804)+94)/* var_c23564 */ ))+37) ); obj_v6284 = (word) ( *( (fPt) ((* (ptr) pd69 ))))(frame_v4408, pd69); }; }; }; }; }; SOURCE(2356, 122) if ((0 == ok_v6256)) { SOURCE(2373, 21) { word pd70; pd70 = (* (( (ptr) (* (( (ptr) gf_c25804)+94)/* var_c23564 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd70 ))))(frame_v4408, obj_v6284, pd70); }; SOURCE(2396, 60) { word pd71; pd71 = (* (( (ptr) (* (( (ptr) gf_c25804)+94)/* var_c23564 */ ))+31) ); (void) ( *( (fPt) ((* (ptr) pd71 ))))(frame_v4408, (* (( (ptr) gf_c25804)+36) ), pd71); }; SOURCE(2458, 20) { word pd72; pd72 = (* (( (ptr) (* (( (ptr) gf_c25804)+98)/* var_c24044 */ ))+26) ); (void) ( *( (fPt) ((* (ptr) pd72 ))))(frame_v4408, 2, pd72); }; }; SOURCE(2026, 452) return(name_v4452); } static void TryToPopName_P300(formal_c087, frame_v4512) word formal_c087; word frame_v4512; { register ptr gf_c25836 = (ptr) &globalframe; word name_v4556; word ok_v4584; /* TryToPopName: */ SOURCE(2487, 309) SOURCE(2487, 309) name_v4556 = 0; SOURCE(2563, 194) { word pd73; pd73 = (* (( (ptr) (* (( (ptr) gf_c25836)+94)/* var_c23564 */ ))+57) ); if ((0 == (word) ( *( (fPt) ((* (ptr) pd73 ))))(frame_v4512, pd73))) { SOURCE(2600, 157) { word var_c24076; { word pd74; pd74 = (* (( (ptr) (* (( (ptr) gf_c25836)+94)/* var_c23564 */ ))+50) ); var_c24076 = (word) ( *( (fPt) ((* (ptr) pd74 ))))(frame_v4512, pd74); }; if ((var_c24076 == 2)) { SOURCE(2640, 44) { word var_c24140; { word pd75; pd75 = (* (( (ptr) (* (( (ptr) gf_c25836)+94)/* var_c23564 */ ))+42) ); var_c24140 = (word) ( *( (fPt) ((* (ptr) pd75 ))))(frame_v4512, pd75); }; name_v4556 = var_c24140; ok_v4584 = 1; goto lab_L100005; }; } else { if ((var_c24076 == 3)) { SOURCE(2694, 63) { word var_c24236; { word var_c24204; { word pd76; pd76 = (* (( (ptr) (* (( (ptr) gf_c25836)+94)/* var_c23564 */ ))+43) ); var_c24204 = (word) ( *( (fPt) ((* (ptr) pd76 ))))(frame_v4512, pd76); }; { word pd77; pd77 = (* (( (ptr) (* (( (ptr) gf_c25836)+94)/* var_c23564 */ ))+22) ); var_c24236 = (word) ( *( (fPt) ((* (ptr) pd77 ))))(var_c24204, pd77); }; }; name_v4556 = var_c24236; ok_v4584 = 1; goto lab_L100005; }; }; }; }; }; }; SOURCE(2768, 28) name_v4556 = 0; ok_v4584 = 0; /* removed tail goto */ lab_L100005: ; (* (ptr) formal_c087 ) = name_v4556; (* (( (ptr) formal_c087)+1) ) = ok_v4584; return; } static void TryToPopReal_P360(formal_c093, frame_v4644) word formal_c093; word frame_v4644; { register ptr gf_c25868 = (ptr) &globalframe; word value_v4688; word ok_v4716; /* TryToPopReal: */ SOURCE(2802, 239) SOURCE(2879, 124) { word pd78; pd78 = (* (( (ptr) (* (( (ptr) gf_c25868)+94)/* var_c23564 */ ))+57) ); if ((0 == (word) ( *( (fPt) ((* (ptr) pd78 ))))(frame_v4644, pd78))) { SOURCE(2916, 87) { word var_c24268; { word pd79; pd79 = (* (( (ptr) (* (( (ptr) gf_c25868)+94)/* var_c23564 */ ))+50) ); var_c24268 = (word) ( *( (fPt) ((* (ptr) pd79 ))))(frame_v4644, pd79); }; if ((var_c24268 == 1)) { SOURCE(2958, 45) { word var_c24332; { word pd80; pd80 = (* (( (ptr) (* (( (ptr) gf_c25868)+94)/* var_c23564 */ ))+40) ); var_c24332 = (word) ( *( (fPt) ((* (ptr) pd80 ))))(frame_v4644, pd80); }; value_v4688 = var_c24332; ok_v4716 = 1; goto lab_L100006; }; }; }; }; }; SOURCE(3014, 27) value_v4688 = (* (ptr) &fc81 ); ok_v4716 = 0; /* removed tail goto */ lab_L100006: ; (* (ptr) formal_c093 ) = value_v4688; (* (( (ptr) formal_c093)+1) ) = ok_v4716; return; } static void TryToPopRope_P420(formal_c0101, frame_v4776) word formal_c0101; word frame_v4776; { register ptr gf_c25900 = (ptr) &globalframe; word rope_v4820; word ok_v4848; /* TryToPopRope: */ SOURCE(3047, 309) SOURCE(3047, 309) rope_v4820 = 0; SOURCE(3123, 194) { word pd82; pd82 = (* (( (ptr) (* (( (ptr) gf_c25900)+94)/* var_c23564 */ ))+57) ); if ((0 == (word) ( *( (fPt) ((* (ptr) pd82 ))))(frame_v4776, pd82))) { SOURCE(3160, 157) { word var_c24364; { word pd83; pd83 = (* (( (ptr) (* (( (ptr) gf_c25900)+94)/* var_c23564 */ ))+50) ); var_c24364 = (word) ( *( (fPt) ((* (ptr) pd83 ))))(frame_v4776, pd83); }; if ((var_c24364 == 2)) { SOURCE(3200, 63) { word var_c24460; { word var_c24428; { word pd84; pd84 = (* (( (ptr) (* (( (ptr) gf_c25900)+94)/* var_c23564 */ ))+42) ); var_c24428 = (word) ( *( (fPt) ((* (ptr) pd84 ))))(frame_v4776, pd84); }; { word pd85; pd85 = (* (( (ptr) (* (( (ptr) gf_c25900)+94)/* var_c23564 */ ))+21) ); var_c24460 = (word) ( *( (fPt) ((* (ptr) pd85 ))))(var_c24428, pd85); }; }; rope_v4820 = var_c24460; ok_v4848 = 1; goto lab_L100007; }; } else { if ((var_c24364 == 3)) { SOURCE(3273, 44) { word var_c24524; { word pd86; pd86 = (* (( (ptr) (* (( (ptr) gf_c25900)+94)/* var_c23564 */ ))+43) ); var_c24524 = (word) ( *( (fPt) ((* (ptr) pd86 ))))(frame_v4776, pd86); }; rope_v4820 = var_c24524; ok_v4848 = 1; goto lab_L100007; }; }; }; }; }; }; SOURCE(3328, 28) rope_v4820 = 0; ok_v4848 = 0; /* removed tail goto */ lab_L100007: ; (* (ptr) formal_c0101 ) = rope_v4820; (* (( (ptr) formal_c0101)+1) ) = ok_v4848; return; } static word TypeCheckName_P480(obj_v4908) word obj_v4908; { register ptr gf_c25932 = (ptr) &globalframe; word var_c4952; /* TypeCheckName: */ SOURCE(3362, 144) SOURCE(3422, 84) { word var_c24556; word var_c24588; var_c24556 = obj_v4908; if ((var_c24556 == 0)) { goto lab_L100008; }; var_c24588 = XR_GetReferentType(var_c24556); { word tc87; if (((* (( (ptr) gf_c25932)+15) ) == var_c24588)) { { word x_v6328; x_v6328 = var_c24556; SOURCE(3454, 10) return(x_v6328); }; } else { if (((* (( (ptr) gf_c25932)+12) ) == var_c24588)) { tc87 = (word) ( (unsigned) (*(int*)var_c24556<0) == 0); } else { tc87 = (word) 0; }; if (tc87) { { word x_v6372; x_v6372 = var_c24556; SOURCE(3477, 29) { word pd88; pd88 = (* (( (ptr) (* (( (ptr) gf_c25932)+94)/* var_c23564 */ ))+22) ); return((word) ( *( (fPt) ((* (ptr) pd88 ))))(x_v6372, pd88)); }; }; } else { lab_L100008: ; }; }; }; }; SOURCE(3517, 5) (void) XR_RaiseUnnamedError(); } static word TypeCheckDict_P540(obj_v5012) word obj_v5012; { register ptr gf_c25964 = (ptr) &globalframe; word var_c5056; /* TypeCheckDict: */ SOURCE(3528, 112) SOURCE(3593, 47) { word var_c24652; var_c24652 = obj_v5012; if ((var_c24652 == 0)) { goto lab_L100009; }; if (((* (( (ptr) gf_c25964)+16) ) == XR_GetReferentType(var_c24652))) { { word x_v6416; x_v6416 = var_c24652; SOURCE(3630, 10) return(x_v6416); }; } else { lab_L100009: ; }; }; SOURCE(3651, 5) (void) XR_RaiseUnnamedError(); } static word TypeCheckCommand_P600(obj_v5116) word obj_v5116; { register ptr gf_c25996 = (ptr) &globalframe; word var_c5160; /* TypeCheckCommand: */ SOURCE(3662, 113) SOURCE(3729, 46) { word var_c24684; var_c24684 = obj_v5116; if ((var_c24684 == 0)) { goto lab_L100010; }; if (((* (( (ptr) gf_c25996)+17) ) == XR_GetReferentType(var_c24684))) { { word x_v6460; x_v6460 = var_c24684; SOURCE(3765, 10) return(x_v6460); }; } else { lab_L100010: ; }; }; SOURCE(3786, 5) (void) XR_RaiseUnnamedError(); } static void IsCommentOp_P660(frame_v16832, cmd_v16860) word frame_v16832; word cmd_v16860; { register ptr gf_c26028 = (ptr) &globalframe; word style_v6504; /* IsCommentOp: */ SOURCE(3797, 107) SOURCE(3832, 33) { word pd89; pd89 = (* (( (ptr) (* (( (ptr) gf_c26028)+98)/* var_c24044 */ ))+7) ); style_v6504 = (word) ( *( (fPt) ((* (ptr) pd89 ))))(frame_v16832, pd89); }; SOURCE(3867, 37) { word pd90; pd90 = (* (( (ptr) (* (( (ptr) gf_c26028)+94)/* var_c23564 */ ))+26) ); (void) ( *( (fPt) ((* (ptr) pd90 ))))(frame_v16832, (unsigned) (* (( (hPt) style_v6504)+1) ), pd90); }; } static void IsPrintOp_P720(frame_v16920, cmd_v16948) word frame_v16920; word cmd_v16948; { register ptr gf_c26060 = (ptr) &globalframe; word style_v6548; /* IsPrintOp: */ SOURCE(3910, 106) SOURCE(3943, 33) { word pd91; pd91 = (* (( (ptr) (* (( (ptr) gf_c26060)+98)/* var_c24044 */ ))+7) ); style_v6548 = (word) ( *( (fPt) ((* (ptr) pd91 ))))(frame_v16920, pd91); }; SOURCE(3978, 38) { word pd92; pd92 = (* (( (ptr) (* (( (ptr) gf_c26060)+94)/* var_c23564 */ ))+26) ); (void) ( *( (fPt) ((* (ptr) pd92 ))))(frame_v16920, (unsigned) ( (unsigned) ( * (bPt) style_v6548 >> 6) == 1), pd92); }; } static void NestingLevelOp_P780(frame_v17008, cmd_v17036) word frame_v17008; word cmd_v17036; { register ptr gf_c26092 = (ptr) &globalframe; word style_v6592; /* NestingLevelOp: */ SOURCE(4022, 112) SOURCE(4060, 33) { word pd93; pd93 = (* (( (ptr) (* (( (ptr) gf_c26092)+98)/* var_c24044 */ ))+7) ); style_v6592 = (word) ( *( (fPt) ((* (ptr) pd93 ))))(frame_v17008, pd93); }; SOURCE(4095, 39) { word pd94; pd94 = (* (( (ptr) (* (( (ptr) gf_c26092)+94)/* var_c23564 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd94 ))))(frame_v17008, (* (( (ptr) style_v6592)+1) ), pd94); }; } static void StyleParamOp_P840(frame_v17096, cmd_v17124) word frame_v17096; word cmd_v17124; { register ptr gf_c26124 = (ptr) &globalframe; word initialValue_v6636; word name_v6664; word key_v6692 = 0; word array_v6720 = 0; /* StyleParamOp: */ SOURCE(4139, 324) SOURCE(4174, 38) { word pd95; pd95 = (* (( (ptr) (* (( (ptr) gf_c26124)+94)/* var_c23564 */ ))+37) ); initialValue_v6636 = (word) ( *( (fPt) ((* (ptr) pd95 ))))(frame_v17096, pd95); }; SOURCE(4235, 27) name_v6664 = (word) PopName_P240(frame_v17096); SOURCE(4316, 47) { W2 var_c24716; (void) SpecialOpArray_P900((word) &var_c24716, name_v6664, (* (( (ptr) gf_c26124)+19) )); array_v6720 = var_c24716.f1; key_v6692 = var_c24716.f0; }; SOURCE(4365, 38) { word var_c24748; { word pd96; pd96 = (* (( (ptr) (* (( (ptr) gf_c26124)+94)/* var_c23564 */ ))+23) ); var_c24748 = (word) ( *( (fPt) ((* (ptr) pd96 ))))(array_v6720, pd96); }; { word pd97; pd97 = (* (( (ptr) (* (( (ptr) gf_c26124)+94)/* var_c23564 */ ))+86) ); (void) ( *( (fPt) ((* (ptr) pd97 ))))(frame_v17096, name_v6664, var_c24748, pd97); }; }; SOURCE(4429, 34) { word pd98; pd98 = (* (( (ptr) (* (( (ptr) gf_c26124)+94)/* var_c23564 */ ))+86) ); (void) ( *( (fPt) ((* (ptr) pd98 ))))(frame_v17096, key_v6692, initialValue_v6636, pd98); }; } static void SpecialOpArray_P900(formal_c0139, name_v5220, op_v5248) word formal_c0139; word name_v5220; word op_v5248; { register ptr gf_c26156 = (ptr) &globalframe; word key_v5292; word array_v5320; /* SpecialOpArray: */ SOURCE(4496, 210) SOURCE(4496, 210) key_v5292 = 0; SOURCE(4496, 210) array_v5320 = 0; SOURCE(4592, 25) key_v5292 = (word) StyleParamKey_P960(name_v5220); SOURCE(4619, 24) { word pd99; pd99 = (* (( (ptr) (* (( (ptr) gf_c26156)+94)/* var_c23564 */ ))+61) ); array_v5320 = (word) ( *( (fPt) ((* (ptr) pd99 ))))(2, pd99); }; SOURCE(4645, 36) { word var_c24780; { word pd100; pd100 = (* (( (ptr) (* (( (ptr) gf_c26156)+94)/* var_c23564 */ ))+24) ); var_c24780 = (word) ( *( (fPt) ((* (ptr) pd100 ))))(key_v5292, pd100); }; { word pd101; pd101 = (* (( (ptr) (* (( (ptr) gf_c26156)+94)/* var_c23564 */ ))+64) ); (void) ( *( (fPt) ((* (ptr) pd101 ))))(array_v5320, 0, var_c24780, pd101); }; }; SOURCE(4683, 23) { word pd102; pd102 = (* (( (ptr) (* (( (ptr) gf_c26156)+94)/* var_c23564 */ ))+64) ); (void) ( *( (fPt) ((* (ptr) pd102 ))))(array_v5320, 1, op_v5248, pd102); }; /* removed tail goto */ (* (ptr) formal_c0139 ) = key_v5292; (* (( (ptr) formal_c0139)+1) ) = array_v5320; return; } static word StyleParamKey_P960(name_v5380) word name_v5380; { register ptr gf_c26188 = (ptr) &globalframe; word key_v5424; word scratch_v6764; word text_v6792; /* StyleParamKey: */ SOURCE(4712, 299) SOURCE(4712, 299) key_v5424 = 0; SOURCE(4776, 45) { word pd103; pd103 = (* (( (ptr) (* (( (ptr) gf_c26188)+97)/* var_c23756 */ ))+6) ); scratch_v6764 = (word) ( *( (fPt) ((* (ptr) pd103 ))))(50, pd103); }; SOURCE(4823, 24) text_v6792 = scratch_v6764; SOURCE(4849, 37) { word pd104; pd104 = (* (( (ptr) (* (( (ptr) gf_c26188)+97)/* var_c23756 */ ))+10) ); text_v6792 = (word) ( *( (fPt) ((* (ptr) pd104 ))))(text_v6792, (* (( (ptr) gf_c26188)+20) ), 0, 32767, pd104); }; SOURCE(4888, 52) { word var_c24812; { word pd105; pd105 = (* (( (ptr) (* (( (ptr) gf_c26188)+95)/* var_c23692 */ ))+9) ); var_c24812 = (word) ( *( (fPt) ((* (ptr) pd105 ))))(name_v5380, pd105); }; { word pd106; pd106 = (* (( (ptr) (* (( (ptr) gf_c26188)+97)/* var_c23756 */ ))+10) ); text_v6792 = (word) ( *( (fPt) ((* (ptr) pd106 ))))(text_v6792, var_c24812, 0, 32767, pd106); }; }; SOURCE(4942, 36) { word pd107; pd107 = (* (( (ptr) (* (( (ptr) gf_c26188)+95)/* var_c23692 */ ))+8) ); key_v5424 = (word) ( *( (fPt) ((* (ptr) pd107 ))))(text_v6792, pd107); }; SOURCE(4980, 31) { word pd108; pd108 = (* (( (ptr) (* (( (ptr) gf_c26188)+97)/* var_c23756 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd108 ))))(scratch_v6764, pd108); }; SOURCE(4712, 299) return(key_v5424); } static void SpecialOp_P1020(formal_c0270, cmd_v17212) word formal_c0270; word cmd_v17212; { W9 var_c26220; /* declaration of frame_v17184 skipped */ register ptr gf_c26252 = (ptr) &globalframe; /* declaration of var_c24844 skipped */ word aName_v6860; word name_v6888 = 0; /* declaration of var_v6916 skipped */ /* declaration of style_v6944 skipped */ (* (( (ptr) &var_c26220)+4)/* frame_v17184 */ ) = formal_c0270; /* SpecialOp: */ SOURCE(5017, 1792) { word tmpAddr109; tmpAddr109 = (word) (( (ptr) &var_c26220)+5)/* var_c24844 */ ; (* (ptr) tmpAddr109 ) = ( ((word) (fPt) Load_P2076) ); (* (( (ptr) tmpAddr109) + 1) ) = 1; }; SOURCE(5074, 9) (* (( (ptr) &var_c26220)+7)/* var_v6916 */ ) = 0; SOURCE(5085, 33) { word pd110; pd110 = (* (( (ptr) (* (( (ptr) gf_c26252)+98)/* var_c24044 */ ))+7) ); (* (( (ptr) &var_c26220)+8)/* style_v6944 */ ) = (word) ( *( (fPt) ((* (ptr) pd110 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd110) ; }; SOURCE(6160, 20) (* (( (ptr) &var_c26220)+7)/* var_v6916 */ ) = (word) PopName_P240((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) )); SOURCE(6219, 35) { W2 var_c24876; (void) TryToPopName_P300((word) &var_c24876, (* (( (ptr) &var_c26220)+4)/* frame_v17184 */ )); aName_v6860 = var_c24876.f1; name_v6888 = var_c24876.f0; }; SOURCE(6256, 553) if ((0 == aName_v6860)) { SOURCE(6274, 60) { word ob_v21844; { word pd111; pd111 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+37) ); ob_v21844 = (word) ( *( (fPt) ((* (ptr) pd111 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd111); }; SOURCE(5619, 70) { word pd112; pd112 = (* (( (ptr) (* (( (ptr) gf_c26252)+99)/* var_c24908 */ ))+44) ); (* (( (ptr) (* (( (ptr) &var_c26220)+8)/* style_v6944 */ ))+36) ) = (word) ( *( (fPt) ((* (ptr) pd112 ))))((* (( (ptr) &var_c26220)+7) /* var_v6916 */ ), ob_v21844, (* (( (ptr) (* (( (ptr) &var_c26220)+8)/* style_v6944 */ ))+36) ), pd112); }; }; } else { SOURCE(6336, 473) { word var_c24940; var_c24940 = name_v6888; if ((var_c24940 == (* (( (ptr) gf_c26252)+21) ))) { SOURCE(6361, 6) (void) Load_P2076((word) ((( (bPt) &var_c26220)+20)/* var_c24844 */ )); goto endif0113; }; if ((var_c24940 == (* (( (ptr) gf_c26252)+22) ))) { SOURCE(6382, 35) { W2 var_c24972; (void) TryToPopName_P300((word) &var_c24972, (* (( (ptr) &var_c26220)+4)/* frame_v17184 */ )); aName_v6860 = var_c24972.f1; name_v6888 = var_c24972.f0; }; SOURCE(6419, 130) if ((0 == aName_v6860)) { SOURCE(6437, 34) { word inc_v22212; { word pd114; pd114 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+40) ); inc_v22212 = (word) ( *( (fPt) ((* (ptr) pd114 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd114); }; { word value_v7672; value_v7672 = (* (ptr) &fc81 ); SOURCE(5886, 6) (void) Load_P2076((word) ((( (bPt) &var_c26220)+20)/* var_c24844 */ )); SOURCE(5894, 27) { word pd115; pd115 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+40) ); value_v7672 = (word) ( *( (fPt) ((* (ptr) pd115 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd115); }; SOURCE(5923, 18) { word x_v21984; { word x116; word x117; *(float*)&x_v21984 = ( /*1*/ x116 = value_v7672, *(float*)&x116 /*1*/ ) + ( /*1*/ x117 = inc_v22212, *(float*)&x117 /*1*/ ); }; SOURCE(5778, 23) { word pd118; pd118 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd118 ))))((* (( (ptr) &var_c26220)+4)/* frame_v17184 */ ), x_v21984, pd118); }; SOURCE(5803, 22) { word ob_v21796; { /*1*/ word pd119; /*1*/ pd119 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+37) ); /*1*/ ob_v21796 = (word) ( *( (fPt) ((* (ptr) pd119 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd119); /*1*/ }; SOURCE(5619, 70) { /*1*/ word pd120; /*1*/ pd120 = (* (( (ptr) (* (( (ptr) gf_c26252)+99)/* var_c24908 */ ))+44) ); /*1*/ (* (( (ptr) (* (( (ptr) &var_c26220)+8)/* style_v6944 */ ))+36) ) = (word) ( *( (fPt) ((* (ptr) pd120 ))))((* (( (ptr) &var_c26220)+7) /*1*/ /* var_v6916 */ ), ob_v21796, (* (( (ptr) (* (( (ptr) &var_c26220)+8)/* style_v6944 */ ))+36) ), pd120); /*1*/ }; }; }; }; }; } else { SOURCE(6471, 78) if ((name_v6888 == (* (( (ptr) gf_c26252)+23) ))) { SOURCE(6495, 38) { word percent_v22636; { word x122; word pd123; word x124; pd123 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+40) ); *(float*)&percent_v22636 = ( x122 = (* (ptr) &fc121 ), *(float*)&x122 ) + ( x124 = (word) ( *( (fPt) ((* (ptr) pd123 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd123), *(float*)&x124 ); }; { word value_v7700; value_v7700 = (* (ptr) &fc81 ); SOURCE(6089, 6) (void) Load_P2076((word) ((( (bPt) &var_c26220)+20)/* var_c24844 */ )); SOURCE(6097, 27) { word pd125; pd125 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+40) ); value_v7700 = (word) ( *( (fPt) ((* (ptr) pd125 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd125); }; SOURCE(6126, 29) { word x_v21892; { /*1*/ word x126; /*1*/ word x128; /*1*/ word x129; /*1*/ *(float*)&x_v21892 = (( /*1*/ x126 = percent_v22636, *(float*)&x126 /*1*/ ) * ( /*1*/ x128 = (* (ptr) &fc127 ), *(float*)&x128 /*1*/ )) * ( /*1*/ x129 = value_v7700, *(float*)&x129 /*1*/ ); /*1*/ }; SOURCE(5778, 23) { /*1*/ word pd130; /*1*/ pd130 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+28) ); /*1*/ (void) ( *( (fPt) ((* (ptr) pd130 ))))((* (( (ptr) &var_c26220)+4)/* frame_v17184 */ ), x_v21892, pd130); /*1*/ }; SOURCE(5803, 22) { /*1*/ word ob_v21940; /*1*/ { /*1*/ word pd131; /*1*/ pd131 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+37) ); /*1*/ ob_v21940 = (word) ( *( (fPt) ((* (ptr) pd131 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd131); /*1*/ }; SOURCE(5619, 70) /*1*/ { /*1*/ word pd132; /*1*/ pd132 = (* (( (ptr) (* (( (ptr) gf_c26252)+99)/* var_c24908 */ ))+44) ); /*1*/ (* (( (ptr) (* (( (ptr) &var_c26220)+8)/* style_v6944 */ ))+36) ) = (word) ( *( (fPt) ((* (ptr) pd132 ))))((* (( (ptr) &var_c26220)+7) /*1*/ /* var_v6916 */ ), ob_v21940, (* (( (ptr) (* (( (ptr) &var_c26220)+8)/* style_v6944 */ ))+36) ), pd132); /*1*/ }; /*1*/ }; }; }; }; } else { SOURCE(6535, 5) SOURCE(5143, 21) { word pd133; pd133 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd133 ))))((* (( (ptr) &var_c26220)+4)/* frame_v17184 */ ), (* (( (ptr) &var_c26220)+7)/* var_v6916 */ ), pd133) ; }; SOURCE(5166, 46) { word pd134; pd134 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+31) ); (void) ( *( (fPt) ((* (ptr) pd134 ))))((* (( (ptr) &var_c26220)+4)/* frame_v17184 */ ), (* (( (ptr) gf_c26252)+25) ), pd134) ; }; SOURCE(5214, 22) { word pd135; pd135 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd135 ))))((* (( (ptr) &var_c26220)+4)/* frame_v17184 */ ), name_v6888, pd135); }; SOURCE(5238, 20) { word pd136; pd136 = (* (( (ptr) (* (( (ptr) gf_c26252)+98)/* var_c24044 */ ))+26) ); (void) ( *( (fPt) ((* (ptr) pd136 ))))((* (( (ptr) &var_c26220)+4)/* frame_v17184 */ ), 3, pd136); }; SOURCE(6542, 7) return; }; }; goto endif0113; }; if ((var_c24940 == (* (( (ptr) gf_c26252)+24) ))) { SOURCE(6569, 35) { W2 var_c25004; (void) TryToPopName_P300((word) &var_c25004, (* (( (ptr) &var_c26220)+4)/* frame_v17184 */ )); aName_v6860 = var_c25004.f1; name_v6888 = var_c25004.f0; }; SOURCE(6606, 131) if ((0 == aName_v6860)) { SOURCE(6624, 35) { word inc_v22048; { word pd137; word x138; pd137 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+40) ); *(float*)&inc_v22048 = - ( x138 = (word) ( *( (fPt) ((* (ptr) pd137 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd137), *(float*)&x138 ); }; { word value_v22080; value_v22080 = (* (ptr) &fc81 ); SOURCE(5886, 6) (void) Load_P2076((word) ((( (bPt) &var_c26220)+20)/* var_c24844 */ )); SOURCE(5894, 27) { word pd139; pd139 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+40) ); value_v22080 = (word) ( *( (fPt) ((* (ptr) pd139 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd139); }; SOURCE(5923, 18) { word x_v22124; { word x140; word x141; *(float*)&x_v22124 = ( /*1*/ x140 = value_v22080, *(float*)&x140 /*1*/ ) + ( /*1*/ x141 = inc_v22048, *(float*)&x141 /*1*/ ); }; SOURCE(5778, 23) { word pd142; pd142 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd142 ))))((* (( (ptr) &var_c26220)+4)/* frame_v17184 */ ), x_v22124, pd142); }; SOURCE(5803, 22) { word ob_v22168; { /*1*/ word pd143; /*1*/ pd143 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+37) ); /*1*/ ob_v22168 = (word) ( *( (fPt) ((* (ptr) pd143 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd143); /*1*/ }; SOURCE(5619, 70) { /*1*/ word pd144; /*1*/ pd144 = (* (( (ptr) (* (( (ptr) gf_c26252)+99)/* var_c24908 */ ))+44) ); /*1*/ (* (( (ptr) (* (( (ptr) &var_c26220)+8)/* style_v6944 */ ))+36) ) = (word) ( *( (fPt) ((* (ptr) pd144 ))))((* (( (ptr) &var_c26220)+7) /*1*/ /* var_v6916 */ ), ob_v22168, (* (( (ptr) (* (( (ptr) &var_c26220)+8)/* style_v6944 */ ))+36) ), pd144); /*1*/ }; }; }; }; }; } else { SOURCE(6659, 78) if ((name_v6888 == (* (( (ptr) gf_c26252)+23) ))) { SOURCE(6683, 38) { word percent_v22472; { word x145; word pd146; word x147; pd146 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+40) ); *(float*)&percent_v22472 = ( x145 = (* (ptr) &fc121 ), *(float*)&x145 ) - ( x147 = (word) ( *( (fPt) ((* (ptr) pd146 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd146), *(float*)&x147 ); }; { word value_v22504; value_v22504 = (* (ptr) &fc81 ); SOURCE(6089, 6) (void) Load_P2076((word) ((( (bPt) &var_c26220)+20)/* var_c24844 */ )); SOURCE(6097, 27) { word pd148; pd148 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+40) ); value_v22504 = (word) ( *( (fPt) ((* (ptr) pd148 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd148); }; SOURCE(6126, 29) { word x_v22548; { /*1*/ word x149; /*1*/ word x150; /*1*/ word x151; /*1*/ *(float*)&x_v22548 = (( /*1*/ x149 = percent_v22472, *(float*)&x149 /*1*/ ) * ( /*1*/ x150 = (* (ptr) &fc127 ), *(float*)&x150 /*1*/ )) * ( /*1*/ x151 = value_v22504, *(float*)&x151 /*1*/ ); /*1*/ }; SOURCE(5778, 23) { /*1*/ word pd152; /*1*/ pd152 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+28) ); /*1*/ (void) ( *( (fPt) ((* (ptr) pd152 ))))((* (( (ptr) &var_c26220)+4)/* frame_v17184 */ ), x_v22548, pd152); /*1*/ }; SOURCE(5803, 22) { /*1*/ word ob_v22592; /*1*/ { /*1*/ word pd153; /*1*/ pd153 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+37) ); /*1*/ ob_v22592 = (word) ( *( (fPt) ((* (ptr) pd153 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd153); /*1*/ }; SOURCE(5619, 70) /*1*/ { /*1*/ word pd154; /*1*/ pd154 = (* (( (ptr) (* (( (ptr) gf_c26252)+99)/* var_c24908 */ ))+44) ); /*1*/ (* (( (ptr) (* (( (ptr) &var_c26220)+8)/* style_v6944 */ ))+36) ) = (word) ( *( (fPt) ((* (ptr) pd154 ))))((* (( (ptr) &var_c26220)+7) /*1*/ /* var_v6916 */ ), ob_v22592, (* (( (ptr) (* (( (ptr) &var_c26220)+8)/* style_v6944 */ ))+36) ), pd154); /*1*/ }; /*1*/ }; }; }; }; } else { SOURCE(6723, 5) SOURCE(5143, 21) { word pd155; pd155 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd155 ))))((* (( (ptr) &var_c26220)+4)/* frame_v17184 */ ), (* (( (ptr) &var_c26220)+7)/* var_v6916 */ ), pd155) ; }; SOURCE(5166, 46) { word pd156; pd156 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+31) ); (void) ( *( (fPt) ((* (ptr) pd156 ))))((* (( (ptr) &var_c26220)+4)/* frame_v17184 */ ), (* (( (ptr) gf_c26252)+25) ), pd156) ; }; SOURCE(5214, 22) { word pd157; pd157 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd157 ))))((* (( (ptr) &var_c26220)+4)/* frame_v17184 */ ), name_v6888, pd157); }; SOURCE(5238, 20) { word pd158; pd158 = (* (( (ptr) (* (( (ptr) gf_c26252)+98)/* var_c24044 */ ))+26) ); (void) ( *( (fPt) ((* (ptr) pd158 ))))((* (( (ptr) &var_c26220)+4)/* frame_v17184 */ ), 3, pd158); }; SOURCE(6730, 7) return; }; }; goto endif0113; }; if ((var_c24940 == (* (( (ptr) gf_c26252)+23) ))) { SOURCE(6755, 28) { word percent_v22308; { word pd159; pd159 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+40) ); percent_v22308 = (word) ( *( (fPt) ((* (ptr) pd159 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd159); }; { word value_v22340; value_v22340 = (* (ptr) &fc81 ); SOURCE(6089, 6) (void) Load_P2076((word) ((( (bPt) &var_c26220)+20)/* var_c24844 */ )); SOURCE(6097, 27) { word pd160; pd160 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+40) ); value_v22340 = (word) ( *( (fPt) ((* (ptr) pd160 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd160); }; SOURCE(6126, 29) { word x_v22384; { word x161; word x162; word x163; *(float*)&x_v22384 = (( x161 = percent_v22308, *(float*)&x161 ) * ( x162 = (* (ptr) &fc127 ), *(float*)&x162 )) * ( x163 = value_v22340, *(float*)&x163 ); }; SOURCE(5778, 23) { word pd164; pd164 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd164 ))))((* (( (ptr) &var_c26220)+4)/* frame_v17184 */ ), x_v22384, pd164); }; SOURCE(5803, 22) { word ob_v22428; { word pd165; pd165 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+37) ); ob_v22428 = (word) ( *( (fPt) ((* (ptr) pd165 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd165); }; SOURCE(5619, 70) { word pd166; pd166 = (* (( (ptr) (* (( (ptr) gf_c26252)+99)/* var_c24908 */ ))+44) ); (* (( (ptr) (* (( (ptr) &var_c26220)+8)/* style_v6944 */ ))+36) ) = (word) ( *( (fPt) ((* (ptr) pd166 ))))((* (( (ptr) &var_c26220)+7) /*1*/ /* var_v6916 */ ), ob_v22428, (* (( (ptr) (* (( (ptr) &var_c26220)+8)/* style_v6944 */ ))+36) ), pd166); }; }; }; }; }; goto endif0113; }; SOURCE(6796, 13) SOURCE(5981, 19) { word pd167; pd167 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd167 ))))((* (( (ptr) &var_c26220)+4)/* frame_v17184 */ ), name_v6888, pd167); }; SOURCE(6002, 22) { word ob_v21748; { word pd168; pd168 = (* (( (ptr) (* (( (ptr) gf_c26252)+94)/* var_c23564 */ ))+37) ); ob_v21748 = (word) ( *( (fPt) ((* (ptr) pd168 ))))((* ((( (ptr) &var_c26220)+4)/* frame_v17184 */ ) ), pd168); }; SOURCE(5619, 70) { word pd169; pd169 = (* (( (ptr) (* (( (ptr) gf_c26252)+99)/* var_c24908 */ ))+44) ); (* (( (ptr) (* (( (ptr) &var_c26220)+8)/* style_v6944 */ ))+36) ) = (word) ( *( (fPt) ((* (ptr) pd169 ))))((* (( (ptr) &var_c26220)+7) /* var_v6916 */ ), ob_v21748, (* (( (ptr) (* (( (ptr) &var_c26220)+8)/* style_v6944 */ ))+36) ), pd169); }; }; goto endif0113; endif0113: ; }; }; } static void Load_P2076(formal_c26316) word formal_c26316; { register ptr gf_c26284 = (ptr) &globalframe; formal_c26316 = (formal_c26316 - 20); /* Load: */ SOURCE(5694, 46) SOURCE(5709, 31) { word var_c25036; { word var_c25068; SOURCE(5308, 143) { register word x_v7604; x_v7604 = (* (( (ptr) (* (( (ptr) formal_c26316)+8) ))+36) ); lab_L100015: ; if ((x_v7604 != 0)) { } else { goto lab_L100012; }; SOURCE(5364, 87) { word var_c25100; var_c25100 = x_v7604; if ((var_c25100 == 0)) { goto lab_L100016; }; if (((* (( (ptr) var_c25100)+1) ) == 0)) { { word xx_v7632; xx_v7632 = var_c25100; SOURCE(5411, 40) if (((* (( (ptr) xx_v7632)+2) ) == (* (( (ptr) formal_c26316)+7) ))) { SOURCE(5433, 18) var_c25068 = (* (( (ptr) xx_v7632)+3) ); goto lab_L100017; }; }; } else { lab_L100016: ; }; }; x_v7604 = (* (ptr) x_v7604 ); goto lab_L100015; lab_L100012: ; }; SOURCE(5479, 21) { word pd170; pd170 = (* (( (ptr) (* (( (ptr) gf_c26284)+94)/* var_c23564 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd170 ))))((* (( (ptr) formal_c26316)+4) ), (* (( (ptr) formal_c26316)+7) ), pd170); }; SOURCE(5502, 25) { word pd171; pd171 = (* (( (ptr) (* (( (ptr) gf_c26284)+94)/* var_c23564 */ ))+99) ); (void) ( *( (fPt) ((* (ptr) pd171 ))))((* (( (ptr) formal_c26316)+4) ), (* (( (ptr) gf_c26284)+8)/* load_v3784 */ ), pd171) ; }; SOURCE(5554, 24) { word pd172; pd172 = (* (( (ptr) (* (( (ptr) gf_c26284)+94)/* var_c23564 */ ))+37) ); var_c25068 = (word) ( *( (fPt) ((* (ptr) pd172 ))))((* ((( (ptr) formal_c26316)+4)) ), pd172); }; lab_L100017: ; var_c25036 = var_c25068; }; { word pd173; pd173 = (* (( (ptr) (* (( (ptr) gf_c26284)+94)/* var_c23564 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd173 ))))((* (( (ptr) formal_c26316)+4) ), var_c25036, pd173); }; }; } static void RegisterStyleCommand_P1080(frame_v5484, name_v5512, proc_v5540) word frame_v5484; word name_v5512; word proc_v5540; { register ptr gf_c26348 = (ptr) &globalframe; /* RegisterStyleCommand: */ SOURCE(6817, 175) SOURCE(6907, 32) { word pd174; pd174 = (* (( (ptr) (* (( (ptr) gf_c26348)+94)/* var_c23564 */ ))+103) ); (void) ( *( (fPt) ((* (ptr) pd174 ))))(frame_v5484, name_v5512, proc_v5540, 0, pd174); }; SOURCE(6941, 51) { word var_c25164; { word pd175; pd175 = (* (( (ptr) (* (( (ptr) gf_c26348)+94)/* var_c23564 */ ))+85) ); var_c25164 = (word) ( *( (fPt) ((* (ptr) pd175 ))))(frame_v5484, name_v5512, pd175); }; { word pd176; pd176 = (* (( (ptr) (* (( (ptr) gf_c26348)+94)/* var_c23564 */ ))+75) ); (void) ( *( (fPt) ((* (ptr) pd176 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf_c26348)+98)/* var_c24044 */ ))+17) ) ), name_v5512, var_c25164, pd176) ; }; }; } static void RegisterStyleLiteral_P1140(frame_v5600, name_v5628) word frame_v5600; word name_v5628; { register ptr gf_c26380 = (ptr) &globalframe; /* RegisterStyleLiteral: */ SOURCE(6998, 139) SOURCE(7063, 33) { word pd177; pd177 = (* (( (ptr) (* (( (ptr) gf_c26380)+94)/* var_c23564 */ ))+75) ); (void) ( *( (fPt) ((* (ptr) pd177 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf_c26380)+98)/* var_c24044 */ ))+17) ) ), name_v5628, name_v5628, pd177) ; }; SOURCE(7098, 39) { word var_c25196; { word pd178; pd178 = (* (( (ptr) (* (( (ptr) gf_c26380)+94)/* var_c23564 */ ))+24) ); var_c25196 = (word) ( *( (fPt) ((* (ptr) pd178 ))))(name_v5628, pd178); }; { word pd179; pd179 = (* (( (ptr) (* (( (ptr) gf_c26380)+94)/* var_c23564 */ ))+86) ); (void) ( *( (fPt) ((* (ptr) pd179 ))))(frame_v5600, name_v5628, var_c25196, pd179); }; }; } static word GetExecutingName_P1200() { register ptr gf_c26412 = (ptr) &globalframe; word executingName_v5688; /* GetExecutingName: */ SOURCE(7143, 134) SOURCE(7143, 134) executingName_v5688 = 0; SOURCE(7238, 39) { word var_c0194; (void) (XR_RaiseSignal((word) (( (bPt) gf_c26412)+176), (word) &var_c0194, 0)); executingName_v5688 = var_c0194; }; SOURCE(7143, 134) return(executingName_v5688); } static word GetWhere_P1260() { register ptr gf_c26444 = (ptr) &globalframe; word msg_v5748; /* GetWhere: */ SOURCE(7283, 97) SOURCE(7283, 97) msg_v5748 = 0; SOURCE(7360, 20) { word var_c0196; (void) (XR_RaiseSignal((word) (( (bPt) gf_c26444)+180), (word) &var_c0196, 0)); msg_v5748 = var_c0196; }; SOURCE(7283, 97) return(msg_v5748); } static void ReportStyleErrorOp_P1320(frame_v17272, cmd_v17300) word frame_v17272; word cmd_v17300; { W5 var_c26476; register ptr gf_c26508 = (ptr) &globalframe; word num_v7728; word msg1_v7756 = 0; word msg_v7784 = 0; word executingName_v7812 = 0; word where_v7840 = 0; /* ReportStyleErrorOp: */ SOURCE(7386, 941) SOURCE(7427, 29) { word pd180; pd180 = (* (( (ptr) (* (( (ptr) gf_c26508)+94)/* var_c23564 */ ))+39) ); num_v7728 = (word) ( *( (fPt) ((* (ptr) pd180 ))))(frame_v17272, pd180); }; SOURCE(7539, 61) SOURCE(7539, 61) { /* declaration of var_c01 skipped */ { word var_c02; { word var_c0260; var_c0260 = (word) &var_c26476; var_c02 = (word) XR_Enable(( ((word) (fPt) NoName_Q3612) ), ( ((word) (fPt) NoName_Q3732) ), var_c0260); }; if ((var_c02 == 2)) { goto lab_L100019; }; }; executingName_v7812 = var_c26476.f4/* var_c01 */ ; }; lab_L100019: ; SOURCE(7611, 45) SOURCE(7611, 45) { /* declaration of var_c03 skipped */ { word var_c04; { word var_c0261; var_c0261 = (word) &var_c26476; var_c04 = (word) XR_Enable(( ((word) (fPt) NoName_Q3552) ), ( ((word) (fPt) NoName_Q3672) ), var_c0261); }; if ((var_c04 == 3)) { goto lab_L100023; }; }; where_v7840 = var_c26476.f4/* var_c03 */ ; }; lab_L100023: ; SOURCE(7667, 202) { word var_c25260; word var_c25324; if ((executingName_v7812 != 0)) { { word var_c25292; { word pd181; pd181 = (* (( (ptr) (* (( (ptr) gf_c26508)+95)/* var_c23692 */ ))+9) ); var_c25292 = (word) ( *( (fPt) ((* (ptr) pd181 ))))(executingName_v7812, pd181); }; { word pd182; pd182 = (* (( (ptr) (* (( (ptr) gf_c26508)+96)/* var_c23724 */ ))+5) ); var_c25260 = (word) ( *( (fPt) ((* (ptr) pd182 ))))((* (( (ptr) gf_c26508)+27) ), var_c25292, (* (( (ptr) gf_c26508)+28) ), 0, 0, pd182); }; }; } else { var_c25260 = 0; }; { word pd183; if ((where_v7840 != 0)) { pd183 = (* (( (ptr) (* (( (ptr) gf_c26508)+96)/* var_c23724 */ ))+5) ); var_c25324 = (word) ( *( (fPt) ((* (ptr) pd183 ))))((* (( (ptr) gf_c26508)+29) ), where_v7840, (* (( (ptr) gf_c26508)+30) ), 0, 0, pd183); } else { var_c25324 = 0; }; }; { word pd184; pd184 = (* (( (ptr) (* (( (ptr) gf_c26508)+96)/* var_c23724 */ ))+5) ); msg1_v7756 = (word) ( *( (fPt) ((* (ptr) pd184 ))))((* (( (ptr) gf_c26508)+26) ), var_c25260, var_c25324, (* (( (ptr) gf_c26508)+31) ), 0, pd184); }; }; SOURCE(7871, 151) lab_L100028: ; if (( (int)num_v7728 != (int)0)) { } else { goto lab_L100026; }; { word m_v7884 = 0; word ok_v7912; SOURCE(7905, 29) { W2 var_c25356; (void) TryToPopRope_P420((word) &var_c25356, frame_v17272); ok_v7912 = var_c25356.f1; m_v7884 = var_c25356.f0; }; SOURCE(7936, 15) if ((0 == ok_v7912)) { SOURCE(7951, 4) goto lab_L100027; }; SOURCE(7957, 52) { word pd185; if ((msg_v7784 == 0)) { msg_v7784 = m_v7884; } else { pd185 = (* (( (ptr) (* (( (ptr) gf_c26508)+96)/* var_c23724 */ ))+5) ); msg_v7784 = (word) ( *( (fPt) ((* (ptr) pd185 ))))(m_v7884, (* (( (ptr) gf_c26508)+32) ), msg_v7784, 0, 0, pd185); }; }; SOURCE(8011, 11) num_v7728 = (num_v7728 - 1); }; goto lab_L100028; lab_L100026: ; lab_L100027: ; SOURCE(8033, 294) { word var_c25420; { word pd186; pd186 = (* (( (ptr) (* (( (ptr) gf_c26508)+101)/* var_c25388 */ ))+7) ); var_c25420 = (word) ( *( (fPt) ((* (ptr) pd186 ))))((* ((( (ptr) gf_c26508)+33)) ), pd186); }; if ((var_c25420 == 0)) { goto lab_L100029; }; if (((* (( (ptr) gf_c26508)+14) ) == XR_GetReferentType(var_c25420))) { { word errout_v7956; errout_v7956 = var_c25420; SOURCE(8103, 29) { word pd187; pd187 = (* (( (ptr) (* (( (ptr) gf_c26508)+102)/* var_c25452 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd187 ))))(errout_v7956, (* (( (ptr) gf_c26508)+34) ), 0, 2147483647, pd187); }; SOURCE(8134, 24) { word pd188; pd188 = (* (( (ptr) (* (( (ptr) gf_c26508)+102)/* var_c25452 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd188 ))))(errout_v7956, msg1_v7756, 0, 2147483647, pd188); }; SOURCE(8160, 23) { word pd189; pd189 = (* (( (ptr) (* (( (ptr) gf_c26508)+102)/* var_c25452 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd189 ))))(errout_v7956, msg_v7784, 0, 2147483647, pd189); }; SOURCE(8185, 24) { word pd190; pd190 = (* (( (ptr) (* (( (ptr) gf_c26508)+102)/* var_c25452 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd190 ))))(errout_v7956, (* (( (ptr) gf_c26508)+35) ), 0, 2147483647, pd190); }; }; } else { lab_L100029: ; SOURCE(8227, 50) { word pd191; pd191 = (* (( (ptr) (* (( (ptr) gf_c26508)+103)/* var_c25484 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd191 ))))((* (( (ptr) gf_c26508)+37) ), 1, (* (( (ptr) gf_c26508)+38) ), msg1_v7756, pd191) ; }; SOURCE(8279, 48) { word pd192; pd192 = (* (( (ptr) (* (( (ptr) gf_c26508)+103)/* var_c25484 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd192 ))))((* (( (ptr) gf_c26508)+37) ), 3, (* (( (ptr) gf_c26508)+38) ), msg_v7784, pd192); }; }; }; } static word NoName_Q3552(formal_c0255) word formal_c0255; { SOURCE(7611, 45) (* (( (ptr) formal_c0255)+4) ) = (word) GetWhere_P1260(); return(0); } static word NoName_Q3612(formal_c0256) word formal_c0256; { SOURCE(7539, 61) (* (( (ptr) formal_c0256)+4) ) = (word) GetExecutingName_P1200(); return(0); } static void RegisterWorks2_P1380(frame_v5808) word frame_v5808; { register ptr gf_c26540 = (ptr) &globalframe; /* RegisterWorks2: */ SOURCE(8402, 343) SOURCE(8449, 45) { word pd193; pd193 = (* (( (ptr) (* (( (ptr) gf_c26540)+94)/* var_c23564 */ ))+103) ); (void) ( *( (fPt) ((* (ptr) pd193 ))))(frame_v5808, (* (( (ptr) gf_c26540)+39) ), (word) (( (bPt) gf_c26540)+280)/* var_c23180 */ , 0, pd193) ; }; SOURCE(8496, 41) { word pd194; pd194 = (* (( (ptr) (* (( (ptr) gf_c26540)+94)/* var_c23564 */ ))+103) ); (void) ( *( (fPt) ((* (ptr) pd194 ))))(frame_v5808, (* (( (ptr) gf_c26540)+40) ), (word) (( (bPt) gf_c26540)+272)/* var_c23148 */ , 0, pd194) ; }; SOURCE(8539, 51) { word pd195; pd195 = (* (( (ptr) (* (( (ptr) gf_c26540)+94)/* var_c23564 */ ))+103) ); (void) ( *( (fPt) ((* (ptr) pd195 ))))(frame_v5808, (* (( (ptr) gf_c26540)+41) ), (word) (( (bPt) gf_c26540)+264)/* var_c23116 */ , 0, pd195) ; }; SOURCE(8592, 47) { word pd196; pd196 = (* (( (ptr) (* (( (ptr) gf_c26540)+94)/* var_c23564 */ ))+103) ); (void) ( *( (fPt) ((* (ptr) pd196 ))))(frame_v5808, (* (( (ptr) gf_c26540)+42) ), (word) (( (bPt) gf_c26540)+256)/* var_c23084 */ , 0, pd196) ; }; SOURCE(8641, 43) { word pd197; pd197 = (* (( (ptr) (* (( (ptr) gf_c26540)+94)/* var_c23564 */ ))+103) ); (void) ( *( (fPt) ((* (ptr) pd197 ))))(frame_v5808, (* (( (ptr) gf_c26540)+19) ), (word) (( (bPt) gf_c26540)+232)/* var_c22988 */ , 0, pd197) ; }; SOURCE(8686, 59) { word pd198; pd198 = (* (( (ptr) (* (( (ptr) gf_c26540)+94)/* var_c23564 */ ))+103) ); (void) ( *( (fPt) ((* (ptr) pd198 ))))(frame_v5808, (* (( (ptr) gf_c26540)+43) ), (word) (( (bPt) gf_c26540)+192)/* var_c22828 */ , 0, pd198) ; }; } static void NoName_Q3672(formal_c0220, formal_c200004, formal_c200005, formal_c200006, formal_c200007) word formal_c0220; word formal_c200004; word formal_c200005; word formal_c200006; word formal_c200007; { register ptr gf_c0258 = (ptr) &globalframe; if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0258)+100)/* var_c25228 */ ))+22) ))) { { word signal_v20884; word parameters_v20912; signal_v20884 = (* (ptr) formal_c200007 ); parameters_v20912 = (* (( (ptr) formal_c200007)+1) ); SOURCE(7656, 9) (* (ptr) formal_c0220 ) = 2; (* (( (ptr) formal_c0220)+1) ) = 3; return; }; }; (* (ptr) formal_c0220 ) = 0; (* (( (ptr) formal_c0220)+1) ) = 0; return; } static void NoName_Q3732(formal_c0227, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0227; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c0259 = (ptr) &globalframe; if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c0259)+100)/* var_c25228 */ ))+22) ))) { { word signal_v20796; word parameters_v20824; signal_v20796 = (* (ptr) formal_c200003 ); parameters_v20824 = (* (( (ptr) formal_c200003)+1) ); SOURCE(7600, 9) (* (ptr) formal_c0227 ) = 2; (* (( (ptr) formal_c0227)+1) ) = 2; return; }; }; (* (ptr) formal_c0227 ) = 0; (* (( (ptr) formal_c0227)+1) ) = 0; return; } /* file: NodeStyleWorks2Impl, module: NodeStyleWorks2Impl, compiled at: October 19, 1993 1:15:56 pm PDT */ extern void XR_install_NodeStyleWorks2Impl() { NoName_Q3492(); } extern void XR_run_NodeStyleWorks2Impl() { XR_Start(&globalframe); }