/* 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 #include 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 [ _] [option*]; options include:\012\011 style\011\011\011\011\011\011\011(default: NIL)\012\011 skipPages\011\011\011\011\011(default: 0)\012\011 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); }