/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */
/* time: January 15, 1993 5:41:40 pm PST */
/* C2C version: October 7, 1992 (native) */
/* ref-counting: off */
/* file: CommanderBasicCommandsImpl, module: CommanderBasicCommandsImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [323244771,1882537087] CommanderBasicCommandsImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef struct {W8 f; W5 r;} W13;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; W2 r;} W10;
typedef W2 *W2Pt;
typedef struct {W8 f; word r;} W9;
typedef struct { byte f:1; byte u1:7; } * P1x0b;
typedef struct { byte u1:1; byte f:1; byte u2:6; } * P1x1b;
typedef struct { byte u1:2; byte f:1; byte u2:5; } * P1x2b;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
#define SOURCE(p, l) /* source p, l */
#define SGNCK(i) ((int) (word) (i) < 0 ? XR←RaiseArithmeticFault(): i )
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
static float fc395 = 60.0;
static void NoName←Q6732();
static void CommanderBasicCommandsImpl←P0();
static void AbortCommand←P60();
static void AliasCommand←P120();
static word NoName←Q6792();
static void AliasImplProc←P180();
static word UniqueRope←P2652();
static void AliasesCommand←P240();
static word EachCommand←P2952();
static word GetWord←P300();
static word RopeMemb←P360();
static void AnswerbackCommand←P420();
static word NoName←Q6852();
static void CommentCommand←P480();
static void CommanderCommand←P540();
static void DateCommand←P600();
static void EchoCommand←P660();
static void ErrorCommand←P720();
static void FailCommand←P780();
static void FailSkipCommand←P840();
static word IsCommandPrefix←P900();
static void HistoryCommand←P960();
static word NoName←Q6912();
static void IndentCommand←P1020();
static word NoName←Q6972();
static word NoName←Q7032();
static word NoName←Q7092();
static word NoName←Q7152();
static word NoName←Q7212();
static word NoName←Q7272();
static void PriorityCommand←P1080();
static word NoName←Q7332();
static word SpecialChar←P1140();
static void PrevResultCommand←P1200();
static void ResultOfCommand←P1260();
static void PropCommand←P1320();
static word NoName←Q7392();
static void PropertiesCommand←P1380();
static word NoName←Q7452();
static word NoName←Q7512();
static word NoName←Q7572();
static void RedoCommand←P1440();
static void RegisteredHelpCommand←P1500();
static word EachCommand←P4308();
static void ReregisterAsCommand←P1560();
static void SetPropertyCommand←P1620();
static void ShiftCommand←P1680();
static void SleepCommand←P1740();
static word NoName←Q7632();
static void TimeCommand←P1800();
static void UnregisterCommand←P1860();
static void ControlCommand←P1920();
static word FindLastProp←P1980();
static void PrintAny←P2040();
static void VersionCommand←P2100();
static word NoName←Q7692();
static void MapCommand←P2160();
static word NoName←Q7752();
static void PutVersion←P2220();
static void P←P6012();
static word RopeSubst←P2280();
static word NewlineBreak←P2340();
static void Init←P2400();
static void Register←P6072();
static void NoName←Q7812();
static void NoName←Q7872();
static void NoName←Q7932();
static void NoName←Q7992();
static void NoName←Q8052();
static void NoName←Q8112();
static void NoName←Q8172();
static void NoName←Q8232();
static void NoName←Q8292();
static void NoName←Q8352();
static void NoName←Q8412();
static void NoName←Q8472();
static void NoName←Q8532();
static void NoName←Q8592();
static void NoName←Q8652();
static void NoName←Q8712();
static void NoName←Q8772();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string2 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"};
static struct {unsigned f; char r[16];} string3 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string4 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\311\235\133\064\300\165\175\234\175\100\164\000\000"};
static struct {unsigned f; char r[12];} string6 = {524296, "\011\000\004\000\040\000\004\001\000\000\000"};
static struct {unsigned f; char r[20];} string7 = {1179668, "\260\006\005\146\151\162\163\164\217\005\004\162\145\163\164\214\217\261\000"};
static struct {unsigned f; char r[4];} string8 = {131074, "\004\003\000"};
static struct {unsigned f; char r[48];} string9 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\363\223\326\161\300\017\164\046\072\104\350\005\004\162\145\163\164\214\216\257\300\363\223\326\161\300\017\164\046\072\104\350\261\000\000\000"};
static struct {unsigned f; char r[4];} string10 = {65540, "\251\000\000"};
static struct {unsigned f; char r[44];} string11 = {2752556, "\260\007\006\154\145\156\147\164\150\210\241\000\200\177\377\005\004\164\145\170\164\254\206\012\011\155\141\170\114\145\156\147\164\150\210\241\000\200\177\377\243\261\000"};
static struct {unsigned f; char r[4];} string12 = {131076, "\216\251\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\023\104\122\343\300\160\065\074\177\101\334\000\000"};
static struct {unsigned f; char r[48];} string14 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\023\104\122\343\300\160\065\074\177\101\334\005\004\162\145\163\164\214\216\257\300\023\104\122\343\300\160\065\074\177\101\334\261\000\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\023\104\122\343\300\160\065\074\177\100\200\000\000"};
static struct {unsigned f; char r[8];} string16 = {393224, "Alias \000"};
static struct {unsigned f; char r[40];} string17 = {2555944, "bad parameter list for alias definition"};
static struct {unsigned f; char r[28];} string18 = {1638428, "undefined recursive alias\000\000"};
static struct {unsigned f; char r[8];} string19 = {458760, "Failure"};
static struct {unsigned f; char r[4];} string20 = {65540, "\200\000\000"};
static struct {unsigned f; char r[4];} string21 = {65540, "\201\000\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "(formerly *)*\000\000"};
static struct {unsigned f; char r[4];} string23 = {196612, "%g\012"};
static struct {unsigned f; char r[4];} string24 = {131076, "-n\000"};
static struct {unsigned f; char r[4];} string25 = {131076, "-s\000"};
static struct {unsigned f; char r[4];} string26 = {196612, " *\012"};
static struct {unsigned f; char r[8];} string27 = {393224, "Result\000"};
static struct {unsigned f; char r[8];} string28 = {262152, " \011\015\012\000\000\000"};
static struct {unsigned f; char r[12];} string29 = {589836, "Skipped: \000\000"};
static struct {unsigned f; char r[8];} string30 = {393224, "Prompt\000"};
static struct {unsigned f; char r[4];} string31 = {65540, " \000\000"};
static struct {unsigned f; char r[4];} string32 = {131076, "-%\000"};
static struct {unsigned f; char r[4];} string33 = {131076, "+%\000"};
static struct {unsigned f; char r[4];} string34 = {131076, "-d\000"};
static struct {unsigned f; char r[4];} string35 = {131076, "+d\000"};
static struct {unsigned f; char r[4];} string36 = {4, "\000\000\000"};
static struct {unsigned f; char r[8];} string37 = {262152, "seen\000\000\000"};
static struct {unsigned f; char r[4];} string38 = {131076, "% \000"};
static struct {unsigned f; char r[4];} string39 = {131076, "OK\000"};
static struct {unsigned f; char r[24];} string40 = {1507352, "Usage: History <number>"};
static struct {unsigned f; char r[4];} string41 = {65540, "\012\000\000"};
static struct {unsigned f; char r[8];} string42 = {393224, "Indent\000"};
static struct {unsigned f; char r[8];} string43 = {458760, "Usage: "};
static struct {unsigned f; char r[8];} string44 = {458760, "Bad arg"};
static struct {unsigned f; char r[28];} string45 = {1703964, "depth should be in [0..80]\000"};
static struct {unsigned f; char r[12];} string46 = {720908, "PrefixLines"};
static struct {unsigned f; char r[8];} string47 = {393224, "ReadTo\000"};
static struct {unsigned f; char r[12];} string48 = {655372, "Foreground\000"};
static struct {unsigned f; char r[12];} string49 = {655372, "Background\000"};
static struct {unsigned f; char r[8];} string50 = {393224, "Normal\000"};
static struct {unsigned f; char r[24];} string51 = {1310744, "previous Result = %g\000\000\000"};
static struct {unsigned f; char r[12];} string52 = {720908, "Result = %g"};
static struct {unsigned f; char r[4];} string53 = {131076, "-*\000"};
static struct {unsigned f; char r[28];} string54 = {1638428, "CommandFileArgumentVector\000\000"};
static struct {unsigned f; char r[132];} string55 = {8519812, "Give a command a new name. [ -i | -~i ] newname oldname\012 -i newname should be interpreted\012 -~i newname should be uninterpreted\000"};
static struct {unsigned f; char r[24];} string56 = {1441816, "The required property \000"};
static struct {unsigned f; char r[20];} string57 = {1048596, " is not defined.\000\000\000"};
static struct {unsigned f; char r[20];} string58 = {1179668, " is not printable.\000"};
static struct {unsigned f; char r[20];} string59 = {1114132, "ProcessProperties\000\000"};
static struct {unsigned f; char r[24];} string60 = {1310744, "process properties:\012\000\000\000"};
static struct {unsigned f; char r[24];} string61 = {1441816, "commander properties:\012\000"};
static struct {unsigned f; char r[4];} string62 = {131076, "-w\000"};
static struct {unsigned f; char r[4];} string63 = {131076, "-v\000"};
static struct {unsigned f; char r[4];} string64 = {196612, " = "};
static struct {unsigned f; char r[12];} string65 = {524300, "Bad args\000\000\000"};
static struct {unsigned f; char r[44];} string66 = {2687020, "No command in my history begins with \042%q\042\000\000"};
static struct {unsigned f; char r[32];} string67 = {1900576, "Usage: Redo commandNamePrefix\000\000"};
static struct {unsigned f; char r[24];} string68 = {1441816, "Usage: %g pattern ...\012\000"};
static struct {unsigned f; char r[4];} string69 = {65540, "*\000\000"};
static struct {unsigned f; char r[28];} string70 = {1769500, "No matching commands for %g"};
static struct {unsigned f; char r[12];} string71 = {589836, "%L%-20g%L\000\000"};
static struct {unsigned f; char r[4];} string72 = {131076, "bf\000"};
static struct {unsigned f; char r[4];} string73 = {131076, "BF\000"};
static struct {unsigned f; char r[4];} string74 = {131076, "\012\015\000"};
static struct {unsigned f; char r[8];} string75 = {262152, " \000\000\000"};
static struct {unsigned f; char r[4];} string76 = {131076, "-i\000"};
static struct {unsigned f; char r[4];} string77 = {196612, "-~i"};
static struct {unsigned f; char r[12];} string78 = {655372, " not found\000"};
static struct {unsigned f; char r[12];} string79 = {655372, "(formerly \000"};
static struct {unsigned f; char r[4];} string80 = {131076, ") \000"};
static struct {unsigned f; char r[24];} string81 = {1376280, "ListProcessProperties\000\000"};
static struct {unsigned f; char r[8];} string82 = {262152, "List\000\000\000"};
static struct {unsigned f; char r[32];} string83 = {1900576, "Usage: SetProperty key value\012\000\000"};
static struct {unsigned f; char r[4];} string84 = {196612, "NIL"};
static struct {unsigned f; char r[24];} string85 = {1310744, "Usage: Sleep seconds\000\000\000"};
static struct {unsigned f; char r[32];} string86 = {1966112, "Running time: %g seconds (%r)\012\000"};
static struct {unsigned f; char r[28];} string87 = {1638428, "Running time: %g seconds\012\000\000"};
static struct {unsigned f; char r[36];} string88 = {2293796, "Running time: %g seconds (%r.%03g)\012"};
static struct {unsigned f; char r[28];} string89 = {1638428, "Unregister: %g not found\012\000\000"};
static struct {unsigned f; char r[8];} string90 = {458760, "locally"};
static struct {unsigned f; char r[4];} string91 = {131076, "on\000"};
static struct {unsigned f; char r[4];} string92 = {196612, "off"};
static struct {unsigned f; char r[8];} string93 = {393224, "toggle\000"};
static struct {unsigned f; char r[4];} string94 = {65540, "?\000\000"};
static struct {unsigned f; char r[8];} string95 = {458760, "Verbose"};
static struct {unsigned f; char r[8];} string96 = {327688, "Terse\000\000"};
static struct {unsigned f; char r[12];} string97 = {655372, "Statistics\000"};
static struct {unsigned f; char r[12];} string98 = {655372, "HistoryLog\000"};
static struct {unsigned f; char r[8];} string99 = {262152, " on\012\000\000\000"};
static struct {unsigned f; char r[8];} string100 = {327688, " off\012\000\000"};
static struct {unsigned f; char r[176];} string101 = {11337904, "print a property value, providing a default\012args: [ switch ] propname [ defaultvalue ]\012switches: -q => always quote; -s => never quote; -f => fail if property is undefined\000\000"};
static struct {unsigned f; char r[4];} string102 = {196612, "$%g"};
static struct {unsigned f; char r[8];} string103 = {262152, "\042%q\042\000\000\000"};
static struct {unsigned f; char r[12];} string104 = {589836, "RopeList[\000\000"};
static struct {unsigned f; char r[4];} string105 = {131076, ", \000"};
static struct {unsigned f; char r[4];} string106 = {65540, "]\000\000"};
static struct {unsigned f; char r[8];} string107 = {327688, "LIST[\000\000"};
static struct {unsigned f; char r[4];} string108 = {131076, "%g\000"};
static struct {unsigned f; char r[52];} string109 = {3145780, "Star expansion in command position not allowed.\012\000\000\000"};
static struct {unsigned f; char r[4];} string110 = {196612, ".%g"};
static struct {unsigned f; char r[8];} string111 = {458760, "Synonym"};
static struct {unsigned f; char r[8];} string112 = {262152, "Redo\000\000\000"};
static struct {unsigned f; char r[64];} string113 = {4128832, "Redo <string> \030 redoes the last command that begins with string"};
static struct {unsigned f; char r[8];} string114 = {458760, "History"};
static struct {unsigned f; char r[176];} string115 = {11337904, "History <option>* <n> \030 lists the last n commands in this CommandTool viewer\012 -% \011omit % prompt\012 +%\011include % prompt\012 -d\011remove duplicate commands\012 +d\011include duplicates\000\000"};
static struct {unsigned f; char r[8];} string116 = {262152, "Prop\000\000\000"};
static struct {unsigned f; char r[4];} string117 = {196612, "Map"};
static struct {unsigned f; char r0[200]; char r1[28];} string118
= { 14811364,
"maps the first argument as a command over the other arguments\012 -a return failure if any command fails\012 -e return failure if every command fails\012 -q quit on failure, return failure\012 -s quit on ",
"success, return success\012 \000"};
static struct {unsigned f; char r[16];} string119 = {851984, "\257\300\023\104\122\343\300\160\065\074\177\100\164\000\000"};
static struct {unsigned f; char r[12];} string120 = {655370, "\006\001\100\110\010\000\004\100\147\001\000"};
static struct {unsigned f; char r[16];} string121 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string122 = {851984, "\257\300\212\174\364\337\300\361\376\000\156\100\150\000\000"};
static struct {unsigned f; char r[16];} string123 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string124 = {851984, "\257\300\076\142\265\237\300\173\214\371\034\100\150\000\000"};
static struct {unsigned f; char r[16];} string125 = {851984, "\257\300\311\235\133\064\300\165\175\234\175\100\150\000\000"};
static struct {unsigned f; char r[16];} string126 = {851984, "\257\300\206\126\034\347\300\061\333\303\163\100\150\000\000"};
static struct {unsigned f; char r[16];} string127 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"};
static struct {unsigned f; char r[12];} string128 = {720908, "\257\300\036\351\345\237\244\150\210\100\150"};
static struct {unsigned f; char r[16];} string129 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string130 = {851984, "\257\300\144\364\322\150\300\206\136\277\046\100\150\000\000"};
static struct {unsigned f; char r[16];} string131 = {851984, "\257\300\240\236\274\315\300\111\163\325\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string132 = {851984, "\257\300\314\116\377\204\300\167\024\373\125\100\150\000\000"};
static struct {unsigned f; char r[16];} string133 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string134 = {851984, "\257\300\255\220\043\324\300\140\002\100\200\100\150\000\000"};
static struct {unsigned f; char r[16];} string135 = {851984, "\257\300\072\337\114\355\300\232\070\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string136 = {851984, "\257\300\212\064\201\064\300\246\250\327\344\100\150\000\000"};
static struct {unsigned f; char r[16];} string469 = {851984, "GetProperties\000\000"};
static struct {unsigned f; char r[36];} string470 = {2228260, "Display command tool property list\000"};
static struct {unsigned f; char r[24];} string471 = {1310744, "GetProcessProperties\000\000\000"};
static struct {unsigned f; char r[32];} string472 = {2031648, "Display process properties list"};
static struct {unsigned f; char r[12];} string473 = {720908, "SetProperty"};
static struct {unsigned f; char r[84];} string474 = {5242964, "SetProperty propertyName value - change or add to the command tool property list\000\000\000"};
static struct {unsigned f; char r[20];} string475 = {1179668, "SetProcessProperty\000"};
static struct {unsigned f; char r[76];} string476 = {4915276, "SetProperty propertyName value - change or add to the process property list"};
static struct {unsigned f; char r[16];} string477 = {983056, "SetListProperty"};
static struct {unsigned f; char r[132];} string478 = {8388740, "SetProperty propertyName elt elt ... - bind propertyName in the command tool property list to the LIST OF ROPE = [elt, elt, ...]\000\000\000"};
static struct {unsigned f; char r[24];} string479 = {1441816, "SetListProcessProperty\000"};
static struct {unsigned f; char r[88];} string480 = {5505112, "bind propertyName in the process property list to the LIST OF ROPE = [elt, elt, ...]\000\000\000"};
static struct {unsigned f; char r[4];} string481 = {65540, "-\000\000"};
static struct {unsigned f; char r[8];} string482 = {458760, "Comment"};
static struct {unsigned f; char r[4];} string483 = {131076, "--\000"};
static struct {unsigned f; char r[4];} string484 = {65540, "/\000\000"};
static struct {unsigned f; char r[4];} string485 = {131076, "//\000"};
static struct {unsigned f; char r[28];} string486 = {1572892, "List registered commands\000\000\000"};
static struct {unsigned f; char r[8];} string487 = {327688, "Abort\000\000"};
static struct {unsigned f; char r[24];} string488 = {1507352, "Abort -- Raises ABORTED"};
static struct {unsigned f; char r[8];} string489 = {327688, "Alias\000\000"};
static struct {unsigned f; char r[88];} string490 = {5505112, "Define a new command in terms of others, using blind string-matching for parameters.\000\000\000"};
static struct {unsigned f; char r[8];} string491 = {458760, "Aliases"};
static struct {unsigned f; char r[20];} string492 = {1048596, "List all Aliases\000\000\000"};
static struct {unsigned f; char r[12];} string493 = {655372, "Answerback\000"};
static struct {unsigned f; char r[40];} string494 = {2490408, "reads result and msg from command line\000"};
static struct {unsigned f; char r[8];} string495 = {262152, "Date\000\000\000"};
static struct {unsigned f; char r[20];} string496 = {1245204, "Print date and time"};
static struct {unsigned f; char r[8];} string497 = {262152, "Echo\000\000\000"};
static struct {unsigned f; char r[72];} string498 = {4456520, "Print command line arguments\012\011-s supress whitespace\012\011-n no newline\000\000\000"};
static struct {unsigned f; char r[8];} string499 = {327688, "ERROR\000\000"};
static struct {unsigned f; char r[32];} string500 = {1900576, "Error -- Raises unnamed ERROR\000\000"};
static struct {unsigned f; char r[8];} string501 = {262152, "Fail\000\000\000"};
static struct {unsigned f; char r[28];} string502 = {1638428, "This command always fails\000\000"};
static struct {unsigned f; char r[4];} string503 = {65540, ";\000\000"};
static struct {unsigned f; char r[16];} string504 = {983056, "Skip on failure"};
static struct {unsigned f; char r[8];} string505 = {262152, "Help\000\000\000"};
static struct {unsigned f; char r[28];} string506 = {1769500, "Indent n -- Indent n spaces"};
static struct {unsigned f; char r[64];} string507 = {4063296, "PrefixLines <string> - prefix each line of stdin with <string>\000"};
static struct {unsigned f; char r[12];} string508 = {655372, "PrevResult\000"};
static struct {unsigned f; char r[44];} string509 = {2752556, "- print the result of the previous command\000"};
static struct {unsigned f; char r[12];} string510 = {524300, "ResultOf\000\000\000"};
static struct {unsigned f; char r[68];} string511 = {4259908, "<command> - print the result of the given command (uninterpreted)\000\000"};
static struct {unsigned f; char r[88];} string512 = {5636184, "ReadTo <string> - Copy stdin to stdout until a line with just <string> is encountered.\000"};
static struct {unsigned f; char r[8];} string514 = {327688, "Shift\000\000"};
static struct {unsigned f; char r[36];} string515 = {2228260, "Shift command-line (uninterpreted)\000"};
static struct {unsigned f; char r[12];} string516 = {720908, "ShiftInterp"};
static struct {unsigned f; char r[40];} string517 = {2490408, "ShiftInterp command-line (interpreted)\000"};
static struct {unsigned f; char r[8];} string518 = {458760, "Command"};
static struct {unsigned f; char r[32];} string519 = {1835040, "do command-line as a command\000\000\000"};
static struct {unsigned f; char r[12];} string520 = {589836, "Commander\000\000"};
static struct {unsigned f; char r[24];} string521 = {1507352, "Make a nested commander"};
static struct {unsigned f; char r[8];} string522 = {327688, "Sleep\000\000"};
static struct {unsigned f; char r[32];} string523 = {1966112, "Sleep n -- pause for n seconds\000"};
static struct {unsigned f; char r[8];} string524 = {262152, "Time\000\000\000"};
static struct {unsigned f; char r[36];} string525 = {2162724, "Time command-line (uninterpreted)\000\000"};
static struct {unsigned f; char r[12];} string526 = {655372, "Unregister\000"};
static struct {unsigned f; char r[56];} string527 = {3473464, "Unregister commands\012Usage: Unregister commandname ...\000\000"};
static struct {unsigned f; char r[88];} string528 = {5570648, "Control command tracing (inverse of Terse)\012Usage: Verbose [locally] [on|off|toggle|?]\000\000"};
static struct {unsigned f; char r[88];} string529 = {5570648, "Control command tracing (inverse of Verbose)\012Usage: Terse [locally] [on|off|toggle|?]\000\000"};
static struct {unsigned f; char r[76];} string530 = {4784204, "Control statistics printing\012Usage: Statistics [locally] [on|off|toggle|?]\000\000"};
static struct {unsigned f; char r[72];} string531 = {4522056, "Control history logging\012Usage: HistoryLog [locally] [on|off|toggle|?]\000\000"};
static struct {unsigned f; char r[8];} string532 = {458760, "Version"};
static struct {unsigned f; char r[28];} string533 = {1703964, "Print Cedar version number\000"};
static struct {unsigned f; char r[20];} string534 = {1179668, "ForegroundPriority\000"};
static struct {unsigned f; char r[68];} string535 = {4390980, "(uninterpreted) Execute rest of command line at foreground priority"};
static struct {unsigned f; char r[20];} string536 = {1179668, "BackgroundPriority\000"};
static struct {unsigned f; char r[68];} string537 = {4390980, "(uninterpreted) Execute rest of command line at background priority"};
static struct {unsigned f; char r[16];} string538 = {917520, "NormalPriority\000"};
static struct {unsigned f; char r[64];} string539 = {4128832, "(uninterpreted) Execute rest of command line at normal priority"};
static struct {
word f0[121]; 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; word f178; word f179;
word f180; word f181; word f182; word f183;
word f184; word f185; word f186; word f187;
word f188; word f189; word f190; word f191;
word f192; word f193; word f194; word f195;
word f196; word f197; word f198; word f199;
word f200; word f201; word f202[17];
} globalframe = {
{0}, (word) Init←P2400, 0, (word) NewlineBreak←P2340,
0, (word) RopeSubst←P2280, 0, (word) PutVersion←P2220,
0, (word) MapCommand←P2160, 0, (word) VersionCommand←P2100,
0, (word) PrintAny←P2040, 0, (word) FindLastProp←P1980,
0, (word) ControlCommand←P1920, 0, (word) UnregisterCommand←P1860,
0, (word) TimeCommand←P1800, 0, (word) SleepCommand←P1740,
0, (word) ShiftCommand←P1680, 0, (word) SetPropertyCommand←P1620,
0, (word) ReregisterAsCommand←P1560, 0, (word) RegisteredHelpCommand←P1500,
0, (word) RedoCommand←P1440, 0, (word) PropertiesCommand←P1380,
0, (word) PropCommand←P1320, 0, (word) ResultOfCommand←P1260,
0, (word) PrevResultCommand←P1200, 0, (word) SpecialChar←P1140,
0, (word) PriorityCommand←P1080, 0, (word) IndentCommand←P1020,
0, (word) HistoryCommand←P960, 0, (word) IsCommandPrefix←P900,
0, (word) FailSkipCommand←P840, 0, (word) FailCommand←P780,
0, (word) ErrorCommand←P720, 0, (word) EchoCommand←P660,
0, (word) DateCommand←P600, 0, (word) CommanderCommand←P540,
0, (word) CommentCommand←P480, 0, (word) AnswerbackCommand←P420,
0, (word) RopeMemb←P360, 0, (word) GetWord←P300,
0, (word) AliasesCommand←P240, 0, (word) AliasImplProc←P180,
0, (word) AliasCommand←P120, 0, (word) AbortCommand←P60,
0, (word) CommanderBasicCommandsImpl←P0, {0}
};
static void NoName←Q6732()
{
register ptr gf←c0733 = (ptr) &globalframe;
word var←c49376;
(* (( (ptr) gf←c0733)+4) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0733)+5) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (( (ptr) gf←c0733)+7) ) = (word) XR←GetTypeIndex((word) &string5, 0, (word) &string6);
(* (( (ptr) gf←c0733)+9) ) = (word) XR←GetTypeIndex((word) &string7, 0, (word) &string8);
(* (( (ptr) gf←c0733)+10) ) = (word) XR←GetTypeIndex((word) &string9, 0, (word) &string8);
(* (( (ptr) gf←c0733)+11) ) = (word) XR←GetTypeIndexS((word) (&string10));
(* (( (ptr) gf←c0733)+12) ) = (word) XR←GetTypeIndexS((word) (&string11));
(* (( (ptr) gf←c0733)+14) ) = (word) XR←GetTypeIndex((word) &string12, 0, (word) &string4);
(* (( (ptr) gf←c0733)+15) ) = (word) XR←GetTypeIndex((word) &string13, 0, (word) &string8);
(* (( (ptr) gf←c0733)+16) ) = (word) XR←GetTypeIndex((word) &string14, 0, (word) &string8);
(* (( (ptr) gf←c0733)+17) ) = (word) XR←GetTypeIndex((word) &string15, 0, (word) &string8);
(* (ptr) (( (bPt) gf←c0733)+72) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string16);
(* (ptr) (( (bPt) gf←c0733)+76) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string17);
(* (ptr) (( (bPt) gf←c0733)+80) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string18);
(* (ptr) (( (bPt) gf←c0733)+84) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string19);
(* (ptr) (( (bPt) gf←c0733)+88) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string20);
(* (ptr) (( (bPt) gf←c0733)+92) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string21);
(* (ptr) (( (bPt) gf←c0733)+96) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string22);
(* (ptr) (( (bPt) gf←c0733)+100) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string23);
(* (ptr) (( (bPt) gf←c0733)+104) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string24);
(* (ptr) (( (bPt) gf←c0733)+108) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string25);
(* (ptr) (( (bPt) gf←c0733)+112) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string26);
(* (ptr) (( (bPt) gf←c0733)+116) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string27);
(* (ptr) (( (bPt) gf←c0733)+120) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string28);
(* (ptr) (( (bPt) gf←c0733)+124) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string29);
(* (ptr) (( (bPt) gf←c0733)+128) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string30);
(* (ptr) (( (bPt) gf←c0733)+132) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string31);
(* (ptr) (( (bPt) gf←c0733)+136) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string32);
(* (ptr) (( (bPt) gf←c0733)+140) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string33);
(* (ptr) (( (bPt) gf←c0733)+144) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string34);
(* (ptr) (( (bPt) gf←c0733)+148) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string35);
(* (ptr) (( (bPt) gf←c0733)+152) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string36);
(* (ptr) (( (bPt) gf←c0733)+156) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string37);
(* (ptr) (( (bPt) gf←c0733)+160) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string38);
(* (ptr) (( (bPt) gf←c0733)+164) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string39);
(* (ptr) (( (bPt) gf←c0733)+168) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string40);
(* (ptr) (( (bPt) gf←c0733)+172) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string41);
(* (ptr) (( (bPt) gf←c0733)+176) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string42);
(* (ptr) (( (bPt) gf←c0733)+180) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string43);
(* (ptr) (( (bPt) gf←c0733)+184) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string44);
(* (ptr) (( (bPt) gf←c0733)+188) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string45);
(* (ptr) (( (bPt) gf←c0733)+192) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string46);
(* (ptr) (( (bPt) gf←c0733)+196) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string47);
(* (ptr) (( (bPt) gf←c0733)+200) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string48);
(* (ptr) (( (bPt) gf←c0733)+204) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string49);
(* (ptr) (( (bPt) gf←c0733)+208) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string50);
(* (ptr) (( (bPt) gf←c0733)+212) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string51);
(* (ptr) (( (bPt) gf←c0733)+216) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string52);
(* (ptr) (( (bPt) gf←c0733)+220) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string53);
(* (ptr) (( (bPt) gf←c0733)+224) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string54);
(* (ptr) (( (bPt) gf←c0733)+228) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string55);
(* (ptr) (( (bPt) gf←c0733)+232) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string56);
(* (ptr) (( (bPt) gf←c0733)+236) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string57);
(* (ptr) (( (bPt) gf←c0733)+240) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string58);
(* (ptr) (( (bPt) gf←c0733)+244) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string59);
(* (ptr) (( (bPt) gf←c0733)+248) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string60);
(* (ptr) (( (bPt) gf←c0733)+252) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string61);
(* (ptr) (( (bPt) gf←c0733)+256) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string62);
(* (ptr) (( (bPt) gf←c0733)+260) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string63);
(* (ptr) (( (bPt) gf←c0733)+264) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string64);
(* (ptr) (( (bPt) gf←c0733)+268) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string65);
(* (ptr) (( (bPt) gf←c0733)+272) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string66);
(* (ptr) (( (bPt) gf←c0733)+276) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string67);
(* (ptr) (( (bPt) gf←c0733)+280) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string68);
(* (ptr) (( (bPt) gf←c0733)+284) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string69);
(* (ptr) (( (bPt) gf←c0733)+288) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string70);
(* (ptr) (( (bPt) gf←c0733)+292) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string71);
(* (ptr) (( (bPt) gf←c0733)+296) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string72);
(* (ptr) (( (bPt) gf←c0733)+300) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string73);
(* (ptr) (( (bPt) gf←c0733)+304) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string74);
(* (ptr) (( (bPt) gf←c0733)+308) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string75);
(* (ptr) (( (bPt) gf←c0733)+312) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string76);
(* (ptr) (( (bPt) gf←c0733)+316) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string77);
(* (ptr) (( (bPt) gf←c0733)+320) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string78);
(* (ptr) (( (bPt) gf←c0733)+324) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string79);
(* (ptr) (( (bPt) gf←c0733)+328) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string80);
(* (ptr) (( (bPt) gf←c0733)+332) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string81);
(* (ptr) (( (bPt) gf←c0733)+336) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string82);
(* (ptr) (( (bPt) gf←c0733)+340) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string83);
(* (ptr) (( (bPt) gf←c0733)+344) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string84);
(* (ptr) (( (bPt) gf←c0733)+348) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string85);
(* (ptr) (( (bPt) gf←c0733)+352) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string86);
(* (ptr) (( (bPt) gf←c0733)+356) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string87);
(* (ptr) (( (bPt) gf←c0733)+360) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string88);
(* (ptr) (( (bPt) gf←c0733)+364) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string89);
(* (ptr) (( (bPt) gf←c0733)+368) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string90);
(* (ptr) (( (bPt) gf←c0733)+372) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string91);
(* (ptr) (( (bPt) gf←c0733)+376) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string92);
(* (ptr) (( (bPt) gf←c0733)+380) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string93);
(* (ptr) (( (bPt) gf←c0733)+384) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string94);
(* (ptr) (( (bPt) gf←c0733)+388) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string95);
(* (ptr) (( (bPt) gf←c0733)+392) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string96);
(* (ptr) (( (bPt) gf←c0733)+396) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string97);
(* (ptr) (( (bPt) gf←c0733)+400) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+14) ), (word) &string98);
(* (ptr) (( (bPt) gf←c0733)+404) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string99);
(* (ptr) (( (bPt) gf←c0733)+408) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string100);
(* (ptr) (( (bPt) gf←c0733)+412) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string101);
(* (ptr) (( (bPt) gf←c0733)+416) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string102);
(* (ptr) (( (bPt) gf←c0733)+420) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string103);
(* (ptr) (( (bPt) gf←c0733)+424) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string104);
(* (ptr) (( (bPt) gf←c0733)+428) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string105);
(* (ptr) (( (bPt) gf←c0733)+432) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string106);
(* (ptr) (( (bPt) gf←c0733)+436) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string107);
(* (ptr) (( (bPt) gf←c0733)+440) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string108);
(* (ptr) (( (bPt) gf←c0733)+444) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string109);
(* (ptr) (( (bPt) gf←c0733)+448) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string110);
(* (ptr) (( (bPt) gf←c0733)+452) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string111);
(* (ptr) (( (bPt) gf←c0733)+456) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string112);
(* (ptr) (( (bPt) gf←c0733)+460) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string113);
(* (ptr) (( (bPt) gf←c0733)+464) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string114);
(* (ptr) (( (bPt) gf←c0733)+468) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string115);
(* (ptr) (( (bPt) gf←c0733)+472) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string116);
(* (ptr) (( (bPt) gf←c0733)+476) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string117);
(* (ptr) (( (bPt) gf←c0733)+480) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0733)+5) ), (word) &string118);
(void) XR←DeclareGlobalFrame((word) "CommanderBasicCommandsImpl", &globalframe, (word) XR←GetTypeIndex((word) &string119, 0, (word) &string120)
, (word) (( (bPt) gf←c0733)+804)/* var←c44128 */ );
var←c49376 = (word) XR←ImportInterface((word) "Atom", (word) XR←GetTypeIndexS((word) (&string121)), 16);
(* (( (ptr) gf←c0733)+204)/* var←c44352 */ ) = var←c49376;
(void) XR←ImportProcS(var←c49376, 67895555);
(void) XR←ImportProcS(var←c49376, 67897859);
(void) XR←ImportProcS(var←c49376, 67372289);
var←c49376 = (word) XR←ImportInterface((word) "BasicTime", (word) XR←GetTypeIndexS((word) (&string122)), 24);
(* (( (ptr) gf←c0733)+210)/* var←c45312 */ ) = var←c49376;
(void) XR←ImportProcS(var←c49376, 67372033);
(void) XR←ImportProcS(var←c49376, 67372289);
(void) XR←ImportProcS(var←c49376, 67636226);
(void) XR←ImportProcS(var←c49376, 67109632);
(void) XR←ImportProcS(var←c49376, 67111424);
var←c49376 = (word) XR←ImportInterface((word) "Commander", (word) XR←GetTypeIndexS((word) (&string123)), 3);
(* (( (ptr) gf←c0733)+207)/* var←c44576 */ ) = var←c49376;
(void) XR←ImportProcS(var←c49376, 134480129);
(void) XR←ImportProcS(var←c49376, 1310725);
(void) XR←ImportProcS(var←c49376, 67371521);
var←c49376 = (word) XR←ImportInterface((word) "CommanderBackdoor", (word) XR←GetTypeIndexS((word) (&string124)), 5);
(* (( (ptr) gf←c0733)+213)/* var←c45632 */ ) = var←c49376;
(void) XR←ImportProcS(var←c49376, 67371265);
var←c49376 = (word) XR←ImportInterface((word) "CommanderOps", (word) XR←GetTypeIndexS((word) (&string125)), 14);
(* (( (ptr) gf←c0733)+208)/* var←c44736 */ ) = var←c49376;
(void) XR←ImportProcS(var←c49376, 134742274);
(void) XR←ImportProcS(var←c49376, 134744322);
(void) XR←ImportProcS(var←c49376, 67635970);
(void) XR←ImportProcS(var←c49376, 67633666);
(void) XR←ImportProcS(var←c49376, 67374337);
(void) XR←ImportProcS(var←c49376, 67634178);
(void) XR←ImportProcS(var←c49376, 68160516);
(void) XR←ImportProcS(var←c49376, 67634946);
(void) XR←ImportProcS(var←c49376, 201590273);
var←c49376 = (word) XR←ImportInterface((word) "CommanderRegistry", (word) XR←GetTypeIndexS((word) (&string126)), 3);
(* (( (ptr) gf←c0733)+216)/* var←c47104 */ ) = var←c49376;
(void) XR←ImportProcS(var←c49376, 134742274);
var←c49376 = (word) XR←ImportInterface((word) "Convert", (word) XR←GetTypeIndexS((word) (&string127)), 73);
(* (( (ptr) gf←c0733)+209)/* var←c45056 */ ) = var←c49376;
(void) XR←ImportProcS(var←c49376, 67634946);
(void) XR←ImportProcS(var←c49376, 67641858);
(void) XR←ImportProcS(var←c49376, 67634690);
(void) XR←ImportProcS(var←c49376, 67901187);
var←c49376 = (word) XR←ImportInterface((word) "ConvertUnsafe", (word) XR←GetTypeIndexS((word) (&string128)), 8);
(* (( (ptr) gf←c0733)+218)/* var←c49312 */ ) = var←c49376;
(void) XR←ImportProcS(var←c49376, 67372289);
var←c49376 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string129)), 103);
(* (( (ptr) gf←c0733)+203)/* var←c44160 */ ) = var←c49376;
(void) XR←ImportProcS(var←c49376, 799490);
(void) XR←ImportProcS(var←c49376, 2111493);
(void) XR←ImportProcS(var←c49376, 67910402);
(void) XR←ImportProcS(var←c49376, 1053444);
(void) XR←ImportProcS(var←c49376, 67655170);
(void) XR←ImportProcS(var←c49376, 67392513);
(void) XR←ImportProcS(var←c49376, 528642);
(void) XR←ImportProcS(var←c49376, 1063171);
(void) XR←ImportProcS(var←c49376, 67393281);
(void) XR←ImportProcS(var←c49376, 1071364);
(void) XR←ImportProcS(var←c49376, 67392257);
(void) XR←ImportProcS(var←c49376, 134763778);
(void) XR←ImportProcS(var←c49376, 530434);
(void) XR←ImportProcS(var←c49376, 67917827);
(void) XR←ImportProcS(var←c49376, 67391233);
(void) XR←ImportProcS(var←c49376, 67374849);
(void) XR←ImportProcS(var←c49376, 67373825);
(void) XR←ImportProcS(var←c49376, 67653890);
(void) XR←ImportProcS(var←c49376, 67640578);
var←c49376 = (word) XR←ImportInterface((word) "List", (word) XR←GetTypeIndexS((word) (&string130)), 28);
(* (( (ptr) gf←c0733)+212)/* var←c45568 */ ) = var←c49376;
(void) XR←ImportProcS(var←c49376, 67899907);
(void) XR←ImportProcS(var←c49376, 67637250);
var←c49376 = (word) XR←ImportInterface((word) "Process", (word) XR←GetTypeIndexS((word) (&string131)), 22);
(* (( (ptr) gf←c0733)+211)/* var←c45408 */ ) = var←c49376;
(void) XR←ImportProcS(var←c49376, 67371777);
(void) XR←ImportProcS(var←c49376, 266497);
(void) XR←ImportProcS(var←c49376, 264449);
(void) XR←ImportProcS(var←c49376, 67111424);
(void) XR←ImportProcS(var←c49376, 3584);
var←c49376 = (word) XR←ImportInterface((word) "ProcessProps", (word) XR←GetTypeIndexS((word) (&string132)), 6);
(* (( (ptr) gf←c0733)+215)/* var←c46656 */ ) = var←c49376;
(void) XR←ImportProcS(var←c49376, 67109376);
var←c49376 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string133)), 43);
(* (( (ptr) gf←c0733)+206)/* var←c44544 */ ) = var←c49376;
(void) XR←ImportProcS(var←c49376, 68160516);
(void) XR←ImportProcS(var←c49376, 68159236);
(void) XR←ImportProcS(var←c49376, 67373569);
(void) XR←ImportProcS(var←c49376, 67900419);
(void) XR←ImportProcS(var←c49376, 68163076);
(void) XR←ImportProcS(var←c49376, 67373313);
(void) XR←ImportProcS(var←c49376, 67377153);
(void) XR←ImportProcS(var←c49376, 67379201);
(void) XR←ImportProcS(var←c49376, 67634434);
(void) XR←ImportProcS(var←c49376, 67900675);
(void) XR←ImportProcS(var←c49376, 67373825);
(void) XR←ImportProcS(var←c49376, 67898627);
(void) XR←ImportProcS(var←c49376, 67900163);
(void) XR←ImportProcS(var←c49376, 68419845);
(void) XR←ImportProcS(var←c49376, 67633666);
(void) XR←ImportProcS(var←c49376, 67896323);
var←c49376 = (word) XR←ImportInterface((word) "RopeList", (word) XR←GetTypeIndexS((word) (&string134)), 15);
(* (( (ptr) gf←c0733)+205)/* var←c44416 */ ) = var←c49376;
(void) XR←ImportProcS(var←c49376, 67636738);
(void) XR←ImportProcS(var←c49376, 67636226);
(void) XR←ImportProcS(var←c49376, 67372545);
var←c49376 = (word) XR←ImportInterface((word) "SymTab", (word) XR←GetTypeIndexS((word) (&string135)), 13);
(* (( (ptr) gf←c0733)+214)/* var←c45664 */ ) = var←c49376;
(void) XR←ImportProcS(var←c49376, 67897091);
(void) XR←ImportProcS(var←c49376, 134742786);
(void) XR←ImportProcS(var←c49376, 67633410);
var←c49376 = (word) XR←ImportInterface((word) "SystemVersion", (word) XR←GetTypeIndexS((word) (&string136)), 6);
(* (( (ptr) gf←c0733)+217)/* var←c49184 */ ) = var←c49376;
}
static void CommanderBasicCommandsImpl←P0(formal←c0112, formal←c0111)
word formal←c0112;
word formal←c0111;
{
/* CommanderBasicCommandsImpl: */
SOURCE(622, 31367)
SOURCE(31983, 6)
(void) Init←P2400();
}
static void AbortCommand←P60(formal←c0116, cmd←v20720)
word formal←c0116;
word cmd←v20720;
{
word result←v20764;
word msg←v20792;
/* AbortCommand: */
SOURCE(1145, 54)
SOURCE(1145, 54)
result←v20764 = 0;
SOURCE(1145, 54)
msg←v20792 = 0;
SOURCE(1185, 14)
(void) XR←RaiseError(XR←Aborted, 0);
}
static void AliasCommand←P120(formal←c0127, formal←c0863)
word formal←c0127;
word formal←c0863;
{
W13 var←c49408;
/* declaration of cmd←v20852 skipped */
register ptr gf←c49440 = (ptr) &globalframe;
/* declaration of result←v20896 skipped */
/* declaration of msg←v20924 skipped */
/* declaration of commandLineStream←v6336 skipped */
/* declaration of name←v6392 skipped */
/* declaration of def←v6420 skipped */
/* declaration of args←v6448 skipped */
/* declaration of aliasCell←v6476 skipped */
/* declaration of originalProc←v6504 skipped */
(* (( (ptr) &var←c49408)+4)/* cmd←v20852 */ ) = formal←c0863;
/* AliasCommand: */
SOURCE(1203, 1338)
SOURCE(1203, 1338)
(* (( (ptr) &var←c49408)+5)/* result←v20896 */ ) = 0;
SOURCE(1203, 1338)
(* (( (ptr) &var←c49408)+6)/* msg←v20924 */ ) = 0;
SOURCE(1243, 54)
{
word pd137;
pd137 = (* (( (ptr) (* (( (ptr) gf←c49440)+203)/* var←c44160 */ ))+33) );
(* (( (ptr) &var←c49408)+7)/* commandLineStream←v6336 */ ) = (word) ( *( (fPt) ((* (ptr) pd137 ))))((* (( (ptr) (* (( (ptr) &var←c49408)+4)
/* cmd←v20852 */ ))+4) ), 0, pd137);
};
SOURCE(1320, 15)
(* (( (ptr) &var←c49408)+8)/* name←v6392 */ ) = 0;
(* (( (ptr) &var←c49408)+9)/* def←v6420 */ ) = 0;
SOURCE(1337, 6)
(* (( (ptr) &var←c49408)+10)/* args←v6448 */ ) = 0;
SOURCE(1363, 20)
(* (( (ptr) &var←c49408)+11)/* aliasCell←v6476 */ ) = 0;
SOURCE(1385, 41)
(* (( (ptr) &var←c49408)+12)/* originalProc←v6504 */ ) = 0;
SOURCE(1428, 1113)
SOURCE(1430, 1032)
{
word var←c01;
{
word var←c0814;
var←c0814 = (word) &var←c49408;
var←c01 = (word) XR←Enable(( ((word) (fPt) NoName←Q6792) ), ( ((word) (fPt) NoName←Q8772) ), var←c0814);
};
if ((var←c01 == 3)) {
goto lab←L100001;
}
else {
if ((var←c01 == 2)) {
goto lab←L100002;
};
};
};
goto lab←L100010;
lab←L100002: ;
SOURCE(2477, 62)
{
word var←c0126;
var←c0126 = (* (( (ptr) gf←c49440)+19) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c49440)+208)/* var←c44736 */ ))+4) ), (word) &var←c0126);
};
lab←L100010: ;
/* removed tail goto */
lab←L100001: ;
(* (ptr) formal←c0127 ) = (* (( (ptr) &var←c49408)+5)/* result←v20896 */ );
(* (( (ptr) formal←c0127)+1) ) = (* (( (ptr) &var←c49408)+6)/* msg←v20924 */ );
return;
}
static word NoName←Q6792(formal←c0736)
word formal←c0736;
{
register ptr gf←c0735 = (ptr) &globalframe;
word var←c44480;
SOURCE(1480, 33)
(* (( (ptr) formal←c0736)+8) ) = (word) GetWord←P300((* ((( (ptr) formal←c0736)+7)) ));
SOURCE(1515, 48)
{
word var←c44192;
word pd138;
pd138 = (* (( (ptr) (* (( (ptr) gf←c0735)+203)/* var←c44160 */ ))+85) );
var←c44192 = (word) ( *( (fPt) ((* (ptr) pd138 ))))((* (( (ptr) formal←c0736)+7) ), 0, pd138);
};
SOURCE(1565, 348)
{
word tc139;
word pd140;
word pd141;
pd140 = (* (( (ptr) (* (( (ptr) gf←c0735)+203)/* var←c44160 */ ))+15) );
if ((0 == (word) ( *( (fPt) ((* (ptr) pd140 ))))((* ((( (ptr) formal←c0736)+7)) ), pd140))) {
pd141 = (* (( (ptr) (* (( (ptr) gf←c0735)+203)/* var←c44160 */ ))+19) );
tc139 = (word) ((word) ( *( (fPt) ((* (ptr) pd141 ))))((* ((( (ptr) formal←c0736)+7)) ), pd141) == 40);
}
else {
tc139 = (word) 0;
};
if (tc139) {
SOURCE(1647, 194)
{
register word l←v6632;
{
word pd142;
pd142 = (* (( (ptr) (* (( (ptr) gf←c0735)+203)/* var←c44160 */ ))+83) );
l←v6632 = XR←Narrow((word) ( *( (fPt) ((* (ptr) pd142 ))))((* ((( (ptr) formal←c0736)+7)) ), pd142), (* (( (ptr) gf←c0735)+9)
));
};
lab←L100008: ;
if ((l←v6632 != 0)) {
}
else {
goto lab←L100005;
};
SOURCE(1737, 104)
{
word var←c44224;
word var←c44256;
var←c44224 = (* (ptr) l←v6632 );
if ((var←c44224 == 0)) {
goto lab←L100009;
};
var←c44256 = XR←GetReferentType(var←c44224);
{
word tc143;
if (((* (( (ptr) gf←c0735)+4) ) == var←c44256)) {
tc143 = (word) ((*(int*)var←c44224<0) == 0);
}
else {
tc143 = (word) 0;
};
if (tc143) {
{
word r←v6772;
r←v6772 = var←c44224;
SOURCE(1773, 20)
{
word var←c44288;
var←c44288 = XR←NewObject(8, (* (( (ptr) gf←c0735)+10) ));
(* (ptr) var←c44288 ) = r←v6772;
(* (( (ptr) var←c44288)+1) ) = (* (( (ptr) formal←c0736)+10) );
(* (( (ptr) formal←c0736)+10) ) = var←c44288;
};
};
}
else {
if (((* (( (ptr) gf←c0735)+11) ) == var←c44256)) {
{
word a←v6816;
a←v6816 = var←c44224;
SOURCE(1806, 35)
{
/*1*/ word var←c44320;
/*1*/ word var←c44384;
/*1*/ {
/*1*/ word pd144;
/*1*/ pd144 = (* (( (ptr) (* (( (ptr) gf←c0735)+204)/* var←c44352 */ ))+9) );
/*1*/ var←c44320 = (word) ( *( (fPt) ((* (ptr) pd144 ))))(a←v6816, pd144);
/*1*/ };
/*1*/ var←c44384 = XR←NewObject(8, (* (( (ptr) gf←c0735)+10) ));
/*1*/ (* (ptr) var←c44384 ) = var←c44320;
/*1*/ (* (( (ptr) var←c44384)+1) ) = (* (( (ptr) formal←c0736)+10) );
/*1*/ (* (( (ptr) formal←c0736)+10) ) = var←c44384;
/*1*/ };
};
}
else {
lab←L100009: ;
SOURCE(1854, 8)
return(2);
};
};
};
};
l←v6632 = (* (( (ptr) l←v6632)+1) );
goto lab←L100008;
lab←L100005: ;
};
SOURCE(1881, 32)
SOURCE(1882, 29)
{
word pd145;
pd145 = (* (( (ptr) (* (( (ptr) gf←c0735)+205)/* var←c44416 */ ))+10) );
(* (( (ptr) formal←c0736)+10) ) = (word) ( *( (fPt) ((* (ptr) pd145 ))))((* ((( (ptr) formal←c0736)+10)) ), pd145);
};
};
};
SOURCE(1919, 73)
{
word var←c44448;
{
word pd146;
pd146 = (* (( (ptr) (* (( (ptr) gf←c0735)+203)/* var←c44160 */ ))+92) );
var←c44448 = (word) ( *( (fPt) ((* (ptr) pd146 ))))((* (( (ptr) formal←c0736)+7) ), 2147483647, 0, pd146);
};
(* (( (ptr) formal←c0736)+9) ) = (word) RopeSubst←P2280((* (( (ptr) gf←c0735)+43) ), (* (( (ptr) gf←c0735)+33) ), var←c44448, 0, 1)
;
};
SOURCE(1994, 246)
{
word pd148;
{
word var←c44512;
{
word pd147;
pd147 = (* (( (ptr) (* (( (ptr) gf←c0735)+203)/* var←c44160 */ ))+33) );
var←c44512 = (word) ( *( (fPt) ((* (ptr) pd147 ))))((* (( (ptr) formal←c0736)+9) ), 0, pd147);
};
var←c44480 = (word) GetWord←P300(var←c44512);
};
pd148 = (* (( (ptr) (* (( (ptr) gf←c0735)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd148 ))))(var←c44480, (* (( (ptr) formal←c0736)+8) ), 0, pd148))) {
SOURCE(2048, 194)
{
word procData←v6860;
SOURCE(2074, 62)
{
word pd149;
pd149 = (* (( (ptr) (* (( (ptr) gf←c0735)+207)/* var←c44576 */ ))+6) );
procData←v6860 = (word) ( *( (fPt) ((* (ptr) pd149 ))))((* ((( (ptr) formal←c0736)+8)) ), pd149);
};
SOURCE(2138, 102)
if ((procData←v6860 != 0)) {
SOURCE(2161, 34)
(* (( (ptr) formal←c0736)+12) ) = XR←CheckProc(* (ptr) procData←v6860 );
}
else {
SOURCE(2195, 45)
(* (( (ptr) formal←c0736)+5) ) = (* (( (ptr) gf←c0735)+21) );
(* (( (ptr) formal←c0736)+6) ) = (* (( (ptr) gf←c0735)+20) );
return(3);
};
};
};
};
SOURCE(2245, 67)
{
word var←c44672;
var←c44672 = XR←NewObject(16, (* (( (ptr) gf←c0735)+17) ));
(* (ptr) var←c44672 ) = (* (( (ptr) formal←c0736)+10) );
(* (( (ptr) var←c44672)+1) ) = (* (( (ptr) formal←c0736)+9) );
(* (( (ptr) var←c44672)+3) ) = XR←CheckProc(* (( (ptr) formal←c0736)+12) );
(* (( (ptr) formal←c0736)+11) ) = var←c44672;
};
SOURCE(2314, 119)
{
word var←c44704;
{
word pd150;
pd150 = (* (( (ptr) (* (( (ptr) gf←c0735)+206)/* var←c44544 */ ))+6) );
var←c44704 = (word) ( *( (fPt) ((* (ptr) pd150 ))))((* (( (ptr) gf←c0735)+18) ), (* (( (ptr) (* (( (ptr) formal←c0736)+4)
))+4) ), pd150);
};
{
word pd151;
pd151 = (* (( (ptr) (* (( (ptr) gf←c0735)+207)/* var←c44576 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd151 ))))((* (( (ptr) formal←c0736)+8) ), (word) (( (bPt) gf←c0735)+780)/* var←c44032 */ , var←c44704, (* (
( (ptr) formal←c0736)+11) ), 1, pd151);
};
};
SOURCE(2435, 27)
{
word pd152;
pd152 = (* (( (ptr) (* (( (ptr) gf←c0735)+203)/* var←c44160 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd152 ))))((* (( (ptr) formal←c0736)+7) ), 0, pd152);
};
return(0);
}
static void AliasImplProc←P180(formal←c0169, cmd←v20984)
word formal←c0169;
word cmd←v20984;
{
W7 var←c49472;
register ptr gf←c49504 = (ptr) &globalframe;
word result←v21028;
word msg←v21056;
/* declaration of var←c44768 skipped */
word aliasCell←v6904;
word newCommandLine←v6932;
word commandLineStream←v6960;
word synonyms←v7016 = 0;
/* declaration of gennum←v7044 skipped */
/* AliasImplProc: */
SOURCE(2548, 1358)
{
word tmpAddr153;
tmpAddr153 = (word) (( (ptr) &var←c49472)+4)/* var←c44768 */ ;
(* (ptr) tmpAddr153 ) = ( ((word) (fPt) UniqueRope←P2652) );
(* (( (ptr) tmpAddr153) + 1) ) = 1;
};
SOURCE(2548, 1358)
result←v21028 = 0;
SOURCE(2548, 1358)
msg←v21056 = 0;
SOURCE(2589, 54)
aliasCell←v6904 = XR←Narrow((* (( (ptr) (* (( (ptr) cmd←v20984)+5) ))+2) ), (* (( (ptr) gf←c49504)+17) ));
SOURCE(2645, 36)
newCommandLine←v6932 = (* (( (ptr) aliasCell←v6904)+1) );
SOURCE(2683, 54)
{
word pd154;
pd154 = (* (( (ptr) (* (( (ptr) gf←c49504)+203)/* var←c44160 */ ))+33) );
commandLineStream←v6960 = (word) ( *( (fPt) ((* (ptr) pd154 ))))((* (( (ptr) cmd←v20984)+4) ), 0, pd154);
};
SOURCE(2829, 16)
var←c49472.f6/* gennum←v7044 */ = 1;
SOURCE(2981, 376)
{
register word l←v7344;
l←v7344 = (* (ptr) aliasCell←v6904 );
lab←L100015: ;
if ((l←v7344 != 0)) {
}
else {
goto lab←L100012;
};
{
W3 token←v7472;
word new←v7500;
SOURCE(3043, 71)
{
word pd155;
pd155 = (* (( (ptr) (* (( (ptr) gf←c49504)+208)/* var←c44736 */ ))+10) );
(void) ( *( (fPt) ((* (ptr) pd155 ))))((word) &token←v7472, commandLineStream←v6960, pd155);
};
SOURCE(3116, 25)
new←v7500 = token←v7472.f1;
SOURCE(3143, 137)
if (((* (( (ptr) (* (ptr) aliasCell←v6904 ))+1) ) != 0)) {
SOURCE(3177, 105)
{
word dummy←v7544;
SOURCE(3179, 26)
dummy←v7544 = (word) UniqueRope←P2652((word) ((( (bPt) &var←c49472)+16)/* var←c44768 */ ));
SOURCE(3207, 60)
{
word var←c44800;
word var←c44864;
{
word var←c44832;
var←c44832 = XR←NewObject(8, (* (( (ptr) gf←c49504)+15) ));
(* (ptr) var←c44832 ) = new←v7500;
(* (( (ptr) var←c44832)+1) ) = dummy←v7544;
var←c44800 = var←c44832;
};
var←c44864 = XR←NewObject(8, (* (( (ptr) gf←c49504)+16) ));
(* (ptr) var←c44864 ) = var←c44800;
(* (( (ptr) var←c44864)+1) ) = synonyms←v7016;
synonyms←v7016 = var←c44864;
};
SOURCE(3269, 11)
new←v7500 = dummy←v7544;
};
};
SOURCE(3285, 72)
newCommandLine←v6932 = (word) RopeSubst←P2280((* (ptr) l←v7344 ), new←v7500, newCommandLine←v6932, 0, 1);
};
l←v7344 = (* (( (ptr) l←v7344)+1) );
goto lab←L100015;
lab←L100012: ;
};
SOURCE(3369, 153)
{
register word l←v7588;
l←v7588 = synonyms←v7016;
lab←L100019: ;
if ((l←v7588 != 0)) {
}
else {
goto lab←L100016;
};
SOURCE(3438, 84)
newCommandLine←v6932 = (word) RopeSubst←P2280((* (( (ptr) (* (ptr) l←v7588 ))+1) ), (* (ptr) (* (ptr) l←v7588 ) ), newCommandLine←v6932, 0, 1)
;
l←v7588 = (* (( (ptr) l←v7588)+1) );
goto lab←L100019;
lab←L100016: ;
};
SOURCE(3534, 75)
{
word var←c44896;
{
word pd156;
pd156 = (* (( (ptr) (* (( (ptr) gf←c49504)+203)/* var←c44160 */ ))+92) );
var←c44896 = (word) ( *( (fPt) ((* (ptr) pd156 ))))(commandLineStream←v6960, 2147483647, 0, pd156);
};
{
word pd157;
pd157 = (* (( (ptr) (* (( (ptr) gf←c49504)+206)/* var←c44544 */ ))+6) );
newCommandLine←v6932 = (word) ( *( (fPt) ((* (ptr) pd157 ))))(newCommandLine←v6932, var←c44896, pd157);
};
};
SOURCE(3611, 27)
{
word pd158;
pd158 = (* (( (ptr) (* (( (ptr) gf←c49504)+203)/* var←c44160 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd158 ))))(commandLineStream←v6960, 0, pd158);
};
SOURCE(3640, 266)
if (((* (( (ptr) aliasCell←v6904)+3) ) != 0)) {
SOURCE(3677, 170)
{
word s←v7728;
SOURCE(3679, 37)
{
word pd159;
pd159 = (* (( (ptr) (* (( (ptr) gf←c49504)+203)/* var←c44160 */ ))+33) );
s←v7728 = (word) ( *( (fPt) ((* (ptr) pd159 ))))(newCommandLine←v6932, 0, pd159);
};
SOURCE(3718, 24)
(* (( (ptr) cmd←v20984)+3) ) = (word) GetWord←P300(s←v7728);
SOURCE(3744, 56)
{
word var←c44928;
W2 var←c0166;
{
word pd160;
pd160 = (* (( (ptr) (* (( (ptr) gf←c49504)+203)/* var←c44160 */ ))+89) );
(void) ( *( (fPt) ((* (ptr) pd160 ))))((word) &var←c0166, s←v7728, (word) (( (bPt) gf←c49504)+492)/* var←c42880 */ , pd160)
;
};
var←c44928 = var←c0166.f0;
(* (( (ptr) cmd←v20984)+4) ) = var←c44928;
};
SOURCE(3802, 43)
{
W2 var←c44960;
{
word pd161;
pd161 = (* (( (ptr) aliasCell←v6904)+3) );
(void) ( *( (fPt) ((* (ptr) pd161 ))))((word) &var←c44960, cmd←v20984, pd161);
};
msg←v21056 = var←c44960.f1;
result←v21028 = var←c44960.f0;
};
};
}
else {
SOURCE(3854, 52)
{
word pd162;
pd162 = (* (( (ptr) (* (( (ptr) gf←c49504)+208)/* var←c44736 */ ))+11) );
result←v21028 = (word) ( *( (fPt) ((* (ptr) pd162 ))))(newCommandLine←v6932, cmd←v20984, pd162);
};
};
/* removed tail goto */
(* (ptr) formal←c0169 ) = result←v21028;
(* (( (ptr) formal←c0169)+1) ) = msg←v21056;
return;
}
static word UniqueRope←P2652(formal←c49568)
word formal←c49568;
{
register ptr gf←c49536 = (ptr) &globalframe;
word var←c7316;
formal←c49568 = (formal←c49568 - 16);
/* UniqueRope: */
SOURCE(2847, 129)
SOURCE(2883, 19)
(* (( (ptr) formal←c49568)+6) ) = ((* (( (ptr) formal←c49568)+6) ) + 1);
SOURCE(2904, 72)
{
word var←c45024;
{
word pd163;
word idx164;
pd163 = (* (( (ptr) (* (( (ptr) gf←c49536)+209)/* var←c45056 */ ))+27) );
var←c45024 = (word) ( *( (fPt) ((* (ptr) pd163 ))))((
idx164 = (* (( (ptr) formal←c49568)+6) ),
SGNCK(idx164)
), 8, 0, pd163);
};
{
word pd165;
pd165 = (* (( (ptr) (* (( (ptr) gf←c49536)+206)/* var←c44544 */ ))+5) );
return((word) ( *( (fPt) ((* (ptr) pd165 ))))((* (( (ptr) gf←c49536)+22) ), var←c45024, (* (( (ptr) gf←c49536)+23) ), 0, 0, pd165)
);
};
};
}
static void AliasesCommand←P240(formal←c0184, cmd←v21116)
word formal←c0184;
word cmd←v21116;
{
W7 var←c49600;
register ptr gf←c49632 = (ptr) &globalframe;
word result←v21160;
word msg←v21188;
/* declaration of var←c45088 skipped */
/* declaration of matchList←v7772 skipped */
/* AliasesCommand: */
SOURCE(3912, 658)
{
word tmpAddr166;
tmpAddr166 = (word) (( (ptr) &var←c49600)+4)/* var←c45088 */ ;
(* (ptr) tmpAddr166 ) = ( ((word) (fPt) EachCommand←P2952) );
(* (( (ptr) tmpAddr166) + 1) ) = 1;
};
SOURCE(3912, 658)
result←v21160 = 0;
SOURCE(3912, 658)
msg←v21188 = 0;
SOURCE(3954, 11)
var←c49600.f6/* matchList←v7772 */ = 0;
SOURCE(4148, 37)
{
W2 var←c45120;
{
word pd167;
pd167 = (* (( (ptr) (* (( (ptr) gf←c49632)+207)/* var←c44576 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd167 ))))((word) &var←c45120, (word) (( (bPt) &var←c49600)+16)/* var←c45088 */ , pd167);
};
};
SOURCE(4187, 76)
{
word pd168;
pd168 = (* (( (ptr) (* (( (ptr) gf←c49632)+205)/* var←c44416 */ ))+16) );
var←c49600.f6/* matchList←v7772 */ = (word) ( *( (fPt) ((* (ptr) pd168 ))))(var←c49600.f6/* matchList←v7772 */ , (* (( (ptr) (* (
( (ptr) gf←c49632)+205)/* var←c44416 */ ))+18) ), pd168);
};
SOURCE(4265, 305)
{
register word each←v7928;
each←v7928 = var←c49600.f6/* matchList←v7772 */ ;
lab←L100024: ;
if ((each←v7928 != 0)) {
}
else {
goto lab←L100021;
};
{
word name←v8056;
word procData←v8084;
SOURCE(4331, 23)
name←v8056 = (* (ptr) each←v7928 );
SOURCE(4356, 62)
{
word pd169;
pd169 = (* (( (ptr) (* (( (ptr) gf←c49632)+207)/* var←c44576 */ ))+6) );
procData←v8084 = (word) ( *( (fPt) ((* (ptr) pd169 ))))(name←v8056, pd169);
};
SOURCE(4420, 150)
{
word var←c45152;
var←c45152 = (* (( (ptr) procData←v8084)+2) );
if ((var←c45152 == 0)) {
goto lab←L100025;
};
if (((* (( (ptr) gf←c49632)+17) ) == XR←GetReferentType(var←c45152))) {
{
word aliasCell←v8128;
aliasCell←v8128 = var←c45152;
SOURCE(4483, 87)
{
word pd170;
pd170 = (* (( (ptr) (* (( (ptr) gf←c49632)+206)/* var←c44544 */ ))+23) );
if ((0 == (word) ( *( (fPt) ((* (ptr) pd170 ))))((* (( (ptr) gf←c49632)+24) ), (* (( (ptr) procData←v8084)+1) ), 1, pd170)
)) {
SOURCE(4537, 33)
{
word pd171;
pd171 = (* (( (ptr) (* (( (ptr) gf←c49632)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd171 ))))((* (( (ptr) cmd←v21116)+1) ), (* (( (ptr) procData←v8084)+1) ), 0, 2147483647, pd171)
;
};
};
};
};
}
else {
lab←L100025: ;
};
};
};
each←v7928 = (* (( (ptr) each←v7928)+1) );
goto lab←L100024;
lab←L100021: ;
};
/* removed tail goto */
(* (ptr) formal←c0184 ) = result←v21160;
(* (( (ptr) formal←c0184)+1) ) = msg←v21188;
return;
}
static word EachCommand←P2952(key←v30496, procData←v30524, formal←c49696)
word key←v30496;
word procData←v30524;
word formal←c49696;
{
register ptr gf←c49664 = (ptr) &globalframe;
word stop←v30568;
formal←c49696 = (formal←c49696 - 16);
/* EachCommand: */
SOURCE(3985, 138)
SOURCE(3985, 138)
stop←v30568 = 0;
SOURCE(4028, 95)
{
word var←c45184;
var←c45184 = (* (( (ptr) procData←v30524)+2) );
if ((var←c45184 == 0)) {
goto lab←L100026;
};
if (((* (( (ptr) gf←c49664)+17) ) == XR←GetReferentType(var←c45184))) {
{
word aliasCell←v8172;
aliasCell←v8172 = var←c45184;
SOURCE(4091, 32)
{
word var←c45216;
var←c45216 = XR←NewObject(8, (* (( (ptr) gf←c49664)+10) ));
(* (ptr) var←c45216 ) = key←v30496;
(* (( (ptr) var←c45216)+1) ) = (* (( (ptr) formal←c49696)+6) );
(* (( (ptr) formal←c49696)+6) ) = var←c45216;
};
};
}
else {
lab←L100026: ;
};
};
SOURCE(3985, 138)
return(stop←v30568);
}
static word GetWord←P300(s←v4920)
word s←v4920;
{
register ptr gf←c49728 = (ptr) &globalframe;
word r←v4964;
W3 var←c0193;
/* GetWord: */
SOURCE(4641, 89)
SOURCE(4641, 89)
r←v4964 = 0;
SOURCE(4692, 38)
{
word pd172;
pd172 = (* (( (ptr) (* (( (ptr) gf←c49728)+208)/* var←c44736 */ ))+10) );
(void) ( *( (fPt) ((* (ptr) pd172 ))))((word) &var←c0193, s←v4920, pd172);
};
r←v4964 = var←c0193.f0;
SOURCE(4641, 89)
return(r←v4964);
}
static word RopeMemb←P360(rope←v5024, lst←v5052)
word rope←v5024;
word lst←v5052;
{
register ptr gf←c49760 = (ptr) &globalframe;
word var←c5180;
/* RopeMemb: */
SOURCE(4734, 194)
SOURCE(4799, 104)
{
register word l←v8216;
l←v8216 = lst←v5052;
lab←L100030: ;
if ((l←v8216 != 0)) {
}
else {
goto lab←L100027;
};
SOURCE(4850, 53)
{
word pd173;
pd173 = (* (( (ptr) (* (( (ptr) gf←c49760)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd173 ))))(rope←v5024, (* (ptr) l←v8216 ), 0, pd173))) {
SOURCE(4891, 12)
return(1);
};
};
l←v8216 = (* (( (ptr) l←v8216)+1) );
goto lab←L100030;
lab←L100027: ;
};
SOURCE(4914, 14)
return(0);
}
static void AnswerbackCommand←P420(formal←c0202, cmd←v5240)
word formal←c0202;
word cmd←v5240;
{
W7 var←c49792;
register ptr gf←c49824 = (ptr) &globalframe;
word result←v5284;
word msg←v5312;
/* declaration of s←v8344 skipped */
/* AnswerbackCommand: */
SOURCE(4932, 273)
SOURCE(4932, 273)
result←v5284 = 0;
SOURCE(4932, 273)
msg←v5312 = 0;
SOURCE(5059, 38)
{
word pd174;
pd174 = (* (( (ptr) (* (( (ptr) gf←c49824)+203)/* var←c44160 */ ))+33) );
var←c49792.f4/* s←v8344 */ = (word) ( *( (fPt) ((* (ptr) pd174 ))))((* (( (ptr) cmd←v5240)+4) ), 0, pd174);
};
SOURCE(5099, 42)
SOURCE(5099, 42)
{
/* declaration of var←c02 skipped */
var←c49792.f5/* var←c02 */ = (* (( (ptr) (* (( (ptr) gf←c49824)+203)/* var←c44160 */ ))+83) );
{
/* declaration of var←c03 skipped */
{
word var←c04;
{
word var←c0815;
var←c0815 = (word) &var←c49792;
var←c04 = (word) XR←Enable(( ((word) (fPt) NoName←Q6852) ), ( ((word) (fPt) NoName←Q8712) ), var←c0815);
};
if ((var←c04 == 4)) {
goto lab←L100033;
};
};
result←v5284 = var←c49792.f6/* var←c03 */ ;
};
};
lab←L100033: ;
SOURCE(5152, 42)
if ((result←v5284 != 0)) {
SOURCE(5173, 21)
{
word pd175;
pd175 = (* (( (ptr) (* (( (ptr) gf←c49824)+203)/* var←c44160 */ ))+91) );
msg←v5312 = (word) ( *( (fPt) ((* (ptr) pd175 ))))(var←c49792.f4/* s←v8344 */ , pd175);
};
};
SOURCE(5196, 9)
{
word pd176;
pd176 = (* (( (ptr) (* (( (ptr) gf←c49824)+203)/* var←c44160 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd176 ))))(var←c49792.f4/* s←v8344 */ , 0, pd176);
};
/* removed tail goto */
(* (ptr) formal←c0202 ) = result←v5284;
(* (( (ptr) formal←c0202)+1) ) = msg←v5312;
return;
}
static word NoName←Q6852(formal←c0746)
word formal←c0746;
{
SOURCE(5099, 42)
{
word pd177;
pd177 = (* (( (ptr) formal←c0746)+5) );
(* (( (ptr) formal←c0746)+6) ) = (word) ( *( (fPt) ((* (ptr) pd177 ))))((* ((( (ptr) formal←c0746)+4)) ), pd177);
};
return(0);
}
static void CommentCommand←P480(formal←c0206, cmd←v21248)
word formal←c0206;
word cmd←v21248;
{
word result←v21292;
word msg←v21320;
/* CommentCommand: */
SOURCE(5211, 40)
SOURCE(5211, 40)
result←v21292 = 0;
SOURCE(5211, 40)
msg←v21320 = 0;
/* removed tail goto */
(* (ptr) formal←c0206 ) = result←v21292;
(* (( (ptr) formal←c0206)+1) ) = msg←v21320;
return;
}
static void CommanderCommand←P540(formal←c0216, cmd←v21380)
word formal←c0216;
word cmd←v21380;
{
register ptr gf←c49856 = (ptr) &globalframe;
word result←v21424;
word msg←v21452;
word child←v8388;
word add←v8416 = 0;
/* CommanderCommand: */
SOURCE(5257, 556)
SOURCE(5257, 556)
result←v21424 = 0;
SOURCE(5257, 556)
msg←v21452 = 0;
SOURCE(5301, 78)
{
word pd178;
pd178 = (* (( (ptr) (* (( (ptr) gf←c49856)+208)/* var←c44736 */ ))+16) );
child←v8388 = (word) ( *( (fPt) ((* (ptr) pd178 ))))(0, 0, 0, cmd←v21380, pd178);
};
SOURCE(5407, 202)
lab←L100040: ;
SOURCE(5407, 202)
{
word keyRope←v8460;
word val←v8488;
SOURCE(5410, 46)
{
word pd179;
pd179 = (* (( (ptr) (* (( (ptr) gf←c49856)+208)/* var←c44736 */ ))+8) );
keyRope←v8460 = (word) ( *( (fPt) ((* (ptr) pd179 ))))(cmd←v21380, 0, pd179);
};
SOURCE(5458, 42)
{
word pd180;
pd180 = (* (( (ptr) (* (( (ptr) gf←c49856)+208)/* var←c44736 */ ))+8) );
val←v8488 = (word) ( *( (fPt) ((* (ptr) pd180 ))))(cmd←v21380, 0, pd180);
};
SOURCE(5502, 22)
if ((keyRope←v8460 == 0)) {
SOURCE(5524, 4)
goto lab←L100039;
};
SOURCE(5530, 79)
{
word var←c45248;
{
word pd181;
pd181 = (* (( (ptr) (* (( (ptr) gf←c49856)+204)/* var←c44352 */ ))+5) );
var←c45248 = (word) ( *( (fPt) ((* (ptr) pd181 ))))(keyRope←v8460, 0, 2147483647, pd181);
};
{
word pd182;
pd182 = (* (( (ptr) (* (( (ptr) gf←c49856)+204)/* var←c44352 */ ))+14) );
add←v8416 = (word) ( *( (fPt) ((* (ptr) pd182 ))))(add←v8416, var←c45248, val←v8488, pd182);
};
};
};
goto lab←L100040;
lab←L100039: ;
SOURCE(5620, 108)
lab←L100043: ;
if ((add←v8416 != 0)) {
}
else {
goto lab←L100041;
};
{
word t←v8532;
SOURCE(5639, 22)
t←v8532 = add←v8416;
SOURCE(5663, 12)
add←v8416 = (* (( (ptr) t←v8532)+1) );
SOURCE(5677, 27)
(* (( (ptr) t←v8532)+1) ) = (* (( (ptr) child←v8388)+6) );
SOURCE(5706, 22)
(* (( (ptr) child←v8388)+6) ) = t←v8532;
};
goto lab←L100043;
lab←L100041: ;
SOURCE(5739, 74)
{
word pd183;
pd183 = (* (( (ptr) (* (( (ptr) gf←c49856)+208)/* var←c44736 */ ))+17) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd183 ))))(child←v8388, pd183))) {
SOURCE(5796, 17)
result←v21424 = (* (( (ptr) gf←c49856)+21) );
};
};
/* removed tail goto */
(* (ptr) formal←c0216 ) = result←v21424;
(* (( (ptr) formal←c0216)+1) ) = msg←v21452;
return;
}
static void DateCommand←P600(formal←c0222, cmd←v21512)
word formal←c0222;
word cmd←v21512;
{
register ptr gf←c49888 = (ptr) &globalframe;
word result←v21556;
word msg←v21584;
/* DateCommand: */
SOURCE(5819, 89)
SOURCE(5819, 89)
result←v21556 = 0;
SOURCE(5819, 89)
msg←v21584 = 0;
SOURCE(5858, 50)
{
word var←c45280;
{
word pd184;
pd184 = (* (( (ptr) (* (( (ptr) gf←c49888)+210)/* var←c45312 */ ))+14) );
var←c45280 = (word) ( *( (fPt) ((* (ptr) pd184 ))))(pd184);
};
{
W2 var←c45344;
var←c45344.f0 = 13;
var←c45344.f1 = var←c45280;
{
word pd185;
pd185 = (* (( (ptr) (* (( (ptr) gf←c49888)+203)/* var←c44160 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd185 ))))((* (( (ptr) cmd←v21512)+1) ), (* (( (ptr) gf←c49888)+25) ), var←c45344, pd185);
};
};
};
/* removed tail goto */
(* (ptr) formal←c0222 ) = result←v21556;
(* (( (ptr) formal←c0222)+1) ) = msg←v21584;
return;
}
static void EchoCommand←P660(formal←c0233, cmd←v21644)
word formal←c0233;
word cmd←v21644;
{
register ptr gf←c49920 = (ptr) &globalframe;
word result←v21688;
word msg←v21716;
word FirstArg←v8576 = 1;
word nFlag←v8604 = 1;
word sFlag←v8632 = 1;
word argv←v8660;
/* EchoCommand: */
SOURCE(5914, 520)
SOURCE(5914, 520)
result←v21688 = 0;
SOURCE(5914, 520)
msg←v21716 = 0;
SOURCE(6028, 59)
{
word pd186;
pd186 = (* (( (ptr) (* (( (ptr) gf←c49920)+208)/* var←c44736 */ ))+6) );
argv←v8660 = (word) ( *( (fPt) ((* (ptr) pd186 ))))(cmd←v21644, 0, pd186);
};
SOURCE(6089, 300)
{
register word i←v8704 = 1;
register word noName←c45376;
noName←c45376 = (* (ptr) argv←v8660 );
if ((i←v8704 >= noName←c45376)) {
goto lab←L100046;
};
lab←L100049: ;
{
word arg←v8748;
SOURCE(6121, 20)
{
word limit187;
arg←v8748 = (* ((( (ptr) argv←v8660)+1)+(
limit187 = (* (ptr) argv←v8660 ),
BCK(i←v8704, limit187)
)) );
};
SOURCE(6143, 16)
FirstArg←v8576 = 0;
{
word pd188;
pd188 = (* (( (ptr) (* (( (ptr) gf←c49920)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd188 ))))(arg←v8748, (* (( (ptr) gf←c49920)+26) ), 1, pd188))) {
SOURCE(6209, 15)
nFlag←v8604 = (0 == nFlag←v8604);
}
else {
{
word pd189;
pd189 = (* (( (ptr) (* (( (ptr) gf←c49920)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd189 ))))(arg←v8748, (* (( (ptr) gf←c49920)+27) ), 1, pd189))) {
SOURCE(6257, 15)
sFlag←v8632 = (0 == sFlag←v8632);
}
else {
SOURCE(6287, 48)
if ( ( (0 != sFlag←v8632) ? (0 == FirstArg←v8576) : 0 ) ) {
SOURCE(6316, 19)
{
word pd190;
pd190 = (* (( (ptr) (* (( (ptr) gf←c49920)+203)/* var←c44160 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd190 ))))((* (( (ptr) cmd←v21644)+1) ), 32, pd190);
};
};
SOURCE(6337, 24)
{
word pd191;
word limit192;
pd191 = (* (( (ptr) (* (( (ptr) gf←c49920)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd191 ))))((* (( (ptr) cmd←v21644)+1) ), (* ((( (ptr) argv←v8660)+1)+(
/*1*/ limit192 = (* (ptr) argv←v8660 ),
/*1*/ BCK(i←v8704, limit192)
/*1*/ )) ), 0, 2147483647, pd191);
};
};
};
};
};
SOURCE(6366, 23)
{
word pd193;
pd193 = (* (( (ptr) (* (( (ptr) gf←c49920)+211)/* var←c45408 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd193 ))))(pd193);
};
};
i←v8704 = (i←v8704 + 1);
if ((i←v8704 < noName←c45376)) {
goto lab←L100049;
};
lab←L100046: ;
};
SOURCE(6400, 34)
if ((0 != nFlag←v8604)) {
SOURCE(6414, 20)
{
word pd194;
pd194 = (* (( (ptr) (* (( (ptr) gf←c49920)+203)/* var←c44160 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd194 ))))((* (( (ptr) cmd←v21644)+1) ), 10, pd194);
};
};
/* removed tail goto */
(* (ptr) formal←c0233 ) = result←v21688;
(* (( (ptr) formal←c0233)+1) ) = msg←v21716;
return;
}
static void ErrorCommand←P720(formal←c0237, cmd←v21776)
word formal←c0237;
word cmd←v21776;
{
word result←v21820;
word msg←v21848;
/* ErrorCommand: */
SOURCE(6440, 38)
SOURCE(6440, 38)
result←v21820 = 0;
SOURCE(6440, 38)
msg←v21848 = 0;
SOURCE(6480, 6)
(void) XR←RaiseUnnamedError();
}
static void FailCommand←P780(formal←c0242, cmd←v21908)
word formal←c0242;
word cmd←v21908;
{
register ptr gf←c49952 = (ptr) &globalframe;
word result←v21952;
word msg←v21980;
/* FailCommand: */
SOURCE(6490, 156)
SOURCE(6490, 156)
result←v21952 = 0;
SOURCE(6490, 156)
msg←v21980 = 0;
SOURCE(6529, 17)
result←v21952 = (* (( (ptr) gf←c49952)+21) );
SOURCE(6548, 21)
msg←v21980 = (* (( (ptr) cmd←v21908)+4) );
SOURCE(6571, 75)
{
word pd195;
pd195 = (* (( (ptr) (* (( (ptr) gf←c49952)+206)/* var←c44544 */ ))+23) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd195 ))))((* (( (ptr) gf←c49952)+28) ), msg←v21980, 1, pd195))) {
SOURCE(6603, 43)
{
word var←c45440;
{
word pd196;
pd196 = (* (( (ptr) (* (( (ptr) gf←c49952)+206)/* var←c44544 */ ))+15) );
var←c45440 = ((word) ( *( (fPt) ((* (ptr) pd196 ))))(msg←v21980, pd196) - 2);
};
{
word pd197;
pd197 = (* (( (ptr) (* (( (ptr) gf←c49952)+206)/* var←c44544 */ ))+17) );
msg←v21980 = (word) ( *( (fPt) ((* (ptr) pd197 ))))(msg←v21980, 1, var←c45440, pd197);
};
};
};
};
/* removed tail goto */
(* (ptr) formal←c0242 ) = result←v21952;
(* (( (ptr) formal←c0242)+1) ) = msg←v21980;
return;
}
static void FailSkipCommand←P840(formal←c0248, cmd←v22040)
word formal←c0248;
word cmd←v22040;
{
register ptr gf←c49984 = (ptr) &globalframe;
word result←v22084;
word msg←v22112;
/* FailSkipCommand: */
SOURCE(6652, 349)
SOURCE(6652, 349)
result←v22084 = 0;
SOURCE(6652, 349)
msg←v22112 = 0;
SOURCE(6695, 43)
{
word pd198;
pd198 = (* (( (ptr) (* (( (ptr) gf←c49984)+208)/* var←c44736 */ ))+15) );
result←v22084 = (word) ( *( (fPt) ((* (ptr) pd198 ))))(cmd←v22040, (* (( (ptr) gf←c49984)+29) ), pd198);
};
SOURCE(6740, 190)
if ((result←v22084 == (* (( (ptr) gf←c49984)+21) ))) {
SOURCE(6768, 153)
{
word pd199;
word pd200;
pd199 = (* (( (ptr) (* (( (ptr) gf←c49984)+206)/* var←c44544 */ ))+25) );
pd200 = (* (( (ptr) (* (( (ptr) gf←c49984)+206)/* var←c44544 */ ))+15) );
if (( (int)(word) ( *( (fPt) ((* (ptr) pd199 ))))((* (( (ptr) cmd←v22040)+4) ), 0, (* (( (ptr) gf←c49984)+30) ), pd199) == (int)(word) ( *( (fPt) (
(* (ptr) pd200 ))))((* ((( (ptr) cmd←v22040)+4)) ), pd200))) {
SOURCE(6856, 18)
result←v22084 = 0;
}
else {
SOURCE(6874, 47)
{
word pd201;
pd201 = (* (( (ptr) (* (( (ptr) gf←c49984)+206)/* var←c44544 */ ))+6) );
msg←v22112 = (word) ( *( (fPt) ((* (ptr) pd201 ))))((* (( (ptr) gf←c49984)+31) ), (* (( (ptr) cmd←v22040)+4) ), pd201);
};
};
};
SOURCE(6923, 7)
goto lab←L100052;
};
SOURCE(6933, 68)
{
W2 var←c45472;
{
word pd202;
pd202 = (* (( (ptr) (* (( (ptr) gf←c49984)+208)/* var←c44736 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd202 ))))((word) &var←c45472, cmd←v22040, (* (( (ptr) cmd←v22040)+4) ), pd202);
};
result←v22084 = var←c45472.f0;
};
/* removed tail goto */
lab←L100052: ;
(* (ptr) formal←c0248 ) = result←v22084;
(* (( (ptr) formal←c0248)+1) ) = msg←v22112;
return;
}
static word IsCommandPrefix←P900(prefix←v5384, command←v5412)
word prefix←v5384;
word command←v5412;
{
register ptr gf←c50016 = (ptr) &globalframe;
word is←v5456;
word pLen←v8792;
word cLen←v8820;
word c←v8848;
word first←v8876 = 0;
register word afterLast←v8904 = 0;
/* IsCommandPrefix: */
SOURCE(7007, 413)
SOURCE(7076, 25)
{
word pd203;
pd203 = (* (( (ptr) (* (( (ptr) gf←c50016)+206)/* var←c44544 */ ))+15) );
pLen←v8792 = (word) ( *( (fPt) ((* (ptr) pd203 ))))(prefix←v5384, pd203);
};
SOURCE(7103, 26)
{
word pd204;
pd204 = (* (( (ptr) (* (( (ptr) gf←c50016)+206)/* var←c44544 */ ))+15) );
cLen←v8820 = (word) ( *( (fPt) ((* (ptr) pd204 ))))(command←v5412, pd204);
};
SOURCE(7167, 140)
afterLast←v8904 = 0;
lab←L100056: ;
{
word tc205;
if (( (int)afterLast←v8904 < (int)cLen←v8820)) {
{
word pd206;
pd206 = (* (( (ptr) (* (( (ptr) gf←c50016)+206)/* var←c44544 */ ))+9) );
c←v8848 = (word) ( *( (fPt) ((* (ptr) pd206 ))))(command←v5412, afterLast←v8904, pd206);
};
tc205 = (word) (c←v8848 != 32);
}
else {
tc205 = (word) 0;
};
if (tc205) {
}
else {
goto lab←L100053;
};
};
SOURCE(7264, 43)
{
word var←c45504;
var←c45504 = c←v8848;
if ((var←c45504 == 47) || (var←c45504 == 62)) {
SOURCE(7288, 19)
first←v8876 = (afterLast←v8904 + 1);
};
};
afterLast←v8904 = (afterLast←v8904 + 1);
goto lab←L100056;
lab←L100053: ;
SOURCE(7327, 93)
if (( (int)pLen←v8792 <= (int)(afterLast←v8904 - first←v8876))) {
{
word var←c45536;
{
word pd207;
pd207 = (* (( (ptr) (* (( (ptr) gf←c50016)+206)/* var←c44544 */ ))+17) );
var←c45536 = (word) ( *( (fPt) ((* (ptr) pd207 ))))(command←v5412, first←v8876, pLen←v8792, pd207);
};
{
word pd208;
pd208 = (* (( (ptr) (* (( (ptr) gf←c50016)+206)/* var←c44544 */ ))+8) );
is←v5456 = (0 != (word) ( *( (fPt) ((* (ptr) pd208 ))))(prefix←v5384, var←c45536, 0, pd208));
};
};
}
else {
is←v5456 = 0;
};
SOURCE(7007, 413)
return(is←v5456);
}
static void HistoryCommand←P960(formal←c0279, cmd←v22172)
word formal←c0279;
word cmd←v22172;
{
W7 var←c50048;
register ptr gf←c50080 = (ptr) &globalframe;
word result←v22216;
word msg←v22244;
/* HistoryCommand: */
SOURCE(7426, 1457)
SOURCE(7426, 1457)
result←v22216 = 0;
SOURCE(7426, 1457)
msg←v22244 = 0;
SOURCE(7466, 1417)
SOURCE(7468, 72)
{
word prompt←v8948;
register word toGive←v8976 = 0;
word includeDuplicates←v9004 = 1;
word includePrompt←v9032 = 1;
word n←v9060 = 10;
word seen←v9088 = 0;
word commandToolData←v9116;
word h←v9144;
word cls←v9172;
SOURCE(7468, 72)
{
word pd209;
pd209 = (* (( (ptr) (* (( (ptr) gf←c50080)+212)/* var←c45568 */ ))+20) );
prompt←v8948 = XR←Narrow((word) ( *( (fPt) ((* (ptr) pd209 ))))((* (( (ptr) gf←c50080)+32) ), (* (( (ptr) cmd←v22172)+6)
), pd209), (* (( (ptr) gf←c50080)+4) ));
};
if ((prompt←v8948 == 0)) {
goto lab←L100059;
};
if (((*(int*)prompt←v8948<0) == 0)) {
goto lab←L100059;
};
(void) XR←RaiseError(XR←NarrowFault, 0);
lab←L100059: ;
SOURCE(7661, 94)
{
word pd210;
pd210 = (* (( (ptr) (* (( (ptr) gf←c50080)+213)/* var←c45632 */ ))+5) );
commandToolData←v9116 = (word) ( *( (fPt) ((* (ptr) pd210 ))))(cmd←v22172, pd210);
};
SOURCE(7757, 65)
h←v9144 = (* (( (ptr) commandToolData←v9116)+9) );
SOURCE(7824, 40)
{
word pd211;
pd211 = (* (( (ptr) (* (( (ptr) gf←c50080)+203)/* var←c44160 */ ))+33) );
cls←v9172 = (word) ( *( (fPt) ((* (ptr) pd211 ))))((* (( (ptr) cmd←v22172)+4) ), 0, pd211);
};
SOURCE(7866, 382)
{
register word i←v9300;
{
word pd212;
pd212 = (* (( (ptr) (* (( (ptr) gf←c50080)+203)/* var←c44160 */ ))+85) );
i←v9300 = (word) ( *( (fPt) ((* (ptr) pd212 ))))(cls←v9172, 1, pd212);
};
lab←L100063: ;
{
word pd213;
pd213 = (* (( (ptr) (* (( (ptr) gf←c50080)+203)/* var←c44160 */ ))+15) );
if ((0 == (word) ( *( (fPt) ((* (ptr) pd213 ))))(cls←v9172, pd213))) {
}
else {
goto lab←L100060;
};
};
{
/* declaration of toke←v9344 skipped */
W2 var←c0273;
SOURCE(7947, 46)
{
word pd214;
pd214 = (* (( (ptr) (* (( (ptr) gf←c50080)+203)/* var←c44160 */ ))+89) );
(void) ( *( (fPt) ((* (ptr) pd214 ))))((word) &var←c0273, cls←v9172, (* (( (ptr) (* (( (ptr) gf←c50080)+203)/* var←c44160 */ ))+88)
), pd214);
};
var←c50048.f4/* toke←v9344 */ = var←c0273.f0;
{
word pd215;
pd215 = (* (( (ptr) (* (( (ptr) gf←c50080)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd215 ))))(var←c50048.f4/* toke←v9344 */ , (* (( (ptr) gf←c50080)+34) ), 1, pd215)
)) {
SOURCE(8032, 21)
includePrompt←v9032 = 0;
}
else {
{
word pd216;
pd216 = (* (( (ptr) (* (( (ptr) gf←c50080)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd216 ))))(var←c50048.f4/* toke←v9344 */ , (* (( (ptr) gf←c50080)+35) ), 1, pd216)
)) {
SOURCE(8075, 20)
includePrompt←v9032 = 1;
}
else {
{
word pd217;
pd217 = (* (( (ptr) (* (( (ptr) gf←c50080)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd217 ))))(var←c50048.f4/* toke←v9344 */ , (* (( (ptr) gf←c50080)+36) ), 1, pd217)
)) {
SOURCE(8117, 25)
/*1*/ includeDuplicates←v9004 = 0;
/*1*/ }
else {
/*1*/ {
/*1*/ word pd218;
/*1*/ pd218 = (* (( (ptr) (* (( (ptr) gf←c50080)+206)/* var←c44544 */ ))+8) );
/*1*/ if ((0 != (word) ( *( (fPt) ((* (ptr) pd218 ))))(var←c50048.f4/* toke←v9344 */ , (* (( (ptr) gf←c50080)+37) ), 1, pd218)
/*1*/ )) {
SOURCE(8164, 24)
/*1*/ includeDuplicates←v9004 = 1;
/*1*/ }
/*1*/ else {
SOURCE(8201, 47)
/*1*/ {
/*1*/ /* declaration of var←c05 skipped */
/*1*/ var←c50048.f5/* var←c05 */ = (* (( (ptr) (* (( (ptr) gf←c50080)+209)/* var←c45056 */ ))+10) );
/*1*/ {
/*1*/ /* declaration of var←c06 skipped */
/*1*/ {
/*1*/ word var←c07;
/*1*/ {
/*1*/ word var←c0816;
/*1*/ var←c0816 = (word) &var←c50048;
/*1*/ var←c07 = (word) XR←Enable(( ((word) (fPt) NoName←Q6912) ), ( ((word) (fPt) NoName←Q8652) ), var←c0816);
/*1*/ };
/*1*/ if ((var←c07 == 5)) {
/*1*/ goto lab←L100058;
/*1*/ };
/*1*/ };
/*1*/ n←v9060 = var←c50048.f6/* var←c06 */ ;
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
};
};
};
};
};
};
{
word pd219;
pd219 = (* (( (ptr) (* (( (ptr) gf←c50080)+203)/* var←c44160 */ ))+85) );
i←v9300 = (word) ( *( (fPt) ((* (ptr) pd219 ))))(cls←v9172, 1, pd219);
};
goto lab←L100063;
lab←L100060: ;
};
SOURCE(8274, 11)
{
word pd220;
pd220 = (* (( (ptr) (* (( (ptr) gf←c50080)+203)/* var←c44160 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd220 ))))(cls←v9172, 0, pd220);
};
SOURCE(8287, 63)
if ((0 == includeDuplicates←v9004)) {
SOURCE(8317, 33)
{
word pd221;
pd221 = (* (( (ptr) (* (( (ptr) gf←c50080)+214)/* var←c45664 */ ))+5) );
seen←v9088 = (word) ( *( (fPt) ((* (ptr) pd221 ))))(17, 0, pd221);
};
};
SOURCE(8352, 280)
lab←L100068: ;
if (( (int)n←v9060 > (int)0)) {
}
else {
goto lab←L100066;
};
{
word cr←v9388 = 0;
W2 var←c0275;
word var←c0817;
SOURCE(8377, 16)
if ((h←v9144 == 0)) {
SOURCE(8393, 4)
goto lab←L100067;
};
SOURCE(8399, 29)
cr←v9388 = (* (( (ptr) h←v9144)+1) );
SOURCE(8430, 184)
{
word pd222;
pd222 = (* (( (ptr) (* (( (ptr) gf←c50080)+206)/* var←c44544 */ ))+8) );
if ((0 == (word) ( *( (fPt) ((* (ptr) pd222 ))))(cr←v9388, (* (( (ptr) gf←c50080)+38) ), 1, pd222))) {
SOURCE(8463, 151)
if ((0 != includeDuplicates←v9004)) { goto then0223;};
{
word pd224;
pd224 = (* (( (ptr) (* (( (ptr) gf←c50080)+214)/* var←c45664 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd224 ))))((word) &var←c0275, seen←v9088, cr←v9388, pd224);
};
var←c0817 = var←c0275.f0;
if ((0 == var←c0817)) {
then0223: ;
SOURCE(8519, 25)
{
word var←c45696;
var←c45696 = XR←NewObject(8, (* (( (ptr) gf←c50080)+10) ));
(* (ptr) var←c45696 ) = cr←v9388;
(* (( (ptr) var←c45696)+1) ) = toGive←v8976;
toGive←v8976 = var←c45696;
};
SOURCE(8546, 57)
if ((0 == includeDuplicates←v9004)) {
SOURCE(8576, 27)
{
word var←c45728;
word pd225;
pd225 = (* (( (ptr) (* (( (ptr) gf←c50080)+214)/* var←c45664 */ ))+11) );
var←c45728 = (word) ( *( (fPt) ((* (ptr) pd225 ))))(seen←v9088, cr←v9388, (* (( (ptr) gf←c50080)+39) ), pd225);
};
};
SOURCE(8605, 9)
n←v9060 = (n←v9060 - 1);
};
};
};
SOURCE(8622, 10)
h←v9144 = (* (( (ptr) h←v9144)+9) );
};
goto lab←L100068;
lab←L100066: ;
lab←L100067: ;
SOURCE(8643, 143)
/* removed bogus assignment */
lab←L100072: ;
if ((toGive←v8976 != 0)) {
}
else {
goto lab←L100069;
};
SOURCE(8698, 43)
if ((0 != includePrompt←v9032)) {
SOURCE(8720, 21)
{
word pd226;
pd226 = (* (( (ptr) (* (( (ptr) gf←c50080)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd226 ))))((* (( (ptr) cmd←v22172)+1) ), (* (( (ptr) gf←c50080)+40) ), 0, 2147483647, pd226)
;
};
};
SOURCE(8743, 43)
{
W2 var←c45760;
var←c45760.f0 = 11;
var←c45760.f1 = (* (ptr) toGive←v8976 );
{
word pd227;
pd227 = (* (( (ptr) (* (( (ptr) gf←c50080)+203)/* var←c44160 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd227 ))))((* (( (ptr) cmd←v22172)+1) ), (* (( (ptr) gf←c50080)+25) ), var←c45760, pd227);
};
};
toGive←v8976 = (* (( (ptr) toGive←v8976)+1) );
goto lab←L100072;
lab←L100069: ;
SOURCE(8797, 12)
result←v22216 = (* (( (ptr) gf←c50080)+41) );
};
goto lab←L100073;
lab←L100058: ;
SOURCE(8831, 17)
result←v22216 = (* (( (ptr) gf←c50080)+21) );
SOURCE(8850, 31)
msg←v22244 = (* (( (ptr) gf←c50080)+42) );
lab←L100073: ;
/* removed tail goto */
(* (ptr) formal←c0279 ) = result←v22216;
(* (( (ptr) formal←c0279)+1) ) = msg←v22244;
return;
}
static word NoName←Q6912(formal←c0754)
word formal←c0754;
{
SOURCE(8201, 47)
{
word pd228;
pd228 = (* (( (ptr) formal←c0754)+5) );
(* (( (ptr) formal←c0754)+6) ) = (word) ( *( (fPt) ((* (ptr) pd228 ))))((* (( (ptr) formal←c0754)+4) ), 8, pd228);
};
return(0);
}
static void IndentCommand←P1020(formal←c0298, cmd←v22304)
word formal←c0298;
word cmd←v22304;
{
W10 var←c50112;
register ptr gf←c50144 = (ptr) &globalframe;
word result←v22348;
/* declaration of msg←v22376 skipped */
/* IndentCommand: */
SOURCE(8887, 1412)
SOURCE(8887, 1412)
result←v22348 = 0;
SOURCE(8887, 1412)
(* (( (ptr) &var←c50112)+4)/* msg←v22376 */ ) = 0;
SOURCE(8926, 1373)
SOURCE(8928, 16)
{
/* declaration of prefix←v9432 skipped */
word terminator←v9460 = 0;
word terminatorSize←v9488 = 0;
/* declaration of line←v9516 skipped */
word argv←v9544;
SOURCE(8928, 16)
(* (( (ptr) &var←c50112)+5)/* prefix←v9432 */ ) = 0;
SOURCE(8995, 31)
(* (( (ptr) &var←c50112)+6)/* line←v9516 */ ) = XR←NewObject(204, (* (( (ptr) gf←c50144)+12) ));
(* (( (hPt) (* (( (ptr) &var←c50112)+6)/* line←v9516 */ ))+1) ) = 200;
SOURCE(9028, 59)
{
word pd229;
pd229 = (* (( (ptr) (* (( (ptr) gf←c50144)+208)/* var←c44736 */ ))+6) );
argv←v9544 = (word) ( *( (fPt) ((* (ptr) pd229 ))))(cmd←v22304, 0, pd229);
};
SOURCE(9089, 126)
if (((* (ptr) argv←v9544 ) > 2) || ( ((* (ptr) argv←v9544 ) < 2) ? ((* (( (ptr) (* (( (ptr) cmd←v22304)+5) ))+2) ) != (* (
( (ptr) gf←c50144)+44) )) : 0 ) ) {
SOURCE(9169, 46)
{
word pd230;
pd230 = (* (( (ptr) (* (( (ptr) gf←c50144)+206)/* var←c44544 */ ))+6) );
(* (( (ptr) &var←c50112)+4)/* msg←v22376 */ ) = (word) ( *( (fPt) ((* (ptr) pd230 ))))((* (( (ptr) gf←c50144)+45) ), (* (
( (ptr) (* (( (ptr) cmd←v22304)+5) ))+1) ), pd230);
};
SOURCE(9217, 10)
goto lab←L100076;
};
SOURCE(9230, 564)
{
word var←c45824;
var←c45824 = (* (( (ptr) (* (( (ptr) cmd←v22304)+5) ))+2) );
if ((var←c45824 == (* (( (ptr) gf←c50144)+44) ))) {
SOURCE(9277, 386)
{
word depth←v9612;
word depthNAT←v9640;
SOURCE(9306, 240)
if (((* (ptr) argv←v9544 ) < 2)) {
SOURCE(9330, 9)
depth←v9612 = 8;
SOURCE(9341, 12)
depthNAT←v9640 = 8;
}
else {
SOURCE(9364, 71)
{
/* declaration of var←c08 skipped */
/* declaration of var←c09 skipped */
{
word limit232;
(* (( (ptr) &var←c50112)+7)/* var←c08 */ ) = (* ((( (ptr) argv←v9544)+1)+(
/*1*/ limit232 = (* (ptr) argv←v9544 ),
/*1*/ BCK(1, limit232)
/*1*/ )) );
};
(* (( (ptr) &var←c50112)+8)/* var←c09 */ ) = (* (( (ptr) (* (( (ptr) gf←c50144)+209)/* var←c45056 */ ))+10) );
{
/* declaration of var←c010 skipped */
{
word var←c011;
{
/*1*/ word var←c0818;
/*1*/ var←c0818 = (word) &var←c50112;
/*1*/ var←c011 = (word) XR←Enable(( ((word) (fPt) NoName←Q7272) ), ( ((word) (fPt) NoName←Q8592) ), var←c0818);
/*1*/ };
if ((var←c011 == 6)) {
/*1*/ goto lab←L100076;
/*1*/ };
};
depth←v9612 = (* (( (ptr) &var←c50112)+9)/* var←c010 */ );
};
};
SOURCE(9451, 64)
if (( (int)depth←v9612 < (int)0) || ( (int)depth←v9612 > (int)80)) {
SOURCE(9481, 34)
(* (( (ptr) &var←c50112)+4)/* msg←v22376 */ ) = (* (( (ptr) gf←c50144)+47) );
SOURCE(9517, 10)
goto lab←L100076;
};
SOURCE(9530, 16)
depthNAT←v9640 = SGNCK(depth←v9612);
};
SOURCE(9551, 28)
{
word var←c45856;
word var←c45888;
word var←c45920;
var←c45856 = BCK(depthNAT←v9640, 32768);
var←c45888 = ((word) ((word) (var←c45856 + 3) >> 2) << 2);
var←c45920 = XR←NewObject((4 + var←c45888), (* (( (ptr) gf←c50144)+12) ));
(* (( (hPt) var←c45920)+1) ) = var←c45856;
(* (( (ptr) &var←c50112)+5)/* prefix←v9432 */ ) = var←c45920;
};
SOURCE(9581, 45)
{
register word i←v9684 = 0;
register word noName←c45952;
noName←c45952 = depthNAT←v9640;
if ((i←v9684 >= noName←c45952)) {
goto lab←L100079;
};
lab←L100082: ;
SOURCE(9612, 14)
{
word limit233;
(* ((( (bPt) (* (( (ptr) &var←c50112)+5)/* prefix←v9432 */ ))+4)+(
limit233 = (word) (* (( (hPt) (* (( (ptr) &var←c50112)+5)/* prefix←v9432 */ ))+1) ),
BCK(i←v9684, limit233)
)) ) = 32;
};
i←v9684 = (i←v9684 + 1);
if ((i←v9684 < noName←c45952)) {
goto lab←L100082;
};
lab←L100079: ;
};
SOURCE(9637, 24)
(* (hPt) (* (( (ptr) &var←c50112)+5)/* prefix←v9432 */ ) ) = BCK(depthNAT←v9640, 32768);
};
goto endif0231;
};
if ((var←c45824 == (* (( (ptr) gf←c50144)+48) ))) {
SOURCE(9684, 33)
{
word pd234;
word limit235;
pd234 = (* (( (ptr) (* (( (ptr) gf←c50144)+206)/* var←c44544 */ ))+36) );
(* (( (ptr) &var←c50112)+5)/* prefix←v9432 */ ) = (word) ( *( (fPt) ((* (ptr) pd234 ))))((* (((( (ptr) argv←v9544)+1)+(
limit235 = (* (ptr) argv←v9544 ),
BCK(1, limit235)
))) ), pd234);
};
goto endif0231;
};
if ((var←c45824 == (* (( (ptr) gf←c50144)+49) ))) {
SOURCE(9733, 20)
{
word limit236;
terminator←v9460 = (* ((( (ptr) argv←v9544)+1)+(
limit236 = (* (ptr) argv←v9544 ),
BCK(1, limit236)
)) );
};
SOURCE(9755, 39)
{
word pd237;
word idx238;
pd237 = (* (( (ptr) (* (( (ptr) gf←c50144)+206)/* var←c44544 */ ))+15) );
terminatorSize←v9488 = (
idx238 = (word) ( *( (fPt) ((* (ptr) pd237 ))))(terminator←v9460, pd237),
SGNCK(idx238)
);
};
goto endif0231;
};
SOURCE(9808, 5)
(void) XR←RaiseUnnamedError();
goto endif0231;
endif0231: ;
};
SOURCE(9815, 417)
lab←L100085: ;
{
/* declaration of var←c012 skipped */
/* declaration of var←c013 skipped */
/* declaration of var←c014 skipped */
word var←c45984;
SOURCE(9818, 31)
(* (( (ptr) &var←c50112)+7)/* var←c012 */ ) = (* (ptr) cmd←v22304 );
(* (( (ptr) &var←c50112)+8)/* var←c013 */ ) = (* (( (ptr) (* (( (ptr) gf←c50144)+203)/* var←c44160 */ ))+15) );
{
word var←c015;
{
word var←c0819;
var←c0819 = (word) &var←c50112;
var←c015 = (word) XR←Enable(( ((word) (fPt) NoName←Q7212) ), ( ((word) (fPt) NoName←Q8532) ), var←c0819);
};
if ((var←c015 == 7)) {
goto lab←L100084;
};
};
if ((0 != (* (( (ptr) &var←c50112)+9)/* var←c014 */ ))) {
SOURCE(9860, 4)
goto lab←L100084;
};
SOURCE(9866, 56)
{
/* declaration of var←c016 skipped */
/* declaration of var←c017 skipped */
(* (( (ptr) &var←c50112)+7)/* var←c016 */ ) = (* (ptr) cmd←v22304 );
(* (( (ptr) &var←c50112)+8)/* var←c017 */ ) = (* (( (ptr) (* (( (ptr) gf←c50144)+203)/* var←c44160 */ ))+90) );
{
/* declaration of var←c018 skipped */
{
word var←c019;
{
word var←c0820;
var←c0820 = (word) &var←c50112;
var←c019 = (word) XR←Enable(( ((word) (fPt) NoName←Q7152) ), ( ((word) (fPt) NoName←Q8472) ), var←c0820);
};
if ((var←c019 == 8)) {
goto lab←L100075;
}
else {
if ((var←c019 == 7)) {
goto lab←L100084;
};
};
};
(* (( (ptr) &var←c50112)+6)/* line←v9516 */ ) = (* (( (ptr) &var←c50112)+9)/* var←c018 */ );
};
};
SOURCE(9986, 83)
{
word tc239;
word pd240;
if ((terminator←v9460 != 0)) {
{
word text←v42800;
text←v42800 = (* (( (ptr) &var←c50112)+6)/* line←v9516 */ );
var←c45984 = text←v42800;
};
pd240 = (* (( (ptr) (* (( (ptr) gf←c50144)+206)/* var←c44544 */ ))+8) );
tc239 = (word) (0 != (word) ( *( (fPt) ((* (ptr) pd240 ))))(terminator←v9460, var←c45984, 1, pd240));
}
else {
tc239 = (word) 0;
};
if (tc239) {
SOURCE(10069, 4)
goto lab←L100084;
};
};
SOURCE(10075, 66)
if (((* (( (ptr) &var←c50112)+5)/* prefix←v9432 */ ) != 0)) {
SOURCE(10096, 45)
{
/* declaration of var←c020 skipped */
/* declaration of var←c021 skipped */
(* (( (ptr) &var←c50112)+7)/* var←c020 */ ) = (* (( (ptr) cmd←v22304)+1) );
(* (( (ptr) &var←c50112)+8)/* var←c021 */ ) = (* (( (ptr) (* (( (ptr) gf←c50144)+203)/* var←c44160 */ ))+23) );
{
word var←c022;
{
word var←c0821;
var←c0821 = (word) &var←c50112;
var←c022 = (word) XR←Enable(( ((word) (fPt) NoName←Q7092) ), ( ((word) (fPt) NoName←Q8412) ), var←c0821);
};
if ((var←c022 == 7)) {
goto lab←L100084;
};
};
};
};
SOURCE(10148, 43)
{
/* declaration of var←c023 skipped */
/* declaration of var←c024 skipped */
(* (( (ptr) &var←c50112)+7)/* var←c023 */ ) = (* (( (ptr) cmd←v22304)+1) );
(* (( (ptr) &var←c50112)+8)/* var←c024 */ ) = (* (( (ptr) (* (( (ptr) gf←c50144)+203)/* var←c44160 */ ))+23) );
{
word var←c025;
{
word var←c0822;
var←c0822 = (word) &var←c50112;
var←c025 = (word) XR←Enable(( ((word) (fPt) NoName←Q7032) ), ( ((word) (fPt) NoName←Q8352) ), var←c0822);
};
if ((var←c025 == 7)) {
goto lab←L100084;
};
};
};
SOURCE(10198, 34)
{
/* declaration of var←c026 skipped */
/* declaration of var←c027 skipped */
(* (( (ptr) &var←c50112)+7)/* var←c026 */ ) = (* (( (ptr) cmd←v22304)+1) );
(* (( (ptr) &var←c50112)+8)/* var←c027 */ ) = (* (( (ptr) (* (( (ptr) gf←c50144)+203)/* var←c44160 */ ))+21) );
{
word var←c028;
{
word var←c0823;
var←c0823 = (word) &var←c50112;
var←c028 = (word) XR←Enable(( ((word) (fPt) NoName←Q6972) ), ( ((word) (fPt) NoName←Q8292) ), var←c0823);
};
if ((var←c028 == 7)) {
goto lab←L100084;
};
};
};
};
goto lab←L100085;
lab←L100084: ;
};
goto lab←L100097;
lab←L100075: ;
goto lab←L100097;
lab←L100076: ;
SOURCE(10280, 17)
result←v22348 = (* (( (ptr) gf←c50144)+21) );
lab←L100097: ;
/* removed tail goto */
(* (ptr) formal←c0298 ) = result←v22348;
(* (( (ptr) formal←c0298)+1) ) = (* (( (ptr) &var←c50112)+4)/* msg←v22376 */ );
return;
}
static word NoName←Q6972(formal←c0756)
word formal←c0756;
{
SOURCE(10198, 34)
{
word pd241;
pd241 = (* (( (ptr) formal←c0756)+8) );
(void) ( *( (fPt) ((* (ptr) pd241 ))))((* (( (ptr) formal←c0756)+7) ), 10, pd241);
};
return(0);
}
static word NoName←Q7032(formal←c0757)
word formal←c0757;
{
SOURCE(10148, 43)
{
word pd242;
pd242 = (* (( (ptr) formal←c0757)+8) );
(void) ( *( (fPt) ((* (ptr) pd242 ))))((* (( (ptr) formal←c0757)+7) ), (* (( (ptr) formal←c0757)+6) ), 0, 2147483647, pd242)
;
};
return(0);
}
static word NoName←Q7092(formal←c0758)
word formal←c0758;
{
SOURCE(10096, 45)
{
word pd243;
pd243 = (* (( (ptr) formal←c0758)+8) );
(void) ( *( (fPt) ((* (ptr) pd243 ))))((* (( (ptr) formal←c0758)+7) ), (* (( (ptr) formal←c0758)+5) ), 0, 2147483647, pd243)
;
};
return(0);
}
static word NoName←Q7152(formal←c0759)
word formal←c0759;
{
SOURCE(9866, 56)
{
word pd244;
pd244 = (* (( (ptr) formal←c0759)+8) );
(* (( (ptr) formal←c0759)+9) ) = (word) ( *( (fPt) ((* (ptr) pd244 ))))((* (( (ptr) formal←c0759)+7) ), (* (( (ptr) formal←c0759)+6)
), pd244);
};
return(0);
}
static word NoName←Q7212(formal←c0760)
word formal←c0760;
{
SOURCE(9818, 31)
{
word pd245;
pd245 = (* (( (ptr) formal←c0760)+8) );
(* (( (ptr) formal←c0760)+9) ) = (word) ( *( (fPt) ((* (ptr) pd245 ))))((* ((( (ptr) formal←c0760)+7)) ), pd245);
};
return(0);
}
static word NoName←Q7272(formal←c0761)
word formal←c0761;
{
SOURCE(9364, 71)
{
word pd246;
pd246 = (* (( (ptr) formal←c0761)+8) );
(* (( (ptr) formal←c0761)+9) ) = (word) ( *( (fPt) ((* (ptr) pd246 ))))((* (( (ptr) formal←c0761)+7) ), 8, pd246);
};
return(0);
}
static void PriorityCommand←P1080(formal←c0306, formal←c0864)
word formal←c0306;
word formal←c0864;
{
W10 var←c50176;
/* declaration of cmd←v22436 skipped */
register ptr gf←c50208 = (ptr) &globalframe;
word result←v22480;
word msg←v22508;
/* declaration of old←v9728 skipped */
word new←v9756;
(* (( (ptr) &var←c50176)+4)/* cmd←v22436 */ ) = formal←c0864;
/* PriorityCommand: */
SOURCE(10303, 466)
SOURCE(10303, 466)
result←v22480 = 0;
SOURCE(10303, 466)
msg←v22508 = 0;
SOURCE(10354, 45)
{
word pd247;
pd247 = (* (( (ptr) (* (( (ptr) gf←c50208)+211)/* var←c45408 */ ))+14) );
(* (( (ptr) &var←c50176)+5)/* old←v9728 */ ) = (word) ( *( (fPt) ((* (ptr) pd247 ))))(pd247);
};
SOURCE(10401, 197)
{
word var←c46048;
var←c46048 = (* (( (ptr) (* (( (ptr) (* (( (ptr) &var←c50176)+4)/* cmd←v22436 */ ))+5) ))+2) );
if ((var←c46048 == (* (( (ptr) gf←c50208)+50) ))) {
new←v9756 = 3;
goto endif0248;
};
if ((var←c46048 == (* (( (ptr) gf←c50208)+51) ))) {
new←v9756 = 1;
goto endif0248;
};
if ((var←c46048 == (* (( (ptr) gf←c50208)+52) ))) {
new←v9756 = 2;
goto endif0248;
};
new←v9756 = (
XR←RaiseUnnamedError(), 0
);
goto endif0248;
endif0248: ;
};
SOURCE(10600, 24)
{
word pd249;
pd249 = (* (( (ptr) (* (( (ptr) gf←c50208)+211)/* var←c45408 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd249 ))))(new←v9756, pd249);
};
SOURCE(10626, 114)
{
W2 var←c46080;
{
/* declaration of var←c029 skipped */
/* declaration of var←c030 skipped */
(* (( (ptr) &var←c50176)+6)/* var←c029 */ ) = (* (( (ptr) (* (( (ptr) &var←c50176)+4)/* cmd←v22436 */ ))+4) );
(* (( (ptr) &var←c50176)+7)/* var←c030 */ ) = (* (( (ptr) (* (( (ptr) gf←c50208)+208)/* var←c44736 */ ))+13) );
{
/* declaration of var←c031 skipped */
{
word var←c0824;
var←c0824 = (word) &var←c50176;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q7332) ), ( ((word) (fPt) NoName←Q8232) ), var←c0824);
};
var←c46080 = (* (W2Pt) (( (ptr) &var←c50176)+8)/* var←c031 */ );
};
};
msg←v22508 = var←c46080.f1;
result←v22480 = var←c46080.f0;
};
SOURCE(10745, 24)
{
word pd250;
pd250 = (* (( (ptr) (* (( (ptr) gf←c50208)+211)/* var←c45408 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd250 ))))((* ((( (ptr) &var←c50176)+5)/* old←v9728 */ ) ), pd250);
};
/* removed tail goto */
(* (ptr) formal←c0306 ) = result←v22480;
(* (( (ptr) formal←c0306)+1) ) = msg←v22508;
return;
}
static word NoName←Q7332(formal←c0763)
word formal←c0763;
{
SOURCE(10626, 114)
{
word pd251;
pd251 = (* (( (ptr) formal←c0763)+7) );
(void) ( *( (fPt) ((* (ptr) pd251 ))))((word) (( (bPt) formal←c0763)+32), (* (( (ptr) formal←c0763)+4) ), (* (( (ptr) formal←c0763)+6)
), pd251);
};
return(0);
}
static word SpecialChar←P1140(c←v24904)
word c←v24904;
{
word quit←v24948;
/* SpecialChar: */
SOURCE(10976, 132)
SOURCE(10976, 132)
quit←v24948 = 0;
SOURCE(11009, 99)
{
word var←c46112;
var←c46112 = c←v24904;
if (((((((var←c46112 - 97) <= 25) || ((var←c46112 - 65) <= 25)) || ((var←c46112 - 48) <= 9)) || (var←c46112 == 47)) || (var←c46112 == 42)) || (var←c46112 == 46)) {
return(0);
}
else {
return(1);
};
};
}
static void PrevResultCommand←P1200(formal←c0316, cmd←v5516)
word formal←c0316;
word cmd←v5516;
{
register ptr gf←c50240 = (ptr) &globalframe;
word result←v5560;
word msg←v5588;
/* PrevResultCommand: */
SOURCE(11112, 233)
SOURCE(11112, 233)
result←v5560 = 0;
SOURCE(11112, 233)
msg←v5588 = 0;
SOURCE(11239, 46)
{
word pd252;
pd252 = (* (( (ptr) (* (( (ptr) gf←c50240)+212)/* var←c45568 */ ))+20) );
result←v5560 = (word) ( *( (fPt) ((* (ptr) pd252 ))))((* (( (ptr) gf←c50240)+29) ), (* (( (ptr) cmd←v5516)+6) ), pd252);
};
SOURCE(11287, 58)
{
W2 var←c46144;
{
word v←v42752;
v←v42752 = result←v5560;
var←c46144.f0 = 10;
var←c46144.f1 = v←v42752;
};
{
word pd253;
pd253 = (* (( (ptr) (* (( (ptr) gf←c50240)+203)/* var←c44160 */ ))+63) );
msg←v5588 = (word) ( *( (fPt) ((* (ptr) pd253 ))))((* (( (ptr) gf←c50240)+53) ), var←c46144, pd253);
};
};
/* removed tail goto */
(* (ptr) formal←c0316 ) = result←v5560;
(* (( (ptr) formal←c0316)+1) ) = msg←v5588;
return;
}
static void ResultOfCommand←P1260(formal←c0322, cmd←v5660)
word formal←c0322;
word cmd←v5660;
{
register ptr gf←c50272 = (ptr) &globalframe;
word result←v5704;
word msg←v5732;
/* ResultOfCommand: */
SOURCE(11351, 229)
SOURCE(11351, 229)
result←v5704 = 0;
SOURCE(11351, 229)
msg←v5732 = 0;
SOURCE(11476, 53)
{
word pd254;
pd254 = (* (( (ptr) (* (( (ptr) gf←c50272)+208)/* var←c44736 */ ))+11) );
result←v5704 = (word) ( *( (fPt) ((* (ptr) pd254 ))))((* (( (ptr) cmd←v5660)+4) ), cmd←v5660, pd254);
};
SOURCE(11531, 49)
{
W2 var←c46240;
{
word v←v42704;
v←v42704 = result←v5704;
var←c46240.f0 = 10;
var←c46240.f1 = v←v42704;
};
{
word pd255;
pd255 = (* (( (ptr) (* (( (ptr) gf←c50272)+203)/* var←c44160 */ ))+63) );
msg←v5732 = (word) ( *( (fPt) ((* (ptr) pd255 ))))((* (( (ptr) gf←c50272)+54) ), var←c46240, pd255);
};
};
/* removed tail goto */
(* (ptr) formal←c0322 ) = result←v5704;
(* (( (ptr) formal←c0322)+1) ) = msg←v5732;
return;
}
static void PropCommand←P1320(formal←c0349, cmd←v25008)
word formal←c0349;
word cmd←v25008;
{
W7 var←c50304;
register ptr gf←c50336 = (ptr) &globalframe;
word result←v25052;
word msg←v25080;
word n←v9800 = 0;
/* declaration of arg←v9828 skipped */
/* declaration of v←v9856 skipped */
word quote←v9884 = 1;
word demand←v9912 = 0;
word value←v9940 = 0;
word default←v9968 = 0;
/* PropCommand: */
SOURCE(11586, 1444)
SOURCE(11586, 1444)
result←v25052 = 0;
SOURCE(11586, 1444)
msg←v25080 = 0;
SOURCE(11637, 42)
{
word pd256;
pd256 = (* (( (ptr) (* (( (ptr) gf←c50336)+208)/* var←c44736 */ ))+8) );
var←c50304.f4/* arg←v9828 */ = (word) ( *( (fPt) ((* (ptr) pd256 ))))(cmd←v25008, 0, pd256);
};
SOURCE(11681, 12)
var←c50304.f5/* v←v9856 */ = 0;
SOURCE(11776, 261)
lab←L100108: ;
{
word pd257;
pd257 = (* (( (ptr) (* (( (ptr) gf←c50336)+206)/* var←c44544 */ ))+23) );
if ((word) ( *( (fPt) ((* (ptr) pd257 ))))((* (( (ptr) gf←c50336)+55) ), var←c50304.f4/* arg←v9828 */ , 1, pd257)) {
}
else {
goto lab←L100106;
};
};
SOURCE(11807, 183)
{
register word i←v10044 = 1;
register word noName←c46336;
{
word pd258;
pd258 = (* (( (ptr) (* (( (ptr) gf←c50336)+206)/* var←c44544 */ ))+15) );
noName←c46336 = (word) ( *( (fPt) ((* (ptr) pd258 ))))(var←c50304.f4/* arg←v9828 */ , pd258);
};
if (( (int)i←v10044 >= (int)noName←c46336)) {
goto lab←L100109;
};
lab←L100112: ;
SOURCE(11844, 146)
{
word var←c46400;
{
word var←c46368;
{
word pd259;
pd259 = (* (( (ptr) (* (( (ptr) gf←c50336)+206)/* var←c44544 */ ))+9) );
var←c46368 = (word) ( *( (fPt) ((* (ptr) pd259 ))))(var←c50304.f4/* arg←v9828 */ , i←v10044, pd259);
};
{
word pd260;
pd260 = (* (( (ptr) (* (( (ptr) gf←c50336)+206)/* var←c44544 */ ))+28) );
var←c46400 = (word) ( *( (fPt) ((* (ptr) pd260 ))))(var←c46368, pd260);
};
};
switch (var←c46400) {
case 113:
SOURCE(11893, 9)
quote←v9884 = 2;
break;
case 115:
SOURCE(11910, 9)
quote←v9884 = 0;
break;
case 102:
SOURCE(11927, 13)
demand←v9912 = 1;
break;
default:
SOURCE(11953, 37)
{
word var←c0337;
var←c0337 = (* (( (ptr) (* (( (ptr) cmd←v25008)+5) ))+1) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c50336)+208)/* var←c44736 */ ))+4) ), (word) &var←c0337);
};
break;
};
};
i←v10044 = (i←v10044 + 1);
if (( (int)i←v10044 < (int)noName←c46336)) {
goto lab←L100112;
};
lab←L100109: ;
};
SOURCE(12001, 36)
{
word pd261;
pd261 = (* (( (ptr) (* (( (ptr) gf←c50336)+208)/* var←c44736 */ ))+8) );
var←c50304.f4/* arg←v9828 */ = (word) ( *( (fPt) ((* (ptr) pd261 ))))(cmd←v25008, 0, pd261);
};
goto lab←L100108;
lab←L100106: ;
SOURCE(12048, 55)
if ((var←c50304.f4/* arg←v9828 */ == 0)) {
SOURCE(12066, 37)
{
word var←c0338;
var←c0338 = (* (( (ptr) (* (( (ptr) cmd←v25008)+5) ))+1) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c50336)+208)/* var←c44736 */ ))+4) ), (word) &var←c0338);
};
};
SOURCE(12105, 40)
{
word pd262;
pd262 = (* (( (ptr) (* (( (ptr) gf←c50336)+208)/* var←c44736 */ ))+8) );
default←v9968 = (word) ( *( (fPt) ((* (ptr) pd262 ))))(cmd←v25008, 0, pd262);
};
SOURCE(12147, 82)
{
word pd263;
pd263 = (* (( (ptr) (* (( (ptr) gf←c50336)+208)/* var←c44736 */ ))+8) );
if (((word) ( *( (fPt) ((* (ptr) pd263 ))))(cmd←v25008, 0, pd263) != 0)) {
SOURCE(12192, 37)
{
word var←c0339;
var←c0339 = (* (( (ptr) (* (( (ptr) cmd←v25008)+5) ))+1) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c50336)+208)/* var←c44736 */ ))+4) ), (word) &var←c0339);
};
};
};
SOURCE(12231, 15)
value←v9940 = default←v9968;
SOURCE(12248, 49)
{
word var←c46432;
{
word pd264;
pd264 = (* (( (ptr) (* (( (ptr) gf←c50336)+204)/* var←c44352 */ ))+5) );
var←c46432 = (word) ( *( (fPt) ((* (ptr) pd264 ))))(var←c50304.f4/* arg←v9828 */ , 0, 2147483647, pd264);
};
{
word pd265;
pd265 = (* (( (ptr) (* (( (ptr) gf←c50336)+208)/* var←c44736 */ ))+15) );
var←c50304.f5/* v←v9856 */ = (word) ( *( (fPt) ((* (ptr) pd265 ))))(cmd←v25008, var←c46432, pd265);
};
};
SOURCE(12299, 240)
if ((var←c50304.f5/* v←v9856 */ == 0)) {
SOURCE(12315, 224)
{
word var←c46464;
{
word pd266;
pd266 = (* (( (ptr) (* (( (ptr) gf←c50336)+208)/* var←c44736 */ ))+15) );
var←c46464 = (word) ( *( (fPt) ((* (ptr) pd266 ))))(cmd←v25008, (* (( (ptr) gf←c50336)+56) ), pd266);
};
if ((var←c46464 == 0)) {
goto lab←L100113;
};
if (((* (( (ptr) gf←c50336)+7) ) == XR←GetReferentType(var←c46464))) {
{
/* declaration of argv←v10088 skipped */
var←c50304.f6/* argv←v10088 */ = var←c46464;
SOURCE(12425, 114)
SOURCE(12425, 114)
{
word var←c032;
{
word var←c0825;
var←c0825 = (word) &var←c50304;
var←c032 = (word) XR←Enable(( ((word) (fPt) NoName←Q7392) ), ( ((word) (fPt) NoName←Q8172) ), var←c0825);
};
/* removed trivial cond node */
};
};
}
else {
lab←L100113: ;
};
};
};
SOURCE(12556, 240)
{
word var←c46560;
word var←c46592;
var←c46560 = var←c50304.f5/* v←v9856 */ ;
if ((var←c46560 == 0)) {
goto lab←L100118;
};
var←c46592 = XR←GetReferentType(var←c46560);
{
word tc267;
if (((* (( (ptr) gf←c50336)+4) ) == var←c46592)) {
tc267 = (word) ((*(int*)var←c46560<0) == 0);
}
else {
tc267 = (word) 0;
};
if (tc267) {
{
word rope←v10176;
rope←v10176 = var←c46560;
SOURCE(12589, 12)
value←v9940 = rope←v10176;
};
}
else {
if (((* (( (ptr) gf←c50336)+11) ) == var←c46592)) {
{
word atom←v10220;
atom←v10220 = var←c46560;
SOURCE(12617, 27)
{
word pd268;
pd268 = (* (( (ptr) (* (( (ptr) gf←c50336)+204)/* var←c44352 */ ))+9) );
value←v9940 = (word) ( *( (fPt) ((* (ptr) pd268 ))))(atom←v10220, pd268);
};
};
}
else {
lab←L100118: ;
SOURCE(12659, 137)
if ((0 != demand←v9912)) {
SOURCE(12674, 122)
{
word var←c46624;
{
word pd269;
pd269 = (* (( (ptr) (* (( (ptr) gf←c50336)+206)/* var←c44544 */ ))+5) );
var←c46624 = (word) ( *( (fPt) ((* (ptr) pd269 ))))((* (( (ptr) gf←c50336)+58) ), var←c50304.f4/* arg←v9828 */ , ( (var←c50304.f5/* v←v9856 */ == 0) ? (* (
/*1*/ ( (ptr) gf←c50336)+59) ) : (* (( (ptr) gf←c50336)+60) ) ) , 0, 0, pd269);
};
{
word var←c0348;
var←c0348 = var←c46624;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c50336)+208)/* var←c44736 */ ))+4) ), (word) &var←c0348);
};
};
};
};
};
};
};
SOURCE(12801, 110)
if ((quote←v9884 == 1)) {
SOURCE(12821, 90)
{
word tc270;
word pd271;
word pd273;
word idx274;
pd271 = (* (( (ptr) (* (( (ptr) gf←c50336)+206)/* var←c44544 */ ))+13) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd271 ))))(value←v9940, pd271))) { goto then0272;};
pd273 = (* (( (ptr) (* (( (ptr) gf←c50336)+206)/* var←c44544 */ ))+26) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd273 ))))(value←v9940, 0, 2147483647, (word) (( (bPt) gf←c50336)+652)/* var←c43520 */ , pd273)
)) {
then0272: ;
tc270 = (word) 2;
}
else {
tc270 = (word) 0;
};
quote←v9884 = (
idx274 = (word) tc270,
BCK(idx274, 3)
);
};
};
SOURCE(12916, 59)
if ((quote←v9884 != 0)) {
SOURCE(12934, 41)
{
word pd275;
pd275 = (* (( (ptr) (* (( (ptr) gf←c50336)+209)/* var←c45056 */ ))+38) );
value←v9940 = (word) ( *( (fPt) ((* (ptr) pd275 ))))(value←v9940, 1, pd275);
};
};
SOURCE(12977, 26)
{
word pd276;
pd276 = (* (( (ptr) (* (( (ptr) gf←c50336)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd276 ))))((* (( (ptr) cmd←v25008)+1) ), value←v9940, 0, 2147483647, pd276);
};
SOURCE(13005, 25)
{
word pd277;
pd277 = (* (( (ptr) (* (( (ptr) gf←c50336)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd277 ))))((* (( (ptr) cmd←v25008)+1) ), (* (( (ptr) gf←c50336)+43) ), 0, 2147483647, pd277)
;
};
/* removed tail goto */
(* (ptr) formal←c0349 ) = result←v25052;
(* (( (ptr) formal←c0349)+1) ) = msg←v25080;
return;
}
static word NoName←Q7392(formal←c0768)
word formal←c0768;
{
register ptr gf←c0767 = (ptr) &globalframe;
SOURCE(12459, 33)
{
word i←v10132;
word var←c46496;
SOURCE(12459, 33)
{
word pd278;
pd278 = (* (( (ptr) (* (( (ptr) gf←c0767)+209)/* var←c45056 */ ))+10) );
i←v10132 = (word) ( *( (fPt) ((* (ptr) pd278 ))))((* (( (ptr) formal←c0768)+4) ), 8, pd278);
};
SOURCE(12494, 45)
var←c46496 = (i←v10132 + 1);
if ( ( ( (int)var←c46496 >= (int)0) ? ( (int)var←c46496 < (int)(* (ptr) (* (( (ptr) formal←c0768)+6) ) )) : 0 ) ) {
SOURCE(12526, 13)
{
word var←c46528;
var←c46528 = (i←v10132 + 1);
{
word limit279;
(* (( (ptr) formal←c0768)+5) ) = (* ((( (ptr) (* (( (ptr) formal←c0768)+6) ))+1)+(
limit279 = (* (ptr) (* (( (ptr) formal←c0768)+6) ) ),
BCK(var←c46528, limit279)
)) );
};
};
};
};
return(0);
}
static void PropertiesCommand←P1380(formal←c0369, formal←c0865)
word formal←c0369;
word formal←c0865;
{
W9 var←c50368;
/* declaration of cmd←v25140 skipped */
register ptr gf←c50400 = (ptr) &globalframe;
word result←v25184;
/* declaration of msg←v25212 skipped */
(* (( (ptr) &var←c50368)+4)/* cmd←v25140 */ ) = formal←c0865;
/* PropertiesCommand: */
SOURCE(13036, 1786)
SOURCE(13036, 1786)
result←v25184 = 0;
SOURCE(13036, 1786)
(* (( (ptr) &var←c50368)+5)/* msg←v25212 */ ) = 0;
SOURCE(13087, 1735)
SOURCE(13089, 14)
{
word depth←v10264 = 5;
word width←v10292 = 32;
register word props←v10320 = 0;
word i←v10348 = 1;
word token←v10376 = 0;
word any←v10404 = 0;
word verboseFlag←v10432 = 0;
word key←v10460 = 0;
word argv←v10488;
SOURCE(13231, 84)
{
/* declaration of var←c033 skipped */
(* (( (ptr) &var←c50368)+6)/* var←c033 */ ) = (* (( (ptr) (* (( (ptr) gf←c50400)+208)/* var←c44736 */ ))+6) );
{
/* declaration of var←c034 skipped */
{
word var←c035;
{
word var←c0826;
var←c0826 = (word) &var←c50368;
var←c035 = (word) XR←Enable(( ((word) (fPt) NoName←Q7572) ), ( ((word) (fPt) NoName←Q8112) ), var←c0826);
};
if ((var←c035 == 10)) {
goto lab←L100120;
};
};
argv←v10488 = (* (( (ptr) &var←c50368)+7)/* var←c034 */ );
};
};
SOURCE(13347, 1439)
SOURCE(13349, 210)
if (((* (( (ptr) (* (( (ptr) (* (( (ptr) &var←c50368)+4)/* cmd←v25140 */ ))+5) ))+2) ) == (* (( (ptr) gf←c50400)+61) ))) {
SOURCE(13404, 34)
{
word pd280;
pd280 = (* (( (ptr) (* (( (ptr) gf←c50400)+215)/* var←c46656 */ ))+6) );
props←v10320 = (word) ( *( (fPt) ((* (ptr) pd280 ))))(pd280);
};
SOURCE(13440, 40)
{
word pd281;
pd281 = (* (( (ptr) (* (( (ptr) gf←c50400)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd281 ))))((* (( (ptr) (* (( (ptr) &var←c50368)+4)/* cmd←v25140 */ ))+1) ), (* (( (ptr) gf←c50400)+62)
), 0, 2147483647, pd281);
};
}
else {
SOURCE(13491, 24)
props←v10320 = (* (( (ptr) (* (( (ptr) &var←c50368)+4)/* cmd←v25140 */ ))+6) );
SOURCE(13517, 42)
{
word pd282;
pd282 = (* (( (ptr) (* (( (ptr) gf←c50400)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd282 ))))((* (( (ptr) (* (( (ptr) &var←c50368)+4)/* cmd←v25140 */ ))+1) ), (* (( (ptr) gf←c50400)+63)
), 0, 2147483647, pd282);
};
};
SOURCE(13564, 810)
lab←L100126: ;
SOURCE(13567, 23)
{
word pd283;
pd283 = (* (( (ptr) (* (( (ptr) gf←c50400)+211)/* var←c45408 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd283 ))))(pd283);
};
SOURCE(13592, 23)
if ((i←v10348 >= (* (ptr) argv←v10488 ))) {
SOURCE(13615, 4)
goto lab←L100125;
};
SOURCE(13621, 15)
{
word limit284;
token←v10376 = (* ((( (ptr) argv←v10488)+1)+(
limit284 = (* (ptr) argv←v10488 ),
BCK(i←v10348, limit284)
)) );
};
SOURCE(13638, 9)
i←v10348 = (i←v10348 + 1);
SOURCE(13649, 184)
{
word pd285;
pd285 = (* (( (ptr) (* (( (ptr) gf←c50400)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd285 ))))(token←v10376, (* (( (ptr) gf←c50400)+36) ), 0, pd285))) {
SOURCE(13684, 22)
if ((i←v10348 == (* (ptr) argv←v10488 ))) {
SOURCE(13706, 13)
goto lab←L100123;
};
SOURCE(13721, 55)
{
/* declaration of var←c036 skipped */
/* declaration of var←c037 skipped */
{
word limit286;
(* (( (ptr) &var←c50368)+6)/* var←c036 */ ) = (* ((( (ptr) argv←v10488)+1)+(
limit286 = (* (ptr) argv←v10488 ),
BCK(i←v10348, limit286)
)) );
};
(* (( (ptr) &var←c50368)+7)/* var←c037 */ ) = (* (( (ptr) (* (( (ptr) gf←c50400)+209)/* var←c45056 */ ))+10) );
{
/* declaration of var←c038 skipped */
{
word var←c039;
{
word var←c0827;
var←c0827 = (word) &var←c50368;
var←c039 = (word) XR←Enable(( ((word) (fPt) NoName←Q7512) ), ( ((word) (fPt) NoName←Q8052) ), var←c0827);
};
if ((var←c039 == 11)) {
goto lab←L100123;
};
};
depth←v10264 = (* (( (ptr) &var←c50368)+8)/* var←c038 */ );
};
};
SOURCE(13792, 18)
if (( (int)width←v10292 < (int)0)) {
SOURCE(13810, 12)
goto lab←L100123;
};
SOURCE(13824, 9)
i←v10348 = (i←v10348 + 1);
SOURCE(13835, 4)
goto lab←L100126;
};
};
SOURCE(13844, 182)
{
word pd287;
pd287 = (* (( (ptr) (* (( (ptr) gf←c50400)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd287 ))))(token←v10376, (* (( (ptr) gf←c50400)+64) ), 0, pd287))) {
SOURCE(13879, 22)
if ((i←v10348 == (* (ptr) argv←v10488 ))) {
SOURCE(13901, 12)
goto lab←L100123;
};
SOURCE(13915, 55)
{
/* declaration of var←c040 skipped */
/* declaration of var←c041 skipped */
{
word limit288;
(* (( (ptr) &var←c50368)+6)/* var←c040 */ ) = (* ((( (ptr) argv←v10488)+1)+(
limit288 = (* (ptr) argv←v10488 ),
BCK(i←v10348, limit288)
)) );
};
(* (( (ptr) &var←c50368)+7)/* var←c041 */ ) = (* (( (ptr) (* (( (ptr) gf←c50400)+209)/* var←c45056 */ ))+10) );
{
/* declaration of var←c042 skipped */
{
word var←c043;
{
word var←c0828;
var←c0828 = (word) &var←c50368;
var←c043 = (word) XR←Enable(( ((word) (fPt) NoName←Q7452) ), ( ((word) (fPt) NoName←Q7992) ), var←c0828);
};
if ((var←c043 == 11)) {
goto lab←L100123;
};
};
width←v10292 = (* (( (ptr) &var←c50368)+8)/* var←c042 */ );
};
};
SOURCE(13985, 18)
if (( (int)width←v10292 < (int)0)) {
SOURCE(14003, 12)
goto lab←L100123;
};
SOURCE(14017, 9)
i←v10348 = (i←v10348 + 1);
SOURCE(14028, 4)
goto lab←L100126;
};
};
SOURCE(14037, 53)
{
word pd289;
pd289 = (* (( (ptr) (* (( (ptr) gf←c50400)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd289 ))))(token←v10376, (* (( (ptr) gf←c50400)+65) ), 0, pd289))) {
SOURCE(14072, 18)
verboseFlag←v10432 = 1;
SOURCE(14092, 4)
goto lab←L100126;
};
};
SOURCE(14101, 10)
any←v10404 = 1;
SOURCE(14113, 136)
{
word tc290;
word pd291;
word pd292;
pd291 = (* (( (ptr) (* (( (ptr) gf←c50400)+206)/* var←c44544 */ ))+15) );
if (( (int)(word) ( *( (fPt) ((* (ptr) pd291 ))))(token←v10376, pd291) > (int)1)) {
pd292 = (* (( (ptr) (* (( (ptr) gf←c50400)+206)/* var←c44544 */ ))+9) );
tc290 = (word) ((word) ( *( (fPt) ((* (ptr) pd292 ))))(token←v10376, 0, pd292) == 36);
}
else {
tc290 = (word) 0;
};
if (tc290) {
SOURCE(14162, 61)
{
word var←c46688;
{
word pd293;
pd293 = (* (( (ptr) (* (( (ptr) gf←c50400)+206)/* var←c44544 */ ))+17) );
var←c46688 = (word) ( *( (fPt) ((* (ptr) pd293 ))))(token←v10376, 1, 2147483647, pd293);
};
{
word pd294;
pd294 = (* (( (ptr) (* (( (ptr) gf←c50400)+204)/* var←c44352 */ ))+5) );
key←v10460 = (word) ( *( (fPt) ((* (ptr) pd294 ))))(var←c46688, 0, 2147483647, pd294);
};
};
}
else {
SOURCE(14223, 26)
{
word pd295;
pd295 = (* (( (ptr) (* (( (ptr) gf←c50400)+204)/* var←c44352 */ ))+5) );
key←v10460 = (word) ( *( (fPt) ((* (ptr) pd295 ))))(token←v10376, 0, 2147483647, pd295);
};
};
};
SOURCE(14251, 22)
{
word pd296;
pd296 = (* (( (ptr) (* (( (ptr) gf←c50400)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd296 ))))((* (( (ptr) (* (( (ptr) &var←c50368)+4)/* cmd←v25140 */ ))+1) ), token←v10376, 0, 2147483647, pd296)
;
};
SOURCE(14275, 22)
{
word pd297;
pd297 = (* (( (ptr) (* (( (ptr) gf←c50400)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd297 ))))((* (( (ptr) (* (( (ptr) &var←c50368)+4)/* cmd←v25140 */ ))+1) ), (* (( (ptr) gf←c50400)+66)
), 0, 2147483647, pd297);
};
SOURCE(14299, 53)
{
word var←c46720;
{
word pd298;
pd298 = (* (( (ptr) (* (( (ptr) gf←c50400)+212)/* var←c45568 */ ))+20) );
var←c46720 = (word) ( *( (fPt) ((* (ptr) pd298 ))))(key←v10460, props←v10320, pd298);
};
(void) PrintAny←P2040(var←c46720, (* (( (ptr) (* (( (ptr) &var←c50368)+4)/* cmd←v25140 */ ))+1) ));
};
SOURCE(14354, 20)
{
word pd299;
pd299 = (* (( (ptr) (* (( (ptr) gf←c50400)+203)/* var←c44160 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd299 ))))((* (( (ptr) (* (( (ptr) &var←c50368)+4)/* cmd←v25140 */ ))+1) ), 10, pd299);
};
goto lab←L100126;
lab←L100125: ;
SOURCE(14385, 349)
if ((0 == any←v10404)) {
SOURCE(14403, 166)
/* removed bogus assignment */
lab←L100134: ;
if ((props←v10320 != 0)) {
}
else {
goto lab←L100131;
};
SOURCE(14452, 34)
(void) PrintAny←P2040((* (ptr) (* (ptr) props←v10320 ) ), (* (( (ptr) (* (( (ptr) &var←c50368)+4)/* cmd←v25140 */ ))+1)
));
SOURCE(14488, 22)
{
word pd300;
pd300 = (* (( (ptr) (* (( (ptr) gf←c50400)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd300 ))))((* (( (ptr) (* (( (ptr) &var←c50368)+4)/* cmd←v25140 */ ))+1) ), (* (( (ptr) gf←c50400)+66)
), 0, 2147483647, pd300);
};
SOURCE(14512, 34)
(void) PrintAny←P2040((* (( (ptr) (* (ptr) props←v10320 ))+1) ), (* (( (ptr) (* (( (ptr) &var←c50368)+4)/* cmd←v25140 */ ))+1)
));
SOURCE(14548, 21)
{
word pd301;
pd301 = (* (( (ptr) (* (( (ptr) gf←c50400)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd301 ))))((* (( (ptr) (* (( (ptr) &var←c50368)+4)/* cmd←v25140 */ ))+1) ), (* (( (ptr) gf←c50400)+43)
), 0, 2147483647, pd301);
};
props←v10320 = (* (( (ptr) props←v10320)+1) );
goto lab←L100134;
lab←L100131: ;
SOURCE(14714, 20)
{
word pd302;
pd302 = (* (( (ptr) (* (( (ptr) gf←c50400)+203)/* var←c44160 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd302 ))))((* (( (ptr) (* (( (ptr) &var←c50368)+4)/* cmd←v25140 */ ))+1) ), 10, pd302);
};
};
goto lab←L100135;
lab←L100123: ;
SOURCE(14756, 28)
result←v25184 = (* (( (ptr) gf←c50400)+21) );
(* (( (ptr) &var←c50368)+5)/* msg←v25212 */ ) = (* (( (ptr) gf←c50400)+67) );
goto lab←L100119;
lab←L100135: ;
};
goto lab←L100136;
lab←L100120: ;
SOURCE(14803, 17)
result←v25184 = (* (( (ptr) gf←c50400)+21) );
lab←L100136: ;
/* removed tail goto */
lab←L100119: ;
(* (ptr) formal←c0369 ) = result←v25184;
(* (( (ptr) formal←c0369)+1) ) = (* (( (ptr) &var←c50368)+5)/* msg←v25212 */ );
return;
}
static word NoName←Q7452(formal←c0770)
word formal←c0770;
{
SOURCE(13915, 55)
{
word pd303;
pd303 = (* (( (ptr) formal←c0770)+7) );
(* (( (ptr) formal←c0770)+8) ) = (word) ( *( (fPt) ((* (ptr) pd303 ))))((* (( (ptr) formal←c0770)+6) ), 8, pd303);
};
return(0);
}
static word NoName←Q7512(formal←c0771)
word formal←c0771;
{
SOURCE(13721, 55)
{
word pd304;
pd304 = (* (( (ptr) formal←c0771)+7) );
(* (( (ptr) formal←c0771)+8) ) = (word) ( *( (fPt) ((* (ptr) pd304 ))))((* (( (ptr) formal←c0771)+6) ), 8, pd304);
};
return(0);
}
static word NoName←Q7572(formal←c0772)
word formal←c0772;
{
SOURCE(13231, 84)
{
word pd305;
pd305 = (* (( (ptr) formal←c0772)+6) );
(* (( (ptr) formal←c0772)+7) ) = (word) ( *( (fPt) ((* (ptr) pd305 ))))((* (( (ptr) formal←c0772)+4) ), 0, pd305);
};
return(0);
}
static void RedoCommand←P1440(formal←c0387, cmd←v25272)
word formal←c0387;
word cmd←v25272;
{
register ptr gf←c50432 = (ptr) &globalframe;
word result←v25316;
word msg←v25344;
/* RedoCommand: */
SOURCE(14826, 943)
SOURCE(14826, 943)
result←v25316 = 0;
SOURCE(14826, 943)
msg←v25344 = 0;
SOURCE(14863, 906)
SOURCE(14865, 94)
{
word commandToolData←v10544;
word cls←v10572;
word trash←v10600;
word key←v10628;
W2 var←c0377;
SOURCE(14865, 94)
{
word pd306;
pd306 = (* (( (ptr) (* (( (ptr) gf←c50432)+213)/* var←c45632 */ ))+5) );
commandToolData←v10544 = (word) ( *( (fPt) ((* (ptr) pd306 ))))(cmd←v25272, pd306);
};
SOURCE(14961, 40)
{
word pd307;
pd307 = (* (( (ptr) (* (( (ptr) gf←c50432)+203)/* var←c44160 */ ))+33) );
cls←v10572 = (word) ( *( (fPt) ((* (ptr) pd307 ))))((* (( (ptr) cmd←v25272)+4) ), 0, pd307);
};
SOURCE(15003, 33)
{
word pd308;
pd308 = (* (( (ptr) (* (( (ptr) gf←c50432)+203)/* var←c44160 */ ))+85) );
trash←v10600 = (word) ( *( (fPt) ((* (ptr) pd308 ))))(cls←v10572, 1, pd308);
};
SOURCE(15038, 74)
{
word pd309;
pd309 = (* (( (ptr) (* (( (ptr) gf←c50432)+203)/* var←c44160 */ ))+15) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd309 ))))(cls←v10572, pd309))) {
key←v10628 = 0;
}
else {
{
word pd310;
pd310 = (* (( (ptr) (* (( (ptr) gf←c50432)+203)/* var←c44160 */ ))+89) );
(void) ( *( (fPt) ((* (ptr) pd310 ))))((word) &var←c0377, cls←v10572, (* (( (ptr) (* (( (ptr) gf←c50432)+203)/* var←c44160 */ ))+88)
), pd310);
};
key←v10628 = var←c0377.f0;
};
};
SOURCE(15114, 25)
{
word var←c46816;
word pd311;
pd311 = (* (( (ptr) (* (( (ptr) gf←c50432)+203)/* var←c44160 */ ))+85) );
var←c46816 = (word) ( *( (fPt) ((* (ptr) pd311 ))))(cls←v10572, 1, pd311);
};
SOURCE(15141, 24)
{
word pd312;
pd312 = (* (( (ptr) (* (( (ptr) gf←c50432)+203)/* var←c44160 */ ))+15) );
if ((0 == (word) ( *( (fPt) ((* (ptr) pd312 ))))(cls←v10572, pd312))) {
SOURCE(15165, 14)
goto lab←L100138;
};
};
SOURCE(15181, 11)
{
word pd313;
pd313 = (* (( (ptr) (* (( (ptr) gf←c50432)+203)/* var←c44160 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd313 ))))(cls←v10572, 0, pd313);
};
SOURCE(15194, 486)
{
register word h←v10672;
h←v10672 = (* (( (ptr) commandToolData←v10544)+9) );
lab←L100142: ;
if ((h←v10672 != 0)) {
}
else {
goto lab←L100139;
};
{
word cr←v10716;
SOURCE(15289, 35)
cr←v10716 = (* (( (ptr) h←v10672)+1) );
SOURCE(15326, 27)
{
word pd314;
pd314 = (* (( (ptr) (* (( (ptr) gf←c50432)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd314 ))))(cr←v10716, (* (( (ptr) gf←c50432)+38) ), 1, pd314))) {
SOURCE(15353, 4)
goto lab←L100141;
};
};
SOURCE(15359, 207)
if ((key←v10628 == 0) || (0 != (word) IsCommandPrefix←P900(key←v10628, cr←v10716))) {
SOURCE(15411, 33)
{
W2 var←c46848;
var←c46848.f0 = 11;
var←c46848.f1 = cr←v10716;
{
word pd315;
pd315 = (* (( (ptr) (* (( (ptr) gf←c50432)+203)/* var←c44160 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd315 ))))((* (( (ptr) cmd←v25272)+1) ), (* (( (ptr) gf←c50432)+25) ), var←c46848, pd315);
};
};
SOURCE(15446, 52)
{
W2 var←c46880;
{
word pd316;
pd316 = (* (( (ptr) (* (( (ptr) gf←c50432)+208)/* var←c44736 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd316 ))))((word) &var←c46880, cmd←v25272, cr←v10716, pd316);
};
msg←v25344 = var←c46880.f1;
result←v25316 = var←c46880.f0;
};
SOURCE(15500, 44)
(* (( (ptr) (* (( (ptr) commandToolData←v10544)+8) ))+1) ) = cr←v10716;
SOURCE(15546, 20)
/* removed bogus assignment */
/* removed bogus assignment */
goto lab←L100137;
};
};
lab←L100141: ;
h←v10672 = (* (( (ptr) h←v10672)+9) );
goto lab←L100142;
lab←L100139: ;
SOURCE(15592, 88)
{
word var←c46976;
word var←c47008;
var←c46976 = (* (( (ptr) gf←c50432)+21) );
{
W2 var←c46944;
var←c46944.f0 = 11;
var←c46944.f1 = key←v10628;
{
word pd317;
pd317 = (* (( (ptr) (* (( (ptr) gf←c50432)+203)/* var←c44160 */ ))+63) );
var←c47008 = (word) ( *( (fPt) ((* (ptr) pd317 ))))((* (( (ptr) gf←c50432)+68) ), var←c46944, pd317);
};
};
result←v25316 = var←c46976;
msg←v25344 = var←c47008;
goto lab←L100137;
};
};
};
/* c2c skipped dead code */
lab←L100138: ;
SOURCE(15711, 17)
result←v25316 = (* (( (ptr) gf←c50432)+21) );
SOURCE(15730, 37)
msg←v25344 = (* (( (ptr) gf←c50432)+69) );
/* removed tail goto */
lab←L100137: ;
(* (ptr) formal←c0387 ) = result←v25316;
(* (( (ptr) formal←c0387)+1) ) = msg←v25344;
return;
}
static void RegisteredHelpCommand←P1500(formal←c0417, cmd←v25404)
word formal←c0417;
word cmd←v25404;
{
W8 var←c50464;
register ptr gf←c50496 = (ptr) &globalframe;
word result←v25448;
word msg←v25476;
/* declaration of var←c47040 skipped */
/* RegisteredHelpCommand: */
SOURCE(15773, 2232)
{
word tmpAddr318;
tmpAddr318 = (word) (( (ptr) &var←c50464)+4)/* var←c47040 */ ;
(* (ptr) tmpAddr318 ) = ( ((word) (fPt) EachCommand←P4308) );
(* (( (ptr) tmpAddr318) + 1) ) = 1;
};
SOURCE(15773, 2232)
result←v25448 = 0;
SOURCE(15773, 2232)
msg←v25476 = 0;
SOURCE(15820, 2185)
SOURCE(15822, 24)
{
word out←v10760;
/* declaration of argv←v10788 skipped */
SOURCE(15822, 24)
out←v10760 = (* (( (ptr) cmd←v25404)+1) );
SOURCE(15848, 64)
{
word pd319;
pd319 = (* (( (ptr) (* (( (ptr) gf←c50496)+208)/* var←c44736 */ ))+6) );
var←c50464.f6/* argv←v10788 */ = (word) ( *( (fPt) ((* (ptr) pd319 ))))(cmd←v25404, 0, pd319);
};
SOURCE(15914, 88)
if (((* (ptr) var←c50464.f6/* argv←v10788 */ ) <= 1)) {
SOURCE(15939, 63)
{
W2 var←c47072;
var←c47072.f0 = 11;
var←c47072.f1 = (* (( (ptr) cmd←v25404)+3) );
{
word pd320;
pd320 = (* (( (ptr) (* (( (ptr) gf←c50496)+203)/* var←c44160 */ ))+63) );
msg←v25476 = (word) ( *( (fPt) ((* (ptr) pd320 ))))((* (( (ptr) gf←c50496)+70) ), var←c47072, pd320);
};
};
SOURCE(16004, 11)
goto lab←L100145;
};
SOURCE(16018, 1949)
{
/* declaration of matchList←v10832 skipped */
word prev←v10860 = 0;
word pattern←v10916;
SOURCE(16024, 11)
var←c50464.f7/* matchList←v10832 */ = 0;
SOURCE(16268, 52)
{
word tc321;
word limit322;
if (((* (ptr) var←c50464.f6/* argv←v10788 */ ) != 1)) {
tc321 = (word) (* (( (ptr) gf←c50496)+71) );
}
else {
tc321 = (word) (* ((( (ptr) var←c50464.f6/* argv←v10788 */ )+1)+(
limit322 = (* (ptr) var←c50464.f6/* argv←v10788 */ ),
BCK(1, limit322)
)) );
};
pattern←v10916 = tc321;
};
SOURCE(16322, 61)
{
W2 var←c47136;
{
word pd323;
pd323 = (* (( (ptr) (* (( (ptr) gf←c50496)+216)/* var←c47104 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd323 ))))((word) &var←c47136, pattern←v10916, (word) (( (bPt) &var←c50464)+16)/* var←c47040 */ , pd323)
;
};
};
SOURCE(16385, 302)
if ((var←c50464.f7/* matchList←v10832 */ == 0)) {
SOURCE(16411, 155)
{
register word i←v11044 = 1;
register word noName←c47168;
noName←c47168 = (* (ptr) var←c50464.f6/* argv←v10788 */ );
if ((i←v11044 >= noName←c47168)) {
goto lab←L100146;
};
lab←L100149: ;
{
word rope←v11088;
word len←v11116;
SOURCE(16443, 20)
{
word limit324;
rope←v11088 = (* ((( (ptr) var←c50464.f6/* argv←v10788 */ )+1)+(
limit324 = (* (ptr) var←c50464.f6/* argv←v10788 */ ),
BCK(i←v11044, limit324)
)) );
};
SOURCE(16465, 29)
{
word pd325;
word limit326;
pd325 = (* (( (ptr) (* (( (ptr) gf←c50496)+206)/* var←c44544 */ ))+15) );
len←v11116 = (word) ( *( (fPt) ((* (ptr) pd325 ))))((* (((( (ptr) var←c50464.f6/* argv←v10788 */ )+1)+(
/*1*/ limit326 = (* (ptr) var←c50464.f6/* argv←v10788 */ ),
/*1*/ BCK(i←v11044, limit326)
/*1*/ ))) ), pd325);
};
SOURCE(16496, 70)
{
word tc327;
word pd328;
if (( (int)len←v11116 > (int)0)) {
pd328 = (* (( (ptr) (* (( (ptr) gf←c50496)+206)/* var←c44544 */ ))+9) );
tc327 = (word) ((word) ( *( (fPt) ((* (ptr) pd328 ))))(rope←v11088, (len←v11116 - 1), pd328) != 42);
}
else {
tc327 = (word) 0;
};
if (tc327) {
SOURCE(16540, 26)
{
word var←c47200;
{
/*1*/ word pd329;
/*1*/ pd329 = (* (( (ptr) (* (( (ptr) gf←c50496)+206)/* var←c44544 */ ))+6) );
/*1*/ var←c47200 = (word) ( *( (fPt) ((* (ptr) pd329 ))))(rope←v11088, (* (( (ptr) gf←c50496)+71) ), pd329);
/*1*/ };
{
/*1*/ word limit330;
/*1*/ (* ((( (ptr) var←c50464.f6/* argv←v10788 */ )+1)+(
/*1*/ limit330 = (* (ptr) var←c50464.f6/* argv←v10788 */ ),
/*1*/ BCK(i←v11044, limit330)
/*1*/ )) ) = var←c47200;
/*1*/ };
};
};
};
};
i←v11044 = (i←v11044 + 1);
if ((i←v11044 < noName←c47168)) {
goto lab←L100149;
};
lab←L100146: ;
};
SOURCE(16578, 46)
{
word limit331;
if (((* (ptr) var←c50464.f6/* argv←v10788 */ ) != 1)) {
pattern←v10916 = (* (( (ptr) gf←c50496)+71) );
}
else {
pattern←v10916 = (* ((( (ptr) var←c50464.f6/* argv←v10788 */ )+1)+(
limit331 = (* (ptr) var←c50464.f6/* argv←v10788 */ ),
BCK(1, limit331)
)) );
};
};
SOURCE(16626, 61)
{
W2 var←c47232;
{
word pd332;
pd332 = (* (( (ptr) (* (( (ptr) gf←c50496)+216)/* var←c47104 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd332 ))))((word) &var←c47232, pattern←v10916, (word) (( (bPt) &var←c50464)+16)/* var←c47040 */ , pd332)
;
};
};
};
SOURCE(16692, 100)
if ((var←c50464.f7/* matchList←v10832 */ == 0)) {
SOURCE(16718, 74)
{
W2 var←c47264;
var←c47264.f0 = 11;
var←c47264.f1 = (* (( (ptr) cmd←v25404)+4) );
{
word pd333;
pd333 = (* (( (ptr) (* (( (ptr) gf←c50496)+203)/* var←c44160 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd333 ))))((* (( (ptr) cmd←v25404)+2) ), (* (( (ptr) gf←c50496)+72) ), var←c47264, pd333);
};
};
SOURCE(16794, 10)
goto lab←L100145;
};
SOURCE(16807, 76)
{
word pd334;
pd334 = (* (( (ptr) (* (( (ptr) gf←c50496)+205)/* var←c44416 */ ))+16) );
var←c50464.f7/* matchList←v10832 */ = (word) ( *( (fPt) ((* (ptr) pd334 ))))(var←c50464.f7/* matchList←v10832 */ , (* (
( (ptr) (* (( (ptr) gf←c50496)+205)/* var←c44416 */ ))+18) ), pd334);
};
SOURCE(16885, 1065)
{
register word each←v11160;
each←v11160 = var←c50464.f7/* matchList←v10832 */ ;
lab←L100153: ;
if ((each←v11160 != 0)) {
}
else {
goto lab←L100150;
};
{
word name←v11288;
SOURCE(16951, 23)
name←v11288 = (* (ptr) each←v11160 );
SOURCE(16976, 974)
{
word pd335;
pd335 = (* (( (ptr) (* (( (ptr) gf←c50496)+206)/* var←c44544 */ ))+8) );
if ((0 == (word) ( *( (fPt) ((* (ptr) pd335 ))))(name←v11288, prev←v10860, 0, pd335))) {
SOURCE(17032, 923)
{
word pData←v11332;
SOURCE(17034, 59)
{
word pd336;
pd336 = (* (( (ptr) (* (( (ptr) gf←c50496)+207)/* var←c44576 */ ))+6) );
pData←v11332 = (word) ( *( (fPt) ((* (ptr) pd336 ))))(name←v11288, pd336);
};
SOURCE(17095, 11)
prev←v10860 = name←v11288;
SOURCE(17108, 68)
{
W2 var←c47296;
W2 var←c47328;
W2 var←c47360;
var←c47296.f0 = 11;
var←c47296.f1 = (* (( (ptr) gf←c50496)+74) );
var←c47328.f0 = 11;
var←c47328.f1 = name←v11288;
var←c47360.f0 = 11;
var←c47360.f1 = (* (( (ptr) gf←c50496)+75) );
{
/*1*/ word pd337;
/*1*/ pd337 = (* (( (ptr) (* (( (ptr) gf←c50496)+203)/* var←c44160 */ ))+60) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd337 ))))(out←v10760, (* (( (ptr) gf←c50496)+73) ), var←c47296, var←c47328, var←c47360, pd337)
/*1*/ ;
/*1*/ };
};
SOURCE(17178, 20)
if ((pData←v11332 == 0)) {
SOURCE(17497, 4)
goto lab←L100152;
};
SOURCE(17506, 446)
{
word next←v11376 = 0;
word size←v11404;
SOURCE(17523, 32)
{
/*1*/ word pd338;
/*1*/ pd338 = (* (( (ptr) (* (( (ptr) gf←c50496)+206)/* var←c44544 */ ))+15) );
/*1*/ size←v11404 = (word) ( *( (fPt) ((* (ptr) pd338 ))))((* ((( (ptr) pData←v11332)+1)) ), pd338);
/*1*/ };
SOURCE(17557, 20)
{
/*1*/ word pd339;
/*1*/ pd339 = (* (( (ptr) (* (( (ptr) gf←c50496)+203)/* var←c44160 */ ))+93) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd339 ))))(out←v10760, (* (( (ptr) gf←c50496)+33) ), 0, 2147483647, pd339);
/*1*/ };
SOURCE(17579, 339)
{
/*1*/ register word i←v11448;
/*1*/ i←v11448 = 0;
/*1*/ lab←L100157: ;
/*1*/ if (( (int)i←v11448 < (int)size←v11404)) {
/*1*/ }
/*1*/ else {
/*1*/ goto lab←L100154;
/*1*/ };
SOURCE(17618, 42)
/*1*/ {
/*1*/ word pd340;
/*1*/ pd340 = (* (( (ptr) (* (( (ptr) gf←c50496)+206)/* var←c44544 */ ))+24) );
/*1*/ next←v11376 = ((word) ( *( (fPt) ((* (ptr) pd340 ))))((* (( (ptr) pData←v11332)+1) ), i←v11448, (* (( (ptr) gf←c50496)+76)
/*1*/ ), pd340) + 1);
/*1*/ };
SOURCE(17662, 208)
/*1*/ {
/*1*/ word pd342;
/*1*/ if (( (int)next←v11376 > (int)size←v11404)) { goto then0341;};
/*1*/ pd342 = (* (( (ptr) (* (( (ptr) gf←c50496)+206)/* var←c44544 */ ))+9) );
/*1*/ if (((word) ( *( (fPt) ((* (ptr) pd342 ))))((* (( (ptr) pData←v11332)+1) ), (next←v11376 - 1), pd342) == 10)) {
/*1*/ then0341: ;
SOURCE(17721, 64)
/*1*/ {
/*1*/ word pd343;
/*1*/ pd343 = (* (( (ptr) (* (( (ptr) gf←c50496)+203)/* var←c44160 */ ))+93) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd343 ))))(out←v10760, (* (( (ptr) pData←v11332)+1) ), i←v11448, (next←v11376 - i←v11448), pd343)
/*1*/ ;
/*1*/ };
/*1*/ }
/*1*/ else {
SOURCE(17787, 60)
/*1*/ {
/*1*/ word pd344;
/*1*/ pd344 = (* (( (ptr) (* (( (ptr) gf←c50496)+203)/* var←c44160 */ ))+93) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd344 ))))(out←v10760, (* (( (ptr) pData←v11332)+1) ), i←v11448, ((next←v11376 - i←v11448) - 1), pd344)
/*1*/ ;
/*1*/ };
SOURCE(17849, 21)
/*1*/ {
/*1*/ word pd345;
/*1*/ pd345 = (* (( (ptr) (* (( (ptr) gf←c50496)+203)/* var←c44160 */ ))+93) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd345 ))))(out←v10760, (* (( (ptr) gf←c50496)+43) ), 0, 2147483647, pd345);
/*1*/ };
/*1*/ };
/*1*/ };
SOURCE(17875, 43)
/*1*/ if (( (int)next←v11376 < (int)size←v11404)) {
SOURCE(17895, 23)
/*1*/ {
/*1*/ word pd346;
/*1*/ pd346 = (* (( (ptr) (* (( (ptr) gf←c50496)+203)/* var←c44160 */ ))+93) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd346 ))))(out←v10760, (* (( (ptr) gf←c50496)+77) ), 0, 2147483647, pd346);
/*1*/ };
/*1*/ };
/*1*/ i←v11448 = next←v11376;
/*1*/ goto lab←L100157;
/*1*/ lab←L100154: ;
/*1*/ };
SOURCE(17929, 21)
{
/*1*/ word pd347;
/*1*/ pd347 = (* (( (ptr) (* (( (ptr) gf←c50496)+203)/* var←c44160 */ ))+93) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd347 ))))(out←v10760, (* (( (ptr) gf←c50496)+43) ), 0, 2147483647, pd347);
/*1*/ };
};
};
};
};
};
lab←L100152: ;
each←v11160 = (* (( (ptr) each←v11160)+1) );
goto lab←L100153;
lab←L100150: ;
};
};
};
goto lab←L100158;
lab←L100145: ;
SOURCE(17986, 17)
result←v25448 = (* (( (ptr) gf←c50496)+21) );
lab←L100158: ;
/* removed tail goto */
(* (ptr) formal←c0417 ) = result←v25448;
(* (( (ptr) formal←c0417)+1) ) = msg←v25476;
return;
}
static word EachCommand←P4308(key←v39376, procData←v39404, formal←c50560)
word key←v39376;
word procData←v39404;
word formal←c50560;
{
register ptr gf←c50528 = (ptr) &globalframe;
word stop←v39448;
formal←c50560 = (formal←c50560 - 16);
/* EachCommand: */
SOURCE(16073, 41)
SOURCE(16073, 41)
stop←v39448 = 0;
SOURCE(16116, 129)
{
register word i←v11492 = 1;
register word noName←c47392;
noName←c47392 = (* (ptr) (* (( (ptr) formal←c50560)+6) ) );
if ((i←v11492 >= noName←c47392)) {
goto lab←L100159;
};
lab←L100162: ;
SOURCE(16148, 97)
{
word pd348;
word limit349;
pd348 = (* (( (ptr) (* (( (ptr) gf←c50528)+206)/* var←c44544 */ ))+23) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd348 ))))((* ((( (ptr) (* (( (ptr) formal←c50560)+6) ))+1)+(
limit349 = (* (ptr) (* (( (ptr) formal←c50560)+6) ) ),
BCK(i←v11492, limit349)
)) ), key←v39376, 0, pd348))) {
SOURCE(16213, 32)
{
word var←c47424;
var←c47424 = XR←NewObject(8, (* (( (ptr) gf←c50528)+10) ));
(* (ptr) var←c47424 ) = key←v39376;
(* (( (ptr) var←c47424)+1) ) = (* (( (ptr) formal←c50560)+7) );
(* (( (ptr) formal←c50560)+7) ) = var←c47424;
};
SOURCE(16247, 4)
goto lab←L100160;
};
};
i←v11492 = (i←v11492 + 1);
if ((i←v11492 < noName←c47392)) {
goto lab←L100162;
};
lab←L100159: ;
lab←L100160: ;
};
SOURCE(16073, 41)
return(stop←v39448);
}
static void ReregisterAsCommand←P1560(formal←c0440, cmd←v25536)
word formal←c0440;
word cmd←v25536;
{
register ptr gf←c50592 = (ptr) &globalframe;
word result←v25580;
word msg←v25608;
/* ReregisterAsCommand: */
SOURCE(18172, 947)
SOURCE(18172, 947)
result←v25580 = 0;
SOURCE(18172, 947)
msg←v25608 = 0;
SOURCE(18217, 902)
SOURCE(18219, 23)
{
W2 a←v11536;
word i←v11564 = 0;
word imode←v11592 = 0;
SOURCE(18219, 23)
a←v11536.f0 = 0;
a←v11536.f1 = 0;
SOURCE(18276, 378)
lab←L100167: ;
SOURCE(18276, 378)
{
word arg←v11672;
SOURCE(18279, 42)
{
word pd350;
pd350 = (* (( (ptr) (* (( (ptr) gf←c50592)+208)/* var←c44736 */ ))+8) );
arg←v11672 = (word) ( *( (fPt) ((* (ptr) pd350 ))))(cmd←v25536, 0, pd350);
};
SOURCE(18323, 18)
if ((arg←v11672 == 0)) {
SOURCE(18341, 4)
goto lab←L100166;
};
SOURCE(18347, 307)
{
word pd351;
pd351 = (* (( (ptr) (* (( (ptr) gf←c50592)+206)/* var←c44544 */ ))+23) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd351 ))))((* (( (ptr) gf←c50592)+55) ), arg←v11672, 1, pd351))) {
{
word pd352;
pd352 = (* (( (ptr) (* (( (ptr) gf←c50592)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd352 ))))(arg←v11672, (* (( (ptr) gf←c50592)+78) ), 0, pd352))) {
SOURCE(18445, 9)
imode←v11592 = 1;
}
else {
{
word pd353;
pd353 = (* (( (ptr) (* (( (ptr) gf←c50592)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd353 ))))(arg←v11672, (* (( (ptr) gf←c50592)+79) ), 0, pd353))) {
SOURCE(18489, 10)
imode←v11592 = (word) -1;
}
else {
SOURCE(18512, 44)
{
/*1*/ word var←c0431;
/*1*/ var←c0431 = (* (( (ptr) gf←c50592)+57) );
/*1*/ (void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c50592)+208)/* var←c44736 */ ))+4) ), (word) &var←c0431);
/*1*/ };
};
};
};
};
}
else {
SOURCE(18567, 87)
if ((i←v11564 < 2)) {
SOURCE(18582, 10)
(* (( (ptr) &a←v11536)+BCK(i←v11564, 2)) ) = arg←v11672;
SOURCE(18594, 9)
i←v11564 = (i←v11564 + 1);
}
else {
SOURCE(18610, 44)
{
word var←c0432;
var←c0432 = (* (( (ptr) gf←c50592)+57) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c50592)+208)/* var←c44736 */ ))+4) ), (word) &var←c0432);
};
};
};
};
};
goto lab←L100167;
lab←L100166: ;
SOURCE(18668, 386)
if ((i←v11564 != 2)) {
SOURCE(18682, 15)
goto lab←L100164;
}
else {
SOURCE(18697, 359)
{
word old←v11716;
SOURCE(18699, 57)
{
word pd354;
pd354 = (* (( (ptr) (* (( (ptr) gf←c50592)+207)/* var←c44576 */ ))+6) );
old←v11716 = (word) ( *( (fPt) ((* (ptr) pd354 ))))(a←v11536.f1, pd354);
};
SOURCE(18758, 76)
if ((old←v11716 == 0)) {
SOURCE(18776, 58)
{
word var←c47488;
{
word pd355;
pd355 = (* (( (ptr) (* (( (ptr) gf←c50592)+206)/* var←c44544 */ ))+6) );
var←c47488 = (word) ( *( (fPt) ((* (ptr) pd355 ))))(a←v11536.f1, (* (( (ptr) gf←c50592)+80) ), pd355);
};
{
word var←c0435;
var←c0435 = var←c47488;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c50592)+208)/* var←c44736 */ ))+4) ), (word) &var←c0435);
};
};
};
SOURCE(18836, 218)
{
word var←c47520;
word var←c47552;
{
word pd356;
pd356 = (* (( (ptr) (* (( (ptr) gf←c50592)+206)/* var←c44544 */ ))+5) );
var←c47520 = (word) ( *( (fPt) ((* (ptr) pd356 ))))((* (( (ptr) gf←c50592)+81) ), a←v11536.f1, (* (( (ptr) gf←c50592)+82)
), (* (( (ptr) old←v11716)+1) ), 0, pd356);
};
{
word var←c47584;
var←c47584 = imode←v11592;
switch (var←c47584) {
case 4294967295:
var←c47552 = 0;
break;
case 0:
var←c47552 = (* (( (ptr) old←v11716)+3) );
break;
case 1:
var←c47552 = 1;
break;
default:
var←c47552 = (
XR←RaiseUnnamedError(), 0
);
break;
};
};
{
word pd357;
pd357 = (* (( (ptr) (* (( (ptr) gf←c50592)+207)/* var←c44576 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd357 ))))(a←v11536.f0, (* (ptr) old←v11716 ), var←c47520, (* (( (ptr) old←v11716)+2) ), var←c47552, pd357)
;
};
};
};
};
};
goto lab←L100168;
lab←L100164: ;
SOURCE(19073, 44)
{
word var←c0439;
var←c0439 = (* (( (ptr) gf←c50592)+57) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c50592)+208)/* var←c44736 */ ))+4) ), (word) &var←c0439);
};
lab←L100168: ;
/* removed tail goto */
(* (ptr) formal←c0440 ) = result←v25580;
(* (( (ptr) formal←c0440)+1) ) = msg←v25608;
return;
}
static void SetPropertyCommand←P1620(formal←c0463, cmd←v25668)
word formal←c0463;
word cmd←v25668;
{
register ptr gf←c50624 = (ptr) &globalframe;
word result←v25712;
word msg←v25740;
word aList←v11760 = 0;
word key←v11788 = 0;
W2 spec←v11816;
word argv←v11844;
/* SetPropertyCommand: */
SOURCE(19123, 1145)
SOURCE(19123, 1145)
result←v25712 = 0;
SOURCE(19123, 1145)
msg←v25740 = 0;
SOURCE(19202, 14)
{
word var←c47616;
var←c47616 = (* (( (ptr) (* (( (ptr) cmd←v25668)+5) ))+2) );
if ((var←c47616 == (* (( (ptr) gf←c50624)+61) ))) {
spec←v11816.f0 = 1;
spec←v11816.f1 = 0;
goto endif0358;
};
if ((var←c47616 == (* (( (ptr) gf←c50624)+83) ))) {
spec←v11816.f0 = 0;
spec←v11816.f1 = 0;
goto endif0358;
};
if ((var←c47616 == (* (( (ptr) gf←c50624)+84) ))) {
spec←v11816.f0 = 0;
spec←v11816.f1 = 1;
goto endif0358;
};
spec←v11816.f0 = 1;
spec←v11816.f1 = 1;
goto endif0358;
endif0358: ;
};
SOURCE(19427, 59)
{
word pd359;
pd359 = (* (( (ptr) (* (( (ptr) gf←c50624)+208)/* var←c44736 */ ))+6) );
argv←v11844 = (word) ( *( (fPt) ((* (ptr) pd359 ))))(cmd←v25668, 0, pd359);
};
SOURCE(19488, 91)
if ((spec←v11816.f1 == 0)) {
SOURCE(19515, 40)
{
word pd360;
pd360 = (* (( (ptr) (* (( (ptr) gf←c50624)+215)/* var←c46656 */ ))+6) );
aList←v11760 = (word) ( *( (fPt) ((* (ptr) pd360 ))))(pd360);
};
}
else {
SOURCE(19555, 24)
aList←v11760 = (* (( (ptr) cmd←v25668)+6) );
};
SOURCE(19581, 687)
if ( ( (spec←v11816.f0 == 1) ? ((* (ptr) argv←v11844 ) != 3) : 0 ) ) {
SOURCE(19621, 59)
{
word var←c0453;
var←c0453 = (* (( (ptr) gf←c50624)+85) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c50624)+208)/* var←c44736 */ ))+4) ), (word) &var←c0453);
};
}
else {
SOURCE(19680, 590)
{
word dp←v12116 = 0;
word val←v12144 = 0;
SOURCE(19717, 144)
{
word tc361;
word pd362;
word limit363;
word pd364;
word limit365;
pd362 = (* (( (ptr) (* (( (ptr) gf←c50624)+206)/* var←c44544 */ ))+15) );
if (( (int)(word) ( *( (fPt) ((* (ptr) pd362 ))))((* (((( (ptr) argv←v11844)+1)+(
limit363 = (* (ptr) argv←v11844 ),
BCK(1, limit363)
))) ), pd362) > (int)1)) {
pd364 = (* (( (ptr) (* (( (ptr) gf←c50624)+206)/* var←c44544 */ ))+9) );
tc361 = (word) ((word) ( *( (fPt) ((* (ptr) pd364 ))))((* ((( (ptr) argv←v11844)+1)+(
limit365 = (* (ptr) argv←v11844 ),
BCK(1, limit365)
)) ), 0, pd364) == 36);
}
else {
tc361 = (word) 0;
};
if (tc361) {
SOURCE(19770, 63)
{
word var←c47776;
{
word pd366;
word limit367;
pd366 = (* (( (ptr) (* (( (ptr) gf←c50624)+206)/* var←c44544 */ ))+17) );
var←c47776 = (word) ( *( (fPt) ((* (ptr) pd366 ))))((* ((( (ptr) argv←v11844)+1)+(
/*1*/ limit367 = (* (ptr) argv←v11844 ),
/*1*/ BCK(1, limit367)
/*1*/ )) ), 1, 2147483647, pd366);
};
{
word pd368;
pd368 = (* (( (ptr) (* (( (ptr) gf←c50624)+204)/* var←c44352 */ ))+5) );
key←v11788 = (word) ( *( (fPt) ((* (ptr) pd368 ))))(var←c47776, 0, 2147483647, pd368);
};
};
}
else {
SOURCE(19833, 28)
{
word pd369;
word limit370;
pd369 = (* (( (ptr) (* (( (ptr) gf←c50624)+204)/* var←c44352 */ ))+5) );
key←v11788 = (word) ( *( (fPt) ((* (ptr) pd369 ))))((* ((( (ptr) argv←v11844)+1)+(
limit370 = (* (ptr) argv←v11844 ),
BCK(1, limit370)
)) ), 0, 2147483647, pd369);
};
};
};
SOURCE(19863, 254)
{
word var←c47808;
var←c47808 = spec←v11816.f0;
if ((var←c47808 == 1)) {
SOURCE(19892, 57)
{
word pd371;
word limit372;
word limit373;
pd371 = (* (( (ptr) (* (( (ptr) gf←c50624)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd371 ))))((* ((( (ptr) argv←v11844)+1)+(
limit372 = (* (ptr) argv←v11844 ),
BCK(2, limit372)
)) ), (* (( (ptr) gf←c50624)+86) ), 1, pd371))) {
val←v12144 = 0;
}
else {
val←v12144 = (* ((( (ptr) argv←v11844)+1)+(
limit373 = (* (ptr) argv←v11844 ),
BCK(2, limit373)
)) );
};
};
}
else {
if ((var←c47808 == 0)) {
SOURCE(19959, 158)
{
word rl←v12200 = 0;
SOURCE(19990, 117)
{
register word i←v12328;
i←v12328 = (* (ptr) argv←v11844 );
if ((2 >= i←v12328)) {
goto lab←L100170;
};
i←v12328 = (i←v12328 - 1);
lab←L100173: ;
SOURCE(20033, 74)
{
word var←c47840;
word var←c47872;
{
/*1*/ word pd374;
/*1*/ word limit375;
/*1*/ word limit376;
/*1*/ pd374 = (* (( (ptr) (* (( (ptr) gf←c50624)+206)/* var←c44544 */ ))+8) );
/*1*/ if ((0 != (word) ( *( (fPt) ((* (ptr) pd374 ))))((* ((( (ptr) argv←v11844)+1)+(
/*1*/ limit375 = (* (ptr) argv←v11844 ),
/*1*/ BCK(i←v12328, limit375)
/*1*/ )) ), (* (( (ptr) gf←c50624)+86) ), 1, pd374))) {
/*1*/ var←c47840 = 0;
/*1*/ }
/*1*/ else {
/*1*/ var←c47840 = (* ((( (ptr) argv←v11844)+1)+(
/*1*/ limit376 = (* (ptr) argv←v11844 ),
/*1*/ BCK(i←v12328, limit376)
/*1*/ )) );
/*1*/ };
/*1*/ };
var←c47872 = XR←NewObject(8, (* (( (ptr) gf←c50624)+10) ));
(* (ptr) var←c47872 ) = var←c47840;
(* (( (ptr) var←c47872)+1) ) = rl←v12200;
rl←v12200 = var←c47872;
};
if ((2 >= i←v12328)) {
goto lab←L100170;
};
i←v12328 = (i←v12328 - 1);
goto lab←L100173;
lab←L100170: ;
};
SOURCE(20109, 8)
val←v12144 = rl←v12200;
};
}
else {
SOURCE(20131, 5)
(void) XR←RaiseUnnamedError();
};
};
};
SOURCE(20138, 41)
dp←v12116 = (word) FindLastProp←P1980(key←v11788, aList←v11760);
SOURCE(20181, 87)
if ((dp←v12116 != 0)) {
SOURCE(20198, 18)
(* (( (ptr) dp←v12116)+1) ) = val←v12144;
}
else {
SOURCE(20216, 52)
{
word var←c47904;
word pd377;
pd377 = (* (( (ptr) (* (( (ptr) gf←c50624)+212)/* var←c45568 */ ))+22) );
var←c47904 = (word) ( *( (fPt) ((* (ptr) pd377 ))))(key←v11788, val←v12144, aList←v11760, pd377);
};
};
};
};
/* removed tail goto */
(* (ptr) formal←c0463 ) = result←v25712;
(* (( (ptr) formal←c0463)+1) ) = msg←v25740;
return;
}
static void ShiftCommand←P1680(formal←c0467, cmd←v25800)
word formal←c0467;
word cmd←v25800;
{
register ptr gf←c50656 = (ptr) &globalframe;
word result←v25844;
word msg←v25872;
/* ShiftCommand: */
SOURCE(20277, 114)
SOURCE(20277, 114)
result←v25844 = 0;
SOURCE(20277, 114)
msg←v25872 = 0;
SOURCE(20317, 74)
{
word pd378;
pd378 = (* (( (ptr) (* (( (ptr) gf←c50656)+208)/* var←c44736 */ ))+11) );
result←v25844 = (word) ( *( (fPt) ((* (ptr) pd378 ))))((* (( (ptr) cmd←v25800)+4) ), cmd←v25800, pd378);
};
/* removed tail goto */
(* (ptr) formal←c0467 ) = result←v25844;
(* (( (ptr) formal←c0467)+1) ) = msg←v25872;
return;
}
static void SleepCommand←P1740(formal←c0474, cmd←v25932)
word formal←c0474;
word cmd←v25932;
{
W8 var←c50688;
register ptr gf←c50720 = (ptr) &globalframe;
word result←v25976;
/* declaration of msg←v26004 skipped */
/* SleepCommand: */
SOURCE(20397, 353)
SOURCE(20397, 353)
result←v25976 = 0;
SOURCE(20397, 353)
var←c50688.f4/* msg←v26004 */ = 0;
SOURCE(20435, 315)
SOURCE(20437, 13)
{
word seconds←v12372;
word argv←v12400;
SOURCE(20452, 59)
{
word pd379;
pd379 = (* (( (ptr) (* (( (ptr) gf←c50720)+208)/* var←c44736 */ ))+6) );
argv←v12400 = (word) ( *( (fPt) ((* (ptr) pd379 ))))(cmd←v25932, 0, pd379);
};
SOURCE(20513, 51)
if (((* (ptr) argv←v12400 ) != 2)) {
SOURCE(20536, 28)
var←c50688.f4/* msg←v26004 */ = (* (( (ptr) gf←c50720)+87) );
SOURCE(20566, 10)
goto lab←L100176;
};
SOURCE(20579, 74)
{
/* declaration of var←c044 skipped */
/* declaration of var←c045 skipped */
{
word limit380;
var←c50688.f5/* var←c044 */ = (* ((( (ptr) argv←v12400)+1)+(
limit380 = (* (ptr) argv←v12400 ),
BCK(1, limit380)
)) );
};
var←c50688.f6/* var←c045 */ = (* (( (ptr) (* (( (ptr) gf←c50720)+209)/* var←c45056 */ ))+11) );
{
/* declaration of var←c046 skipped */
{
word var←c047;
{
word var←c0829;
var←c0829 = (word) &var←c50688;
var←c047 = (word) XR←Enable(( ((word) (fPt) NoName←Q7632) ), ( ((word) (fPt) NoName←Q7932) ), var←c0829);
};
if ((var←c047 == 12)) {
goto lab←L100176;
};
};
seconds←v12372 = var←c50688.f7/* var←c046 */ ;
};
};
SOURCE(20669, 46)
{
word var←c47936;
{
word pd381;
pd381 = (* (( (ptr) (* (( (ptr) gf←c50720)+211)/* var←c45408 */ ))+7) );
var←c47936 = (word) ( *( (fPt) ((* (ptr) pd381 ))))(seconds←v12372, pd381);
};
{
word pd382;
pd382 = (* (( (ptr) (* (( (ptr) gf←c50720)+211)/* var←c45408 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd382 ))))(var←c47936, pd382);
};
};
};
goto lab←L100179;
lab←L100176: ;
SOURCE(20731, 17)
result←v25976 = (* (( (ptr) gf←c50720)+21) );
lab←L100179: ;
/* removed tail goto */
(* (ptr) formal←c0474 ) = result←v25976;
(* (( (ptr) formal←c0474)+1) ) = var←c50688.f4/* msg←v26004 */ ;
return;
}
static word NoName←Q7632(formal←c0781)
word formal←c0781;
{
SOURCE(20579, 74)
{
word pd383;
pd383 = (* (( (ptr) formal←c0781)+6) );
(* (( (ptr) formal←c0781)+7) ) = (word) ( *( (fPt) ((* (ptr) pd383 ))))((* (( (ptr) formal←c0781)+5) ), 8, pd383);
};
return(0);
}
static void TimeCommand←P1800(formal←c0491, cmd←v26064)
word formal←c0491;
word cmd←v26064;
{
register ptr gf←c50752 = (ptr) &globalframe;
word result←v26108;
word msg←v26136;
word elapsedPulses←v12444 = 0;
word seconds←v12472 = 0;
word startTime←v12500;
word startPulses←v12528;
/* TimeCommand: */
SOURCE(20754, 941)
SOURCE(20754, 941)
result←v26108 = 0;
SOURCE(20754, 941)
msg←v26136 = 0;
SOURCE(20849, 42)
{
word pd384;
pd384 = (* (( (ptr) (* (( (ptr) gf←c50752)+210)/* var←c45312 */ ))+14) );
startTime←v12500 = (word) ( *( (fPt) ((* (ptr) pd384 ))))(pd384);
};
SOURCE(20893, 58)
{
word pd385;
pd385 = (* (( (ptr) (* (( (ptr) gf←c50752)+210)/* var←c45312 */ ))+7) );
startPulses←v12528 = (word) ( *( (fPt) ((* (ptr) pd385 ))))(pd385);
};
SOURCE(20953, 74)
{
word pd386;
pd386 = (* (( (ptr) (* (( (ptr) gf←c50752)+208)/* var←c44736 */ ))+11) );
result←v26108 = (word) ( *( (fPt) ((* (ptr) pd386 ))))((* (( (ptr) cmd←v26064)+4) ), cmd←v26064, pd386);
};
SOURCE(21029, 56)
{
word pd387;
pd387 = (* (( (ptr) (* (( (ptr) gf←c50752)+210)/* var←c45312 */ ))+7) );
elapsedPulses←v12444 = ((word) ( *( (fPt) ((* (ptr) pd387 ))))(pd387) - startPulses←v12528);
};
SOURCE(21087, 64)
{
word var←c47968;
{
word pd388;
pd388 = (* (( (ptr) (* (( (ptr) gf←c50752)+210)/* var←c45312 */ ))+14) );
var←c47968 = (word) ( *( (fPt) ((* (ptr) pd388 ))))(pd388);
};
{
word pd389;
word idx390;
pd389 = (* (( (ptr) (* (( (ptr) gf←c50752)+210)/* var←c45312 */ ))+16) );
seconds←v12472 = (
idx390 = (word) ( *( (fPt) ((* (ptr) pd389 ))))(startTime←v12500, var←c47968, pd389),
SGNCK(idx390)
);
};
};
SOURCE(21153, 542)
if ((seconds←v12472 >= 10000)) {
SOURCE(21180, 93)
{
W2 var←c48000;
W2 var←c48032;
W2 var←c0830;
var←c48000.f0 = 4;
var←c48000.f1 = seconds←v12472;
var←c48032.f0 = 4;
var←c48032.f1 = seconds←v12472;
(* (ptr) (word) &var←c0830 ) = 0;
(* (( (ptr) (word) &var←c0830) + 1) ) = 0;
{
word pd391;
pd391 = (* (( (ptr) (* (( (ptr) gf←c50752)+203)/* var←c44160 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd391 ))))((* (( (ptr) cmd←v26064)+1) ), (* (( (ptr) gf←c50752)+88) ), var←c48000, var←c48032, var←c0830, pd391)
;
};
};
}
else {
SOURCE(21282, 418)
{
word real←v12572;
word microseconds←v12600;
SOURCE(21284, 53)
{
word pd392;
pd392 = (* (( (ptr) (* (( (ptr) gf←c50752)+210)/* var←c45312 */ ))+9) );
real←v12572 = (word) ( *( (fPt) ((* (ptr) pd392 ))))(elapsedPulses←v12444, pd392);
};
SOURCE(21339, 66)
{
word pd393;
pd393 = (* (( (ptr) (* (( (ptr) gf←c50752)+210)/* var←c45312 */ ))+8) );
microseconds←v12600 = (word) ( *( (fPt) ((* (ptr) pd393 ))))(elapsedPulses←v12444, pd393);
};
SOURCE(21407, 288)
{
word x394;
word x396;
if (((
x394 = real←v12572, *(float*)&x394
) < (
x396 = (* (ptr) &fc395 ), *(float*)&x396
))) {
SOURCE(21427, 67)
{
W2 var←c48096;
var←c48096.f0 = 8;
var←c48096.f1 = real←v12572;
{
word pd397;
pd397 = (* (( (ptr) (* (( (ptr) gf←c50752)+203)/* var←c44160 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd397 ))))((* (( (ptr) cmd←v26064)+1) ), (* (( (ptr) gf←c50752)+89) ), var←c48096, pd397);
};
};
}
else {
SOURCE(21496, 32)
seconds←v12472 = ((word) microseconds←v12600 / 1000000);
SOURCE(21530, 39)
microseconds←v12600 = ((word) microseconds←v12600 % 1000000);
SOURCE(21571, 124)
{
W2 var←c48128;
W2 var←c48160;
W2 var←c48192;
var←c48128.f0 = 8;
var←c48128.f1 = real←v12572;
var←c48160.f0 = 4;
var←c48160.f1 = seconds←v12472;
var←c48192.f0 = 4;
var←c48192.f1 = ((word) microseconds←v12600 / 1000);
{
word pd398;
pd398 = (* (( (ptr) (* (( (ptr) gf←c50752)+203)/* var←c44160 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd398 ))))((* (( (ptr) cmd←v26064)+1) ), (* (( (ptr) gf←c50752)+90) ), var←c48128, var←c48160, var←c48192, pd398)
;
};
};
};
};
};
};
/* removed tail goto */
(* (ptr) formal←c0491 ) = result←v26108;
(* (( (ptr) formal←c0491)+1) ) = msg←v26136;
return;
}
static void UnregisterCommand←P1860(formal←c0501, cmd←v26196)
word formal←c0501;
word cmd←v26196;
{
register ptr gf←c50784 = (ptr) &globalframe;
word result←v26240;
word msg←v26268;
word procData←v12644 = 0;
word n←v12672 = 0;
/* UnregisterCommand: */
SOURCE(21707, 481)
SOURCE(21707, 481)
result←v26240 = 0;
SOURCE(21707, 481)
msg←v26268 = 0;
SOURCE(21803, 318)
{
register word arg←v12716;
{
word pd399;
pd399 = (* (( (ptr) (* (( (ptr) gf←c50784)+208)/* var←c44736 */ ))+8) );
arg←v12716 = (word) ( *( (fPt) ((* (ptr) pd399 ))))(cmd←v26196, 0, pd399);
};
lab←L100185: ;
if ((arg←v12716 != 0)) {
}
else {
goto lab←L100182;
};
SOURCE(21901, 32)
{
word pd400;
pd400 = (* (( (ptr) (* (( (ptr) gf←c50784)+207)/* var←c44576 */ ))+6) );
procData←v12644 = (word) ( *( (fPt) ((* (ptr) pd400 ))))(arg←v12716, pd400);
};
SOURCE(21935, 175)
if ( ( (procData←v12644 != 0) ? ((* (ptr) procData←v12644 ) != 0) : 0 ) ) {
SOURCE(21982, 55)
{
word pd401;
pd401 = (* (( (ptr) (* (( (ptr) gf←c50784)+207)/* var←c44576 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd401 ))))(arg←v12716, 0, 0, 0, 1, pd401);
};
}
else {
SOURCE(22037, 73)
{
word var←c48224;
{
W2 var←c48256;
var←c48256.f0 = 11;
var←c48256.f1 = arg←v12716;
{
word pd402;
pd402 = (* (( (ptr) (* (( (ptr) gf←c50784)+203)/* var←c44160 */ ))+63) );
var←c48224 = (word) ( *( (fPt) ((* (ptr) pd402 ))))((* (( (ptr) gf←c50784)+91) ), var←c48256, pd402);
};
};
{
word var←c0500;
var←c0500 = var←c48224;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c50784)+208)/* var←c44736 */ ))+4) ), (word) &var←c0500);
};
};
};
SOURCE(22112, 9)
n←v12672 = (n←v12672 + 1);
{
word pd403;
pd403 = (* (( (ptr) (* (( (ptr) gf←c50784)+208)/* var←c44736 */ ))+8) );
arg←v12716 = (word) ( *( (fPt) ((* (ptr) pd403 ))))(cmd←v26196, 0, pd403);
};
goto lab←L100185;
lab←L100182: ;
};
SOURCE(22132, 56)
if (( (int)n←v12672 == (int)0)) {
SOURCE(22148, 15)
result←v26240 = (* (( (ptr) gf←c50784)+21) );
SOURCE(22165, 23)
msg←v26268 = (* (( (ptr) (* (( (ptr) cmd←v26196)+5) ))+1) );
};
/* removed tail goto */
(* (ptr) formal←c0501 ) = result←v26240;
(* (( (ptr) formal←c0501)+1) ) = msg←v26268;
return;
}
static void ControlCommand←P1920(formal←c0538, cmd←v26328)
word formal←c0538;
word cmd←v26328;
{
register ptr gf←c50816 = (ptr) &globalframe;
word result←v26372;
word msg←v26400;
/* ControlCommand: */
SOURCE(22195, 1556)
SOURCE(22195, 1556)
result←v26372 = 0;
SOURCE(22195, 1556)
msg←v26400 = 0;
SOURCE(22235, 1516)
SOURCE(22237, 94)
{
word commandToolData←v12760;
word arg←v12788;
word sense←v12816 = 1;
word toggle←v12844 = 0;
word query←v12872 = 0;
word local←v12900 = 0;
SOURCE(22237, 94)
{
word pd404;
pd404 = (* (( (ptr) (* (( (ptr) gf←c50816)+213)/* var←c45632 */ ))+5) );
commandToolData←v12760 = (word) ( *( (fPt) ((* (ptr) pd404 ))))(cmd←v26328, pd404);
};
SOURCE(22333, 42)
{
word pd405;
pd405 = (* (( (ptr) (* (( (ptr) gf←c50816)+208)/* var←c44736 */ ))+8) );
arg←v12788 = (word) ( *( (fPt) ((* (ptr) pd405 ))))(cmd←v26328, 0, pd405);
};
SOURCE(22757, 94)
{
word pd406;
pd406 = (* (( (ptr) (* (( (ptr) gf←c50816)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd406 ))))(arg←v12788, (* (( (ptr) gf←c50816)+92) ), 0, pd406))) {
SOURCE(22801, 12)
local←v12900 = 1;
SOURCE(22815, 36)
{
word pd407;
pd407 = (* (( (ptr) (* (( (ptr) gf←c50816)+208)/* var←c44736 */ ))+8) );
arg←v12788 = (word) ( *( (fPt) ((* (ptr) pd407 ))))(cmd←v26328, 0, pd407);
};
};
};
{
word pd408;
pd408 = (* (( (ptr) (* (( (ptr) gf←c50816)+208)/* var←c44736 */ ))+8) );
if (((word) ( *( (fPt) ((* (ptr) pd408 ))))(cmd←v26328, 0, pd408) != 0)) {
SOURCE(22912, 10)
goto lab←L100187;
}
else {
if ((commandToolData←v12760 == 0)) {
}
else {
if ((arg←v12788 == 0)) {
SOURCE(22972, 12)
sense←v12816 = 1;
}
else {
{
word pd409;
pd409 = (* (( (ptr) (* (( (ptr) gf←c50816)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd409 ))))(arg←v12788, (* (( (ptr) gf←c50816)+93) ), 0, pd409))) {
SOURCE(23020, 12)
sense←v12816 = 1;
}
else {
{
word pd410;
pd410 = (* (( (ptr) (* (( (ptr) gf←c50816)+206)/* var←c44544 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd410 ))))(arg←v12788, (* (( (ptr) gf←c50816)+94) ), 0, pd410))) {
SOURCE(23069, 13)
/*1*/ sense←v12816 = 0;
/*1*/ }
else {
/*1*/ {
/*1*/ word pd411;
/*1*/ pd411 = (* (( (ptr) (* (( (ptr) gf←c50816)+206)/* var←c44544 */ ))+8) );
/*1*/ if ((0 != (word) ( *( (fPt) ((* (ptr) pd411 ))))(arg←v12788, (* (( (ptr) gf←c50816)+95) ), 0, pd411))) {
SOURCE(23122, 13)
/*1*/ toggle←v12844 = 1;
/*1*/ }
/*1*/ else {
/*1*/ {
/*1*/ word pd412;
/*1*/ pd412 = (* (( (ptr) (* (( (ptr) gf←c50816)+206)/* var←c44544 */ ))+8) );
/*1*/ if ((0 != (word) ( *( (fPt) ((* (ptr) pd412 ))))(arg←v12788, (* (( (ptr) gf←c50816)+96) ), 0, pd412))) {
SOURCE(23170, 12)
/*1*/ query←v12872 = 1;
/*1*/ }
/*1*/ else {
SOURCE(23195, 10)
/*1*/ goto lab←L100187;
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
};
};
};
};
};
};
};
SOURCE(23207, 469)
{
register word data←v13076;
data←v13076 = commandToolData←v12760;
lab←L100191: ;
if ((data←v13076 != 0)) {
}
else {
goto lab←L100188;
};
SOURCE(23349, 284)
{
word var←c48288;
var←c48288 = (* (( (ptr) (* (( (ptr) cmd←v26328)+5) ))+2) );
if ((var←c48288 == (* (( (ptr) gf←c50816)+97) ))) {
SOURCE(23397, 42)
{
word var←c48320;
{
word var←c48352;
word old←v42640;
old←v42640 = (*((int*)commandToolData←v12760 + 6)<0);
SOURCE(22508, 198)
if ((0 != query←v12872)) {
SOURCE(22524, 95)
{
word var←c48384;
var←c48384 = (* (( (ptr) (* (( (ptr) cmd←v26328)+5) ))+2) );
if ((var←c48384 == 0)) {
/*1*/ goto lab←L100192;
/*1*/ };
if (((* (( (ptr) gf←c50816)+11) ) == XR←GetReferentType(var←c48384))) {
/*1*/ {
/*1*/ word atom←v13120;
/*1*/ atom←v13120 = var←c48384;
SOURCE(22579, 40)
/*1*/ {
/*1*/ word var←c48416;
/*1*/ {
/*1*/ word pd414;
/*1*/ pd414 = (* (( (ptr) (* (( (ptr) gf←c50816)+204)/* var←c44352 */ ))+9) );
/*1*/ var←c48416 = (word) ( *( (fPt) ((* (ptr) pd414 ))))(atom←v13120, pd414);
/*1*/ };
/*1*/ {
/*1*/ word pd415;
/*1*/ pd415 = (* (( (ptr) (* (( (ptr) gf←c50816)+203)/* var←c44160 */ ))+93) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd415 ))))((* (( (ptr) cmd←v26328)+1) ), var←c48416, 0, 2147483647, pd415);
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ }
else {
/*1*/ lab←L100192: ;
SOURCE(22632, 5)
/*1*/ (void) XR←RaiseUnnamedError();
/*1*/ };
};
SOURCE(22639, 54)
{
word pd416;
pd416 = (* (( (ptr) (* (( (ptr) gf←c50816)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd416 ))))((* (( (ptr) cmd←v26328)+1) ), ( (0 != old←v42640) ? (* (( (ptr) gf←c50816)+101) ) : (* (
/*1*/ ( (ptr) gf←c50816)+102) ) ) , 0, 2147483647, pd416);
};
SOURCE(22695, 11)
var←c48352 = old←v42640;
goto lab←L100193;
};
SOURCE(22711, 41)
if ((0 != toggle←v12844)) {
var←c48352 = (0 == old←v42640);
}
else {
var←c48352 = sense←v12816;
};
lab←L100193: ;
var←c48320 = var←c48352;
};
((P1x0b) (( (bPt) data←v13076) + 24))->f = (var←c48320 & 1);
};
goto endif0413;
};
if ((var←c48288 == (* (( (ptr) gf←c50816)+98) ))) {
SOURCE(23451, 50)
{
word var←c48448;
{
word var←c48480;
word old←v42548;
old←v42548 = ( ! (*((int*)commandToolData←v12760 + 6)<0));
SOURCE(22508, 198)
if ((0 != query←v12872)) {
SOURCE(22524, 95)
{
word var←c48512;
var←c48512 = (* (( (ptr) (* (( (ptr) cmd←v26328)+5) ))+2) );
if ((var←c48512 == 0)) {
/*1*/ goto lab←L100194;
/*1*/ };
if (((* (( (ptr) gf←c50816)+11) ) == XR←GetReferentType(var←c48512))) {
/*1*/ {
/*1*/ word atom←v42596;
/*1*/ atom←v42596 = var←c48512;
SOURCE(22579, 40)
/*1*/ {
/*1*/ word var←c48544;
/*1*/ {
/*1*/ word pd417;
/*1*/ pd417 = (* (( (ptr) (* (( (ptr) gf←c50816)+204)/* var←c44352 */ ))+9) );
/*1*/ var←c48544 = (word) ( *( (fPt) ((* (ptr) pd417 ))))(atom←v42596, pd417);
/*1*/ };
/*1*/ {
/*1*/ word pd418;
/*1*/ pd418 = (* (( (ptr) (* (( (ptr) gf←c50816)+203)/* var←c44160 */ ))+93) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd418 ))))((* (( (ptr) cmd←v26328)+1) ), var←c48544, 0, 2147483647, pd418);
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ }
else {
/*1*/ lab←L100194: ;
SOURCE(22632, 5)
/*1*/ (void) XR←RaiseUnnamedError();
/*1*/ };
};
SOURCE(22639, 54)
{
word pd419;
pd419 = (* (( (ptr) (* (( (ptr) gf←c50816)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd419 ))))((* (( (ptr) cmd←v26328)+1) ), ( (0 != old←v42548) ? (* (( (ptr) gf←c50816)+101) ) : (* (
/*1*/ ( (ptr) gf←c50816)+102) ) ) , 0, 2147483647, pd419);
};
SOURCE(22695, 11)
var←c48480 = old←v42548;
goto lab←L100195;
};
SOURCE(22711, 41)
if ((0 != toggle←v12844)) {
var←c48480 = (0 == old←v42548);
}
else {
var←c48480 = sense←v12816;
};
lab←L100195: ;
var←c48448 = (0 == var←c48480);
};
((P1x0b) (( (bPt) data←v13076) + 24))->f = (var←c48448 & 1);
};
goto endif0413;
};
if ((var←c48288 == (* (( (ptr) gf←c50816)+99) ))) {
SOURCE(23518, 48)
{
word var←c48576;
{
word var←c48608;
word old←v42456;
old←v42456 = (((unsigned)(* (( (bPt) commandToolData←v12760)+24) ) << 25) >> 31);
SOURCE(22508, 198)
if ((0 != query←v12872)) {
SOURCE(22524, 95)
{
word var←c48640;
var←c48640 = (* (( (ptr) (* (( (ptr) cmd←v26328)+5) ))+2) );
if ((var←c48640 == 0)) {
/*1*/ goto lab←L100196;
/*1*/ };
if (((* (( (ptr) gf←c50816)+11) ) == XR←GetReferentType(var←c48640))) {
/*1*/ {
/*1*/ word atom←v42504;
/*1*/ atom←v42504 = var←c48640;
SOURCE(22579, 40)
/*1*/ {
/*1*/ word var←c48672;
/*1*/ {
/*1*/ word pd420;
/*1*/ pd420 = (* (( (ptr) (* (( (ptr) gf←c50816)+204)/* var←c44352 */ ))+9) );
/*1*/ var←c48672 = (word) ( *( (fPt) ((* (ptr) pd420 ))))(atom←v42504, pd420);
/*1*/ };
/*1*/ {
/*1*/ word pd421;
/*1*/ pd421 = (* (( (ptr) (* (( (ptr) gf←c50816)+203)/* var←c44160 */ ))+93) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd421 ))))((* (( (ptr) cmd←v26328)+1) ), var←c48672, 0, 2147483647, pd421);
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ }
else {
/*1*/ lab←L100196: ;
SOURCE(22632, 5)
/*1*/ (void) XR←RaiseUnnamedError();
/*1*/ };
};
SOURCE(22639, 54)
{
word pd422;
pd422 = (* (( (ptr) (* (( (ptr) gf←c50816)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd422 ))))((* (( (ptr) cmd←v26328)+1) ), ( (0 != old←v42456) ? (* (( (ptr) gf←c50816)+101) ) : (* (
/*1*/ ( (ptr) gf←c50816)+102) ) ) , 0, 2147483647, pd422);
};
SOURCE(22695, 11)
var←c48608 = old←v42456;
goto lab←L100197;
};
SOURCE(22711, 41)
if ((0 != toggle←v12844)) {
var←c48608 = (0 == old←v42456);
}
else {
var←c48608 = sense←v12816;
};
lab←L100197: ;
var←c48576 = var←c48608;
};
((P1x1b) (( (bPt) data←v13076) + 24))->f = (var←c48576 & 1);
};
goto endif0413;
};
if ((var←c48288 == (* (( (ptr) gf←c50816)+100) ))) {
SOURCE(23583, 50)
{
word var←c48704;
{
word var←c48736;
word old←v42364;
old←v42364 = (((unsigned)(* (( (bPt) commandToolData←v12760)+24) ) << 26) >> 31);
SOURCE(22508, 198)
if ((0 != query←v12872)) {
SOURCE(22524, 95)
{
word var←c48768;
var←c48768 = (* (( (ptr) (* (( (ptr) cmd←v26328)+5) ))+2) );
if ((var←c48768 == 0)) {
/*1*/ goto lab←L100198;
/*1*/ };
if (((* (( (ptr) gf←c50816)+11) ) == XR←GetReferentType(var←c48768))) {
/*1*/ {
/*1*/ word atom←v42412;
/*1*/ atom←v42412 = var←c48768;
SOURCE(22579, 40)
/*1*/ {
/*1*/ word var←c48800;
/*1*/ {
/*1*/ word pd423;
/*1*/ pd423 = (* (( (ptr) (* (( (ptr) gf←c50816)+204)/* var←c44352 */ ))+9) );
/*1*/ var←c48800 = (word) ( *( (fPt) ((* (ptr) pd423 ))))(atom←v42412, pd423);
/*1*/ };
/*1*/ {
/*1*/ word pd424;
/*1*/ pd424 = (* (( (ptr) (* (( (ptr) gf←c50816)+203)/* var←c44160 */ ))+93) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd424 ))))((* (( (ptr) cmd←v26328)+1) ), var←c48800, 0, 2147483647, pd424);
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ }
else {
/*1*/ lab←L100198: ;
SOURCE(22632, 5)
/*1*/ (void) XR←RaiseUnnamedError();
/*1*/ };
};
SOURCE(22639, 54)
{
word pd425;
pd425 = (* (( (ptr) (* (( (ptr) gf←c50816)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd425 ))))((* (( (ptr) cmd←v26328)+1) ), ( (0 != old←v42364) ? (* (( (ptr) gf←c50816)+101) ) : (* (
/*1*/ ( (ptr) gf←c50816)+102) ) ) , 0, 2147483647, pd425);
};
SOURCE(22695, 11)
var←c48736 = old←v42364;
goto lab←L100199;
};
SOURCE(22711, 41)
if ((0 != toggle←v12844)) {
var←c48736 = (0 == old←v42364);
}
else {
var←c48736 = sense←v12816;
};
lab←L100199: ;
var←c48704 = var←c48736;
};
((P1x2b) (( (bPt) data←v13076) + 24))->f = (var←c48704 & 1);
};
goto endif0413;
};
SOURCE(23646, 5)
(void) XR←RaiseUnnamedError();
goto endif0413;
endif0413: ;
};
SOURCE(23653, 23)
if (((0 != query←v12872) || (0 != local←v12900))) {
SOURCE(23676, 4)
goto lab←L100189;
};
{
word pd426;
pd426 = (* (( (ptr) (* (( (ptr) gf←c50816)+213)/* var←c45632 */ ))+5) );
data←v13076 = (word) ( *( (fPt) ((* (ptr) pd426 ))))((* ((( (ptr) data←v13076)+7)) ), pd426);
};
goto lab←L100191;
lab←L100188: ;
lab←L100189: ;
};
};
goto lab←L100200;
lab←L100187: ;
SOURCE(23706, 43)
{
word var←c0537;
var←c0537 = (* (( (ptr) (* (( (ptr) cmd←v26328)+5) ))+1) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c50816)+208)/* var←c44736 */ ))+4) ), (word) &var←c0537);
};
lab←L100200: ;
/* removed tail goto */
(* (ptr) formal←c0538 ) = result←v26372;
(* (( (ptr) formal←c0538)+1) ) = msg←v26400;
return;
}
static word FindLastProp←P1980(key←v5804, aList←v5832)
word key←v5804;
word aList←v5832;
{
word dp←v5888;
/* FindLastProp: */
SOURCE(23755, 205)
SOURCE(23755, 205)
dp←v5888 = 0;
SOURCE(23844, 95)
lab←L100203: ;
if ((aList←v5832 != 0)) {
}
else {
goto lab←L100201;
};
SOURCE(23865, 54)
if (((* (ptr) (* (ptr) aList←v5832 ) ) == key←v5804)) {
SOURCE(23895, 24)
dp←v5888 = (* (ptr) aList←v5832 );
};
SOURCE(23921, 18)
aList←v5832 = (* (( (ptr) aList←v5832)+1) );
goto lab←L100203;
lab←L100201: ;
SOURCE(23950, 10)
return(dp←v5888);
}
static void PrintAny←P2040(any←v5948, out←v5976)
word any←v5948;
word out←v5976;
{
register ptr gf←c50848 = (ptr) &globalframe;
/* PrintAny: */
SOURCE(23966, 650)
SOURCE(24016, 591)
if ((any←v5948 == 0)) {
SOURCE(24032, 24)
{
word pd427;
pd427 = (* (( (ptr) (* (( (ptr) gf←c50848)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd427 ))))(out←v5976, (* (( (ptr) gf←c50848)+86) ), 0, 2147483647, pd427);
};
}
else {
SOURCE(24056, 551)
{
word var←c48832;
word var←c48864;
var←c48832 = any←v5948;
if ((var←c48832 == 0)) {
goto lab←L100204;
};
var←c48864 = XR←GetReferentType(var←c48832);
{
word tc430;
if (((* (( (ptr) gf←c50848)+11) ) == var←c48864)) {
{
word x←v13148;
x←v13148 = var←c48832;
SOURCE(24088, 27)
{
W2 var←c48896;
var←c48896.f0 = 1;
var←c48896.f1 = x←v13148;
{
word pd429;
pd429 = (* (( (ptr) (* (( (ptr) gf←c50848)+203)/* var←c44160 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd429 ))))(out←v5976, (* (( (ptr) gf←c50848)+104) ), var←c48896, pd429);
};
};
};
goto endif0428;
};
if (((* (( (ptr) gf←c50848)+4) ) == var←c48864)) {
tc430 = (word) ((*(int*)var←c48832<0) == 0);
}
else {
tc430 = (word) 0;
};
if (tc430) {
{
word x←v13192;
x←v13192 = var←c48832;
SOURCE(24133, 30)
{
W2 var←c48928;
var←c48928.f0 = 11;
var←c48928.f1 = x←v13192;
{
word pd431;
pd431 = (* (( (ptr) (* (( (ptr) gf←c50848)+203)/* var←c44160 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd431 ))))(out←v5976, (* (( (ptr) gf←c50848)+105) ), var←c48928, pd431);
};
};
};
goto endif0428;
};
if (((* (( (ptr) gf←c50848)+10) ) == var←c48864)) {
{
word x←v13236;
x←v13236 = var←c48832;
SOURCE(24191, 24)
{
word pd432;
pd432 = (* (( (ptr) (* (( (ptr) gf←c50848)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd432 ))))(out←v5976, (* (( (ptr) gf←c50848)+106) ), 0, 2147483647, pd432);
};
SOURCE(24217, 126)
{
register word y←v13364;
y←v13364 = x←v13236;
lab←L100208: ;
if ((y←v13364 != 0)) {
}
else {
goto lab←L100205;
};
SOURCE(24269, 36)
{
W2 var←c48960;
var←c48960.f0 = 11;
var←c48960.f1 = (* (ptr) y←v13364 );
{
word pd433;
pd433 = (* (( (ptr) (* (( (ptr) gf←c50848)+203)/* var←c44160 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd433 ))))(out←v5976, (* (( (ptr) gf←c50848)+105) ), var←c48960, pd433);
};
};
SOURCE(24307, 36)
if (((* (( (ptr) y←v13364)+1) ) != 0)) {
SOURCE(24326, 17)
{
word pd434;
pd434 = (* (( (ptr) (* (( (ptr) gf←c50848)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd434 ))))(out←v5976, (* (( (ptr) gf←c50848)+107) ), 0, 2147483647, pd434);
};
};
y←v13364 = (* (( (ptr) y←v13364)+1) );
goto lab←L100208;
lab←L100205: ;
};
SOURCE(24354, 16)
{
word pd435;
pd435 = (* (( (ptr) (* (( (ptr) gf←c50848)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd435 ))))(out←v5976, (* (( (ptr) gf←c50848)+108) ), 0, 2147483647, pd435);
};
};
goto endif0428;
};
if (((* (( (ptr) gf←c50848)+9) ) == var←c48864)) {
{
word x←v13492;
x←v13492 = var←c48832;
SOURCE(24397, 20)
{
word pd436;
pd436 = (* (( (ptr) (* (( (ptr) gf←c50848)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd436 ))))(out←v5976, (* (( (ptr) gf←c50848)+109) ), 0, 2147483647, pd436);
};
SOURCE(24419, 110)
{
register word y←v13632;
y←v13632 = x←v13492;
lab←L100212: ;
if ((y←v13632 != 0)) {
}
else {
goto lab←L100209;
};
SOURCE(24469, 22)
(void) PrintAny←P2040((* (ptr) y←v13632 ), out←v5976);
SOURCE(24493, 36)
if (((* (( (ptr) y←v13632)+1) ) != 0)) {
SOURCE(24512, 17)
{
word pd437;
pd437 = (* (( (ptr) (* (( (ptr) gf←c50848)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd437 ))))(out←v5976, (* (( (ptr) gf←c50848)+107) ), 0, 2147483647, pd437);
};
};
y←v13632 = (* (( (ptr) y←v13632)+1) );
goto lab←L100212;
lab←L100209: ;
};
SOURCE(24540, 16)
{
word pd438;
pd438 = (* (( (ptr) (* (( (ptr) gf←c50848)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd438 ))))(out←v5976, (* (( (ptr) gf←c50848)+108) ), 0, 2147483647, pd438);
};
};
goto endif0428;
};
lab←L100204: ;
SOURCE(24572, 35)
{
W2 var←c48992;
var←c48992.f0 = 10;
var←c48992.f1 = any←v5948;
{
word pd439;
pd439 = (* (( (ptr) (* (( (ptr) gf←c50848)+203)/* var←c44160 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd439 ))))(out←v5976, (* (( (ptr) gf←c50848)+110) ), var←c48992, pd439);
};
};
goto endif0428;
endif0428: ;
};
};
};
SOURCE(24610, 6)
return;
}
static void VersionCommand←P2100(formal←c0559, formal←c0866)
word formal←c0559;
word formal←c0866;
{
W5 var←c50880;
/* declaration of cmd←v26460 skipped */
word result←v26504;
word msg←v26532;
var←c50880.f4/* cmd←v26460 */ = formal←c0866;
/* VersionCommand: */
SOURCE(24622, 227)
SOURCE(24622, 227)
result←v26504 = 0;
SOURCE(24622, 227)
msg←v26532 = 0;
SOURCE(24672, 177)
{
word var←c0831;
var←c0831 = (word) &var←c50880;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q7692) ), ( ((word) (fPt) NoName←Q7872) ), var←c0831);
};
/* removed tail goto */
(* (ptr) formal←c0559 ) = result←v26504;
(* (( (ptr) formal←c0559)+1) ) = msg←v26532;
return;
}
static word NoName←Q7692(formal←c0787)
word formal←c0787;
{
register ptr gf←c0786 = (ptr) &globalframe;
SOURCE(24735, 42)
{
word arg←v13772;
SOURCE(24735, 42)
{
word pd440;
pd440 = (* (( (ptr) (* (( (ptr) gf←c0786)+208)/* var←c44736 */ ))+8) );
arg←v13772 = (word) ( *( (fPt) ((* (ptr) pd440 ))))((* (( (ptr) formal←c0787)+4) ), 0, pd440);
};
SOURCE(24779, 70)
{
word var←c49024;
{
word pd441;
if ((arg←v13772 == 0)) {
var←c49024 = 2;
}
else {
pd441 = (* (( (ptr) (* (( (ptr) gf←c0786)+209)/* var←c45056 */ ))+10) );
var←c49024 = (word) ( *( (fPt) ((* (ptr) pd441 ))))(arg←v13772, 8, pd441);
};
};
(void) PutVersion←P2220((* (( (ptr) (* (( (ptr) formal←c0787)+4) ))+1) ), var←c49024);
};
};
return(0);
}
static void MapCommand←P2160(formal←c0581, formal←c0867)
word formal←c0581;
word formal←c0867;
{
W9 var←c50912;
/* declaration of cmd←v26592 skipped */
register ptr gf←c50944 = (ptr) &globalframe;
word result←v26636;
/* declaration of msg←v26664 skipped */
(* (( (ptr) &var←c50912)+4)/* cmd←v26592 */ ) = formal←c0867;
/* MapCommand: */
SOURCE(24855, 1400)
SOURCE(24855, 1400)
result←v26636 = 0;
SOURCE(24855, 1400)
(* (( (ptr) &var←c50912)+5)/* msg←v26664 */ ) = 0;
SOURCE(24891, 1364)
SOURCE(24893, 24)
{
word out←v13816;
word switches←v13872 = 0;
word debug←v13900 = 0;
word args←v13928;
/* declaration of var←c048 skipped */
/* declaration of var←c049 skipped */
word zorch←v13956 = 0;
word nTried←v13984 = 0;
word nFailed←v14012 = 0;
SOURCE(24893, 24)
out←v13816 = (* (( (ptr) (* (( (ptr) &var←c50912)+4)/* cmd←v26592 */ ))+1) );
SOURCE(25031, 6)
(* (( (ptr) &var←c50912)+6)/* var←c048 */ ) = (* (( (ptr) (* (( (ptr) gf←c50944)+208)/* var←c44736 */ ))+5) );
{
word var←c050;
{
word var←c0832;
var←c0832 = (word) &var←c50912;
var←c050 = (word) XR←Enable(( ((word) (fPt) NoName←Q7752) ), ( ((word) (fPt) NoName←Q7812) ), var←c0832);
};
if ((var←c050 == 13)) {
goto lab←L100217;
};
};
args←v13928 = (* (W2Pt) (( (ptr) &var←c50912)+7)/* var←c049 */ ).f0;
SOURCE(25224, 884)
lab←L100222: ;
if ((args←v13928 != 0)) {
}
else {
goto lab←L100220;
};
{
word arg←v14176;
word argLen←v14204;
SOURCE(25244, 22)
arg←v14176 = (* (ptr) args←v13928 );
SOURCE(25268, 30)
{
word pd442;
pd442 = (* (( (ptr) (* (( (ptr) gf←c50944)+206)/* var←c44544 */ ))+14) );
argLen←v14204 = (word) ( *( (fPt) ((* (ptr) pd442 ))))(arg←v14176, pd442);
};
SOURCE(25300, 16)
args←v13928 = (* (( (ptr) args←v13928)+1) );
SOURCE(25318, 293)
{
word pd443;
pd443 = (* (( (ptr) (* (( (ptr) gf←c50944)+206)/* var←c44544 */ ))+23) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd443 ))))((* (( (ptr) gf←c50944)+55) ), arg←v14176, 1, pd443))) {
SOURCE(25348, 280)
{
word sense←v14248 = 1;
SOURCE(25392, 219)
{
register word j←v14340 = 1;
register word noName←c49056;
{
word pd444;
word idx445;
pd444 = (* (( (ptr) (* (( (ptr) gf←c50944)+206)/* var←c44544 */ ))+14) );
noName←c49056 = (
idx445 = (word) ( *( (fPt) ((* (ptr) pd444 ))))(arg←v14176, pd444),
SGNCK(idx445)
);
};
if ((j←v14340 >= noName←c49056)) {
goto lab←L100223;
};
lab←L100226: ;
{
word c←v14384;
SOURCE(25431, 28)
{
word pd446;
pd446 = (* (( (ptr) (* (( (ptr) gf←c50944)+206)/* var←c44544 */ ))+9) );
c←v14384 = (word) ( *( (fPt) ((* (ptr) pd446 ))))(arg←v14176, j←v14340, pd446);
};
SOURCE(25461, 120)
{
word var←c49088;
var←c49088 = c←v14384;
if (((var←c49088 - 65) <= 25)) {
SOURCE(25490, 29)
/*1*/ {
/*1*/ word x447;
/*1*/ word x448;
/*1*/ x447 = (word) (BCK((c←v14384 - 65), 26) + 6);
/*1*/ x448 = (word) &switches←v13872;
/*1*/ x447 = 32 - ((word) x447+1);
/*1*/ (* (ptr) x448 ) = ((* (ptr) x448 ) & ( ~ ((unsigned) 1 << x447))) | (((sense←v14248 & 1)) << x447);
/*1*/ };
/*1*/ }
else {
/*1*/ if (((var←c49088 - 97) <= 25)) {
SOURCE(25536, 19)
/*1*/ {
/*1*/ word x449;
/*1*/ word x450;
/*1*/ x449 = (word) (BCK((c←v14384 - 97), 26) + 6);
/*1*/ x450 = (word) &switches←v13872;
/*1*/ x449 = 32 - ((word) x449+1);
/*1*/ (* (ptr) x450 ) = ((* (ptr) x450 ) & ( ~ ((unsigned) 1 << x449))) | (((sense←v14248 & 1)) << x449);
/*1*/ };
/*1*/ }
/*1*/ else {
/*1*/ if ((var←c49088 == 126)) {
SOURCE(25564, 17)
/*1*/ sense←v14248 = (0 == sense←v14248);
SOURCE(25583, 4)
/*1*/ goto lab←L100225;
/*1*/ };
/*1*/ };
/*1*/ };
};
SOURCE(25599, 12)
sense←v14248 = 1;
};
lab←L100225: ;
j←v14340 = (j←v14340 + 1);
if ((j←v14340 < noName←c49056)) {
goto lab←L100226;
};
lab←L100223: ;
};
SOURCE(25622, 4)
goto lab←L100222;
};
};
};
SOURCE(25631, 140)
{
word tc451;
word pd452;
pd452 = (* (( (ptr) (* (( (ptr) gf←c50944)+206)/* var←c44544 */ ))+24) );
if (( (int)(word) ( *( (fPt) ((* (ptr) pd452 ))))(arg←v14176, 0, (* (( (ptr) gf←c50944)+71) ), pd452) < (int)argLen←v14204)) {
tc451 = (word) (((unsigned)switches←v13872 << 29) >> 31);
}
else {
tc451 = (word) 0;
};
if (tc451) {
SOURCE(25692, 79)
if ((zorch←v13956 == 0)) {
SOURCE(25714, 57)
(* (( (ptr) &var←c50912)+5)/* msg←v26664 */ ) = (* (( (ptr) gf←c50944)+111) );
SOURCE(25773, 10)
goto lab←L100217;
};
};
};
SOURCE(25791, 277)
if ((zorch←v13956 != 0)) {
SOURCE(25811, 265)
{
word line←v14428;
word eachResult←v14456;
SOURCE(25813, 36)
{
word pd453;
pd453 = (* (( (ptr) (* (( (ptr) gf←c50944)+206)/* var←c44544 */ ))+6) );
line←v14428 = (word) ( *( (fPt) ((* (ptr) pd453 ))))(zorch←v13956, arg←v14176, pd453);
};
SOURCE(25851, 51)
{
word pd454;
pd454 = (* (( (ptr) (* (( (ptr) gf←c50944)+208)/* var←c44736 */ ))+11) );
eachResult←v14456 = (word) ( *( (fPt) ((* (ptr) pd454 ))))(line←v14428, (* (( (ptr) &var←c50912)+4)/* cmd←v26592 */ ), pd454)
;
};
SOURCE(25904, 19)
nTried←v13984 = (nTried←v13984 + 1);
SOURCE(25925, 19)
result←v26636 = eachResult←v14456;
SOURCE(25946, 122)
if ((eachResult←v14456 == (* (( (ptr) gf←c50944)+21) ))) {
SOURCE(25978, 21)
nFailed←v14012 = (nFailed←v14012 + 1);
SOURCE(26001, 21)
if (switches←v13872 & 01000) {
SOURCE(26022, 10)
goto lab←L100217;
};
}
else {
SOURCE(26041, 27)
if (switches←v13872 & 0200) {
SOURCE(26062, 6)
goto lab←L100216;
};
};
SOURCE(26070, 4)
goto lab←L100222;
};
};
SOURCE(26079, 29)
{
word pd455;
pd455 = (* (( (ptr) (* (( (ptr) gf←c50944)+206)/* var←c44544 */ ))+6) );
zorch←v13956 = (word) ( *( (fPt) ((* (ptr) pd455 ))))(arg←v14176, (* (( (ptr) gf←c50944)+33) ), pd455);
};
};
goto lab←L100222;
lab←L100220: ;
SOURCE(26119, 37)
if ( ( (((unsigned)switches←v13872 << 6) >> 31) ? ( (int)nFailed←v14012 != (int)0) : 0 ) ) {
SOURCE(26156, 10)
goto lab←L100217;
};
SOURCE(26168, 42)
if ( ( (((unsigned)switches←v13872 << 10) >> 31) ? ( (int)nFailed←v14012 == (int)nTried←v13984) : 0 ) ) {
SOURCE(26210, 10)
goto lab←L100217;
};
};
goto lab←L100227;
lab←L100217: ;
SOURCE(26236, 17)
result←v26636 = (* (( (ptr) gf←c50944)+21) );
lab←L100227: ;
/* removed tail goto */
lab←L100216: ;
(* (ptr) formal←c0581 ) = result←v26636;
(* (( (ptr) formal←c0581)+1) ) = (* (( (ptr) &var←c50912)+5)/* msg←v26664 */ );
return;
}
static word NoName←Q7752(formal←c0789)
word formal←c0789;
{
SOURCE(25031, 6)
{
word pd456;
pd456 = (* (( (ptr) formal←c0789)+6) );
(void) ( *( (fPt) ((* (ptr) pd456 ))))((word) (( (bPt) formal←c0789)+28), (* (( (ptr) formal←c0789)+4) ), 0, pd456);
};
return(0);
}
static void PutVersion←P2220(formal←c0868, formal←c0869)
word formal←c0868;
word formal←c0869;
{
W8 var←c50976;
/* declaration of out←v6048 skipped */
/* declaration of n←v6076 skipped */
register ptr gf←c51008 = (ptr) &globalframe;
/* declaration of var←c49120 skipped */
var←c50976.f4/* out←v6048 */ = formal←c0868;
var←c50976.f5/* n←v6076 */ = formal←c0869;
/* PutVersion: */
SOURCE(26259, 280)
{
word tmpAddr457;
tmpAddr457 = (word) (( (ptr) &var←c50976)+6)/* var←c49120 */ ;
(* (ptr) tmpAddr457 ) = ( ((word) (fPt) P←P6012) );
(* (( (ptr) tmpAddr457) + 1) ) = 1;
};
SOURCE(26389, 52)
{
W2 var←c49152;
var←c49152.f0 = 5;
{
word idx458;
var←c49152.f1 = (
idx458 = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c51008)+217)/* var←c49184 */ ))+9) ) ),
SGNCK(idx458)
);
};
{
word pd459;
pd459 = (* (( (ptr) (* (( (ptr) gf←c51008)+203)/* var←c44160 */ ))+55) );
(void) ( *( (fPt) ((* (ptr) pd459 ))))(var←c50976.f4/* out←v6048 */ , var←c49152, pd459);
};
};
SOURCE(26443, 9)
var←c50976.f5/* n←v6076 */ = (var←c50976.f5/* n←v6076 */ - 1);
SOURCE(26454, 30)
{
word idx460;
(void) P←P6012((
idx460 = (* (( (ptr) (* (( (ptr) (* (( (ptr) gf←c51008)+217)/* var←c49184 */ ))+9) ))+1) ),
SGNCK(idx460)
), (word) (( (bPt) &var←c50976)+24)/* var←c49120 */ );
};
SOURCE(26486, 30)
{
word idx461;
(void) P←P6012((
idx461 = (* (( (ptr) (* (( (ptr) (* (( (ptr) gf←c51008)+217)/* var←c49184 */ ))+9) ))+2) ),
SGNCK(idx461)
), (word) (( (bPt) &var←c50976)+24)/* var←c49120 */ );
};
SOURCE(26518, 21)
{
word pd462;
pd462 = (* (( (ptr) (* (( (ptr) gf←c51008)+203)/* var←c44160 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd462 ))))(var←c50976.f4/* out←v6048 */ , (* (( (ptr) gf←c51008)+43) ), 0, 2147483647, pd462)
;
};
}
static void P←P6012(i←v14588, formal←c51072)
word i←v14588;
word formal←c51072;
{
register ptr gf←c51040 = (ptr) &globalframe;
formal←c51072 = (formal←c51072 - 24);
/* P: */
SOURCE(26305, 81)
SOURCE(26326, 48)
if (( (int)(* (( (ptr) formal←c51072)+5) ) > (int)0)) {
SOURCE(26340, 34)
{
W2 var←c49216;
var←c49216.f0 = 5;
var←c49216.f1 = i←v14588;
{
word pd463;
pd463 = (* (( (ptr) (* (( (ptr) gf←c51040)+203)/* var←c44160 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd463 ))))((* (( (ptr) formal←c51072)+4) ), (* (( (ptr) gf←c51040)+112) ), var←c49216, pd463)
;
};
};
};
SOURCE(26376, 10)
(* (( (ptr) formal←c51072)+5) ) = ((* (( (ptr) formal←c51072)+5) ) - 1);
}
static word RopeSubst←P2280(old←v6136, new←v6164, base←v6192, case←v6220, allOccurrences←v6248)
word old←v6136;
word new←v6164;
word base←v6192;
word case←v6220;
word allOccurrences←v6248;
{
register ptr gf←c51104 = (ptr) &globalframe;
word var←c6292;
word lenOld←v14616;
word lenNew←v14644;
word i←v14672 = 0;
/* RopeSubst: */
SOURCE(26545, 386)
SOURCE(26652, 28)
{
word pd464;
pd464 = (* (( (ptr) (* (( (ptr) gf←c51104)+206)/* var←c44544 */ ))+15) );
lenOld←v14616 = (word) ( *( (fPt) ((* (ptr) pd464 ))))(old←v6136, pd464);
};
SOURCE(26682, 28)
{
word pd465;
pd465 = (* (( (ptr) (* (( (ptr) gf←c51104)+206)/* var←c44544 */ ))+15) );
lenNew←v14644 = (word) ( *( (fPt) ((* (ptr) pd465 ))))(new←v6164, pd465);
};
SOURCE(26724, 184)
lab←L100230: ;
{
word pd466;
pd466 = (* (( (ptr) (* (( (ptr) gf←c51104)+206)/* var←c44544 */ ))+11) );
i←v14672 = (word) ( *( (fPt) ((* (ptr) pd466 ))))(base←v6192, old←v6136, i←v14672, case←v6220, pd466);
};
if (( (int)i←v14672 != (int) (word) -1)) {
}
else {
goto lab←L100228;
};
SOURCE(26794, 65)
{
word pd467;
pd467 = (* (( (ptr) (* (( (ptr) gf←c51104)+206)/* var←c44544 */ ))+16) );
base←v6192 = (word) ( *( (fPt) ((* (ptr) pd467 ))))(base←v6192, i←v14672, lenOld←v14616, new←v6164, pd467);
};
SOURCE(26861, 27)
if ((0 == allOccurrences←v6248)) {
SOURCE(26888, 4)
goto lab←L100229;
};
SOURCE(26894, 14)
i←v14672 = (i←v14672 + lenNew←v14644);
goto lab←L100230;
lab←L100228: ;
lab←L100229: ;
SOURCE(26919, 12)
return(base←v6192);
}
static word NewlineBreak←P2340(char←v26724)
word char←v26724;
{
word var←c26768;
/* NewlineBreak: */
SOURCE(26937, 92)
SOURCE(26968, 46)
if ((char←v26724 == 10) || (char←v26724 == 13)) {
SOURCE(27001, 13)
return(0);
};
SOURCE(27016, 13)
return(2);
}
static void Init←P2400()
{
W6 var←c51136;
register ptr gf←c51168 = (ptr) &globalframe;
/* declaration of var←c49248 skipped */
/* Init: */
SOURCE(27034, 4943)
{
word tmpAddr468;
tmpAddr468 = (word) (( (ptr) &var←c51136)+4)/* var←c49248 */ ;
(* (ptr) tmpAddr468 ) = ( ((word) (fPt) Register←P6072) );
(* (( (ptr) tmpAddr468) + 1) ) = 1;
};
SOURCE(27269, 82)
(void) Register←P6072((word) &string469, (word) (( (bPt) gf←c51168)+620)/* var←c43392 */ , (word) &string470, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(27353, 106)
(void) Register←P6072((word) &string471, (word) (( (bPt) gf←c51168)+620)/* var←c43392 */ , (word) &string472, (* (( (ptr) gf←c51168)+61)
), 0, (word) (( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(27461, 127)
(void) Register←P6072((word) &string473, (word) (( (bPt) gf←c51168)+588)/* var←c43264 */ , (word) &string474, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(27590, 149)
(void) Register←P6072((word) &string475, (word) (( (bPt) gf←c51168)+588)/* var←c43264 */ , (word) &string476, (* (( (ptr) gf←c51168)+61)
), 0, (word) (( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(27741, 186)
(void) Register←P6072((word) &string477, (word) (( (bPt) gf←c51168)+588)/* var←c43264 */ , (word) &string478, (* (( (ptr) gf←c51168)+84)
), 0, (word) (( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(27929, 166)
(void) Register←P6072((word) &string479, (word) (( (bPt) gf←c51168)+588)/* var←c43264 */ , (word) &string480, (* (( (ptr) gf←c51168)+83)
), 0, (word) (( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(28097, 51)
(void) Register←P6072((word) &string481, (word) (( (bPt) gf←c51168)+740)/* var←c43872 */ , (word) &string482, 0, 1, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(28150, 52)
(void) Register←P6072((word) &string483, (word) (( (bPt) gf←c51168)+740)/* var←c43872 */ , (word) &string482, 0, 1, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(28204, 51)
(void) Register←P6072((word) &string484, (word) (( (bPt) gf←c51168)+740)/* var←c43872 */ , (word) &string482, 0, 1, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(28257, 52)
(void) Register←P6072((word) &string485, (word) (( (bPt) gf←c51168)+740)/* var←c43872 */ , (word) &string482, 0, 1, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(28311, 64)
(void) Register←P6072((word) &string94, (word) (( (bPt) gf←c51168)+604)/* var←c43328 */ , (word) &string486, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(28377, 58)
(void) Register←P6072((word) &string487, (word) (( (bPt) gf←c51168)+796)/* var←c44096 */ , (word) &string488, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(28437, 130)
(void) Register←P6072((word) &string489, (word) (( (bPt) gf←c51168)+788)/* var←c44064 */ , (word) &string490, 0, 1, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(28569, 55)
(void) Register←P6072((word) &string491, (word) (( (bPt) gf←c51168)+772)/* var←c44000 */ , (word) &string492, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(28626, 83)
(void) Register←P6072((word) &string493, (word) (( (bPt) gf←c51168)+748)/* var←c43904 */ , (word) &string494, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(28711, 52)
(void) Register←P6072((word) &string495, (word) (( (bPt) gf←c51168)+724)/* var←c43808 */ , (word) &string496, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(28765, 105)
(void) Register←P6072((word) &string497, (word) (( (bPt) gf←c51168)+716)/* var←c43776 */ , (word) &string498, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(28872, 64)
(void) Register←P6072((word) &string499, (word) (( (bPt) gf←c51168)+708)/* var←c43744 */ , (word) &string500, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(28938, 58)
(void) Register←P6072((word) &string501, (word) (( (bPt) gf←c51168)+700)/* var←c43712 */ , (word) &string502, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(28998, 49)
(void) Register←P6072((word) &string503, (word) (( (bPt) gf←c51168)+692)/* var←c43680 */ , (word) &string504, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(29049, 67)
(void) Register←P6072((word) &string505, (word) (( (bPt) gf←c51168)+604)/* var←c43328 */ , (word) &string486, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(29118, 73)
(void) Register←P6072((word) &string42, (word) (( (bPt) gf←c51168)+668)/* var←c43584 */ , (word) &string506, (* (( (ptr) gf←c51168)+44)
), 0, (word) (( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(29193, 118)
(void) Register←P6072((word) &string46, (word) (( (bPt) gf←c51168)+668)/* var←c43584 */ , (word) &string507, (* (( (ptr) gf←c51168)+48)
), 0, (word) (( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(29313, 87)
(void) Register←P6072((word) &string508, (word) (( (bPt) gf←c51168)+644)/* var←c43488 */ , (word) &string509, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(29402, 117)
(void) Register←P6072((word) &string510, (word) (( (bPt) gf←c51168)+636)/* var←c43456 */ , (word) &string511, 0, 1, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(29521, 132)
(void) Register←P6072((word) &string47, (word) (( (bPt) gf←c51168)+668)/* var←c43584 */ , (word) &string512, (* (( (ptr) gf←c51168)+49)
), 0, (word) (( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(29655, 80)
{
word pd513;
pd513 = (* (( (ptr) (* (( (ptr) gf←c51168)+207)/* var←c44576 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd513 ))))((* (( (ptr) gf←c51168)+113) ), (word) (( (bPt) gf←c51168)+596)/* var←c43296 */ , (* (
( (ptr) gf←c51168)+57) ), 0, 1, pd513);
};
SOURCE(29737, 80)
(void) Register←P6072((word) &string514, (word) (( (bPt) gf←c51168)+580)/* var←c43232 */ , (word) &string515, 0, 1, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(29819, 79)
(void) Register←P6072((word) &string516, (word) (( (bPt) gf←c51168)+580)/* var←c43232 */ , (word) &string517, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(29900, 65)
(void) Register←P6072((word) &string518, (word) (( (bPt) gf←c51168)+580)/* var←c43232 */ , (word) &string519, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(29967, 66)
(void) Register←P6072((word) &string520, (word) (( (bPt) gf←c51168)+732)/* var←c43840 */ , (word) &string521, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(30035, 65)
(void) Register←P6072((word) &string522, (word) (( (bPt) gf←c51168)+572)/* var←c43200 */ , (word) &string523, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(30102, 77)
(void) Register←P6072((word) &string524, (word) (( (bPt) gf←c51168)+564)/* var←c43168 */ , (word) &string525, 0, 1, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(30181, 99)
(void) Register←P6072((word) &string526, (word) (( (bPt) gf←c51168)+556)/* var←c43136 */ , (word) &string527, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(30282, 135)
(void) Register←P6072((word) &string95, (word) (( (bPt) gf←c51168)+548)/* var←c43104 */ , (word) &string528, (* (( (ptr) gf←c51168)+97)
), 0, (word) (( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(30419, 131)
(void) Register←P6072((word) &string96, (word) (( (bPt) gf←c51168)+548)/* var←c43104 */ , (word) &string529, (* (( (ptr) gf←c51168)+98)
), 0, (word) (( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(30552, 129)
(void) Register←P6072((word) &string97, (word) (( (bPt) gf←c51168)+548)/* var←c43104 */ , (word) &string530, (* (( (ptr) gf←c51168)+99)
), 0, (word) (( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(30683, 125)
(void) Register←P6072((word) &string98, (word) (( (bPt) gf←c51168)+548)/* var←c43104 */ , (word) &string531, (* (( (ptr) gf←c51168)+100)
), 0, (word) (( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(30810, 65)
(void) Register←P6072((word) &string532, (word) (( (bPt) gf←c51168)+524)/* var←c43008 */ , (word) &string533, 0, 0, (word) (
( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(30877, 138)
(void) Register←P6072((word) &string534, (word) (( (bPt) gf←c51168)+660)/* var←c43552 */ , (word) &string535, (* (( (ptr) gf←c51168)+50)
), 0, (word) (( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(31017, 138)
(void) Register←P6072((word) &string536, (word) (( (bPt) gf←c51168)+660)/* var←c43552 */ , (word) &string537, (* (( (ptr) gf←c51168)+51)
), 0, (word) (( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(31157, 126)
(void) Register←P6072((word) &string538, (word) (( (bPt) gf←c51168)+660)/* var←c43552 */ , (word) &string539, (* (( (ptr) gf←c51168)+52)
), 0, (word) (( (bPt) &var←c51136)+16)/* var←c49248 */ );
SOURCE(31285, 122)
{
word pd540;
pd540 = (* (( (ptr) (* (( (ptr) gf←c51168)+207)/* var←c44576 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd540 ))))((* (( (ptr) gf←c51168)+114) ), (word) (( (bPt) gf←c51168)+612)/* var←c43360 */ , (* (
( (ptr) gf←c51168)+115) ), 0, 1, pd540);
};
SOURCE(31409, 242)
{
word pd541;
pd541 = (* (( (ptr) (* (( (ptr) gf←c51168)+207)/* var←c44576 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd541 ))))((* (( (ptr) gf←c51168)+116) ), (word) (( (bPt) gf←c51168)+676)/* var←c43616 */ , (* (
( (ptr) gf←c51168)+117) ), 0, 1, pd541);
};
SOURCE(31653, 55)
{
word pd542;
pd542 = (* (( (ptr) (* (( (ptr) gf←c51168)+207)/* var←c44576 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd542 ))))((* (( (ptr) gf←c51168)+118) ), (word) (( (bPt) gf←c51168)+628)/* var←c43424 */ , (* (
( (ptr) gf←c51168)+103) ), 0, 1, pd542);
};
SOURCE(31710, 267)
{
word pd543;
pd543 = (* (( (ptr) (* (( (ptr) gf←c51168)+207)/* var←c44576 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd543 ))))((* (( (ptr) gf←c51168)+119) ), (word) (( (bPt) gf←c51168)+516)/* var←c42976 */ , (* (
( (ptr) gf←c51168)+120) ), 0, 1, pd543);
};
}
static void Register←P6072(name←v14792, proc←v14820, doc←v14848, data←v14876, un←v14904, formal←c51232)
word name←v14792;
word proc←v14820;
word doc←v14848;
word data←v14876;
word un←v14904;
word formal←c51232;
{
register ptr gf←c51200 = (ptr) &globalframe;
formal←c51232 = (formal←c51232 - 16);
/* Register: */
SOURCE(27049, 214)
SOURCE(27170, 93)
{
word var←c49280;
word var←c49344;
{
word pd544;
pd544 = (* (( (ptr) (* (( (ptr) gf←c51200)+218)/* var←c49312 */ ))+9) );
var←c49280 = (word) ( *( (fPt) ((* (ptr) pd544 ))))(name←v14792, pd544);
};
{
word pd545;
pd545 = (* (( (ptr) (* (( (ptr) gf←c51200)+218)/* var←c49312 */ ))+9) );
var←c49344 = (word) ( *( (fPt) ((* (ptr) pd545 ))))(doc←v14848, pd545);
};
{
word pd546;
pd546 = (* (( (ptr) (* (( (ptr) gf←c51200)+207)/* var←c44576 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd546 ))))(var←c49280, proc←v14820, var←c49344, data←v14876, (0 == un←v14904), pd546);
};
};
}
static void NoName←Q7812(formal←c0613, formal←c200064, formal←c200065, formal←c200066, formal←c200067)
word formal←c0613;
word formal←c200064;
word formal←c200065;
word formal←c200066;
word formal←c200067;
{
register ptr gf←c0797 = (ptr) &globalframe;
if ((formal←c200065 == (* (( (ptr) (* (( (ptr) gf←c0797)+208)/* var←c44736 */ ))+4) ))) {
{
word errorMsg←v41244;
errorMsg←v41244 = (* (ptr) formal←c200067 );
SOURCE(25107, 14)
(* (( (ptr) formal←c200064)+5) ) = errorMsg←v41244;
SOURCE(25123, 10)
(* (ptr) formal←c0613 ) = 2;
(* (( (ptr) formal←c0613)+1) ) = 13;
return;
};
};
(* (ptr) formal←c0613 ) = 0;
(* (( (ptr) formal←c0613)+1) ) = 0;
return;
}
static void NoName←Q7872(formal←c0621, formal←c200060, formal←c200061, formal←c200062, formal←c200063)
word formal←c0621;
word formal←c200060;
word formal←c200061;
word formal←c200062;
word formal←c200063;
{
register ptr gf←c0798 = (ptr) &globalframe;
if ((formal←c200061 == (* (( (ptr) (* (( (ptr) gf←c0798)+209)/* var←c45056 */ ))+7) ))) {
{
word reason←v40872;
word index←v40900;
reason←v40872 = (* (ptr) formal←c200063 );
index←v40900 = (* (( (ptr) formal←c200063)+1) );
SOURCE(24696, 37)
{
word var←c0620;
var←c0620 = (* (( (ptr) (* (( (ptr) (* (( (ptr) formal←c200060)+4) ))+5) ))+1) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0798)+208)/* var←c44736 */ ))+4) ), (word) &var←c0620);
};
};
};
(* (ptr) formal←c0621 ) = 0;
(* (( (ptr) formal←c0621)+1) ) = 0;
return;
}
static void NoName←Q7932(formal←c0628, formal←c200056, formal←c200057, formal←c200058, formal←c200059)
word formal←c0628;
word formal←c200056;
word formal←c200057;
word formal←c200058;
word formal←c200059;
{
register ptr gf←c0799 = (ptr) &globalframe;
if ((formal←c200057 == (* (( (ptr) (* (( (ptr) gf←c0799)+209)/* var←c45056 */ ))+7) ))) {
{
word reason←v40404;
word index←v40432;
reason←v40404 = (* (ptr) formal←c200059 );
index←v40432 = (* (( (ptr) formal←c200059)+1) );
SOURCE(20638, 15)
(* (( (ptr) formal←c200056)+4) ) = (* (( (ptr) gf←c0799)+46) );
SOURCE(20655, 10)
(* (ptr) formal←c0628 ) = 2;
(* (( (ptr) formal←c0628)+1) ) = 12;
return;
};
};
(* (ptr) formal←c0628 ) = 0;
(* (( (ptr) formal←c0628)+1) ) = 0;
return;
}
static void NoName←Q7992(formal←c0635, formal←c200052, formal←c200053, formal←c200054, formal←c200055)
word formal←c0635;
word formal←c200052;
word formal←c200053;
word formal←c200054;
word formal←c200055;
{
register ptr gf←c0800 = (ptr) &globalframe;
if ((formal←c200053 == (* (( (ptr) (* (( (ptr) gf←c0800)+209)/* var←c45056 */ ))+7) ))) {
{
word reason←v39164;
word index←v39192;
reason←v39164 = (* (ptr) formal←c200055 );
index←v39192 = (* (( (ptr) formal←c200055)+1) );
SOURCE(13970, 13)
(* (ptr) formal←c0635 ) = 2;
(* (( (ptr) formal←c0635)+1) ) = 11;
return;
};
};
(* (ptr) formal←c0635 ) = 0;
(* (( (ptr) formal←c0635)+1) ) = 0;
return;
}
static void NoName←Q8052(formal←c0642, formal←c200048, formal←c200049, formal←c200050, formal←c200051)
word formal←c0642;
word formal←c200048;
word formal←c200049;
word formal←c200050;
word formal←c200051;
{
register ptr gf←c0801 = (ptr) &globalframe;
if ((formal←c200049 == (* (( (ptr) (* (( (ptr) gf←c0801)+209)/* var←c45056 */ ))+7) ))) {
{
word reason←v39076;
word index←v39104;
reason←v39076 = (* (ptr) formal←c200051 );
index←v39104 = (* (( (ptr) formal←c200051)+1) );
SOURCE(13776, 14)
(* (ptr) formal←c0642 ) = 2;
(* (( (ptr) formal←c0642)+1) ) = 11;
return;
};
};
(* (ptr) formal←c0642 ) = 0;
(* (( (ptr) formal←c0642)+1) ) = 0;
return;
}
static void NoName←Q8112(formal←c0648, formal←c200044, formal←c200045, formal←c200046, formal←c200047)
word formal←c0648;
word formal←c200044;
word formal←c200045;
word formal←c200046;
word formal←c200047;
{
register ptr gf←c0802 = (ptr) &globalframe;
if ((formal←c200045 == (* (( (ptr) (* (( (ptr) gf←c0802)+208)/* var←c44736 */ ))+4) ))) {
{
word errorMsg←v39016;
errorMsg←v39016 = (* (ptr) formal←c200047 );
SOURCE(13317, 14)
(* (( (ptr) formal←c200044)+5) ) = errorMsg←v39016;
SOURCE(13333, 10)
(* (ptr) formal←c0648 ) = 2;
(* (( (ptr) formal←c0648)+1) ) = 10;
return;
};
};
(* (ptr) formal←c0648 ) = 0;
(* (( (ptr) formal←c0648)+1) ) = 0;
return;
}
static void NoName←Q8172(formal←c0655, formal←c200040, formal←c200041, formal←c200042, formal←c200043)
word formal←c0655;
word formal←c200040;
word formal←c200041;
word formal←c200042;
word formal←c200043;
{
register ptr gf←c0803 = (ptr) &globalframe;
if ((formal←c200041 == (* (( (ptr) (* (( (ptr) gf←c0803)+209)/* var←c45056 */ ))+7) ))) {
{
word reason←v38408;
word index←v38436;
reason←v38408 = (* (ptr) formal←c200043 );
index←v38436 = (* (( (ptr) formal←c200043)+1) );
SOURCE(12449, 8)
(* (ptr) formal←c0655 ) = 2;
(* (( (ptr) formal←c0655)+1) ) = 9;
return;
};
};
(* (ptr) formal←c0655 ) = 0;
(* (( (ptr) formal←c0655)+1) ) = 0;
return;
}
static void NoName←Q8232(formal←c0660, formal←c200036, formal←c200037, formal←c200038, formal←c200039)
word formal←c0660;
word formal←c200036;
word formal←c200037;
word formal←c200038;
word formal←c200039;
{
register ptr gf←c0804 = (ptr) &globalframe;
if ((formal←c200037 == XR←Unwind)) {
SOURCE(10716, 24)
{
word pd547;
pd547 = (* (( (ptr) (* (( (ptr) gf←c0804)+211)/* var←c45408 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd547 ))))((* ((( (ptr) formal←c200036)+5)) ), pd547);
};
};
(* (ptr) formal←c0660 ) = 0;
(* (( (ptr) formal←c0660)+1) ) = 0;
return;
}
static void NoName←Q8292(formal←c0669, formal←c200032, formal←c200033, formal←c200034, formal←c200035)
word formal←c0669;
word formal←c200032;
word formal←c200033;
word formal←c200034;
word formal←c200035;
{
register ptr gf←c0805 = (ptr) &globalframe;
if ((formal←c200033 == (* (( (ptr) (* (( (ptr) gf←c0805)+203)/* var←c44160 */ ))+5) ))) {
{
word ec←v37516;
word stream←v37544;
word details←v37572;
word msg←v37600;
ec←v37516 = (* (ptr) formal←c200035 );
stream←v37544 = (* (( (ptr) formal←c200035)+1) );
details←v37572 = (* (( (ptr) formal←c200035)+2) );
msg←v37600 = (* (( (ptr) formal←c200035)+3) );
SOURCE(10232, 5)
(* (ptr) formal←c0669 ) = 2;
(* (( (ptr) formal←c0669)+1) ) = 7;
return;
};
};
(* (ptr) formal←c0669 ) = 0;
(* (( (ptr) formal←c0669)+1) ) = 0;
return;
}
static void NoName←Q8352(formal←c0678, formal←c200028, formal←c200029, formal←c200030, formal←c200031)
word formal←c0678;
word formal←c200028;
word formal←c200029;
word formal←c200030;
word formal←c200031;
{
register ptr gf←c0806 = (ptr) &globalframe;
if ((formal←c200029 == (* (( (ptr) (* (( (ptr) gf←c0806)+203)/* var←c44160 */ ))+5) ))) {
{
word ec←v37372;
word stream←v37400;
word details←v37428;
word msg←v37456;
ec←v37372 = (* (ptr) formal←c200031 );
stream←v37400 = (* (( (ptr) formal←c200031)+1) );
details←v37428 = (* (( (ptr) formal←c200031)+2) );
msg←v37456 = (* (( (ptr) formal←c200031)+3) );
SOURCE(10191, 5)
(* (ptr) formal←c0678 ) = 2;
(* (( (ptr) formal←c0678)+1) ) = 7;
return;
};
};
(* (ptr) formal←c0678 ) = 0;
(* (( (ptr) formal←c0678)+1) ) = 0;
return;
}
static void NoName←Q8412(formal←c0687, formal←c200024, formal←c200025, formal←c200026, formal←c200027)
word formal←c0687;
word formal←c200024;
word formal←c200025;
word formal←c200026;
word formal←c200027;
{
register ptr gf←c0807 = (ptr) &globalframe;
if ((formal←c200025 == (* (( (ptr) (* (( (ptr) gf←c0807)+203)/* var←c44160 */ ))+5) ))) {
{
word ec←v37228;
word stream←v37256;
word details←v37284;
word msg←v37312;
ec←v37228 = (* (ptr) formal←c200027 );
stream←v37256 = (* (( (ptr) formal←c200027)+1) );
details←v37284 = (* (( (ptr) formal←c200027)+2) );
msg←v37312 = (* (( (ptr) formal←c200027)+3) );
SOURCE(10141, 5)
(* (ptr) formal←c0687 ) = 2;
(* (( (ptr) formal←c0687)+1) ) = 7;
return;
};
};
(* (ptr) formal←c0687 ) = 0;
(* (( (ptr) formal←c0687)+1) ) = 0;
return;
}
static void NoName←Q8472(formal←c0698, formal←c200020, formal←c200021, formal←c200022, formal←c200023)
word formal←c0698;
word formal←c200020;
word formal←c200021;
word formal←c200022;
word formal←c200023;
{
register ptr gf←c0808 = (ptr) &globalframe;
if ((formal←c200021 == (* (( (ptr) (* (( (ptr) gf←c0808)+203)/* var←c44160 */ ))+4) ))) {
{
word stream←v36684;
stream←v36684 = (* (ptr) formal←c200023 );
SOURCE(9922, 13)
(* (ptr) formal←c0698 ) = 2;
(* (( (ptr) formal←c0698)+1) ) = 8;
return;
};
}
else {
if ((formal←c200021 == (* (( (ptr) (* (( (ptr) gf←c0808)+203)/* var←c44160 */ ))+5) ))) {
{
word ec←v36744;
word stream←v36772;
word details←v36800;
word msg←v36828;
ec←v36744 = (* (ptr) formal←c200023 );
stream←v36772 = (* (( (ptr) formal←c200023)+1) );
details←v36800 = (* (( (ptr) formal←c200023)+2) );
msg←v36828 = (* (( (ptr) formal←c200023)+3) );
SOURCE(9949, 4)
(* (ptr) formal←c0698 ) = 2;
(* (( (ptr) formal←c0698)+1) ) = 7;
return;
};
}
else {
if ((formal←c200021 == (* (( (ptr) (* (( (ptr) gf←c0808)+203)/* var←c44160 */ ))+8) ))) {
{
word stream←v36980;
stream←v36980 = (* (ptr) formal←c200023 );
SOURCE(9968, 13)
(* (ptr) formal←c0698 ) = 2;
(* (( (ptr) formal←c0698)+1) ) = 8;
return;
};
};
};
};
(* (ptr) formal←c0698 ) = 0;
(* (( (ptr) formal←c0698)+1) ) = 0;
return;
}
static void NoName←Q8532(formal←c0707, formal←c200016, formal←c200017, formal←c200018, formal←c200019)
word formal←c0707;
word formal←c200016;
word formal←c200017;
word formal←c200018;
word formal←c200019;
{
register ptr gf←c0809 = (ptr) &globalframe;
if ((formal←c200017 == (* (( (ptr) (* (( (ptr) gf←c0809)+203)/* var←c44160 */ ))+5) ))) {
{
word ec←v36352;
word stream←v36380;
word details←v36408;
word msg←v36436;
ec←v36352 = (* (ptr) formal←c200019 );
stream←v36380 = (* (( (ptr) formal←c200019)+1) );
details←v36408 = (* (( (ptr) formal←c200019)+2) );
msg←v36436 = (* (( (ptr) formal←c200019)+3) );
SOURCE(9849, 11)
(* (ptr) formal←c0707 ) = 2;
(* (( (ptr) formal←c0707)+1) ) = 7;
return;
};
};
(* (ptr) formal←c0707 ) = 0;
(* (( (ptr) formal←c0707)+1) ) = 0;
return;
}
static void NoName←Q8592(formal←c0714, formal←c200012, formal←c200013, formal←c200014, formal←c200015)
word formal←c0714;
word formal←c200012;
word formal←c200013;
word formal←c200014;
word formal←c200015;
{
register ptr gf←c0810 = (ptr) &globalframe;
if ((formal←c200013 == (* (( (ptr) (* (( (ptr) gf←c0810)+209)/* var←c45056 */ ))+7) ))) {
{
word reason←v36084;
word index←v36112;
reason←v36084 = (* (ptr) formal←c200015 );
index←v36112 = (* (( (ptr) formal←c200015)+1) );
SOURCE(9420, 15)
(* (( (ptr) formal←c200012)+4) ) = (* (( (ptr) gf←c0810)+46) );
SOURCE(9437, 10)
(* (ptr) formal←c0714 ) = 2;
(* (( (ptr) formal←c0714)+1) ) = 6;
return;
};
};
(* (ptr) formal←c0714 ) = 0;
(* (( (ptr) formal←c0714)+1) ) = 0;
return;
}
static void NoName←Q8652(formal←c0721, formal←c200008, formal←c200009, formal←c200010, formal←c200011)
word formal←c0721;
word formal←c200008;
word formal←c200009;
word formal←c200010;
word formal←c200011;
{
register ptr gf←c0811 = (ptr) &globalframe;
if ((formal←c200009 == (* (( (ptr) (* (( (ptr) gf←c0811)+209)/* var←c45056 */ ))+7) ))) {
{
word reason←v35220;
word index←v35248;
reason←v35220 = (* (ptr) formal←c200011 );
index←v35248 = (* (( (ptr) formal←c200011)+1) );
SOURCE(8248, 15)
(* (ptr) formal←c0721 ) = 2;
(* (( (ptr) formal←c0721)+1) ) = 5;
return;
};
};
(* (ptr) formal←c0721 ) = 0;
(* (( (ptr) formal←c0721)+1) ) = 0;
return;
}
static void NoName←Q8712(formal←c0727, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c0727;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
register ptr gf←c0812 = (ptr) &globalframe;
if ((formal←c200005 == (* (( (ptr) (* (( (ptr) gf←c0812)+203)/* var←c44160 */ ))+4) ))) {
{
word stream←v31256;
stream←v31256 = (* (ptr) formal←c200007 );
SOURCE(5141, 9)
(* (ptr) formal←c0727 ) = 2;
(* (( (ptr) formal←c0727)+1) ) = 4;
return;
};
};
(* (ptr) formal←c0727 ) = 0;
(* (( (ptr) formal←c0727)+1) ) = 0;
return;
}
static void NoName←Q8772(formal←c0732, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0732;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c0813 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0813)+203)/* var←c44160 */ ))+4) )) || (formal←c200001 == (* (( (ptr) (* (
( (ptr) gf←c0813)+203)/* var←c44160 */ ))+5) ))) {
SOURCE(1467, 8)
(* (ptr) formal←c0732 ) = 2;
(* (( (ptr) formal←c0732)+1) ) = 2;
return;
};
(* (ptr) formal←c0732 ) = 0;
(* (( (ptr) formal←c0732)+1) ) = 0;
return;
}
/* file: CommanderBasicCommandsImpl, module: CommanderBasicCommandsImpl, compiled at: January 15, 1993 5:41:35 pm PST */
extern void XR←install←CommanderBasicCommandsImpl() {
NoName←Q6732();
}
extern void XR←run←CommanderBasicCommandsImpl() { XR←Start(&globalframe); }