Qualify record names in MASTERSCOPE COMPAREDIRECTORIES TTYIN (#2270)
To avoid conflicts when creating fuller.database
This commit is contained in:
rmkaplan
GitHub
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 5-Apr-2025 11:49:04" {WMEDLEY}<library>MASTERSCOPE.;29 197994
|
||||
(FILECREATED "24-Aug-2025 13:45:51" {WMEDLEY}<library>MASTERSCOPE.;30 197199
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS MSOUTPUT)
|
||||
:CHANGES-TO (FNS MSINTERPRET)
|
||||
|
||||
:PREVIOUS-DATE "14-Jul-2024 08:42:20" {WMEDLEY}<library>MASTERSCOPE.;28)
|
||||
:PREVIOUS-DATE " 5-Apr-2025 11:49:04" {WMEDLEY}<library>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
|
||||
|
||||
Binary file not shown.
@@ -1,13 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "26-Mar-2025 09:41:31" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;267 133447
|
||||
(FILECREATED "24-Aug-2025 13:38:35" {WMEDLEY}<lispusers>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}<lispusers>COMPAREDIRECTORIES.;264)
|
||||
:PREVIOUS-DATE "26-Mar-2025 09:41:31" {WMEDLEY}<lispusers>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
|
||||
|
||||
Binary file not shown.
126
sources/TTYIN
126
sources/TTYIN
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "29-Feb-2024 10:48:51" {WMEDLEY}<sources>TTYIN.;20 328623
|
||||
(FILECREATED "24-Aug-2025 14:07:41" {WMEDLEY}<sources>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}<sources>TTYIN.;17)
|
||||
:PREVIOUS-DATE "29-Feb-2024 10:48:51" {WMEDLEY}<sources>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
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user