Added files and directories that support the MDL 55 runtime.

bin/mudbug/edit.fbin

@@ -0,0 +1,145 @@
+'<PCODE "5EDIT">
+
+<PACKAGE "EDIT"> 
+
+<RENTRY DEADIT EDIT FREDIT ZNZN | E-OVERPRINT E-VERBOSE E-PKG E-?FILE E-??FILE 
+EDIT-TABLE MACSET MAC BREAK SHORT-PRINT> 
+
+<USE "PP" "FR&"> 
+
+<GDECL (E-?FILE E-??FILE) STRING> 
+
+<SETG CURSORS? <>> 
+
+<COND (<G=? ,MUDDLE 100> <SETG E-OVERPRINT <>> <SETG E-?FILE 
+"<MDLLIB>EDIT?.DOC"> <SETG E-??FILE "<MDLLIB>EDIT??.DOC">) (<SETG 
+E-OVERPRINT T> <SETG E-?FILE "MUDBUG;EDIT? >"> <SETG E-??FILE "MUDBUG;EDIT?? >">
+)> 
+
+<SETG E-VERBOSE <>> 
+
+<SETG E-PKG T> 
+
+<SETG CURL1 (ZNZN)> 
+
+<SETG CURL2 (|)> 
+
+<SETG EDIT  %<RSUBR!- '[ %<PCODE!- "5EDIT" 0> EDIT #DECL ("VALUE" ANY "OPTIONAL"
+ANY) L-UNUSE &1 CUP* CUP^ GETKSTAR CUP+ CUP- EPRINT USE INDENT-TO FORMS SCANNER 
+ATTACH FRM JUNK (ANY) INCHAN %<RGLOC INCHAN T> (CHANNEL) EDIT-ITEM (<PRIMTYPE 
+LIST>) TOP-ITEM %<RGLOC COMSTR T> %<RGLOC JUNKSTR T> GO-UP-LEVEL (FIX) 
+GO-UP-RIGHT HANDLE (LIST) HANDLE2 SEARCH+ SEARCH- LAST-SEARCH FINISH PATH POS 
+LOC-LOSER (<OR 'T FALSE>) GETPATH (<OR ATOM FALSE>) SPATH P-ON MAC SPOS ITER 
+ITCOM CURCHAN PATHLOC GOTO (CURSOR) LAST-FRAME (FRAME) SAVOBL CFHAND "CHAR" %<
+RGLOC CTRL-F-HANDLER T> %<RGLOC CFHAND T> NEW-ITEM LAST-PATH LIST OBLIST %<RGLOC
+E-PKG T> PACKAGE #FALSE ("NO-VALUE") T [TOPLEVEL CALLER LISTEN ERROR MAPF MAPR] 
+EVAL APPLY LVAL GVAL DEFINE CURSOR CURSORS? TOP-LEVEL "ERROR, ILLEGAL CURSOR" 
+"ITERATION ENDED, SEARCH FAILED" "ERROR, SEARCH FAILED" OUTCHAN 
+"
+ATTEMPT TO EDIT ILLEGAL ITEM
+" %<RGLOC CURSORS? T> TOPLEVEL #FALSE ("NO FORMS") SHORT-PRINT BREAKA "<&>" %<
+RGLOC E-OVERPRINT T> "B|" "||" BREAKR "M|[" "|M[" %<RGLOC GOOD-CHRS T> %<RGLOC 
+BREAK-CHRS T> LAST-OUT "
+ILLEGAL NUMBER " %<RGLOC ALTSTRING T> THIS-LEVEL (ACTIVATION) EDIT-TABLE %<RGLOC
+EDIT-TABLE T> "UC" "CURSOR" "UM" "EMONIT" "MONITOR" "R " 
+"ERROR, ARG TO R OUT OF RANGE" "SW" "ERROR, CAN'T SWAP AT RIGHT EDGE" "L " 
+"ERROR, ARG TO L OUT OF RANGE" "IT" "DO" "M " "ERROR, MACRO NOT A STRING" "SU" 
+"S " "LC " "QR" "U " "UL" "D " "DR" "ERROR, CAN'T GO DOWN" "F " "B " "UT" 
+"V " %<RGLOC E-VERBOSE T> " " "PU" "PT" %<RGLOC CURL1 T> %<RGLOC CURL2 T> "P "
+ "CAN'T PRINT, AT RIGHT EDGE" "SR" "SL" "UR" "DL" "K " 
+"ERROR, ARG OUT OF RANGE TO K" "I " "G " "IG" DEFMAC SETG SET 
+"WARNING, ATOM HAS NO VALUE" "WARNING, ARG TO IG NOT AN ATOM" "C " 
+"ERROR, CAN'T CHANGE, AT RIGHT EDGE" LAST-IN "C:" 
+"ERROR, CAN'T CHANGE TYPE, AT RIGHT EDGE" "ERROR, BAD ARG TO C:" 
+"ERROR, ARG TO C: NOT TYPE NAME" "K*" "ERROR, CAN'T EXTRACT AT RIGHT EDGE" * 
+"ERROR, NON-STRUCTURED ARG TO EXTRACT" "" "K:" "ERROR, BAD K:" "I:" 
+"ERROR, BAD ARG TO I:" "ERROR, ARG TO I: NOT TYPE NAME" 
+"ERROR, TYPEPRIM OF ARG TO I: NOT LIST" "I*" "ERROR, CAN'T IMBED AT RIGHT EDGE" 
+"ERROR, ARGUMENT TO IMBED NOT STRUCTURED" "WARNING, IMBED NOT COMPLETED.  " 
+" OBJECTS INSERTED." "WARNING, NO IMBED INDICATOR" "BK" "BA" 
+"ERROR, CAN'T PUT BREAK AT RIGHT EDGE" %<TYPE-C BREAK LIST> %<TYPE-W BREAK LIST>
+ BREAKS "KT" "ERROR, CAN'T KT, CURSOR AT RIGHT EDGE" 
+"ERROR, OBJECT NOT A BREAKPOINT" "KB" "O " "OT" "ERROR, CAN'T OPEN" "X " 
+"ERROR, CAN'T X, CURSOR AT RIGHT EDGE" "ERROR, ARGUMENT TO X NOT ATOM" "Q " "? "
+ "??" "READ" %<RGLOC E-?FILE T> %<RGLOC E-??FILE T> "Help file not found:  " 
+"
+ERROR, UNRECOGNIZED COMMAND " QUICK-RUN %<RGLOC OUTCHAN T> "**BREAK**" VALUE 
+"**BREAK-AFTER**" "= " "(" "<" "!<" " (" " XMZ " " | " " " "&.." "(&)" "[&]" 
+"![&!]" "\"&\"" "!<&!>" "#" ">" "!>" ")" IEDIT DEADIT EDIT FREDIT ZNZN | 
+E-OVERPRINT E-VERBOSE E-?FILE E-??FILE EXPFLOAD BREAK "EDIT" "It's a Foo--" 
+KSTAR "
+ERROR, EXTRACT INDICATOR UNMATCHED." "
+ERROR, TYPES DIFFER IN EXTRACT" 
+"
+ERROR, EXTRACT TEMPLATE LONGER THAN EXTRACT ITEM" " - ITERATION ENDED AFTER " 
+" PASSES: " " - MACRO FLUSHED: " " <--<-- " " <-- " %<RGLOC IREVENT T> %<RGLOC 
+IRHAND T> "
+ERROR, TOO FEW ARGUMENTS TO " MACCHAN "INT:EDIT;MACRO CHAN" %<RGLOC RDR T> %<
+RGLOC MACCHAN T>]>> 
+<AND <ASSIGNED? GLUE> .GLUE <PUT ,EDIT PGLUE ![715827883 -1 -1 -1 -1 -1 -1 -1 -1
+-1 -1 -1 -1 -1 -4294967296 0!]>> 
+
+
+<SETG FREDIT %<RSUBR-ENTRY '[EDIT FREDIT #DECL ("VALUE" ANY)] 1038>> 
+
+<NEWTYPE CURSOR VECTOR '<VECTOR ANY FIX ATOM>> 
+
+<NEWTYPE BREAK FORM> 
+
+<EVALTYPE BREAK FORM> 
+
+<SETG BREAKPRINT %<RSUBR-ENTRY '[EDIT BREAKPRINT #DECL ("VALUE" ANY BREAK 
+"OPTIONAL" ANY ANY)] 1087>> 
+
+<PRINTTYPE BREAK ,BREAKPRINT> 
+
+<SETG BREAK-PPRINT %<RSUBR-ENTRY '[EDIT BREAK-PPRINT #DECL ("VALUE" ANY BREAK 
+CHANNEL FIX)] 1318>> 
+
+<PUT BREAK PPRINT ,BREAK-PPRINT> 
+
+<SETG JUNKSTR <ISTRING 200 !\ >> 
+
+<SETG COMSTR <ISTRING 2 !\ >> 
+
+<SETG ALTSTRING ""> 
+
+<SETG GOOD-CHRS 
+"!\"#$%&'(*+,-./0123456789:;<=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\^_`abcdefghijklmnopqrstuvwxyz{|}"
+> 
+
+<SETG BREAK-CHRS "1234567890-\".,!(<[#         
+"> 
+
+<GDECL (JUNKSTR COMSTR ALTSTRING GOOD-CHRS BREAK-CHRS) STRING> 
+
+<SETG SCANNER %<RSUBR-ENTRY '[EDIT SCANNER #DECL ("VALUE" ATOM LOCATIVE FIX 
+ACTIVATION STRING STRING)] 1650>> 
+
+<SETG BREAKR %<RSUBR-ENTRY '[EDIT BREAKR #DECL ("VALUE" ANY "QUOTE" ANY 
+"OPTIONAL" "QUOTE" ANY "ARGS" LIST)] 4750>> 
+
+<SETG BREAKA %<RSUBR-ENTRY '[EDIT BREAKA #DECL ("VALUE" <SPECIAL ANY> "QUOTE" 
+ANY "OPTIONAL" "QUOTE" ANY "ARGS" LIST)] 4826>> 
+
+<SETG CTRL-F-HANDLER %<RSUBR-ENTRY '[EDIT CTRL-F-HANDLER #DECL ("VALUE" ANY 
+CHARACTER ANY)] 5363>> 
+
+<SETG DEADIT %<RSUBR-ENTRY '[EDIT DEADIT #DECL ("VALUE" STRING)] 5463>> 
+
+<SETG GETKSTAR %<RSUBR-ENTRY '[EDIT GETKSTAR #DECL ("VALUE" <OR FALSE LIST> 
+STRUCTURED ATOM STRUCTURED)] 5584>> 
+
+<SETG RDR %<RSUBR-ENTRY '[EDIT RDR #DECL ("VALUE" CHARACTER "TUPLE" ANY)] 5973>> 
+
+<SETG IRERROR %<RSUBR-ENTRY '[EDIT IRERROR #DECL ("VALUE" ANY ANY)] 6320>> 
+
+<SETG MACSET %<RSUBR-ENTRY '[EDIT MACSET #DECL ("VALUE" FALSE)] 6364>> 
+
+<SETG IREVENT <EVENT "BLOCKED" 7>> 
+
+<SETG IRHAND <HANDLER ,IREVENT ,IRERROR>> 
+
+<OFF ,IRHAND> 
+
+<ENDPACKAGE>