From 2961670d7d846ce3e4481d9781552b569b3f7d60 Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Fri, 5 Sep 2025 08:46:15 -0700 Subject: [PATCH] Qualify record names in MASTERSCOPE COMPAREDIRECTORIES TTYIN (#2270) To avoid conflicts when creating fuller.database --- library/MASTERSCOPE | 170 ++++++++++++++---------------- library/MASTERSCOPE.DFASL | Bin 70942 -> 70941 bytes lispusers/COMPAREDIRECTORIES | 71 +++++++------ lispusers/COMPAREDIRECTORIES.LCOM | Bin 41839 -> 41849 bytes sources/TTYIN | 126 +++++++++++----------- sources/TTYIN.LCOM | Bin 73353 -> 73335 bytes 6 files changed, 179 insertions(+), 188 deletions(-) diff --git a/library/MASTERSCOPE b/library/MASTERSCOPE index 9261c28d..a6006ac2 100644 --- a/library/MASTERSCOPE +++ b/library/MASTERSCOPE @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 5-Apr-2025 11:49:04" {WMEDLEY}MASTERSCOPE.;29 197994 +(FILECREATED "24-Aug-2025 13:45:51" {WMEDLEY}MASTERSCOPE.;30 197199 :EDIT-BY rmk - :CHANGES-TO (FNS MSOUTPUT) + :CHANGES-TO (FNS MSINTERPRET) - :PREVIOUS-DATE "14-Jul-2024 08:42:20" {WMEDLEY}MASTERSCOPE.;28) + :PREVIOUS-DATE " 5-Apr-2025 11:49:04" {WMEDLEY}MASTERSCOPE.;29) (PRETTYCOMPRINT MASTERSCOPECOMS) @@ -2577,7 +2577,7 @@ (* ; "interactive routines") -(RPAQ MASTERSCOPEDATE " 5-Apr-2025") +(RPAQ MASTERSCOPEDATE "24-Aug-2025") (ADDTOVAR HISTORYCOMS %.) (DEFINEQ @@ -3258,7 +3258,8 @@ (DEFINEQ (MSINTERPRET - [LAMBDA (COMMAND SUBROUTINE) (* ; "Edited 15-Aug-90 11:54 by jds") + [LAMBDA (COMMAND SUBROUTINE) (* ; "Edited 24-Aug-2025 13:45 by rmk") + (* ; "Edited 15-Aug-90 11:54 by jds") (RESETLST [PROG (VAL EDITQUIETFLG) (SELECTQ (CAR COMMAND) @@ -3288,12 +3289,12 @@ (RETURN (SELECTQ (fetch (SENTENCE ID) of VAL) (REANALYZE (* ; - "Definitly don't want to CHECKFORCHANGED before the ANALYZE is done") + "Definitly don't want to CHECKFORCHANGED before the ANALYZE is done") (* ;; "From Lanning's Loops changes for Masterscope...") (* ;; - "(MAPC (MSLISTSET (CDR VAL) T 'KNOWN) (FUNCTION (LAMBDA (X) (UPDATEFN X T)))) (CL:VALUES)") + "(MAPC (MSLISTSET (CDR VAL) T 'KNOWN) (FUNCTION (LAMBDA (X) (UPDATEFN X T)))) (CL:VALUES)") (* ;; "JRB - The MSANALYZEFNS hashtable hook is hereby flushed.") @@ -3308,14 +3309,13 @@ (* ;; "SETTYPE is allowed to be NIL here...") (if [AND SETTYPE (NULL (for MT in MSFNTYPES - thereis (EQ SETTYPE - (fetch (MSANALYZABLE - SETNAME) + thereis (EQ SETTYPE (fetch (MSANALYZABLE + SETNAME) of MT] then (PRINTOUT T "Sorry, can't analyze " SETTYPE T) - (ERROR!) + (ERROR!) else (for X in SET do (UPDATEFN X T)) - (CL:VALUES)))) + (CL:VALUES)))) (ANALYZE (CHECKFORCHANGED (SETQ VAL (CDR VAL))) (* ;; "From Lanning's Loops changes for Masterscope...") @@ -3331,10 +3331,9 @@ (COND ([AND SETTYPE (NULL (for MT in MSFNTYPES - thereis (EQ SETTYPE - (fetch (MSANALYZABLE + thereis (EQ SETTYPE (fetch (MSANALYZABLE SETNAME) - of MT] + of MT] (PRINTOUT T "Sorry, can't analyze " SETTYPE T) (ERROR!)) ((EQ SET MSBLIP) @@ -3343,8 +3342,7 @@ (T (for X in SET do (UPDATEFN X T NIL SETTYPE)) (CL:VALUES]) ((EDIT SHOW) - [PROG (DONE NEEDUPDATE UPDATEALL TYPE (EDIT (fetch (SENTENCE ID) - of VAL)) + [PROG (DONE NEEDUPDATE UPDATEALL TYPE (EDIT (fetch (SENTENCE ID) of VAL)) REL SHOWSET (EDITCOMS (fetch OTHERSTUFF of VAL)) (SUBJECT (fetch (SENTENCE SUBJECT) of VAL)) (MSPRED (fetch (SENTENCE MSPRED) of VAL)) @@ -3352,7 +3350,7 @@ (DECLARE (SPECVARS TYPE SHOWSET EDIT EDITCOMS DONE)) [COND ((NULL MSPRED) (* ; - "EDIT ANY CALLING FOO -- just call EDITFNS") + "EDIT ANY CALLING FOO -- just call EDITFNS") (CHECKFORCHANGED SUBJECT) (RETURN (MAPC (MSLISTSET SUBJECT T) (FUNCTION (LAMBDA (FN) @@ -3365,10 +3363,8 @@ ) T)) (PRINT "failed" T] - [SETQ REL (fetch (THAT MSVERB) of (SETQ REP (fetch - (MSSETPHRASE - REP) of - MSPRED] + [SETQ REL (fetch (THAT MSVERB) of (SETQ REP (fetch (MSSETPHRASE REP) + of MSPRED] (SETQ SHOWSET (fetch (THAT OTHERSET) of REP)) [COND ((EQ (fetch TENSE of REL) @@ -3385,10 +3381,10 @@ (SETQ UPDATEALL (MSINTERPRETSET SUBJECT 'CHECK T)) [for FN in NEEDUPDATE do (COND - ((GETHASH FN MSCHANGEDARRAY) - (MSSHOWUSE FN TYPE SHOWSET EDIT NIL EDITCOMS) - (SETQ DONE (CONS FN DONE))) - (T (UPDATEFN FN] + ((GETHASH FN MSCHANGEDARRAY) + (MSSHOWUSE FN TYPE SHOWSET EDIT NIL EDITCOMS) + (SETQ DONE (CONS FN DONE))) + (T (UPDATEFN FN] (COND (UPDATEALL [MAPHASH MSCHANGEDARRAY (FUNCTION (LAMBDA (VAL KEY) @@ -3397,28 +3393,28 @@ (TESTRELQ (CALL NOTERROR) KEY T)) (COND - ((MSSHOWUSE KEY TYPE - SHOWSET EDIT - 'CHANGED EDITCOMS) + ((MSSHOWUSE KEY TYPE SHOWSET + EDIT 'CHANGED EDITCOMS + ) (SETQ DONE (CONS KEY DONE] (MSCHECKEMPTY))) (MAPC (MSLISTSET (MSJOINSET 'AND MSPRED SUBJECT) T) (FUNCTION (LAMBDA (AT) (AND (NOT (FMEMB AT DONE)) - (MSSHOWUSE AT TYPE SHOWSET EDIT NIL EDITCOMS - ] + (MSSHOWUSE AT TYPE SHOWSET EDIT NIL EDITCOMS] (CL:VALUES)) - (? [CHECKFORCHANGED (SETQ VAL (MSJOINSET 'AND (fetch MSPRED of VAL) - (fetch SUBJECT of VAL] + (? [CHECKFORCHANGED (SETQ VAL (MSJOINSET 'AND (fetch (SENTENCE MSPRED) + of VAL) + (fetch (SENTENCE SUBJECT) of VAL] (OR SUBROUTINE (TAB 0 0)) (MSSOLVE VAL)) (PATHS (PROG ([INVERTED (for X on (CDR VAL) bind FROMFOUND do (SELECTQ (CAAR X) - (FROM (SETQ FROMFOUND T)) - (TO (RETURN (NOT FROMFOUND))) - NIL) + (FROM (SETQ FROMFOUND T)) + (TO (RETURN (NOT FROMFOUND))) + NIL) finally (RETURN (COND @@ -3439,8 +3435,7 @@ (CDR VAL))) NIL] NEEDUPDATE UPDATEALL TEM) - (SETQ UPDATEALL (CHECKPATHS (fetch MSPATHOPTIONS of - VAL))) + (SETQ UPDATEALL (CHECKPATHS (fetch MSPATHOPTIONS of VAL))) (for X in NEEDUPDATE do (UPDATEFN X)) (COND (UPDATEALL (UPDATECHANGED) @@ -3448,28 +3443,23 @@ (COND ((SETQ TEM (fetch (PATHOPTIONS OUTPUT) of (CDR VAL))) (MSOUTPUT TEM))) - (AND (SETQ TEM (fetch (PATHOPTIONS LINELENGTH) - of (CDR VAL))) + (AND (SETQ TEM (fetch (PATHOPTIONS LINELENGTH) of (CDR VAL))) (RESETSAVE (LINELENGTH TEM))) (* ;; "Display paths; must print all of FROM, with separate tree for all of SEPARATE (considered as a subset of FROM). Stop when you get to a function in NOTRACE, -- unless TO is NIL, only print paths that eventually reach an element of TO. If INVERTED is not NIL, print inverted tree. Do not print out functions in AVOIDING") [SETQ MSTHOSE (MSPATHS [COND - (INVERTED (fetch (PATHOPTIONS - TO) - of (fetch - MSPATHOPTIONS - of VAL))) - (T (fetch (PATHOPTIONS FROM) - of (fetch MSPATHOPTIONS - of VAL] + (INVERTED (fetch (PATHOPTIONS TO) + of (fetch MSPATHOPTIONS + of VAL))) + (T (fetch (PATHOPTIONS FROM) + of (fetch MSPATHOPTIONS of VAL] [COND (INVERTED (fetch (PATHOPTIONS FROM) of (fetch MSPATHOPTIONS - of VAL))) + of VAL))) (T (fetch (PATHOPTIONS TO) - of (fetch MSPATHOPTIONS - of VAL] + of (fetch MSPATHOPTIONS of VAL] INVERTED (fetch (PATHOPTIONS AVOIDING) of (fetch MSPATHOPTIONS of VAL)) @@ -3481,15 +3471,15 @@ of (fetch MSPATHOPTIONS of VAL] (RETURN (CL:VALUES)))) (ERASE (* ; - "case of plain ERASE taken care of earlier") + "case of plain ERASE taken care of earlier") (MSERASE (MSLISTSET (CDR VAL) - T - 'KNOWN)) + T + 'KNOWN)) (PRIN1 "Erased." T) (CL:VALUES)) (DESCRIBE (CHECKFORCHANGED (CDR VAL) NIL T) (* ; - "Need to update the world since will print out CALLED BY:") + "Need to update the world since will print out CALLED BY:") (TAB 0 0) (MAPC (MSLISTSET (CDR VAL) T) @@ -3501,9 +3491,9 @@ (EVAL VAL)) (CHECK (CHECKFORCHANGED (CDR VAL)) [MSCHECKBLOCKS (AND (CDR VAL) - (MSLISTSET (CDR VAL) - 'HARD - 'FILES]) + (MSLISTSET (CDR VAL) + 'HARD + 'FILES]) (SHOULDNT 18])]) (VERBNOTICELIST @@ -3752,36 +3742,36 @@ (ADDTOVAR LAMA MSEDITE MSEDITF) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3260 19507 (UPDATEFN 3270 . 4887) (MSGETDEF 4889 . 6295) (MSNOTICEFILE 6297 . 8690) ( -MSSHOWUSE 8692 . 14673) (MSUPDATEFN1 14675 . 15363) (MSUPDATE 15365 . 17791) (MSNLAMBDACHECK 17793 . -18675) (MSCOLLECTDATA 18677 . 19505)) (19508 20407 (UPDATECHANGED 19518 . 19881) (UPDATECHANGED1 19883 - . 20405)) (20981 21404 (MSCLOSEFILES 20991 . 21402)) (22085 26517 (MSDESCRIBE 22095 . 24883) ( -MSDESCRIBE1 24885 . 25948) (FMAPRINT 25950 . 26515)) (26610 27050 (MSPRINTHELPFILE 26620 . 27048)) ( -27100 30238 (TEMPLATE 27110 . 28531) (GETTEMPLATE 28533 . 28668) (SETTEMPLATE 28670 . 30236)) (31108 -36032 (ADDTEMPLATEWORD 31118 . 31790) (MSADDANALYZE 31792 . 33290) (MSADDMODIFIER 33292 . 34373) ( -MSADDRELATION 34375 . 35122) (MSADDTYPE 35124 . 36030)) (37533 42754 (MSMARKCHANGE1 37543 . 38337) ( -MSINIT 38339 . 39520) (GETVERBTABLES 39522 . 40075) (MSSTOREDATA 40077 . 41756) (STORETABLE 41758 . -42752)) (44155 49225 (PARSERELATION 44165 . 44765) (PARSERELATION1 44767 . 46222) (GETRELATION 46224 - . 47253) (MAPRELATION 47255 . 48389) (TESTRELATION 48391 . 49223)) (49226 50866 (ADDHASH 49236 . -49714) (SUBHASH 49716 . 49944) (MAKEHASH 49946 . 50090) (MSREHASH 50092 . 50545) (EQMEMBHASH 50547 . -50864)) (51205 57420 (MSVBTABLES 51215 . 56994) (MSUSERVBTABLES 56996 . 57418)) (57503 59714 ( -BUILDGETRELQ 57513 . 58619) (BUILDTESTRELQ 58621 . 59712)) (59885 60273 (MSERASE 59895 . 60271)) ( -60274 64734 (DUMPDATABASE 60284 . 62849) (DUMPDATABASE1 62851 . 63196) (READATABASE 63198 . 64732)) ( -65816 94875 (MSCHECKBLOCKS 65826 . 69646) (MSCHECKBLOCK 69648 . 78268) (MSCHECKFNINBLOCK 78270 . 81270 -) (MSCHECKBLOCKBASIC 81272 . 83692) (MSCHECKBOUNDFREE 83694 . 85593) (GLOBALVARP 85595 . 85762) ( -PRINTERROR 85764 . 88980) (MSCHECKVARS1 88982 . 91935) (UNECCSPEC 91937 . 92215) (NECCSPEC 92217 . -92564) (SPECVARP 92566 . 93093) (SHORTLST 93095 . 93551) (DOERROR 93553 . 94263) (MSMSGPRINT 94265 . -94873)) (96019 110847 (MSPATHS 96029 . 99431) (MSPATHS1 99433 . 103668) (MSPATHS2 103670 . 107080) ( -MSONPATH 107082 . 108310) (MSPATHS4 108312 . 109394) (DASHES 109396 . 109922) (DOTABS 109924 . 110165) - (BELOWMARKER 110167 . 110630) (MSPATHSPRINTFN 110632 . 110845)) (111233 114657 (MSFIND 111243 . -111518) (MSEDITF 111520 . 112520) (MSEDITE 112522 . 113559) (EDITGETDEF 113561 . 114655)) (115599 -124200 (MSMARKCHANGED 115609 . 117333) (CHANGEMACRO 117335 . 118040) (CHANGEVAR 118042 . 118358) ( -CHANGEI.S. 118360 . 119693) (CHANGERECORD 119695 . 120566) (MSNEEDUNSAVE 120568 . 121560) (UNSAVEFNS -121562 . 124198)) (124633 128123 (%. 124643 . 124783) (MASTERSCOPE 124785 . 125311) (MASTERSCOPE1 -125313 . 126181) (MASTERSCOPEXEC 126183 . 128121)) (128162 167812 (MSINTERPRETSET 128172 . 156706) ( -MSINTERPA 156708 . 157242) (MSGETBLOCKDEC 157244 . 159757) (LISTHARD 159759 . 160977) (MSMEMBSET -160979 . 161124) (MSLISTSET 161126 . 161491) (MSHASHLIST 161493 . 161660) (MSHASHLIST1 161662 . 161988 -) (CHECKPATHS 161990 . 162630) (ONFILE 162632 . 167810)) (167813 192172 (MSINTERPRET 167823 . 184676) -(VERBNOTICELIST 184678 . 185788) (MSOUTPUT 185790 . 187300) (MSCHECKEMPTY 187302 . 188506) ( -CHECKFORCHANGED 188508 . 189028) (MSSOLVE 189030 . 192170))))) + (FILEMAP (NIL (3263 19510 (UPDATEFN 3273 . 4890) (MSGETDEF 4892 . 6298) (MSNOTICEFILE 6300 . 8693) ( +MSSHOWUSE 8695 . 14676) (MSUPDATEFN1 14678 . 15366) (MSUPDATE 15368 . 17794) (MSNLAMBDACHECK 17796 . +18678) (MSCOLLECTDATA 18680 . 19508)) (19511 20410 (UPDATECHANGED 19521 . 19884) (UPDATECHANGED1 19886 + . 20408)) (20984 21407 (MSCLOSEFILES 20994 . 21405)) (22088 26520 (MSDESCRIBE 22098 . 24886) ( +MSDESCRIBE1 24888 . 25951) (FMAPRINT 25953 . 26518)) (26613 27053 (MSPRINTHELPFILE 26623 . 27051)) ( +27103 30241 (TEMPLATE 27113 . 28534) (GETTEMPLATE 28536 . 28671) (SETTEMPLATE 28673 . 30239)) (31111 +36035 (ADDTEMPLATEWORD 31121 . 31793) (MSADDANALYZE 31795 . 33293) (MSADDMODIFIER 33295 . 34376) ( +MSADDRELATION 34378 . 35125) (MSADDTYPE 35127 . 36033)) (37536 42757 (MSMARKCHANGE1 37546 . 38340) ( +MSINIT 38342 . 39523) (GETVERBTABLES 39525 . 40078) (MSSTOREDATA 40080 . 41759) (STORETABLE 41761 . +42755)) (44158 49228 (PARSERELATION 44168 . 44768) (PARSERELATION1 44770 . 46225) (GETRELATION 46227 + . 47256) (MAPRELATION 47258 . 48392) (TESTRELATION 48394 . 49226)) (49229 50869 (ADDHASH 49239 . +49717) (SUBHASH 49719 . 49947) (MAKEHASH 49949 . 50093) (MSREHASH 50095 . 50548) (EQMEMBHASH 50550 . +50867)) (51208 57423 (MSVBTABLES 51218 . 56997) (MSUSERVBTABLES 56999 . 57421)) (57506 59717 ( +BUILDGETRELQ 57516 . 58622) (BUILDTESTRELQ 58624 . 59715)) (59888 60276 (MSERASE 59898 . 60274)) ( +60277 64737 (DUMPDATABASE 60287 . 62852) (DUMPDATABASE1 62854 . 63199) (READATABASE 63201 . 64735)) ( +65819 94878 (MSCHECKBLOCKS 65829 . 69649) (MSCHECKBLOCK 69651 . 78271) (MSCHECKFNINBLOCK 78273 . 81273 +) (MSCHECKBLOCKBASIC 81275 . 83695) (MSCHECKBOUNDFREE 83697 . 85596) (GLOBALVARP 85598 . 85765) ( +PRINTERROR 85767 . 88983) (MSCHECKVARS1 88985 . 91938) (UNECCSPEC 91940 . 92218) (NECCSPEC 92220 . +92567) (SPECVARP 92569 . 93096) (SHORTLST 93098 . 93554) (DOERROR 93556 . 94266) (MSMSGPRINT 94268 . +94876)) (96022 110850 (MSPATHS 96032 . 99434) (MSPATHS1 99436 . 103671) (MSPATHS2 103673 . 107083) ( +MSONPATH 107085 . 108313) (MSPATHS4 108315 . 109397) (DASHES 109399 . 109925) (DOTABS 109927 . 110168) + (BELOWMARKER 110170 . 110633) (MSPATHSPRINTFN 110635 . 110848)) (111236 114660 (MSFIND 111246 . +111521) (MSEDITF 111523 . 112523) (MSEDITE 112525 . 113562) (EDITGETDEF 113564 . 114658)) (115602 +124203 (MSMARKCHANGED 115612 . 117336) (CHANGEMACRO 117338 . 118043) (CHANGEVAR 118045 . 118361) ( +CHANGEI.S. 118363 . 119696) (CHANGERECORD 119698 . 120569) (MSNEEDUNSAVE 120571 . 121563) (UNSAVEFNS +121565 . 124201)) (124636 128126 (%. 124646 . 124786) (MASTERSCOPE 124788 . 125314) (MASTERSCOPE1 +125316 . 126184) (MASTERSCOPEXEC 126186 . 128124)) (128165 167815 (MSINTERPRETSET 128175 . 156709) ( +MSINTERPA 156711 . 157245) (MSGETBLOCKDEC 157247 . 159760) (LISTHARD 159762 . 160980) (MSMEMBSET +160982 . 161127) (MSLISTSET 161129 . 161494) (MSHASHLIST 161496 . 161663) (MSHASHLIST1 161665 . 161991 +) (CHECKPATHS 161993 . 162633) (ONFILE 162635 . 167813)) (167816 191377 (MSINTERPRET 167826 . 183881) +(VERBNOTICELIST 183883 . 184993) (MSOUTPUT 184995 . 186505) (MSCHECKEMPTY 186507 . 187711) ( +CHECKFORCHANGED 187713 . 188233) (MSSOLVE 188235 . 191375))))) STOP diff --git a/library/MASTERSCOPE.DFASL b/library/MASTERSCOPE.DFASL index 889d09865dfd76ad3a5f48a8e2943cf9adb57356..585c6b982eae330994b1ea6d27e836020b3f0d46 100644 GIT binary patch delta 185 zcmbQYie>I9mI-d!#s*x$`K3k4sS0VCIjIWCMX8A;sVNFZCc2KL>AFS+My3je##Sb# zR;Gp%3q|Bh^HLHkb%4?eKJJG7G532WMsZMAurU9$<$)=_BG$sn9NK!ufMFp$ObWJ^W7`1x=a>k L+f|qte+dBq^OrZt delta 186 zcmbQcie=s^mI-d!MwVQ``K3k4sS0VCIjIWCMX8A;sVNEyrn-&=MY=`?My3jehE^t) zRt6>$3q|A;OG=AU5-W8SOcj9gnK=p|6*^EQh9(=A9N-kergw4$mlBha<>onD4J?cn zn`QYYv9K_^8yalhB)mF`$=Gyrd|s#>lbPA(ZEL=%F_{~0UUyl8kqu(f<~vthb(t(p LwktC+{t^NJGq5-c diff --git a/lispusers/COMPAREDIRECTORIES b/lispusers/COMPAREDIRECTORIES index b9f3ee30..57e7feea 100644 --- a/lispusers/COMPAREDIRECTORIES +++ b/lispusers/COMPAREDIRECTORIES @@ -1,13 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "26-Mar-2025 09:41:31" {WMEDLEY}COMPAREDIRECTORIES.;267 133447 +(FILECREATED "24-Aug-2025 13:38:35" {WMEDLEY}COMPAREDIRECTORIES.;268 133743 :EDIT-BY rmk - :CHANGES-TO (VARS COMPAREDIRECTORIESCOMS) - (FNS CD-MENUFN) + :CHANGES-TO (FNS CDENTRIES.SELECT CDPRINT.LINE) - :PREVIOUS-DATE "18-Feb-2025 23:37:14" {WMEDLEY}COMPAREDIRECTORIES.;264) + :PREVIOUS-DATE "26-Mar-2025 09:41:31" {WMEDLEY}COMPAREDIRECTORIES.;267) (PRETTYCOMPRINT COMPAREDIRECTORIESCOMS) @@ -262,7 +261,8 @@ INFO2 _ I2] FINALLY (RETURN CANDIDATES]) (CDENTRIES.SELECT - [LAMBDA (CANDIDATES SELECT) (* ; "Edited 23-Feb-2022 20:45 by rmk") + [LAMBDA (CANDIDATES SELECT) (* ; "Edited 24-Aug-2025 13:36 by rmk") + (* ; "Edited 23-Feb-2022 20:45 by rmk") (* ; "Edited 4-Jan-2022 21:31 by rmk") (* ;; "Does the pairwise select filter and inserts the date relation") @@ -273,8 +273,8 @@ (SETQ INFO1 (FETCH (CDENTRY INFO1) OF CDE)) (SETQ INFO2 (FETCH (CDENTRY INFO2) OF CDE)) (if (AND INFO1 INFO2) - then (SETQ IDATE1 (IDATE (fetch DATE of INFO1))) - (SETQ IDATE2 (IDATE (fetch DATE of INFO2))) + then (SETQ IDATE1 (IDATE (fetch (CDINFO DATE) of INFO1))) + (SETQ IDATE2 (IDATE (fetch (CDINFO DATE) of INFO2))) (SETQ DATEREL (if (IGREATERP IDATE1 IDATE2) then '> elseif (ILESSP IDATE1 IDATE2) @@ -643,23 +643,24 @@ (CDPRINT.LINE [LAMBDA (STREAM ENTRY PRINTAUTHOR DATE1POS ENDDATE1 NCHARSDIR1 NCHARSDIR2 LENGTH2END) + (* ; "Edited 24-Aug-2025 13:38 by rmk") (* ; "Edited 16-Jul-2022 10:19 by rmk") (* ; "Edited 22-Nov-2021 22:38 by rmk:") (* ; "Edited 9-Jan-2021 10:12 by rmk:") (* ;; "Format one line of the directory comparison listing. If PRINTAUTHOR and AUTHOR1 or AUTHOR2 are non-NIL, list the author in parens; otherwise omit it.") - (LET ((INFO1 (fetch INFO1 of ENTRY)) - (INFO2 (fetch INFO2 of ENTRY))) - (PRINTOUT STREAM (SELECTQ (fetch EQUIV of ENTRY) + (LET ((INFO1 (fetch (CDENTRY INFO1) of ENTRY)) + (INFO2 (fetch (CDENTRY INFO2) of ENTRY))) + (PRINTOUT STREAM (SELECTQ (fetch (CDENTRY EQUIV) of ENTRY) (T "==") (NIL " ") - (CONCAT (SELECTQ (CAR (fetch EQUIV of ENTRY)) + (CONCAT (SELECTQ (CAR (fetch (CDENTRY EQUIV) of ENTRY)) (CR 'C) (LF 'L) (CRLF 2) "x") - (SELECTQ (CADR (fetch EQUIV of ENTRY)) + (SELECTQ (CADR (fetch (CDENTRY EQUIV) of ENTRY)) (CR 'C) (LF 'L) (CRLF 2) @@ -677,7 +678,7 @@ (PRINTOUT STREAM .FR (IDIFFERENCE DATE1POS 2) (fetch (CDINFO LENGTH) OF INFO1) " " - (fetch DATE of INFO1))) + (fetch (CDINFO DATE) of INFO1))) (PRINTOUT STREAM .TAB0 ENDDATE1 " " (SELECTQ (fetch DATEREL of ENTRY) (< "< ") (> " >") @@ -687,7 +688,7 @@ (SHOULDNT)) " ") (CL:WHEN INFO2 - (PRINTOUT STREAM (fetch DATE of INFO2) + (PRINTOUT STREAM (fetch (CDINFO DATE) of INFO2) " " (SUBSTRING (fetch (CDINFO FULLNAME) OF INFO2) (ADD1 NCHARSDIR2) @@ -2250,25 +2251,25 @@ (MOVD? 'NILL 'TEDIT.FILEDATE) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2701 23064 (COMPAREDIRECTORIES 2711 . 8046) (COMPAREDIRECTORIES.INFOS 8048 . 11006) ( -COMPAREDIRECTORIES.CANDIDATES 11008 . 14393) (CDENTRIES.SELECT 14395 . 19170) ( -COMPAREDIRECTORIES.INFOS.TYPE 19172 . 20298) (MATCHNAME 20300 . 20980) (CD.INSURECDVALUE 20982 . 22596 -) (CD.UPDATEWIDTHS 22598 . 23062)) (23065 33687 (CDFILES 23075 . 29089) (CDFILES.MATCH 29091 . 30716) -(CDFILES.PATS 30718 . 33685)) (33688 51509 (CDPRINT 33698 . 36215) (CDPRINT.HEADER 36217 . 37114) ( -CDPRINT.LINE 37116 . 40348) (CDPRINT.MAXWIDTHS 40350 . 44465) (CDPRINT.COLHEADERS 44467 . 45752) ( -CDPRINT.COLUMNS 45754 . 50874) (CDTEDIT 50876 . 51507)) (51510 60631 (CDMAP 51520 . 52952) (CDENTRY -52954 . 53263) (CDSUBSET 53265 . 54704) (CDMERGE 54706 . 58690) (CDMERGE.COMMON 58692 . 60007) ( -CD.SORT 60009 . 60629)) (60632 68170 (BINCOMP 60642 . 64931) (EOLTYPE 64933 . 67495) (EOLTYPE.SHOW -67497 . 68168)) (68698 81225 (FIND-UNCOMPILED-FILES 68708 . 72351) (FIND-UNSOURCED-FILES 72353 . 74737 -) (FIND-SOURCE-FILES 74739 . 76477) (FIND-COMPILED-FILES 76479 . 78356) (FIND-UNLOADED-FILES 78358 . -79211) (FIND-LOADED-FILES 79213 . 79641) (FIND-MULTICOMPILED-FILES 79643 . 81223)) (81226 89657 ( -CREATED-AS 81236 . 86033) (SOURCE-FOR-COMPILED-P 86035 . 88962) (COMPILE-SOURCE-DATE-DIFF 88964 . -89655)) (89658 100421 (FIX-DIRECTORY-DATES 89668 . 93118) (FIX-EQUIV-DATES 93120 . 94645) ( -COPY-COMPARED-FILES 94647 . 96468) (COPY-MISSING-FILES 96470 . 98627) (COMPILED-ON-SAME-SOURCE 98629 - . 100419)) (100615 108453 (CDBROWSER 100625 . 104552) (CDBROWSER.STRINGS 104554 . 108451)) (108615 -110351 (CD.TABLEITEM 108625 . 108845) (CD.TABLEITEM.PRINTFN 108847 . 109046) (CD.TABLEITEM.COPYFN -109048 . 110106) (CDTABLEBROWSER.HEADING.REPAINTFN 110108 . 110349)) (110352 132922 ( -CDTABLEBROWSER.WHENSELECTEDFN 110362 . 110830) (CD.COMMANDSELECTEDFN 110832 . 115933) (CD-MENUFN -115935 . 122161) (CD-COMPARE-FILES 122163 . 125515) (CDBROWSER-COPY 125517 . 129186) ( -CDBROWSER-DELETE-FILE 129188 . 132401) (CD-SWAPDIRS 132403 . 132920))))) + (FILEMAP (NIL (2673 23163 (COMPAREDIRECTORIES 2683 . 8018) (COMPAREDIRECTORIES.INFOS 8020 . 10978) ( +COMPAREDIRECTORIES.CANDIDATES 10980 . 14365) (CDENTRIES.SELECT 14367 . 19269) ( +COMPAREDIRECTORIES.INFOS.TYPE 19271 . 20397) (MATCHNAME 20399 . 21079) (CD.INSURECDVALUE 21081 . 22695 +) (CD.UPDATEWIDTHS 22697 . 23161)) (23164 33786 (CDFILES 23174 . 29188) (CDFILES.MATCH 29190 . 30815) +(CDFILES.PATS 30817 . 33784)) (33787 51805 (CDPRINT 33797 . 36314) (CDPRINT.HEADER 36316 . 37213) ( +CDPRINT.LINE 37215 . 40644) (CDPRINT.MAXWIDTHS 40646 . 44761) (CDPRINT.COLHEADERS 44763 . 46048) ( +CDPRINT.COLUMNS 46050 . 51170) (CDTEDIT 51172 . 51803)) (51806 60927 (CDMAP 51816 . 53248) (CDENTRY +53250 . 53559) (CDSUBSET 53561 . 55000) (CDMERGE 55002 . 58986) (CDMERGE.COMMON 58988 . 60303) ( +CD.SORT 60305 . 60925)) (60928 68466 (BINCOMP 60938 . 65227) (EOLTYPE 65229 . 67791) (EOLTYPE.SHOW +67793 . 68464)) (68994 81521 (FIND-UNCOMPILED-FILES 69004 . 72647) (FIND-UNSOURCED-FILES 72649 . 75033 +) (FIND-SOURCE-FILES 75035 . 76773) (FIND-COMPILED-FILES 76775 . 78652) (FIND-UNLOADED-FILES 78654 . +79507) (FIND-LOADED-FILES 79509 . 79937) (FIND-MULTICOMPILED-FILES 79939 . 81519)) (81522 89953 ( +CREATED-AS 81532 . 86329) (SOURCE-FOR-COMPILED-P 86331 . 89258) (COMPILE-SOURCE-DATE-DIFF 89260 . +89951)) (89954 100717 (FIX-DIRECTORY-DATES 89964 . 93414) (FIX-EQUIV-DATES 93416 . 94941) ( +COPY-COMPARED-FILES 94943 . 96764) (COPY-MISSING-FILES 96766 . 98923) (COMPILED-ON-SAME-SOURCE 98925 + . 100715)) (100911 108749 (CDBROWSER 100921 . 104848) (CDBROWSER.STRINGS 104850 . 108747)) (108911 +110647 (CD.TABLEITEM 108921 . 109141) (CD.TABLEITEM.PRINTFN 109143 . 109342) (CD.TABLEITEM.COPYFN +109344 . 110402) (CDTABLEBROWSER.HEADING.REPAINTFN 110404 . 110645)) (110648 133218 ( +CDTABLEBROWSER.WHENSELECTEDFN 110658 . 111126) (CD.COMMANDSELECTEDFN 111128 . 116229) (CD-MENUFN +116231 . 122457) (CD-COMPARE-FILES 122459 . 125811) (CDBROWSER-COPY 125813 . 129482) ( +CDBROWSER-DELETE-FILE 129484 . 132697) (CD-SWAPDIRS 132699 . 133216))))) STOP diff --git a/lispusers/COMPAREDIRECTORIES.LCOM b/lispusers/COMPAREDIRECTORIES.LCOM index 47036b4e4b8af6fce72999ea36da420ff68489c9..3a75fdb017a6d084baf809192b66a73b15c89fc4 100644 GIT binary patch delta 288 zcmaEVjOphwrU?AFS+My3je##Y7_R>r0ivuz|TG!?j%jF2UbtV~R;ObjO; zkf?X{3kmXc4b}^G^>K9$QE+w%2=ep`(ev^2b5+R9Q&4gX_3=?a)~u(er=-A@l30?O zqJYIzQv)SUE)6$NplLy_jv=ltXo{fjQc|c6_jPsgnf#Pdg~I~qTw`++g;7!*9YZ>EHWf`*%4 zu!6G-)G3+@Rslh-VV?e>!MZL$Qx%j9Ep**dlOS$4GPW`{w=y(QQs4sF#Avcvgei3) E0A(~kGynhq diff --git a/sources/TTYIN b/sources/TTYIN index ff65aad0..67964d42 100644 --- a/sources/TTYIN +++ b/sources/TTYIN @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "29-Feb-2024 10:48:51" {WMEDLEY}TTYIN.;20 328623 +(FILECREATED "24-Aug-2025 14:07:41" {WMEDLEY}TTYIN.;21 328618 :EDIT-BY rmk - :CHANGES-TO (FNS TTYIN TTYINPROMPTFORWORD TTUNREADBUF) + :CHANGES-TO (MACROS AT.END.OF.LINE) - :PREVIOUS-DATE "19-Jul-2022 23:34:14" {WMEDLEY}TTYIN.;17) + :PREVIOUS-DATE "29-Feb-2024 10:48:51" {WMEDLEY}TTYIN.;20) (PRETTYCOMPRINT TTYINCOMS) @@ -5790,7 +5790,7 @@ (PUTPROPS AT.END.OF.BUF MACRO (NIL (EQ \CURSOR \ENDBUFFER))) -(PUTPROPS AT.END.OF.LINE MACRO (NIL (EQ (fetch END of \ARROW) +(PUTPROPS AT.END.OF.LINE MACRO (NIL (EQ (fetch (LINE END) of \ARROW) \CURSOR))) (PUTPROPS AT.START.OF.BUF MACRO (NIL (EQ \CURSOR \BUFFER))) @@ -5831,7 +5831,7 @@ (PUTPROPS ON.FIRST.LINE MACRO (NIL (EQ \FIRSTLINE \ARROW))) -(PUTPROPS ON.LAST.LINE MACRO (NIL (EQ (fetch END of \ARROW) +(PUTPROPS ON.LAST.LINE MACRO (NIL (EQ (fetch (LINE END) of \ARROW) \ENDBUFFER))) (PUTPROPS METACHARP MACRO ((C) @@ -6068,62 +6068,62 @@ DONTEVAL@LOAD EVAL@COMPILE (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (7690 207621 (TTYIN 7700 . 20347) (TTYIN.SETUP 20349 . 23425) (TTYIN.CLEANUP 23427 . -24255) (TTYIN1 24257 . 51141) (TTYIN1RESTART 51143 . 52407) (TTYIN.FINISH 52409 . 61826) ( -TTYIN.BALANCE 61828 . 62954) (ADDCHAR 62956 . 65142) (TTMAKECOMPLEXCHAR 65144 . 65618) (ADDNAKEDCHAR -65620 . 67130) (TTADDTAB 67132 . 68067) (ADJUSTLINE 68069 . 81980) (ADJUSTLINE.AND.RESTORE 81982 . -82420) (AT.END.OF.SCREEN 82422 . 82710) (AT.END.OF.TEXT 82712 . 83167) (AUTOCR? 83169 . 83643) ( -BACKSKREAD 83645 . 88230) (BACKWARD.DELETE.TO 88232 . 88414) (BREAKLINE 88416 . 90683) (BUFTAILP 90685 - . 91003) (CHECK.MARGIN 91005 . 91628) (CLEAR.LINE? 91630 . 91923) (CURRENT.WORD 91925 . 94325) ( -DELETE.TO.END 94327 . 95046) (DELETELINE 95048 . 98005) (DELETETO 98007 . 99829) (DELETETO1 99831 . -101174) (DO.EDIT.COMMAND 101176 . 118495) (DO.EDIT.PP 118497 . 121159) (TTDOTABS 121161 . 122531) ( -EDITCOLUMN 122533 . 122989) (EDITNUMBERP 122991 . 123222) (END.DELETE.MODE 123224 . 123741) (ENDREAD? -123743 . 126178) (FIND.LINE 126180 . 127716) (FIND.LINE.BREAK 127718 . 128388) (FIND.MATCHING.QUOTE -128390 . 129235) (FIND.NEXT.WORD 129237 . 130616) (FIND.NON.SPACE 130618 . 130891) (FIND.START.OF.WORD - 130893 . 131256) (FORWARD.DELETE.TO 131258 . 133480) (GO.TO.ADDRESSING 133482 . 134438) ( -GO.TO.FREELINE 134440 . 135021) (GO.TO.RELATIVE 135023 . 135803) (INIT.CURSOR 135805 . 136702) ( -INSERT.NODE 136704 . 137226) (INSERTLINE 137228 . 138732) (KILL.LINES 138734 . 139272) (KILLSEGMENT -139274 . 140397) (L-CASECODE 140399 . 140560) (MOVE.BACK.TO 140562 . 140791) (MOVE.FORWARD.TO 140793 - . 141214) (MOVE.TO.LINE 141216 . 142131) (MOVE.TO.NEXT.LINE 142133 . 142403) (MOVE.TO.START.OF.WORD -142405 . 143169) (MOVE.TO.WHEREVER 143171 . 143394) (NTH.COLUMN.OF 143396 . 143727) ( -NTH.RELATIVE.COLUMN.OF 143729 . 145029) (OVERFLOW? 145031 . 145979) (OVERFLOWLINE? 145981 . 146307) ( -PREVLINE 146309 . 147489) (PREVWORD 147491 . 149632) (PROPERTAILP 149634 . 149841) (READFROMBUF 149843 - . 152432) (RENUMBER.LINES 152434 . 152827) (RESTORE.CURSOR 152829 . 152983) (RESTOREBUF 152985 . -155169) (RETYPE.BUFFER 155171 . 157434) (SAVE.CURSOR 157436 . 157608) (SCANBACK 157610 . 158968) ( -SCANFORWARD 158970 . 159838) (SCRATCHCONS 159840 . 160442) (SEGMENT.LENGTH 160444 . 160980) ( -SEGMENT.BIT.LENGTH 160982 . 161589) (SETLASTC 161591 . 161888) (SETTAIL? 161890 . 162706) ( -SHOW.MATCHING.PAREN 162708 . 165208) (SKIP/ZAP 165210 . 167689) (START.NEW.LINE 167691 . 168023) ( -START.OF.PARAGRAPH? 168025 . 168406) (TTADJUSTWORD 168408 . 169582) (TTBIN 169584 . 170790) ( -TTBITWIDTH 170792 . 170941) (TTCRLF 170943 . 171150) (TTCRLF.ACCOUNT 171152 . 171792) (TTDELETECHAR -171794 . 172938) (TTDELETELINE 172940 . 174888) (TTDELETEWORD 174890 . 175558) (TTECHO.TO.FILE 175560 - . 179119) (TTGIVEHELP 179121 . 180386) (TTGIVEHELP1 180388 . 180970) (TTGIVEHELP2 180972 . 181667) ( -TTLASTLINE 181669 . 182037) (TTLOADBUF 182039 . 185533) (TTNEXTLINE 185535 . 185855) (TTNEXTNODE -185857 . 186096) (TTNLEFT 186098 . 187325) (TTNTH 187327 . 187786) (TTNTHLINE 187788 . 188320) ( -TTPRIN1 188322 . 192135) (TTPRINSPACE 192137 . 192530) (TTPRIN1COMMENT 192532 . 192856) (TTPRIN2 -192858 . 195177) (TTPROMPTCHAR 195179 . 196075) (TTRUBOUT 196077 . 197040) (TTUNREADBUF 197042 . -197933) (TTWAITFORINPUT 197935 . 202143) (TTYINSTRING 202145 . 203104) (TYPE.BUFFER 203106 . 204858) ( -U-CASECODE 204860 . 205019) (U/L-CASE 205021 . 207619)) (207776 217135 (TTRATOM 207786 . 208230) ( -TTREADLIST 208232 . 208599) (TTSKIPSEPR 208601 . 208975) (TTSKREAD 208977 . 213617) (TTYIN.READ 213619 - . 217133)) (217182 237226 (FIND.MATCHING.WORD 217192 . 217720) (TTCOMPLETEWORD 217722 . 232150) ( -WORD.MATCHES.BUFFER 232152 . 233712) (TTYIN.SHOW.?ALTERNATIVES 233714 . 237224)) (237260 255570 ( -DO?CMD 237270 . 243172) (TTYIN.PRINTARGS 243174 . 254032) (TTYIN.READ?=ARGS 254034 . 254815) ( -DO?CMD.ERRORHANDLER 254817 . 255568)) (255604 263677 (BEEP 255614 . 255789) (BITBLT.DELETE 255791 . -256438) (BITBLT.ERASE 256440 . 256625) (BITBLT.INSERT 256627 . 256938) (DO.CRLF 256940 . 257259) ( -DO.DELETE.LINES 257261 . 258305) (DO.INSERT.LINE 258307 . 260241) (DO.LF 260243 . 260409) ( -ERASE.TO.END.OF.LINE 260411 . 260736) (ERASE.TO.END.OF.PAGE 260738 . 261343) (INSERT.TEXT 261345 . -261849) (TTDELSECTION 261851 . 262149) (TTADJUSTWIDTH 262151 . 263015) (TTINSERTSECTION 263017 . -263356) (TTSETCURSOR 263358 . 263675)) (263712 268843 (TTYINBUFFERDEVICE 263722 . 265038) ( -TTYINBUFFERSTREAM 265040 . 265956) (TTYINBUFFERBIN 265958 . 266494) (TTYINBUFFERPEEK 266496 . 266974) -(TTYINBUFFERREADP 266976 . 267231) (TTYINBUFFEREOFP 267233 . 267485) (TTYINBUFFERBACKPTR 267487 . -268039) (TTYINWORDRDTBL 268041 . 268841)) (269004 294561 (DO.MOUSE 269014 . 271771) ( -DO.SHIFTED.SELECTION 271773 . 282212) (COPY.SEGMENT 282214 . 282418) (DELETE.LONG.SEGMENT 282420 . -282779) (DELETE.LONG.SEGMENT1 282781 . 285257) (INVERT.LONG.SEGMENT 285259 . 286288) (INVERT.SEGMENT -286290 . 287805) (BRACKET.CURRENT.WORD 287807 . 289341) (TTBEFOREPOS 289343 . 290073) (TTNEXTPOS -290075 . 290783) (TTRACKMOUSE 290785 . 294559)) (294705 300078 (SETREADFN 294715 . 295193) ( -TTYINENTRYFN 295195 . 295620) (TTYINREADP 295622 . 296204) (TTYINREAD 296206 . 297600) (TTYINFIX -297602 . 298801) (CHARMACRO? 298803 . 299370) (TTYINMETA 299372 . 299500) (TTYIN.LASTINPUT 299502 . -300076)) (300079 308348 (TTYINEDIT 300089 . 302206) (SIMPLETEXTEDIT 302208 . 305252) ( -SET.TTYINEDIT.WINDOW 305254 . 306405) (TTYIN.PPTOFILE 306407 . 308346)) (308406 308583 ( -MAKE-TTSCRATCHFILE 308416 . 308581)) (308730 309863 (TTYIN.SCRATCHFILE 308740 . 309186) (\TTYIN.RPEOF -309188 . 309861)) (310075 313709 (TTYINPROMPTFORWORD 310085 . 313707))))) + (FILEMAP (NIL (7671 207602 (TTYIN 7681 . 20328) (TTYIN.SETUP 20330 . 23406) (TTYIN.CLEANUP 23408 . +24236) (TTYIN1 24238 . 51122) (TTYIN1RESTART 51124 . 52388) (TTYIN.FINISH 52390 . 61807) ( +TTYIN.BALANCE 61809 . 62935) (ADDCHAR 62937 . 65123) (TTMAKECOMPLEXCHAR 65125 . 65599) (ADDNAKEDCHAR +65601 . 67111) (TTADDTAB 67113 . 68048) (ADJUSTLINE 68050 . 81961) (ADJUSTLINE.AND.RESTORE 81963 . +82401) (AT.END.OF.SCREEN 82403 . 82691) (AT.END.OF.TEXT 82693 . 83148) (AUTOCR? 83150 . 83624) ( +BACKSKREAD 83626 . 88211) (BACKWARD.DELETE.TO 88213 . 88395) (BREAKLINE 88397 . 90664) (BUFTAILP 90666 + . 90984) (CHECK.MARGIN 90986 . 91609) (CLEAR.LINE? 91611 . 91904) (CURRENT.WORD 91906 . 94306) ( +DELETE.TO.END 94308 . 95027) (DELETELINE 95029 . 97986) (DELETETO 97988 . 99810) (DELETETO1 99812 . +101155) (DO.EDIT.COMMAND 101157 . 118476) (DO.EDIT.PP 118478 . 121140) (TTDOTABS 121142 . 122512) ( +EDITCOLUMN 122514 . 122970) (EDITNUMBERP 122972 . 123203) (END.DELETE.MODE 123205 . 123722) (ENDREAD? +123724 . 126159) (FIND.LINE 126161 . 127697) (FIND.LINE.BREAK 127699 . 128369) (FIND.MATCHING.QUOTE +128371 . 129216) (FIND.NEXT.WORD 129218 . 130597) (FIND.NON.SPACE 130599 . 130872) (FIND.START.OF.WORD + 130874 . 131237) (FORWARD.DELETE.TO 131239 . 133461) (GO.TO.ADDRESSING 133463 . 134419) ( +GO.TO.FREELINE 134421 . 135002) (GO.TO.RELATIVE 135004 . 135784) (INIT.CURSOR 135786 . 136683) ( +INSERT.NODE 136685 . 137207) (INSERTLINE 137209 . 138713) (KILL.LINES 138715 . 139253) (KILLSEGMENT +139255 . 140378) (L-CASECODE 140380 . 140541) (MOVE.BACK.TO 140543 . 140772) (MOVE.FORWARD.TO 140774 + . 141195) (MOVE.TO.LINE 141197 . 142112) (MOVE.TO.NEXT.LINE 142114 . 142384) (MOVE.TO.START.OF.WORD +142386 . 143150) (MOVE.TO.WHEREVER 143152 . 143375) (NTH.COLUMN.OF 143377 . 143708) ( +NTH.RELATIVE.COLUMN.OF 143710 . 145010) (OVERFLOW? 145012 . 145960) (OVERFLOWLINE? 145962 . 146288) ( +PREVLINE 146290 . 147470) (PREVWORD 147472 . 149613) (PROPERTAILP 149615 . 149822) (READFROMBUF 149824 + . 152413) (RENUMBER.LINES 152415 . 152808) (RESTORE.CURSOR 152810 . 152964) (RESTOREBUF 152966 . +155150) (RETYPE.BUFFER 155152 . 157415) (SAVE.CURSOR 157417 . 157589) (SCANBACK 157591 . 158949) ( +SCANFORWARD 158951 . 159819) (SCRATCHCONS 159821 . 160423) (SEGMENT.LENGTH 160425 . 160961) ( +SEGMENT.BIT.LENGTH 160963 . 161570) (SETLASTC 161572 . 161869) (SETTAIL? 161871 . 162687) ( +SHOW.MATCHING.PAREN 162689 . 165189) (SKIP/ZAP 165191 . 167670) (START.NEW.LINE 167672 . 168004) ( +START.OF.PARAGRAPH? 168006 . 168387) (TTADJUSTWORD 168389 . 169563) (TTBIN 169565 . 170771) ( +TTBITWIDTH 170773 . 170922) (TTCRLF 170924 . 171131) (TTCRLF.ACCOUNT 171133 . 171773) (TTDELETECHAR +171775 . 172919) (TTDELETELINE 172921 . 174869) (TTDELETEWORD 174871 . 175539) (TTECHO.TO.FILE 175541 + . 179100) (TTGIVEHELP 179102 . 180367) (TTGIVEHELP1 180369 . 180951) (TTGIVEHELP2 180953 . 181648) ( +TTLASTLINE 181650 . 182018) (TTLOADBUF 182020 . 185514) (TTNEXTLINE 185516 . 185836) (TTNEXTNODE +185838 . 186077) (TTNLEFT 186079 . 187306) (TTNTH 187308 . 187767) (TTNTHLINE 187769 . 188301) ( +TTPRIN1 188303 . 192116) (TTPRINSPACE 192118 . 192511) (TTPRIN1COMMENT 192513 . 192837) (TTPRIN2 +192839 . 195158) (TTPROMPTCHAR 195160 . 196056) (TTRUBOUT 196058 . 197021) (TTUNREADBUF 197023 . +197914) (TTWAITFORINPUT 197916 . 202124) (TTYINSTRING 202126 . 203085) (TYPE.BUFFER 203087 . 204839) ( +U-CASECODE 204841 . 205000) (U/L-CASE 205002 . 207600)) (207757 217116 (TTRATOM 207767 . 208211) ( +TTREADLIST 208213 . 208580) (TTSKIPSEPR 208582 . 208956) (TTSKREAD 208958 . 213598) (TTYIN.READ 213600 + . 217114)) (217163 237207 (FIND.MATCHING.WORD 217173 . 217701) (TTCOMPLETEWORD 217703 . 232131) ( +WORD.MATCHES.BUFFER 232133 . 233693) (TTYIN.SHOW.?ALTERNATIVES 233695 . 237205)) (237241 255551 ( +DO?CMD 237251 . 243153) (TTYIN.PRINTARGS 243155 . 254013) (TTYIN.READ?=ARGS 254015 . 254796) ( +DO?CMD.ERRORHANDLER 254798 . 255549)) (255585 263658 (BEEP 255595 . 255770) (BITBLT.DELETE 255772 . +256419) (BITBLT.ERASE 256421 . 256606) (BITBLT.INSERT 256608 . 256919) (DO.CRLF 256921 . 257240) ( +DO.DELETE.LINES 257242 . 258286) (DO.INSERT.LINE 258288 . 260222) (DO.LF 260224 . 260390) ( +ERASE.TO.END.OF.LINE 260392 . 260717) (ERASE.TO.END.OF.PAGE 260719 . 261324) (INSERT.TEXT 261326 . +261830) (TTDELSECTION 261832 . 262130) (TTADJUSTWIDTH 262132 . 262996) (TTINSERTSECTION 262998 . +263337) (TTSETCURSOR 263339 . 263656)) (263693 268824 (TTYINBUFFERDEVICE 263703 . 265019) ( +TTYINBUFFERSTREAM 265021 . 265937) (TTYINBUFFERBIN 265939 . 266475) (TTYINBUFFERPEEK 266477 . 266955) +(TTYINBUFFERREADP 266957 . 267212) (TTYINBUFFEREOFP 267214 . 267466) (TTYINBUFFERBACKPTR 267468 . +268020) (TTYINWORDRDTBL 268022 . 268822)) (268985 294542 (DO.MOUSE 268995 . 271752) ( +DO.SHIFTED.SELECTION 271754 . 282193) (COPY.SEGMENT 282195 . 282399) (DELETE.LONG.SEGMENT 282401 . +282760) (DELETE.LONG.SEGMENT1 282762 . 285238) (INVERT.LONG.SEGMENT 285240 . 286269) (INVERT.SEGMENT +286271 . 287786) (BRACKET.CURRENT.WORD 287788 . 289322) (TTBEFOREPOS 289324 . 290054) (TTNEXTPOS +290056 . 290764) (TTRACKMOUSE 290766 . 294540)) (294686 300059 (SETREADFN 294696 . 295174) ( +TTYINENTRYFN 295176 . 295601) (TTYINREADP 295603 . 296185) (TTYINREAD 296187 . 297581) (TTYINFIX +297583 . 298782) (CHARMACRO? 298784 . 299351) (TTYINMETA 299353 . 299481) (TTYIN.LASTINPUT 299483 . +300057)) (300060 308329 (TTYINEDIT 300070 . 302187) (SIMPLETEXTEDIT 302189 . 305233) ( +SET.TTYINEDIT.WINDOW 305235 . 306386) (TTYIN.PPTOFILE 306388 . 308327)) (308387 308564 ( +MAKE-TTSCRATCHFILE 308397 . 308562)) (308711 309844 (TTYIN.SCRATCHFILE 308721 . 309167) (\TTYIN.RPEOF +309169 . 309842)) (310056 313690 (TTYINPROMPTFORWORD 310066 . 313688))))) STOP diff --git a/sources/TTYIN.LCOM b/sources/TTYIN.LCOM index 2bc599ffbe756b09bc7a47a89bdbb6f0f2b0db6e..7cd974d2a5896341abc416b466bda6a8610b7414 100644 GIT binary patch delta 225 zcmeC&%kq5>%Y+Ca6J5vBbX_9@BU1%K6DtFAE0c*?x{`*P3S3G?$Z|$jCZ<*bQbaWRhSr4WdO6lIi~;s delta 234 zcmeyqhoy5b%Y=x@6B$J(=4weAXew|i8JX+4r6%bb85o%;7#LU?nOYf}PTU~o9TF1h z>8FsHr=a8(>f@t;tV~Z&Pe~yqu_QGGt9}y$B~303H%}i|=O9HJ3dTkj zW=6)7eHo>L-28$SxF8mQ$$%h#-+&M||DbUHAQy#@kWfFMMi-}0H%$erfFRc}Pyf(h vT^FEH3QC5Sx?ZI@Am7#Uj`n^+l|C@FAFtd(RkG;co0xcwj_<2D%pV2C{`