(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "31-Mar-87 10:59:07" ("compiled on " {ERIS}TEDITCOMMAND.;24) "25-Mar-87 12:30:51" brecompiled changes%: TEDIT.GETSYNTAX TEDIT.SETSYNTAX TEDIT.SETFUNCTION in "Xerox Lisp 25-Mar-87 ..." dated "25-Mar-87 12:58:17") (FILECREATED "31-Mar-87 10:58:33" {ERIS}TEDITCOMMAND.;24 46614 changes to%: (FNS TEDIT.SETFUNCTION TEDIT.GETSYNTAX TEDIT.SETSYNTAX) previous date%: "26-Feb-87 12:38:15" {ERIS}TEDITCOMMAND.;22) \TEDIT.INSERT.TTY.BUFFER :D4 (I 3 SEL I 2 TEXTOBJ I 1 PASS I 0 SCRATCH) o(2 HELP) NIL ( 6 (PROG ((TLEN (fetch (STRINGP OFFST) of SCRATCH))) (COND ((NOT (ZEROP TLEN)) (* If there are typed-ahead characters cached, insert them in the text object and clear the cache.) (replace (STRINGP OFFST) of SCRATCH with 0) (replace (STRINGP LENGTH) of SCRATCH with \SCRATCHLEN) (replace (STRINGP LENGTH) of PASS with TLEN) (TEDIT.\INSERT PASS SEL TEXTOBJ BLANKSEEN CRSEEN))))) \TEDIT.INTERRUPT.SETUP :D4 (P 1 \INTERRUPTABLE P 0 TEXTOBJ I 1 FORCEOFF I 0 PROC) t@g @g g @g A @g @g @gh*A*@g !@gHH Fg'`i @(112 PROCESSPROP 109 RESET.INTERRUPTS 91 TEXTOBJ 79 PROCESSPROP 61 RESET.INTERRUPTS 58 PROCESSPROP 49 PROCESSPROP 33 TEXTOBJ 30 PROCESSPROP 21 GETWINDOWUSERPROP 15 PROCESSPROP 6 PROCESSPROP) (105 TEDIT.INTERRUPTS 99 INTERRUPTS 94 TEXTOBJ 85 TEDIT.INTERRUPTS 76 TEDIT.INTERRUPTS 66 TEDIT.INTERRUPTS 55 TEDIT.INTERRUPTS 46 TEDIT.INTERRUPTS 27 WINDOW 18 TEXTOBJ 12 WINDOW 3 WINDOW) () \TEDIT.MARKACTIVE :D4 (I 0 TEXTOBJ) @i>@NIL (3 TEXTOBJ) () \TEDIT.MARKINACTIVE :D4 (I 0 TEXTOBJ) @h>@NIL (3 TEXTOBJ) () \PNC :D4 (P 4 \INTERRUPTABLE P 1 OFFST P 0 LEN I 1 STR I 0 CH) AAjA A"HjHAjA  o AAI@ǿIkZjAkPAjAJ AJHkٻAKAKA AKhh(94 %%SET-ARRAY-OFFSET 59 ERROR 50 \FZEROP 45 %%ARRAY-BASE 13 %%ARRAY-OFFSET) NIL ( 56 "NO ROOM LEFT IN STRING TO PUT CHARACTER") \TEDIT.COMMAND.LOOPA0001A0002A0003 :D4 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 PROCEED-CASE0729 F 5 *PROCEED-CASES* F 6 STREAM F 7 LOOPFN) ?i@ggggTgjghgg UVkWh (58 \MVLIST 38 MAKE-PROCEED-CASE 34 CL:SYMBOL-FUNCTION) (31 SI::ERRORSET-PRINT-FUNCTION 28 :REPORT 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () \TEDIT.COMMAND.LOOPA0001A0002A0004 :D4 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 TEXTOBJ F 5 PROCEED-CASE0736 F 6 *PROCEED-CASES*) Hi@ggggUgjghgg VT T h (67 \MVLIST 61 TEDIT.COPY 38 MAKE-PROCEED-CASE 34 CL:SYMBOL-FUNCTION) (56 TEXTOBJ 50 TEXTOBJ 31 SI::ERRORSET-PRINT-FUNCTION 28 :REPORT 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () \TEDIT.COMMAND.LOOPA0001A0002A0007 :D4 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 TEXTOBJ F 5 PROCEED-CASE0742 F 6 *PROCEED-CASES*) ki@ggggUgjghgg VT gTd T Td T h (102 \MVLIST 96 TEDIT.COPY.LOOKS 79 TEDIT.COPY.PARALOOKS 38 MAKE-PROCEED-CASE 34 CL:SYMBOL-FUNCTION) (91 TEXTOBJ 85 TEXTOBJ 74 TEXTOBJ 68 TEXTOBJ 60 PARA 55 SELECTION 50 TEXTOBJ 31 SI::ERRORSET-PRINT-FUNCTION 28 :REPORT 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () \TEDIT.COMMAND.LOOPA0001A0002A0010 :D4 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 TEXTOBJ F 5 PROCEED-CASE0748 F 6 *PROCEED-CASES*) Hi@ggggUgjghgg VTT h (67 \MVLIST 61 TEDIT.MOVE 38 MAKE-PROCEED-CASE 34 CL:SYMBOL-FUNCTION) (56 TEXTOBJ 50 TEXTOBJ 31 SI::ERRORSET-PRINT-FUNCTION 28 :REPORT 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () \TEDIT.COMMAND.LOOPA0001A0002A0013 :D4 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 TEXTOBJ F 5 PROCEED-CASE0754 F 6 *PROCEED-CASES*) i@ggggUgjghgg V`jlT"hd Thd T"j`T Tg TTh `h`hhd (172 \MVLIST 144 \TEDIT.DELETE 122 \TEDIT.SET.SEL.LOOKS 109 \COPYSEL 82 \SHOWSEL 70 \SHOWSEL 38 MAKE-PROCEED-CASE 34 CL:SYMBOL-FUNCTION) (161 SELECTION 158 TEDIT.DELETESELECTION 151 SELECTION 148 TEDIT.DELETESELECTION 138 SELECTION 133 TEXTOBJ 127 TEXTOBJ 119 NORMAL 114 TEXTOBJ 104 TEXTOBJ 100 TEDIT.DELETESELECTION 92 SELECTION 87 TEXTOBJ 75 TEXTOBJ 63 TEXTOBJ 52 SELECTION 49 TEDIT.DELETESELECTION 31 SI::ERRORSET-PRINT-FUNCTION 28 :REPORT 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () \TEDIT.COMMAND.LOOPA0001A0002 :D4 (P 29 \INTERRUPTABLE P 28 PROCEED-CASE0752 P 27 A0756 P 26 PROCEED-CASE0753 P 25 A0755 P 24 PROCEED-CASE0754 P 23 PROCEED-CASE0746 P 22 A0750 P 21 PROCEED-CASE0747 P 20 A0749 P 19 PROCEED-CASE0748 P 18 PROCEED-CASE0740 P 17 A0744 P 16 PROCEED-CASE0741 P 15 A0743 P 14 PROCEED-CASE0742 P 13 PROCEED-CASE0734 P 12 A0738 P 11 PROCEED-CASE0735 P 10 A0737 P 9 PROCEED-CASE0736 P 8 PROCEED-CASE0727 P 7 A0731 P 6 PROCEED-CASE0728 P 5 A0730 P 4 PROCEED-CASE0729 P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 30 TEXTOBJ F 31 SEL F 32 CH F 33 ISCRSTRING F 34 TERMSA F 35 TEDITSA F 36 CHARFN F 37 TCH F 38 FN F 39 PROCEED-CASE0724 F 40 *PROCEED-CASES* F 41 LOOPFN F 42 STREAM F 43 CRSEEN F 44 TEDITFNHASH F 45 BLANKSEEN) i@ggggWNgjghgg WPW<0hd l `W<>yW<0=W<Tj"W>hd WW< W>hi W<2 W<i>WREhdL 1M_M_Odg!N `W`h`W< hdO 1O_$O_"_ O$dgO j:W< hd `j`h`h`W< `{h`W< W>W< hdO& 1O(_.O(_,_*O.dgO* j:`j`h`h`W< 9`4hdO0 1O2_8O2_6_4O8dgO4 j:WBjWBj WBjWBl@WBl@WBWBl@hc@WHWTW@lWHcJiWJc@W@4WFo W@lWFɀW@WFɀ jWFW@dkW W> dlW< W> {dlW>W< W> cdlW< W> NdlW< W> 9dl;W@WX cL%W<.WlWLW>hd W> W>hi dlW< l W<. WD;W@7WDo W@lWDɀW@WDɀ jWDW@ldlW W> dlW< W> mlW>W< W> WW@QW>W< W@W>W(1179 TEDIT.\INSERT 1164 TEDIT.DO.BLUEPENDINGDELETE 1147 TEDIT.RESET.EXTEND.PENDING.DELETE 1141 \TEDIT.DELETE 1125 TEDIT.RESET.EXTEND.PENDING.DELETE 1119 \TEDIT.WORDDELETE 1104 TEDIT.RESET.EXTEND.PENDING.DELETE 1098 \TEDIT.CHARDELETE 1070 GETHASH 1042 RAID 1017 \TEDIT.ABBREV.EXPAND 999 TEDIT.NEXT 984 \SHOWSEL 976 TEDIT.RESET.EXTEND.PENDING.DELETE 970 \SHOWSEL 939 GETHASH 921 TEDIT.RESET.EXTEND.PENDING.DELETE 915 TEDIT.REDO 900 TEDIT.RESET.EXTEND.PENDING.DELETE 894 TEDIT.UNDO 879 TEDIT.RESET.EXTEND.PENDING.DELETE 873 \TEDIT.DELETE 855 TEDIT.RESET.EXTEND.PENDING.DELETE 849 \TEDIT.WORDDELETE 835 TEDIT.RESET.EXTEND.PENDING.DELETE 829 \TEDIT.CHARDELETE 805 GETHASH 777 RAID 733 \GETKEY 726 \SYSBUFP 687 %%SET-ARRAY-OFFSET 666 CL:VALUES-LIST 634 \TEDIT.COMMAND.LOOPA0001A0002A0013 612 \COPYSEL 564 CL:VALUES-LIST 532 \TEDIT.COMMAND.LOOPA0001A0002A0010 520 TEDIT.DO.BLUEPENDINGDELETE 512 \COPYSEL 485 \COPYSEL 440 \SHOWSEL 424 CL:VALUES-LIST 392 \TEDIT.COMMAND.LOOPA0001A0002A0007 380 \COPYSEL 351 \COPYSEL 303 CL:VALUES-LIST 271 \TEDIT.COMMAND.LOOPA0001A0002A0004 259 \COPYSEL 230 BLOCK 226 TEDIT.FLASHCARET 207 CL:VALUES-LIST 179 \TEDIT.COMMAND.LOOPA0001A0002A0003 155 TEDIT.FLASHCARET 144 \SHOWSEL 136 \FIXSEL 128 TEDIT.UPDATE.SCREEN 120 \SHOWSEL 71 \WAITFORSYSBUFP 63 \MVLIST 39 MAKE-PROCEED-CASE 35 CL:SYMBOL-FUNCTION) (1188 TEXTOBJ 1065 CHARTABLE 1055 CHARTABLE 1034 CHARTABLE 1012 TEXTOBJ 950 TEXTOBJ 800 CHARTABLE 790 CHARTABLE 769 CHARTABLE 658 :NORMAL 624 TEDIT.DEL.PENDING 618 TEDIT.DEL.PENDING 607 TEXTOBJ 602 TEDIT.MOVESELECTION 595 SELECTION 592 TEDIT.MOVESELECTION 585 SELECTION 582 TEDIT.MOVESELECTION 574 SELECTION 571 TEDIT.MOVESELECTION 556 :NORMAL 507 TEXTOBJ 502 TEDIT.MOVESELECTION 498 TEDIT.MOVE.PENDING 492 TEDIT.MOVE.PENDING 480 TEXTOBJ 475 TEDIT.COPYLOOKSSELECTION 468 SELECTION 465 TEDIT.COPYLOOKSSELECTION 458 SELECTION 455 TEDIT.COPYLOOKSSELECTION 447 SELECTION 444 TEDIT.COPYLOOKSSELECTION 433 TEXTOBJ 416 :NORMAL 375 TEXTOBJ 370 TEDIT.COPYLOOKSSELECTION 366 TEDIT.COPYLOOKS.PENDING 358 TEDIT.COPYLOOKS.PENDING 346 TEXTOBJ 341 TEDIT.SHIFTEDSELECTION 334 SELECTION 331 TEDIT.SHIFTEDSELECTION 324 SELECTION 321 TEDIT.SHIFTEDSELECTION 313 SELECTION 310 TEDIT.SHIFTEDSELECTION 295 :NORMAL 254 TEXTOBJ 249 TEDIT.SHIFTEDSELECTION 245 TEDIT.COPY.PENDING 239 TEDIT.COPY.PENDING 221 TEXTOBJ 212 TEDIT.SELPENDING 199 :NORMAL 161 TEXTOBJ 150 TEXTOBJ 106 TEXTOBJ 95 TEXTOBJ 86 TEXTOBJ 75 TEDIT.SELPENDING 53 TEXTOBJ 32 SI::ERRORSET-PRINT-FUNCTION 29 :REPORT 25 :TEST 21 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) ( 1039 (Check-failure%: (type? CHARTABLE TERMSA)) 774 (Check-failure%: (type? CHARTABLE TEDITSA))) \TEDIT.COMMAND.LOOPA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 20 PROCEED-CASE0722 P 19 A0726 P 18 PROCEED-CASE0723 P 17 A0725 P 16 PROCEED-CASE0724 P 15 COMMANDFN P 14 CHNO P 13 TLEN P 12 CRSEEN P 11 INSCH# P 10 BLANKSEEN P 9 DIRTY P 8 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 I 0 SI::*CLEANUP-FORMS* F 21 TEXTOBJ F 22 SI::*RESETFORMS* F 23 RTBL F 24 WINDOW F 25 %#CURRENTRDTBL# F 26 \PRIMTERMSA) gW*W0hi hhW,c,W2W*<W4W.W.W* Fg'W* Fg'W*0hdO 1O"_(O"_&_$O(dgO$ j:W*h>(139 CL:VALUES-LIST 107 \TEDIT.COMMAND.LOOPA0001A0002 74 TEXTOBJ 60 TEXTOBJ 13 \TEDIT.COMMAND.RESET.SETUP) (148 TEXTOBJ 131 :NORMAL 91 TEXTOBJ 82 CHARFN 77 TEXTOBJ 68 LOOPFN 63 TEXTOBJ 53 READTABLEP 46 READTABLEP 35 TEXTOBJ 28 READTABLEP 2 \TEDIT.COMMAND.RESET.SETUP) () \TEDIT.COMMAND.LOOP :D4 (P 10 SI::*RESETFORMS* P 9 LISPXHIST P 8 WW P 6 TTYWINDOW 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 11 LISPXHIST) @@@l@o RHZH[H\Ik ]A HB`bKO'```gl5Adgl)gl AdglglAgl jHo IlHIJDžHIJ (204 \SETFATSYNCODE 187 RAID 32 TEDIT.GETSYNTAX 16 STRINGP) (179 CHARTABLE 166 EXPAND 157 NEXT 147 FN 136 CMD 126 REDO 115 UNDO 105 LINEDELETE 98 DELETE 88 WORDDELETE 79 CHARDELETE 71 READTABLEP 68 TEDIT.READTABLE 59 TEXTOBJ 54 STREAM 49 STREAM 41 TEXTOBJ 36 TEXTOBJ 22 CHARCODE 10 CHARCODE) ( 184 (Check-failure%: (type? CHARTABLE TABLE))) TEDIT.GETFUNCTION :D4 (I 1 TABLE I 0 CHARCODE) AABAABA`b@dlkgbAdUPlAHo @lHɀ@Hɀ jH@jA @A (139 GETHASH 108 GETHASH 84 RAID) (134 READTABLEP 125 READTABLEP 103 CHARTABLE 95 CHARTABLE 76 CHARTABLE 67 READTABLEP 59 READTABLEP 48 CHARCODE 35 TEDIT.READTABLE 26 TEXTOBJ 21 STREAM 16 STREAM 8 TEXTOBJ 3 TEXTOBJ) ( 81 (Check-failure%: (type? CHARTABLE TEDIT.GETFUNCTIONA0001))) TEDIT.SETFUNCTION :D4 (P 2 CODE P 1 CHAR P 0 TABLE I 2 RTBL I 1 FN I 0 CHARCODE) BBBBBBB`bd@dlkg @kg@bAljHo IlHIJDžHIJ BBl2 @AB (141 PUTHASH 127 HARRAY 110 \SETFATSYNCODE 93 RAID 60 STRINGP) (136 READTABLEP 122 READTABLEP 115 READTABLEP 85 CHARTABLE 66 CHARCODE 54 CHARCODE 41 READTABLEP 35 TEDIT.READTABLE 26 TEXTOBJ 21 STREAM 16 STREAM 8 TEXTOBJ 3 TEXTOBJ) ( 90 (Check-failure%: (type? CHARTABLE TABLE))) TEDIT.WORDGET :D4 (I 1 TABLE I 0 CH) CA`@d Ho IlHɀIHɀ jHI(57 GETHASH 33 RAID 18 CHCON1) (52 CHARTABLE 44 CHARTABLE 25 CHARTABLE 8 READTABLEP 5 TEDIT.WORDBOUND.READTABLE) ( 30 (Check-failure%: (type? CHARTABLE TEDIT.WORDGETA0002))) TEDIT.WORDSET :D4 (P 2 CODE P 1 CHAR P 0 TABLE I 2 TABLE I 1 CLASS I 0 CHARCODE) OB`@d Ad3 dglgllHo IlHIJHIJ (76 \SETFATSYNCODE 59 RAID 18 CHCON1) (51 CHARTABLE 37 WHITESPACE 28 PUNCTUATION 8 READTABLEP 5 TEDIT.WORDBOUND.READTABLE) ( 56 (Check-failure%: (type? CHARTABLE TABLE))) (PRETTYCOMPRINT TEDITCOMMANDCOMS) (RPAQQ TEDITCOMMANDCOMS ((FILES TEDITDECLS) (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\SCRATCHLEN 64)) (FILES (LOADCOMP) TEDITDECLS)) (FNS \TEDIT.INSERT.TTY.BUFFER \TEDIT.INTERRUPT.SETUP \TEDIT.MARKACTIVE \TEDIT.MARKINACTIVE \PNC \TEDIT.COMMAND.LOOP \TEDIT.COMMAND.RESET.SETUP) (INITVARS ( TEDIT.INTERRUPTS (QUOTE ((2 BREAK) (5 ERROR) (7 HELP) (20 CONTROL-T))))) (VARS (TEDIT.COPY.PENDING NIL ) (TEDIT.COPYLOOKS.PENDING NIL) (TEDIT.MOVE.PENDING NIL) (TEDIT.DEL.PENDING NIL) ( TEDIT.BLUEPENDINGDELETE NIL)) (GLOBALVARS TEDIT.COPY.PENDING TEDIT.COPYLOOKS.PENDING TEDIT.MOVE.PENDING TEDIT.DEL.PENDING TEDIT.BLUEPENDINGDELETE TEDIT.INTERRUPTS) (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)))) (FILESLOAD TEDITDECLS) (RPAQ? TEDIT.INTERRUPTS (QUOTE ((2 BREAK) (5 ERROR) (7 HELP) (20 CONTROL-T)))) (RPAQQ TEDIT.COPY.PENDING NIL) (RPAQQ TEDIT.COPYLOOKS.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)) (PUTPROPS TEDITCOMMAND COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985 1986 1987)) NIL