/* 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 #include 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, " -- \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 , ! , 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 ' to invoke the StackTrace 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); }