/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: July 23, 1992 10:40:46 am PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: CommanderOpsImpl, module: CommanderOpsImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [2102335193,1983762781] CommanderOpsImpl";
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, f6, f7;} W8;
typedef struct {word f0, f1, f2;} W3;
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
typedef W3 *W3Pt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {W8 f; word r;} W9;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef struct {W8 f; W5 r;} W13;
typedef W7 *W7Pt;
typedef W9 *W9Pt;
typedef struct {unsigned u1:2, f:1, u2:5;} * P1x2b;
typedef struct {unsigned f:1, u2:7;} * P1x0b;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
#define SGNCK(i) ((int) (word) (i) < 0 ? XR←RaiseArithmeticFault(): i )
static float fc212 = 0.0;
static float fc216 = 1.0E+6;
static void NoName←Q5244();
static void CommanderOpsImpl←P0();
static word ObtainRIS←P60();
static void ReleaseRIS←P120();
static word CmdTokenBreak←P180();
static void GetCmdToken←P240();
static word NoName←Q5304();
static word NoName←Q5364();
static void ParseToList←P300();
static word Parse←P360();
static void ParseToTList←P420();
static word GetParseRecord←P480();
static word NumArgs←P540();
static word NextArgument←P600();
static word ArgN←P660();
static void PutProp←P720();
static word GetProp←P780();
static word DoSubstitutions←P840();
static word NoName←Q5424();
static word FindTerminator←P900();
static word GetPrivate←P960();
static void PutMsg←P1020();
static word EnsureWhitespace←P1080();
static word RemoveEOL←P1140();
static word DoCommand←P1200();
static void DoCommandRope←P1260();
static word ProcessPropsDiffer←P1320();
static void Do←P3864();
static void CommandWithProcessProps←P1380();
static void Inner←P3972();
static void ExecuteCommand←P1440();
static word NoName←Q5484();
static word NoName←Q5544();
static void DoLookup←P1500();
static word NoName←Q5604();
static word CommandSetup←P1560();
static void NoteRedirection←P4272();
static void ExecuteBasicCommand←P1620();
static void PutItalics←P1680();
static void BeforeProcessing←P1740();
static void AfterProcessing←P1800();
static word ReadEvalPrintLoop←P1860();
static void REPLoop←P4428();
static word NoName←Q5664();
static word NoName←Q5724();
static word ProcessUNCAUGHT←P4488();
static void REPBase←P4548();
static word NoName←Q5784();
static word AdamOrEve←P1920();
static void AbortCommander←P1980();
static word NoName←Q5844();
static void SetProcess←P2040();
static word AlreadyProtected←P2100();
static word GetCommandToolData←P2160();
static void ErrorPrompt←P2220();
static word NoName←Q5904();
static void DefaultPrompter←P2280();
static word CreateFromStreams←P2340();
extern word XR←DoCommanderCommands();
static void NoName←Q5964();
static void NoName←Q6024();
static void NoName←Q6084();
static void NoName←Q6144();
static void NoName←Q6204();
static void NoName←Q6264();
static void NoName←Q6324();
static void NoName←Q6384();
static void NoName←Q6444();
static void NoName←Q6504();
static void NoName←Q6564();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\175\117\026\331\300\166\075\321\135\100\200\000\000"};
static struct {unsigned f; char r[4];} string2 = {131074, "\004\003\000"};
static struct {unsigned f; char r[44];} string3 = {2818092, "\216\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"};
static struct {unsigned f; char r[4];} string4 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\200\000\000"};
static struct {unsigned f; char r[48];} string6 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\055\153\222\376\300\327\164\352\142\100\200\005\004\162\145\163\164\214\216\257\300\055\153\222\376\300\327\164\352\142\100\200\261\000\000\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string8 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"};
static struct {unsigned f; char r[16];} string9 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[8];} string10 = {262152, "\263\225\260\261\000\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\230\000\000"};
static struct {unsigned f; char r[4];} string12 = {196611, "\004@\177"};
static struct {unsigned f; char r[48];} string13 = {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[16];} string14 = {851984, "\257\300\311\235\133\064\300\165\175\234\175\100\164\000\000"};
static struct {unsigned f; char r[12];} string15 = {524296, "\011\000\004\000\040\000\004\001\000\000\000"};
static struct {unsigned f; char r[44];} string16 = {2752556, "\260\006\005\146\151\162\163\164\257\300\311\235\133\064\300\165\175\234\175\101\034\005\004\162\145\163\164\214\257\300\311\235\133\064\300\165\175\234\175\101\034\261\000"};
static struct {unsigned f; char r[4];} string17 = {131074, "\004\013\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300}O\026\331\300v=\321]AL\000\000"};
static struct {unsigned f; char r[4];} string19 = {131074, "\004\015\000"};
static struct {unsigned f; char r[4];} string20 = {65540, "\251\000\000"};
static struct {unsigned f; char r[4];} string21 = {131076, "\216\251\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\076\142\265\237\300\173\214\371\034\100\164\000\000"};
static struct {unsigned f; char r[4];} string23 = {196611, "\004O\240"};
static struct {unsigned f; char r[44];} string24 = {2752556, "\260\006\005\146\151\162\163\164\257\300\076\142\265\237\300\173\214\371\034\100\310\005\004\162\145\163\164\214\257\300\076\142\265\237\300\173\214\371\034\100\310\261\000"};
static struct {unsigned f; char r[4];} string25 = {196611, "\004C\016"};
static struct {unsigned f; char r[16];} string26 = {851984, "\257\300\076\142\265\237\300\173\214\371\034\100\310\000\000"};
static struct {unsigned f; char r[4];} string27 = {196611, "\004A\016"};
static struct {unsigned f; char r[4];} string28 = {131076, " *\000"};
static struct {unsigned f; char r[4];} string29 = {65540, " \000\000"};
static struct {unsigned f; char r[4];} string30 = {131076, "*\012\000"};
static struct {unsigned f; char r[4];} string31 = {4, "\000\000\000"};
static struct {unsigned f; char r[16];} string32 = {983056, "CommanderHandle"};
static struct {unsigned f; char r[8];} string33 = {327688, "StdIn\000\000"};
static struct {unsigned f; char r[8];} string34 = {393224, "StdOut\000"};
static struct {unsigned f; char r[8];} string35 = {393224, "ErrOut\000"};
static struct {unsigned f; char r[8];} string36 = {327688, " *** \000\000"};
static struct {unsigned f; char r[8];} string37 = {393224, "Result\000"};
static struct {unsigned f; char r[4];} string38 = {196612, "Msg"};
static struct {unsigned f; char r[12];} string39 = {720908, "PreRegister"};
static struct {unsigned f; char r[24];} string40 = {1441816, "Failed in PreRegister \000"};
static struct {unsigned f; char r[4];} string41 = {131076, ": \000"};
static struct {unsigned f; char r[16];} string42 = {786448, "PreRegister \000\000\000"};
static struct {unsigned f; char r[24];} string43 = {1310744, " failed to register \000\000\000"};
static struct {unsigned f; char r[36];} string44 = {2228260, "Error: Multiple output redirection\000"};
static struct {unsigned f; char r[8];} string45 = {262152, "|;<>\000\000\000"};
static struct {unsigned f; char r[12];} string46 = {655372, "RedirectIO\000"};
static struct {unsigned f; char r[8];} string47 = {458760, " -from "};
static struct {unsigned f; char r[12];} string48 = {589836, " -append \000\000"};
static struct {unsigned f; char r[8];} string49 = {327688, " -to \000\000"};
static struct {unsigned f; char r[8];} string50 = {393224, " -pipe\000"};
static struct {unsigned f; char r[36];} string51 = {2162724, "Error: Multiple input redirection\000\000"};
static struct {unsigned f; char r[36];} string52 = {2162724, "Error: Invalid redirection syntax\000\000"};
static struct {unsigned f; char r[20];} string53 = {1114132, "Unknown command: \000\000"};
static struct {unsigned f; char r[8];} string54 = {458760, "%l%g%l\012"};
static struct {unsigned f; char r[4];} string55 = {65540, "I\000\000"};
static struct {unsigned f; char r[4];} string56 = {65540, "\012\000\000"};
static struct {unsigned f; char r[28];} string57 = {1638428, "CommandFileArgumentVector\000\000"};
static struct {unsigned f; char r[8];} string58 = {458760, "Aborted"};
static struct {unsigned f; char r[20];} string59 = {1245204, " %l{ %6.2f sec }%l\012"};
static struct {unsigned f; char r[4];} string60 = {65540, "i\000\000"};
static struct {unsigned f; char r[12];} string61 = {589836, " -- <DEL>\000\000"};
static struct {unsigned f; char r[12];} string62 = {720908, " -- Aborted"};
static struct {unsigned f; char r[8];} string63 = {458760, "Failure"};
static struct {unsigned f; char r[32];} string64 = {2031648, "\012*** Uncaught ERROR or SIGNAL: "};
static struct {unsigned f; char r[16];} string65 = {851984, "DebugUNCAUGHT\000\000"};
static struct {unsigned f; char r[4];} string66 = {65540, "n\000\000"};
static struct {unsigned f; char r[4];} string67 = {65540, "y\000\000"};
static struct {unsigned f; char r[80];} string68 = {4980816, "\012*** Do you want to try to debug this? (y, n, s <flags>, ! <command>, or ?) \000\000\000"};
static struct {unsigned f; char r[12];} string69 = {655372, "StackTrace\000"};
static struct {unsigned f; char r0[200]; char r1[24];} string70
= { 14483680,
"\012*** Type 'y' to REJECT the signal and land in the system debugger, 'n' to get back to top level, 's <flags>' to invoke the StackTrace command, '! <command>' to execute a commander command and return ",
"to the error prompt: \000\000"};
static struct {unsigned f; char r[8];} string71 = {393224, "Prompt\000"};
static struct {unsigned f; char r[4];} string72 = {65540, "b\000\000"};
static struct {unsigned f; char r[4];} string73 = {65540, "B\000\000"};
static struct {unsigned f; char r[4];} string74 = {65540, "$\000\000"};
static struct {unsigned f; char r[16];} string75 = {917520, "PutProp failed\000"};
static struct {unsigned f; char r[44];} string76 = {2621484, "Mismatched double quotes in command line\000\000\000"};
static struct {unsigned f; char r[40];} string77 = {2424872, "Unmatched parentheses in command line\000\000"};
static struct {unsigned f; char r[20];} string78 = {1114132, "Commander %l%% %l\000\000"};
static struct {unsigned f; char r[28];} string79 = {1703964, "ABCDEFGHiJKLMNOPQRSTUVWXYZ\000"};
static struct {unsigned f; char r[12];} string80 = {589836, "\042@|(,){;}\000\000"};
static struct {unsigned f; char r[8];} string81 = {262152, " \011\015\012\000\000\000"};
static struct {unsigned f; char r[16];} string82 = {851984, "\257\300\175\117\026\331\300\166\075\321\135\100\164\000\000"};
static struct {unsigned f; char r[24];} string83 = {1507351, "\006\010\040\001\044\001\050\001\054\001\060\001\064\001\070\001\100\240\010\000\004\067\001"};
static struct {unsigned f; char r[16];} string84 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string85 = {851984, "\257\300\212\174\364\337\300\361\376\000\156\100\150\000\000"};
static struct {unsigned f; char r[16];} string86 = {851984, "\257\300\144\364\322\150\300\206\136\277\046\100\150\000\000"};
static struct {unsigned f; char r[16];} string87 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string88 = {851984, "\257\300\206\126\034\347\300\061\333\303\163\100\150\000\000"};
static struct {unsigned f; char r[16];} string89 = {851984, "\257\300\327\320\204\011\300\302\026\022\076\100\150\000\000"};
static struct {unsigned f; char r[16];} string90 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"};
static struct {unsigned f; char r[16];} string91 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string92 = {851984, "\257\300\314\116\377\204\300\167\024\373\125\100\150\000\000"};
static struct {unsigned f; char r[16];} string93 = {851984, "\257\300\332\223\177\020\300\304\076\102\260\100\164\000\000"};
static struct {unsigned f; char r[16];} string94 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string95 = {851984, "\257\300\220\270\074\115\300\121\012\115\357\100\150\000\000"};
static struct {unsigned f; char r[16];} string96 = {851984, "\257\300\311\235\133\064\300\165\175\234\175\100\150\000\000"};
static struct {unsigned f; char r[16];} string97 = {851984, "\257\300\076\142\265\237\300\173\214\371\034\100\150\000\000"};
static struct {unsigned f; char r[28];} string98 = {1769500, "\211\017\016\120\162\151\166\141\164\145\104\141\164\141\122\145\160\300\076\142\265\237\300\173\214\371\034"};
static struct {
word f0[96]; 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; word f132; word f133; word f134;
word f135; word f136; word f137; word f138;
word f139; word f140; word f141; word f142;
word f143; word f144; word f145; word f146;
word f147; word f148; word f149; word f150;
word f151; word f152; word f153; word f154;
word f155; word f156; word f157; word f158;
word f159; word f160; word f161; word f162;
word f163; word f164; word f165; word f166;
word f167; word f168; word f169; word f170;
word f171; word f172; word f173; word f174;
word f175; word f176; word f177[15];
} globalframe = {
{0}, (word) XR←DoCommanderCommands, 0, (word) CreateFromStreams←P2340,
0, (word) DefaultPrompter←P2280, 0, (word) ErrorPrompt←P2220,
0, (word) GetCommandToolData←P2160, 0, (word) AlreadyProtected←P2100,
0, (word) SetProcess←P2040, 0, (word) AbortCommander←P1980,
0, (word) AdamOrEve←P1920, 0, (word) ReadEvalPrintLoop←P1860,
0, (word) AfterProcessing←P1800, 0, (word) BeforeProcessing←P1740,
0, (word) PutItalics←P1680, 0, (word) ExecuteBasicCommand←P1620,
0, (word) CommandSetup←P1560, 0, (word) DoLookup←P1500,
0, (word) ExecuteCommand←P1440, 0, (word) CommandWithProcessProps←P1380,
0, (word) ProcessPropsDiffer←P1320, 0, (word) DoCommandRope←P1260,
0, (word) DoCommand←P1200, 0, (word) RemoveEOL←P1140,
0, (word) EnsureWhitespace←P1080, 0, (word) PutMsg←P1020,
0, (word) GetPrivate←P960, 0, (word) FindTerminator←P900,
0, (word) DoSubstitutions←P840, 0, (word) GetProp←P780,
0, (word) PutProp←P720, 0, (word) ArgN←P660,
0, (word) NextArgument←P600, 0, (word) NumArgs←P540,
0, (word) GetParseRecord←P480, 0, (word) ParseToTList←P420,
0, (word) Parse←P360, 0, (word) ParseToList←P300,
0, (word) GetCmdToken←P240, 0, (word) CmdTokenBreak←P180,
0, (word) ReleaseRIS←P120, 0, (word) ObtainRIS←P60,
0, (word) CommanderOpsImpl←P0, {0}
};
static void NoName←Q5244()
{
register ptr gf←c0537 = (ptr) &globalframe;
word var←c39004;
(* (( (ptr) gf←c0537)+15) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0537)+17) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (( (ptr) gf←c0537)+18) ) = (word) XR←GetTypeIndex((word) &string5, 0, (word) &string2);
(* (( (ptr) gf←c0537)+19) ) = (word) XR←GetTypeIndex((word) &string6, 0, (word) &string2);
(* (( (ptr) gf←c0537)+21) ) = (word) XR←GetTypeIndex((word) &string7, 0, (word) &string8);
(* (( (ptr) gf←c0537)+22) ) = (word) XR←GetTypeIndex((word) &string9, 0, (word) &string4);
(* (( (ptr) gf←c0537)+23) ) = (word) XR←GetTypeIndexS((word) (&string10));
(* (( (ptr) gf←c0537)+28) ) = (word) XR←GetTypeIndex((word) &string11, 0, (word) &string12);
(* (( (ptr) gf←c0537)+29) ) = (word) XR←GetTypeIndex((word) &string13, 0, (word) &string2);
(* (( (ptr) gf←c0537)+30) ) = (word) XR←GetTypeIndex((word) &string14, 0, (word) &string15);
(* (( (ptr) gf←c0537)+31) ) = (word) XR←GetTypeIndex((word) &string16, 0, (word) &string17);
(* (( (ptr) gf←c0537)+32) ) = (word) XR←GetTypeIndex((word) &string18, 0, (word) &string19);
(* (( (ptr) gf←c0537)+34) ) = (word) XR←GetTypeIndexS((word) (&string20));
(* (( (ptr) gf←c0537)+36) ) = (word) XR←GetTypeIndex((word) &string21, 0, (word) &string4);
(* (( (ptr) gf←c0537)+37) ) = (word) XR←GetTypeIndex((word) &string22, 0, (word) &string23);
(* (( (ptr) gf←c0537)+38) ) = (word) XR←GetTypeIndex((word) &string24, 0, (word) &string25);
(* (( (ptr) gf←c0537)+39) ) = (word) XR←GetTypeIndex((word) &string26, 0, (word) &string27);
(* (ptr) (( (bPt) gf←c0537)+160) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string28);
(* (ptr) (( (bPt) gf←c0537)+164) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string29);
(* (ptr) (( (bPt) gf←c0537)+168) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string30);
(* (ptr) (( (bPt) gf←c0537)+172) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string31);
(* (ptr) (( (bPt) gf←c0537)+176) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+36) ), (word) &string32);
(* (ptr) (( (bPt) gf←c0537)+180) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+36) ), (word) &string33);
(* (ptr) (( (bPt) gf←c0537)+184) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+36) ), (word) &string34);
(* (ptr) (( (bPt) gf←c0537)+188) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+36) ), (word) &string35);
(* (ptr) (( (bPt) gf←c0537)+192) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string36);
(* (ptr) (( (bPt) gf←c0537)+196) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+36) ), (word) &string37);
(* (ptr) (( (bPt) gf←c0537)+200) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+36) ), (word) &string38);
(* (ptr) (( (bPt) gf←c0537)+204) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string39);
(* (ptr) (( (bPt) gf←c0537)+208) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string40);
(* (ptr) (( (bPt) gf←c0537)+212) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string41);
(* (ptr) (( (bPt) gf←c0537)+216) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string42);
(* (ptr) (( (bPt) gf←c0537)+220) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string43);
(* (ptr) (( (bPt) gf←c0537)+224) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string44);
(* (ptr) (( (bPt) gf←c0537)+228) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+17) ), (word) &string45);
(* (ptr) (( (bPt) gf←c0537)+232) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string46);
(* (ptr) (( (bPt) gf←c0537)+236) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string47);
(* (ptr) (( (bPt) gf←c0537)+240) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string48);
(* (ptr) (( (bPt) gf←c0537)+244) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string49);
(* (ptr) (( (bPt) gf←c0537)+248) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string50);
(* (ptr) (( (bPt) gf←c0537)+252) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string51);
(* (ptr) (( (bPt) gf←c0537)+256) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string52);
(* (ptr) (( (bPt) gf←c0537)+260) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string53);
(* (ptr) (( (bPt) gf←c0537)+264) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string54);
(* (ptr) (( (bPt) gf←c0537)+268) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string55);
(* (ptr) (( (bPt) gf←c0537)+272) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string56);
(* (ptr) (( (bPt) gf←c0537)+276) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+36) ), (word) &string57);
(* (ptr) (( (bPt) gf←c0537)+280) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string58);
(* (ptr) (( (bPt) gf←c0537)+284) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string59);
(* (ptr) (( (bPt) gf←c0537)+288) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string60);
(* (ptr) (( (bPt) gf←c0537)+292) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string61);
(* (ptr) (( (bPt) gf←c0537)+296) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string62);
(* (ptr) (( (bPt) gf←c0537)+300) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+36) ), (word) &string63);
(* (ptr) (( (bPt) gf←c0537)+304) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string64);
(* (ptr) (( (bPt) gf←c0537)+308) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+17) ), (word) &string65);
(* (ptr) (( (bPt) gf←c0537)+312) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string66);
(* (ptr) (( (bPt) gf←c0537)+316) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string67);
(* (ptr) (( (bPt) gf←c0537)+320) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string68);
(* (ptr) (( (bPt) gf←c0537)+324) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string69);
(* (ptr) (( (bPt) gf←c0537)+328) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string70);
(* (ptr) (( (bPt) gf←c0537)+332) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+36) ), (word) &string71);
(* (ptr) (( (bPt) gf←c0537)+336) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string72);
(* (ptr) (( (bPt) gf←c0537)+340) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string73);
(* (ptr) (( (bPt) gf←c0537)+344) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+17) ), (word) &string74);
(* (ptr) (( (bPt) gf←c0537)+348) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string75);
(* (ptr) (( (bPt) gf←c0537)+352) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string76);
(* (ptr) (( (bPt) gf←c0537)+356) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string74);
(* (ptr) (( (bPt) gf←c0537)+360) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string77);
(* (ptr) (( (bPt) gf←c0537)+364) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string78);
(* (ptr) (( (bPt) gf←c0537)+368) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+22) ), (word) &string79);
(* (ptr) (( (bPt) gf←c0537)+372) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+17) ), (word) &string80);
(* (ptr) (( (bPt) gf←c0537)+376) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0537)+17) ), (word) &string81);
(void) XR←DeclareGlobalFrame((word) "CommanderOpsImpl", &globalframe, (word) XR←GetTypeIndex((word) &string82, 0, (word) &string83)
, (word) (( (bPt) gf←c0537)+704)/* var←c34972 */ );
var←c39004 = (word) XR←ImportInterface((word) "Atom", (word) XR←GetTypeIndexS((word) (&string84)), 16);
(* (( (ptr) gf←c0537)+183)/* var←c36092 */ ) = var←c39004;
(void) XR←ImportProcS(var←c39004, 67897859);
(void) XR←ImportProcS(var←c39004, 67372033);
(void) XR←ImportProcS(var←c39004, 67372289);
var←c39004 = (word) XR←ImportInterface((word) "BasicTime", (word) XR←GetTypeIndexS((word) (&string85)), 24);
(* (( (ptr) gf←c0537)+188)/* var←c37660 */ ) = var←c39004;
(void) XR←ImportProcS(var←c39004, 67636226);
var←c39004 = (word) XR←ImportInterface((word) "List", (word) XR←GetTypeIndexS((word) (&string86)), 28);
(* (( (ptr) gf←c0537)+180)/* var←c35932 */ ) = var←c39004;
(void) XR←ImportProcS(var←c39004, 67637250);
(void) XR←ImportProcS(var←c39004, 67899907);
var←c39004 = (word) XR←ImportInterface((word) "Commander", (word) XR←GetTypeIndexS((word) (&string87)), 3);
(* (( (ptr) gf←c0537)+187)/* var←c36892 */ ) = var←c39004;
(void) XR←ImportProcS(var←c39004, 67371521);
var←c39004 = (word) XR←ImportInterface((word) "CommanderRegistry", (word) XR←GetTypeIndexS((word) (&string88)), 3);
(* (( (ptr) gf←c0537)+181)/* var←c35964 */ ) = var←c39004;
(void) XR←ImportProcS(var←c39004, 67633666);
var←c39004 = (word) XR←ImportInterface((word) "CommanderSys", (word) XR←GetTypeIndexS((word) (&string89)), 5);
(* (( (ptr) gf←c0537)+184)/* var←c36124 */ ) = var←c39004;
(void) XR←ImportProcS(var←c39004, 525057);
(void) XR←ImportProcS(var←c39004, 67634178);
(void) XR←ImportProcS(var←c39004, 134218240);
(void) XR←ImportProcS(var←c39004, 134217728);
(void) XR←ImportProcS(var←c39004, 67371265);
var←c39004 = (word) XR←ImportInterface((word) "Convert", (word) XR←GetTypeIndexS((word) (&string90)), 73);
(* (( (ptr) gf←c0537)+186)/* var←c36316 */ ) = var←c39004;
(void) XR←ImportProcS(var←c39004, 67634946);
var←c39004 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string91)), 103);
(* (( (ptr) gf←c0537)+179)/* var←c35036 */ ) = var←c39004;
(void) XR←ImportProcS(var←c39004, 267521);
(void) XR←ImportProcS(var←c39004, 268033);
(void) XR←ImportProcS(var←c39004, 67393281);
(void) XR←ImportProcS(var←c39004, 2111493);
(void) XR←ImportProcS(var←c39004, 67372801);
(void) XR←ImportProcS(var←c39004, 67641090);
(void) XR←ImportProcS(var←c39004, 67378689);
(void) XR←ImportProcS(var←c39004, 1071364);
(void) XR←ImportProcS(var←c39004, 67374849);
(void) XR←ImportProcS(var←c39004, 67373825);
(void) XR←ImportProcS(var←c39004, 67917827);
(void) XR←ImportProcS(var←c39004, 530946);
(void) XR←ImportProcS(var←c39004, 67389953);
(void) XR←ImportProcS(var←c39004, 527874);
(void) XR←ImportProcS(var←c39004, 67392257);
(void) XR←ImportProcS(var←c39004, 134763778);
(void) XR←ImportProcS(var←c39004, 67377409);
(void) XR←ImportProcS(var←c39004, 67640578);
var←c39004 = (word) XR←ImportInterface((word) "ProcessProps", (word) XR←GetTypeIndexS((word) (&string92)), 6);
(* (( (ptr) gf←c0537)+182)/* var←c35996 */ ) = var←c39004;
(void) XR←ImportProcS(var←c39004, 524290);
(void) XR←ImportProcS(var←c39004, 67371777);
var←c39004 = (word) XR←ImportInterface((word) "RefText", (word) XR←GetTypeIndexS((word) (&string93)), 26);
(* (( (ptr) gf←c0537)+185)/* var←c36220 */ ) = var←c39004;
(void) XR←ImportProcS(var←c39004, 262913);
(void) XR←ImportProcS(var←c39004, 67634946);
(void) XR←ImportProcS(var←c39004, 67371521);
var←c39004 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string94)), 43);
(* (( (ptr) gf←c0537)+178)/* var←c35004 */ ) = var←c39004;
(void) XR←ImportProcS(var←c39004, 67373313);
(void) XR←ImportProcS(var←c39004, 68419845);
(void) XR←ImportProcS(var←c39004, 67900163);
(void) XR←ImportProcS(var←c39004, 68160516);
(void) XR←ImportProcS(var←c39004, 67634434);
(void) XR←ImportProcS(var←c39004, 67373825);
(void) XR←ImportProcS(var←c39004, 67633666);
(void) XR←ImportProcS(var←c39004, 67898627);
(void) XR←ImportProcS(var←c39004, 67896323);
(void) XR←ImportProcS(var←c39004, 67379457);
var←c39004 = (word) XR←ImportInterface((word) "UXStrings", (word) XR←GetTypeIndexS((word) (&string95)), 9);
(* (( (ptr) gf←c0537)+189)/* var←c38972 */ ) = var←c39004;
(void) XR←ImportProcS(var←c39004, 67633922);
var←c39004 = (word) XR←ExportInterface((word) "CommanderOps", (word) XR←GetTypeIndexS((word) (&string96)), 14);
(* (( (ptr) gf←c0537)+190)/* var←c39036 */ ) = var←c39004;
(void) XR←ExportVar(var←c39004, 0, (word) (( (bPt) gf←c0537)+380)/* var←c33660 */ );
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+664)/* var←c34812 */ , 134742274);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+656)/* var←c34780 */ , 67633666);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+632)/* var←c34684 */ , 67371777);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+624)/* var←c34652 */ , 67634178);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+616)/* var←c34620 */ , 67896579);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+672)/* var←c34844 */ , 201590273);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+544)/* var←c34332 */ , 67634946);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+536)/* var←c34300 */ , 135006211);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+512)/* var←c34204 */ , 134744322);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+608)/* var←c34588 */ , 788995);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+600)/* var←c34556 */ , 67635970);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+392)/* var←c33724 */ , 68160516);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+456)/* var←c33980 */ , 67374337);
var←c39004 = (word) XR←ExportInterface((word) "CommanderBackdoor", (word) XR←GetTypeIndexS((word) (&string97)), 5);
(* (( (ptr) gf←c0537)+191)/* var←c39068 */ ) = var←c39004;
(void) XR←ExportType((word) "PrivateDataRep", (word) XR←GetTypeIndexS((word) (&string98)), (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2)
);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+416)/* var←c33820 */ , 67371265);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+448)/* var←c33948 */ , 67371521);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+440)/* var←c33916 */ , 262913);
(void) XR←ExportProcS(var←c39004, (word) (( (bPt) gf←c0537)+432)/* var←c33884 */ , 787458);
}
static void CommanderOpsImpl←P0(formal←c093, formal←c092)
word formal←c093;
word formal←c092;
{
register ptr gf←c39100 = (ptr) &globalframe;
/* CommanderOpsImpl: */
SOURCE(171, 24673)
SOURCE(795, 50)
{
word pd99;
pd99 = (* (( (ptr) (* (( (ptr) gf←c39100)+178)/* var←c35004 */ ))+37) );
(* (( (ptr) gf←c39100)+8)/* doubleQuoteRope←v3364 */ ) = (word) ( *( (fPt) ((* (ptr) pd99 ))))(34, pd99);
};
SOURCE(869, 46)
{
word pd100;
pd100 = (* (( (ptr) (* (( (ptr) gf←c39100)+178)/* var←c35004 */ ))+37) );
(* (( (ptr) gf←c39100)+9)/* openParenRope←v3420 */ ) = (word) ( *( (fPt) ((* (ptr) pd100 ))))(40, pd100);
};
SOURCE(940, 48)
{
word pd101;
pd101 = (* (( (ptr) (* (( (ptr) gf←c39100)+178)/* var←c35004 */ ))+37) );
(* (( (ptr) gf←c39100)+10)/* closeParenRope←v3476 */ ) = (word) ( *( (fPt) ((* (ptr) pd101 ))))(41, pd101);
};
SOURCE(1254, 40)
(* (( (ptr) gf←c39100)+12)/* seprChars←v3616 */ ) = (* (( (ptr) gf←c39100)+94) );
SOURCE(1296, 44)
(* (( (ptr) gf←c39100)+13)/* breakChars←v3644 */ ) = (* (( (ptr) gf←c39100)+93) );
SOURCE(23035, 41)
(* (( (ptr) gf←c39100)+14)/* defaultPrompt←v4792 */ ) = (* (( (ptr) gf←c39100)+91) );
}
static word ObtainRIS←P60(rope←v5140)
word rope←v5140;
{
register ptr gf←c39132 = (ptr) &globalframe;
word ris←v5184;
/* ObtainRIS: */
SOURCE(1066, 19101)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c39132)+16)/* LOCK←v3140 */ ));
SOURCE(1066, 19101)
ris←v5184 = 0;
SOURCE(1130, 19037)
{
word pd102;
pd102 = (* (( (ptr) (* (( (ptr) gf←c39132)+179)/* var←c35036 */ ))+33) );
ris←v5184 = (word) ( *( (fPt) ((* (ptr) pd102 ))))(rope←v5140, (* (( (ptr) gf←c39132)+11)/* scratchRIS←v3532 */ ), pd102)
;
};
SOURCE(1162, 16)
(* (( (ptr) gf←c39132)+11)/* scratchRIS←v3532 */ ) = 0;
SOURCE(1066, 19101)
(void) (XR←MonitorExit((word) (( (bPt) gf←c39132)+16)/* LOCK←v3140 */ ));
return(ris←v5184);
}
static void ReleaseRIS←P120(stream←v5244)
word stream←v5244;
{
register ptr gf←c39164 = (ptr) &globalframe;
/* ReleaseRIS: */
SOURCE(1183, 67)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c39164)+16)/* LOCK←v3140 */ ));
SOURCE(1230, 20)
(* (( (ptr) gf←c39164)+11)/* scratchRIS←v3532 */ ) = stream←v5244;
SOURCE(1183, 67)
(void) (XR←MonitorExit((word) (( (bPt) gf←c39164)+16)/* LOCK←v3140 */ ));
return;
}
static word CmdTokenBreak←P180(char←v5328)
word char←v5328;
{
register ptr gf←c39196 = (ptr) &globalframe;
word var←c5372;
/* CmdTokenBreak: */
SOURCE(1342, 18825)
SOURCE(1402, 18765)
{
register word i←v10756 = 0;
register word noName←c35068;
word var←c35100;
word var←c0610;
noName←c35068 = (* (hPt) (* (( (ptr) gf←c39196)+13)/* breakChars←v3644 */ ) );
if ((i←v10756 >= noName←c35068)) {
goto lab←L100000;
};
lab←L100003: ;
SOURCE(1442, 18725)
var←c35100 = (* (( (ptr) gf←c39196)+13)/* breakChars←v3644 */ );
{
word limit103;
var←c0610 = (word) (* ((( (bPt) var←c35100)+4)+(
limit103 = (word) (* (( (hPt) var←c35100)+1) ),
BCK(i←v10756, limit103)
)) );
};
if ((char←v5328 == var←c0610)) {
SOURCE(1471, 22)
return(0);
};
i←v10756 = (i←v10756 + 1);
if ((i←v10756 < noName←c35068)) {
goto lab←L100003;
};
lab←L100000: ;
};
SOURCE(1495, 18672)
{
register word i←v10800 = 0;
register word noName←c35132;
word var←c35164;
word var←c0611;
noName←c35132 = (* (hPt) (* (( (ptr) gf←c39196)+12)/* seprChars←v3616 */ ) );
if ((i←v10800 >= noName←c35132)) {
goto lab←L100004;
};
lab←L100007: ;
SOURCE(1534, 18633)
var←c35164 = (* (( (ptr) gf←c39196)+12)/* seprChars←v3616 */ );
{
word limit104;
var←c0611 = (word) (* ((( (bPt) var←c35164)+4)+(
limit104 = (word) (* (( (hPt) var←c35164)+1) ),
BCK(i←v10800, limit104)
)) );
};
if ((char←v5328 == var←c0611)) {
SOURCE(1562, 21)
return(1);
};
i←v10800 = (i←v10800 + 1);
if ((i←v10800 < noName←c35132)) {
goto lab←L100007;
};
lab←L100004: ;
};
SOURCE(1585, 15)
return(2);
}
static void GetCmdToken←P240(formal←c0122, formal←c0653)
word formal←c0122;
word formal←c0653;
{
W8 var←c39228;
/* declaration of stream←v5432 skipped */
register ptr gf←c39260 = (ptr) &globalframe;
W3 token←v5476;
var←c39228.f4/* stream←v5432 */ = formal←c0653;
/* GetCmdToken: */
SOURCE(1682, 18485)
SOURCE(1682, 18485)
token←v5476.f0 = 0;
token←v5476.f1 = 0;
token←v5476.f2 = 0;
SOURCE(1764, 18403)
SOURCE(1766, 13)
{
word skip←v10844 = 0;
SOURCE(1781, 18386)
{
word pd105;
pd105 = (* (( (ptr) (* (( (ptr) gf←c39260)+179)/* var←c35036 */ ))+29) );
token←v5476.f2 = (word) ( *( (fPt) ((* (ptr) pd105 ))))(var←c39228.f4/* stream←v5432 */ , pd105);
};
SOURCE(1816, 18351)
SOURCE(1816, 18351)
{
W2 var←c35196;
{
/* declaration of var←c01 skipped */
var←c39228.f5/* var←c01 */ = (* (( (ptr) (* (( (ptr) gf←c39260)+179)/* var←c35036 */ ))+89) );
{
/* declaration of var←c02 skipped */
{
word var←c03;
{
word var←c0612;
var←c0612 = (word) &var←c39228;
var←c03 = (word) XR←Enable(( ((word) (fPt) NoName←Q5364) ), ( ((word) (fPt) NoName←Q6564) ), var←c0612);
};
if ((var←c03 == 2)) {
goto lab←L100011;
};
};
var←c35196 = (* (W2Pt) (( (ptr) &var←c39228)+6)/* var←c02 */ );
};
};
skip←v10844 = var←c35196.f1;
token←v5476.f0 = var←c35196.f0;
};
lab←L100011: ;
SOURCE(1928, 32)
token←v5476.f2 = (token←v5476.f2 + skip←v10844);
SOURCE(1962, 27)
token←v5476.f1 = token←v5476.f0;
{
word pd106;
pd106 = (* (( (ptr) (* (( (ptr) gf←c39260)+178)/* var←c35004 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd106 ))))(token←v5476.f0, (* (( (ptr) gf←c39260)+8)/* doubleQuoteRope←v3364 */ ), 1, pd106)
)) {
SOURCE(2054, 42)
{
word pd107;
pd107 = (* (( (ptr) (* (( (ptr) gf←c39260)+179)/* var←c35036 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd107 ))))(var←c39228.f4/* stream←v5432 */ , 34, pd107);
};
SOURCE(2098, 285)
{
word startIndex←v10888;
word rope←v10916;
word length←v10944;
SOURCE(2101, 51)
{
word pd108;
pd108 = (* (( (ptr) (* (( (ptr) gf←c39260)+179)/* var←c35036 */ ))+29) );
token←v5476.f2 = (word) ( *( (fPt) ((* (ptr) pd108 ))))(var←c39228.f4/* stream←v5432 */ , pd108);
};
startIndex←v10888 = token←v5476.f2;
SOURCE(2154, 68)
{
/* declaration of var←c04 skipped */
var←c39228.f5/* var←c04 */ = (* (( (ptr) (* (( (ptr) gf←c39260)+179)/* var←c35036 */ ))+78) );
{
/* declaration of var←c05 skipped */
{
word var←c06;
{
word var←c0613;
var←c0613 = (word) &var←c39228;
var←c06 = (word) XR←Enable(( ((word) (fPt) NoName←Q5304) ), ( ((word) (fPt) NoName←Q6504) ), var←c0613);
};
if ((var←c06 == 3)) {
goto lab←L100009;
};
};
rope←v10916 = var←c39228.f6/* var←c05 */ ;
};
};
SOURCE(2238, 46)
{
word pd109;
pd109 = (* (( (ptr) (* (( (ptr) gf←c39260)+179)/* var←c35036 */ ))+29) );
length←v10944 = ((word) ( *( (fPt) ((* (ptr) pd109 ))))(var←c39228.f4/* stream←v5432 */ , pd109) - startIndex←v10888);
};
SOURCE(2286, 18)
token←v5476.f0 = rope←v10916;
SOURCE(2306, 31)
{
word pd110;
pd110 = (* (( (ptr) (* (( (ptr) gf←c39260)+179)/* var←c35036 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd110 ))))(var←c39228.f4/* stream←v5432 */ , startIndex←v10888, pd110);
};
SOURCE(2339, 17828)
{
word pd111;
pd111 = (* (( (ptr) (* (( (ptr) gf←c39260)+179)/* var←c35036 */ ))+92) );
token←v5476.f1 = (word) ( *( (fPt) ((* (ptr) pd111 ))))(var←c39228.f4/* stream←v5432 */ , length←v10944, 0, pd111);
};
};
}
else {
{
word pd112;
pd112 = (* (( (ptr) (* (( (ptr) gf←c39260)+178)/* var←c35004 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd112 ))))(token←v5476.f0, (* (( (ptr) gf←c39260)+9)/* openParenRope←v3420 */ ), 1, pd112)
)) {
SOURCE(2431, 438)
{
word startIndex←v10988;
SOURCE(2433, 53)
{
word pd113;
pd113 = (* (( (ptr) (* (( (ptr) gf←c39260)+179)/* var←c35036 */ ))+29) );
token←v5476.f2 = ((word) ( *( (fPt) ((* (ptr) pd113 ))))(var←c39228.f4/* stream←v5432 */ , pd113) - 1);
};
startIndex←v10988 = token←v5476.f2;
SOURCE(2488, 17679)
lab←L100018: ;
SOURCE(2488, 17679)
{
W3 subtoken←v11032;
SOURCE(2491, 37)
(void) GetCmdToken←P240((word) &subtoken←v11032, var←c39228.f4/* stream←v5432 */ );
SOURCE(2530, 17637)
if ((subtoken←v11032.f1 == 0)) {
SOURCE(2561, 17606)
{
/*1*/ word var←c0115;
/*1*/ var←c0115 = (* (( (ptr) gf←c39260)+90) );
/*1*/ (void) XR←RaiseError((word) (( (bPt) gf←c39260)+380)/* var←c33660 */ , (word) &var←c0115);
/*1*/ };
};
SOURCE(2616, 17551)
{
word pd114;
pd114 = (* (( (ptr) (* (( (ptr) gf←c39260)+178)/* var←c35004 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd114 ))))(subtoken←v11032.f1, (* (( (ptr) gf←c39260)+10)/* closeParenRope←v3476 */ ), 1, pd114)
)) {
SOURCE(2669, 188)
/*1*/ {
/*1*/ word length←v11076;
SOURCE(2671, 46)
/*1*/ {
/*1*/ word pd115;
/*1*/ pd115 = (* (( (ptr) (* (( (ptr) gf←c39260)+179)/* var←c35036 */ ))+29) );
/*1*/ length←v11076 = ((word) ( *( (fPt) ((* (ptr) pd115 ))))(var←c39228.f4/* stream←v5432 */ , pd115) - startIndex←v10988);
/*1*/ };
SOURCE(2719, 31)
/*1*/ {
/*1*/ word pd116;
/*1*/ pd116 = (* (( (ptr) (* (( (ptr) gf←c39260)+179)/* var←c35036 */ ))+30) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd116 ))))(var←c39228.f4/* stream←v5432 */ , startIndex←v10988, pd116);
/*1*/ };
SOURCE(2752, 17415)
/*1*/ {
/*1*/ word pd117;
/*1*/ pd117 = (* (( (ptr) (* (( (ptr) gf←c39260)+179)/* var←c35036 */ ))+92) );
/*1*/ token←v5476.f1 = (word) ( *( (fPt) ((* (ptr) pd117 ))))(var←c39228.f4/* stream←v5432 */ , length←v11076, 0, pd117);
/*1*/ };
SOURCE(2796, 17371)
/*1*/ {
/*1*/ word pd118;
/*1*/ pd118 = (* (( (ptr) (* (( (ptr) gf←c39260)+178)/* var←c35004 */ ))+17) );
/*1*/ token←v5476.f0 = (word) ( *( (fPt) ((* (ptr) pd118 ))))(token←v5476.f1, 1, (length←v11076 - 2), pd118);
/*1*/ };
SOURCE(2851, 4)
/*1*/ goto lab←L100017;
/*1*/ };
/*1*/ };
};
};
goto lab←L100018;
lab←L100017: ;
};
}
else {
{
word pd119;
pd119 = (* (( (ptr) (* (( (ptr) gf←c39260)+178)/* var←c35004 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd119 ))))(token←v5476.f1, (* (( (ptr) gf←c39260)+89) ), 1, pd119))) {
SOURCE(2908, 17259)
{
word pd120;
pd120 = (* (( (ptr) (* (( (ptr) gf←c39260)+179)/* var←c35036 */ ))+15) );
if ((0 == (word) ( *( (fPt) ((* (ptr) pd120 ))))(var←c39228.f4/* stream←v5432 */ , pd120))) {
SOURCE(2937, 17230)
/*1*/ {
/*1*/ word var←c35228;
/*1*/ {
/*1*/ word pd121;
/*1*/ pd121 = (* (( (ptr) (* (( (ptr) gf←c39260)+179)/* var←c35036 */ ))+19) );
/*1*/ var←c35228 = (word) ( *( (fPt) ((* (ptr) pd121 ))))(var←c39228.f4/* stream←v5432 */ , pd121);
/*1*/ };
/*1*/ if ((var←c35228 == 34) || (var←c35228 == 40)) {
SOURCE(2995, 109)
/*1*/ {
/*1*/ W3 rest←v11120;
SOURCE(2997, 33)
/*1*/ (void) GetCmdToken←P240((word) &rest←v11120, var←c39228.f4/* stream←v5432 */ );
SOURCE(3032, 17135)
/*1*/ {
/*1*/ word var←c35260;
/*1*/ {
/*1*/ word pd122;
/*1*/ pd122 = (* (( (ptr) (* (( (ptr) gf←c39260)+178)/* var←c35004 */ ))+6) );
/*1*/ var←c35260 = (word) ( *( (fPt) ((* (ptr) pd122 ))))(token←v5476.f1, rest←v11120.f1, pd122);
/*1*/ };
/*1*/ token←v5476.f0 = var←c35260;
/*1*/ token←v5476.f1 = var←c35260;
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
};
};
};
};
};
};
};
};
goto lab←L100019;
lab←L100009: ;
SOURCE(3154, 17013)
{
word var←c0121;
var←c0121 = (* (( (ptr) gf←c39260)+88) );
(void) XR←RaiseError((word) (( (bPt) gf←c39260)+380)/* var←c33660 */ , (word) &var←c0121);
};
lab←L100019: ;
/* removed tail goto */
(* (W3Pt) formal←c0122 ) = token←v5476;
return;
}
static word NoName←Q5304(formal←c0543)
word formal←c0543;
{
SOURCE(2154, 68)
{
word pd123;
pd123 = (* (( (ptr) formal←c0543)+5) );
(* (( (ptr) formal←c0543)+6) ) = (word) ( *( (fPt) ((* (ptr) pd123 ))))((* ((( (ptr) formal←c0543)+4)) ), pd123);
};
return(0);
}
static word NoName←Q5364(formal←c0545)
word formal←c0545;
{
register ptr gf←c0544 = (ptr) &globalframe;
SOURCE(1816, 18351)
{
word pd124;
pd124 = (* (( (ptr) formal←c0545)+5) );
(void) ( *( (fPt) ((* (ptr) pd124 ))))((word) (( (bPt) formal←c0545)+24), (* (( (ptr) formal←c0545)+4) ), (word) (( (bPt) gf←c0544)+680)
/* var←c34876 */ , pd124);
};
return(0);
}
static void ParseToList←P300(formal←c0135, cmd←v5536, quoteTreatment←v5564)
word formal←c0135;
word cmd←v5536;
word quoteTreatment←v5564;
{
register ptr gf←c39292 = (ptr) &globalframe;
word list←v5608;
word length←v5636;
word head←v11164;
word last←v11192;
/* ParseToList: */
SOURCE(3215, 16952)
SOURCE(3215, 16952)
list←v5608 = 0;
SOURCE(3215, 16952)
length←v5636 = 0;
SOURCE(3346, 6)
{
word var←c35324;
head←v11164 = XR←NewObject(8, (* (( (ptr) gf←c39292)+29) ));
var←c35324 = head←v11164;
(* (ptr) var←c35324 ) = (word) ArgN←P660(cmd←v5536, 0, quoteTreatment←v5564);
};
SOURCE(3403, 6)
last←v11192 = head←v11164;
SOURCE(3430, 16737)
lab←L100023: ;
SOURCE(3430, 16737)
{
word arg←v11404;
SOURCE(3433, 45)
arg←v11404 = (word) NextArgument←P600(cmd←v5536, quoteTreatment←v5564);
SOURCE(3480, 18)
if ((arg←v11404 == 0)) {
SOURCE(3498, 4)
goto lab←L100022;
};
SOURCE(3504, 28)
{
word var←c35388;
{
word var←c35420;
word var←c35452;
var←c35420 = XR←NewObject(8, (* (( (ptr) gf←c39292)+29) ));
var←c35452 = var←c35420;
(* (ptr) var←c35452 ) = arg←v11404;
var←c35388 = var←c35420;
};
(* (( (ptr) last←v11192)+1) ) = var←c35388;
last←v11192 = var←c35388;
};
SOURCE(3534, 19)
length←v5636 = (length←v5636 + 1);
};
goto lab←L100023;
lab←L100022: ;
SOURCE(3564, 16)
list←v5608 = (* (( (ptr) head←v11164)+1) );
SOURCE(3582, 15)
(* (( (ptr) head←v11164)+1) ) = 0;
/* removed tail goto */
(* (ptr) formal←c0135 ) = list←v5608;
(* (( (ptr) formal←c0135)+1) ) = length←v5636;
return;
}
static word Parse←P360(cmd←v5780, quoteTreatment←v5808)
word cmd←v5780;
word quoteTreatment←v5808;
{
register ptr gf←c39324 = (ptr) &globalframe;
word argv←v5852;
word n←v11448;
/* Parse: */
SOURCE(3603, 16564)
SOURCE(3603, 16564)
argv←v5852 = 0;
SOURCE(3713, 21)
{
word idx125;
n←v11448 = (
idx125 = (word) NumArgs←P540(cmd←v5780),
SGNCK(idx125)
);
};
SOURCE(3737, 32)
{
word var←c35484;
word var←c35516;
word var←c35548;
var←c35484 = BCK(n←v11448, 67108863);
var←c35516 = (var←c35484 << 2);
var←c35548 = XR←NewObject((4 + var←c35516), (* (( (ptr) gf←c39324)+30) ));
(* (ptr) var←c35548 ) = var←c35484;
argv←v5852 = var←c35548;
};
SOURCE(3771, 16396)
{
word var←c35580;
var←c35580 = (word) ArgN←P660(cmd←v5780, 0, quoteTreatment←v5808);
{
word limit126;
(* ((( (ptr) argv←v5852)+1)+(
limit126 = (* (ptr) argv←v5852 ),
BCK(0, limit126)
)) ) = var←c35580;
};
};
SOURCE(3811, 16356)
{
register word i←v11492 = 1;
word var←c35612;
if ((i←v11492 >= n←v11448)) {
goto lab←L100024;
};
lab←L100027: ;
SOURCE(3835, 16332)
var←c35612 = (word) NextArgument←P600(cmd←v5780, quoteTreatment←v5808);
{
word limit127;
(* ((( (ptr) argv←v5852)+1)+(
limit127 = (* (ptr) argv←v5852 ),
BCK(i←v11492, limit127)
)) ) = var←c35612;
};
if ((var←c35612 == 0)) {
SOURCE(3895, 5)
(void) XR←RaiseUnnamedError();
};
i←v11492 = (i←v11492 + 1);
if ((i←v11492 < n←v11448)) {
goto lab←L100027;
};
lab←L100024: ;
};
SOURCE(3911, 16256)
if (((word) NextArgument←P600(cmd←v5780, quoteTreatment←v5808) != 0)) {
SOURCE(3959, 5)
(void) XR←RaiseUnnamedError();
};
SOURCE(3603, 16564)
return(argv←v5852);
}
static void ParseToTList←P420(formal←c0158, cmd←v5912)
word formal←c0158;
word cmd←v5912;
{
register ptr gf←c39356 = (ptr) &globalframe;
word list←v5956;
word length←v5984;
word head←v11536;
word last←v11564;
word cmds←v11592;
/* ParseToTList: */
SOURCE(3970, 16197)
SOURCE(3970, 16197)
list←v5956 = 0;
SOURCE(3970, 16197)
length←v5984 = 0;
SOURCE(4064, 6)
{
word var←c35676;
head←v11536 = XR←NewObject(16, (* (( (ptr) gf←c39356)+31) ));
var←c35676 = head←v11536;
};
SOURCE(4103, 6)
last←v11564 = head←v11536;
SOURCE(4131, 44)
cmds←v11592 = (word) ObtainRIS←P60((* ((( (ptr) cmd←v5912)+4)) ));
SOURCE(4177, 15990)
lab←L100031: ;
SOURCE(4177, 15990)
{
W3 token←v11804;
SOURCE(4180, 32)
(void) GetCmdToken←P240((word) &token←v11804, cmds←v11592);
SOURCE(4214, 26)
if ((token←v11804.f0 == 0)) {
SOURCE(4240, 4)
goto lab←L100030;
};
SOURCE(4246, 30)
{
word var←c35708;
{
word var←c35740;
word var←c35772;
var←c35740 = XR←NewObject(16, (* (( (ptr) gf←c39356)+31) ));
var←c35772 = var←c35740;
(* (W3Pt) var←c35772 ) = token←v11804;
var←c35708 = var←c35740;
};
(* (( (ptr) last←v11564)+3) ) = var←c35708;
last←v11564 = var←c35708;
};
SOURCE(4278, 19)
length←v5984 = (length←v5984 + 1);
};
goto lab←L100031;
lab←L100030: ;
SOURCE(4308, 16)
list←v5956 = (* (( (ptr) head←v11536)+3) );
SOURCE(4326, 15)
(* (( (ptr) head←v11536)+3) ) = 0;
SOURCE(4343, 16)
(void) ReleaseRIS←P120(cmds←v11592);
/* removed tail goto */
(* (ptr) formal←c0158 ) = list←v5956;
(* (( (ptr) formal←c0158)+1) ) = length←v5984;
return;
}
static word GetParseRecord←P480(cmd←v6424)
word cmd←v6424;
{
register ptr gf←c39388 = (ptr) &globalframe;
word pr←v6468;
word data←v11848;
word private←v11876;
/* GetParseRecord: */
SOURCE(4516, 15651)
SOURCE(4516, 15651)
pr←v6468 = 0;
SOURCE(4595, 47)
data←v11848 = (word) GetCommandToolData←P2160(cmd←v6424);
SOURCE(4644, 42)
private←v11876 = (* (( (ptr) data←v11848)+11) );
SOURCE(4688, 24)
pr←v6468 = (* (ptr) private←v11876 );
SOURCE(4714, 15453)
if ((pr←v6468 == 0) || ((* (( (ptr) pr←v6468)+3) ) != (* (( (ptr) cmd←v6424)+4) ))) {
SOURCE(4769, 15398)
pr←v6468 = XR←NewObject(16, (* (( (ptr) gf←c39388)+32) ));
SOURCE(4797, 15370)
{
word var←c35836;
W2 var←c0164;
(void) ParseToTList←P420((word) &var←c0164, cmd←v6424);
var←c35836 = var←c0164.f0;
(* (ptr) pr←v6468 ) = var←c35836;
(* (( (ptr) pr←v6468)+2) ) = var←c35836;
};
SOURCE(4861, 32)
(* (( (ptr) pr←v6468)+3) ) = (* (( (ptr) cmd←v6424)+4) );
SOURCE(4895, 24)
(* (ptr) private←v11876 ) = pr←v6468;
};
SOURCE(4516, 15651)
return(pr←v6468);
}
static word NumArgs←P540(cmd←v6540)
word cmd←v6540;
{
word n←v6584;
word pp←v11932;
/* NumArgs: */
SOURCE(4928, 15239)
SOURCE(4928, 15239)
n←v6584 = 1;
SOURCE(4998, 41)
pp←v11932 = (word) GetParseRecord←P480(cmd←v6540);
SOURCE(5041, 90)
{
register word tail←v11988;
tail←v11988 = (* (ptr) pp←v11932 );
lab←L100035: ;
if ((tail←v11988 != 0)) {
}
else {
goto lab←L100032;
};
SOURCE(5114, 17)
n←v6584 = (n←v6584 + 1);
tail←v11988 = (* (( (ptr) tail←v11988)+3) );
goto lab←L100035;
lab←L100032: ;
};
SOURCE(4928, 15239)
return(n←v6584);
}
static word NextArgument←P600(cmd←v6644, quoteTreatment←v6672)
word cmd←v6644;
word quoteTreatment←v6672;
{
word arg←v6716;
word pp←v12116;
/* NextArgument: */
SOURCE(5136, 15031)
SOURCE(5136, 15031)
arg←v6716 = 0;
SOURCE(5248, 41)
pp←v12116 = (word) GetParseRecord←P480(cmd←v6644);
SOURCE(5291, 40)
if (((* (( (ptr) pp←v12116)+2) ) == 0)) {
SOURCE(5325, 6)
return(arg←v6716);
};
SOURCE(5333, 147)
{
word var←c35868;
var←c35868 = quoteTreatment←v6672;
if ((var←c35868 == 0)) {
arg←v6716 = (* (ptr) (* (( (ptr) pp←v12116)+2) ) );
}
else {
if ((var←c35868 == 1)) {
arg←v6716 = (* (( (ptr) (* (( (ptr) pp←v12116)+2) ))+1) );
}
else {
arg←v6716 = (
XR←RaiseUnnamedError(), 0
);
};
};
};
SOURCE(5482, 46)
(* (( (ptr) pp←v12116)+2) ) = (* (( (ptr) (* (( (ptr) pp←v12116)+2) ))+3) );
SOURCE(5530, 43)
(* (( (ptr) pp←v12116)+1) ) = ((* (( (ptr) pp←v12116)+1) ) + 1);
SOURCE(5136, 15031)
return(arg←v6716);
}
static word ArgN←P660(cmd←v6776, n←v6804, quoteTreatment←v6832)
word cmd←v6776;
word n←v6804;
word quoteTreatment←v6832;
{
word arg←v6876;
word pp←v12172;
/* ArgN: */
SOURCE(5578, 14589)
SOURCE(5578, 14589)
arg←v6876 = 0;
SOURCE(5690, 41)
pp←v12172 = (word) GetParseRecord←P480(cmd←v6776);
SOURCE(5733, 100)
if (( (int)n←v6804 == (int)0)) {
SOURCE(5749, 37)
(* (( (ptr) pp←v12172)+2) ) = (* (ptr) pp←v12172 );
SOURCE(5788, 22)
(* (( (ptr) pp←v12172)+1) ) = 0;
SOURCE(5812, 21)
return((* (( (ptr) cmd←v6776)+3) ));
};
SOURCE(5836, 9)
n←v6804 = (n←v6804 - 1);
SOURCE(5847, 26)
if (( (int)n←v6804 < (int)0)) {
SOURCE(5861, 12)
return(0);
};
SOURCE(5875, 94)
if (( (int)n←v6804 < (int)(* (( (ptr) pp←v12172)+1) ))) {
SOURCE(5908, 37)
(* (( (ptr) pp←v12172)+2) ) = (* (ptr) pp←v12172 );
SOURCE(5947, 22)
(* (( (ptr) pp←v12172)+1) ) = 0;
};
SOURCE(5974, 171)
lab←L100038: ;
if (( (int)n←v6804 != (int)(* (( (ptr) pp←v12172)+1) ))) {
}
else {
goto lab←L100036;
};
SOURCE(6006, 46)
if (((* (( (ptr) pp←v12172)+2) ) == 0)) {
SOURCE(6040, 12)
return(0);
};
SOURCE(6054, 46)
(* (( (ptr) pp←v12172)+2) ) = (* (( (ptr) (* (( (ptr) pp←v12172)+2) ))+3) );
SOURCE(6102, 43)
(* (( (ptr) pp←v12172)+1) ) = ((* (( (ptr) pp←v12172)+1) ) + 1);
goto lab←L100038;
lab←L100036: ;
SOURCE(6156, 46)
if (((* (( (ptr) pp←v12172)+2) ) == 0)) {
SOURCE(6190, 12)
return(0);
};
SOURCE(6204, 147)
{
word var←c35900;
var←c35900 = quoteTreatment←v6832;
if ((var←c35900 == 0)) {
arg←v6876 = (* (ptr) (* (( (ptr) pp←v12172)+2) ) );
}
else {
if ((var←c35900 == 1)) {
arg←v6876 = (* (( (ptr) (* (( (ptr) pp←v12172)+2) ))+1) );
}
else {
arg←v6876 = (
XR←RaiseUnnamedError(), 0
);
};
};
};
SOURCE(6353, 46)
(* (( (ptr) pp←v12172)+2) ) = (* (( (ptr) (* (( (ptr) pp←v12172)+2) ))+3) );
SOURCE(6401, 43)
(* (( (ptr) pp←v12172)+1) ) = ((* (( (ptr) pp←v12172)+1) ) + 1);
SOURCE(5578, 14589)
return(arg←v6876);
}
static void PutProp←P720(cmd←v6936, key←v6964, val←v6992)
word cmd←v6936;
word key←v6964;
word val←v6992;
{
register ptr gf←c39420 = (ptr) &globalframe;
/* PutProp: */
SOURCE(6449, 13718)
SOURCE(6513, 13654)
if ((cmd←v6936 != 0)) {
SOURCE(6531, 146)
{
word new←v12228;
SOURCE(6533, 79)
{
word pd128;
pd128 = (* (( (ptr) (* (( (ptr) gf←c39420)+180)/* var←c35932 */ ))+22) );
new←v12228 = (word) ( *( (fPt) ((* (ptr) pd128 ))))(key←v6964, val←v6992, (* (( (ptr) cmd←v6936)+6) ), pd128);
};
SOURCE(6614, 13553)
if ((new←v12228 != (* (( (ptr) cmd←v6936)+6) ))) {
SOURCE(6645, 13522)
{
word var←c0184;
var←c0184 = (* (( (ptr) gf←c39420)+87) );
(void) XR←RaiseError((word) (( (bPt) gf←c39420)+380)/* var←c33660 */ , (word) &var←c0184);
};
};
};
};
}
static word GetProp←P780(cmd←v7068, key←v7096)
word cmd←v7068;
word key←v7096;
{
register ptr gf←c39452 = (ptr) &globalframe;
word value←v7152;
/* GetProp: */
SOURCE(6684, 13483)
SOURCE(6684, 13483)
value←v7152 = 0;
SOURCE(6764, 13403)
{
word pd129;
pd129 = (* (( (ptr) (* (( (ptr) gf←c39452)+181)/* var←c35964 */ ))+6) );
value←v7152 = (word) ( *( (fPt) ((* (ptr) pd129 ))))(cmd←v7068, key←v7096, pd129);
};
SOURCE(6809, 13358)
if ( ( (value←v7152 == 0) ? (cmd←v7068 != 0) : 0 ) ) {
SOURCE(6843, 13324)
{
word pd130;
pd130 = (* (( (ptr) (* (( (ptr) gf←c39452)+180)/* var←c35932 */ ))+20) );
value←v7152 = (word) ( *( (fPt) ((* (ptr) pd130 ))))(key←v7096, (* (( (ptr) cmd←v7068)+6) ), pd130);
};
};
SOURCE(6898, 13269)
if ((value←v7152 == 0)) {
SOURCE(6918, 13249)
{
word pd131;
pd131 = (* (( (ptr) (* (( (ptr) gf←c39452)+182)/* var←c35996 */ ))+7) );
value←v7152 = (word) ( *( (fPt) ((* (ptr) pd131 ))))(key←v7096, pd131);
};
};
SOURCE(6953, 13214)
if ((value←v7152 == 0)) {
SOURCE(6973, 13194)
{
word var←c36028;
var←c36028 = key←v7096;
if ((var←c36028 == 0)) {
goto lab←L100039;
};
if (((* (( (ptr) gf←c39452)+34) ) == XR←GetReferentType(var←c36028))) {
{
word atom←v12272;
atom←v12272 = var←c36028;
SOURCE(7010, 13157)
{
word var←c36060;
{
word pd132;
pd132 = (* (( (ptr) (* (( (ptr) gf←c39452)+183)/* var←c36092 */ ))+9) );
var←c36060 = (word) ( *( (fPt) ((* (ptr) pd132 ))))(atom←v12272, pd132);
};
{
word pd133;
pd133 = (* (( (ptr) (* (( (ptr) gf←c39452)+184)/* var←c36124 */ ))+5) );
value←v7152 = (word) ( *( (fPt) ((* (ptr) pd133 ))))(var←c36060, pd133);
};
};
};
}
else {
lab←L100039: ;
};
};
};
SOURCE(6684, 13483)
return(value←v7152);
}
static word DoSubstitutions←P840(cmd←v7224, rope←v7252)
word cmd←v7224;
word rope←v7252;
{
W7 var←c39484;
register ptr gf←c39516 = (ptr) &globalframe;
word var←c7296;
word size←v12316;
word index←v12344;
word length←v12372 = 0;
/* DoSubstitutions: */
SOURCE(7083, 13084)
SOURCE(7160, 27)
{
word pd134;
pd134 = (* (( (ptr) (* (( (ptr) gf←c39516)+178)/* var←c35004 */ ))+15) );
size←v12316 = (word) ( *( (fPt) ((* (ptr) pd134 ))))(rope←v7252, pd134);
};
SOURCE(7189, 53)
index←v12344 = ((word) FindTerminator←P900(rope←v7252, 2147483647, (* (( (ptr) gf←c39516)+86) ), 0) + 1);
SOURCE(7261, 12906)
{
register word cur←v12416;
cur←v12416 = index←v12344;
lab←L100043: ;
if (( (int)cur←v12416 < (int)size←v12316)) {
}
else {
goto lab←L100040;
};
{
word numeric←v12460 = 1;
word subst←v12488 = 0;
word var←c36156;
SOURCE(7390, 12777)
{
word tc135;
if (( (int)cur←v12416 < (int)size←v12316)) {
{
word pd136;
pd136 = (* (( (ptr) (* (( (ptr) gf←c39516)+178)/* var←c35004 */ ))+9) );
var←c36156 = (word) ( *( (fPt) ((* (ptr) pd136 ))))(rope←v7252, cur←v12416, pd136);
};
tc135 = (word) (0 != ( ((var←c36156 == 34) || (var←c36156 == 40)) ? 1 : 0 ) );
}
else {
tc135 = (word) 0;
};
if (tc135) {
SOURCE(7497, 318)
{
word res←v12532 = 0;
word commandLine←v12560 = 0;
SOURCE(7534, 147)
{
word ris←v12616;
W3 var←c0204;
SOURCE(7536, 32)
ris←v12616 = (word) ObtainRIS←P60(rope←v7252);
SOURCE(7570, 21)
{
word pd137;
pd137 = (* (( (ptr) (* (( (ptr) gf←c39516)+179)/* var←c35036 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd137 ))))(ris←v12616, cur←v12416, pd137);
};
SOURCE(7593, 12574)
(void) GetCmdToken←P240((word) &var←c0204, ris←v12616);
commandLine←v12560 = var←c0204.f0;
SOURCE(7631, 12536)
{
word pd138;
word idx139;
pd138 = (* (( (ptr) (* (( (ptr) gf←c39516)+179)/* var←c35036 */ ))+29) );
length←v12372 = (
idx139 = (word) ((word) ( *( (fPt) ((* (ptr) pd138 ))))(ris←v12616, pd138) - cur←v12416),
SGNCK(idx139)
);
};
SOURCE(7664, 15)
(void) ReleaseRIS←P120(ris←v12616);
};
SOURCE(7684, 12483)
{
W2 var←c36188;
(void) DoCommandRope←P1260((word) &var←c36188, commandLine←v12560, 0, cmd←v7224);
res←v12532 = var←c36188.f1;
subst←v12488 = var←c36188.f0;
};
SOURCE(7753, 34)
if ((res←v12532 == (* (( (ptr) gf←c39516)+75) ))) {
SOURCE(7776, 11)
{
word var←c0207 = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c39516)+380)/* var←c33660 */ , (word) &var←c0207);
};
};
SOURCE(7789, 12378)
subst←v12488 = (word) RemoveEOL←P1140(subst←v12488);
};
}
else {
SOURCE(7822, 779)
{
word text←v12660;
SOURCE(7824, 43)
{
word pd140;
pd140 = (* (( (ptr) (* (( (ptr) gf←c39516)+185)/* var←c36220 */ ))+6) );
text←v12660 = (word) ( *( (fPt) ((* (ptr) pd140 ))))(100, pd140);
};
SOURCE(7869, 15)
(* (hPt) text←v12660 ) = 0;
SOURCE(7886, 12281)
lab←L100046: ;
if (( (int)(cur←v12416 + (* (hPt) text←v12660 )) < (int)size←v12316)) {
}
else {
goto lab←L100044;
};
{
word c←v12716;
SOURCE(7925, 45)
{
word pd141;
pd141 = (* (( (ptr) (* (( (ptr) gf←c39516)+178)/* var←c35004 */ ))+9) );
c←v12716 = (word) ( *( (fPt) ((* (ptr) pd141 ))))(rope←v7252, (cur←v12416 + (* (hPt) text←v12660 )), pd141);
};
SOURCE(7972, 12195)
if (((((c←v12716 - 65) <= 25) || ((c←v12716 - 97) <= 25)) || ((c←v12716 - 48) <= 9)) || (c←v12716 == 95)) {
SOURCE(8040, 12127)
{
word pd142;
pd142 = (* (( (ptr) (* (( (ptr) gf←c39516)+185)/* var←c36220 */ ))+11) );
text←v12660 = (word) ( *( (fPt) ((* (ptr) pd142 ))))(text←v12660, c←v12716, pd142);
};
SOURCE(8076, 35)
if ((0 != numeric←v12460)) {
numeric←v12460 = ((c←v12716 - 48) <= 9);
}
else {
numeric←v12460 = 0;
};
}
else {
SOURCE(8120, 4)
goto lab←L100045;
};
};
goto lab←L100046;
lab←L100044: ;
lab←L100045: ;
SOURCE(8135, 12032)
if ((0 != numeric←v12460)) {
SOURCE(8151, 260)
{
word i←v12760 = (word) -1;
SOURCE(8174, 11993)
SOURCE(8174, 11993)
{
/* declaration of var←c36252 skipped */
{
/*1*/ word text←v33612;
/*1*/ text←v33612 = text←v12660;
/*1*/ var←c39484.f4/* var←c36252 */ = text←v33612;
/*1*/ };
{
/*1*/ /* declaration of var←c07 skipped */
/*1*/ var←c39484.f5/* var←c07 */ = (* (( (ptr) (* (( (ptr) gf←c39516)+186)/* var←c36316 */ ))+11) );
/*1*/ {
/*1*/ /* declaration of var←c08 skipped */
/*1*/ {
/*1*/ word var←c09;
/*1*/ {
/*1*/ word var←c0614;
/*1*/ var←c0614 = (word) &var←c39484;
/*1*/ var←c09 = (word) XR←Enable(( ((word) (fPt) NoName←Q5424) ), ( ((word) (fPt) NoName←Q6444) ), var←c0614);
/*1*/ };
/*1*/ if ((var←c09 == 4)) {
/*1*/ goto lab←L100048;
/*1*/ };
/*1*/ };
/*1*/ i←v12760 = var←c39484.f6/* var←c08 */ ;
/*1*/ };
/*1*/ };
};
lab←L100048: ;
SOURCE(8259, 11908)
{
word var←c36348;
var←c36348 = (word) GetProp←P780(cmd←v7224, (* (( (ptr) gf←c39516)+69) ));
if ((var←c36348 == 0)) {
/*1*/ goto lab←L100052;
/*1*/ };
if (((* (( (ptr) gf←c39516)+30) ) == XR←GetReferentType(var←c36348))) {
/*1*/ {
/*1*/ word argv←v12804;
/*1*/ argv←v12804 = var←c36348;
SOURCE(8343, 11824)
/*1*/ if (((i←v12760 + 1) < (* (ptr) argv←v12804 ))) {
SOURCE(8369, 11798)
/*1*/ {
/*1*/ word var←c36380;
/*1*/ var←c36380 = (i←v12760 + 1);
/*1*/ {
/*1*/ word limit143;
/*1*/ subst←v12488 = (* ((( (ptr) argv←v12804)+1)+(
/*1*/ limit143 = (* (ptr) argv←v12804 ),
/*1*/ BCK(var←c36380, limit143)
/*1*/ )) );
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ }
else {
/*1*/ lab←L100052: ;
/*1*/ };
};
};
}
else {
SOURCE(8418, 128)
{
word atom←v12848;
SOURCE(8420, 43)
{
word pd144;
pd144 = (* (( (ptr) (* (( (ptr) gf←c39516)+183)/* var←c36092 */ ))+8) );
atom←v12848 = (word) ( *( (fPt) ((* (ptr) pd144 ))))(text←v12660, pd144);
};
SOURCE(8465, 11702)
{
word var←c36412;
var←c36412 = (word) GetProp←P780(cmd←v7224, atom←v12848);
if ((var←c36412 == 0)) {
/*1*/ goto lab←L100053;
/*1*/ };
{
/*1*/ word tc145;
/*1*/ if (((* (( (ptr) gf←c39516)+21) ) == XR←GetReferentType(var←c36412))) {
/*1*/ tc145 = (word) ((*(int*)var←c36412<0) == 0);
/*1*/ }
/*1*/ else {
/*1*/ tc145 = (word) 0;
/*1*/ };
/*1*/ if (tc145) {
/*1*/ {
/*1*/ word rope←v12892;
/*1*/ rope←v12892 = var←c36412;
SOURCE(8515, 12)
/*1*/ subst←v12488 = rope←v12892;
/*1*/ };
/*1*/ }
/*1*/ else {
/*1*/ lab←L100053: ;
/*1*/ };
/*1*/ };
};
};
};
SOURCE(8549, 20)
length←v12372 = (* (hPt) text←v12660 );
SOURCE(8571, 28)
{
word pd146;
pd146 = (* (( (ptr) (* (( (ptr) gf←c39516)+185)/* var←c36220 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd146 ))))(text←v12660, pd146);
};
};
};
};
SOURCE(8604, 11563)
if ((subst←v12488 != 0)) {
SOURCE(8626, 11541)
{
word pd147;
pd147 = (* (( (ptr) (* (( (ptr) gf←c39516)+178)/* var←c35004 */ ))+16) );
rope←v7252 = (word) ( *( (fPt) ((* (ptr) pd147 ))))(rope←v7252, (cur←v12416 - 1), SGNCK((length←v12372 + 1)), subst←v12488, pd147)
;
};
SOURCE(8701, 11466)
{
word pd148;
pd148 = (* (( (ptr) (* (( (ptr) gf←c39516)+178)/* var←c35004 */ ))+15) );
index←v12344 = ((cur←v12416 - 1) + (word) ( *( (fPt) ((* (ptr) pd148 ))))(subst←v12488, pd148));
};
SOURCE(8735, 11432)
{
word pd149;
pd149 = (* (( (ptr) (* (( (ptr) gf←c39516)+178)/* var←c35004 */ ))+15) );
size←v12316 = (word) ( *( (fPt) ((* (ptr) pd149 ))))(rope←v7252, pd149);
};
}
else {
SOURCE(8768, 21)
index←v12344 = (cur←v12416 + length←v12372);
};
};
cur←v12416 = ((word) FindTerminator←P900(rope←v7252, 2147483647, (* (( (ptr) gf←c39516)+86) ), index←v12344) + 1);
goto lab←L100043;
lab←L100040: ;
};
SOURCE(8801, 14)
return(rope←v7252);
}
static word NoName←Q5424(formal←c0553)
word formal←c0553;
{
SOURCE(8174, 11993)
{
word pd150;
pd150 = (* (( (ptr) formal←c0553)+5) );
(* (( (ptr) formal←c0553)+6) ) = (word) ( *( (fPt) ((* (ptr) pd150 ))))((* (( (ptr) formal←c0553)+4) ), 8, pd150);
};
return(0);
}
static word FindTerminator←P900(rope←v7356, maxNest←v7384, terminators←v7412, start←v7440)
word rope←v7356;
word maxNest←v7384;
word terminators←v7412;
word start←v7440;
{
register ptr gf←c39548 = (ptr) &globalframe;
word var←c7496;
word end←v12964;
word i←v12992;
word state←v13020 = 0;
word nest←v13048 = 0;
/* FindTerminator: */
SOURCE(8819, 11348)
SOURCE(9089, 26)
{
word pd151;
pd151 = (* (( (ptr) (* (( (ptr) gf←c39548)+178)/* var←c35004 */ ))+15) );
end←v12964 = (word) ( *( (fPt) ((* (ptr) pd151 ))))(rope←v7356, pd151);
};
SOURCE(9117, 14)
i←v12992 = start←v7440;
SOURCE(9190, 10977)
lab←L100056: ;
if (( (int)i←v12992 < (int)end←v12964)) {
}
else {
goto lab←L100054;
};
{
word c←v13268;
SOURCE(9207, 23)
{
word pd152;
pd152 = (* (( (ptr) (* (( (ptr) gf←c39548)+178)/* var←c35004 */ ))+9) );
c←v13268 = (word) ( *( (fPt) ((* (ptr) pd152 ))))(rope←v7356, i←v12992, pd152);
};
SOURCE(9232, 10935)
{
word var←c36444;
var←c36444 = state←v13020;
if ((var←c36444 == 0)) {
SOURCE(9263, 10904)
{
word var←c36476;
word var←c36508;
var←c36476 = c←v13268;
switch (var←c36476) {
case 40:
SOURCE(9292, 16)
nest←v13048 = (nest←v13048 + 1);
break;
case 41:
SOURCE(9327, 16)
nest←v13048 = (nest←v13048 - 1);
break;
case 34:
SOURCE(9363, 21)
state←v13020 = 1;
break;
default:
SOURCE(9398, 10769)
{
word x153;
if (( (int)nest←v13048 <= (int)maxNest←v7384)) {
SOURCE(8979, 11188)
{
/*1*/ register word k←v13312 = 0;
/*1*/ register word noName←c36540;
/*1*/ noName←c36540 = (* (hPt) terminators←v7412 );
/*1*/ if ((k←v13312 >= noName←c36540)) {
/*1*/ goto lab←L100057;
/*1*/ };
/*1*/ lab←L100060: ;
SOURCE(9020, 11147)
/*1*/ {
/*1*/ word limit154;
/*1*/ if ((c←v13268 == (word) (* ((( (bPt) terminators←v7412)+4)+(
/*1*/ limit154 = (word) (* (( (hPt) terminators←v7412)+1) ),
/*1*/ BCK(k←v13312, limit154)
/*1*/ )) ))) {
SOURCE(9047, 13)
/*1*/ var←c36508 = 1;
/*1*/ goto lab←L100061;
/*1*/ };
/*1*/ };
/*1*/ k←v13312 = (k←v13312 + 1);
/*1*/ if ((k←v13312 < noName←c36540)) {
/*1*/ goto lab←L100060;
/*1*/ };
/*1*/ lab←L100057: ;
/*1*/ };
SOURCE(9071, 15)
var←c36508 = 0;
lab←L100061: ;
x153 = (word) (0 != var←c36508);
}
else {
x153 = (word) 0;
};
if (x153) {
SOURCE(9442, 4)
goto lab←L100055;
};
};
break;
};
};
}
else {
if ((var←c36444 == 1)) {
SOURCE(9469, 10698)
if ((c←v13268 == 92)) {
SOURCE(9487, 10)
i←v12992 = (i←v12992 + 1);
}
else {
SOURCE(9504, 10663)
if ((c←v13268 == 34)) {
SOURCE(9530, 10637)
{
word tc155;
word pd156;
if (( (int)end←v12964 > (int)(i←v12992 + 1))) {
pd156 = (* (( (ptr) (* (( (ptr) gf←c39548)+178)/* var←c35004 */ ))+9) );
tc155 = (word) ((word) ( *( (fPt) ((* (ptr) pd156 ))))(rope←v7356, (i←v12992 + 1), pd156) == 34);
}
else {
tc155 = (word) 0;
};
if (tc155) {
SOURCE(9588, 10)
i←v12992 = (i←v12992 + 1);
}
else {
SOURCE(9607, 16)
state←v13020 = 0;
};
};
};
};
}
else {
SOURCE(9643, 5)
(void) XR←RaiseUnnamedError();
};
};
};
SOURCE(9650, 9)
i←v12992 = (i←v12992 + 1);
};
goto lab←L100056;
lab←L100054: ;
lab←L100055: ;
SOURCE(9670, 10497)
if ((state←v13020 == 1)) {
SOURCE(9699, 10468)
{
word var←c0234;
var←c0234 = (* (( (ptr) gf←c39548)+88) );
(void) XR←RaiseError((word) (( (bPt) gf←c39548)+380)/* var←c33660 */ , (word) &var←c0234);
};
};
SOURCE(9757, 11)
return(i←v12992);
}
static word GetPrivate←P960(cmd←v7556)
word cmd←v7556;
{
word var←c7600;
/* GetPrivate: */
SOURCE(9772, 10395)
SOURCE(9846, 10321)
if ((cmd←v7556 != 0)) {
SOURCE(9864, 87)
{
word pd←v13340;
SOURCE(9866, 45)
pd←v13340 = (word) GetCommandToolData←P2160(cmd←v7556);
SOURCE(9913, 36)
if ((pd←v13340 != 0)) {
SOURCE(9930, 19)
return((* (( (ptr) pd←v13340)+11) ));
};
};
};
SOURCE(9954, 13)
return(0);
}
static void PutMsg←P1020(cmd←v7672, rope←v7700)
word cmd←v7672;
word rope←v7700;
{
register ptr gf←c39580 = (ptr) &globalframe;
word data←v13384;
word private←v13412;
word parentPrivate←v13440;
/* PutMsg: */
SOURCE(9971, 10196)
SOURCE(10024, 47)
data←v13384 = (word) GetCommandToolData←P2160(cmd←v7672);
SOURCE(10073, 45)
private←v13412 = (word) GetPrivate←P960(cmd←v7672);
SOURCE(10120, 68)
parentPrivate←v13440 = (word) GetPrivate←P960((* ((( (ptr) data←v13384)+7)) ));
SOURCE(10190, 9977)
if ( ( ( (rope←v7700 != 0) ? (cmd←v7672 != 0) : 0 ) ? ( (private←v13412 == 0) ? 1 : ((* (( (ptr) private←v13412)+1) ) != rope←v7700) ) : 0 ) ) {
SOURCE(10269, 137)
{
word len←v13508;
SOURCE(10271, 26)
{
word pd157;
pd157 = (* (( (ptr) (* (( (ptr) gf←c39580)+178)/* var←c35004 */ ))+15) );
len←v13508 = (word) ( *( (fPt) ((* (ptr) pd157 ))))(rope←v7700, pd157);
};
SOURCE(10299, 25)
{
word pd158;
pd158 = (* (( (ptr) (* (( (ptr) gf←c39580)+179)/* var←c35036 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd158 ))))((* (( (ptr) cmd←v7672)+2) ), rope←v7700, 0, 2147483647, pd158);
};
SOURCE(10326, 9841)
{
word pd160;
if (( (int)len←v13508 == (int)0)) { goto then0159;};
pd160 = (* (( (ptr) (* (( (ptr) gf←c39580)+178)/* var←c35004 */ ))+9) );
if (((word) ( *( (fPt) ((* (ptr) pd160 ))))(rope←v7700, (len←v13508 - 1), pd160) != 10)) {
then0159: ;
SOURCE(10377, 26)
{
word pd161;
pd161 = (* (( (ptr) (* (( (ptr) gf←c39580)+179)/* var←c35036 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd161 ))))((* (( (ptr) cmd←v7672)+2) ), (* (( (ptr) gf←c39580)+68) ), 0, 2147483647, pd161);
};
};
};
};
};
SOURCE(10409, 58)
if ((parentPrivate←v13440 != 0)) {
SOURCE(10437, 30)
(* (( (ptr) parentPrivate←v13440)+1) ) = rope←v7700;
};
}
static word EnsureWhitespace←P1080(rope←v7760)
word rope←v7760;
{
register ptr gf←c39612 = (ptr) &globalframe;
word var←c7804;
word pre←v13552;
word post←v13580;
/* EnsureWhitespace: */
SOURCE(10473, 9694)
SOURCE(10528, 55)
{
word tc162;
word pd163;
pd163 = (* (( (ptr) (* (( (ptr) gf←c39612)+178)/* var←c35004 */ ))+23) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd163 ))))((* (( (ptr) gf←c39612)+40) ), rope←v7760, 1, pd163))) {
tc162 = (word) 0;
}
else {
tc162 = (word) (* (( (ptr) gf←c39612)+41) );
};
pre←v13552 = tc162;
};
SOURCE(10585, 58)
{
word tc164;
word pd165;
pd165 = (* (( (ptr) (* (( (ptr) gf←c39612)+178)/* var←c35004 */ ))+23) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd165 ))))((* (( (ptr) gf←c39612)+42) ), rope←v7760, 1, pd165))) {
tc164 = (word) 0;
}
else {
tc164 = (word) (* (( (ptr) gf←c39612)+68) );
};
post←v13580 = tc164;
};
SOURCE(10645, 9522)
{
word pd166;
pd166 = (* (( (ptr) (* (( (ptr) gf←c39612)+178)/* var←c35004 */ ))+5) );
return((word) ( *( (fPt) ((* (ptr) pd166 ))))(pre←v13552, rope←v7760, post←v13580, 0, 0, pd166));
};
}
static word RemoveEOL←P1140(rope←v7864)
word rope←v7864;
{
register ptr gf←c39644 = (ptr) &globalframe;
word var←c7908;
/* RemoveEOL: */
SOURCE(10684, 9483)
SOURCE(10732, 9435)
{
word pd167;
pd167 = (* (( (ptr) (* (( (ptr) gf←c39644)+178)/* var←c35004 */ ))+23) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd167 ))))((* (( (ptr) gf←c39644)+42) ), rope←v7864, 1, pd167))) {
SOURCE(10764, 9403)
{
word var←c36604;
{
word pd168;
pd168 = (* (( (ptr) (* (( (ptr) gf←c39644)+178)/* var←c35004 */ ))+15) );
var←c36604 = ((word) ( *( (fPt) ((* (ptr) pd168 ))))(rope←v7864, pd168) - 1);
};
{
word pd169;
pd169 = (* (( (ptr) (* (( (ptr) gf←c39644)+178)/* var←c35004 */ ))+17) );
rope←v7864 = (word) ( *( (fPt) ((* (ptr) pd169 ))))(rope←v7864, 0, var←c36604, pd169);
};
};
};
};
SOURCE(10812, 41)
if ((rope←v7864 == 0)) {
return((* (( (ptr) gf←c39644)+43) ));
}
else {
return(rope←v7864);
};
}
static word DoCommand←P1200(commandLine←v7968, parent←v7996)
word commandLine←v7968;
word parent←v7996;
{
word result←v8040;
word cmd←v13624;
word msg←v13652 = 0;
/* DoCommand: */
SOURCE(10857, 9310)
SOURCE(10857, 9310)
result←v8040 = 0;
SOURCE(10952, 66)
cmd←v13624 = (word) CreateFromStreams←P2340(0, 0, 0, parent←v7996);
SOURCE(11037, 9130)
{
W2 var←c36636;
(void) ExecuteCommand←P1440((word) &var←c36636, cmd←v13624, commandLine←v7968);
msg←v13652 = var←c36636.f1;
result←v8040 = var←c36636.f0;
};
SOURCE(10857, 9310)
return(result←v8040);
}
static void DoCommandRope←P1260(formal←c0269, commandLine←v8112, in←v8140, parent←v8168)
word formal←c0269;
word commandLine←v8112;
word in←v8140;
word parent←v8168;
{
register ptr gf←c39676 = (ptr) &globalframe;
word out←v8212;
word result←v8240;
word outStream←v13696;
word cmd←v13724;
word msg←v13752 = 0;
/* DoCommandRope: */
SOURCE(11103, 9064)
SOURCE(11103, 9064)
out←v8212 = 0;
SOURCE(11103, 9064)
result←v8240 = 0;
SOURCE(11223, 31)
{
word pd170;
pd170 = (* (( (ptr) (* (( (ptr) gf←c39676)+179)/* var←c35036 */ ))+34) );
outStream←v13696 = (word) ( *( (fPt) ((* (ptr) pd170 ))))(0, pd170);
};
SOURCE(11256, 98)
{
word var←c36668;
{
word pd171;
pd171 = (* (( (ptr) (* (( (ptr) gf←c39676)+179)/* var←c35036 */ ))+33) );
var←c36668 = (word) ( *( (fPt) ((* (ptr) pd171 ))))(in←v8140, 0, pd171);
};
cmd←v13724 = (word) CreateFromStreams←P2340(var←c36668, outStream←v13696, 0, parent←v8168);
};
SOURCE(11373, 8794)
{
W2 var←c36700;
(void) ExecuteCommand←P1440((word) &var←c36700, cmd←v13724, commandLine←v8112);
msg←v13752 = var←c36700.f1;
result←v8240 = var←c36700.f0;
};
SOURCE(11436, 8731)
{
word pd172;
pd172 = (* (( (ptr) (* (( (ptr) gf←c39676)+179)/* var←c35036 */ ))+35) );
out←v8212 = (word) ( *( (fPt) ((* (ptr) pd172 ))))(outStream←v13696, 1, pd172);
};
/* removed tail goto */
(* (ptr) formal←c0269 ) = out←v8212;
(* (( (ptr) formal←c0269)+1) ) = result←v8240;
return;
}
static word ProcessPropsDiffer←P1320(cmd←v8312)
word cmd←v8312;
{
W7 var←c39708;
register ptr gf←c39740 = (ptr) &globalframe;
word var←c8356;
/* declaration of var←c36732 skipped */
/* declaration of differ←v13796 skipped */
/* ProcessPropsDiffer: */
SOURCE(11472, 8695)
{
word tmpAddr173;
tmpAddr173 = (word) (( (ptr) &var←c39708)+4)/* var←c36732 */ ;
(* (ptr) tmpAddr173 ) = ( ((word) (fPt) Do←P3864) );
(* (( (ptr) tmpAddr173) + 1) ) = 1;
};
SOURCE(11546, 24)
var←c39708.f6/* differ←v13796 */ = 0;
SOURCE(11712, 25)
(void) Do←P3864((* (( (ptr) gf←c39740)+44) ), cmd←v8312, (word) (( (bPt) &var←c39708)+16)/* var←c36732 */ );
SOURCE(11739, 18)
(void) Do←P3864((* (( (ptr) gf←c39740)+45) ), (* (ptr) cmd←v8312 ), (word) (( (bPt) &var←c39708)+16)/* var←c36732 */ );
SOURCE(11759, 20)
(void) Do←P3864((* (( (ptr) gf←c39740)+46) ), (* (( (ptr) cmd←v8312)+1) ), (word) (( (bPt) &var←c39708)+16)/* var←c36732 */ )
;
SOURCE(11781, 20)
(void) Do←P3864((* (( (ptr) gf←c39740)+47) ), (* (( (ptr) cmd←v8312)+2) ), (word) (( (bPt) &var←c39708)+16)/* var←c36732 */ )
;
SOURCE(11803, 16)
return(var←c39708.f6/* differ←v13796 */ );
}
static void Do←P3864(key←v13900, val←v13928, formal←c39804)
word key←v13900;
word val←v13928;
word formal←c39804;
{
register ptr gf←c39772 = (ptr) &globalframe;
formal←c39804 = (formal←c39804 - 16);
/* Do: */
SOURCE(11572, 8595)
SOURCE(11601, 8566)
{
word pd174;
pd174 = (* (( (ptr) (* (( (ptr) gf←c39772)+182)/* var←c35996 */ ))+7) );
if (((word) ( *( (fPt) ((* (ptr) pd174 ))))(key←v13900, pd174) != val←v13928)) {
SOURCE(11641, 8526)
{
word pd175;
pd175 = (* (( (ptr) (* (( (ptr) gf←c39772)+183)/* var←c36092 */ ))+14) );
(* (( (ptr) formal←c39804)+6) ) = (word) ( *( (fPt) ((* (ptr) pd175 ))))((* (( (ptr) formal←c39804)+6) ), key←v13900, val←v13928, pd175)
;
};
};
};
}
static void CommandWithProcessProps←P1380(formal←c0284, formal←c0654)
word formal←c0284;
word formal←c0654;
{
W9 var←c39836;
/* declaration of cmd←v8416 skipped */
register ptr gf←c39868 = (ptr) &globalframe;
/* declaration of result←v8460 skipped */
/* declaration of msg←v8488 skipped */
/* declaration of var←c36764 skipped */
word commandToolData←v13968;
word differ←v13996;
(* (( (ptr) &var←c39836)+4)/* cmd←v8416 */ ) = formal←c0654;
/* CommandWithProcessProps: */
SOURCE(11823, 8344)
{
word tmpAddr176;
tmpAddr176 = (word) (( (ptr) &var←c39836)+7)/* var←c36764 */ ;
(* (ptr) tmpAddr176 ) = ( ((word) (fPt) Inner←P3972) );
(* (( (ptr) tmpAddr176) + 1) ) = 1;
};
SOURCE(11823, 8344)
(* (( (ptr) &var←c39836)+5)/* result←v8460 */ ) = 0;
SOURCE(11823, 8344)
(* (( (ptr) &var←c39836)+6)/* msg←v8488 */ ) = 0;
SOURCE(11914, 58)
commandToolData←v13968 = (word) GetCommandToolData←P2160((* ((( (ptr) &var←c39836)+4)/* cmd←v8416 */ ) ));
SOURCE(11974, 44)
differ←v13996 = (word) ProcessPropsDiffer←P1320((* ((( (ptr) &var←c39836)+4)/* cmd←v8416 */ ) ));
SOURCE(12020, 159)
if ((commandToolData←v13968 == 0) || *((int*)commandToolData←v13968 + 6)<0) {
SOURCE(12079, 28)
{
word pd177;
pd177 = (* (( (ptr) (* (( (ptr) gf←c39868)+179)/* var←c35036 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd177 ))))((* (( (ptr) (* (( (ptr) &var←c39836)+4)/* cmd←v8416 */ ))+2) ), (* (( (ptr) gf←c39868)+48)
), 0, 2147483647, pd177);
};
SOURCE(12109, 32)
{
word pd178;
pd178 = (* (( (ptr) (* (( (ptr) gf←c39868)+179)/* var←c35036 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd178 ))))((* (( (ptr) (* (( (ptr) &var←c39836)+4)/* cmd←v8416 */ ))+2) ), (* (( (ptr) (* (
( (ptr) &var←c39836)+4)/* cmd←v8416 */ ))+3) ), 0, 2147483647, pd178);
};
SOURCE(12143, 36)
{
word pd179;
pd179 = (* (( (ptr) (* (( (ptr) gf←c39868)+179)/* var←c35036 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd179 ))))((* (( (ptr) (* (( (ptr) &var←c39836)+4)/* cmd←v8416 */ ))+2) ), (* (( (ptr) (* (
( (ptr) &var←c39836)+4)/* cmd←v8416 */ ))+4) ), 0, 2147483647, pd179);
};
};
SOURCE(12184, 7983)
if ((differ←v13996 == 0)) {
SOURCE(12207, 7960)
{
W2 var←c36796;
{
word pd180;
pd180 = (* (ptr) (* (( (ptr) (* (( (ptr) &var←c39836)+4)/* cmd←v8416 */ ))+5) ) );
(void) ( *( (fPt) ((* (ptr) pd180 ))))((word) &var←c36796, (* (( (ptr) &var←c39836)+4)/* cmd←v8416 */ ), pd180);
};
(* (( (ptr) &var←c39836)+6)/* msg←v8488 */ ) = var←c36796.f1;
(* (( (ptr) &var←c39836)+5)/* result←v8460 */ ) = var←c36796.f0;
};
}
else {
SOURCE(12266, 131)
SOURCE(12339, 56)
{
word pd181;
pd181 = (* (( (ptr) (* (( (ptr) gf←c39868)+182)/* var←c35996 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd181 ))))(differ←v13996, (word) (( (bPt) &var←c39836)+28)/* var←c36764 */ , pd181);
};
};
/* removed tail goto */
(* (ptr) formal←c0284 ) = (* (( (ptr) &var←c39836)+5)/* result←v8460 */ );
(* (( (ptr) formal←c0284)+1) ) = (* (( (ptr) &var←c39836)+6)/* msg←v8488 */ );
return;
}
static void Inner←P3972(formal←c39900)
word formal←c39900;
{
formal←c39900 = (formal←c39900 - 28);
/* Inner: */
SOURCE(12268, 14)
SOURCE(12284, 7883)
{
W2 var←c36828;
{
word pd182;
pd182 = (* (ptr) (* (( (ptr) (* (( (ptr) formal←c39900)+4) ))+5) ) );
(void) ( *( (fPt) ((* (ptr) pd182 ))))((word) &var←c36828, (* (( (ptr) formal←c39900)+4) ), pd182);
};
(* (( (ptr) formal←c39900)+6) ) = var←c36828.f1;
(* (( (ptr) formal←c39900)+5) ) = var←c36828.f0;
};
}
static void ExecuteCommand←P1440(formal←c0293, formal←c0655, wholeCommandLine←v8588)
word formal←c0293;
word formal←c0655;
word wholeCommandLine←v8588;
{
W8 var←c39932;
/* declaration of cmd←v8560 skipped */
register ptr gf←c39964 = (ptr) &globalframe;
/* declaration of result←v8632 skipped */
/* declaration of msg←v8660 skipped */
/* declaration of residual←v14100 skipped */
word data←v14128;
var←c39932.f4/* cmd←v8560 */ = formal←c0655;
/* ExecuteCommand: */
SOURCE(12404, 7763)
SOURCE(12404, 7763)
var←c39932.f5/* result←v8632 */ = 0;
SOURCE(12404, 7763)
var←c39932.f6/* msg←v8660 */ = 0;
SOURCE(12529, 33)
var←c39932.f7/* residual←v14100 */ = wholeCommandLine←v8588;
SOURCE(12564, 47)
data←v14128 = (word) GetCommandToolData←P2160(var←c39932.f4/* cmd←v8560 */ );
SOURCE(12613, 7554)
lab←L100067: ;
if ((var←c39932.f7/* residual←v14100 */ != 0)) {
}
else {
goto lab←L100065;
};
SOURCE(12637, 28)
(* (( (ptr) (* (( (ptr) data←v14128)+11) ))+1) ) = 0;
SOURCE(12667, 7500)
SOURCE(12673, 7494)
{
word var←c013;
{
word var←c0615;
var←c0615 = (word) &var←c39932;
var←c013 = (word) XR←Enable(( ((word) (fPt) NoName←Q5484) ), ( ((word) (fPt) NoName←Q6324) ), var←c0615);
};
if ((var←c013 == 7)) {
goto lab←L100068;
}
else {
if ((var←c013 == 6)) {
goto lab←L100064;
};
};
};
goto lab←L100075;
lab←L100068: ;
SOURCE(13218, 18)
var←c39932.f5/* result←v8632 */ = (* (( (ptr) gf←c39964)+75) );
lab←L100075: ;
SOURCE(13244, 16)
(void) PutMsg←P1020(var←c39932.f4/* cmd←v8560 */ , var←c39932.f6/* msg←v8660 */ );
SOURCE(13262, 29)
(void) PutProp←P720(var←c39932.f4/* cmd←v8560 */ , (* (( (ptr) gf←c39964)+49) ), var←c39932.f5/* result←v8632 */ );
SOURCE(13293, 23)
(void) PutProp←P720(var←c39932.f4/* cmd←v8560 */ , (* (( (ptr) gf←c39964)+50) ), var←c39932.f6/* msg←v8660 */ );
goto lab←L100067;
lab←L100065: ;
/* removed tail goto */
lab←L100064: ;
(* (ptr) formal←c0293 ) = var←c39932.f5/* result←v8632 */ ;
(* (( (ptr) formal←c0293)+1) ) = var←c39932.f6/* msg←v8660 */ ;
return;
}
static word NoName←Q5484(formal←c0566)
word formal←c0566;
{
W8 var←c0638;
register ptr gf←c0565 = (ptr) &globalframe;
var←c0638.f0 = formal←c0566;
SOURCE(12729, 21)
{
word line←v14172;
word commandLineIndex←v14200 = 0;
word command←v14228 = 0;
SOURCE(12729, 21)
line←v14172 = (* (( (ptr) formal←c0566)+7) );
SOURCE(12800, 188)
{
/* declaration of cmds←v14272 skipped */
SOURCE(12802, 33)
var←c0638.f4/* cmds←v14272 */ = (word) ObtainRIS←P60(line←v14172);
SOURCE(12837, 7330)
{
/* declaration of var←c010 skipped */
/* declaration of var←c011 skipped */
SOURCE(12837, 7330)
var←c0638.f5/* var←c010 */ = (* (( (ptr) (* (( (ptr) gf←c0565)+179)/* var←c35036 */ ))+89) );
{
word var←c012;
{
word var←c0616;
var←c0616 = (word) &var←c0638;
var←c012 = (word) XR←Enable(( ((word) (fPt) NoName←Q5544) ), ( ((word) (fPt) NoName←Q6384) ), var←c0616);
};
if ((var←c012 == 5)) {
goto lab←L100072;
};
};
command←v14228 = (* (W2Pt) (( (ptr) &var←c0638)+6)/* var←c011 */ ).f0;
lab←L100072: ;
};
SOURCE(12920, 7247)
{
word pd183;
pd183 = (* (( (ptr) (* (( (ptr) gf←c0565)+179)/* var←c35036 */ ))+29) );
commandLineIndex←v14200 = (word) ( *( (fPt) ((* (ptr) pd183 ))))(var←c0638.f4/* cmds←v14272 */ , pd183);
};
SOURCE(12958, 16)
(void) ReleaseRIS←P120(var←c0638.f4/* cmds←v14272 */ );
SOURCE(12976, 10)
var←c0638.f4/* cmds←v14272 */ = 0;
};
SOURCE(12991, 28)
if ((command←v14228 == 0)) {
SOURCE(13013, 6)
return(6);
};
SOURCE(13021, 14)
(* (( (ptr) formal←c0566)+7) ) = 0;
SOURCE(13077, 7090)
(* (( (ptr) formal←c0566)+7) ) = (word) CommandSetup←P1560((* (( (ptr) formal←c0566)+4) ), line←v14172, command←v14228, commandLineIndex←v14200)
;
SOURCE(13140, 7027)
{
W2 var←c36860;
(void) CommandWithProcessProps←P1380((word) &var←c36860, (* (( (ptr) formal←c0566)+4) ));
(* (( (ptr) formal←c0566)+6) ) = var←c36860.f1;
(* (( (ptr) formal←c0566)+5) ) = var←c36860.f0;
};
};
return(0);
}
static word NoName←Q5544(formal←c0568)
word formal←c0568;
{
register ptr gf←c0567 = (ptr) &globalframe;
SOURCE(12837, 7330)
{
word pd184;
pd184 = (* (( (ptr) formal←c0568)+5) );
(void) ( *( (fPt) ((* (ptr) pd184 ))))((word) (( (bPt) formal←c0568)+24), (* (( (ptr) formal←c0568)+4) ), (word) (( (bPt) gf←c0567)+680)
/* var←c34876 */ , pd184);
};
return(0);
}
static void DoLookup←P1500(formal←c0656, formal←c0657)
word formal←c0656;
word formal←c0657;
{
W8 var←c39996;
/* declaration of cmd←v8732 skipped */
/* declaration of command←v8760 skipped */
register ptr gf←c40028 = (ptr) &globalframe;
word unabbreviated←v14316;
var←c39996.f4/* cmd←v8732 */ = formal←c0656;
var←c39996.f5/* command←v8760 */ = formal←c0657;
/* DoLookup: */
SOURCE(13330, 6837)
SOURCE(13388, 29)
unabbreviated←v14316 = var←c39996.f5/* command←v8760 */ ;
SOURCE(13419, 6748)
{
word pd185;
pd185 = (* (( (ptr) (* (( (ptr) gf←c40028)+187)/* var←c36892 */ ))+6) );
(* (( (ptr) var←c39996.f4/* cmd←v8732 */ )+5) ) = (word) ( *( (fPt) ((* (ptr) pd185 ))))(var←c39996.f5/* command←v8760 */ , pd185)
;
};
SOURCE(13461, 6706)
if (((* (( (ptr) var←c39996.f4/* cmd←v8732 */ )+5) ) == 0)) {
SOURCE(13488, 449)
{
word result←v14360 = 0;
SOURCE(13509, 6658)
{
W2 var←c36956;
{
/* declaration of var←c014 skipped */
{
word var←c0617;
var←c0617 = (word) &var←c39996;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q5604) ), ( ((word) (fPt) NoName←Q6264) ), var←c0617);
};
var←c36956 = (* (W2Pt) (( (ptr) &var←c39996)+6)/* var←c014 */ );
};
result←v14360 = var←c36956.f0;
};
SOURCE(13692, 58)
{
word var←c36988;
var←c36988 = result←v14360;
if ((var←c36988 == 0)) {
goto lab←L100078;
};
{
word tc186;
if (((* (( (ptr) gf←c40028)+21) ) == XR←GetReferentType(var←c36988))) {
tc186 = (word) ((*(int*)var←c36988<0) == 0);
}
else {
tc186 = (word) 0;
};
if (tc186) {
{
word rope←v14416;
rope←v14416 = var←c36988;
SOURCE(13730, 20)
unabbreviated←v14316 = rope←v14416;
};
}
else {
lab←L100078: ;
};
};
};
SOURCE(13769, 6398)
{
word pd187;
pd187 = (* (( (ptr) (* (( (ptr) gf←c40028)+187)/* var←c36892 */ ))+6) );
(* (( (ptr) var←c39996.f4/* cmd←v8732 */ )+5) ) = (word) ( *( (fPt) ((* (ptr) pd187 ))))(unabbreviated←v14316, pd187);
};
SOURCE(13817, 6350)
if (((* (( (ptr) var←c39996.f4/* cmd←v8732 */ )+5) ) == 0)) {
SOURCE(13846, 6321)
{
word var←c37020;
{
word pd188;
pd188 = (* (( (ptr) (* (( (ptr) gf←c40028)+178)/* var←c35004 */ ))+5) );
var←c37020 = (word) ( *( (fPt) ((* (ptr) pd188 ))))((* (( (ptr) gf←c40028)+54) ), var←c39996.f5/* command←v8760 */ , (* (
( (ptr) gf←c40028)+55) ), unabbreviated←v14316, 0, pd188);
};
{
word var←c0309;
var←c0309 = var←c37020;
(void) XR←RaiseError((word) (( (bPt) gf←c40028)+380)/* var←c33660 */ , (word) &var←c0309);
};
};
};
};
};
SOURCE(13940, 27)
(* (( (ptr) var←c39996.f4/* cmd←v8732 */ )+3) ) = unabbreviated←v14316;
}
static word NoName←Q5604(formal←c0571)
word formal←c0571;
{
register ptr gf←c0570 = (ptr) &globalframe;
SOURCE(13509, 6658)
(void) ExecuteBasicCommand←P1620((word) (( (bPt) formal←c0571)+24), (* (( (ptr) formal←c0571)+4) ), (* (( (ptr) gf←c0570)+51)
), (* (( (ptr) formal←c0571)+5) ));
return(0);
}
static word CommandSetup←P1560(formal←c0658, formal←c0659, command←v8876, commandLineIndex←v8904)
word formal←c0658;
word formal←c0659;
word command←v8876;
word commandLineIndex←v8904;
{
W13 var←c40060;
/* declaration of cmd←v8820 skipped */
/* declaration of wholeCommandLine←v8848 skipped */
register ptr gf←c40092 = (ptr) &globalframe;
word residual←v8948;
/* declaration of var←c37052 skipped */
(* (( (ptr) &var←c40060)+4)/* cmd←v8820 */ ) = formal←c0658;
(* (( (ptr) &var←c40060)+5)/* wholeCommandLine←v8848 */ ) = formal←c0659;
/* CommandSetup: */
SOURCE(13973, 6194)
{
word tmpAddr189;
tmpAddr189 = (word) (( (ptr) &var←c40060)+6)/* var←c37052 */ ;
(* (ptr) tmpAddr189 ) = ( ((word) (fPt) NoteRedirection←P4272) );
(* (( (ptr) tmpAddr189) + 1) ) = 1;
};
SOURCE(13973, 6194)
residual←v8948 = 0;
SOURCE(14107, 22)
(void) DoLookup←P1500((* (( (ptr) &var←c40060)+4)/* cmd←v8820 */ ), command←v8876);
SOURCE(14131, 6036)
if ((0 == (* (( (ptr) (* (( (ptr) (* (( (ptr) &var←c40060)+4)/* cmd←v8820 */ ))+5) ))+3) ))) {
SOURCE(14170, 5997)
{
word var←c37084;
{
word pd190;
pd190 = (* (( (ptr) (* (( (ptr) gf←c40092)+178)/* var←c35004 */ ))+17) );
var←c37084 = (word) ( *( (fPt) ((* (ptr) pd190 ))))((* (( (ptr) &var←c40060)+5)/* wholeCommandLine←v8848 */ ), commandLineIndex←v8904, 2147483647, pd190)
;
};
(* (( (ptr) (* (( (ptr) &var←c40060)+4)/* cmd←v8820 */ ))+4) ) = (word) EnsureWhitespace←P1080(var←c37084);
};
}
else {
SOURCE(14274, 2221)
{
/* declaration of redirectFrom←v14460 skipped */
/* declaration of redirectTo←v14488 skipped */
/* declaration of append←v14516 skipped */
/* declaration of skip←v14544 skipped */
/* declaration of length←v14600 skipped */
word break←v14628 = (word) -1;
word pipe←v14656 = 0;
SOURCE(14276, 24)
(* (( (ptr) &var←c40060)+8)/* redirectFrom←v14460 */ ) = 0;
SOURCE(14302, 22)
(* (( (ptr) &var←c40060)+9)/* redirectTo←v14488 */ ) = 0;
SOURCE(14326, 20)
(* (( (ptr) &var←c40060)+10)/* append←v14516 */ ) = 0;
SOURCE(14348, 13)
(* (( (ptr) &var←c40060)+11)/* skip←v14544 */ ) = 0;
SOURCE(15271, 41)
{
word pd191;
pd191 = (* (( (ptr) (* (( (ptr) gf←c40092)+178)/* var←c35004 */ ))+15) );
(* (( (ptr) &var←c40060)+12)/* length←v14600 */ ) = (word) ( *( (fPt) ((* (ptr) pd191 ))))((* ((( (ptr) &var←c40060)+5)
/* wholeCommandLine←v8848 */ ) ), pd191);
};
SOURCE(15351, 4816)
{
register word cur←v14788;
cur←v14788 = commandLineIndex←v8904;
lab←L100082: ;
if (( (int)cur←v14788 < (int)(* (( (ptr) &var←c40060)+12)/* length←v14600 */ ))) {
}
else {
goto lab←L100079;
};
SOURCE(15460, 8)
(* (( (ptr) &var←c40060)+11)/* skip←v14544 */ ) = 0;
SOURCE(15470, 4697)
{
word var←c37116;
{
word pd192;
pd192 = (* (( (ptr) (* (( (ptr) gf←c40092)+178)/* var←c35004 */ ))+9) );
var←c37116 = (word) ( *( (fPt) ((* (ptr) pd192 ))))((* (( (ptr) &var←c40060)+5)/* wholeCommandLine←v8848 */ ), cur←v14788, pd192)
;
};
switch (var←c37116) {
case 59:
SOURCE(15524, 11)
break←v14628 = cur←v14788;
SOURCE(15537, 5)
goto lab←L100080;
case 124:
SOURCE(15553, 11)
break←v14628 = cur←v14788;
SOURCE(15566, 11)
pipe←v14656 = 1;
SOURCE(15579, 4588)
if (((* (( (ptr) &var←c40060)+9)/* redirectTo←v14488 */ ) != 0)) {
SOURCE(15604, 4563)
{
word var←c0327;
var←c0327 = (* (( (ptr) gf←c40092)+56) );
(void) XR←RaiseError((word) (( (bPt) gf←c40092)+380)/* var←c33660 */ , (word) &var←c0327);
};
};
SOURCE(15656, 4)
goto lab←L100080;
case 60:
SOURCE(15673, 36)
(void) NoteRedirection←P4272(cur←v14788, 1, (word) (( (bPt) &var←c40060)+24)/* var←c37052 */ );
break;
case 62:
SOURCE(15720, 37)
(void) NoteRedirection←P4272(cur←v14788, 0, (word) (( (bPt) &var←c40060)+24)/* var←c37052 */ );
break;
default:
SOURCE(15773, 9)
(* (( (ptr) &var←c40060)+11)/* skip←v14544 */ ) = 1;
break;
};
};
cur←v14788 = (word) FindTerminator←P900((* (( (ptr) &var←c40060)+5)/* wholeCommandLine←v8848 */ ), 0, (* (( (ptr) gf←c40092)+57)
), (cur←v14788 + (* (( (ptr) &var←c40060)+11)/* skip←v14544 */ )));
goto lab←L100082;
lab←L100079: ;
lab←L100080: ;
};
SOURCE(15817, 32)
if (( (int)break←v14628 < (int)0)) {
SOURCE(15835, 14)
break←v14628 = (* (( (ptr) &var←c40060)+12)/* length←v14600 */ );
};
SOURCE(15851, 4316)
if (( (int)break←v14628 < (int)(* (( (ptr) &var←c40060)+12)/* length←v14600 */ ))) {
SOURCE(15874, 4293)
{
word pd193;
pd193 = (* (( (ptr) (* (( (ptr) gf←c40092)+178)/* var←c35004 */ ))+17) );
residual←v8948 = (word) ( *( (fPt) ((* (ptr) pd193 ))))((* (( (ptr) &var←c40060)+5)/* wholeCommandLine←v8848 */ ), break←v14628, 2147483647, pd193)
;
};
};
SOURCE(15936, 4231)
if (((0 != pipe←v14656) || ((* (( (ptr) &var←c40060)+9)/* redirectTo←v14488 */ ) != 0)) || ((* (( (ptr) &var←c40060)+8)/* redirectFrom←v14460 */ ) != 0)) {
SOURCE(15993, 27)
(void) DoLookup←P1500((* (( (ptr) &var←c40060)+4)/* cmd←v8820 */ ), (* (( (ptr) gf←c40092)+58) ));
SOURCE(16022, 4145)
{
word var←c37148;
word var←c37180;
word var←c37212;
{
word pd194;
if (((* (( (ptr) &var←c40060)+8)/* redirectFrom←v14460 */ ) != 0)) {
pd194 = (* (( (ptr) (* (( (ptr) gf←c40092)+178)/* var←c35004 */ ))+6) );
var←c37148 = (word) ( *( (fPt) ((* (ptr) pd194 ))))((* (( (ptr) gf←c40092)+59) ), (* (( (ptr) &var←c40060)+8)/* redirectFrom←v14460 */ ), pd194)
;
}
else {
var←c37148 = 0;
};
};
{
word pd195;
if (((* (( (ptr) &var←c40060)+9)/* redirectTo←v14488 */ ) != 0)) {
pd195 = (* (( (ptr) (* (( (ptr) gf←c40092)+178)/* var←c35004 */ ))+6) );
var←c37180 = (word) ( *( (fPt) ((* (ptr) pd195 ))))( ( (0 != (* (( (ptr) &var←c40060)+10)/* append←v14516 */ )) ? (* (( (ptr) gf←c40092)+60)
) : (* (( (ptr) gf←c40092)+61) ) ) , (* (( (ptr) &var←c40060)+9)/* redirectTo←v14488 */ ), pd195);
}
else {
var←c37180 = 0;
};
};
{
word var←c37244;
{
word pd196;
pd196 = (* (( (ptr) (* (( (ptr) gf←c40092)+178)/* var←c35004 */ ))+17) );
var←c37244 = (word) ( *( (fPt) ((* (ptr) pd196 ))))((* (( (ptr) &var←c40060)+5)/* wholeCommandLine←v8848 */ ), 0, break←v14628, pd196)
;
};
var←c37212 = (word) EnsureWhitespace←P1080(var←c37244);
};
{
word pd197;
pd197 = (* (( (ptr) (* (( (ptr) gf←c40092)+178)/* var←c35004 */ ))+5) );
(* (( (ptr) (* (( (ptr) &var←c40060)+4)/* cmd←v8820 */ ))+4) ) = (word) ( *( (fPt) ((* (ptr) pd197 ))))(var←c37148, var←c37180, ( (0 != pipe←v14656) ? (* (
( (ptr) gf←c40092)+62) ) : 0 ) , var←c37212, 0, pd197);
};
};
}
else {
SOURCE(16343, 3824)
{
word var←c37276;
{
word var←c37308;
{
word pd198;
pd198 = (* (( (ptr) (* (( (ptr) gf←c40092)+178)/* var←c35004 */ ))+17) );
var←c37308 = (word) ( *( (fPt) ((* (ptr) pd198 ))))((* (( (ptr) &var←c40060)+5)/* wholeCommandLine←v8848 */ ), commandLineIndex←v8904, (break←v14628 - commandLineIndex←v8904), pd198)
;
};
var←c37276 = (word) EnsureWhitespace←P1080(var←c37308);
};
(* (( (ptr) (* (( (ptr) &var←c40060)+4)/* cmd←v8820 */ ))+4) ) = (word) DoSubstitutions←P840((* (( (ptr) &var←c40060)+4)
/* cmd←v8820 */ ), var←c37276);
};
};
};
};
SOURCE(13973, 6194)
return(residual←v8948);
}
static void NoteRedirection←P4272(pos←v14732, in←v14760, formal←c40156)
word pos←v14732;
word in←v14760;
word formal←c40156;
{
register ptr gf←c40124 = (ptr) &globalframe;
formal←c40156 = (formal←c40156 - 24);
/* NoteRedirection: */
SOURCE(14363, 23)
SOURCE(14410, 5757)
{
word var←c37340;
{
word pd199;
pd199 = (* (( (ptr) (* (( (ptr) gf←c40124)+178)/* var←c35004 */ ))+9) );
var←c37340 = (word) ( *( (fPt) ((* (ptr) pd199 ))))((* (( (ptr) formal←c40156)+5) ), (pos←v14732 - 1), pd199);
};
if ((var←c37340 == 32) || (var←c37340 == 9)) {
SOURCE(14469, 716)
{
word ris←v14832;
word fName←v14860 = 0;
W3 var←c0342;
SOURCE(14471, 44)
ris←v14832 = (word) ObtainRIS←P60((* ((( (ptr) formal←c40156)+5)) ));
SOURCE(14530, 5637)
if ( ( (0 != in←v14760) ? ((* (( (ptr) formal←c40156)+8) ) != 0) : 0 ) ) {
SOURCE(14564, 5603)
{
word var←c0339;
var←c0339 = (* (( (ptr) gf←c40124)+63) );
(void) XR←RaiseError((word) (( (bPt) gf←c40124)+380)/* var←c33660 */ , (word) &var←c0339);
};
};
SOURCE(14615, 5552)
if ( ( (0 == in←v14760) ? ((* (( (ptr) formal←c40156)+9) ) != 0) : 0 ) ) {
SOURCE(14651, 5516)
{
word var←c0340;
var←c0340 = (* (( (ptr) gf←c40124)+56) );
(void) XR←RaiseError((word) (( (bPt) gf←c40124)+380)/* var←c33660 */ , (word) &var←c0340);
};
};
SOURCE(14703, 25)
{
word pd200;
pd200 = (* (( (ptr) (* (( (ptr) gf←c40124)+179)/* var←c35036 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd200 ))))(ris←v14832, (pos←v14732 + 1), pd200);
};
SOURCE(14730, 5437)
{
word tc201;
word tc202;
word pd203;
word pd204;
if ((0 == in←v14760)) {
pd203 = (* (( (ptr) (* (( (ptr) gf←c40124)+179)/* var←c35036 */ ))+15) );
tc202 = (word) (0 == (word) ( *( (fPt) ((* (ptr) pd203 ))))(ris←v14832, pd203));
}
else {
tc202 = (word) 0;
};
if (tc202) {
pd204 = (* (( (ptr) (* (( (ptr) gf←c40124)+179)/* var←c35036 */ ))+19) );
tc201 = (word) ((word) ( *( (fPt) ((* (ptr) pd204 ))))(ris←v14832, pd204) == 62);
}
else {
tc201 = (word) 0;
};
if (tc201) {
SOURCE(14795, 13)
(* (( (ptr) formal←c40156)+10) ) = 1;
SOURCE(14810, 5357)
{
word var←c37372;
word pd205;
pd205 = (* (( (ptr) (* (( (ptr) gf←c40124)+179)/* var←c35036 */ ))+11) );
var←c37372 = (word) ( *( (fPt) ((* (ptr) pd205 ))))(ris←v14832, pd205);
};
};
};
SOURCE(14835, 5332)
(void) GetCmdToken←P240((word) &var←c0342, ris←v14832);
fName←v14860 = var←c0342.f1;
SOURCE(14869, 5298)
if ((fName←v14860 == 0)) {
SOURCE(14889, 5278)
{
word var←c0343;
var←c0343 = (* (( (ptr) gf←c40124)+64) );
(void) XR←RaiseError((word) (( (bPt) gf←c40124)+380)/* var←c33660 */ , (word) &var←c0343);
};
};
SOURCE(14940, 5227)
fName←v14860 = (word) DoSubstitutions←P840((* (( (ptr) formal←c40156)+4) ), fName←v14860);
SOURCE(14977, 55)
if ((0 != in←v14760)) {
SOURCE(14988, 26)
(* (( (ptr) formal←c40156)+8) ) = fName←v14860;
}
else {
SOURCE(15014, 18)
(* (( (ptr) formal←c40156)+9) ) = fName←v14860;
};
SOURCE(15034, 5133)
{
word var←c37404;
{
word pd206;
pd206 = (* (( (ptr) (* (( (ptr) gf←c40124)+179)/* var←c35036 */ ))+29) );
var←c37404 = ((word) ( *( (fPt) ((* (ptr) pd206 ))))(ris←v14832, pd206) - pos←v14732);
};
{
word pd207;
pd207 = (* (( (ptr) (* (( (ptr) gf←c40124)+178)/* var←c35004 */ ))+16) );
(* (( (ptr) formal←c40156)+5) ) = (word) ( *( (fPt) ((* (ptr) pd207 ))))((* (( (ptr) formal←c40156)+5) ), pos←v14732, var←c37404, 0, pd207)
;
};
};
SOURCE(15130, 5037)
{
word pd208;
pd208 = (* (( (ptr) (* (( (ptr) gf←c40124)+178)/* var←c35004 */ ))+15) );
(* (( (ptr) formal←c40156)+12) ) = (word) ( *( (fPt) ((* (ptr) pd208 ))))((* ((( (ptr) formal←c40156)+5)) ), pd208);
};
SOURCE(15168, 15)
(void) ReleaseRIS←P120(ris←v14832);
};
}
else {
SOURCE(15201, 9)
(* (( (ptr) formal←c40156)+11) ) = 1;
};
};
}
static void ExecuteBasicCommand←P1620(formal←c0355, cmd←v9008, command←v9036, commandLine←v9064)
word formal←c0355;
word cmd←v9008;
word command←v9036;
word commandLine←v9064;
{
register ptr gf←c40188 = (ptr) &globalframe;
word result←v9108;
word msg←v9136;
/* ExecuteBasicCommand: */
SOURCE(16502, 3665)
SOURCE(16502, 3665)
result←v9108 = 0;
SOURCE(16502, 3665)
msg←v9136 = 0;
SOURCE(16617, 21)
(* (( (ptr) cmd←v9008)+3) ) = command←v9036;
SOURCE(16640, 3527)
(* (( (ptr) cmd←v9008)+4) ) = (word) EnsureWhitespace←P1080(commandLine←v9064);
SOURCE(16689, 3478)
{
word pd209;
pd209 = (* (( (ptr) (* (( (ptr) gf←c40188)+187)/* var←c36892 */ ))+6) );
(* (( (ptr) cmd←v9008)+5) ) = (word) ( *( (fPt) ((* (ptr) pd209 ))))(command←v9036, pd209);
};
SOURCE(16731, 3436)
if (((* (( (ptr) cmd←v9008)+5) ) == 0)) {
SOURCE(16760, 3407)
{
word var←c37436;
{
word pd210;
pd210 = (* (( (ptr) (* (( (ptr) gf←c40188)+178)/* var←c35004 */ ))+6) );
var←c37436 = (word) ( *( (fPt) ((* (ptr) pd210 ))))((* (( (ptr) gf←c40188)+65) ), command←v9036, pd210);
};
{
word var←c0351;
var←c0351 = var←c37436;
(void) XR←RaiseError((word) (( (bPt) gf←c40188)+380)/* var←c33660 */ , (word) &var←c0351);
};
};
};
SOURCE(16820, 3347)
{
W2 var←c37468;
(void) CommandWithProcessProps←P1380((word) &var←c37468, cmd←v9008);
msg←v9136 = var←c37468.f1;
result←v9108 = var←c37468.f0;
};
SOURCE(16879, 3288)
if ((result←v9108 == (* (( (ptr) gf←c40188)+75) ))) {
SOURCE(16905, 3262)
{
word var←c0354;
var←c0354 = msg←v9136;
(void) XR←RaiseError((word) (( (bPt) gf←c40188)+380)/* var←c33660 */ , (word) &var←c0354);
};
};
/* removed tail goto */
(* (ptr) formal←c0355 ) = result←v9108;
(* (( (ptr) formal←c0355)+1) ) = msg←v9136;
return;
}
static void PutItalics←P1680(stream←v9208, rope←v9236)
word stream←v9208;
word rope←v9236;
{
register ptr gf←c40220 = (ptr) &globalframe;
/* PutItalics: */
SOURCE(16977, 3190)
SOURCE(17030, 3137)
{
W2 var←c37500;
W2 var←c37532;
W2 var←c37564;
var←c37500.f0 = 11;
var←c37500.f1 = (* (( (ptr) gf←c40220)+92) );
var←c37532.f0 = 11;
var←c37532.f1 = rope←v9236;
var←c37564.f0 = 11;
var←c37564.f1 = (* (( (ptr) gf←c40220)+67) );
{
word pd211;
pd211 = (* (( (ptr) (* (( (ptr) gf←c40220)+179)/* var←c35036 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd211 ))))(stream←v9208, (* (( (ptr) gf←c40220)+66) ), var←c37500, var←c37532, var←c37564, pd211)
;
};
};
}
static void BeforeProcessing←P1740(cmd←v9296, startTime←v9324, commandLine←v9352)
word cmd←v9296;
W2 startTime←v9324;
word commandLine←v9352;
{
register ptr gf←c40252 = (ptr) &globalframe;
word data←v14904;
/* BeforeProcessing: */
SOURCE(17112, 3055)
SOURCE(17212, 47)
data←v14904 = (word) GetCommandToolData←P2160(cmd←v9296);
SOURCE(17261, 84)
if (((* (( (ptr) data←v14904)+8) ) == 0)) {
SOURCE(17287, 58)
(* (( (ptr) data←v14904)+8) ) = XR←NewObject(36, (* (( (ptr) gf←c40252)+39) ));
};
SOURCE(17347, 2820)
{
word var←c37628;
var←c37628 = (* (( (ptr) data←v14904)+8) );
XR←FillWords(&(* (W7Pt) ((( (ptr) var←c37628)+2))), 7, 0);
(* (ptr) var←c37628 ) = ((* (ptr) (* (( (ptr) data←v14904)+8) ) ) + 1);
(* (( (ptr) var←c37628)+1) ) = commandLine←v9352;
(* (( (ptr) var←c37628)+4) ) = startTime←v9324.f0;
(* (( (ptr) var←c37628)+5) ) = (* (ptr) &fc212 );
};
SOURCE(17550, 42)
if (((* (( (ptr) data←v14904)+2) ) != 0)) {
SOURCE(17576, 16)
{
word pd213;
pd213 = (* (( (ptr) data←v14904)+2) );
(void) ( *( (fPt) ((* (ptr) pd213 ))))(cmd←v9296, pd213);
};
};
}
static void AfterProcessing←P1800(cmd←v9412, startTime←v9440, result←v9468, msg←v9496)
word cmd←v9412;
W2 startTime←v9440;
word result←v9468;
word msg←v9496;
{
register ptr gf←c40284 = (ptr) &globalframe;
word data←v14948;
W2 endTime←v14976;
word intSeconds←v15004;
word microseconds←v15032;
word seconds←v15060;
/* AfterProcessing: */
SOURCE(17598, 2569)
SOURCE(17702, 47)
data←v14948 = (word) GetCommandToolData←P2160(cmd←v9412);
SOURCE(17751, 55)
{
word pd214;
pd214 = (* (( (ptr) (* (( (ptr) gf←c40284)+184)/* var←c36124 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd214 ))))((word) (&endTime←v14976), pd214);
};
SOURCE(17808, 72)
{
word pd215;
pd215 = (* (( (ptr) (* (( (ptr) gf←c40284)+188)/* var←c37660 */ ))+16) );
intSeconds←v15004 = (word) ( *( (fPt) ((* (ptr) pd215 ))))(startTime←v9440.f0, endTime←v14976.f0, pd215);
};
SOURCE(17882, 51)
microseconds←v15032 = (endTime←v14976.f1 - startTime←v9440.f1);
SOURCE(17935, 60)
{
word x217;
*(float*)&seconds←v15060 = (float)(int)intSeconds←v15004 + ((float)(int)microseconds←v15032 / (
x217 = (* (ptr) &fc216 ), *(float*)&x217
));
};
SOURCE(17997, 84)
if (((* (( (ptr) data←v14948)+8) ) == 0)) {
SOURCE(18023, 58)
(* (( (ptr) data←v14948)+8) ) = XR←NewObject(36, (* (( (ptr) gf←c40284)+39) ));
};
SOURCE(18083, 27)
(* (( (ptr) (* (( (ptr) data←v14948)+8) ))+2) ) = result←v9468;
SOURCE(18112, 21)
(* (( (ptr) (* (( (ptr) data←v14948)+8) ))+3) ) = msg←v9496;
SOURCE(18135, 29)
(* (( (ptr) (* (( (ptr) data←v14948)+8) ))+5) ) = seconds←v15060;
SOURCE(18166, 42)
(* (( (ptr) (* (( (ptr) data←v14948)+8) ))+8) ) = (* (( (ptr) data←v14948)+10) );
SOURCE(18210, 1957)
if ((* (( (bPt) data←v14948)+24) ) & 040) {
SOURCE(18237, 47)
{
word var←c37724;
var←c37724 = XR←NewObject(40, (* (( (ptr) gf←c40284)+38) ));
(* (W9Pt) var←c37724 ) = (* (W9Pt) (* (( (ptr) data←v14948)+8) ) );
(* (( (ptr) var←c37724)+9) ) = (* (( (ptr) data←v14948)+9) );
(* (( (ptr) data←v14948)+9) ) = var←c37724;
};
SOURCE(18286, 23)
(* (( (ptr) data←v14948)+10) ) = 0;
SOURCE(18311, 1856)
if (((* (( (ptr) data←v14948)+7) ) != 0)) {
SOURCE(18346, 1821)
(* (( (ptr) GetCommandToolData←P2160((* ((( (ptr) data←v14948)+7)) )))+10) ) = (* (( (ptr) data←v14948)+9) );
};
};
SOURCE(18419, 40)
if (((* (( (ptr) data←v14948)+3) ) != 0)) {
SOURCE(18444, 15)
{
word pd218;
pd218 = (* (( (ptr) data←v14948)+3) );
(void) ( *( (fPt) ((* (ptr) pd218 ))))(cmd←v9412, pd218);
};
};
}
static word ReadEvalPrintLoop←P1860(formal←c0660)
word formal←c0660;
{
W13 var←c40316;
/* declaration of cmd←v9568 skipped */
register ptr gf←c40348 = (ptr) &globalframe;
/* declaration of hadFailure←v9612 skipped */
/* declaration of var←c37756 skipped */
/* declaration of var←c37788 skipped */
/* declaration of var←c37820 skipped */
/* declaration of data←v15104 skipped */
word Action←v15216;
word differ←v15244;
(* (( (ptr) &var←c40316)+4)/* cmd←v9568 */ ) = formal←c0660;
/* ReadEvalPrintLoop: */
SOURCE(18465, 2051)
{
word tmpAddr219;
tmpAddr219 = (word) (( (ptr) &var←c40316)+6)/* var←c37756 */ ;
(* (ptr) tmpAddr219 ) = ( ((word) (fPt) REPBase←P4548) );
(* (( (ptr) tmpAddr219) + 1) ) = 1;
};
{
word tmpAddr220;
tmpAddr220 = (word) (( (ptr) &var←c40316)+8)/* var←c37788 */ ;
(* (ptr) tmpAddr220 ) = ( ((word) (fPt) ProcessUNCAUGHT←P4488) );
(* (( (ptr) tmpAddr220) + 1) ) = 1;
};
{
word tmpAddr221;
tmpAddr221 = (word) (( (ptr) &var←c40316)+10)/* var←c37820 */ ;
(* (ptr) tmpAddr221 ) = ( ((word) (fPt) REPLoop←P4428) );
(* (( (ptr) tmpAddr221) + 1) ) = 1;
};
SOURCE(18465, 2051)
(* (( (ptr) &var←c40316)+5)/* hadFailure←v9612 */ ) = 0;
SOURCE(18559, 47)
(* (( (ptr) &var←c40316)+12)/* data←v15104 */ ) = (word) GetCommandToolData←P2160((* ((( (ptr) &var←c40316)+4)/* cmd←v9568 */ ) ))
;
SOURCE(20308, 65)
Action←v15216 = ( (0 != (word) AlreadyProtected←P2100((* ((( (ptr) &var←c40316)+4)/* cmd←v9568 */ ) ))) ? (word) (( (bPt) &var←c40316)+40)
/* var←c37820 */ : (word) (( (bPt) &var←c40316)+24)/* var←c37756 */ ) ;
SOURCE(20375, 44)
differ←v15244 = (word) ProcessPropsDiffer←P1320((* ((( (ptr) &var←c40316)+4)/* cmd←v9568 */ ) ));
SOURCE(20421, 95)
if ((differ←v15244 == 0)) {
SOURCE(20442, 14)
(void) ( *( (fPt) ((* (ptr) Action←v15216 ))))(Action←v15216);
}
else {
SOURCE(20458, 58)
{
word pd222;
pd222 = (* (( (ptr) (* (( (ptr) gf←c40348)+182)/* var←c35996 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd222 ))))(differ←v15244, Action←v15216, pd222);
};
};
SOURCE(18465, 2051)
return((* (( (ptr) &var←c40316)+5)/* hadFailure←v9612 */ ));
}
static void REPLoop←P4428(formal←c40444)
word formal←c40444;
{
W9 var←c40380;
register ptr gf←c40412 = (ptr) &globalframe;
formal←c40444 = (formal←c40444 - 40);
(* (ptr) &var←c40380 ) = formal←c40444;
/* REPLoop: */
SOURCE(18608, 1559)
SOURCE(18626, 1541)
if (((* (( (ptr) (* (( (ptr) formal←c40444)+12) ))+7) ) != 0)) {
SOURCE(18661, 1506)
{
word var←c37852;
var←c37852 = (* (( (ptr) GetCommandToolData←P2160((* ((( (ptr) (* (( (ptr) formal←c40444)+12) ))+7)) )))+10) );
(* (( (ptr) (* (( (ptr) formal←c40444)+12) ))+9) ) = var←c37852;
};
};
SOURCE(18731, 1436)
lab←L100086: ;
SOURCE(18734, 1433)
{
W2 var←c37884;
{
word pd223;
pd223 = (* (( (ptr) (* (( (ptr) gf←c40412)+184)/* var←c36124 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd223 ))))((word) (&var←c37884), pd223);
};
(void) SetProcess←P2040((* (( (ptr) formal←c40444)+4) ), var←c37884);
};
SOURCE(18782, 42)
if (((* (ptr) (* (( (ptr) formal←c40444)+12) ) ) != 0)) {
SOURCE(18808, 16)
{
word pd224;
pd224 = (* (ptr) (* (( (ptr) formal←c40444)+12) ) );
(void) ( *( (fPt) ((* (ptr) pd224 ))))((* ((( (ptr) formal←c40444)+4)) ), pd224);
};
};
SOURCE(18826, 1341)
SOURCE(18832, 17)
{
word result←v15440 = 0;
word msg←v15468 = 0;
word line←v15496;
/* declaration of startTime←v15524 skipped */
SOURCE(18868, 63)
{
/* declaration of var←c015 skipped */
/* declaration of var←c016 skipped */
(* (( (ptr) &var←c40380)+4)/* var←c015 */ ) = (* (ptr) (* (( (ptr) formal←c40444)+4) ) );
(* (( (ptr) &var←c40380)+5)/* var←c016 */ ) = (* (( (ptr) (* (( (ptr) gf←c40412)+179)/* var←c35036 */ ))+91) );
{
/* declaration of var←c017 skipped */
{
word var←c018;
{
word var←c0618;
var←c0618 = (word) &var←c40380;
var←c018 = (word) XR←Enable(( ((word) (fPt) NoName←Q5724) ), ( ((word) (fPt) NoName←Q6204) ), var←c0618);
};
if ((var←c018 == 9)) {
goto lab←L100087;
}
else {
if ((var←c018 == 8)) {
goto lab←L100085;
};
};
};
line←v15496 = (* (( (ptr) &var←c40380)+6)/* var←c017 */ );
};
};
SOURCE(18966, 57)
{
word pd225;
pd225 = (* (( (ptr) (* (( (ptr) gf←c40412)+184)/* var←c36124 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd225 ))))((word) ((( (bPt) &var←c40380)+16)/* startTime←v15524 */ ), pd225);
};
SOURCE(19025, 38)
(void) BeforeProcessing←P1740((* (( (ptr) formal←c40444)+4) ), (* (W2Pt) (( (ptr) &var←c40380)+4)/* startTime←v15524 */ ), line←v15496)
;
SOURCE(19065, 1102)
{
W2 var←c37916;
{
/* declaration of var←c019 skipped */
(* (( (ptr) &var←c40380)+6)/* var←c019 */ ) = (* (( (ptr) (* (( (ptr) (* (( (ptr) formal←c40444)+12) ))+8) ))+1) );
{
/* declaration of var←c020 skipped */
{
word var←c0619;
var←c0619 = (word) &var←c40380;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q5664) ), ( ((word) (fPt) NoName←Q6144) ), var←c0619);
};
var←c37916 = (* (W2Pt) (( (ptr) &var←c40380)+7)/* var←c020 */ );
};
};
msg←v15468 = var←c37916.f1;
result←v15440 = var←c37916.f0;
};
SOURCE(19240, 44)
(void) AfterProcessing←P1800((* (( (ptr) formal←c40444)+4) ), (* (W2Pt) (( (ptr) &var←c40380)+4)/* startTime←v15524 */ ), result←v15440, msg←v15468)
;
SOURCE(19286, 881)
if ((* (( (bPt) (* (( (ptr) formal←c40444)+12) ))+24) ) & 0100) {
SOURCE(19312, 855)
{
W2 var←c37948;
W2 var←c37980;
W2 var←c38012;
var←c37948.f0 = 11;
var←c37948.f1 = (* (( (ptr) gf←c40412)+72) );
var←c37980.f0 = 8;
var←c37980.f1 = (* (( (ptr) (* (( (ptr) (* (( (ptr) formal←c40444)+12) ))+8) ))+5) );
var←c38012.f0 = 11;
var←c38012.f1 = (* (( (ptr) gf←c40412)+67) );
{
word pd226;
pd226 = (* (( (ptr) (* (( (ptr) gf←c40412)+179)/* var←c35036 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd226 ))))((* (( (ptr) (* (( (ptr) formal←c40444)+4) ))+1) ), (* (( (ptr) gf←c40412)+71) ), var←c37948, var←c37980, var←c38012, pd226)
;
};
};
};
SOURCE(19412, 74)
if ((result←v15440 == (* (( (ptr) gf←c40412)+75) ))) {
SOURCE(19440, 17)
(* (( (ptr) formal←c40444)+5) ) = 1;
SOURCE(19459, 27)
if ((0 != ( (((unsigned)(* (( (ptr) (* (( (ptr) formal←c40444)+12) ))+6) ) << 3) >> 3) ))) {
SOURCE(19486, 4)
goto lab←L100085;
};
};
};
goto lab←L100092;
lab←L100087: ;
SOURCE(19513, 32)
(void) PutItalics←P1680((* (( (ptr) (* (( (ptr) formal←c40444)+4) ))+2) ), (* (( (ptr) gf←c40412)+73) ));
SOURCE(19547, 17)
{
word pd227;
pd227 = (* (( (ptr) (* (( (ptr) gf←c40412)+179)/* var←c35036 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd227 ))))((* (ptr) ((* (( (ptr) formal←c40444)+4) )) ), pd227);
};
lab←L100092: ;
goto lab←L100086;
lab←L100085: ;
}
static word NoName←Q5664(formal←c0582)
word formal←c0582;
{
SOURCE(19065, 1102)
(void) ExecuteCommand←P1440((word) (( (bPt) formal←c0582)+28), (* (( (ptr) (* (ptr) formal←c0582 ))+4) ), (* (( (ptr) formal←c0582)+6)
));
return(0);
}
static word NoName←Q5724(formal←c0583)
word formal←c0583;
{
SOURCE(18868, 63)
{
word pd228;
pd228 = (* (( (ptr) formal←c0583)+5) );
(* (( (ptr) formal←c0583)+6) ) = (word) ( *( (fPt) ((* (ptr) pd228 ))))((* ((( (ptr) formal←c0583)+4)) ), pd228);
};
return(0);
}
static word ProcessUNCAUGHT←P4488(sig←v15336, formal←c40476)
word sig←v15336;
word formal←c40476;
{
word reject←v15380;
formal←c40476 = (formal←c40476 - 32);
/* ProcessUNCAUGHT: */
SOURCE(19584, 583)
SOURCE(19645, 522)
lab←L100095: ;
SOURCE(19645, 522)
{
word action←v15580;
word commandLine←v15608 = 0;
SOURCE(19688, 479)
{
W2 var←c38076;
{
word var←c38044;
var←c38044 = (word) AdamOrEve←P1920((* ((( (ptr) formal←c40476)+4)) ));
(void) ErrorPrompt←P2220((word) &var←c38076, var←c38044, sig←v15336);
};
commandLine←v15608 = var←c38076.f1;
action←v15580 = var←c38076.f0;
};
SOURCE(19746, 421)
{
word var←c38108;
var←c38108 = action←v15580;
switch (var←c38108) {
case 0:
SOURCE(19777, 22)
return(0);
case 1:
SOURCE(19811, 21)
return(1);
case 2:
SOURCE(19845, 322)
{
W2 var←c38140;
(void) ExecuteCommand←P1440((word) &var←c38140, (* (( (ptr) formal←c40476)+4) ), commandLine←v15608);
};
break;
default:
SOURCE(19895, 5)
(void) XR←RaiseUnnamedError();
break;
};
};
};
goto lab←L100095;
}
static void REPBase←P4548(formal←c40572)
word formal←c40572;
{
W8 var←c40508;
register ptr gf←c40540 = (ptr) &globalframe;
formal←c40572 = (formal←c40572 - 24);
var←c40508.f0 = formal←c40572;
/* REPBase: */
SOURCE(19914, 389)
SOURCE(19932, 339)
lab←L100098: ;
SOURCE(19932, 339)
{
/* declaration of ok←v15652 skipped */
/* declaration of aborted←v15680 skipped */
SOURCE(19935, 15)
var←c40508.f4/* ok←v15652 */ = 1;
SOURCE(19952, 21)
var←c40508.f5/* aborted←v15680 */ = 0;
SOURCE(19975, 192)
SOURCE(19975, 192)
{
/* declaration of var←c021 skipped */
var←c40508.f6/* var←c021 */ = (* (( (ptr) (* (( (ptr) gf←c40540)+184)/* var←c36124 */ ))+8) );
{
/* declaration of var←c022 skipped */
{
word var←c023;
{
word var←c0620;
var←c0620 = (word) &var←c40508;
var←c023 = (word) XR←Enable(( ((word) (fPt) NoName←Q5784) ), ( ((word) (fPt) NoName←Q6084) ), var←c0620);
};
if ((var←c023 == 10)) {
goto lab←L100100;
};
};
var←c40508.f4/* ok←v15652 */ = var←c40508.f7/* var←c022 */ ;
};
};
lab←L100100: ;
SOURCE(20183, 11)
if ((0 != var←c40508.f4/* ok←v15652 */ )) {
SOURCE(20194, 4)
goto lab←L100097;
};
SOURCE(20200, 71)
if ((0 != var←c40508.f5/* aborted←v15680 */ )) {
SOURCE(20218, 34)
(void) PutItalics←P1680((* (( (ptr) (* (( (ptr) formal←c40572)+4) ))+2) ), (* (( (ptr) gf←c40540)+74) ));
SOURCE(20254, 17)
{
word pd229;
pd229 = (* (( (ptr) (* (( (ptr) gf←c40540)+179)/* var←c35036 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd229 ))))((* (ptr) ((* (( (ptr) formal←c40572)+4) )) ), pd229);
};
};
};
goto lab←L100098;
lab←L100097: ;
SOURCE(20283, 20)
{
W2 var←c0621;
(* (ptr) (word) &var←c0621 ) = 0;
(* (( (ptr) (word) &var←c0621) + 1) ) = 0;
(void) SetProcess←P2040((* (( (ptr) formal←c40572)+4) ), var←c0621);
};
}
static word NoName←Q5784(formal←c0587)
word formal←c0587;
{
SOURCE(19975, 192)
{
word pd230;
pd230 = (* (( (ptr) formal←c0587)+6) );
(* (( (ptr) formal←c0587)+7) ) = (word) ( *( (fPt) ((* (ptr) pd230 ))))((word) (( (bPt) (* (ptr) formal←c0587 ))+40), (word) (
( (bPt) (* (ptr) formal←c0587 ))+32), pd230);
};
return(0);
}
static word AdamOrEve←P1920(cmd←v9672)
word cmd←v9672;
{
word var←c9716;
/* AdamOrEve: */
SOURCE(20522, 237)
SOURCE(20600, 159)
{
register word noName←c38172 = 0;
if ((noName←c38172 > 999)) {
goto lab←L100103;
};
lab←L100106: ;
{
word data←v15724;
SOURCE(20621, 47)
data←v15724 = (word) GetCommandToolData←P2160(cmd←v9672);
SOURCE(20670, 61)
if ((data←v15724 == 0) || ((* (( (ptr) data←v15724)+7) ) == 0)) {
SOURCE(20719, 12)
return(cmd←v9672);
};
SOURCE(20733, 26)
cmd←v9672 = (* (( (ptr) data←v15724)+7) );
};
if ((noName←c38172 >= 999)) {
goto lab←L100103;
};
noName←c38172 = (noName←c38172 + 1);
goto lab←L100106;
lab←L100103: ;
};
SOURCE(20770, 5)
(void) XR←RaiseUnnamedError();
}
static void AbortCommander←P1980(formal←c0661)
word formal←c0661;
{
W5 var←c40604;
/* declaration of cmd←v9776 skipped */
register ptr gf←c40636 = (ptr) &globalframe;
var←c40604.f4/* cmd←v9776 */ = formal←c0661;
/* AbortCommander: */
SOURCE(20815, 242)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c40636)+16)/* LOCK←v3140 */ ));
SOURCE(20877, 180)
{
word var←c0622;
var←c0622 = (word) &var←c40604;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q5844) ), ( ((word) (fPt) NoName←Q6024) ), var←c0622);
};
SOURCE(20815, 242)
(void) (XR←MonitorExit((word) (( (bPt) gf←c40636)+16)/* LOCK←v3140 */ ));
return;
}
static word NoName←Q5844(formal←c0590)
word formal←c0590;
{
register ptr gf←c0589 = (ptr) &globalframe;
SOURCE(20900, 47)
{
word data←v15768;
SOURCE(20900, 47)
data←v15768 = (word) GetCommandToolData←P2160((* ((( (ptr) formal←c0590)+4)) ));
SOURCE(20949, 108)
{
word tc231;
W2 temp232;
if ( ( (data←v15768 != 0) ? ((* (( (ptr) data←v15768)+5) ) != 0) : 0 ) ) {
(* (ptr) &temp232 ) = 0;
(* (( (ptr) &temp232) + 1) ) = 0;
tc231 = (word) ! XR←EqualWords((* (( (ptr) data←v15768)+5) ), &temp232, 2);
}
else {
tc231 = (word) 0;
};
if (tc231) {
SOURCE(21017, 40)
{
word pd233;
pd233 = (* (( (ptr) (* (( (ptr) gf←c0589)+184)/* var←c36124 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd233 ))))((* (W2Pt) ((* (( (ptr) data←v15768)+5) )) ), pd233);
};
};
};
};
return(0);
}
static void SetProcess←P2040(cmd←v9836, process←v9864)
word cmd←v9836;
W2 process←v9864;
{
register ptr gf←c40668 = (ptr) &globalframe;
word data←v15812;
/* SetProcess: */
SOURCE(21066, 193)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c40668)+16)/* LOCK←v3140 */ ));
SOURCE(21142, 47)
data←v15812 = (word) GetCommandToolData←P2160(cmd←v9836);
SOURCE(21191, 68)
if ( ( (data←v15812 != 0) ? ((* (( (ptr) data←v15812)+5) ) != 0) : 0 ) ) {
SOURCE(21235, 24)
(* (W2Pt) (* (( (ptr) data←v15812)+5) ) ) = process←v9864;
};
SOURCE(21066, 193)
(void) (XR←MonitorExit((word) (( (bPt) gf←c40668)+16)/* LOCK←v3140 */ ));
return;
}
static word AlreadyProtected←P2100(cmd←v9940)
word cmd←v9940;
{
register ptr gf←c40700 = (ptr) &globalframe;
word var←c9984;
word data←v15856;
/* AlreadyProtected: */
SOURCE(21266, 216)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c40700)+16)/* LOCK←v3140 */ ));
SOURCE(21341, 47)
data←v15856 = (word) GetCommandToolData←P2160(cmd←v9940);
SOURCE(21390, 92)
{
word var←c38204;
if ( ( (data←v15856 != 0) ? ((* (( (ptr) data←v15856)+5) ) != 0) : 0 ) ) {
{
word var←c0623;
W2 var←c0423;
{
word pd234;
pd234 = (* (( (ptr) (* (( (ptr) gf←c40700)+184)/* var←c36124 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd234 ))))((word) (&var←c0423), pd234);
};
var←c0623 = (var←c0623 & 4294967294) | ((1 & (XR←EqualWords((* (( (ptr) data←v15856)+5) ), &var←c0423, 2))));
var←c38204 = (var←c0623 & 1);
};
}
else {
var←c38204 = 0;
};
(void) (XR←MonitorExit((word) (( (bPt) gf←c40700)+16)/* LOCK←v3140 */ ));
return(var←c38204);
};
}
static word GetCommandToolData←P2160(cmd←v10044)
word cmd←v10044;
{
register ptr gf←c40732 = (ptr) &globalframe;
word var←c10088;
/* GetCommandToolData: */
SOURCE(21488, 184)
SOURCE(21574, 98)
{
word var←c38236;
var←c38236 = (word) GetProp←P780(cmd←v10044, cmd←v10044);
if ((var←c38236 == 0)) {
goto lab←L100109;
};
if (((* (( (ptr) gf←c40732)+37) ) == XR←GetReferentType(var←c38236))) {
{
word data←v15900;
data←v15900 = var←c38236;
SOURCE(21634, 13)
return(data←v15900);
};
}
else {
lab←L100109: ;
SOURCE(21660, 12)
return(0);
};
};
}
static void ErrorPrompt←P2220(formal←c0432, formal←c0662, formal←c0663)
word formal←c0432;
word formal←c0662;
word formal←c0663;
{
W8 var←c40764;
/* declaration of cmd←v10248 skipped */
/* declaration of sig←v10276 skipped */
/* declaration of errorAction←v10320 skipped */
/* declaration of commandLine←v10348 skipped */
var←c40764.f4/* cmd←v10248 */ = formal←c0662;
var←c40764.f5/* sig←v10276 */ = formal←c0663;
/* ErrorPrompt: */
SOURCE(21727, 1305)
SOURCE(21727, 1305)
var←c40764.f6/* errorAction←v10320 */ = 0;
SOURCE(21727, 1305)
var←c40764.f7/* commandLine←v10348 */ = 0;
SOURCE(21853, 1179)
SOURCE(21855, 1131)
{
word var←c024;
{
word var←c0624;
var←c0624 = (word) &var←c40764;
var←c024 = (word) XR←Enable(( ((word) (fPt) NoName←Q5904) ), ( ((word) (fPt) NoName←Q5964) ), var←c0624);
};
if ((var←c024 == 12)) {
goto lab←L100111;
}
else {
if ((var←c024 == 11)) {
goto lab←L100110;
};
};
};
goto lab←L100118;
lab←L100111: ;
SOURCE(23013, 17)
var←c40764.f6/* errorAction←v10320 */ = 0;
var←c40764.f7/* commandLine←v10348 */ = 0;
goto lab←L100110;
lab←L100118: ;
lab←L100110: ;
(* (ptr) formal←c0432 ) = var←c40764.f6/* errorAction←v10320 */ ;
(* (( (ptr) formal←c0432)+1) ) = var←c40764.f7/* commandLine←v10348 */ ;
return;
}
static word NoName←Q5904(formal←c0595)
word formal←c0595;
{
register ptr gf←c0594 = (ptr) &globalframe;
SOURCE(21914, 22)
{
word in←v15944;
word out←v15972;
SOURCE(21914, 22)
in←v15944 = (* (ptr) (* (( (ptr) formal←c0595)+4) ) );
SOURCE(21938, 24)
out←v15972 = (* (( (ptr) (* (( (ptr) formal←c0595)+4) ))+2) );
SOURCE(21964, 51)
{
word pd235;
pd235 = (* (( (ptr) (* (( (ptr) gf←c0594)+179)/* var←c35036 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd235 ))))(out←v15972, (* (( (ptr) gf←c0594)+76) ), 0, 2147483647, pd235);
};
SOURCE(22017, 20)
{
word pd236;
pd236 = (* (( (ptr) (* (( (ptr) gf←c0594)+179)/* var←c35036 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd236 ))))(out←v15972, (* (( (ptr) formal←c0595)+5) ), 0, 2147483647, pd236);
};
SOURCE(22039, 178)
{
word var←c38268;
var←c38268 = (word) GetProp←P780((* (( (ptr) formal←c0595)+4) ), (* (( (ptr) gf←c0594)+77) ));
if ((var←c38268 == 0)) {
goto lab←L100114;
};
{
word tc237;
if (((* (( (ptr) gf←c0594)+21) ) == XR←GetReferentType(var←c38268))) {
tc237 = (word) ((*(int*)var←c38268<0) == 0);
}
else {
tc237 = (word) 0;
};
if (tc237) {
{
word rope←v16016;
rope←v16016 = var←c38268;
{
word pd238;
pd238 = (* (( (ptr) (* (( (ptr) gf←c0594)+178)/* var←c35004 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd238 ))))(rope←v16016, (* (( (ptr) gf←c0594)+78) ), 0, pd238))) {
SOURCE(22151, 17)
(* (( (ptr) formal←c0595)+6) ) = 0;
(* (( (ptr) formal←c0595)+7) ) = 0;
return(11);
}
else {
{
word pd239;
pd239 = (* (( (ptr) (* (( (ptr) gf←c0594)+178)/* var←c35004 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd239 ))))(rope←v16016, (* (( (ptr) gf←c0594)+79) ), 0, pd239))) {
SOURCE(22202, 15)
/*1*/ (* (( (ptr) formal←c0595)+6) ) = 1;
/*1*/ (* (( (ptr) formal←c0595)+7) ) = 0;
/*1*/ return(11);
/*1*/ };
};
};
};
};
}
else {
lab←L100114: ;
};
};
};
SOURCE(22256, 96)
{
word pd240;
pd240 = (* (( (ptr) (* (( (ptr) gf←c0594)+179)/* var←c35036 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd240 ))))(out←v15972, (* (( (ptr) gf←c0594)+80) ), 0, 2147483647, pd240);
};
SOURCE(22354, 13)
{
word pd241;
pd241 = (* (( (ptr) (* (( (ptr) gf←c0594)+179)/* var←c35036 */ ))+25) );
(void) ( *( (fPt) ((* (ptr) pd241 ))))(out←v15972, pd241);
};
SOURCE(22369, 59)
{
word var←c38300;
{
word pd242;
pd242 = (* (( (ptr) (* (( (ptr) gf←c0594)+179)/* var←c35036 */ ))+19) );
var←c38300 = (word) ( *( (fPt) ((* (ptr) pd242 ))))(in←v15944, pd242);
};
if ((var←c38300 == 13) || (var←c38300 == 10)) {
SOURCE(22409, 19)
{
word var←c38332;
word pd243;
pd243 = (* (( (ptr) (* (( (ptr) gf←c0594)+179)/* var←c35036 */ ))+11) );
var←c38332 = (word) ( *( (fPt) ((* (ptr) pd243 ))))(in←v15944, pd243);
};
};
};
SOURCE(22439, 547)
lab←L100117: ;
SOURCE(22439, 547)
{
word line←v16060;
word c←v16088;
SOURCE(22442, 31)
{
word pd244;
pd244 = (* (( (ptr) (* (( (ptr) gf←c0594)+179)/* var←c35036 */ ))+91) );
line←v16060 = (word) ( *( (fPt) ((* (ptr) pd244 ))))(in←v15944, pd244);
};
SOURCE(22475, 64)
{
word tc245;
word pd246;
word pd247;
pd246 = (* (( (ptr) (* (( (ptr) gf←c0594)+178)/* var←c35004 */ ))+13) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd246 ))))(line←v16060, pd246))) {
tc245 = (word) 63;
}
else {
pd247 = (* (( (ptr) (* (( (ptr) gf←c0594)+178)/* var←c35004 */ ))+9) );
tc245 = (word) ( *( (fPt) ((* (ptr) pd247 ))))(line←v16060, 0, pd247);
};
c←v16088 = tc245;
};
SOURCE(22541, 445)
{
word var←c38364;
var←c38364 = c←v16088;
switch (var←c38364) {
case 110: case 78:
SOURCE(22565, 17)
(* (( (ptr) formal←c0595)+6) ) = 0;
(* (( (ptr) formal←c0595)+7) ) = 0;
return(11);
case 121: case 89:
SOURCE(22594, 15)
(* (( (ptr) formal←c0595)+6) ) = 1;
(* (( (ptr) formal←c0595)+7) ) = 0;
return(11);
case 115: case 83:
SOURCE(22621, 65)
{
word var←c38460;
{
word var←c38428;
{
word pd248;
pd248 = (* (( (ptr) (* (( (ptr) gf←c0594)+178)/* var←c35004 */ ))+17) );
var←c38428 = (word) ( *( (fPt) ((* (ptr) pd248 ))))(line←v16060, 1, 2147483647, pd248);
};
{
word pd249;
pd249 = (* (( (ptr) (* (( (ptr) gf←c0594)+178)/* var←c35004 */ ))+6) );
var←c38460 = (word) ( *( (fPt) ((* (ptr) pd249 ))))((* (( (ptr) gf←c0594)+81) ), var←c38428, pd249);
};
};
(* (( (ptr) formal←c0595)+6) ) = 2;
(* (( (ptr) formal←c0595)+7) ) = var←c38460;
return(11);
};
case 33:
SOURCE(22694, 38)
{
word var←c38524;
{
word pd250;
pd250 = (* (( (ptr) (* (( (ptr) gf←c0594)+178)/* var←c35004 */ ))+17) );
var←c38524 = (word) ( *( (fPt) ((* (ptr) pd250 ))))(line←v16060, 1, 2147483647, pd250);
};
(* (( (ptr) formal←c0595)+6) ) = 2;
(* (( (ptr) formal←c0595)+7) ) = var←c38524;
return(11);
};
default:
SOURCE(22745, 241)
{
word pd251;
pd251 = (* (( (ptr) (* (( (ptr) gf←c0594)+179)/* var←c35036 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd251 ))))(out←v15972, (* (( (ptr) gf←c0594)+82) ), 0, 2147483647, pd251);
};
break;
};
};
};
goto lab←L100117;
};
/* c2c skipped dead code */
}
static void DefaultPrompter←P2280(cmd←v10408)
word cmd←v10408;
{
register ptr gf←c40796 = (ptr) &globalframe;
word prompt←v16132;
/* DefaultPrompter: */
SOURCE(23078, 200)
SOURCE(23128, 54)
{
word var←c38556;
var←c38556 = (word) GetProp←P780(cmd←v10408, (* (( (ptr) gf←c40796)+83) ));
if ((var←c38556 == 0)) {
goto lab←L100119;
};
{
word tc252;
if (((* (( (ptr) gf←c40796)+21) ) == XR←GetReferentType(var←c38556))) {
tc252 = (word) ((*(int*)var←c38556<0) == 0);
}
else {
tc252 = (word) 0;
};
if (tc252) {
prompt←v16132 = var←c38556;
}
else {
lab←L100119: ;
prompt←v16132 = (* (( (ptr) gf←c40796)+14)/* defaultPrompt←v4792 */ );
};
};
};
SOURCE(23228, 50)
{
W2 var←c38588;
W2 var←c38620;
W2 var←c0625;
var←c38588.f0 = 11;
var←c38588.f1 = (* (( (ptr) gf←c40796)+84) );
var←c38620.f0 = 11;
var←c38620.f1 = (* (( (ptr) gf←c40796)+85) );
(* (ptr) (word) &var←c0625 ) = 0;
(* (( (ptr) (word) &var←c0625) + 1) ) = 0;
{
word pd253;
pd253 = (* (( (ptr) (* (( (ptr) gf←c40796)+179)/* var←c35036 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd253 ))))((* (( (ptr) cmd←v10408)+2) ), prompt←v16132, var←c38588, var←c38620, var←c0625, pd253)
;
};
};
}
static word CreateFromStreams←P2340(in←v10468, out←v10496, err←v10524, parentCommander←v10552)
word in←v10468;
word out←v10496;
word err←v10524;
word parentCommander←v10552;
{
register ptr gf←c40828 = (ptr) &globalframe;
word cmd←v10596;
word data←v16220;
word init←v16248 = 0;
word oldPropList←v16276 = 0;
/* CreateFromStreams: */
SOURCE(23284, 1212)
SOURCE(23284, 1212)
cmd←v10596 = 0;
SOURCE(23424, 65)
data←v16220 = XR←NewObject(48, (* (( (ptr) gf←c40828)+37) ));
(* (ptr) data←v16220 ) = XR←CheckProc(0);
(* (( (ptr) data←v16220)+1) ) = XR←CheckProc(0);
(* (( (ptr) data←v16220)+2) ) = XR←CheckProc(0);
(* (( (ptr) data←v16220)+3) ) = XR←CheckProc(0);
(* (( (ptr) data←v16220)+4) ) = XR←CheckProc(0);
SOURCE(23567, 34)
(* (( (ptr) data←v16220)+11) ) = XR←NewObject(8, (* (( (ptr) gf←c40828)+15) ));
SOURCE(23603, 34)
cmd←v10596 = XR←NewObject(28, (* (( (ptr) gf←c40828)+28) ));
SOURCE(23639, 520)
if ((parentCommander←v10552 == 0)) {
SOURCE(23671, 29)
(* (ptr) data←v16220 ) = (word) (( (bPt) gf←c40828)+400)/* var←c33756 */ ;
SOURCE(23702, 23)
((P1x2b) (( (bPt) data←v16220) + 24))->f = 1;
}
else {
SOURCE(23734, 427)
{
word p←v16380;
SOURCE(23736, 56)
p←v16380 = (word) GetCommandToolData←P2160(parentCommander←v10552);
SOURCE(23794, 40)
if ((in←v10468 == 0)) {
SOURCE(23811, 23)
in←v10468 = (* (ptr) parentCommander←v10552 );
};
SOURCE(23836, 43)
if ((out←v10496 == 0)) {
SOURCE(23854, 25)
out←v10496 = (* (( (ptr) parentCommander←v10552)+1) );
};
SOURCE(23881, 43)
if ((err←v10524 == 0)) {
SOURCE(23899, 25)
err←v10524 = (* (( (ptr) parentCommander←v10552)+2) );
};
SOURCE(23926, 146)
if ((p←v16380 != 0)) {
SOURCE(23944, 22)
(* (( (ptr) data←v16220)+1) ) = XR←CheckProc(* (( (ptr) p←v16380)+1) );
SOURCE(23968, 24)
((P1x0b) (( (bPt) data←v16220) + 24))->f = (*((int*)p←v16380 + 6)<0);
SOURCE(23994, 18)
init←v16248 = XR←CheckProc(* (( (ptr) p←v16380)+4) );
SOURCE(24014, 24)
(* (( (ptr) data←v16220)+5) ) = (* (( (ptr) p←v16380)+5) );
SOURCE(24040, 32)
((P1x2b) (( (bPt) data←v16220) + 24))->f = (((unsigned)(* (( (bPt) p←v16380)+24) ) << 26) >> 31);
};
SOURCE(24077, 38)
(* (( (ptr) data←v16220)+7) ) = parentCommander←v10552;
SOURCE(24117, 42)
oldPropList←v16276 = (* (( (ptr) parentCommander←v10552)+6) );
};
};
SOURCE(24164, 60)
if (((* (( (ptr) data←v16220)+5) ) == 0)) {
SOURCE(24191, 33)
(* (( (ptr) data←v16220)+5) ) = XR←NewObject(8, (* (( (ptr) gf←c40828)+23) ));
};
SOURCE(24226, 38)
if ((in←v10468 == 0)) {
SOURCE(24243, 21)
in←v10468 = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c40828)+179)/* var←c35036 */ ))+40) ) );
};
SOURCE(24266, 40)
if ((out←v10496 == 0)) {
SOURCE(24284, 22)
out←v10496 = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c40828)+179)/* var←c35036 */ ))+39) ) );
};
SOURCE(24308, 27)
if ((err←v10524 == 0)) {
SOURCE(24326, 9)
err←v10524 = out←v10496;
};
SOURCE(24337, 11)
(* (ptr) cmd←v10596 ) = in←v10468;
SOURCE(24350, 13)
(* (( (ptr) cmd←v10596)+1) ) = out←v10496;
SOURCE(24365, 13)
(* (( (ptr) cmd←v10596)+2) ) = err←v10524;
SOURCE(24380, 86)
{
word var←c38812;
word var←c38876;
{
word var←c38844;
var←c38844 = XR←NewObject(8, (* (( (ptr) gf←c40828)+18) ));
(* (ptr) var←c38844 ) = cmd←v10596;
(* (( (ptr) var←c38844)+1) ) = data←v16220;
var←c38812 = var←c38844;
};
var←c38876 = XR←NewObject(8, (* (( (ptr) gf←c40828)+19) ));
(* (ptr) var←c38876 ) = var←c38812;
(* (( (ptr) var←c38876)+1) ) = oldPropList←v16276;
(* (( (ptr) cmd←v10596)+6) ) = var←c38876;
};
SOURCE(24468, 28)
if ((init←v16248 != 0)) {
SOURCE(24487, 9)
(void) ( *( (fPt) ((* (ptr) init←v16248 ))))(cmd←v10596, init←v16248);
};
SOURCE(23284, 1212)
return(cmd←v10596);
}
extern word XR←DoCommanderCommands(commandLine←v10656)
word commandLine←v10656;
{
register ptr gf←c40860 = (ptr) &globalframe;
word var←c10712;
word cmd←v16440;
/* XRDoCommanderCommands: */
SOURCE(24502, 204)
SOURCE(24591, 84)
{
word var←c38908;
{
word var←c38940;
{
word pd254;
pd254 = (* (( (ptr) (* (( (ptr) gf←c40860)+189)/* var←c38972 */ ))+7) );
var←c38940 = (word) ( *( (fPt) ((* (ptr) pd254 ))))(commandLine←v10656, 2147483647, pd254);
};
{
word pd255;
pd255 = (* (( (ptr) (* (( (ptr) gf←c40860)+179)/* var←c35036 */ ))+33) );
var←c38908 = (word) ( *( (fPt) ((* (ptr) pd255 ))))(var←c38940, 0, pd255);
};
};
cmd←v16440 = (word) CreateFromStreams←P2340(var←c38908, 0, 0, 0);
};
SOURCE(24677, 29)
return((word) ReadEvalPrintLoop←P1860(cmd←v16440));
}
static void NoName←Q5964(formal←c0472, formal←c200040, formal←c200041, formal←c200042, formal←c200043)
word formal←c0472;
word formal←c200040;
word formal←c200041;
word formal←c200042;
word formal←c200043;
{
register ptr gf←c0599 = (ptr) &globalframe;
if (((formal←c200041 == (* (( (ptr) (* (( (ptr) gf←c0599)+179)/* var←c35036 */ ))+5) )) || (formal←c200041 == (* (( (ptr) (* (
( (ptr) gf←c0599)+179)/* var←c35036 */ ))+4) ))) || (formal←c200041 == (* (( (ptr) (* (( (ptr) gf←c0599)+179)/* var←c35036 */ ))+8)
))) {
SOURCE(21901, 11)
(* (ptr) formal←c0472 ) = 2;
(* (( (ptr) formal←c0472)+1) ) = 12;
return;
};
(* (ptr) formal←c0472 ) = 0;
(* (( (ptr) formal←c0472)+1) ) = 0;
return;
}
static void NoName←Q6024(formal←c0477, formal←c200036, formal←c200037, formal←c200038, formal←c200039)
word formal←c0477;
word formal←c200036;
word formal←c200037;
word formal←c200038;
word formal←c200039;
{
register ptr gf←c0600 = (ptr) &globalframe;
if ((formal←c200037 == XR←Unwind)) {
(void) (XR←MonitorExit((word) (( (bPt) gf←c0600)+16)/* LOCK←v3140 */ ));
};
(* (ptr) formal←c0477 ) = 0;
(* (( (ptr) formal←c0477)+1) ) = 0;
return;
}
static void NoName←Q6084(formal←c0486, formal←c200032, formal←c200033, formal←c200034, formal←c200035)
word formal←c0486;
word formal←c200032;
word formal←c200033;
word formal←c200034;
word formal←c200035;
{
register ptr gf←c0601 = (ptr) &globalframe;
if ((formal←c200033 == (* (( (ptr) (* (( (ptr) gf←c0601)+179)/* var←c35036 */ ))+5) ))) {
{
word ec←v32168;
word stream←v32196;
word details←v32224;
word msg←v32252;
ec←v32168 = (* (ptr) formal←c200035 );
stream←v32196 = (* (( (ptr) formal←c200035)+1) );
details←v32224 = (* (( (ptr) formal←c200035)+2) );
msg←v32252 = (* (( (ptr) formal←c200035)+3) );
SOURCE(20050, 44)
if ((stream←v32196 == (* (ptr) (* (( (ptr) (* (ptr) formal←c200032 ))+4) ) )) || (stream←v32196 == (* (( (ptr) (* (( (ptr) (* (ptr) formal←c200032 ))+4)
))+2) ))) {
SOURCE(20094, 9)
(* (ptr) formal←c0486 ) = 2;
(* (( (ptr) formal←c0486)+1) ) = 10;
return;
};
};
}
else {
if ((formal←c200033 == XR←Aborted)) {
SOURCE(20119, 20)
{
W2 var←c0626;
(* (ptr) (word) &var←c0626 ) = 0;
(* (( (ptr) (word) &var←c0626) + 1) ) = 0;
(void) SetProcess←P2040((* (( (ptr) (* (ptr) formal←c200032 ))+4) ), var←c0626);
};
SOURCE(20141, 14)
(* (( (ptr) formal←c200032)+5) ) = 1;
SOURCE(20157, 10)
(* (( (ptr) formal←c200032)+4) ) = 0;
SOURCE(20169, 9)
(* (ptr) formal←c0486 ) = 2;
(* (( (ptr) formal←c0486)+1) ) = 10;
return;
};
};
(* (ptr) formal←c0486 ) = 0;
(* (( (ptr) formal←c0486)+1) ) = 0;
return;
}
static void NoName←Q6144(formal←c0491, formal←c200028, formal←c200029, formal←c200030, formal←c200031)
word formal←c0491;
word formal←c200028;
word formal←c200029;
word formal←c200030;
word formal←c200031;
{
register ptr gf←c0602 = (ptr) &globalframe;
if ((formal←c200029 == XR←Unwind)) {
SOURCE(19180, 52)
(void) AfterProcessing←P1800((* (( (ptr) (* (ptr) formal←c200028 ))+4) ), (* (W2Pt) (( (ptr) formal←c200028)+4) ), (* (
( (ptr) gf←c0602)+75) ), (* (( (ptr) gf←c0602)+70) ));
};
(* (ptr) formal←c0491 ) = 0;
(* (( (ptr) formal←c0491)+1) ) = 0;
return;
}
static void NoName←Q6204(formal←c0498, formal←c200024, formal←c200025, formal←c200026, formal←c200027)
word formal←c0498;
word formal←c200024;
word formal←c200025;
word formal←c200026;
word formal←c200027;
{
register ptr gf←c0603 = (ptr) &globalframe;
if ((formal←c200025 == (* (( (ptr) (* (( (ptr) gf←c0603)+179)/* var←c35036 */ ))+4) ))) {
{
word stream←v31416;
stream←v31416 = (* (ptr) formal←c200027 );
SOURCE(18931, 4)
(* (ptr) formal←c0498 ) = 2;
(* (( (ptr) formal←c0498)+1) ) = 8;
return;
};
}
else {
if ((formal←c200025 == (* (( (ptr) (* (( (ptr) gf←c0603)+179)/* var←c35036 */ ))+8) ))) {
{
word stream←v31568;
stream←v31568 = (* (ptr) formal←c200027 );
SOURCE(18950, 11)
(* (ptr) formal←c0498 ) = 2;
(* (( (ptr) formal←c0498)+1) ) = 9;
return;
};
};
};
(* (ptr) formal←c0498 ) = 0;
(* (( (ptr) formal←c0498)+1) ) = 0;
return;
}
static void NoName←Q6264(formal←c0506, formal←c200020, formal←c200021, formal←c200022, formal←c200023)
word formal←c0506;
word formal←c200020;
word formal←c200021;
word formal←c200022;
word formal←c200023;
{
register ptr gf←c0604 = (ptr) &globalframe;
if ((formal←c200021 == (word) (( (bPt) gf←c0604)+380)/* var←c33660 */ )) {
{
word errorMsg←v28956;
errorMsg←v28956 = (* (ptr) formal←c200023 );
SOURCE(13615, 6552)
{
word var←c36924;
{
word pd256;
pd256 = (* (( (ptr) (* (( (ptr) gf←c0604)+178)/* var←c35004 */ ))+5) );
var←c36924 = (word) ( *( (fPt) ((* (ptr) pd256 ))))((* (( (ptr) gf←c0604)+52) ), (* (( (ptr) formal←c200020)+5) ), (* (( (ptr) gf←c0604)+53)
), errorMsg←v28956, 0, pd256);
};
{
word var←c0505;
var←c0505 = var←c36924;
(void) XR←RaiseError((word) (( (bPt) gf←c0604)+380)/* var←c33660 */ , (word) &var←c0505);
};
};
};
};
(* (ptr) formal←c0506 ) = 0;
(* (( (ptr) formal←c0506)+1) ) = 0;
return;
}
static void NoName←Q6324(formal←c0512, formal←c200012, formal←c200013, formal←c200014, formal←c200015)
word formal←c0512;
word formal←c200012;
word formal←c200013;
word formal←c200014;
word formal←c200015;
{
register ptr gf←c0605 = (ptr) &globalframe;
if ((formal←c200013 == (word) (( (bPt) gf←c0605)+380)/* var←c33660 */ )) {
{
word errorMsg←v28700;
errorMsg←v28700 = (* (ptr) formal←c200015 );
SOURCE(12694, 14)
(* (( (ptr) formal←c200012)+6) ) = errorMsg←v28700;
SOURCE(12710, 13)
(* (ptr) formal←c0512 ) = 2;
(* (( (ptr) formal←c0512)+1) ) = 7;
return;
};
};
(* (ptr) formal←c0512 ) = 0;
(* (( (ptr) formal←c0512)+1) ) = 0;
return;
}
static void NoName←Q6384(formal←c0518, formal←c200016, formal←c200017, formal←c200018, formal←c200019)
word formal←c0518;
word formal←c200016;
word formal←c200017;
word formal←c200018;
word formal←c200019;
{
register ptr gf←c0606 = (ptr) &globalframe;
if ((formal←c200017 == (* (( (ptr) (* (( (ptr) gf←c0606)+179)/* var←c35036 */ ))+4) ))) {
{
word stream←v28760;
stream←v28760 = (* (ptr) formal←c200019 );
SOURCE(12903, 15)
(* (ptr) formal←c0518 ) = 2;
(* (( (ptr) formal←c0518)+1) ) = 5;
return;
};
};
(* (ptr) formal←c0518 ) = 0;
(* (( (ptr) formal←c0518)+1) ) = 0;
return;
}
static void NoName←Q6444(formal←c0525, formal←c200008, formal←c200009, formal←c200010, formal←c200011)
word formal←c0525;
word formal←c200008;
word formal←c200009;
word formal←c200010;
word formal←c200011;
{
register ptr gf←c0607 = (ptr) &globalframe;
if ((formal←c200009 == (* (( (ptr) (* (( (ptr) gf←c0607)+186)/* var←c36316 */ ))+7) ))) {
{
word reason←v26340;
word index←v26368;
reason←v26340 = (* (ptr) formal←c200011 );
index←v26368 = (* (( (ptr) formal←c200011)+1) );
SOURCE(8248, 9)
(* (ptr) formal←c0525 ) = 2;
(* (( (ptr) formal←c0525)+1) ) = 4;
return;
};
};
(* (ptr) formal←c0525 ) = 0;
(* (( (ptr) formal←c0525)+1) ) = 0;
return;
}
static void NoName←Q6504(formal←c0530, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c0530;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
register ptr gf←c0608 = (ptr) &globalframe;
if ((formal←c200005 == (* (( (ptr) (* (( (ptr) gf←c0608)+179)/* var←c35036 */ ))+5) )) || (formal←c200005 == (* (( (ptr) (* (
( (ptr) gf←c0608)+179)/* var←c35036 */ ))+4) ))) {
SOURCE(2222, 14)
(* (ptr) formal←c0530 ) = 2;
(* (( (ptr) formal←c0530)+1) ) = 3;
return;
};
(* (ptr) formal←c0530 ) = 0;
(* (( (ptr) formal←c0530)+1) ) = 0;
return;
}
static void NoName←Q6564(formal←c0536, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0536;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c0609 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0609)+179)/* var←c35036 */ ))+4) ))) {
{
word stream←v21700;
stream←v21700 = (* (ptr) formal←c200003 );
SOURCE(1917, 9)
(* (ptr) formal←c0536 ) = 2;
(* (( (ptr) formal←c0536)+1) ) = 2;
return;
};
};
(* (ptr) formal←c0536 ) = 0;
(* (( (ptr) formal←c0536)+1) ) = 0;
return;
}
/* file: CommanderOpsImpl, module: CommanderOpsImpl, compiled at: July 23, 1992 10:40:43 am PDT */
extern void XR←install←CommanderOpsImpl() {
NoName←Q5244();
}
extern void XR←run←CommanderOpsImpl() { XR←Start(&globalframe); }