/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: July 17, 1992 4:06:50 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: TiogaToInterpressImpl, module: TiogaToInterpressImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [170375197,1841517439] TiogaToInterpressImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W16 f; W16 r;} W32;
typedef struct {W32 f; W32 r;} W64;
typedef struct {W64 f; W6 r;} W70;
typedef W70 *W70Pt;
typedef struct {W8 f; W6 r;} W14;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W5 *W5Pt;
typedef W2 *W2Pt;
typedef struct {W8 f; W4 r;} W12;
typedef W12 *W12Pt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {W16 f; W5 r;} W21;
typedef struct {W16 f; word r;} W17;
typedef W17 *W17Pt;
typedef struct {W8 f; W2 r;} W10;
typedef struct {W16 f; W10 r;} W26;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; word r;} W9;
#define SOURCE(p, l) /* source p, l */
static float fc109 = 72.27;
static float fc111 = 0.0254;
static float fc114 = 72.0;
static float fc116 = 0.0;
static float fc117 = 3.0;
static float fc161 = 1.0;
static float fc178 = -10000.0;
static float fc179 = 20000.0;
#define SGNCK(i) ((int) (word) (i) < 0 ? XR←RaiseArithmeticFault(): i )
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
#define FMIN(x, y, tx, ty) ( (tx=((float) x)) <= (ty=((float) y)) ? tx : ty )
static float fc262 = 0.01;
static float fc263 = 0.001;
#define MAX(cast, x, y) ( ( cast x) > ( cast y) ? (x) : (y) )
static void NoName←Q2424();
static void TiogaToInterpressImpl←P0();
static void AppendFix←P60();
static word GetWithStyle←P120();
static word MakeHeader←P180();
static void PredeclareSetFont←P240();
static void PredeclareFonts←P300();
static void TiogaToInterpressAction←P360();
static void levelClipFilter←P1284();
static void paint←P1344();
static word FindFullName←P420();
static word ExtendName←P480();
static word CmdTokenBreak←P540();
static word GetCmdToken←P600();
static word NoName←Q2484();
static void RaiseParseError←P660();
static word ExpandStars←P720();
static word NameAction←P1452();
static word Parse←P780();
static word NoName←Q2544();
static word ParamNameForRefText←P840();
static word IsKeyword←P900();
static void ParseParameters←P960();
static void CheckStack←P1752();
static void CheckN←P1812();
static word PopReal←P1872();
static word PopDimn←P1932();
static void MakeMeters←P1992();
static word PopInt←P2052();
static word GetTok←P2112();
static void SetUserProfileOptions←P1020();
static void Command←P1080();
static void backgroundTask←P2268();
static word NoName←Q2604();
static word NoName←Q2664();
static void NoName←Q2724();
static void NoName←Q2784();
static void NoName←Q2844();
static void NoName←Q2904();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\205\026\031\133\300\153\303\216\034\100\164\000\000"};
static struct {unsigned f; char r[8];} string2 = {458759, "\006\002\000\001A\024\001"};
static struct {unsigned f; char r[32];} string3 = {1835040, "\205\257\300\012\047\270\035\300\155\303\123\177\101\334\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000\000\000"};
static struct {unsigned f; char r[8];} string4 = {327685, "\010\000\004\030\001\000\000"};
static struct {unsigned f; char r[16];} string5 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string6 = {65537, "\001\000\000"};
static struct {unsigned f; char r[44];} string7 = {2752556, "\260\007\006\154\145\156\147\164\150\210\241\000\200\177\377\005\004\164\145\170\164\254\206\012\011\155\141\170\114\145\156\147\164\150\210\241\000\200\177\377\243\261\000"};
static struct {unsigned f; char r[48];} string8 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\363\223\326\161\300\017\164\046\072\104\350\005\004\162\145\163\164\214\216\257\300\363\223\326\161\300\017\164\046\072\104\350\261\000\000\000"};
static struct {unsigned f; char r[4];} string9 = {131074, "\004\003\000"};
static struct {unsigned f; char r[20];} string10 = {1114132, "\216\211\004\003\122\145\160\300\124\360\214\337\300\200\347\202\313\000\000"};
static struct {unsigned f; char r[4];} string11 = {131076, "\216\251\000"};
static struct {unsigned f; char r[52];} string12 = {3276852, "\262\260\005\004\144\141\164\141\216\257\300\012\047\270\035\300\155\303\123\177\101\174\012\011\155\163\147\123\164\162\145\141\155\216\257\300\015\277\004\146\300\034\367\146\045\112\064\261\260\261\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\012\047\270\035\300\155\303\123\177\101\174\000\000"};
static struct {unsigned f; char r[4];} string14 = {196611, "\004`\037"};
static struct {unsigned f; char r[12];} string15 = {589836, "translate\000\000"};
static struct {unsigned f; char r[8];} string16 = {458760, "version"};
static struct {unsigned f; char r[12];} string17 = {655372, "background\000"};
static struct {unsigned f; char r[12];} string18 = {589836, "levelClip\000\000"};
static struct {unsigned f; char r[4];} string19 = {131076, "in\000"};
static struct {unsigned f; char r[4];} string20 = {131076, "pt\000"};
static struct {unsigned f; char r[4];} string21 = {131076, "cm\000"};
static struct {unsigned f; char r[4];} string22 = {131076, "mm\000"};
static struct {unsigned f; char r[4];} string23 = {131076, "bp\000"};
static struct {unsigned f; char r[8];} string24 = {458760, "verbose"};
static struct {unsigned f; char r[8];} string25 = {327688, "terse\000\000"};
static struct {unsigned f; char r[16];} string26 = {786448, "screenFormat\000\000\000"};
static struct {unsigned f; char r[12];} string27 = {720908, "printFormat"};
static struct {unsigned f; char r[16];} string28 = {786448, "pageIndexing\000\000\000"};
static struct {unsigned f; char r[16];} string29 = {917520, "noPageIndexing\000"};
static struct {unsigned f; char r[8];} string30 = {393224, "rotate\000"};
static struct {unsigned f; char r[148];} string31 = {9568404, " \042\042 style 0 skipPages 999999 nPages printFormat--screenFormat-- terse--verbose-- 3.0 version 1.0 magnify 0.0 rotate 1.0 1.0 1.0 background\000"};
static struct {unsigned f; char r0[200]; char r1[200]; char r2[200]; char r3[52];} string32
= { 42467980,
"\012Convert a Tioga file to an Interpress file:\012TiogaToInterpress [<output> ←] <input> [option*]; options include:\012\011<rope> style\011\011\011\011\011\011\011(default: NIL)\012\011<integer> skipPages\011\011\011\011\011(default: 0)\012\011<integer> nPag",
"\145\163\011\011\011\011\011\050\144\145\146\141\165\154\164\072\040\071\071\071\071\071\071\051\012\011\074\151\156\164\145\147\145\162\056\151\156\164\145\147\145\162\076\040\166\145\162\163\151\157\156\011\011\011\050\144\145\146\141\165\154\164\072\040\063\056\060\076\012\011\074\162\145\141\154\076\040\155\141\147\156\151\146\171\011\011\011\011\011\011\050\144\145\146\141\165\154\164\072\040\061\056\060\051\012\011\074\162\145\141\154\040\050\144\145\147\162\145\145\163\051\076\040\162\157\164\141\164\145\011\011\011\011\050\144\145\146\141\165\154\164\072\040\060\056\060\051\012\011\074\164\170\040\164\171\072\040\162\145\141\154\040\050\151\156\143\150\145\163\051\076\040\164\162\141\156\163\154\141\164\145\011\011\050\144\145\146\141\165\154\164\072\040\060\056\060\040\060\056\060",
"\051\012\011\074\162\040\147\040\142\072\040\162\145\141\154\076\040\142\141\143\153\147\162\157\165\156\144\011\011\011\050\144\145\146\141\165\154\164\072\040\061\056\060\040\061\056\060\040\061\056\060\051\012\011\074\160\162\151\156\164\106\157\162\155\141\164\040\174\040\163\143\162\145\145\156\106\157\162\155\141\164\076\011\011\050\144\145\146\141\165\154\164\072\040\160\162\151\156\164\106\157\162\155\141\164\051\040\012\011\074\151\156\164\145\147\145\162\076\040\154\145\166\145\154\103\154\151\160\011\011\011\011\011\050\144\145\146\141\165\154\164\072\040\156\157\156\145\051\040\012\011\074\164\145\162\163\145\040\174\040\166\145\162\142\157\163\145\076\011\011\011\011\011\011\050\144\145\146\141\165\154\164\072\040\164\145\162\163\145\051\012\011\074\156\157\120\141\147\145\111",
"ndexing | pageIndexing>\011(default: page indexing)\000\000\000"};
static struct {unsigned f; char r[8];} string33 = {458760, "magnify"};
static struct {unsigned f; char r[20];} string34 = {1114132, "TiogaToInterpress\000\000"};
static struct {unsigned f; char r[8];} string35 = {393224, "nPages\000"};
static struct {unsigned f; char r[4];} string36 = {65540, " \000\000"};
static struct {unsigned f; char r[12];} string37 = {589836, "skipPages\000\000"};
static struct {unsigned f; char r[8];} string38 = {393224, "Prefix\000"};
static struct {unsigned f; char r[8];} string39 = {393224, "device\000"};
static struct {unsigned f; char r[8];} string40 = {458760, "Postfix"};
static struct {unsigned f; char r[24];} string41 = {1310744, "Interpress/Xerox/%g \000\000\000"};
static struct {unsigned f; char r[8];} string42 = {393224, "Master\000"};
static struct {unsigned f; char r[8];} string43 = {458760, "postfix"};
static struct {unsigned f; char r[12];} string44 = {524300, "OldClass\000\000\000"};
static struct {unsigned f; char r[12];} string45 = {589836, "pageIndex\000\000"};
static struct {unsigned f; char r[8];} string46 = {458760, "(\042%g\042\012 "};
static struct {unsigned f; char r[8];} string47 = {458760, " . . . "};
static struct {unsigned f; char r[16];} string48 = {786448, "\012 (Location \000\000\000"};
static struct {unsigned f; char r[4];} string49 = {131076, ") \000"};
static struct {unsigned f; char r[4];} string50 = {65540, "[\000\000"};
static struct {unsigned f; char r[4];} string51 = {131076, "] \000"};
static struct {unsigned f; char r[20];} string52 = {1048596, "(\042%g\042 (%g %g))\012 \000\000\000"};
static struct {unsigned f; char r[4];} string53 = {131076, ")\012\000"};
static struct {unsigned f; char r[4];} string54 = {65540, ".\000\000"};
static struct {unsigned f; char r[8];} string55 = {393224, "prefix\000"};
static struct {unsigned f; char r[4];} string56 = {65540, "*\000\000"};
static struct {unsigned f; char r[4];} string57 = {65540, "!\000\000"};
static struct {unsigned f; char r[4];} string58 = {131076, "!H\000"};
static struct {unsigned f; char r[4];} string59 = {65540, "←\000\000"};
static struct {unsigned f; char r[4];} string60 = {65540, "\254\000\000"};
static struct {unsigned f; char r[12];} string61 = {655372, "interpress\000"};
static struct {unsigned f; char r[8];} string62 = {327688, "style\000\000"};
static struct {unsigned f; char r[20];} string63 = {1114132, "Illegal token: %g\000\000"};
static struct {unsigned f; char r[40];} string64 = {2424872, "style needs string or atom parameter \000\000"};
static struct {unsigned f; char r[40];} string65 = {2490408, "prefix needs string or atom parameter \000"};
static struct {unsigned f; char r[40];} string66 = {2555944, "postfix needs string or atom parameter "};
static struct {unsigned f; char r[40];} string67 = {2490408, "device needs string or atom parameter \000"};
static struct {unsigned f; char r[4];} string68 = {131076, " (\000"};
static struct {unsigned f; char r[12];} string69 = {524300, ") device\000\000\000"};
static struct {unsigned f; char r[28];} string70 = {1769500, "Unknown keyword parameter: "};
static struct {unsigned f; char r[36];} string71 = {2097188, "Too many consecutive parameters \000\000\000"};
static struct {unsigned f; char r[24];} string72 = {1376280, "Misplaced minus sign \000\000"};
static struct {unsigned f; char r[28];} string73 = {1769500, "Wrong number of parameters "};
static struct {unsigned f; char r[20];} string74 = {1179668, "Missing parameter \000"};
static struct {unsigned f; char r[20];} string75 = {1048596, "Number expected \000\000\000"};
static struct {unsigned f; char r[20];} string76 = {1245204, "Dimension expected "};
static struct {unsigned f; char r[20];} string77 = {1114132, "Integer expected \000\000"};
static struct {unsigned f; char r[16];} string78 = {983056, "Unknown token: "};
static struct {unsigned f; char r[32];} string79 = {1966112, "TiogaToInterpress.PageIndexing\000"};
static struct {unsigned f; char r[4];} string80 = {196612, "..."};
static struct {unsigned f; char r[4];} string81 = {65540, "\012\000\000"};
static struct {unsigned f; char r[12];} string82 = {524300, "Reading \000\000\000"};
static struct {unsigned f; char r[12];} string83 = {655372, " written.\012\000"};
static struct {unsigned f; char r[8];} string84 = {327688, " ok.\012\000\000"};
static struct {unsigned f; char r[16];} string85 = {851984, "\257\300\012\047\270\035\300\155\303\123\177\100\164\000\000"};
static struct {unsigned f; char r[16];} string86 = {917518, "\006\003\030\001\034\001\100\120\010\000\004\100\106\001\000"};
static struct {unsigned f; char r[16];} string87 = {851984, "\257\300\212\210\334\132\300\036\362\033\164\100\150\000\000"};
static struct {unsigned f; char r[16];} string88 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string89 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"};
static struct {unsigned f; char r[16];} string90 = {851984, "\257\300\103\154\257\030\300\165\276\076\350\100\150\000\000"};
static struct {unsigned f; char r[16];} string91 = {851984, "\257\300\344\212\014\176\300\070\230\121\123\100\150\000\000"};
static struct {unsigned f; char r[4];} string92 = {1231905127, "er"};
static struct {unsigned f; char r[16];} string93 = {851984, "\257\300\074\177\166\242\300\203\113\217\044\100\150\000\000"};
static struct {unsigned f; char r[16];} string94 = {851984, "\257\300\170\064\225\306\300\207\372\245\271\100\150\000\000"};
static struct {unsigned f; char r[16];} string95 = {851984, "\257\300ZT?\010\300\370;=;@h\000\000"};
static struct {unsigned f; char r[16];} string96 = {851984, "\257\300\124\360\214\337\300\200\347\202\313\100\150\000\000"};
static struct {unsigned f; char r[16];} string97 = {851984, "\257\300\213\226\301\143\300\072\355\320\373\100\150\000\000"};
static struct {unsigned f; char r[16];} string98 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string99 = {851984, "\257\300\234\060\361\073\300\103\025\207\123\100\150\000\000"};
static struct {unsigned f; char r[16];} string100 = {851984, "\257\300\141\260\110\353\300\162\250\066\353\100\150\000\000"};
static struct {unsigned f; char r[16];} string101 = {851984, "\257\300\246\205\220\035\300\344\000\142\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string102 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string103 = {851984, "\257\300\261\010\310\246\300\337\340\027\051\100\150\000\000"};
static struct {unsigned f; char r[16];} string104 = {851984, "\257\300\042\224\360\026\300\243\254\175\360\100\150\000\000"};
static struct {unsigned f; char r[16];} string105 = {851984, "\257\300\237\240\030\300\300\003\120\067\262\100\150\000\000"};
static struct {unsigned f; char r[16];} string106 = {851984, "\257\300\233\251\177\064\300\273\157\236\236\100\150\000\000"};
static struct {unsigned f; char r[16];} string107 = {851984, "\257\300\134\353\367\206\300\202\044\112\356\100\150\000\000"};
static struct {unsigned f; char r[24];} string108 = {1376280, "\211\011\010\103\154\141\163\163\122\145\160\300\074\177\166\242\300\203\113\217\044\000\000"};
static struct {
word f0[92]; word f92; word f93; word f94;
word f95; word f96; word f97; word f98;
word f99; word f100; word f101; word f102;
word f103; word f104; word f105; word f106;
word f107; word f108; word f109; word f110;
word f111; word f112; word f113; word f114;
word f115; word f116; word f117; word f118;
word f119; word f120; word f121; word f122;
word f123; word f124; word f125; word f126;
word f127; word f128; word f129; word f130;
word f131[28];
} globalframe = {
{0}, (word) Command←P1080, 0, (word) SetUserProfileOptions←P1020,
0, (word) ParseParameters←P960, 0, (word) IsKeyword←P900,
0, (word) ParamNameForRefText←P840, 0, (word) Parse←P780,
0, (word) ExpandStars←P720, 0, (word) RaiseParseError←P660,
0, (word) GetCmdToken←P600, 0, (word) CmdTokenBreak←P540,
0, (word) ExtendName←P480, 0, (word) FindFullName←P420,
0, (word) TiogaToInterpressAction←P360, 0, (word) PredeclareFonts←P300,
0, (word) PredeclareSetFont←P240, 0, (word) MakeHeader←P180,
0, (word) GetWithStyle←P120, 0, (word) AppendFix←P60,
0, (word) TiogaToInterpressImpl←P0, 0, 2147483647,
{0}
};
static void NoName←Q2424()
{
register ptr gf←c0281 = (ptr) &globalframe;
word var←c51352;
(* (( (ptr) gf←c0281)+8) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0281)+9) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (( (ptr) gf←c0281)+11) ) = (word) XR←GetTypeIndex((word) &string5, 0, (word) &string6);
(* (( (ptr) gf←c0281)+12) ) = (word) XR←GetTypeIndexS((word) (&string7));
(* (( (ptr) gf←c0281)+13) ) = (word) XR←GetTypeIndex((word) &string8, 0, (word) &string9);
(* (( (ptr) gf←c0281)+14) ) = (word) XR←GetTypeIndex((word) &string10, 0, (word) &string6);
(* (( (ptr) gf←c0281)+16) ) = (word) XR←GetTypeIndex((word) &string11, 0, (word) &string6);
(* (( (ptr) gf←c0281)+17) ) = (word) XR←GetTypeIndexS((word) (&string12));
(* (( (ptr) gf←c0281)+19) ) = (word) XR←GetTypeIndex((word) &string13, 0, (word) &string14);
(* (ptr) (( (bPt) gf←c0281)+80) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string15);
(* (ptr) (( (bPt) gf←c0281)+84) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string16);
(* (ptr) (( (bPt) gf←c0281)+88) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string17);
(* (ptr) (( (bPt) gf←c0281)+92) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string18);
(* (ptr) (( (bPt) gf←c0281)+96) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string19);
(* (ptr) (( (bPt) gf←c0281)+100) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string20);
(* (ptr) (( (bPt) gf←c0281)+104) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string21);
(* (ptr) (( (bPt) gf←c0281)+108) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string22);
(* (ptr) (( (bPt) gf←c0281)+112) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string23);
(* (ptr) (( (bPt) gf←c0281)+116) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string24);
(* (ptr) (( (bPt) gf←c0281)+120) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string25);
(* (ptr) (( (bPt) gf←c0281)+124) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string26);
(* (ptr) (( (bPt) gf←c0281)+128) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string27);
(* (ptr) (( (bPt) gf←c0281)+132) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string28);
(* (ptr) (( (bPt) gf←c0281)+136) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string29);
(* (ptr) (( (bPt) gf←c0281)+140) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string30);
(* (ptr) (( (bPt) gf←c0281)+144) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string31);
(* (ptr) (( (bPt) gf←c0281)+148) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string32);
(* (ptr) (( (bPt) gf←c0281)+152) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string33);
(* (ptr) (( (bPt) gf←c0281)+156) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string34);
(* (ptr) (( (bPt) gf←c0281)+160) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string35);
(* (ptr) (( (bPt) gf←c0281)+164) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string36);
(* (ptr) (( (bPt) gf←c0281)+168) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string37);
(* (ptr) (( (bPt) gf←c0281)+172) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+16) ), (word) &string38);
(* (ptr) (( (bPt) gf←c0281)+176) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string39);
(* (ptr) (( (bPt) gf←c0281)+180) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+16) ), (word) &string40);
(* (ptr) (( (bPt) gf←c0281)+184) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string41);
(* (ptr) (( (bPt) gf←c0281)+188) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+16) ), (word) &string42);
(* (ptr) (( (bPt) gf←c0281)+192) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string43);
(* (ptr) (( (bPt) gf←c0281)+196) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+16) ), (word) &string44);
(* (ptr) (( (bPt) gf←c0281)+200) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string45);
(* (ptr) (( (bPt) gf←c0281)+204) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string46);
(* (ptr) (( (bPt) gf←c0281)+208) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string47);
(* (ptr) (( (bPt) gf←c0281)+212) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string48);
(* (ptr) (( (bPt) gf←c0281)+216) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string49);
(* (ptr) (( (bPt) gf←c0281)+220) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string50);
(* (ptr) (( (bPt) gf←c0281)+224) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string51);
(* (ptr) (( (bPt) gf←c0281)+228) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string52);
(* (ptr) (( (bPt) gf←c0281)+232) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string53);
(* (ptr) (( (bPt) gf←c0281)+236) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string54);
(* (ptr) (( (bPt) gf←c0281)+240) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string55);
(* (ptr) (( (bPt) gf←c0281)+244) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string56);
(* (ptr) (( (bPt) gf←c0281)+248) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string57);
(* (ptr) (( (bPt) gf←c0281)+252) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string58);
(* (ptr) (( (bPt) gf←c0281)+256) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string59);
(* (ptr) (( (bPt) gf←c0281)+260) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string60);
(* (ptr) (( (bPt) gf←c0281)+264) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string61);
(* (ptr) (( (bPt) gf←c0281)+268) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string62);
(* (ptr) (( (bPt) gf←c0281)+272) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string63);
(* (ptr) (( (bPt) gf←c0281)+276) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string64);
(* (ptr) (( (bPt) gf←c0281)+280) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string65);
(* (ptr) (( (bPt) gf←c0281)+284) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string66);
(* (ptr) (( (bPt) gf←c0281)+288) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string67);
(* (ptr) (( (bPt) gf←c0281)+292) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string68);
(* (ptr) (( (bPt) gf←c0281)+296) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string69);
(* (ptr) (( (bPt) gf←c0281)+300) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string70);
(* (ptr) (( (bPt) gf←c0281)+304) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string71);
(* (ptr) (( (bPt) gf←c0281)+308) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string72);
(* (ptr) (( (bPt) gf←c0281)+312) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string73);
(* (ptr) (( (bPt) gf←c0281)+316) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string74);
(* (ptr) (( (bPt) gf←c0281)+320) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string75);
(* (ptr) (( (bPt) gf←c0281)+324) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string76);
(* (ptr) (( (bPt) gf←c0281)+328) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string77);
(* (ptr) (( (bPt) gf←c0281)+332) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string78);
(* (ptr) (( (bPt) gf←c0281)+336) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string79);
(* (ptr) (( (bPt) gf←c0281)+340) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string80);
(* (ptr) (( (bPt) gf←c0281)+344) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string81);
(* (ptr) (( (bPt) gf←c0281)+348) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string82);
(* (ptr) (( (bPt) gf←c0281)+352) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string83);
(* (ptr) (( (bPt) gf←c0281)+356) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0281)+11) ), (word) &string84);
(void) XR←DeclareGlobalFrame((word) "TiogaToInterpressImpl", &globalframe, (word) XR←GetTypeIndex((word) &string85, 0, (word) &string86)
, (word) (( (bPt) gf←c0281)+512)/* var←c48216 */ );
var←c51352 = (word) XR←ImportInterface((word) "CedarProcess", (word) XR←GetTypeIndexS((word) (&string87)), 10);
(* (( (ptr) gf←c0281)+157)/* var←c51288 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 524802);
var←c51352 = (word) XR←ImportInterface((word) "Commander", (word) XR←GetTypeIndexS((word) (&string88)), 3);
(* (( (ptr) gf←c0281)+139)/* var←c48568 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 1310725);
var←c51352 = (word) XR←ImportInterface((word) "Convert", (word) XR←GetTypeIndexS((word) (&string89)), 73);
(* (( (ptr) gf←c0281)+151)/* var←c49496 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 67638530);
(void) XR←ImportProcS(var←c51352, 67373057);
(void) XR←ImportProcS(var←c51352, 67901187);
var←c51352 = (word) XR←ImportInterface((word) "FileNames", (word) XR←GetTypeIndexS((word) (&string90)), 17);
(* (( (ptr) gf←c0281)+153)/* var←c49848 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 67371265);
var←c51352 = (word) XR←ImportInterface((word) "FS", (word) XR←GetTypeIndexS((word) (&string91)), 36);
(* (( (ptr) gf←c0281)+149)/* var←c49272 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 788995);
(void) XR←ImportProcS(var←c51352, 940048898);
(void) XR←ImportProcS(var←c51352, 403703812);
(void) XR←ImportProcS(var←c51352, 70522636);
var←c51352 = (word) XR←ImportInterface((word) &string92, (word) XR←GetTypeIndexS((word) (&string93)), 84);
(* (( (ptr) gf←c0281)+145)/* var←c48888 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 1326338);
(void) XR←ImportProcS(var←c51352, 536578);
(void) XR←ImportProcS(var←c51352, 527618);
(void) XR←ImportProcS(var←c51352, 790018);
(void) XR←ImportProcS(var←c51352, 527106);
(void) XR←ImportProcS(var←c51352, 787971);
(void) XR←ImportProcS(var←c51352, 543746);
(void) XR←ImportProcS(var←c51352, 67634946);
var←c51352 = (word) XR←ImportInterface((word) "ImagerBackdoor", (word) XR←GetTypeIndexS((word) (&string94)), 42);
(* (( (ptr) gf←c0281)+148)/* var←c49016 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 67377153);
var←c51352 = (word) XR←ImportInterface((word) "ImagerColor", (word) XR←GetTypeIndexS((word) (&string95)), 32);
(* (( (ptr) gf←c0281)+154)/* var←c51032 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 67898625);
var←c51352 = (word) XR←ImportInterface((word) "ImagerInterpress", (word) XR←GetTypeIndexS((word) (&string96)), 10);
(* (( (ptr) gf←c0281)+146)/* var←c48920 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 264193);
(void) XR←ImportProcS(var←c51352, 788227);
(void) XR←ImportProcS(var←c51352, 67633410);
(void) XR←ImportProcS(var←c51352, 525058);
var←c51352 = (word) XR←ImportInterface((word) "ImagerSample", (word) XR←GetTypeIndexS((word) (&string97)), 60);
(* (( (ptr) gf←c0281)+147)/* var←c48984 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 68685571);
var←c51352 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string98)), 103);
(* (( (ptr) gf←c0281)+138)/* var←c48472 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 269238787);
(void) XR←ImportProcS(var←c51352, 530946);
(void) XR←ImportProcS(var←c51352, 67377409);
(void) XR←ImportProcS(var←c51352, 67392257);
(void) XR←ImportProcS(var←c51352, 134763778);
(void) XR←ImportProcS(var←c51352, 530434);
(void) XR←ImportProcS(var←c51352, 2111493);
(void) XR←ImportProcS(var←c51352, 1071364);
(void) XR←ImportProcS(var←c51352, 1063171);
(void) XR←ImportProcS(var←c51352, 67910402);
(void) XR←ImportProcS(var←c51352, 67640578);
var←c51352 = (word) XR←ImportInterface((word) "NodeProps", (word) XR←GetTypeIndexS((word) (&string99)), 28);
(* (( (ptr) gf←c0281)+140)/* var←c48632 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 67638530);
(void) XR←ImportProcS(var←c51352, 786435);
(void) XR←ImportProcS(var←c51352, 67633410);
(void) XR←ImportProcS(var←c51352, 67638786);
var←c51352 = (word) XR←ImportInterface((word) "PFS", (word) XR←GetTypeIndexS((word) (&string100)), 40);
(* (( (ptr) gf←c0281)+142)/* var←c48760 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 67371265);
var←c51352 = (word) XR←ImportInterface((word) "Real", (word) XR←GetTypeIndexS((word) (&string101)), 11);
(* (( (ptr) gf←c0281)+155)/* var←c51064 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 67371521);
var←c51352 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string102)), 43);
(* (( (ptr) gf←c0281)+141)/* var←c48664 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 67903235);
(void) XR←ImportProcS(var←c51352, 67634434);
(void) XR←ImportProcS(var←c51352, 67896323);
(void) XR←ImportProcS(var←c51352, 67633666);
(void) XR←ImportProcS(var←c51352, 68159236);
(void) XR←ImportProcS(var←c51352, 67898627);
(void) XR←ImportProcS(var←c51352, 67373825);
(void) XR←ImportProcS(var←c51352, 68419845);
var←c51352 = (word) XR←ImportInterface((word) "TextEdit", (word) XR←GetTypeIndexS((word) (&string103)), 39);
(* (( (ptr) gf←c0281)+144)/* var←c48824 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 793091);
var←c51352 = (word) XR←ImportInterface((word) "TextNode", (word) XR←GetTypeIndexS((word) (&string104)), 34);
(* (( (ptr) gf←c0281)+150)/* var←c49336 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 134485761);
(void) XR←ImportProcS(var←c51352, 68162307);
(void) XR←ImportProcS(var←c51352, 67373569);
var←c51352 = (word) XR←ImportInterface((word) "TiogaImager", (word) XR←GetTypeIndexS((word) (&string105)), 19);
(* (( (ptr) gf←c0281)+152)/* var←c49528 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 1051651);
(void) XR←ImportProcS(var←c51352, 265985);
(void) XR←ImportProcS(var←c51352, 337117701);
var←c51352 = (word) XR←ImportInterface((word) "TiogaIO", (word) XR←GetTypeIndexS((word) (&string106)), 17);
(* (( (ptr) gf←c0281)+143)/* var←c48792 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 403966722);
var←c51352 = (word) XR←ImportInterface((word) "UserProfile", (word) XR←GetTypeIndexS((word) (&string107)), 11);
(* (( (ptr) gf←c0281)+156)/* var←c51224 */ ) = var←c51352;
(void) XR←ImportProcS(var←c51352, 67633154);
var←c51352 = (word) XR←ExportInterface((word) &string92, (word) XR←GetTypeIndexS((word) (&string93)), 84);
(* (( (ptr) gf←c0281)+158)/* var←c51384 */ ) = var←c51352;
(void) XR←ExportType((word) "ClassRep", (word) XR←GetTypeIndexS((word) (&string108)), (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2)
);
}
static void TiogaToInterpressImpl←P0(formal←c068, formal←c062)
word formal←c068;
word formal←c062;
{
register ptr gf←c51416 = (ptr) &globalframe;
/* TiogaToInterpressImpl: */
SOURCE(259, 17274)
/* moved to installation proc */
SOURCE(1421, 31)
{
word x110;
word x112;
*(float*)(( (ptr) gf←c51416)+4)/* ptpermeter←v3784 */ = (
x110 = (* (ptr) &fc109 ), *(float*)&x110
) / (
x112 = (* (ptr) &fc111 ), *(float*)&x112
);
};
SOURCE(1454, 24)
{
word x113;
word x115;
*(float*)(( (ptr) gf←c51416)+5)/* ptperbp←v3812 */ = (
x113 = (* (ptr) &fc109 ), *(float*)&x113
) / (
x115 = (* (ptr) &fc114 ), *(float*)&x115
);
};
SOURCE(9173, 546)
{
word var←c48376;
var←c48376 = XR←NewObject(96, (* (( (ptr) gf←c51416)+9) ));
(* (( (ptr) var←c48376)+1) ) = (* (( (ptr) gf←c51416)+67) );
(* (( (ptr) var←c48376)+2) ) = (* (( (ptr) gf←c51416)+60) );
(* (( (ptr) var←c48376)+3) ) = (* (( (ptr) gf←c51416)+48) );
(* (( (ptr) var←c48376)+4) ) = (* (( (ptr) gf←c51416)+44) );
(* (( (ptr) var←c48376)+5) ) = (* (( (ptr) gf←c51416)+42) );
(* (( (ptr) var←c48376)+6) ) = (* (( (ptr) gf←c51416)+40) );
(* (( (ptr) var←c48376)+7) ) = (* (( (ptr) gf←c51416)+38) );
(* (( (ptr) var←c48376)+8) ) = (* (( (ptr) gf←c51416)+35) );
(* (( (ptr) var←c48376)+9) ) = (* (( (ptr) gf←c51416)+20) );
(* (( (ptr) var←c48376)+10) ) = (* (( (ptr) gf←c51416)+21) );
(* (( (ptr) var←c48376)+11) ) = (* (( (ptr) gf←c51416)+22) );
(* (( (ptr) var←c48376)+12) ) = (* (( (ptr) gf←c51416)+23) );
(* (( (ptr) var←c48376)+13) ) = (* (( (ptr) gf←c51416)+24) );
(* (( (ptr) var←c48376)+14) ) = (* (( (ptr) gf←c51416)+25) );
(* (( (ptr) var←c48376)+15) ) = (* (( (ptr) gf←c51416)+26) );
(* (( (ptr) var←c48376)+16) ) = (* (( (ptr) gf←c51416)+27) );
(* (( (ptr) var←c48376)+17) ) = (* (( (ptr) gf←c51416)+28) );
(* (( (ptr) var←c48376)+18) ) = (* (( (ptr) gf←c51416)+29) );
(* (( (ptr) var←c48376)+19) ) = (* (( (ptr) gf←c51416)+30) );
(* (( (ptr) var←c48376)+20) ) = (* (( (ptr) gf←c51416)+31) );
(* (( (ptr) var←c48376)+21) ) = (* (( (ptr) gf←c51416)+32) );
(* (( (ptr) var←c48376)+22) ) = (* (( (ptr) gf←c51416)+33) );
(* (( (ptr) var←c48376)+23) ) = (* (( (ptr) gf←c51416)+34) );
(* (( (ptr) gf←c51416)+6)/* RopeForParamName←v4344 */ ) = var←c48376;
};
SOURCE(16274, 273)
{
word var←c48408;
var←c48408 = XR←NewObject(68, (* (( (ptr) gf←c51416)+19) ));
(* (( (ptr) var←c48408)+7) ) = (* (ptr) &fc116 );
(* (( (ptr) var←c48408)+8) ) = (* (ptr) &fc116 );
(* (( (ptr) var←c48408)+9) ) = (* (ptr) &fc116 );
(* (( (ptr) var←c48408)+10) ) = (* (ptr) &fc116 );
(* (( (ptr) var←c48408)+14) ) = (* (ptr) &fc117 );
(* (( (ptr) var←c48408)+15) ) = 1;
(* (( (ptr) gf←c51416)+7)/* default←v4512 */ ) = var←c48408;
};
SOURCE(17388, 43)
{
word var←c48440;
{
word pd118;
pd118 = (* (( (ptr) (* (( (ptr) gf←c51416)+138)/* var←c48472 */ ))+33) );
var←c48440 = (word) ( *( (fPt) ((* (ptr) pd118 ))))((* (( (ptr) gf←c51416)+36) ), 0, pd118);
};
(void) ParseParameters←P960(var←c48440, (* (( (ptr) gf←c51416)+7)/* default←v4512 */ ));
};
SOURCE(17434, 99)
{
word var←c48504;
{
word var←c48536;
var←c48536 = XR←NewObject(4, (* (( (ptr) gf←c51416)+17) ));
(* (ptr) var←c48536 ) = (word) (( (bPt) gf←c51416)+464)/* var←c48024 */ ;
var←c48504 = var←c48536;
};
{
word pd119;
pd119 = (* (( (ptr) (* (( (ptr) gf←c51416)+139)/* var←c48568 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd119 ))))((* (( (ptr) gf←c51416)+39) ), (word) (( (bPt) gf←c51416)+368)/* var←c47640 */ , (* (
( (ptr) gf←c51416)+37) ), var←c48504, 1, pd119);
};
};
}
static void AppendFix←P60(node←v4796, name←v4824, value←v4852)
word node←v4796;
word name←v4824;
word value←v4852;
{
register ptr gf←c51448 = (ptr) &globalframe;
word old←v8184;
word new←v8212;
/* AppendFix: */
SOURCE(692, 284)
SOURCE(758, 89)
{
word var←c48600;
{
word pd120;
pd120 = (* (( (ptr) (* (( (ptr) gf←c51448)+140)/* var←c48632 */ ))+5) );
var←c48600 = (word) ( *( (fPt) ((* (ptr) pd120 ))))(node←v4796, name←v4824, pd120);
};
{
word pd121;
pd121 = (* (( (ptr) (* (( (ptr) gf←c51448)+140)/* var←c48632 */ ))+26) );
old←v8184 = (word) ( *( (fPt) ((* (ptr) pd121 ))))(name←v4824, var←c48600, pd121);
};
};
SOURCE(849, 37)
{
word pd122;
pd122 = (* (( (ptr) (* (( (ptr) gf←c51448)+141)/* var←c48664 */ ))+5) );
new←v8212 = (word) ( *( (fPt) ((* (ptr) pd122 ))))(old←v8184, (* (( (ptr) gf←c51448)+41) ), value←v4852, 0, 0, pd122);
};
SOURCE(888, 88)
{
word var←c48696;
{
word pd123;
pd123 = (* (( (ptr) (* (( (ptr) gf←c51448)+140)/* var←c48632 */ ))+25) );
var←c48696 = (word) ( *( (fPt) ((* (ptr) pd123 ))))(name←v4824, new←v8212, pd123);
};
{
word pd124;
pd124 = (* (( (ptr) (* (( (ptr) gf←c51448)+140)/* var←c48632 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd124 ))))(node←v4796, name←v4824, var←c48696, pd124);
};
};
}
static word GetWithStyle←P120(inputName←v4912, styleName←v4940, rootPrefix←v4968, rootPostfix←v4996)
word inputName←v4912;
word styleName←v4940;
word rootPrefix←v4968;
word rootPostfix←v4996;
{
register ptr gf←c51480 = (ptr) &globalframe;
word root←v5040;
word fullFName←v8256 = 0;
/* GetWithStyle: */
SOURCE(982, 433)
SOURCE(982, 433)
root←v5040 = 0;
{
word var←c48728;
W6 var←c083;
SOURCE(1135, 57)
{
word pd125;
pd125 = (* (( (ptr) (* (( (ptr) gf←c51480)+142)/* var←c48760 */ ))+5) );
var←c48728 = (word) ( *( (fPt) ((* (ptr) pd125 ))))(inputName←v4912, pd125);
};
{
word pd126;
pd126 = (* (( (ptr) (* (( (ptr) gf←c51480)+143)/* var←c48792 */ ))+15) );
(void) ( *( (fPt) ((* (ptr) pd126 ))))((word) &var←c083, var←c48728, (* (W4Pt) (( (ptr) gf←c51480)+130)/* var←c48280 */ ), pd126)
;
};
root←v5040 = var←c083.f5;
SOURCE(1194, 92)
{
word pd127;
pd127 = (* (( (ptr) (* (( (ptr) gf←c51480)+141)/* var←c48664 */ ))+15) );
if (( (int)(word) ( *( (fPt) ((* (ptr) pd127 ))))(styleName←v4940, pd127) != (int)0)) {
SOURCE(1225, 61)
{
word pd128;
pd128 = (* (( (ptr) (* (( (ptr) gf←c51480)+144)/* var←c48824 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd128 ))))(root←v5040, styleName←v4940, 0, pd128);
};
};
};
SOURCE(1288, 61)
if ((rootPrefix←v4968 != 0)) {
SOURCE(1313, 36)
(void) AppendFix←P60(root←v5040, (* (( (ptr) gf←c51480)+43) ), rootPrefix←v4968);
};
SOURCE(1351, 64)
if ((rootPostfix←v4996 != 0)) {
SOURCE(1377, 38)
(void) AppendFix←P60(root←v5040, (* (( (ptr) gf←c51480)+45) ), rootPostfix←v4996);
};
};
SOURCE(982, 433)
return(root←v5040);
}
static word MakeHeader←P180(version←v5100)
word version←v5100;
{
register ptr gf←c51512 = (ptr) &globalframe;
word var←c5144;
word header←v8300;
/* MakeHeader: */
SOURCE(1481, 135)
SOURCE(1533, 65)
{
W2 var←c48856;
var←c48856.f0 = 8;
var←c48856.f1 = version←v5100;
{
word pd129;
pd129 = (* (( (ptr) (* (( (ptr) gf←c51512)+138)/* var←c48472 */ ))+63) );
header←v8300 = (word) ( *( (fPt) ((* (ptr) pd129 ))))((* (( (ptr) gf←c51512)+46) ), var←c48856, pd129);
};
};
SOURCE(1600, 16)
return(header←v8300);
}
static void PredeclareSetFont←P240(context←v5204, font←v5232)
word context←v5204;
word font←v5232;
{
register ptr gf←c51544 = (ptr) &globalframe;
word refMaster←v8344;
word oldClass←v8372;
/* PredeclareSetFont: */
SOURCE(1620, 338)
SOURCE(1697, 92)
{
word pd130;
pd130 = (* (( (ptr) (* (( (ptr) gf←c51544)+145)/* var←c48888 */ ))+11) );
refMaster←v8344 = XR←Narrow((word) ( *( (fPt) ((* (ptr) pd130 ))))(context←v5204, (* (( (ptr) gf←c51544)+47) ), pd130), (* (
( (ptr) gf←c51544)+14) ));
};
SOURCE(1791, 74)
{
word pd131;
pd131 = (* (( (ptr) (* (( (ptr) gf←c51544)+145)/* var←c48888 */ ))+11) );
oldClass←v8372 = XR←Narrow((word) ( *( (fPt) ((* (ptr) pd131 ))))(context←v5204, (* (( (ptr) gf←c51544)+49) ), pd131), (* (
( (ptr) gf←c51544)+8) ));
};
SOURCE(1867, 31)
{
word pd132;
pd132 = (* (( (ptr) oldClass←v8372)+6) );
(void) ( *( (fPt) ((* (ptr) pd132 ))))(context←v5204, font←v5232, pd132);
};
SOURCE(1900, 58)
{
word pd133;
pd133 = (* (( (ptr) (* (( (ptr) gf←c51544)+146)/* var←c48920 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd133 ))))((* (ptr) refMaster←v8344 ), font←v5232, pd133);
};
}
static void PredeclareFonts←P300(master←v5304, paint←v5332)
word master←v5304;
word paint←v5332;
{
register ptr gf←c51576 = (ptr) &globalframe;
word context←v8428;
word oldClass←v8456;
word newClass←v8484;
/* PredeclareFonts: */
SOURCE(2040, 552)
SOURCE(2136, 110)
{
word var←c48952;
{
word pd134;
pd134 = (* (( (ptr) (* (( (ptr) gf←c51576)+147)/* var←c48984 */ ))+19) );
var←c48952 = (word) ( *( (fPt) ((* (ptr) pd134 ))))((* (W4Pt) (( (ptr) gf←c51576)+134)/* var←c48344 */ ), 1, 0, pd134)
;
};
{
word pd135;
pd135 = (* (( (ptr) (* (( (ptr) gf←c51576)+148)/* var←c49016 */ ))+28) );
context←v8428 = (word) ( *( (fPt) ((* (ptr) pd135 ))))(var←c48952, pd135);
};
};
SOURCE(2248, 31)
oldClass←v8456 = (* (ptr) context←v8428 );
SOURCE(2281, 43)
newClass←v8484 = XR←NewObject(280, (* (( (ptr) gf←c51576)+8) ));
(* (W70Pt) newClass←v8484 ) = (* (W70Pt) oldClass←v8456 );
SOURCE(2326, 36)
(* (( (ptr) newClass←v8484)+6) ) = (word) (( (bPt) gf←c51576)+480)/* var←c48088 */ ;
SOURCE(2364, 24)
(* (ptr) context←v8428 ) = newClass←v8484;
SOURCE(2390, 32)
{
word pd136;
pd136 = (* (( (ptr) (* (( (ptr) gf←c51576)+145)/* var←c48888 */ ))+80) );
(void) ( *( (fPt) ((* (ptr) pd136 ))))(context←v8428, 1, pd136);
};
SOURCE(2424, 87)
{
word var←c49080;
{
word var←c49112;
var←c49112 = XR←NewObject(4, (* (( (ptr) gf←c51576)+14) ));
(* (ptr) var←c49112 ) = master←v5304;
var←c49080 = var←c49112;
};
{
word pd137;
pd137 = (* (( (ptr) (* (( (ptr) gf←c51576)+145)/* var←c48888 */ ))+10) );
(void) ( *( (fPt) ((* (ptr) pd137 ))))(context←v8428, (* (( (ptr) gf←c51576)+47) ), var←c49080, pd137);
};
};
SOURCE(2513, 63)
{
word pd138;
pd138 = (* (( (ptr) (* (( (ptr) gf←c51576)+145)/* var←c48888 */ ))+10) );
(void) ( *( (fPt) ((* (ptr) pd138 ))))(context←v8428, (* (( (ptr) gf←c51576)+49) ), oldClass←v8456, pd138);
};
SOURCE(2578, 14)
(void) ( *( (fPt) ((* (ptr) paint←v5332 ))))(context←v8428, paint←v5332);
}
static void TiogaToInterpressAction←P360(formal←c0347, msgStream←v5480)
word formal←c0347;
word msgStream←v5480;
{
W14 var←c51608;
/* declaration of data←v5452 skipped */
register ptr gf←c51640 = (ptr) &globalframe;
/* declaration of var←c49144 skipped */
/* declaration of var←c49176 skipped */
word master←v8528;
word pageIndexFileName←v8556;
word pageIndexStream←v8584;
word pageCount←v8612 = 0;
word prevCharIndex←v8640 = 0;
(* (( (ptr) &var←c51608)+4)/* data←v5452 */ ) = formal←c0347;
/* TiogaToInterpressAction: */
SOURCE(2598, 3097)
{
word tmpAddr139;
tmpAddr139 = (word) (( (ptr) &var←c51608)+5)/* var←c49144 */ ;
(* (ptr) tmpAddr139 ) = ( ((word) (fPt) paint←P1344) );
(* (( (ptr) tmpAddr139) + 1) ) = 1;
};
{
word tmpAddr140;
tmpAddr140 = (word) (( (ptr) &var←c51608)+7)/* var←c49176 */ ;
(* (ptr) tmpAddr140 ) = ( ((word) (fPt) levelClipFilter←P1284) );
(* (( (ptr) tmpAddr140) + 1) ) = 1;
};
SOURCE(2676, 97)
{
word var←c49208;
var←c49208 = (word) MakeHeader←P180((* ((( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+14)) ));
{
word pd141;
pd141 = (* (( (ptr) (* (( (ptr) gf←c51640)+146)/* var←c48920 */ ))+5) );
master←v8528 = (word) ( *( (fPt) ((* (ptr) pd141 ))))((* (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ) ), var←c49208, pd141)
;
};
};
SOURCE(2775, 66)
pageIndexFileName←v8556 = (word) ExtendName←P480((* (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ) ), (* (( (ptr) gf←c51640)+50)
));
SOURCE(2843, 105)
if ((0 != (* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+15) ))) {
{
W2 var←c49240;
var←c49240.f0 = 7;
var←c49240.f1 = 1;
{
word pd142;
pd142 = (* (( (ptr) (* (( (ptr) gf←c51640)+149)/* var←c49272 */ ))+27) );
pageIndexStream←v8584 = (word) ( *( (fPt) ((* (ptr) pd142 ))))(pageIndexFileName←v8556, 1, 7, 1, 2560, var←c49240
, 0, 2147483647, 1, 0, 0, 0, pd142);
};
};
}
else {
pageIndexStream←v8584 = 0;
};
SOURCE(2994, 2607)
{
register word inputs←v8684;
inputs←v8684 = (* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+1) );
lab←L100003: ;
if ( ( (inputs←v8684 != 0) ? ( (int)(pageCount←v8612 - (* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+5) )) < (int)(* (
( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+6) )) : 0 ) ) {
}
else {
goto lab←L100000;
};
{
word marks←v8812 = 0;
word root←v8840;
W2 loc←v8868;
SOURCE(3141, 94)
root←v8840 = (word) GetWithStyle←P120((* (ptr) inputs←v8684 ), (* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+2)
), (* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+3) ), (* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+4)
));
SOURCE(3237, 69)
{
word pd143;
pd143 = (* (( (ptr) (* (( (ptr) gf←c51640)+150)/* var←c49336 */ ))+14) );
loc←v8868.f0 = (word) ( *( (fPt) ((* (ptr) pd143 ))))(root←v8840, pd143);
};
loc←v8868.f1 = 0;
SOURCE(3308, 87)
if ((0 != (* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+15) ))) {
SOURCE(3334, 61)
{
W2 var←c49368;
var←c49368.f0 = 11;
var←c49368.f1 = (* (ptr) inputs←v8684 );
{
word pd144;
pd144 = (* (( (ptr) (* (( (ptr) gf←c51640)+138)/* var←c48472 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd144 ))))(pageIndexStream←v8584, (* (( (ptr) gf←c51640)+51) ), var←c49368, pd144);
};
};
};
SOURCE(3397, 126)
if ((inputs←v8684 != (* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+1) ))) {
SOURCE(3432, 28)
{
word pd145;
pd145 = (* (( (ptr) (* (( (ptr) gf←c51640)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd145 ))))(msgStream←v5480, (* (( (ptr) gf←c51640)+52) ), 0, 2147483647, pd145);
};
SOURCE(3462, 31)
{
word pd146;
pd146 = (* (( (ptr) (* (( (ptr) gf←c51640)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd146 ))))(msgStream←v5480, (* (ptr) inputs←v8684 ), 0, 2147483647, pd146);
};
SOURCE(3495, 28)
{
word pd147;
pd147 = (* (( (ptr) (* (( (ptr) gf←c51640)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd147 ))))(msgStream←v5480, (* (( (ptr) gf←c51640)+52) ), 0, 2147483647, pd147);
};
};
SOURCE(3528, 2002)
lab←L100006: ;
if ( ( (loc←v8868.f0 != 0) ? ( (int)(pageCount←v8612 - (* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+5) )) < (int)(* (
( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+6) )) : 0 ) ) {
}
else {
goto lab←L100004;
};
{
word filter←v8940;
/* declaration of page←v8968 skipped */
SOURCE(3683, 82)
filter←v8940 = ( ( (int)(* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+16) ) != (int)0) ? (word) (( (bPt) &var←c51608)+28)
/* var←c49176 */ : 0 ) ;
SOURCE(3767, 31)
XR←FillWords(&(* (W5Pt) ((( (ptr) &var←c51608)+9)/* page←v8968 */ )), 5, 0);
SOURCE(4317, 207)
if ( ( (0 != (* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+11) )) ? ( (int)pageCount←v8612 >= (int)(* (( (ptr) (* (
( (ptr) &var←c51608)+4)/* data←v5452 */ ))+5) )) : 0 ) ) {
SOURCE(4372, 34)
{
word pd148;
pd148 = (* (( (ptr) (* (( (ptr) gf←c51640)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd148 ))))(msgStream←v5480, (* (( (ptr) gf←c51640)+53) ), 0, 2147483647, pd148);
};
SOURCE(4408, 91)
{
word var←c49432;
{
word var←c49464;
{
word pd149;
pd149 = (* (( (ptr) (* (( (ptr) gf←c51640)+150)/* var←c49336 */ ))+23) );
var←c49464 = (word) ( *( (fPt) ((* (ptr) pd149 ))))(loc←v8868, 1, 1, pd149);
};
{
word pd150;
pd150 = (* (( (ptr) (* (( (ptr) gf←c51640)+151)/* var←c49496 */ ))+27) );
var←c49432 = (word) ( *( (fPt) ((* (ptr) pd150 ))))(var←c49464, 8, 1, pd150);
};
};
{
word pd151;
pd151 = (* (( (ptr) (* (( (ptr) gf←c51640)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd151 ))))(msgStream←v5480, var←c49432, 0, 2147483647, pd151);
};
};
SOURCE(4501, 23)
{
word pd152;
pd152 = (* (( (ptr) (* (( (ptr) gf←c51640)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd152 ))))(msgStream←v5480, (* (( (ptr) gf←c51640)+54) ), 0, 2147483647, pd152);
};
};
SOURCE(4529, 154)
{
word pd153;
pd153 = (* (( (ptr) (* (( (ptr) gf←c51640)+152)/* var←c49528 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd153 ))))((word) (( (bPt) &var←c51608)+36)/* page←v8968 */ , pageCount←v8612, loc←v8868, filter←v8940, marks←v8812, ( (0 != (* (
( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+12) )) ? 0 : 1 ) , pd153);
};
SOURCE(4685, 54)
if (( (int)pageCount←v8612 == (int)0)) {
SOURCE(4709, 30)
(void) PredeclareFonts←P300(master←v8528, (word) (( (bPt) &var←c51608)+20)/* var←c49144 */ );
};
SOURCE(4744, 685)
if (( (int)pageCount←v8612 >= (int)(* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+5) ))) {
SOURCE(4780, 651)
{
word charIndex←v9100;
word figure←v9128;
SOURCE(4782, 200)
{
word pd154;
if (((* (( (ptr) &var←c51608)+10) ) != 0)) {
pd154 = (* (( (ptr) (* (( (ptr) gf←c51640)+150)/* var←c49336 */ ))+23) );
charIndex←v9100 = ((word) ( *( (fPt) ((* (ptr) pd154 ))))((* (W2Pt) (( (ptr) &var←c51608)+10) ), 1, 0, pd154) - 1);
}
else {
{
W2 var←c49560;
{
/*1*/ word pd155;
/*1*/ pd155 = (* (( (ptr) (* (( (ptr) gf←c51640)+150)/* var←c49336 */ ))+27) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd155 ))))((word) &var←c49560, root←v8840, pd155);
/*1*/ };
{
/*1*/ word pd156;
/*1*/ pd156 = (* (( (ptr) (* (( (ptr) gf←c51640)+150)/* var←c49336 */ ))+23) );
/*1*/ charIndex←v9100 = (word) ( *( (fPt) ((* (ptr) pd156 ))))(var←c49560, 1, 0, pd156);
/*1*/ };
};
};
};
SOURCE(4984, 51)
{
word pd157;
pd157 = (* (( (ptr) (* (( (ptr) gf←c51640)+151)/* var←c49496 */ ))+27) );
figure←v9128 = (word) ( *( (fPt) ((* (ptr) pd157 ))))((* (( (ptr) &var←c51608)+13) ), 8, 1, pd157);
};
SOURCE(5037, 22)
{
word pd158;
pd158 = (* (( (ptr) (* (( (ptr) gf←c51640)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd158 ))))(msgStream←v5480, (* (( (ptr) gf←c51640)+55) ), 0, 2147483647, pd158);
};
SOURCE(5061, 25)
{
word pd159;
pd159 = (* (( (ptr) (* (( (ptr) gf←c51640)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd159 ))))(msgStream←v5480, figure←v9128, 0, 2147483647, pd159);
};
SOURCE(5088, 43)
{
word pd160;
pd160 = (* (( (ptr) (* (( (ptr) gf←c51640)+146)/* var←c48920 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd160 ))))(master←v8528, (word) (( (bPt) &var←c51608)+20)/* var←c49144 */ , (* (ptr) &fc161 ), pd160)
;
};
SOURCE(5133, 23)
{
word pd162;
pd162 = (* (( (ptr) (* (( (ptr) gf←c51640)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd162 ))))(msgStream←v5480, (* (( (ptr) gf←c51640)+56) ), 0, 2147483647, pd162);
};
SOURCE(5158, 103)
if (( (int)pageCount←v8612 == (int)(* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+5) ))) {
SOURCE(5193, 68)
{
word pd163;
pd163 = (* (( (ptr) (* (( (ptr) gf←c51640)+150)/* var←c49336 */ ))+23) );
prevCharIndex←v8640 = (word) ( *( (fPt) ((* (ptr) pd163 ))))(loc←v8868, 1, 0, pd163);
};
};
SOURCE(5263, 137)
if ((0 != (* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+15) ))) {
SOURCE(5289, 111)
{
W2 var←c49592;
W2 var←c49624;
W2 var←c49656;
var←c49592.f0 = 11;
var←c49592.f1 = figure←v9128;
var←c49624.f0 = 5;
var←c49624.f1 = prevCharIndex←v8640;
var←c49656.f0 = 5;
var←c49656.f1 = charIndex←v9100;
{
word pd164;
pd164 = (* (( (ptr) (* (( (ptr) gf←c51640)+138)/* var←c48472 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd164 ))))(pageIndexStream←v8584, (* (( (ptr) gf←c51640)+57) ), var←c49592, var←c49624, var←c49656, pd164)
;
};
};
};
SOURCE(5402, 27)
prevCharIndex←v8640 = (charIndex←v9100 + 1);
};
};
SOURCE(5434, 29)
{
word pd165;
pd165 = (* (( (ptr) (* (( (ptr) gf←c51640)+152)/* var←c49528 */ ))+19) );
(void) ( *( (fPt) ((* (ptr) pd165 ))))((* ((( (ptr) &var←c51608)+9)) ), pd165);
};
SOURCE(5465, 25)
pageCount←v8612 = (pageCount←v8612 + 1);
SOURCE(5492, 18)
marks←v8812 = (* (( (ptr) &var←c51608)+12) );
SOURCE(5512, 18)
loc←v8868 = (* (W2Pt) (( (ptr) &var←c51608)+10) );
};
goto lab←L100006;
lab←L100004: ;
SOURCE(5541, 60)
if ((0 != (* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+15) ))) {
SOURCE(5567, 34)
{
word pd166;
pd166 = (* (( (ptr) (* (( (ptr) gf←c51640)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd166 ))))(pageIndexStream←v8584, (* (( (ptr) gf←c51640)+58) ), 0, 2147483647, pd166);
};
};
};
inputs←v8684 = (* (( (ptr) inputs←v8684)+1) );
goto lab←L100003;
lab←L100000: ;
};
SOURCE(5612, 30)
{
word pd167;
pd167 = (* (( (ptr) (* (( (ptr) gf←c51640)+146)/* var←c48920 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd167 ))))(master←v8528, pd167);
};
SOURCE(5644, 51)
if ((0 != (* (( (ptr) (* (( (ptr) &var←c51608)+4)/* data←v5452 */ ))+15) ))) {
SOURCE(5670, 25)
{
word pd168;
pd168 = (* (( (ptr) (* (( (ptr) gf←c51640)+138)/* var←c48472 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd168 ))))(pageIndexStream←v8584, 0, pd168);
};
};
}
static void levelClipFilter←P1284(formal←c0134, node←v37780, level←v37808, position←v37836, formal←c51672)
word formal←c0134;
W2 node←v37780;
word level←v37808;
W2 position←v37836;
word formal←c51672;
{
word skip←v37880;
word stop←v37908;
word maxLineLength←v37936;
formal←c51672 = (formal←c51672 - 28);
/* levelClipFilter: */
SOURCE(3595, 42)
SOURCE(3595, 42)
skip←v37880 = 0;
SOURCE(3595, 42)
stop←v37908 = 0;
SOURCE(3595, 42)
maxLineLength←v37936 = 2139095039;
SOURCE(3639, 41)
if (( (int)level←v37808 > (int)(* (( (ptr) (* (( (ptr) formal←c51672)+4) ))+16) ))) {
SOURCE(3668, 12)
skip←v37880 = 1;
};
/* removed tail goto */
(* (ptr) formal←c0134 ) = skip←v37880;
(* (( (ptr) formal←c0134)+1) ) = stop←v37908;
(* (( (ptr) formal←c0134)+2) ) = maxLineLength←v37936;
return;
}
static void paint←P1344(context←v9072, formal←c51736)
word context←v9072;
word formal←c51736;
{
register ptr gf←c51704 = (ptr) &globalframe;
formal←c51736 = (formal←c51736 - 20);
/* paint: */
SOURCE(3800, 13)
SOURCE(3842, 30)
{
word pd169;
pd169 = (* (( (ptr) (* (( (ptr) gf←c51704)+145)/* var←c48888 */ ))+15) );
(void) ( *( (fPt) ((* (ptr) pd169 ))))(context←v9072, (* (ptr) &fc111 ), pd169);
};
SOURCE(3898, 42)
{
word pd170;
pd170 = (* (( (ptr) (* (( (ptr) gf←c51704)+145)/* var←c48888 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd170 ))))(context←v9072, (* (W2Pt) (( (ptr) (* (( (ptr) formal←c51736)+4) ))+9) ), pd170);
};
SOURCE(3942, 33)
{
word pd171;
word x172;
word x173;
float tf174;
pd171 = (* (( (ptr) (* (( (ptr) gf←c51704)+145)/* var←c48888 */ ))+15) );
(void) ( *( (fPt) ((* (ptr) pd171 ))))(context←v9072, (
tf174 = (
x172 = (* (ptr) &fc161 ), *(float*)&x172
) / (
x173 = (* (ptr) &fc109 ), *(float*)&x173
), *(word*)&tf174
), pd171);
};
SOURCE(4012, 36)
{
word pd175;
pd175 = (* (( (ptr) (* (( (ptr) gf←c51704)+145)/* var←c48888 */ ))+15) );
(void) ( *( (fPt) ((* (ptr) pd175 ))))(context←v9072, (* (( (ptr) (* (( (ptr) formal←c51736)+4) ))+7) ), pd175);
};
SOURCE(4050, 36)
{
word pd176;
pd176 = (* (( (ptr) (* (( (ptr) gf←c51704)+145)/* var←c48888 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd176 ))))(context←v9072, (* (( (ptr) (* (( (ptr) formal←c51736)+4) ))+8) ), pd176);
};
SOURCE(4088, 174)
if (((* (( (ptr) (* (( (ptr) formal←c51736)+4) ))+13) ) != 0)) {
SOURCE(4118, 41)
{
word pd177;
pd177 = (* (( (ptr) (* (( (ptr) gf←c51704)+145)/* var←c48888 */ ))+52) );
(void) ( *( (fPt) ((* (ptr) pd177 ))))(context←v9072, (* (( (ptr) (* (( (ptr) formal←c51736)+4) ))+13) ), pd177);
};
SOURCE(4161, 61)
{
W4 var←c49688;
var←c49688.f0 = (* (ptr) &fc178 );
var←c49688.f1 = (* (ptr) &fc178 );
var←c49688.f2 = (* (ptr) &fc179 );
var←c49688.f3 = (* (ptr) &fc179 );
{
word pd180;
pd180 = (* (( (ptr) (* (( (ptr) gf←c51704)+145)/* var←c48888 */ ))+65) );
(void) ( *( (fPt) ((* (ptr) pd180 ))))(context←v9072, var←c49688, pd180);
};
};
SOURCE(4224, 38)
{
word pd181;
pd181 = (* (( (ptr) (* (( (ptr) gf←c51704)+145)/* var←c48888 */ ))+52) );
(void) ( *( (fPt) ((* (ptr) pd181 ))))(context←v9072, (* (ptr) (* (( (ptr) (* (( (ptr) gf←c51704)+145)/* var←c48888 */ ))+54)
) ), pd181);
};
};
SOURCE(4267, 45)
{
W2 var←c49720;
var←c49720.f0 = (* (ptr) &fc116 );
var←c49720.f1 = (* (ptr) &fc116 );
{
word pd182;
pd182 = (* (( (ptr) (* (( (ptr) gf←c51704)+152)/* var←c49528 */ ))+16) );
(void) ( *( (fPt) ((* (ptr) pd182 ))))((* (( (ptr) formal←c51736)+9) ), context←v9072, var←c49720, pd182);
};
};
}
static word FindFullName←P420(inputName←v5540)
word inputName←v5540;
{
register ptr gf←c51768 = (ptr) &globalframe;
word var←c5584;
word fullFName←v9172 = 0;
W6 var←c0141;
/* FindFullName: */
SOURCE(5701, 144)
SOURCE(5780, 44)
{
word pd183;
pd183 = (* (( (ptr) (* (( (ptr) gf←c51768)+149)/* var←c49272 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd183 ))))((word) &var←c0141, inputName←v5540, 2147483647, 1, 0, pd183);
};
fullFName←v9172 = var←c0141.f0;
SOURCE(5826, 19)
return(fullFName←v9172);
}
static word ExtendName←P480(inputName←v5644, ext←v5672)
word inputName←v5644;
word ext←v5672;
{
register ptr gf←c51800 = (ptr) &globalframe;
word var←c5716;
word fullFName←v9216 = 0;
W12 cp←v9244;
/* ExtendName: */
SOURCE(5849, 235)
SOURCE(5958, 42)
{
W14 var←c49752;
{
word pd184;
pd184 = (* (( (ptr) (* (( (ptr) gf←c51800)+149)/* var←c49272 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd184 ))))((word) &var←c49752, inputName←v5644, 0, pd184);
};
cp←v9244 = (* (W12Pt) (( (ptr) &var←c49752)+1) );
fullFName←v9216 = (* (ptr) &var←c49752 );
};
SOURCE(6002, 82)
{
word var←c49816;
{
word pd185;
word idx186;
word idx187;
pd185 = (* (( (ptr) (* (( (ptr) gf←c51800)+141)/* var←c48664 */ ))+17) );
var←c49816 = (word) ( *( (fPt) ((* (ptr) pd185 ))))(fullFName←v9216, (
idx186 = (* (( (ptr) &cp←v9244)+6) ),
SGNCK(idx186)
), (
idx187 = (* (( (ptr) &cp←v9244)+7) ),
SGNCK(idx187)
), pd185);
};
{
word pd188;
pd188 = (* (( (ptr) (* (( (ptr) gf←c51800)+141)/* var←c48664 */ ))+5) );
return((word) ( *( (fPt) ((* (ptr) pd188 ))))(var←c49816, (* (( (ptr) gf←c51800)+59) ), ext←v5672, 0, 0, pd188));
};
};
}
static word CmdTokenBreak←P540(char←v5776)
word char←v5776;
{
word var←c5820;
/* CmdTokenBreak: */
SOURCE(6090, 195)
SOURCE(6150, 32)
if ((char←v5776 == 95)) {
SOURCE(6168, 14)
return(0);
};
SOURCE(6184, 85)
switch (char←v5776) {
case 32: case 9: case 44: case 59: case 10:
SOURCE(6256, 13)
return(1);
};
SOURCE(6271, 14)
return(2);
}
static word GetCmdToken←P600(formal←c0348)
word formal←c0348;
{
W8 var←c51832;
/* declaration of stream←v5880 skipped */
register ptr gf←c51864 = (ptr) &globalframe;
word rope←v5924;
var←c51832.f4/* stream←v5880 */ = formal←c0348;
/* GetCmdToken: */
SOURCE(6291, 195)
SOURCE(6291, 195)
rope←v5924 = 0;
SOURCE(6354, 10)
rope←v5924 = 0;
SOURCE(6366, 61)
{
/* declaration of var←c01 skipped */
/* declaration of var←c02 skipped */
SOURCE(6366, 61)
var←c51832.f5/* var←c01 */ = (* (( (ptr) (* (( (ptr) gf←c51864)+138)/* var←c48472 */ ))+89) );
{
word var←c03;
{
word var←c0329;
var←c0329 = (word) &var←c51832;
var←c03 = (word) XR←Enable(( ((word) (fPt) NoName←Q2484) ), ( ((word) (fPt) NoName←Q2904) ), var←c0329);
};
if ((var←c03 == 2)) {
goto lab←L100009;
};
};
rope←v5924 = (* (W2Pt) (( (ptr) &var←c51832)+6)/* var←c02 */ ).f0;
lab←L100009: ;
};
SOURCE(6444, 42)
{
word pd189;
pd189 = (* (( (ptr) (* (( (ptr) gf←c51864)+153)/* var←c49848 */ ))+5) );
rope←v5924 = (word) ( *( (fPt) ((* (ptr) pd189 ))))(rope←v5924, pd189);
};
SOURCE(6291, 195)
return(rope←v5924);
}
static word NoName←Q2484(formal←c0296)
word formal←c0296;
{
register ptr gf←c0295 = (ptr) &globalframe;
SOURCE(6366, 61)
{
word pd190;
pd190 = (* (( (ptr) formal←c0296)+5) );
(void) ( *( (fPt) ((* (ptr) pd190 ))))((word) (( (bPt) formal←c0296)+24), (* (( (ptr) formal←c0296)+4) ), (word) (( (bPt) gf←c0295)+440)
/* var←c47928 */ , pd190);
};
return(0);
}
static void RaiseParseError←P660(stream←v6072, msg←v6100)
word stream←v6072;
word msg←v6100;
{
register ptr gf←c51896 = (ptr) &globalframe;
/* RaiseParseError: */
SOURCE(6575, 99)
SOURCE(6632, 42)
{
word var←c49880;
{
word pd191;
pd191 = (* (( (ptr) (* (( (ptr) gf←c51896)+138)/* var←c48472 */ ))+29) );
var←c49880 = (word) ( *( (fPt) ((* (ptr) pd191 ))))(stream←v6072, pd191);
};
{
W2 var←c0158;
(* (ptr) (word) &var←c0158 ) = msg←v6100;
(* (( (ptr) (word) &var←c0158) + 1) ) = var←c49880;
(void) XR←RaiseError((word) (( (bPt) gf←c51896)+364), (word) &var←c0158);
};
};
}
static word ExpandStars←P720(names←v6720)
word names←v6720;
{
W7 var←c51928;
register ptr gf←c51960 = (ptr) &globalframe;
word var←c6848;
/* declaration of var←c49912 skipped */
word new←v9288;
/* declaration of last←v9316 skipped */
/* ExpandStars: */
SOURCE(7081, 526)
{
word tmpAddr192;
tmpAddr192 = (word) (( (ptr) &var←c51928)+4)/* var←c49912 */ ;
(* (ptr) tmpAddr192 ) = ( ((word) (fPt) NameAction←P1452) );
(* (( (ptr) tmpAddr192) + 1) ) = 1;
};
SOURCE(7148, 5)
{
word var←c49976;
new←v9288 = XR←NewObject(8, (* (( (ptr) gf←c51960)+13) ));
var←c49976 = new←v9288;
};
SOURCE(7179, 6)
var←c51928.f6/* last←v9316 */ = new←v9288;
SOURCE(7326, 252)
{
register word p←v9660;
p←v9660 = names←v6720;
lab←L100015: ;
if ((p←v9660 != 0)) {
}
else {
goto lab←L100012;
};
{
word r←v9788;
SOURCE(7379, 17)
r←v9788 = (* (ptr) p←v9660 );
SOURCE(7398, 180)
{
word pd193;
pd193 = (* (( (ptr) (* (( (ptr) gf←c51960)+141)/* var←c48664 */ ))+11) );
if (( (int)(word) ( *( (fPt) ((* (ptr) pd193 ))))(r←v9788, (* (( (ptr) gf←c51960)+61) ), 0, 1, pd193) >= (int)0)) {
SOURCE(7439, 62)
{
word pd194;
pd194 = (* (( (ptr) (* (( (ptr) gf←c51960)+141)/* var←c48664 */ ))+11) );
if (( (int)(word) ( *( (fPt) ((* (ptr) pd194 ))))(r←v9788, (* (( (ptr) gf←c51960)+62) ), 0, 1, pd194) < (int)0)) {
SOURCE(7477, 24)
{
word pd195;
pd195 = (* (( (ptr) (* (( (ptr) gf←c51960)+141)/* var←c48664 */ ))+6) );
r←v9788 = (word) ( *( (fPt) ((* (ptr) pd195 ))))(r←v9788, (* (( (ptr) gf←c51960)+63) ), pd195);
};
};
};
SOURCE(7503, 36)
{
word pd196;
pd196 = (* (( (ptr) (* (( (ptr) gf←c51960)+149)/* var←c49272 */ ))+14) );
(void) ( *( (fPt) ((* (ptr) pd196 ))))(r←v9788, (word) (( (bPt) &var←c51928)+16)/* var←c49912 */ , 0, pd196);
};
}
else {
SOURCE(7546, 32)
{
word var←c50040;
{
word var←c50008;
var←c50008 = (word) FindFullName←P420(r←v9788);
var←c50040 = (word) NameAction←P1452(var←c50008, (word) (( (bPt) &var←c51928)+16)/* var←c49912 */ );
};
};
};
};
};
p←v9660 = (* (( (ptr) p←v9660)+1) );
goto lab←L100015;
lab←L100012: ;
};
SOURCE(7589, 18)
return((* (( (ptr) new←v9288)+1) ));
}
static word NameAction←P1452(fullFName←v9588, formal←c52024)
word fullFName←v9588;
word formal←c52024;
{
register ptr gf←c51992 = (ptr) &globalframe;
word continue←v9632;
formal←c52024 = (formal←c52024 - 16);
/* NameAction: */
SOURCE(7205, 116)
SOURCE(7205, 116)
continue←v9632 = 1;
SOURCE(7276, 27)
{
word var←c50072;
word var←c50104;
var←c50072 = XR←NewObject(8, (* (( (ptr) gf←c51992)+13) ));
var←c50104 = var←c50072;
(* (ptr) var←c50104 ) = fullFName←v9588;
(* (( (ptr) (* (( (ptr) formal←c52024)+6) ))+1) ) = var←c50072;
};
SOURCE(7305, 16)
(* (( (ptr) formal←c52024)+6) ) = (* (( (ptr) (* (( (ptr) formal←c52024)+6) ))+1) );
SOURCE(7205, 116)
return(continue←v9632);
}
static word Parse←P780(stream←v6992)
word stream←v6992;
{
W21 var←c52056;
register ptr gf←c52088 = (ptr) &globalframe;
word data←v7036;
word outputName←v9832;
word secondTokenIndex←v9860;
word gets←v9888;
word inputNames←v9916 = 0;
word inputNamesTail←v9944 = 0;
word keySeen←v9972 = 0;
/* Parse: */
SOURCE(7611, 1271)
SOURCE(7611, 1271)
data←v7036 = 0;
SOURCE(7677, 38)
outputName←v9832 = (word) GetCmdToken←P600(stream←v6992);
SOURCE(7717, 39)
{
word pd197;
pd197 = (* (( (ptr) (* (( (ptr) gf←c52088)+138)/* var←c48472 */ ))+29) );
secondTokenIndex←v9860 = (word) ( *( (fPt) ((* (ptr) pd197 ))))(stream←v6992, pd197);
};
SOURCE(7758, 32)
gets←v9888 = (word) GetCmdToken←P600(stream←v6992);
SOURCE(7883, 215)
{
word tc198;
word pd199;
word pd200;
pd199 = (* (( (ptr) (* (( (ptr) gf←c52088)+141)/* var←c48664 */ ))+8) );
if ((0 == (word) ( *( (fPt) ((* (ptr) pd199 ))))(gets←v9888, (* (( (ptr) gf←c52088)+64) ), 1, pd199))) {
pd200 = (* (( (ptr) (* (( (ptr) gf←c52088)+141)/* var←c48664 */ ))+8) );
tc198 = (word) (0 == (word) ( *( (fPt) ((* (ptr) pd200 ))))(gets←v9888, (* (( (ptr) gf←c52088)+65) ), 1, pd200));
}
else {
tc198 = (word) 0;
};
if (tc198) {
SOURCE(7934, 46)
{
word var←c50136;
{
word var←c50168;
word var←c50200;
var←c50168 = XR←NewObject(8, (* (( (ptr) gf←c52088)+13) ));
var←c50200 = var←c50168;
(* (ptr) var←c50200 ) = outputName←v9832;
var←c50136 = var←c50168;
};
inputNamesTail←v9944 = var←c50136;
inputNames←v9916 = var←c50136;
};
SOURCE(7982, 16)
outputName←v9832 = 0;
SOURCE(8000, 33)
{
word pd201;
pd201 = (* (( (ptr) (* (( (ptr) gf←c52088)+138)/* var←c48472 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd201 ))))(stream←v6992, secondTokenIndex←v9860, pd201);
};
}
else {
SOURCE(8043, 55)
{
word var←c50232;
{
word var←c50264;
word var←c50296;
var←c50264 = XR←NewObject(8, (* (( (ptr) gf←c52088)+13) ));
var←c50296 = var←c50264;
(* (ptr) var←c50296 ) = (word) GetCmdToken←P600(stream←v6992);
var←c50232 = var←c50264;
};
inputNamesTail←v9944 = var←c50232;
inputNames←v9916 = var←c50232;
};
};
};
SOURCE(8101, 55)
if ((inputNames←v9916 == 0)) {
SOURCE(8126, 30)
(void) RaiseParseError←P660(stream←v6992, (* (( (ptr) gf←c52088)+37) ));
};
SOURCE(8158, 454)
lab←L100018: ;
SOURCE(8158, 454)
{
word index←v10184;
/* declaration of name←v10212 skipped */
/* declaration of bad←v10240 skipped */
word c←v10268;
SOURCE(8161, 32)
{
word pd202;
pd202 = (* (( (ptr) (* (( (ptr) gf←c52088)+138)/* var←c48472 */ ))+29) );
index←v10184 = (word) ( *( (fPt) ((* (ptr) pd202 ))))(stream←v6992, pd202);
};
SOURCE(8195, 32)
(* (( (ptr) &var←c52056)+4)/* name←v10212 */ ) = (word) GetCmdToken←P600(stream←v6992);
SOURCE(8229, 17)
(* (( (ptr) &var←c52056)+5)/* bad←v10240 */ ) = 0;
SOURCE(8257, 28)
{
word pd203;
pd203 = (* (( (ptr) (* (( (ptr) gf←c52088)+141)/* var←c48664 */ ))+15) );
if (( (int)(word) ( *( (fPt) ((* (ptr) pd203 ))))((* ((( (ptr) &var←c52056)+4)/* name←v10212 */ ) ), pd203) == (int)0)) {
SOURCE(8285, 4)
goto lab←L100017;
};
};
SOURCE(8291, 179)
{
word pd204;
pd204 = (* (( (ptr) (* (( (ptr) gf←c52088)+141)/* var←c48664 */ ))+9) );
c←v10268 = (word) ( *( (fPt) ((* (ptr) pd204 ))))((* (( (ptr) &var←c52056)+4)/* name←v10212 */ ), 0, pd204);
};
if (((((c←v10268 - 48) <= 9) || (c←v10268 == 45)) || (c←v10268 == 46)) || (c←v10268 == 36)) {
SOURCE(8363, 16)
(* (( (ptr) &var←c52056)+5)/* bad←v10240 */ ) = 1;
}
else {
SOURCE(8379, 91)
if ((0 != (word) IsKeyword←P900((* ((( (ptr) &var←c52056)+4)/* name←v10212 */ ) )))) {
SOURCE(8403, 16)
(* (( (ptr) &var←c52056)+5)/* bad←v10240 */ ) = 1;
}
else {
SOURCE(8419, 51)
{
/* declaration of var←c04 skipped */
/* declaration of var←c05 skipped */
SOURCE(8419, 51)
(* (( (ptr) &var←c52056)+6)/* var←c04 */ ) = (* (( (ptr) (* (( (ptr) gf←c52088)+149)/* var←c49272 */ ))+6) );
{
word var←c06;
{
word var←c0330;
var←c0330 = (word) &var←c52056;
var←c06 = (word) XR←Enable(( ((word) (fPt) NoName←Q2544) ), ( ((word) (fPt) NoName←Q2844) ), var←c0330);
};
if ((var←c06 == 3)) {
goto lab←L100020;
};
};
(* (( (ptr) &var←c52056)+4)/* name←v10212 */ ) = (* (( (ptr) &var←c52056)+7)/* var←c05 */ );
lab←L100020: ;
};
};
};
SOURCE(8494, 39)
if ((0 != (* (( (ptr) &var←c52056)+5)/* bad←v10240 */ ))) {
SOURCE(8507, 26)
{
word pd205;
pd205 = (* (( (ptr) (* (( (ptr) gf←c52088)+138)/* var←c48472 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd205 ))))(stream←v6992, index←v10184, pd205);
};
SOURCE(8535, 4)
goto lab←L100017;
};
SOURCE(8542, 32)
{
word var←c50360;
word var←c50392;
var←c50360 = XR←NewObject(8, (* (( (ptr) gf←c52088)+13) ));
var←c50392 = var←c50360;
(* (ptr) var←c50392 ) = (* (( (ptr) &var←c52056)+4)/* name←v10212 */ );
(* (( (ptr) inputNamesTail←v9944)+1) ) = var←c50360;
};
SOURCE(8576, 36)
inputNamesTail←v9944 = (* (( (ptr) inputNamesTail←v9944)+1) );
};
goto lab←L100018;
lab←L100017: ;
SOURCE(8623, 36)
inputNames←v9916 = (word) ExpandStars←P720(inputNames←v9916);
SOURCE(8661, 89)
{
word pd206;
pd206 = (* (( (ptr) (* (( (ptr) gf←c52088)+141)/* var←c48664 */ ))+15) );
if (( (int)(word) ( *( (fPt) ((* (ptr) pd206 ))))(outputName←v9832, pd206) == (int)0)) {
SOURCE(8695, 55)
outputName←v9832 = (word) ExtendName←P480((* (ptr) inputNames←v9916 ), (* (( (ptr) gf←c52088)+66) ));
};
};
SOURCE(8752, 39)
{
word var←c50424;
var←c50424 = XR←NewObject(68, (* (( (ptr) gf←c52088)+19) ));
(* (W17Pt) var←c50424 ) = (* (W17Pt) (* (( (ptr) gf←c52088)+7)/* default←v4512 */ ) );
data←v7036 = var←c50424;
};
SOURCE(8793, 28)
(* (ptr) data←v7036 ) = outputName←v9832;
SOURCE(8823, 28)
(* (( (ptr) data←v7036)+1) ) = inputNames←v9916;
SOURCE(8853, 29)
(void) ParseParameters←P960(stream←v6992, data←v7036);
SOURCE(7611, 1271)
return(data←v7036);
}
static word NoName←Q2544(formal←c0302)
word formal←c0302;
{
SOURCE(8419, 51)
{
word pd207;
pd207 = (* (( (ptr) formal←c0302)+6) );
(void) ( *( (fPt) ((* (ptr) pd207 ))))((word) (( (bPt) formal←c0302)+28), (* (( (ptr) formal←c0302)+4) ), 0, pd207);
};
return(0);
}
static word ParamNameForRefText←P840(text←v7848)
word text←v7848;
{
register ptr gf←c52120 = (ptr) &globalframe;
word var←c7904;
/* ParamNameForRefText: */
SOURCE(9722, 216)
SOURCE(9797, 126)
{
register word p←v10312 = 1;
lab←L100026: ;
SOURCE(9842, 81)
{
word pd208;
pd208 = (* (( (ptr) (* (( (ptr) gf←c52120)+141)/* var←c48664 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd208 ))))(text←v7848, (* (( (ptr) (* (( (ptr) gf←c52120)+6)/* RopeForParamName←v4344 */ ))+p←v10312)
), 0, pd208))) {
SOURCE(9905, 18)
return(p←v10312);
};
};
if ((p←v10312 >= 23)) {
goto lab←L100023;
};
p←v10312 = (p←v10312 + 1);
goto lab←L100026;
lab←L100023: ;
};
SOURCE(9925, 13)
return(0);
}
static word IsKeyword←P900(name←v7964)
word name←v7964;
{
register ptr gf←c52152 = (ptr) &globalframe;
word var←c8008;
/* IsKeyword: */
SOURCE(9942, 171)
SOURCE(9990, 106)
{
register word p←v10356 = 18;
lab←L100030: ;
SOURCE(10022, 74)
{
word pd209;
pd209 = (* (( (ptr) (* (( (ptr) gf←c52152)+141)/* var←c48664 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd209 ))))(name←v7964, (* (( (ptr) (* (( (ptr) gf←c52152)+6)/* RopeForParamName←v4344 */ ))+p←v10356)
), 0, pd209))) {
SOURCE(10075, 21)
return(1);
};
};
if ((p←v10356 >= 23)) {
goto lab←L100027;
};
p←v10356 = (p←v10356 + 1);
goto lab←L100030;
lab←L100027: ;
};
SOURCE(10098, 15)
return(0);
}
static void ParseParameters←P960(formal←c0349, data←v8096)
word formal←c0349;
word data←v8096;
{
W26 var←c52184;
/* declaration of stream←v8068 skipped */
register ptr gf←c52216 = (ptr) &globalframe;
/* declaration of var←c50456 skipped */
/* declaration of var←c50488 skipped */
/* declaration of var←c50520 skipped */
W2 var←c50552;
/* declaration of var←c50584 skipped */
/* declaration of var←c50616 skipped */
/* declaration of var←c50648 skipped */
/* declaration of stack←v10456 skipped */
W3 stringStack←v10484;
/* declaration of stackType←v10512 skipped */
/* declaration of stackTop←v10540 skipped */
/* declaration of token←v10568 skipped */
/* declaration of tokenKind←v10596 skipped */
(* (( (ptr) &var←c52184)+4)/* stream←v8068 */ ) = formal←c0349;
/* ParseParameters: */
SOURCE(10117, 5002)
{
word tmpAddr210;
tmpAddr210 = (word) (( (ptr) &var←c52184)+5)/* var←c50456 */ ;
(* (ptr) tmpAddr210 ) = ( ((word) (fPt) GetTok←P2112) );
(* (( (ptr) tmpAddr210) + 1) ) = 1;
};
{
word tmpAddr211;
tmpAddr211 = (word) (( (ptr) &var←c52184)+7)/* var←c50488 */ ;
(* (ptr) tmpAddr211 ) = ( ((word) (fPt) PopInt←P2052) );
(* (( (ptr) tmpAddr211) + 1) ) = 1;
};
{
word tmpAddr212;
tmpAddr212 = (word) (( (ptr) &var←c52184)+9)/* var←c50520 */ ;
(* (ptr) tmpAddr212 ) = ( ((word) (fPt) MakeMeters←P1992) );
(* (( (ptr) tmpAddr212) + 1) ) = 1;
};
(* (ptr) (word) &var←c50552 ) = ( ((word) (fPt) PopDimn←P1932) );
(* (( (ptr) (word) &var←c50552) + 1) ) = 1;
{
word tmpAddr213;
tmpAddr213 = (word) (( (ptr) &var←c52184)+11)/* var←c50584 */ ;
(* (ptr) tmpAddr213 ) = ( ((word) (fPt) PopReal←P1872) );
(* (( (ptr) tmpAddr213) + 1) ) = 1;
};
{
word tmpAddr214;
tmpAddr214 = (word) (( (ptr) &var←c52184)+13)/* var←c50616 */ ;
(* (ptr) tmpAddr214 ) = ( ((word) (fPt) CheckN←P1812) );
(* (( (ptr) tmpAddr214) + 1) ) = 1;
};
{
word tmpAddr215;
tmpAddr215 = (word) (( (ptr) &var←c52184)+15)/* var←c50648 */ ;
(* (ptr) tmpAddr215 ) = ( ((word) (fPt) CheckStack←P1752) );
(* (( (ptr) tmpAddr215) + 1) ) = 1;
};
SOURCE(10291, 52)
stringStack←v10484.f0 = 0;
stringStack←v10484.f1 = 0;
stringStack←v10484.f2 = 0;
SOURCE(10345, 53)
(* (( (ptr) &var←c52184)+20) ) = 0;
(* (( (ptr) &var←c52184)+21) ) = 0;
(* (( (ptr) &var←c52184)+22) ) = 0;
SOURCE(10400, 17)
(* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) = 0;
SOURCE(10419, 31)
(* (( (ptr) &var←c52184)+24)/* token←v10568 */ ) = XR←NewObject(36, (* (( (ptr) gf←c52216)+12) ));
(* (( (hPt) (* (( (ptr) &var←c52184)+24)/* token←v10568 */ ))+1) ) = 30;
SOURCE(10452, 36)
(* (( (ptr) &var←c52184)+25)/* tokenKind←v10596 */ ) = 0;
SOURCE(12175, 27)
(void) SetUserProfileOptions←P1020(data←v8096);
SOURCE(12204, 2860)
lab←L100033: ;
if ((word) GetTok←P2112((word) ((( (bPt) &var←c52184)+20)/* var←c50456 */ ))) {
}
else {
goto lab←L100031;
};
SOURCE(12222, 2842)
{
word var←c50776;
var←c50776 = (* (( (ptr) &var←c52184)+25)/* tokenKind←v10596 */ );
switch (var←c50776) {
case 2: case 5:
SOURCE(12279, 245)
{
word real←v11460;
SOURCE(12281, 50)
{
word pd216;
pd216 = (* (( (ptr) (* (( (ptr) gf←c52216)+151)/* var←c49496 */ ))+12) );
real←v11460 = (word) ( *( (fPt) ((* (ptr) pd216 ))))((* ((( (ptr) &var←c52184)+24)/* token←v10568 */ ) ), pd216);
};
SOURCE(12333, 93)
{
word tc217;
word idx218;
if (((* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) > 0)) {
tc217 = (word) ((* ((( (ptr) &var←c52184)+20)/* stackType←v10512 */ +(
idx218 = (word) ((* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) - 1),
BCK(idx218, 3)
)) ) == 3);
}
else {
tc217 = (word) 0;
};
if (tc217) {
SOURCE(12391, 12)
{
word x219;
*(float*)&real←v11460 = - (
x219 = real←v11460, *(float*)&x219
);
};
SOURCE(12405, 21)
{
word idx220;
(* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) = (
idx220 = (word) ((* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) - 1),
SGNCK(idx220)
);
};
};
};
SOURCE(12431, 12)
(void) CheckStack←P1752((word) ((( (bPt) &var←c52184)+60)/* var←c50648 */ ));
SOURCE(12445, 22)
{
word idx221;
(* ((( (ptr) &var←c52184)+17)/* stack←v10456 */ +(
idx221 = (* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ),
BCK(idx221, 3)
)) ) = real←v11460;
};
SOURCE(12469, 28)
{
word idx222;
(* ((( (ptr) &var←c52184)+20)/* stackType←v10512 */ +(
idx222 = (* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ),
BCK(idx222, 3)
)) ) = 0;
};
SOURCE(12499, 23)
(* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) = ((* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) + 1);
};
break;
case 9:
SOURCE(12544, 186)
{
word limit223;
if (((word) (* ((( (bPt) (* (( (ptr) &var←c52184)+24)/* token←v10568 */ ))+4)+(
limit223 = (word) (* (( (hPt) (* (( (ptr) &var←c52184)+24)/* token←v10568 */ ))+1) ),
BCK(0, limit223)
)) ) == 45)) {
SOURCE(12568, 12)
(void) CheckStack←P1752((word) ((( (bPt) &var←c52184)+60)/* var←c50648 */ ));
SOURCE(12582, 28)
{
word idx224;
(* ((( (ptr) &var←c52184)+20)/* stackType←v10512 */ +(
idx224 = (* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ),
BCK(idx224, 3)
)) ) = 3;
};
SOURCE(12612, 23)
(* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) = ((* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) + 1);
}
else {
SOURCE(12645, 85)
{
word var←c50808;
{
W2 var←c50840;
var←c50840.f0 = 12;
var←c50840.f1 = (* (( (ptr) &var←c52184)+24)/* token←v10568 */ );
{
word pd225;
pd225 = (* (( (ptr) (* (( (ptr) gf←c52216)+138)/* var←c48472 */ ))+63) );
var←c50808 = (word) ( *( (fPt) ((* (ptr) pd225 ))))((* (( (ptr) gf←c52216)+68) ), var←c50840, pd225);
};
};
(void) RaiseParseError←P660((* (( (ptr) &var←c52184)+4)/* stream←v8068 */ ), var←c50808);
};
};
};
break;
case 6:
SOURCE(12751, 12)
(void) CheckStack←P1752((word) ((( (bPt) &var←c52184)+60)/* var←c50648 */ ));
SOURCE(12765, 72)
{
word var←c50872;
{
word var←c50904;
{
word pd226;
pd226 = (* (( (ptr) (* (( (ptr) gf←c52216)+141)/* var←c48664 */ ))+35) );
var←c50904 = (word) ( *( (fPt) ((* (ptr) pd226 ))))((* (( (ptr) &var←c52184)+24)/* token←v10568 */ ), 0, 32767, pd226);
};
{
word pd227;
pd227 = (* (( (ptr) (* (( (ptr) gf←c52216)+151)/* var←c49496 */ ))+25) );
var←c50872 = (word) ( *( (fPt) ((* (ptr) pd227 ))))(var←c50904, 0, pd227);
};
};
{
word idx228;
(* (( (ptr) &stringStack←v10484)+(
idx228 = (* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ),
BCK(idx228, 3)
)) ) = var←c50872;
};
};
SOURCE(12839, 28)
{
word idx229;
(* ((( (ptr) &var←c52184)+20)/* stackType←v10512 */ +(
idx229 = (* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ),
BCK(idx229, 3)
)) ) = 2;
};
SOURCE(12869, 23)
(* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) = ((* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) + 1);
break;
case 8:
SOURCE(12912, 12)
(void) CheckStack←P1752((word) ((( (bPt) &var←c52184)+60)/* var←c50648 */ ));
SOURCE(12926, 22)
{
word limit230;
if (((word) (* ((( (bPt) (* (( (ptr) &var←c52184)+24)/* token←v10568 */ ))+4)+(
limit230 = (word) (* (( (hPt) (* (( (ptr) &var←c52184)+24)/* token←v10568 */ ))+1) ),
BCK(0, limit230)
)) ) != 36)) {
SOURCE(12948, 5)
(void) XR←RaiseUnnamedError();
};
};
SOURCE(12955, 60)
{
word var←c50936;
{
word pd231;
pd231 = (* (( (ptr) (* (( (ptr) gf←c52216)+141)/* var←c48664 */ ))+35) );
var←c50936 = (word) ( *( (fPt) ((* (ptr) pd231 ))))((* (( (ptr) &var←c52184)+24)/* token←v10568 */ ), 1, 32767, pd231);
};
{
word idx232;
(* (( (ptr) &stringStack←v10484)+(
idx232 = (* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ),
BCK(idx232, 3)
)) ) = var←c50936;
};
};
SOURCE(13017, 28)
{
word idx233;
(* ((( (ptr) &var←c52184)+20)/* stackType←v10512 */ +(
idx233 = (* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ),
BCK(idx233, 3)
)) ) = 2;
};
SOURCE(13047, 23)
(* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) = ((* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) + 1);
break;
case 1:
SOURCE(13088, 1976)
{
word var←c50968;
var←c50968 = (word) ParamNameForRefText←P840((* ((( (ptr) &var←c52184)+24)/* token←v10568 */ ) ));
switch (var←c50968) {
case 1:
SOURCE(13138, 9)
(void) CheckN←P1812(1, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
SOURCE(13149, 101)
{
word idx234;
if (((* ((( (ptr) &var←c52184)+20)/* stackType←v10512 */ +(
/*1*/ idx234 = (word) ((* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) - 1),
/*1*/ BCK(idx234, 3)
/*1*/ )) ) != 2)) {
SOURCE(13186, 64)
(void) RaiseParseError←P660((* (( (ptr) &var←c52184)+4)/* stream←v8068 */ ), (* (( (ptr) gf←c52216)+69) ));
};
};
SOURCE(13252, 21)
{
word idx235;
(* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) = (
idx235 = (word) ((* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) - 1),
SGNCK(idx235)
);
};
SOURCE(13275, 34)
{
word idx236;
(* (( (ptr) data←v8096)+2) ) = (* (( (ptr) &stringStack←v10484)+(
/*1*/ idx236 = (* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ),
/*1*/ BCK(idx236, 3)
/*1*/ )) );
};
break;
case 2:
SOURCE(13326, 9)
(void) CheckN←P1812(1, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
SOURCE(13337, 102)
{
word idx237;
if (((* ((( (ptr) &var←c52184)+20)/* stackType←v10512 */ +(
/*1*/ idx237 = (word) ((* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) - 1),
/*1*/ BCK(idx237, 3)
/*1*/ )) ) != 2)) {
SOURCE(13374, 65)
(void) RaiseParseError←P660((* (( (ptr) &var←c52184)+4)/* stream←v8068 */ ), (* (( (ptr) gf←c52216)+70) ));
};
};
SOURCE(13441, 21)
{
word idx238;
(* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) = (
idx238 = (word) ((* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) - 1),
SGNCK(idx238)
);
};
SOURCE(13464, 71)
{
word pd239;
word idx240;
pd239 = (* (( (ptr) (* (( (ptr) gf←c52216)+141)/* var←c48664 */ ))+5) );
(* (( (ptr) data←v8096)+3) ) = (word) ( *( (fPt) ((* (ptr) pd239 ))))((* (( (ptr) data←v8096)+3) ), (* (( (ptr) gf←c52216)+41)
), (* (( (ptr) &stringStack←v10484)+(
/*1*/ idx240 = (* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ),
/*1*/ BCK(idx240, 3)
/*1*/ )) ), 0, 0, pd239);
};
break;
case 3:
SOURCE(13553, 9)
(void) CheckN←P1812(1, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
SOURCE(13564, 103)
{
word idx241;
if (((* ((( (ptr) &var←c52184)+20)/* stackType←v10512 */ +(
/*1*/ idx241 = (word) ((* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) - 1),
/*1*/ BCK(idx241, 3)
/*1*/ )) ) != 2)) {
SOURCE(13601, 66)
(void) RaiseParseError←P660((* (( (ptr) &var←c52184)+4)/* stream←v8068 */ ), (* (( (ptr) gf←c52216)+71) ));
};
};
SOURCE(13669, 21)
{
word idx242;
(* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) = (
idx242 = (word) ((* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) - 1),
SGNCK(idx242)
);
};
SOURCE(13692, 73)
{
word pd243;
word idx244;
pd243 = (* (( (ptr) (* (( (ptr) gf←c52216)+141)/* var←c48664 */ ))+5) );
(* (( (ptr) data←v8096)+4) ) = (word) ( *( (fPt) ((* (ptr) pd243 ))))((* (( (ptr) data←v8096)+4) ), (* (( (ptr) gf←c52216)+41)
), (* (( (ptr) &stringStack←v10484)+(
/*1*/ idx244 = (* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ),
/*1*/ BCK(idx244, 3)
/*1*/ )) ), 0, 0, pd243);
};
break;
case 4:
SOURCE(13782, 9)
(void) CheckN←P1812(1, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
SOURCE(13793, 102)
{
word idx245;
if (((* ((( (ptr) &var←c52184)+20)/* stackType←v10512 */ +(
/*1*/ idx245 = (word) ((* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) - 1),
/*1*/ BCK(idx245, 3)
/*1*/ )) ) != 2)) {
SOURCE(13830, 65)
(void) RaiseParseError←P660((* (( (ptr) &var←c52184)+4)/* stream←v8068 */ ), (* (( (ptr) gf←c52216)+72) ));
};
};
SOURCE(13897, 21)
{
word idx246;
(* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) = (
idx246 = (word) ((* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ) - 1),
SGNCK(idx246)
);
};
SOURCE(13920, 84)
{
word pd247;
word idx248;
pd247 = (* (( (ptr) (* (( (ptr) gf←c52216)+141)/* var←c48664 */ ))+5) );
(* (( (ptr) data←v8096)+3) ) = (word) ( *( (fPt) ((* (ptr) pd247 ))))((* (( (ptr) data←v8096)+3) ), (* (( (ptr) gf←c52216)+73)
), (* (( (ptr) &stringStack←v10484)+(
/*1*/ idx248 = (* (( (ptr) &var←c52184)+23)/* stackTop←v10540 */ ),
/*1*/ BCK(idx248, 3)
/*1*/ )) ), (* (( (ptr) gf←c52216)+74) ), 0, pd247);
};
break;
case 5:
SOURCE(14023, 25)
(* (( (ptr) data←v8096)+5) ) = (word) PopInt←P2052((word) ((( (bPt) &var←c52184)+28)/* var←c50488 */ ));
SOURCE(14050, 9)
(void) CheckN←P1812(0, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
break;
case 6:
SOURCE(14073, 22)
(* (( (ptr) data←v8096)+6) ) = (word) PopInt←P2052((word) ((( (bPt) &var←c52184)+28)/* var←c50488 */ ));
SOURCE(14097, 9)
(void) CheckN←P1812(0, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
break;
case 7:
SOURCE(14121, 24)
(* (( (ptr) data←v8096)+7) ) = (word) PopReal←P1872((word) ((( (bPt) &var←c52184)+44)/* var←c50584 */ ));
SOURCE(14147, 9)
(void) CheckN←P1812(0, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
break;
case 8:
SOURCE(14170, 23)
(* (( (ptr) data←v8096)+8) ) = (word) PopReal←P1872((word) ((( (bPt) &var←c52184)+44)/* var←c50584 */ ));
SOURCE(14195, 9)
(void) CheckN←P1812(0, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
break;
case 9:
SOURCE(14221, 28)
(* (( (ptr) data←v8096)+10) ) = (word) PopReal←P1872((word) ((( (bPt) &var←c52184)+44)/* var←c50584 */ ));
SOURCE(14251, 28)
(* (( (ptr) data←v8096)+9) ) = (word) PopReal←P1872((word) ((( (bPt) &var←c52184)+44)/* var←c50584 */ ));
SOURCE(14281, 9)
(void) CheckN←P1812(0, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
break;
case 19:
SOURCE(14303, 20)
(* (( (ptr) data←v8096)+11) ) = 0;
SOURCE(14325, 9)
(void) CheckN←P1812(0, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
break;
case 18:
SOURCE(14349, 19)
(* (( (ptr) data←v8096)+11) ) = 1;
SOURCE(14370, 9)
(void) CheckN←P1812(0, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
break;
case 10:
SOURCE(14394, 24)
(* (( (ptr) data←v8096)+14) ) = (word) PopReal←P1872((word) ((( (bPt) &var←c52184)+44)/* var←c50584 */ ));
SOURCE(14420, 9)
(void) CheckN←P1812(0, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
break;
case 20:
SOURCE(14449, 24)
(* (( (ptr) data←v8096)+12) ) = 1;
SOURCE(14475, 9)
(void) CheckN←P1812(0, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
break;
case 21:
SOURCE(14503, 25)
(* (( (ptr) data←v8096)+12) ) = 0;
SOURCE(14530, 9)
(void) CheckN←P1812(0, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
break;
case 11:
SOURCE(14556, 148)
{
word b←v11504;
word g←v11532;
word r←v11560;
SOURCE(14558, 19)
b←v11504 = (word) PopReal←P1872((word) ((( (bPt) &var←c52184)+44)/* var←c50584 */ ));
SOURCE(14579, 19)
g←v11532 = (word) PopReal←P1872((word) ((( (bPt) &var←c52184)+44)/* var←c50584 */ ));
SOURCE(14600, 19)
r←v11560 = (word) PopReal←P1872((word) ((( (bPt) &var←c52184)+44)/* var←c50584 */ ));
SOURCE(14621, 81)
{
word x249;
float tf250;
float tf251;
word x252;
float tf253;
float tf254;
float tf255;
word x256;
word x257;
tf253 = FMIN((
/*1*/ x249 = r←v11560, *(float*)&x249
/*1*/ ), (
/*1*/ x252 = g←v11532, *(float*)&x252
/*1*/ ), tf250, tf251);
if ((FMIN(tf253, (
/*1*/ x256 = b←v11504, *(float*)&x256
/*1*/ ), tf254, tf255) < (
/*1*/ x257 = (* (ptr) &fc161 ), *(float*)&x257
/*1*/ ))) {
SOURCE(14649, 53)
/*1*/ {
/*1*/ W3 var←c51000;
/*1*/ var←c51000.f0 = r←v11560;
/*1*/ var←c51000.f1 = g←v11532;
/*1*/ var←c51000.f2 = b←v11504;
/*1*/ {
/*1*/ word pd258;
/*1*/ pd258 = (* (( (ptr) (* (( (ptr) gf←c52216)+154)/* var←c51032 */ ))+17) );
/*1*/ (* (( (ptr) data←v8096)+13) ) = (word) ( *( (fPt) ((* (ptr) pd258 ))))(var←c51000, pd258);
/*1*/ };
/*1*/ };
/*1*/ };
};
};
break;
case 12:
SOURCE(14721, 25)
(* (( (ptr) data←v8096)+16) ) = (word) PopInt←P2052((word) ((( (bPt) &var←c52184)+28)/* var←c50488 */ ));
SOURCE(14748, 9)
(void) CheckN←P1812(0, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
break;
case 13:
SOURCE(14767, 18)
(void) MakeMeters←P1992((* (ptr) &fc111 ), (word) (( (bPt) &var←c52184)+36)/* var←c50520 */ );
break;
case 14:
SOURCE(14795, 24)
{
word x259;
word x260;
float tf261;
(void) MakeMeters←P1992((
/*1*/ tf261 = (
/*1*/ x259 = (* (ptr) &fc111 ), *(float*)&x259
/*1*/ ) / (
/*1*/ x260 = (* (ptr) &fc109 ), *(float*)&x260
/*1*/ ), *(word*)&tf261
/*1*/ ), (word) (( (bPt) &var←c52184)+36)/* var←c50520 */ );
};
break;
case 15:
SOURCE(14829, 16)
(void) MakeMeters←P1992((* (ptr) &fc262 ), (word) (( (bPt) &var←c52184)+36)/* var←c50520 */ );
break;
case 16:
SOURCE(14855, 17)
(void) MakeMeters←P1992((* (ptr) &fc263 ), (word) (( (bPt) &var←c52184)+36)/* var←c50520 */ );
break;
case 17:
SOURCE(14882, 23)
{
word x264;
word x265;
float tf266;
(void) MakeMeters←P1992((
/*1*/ tf266 = (
/*1*/ x264 = (* (ptr) &fc111 ), *(float*)&x264
/*1*/ ) / (
/*1*/ x265 = (* (ptr) &fc114 ), *(float*)&x265
/*1*/ ), *(word*)&tf266
/*1*/ ), (word) (( (bPt) &var←c52184)+36)/* var←c50520 */ );
};
break;
case 23:
SOURCE(14927, 25)
(* (( (ptr) data←v8096)+15) ) = 0;
break;
case 22:
SOURCE(14972, 24)
(* (( (ptr) data←v8096)+15) ) = 1;
break;
default:
SOURCE(15010, 54)
(void) RaiseParseError←P660((* (( (ptr) &var←c52184)+4)/* stream←v8068 */ ), (* (( (ptr) gf←c52216)+75) ));
break;
};
};
break;
default:
SOURCE(15080, 5)
(void) XR←RaiseUnnamedError();
break;
};
};
goto lab←L100033;
lab←L100031: ;
SOURCE(15096, 12)
(void) CheckStack←P1752((word) ((( (bPt) &var←c52184)+60)/* var←c50648 */ ));
SOURCE(15110, 9)
(void) CheckN←P1812(0, (word) (( (bPt) &var←c52184)+52)/* var←c50616 */ );
}
static void CheckStack←P1752(formal←c52280)
word formal←c52280;
{
register ptr gf←c52248 = (ptr) &globalframe;
formal←c52280 = (formal←c52280 - 60);
/* CheckStack: */
SOURCE(10490, 215)
SOURCE(10511, 88)
if (((* (( (ptr) formal←c52280)+23) ) == 3)) {
SOURCE(10540, 59)
(void) RaiseParseError←P660((* (( (ptr) formal←c52280)+4) ), (* (( (ptr) gf←c52248)+76) ));
};
SOURCE(10601, 104)
{
word tc267;
word idx268;
if (((* (( (ptr) formal←c52280)+23) ) > 0)) {
tc267 = (word) ((* ((( (ptr) formal←c52280)+20)+(
idx268 = (word) ((* (( (ptr) formal←c52280)+23) ) - 1),
BCK(idx268, 3)
)) ) == 3);
}
else {
tc267 = (word) 0;
};
if (tc267) {
SOURCE(10657, 48)
(void) RaiseParseError←P660((* (( (ptr) formal←c52280)+4) ), (* (( (ptr) gf←c52248)+77) ));
};
};
}
static void CheckN←P1812(size←v11132, formal←c52344)
word size←v11132;
word formal←c52344;
{
register ptr gf←c52312 = (ptr) &globalframe;
formal←c52344 = (formal←c52344 - 52);
/* CheckN: */
SOURCE(10710, 107)
SOURCE(10739, 78)
if (((* (( (ptr) formal←c52344)+23) ) != size←v11132)) {
SOURCE(10763, 54)
(void) RaiseParseError←P660((* (( (ptr) formal←c52344)+4) ), (* (( (ptr) gf←c52312)+78) ));
};
}
static word PopReal←P1872(formal←c52408)
word formal←c52408;
{
register ptr gf←c52376 = (ptr) &globalframe;
word r←v11192;
formal←c52408 = (formal←c52408 - 44);
/* PopReal: */
SOURCE(10822, 238)
SOURCE(10822, 238)
r←v11192 = (* (ptr) &fc116 );
SOURCE(10862, 66)
if (((* (( (ptr) formal←c52408)+23) ) == 0)) {
SOURCE(10883, 45)
(void) RaiseParseError←P660((* (( (ptr) formal←c52408)+4) ), (* (( (ptr) gf←c52376)+79) ));
};
SOURCE(10930, 82)
{
word idx269;
if (((* ((( (ptr) formal←c52408)+20)+(
idx269 = (word) ((* (( (ptr) formal←c52408)+23) ) - 1),
BCK(idx269, 3)
)) ) != 0)) {
SOURCE(10969, 43)
(void) RaiseParseError←P660((* (( (ptr) formal←c52408)+4) ), (* (( (ptr) gf←c52376)+80) ));
};
};
SOURCE(11014, 21)
{
word idx270;
r←v11192 = (* ((( (ptr) formal←c52408)+17)+(
idx270 = (word) ((* (( (ptr) formal←c52408)+23) ) - 1),
BCK(idx270, 3)
)) );
};
SOURCE(11037, 23)
{
word idx271;
(* (( (ptr) formal←c52408)+23) ) = (
idx271 = (word) ((* (( (ptr) formal←c52408)+23) ) - 1),
SGNCK(idx271)
);
};
SOURCE(10822, 238)
return(r←v11192);
}
static word PopDimn←P1932(formal←c52472)
word formal←c52472;
{
register ptr gf←c52440 = (ptr) &globalframe;
word r←v11252;
/* PopDimn: */
SOURCE(11065, 244)
SOURCE(11065, 244)
r←v11252 = (* (ptr) &fc116 );
SOURCE(11105, 66)
if (((* (( (ptr) formal←c52472)+23) ) == 0)) {
SOURCE(11126, 45)
(void) RaiseParseError←P660((* (( (ptr) formal←c52472)+4) ), (* (( (ptr) gf←c52440)+79) ));
};
SOURCE(11173, 88)
{
word idx272;
if (((* ((( (ptr) formal←c52472)+20)+(
idx272 = (word) ((* (( (ptr) formal←c52472)+23) ) - 1),
BCK(idx272, 3)
)) ) != 1)) {
SOURCE(11215, 46)
(void) RaiseParseError←P660((* (( (ptr) formal←c52472)+4) ), (* (( (ptr) gf←c52440)+81) ));
};
};
SOURCE(11263, 21)
{
word idx273;
r←v11252 = (* ((( (ptr) formal←c52472)+17)+(
idx273 = (word) ((* (( (ptr) formal←c52472)+23) ) - 1),
BCK(idx273, 3)
)) );
};
SOURCE(11286, 23)
{
word idx274;
(* (( (ptr) formal←c52472)+23) ) = (
idx274 = (word) ((* (( (ptr) formal←c52472)+23) ) - 1),
SGNCK(idx274)
);
};
SOURCE(11065, 244)
return(r←v11252);
}
static void MakeMeters←P1992(multiplier←v11312, formal←c52504)
word multiplier←v11312;
word formal←c52504;
{
word r←v11604;
formal←c52504 = (formal←c52504 - 36);
/* MakeMeters: */
SOURCE(11314, 149)
SOURCE(11354, 19)
r←v11604 = (word) PopReal←P1872((word) ((( (bPt) formal←c52504)+44)));
SOURCE(11375, 30)
{
word idx275;
word x276;
word x277;
*(float*)((( (ptr) formal←c52504)+17)+(
idx275 = (* (( (ptr) formal←c52504)+23) ),
BCK(idx275, 3)
)) = (
x276 = r←v11604, *(float*)&x276
) * (
x277 = multiplier←v11312, *(float*)&x277
);
};
SOURCE(11407, 31)
{
word idx278;
(* ((( (ptr) formal←c52504)+20)+(
idx278 = (* (( (ptr) formal←c52504)+23) ),
BCK(idx278, 3)
)) ) = 1;
};
SOURCE(11440, 23)
(* (( (ptr) formal←c52504)+23) ) = ((* (( (ptr) formal←c52504)+23) ) + 1);
}
static word PopInt←P2052(formal←c52568)
word formal←c52568;
{
register ptr gf←c52536 = (ptr) &globalframe;
word var←c11372;
word r←v11648;
word i←v11676;
formal←c52568 = (formal←c52568 - 28);
/* PopInt: */
SOURCE(11468, 145)
SOURCE(11499, 19)
r←v11648 = (word) PopReal←P1872((word) ((( (bPt) formal←c52568)+44)));
SOURCE(11520, 22)
{
word pd279;
pd279 = (* (( (ptr) (* (( (ptr) gf←c52536)+155)/* var←c51064 */ ))+6) );
i←v11676 = (word) ( *( (fPt) ((* (ptr) pd279 ))))(r←v11648, pd279);
};
SOURCE(11544, 56)
{
word x280;
if (((float)(int)i←v11676 != (
x280 = r←v11648, *(float*)&x280
))) {
SOURCE(11556, 44)
(void) RaiseParseError←P660((* (( (ptr) formal←c52568)+4) ), (* (( (ptr) gf←c52536)+82) ));
};
};
SOURCE(11602, 11)
return(i←v11676);
}
static word GetTok←P2112(formal←c52632)
word formal←c52632;
{
register ptr gf←c52600 = (ptr) &globalframe;
word var←c11432;
word tokenError←v11720 = 0;
word charsSkipped←v11748 = 0;
formal←c52632 = (formal←c52632 - 20);
/* GetTok: */
SOURCE(11616, 556)
SOURCE(11705, 154)
{
W4 var←c51096;
{
word pd281;
pd281 = (* (( (ptr) (* (( (ptr) gf←c52600)+138)/* var←c48472 */ ))+70) );
(void) ( *( (fPt) ((* (ptr) pd281 ))))((word) &var←c51096, (* (( (ptr) formal←c52632)+4) ), (* (( (ptr) formal←c52632)+24)
), 1, pd281);
};
tokenError←v11720 = var←c51096.f3;
charsSkipped←v11748 = var←c51096.f2;
(* (( (ptr) formal←c52632)+24) ) = var←c51096.f1;
(* (( (ptr) formal←c52632)+25) ) = var←c51096.f0;
};
SOURCE(11861, 276)
{
word var←c51128;
var←c51128 = (* (( (ptr) formal←c52632)+25) );
switch (var←c51128) {
case 12:
SOURCE(11895, 14)
return(0);
case 1: case 2: case 5: case 6: case 8: case 9:
SOURCE(11982, 13)
return(1);
case 0: case 3: case 4: case 7: case 10:
SOURCE(12057, 80)
{
word var←c51160;
{
word var←c51192;
{
word pd282;
pd282 = (* (( (ptr) (* (( (ptr) gf←c52600)+141)/* var←c48664 */ ))+35) );
var←c51192 = (word) ( *( (fPt) ((* (ptr) pd282 ))))((* (( (ptr) formal←c52632)+24) ), 0, 32767, pd282);
};
{
word pd283;
pd283 = (* (( (ptr) (* (( (ptr) gf←c52600)+141)/* var←c48664 */ ))+6) );
var←c51160 = (word) ( *( (fPt) ((* (ptr) pd283 ))))((* (( (ptr) gf←c52600)+83) ), var←c51192, pd283);
};
};
(void) RaiseParseError←P660((* (( (ptr) formal←c52632)+4) ), var←c51160);
};
break;
default:
SOURCE(12150, 5)
(void) XR←RaiseUnnamedError();
break;
};
};
SOURCE(12157, 15)
return(0);
}
static void SetUserProfileOptions←P1020(data←v8156)
word data←v8156;
{
register ptr gf←c52664 = (ptr) &globalframe;
/* SetUserProfileOptions: */
SOURCE(15125, 133)
SOURCE(15179, 79)
{
word pd284;
pd284 = (* (( (ptr) (* (( (ptr) gf←c52664)+156)/* var←c51224 */ ))+4) );
(* (( (ptr) data←v8156)+15) ) = (word) ( *( (fPt) ((* (ptr) pd284 ))))((* (( (ptr) gf←c52664)+84) ), 1, pd284);
};
}
static void Command←P1080(formal←c0251, formal←c0350)
word formal←c0251;
word formal←c0350;
{
W9 var←c52696;
/* declaration of cmd←v29916 skipped */
register ptr gf←c52728 = (ptr) &globalframe;
word result←v29960;
word msg←v29988;
/* declaration of var←c51256 skipped */
/* declaration of stream←v11792 skipped */
/* declaration of refAction←v11820 skipped */
(* (( (ptr) &var←c52696)+4)/* cmd←v29916 */ ) = formal←c0350;
/* Command: */
SOURCE(15264, 1004)
{
word tmpAddr285;
tmpAddr285 = (word) (( (ptr) &var←c52696)+5)/* var←c51256 */ ;
(* (ptr) tmpAddr285 ) = ( ((word) (fPt) backgroundTask←P2268) );
(* (( (ptr) tmpAddr285) + 1) ) = 1;
};
SOURCE(15264, 1004)
result←v29960 = 0;
SOURCE(15264, 1004)
msg←v29988 = 0;
SOURCE(15299, 43)
{
word pd286;
pd286 = (* (( (ptr) (* (( (ptr) gf←c52728)+138)/* var←c48472 */ ))+33) );
(* (( (ptr) &var←c52696)+7)/* stream←v11792 */ ) = (word) ( *( (fPt) ((* (ptr) pd286 ))))((* (( (ptr) (* (( (ptr) &var←c52696)+4)
/* cmd←v29916 */ ))+4) ), 0, pd286);
};
SOURCE(15344, 59)
(* (( (ptr) &var←c52696)+8)/* refAction←v11820 */ ) = XR←Narrow((* (( (ptr) (* (( (ptr) (* (( (ptr) &var←c52696)+4)/* cmd←v29916 */ ))+5)
))+2) ), (* (( (ptr) gf←c52728)+17) ));
SOURCE(16213, 55)
{
word pd287;
pd287 = (* (( (ptr) (* (( (ptr) gf←c52728)+157)/* var←c51288 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd287 ))))(1, (word) (( (bPt) &var←c52696)+20)/* var←c51256 */ , pd287);
};
/* removed tail goto */
(* (ptr) formal←c0251 ) = result←v29960;
(* (( (ptr) formal←c0251)+1) ) = msg←v29988;
return;
}
static void backgroundTask←P2268(formal←c52824)
word formal←c52824;
{
W7 var←c52760;
register ptr gf←c52792 = (ptr) &globalframe;
formal←c52824 = (formal←c52824 - 20);
var←c52760.f0 = formal←c52824;
/* backgroundTask: */
SOURCE(15405, 805)
SOURCE(15428, 782)
SOURCE(15430, 19)
{
/* declaration of data←v11920 skipped */
SOURCE(15430, 19)
var←c52760.f4/* data←v11920 */ = 0;
SOURCE(15451, 343)
{
/* declaration of var←c07 skipped */
{
word var←c08;
{
word var←c0331;
var←c0331 = (word) &var←c52760;
var←c08 = (word) XR←Enable(( ((word) (fPt) NoName←Q2664) ), ( ((word) (fPt) NoName←Q2784) ), var←c0331);
};
if ((var←c08 == 4)) {
goto lab←L100035;
};
};
var←c52760.f4/* data←v11920 */ = var←c52760.f5/* var←c07 */ ;
};
SOURCE(15812, 27)
{
word pd288;
pd288 = (* (( (ptr) (* (( (ptr) gf←c52792)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd288 ))))((* (( (ptr) (* (( (ptr) formal←c52824)+4) ))+1) ), (* (( (ptr) gf←c52792)+87) ), 0, 2147483647, pd288)
;
};
SOURCE(15841, 38)
{
word pd289;
pd289 = (* (( (ptr) (* (( (ptr) gf←c52792)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd289 ))))((* (( (ptr) (* (( (ptr) formal←c52824)+4) ))+1) ), (* (ptr) (* (( (ptr) var←c52760.f4/* data←v11920 */ )+1)
) ), 0, 2147483647, pd289);
};
SOURCE(15881, 26)
{
word pd290;
pd290 = (* (( (ptr) (* (( (ptr) gf←c52792)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd290 ))))((* (( (ptr) (* (( (ptr) formal←c52824)+4) ))+1) ), (* (( (ptr) gf←c52792)+52) ), 0, 2147483647, pd290)
;
};
SOURCE(15909, 87)
{
/* declaration of var←c09 skipped */
/* declaration of var←c010 skipped */
var←c52760.f5/* var←c09 */ = (* (( (ptr) (* (( (ptr) formal←c52824)+4) ))+1) );
var←c52760.f6/* var←c010 */ = (* (ptr) (* (( (ptr) formal←c52824)+8) ) );
{
word var←c011;
{
word var←c0332;
var←c0332 = (word) &var←c52760;
var←c011 = (word) XR←Enable(( ((word) (fPt) NoName←Q2604) ), ( ((word) (fPt) NoName←Q2724) ), var←c0332);
};
if ((var←c011 == 4)) {
goto lab←L100035;
};
};
};
SOURCE(16012, 179)
if (((* (ptr) var←c52760.f4/* data←v11920 */ ) != 0)) {
SOURCE(16044, 47)
(* (ptr) var←c52760.f4/* data←v11920 */ ) = (word) FindFullName←P420((* (ptr) (var←c52760.f4/* data←v11920 */ ) ));
SOURCE(16093, 32)
{
word pd291;
pd291 = (* (( (ptr) (* (( (ptr) gf←c52792)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd291 ))))((* (( (ptr) (* (( (ptr) formal←c52824)+4) ))+1) ), (* (ptr) var←c52760.f4/* data←v11920 */ ), 0, 2147483647, pd291)
;
};
SOURCE(16127, 30)
{
word pd292;
pd292 = (* (( (ptr) (* (( (ptr) gf←c52792)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd292 ))))((* (( (ptr) (* (( (ptr) formal←c52824)+4) ))+1) ), (* (( (ptr) gf←c52792)+88) ), 0, 2147483647, pd292)
;
};
}
else {
SOURCE(16166, 25)
{
word pd293;
pd293 = (* (( (ptr) (* (( (ptr) gf←c52792)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd293 ))))((* (( (ptr) (* (( (ptr) formal←c52824)+4) ))+1) ), (* (( (ptr) gf←c52792)+89) ), 0, 2147483647, pd293)
;
};
};
};
goto lab←L100040;
lab←L100035: ;
lab←L100040: ;
}
static word NoName←Q2604(formal←c0323)
word formal←c0323;
{
SOURCE(15909, 87)
{
word pd294;
pd294 = (* (( (ptr) formal←c0323)+6) );
(void) ( *( (fPt) ((* (ptr) pd294 ))))((* (( (ptr) formal←c0323)+4) ), (* (( (ptr) formal←c0323)+5) ), pd294);
};
return(0);
}
static word NoName←Q2664(formal←c0324)
word formal←c0324;
{
SOURCE(15451, 343)
(* (( (ptr) formal←c0324)+5) ) = (word) Parse←P780((* ((( (ptr) (* (ptr) formal←c0324 ))+7)) ));
return(0);
}
static void NoName←Q2724(formal←c0258, formal←c200012, formal←c200013, formal←c200014, formal←c200015)
word formal←c0258;
word formal←c200012;
word formal←c200013;
word formal←c200014;
word formal←c200015;
{
register ptr gf←c0325 = (ptr) &globalframe;
if ((formal←c200013 == (word) (( (bPt) gf←c0325)+360))) {
{
word rope←v47428;
rope←v47428 = (* (ptr) formal←c200015 );
SOURCE(15952, 21)
{
word pd295;
pd295 = (* (( (ptr) (* (( (ptr) gf←c0325)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd295 ))))((* (( (ptr) (* (( (ptr) (* (ptr) formal←c200012 ))+4) ))+1) ), rope←v47428, 0, 2147483647, pd295)
;
};
SOURCE(15975, 21)
{
word pd296;
pd296 = (* (( (ptr) (* (( (ptr) gf←c0325)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd296 ))))((* (( (ptr) (* (( (ptr) (* (ptr) formal←c200012 ))+4) ))+1) ), (* (( (ptr) gf←c0325)+86)
), 0, 2147483647, pd296);
};
SOURCE(15998, 10)
(* (ptr) formal←c0258 ) = 2;
(* (( (ptr) formal←c0258)+1) ) = 4;
return;
};
};
(* (ptr) formal←c0258 ) = 0;
(* (( (ptr) formal←c0258)+1) ) = 0;
return;
}
static void NoName←Q2784(formal←c0268, formal←c200008, formal←c200009, formal←c200010, formal←c200011)
word formal←c0268;
word formal←c200008;
word formal←c200009;
word formal←c200010;
word formal←c200011;
{
register ptr gf←c0326 = (ptr) &globalframe;
if ((formal←c200009 == (word) (( (bPt) gf←c0326)+364))) {
{
word msg←v47248;
word index←v47276;
msg←v47248 = (* (ptr) formal←c200011 );
index←v47276 = (* (( (ptr) formal←c200011)+1) );
SOURCE(15487, 233)
{
word start←v11964;
SOURCE(15489, 29)
start←v11964 = (MAX((int)(word), (index←v47276 - 10), 0));
SOURCE(15520, 20)
{
word pd297;
pd297 = (* (( (ptr) (* (( (ptr) gf←c0326)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd297 ))))((* (( (ptr) (* (( (ptr) (* (ptr) formal←c200008 ))+4) ))+1) ), msg←v47248, 0, 2147483647, pd297)
;
};
SOURCE(15542, 40)
if (( (int)start←v11964 > (int)0)) {
SOURCE(15560, 22)
{
word pd298;
pd298 = (* (( (ptr) (* (( (ptr) gf←c0326)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd298 ))))((* (( (ptr) (* (( (ptr) (* (ptr) formal←c200008 ))+4) ))+1) ), (* (( (ptr) gf←c0326)+85)
), 0, 2147483647, pd298);
};
};
SOURCE(15584, 59)
{
word var←c51320;
{
word pd299;
pd299 = (* (( (ptr) (* (( (ptr) gf←c0326)+141)/* var←c48664 */ ))+17) );
var←c51320 = (word) ( *( (fPt) ((* (ptr) pd299 ))))((* (( (ptr) (* (( (ptr) (* (ptr) formal←c200008 ))+4) ))+4) ), start←v11964, (index←v47276 - start←v11964), pd299)
;
};
{
word pd300;
pd300 = (* (( (ptr) (* (( (ptr) gf←c0326)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd300 ))))((* (( (ptr) (* (( (ptr) (* (ptr) formal←c200008 ))+4) ))+1) ), var←c51320, 0, 2147483647, pd300)
;
};
};
SOURCE(15645, 40)
if (( (int)index←v47276 > (int)1)) {
SOURCE(15663, 22)
{
word pd301;
pd301 = (* (( (ptr) (* (( (ptr) gf←c0326)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd301 ))))((* (( (ptr) (* (( (ptr) (* (ptr) formal←c200008 ))+4) ))+1) ), (* (( (ptr) gf←c0326)+85)
), 0, 2147483647, pd301);
};
};
SOURCE(15687, 21)
{
word pd302;
pd302 = (* (( (ptr) (* (( (ptr) gf←c0326)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd302 ))))((* (( (ptr) (* (( (ptr) (* (ptr) formal←c200008 ))+4) ))+1) ), (* (( (ptr) gf←c0326)+86)
), 0, 2147483647, pd302);
};
SOURCE(15710, 10)
(* (ptr) formal←c0268 ) = 2;
(* (( (ptr) formal←c0268)+1) ) = 4;
return;
};
};
}
else {
if ((formal←c200009 == (* (ptr) (* (( (ptr) (* (( (ptr) gf←c0326)+149)/* var←c49272 */ ))+4) ) ))) {
{
W4 error←v47368;
error←v47368 = (* (W4Pt) formal←c200011 );
SOURCE(15737, 34)
{
word pd303;
pd303 = (* (( (ptr) (* (( (ptr) gf←c0326)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd303 ))))((* (( (ptr) (* (( (ptr) (* (ptr) formal←c200008 ))+4) ))+1) ), error←v47368.f2, 0, 2147483647, pd303)
;
};
SOURCE(15773, 21)
{
word pd304;
pd304 = (* (( (ptr) (* (( (ptr) gf←c0326)+138)/* var←c48472 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd304 ))))((* (( (ptr) (* (( (ptr) (* (ptr) formal←c200008 ))+4) ))+1) ), (* (( (ptr) gf←c0326)+86)
), 0, 2147483647, pd304);
};
SOURCE(15796, 10)
(* (ptr) formal←c0268 ) = 2;
(* (( (ptr) formal←c0268)+1) ) = 4;
return;
};
};
};
(* (ptr) formal←c0268 ) = 0;
(* (( (ptr) formal←c0268)+1) ) = 0;
return;
}
static void NoName←Q2844(formal←c0274, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c0274;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
register ptr gf←c0327 = (ptr) &globalframe;
if ((formal←c200005 == (* (ptr) (* (( (ptr) (* (( (ptr) gf←c0327)+149)/* var←c49272 */ ))+4) ) ))) {
{
W4 error←v44616;
error←v44616 = (* (W4Pt) formal←c200007 );
SOURCE(8460, 10)
(* (( (ptr) formal←c200004)+5) ) = 1;
SOURCE(8472, 8)
(* (ptr) formal←c0274 ) = 2;
(* (( (ptr) formal←c0274)+1) ) = 3;
return;
};
};
(* (ptr) formal←c0274 ) = 0;
(* (( (ptr) formal←c0274)+1) ) = 0;
return;
}
static void NoName←Q2904(formal←c0280, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0280;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c0328 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0328)+138)/* var←c48472 */ ))+4) ))) {
{
word stream←v42684;
stream←v42684 = (* (ptr) formal←c200003 );
SOURCE(6427, 15)
(* (ptr) formal←c0280 ) = 2;
(* (( (ptr) formal←c0280)+1) ) = 2;
return;
};
};
(* (ptr) formal←c0280 ) = 0;
(* (( (ptr) formal←c0280)+1) ) = 0;
return;
}
/* file: TiogaToInterpressImpl, module: TiogaToInterpressImpl, compiled at: July 17, 1992 4:06:48 pm PDT */
extern void XR←install←TiogaToInterpressImpl() {
NoName←Q2424();
}
extern void XR←run←TiogaToInterpressImpl() { XR←Start(&globalframe); }