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