(FILECREATED "24-May-84 11:11:59" ("compiled on " {DSK}TEDITCOMMAND.;2) "21-May-84 01:09:37" recompiled changes: \TEDIT.INTERRUPT.SETUP \TEDIT.MARKACTIVE \TEDIT.MARKINACTIVE \TEDIT.COMMAND.LOOP in WORK dated "21-May-84 01:21:39") (FILECREATED "24-May-84 11:11:16" {DSK}TEDITCOMMAND.;2 27436 changes to: (FNS \TEDIT.INTERRUPT.SETUP \TEDIT.MARKACTIVE \TEDIT.MARKINACTIVE \TEDIT.COMMAND.LOOP) previous date: "21-Apr-84 01:33:15" {DSK}TEDITCOMMAND.;1) \TEDIT.INSERT.TTY.BUFFER D1 (P 0 TLEN I 3 SEL I 2 TEXTOBJ I 1 PASS I 0 SCRATCH F 1 BLANKSEEN F 2 CRSEEN) 0@Hj$@j@l@AHACBQR h(54Q TEDIT.\INSERT) (37Q STRINGP 26Q STRINGP 16Q STRINGP) () \TEDIT.INTERRUPT.SETUP D1 (P 1 \INTERRUPTABLE P 0 TEXTOBJ I 1 FORCEOFF I 0 PROC) m@g @g g @g A @g @g @gh&A&@g @gHHNg `i @(151Q PROCESSPROP 146Q RESET.INTERRUPTS 135Q LISTGET 114Q PROCESSPROP 72Q RESET.INTERRUPTS 67Q PROCESSPROP 56Q PROCESSPROP 41Q TEXTOBJ 36Q PROCESSPROP 25Q GETWINDOWUSERPROP 17Q PROCESSPROP 6 PROCESSPROP) (142Q TEDIT.INTERRUPTS 132Q INTERRUPTS 122Q TEDIT.INTERRUPTS 111Q TEDIT.INTERRUPTS 77Q TEDIT.INTERRUPTS 64Q TEDIT.INTERRUPTS 53Q TEDIT.INTERRUPTS 33Q WINDOW 22Q TEXTOBJ 14Q WINDOW 3 WINDOW) () \TEDIT.MARKACTIVE D1 (L (0 TEXTOBJ)) @iF@NIL (3 TEXTOBJ) () \TEDIT.MARKINACTIVE D1 (L (0 TEXTOBJ)) @hF@NIL (3 TEXTOBJ) () \PNC D1 (P 1 OFFST P 0 LEN I 1 STR I 0 CH) 3AAHjo AI@ǿAIkAHkh(23Q ERROR) (52Q STRINGP 40Q STRINGP) ( 20Q "NO ROOM LEFT IN STRING TO PUT CHARACTER") \TEDIT.COMMAND.LOOPA0001A0002A0003 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM F 1 LOOPFN) PkQiNIL NIL () \TEDIT.COMMAND.LOOPA0001A0002A0004 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 TEXTOBJ F 1 SEL) `Fh`P P P `h`h`h`P `Kh`P QP PP `h`h`h`P ^`Yh`MP" P P"h`P Pg PP `h`hi(336Q \TEDIT.DELETE 322Q TEDIT.SET.SEL.LOOKS 310Q \COPYSEL 264Q \SHOWSEL 255Q \SHOWSEL 223Q \COPYSEL 153Q TEDIT.MOVE 141Q TEDIT.DO.BLUEPENDINGDELETE 133Q \COPYSEL 104Q \COPYSEL 34Q TEDIT.COPY 22Q \COPYSEL) (357Q SELECTION 354Q TEDIT.DELETESELECTION 345Q SELECTION 342Q TEDIT.DELETESELECTION 317Q NORMAL 302Q TEDIT.DELETESELECTION 273Q SELECTION 243Q TEDIT.DELETESELECTION 237Q TEDIT.DEL.PENDING 231Q TEDIT.DEL.PENDING 215Q TEDIT.MOVESELECTION 206Q SELECTION 203Q TEDIT.MOVESELECTION 174Q SELECTION 171Q TEDIT.MOVESELECTION 162Q SELECTION 157Q TEDIT.MOVESELECTION 125Q TEDIT.MOVESELECTION 121Q TEDIT.MOVE.PENDING 113Q TEDIT.MOVE.PENDING 76Q TEDIT.SHIFTEDSELECTION 67Q SELECTION 64Q TEDIT.SHIFTEDSELECTION 55Q SELECTION 52Q TEDIT.SHIFTEDSELECTION 43Q SELECTION 40Q TEDIT.SHIFTEDSELECTION 14Q TEDIT.SHIFTEDSELECTION 10Q TEDIT.COPY.PENDING 2 TEDIT.COPY.PENDING) () \TEDIT.COMMAND.LOOPA0001A0002A0005 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 SEL F 1 TEXTOBJ F 2 ISCRSTRING F 3 BLANKSEEN F 4 CRSEEN F 5 CH F 6 IPASSSTRING F 7 CHARFN F 10Q TCH F 11Q TEDITSA F 12Q COMMANDFN F 13Q FN F 14Q TERMSA F 15Q STREAM F 16Q WINDOW F 17Q TEDITFNHASH) f_c WWUlWciWc Wd`o WUdkQRP P dlRVQP hccQ P dlRVQP hccPQ P rdlRVQP hccQ P PdlRVQP hccQ P .dl?RVQP hccWg c Q0QPlWP P Phi dl;RVQP hccUWcQ0QPlWP P Phi lRVQP hccQ Wdd`o WUldlQRP P `dlRVQP hccQ P >lRVQP hccPQ P UPQ Rj#RjRl@RPQST hccUdl RVQP hccUPQi l RVQP hccUPQhi UR i(1136Q \PNC 1125Q TEDIT.\INSERT 1105Q \TEDIT.INSERT.TTY.BUFFER 1065Q TEDIT.\INSERT 1047Q \TEDIT.INSERT.TTY.BUFFER 1021Q TEDIT.\INSERT 757Q TEDIT.DO.BLUEPENDINGDELETE 741Q TEDIT.RESET.EXTEND.PENDING.DELETE 734Q \TEDIT.DELETE 720Q \TEDIT.INSERT.TTY.BUFFER 700Q TEDIT.RESET.EXTEND.PENDING.DELETE 673Q \TEDIT.WORDDELETE 660Q \TEDIT.INSERT.TTY.BUFFER 636Q TEDIT.RESET.EXTEND.PENDING.DELETE 631Q \TEDIT.CHARDELETE 605Q RAID 555Q TEDIT.NEXT 542Q \TEDIT.INSERT.TTY.BUFFER 522Q \SHOWSEL 513Q TEDIT.RESET.EXTEND.PENDING.DELETE 506Q \SHOWSEL 445Q \TEDIT.INSERT.TTY.BUFFER 423Q \SHOWSEL 414Q TEDIT.RESET.EXTEND.PENDING.DELETE 407Q \SHOWSEL 361Q GETWINDOWUSERPROP 342Q \TEDIT.INSERT.TTY.BUFFER 320Q TEDIT.RESET.EXTEND.PENDING.DELETE 313Q TEDIT.REDO 300Q \TEDIT.INSERT.TTY.BUFFER 256Q TEDIT.RESET.EXTEND.PENDING.DELETE 251Q TEDIT.UNDO 236Q \TEDIT.INSERT.TTY.BUFFER 214Q TEDIT.RESET.EXTEND.PENDING.DELETE 207Q \TEDIT.DELETE 173Q \TEDIT.INSERT.TTY.BUFFER 152Q TEDIT.RESET.EXTEND.PENDING.DELETE 145Q \TEDIT.WORDDELETE 132Q \TEDIT.INSERT.TTY.BUFFER 111Q TEDIT.RESET.EXTEND.PENDING.DELETE 104Q \TEDIT.CHARDELETE 64Q RAID 11Q \GETKEY 2 \SYSBUFP) (1003Q STRINGP 773Q STRINGP 573Q CHARTABLETYPE# 356Q TEDIT.COMMANDFN 52Q CHARTABLETYPE#) ( 602Q (Check-failure: (type? CHARTABLE TERMSA)) 61Q (Check-failure: (type? CHARTABLE TEDITSA))) \TEDIT.COMMAND.LOOPA0001A0002A0006 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 ISCRSTRING F 1 IPASSSTRING F 2 TEXTOBJ F 3 CRSEEN F 4 SEL F 5 BLANKSEEN) PQRT hc ci(6 \TEDIT.INSERT.TTY.BUFFER) NIL () \TEDIT.COMMAND.LOOPA0001A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 TEXTOBJ F 1 ISCRSTRING F 2 LOOPFN) xl `YPFQP4 PiFRoi oi QjQl@oi oi PhFi`PP4P4 (164Q BLOCK 160Q TEDIT.FLASHCARET 124Q \TEDIT.COMMAND.LOOPA0001A0002A0006 113Q \TEDIT.COMMAND.LOOPA0001A0002A0005 61Q \TEDIT.COMMAND.LOOPA0001A0002A0004 50Q \TEDIT.COMMAND.LOOPA0001A0002A0003 25Q TEDIT.FLASHCARET 4 \WAITFORSYSBUFP) (141Q TEDIT.SELPENDING 131Q TEXTOBJ 76Q STRINGP 66Q STRINGP 32Q TEXTOBJ 10Q TEDIT.SELPENDING) ( 120Q (DUMMY.FOR.ERRORSET) 107Q (DUMMY.FOR.ERRORSET) 55Q (DUMMY.FOR.ERRORSET) 44Q (DUMMY.FOR.ERRORSET)) \TEDIT.COMMAND.LOOPA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 17Q COMMANDFN P 16Q CHNO P 15Q TLEN P 14Q CRSEEN P 13Q INSCH# P 12Q BLANKSEEN P 11Q DIRTY P 10Q TCH P 7 FN P 6 CH P 5 CHARFN P 4 LOOPFN P 3 TEDITFNHASH P 2 TEDITSA P 1 TERMSA P 0 READSA F 20Q RESETVARSLST F 21Q WINDOW F 22Q TEXTOBJ F 23Q RTBL F 24Q #CURRENTRDTBL# F 25Q \PRIMTERMSA F 26Q RESETY) *gg`gghghh`gW" hW c ggW"gghhhhhhW c g`ih` hW c oW$hW c gg`gghghh`gg hW c gg`gghghh`gg hW c W(W$DW*W&W&W"g W"g W$2oi W$hFhc,i(426Q \TEDIT.COMMAND.LOOPA0001A0002 405Q GETWINDOWUSERPROP 375Q GETWINDOWUSERPROP 330Q PROCESSPROP 246Q PROCESSPROP 145Q \TEDIT.INTERRUPT.SETUP 47Q PROCESSPROP) (434Q TEXTOBJ 402Q TEDIT.CMD.CHARFN 372Q TEDIT.CMD.LOOPFN 325Q \TEDIT.PROCENTRYFN 322Q TTYENTRYFN 317Q \RUNNING.PROCESS 304Q OLDVALUE 276Q TTYENTRYFN 273Q QUOTE 270Q \RUNNING.PROCESS 265Q PROCESSPROP 262Q AND 243Q \TEDIT.PROCEXITFN 240Q TTYEXITFN 235Q \RUNNING.PROCESS 222Q OLDVALUE 214Q TTYEXITFN 211Q QUOTE 206Q \RUNNING.PROCESS 203Q PROCESSPROP 200Q AND 142Q \RUNNING.PROCESS 132Q \RUNNING.PROCESS 127Q \TEDIT.INTERRUPT.SETUP 76Q PROCESS 73Q QUOTE 66Q WINDOWPROP 63Q PROGN 42Q WINDOW 37Q \RUNNING.PROCESS 24Q OLDVALUE 16Q WINDOW 13Q QUOTE 10Q \RUNNING.PROCESS 5 PROCESSPROP 2 PROGN) ( 422Q (DUMMY.FOR.ERRORSET) 162Q (AND (TXTFILE OLDVALUE) (CLOSEF? (TXTFILE OLDVALUE)))) \TEDIT.COMMAND.LOOP D1 (P 10Q RESETZ P 7 RESETY P 6 LISPXHIST P 5 IPASSSTRING P 4 LINES P 3 WINDOW P 2 SEL P 1 ISCRSTRING P 0 TEXTOBJ I 1 RTBL I 0 STREAM F 11Q LISPXHIST F 12Q RESETVARSLST) { @d`l@o BHZH[H\Ik ]A HJ`bKg` `W!Wog h`l g_ Oh(167Q ERROR! 157Q RESETRESTORE 144Q DISMISS 124Q \TEDIT.COMMAND.LOOPA0001 76Q PUTWINDOWPROP 46Q SUBSTRING 22Q ALLOCSTRING) (152Q ERROR 134Q \TTY.PROCESS 121Q INTERNAL 101Q \RUNNING.PROCESS 73Q \RUNNING.PROCESS 70Q PROCESS 62Q TEDIT.READTABLE 5 STREAMTYPE#) ( 116Q (DUMMY.FOR.ERRORSET) 17Q " ") \TEDIT.READTABLE D1 (P 12Q FN P 11Q CH P 6 CL P 5 CH P 2 RTBL) `l2 hHdI`HdIkdllllllho"LKoo" O&-J`o JMNǿLK_OJ_J`o JOlǿOOJ O_O_(266Q PUTHASH 242Q RAID 163Q RAID 10Q HARRAY) (231Q CHARTABLETYPE# 152Q CHARTABLETYPE# 27Q CHARTABLETYPE# 2 READTABLEPTYPE#) ( 237Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL))) 160Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL))) 127Q (30Q) 123Q (\TEDIT.ABBREV.EXPAND) 100Q (10Q 1 27Q 177Q 301Q 302Q 303Q 33Q)) \TEDIT.WORDBOUND.READTABLE D1 (P 14Q CH P 13Q CH P 12Q CH P 10Q CH P 6 CH P 4 CH P 2 RTBL) ; `l2 HdI`HdIljLK!J`o JLlǿLk\lZlANM!J`o JNlǿNk^lzlaOO$J`o JOlǿOk_l9l0 OO$J`o JOlǿOk_o"d J`o JOlllllh"d J`o JOlJ(451Q RAID 367Q RAID 311Q RAID 230Q RAID 152Q RAID 76Q RAID 10Q HARRAY) (440Q CHARTABLETYPE# 356Q CHARTABLETYPE# 300Q CHARTABLETYPE# 217Q CHARTABLETYPE# 141Q CHARTABLETYPE# 65Q CHARTABLETYPE# 25Q CHARTABLETYPE# 2 READTABLEPTYPE#) ( 446Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL))) 364Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL))) 340Q (15Q 40Q 11Q 14Q) 306Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL))) 225Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL))) 147Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL))) 73Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL)))) TEDIT.GETSYNTAX D1 (I 1 TABLE I 0 CH) hA`Hd`o H@dlgdkgdlgdlgdlgdlgdlglg(32Q RAID) (145Q NEXT 134Q CMD 123Q FN 112Q REDO 101Q UNDO 70Q DELETE 57Q CHARDELETE 47Q WORDDELETE 20Q CHARTABLETYPE# 5 TEDIT.READTABLE) ( 27Q (Check-failure: (type? CHARTABLE TEDIT.GETSYNTAXA0001))) TEDIT.SETSYNTAX D1 (I 2 TABLE I 1 CLASS I 0 CHAR) @B B``o B`@AdgkOglFAgAdgl4gl+AdglglAdglgljǿ(31Q RAID 4 TEDIT.GETSYNTAX) (165Q NEXT 154Q FN 141Q CMD 127Q REDO 114Q UNDO 102Q LINEDELETE 73Q DELETE 61Q WORDDELETE 50Q CHARDELETE 40Q TEDIT.READTABLE 20Q CHARTABLETYPE# 12Q TEDIT.READTABLE) ( 26Q (Check-failure: (type? CHARTABLE (fetch READSA of (OR TABLE TEDIT.READTABLE))))) TEDIT.GETFUNCTION D1 (I 1 TABLE I 0 CHARCODE) AA`bd6d`.lAHd`o H@j A@A(52Q RAID) (40Q CHARTABLETYPE# 17Q READTABLEPTYPE# 5 TEDIT.READTABLE) ( 47Q (Check-failure: (type? CHARTABLE TEDIT.GETFUNCTIONA0001))) TEDIT.SETFUNCTION D1 (I 2 RTBL I 1 FN I 0 CHARCODE) :B`bd`o B@lBBl2 @AB (67Q PUTHASH 54Q HARRAY 27Q RAID) (47Q READTABLEP 16Q CHARTABLETYPE# 5 TEDIT.READTABLE) ( 24Q (Check-failure: (type? CHARTABLE (fetch READSA of RTBL)))) TEDIT.WORDGET D1 (I 1 TABLE I 0 CH) )A`@d Hd`o HI(42Q RAID 17Q CHCON1) (30Q CHARTABLETYPE# 5 TEDIT.WORDBOUND.READTABLE) ( 37Q (Check-failure: (type? CHARTABLE TEDIT.WORDGETA0002))) TEDIT.WORDSET D1 (I 2 TABLE I 1 CLASS I 0 CHARCODE) GB``o B`@d Adddglgll(45Q CHCON1 24Q RAID) (74Q WHITESPACE 63Q PUNCTUATION 33Q TEDIT.WORDBOUND.READTABLE 13Q CHARTABLETYPE# 5 TEDIT.WORDBOUND.READTABLE) ( 21Q (Check-failure: (type? CHARTABLE (fetch READSA of (OR TABLE TEDIT.WORDBOUND.READTABLE))))) (PRETTYCOMPRINT TEDITCOMMANDCOMS) (RPAQQ TEDITCOMMANDCOMS ((FILES TEXTOFD) (FNS \TEDIT.INSERT.TTY.BUFFER \TEDIT.INTERRUPT.SETUP \TEDIT.MARKACTIVE \TEDIT.MARKINACTIVE \PNC \TEDIT.COMMAND.LOOP) (INITVARS (TEDIT.INTERRUPTS (QUOTE ((2 BREAK) (3 RAID) (5 ERROR) (7 HELP) (20 CONTROL-T))))) (VARS (TEDIT.COPY.PENDING NIL) ( TEDIT.MOVE.PENDING NIL) (TEDIT.DEL.PENDING NIL) (TEDIT.BLUEPENDINGDELETE NIL)) (GLOBALVARS TEDIT.COPY.PENDING TEDIT.MOVE.PENDING TEDIT.DEL.PENDING TEDIT.BLUEPENDINGDELETE TEDIT.INTERRUPTS) ( DECLARE: EVAL@COMPILE DONTCOPY (MACROS \INSERT\TTY\BUFFER \TEDIT.MOUSESTATE \TEDIT.CHECK)) (COMS (* Read-table Utilities) (FNS \TEDIT.READTABLE \TEDIT.WORDBOUND.READTABLE TEDIT.GETSYNTAX TEDIT.SETSYNTAX TEDIT.GETFUNCTION TEDIT.SETFUNCTION TEDIT.WORDGET TEDIT.WORDSET) (DECLARE: DONTEVAL@LOAD DOCOPY (VARS (TEDIT.READTABLE (\TEDIT.READTABLE)) (TEDIT.WORDBOUND.READTABLE (\TEDIT.WORDBOUND.READTABLE)))) ( GLOBALVARS TEDIT.READTABLE TEDIT.WORDBOUND.READTABLE) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS TEDITTERMCODE)) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS (NONE.TTC 0) (CHARDELETE.TTC 1) ( WORDDELETE.TTC 2) (DELETE.TTC 3) (FUNCTIONCALL.TTC 4) (REDO.TTC 5) (UNDO.TTC 6) (CMD.TTC 7) (NEXT.TTC 8) (PUNCT.TTC 20) (TEXT.TTC 21) (WHITESPACE.TTC 22))) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS ( MSPACE 153) (NSPACE 152) (THINSPACE 159) (FIGSPACE 154)))))) (FILESLOAD TEXTOFD) (RPAQ? TEDIT.INTERRUPTS (QUOTE ((2 BREAK) (3 RAID) (5 ERROR) (7 HELP) (20 CONTROL-T)))) (RPAQQ TEDIT.COPY.PENDING NIL) (RPAQQ TEDIT.MOVE.PENDING NIL) (RPAQQ TEDIT.DEL.PENDING NIL) (RPAQQ TEDIT.BLUEPENDINGDELETE NIL) (RPAQ TEDIT.READTABLE (\TEDIT.READTABLE)) (RPAQ TEDIT.WORDBOUND.READTABLE (\TEDIT.WORDBOUND.READTABLE)) NIL