Compare commits
5 Commits
medley-250
...
medley-250
| Author | SHA1 | Date | |
|---|---|---|---|
|
17515ef441 | ||
|
|
83bbf9e4c0 | ||
|
|
1a8a5ca90e | ||
|
|
2961670d7d | ||
|
|
0206fb6f43 |
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "13-Jul-2025 11:41:03" {WMEDLEY}<internal>loadups>LOADUP-FULL.;28 5184
|
||||
(FILECREATED " 1-Sep-2025 11:59:41" {WMEDLEY}<internal>loadups>LOADUP-FULL.;31 5430
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS LOADFULLFONTS)
|
||||
:CHANGES-TO (FNS LOADUP-FULL)
|
||||
|
||||
:PREVIOUS-DATE "30-Jun-2025 00:04:34" {WMEDLEY}<internal>loadups>LOADUP-FULL.;27)
|
||||
:PREVIOUS-DATE "18-Aug-2025 12:09:49" {WMEDLEY}<internal>loadups>LOADUP-FULL.;29)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT LOADUP-FULLCOMS)
|
||||
@@ -45,7 +45,9 @@
|
||||
(PRINTOUT T "FULL fonts loaded" T])
|
||||
|
||||
(LOADUP-FULL
|
||||
[LAMBDA (DRIBBLEFILE) (* ; "Edited 21-Jun-2025 23:33 by rmk")
|
||||
[LAMBDA (DRIBBLEFILE) (* ; "Edited 1-Sep-2025 11:59 by rmk")
|
||||
(* ; "Edited 18-Aug-2025 12:09 by rmk")
|
||||
(* ; "Edited 21-Jun-2025 23:33 by rmk")
|
||||
(* ; "Edited 18-Jan-2023 16:22 by FGH")
|
||||
(* ; "Edited 12-Aug-2022 11:17 by lmm")
|
||||
(* ; "Edited 14-Jul-2022 12:32 by rmk")
|
||||
@@ -70,16 +72,18 @@
|
||||
(PRINTOUT T T "Full loadup started at " (DATE)
|
||||
" while connected to "
|
||||
(DIRECTORYNAME T)
|
||||
T T)
|
||||
(LOADUP '(MULTI-ALIST)) (* ; "For FONTSAVAILABLE lookup")
|
||||
T T) (* ; "For FONTSAVAILABLE lookup")
|
||||
(LOADUP '(POSTSCRIPTSTREAM)) (* ; " to get PSCFONT.READFONT")
|
||||
(LOADFULLFONTS)
|
||||
(LISTPUT IDLE.PROFILE 'TIMEOUT 0)
|
||||
(SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)
|
||||
(LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER
|
||||
THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT
|
||||
ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE
|
||||
UNIXCOMM UNIXCHAT UNIXYCD UNIXUTILS))
|
||||
|
||||
(* ;; "RMK: 2025: PRESS was after CHAT")
|
||||
|
||||
(LOADUP '(CHAT INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES
|
||||
GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT ISO8859IO
|
||||
HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE UNIXCOMM
|
||||
UNIXCHAT UNIXYCD UNIXUTILS))
|
||||
(COND
|
||||
((WINDOWP *WHO-LINE*)
|
||||
(CLOSEW *WHO-LINE*)))
|
||||
@@ -94,5 +98,5 @@
|
||||
|
||||
(FIXMETA)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (458 5146 (LOADFULLFONTS 468 . 2373) (LOADUP-FULL 2375 . 4896) (FIXMETA 4898 . 5144)))))
|
||||
(FILEMAP (NIL (456 5392 (LOADFULLFONTS 466 . 2371) (LOADUP-FULL 2373 . 5142) (FIXMETA 5144 . 5390)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
|
||||
(FILECREATED "15-Jun-2025 14:39:57" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;20| 6425
|
||||
(FILECREATED "18-Aug-2025 12:09:49" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;21| 6713
|
||||
|
||||
:EDIT-BY |rmk|
|
||||
|
||||
:CHANGES-TO (FNS LOADUP-LISP)
|
||||
|
||||
:PREVIOUS-DATE "24-May-2025 10:20:14" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;14|)
|
||||
:PREVIOUS-DATE "15-Jun-2025 14:39:57" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;20|)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT LOADUP-LISPCOMS)
|
||||
@@ -19,7 +19,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(LOADUP-LISP
|
||||
(LAMBDA (DRIBBLEFILE) (* \; "Edited 15-Jun-2025 14:39 by rmk")
|
||||
(LAMBDA (DRIBBLEFILE) (* \; "Edited 18-Aug-2025 12:08 by rmk")
|
||||
(* \; "Edited 15-Jun-2025 14:39 by rmk")
|
||||
(* \; "Edited 24-May-2025 10:20 by rmk")
|
||||
(* \; "Edited 21-May-2025 09:25 by rmk")
|
||||
(* \; "Edited 5-May-2025 21:25 by rmk")
|
||||
@@ -43,6 +44,8 @@
|
||||
(* |;;| "following files are really loaded earlier, this call to LOADUP just cleans up")
|
||||
|
||||
(LOADUP '(ACODE MACHINEINDEPENDENT))
|
||||
(LOADUP '(MULTI-ALIST)) (* \;
|
||||
"So it's functions are available e.g. for FONTPROFILE")
|
||||
|
||||
(* |;;| "establish all package exports early")
|
||||
|
||||
@@ -138,5 +141,5 @@
|
||||
(GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
|
||||
)
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (640 6219 (LOADUP-LISP 650 . 6217)))))
|
||||
(FILEMAP (NIL (640 6507 (LOADUP-LISP 650 . 6505)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -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,14 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 1-Aug-2025 14:50:15"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT.;835 145114
|
||||
(FILECREATED " 8-Sep-2025 22:10:20" {WMEDLEY}<library>TEDIT>TEDIT.;838 145349
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.PARA.FIRST \TEDIT.PARA.LAST)
|
||||
:CHANGES-TO (FNS TEDIT.NTHCHARCODE)
|
||||
|
||||
:PREVIOUS-DATE "28-Jul-2025 23:49:50"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT.;834)
|
||||
:PREVIOUS-DATE " 6-Sep-2025 09:54:48" {WMEDLEY}<library>TEDIT>TEDIT.;837)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDITCOMS)
|
||||
@@ -762,7 +760,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(TEDIT.INSERT.OBJECT
|
||||
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 28-Jul-2025 23:48 by rmk")
|
||||
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 6-Sep-2025 08:54 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:48 by rmk")
|
||||
(* ; "Edited 7-May-2025 00:10 by rmk")
|
||||
(* ; "Edited 21-Apr-2025 22:17 by rmk")
|
||||
(* ; "Edited 6-Apr-2025 14:10 by rmk")
|
||||
@@ -824,7 +823,7 @@
|
||||
0
|
||||
'LEFT)
|
||||
(\TEDIT.FIXSEL SEL TSTREAM))
|
||||
(\TEDIT.INSERT.SELPIECES OBJSELPIECES TEXTOBJ SEL)
|
||||
(\TEDIT.INSERT.SELPIECES OBJSELPIECES TSTREAM SEL)
|
||||
(CL:WHEN LOOKS (\TEDIT.CHANGE.CHARLOOKS TSTREAM LOOKS SEL))
|
||||
(\TEDIT.SCROLL.CARET TSTREAM)
|
||||
(\TEDIT.SEL.ON TSTREAM])
|
||||
@@ -1163,7 +1162,8 @@
|
||||
(\TEDIT.RPLCHARCODE TSTREAM N NEWCHARCODE NEWCHARLOOKS DONTDISPLAY])
|
||||
|
||||
(TEDIT.NTHCHARCODE
|
||||
[LAMBDA (TSTREAM N) (* ; "Edited 28-Mar-2025 14:10 by rmk")
|
||||
[LAMBDA (TSTREAM N) (* ; "Edited 8-Sep-2025 22:09 by rmk")
|
||||
(* ; "Edited 28-Mar-2025 14:10 by rmk")
|
||||
(* ; "Edited 7-Jul-2024 11:09 by rmk")
|
||||
(* ; "Edited 29-Apr-2024 13:06 by rmk")
|
||||
(* ; "Edited 17-Mar-2024 00:27 by rmk")
|
||||
@@ -1186,7 +1186,7 @@
|
||||
(* ;; "Out of the selection: force NIL")
|
||||
|
||||
(SETQ N 0)))
|
||||
(SETQ TSTREAM (TSTREAM TSTREAM))
|
||||
(SETQ TSTREAM (TEXTSTREAM TSTREAM))
|
||||
else (SETQ TSTREAM (TEXTSTREAM TSTREAM))
|
||||
(CL:WHEN (ILESSP N 0)
|
||||
(SETQ N (IPLUS (TEDIT.NCHARS TSTREAM)
|
||||
@@ -1527,7 +1527,8 @@
|
||||
(\TEDIT.SCROLL.CARET TOTSTREAM)))])
|
||||
|
||||
(\TEDIT.REPLACE.SELPIECES
|
||||
[LAMBDA (INSERTSELPIECES TSTREAM SEL) (* ; "Edited 7-May-2025 00:13 by rmk")
|
||||
[LAMBDA (INSERTSELPIECES TSTREAM SEL) (* ; "Edited 6-Sep-2025 09:54 by rmk")
|
||||
(* ; "Edited 7-May-2025 00:13 by rmk")
|
||||
(* ; "Edited 21-Apr-2025 22:29 by rmk")
|
||||
(* ; "Edited 19-Mar-2025 15:46 by rmk")
|
||||
(* ; "Edited 8-Dec-2024 13:46 by rmk")
|
||||
@@ -1578,7 +1579,7 @@
|
||||
|
||||
(CL:WHEN (AND INSERTSELPIECES (IGEQ (SETQ ILEN (GETSPC INSERTSELPIECES SPLEN))
|
||||
0)
|
||||
(\TEDIT.INSERT.SELPIECES INSERTSELPIECES TEXTOBJ SEL T))
|
||||
(\TEDIT.INSERT.SELPIECES INSERTSELPIECES TSTREAM SEL T))
|
||||
|
||||
(* ;; "If both delete and insert happened, foush the insert event and upgrade the DELEVENT to a single :Replace. The insert has not updated the lines or the selection")
|
||||
|
||||
@@ -2325,26 +2326,26 @@
|
||||
(ADDTOVAR PRINTFILETYPES (TEDIT (TEST \TEDIT.GET.TRAILER)
|
||||
(EXTENSION (TEDIT))))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4922 7316 (MAKE-TEDIT-EXPORTS.ALL 4932 . 5478) (UPDATE-TEDIT 5480 . 6409) (EDIT-TEDIT
|
||||
6411 . 7314)) (8746 36804 (TEDIT 8756 . 11370) (TEXTSTREAM 11372 . 13261) (TEXTSTREAMP 13263 . 13647)
|
||||
(COERCETEXTSTREAM 13649 . 17860) (TEDIT.CONCAT 17862 . 21164) (TEDITSTRING 21166 . 22080) (TEDIT-SEE
|
||||
22082 . 22641) (TEDIT.COPY 22643 . 24788) (TEDIT.DELETE 24790 . 26151) (TEDIT.INSERT 26153 . 29527) (
|
||||
TEDIT.TERPRI 29529 . 30643) (TEDIT.KILL 30645 . 31627) (TEDIT.QUIT 31629 . 32995) (TEDIT.MOVE 32997 .
|
||||
33885) (TEDIT.STRINGWIDTH 33887 . 34558) (TEDIT.CHARWIDTH 34560 . 36802)) (36805 38746 (TEXTOBJ 36815
|
||||
. 37280) (COERCETEXTOBJ 37282 . 38744)) (40146 41796 (TDRIBBLE 40156 . 41794)) (41837 53624 (
|
||||
TEDIT.INSERT.OBJECT 41847 . 45445) (TEDIT.EDIT.OBJECT 45447 . 48387) (TEDIT.OBJECT.CHANGED 48389 .
|
||||
51579) (TEDIT.MAP.OBJECTS 51581 . 53152) (\TEDIT.FIRST.OBJPIECE 53154 . 53387) (\TEDIT.NEXT.OBJPIECE
|
||||
53389 . 53622)) (53647 61090 (\TEDIT.CONCAT.PAGEFRAMES 53657 . 58724) (\TEDIT.GET.PAGE.HEADINGS 58726
|
||||
. 59755) (\TEDIT.CONCAT.INSTALL.HEADINGS 59757 . 61088)) (61091 64698 (\TEDIT.MOVE.MSG 61101 . 63182)
|
||||
(\TEDIT.READONLY 63184 . 64696)) (64699 70474 (TEDIT.NCHARS 64709 . 65082) (TEDIT.RPLCHARCODE 65084
|
||||
. 68074) (TEDIT.NTHCHARCODE 68076 . 70003) (TEDIT.NTHCHAR 70005 . 70472)) (70520 127440 (\TEDIT1
|
||||
70530 . 72607) (\TEDIT.INSERT 72609 . 78974) (\TEDIT.MOVE 78976 . 86882) (\TEDIT.COPY 86884 . 91415) (
|
||||
\TEDIT.REPLACE.SELPIECES 91417 . 95844) (\TEDIT.INSERT.SELPIECES 95846 . 98843) (\TEDIT.RESTARTFN
|
||||
98845 . 101350) (\TEDIT.CHARDELETE 101352 . 104281) (\TEDIT.COPYPIECE 104283 . 109445) (
|
||||
\TEDIT.APPLY.OBJFN 109447 . 112533) (\TEDIT.DELETE 112535 . 116903) (\TEDIT.DIFFUSE.PARALOOKS 116905
|
||||
. 119176) (\TEDIT.WORDDELETE 119178 . 120793) (\TEDIT.WORDDELETE.FORWARD 120795 . 122584) (
|
||||
\TEDIT.FINISHEDIT? 122586 . 127438)) (127441 128100 (\TEDIT.THELP 127451 . 128098)) (128134 137265 (
|
||||
\TEDIT.PARAPIECES 128144 . 130118) (\TEDIT.PARACHNOS 130120 . 131012) (\TEDIT.PARA.FIRST 131014 .
|
||||
134115) (\TEDIT.PARA.LAST 134117 . 137263)) (137266 144361 (\TEDIT.WORD.FIRST 137276 . 141280) (
|
||||
\TEDIT.WORD.LAST 141282 . 144359)) (144562 144839 (TEDITSYSTEMDATE 144572 . 144837)))))
|
||||
(FILEMAP (NIL (4823 7217 (MAKE-TEDIT-EXPORTS.ALL 4833 . 5379) (UPDATE-TEDIT 5381 . 6310) (EDIT-TEDIT
|
||||
6312 . 7215)) (8647 36705 (TEDIT 8657 . 11271) (TEXTSTREAM 11273 . 13162) (TEXTSTREAMP 13164 . 13548)
|
||||
(COERCETEXTSTREAM 13550 . 17761) (TEDIT.CONCAT 17763 . 21065) (TEDITSTRING 21067 . 21981) (TEDIT-SEE
|
||||
21983 . 22542) (TEDIT.COPY 22544 . 24689) (TEDIT.DELETE 24691 . 26052) (TEDIT.INSERT 26054 . 29428) (
|
||||
TEDIT.TERPRI 29430 . 30544) (TEDIT.KILL 30546 . 31528) (TEDIT.QUIT 31530 . 32896) (TEDIT.MOVE 32898 .
|
||||
33786) (TEDIT.STRINGWIDTH 33788 . 34459) (TEDIT.CHARWIDTH 34461 . 36703)) (36706 38647 (TEXTOBJ 36716
|
||||
. 37181) (COERCETEXTOBJ 37183 . 38645)) (40047 41697 (TDRIBBLE 40057 . 41695)) (41738 53634 (
|
||||
TEDIT.INSERT.OBJECT 41748 . 45455) (TEDIT.EDIT.OBJECT 45457 . 48397) (TEDIT.OBJECT.CHANGED 48399 .
|
||||
51589) (TEDIT.MAP.OBJECTS 51591 . 53162) (\TEDIT.FIRST.OBJPIECE 53164 . 53397) (\TEDIT.NEXT.OBJPIECE
|
||||
53399 . 53632)) (53657 61100 (\TEDIT.CONCAT.PAGEFRAMES 53667 . 58734) (\TEDIT.GET.PAGE.HEADINGS 58736
|
||||
. 59765) (\TEDIT.CONCAT.INSTALL.HEADINGS 59767 . 61098)) (61101 64708 (\TEDIT.MOVE.MSG 61111 . 63192)
|
||||
(\TEDIT.READONLY 63194 . 64706)) (64709 70600 (TEDIT.NCHARS 64719 . 65092) (TEDIT.RPLCHARCODE 65094
|
||||
. 68084) (TEDIT.NTHCHARCODE 68086 . 70129) (TEDIT.NTHCHAR 70131 . 70598)) (70646 127675 (\TEDIT1
|
||||
70656 . 72733) (\TEDIT.INSERT 72735 . 79100) (\TEDIT.MOVE 79102 . 87008) (\TEDIT.COPY 87010 . 91541) (
|
||||
\TEDIT.REPLACE.SELPIECES 91543 . 96079) (\TEDIT.INSERT.SELPIECES 96081 . 99078) (\TEDIT.RESTARTFN
|
||||
99080 . 101585) (\TEDIT.CHARDELETE 101587 . 104516) (\TEDIT.COPYPIECE 104518 . 109680) (
|
||||
\TEDIT.APPLY.OBJFN 109682 . 112768) (\TEDIT.DELETE 112770 . 117138) (\TEDIT.DIFFUSE.PARALOOKS 117140
|
||||
. 119411) (\TEDIT.WORDDELETE 119413 . 121028) (\TEDIT.WORDDELETE.FORWARD 121030 . 122819) (
|
||||
\TEDIT.FINISHEDIT? 122821 . 127673)) (127676 128335 (\TEDIT.THELP 127686 . 128333)) (128369 137500 (
|
||||
\TEDIT.PARAPIECES 128379 . 130353) (\TEDIT.PARACHNOS 130355 . 131247) (\TEDIT.PARA.FIRST 131249 .
|
||||
134350) (\TEDIT.PARA.LAST 134352 . 137498)) (137501 144596 (\TEDIT.WORD.FIRST 137511 . 141515) (
|
||||
\TEDIT.WORD.LAST 141517 . 144594)) (144797 145074 (TEDITSYSTEMDATE 144807 . 145072)))))
|
||||
STOP
|
||||
|
||||
@@ -1,15 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 1-Aug-2025 14:58:21"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-OLDFILE.;38 73837
|
||||
(FILECREATED " 8-Sep-2025 22:10:10" {WMEDLEY}<library>TEDIT>TEDIT-OLDFILE.;40 73888
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.GET.CHARLOOKS2 \TEDIT.GET.PCTB1 \TEDIT.GET.PCTB2
|
||||
\TEDIT.GET.SINGLE.CHARLOOKS2 \TEDIT.GET.CHARLOOKS0 \TEDIT.GET.CHARLOOKS1)
|
||||
:CHANGES-TO (FNS \TEDIT.GET.PCTB2)
|
||||
|
||||
:PREVIOUS-DATE "28-Jul-2025 23:43:57"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-OLDFILE.;34)
|
||||
:PREVIOUS-DATE " 7-Sep-2025 11:07:57" {WMEDLEY}<library>TEDIT>TEDIT-OLDFILE.;39)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-OLDFILECOMS)
|
||||
@@ -49,7 +46,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.GET.PCTB2
|
||||
[LAMBDA (TEXT TSTREAM PCCOUNT START END) (* ; "Edited 1-Aug-2025 14:55 by rmk")
|
||||
[LAMBDA (TEXT TSTREAM PCCOUNT START END) (* ; "Edited 8-Sep-2025 22:08 by rmk")
|
||||
(* ; "Edited 1-Aug-2025 14:55 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:39 by rmk")
|
||||
(* ; "Edited 8-Feb-2025 20:21 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
@@ -73,7 +71,7 @@
|
||||
|
||||
(* ;; "END = use this as eofptr of file. For use in reading files within files.")
|
||||
|
||||
(LET ((TEXTOBJ (FTEXTOBJ (TSTREAM)))
|
||||
(LET ((TEXTOBJ (FTEXTOBJ TSTREAM))
|
||||
PIECEINFOCH#
|
||||
(CURFILECH# (OR START 0))
|
||||
LOOKSHASH PARAHASH)
|
||||
@@ -283,7 +281,8 @@
|
||||
(for I from 1 to (\WIN FILE) collect (\TEDIT.GET.SINGLE.CHARLOOKS2 FILE])
|
||||
|
||||
(\TEDIT.GET.SINGLE.CHARLOOKS2
|
||||
[LAMBDA (FILE) (* ; "Edited 1-Aug-2025 12:13 by rmk")
|
||||
[LAMBDA (FILE) (* ; "Edited 7-Sep-2025 11:03 by rmk")
|
||||
(* ; "Edited 1-Aug-2025 12:13 by rmk")
|
||||
(* ; "Edited 7-Jan-2025 12:29 by rmk")
|
||||
(* ; "Edited 2-Jan-2025 11:09 by rmk")
|
||||
(* ; "Edited 31-Jul-2024 00:05 by rmk")
|
||||
@@ -327,7 +326,6 @@
|
||||
(BOLD 'BOLD)
|
||||
(ITALIC 'ITALIC]
|
||||
(FSETCLOOKS LOOKS CLFONT FONT)
|
||||
(FSETCLOOKS LOOKS CLNAME (FONTUNPARSE FONT))
|
||||
(RETURN LOOKS])
|
||||
|
||||
(\TEDIT.PUT.SINGLE.PARALOOKS2
|
||||
@@ -730,7 +728,8 @@
|
||||
(\TEDIT.PARSE.PAGEFRAMES1 (pop PAGELIST])
|
||||
|
||||
(\TEDIT.GET.CHARLOOKS1
|
||||
[LAMBDA (PC FILE) (* ; "Edited 1-Aug-2025 12:18 by rmk")
|
||||
[LAMBDA (PC FILE) (* ; "Edited 7-Sep-2025 11:03 by rmk")
|
||||
(* ; "Edited 1-Aug-2025 12:18 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:40 by rmk")
|
||||
(* ; "Edited 2-Jan-2025 11:09 by rmk")
|
||||
(* ; "Edited 31-Jul-2024 00:05 by rmk")
|
||||
@@ -788,7 +787,6 @@
|
||||
(ITALIC 'ITALIC]
|
||||
else (* ; "Should never happen")
|
||||
(FONTCREATE DEFAULTFONT)))
|
||||
(FSETCLOOKS LOOKS CLNAME (FONTUNPARSE FONT))
|
||||
(FSETCLOOKS LOOKS CLFONT FONT])
|
||||
|
||||
(\TEDIT.GET.PARALOOKS1
|
||||
@@ -956,7 +954,8 @@
|
||||
(\TEDIT.INSERTPIECE PC NIL TEXTOBJ) finally (\TEDIT.UNIQUIFY.ALL TEXTOBJ])
|
||||
|
||||
(\TEDIT.GET.CHARLOOKS0
|
||||
[LAMBDA (PC FILE) (* ; "Edited 1-Aug-2025 12:17 by rmk")
|
||||
[LAMBDA (PC FILE) (* ; "Edited 7-Sep-2025 11:03 by rmk")
|
||||
(* ; "Edited 1-Aug-2025 12:17 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:39 by rmk")
|
||||
(* ; "Edited 2-Jan-2025 11:09 by rmk")
|
||||
(* ; "Edited 31-Jul-2024 00:05 by rmk")
|
||||
@@ -1015,7 +1014,6 @@
|
||||
else (* ; "Should never happen")
|
||||
(FONTCREATE DEFAULTFONT)))
|
||||
(FSETCLOOKS LOOKS CLFONT FONT)
|
||||
(FSETCLOOKS LOOKS CLNAME (FONTUNPARSE FONT))
|
||||
(RETURN LOOKS])
|
||||
|
||||
(\TEDIT.GET.OBJECT0
|
||||
@@ -1102,14 +1100,14 @@
|
||||
PARALOOKS])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1867 37890 (\TEDIT.GET.PCTB2 1877 . 12526) (\TEDIT.GET.PARALOOKS2 12528 . 13117) (
|
||||
\TEDIT.GET.CHARLOOKS2 13119 . 14676) (\TEDIT.PARSE.PAGEFRAMES2 14678 . 17417) (
|
||||
\TEDIT.GET.CHARLOOKS.LIST2 17419 . 17926) (\TEDIT.GET.SINGLE.CHARLOOKS2 17928 . 21234) (
|
||||
\TEDIT.PUT.SINGLE.PARALOOKS2 21236 . 25486) (\TEDIT.PUT.SINGLE.CHARLOOKS2 25488 . 29198) (
|
||||
\TEDIT.GET.PARALOOKS.LIST2 29200 . 29707) (\TEDIT.GET.SINGLE.PARALOOKS2 29709 . 34608) (
|
||||
\TEDIT.PUT.CHARLOOKS.LIST2 34610 . 36689) (\TEDIT.PUT.PARALOOKS.LIST2 36691 . 37888)) (37967 59193 (
|
||||
\TEDIT.GET.PCTB1 37977 . 44994) (\TEDIT.GET.PAGEFRAMES1 44996 . 45448) (\TEDIT.PARSE.PAGEFRAMES1 45450
|
||||
. 48103) (\TEDIT.GET.CHARLOOKS1 48105 . 52416) (\TEDIT.GET.PARALOOKS1 52418 . 57329) (
|
||||
TEDIT.GET.OBJECT1 57331 . 59191)) (59253 73814 (\TEDIT.GET.PCTB0 59263 . 63344) (\TEDIT.GET.CHARLOOKS0
|
||||
63346 . 67732) (\TEDIT.GET.OBJECT0 67734 . 69809) (\TEDIT.GET.PARALOOKS0 69811 . 73812)))))
|
||||
(FILEMAP (NIL (1649 37832 (\TEDIT.GET.PCTB2 1659 . 12415) (\TEDIT.GET.PARALOOKS2 12417 . 13006) (
|
||||
\TEDIT.GET.CHARLOOKS2 13008 . 14565) (\TEDIT.PARSE.PAGEFRAMES2 14567 . 17306) (
|
||||
\TEDIT.GET.CHARLOOKS.LIST2 17308 . 17815) (\TEDIT.GET.SINGLE.CHARLOOKS2 17817 . 21176) (
|
||||
\TEDIT.PUT.SINGLE.PARALOOKS2 21178 . 25428) (\TEDIT.PUT.SINGLE.CHARLOOKS2 25430 . 29140) (
|
||||
\TEDIT.GET.PARALOOKS.LIST2 29142 . 29649) (\TEDIT.GET.SINGLE.PARALOOKS2 29651 . 34550) (
|
||||
\TEDIT.PUT.CHARLOOKS.LIST2 34552 . 36631) (\TEDIT.PUT.PARALOOKS.LIST2 36633 . 37830)) (37909 59190 (
|
||||
\TEDIT.GET.PCTB1 37919 . 44936) (\TEDIT.GET.PAGEFRAMES1 44938 . 45390) (\TEDIT.PARSE.PAGEFRAMES1 45392
|
||||
. 48045) (\TEDIT.GET.CHARLOOKS1 48047 . 52413) (\TEDIT.GET.PARALOOKS1 52415 . 57326) (
|
||||
TEDIT.GET.OBJECT1 57328 . 59188)) (59250 73865 (\TEDIT.GET.PCTB0 59260 . 63341) (\TEDIT.GET.CHARLOOKS0
|
||||
63343 . 67783) (\TEDIT.GET.OBJECT0 67785 . 69860) (\TEDIT.GET.PARALOOKS0 69862 . 73863)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "29-Jul-2025 11:58:01" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;912 190401
|
||||
(FILECREATED " 8-Sep-2025 22:10:32" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;913 190947
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS)
|
||||
:CHANGES-TO (FNS \TEDIT.OPENTEXTSTREAM.PIECES \TEDIT.OPENTEXTFILE)
|
||||
|
||||
:PREVIOUS-DATE "28-Jul-2025 23:52:41" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;911)
|
||||
:PREVIOUS-DATE "29-Jul-2025 11:58:01" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;912)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-STREAMCOMS)
|
||||
@@ -1441,7 +1441,8 @@
|
||||
TSTREAM])
|
||||
|
||||
(\TEDIT.OPENTEXTSTREAM.PIECES
|
||||
[LAMBDA (TEXT TSTREAM START END PROPS) (* ; "Edited 29-May-2025 19:02 by rmk")
|
||||
[LAMBDA (TEXT TSTREAM START END PROPS) (* ; "Edited 8-Sep-2025 22:05 by rmk")
|
||||
(* ; "Edited 29-May-2025 19:02 by rmk")
|
||||
(* ; "Edited 26-Apr-2025 12:59 by rmk")
|
||||
(* ; "Edited 24-Apr-2025 17:09 by rmk")
|
||||
(* ; "Edited 26-Sep-2024 22:27 by rmk")
|
||||
@@ -1460,11 +1461,10 @@
|
||||
(* ;; "The intent is that the window's promptwindow is available for local messages during the fetch, and the RESETSAVE of PROMPTWINDOW would make even messages to the global promptwindow appear locally. An example is the mouseconfirm in READIMAGEOBJ that asks whether the imageobj code should be loaded from a given file. The problem is that the Tedit prompt window is usually just 1 line hight and doesn't automatically grow to show multiple lines, so key information may not be displayed. If the Tedit prompt grows (and it can be determined when/if it should later shrink), then this feature can be enabled.")
|
||||
|
||||
(RESETLST
|
||||
(LET* [(TEXTOBJ (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)))
|
||||
(LET* [(TEXTOBJ (FTEXTOBJ TSTREAM))
|
||||
(PWINDOW (GETTOBJ TEXTOBJ PROMPTWINDOW))
|
||||
(READONLY (GETTEXTPROP TEXTOBJ 'READONLY] (* ;
|
||||
"READONLY only after creation, if specified")
|
||||
(AND NIL (CL:WHEN PWINDOW (RESETSAVE PROMPTWINDOW PWINDOW)))
|
||||
(FSETTOBJ TEXTOBJ TXTREADONLY NIL)
|
||||
(FSETTOBJ TEXTOBJ TXTDON'TUPDATE T) (* ;
|
||||
"Don't display or record histories until done")
|
||||
@@ -1666,7 +1666,8 @@
|
||||
(SETTOBJ TEXTOBJ DEFAULTPARALOOKS PARALOOKS])
|
||||
|
||||
(\TEDIT.OPENTEXTFILE
|
||||
[LAMBDA (TEXT PROPS) (* ; "Edited 21-Nov-2024 11:38 by rmk")
|
||||
[LAMBDA (TEXT PROPS) (* ; "Edited 8-Sep-2025 21:52 by rmk")
|
||||
(* ; "Edited 21-Nov-2024 11:38 by rmk")
|
||||
(* ; "Edited 20-Dec-2023 10:49 by rmk")
|
||||
(* ; "Edited 28-Oct-2023 10:33 by rmk")
|
||||
(* ; "Edited 26-Sep-2023 18:00 by rmk")
|
||||
@@ -1678,15 +1679,19 @@
|
||||
(STRINGP TEXT)
|
||||
(CL:PATHNAMEP TEXT))
|
||||
then (* ; "String detects empty extension")
|
||||
[OPENSTREAM (OR (if (OR (CL:PATHNAMEP TEXT)
|
||||
(FILENAMEFIELD.STRING TEXT 'EXTENSION))
|
||||
then (FINDFILE TEXT T)
|
||||
elseif (FINDFILE-WITH-EXTENSIONS TEXT NIL *TEDIT-EXTENSIONS*))
|
||||
TEXT)
|
||||
'INPUT
|
||||
'OLD
|
||||
`((TYPE TEXT)
|
||||
(FORMAT ,(LISTGET PROPS 'FORMAT]
|
||||
[RESETSAVE [SETQ TEXT (OPENSTREAM (OR (if (OR (CL:PATHNAMEP TEXT)
|
||||
(FILENAMEFIELD.STRING TEXT
|
||||
'EXTENSION))
|
||||
then (FINDFILE TEXT T)
|
||||
elseif (FINDFILE-WITH-EXTENSIONS TEXT NIL
|
||||
*TEDIT-EXTENSIONS*))
|
||||
TEXT)
|
||||
'INPUT
|
||||
'OLD
|
||||
`((TYPE TEXT)
|
||||
(FORMAT ,(LISTGET PROPS 'FORMAT]
|
||||
'(PROGN (AND RESETSTATE (CLOSEF? OLDVALUE]
|
||||
TEXT
|
||||
elseif (\GETSTREAM TEXT 'INPUT T)
|
||||
else
|
||||
(* ;; "Don't know what it is")
|
||||
@@ -3123,34 +3128,34 @@
|
||||
(ADDTOVAR LAMA TEXTPROP)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (36908 67724 (\TEDIT.TEXTBIN 36918 . 47668) (\TEDIT.TEXTPEEKBIN 47670 . 53220) (
|
||||
\TEDIT.TEXTBACKFILEPTR 53222 . 58895) (\TEDIT.TEXTBOUT 58897 . 63514) (\TEDIT.INSTALL.FILEBUFFER 63516
|
||||
. 67722)) (68622 72913 (\TEDIT.TEXTOUTCHARFN 68632 . 70188) (\TEDIT.TEXTINCCODEFN 70190 . 70929) (
|
||||
\TEDIT.TEXTBACKCCODEFN 70931 . 71523) (\TEDIT.TEXTFORMATBYTESTREAM 71525 . 72362) (
|
||||
\TEDIT.TEXTFORMATBYTESTRING 72364 . 72911)) (72960 84601 (OPENTEXTSTREAM 72970 . 79922) (
|
||||
COPYTEXTSTREAM 79924 . 83824) (TEDIT.STREAMCHANGEDP 83826 . 84128) (TXTFILE 84130 . 84599)) (84602
|
||||
114584 (\TEDIT.REOPENTEXTSTREAM 84612 . 85964) (\TEDIT.OPENTEXTSTREAM.PIECES 85966 . 90900) (
|
||||
\TEDIT.OPENTEXTSTREAM.PROPS 90902 . 92004) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 92006 . 97247) (
|
||||
\TEDIT.OPENTEXTSTREAM.WINDOW 97249 . 100040) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 100042 . 101981) (
|
||||
\TEDIT.OPENTEXTFILE 101983 . 103696) (\TEDIT.CREATE.TEXTSTREAM 103698 . 104845) (\TEDIT.REOPEN.STREAM
|
||||
104847 . 107183) (\TEDIT.TEXTINIT 107185 . 114582)) (114622 115810 (\TEDIT.TTYBOUT 114632 . 115808)) (
|
||||
115928 135925 (\TEDIT.TEXTCLOSEF 115938 . 117262) (\TEDIT.TEXTDSPFONT 117264 . 118462) (
|
||||
\TEDIT.TEXTEOFP 118464 . 120219) (\TEDIT.TEXTGETEOFPTR 120221 . 120544) (\TEDIT.TEXTSETEOFPTR 120546
|
||||
. 121833) (\TEDIT.TEXTGETFILEPTR 121835 . 124670) (\TEDIT.TEXTSETFILEINFO 124672 . 125180) (
|
||||
\TEDIT.TEXTOPENF 125182 . 126113) (\TEDIT.TEXTSETEOF 126115 . 126731) (\TEDIT.TEXTSETFILEPTR 126733 .
|
||||
128843) (\TEDIT.TEXTDSPXPOSITION 128845 . 129862) (\TEDIT.TEXTDSPYPOSITION 129864 . 130605) (
|
||||
\TEDIT.TEXTLEFTMARGIN 130607 . 131198) (\TEDIT.TEXTCOLOR 131200 . 131783) (\TEDIT.TEXTRIGHTMARGIN
|
||||
131785 . 135074) (\TEDIT.TEXTDSPCHARWIDTH 135076 . 135380) (\TEDIT.TEXTDSPSTRINGWIDTH 135382 . 135688)
|
||||
(\TEDIT.TEXTDSPLINEFEED 135690 . 135923)) (135963 148576 (\TEDIT.NTHCHARCODE 135973 . 137424) (
|
||||
\TEDIT.PIECE.NTHCHARCODE 137426 . 141336) (\TEDIT.RPLCHARCODE 141338 . 142796) (
|
||||
\TEDIT.PIECE.RPLCHARCODE 142798 . 148221) (\TEDIT.NTHCHARLOOKS 148223 . 148574)) (149623 170717 (
|
||||
\TEDIT.DELETE.SELPIECES 149633 . 153258) (\TEDIT.INSERTCH 153260 . 161299) (\TEDIT.INSERTCH.HISTORY
|
||||
161301 . 164765) (\TEDIT.INSERTEOL 164767 . 166592) (\TEDIT.INSERTCH.INSERTION 166594 . 169431) (
|
||||
\TEDIT.INSERTCH.EXTEND 169433 . 170715)) (170718 172222 (\TEDIT.NEXTCHANGEABLE.CHNO 170728 . 171443) (
|
||||
\TEDIT.LASTCHANGEABLE.CHNO 171445 . 172220)) (172223 173927 (\SETUPGETCH 172233 . 173925)) (173985
|
||||
178443 (\TEDIT.INSTALL.PIECE 173995 . 178441)) (178481 187582 (TEXTPROP 178491 . 178838) (GETTEXTPROP
|
||||
178840 . 179084) (PUTTEXTPROP 179086 . 179343) (GETTEXTPROPS 179345 . 179789) (PUTTEXTPROPS 179791 .
|
||||
180695) (TEXTPROP.ADD 180697 . 180960) (\TEDIT.TEXTPROP 180962 . 187580)) (187583 189653 (
|
||||
\TEDIT.TEXTOBJ.PROPNAMES 187593 . 188545) (\TEDIT.TEXTOBJ.PROPFETCHFN 188547 . 189063) (
|
||||
\TEDIT.TEXTOBJ.PROPSTOREFN 189065 . 189651)))))
|
||||
(FILEMAP (NIL (36922 67738 (\TEDIT.TEXTBIN 36932 . 47682) (\TEDIT.TEXTPEEKBIN 47684 . 53234) (
|
||||
\TEDIT.TEXTBACKFILEPTR 53236 . 58909) (\TEDIT.TEXTBOUT 58911 . 63528) (\TEDIT.INSTALL.FILEBUFFER 63530
|
||||
. 67736)) (68636 72927 (\TEDIT.TEXTOUTCHARFN 68646 . 70202) (\TEDIT.TEXTINCCODEFN 70204 . 70943) (
|
||||
\TEDIT.TEXTBACKCCODEFN 70945 . 71537) (\TEDIT.TEXTFORMATBYTESTREAM 71539 . 72376) (
|
||||
\TEDIT.TEXTFORMATBYTESTRING 72378 . 72925)) (72974 84615 (OPENTEXTSTREAM 72984 . 79936) (
|
||||
COPYTEXTSTREAM 79938 . 83838) (TEDIT.STREAMCHANGEDP 83840 . 84142) (TXTFILE 84144 . 84613)) (84616
|
||||
115130 (\TEDIT.REOPENTEXTSTREAM 84626 . 85978) (\TEDIT.OPENTEXTSTREAM.PIECES 85980 . 90908) (
|
||||
\TEDIT.OPENTEXTSTREAM.PROPS 90910 . 92012) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 92014 . 97255) (
|
||||
\TEDIT.OPENTEXTSTREAM.WINDOW 97257 . 100048) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 100050 . 101989) (
|
||||
\TEDIT.OPENTEXTFILE 101991 . 104242) (\TEDIT.CREATE.TEXTSTREAM 104244 . 105391) (\TEDIT.REOPEN.STREAM
|
||||
105393 . 107729) (\TEDIT.TEXTINIT 107731 . 115128)) (115168 116356 (\TEDIT.TTYBOUT 115178 . 116354)) (
|
||||
116474 136471 (\TEDIT.TEXTCLOSEF 116484 . 117808) (\TEDIT.TEXTDSPFONT 117810 . 119008) (
|
||||
\TEDIT.TEXTEOFP 119010 . 120765) (\TEDIT.TEXTGETEOFPTR 120767 . 121090) (\TEDIT.TEXTSETEOFPTR 121092
|
||||
. 122379) (\TEDIT.TEXTGETFILEPTR 122381 . 125216) (\TEDIT.TEXTSETFILEINFO 125218 . 125726) (
|
||||
\TEDIT.TEXTOPENF 125728 . 126659) (\TEDIT.TEXTSETEOF 126661 . 127277) (\TEDIT.TEXTSETFILEPTR 127279 .
|
||||
129389) (\TEDIT.TEXTDSPXPOSITION 129391 . 130408) (\TEDIT.TEXTDSPYPOSITION 130410 . 131151) (
|
||||
\TEDIT.TEXTLEFTMARGIN 131153 . 131744) (\TEDIT.TEXTCOLOR 131746 . 132329) (\TEDIT.TEXTRIGHTMARGIN
|
||||
132331 . 135620) (\TEDIT.TEXTDSPCHARWIDTH 135622 . 135926) (\TEDIT.TEXTDSPSTRINGWIDTH 135928 . 136234)
|
||||
(\TEDIT.TEXTDSPLINEFEED 136236 . 136469)) (136509 149122 (\TEDIT.NTHCHARCODE 136519 . 137970) (
|
||||
\TEDIT.PIECE.NTHCHARCODE 137972 . 141882) (\TEDIT.RPLCHARCODE 141884 . 143342) (
|
||||
\TEDIT.PIECE.RPLCHARCODE 143344 . 148767) (\TEDIT.NTHCHARLOOKS 148769 . 149120)) (150169 171263 (
|
||||
\TEDIT.DELETE.SELPIECES 150179 . 153804) (\TEDIT.INSERTCH 153806 . 161845) (\TEDIT.INSERTCH.HISTORY
|
||||
161847 . 165311) (\TEDIT.INSERTEOL 165313 . 167138) (\TEDIT.INSERTCH.INSERTION 167140 . 169977) (
|
||||
\TEDIT.INSERTCH.EXTEND 169979 . 171261)) (171264 172768 (\TEDIT.NEXTCHANGEABLE.CHNO 171274 . 171989) (
|
||||
\TEDIT.LASTCHANGEABLE.CHNO 171991 . 172766)) (172769 174473 (\SETUPGETCH 172779 . 174471)) (174531
|
||||
178989 (\TEDIT.INSTALL.PIECE 174541 . 178987)) (179027 188128 (TEXTPROP 179037 . 179384) (GETTEXTPROP
|
||||
179386 . 179630) (PUTTEXTPROP 179632 . 179889) (GETTEXTPROPS 179891 . 180335) (PUTTEXTPROPS 180337 .
|
||||
181241) (TEXTPROP.ADD 181243 . 181506) (\TEDIT.TEXTPROP 181508 . 188126)) (188129 190199 (
|
||||
\TEDIT.TEXTOBJ.PROPNAMES 188139 . 189091) (\TEDIT.TEXTOBJ.PROPFETCHFN 189093 . 189609) (
|
||||
\TEDIT.TEXTOBJ.PROPSTOREFN 189611 . 190197)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -1,39 +1,42 @@
|
||||
(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10)
|
||||
(FILECREATED " 2-Mar-87 16:07:23" {ERIS}<LISPUSERS>LYRIC>BACKGROUNDIMAGES.;6 17437
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
changes to%: (FNS BACKGROUND.SETUP)
|
||||
(VARS BACKGROUNDIMAGESCOMS)
|
||||
(FILECREATED " 1-Sep-2025 11:35:16"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>BACKGROUNDIMAGES.;4 18372
|
||||
|
||||
previous date%: "11-Feb-87 21:26:26" {ERIS}<LISPUSERS>LYRIC>BACKGROUNDIMAGES.;5)
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS BACKGROUNDIMAGESCOMS)
|
||||
|
||||
:PREVIOUS-DATE " 2-Mar-87 16:07:23"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>BACKGROUNDIMAGES.;1)
|
||||
|
||||
(* "
|
||||
Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT BACKGROUNDIMAGESCOMS)
|
||||
|
||||
(RPAQQ BACKGROUNDIMAGESCOMS [
|
||||
(RPAQQ BACKGROUNDIMAGESCOMS
|
||||
[
|
||||
|
||||
(* ;;;
|
||||
"Enables you to load interesting backgrounds. Simplest entry is just to call (BACKGROUND.SETUP).")
|
||||
|
||||
(FNS BACKGROUND.SETUP BACKGROUND.FILES BACKGROUND.FILE BACKGROUND.FETCH
|
||||
BACKGROUND.SHORTNAME BACKGROUND.MODE BACKGROUND.SHADE)
|
||||
(FNS BACKGROUND.CENTER BACKGROUND.REFLECT BACKGROUND.TILE
|
||||
BACKGROUND.LESS)
|
||||
(INITVARS (BACKGROUNDS NIL)
|
||||
(BACKGROUND.MODE 'CENTER)
|
||||
(BACKGROUND.SHADE 34850))
|
||||
(GLOBALVARS BACKGROUNDS BackgroundMenuCommands LISPUSERSDIRECTORIES
|
||||
BACKGROUND.MODE BACKGROUND.SHADE)
|
||||
[ADDVARS (GAINSPACEFORMS ((LISTP BACKGROUNDS)
|
||||
"Delete saved background bitmaps"
|
||||
(SETQ BACKGROUNDS NIL]
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
(ADDVARS (NLAMA)
|
||||
(NLAML)
|
||||
(LAMA])
|
||||
(FNS BACKGROUND.SETUP BACKGROUND.FILES BACKGROUND.FILE BACKGROUND.FETCH BACKGROUND.SHORTNAME
|
||||
BACKGROUND.MODE BACKGROUND.SHADE)
|
||||
(FNS BACKGROUND.CENTER BACKGROUND.REFLECT BACKGROUND.TILE BACKGROUND.LESS)
|
||||
[COMS (* ;
|
||||
"RMK 2025: Copied from now obsolete PRESS")
|
||||
(FNS PRESSFILEP)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (BYTESPERRECORD 512]
|
||||
(INITVARS (BACKGROUNDS NIL)
|
||||
(BACKGROUND.MODE 'CENTER)
|
||||
(BACKGROUND.SHADE 34850))
|
||||
(GLOBALVARS BACKGROUNDS BackgroundMenuCommands LISPUSERSDIRECTORIES BACKGROUND.MODE
|
||||
BACKGROUND.SHADE)
|
||||
[ADDVARS (GAINSPACEFORMS ((LISTP BACKGROUNDS)
|
||||
"Delete saved background bitmaps"
|
||||
(SETQ BACKGROUNDS NIL]
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
|
||||
(NLAML)
|
||||
(LAMA])
|
||||
|
||||
|
||||
|
||||
@@ -330,6 +333,40 @@ Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved.
|
||||
do (add START (MINUS IMAGESIZE)) finally (RETURN START])
|
||||
)
|
||||
|
||||
|
||||
|
||||
(* ; "RMK 2025: Copied from now obsolete PRESS")
|
||||
|
||||
(DEFINEQ
|
||||
|
||||
(PRESSFILEP
|
||||
[LAMBDA (FILE) (* ; "Edited 20-Feb-87 18:41 by jds")
|
||||
|
||||
(* ;; "Returns FILE if it looks like a Press file")
|
||||
|
||||
(AND (SETQ FILE (OR (STREAMP FILE)
|
||||
(FINDFILE FILE)))
|
||||
(PROG [(LEN (GETFILEINFO FILE 'LENGTH]
|
||||
(AND (NOT (ZEROP LEN))
|
||||
(EVENP LEN BYTESPERRECORD)
|
||||
(RESETLST
|
||||
[COND
|
||||
(T (RESETSAVE (SETQ PRESS-STREAM (OPENSTREAM FILE 'INPUT 'OLD 8))
|
||||
'(PROGN (CLOSEF? OLDVALUE]
|
||||
(SETFILEPTR PRESS-STREAM (IDIFFERENCE LEN BYTESPERRECORD))
|
||||
(IEQP 27183 (\WIN PRESS-STREAM)))
|
||||
(RETURN FILE])
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RPAQQ BYTESPERRECORD 512)
|
||||
|
||||
|
||||
(CONSTANTS (BYTESPERRECORD 512))
|
||||
)
|
||||
)
|
||||
|
||||
(RPAQ? BACKGROUNDS NIL)
|
||||
|
||||
(RPAQ? BACKGROUND.MODE 'CENTER)
|
||||
@@ -351,11 +388,10 @@ Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved.
|
||||
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(PUTPROPS BACKGROUNDIMAGES COPYRIGHT ("Xerox Corporation" 1986 1987))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1897 10963 (BACKGROUND.SETUP 1907 . 4149) (BACKGROUND.FILES 4151 . 5706) (
|
||||
BACKGROUND.FILE 5708 . 6973) (BACKGROUND.FETCH 6975 . 9284) (BACKGROUND.SHORTNAME 9286 . 10006) (
|
||||
BACKGROUND.MODE 10008 . 10460) (BACKGROUND.SHADE 10462 . 10961)) (10964 16807 (BACKGROUND.CENTER 10974
|
||||
. 11668) (BACKGROUND.REFLECT 11670 . 15603) (BACKGROUND.TILE 15605 . 16340) (BACKGROUND.LESS 16342 .
|
||||
16805)))))
|
||||
(FILEMAP (NIL (1911 10977 (BACKGROUND.SETUP 1921 . 4163) (BACKGROUND.FILES 4165 . 5720) (
|
||||
BACKGROUND.FILE 5722 . 6987) (BACKGROUND.FETCH 6989 . 9298) (BACKGROUND.SHORTNAME 9300 . 10020) (
|
||||
BACKGROUND.MODE 10022 . 10474) (BACKGROUND.SHADE 10476 . 10975)) (10978 16821 (BACKGROUND.CENTER 10988
|
||||
. 11682) (BACKGROUND.REFLECT 11684 . 15617) (BACKGROUND.TILE 15619 . 16354) (BACKGROUND.LESS 16356 .
|
||||
16819)) (16879 17682 (PRESSFILEP 16889 . 17680)))))
|
||||
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