Compare commits
17 Commits
fgh_lfg-lo
...
medley-250
| Author | SHA1 | Date | |
|---|---|---|---|
|
ef6a645bf5 | ||
|
|
90c723a8c1 | ||
|
|
20ec5c2bc9 | ||
|
|
ba3a5668bd | ||
|
d737f7ec93 | ||
|
|
9e6eba2cd9 | ||
|
|
27473e8cae | ||
|
|
27d8bffaa9 | ||
|
|
58122db362 | ||
|
|
5eb8a7bd34 | ||
|
4e11554156 | ||
|
|
0cc21cd46a | ||
|
|
936337d6bb | ||
|
|
6bdcb1853d | ||
|
|
fb7bb25201 | ||
|
|
7a32bd3051 | ||
|
|
7ed120ca97 |
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "16-Dec-2024 20:38:14" {WMEDLEY}<internal>TEDIT-DEBUG.;123 130350
|
||||
(FILECREATED " 9-Jan-2025 16:40:25" {MEDLEY}<internal>TEDIT-DEBUG.;11 130460
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS SP)
|
||||
:CHANGES-TO (FNS SPPRINT.OBJ)
|
||||
|
||||
:PREVIOUS-DATE "14-Dec-2024 14:32:20" {WMEDLEY}<internal>TEDIT-DEBUG.;122)
|
||||
:PREVIOUS-DATE "16-Dec-2024 20:38:14" {MEDLEY}<internal>TEDIT-DEBUG.;10)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-DEBUGCOMS)
|
||||
@@ -1345,7 +1345,8 @@
|
||||
OSTREAM)))])
|
||||
|
||||
(SPPRINT.OBJ
|
||||
[LAMBDA (OBJ STREAM POS) (* ; "Edited 6-Oct-2024 20:54 by rmk")
|
||||
[LAMBDA (OBJ STREAM POS) (* ; "Edited 9-Jan-2025 16:37 by rmk")
|
||||
(* ; "Edited 6-Oct-2024 20:54 by rmk")
|
||||
(* ; "Edited 29-Sep-2024 14:45 by rmk")
|
||||
(* ; "Edited 29-Aug-2024 10:44 by rmk")
|
||||
(* ; "Edited 25-Aug-2024 14:31 by rmk")
|
||||
@@ -1364,7 +1365,7 @@
|
||||
(CL:UNLESS [NLSETQ (SELECTQ (IMAGEOBJPROP OBJ 'DISPLAYFN)
|
||||
(MB.NWAY.DISPLAYFN
|
||||
(PRINTOUT STREAM (IMAGEOBJPROP OBJ 'IDENTIFIER)
|
||||
":" T .TAB (IPLUS POS 2))
|
||||
T .TAB (IPLUS POS 2))
|
||||
(for SOBJ in (IMAGEOBJPROP OBJ 'SUBOBJECTS)
|
||||
do (PRINTOUT STREAM (IMAGEOBJPROP SOBJ 'IDENTIFIER)
|
||||
" ")))
|
||||
@@ -2426,30 +2427,30 @@
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4840 7227 (GTO 4850 . 5100) (GTS 5102 . 6701) (GTW 6703 . 6859) (GSEL 6861 . 7225)) (
|
||||
7284 20415 (IPC 7294 . 8798) (ILINES 8800 . 11341) (ISEL 11343 . 11954) (ITS 11956 . 13680) (IPANES
|
||||
13682 . 13917) (ITL 13919 . 14338) (IHIST 14340 . 17002) (IPCTB 17004 . 17312) (IMB 17314 . 17929) (
|
||||
ICL 17931 . 18496) (IPL 18498 . 18902) (ICARET 18904 . 19281) (INSPECTPIECES 19283 . 20413)) (20437
|
||||
55479 (SP 20447 . 25793) (SL 25795 . 28371) (SSP 28373 . 29486) (STL 29488 . 38000) (SPF 38002 . 40301
|
||||
) (SLF 40303 . 49436) (SHOWLINE 49438 . 53000) (SLL 53002 . 53749) (STBYTES 53751 . 55477)) (55480
|
||||
60853 (NTHPIECE 55490 . 56622) (NPIECES 56624 . 57489) (NTHPIECECHAR 57491 . 58799) (SELPIECE 58801 .
|
||||
59243) (PIECENUM 59245 . 59964) (PCBYTES 59966 . 60851)) (60854 63328 (FILEBYTES 60864 . 62288) (
|
||||
TFILEBYTES 62290 . 63326)) (63329 64651 (TRELMOVE 63339 . 63582) (TSCROLL 63584 . 63750) (TSCROLL*
|
||||
63752 . 64649)) (64652 67701 (TRY 64662 . 65931) (TEDITCLOSEW 65933 . 66276) (PARALASTWITHOUTEOL 66278
|
||||
. 67163) (FIXPARALAST 67165 . 67699)) (67702 81927 (SPPRINT 67712 . 74128) (SPPRINT.CHAR 74130 .
|
||||
75114) (SPPRINT.OBJ 75116 . 78069) (SHOWPIECEBYTES 78071 . 79627) (CHECKPLENGTHS 79629 . 80086) (SBT
|
||||
80088 . 81077) (COPYPCHAIN 81079 . 81925)) (81928 83989 (POSLINE 81938 . 83987)) (83990 84873 (
|
||||
PRESPLIT 84000 . 84871)) (84874 86587 (ALLTL 84884 . 86137) (NTHCHARSLOT 86139 . 86585)) (86613 96826
|
||||
(PLCHAIN 86623 . 87151) (PRINTLINE 87153 . 90143) (SL.GETLINES 90145 . 93438) (CHECKLINES 93440 .
|
||||
94420) (COLLECTLINES 94422 . 94674) (NTHLINE 94676 . 95681) (HEIGHT 95683 . 95971) (LINEBOTS 95973 .
|
||||
96824)) (96827 99275 (IPC.DECODEARGS 96837 . 99273)) (99276 99869 (SPF1 99286 . 99867)) (99898 102276
|
||||
(SLF.FATPLEN 99908 . 100767) (FILEPIECE 100769 . 102274)) (102309 103077 (SELTEDIT 102319 . 103075)) (
|
||||
103147 109305 (PPARA 103157 . 103579) (PRUN 103581 . 105603) (ADDLINEPOSITIONS 105605 . 107032) (SBR
|
||||
107034 . 107688) (SBC 107690 . 109303)) (109362 114037 (DFOV 109372 . 111842) (OLDWI 111844 . 112219)
|
||||
(DFOV.OLDEST 112221 . 112646) (COMP 112648 . 112843) (DFR 112845 . 114035)) (114038 115071 (DFGV
|
||||
114048 . 114574) (GDIRECTORIES 114576 . 115069)) (115072 121637 (TTEST 115082 . 119614) (LTEST 119616
|
||||
. 120981) (THC 120983 . 121635)) (121951 122643 (SHOWSAFE 121961 . 122641)) (122696 123143 (MYH
|
||||
122706 . 123141)) (123388 124483 (DFVENUE 123398 . 124277) (VSEE 124279 . 124481)) (124484 124938 (PTT
|
||||
124494 . 124936)) (126036 128352 (TEDIT-DEBUG 126046 . 128350)) (128353 130089 (TRENAME 128363 .
|
||||
130087)))))
|
||||
(FILEMAP (NIL (4845 7232 (GTO 4855 . 5105) (GTS 5107 . 6706) (GTW 6708 . 6864) (GSEL 6866 . 7230)) (
|
||||
7289 20420 (IPC 7299 . 8803) (ILINES 8805 . 11346) (ISEL 11348 . 11959) (ITS 11961 . 13685) (IPANES
|
||||
13687 . 13922) (ITL 13924 . 14343) (IHIST 14345 . 17007) (IPCTB 17009 . 17317) (IMB 17319 . 17934) (
|
||||
ICL 17936 . 18501) (IPL 18503 . 18907) (ICARET 18909 . 19286) (INSPECTPIECES 19288 . 20418)) (20442
|
||||
55484 (SP 20452 . 25798) (SL 25800 . 28376) (SSP 28378 . 29491) (STL 29493 . 38005) (SPF 38007 . 40306
|
||||
) (SLF 40308 . 49441) (SHOWLINE 49443 . 53005) (SLL 53007 . 53754) (STBYTES 53756 . 55482)) (55485
|
||||
60858 (NTHPIECE 55495 . 56627) (NPIECES 56629 . 57494) (NTHPIECECHAR 57496 . 58804) (SELPIECE 58806 .
|
||||
59248) (PIECENUM 59250 . 59969) (PCBYTES 59971 . 60856)) (60859 63333 (FILEBYTES 60869 . 62293) (
|
||||
TFILEBYTES 62295 . 63331)) (63334 64656 (TRELMOVE 63344 . 63587) (TSCROLL 63589 . 63755) (TSCROLL*
|
||||
63757 . 64654)) (64657 67706 (TRY 64667 . 65936) (TEDITCLOSEW 65938 . 66281) (PARALASTWITHOUTEOL 66283
|
||||
. 67168) (FIXPARALAST 67170 . 67704)) (67707 82037 (SPPRINT 67717 . 74133) (SPPRINT.CHAR 74135 .
|
||||
75119) (SPPRINT.OBJ 75121 . 78179) (SHOWPIECEBYTES 78181 . 79737) (CHECKPLENGTHS 79739 . 80196) (SBT
|
||||
80198 . 81187) (COPYPCHAIN 81189 . 82035)) (82038 84099 (POSLINE 82048 . 84097)) (84100 84983 (
|
||||
PRESPLIT 84110 . 84981)) (84984 86697 (ALLTL 84994 . 86247) (NTHCHARSLOT 86249 . 86695)) (86723 96936
|
||||
(PLCHAIN 86733 . 87261) (PRINTLINE 87263 . 90253) (SL.GETLINES 90255 . 93548) (CHECKLINES 93550 .
|
||||
94530) (COLLECTLINES 94532 . 94784) (NTHLINE 94786 . 95791) (HEIGHT 95793 . 96081) (LINEBOTS 96083 .
|
||||
96934)) (96937 99385 (IPC.DECODEARGS 96947 . 99383)) (99386 99979 (SPF1 99396 . 99977)) (100008 102386
|
||||
(SLF.FATPLEN 100018 . 100877) (FILEPIECE 100879 . 102384)) (102419 103187 (SELTEDIT 102429 . 103185))
|
||||
(103257 109415 (PPARA 103267 . 103689) (PRUN 103691 . 105713) (ADDLINEPOSITIONS 105715 . 107142) (SBR
|
||||
107144 . 107798) (SBC 107800 . 109413)) (109472 114147 (DFOV 109482 . 111952) (OLDWI 111954 . 112329)
|
||||
(DFOV.OLDEST 112331 . 112756) (COMP 112758 . 112953) (DFR 112955 . 114145)) (114148 115181 (DFGV
|
||||
114158 . 114684) (GDIRECTORIES 114686 . 115179)) (115182 121747 (TTEST 115192 . 119724) (LTEST 119726
|
||||
. 121091) (THC 121093 . 121745)) (122061 122753 (SHOWSAFE 122071 . 122751)) (122806 123253 (MYH
|
||||
122816 . 123251)) (123498 124593 (DFVENUE 123508 . 124387) (VSEE 124389 . 124591)) (124594 125048 (PTT
|
||||
124604 . 125046)) (126146 128462 (TEDIT-DEBUG 126156 . 128460)) (128463 130199 (TRENAME 128473 .
|
||||
130197)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,22 +1,19 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "13-Jun-2021 09:05:17"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.;6 196680
|
||||
|
||||
changes to%: (FNS MSINTERPRETSET)
|
||||
(FILECREATED "14-Jul-2024 08:42:20" {WMEDLEY}<library>MASTERSCOPE.;28 197707
|
||||
|
||||
previous date%: " 9-Jun-2021 23:55:26"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.;5)
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS MSOUTPUT)
|
||||
|
||||
:PREVIOUS-DATE " 5-Jul-2024 11:54:48" {WMEDLEY}<library>MASTERSCOPE.;27)
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT MASTERSCOPECOMS)
|
||||
|
||||
(RPAQQ MASTERSCOPECOMS
|
||||
[
|
||||
(* ;; "Main file for MASTERSCOPE.")
|
||||
(* ;; "Main file for MASTERSCOPE.")
|
||||
|
||||
(FILES MSPARSE MSANALYZE)
|
||||
(PROP FILETYPE MASTERSCOPE)
|
||||
@@ -28,13 +25,13 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
|
||||
[COMS (FNS MSFIND MSEDITF MSEDITE EDITGETDEF)
|
||||
(VARS MSBLIP)
|
||||
|
||||
(* ;; "List of (FILEPKGTYPE FILEPKGTYPE GETDEF-fn MARKASCHANGED-fn) for types that Masterscope knows how to analyze. LOOPSMS, for example, adds LOOPS constructs to this lists using MSADDANALYZE.")
|
||||
(* ;; "List of (FILEPKGTYPE FILEPKGTYPE GETDEF-fn MARKASCHANGED-fn) for types that Masterscope knows how to analyze. LOOPSMS, for example, adds LOOPS constructs to this lists using MSADDANALYZE.")
|
||||
|
||||
[INITVARS (MSFNTYPES '((FNS FNS GETDEF]
|
||||
(COMS (* ; "SCRATCHASH")
|
||||
(COMS (* ; "SCRATCHASH")
|
||||
(INITVARS (MSCRATCHASH))
|
||||
(DECLARE%: DONTCOPY (MACROS SCRATCHASH]
|
||||
(COMS (* ; "marking changed")
|
||||
(COMS (* ; "marking changed")
|
||||
(FNS MSMARKCHANGED CHANGEMACRO CHANGEVAR CHANGEI.S. CHANGERECORD MSNEEDUNSAVE UNSAVEFNS
|
||||
)
|
||||
(ADDVARS (COMPILE.TIME.CONSTANTS))
|
||||
@@ -42,11 +39,11 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
|
||||
(INITVARS (CHECKUNSAVEFLG T)
|
||||
(MSNEEDUNSAVE)))
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (MACROS GETWORDTYPE))
|
||||
(COMS (* ; "interactive routines")
|
||||
(COMS (* ; "interactive routines")
|
||||
[VARS * (LIST (LIST 'MASTERSCOPEDATE (DATE (DATEFORMAT NO.TIME]
|
||||
(ADDVARS (HISTORYCOMS %.))
|
||||
(FNS %. MASTERSCOPE MASTERSCOPE1 MASTERSCOPEXEC)
|
||||
(* ; "Interpreting commands")
|
||||
(* ; "Interpreting commands")
|
||||
(FNS MSINTERPRETSET MSINTERPA MSGETBLOCKDEC LISTHARD MSMEMBSET MSLISTSET MSHASHLIST
|
||||
MSHASHLIST1 CHECKPATHS ONFILE)
|
||||
(FNS MSINTERPRET VERBNOTICELIST MSOUTPUT MSCHECKEMPTY CHECKFORCHANGED MSSOLVE)
|
||||
@@ -186,9 +183,9 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
|
||||
MSFILELST])
|
||||
|
||||
(MSSHOWUSE
|
||||
[LAMBDA (SHOWFN SHOWTYPE SHOWSET SHOWEDIT IFCANT EDITCOMS)
|
||||
(* ;
|
||||
"Edited 23-Jun-93 09:40 by sybalsky:mv:envos")
|
||||
[LAMBDA (SHOWFN SHOWTYPE SHOWSET SHOWEDIT IFCANT EDITCOMS) (* ; "Edited 4-Jul-2024 15:06 by rmk")
|
||||
(* ;
|
||||
"Edited 23-Jun-93 09:40 by sybalsky:mv:envos")
|
||||
|
||||
(* ;; "Show/Edit where SHOWFN uses/etc. a pattern.")
|
||||
|
||||
@@ -196,7 +193,7 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
|
||||
(COND
|
||||
([OR [CL:MULTIPLE-VALUE-SETQ (DEF REALDEF)
|
||||
(MSGETDEF SHOWFN (AND (fetch (MSSETPHRASE KNOWN) of SHOWSET)
|
||||
(fetch (MSSETPHRASE TYPE) of SHOWSET))
|
||||
(fetch (MSSETPHRASE TYPE) of SHOWSET))
|
||||
(COND
|
||||
((EQ SHOWEDIT 'SHOW)
|
||||
'?)
|
||||
@@ -208,43 +205,45 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
|
||||
(FILE (LOADFNS SHOWFN FILE 'PROP)
|
||||
(GETPROP SHOWFN 'EXPR]
|
||||
(* ;
|
||||
"was (MSGETDEF SHOWFN IFCANT (EQ SHOWEDIT (QUOTE SHOW)))")
|
||||
"was (MSGETDEF SHOWFN IFCANT (EQ SHOWEDIT (QUOTE SHOW)))")
|
||||
(* ;
|
||||
"The SHOW command does not need to save")
|
||||
(MSUPDATEFN1 SHOWFN DEF
|
||||
(LIST SHOWTYPE [FUNCTION (LAMBDA (ITEM SS SE PRNT INCLISP)
|
||||
(COND
|
||||
((MSMEMBSET ITEM SS)
|
||||
(COND
|
||||
((NOT ANYFOUND)
|
||||
(TAB 0 0 T)
|
||||
(PRIN2 SHOWFN)
|
||||
(PRIN1 " :
|
||||
"The SHOW command does not need to save")
|
||||
(MSUPDATEFN1 SHOWFN DEF (LIST SHOWTYPE
|
||||
[FUNCTION (LAMBDA (ITEM SS SE PRNT INCLISP)
|
||||
(COND
|
||||
((MSMEMBSET ITEM SS)
|
||||
(COND
|
||||
((NOT ANYFOUND)
|
||||
(TAB 0 0 T)
|
||||
(DSPFONT (PROG1 (DSPFONT BOLDFONT)
|
||||
(PRIN2 SHOWFN)))
|
||||
(PRIN1 " :
|
||||
")))
|
||||
(SETQ ANYFOUND
|
||||
(CONS (CONS PRNT (AND INCLISP
|
||||
(NOT (MSFIND INCLISP
|
||||
PRNT))
|
||||
INCLISP))
|
||||
ANYFOUND))
|
||||
(COND
|
||||
([AND (EQ SE 'SHOW)
|
||||
(NOT (FASSOC PRNT (CDR ANYFOUND]
|
||||
(SETQ ANYFOUND
|
||||
(CONS (CONS PRNT
|
||||
(AND INCLISP
|
||||
(NOT (MSFIND INCLISP
|
||||
PRNT))
|
||||
INCLISP))
|
||||
ANYFOUND))
|
||||
(COND
|
||||
([AND (EQ SE 'SHOW)
|
||||
(NOT (FASSOC PRNT (CDR ANYFOUND]
|
||||
|
||||
(* ;; "The EDIT command works by collecting a list of the expressions, and then doing a (*ORF* (= . lst1) (= . lst2)) --- if within a CLISP translation (determined by the binding of the INCLISP variable) then want to point at the CLISP if the expression is not actually embedded in the expression")
|
||||
|
||||
(SPACES 3)
|
||||
(LVLPRINT PRNT (OUTPUT)
|
||||
2)
|
||||
(COND
|
||||
((CDAR ANYFOUND)
|
||||
(SPACES 3)
|
||||
(LVLPRINT PRNT (OUTPUT)
|
||||
2)
|
||||
(COND
|
||||
((CDAR ANYFOUND)
|
||||
(* ; "This is under a clisp")
|
||||
(PRIN1 " {under ")
|
||||
(LVLPRIN2 INCLISP (OUTPUT)
|
||||
2)
|
||||
(PRIN1 "}
|
||||
(PRIN1 " {under ")
|
||||
(LVLPRIN2 INCLISP (OUTPUT)
|
||||
2)
|
||||
(PRIN1 "}
|
||||
"]
|
||||
SHOWSET SHOWEDIT)))
|
||||
SHOWSET SHOWEDIT)))
|
||||
(T (printout T "Can't find a definition for " SHOWFN "!" T)
|
||||
(RETURN)))
|
||||
(COND
|
||||
@@ -2403,14 +2402,14 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS SCRATCHASH MACRO [(ARRAYNAME . FORMS)
|
||||
([LAMBDA (ARRAYNAME)
|
||||
(SETQ MSCRATCHASH)
|
||||
(PROG1 (PROGN . FORMS)
|
||||
(SETQ MSCRATCHASH ARRAYNAME]
|
||||
(COND
|
||||
(MSCRATCHASH (CLRHASH MSCRATCHASH)
|
||||
MSCRATCHASH)
|
||||
(T (HASHARRAY 20 (FUNCTION MSREHASH])
|
||||
([LAMBDA (ARRAYNAME)
|
||||
(SETQ MSCRATCHASH)
|
||||
(PROG1 (PROGN . FORMS)
|
||||
(SETQ MSCRATCHASH ARRAYNAME]
|
||||
(COND
|
||||
(MSCRATCHASH (CLRHASH MSCRATCHASH)
|
||||
MSCRATCHASH)
|
||||
(T (HASHARRAY 20 (FUNCTION MSREHASH])
|
||||
)
|
||||
)
|
||||
|
||||
@@ -2569,7 +2568,7 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS GETWORDTYPE MACRO [(WORD TYPE)
|
||||
(CDR (FASSOC TYPE (GETHASH WORD MSWORDS])
|
||||
(CDR (FASSOC TYPE (GETHASH WORD MSWORDS])
|
||||
)
|
||||
)
|
||||
|
||||
@@ -2578,7 +2577,7 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
|
||||
(* ; "interactive routines")
|
||||
|
||||
|
||||
(RPAQ MASTERSCOPEDATE "13-Jun-2021")
|
||||
(RPAQ MASTERSCOPEDATE "14-Jul-2024")
|
||||
|
||||
(ADDTOVAR HISTORYCOMS %.)
|
||||
(DEFINEQ
|
||||
@@ -3527,8 +3526,31 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
|
||||
(ERROR!])
|
||||
|
||||
(MSOUTPUT
|
||||
(LAMBDA (FILE) (* ; "Edited 12-Jun-90 20:43 by teruuchi") (* ;; "OUTPUT is already RESETSAVE'd") (COND ((OPENP FILE (QUOTE OUTPUT)) (OUTPUT FILE)) (T (OUTFILE FILE) (SETQ FILE (OUTPUT)) (RESETSAVE NIL (LIST (QUOTE CLOSEF) FILE)))) (* ;; "output to file, reset LINELENGTH") (LINELENGTH FILELINELENGTH))
|
||||
)
|
||||
[LAMBDA (FILE) (* ; "Edited 14-Jul-2024 08:41 by rmk")
|
||||
(* ; "Edited 5-Jul-2024 11:54 by rmk")
|
||||
(* ; "Edited 12-Jun-90 20:43 by teruuchi")
|
||||
(LET ((LLENGTH FILELINELENGTH))
|
||||
[COND
|
||||
((AND (LITATOM FILE)
|
||||
(MEMB (U-CASE FILE)
|
||||
'(TEDIT :TEDIT))
|
||||
(GETD (FUNCTION TEDIT)))
|
||||
|
||||
(* ;; "If no TEDIT, leave the current OUTPUT")
|
||||
|
||||
[SETQ FILE (TEXTSTREAM (TEDIT NIL 'Masterscope NIL `(LEAVETTY T TITLE Masterscope FONT
|
||||
,DEFAULTFONT]
|
||||
(SETQ LLENGTH T)
|
||||
(TEDIT.DEFER.UPDATES FILE '(READONLY QUIET))
|
||||
(RESETSAVE NIL (LIST 'CLOSEF FILE)))
|
||||
((OPENP FILE 'OUTPUT))
|
||||
(T (SETQ FILE (OPENSTREAM FILE 'OUTPUT))
|
||||
(RESETSAVE NIL (LIST 'CLOSEF FILE]
|
||||
|
||||
(* ;; "Reset LINELENGTH, output to file. OUTPUT is already RESETSAVE'd.")
|
||||
|
||||
(LINELENGTH LLENGTH FILE)
|
||||
(OUTPUT FILE])
|
||||
|
||||
(MSCHECKEMPTY
|
||||
[LAMBDA NIL (* lmm "20-JAN-79 14:08")
|
||||
@@ -3621,15 +3643,15 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RECORD GETHASH (ID HTABLE . BADMARKS)
|
||||
ID _ 'GETHASH)
|
||||
ID _ 'GETHASH)
|
||||
|
||||
(RECORD INRELATION (ID (INVERTED . HTABLES) . OSET)
|
||||
ID _ 'INRELATION)
|
||||
ID _ 'INRELATION)
|
||||
|
||||
(ASSOCRECORD PATHOPTIONS (TO FROM AVOIDING SEPARATE NOTRACE TOPFLG OUTPUT LINELENGTH
|
||||
MARKING) (* CHECKPATHS assumes that this is
|
||||
an ASSOCRECORD)
|
||||
)
|
||||
(ASSOCRECORD PATHOPTIONS (TO FROM AVOIDING SEPARATE NOTRACE TOPFLG OUTPUT LINELENGTH MARKING)
|
||||
(* CHECKPATHS assumes that this is an
|
||||
ASSOCRECORD)
|
||||
)
|
||||
|
||||
(RECORD MSANALYZABLE (FILEPKGNAME SETNAME GETDEF-FN MARKCHANGED-FN))
|
||||
)
|
||||
@@ -3726,39 +3748,37 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
|
||||
|
||||
(ADDTOVAR LAMA MSEDITE MSEDITF)
|
||||
)
|
||||
(PUTPROPS MASTERSCOPE COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993
|
||||
1994 2018 2020 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3419 19188 (UPDATEFN 3429 . 5046) (MSGETDEF 5048 . 6454) (MSNOTICEFILE 6456 . 8849) (
|
||||
MSSHOWUSE 8851 . 14354) (MSUPDATEFN1 14356 . 15044) (MSUPDATE 15046 . 17472) (MSNLAMBDACHECK 17474 .
|
||||
18356) (MSCOLLECTDATA 18358 . 19186)) (19189 20088 (UPDATECHANGED 19199 . 19562) (UPDATECHANGED1 19564
|
||||
. 20086)) (20662 21085 (MSCLOSEFILES 20672 . 21083)) (21766 26198 (MSDESCRIBE 21776 . 24564) (
|
||||
MSDESCRIBE1 24566 . 25629) (FMAPRINT 25631 . 26196)) (26291 26731 (MSPRINTHELPFILE 26301 . 26729)) (
|
||||
26781 29919 (TEMPLATE 26791 . 28212) (GETTEMPLATE 28214 . 28349) (SETTEMPLATE 28351 . 29917)) (30789
|
||||
35713 (ADDTEMPLATEWORD 30799 . 31471) (MSADDANALYZE 31473 . 32971) (MSADDMODIFIER 32973 . 34054) (
|
||||
MSADDRELATION 34056 . 34803) (MSADDTYPE 34805 . 35711)) (37214 42435 (MSMARKCHANGE1 37224 . 38018) (
|
||||
MSINIT 38020 . 39201) (GETVERBTABLES 39203 . 39756) (MSSTOREDATA 39758 . 41437) (STORETABLE 41439 .
|
||||
42433)) (43836 48906 (PARSERELATION 43846 . 44446) (PARSERELATION1 44448 . 45903) (GETRELATION 45905
|
||||
. 46934) (MAPRELATION 46936 . 48070) (TESTRELATION 48072 . 48904)) (48907 50547 (ADDHASH 48917 .
|
||||
49395) (SUBHASH 49397 . 49625) (MAKEHASH 49627 . 49771) (MSREHASH 49773 . 50226) (EQMEMBHASH 50228 .
|
||||
50545)) (50886 57101 (MSVBTABLES 50896 . 56675) (MSUSERVBTABLES 56677 . 57099)) (57184 59395 (
|
||||
BUILDGETRELQ 57194 . 58300) (BUILDTESTRELQ 58302 . 59393)) (59566 59954 (MSERASE 59576 . 59952)) (
|
||||
59955 64415 (DUMPDATABASE 59965 . 62530) (DUMPDATABASE1 62532 . 62877) (READATABASE 62879 . 64413)) (
|
||||
65497 94556 (MSCHECKBLOCKS 65507 . 69327) (MSCHECKBLOCK 69329 . 77949) (MSCHECKFNINBLOCK 77951 . 80951
|
||||
) (MSCHECKBLOCKBASIC 80953 . 83373) (MSCHECKBOUNDFREE 83375 . 85274) (GLOBALVARP 85276 . 85443) (
|
||||
PRINTERROR 85445 . 88661) (MSCHECKVARS1 88663 . 91616) (UNECCSPEC 91618 . 91896) (NECCSPEC 91898 .
|
||||
92245) (SPECVARP 92247 . 92774) (SHORTLST 92776 . 93232) (DOERROR 93234 . 93944) (MSMSGPRINT 93946 .
|
||||
94554)) (95700 110528 (MSPATHS 95710 . 99112) (MSPATHS1 99114 . 103349) (MSPATHS2 103351 . 106761) (
|
||||
MSONPATH 106763 . 107991) (MSPATHS4 107993 . 109075) (DASHES 109077 . 109603) (DOTABS 109605 . 109846)
|
||||
(BELOWMARKER 109848 . 110311) (MSPATHSPRINTFN 110313 . 110526)) (110914 114338 (MSFIND 110924 .
|
||||
111199) (MSEDITF 111201 . 112201) (MSEDITE 112203 . 113240) (EDITGETDEF 113242 . 114336)) (115344
|
||||
123945 (MSMARKCHANGED 115354 . 117078) (CHANGEMACRO 117080 . 117785) (CHANGEVAR 117787 . 118103) (
|
||||
CHANGEI.S. 118105 . 119438) (CHANGERECORD 119440 . 120311) (MSNEEDUNSAVE 120313 . 121305) (UNSAVEFNS
|
||||
121307 . 123943)) (124386 127876 (%. 124396 . 124536) (MASTERSCOPE 124538 . 125064) (MASTERSCOPE1
|
||||
125066 . 125934) (MASTERSCOPEXEC 125936 . 127874)) (127915 167565 (MSINTERPRETSET 127925 . 156459) (
|
||||
MSINTERPA 156461 . 156995) (MSGETBLOCKDEC 156997 . 159510) (LISTHARD 159512 . 160730) (MSMEMBSET
|
||||
160732 . 160877) (MSLISTSET 160879 . 161244) (MSHASHLIST 161246 . 161413) (MSHASHLIST1 161415 . 161741
|
||||
) (CHECKPATHS 161743 . 162383) (ONFILE 162385 . 167563)) (167566 190732 (MSINTERPRET 167576 . 184429)
|
||||
(VERBNOTICELIST 184431 . 185541) (MSOUTPUT 185543 . 185860) (MSCHECKEMPTY 185862 . 187066) (
|
||||
CHECKFORCHANGED 187068 . 187588) (MSSOLVE 187590 . 190730)))))
|
||||
(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 191885 (MSINTERPRET 167823 . 184676)
|
||||
(VERBNOTICELIST 184678 . 185788) (MSOUTPUT 185790 . 187013) (MSCHECKEMPTY 187015 . 188219) (
|
||||
CHECKFORCHANGED 188221 . 188741) (MSSOLVE 188743 . 191883)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 2-Nov-2023 10:53:30" {WMEDLEY}<lispusers>PSEUDOHOSTS.;160 26843
|
||||
(FILECREATED "31-Dec-2024 11:45:23" {WMEDLEY}<library>PSEUDOHOSTS.;177 29713
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS PSEUDOHOST)
|
||||
:CHANGES-TO (FNS TRUEDEVICE)
|
||||
|
||||
:PREVIOUS-DATE " 1-Oct-2023 20:16:43" {WMEDLEY}<lispusers>PSEUDOHOSTS.;159)
|
||||
:PREVIOUS-DATE "25-Dec-2024 07:38:10" {WMEDLEY}<library>PSEUDOHOSTS.;176)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT PSEUDOHOSTSCOMS)
|
||||
@@ -15,16 +15,17 @@
|
||||
(
|
||||
(* ;; "Public entries")
|
||||
|
||||
(FNS PSEUDOHOST PSEUDOHOSTP PSEUDOHOSTS TARGETHOST TRUEFILENAME PSEUDOFILENAME)
|
||||
(FNS PSEUDOHOST PSEUDOHOSTP PSEUDOHOSTS TARGETHOST TRUEDEVICE TRUEFILENAME PSEUDOFILENAME)
|
||||
|
||||
(* ;; "Internals")
|
||||
|
||||
(FNS EXPAND.PH CONTRACT.PH UNSLASHIT GETHOSTINFO.PH)
|
||||
(FNS CDPSEUDO)
|
||||
(FNS OPENFILE.PH GETFILENAME.PH DIRECTORYNAMEP.PH CLOSEFILE.PH REOPENFILE.PH DELETEFILE.PH
|
||||
OPENP.PH UNREGISTERFILE.PH REGISTERFILE.PH GENERATEFILES.PH GETFILEINFO.PH
|
||||
SETFILEINFO.PH NEXTFILEFN.PH FILEINFOFN.PH RENAMEFILE.PH)
|
||||
(P (PSEUDOHOST 'LI LOGINHOST/DIR)
|
||||
(MOVD? 'GETHOSTINFO 'GETHOSTINFO.ORIG)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (PSEUDOHOST 'LI LOGINHOST/DIR)))
|
||||
(P (MOVD? 'GETHOSTINFO 'GETHOSTINFO.ORIG)
|
||||
(MOVD 'GETHOSTINFO.PH 'GETHOSTINFO))
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS PHDEVICE PHGENFILESTATE TARGETDEVICE)
|
||||
(MACROS PSEUDOHOST.NAME PSEUDOHOST.TARGETVAL)
|
||||
@@ -136,9 +137,14 @@
|
||||
HOST])
|
||||
|
||||
(PSEUDOHOSTP
|
||||
[LAMBDA (HOST) (* ; "Edited 24-Feb-2022 23:51 by rmk")
|
||||
[LAMBDA (HOST) (* ; "Edited 16-Dec-2024 21:15 by rmk")
|
||||
(* ; "Edited 24-Feb-2022 23:51 by rmk")
|
||||
(* ; "Edited 18-Jan-2022 11:29 by rmk")
|
||||
(LET ((DEV (\GETDEVICEFROMNAME HOST T T)))
|
||||
(LET [(DEV (if (type? FDEV HOST)
|
||||
then HOST
|
||||
elseif (type? STREAM HOST)
|
||||
then (fetch (STREAM DEVICE) of HOST)
|
||||
else (\GETDEVICEFROMNAME HOST T T]
|
||||
(CL:WHEN (AND DEV (type? FDEV (fetch (PHDEVICE TARGETDEV) OF DEV)))
|
||||
(LIST (FETCH (FDEV DEVICENAME) OF DEV)
|
||||
(FETCH (PHDEVICE PREFIX)
|
||||
@@ -151,9 +157,30 @@
|
||||
(FETCH (PHDEVICE PREFIX) OF DEV])
|
||||
|
||||
(TARGETHOST
|
||||
[LAMBDA (HOST) (* ; "Edited 22-Jan-2022 09:00 by rmk")
|
||||
(CL:WHEN (PSEUDOHOSTP HOST)
|
||||
(FETCH (FDEV DEVICENAME) OF (FETCH (PHDEVICE TARGETDEV) OF (\GETDEVICEFROMNAME HOST))))])
|
||||
[LAMBDA (HOST) (* ; "Edited 14-Dec-2024 15:26 by rmk")
|
||||
(* ; "Edited 12-Dec-2024 16:16 by rmk")
|
||||
(* ; "Edited 22-Jan-2022 09:00 by rmk")
|
||||
(if (STREAMP HOST)
|
||||
then (CL:WHEN (type? FDEV (fetch (PHDEVICE TARGETDEV) of (fetch (STREAM DEVICE) of HOST)))
|
||||
(fetch (FDEV DEVICENAME) of (fetch (PHDEVICE TARGETDEV) of (fetch (STREAM DEVICE)
|
||||
of HOST))))
|
||||
elseif (PSEUDOHOSTP HOST)
|
||||
then (fetch (FDEV DEVICENAME) of (fetch (PHDEVICE TARGETDEV) of (\GETDEVICEFROMNAME HOST T T])
|
||||
|
||||
(TRUEDEVICE
|
||||
[LAMBDA (X) (* ; "Edited 31-Dec-2024 11:44 by rmk")
|
||||
(* ; "Edited 25-Dec-2024 07:37 by rmk")
|
||||
(* ; "Edited 23-Dec-2024 22:56 by rmk")
|
||||
(* ; "Edited 16-Dec-2024 17:36 by rmk")
|
||||
(* ; "Edited 12-Dec-2024 14:34 by rmk")
|
||||
(LET [(DEV (if (type? FDEV X)
|
||||
then X
|
||||
elseif (STREAMP X)
|
||||
then (fetch (STREAM DEVICE) of X)
|
||||
else (\GETDEVICEFROMNAME X]
|
||||
(if (type? FDEV (fetch (PHDEVICE TARGETDEV) of DEV))
|
||||
then (fetch (PHDEVICE TARGETDEV) of DEV)
|
||||
else DEV])
|
||||
|
||||
(TRUEFILENAME
|
||||
[LAMBDA (FILE) (* ; "Edited 1-Oct-2023 20:16 by rmk")
|
||||
@@ -301,6 +328,24 @@
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(CDPSEUDO
|
||||
[LAMBDA (PHOST CDSUFFIX FILEPKG) (* ; "Edited 21-Dec-2024 13:48 by rmk")
|
||||
(* ; "Edited 6-Feb-2024 15:50 by rmk")
|
||||
|
||||
(* ;; "Makes a cd command for PHOST. The command name is %"cd%" followed by the lower-case letters of CDSUFFIX (e.g. cdf for PHOST FOO and CDSUFFIX %"f%".")
|
||||
|
||||
(CL:WHEN (AND (SETQ PHOST (CAR (PSEUDOHOSTP PHOST)))
|
||||
CDSUFFIX)
|
||||
[LET ((C (PACK* "cd" (L-CASE CDSUFFIX)))
|
||||
(FILEPKGFLG FILEPKG))
|
||||
(DECLARE (SPECVARS FILEPKGFLG))
|
||||
(SETQ PHOST (CONCAT "{" PHOST "}"))
|
||||
(EVAL `(DEFCOMMAND ,C (SUBDIR) (/CNDIR (CL:IF SUBDIR
|
||||
(CONCAT ,PHOST "/" SUBDIR)
|
||||
,PHOST)))])])
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(OPENFILE.PH
|
||||
[LAMBDA (FILE ACCESS RECOG OTHERINFO FDEV OLDSTRING)
|
||||
|
||||
@@ -453,8 +498,10 @@
|
||||
(SETQ RESULT (CONTRACT.PH RESULT NEW-DEVICE)))
|
||||
RESULT])
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
(PSEUDOHOST 'LI LOGINHOST/DIR)
|
||||
)
|
||||
|
||||
(MOVD? 'GETHOSTINFO 'GETHOSTINFO.ORIG)
|
||||
|
||||
@@ -515,12 +562,13 @@
|
||||
EXPORTS.ALL)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1254 10126 (PSEUDOHOST 1264 . 6972) (PSEUDOHOSTP 6974 . 7487) (PSEUDOHOSTS 7489 . 7850)
|
||||
(TARGETHOST 7852 . 8126) (TRUEFILENAME 8128 . 9253) (PSEUDOFILENAME 9255 . 10124)) (10154 16169 (
|
||||
EXPAND.PH 10164 . 11417) (CONTRACT.PH 11419 . 14130) (UNSLASHIT 14132 . 15878) (GETHOSTINFO.PH 15880
|
||||
. 16167)) (16170 24190 (OPENFILE.PH 16180 . 17253) (GETFILENAME.PH 17255 . 17544) (DIRECTORYNAMEP.PH
|
||||
17546 . 18170) (CLOSEFILE.PH 18172 . 18639) (REOPENFILE.PH 18641 . 19206) (DELETEFILE.PH 19208 . 19492
|
||||
) (OPENP.PH 19494 . 19789) (UNREGISTERFILE.PH 19791 . 20333) (REGISTERFILE.PH 20335 . 20869) (
|
||||
GENERATEFILES.PH 20871 . 21915) (GETFILEINFO.PH 21917 . 22219) (SETFILEINFO.PH 22221 . 22420) (
|
||||
NEXTFILEFN.PH 22422 . 22968) (FILEINFOFN.PH 22970 . 23245) (RENAMEFILE.PH 23247 . 24188)))))
|
||||
(FILEMAP (NIL (1318 12059 (PSEUDOHOST 1328 . 7036) (PSEUDOHOSTP 7038 . 7867) (PSEUDOHOSTS 7869 . 8230)
|
||||
(TARGETHOST 8232 . 9101) (TRUEDEVICE 9103 . 10059) (TRUEFILENAME 10061 . 11186) (PSEUDOFILENAME 11188
|
||||
. 12057)) (12087 18102 (EXPAND.PH 12097 . 13350) (CONTRACT.PH 13352 . 16063) (UNSLASHIT 16065 . 17811
|
||||
) (GETHOSTINFO.PH 17813 . 18100)) (18103 19004 (CDPSEUDO 18113 . 19002)) (19005 27025 (OPENFILE.PH
|
||||
19015 . 20088) (GETFILENAME.PH 20090 . 20379) (DIRECTORYNAMEP.PH 20381 . 21005) (CLOSEFILE.PH 21007 .
|
||||
21474) (REOPENFILE.PH 21476 . 22041) (DELETEFILE.PH 22043 . 22327) (OPENP.PH 22329 . 22624) (
|
||||
UNREGISTERFILE.PH 22626 . 23168) (REGISTERFILE.PH 23170 . 23704) (GENERATEFILES.PH 23706 . 24750) (
|
||||
GETFILEINFO.PH 24752 . 25054) (SETFILEINFO.PH 25056 . 25255) (NEXTFILEFN.PH 25257 . 25803) (
|
||||
FILEINFOFN.PH 25805 . 26080) (RENAMEFILE.PH 26082 . 27023)))))
|
||||
STOP
|
||||
Binary file not shown.
@@ -1,18 +1,20 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "20-Dec-2024 07:51:49" {WMEDLEY}<library>TEDIT>TEDIT.;731 154713
|
||||
(FILECREATED "11-Jan-2025 00:09:59" {WMEDLEY}<library>TEDIT>TEDIT.;737 155171
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.WORD.FIRST)
|
||||
:CHANGES-TO (FNS \TEDIT.PARA.FIRST)
|
||||
|
||||
:PREVIOUS-DATE " 8-Dec-2024 21:39:48" {WMEDLEY}<library>TEDIT>TEDIT.;730)
|
||||
:PREVIOUS-DATE " 7-Jan-2025 13:31:36" {WMEDLEY}<library>TEDIT>TEDIT.;736)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDITCOMS)
|
||||
|
||||
(RPAQQ TEDITCOMS
|
||||
[(COMS (* ; "Loadup stuff")
|
||||
[(FILES (SYSLOAD)
|
||||
POSTSCRIPTSTREAM PDFSTREAM)
|
||||
(COMS (* ; "Loadup stuff")
|
||||
(VARS TEDITFILES)
|
||||
(FNS MAKE-TEDIT-EXPORTS.ALL UPDATE-TEDIT EDIT-TEDIT)
|
||||
(DECLARE%: DONTEVAL@LOAD DONTCOPY DONTEVAL@COMPILE
|
||||
@@ -78,6 +80,9 @@
|
||||
(ADDVARS (PRINTFILETYPES (TEDIT (TEST \TEDIT.GET.TRAILER)
|
||||
(EXTENSION (TEDIT])
|
||||
|
||||
(FILESLOAD (SYSLOAD)
|
||||
POSTSCRIPTSTREAM PDFSTREAM)
|
||||
|
||||
|
||||
|
||||
(* ; "Loadup stuff")
|
||||
@@ -742,7 +747,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(TEDIT.INSERT.OBJECT
|
||||
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 21-Oct-2024 00:26 by rmk")
|
||||
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 26-Dec-2024 10:13 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:26 by rmk")
|
||||
(* ; "Edited 2-Aug-2024 08:46 by rmk")
|
||||
(* ; "Edited 30-Jul-2024 22:19 by rmk")
|
||||
(* ; "Edited 23-Jul-2024 22:20 by rmk")
|
||||
@@ -814,7 +820,7 @@
|
||||
(\TEDIT.FIXSEL SEL TEXTOBJ))
|
||||
(\TEDIT.INSERT.SELPIECES OBJSELPIECES TEXTOBJ SEL)
|
||||
(CL:WHEN LOOKS (\TEDIT.CHANGE.CHARLOOKS TSTREAM LOOKS SEL))
|
||||
(TEDIT.NORMALIZECARET TEXTOBJ)
|
||||
(\TEDIT.SCROLL.CARET TSTREAM)
|
||||
(\TEDIT.SHOWSEL SEL T TEXTOBJ])
|
||||
|
||||
(TEDIT.EDIT.OBJECT
|
||||
@@ -1420,7 +1426,8 @@
|
||||
(T TSTREAM)))])
|
||||
|
||||
(\TEDIT.INSERT
|
||||
[LAMBDA (INSERT SEL TSTREAM DONTSCROLL TYPEIN) (* ; "Edited 28-Nov-2024 09:53 by rmk")
|
||||
[LAMBDA (INSERT SEL TSTREAM DONTSCROLL TYPEIN) (* ; "Edited 5-Jan-2025 23:01 by rmk")
|
||||
(* ; "Edited 28-Nov-2024 09:53 by rmk")
|
||||
(* ; "Edited 25-Nov-2024 22:05 by rmk")
|
||||
(* ; "Edited 18-Nov-2024 15:53 by rmk")
|
||||
(* ; "Edited 15-Nov-2024 18:05 by rmk")
|
||||
@@ -1472,7 +1479,7 @@
|
||||
(* ;; "It's maybe worth a scan here to see if we can insert the string. This avoids the heavier per-character complexity of \INSERTCH.")
|
||||
|
||||
(for CH instring INSERT as NCH# from CARETCHNO
|
||||
do (\TEDIT.INSERTCH CH NCH# TEXTOBJ PARACHARS))
|
||||
do (\TEDIT.INSERTCH CH NCH# TEXTOBJ (MEMB CH PARACHARS)))
|
||||
(SETQ NCHARSADDED (NCHARS INSERT))
|
||||
else (\TEDIT.INSERTCH INSERT CARETCHNO TEXTOBJ)
|
||||
(SETQ NCHARSADDED (NCHARS INSERT)))
|
||||
@@ -2233,7 +2240,8 @@
|
||||
SPLASTCHAR _ (CAR LAST])
|
||||
|
||||
(\TEDIT.PARA.FIRST
|
||||
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 17-Mar-2024 00:27 by rmk")
|
||||
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 11-Jan-2025 00:08 by rmk")
|
||||
(* ; "Edited 17-Mar-2024 00:27 by rmk")
|
||||
(* ; "Edited 19-Jan-2024 10:10 by rmk")
|
||||
(* ; "Edited 26-Dec-2023 09:14 by rmk")
|
||||
(* ; "Edited 24-Dec-2023 22:14 by rmk")
|
||||
@@ -2265,13 +2273,12 @@
|
||||
until (AND PROTECTEDNOTOK (fetch (CHARLOOKS CLPROTECTED) of (PLOOKS PC)))
|
||||
do (add PLENTOT (PLEN PC)) finally
|
||||
|
||||
(* ;;
|
||||
"We overshot on PC, its NEXT is the winner. If no PC, we hit the text beginning")
|
||||
(* ;; "If the iteration reached the beginning, there is no PREVPIECE. Otherwise, PC is the previous PARALAST, and we have to take its next")
|
||||
|
||||
(RETURN (CONS (IDIFFERENCE START PLENTOT)
|
||||
(CL:IF PC
|
||||
(CL:IF (PREVPIECE PC)
|
||||
(NEXTPIECE PC)
|
||||
(\TEDIT.FIRSTPIECE TEXTOBJ))])
|
||||
PC)])
|
||||
|
||||
(\TEDIT.PARA.LAST
|
||||
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 17-Mar-2024 00:27 by rmk")
|
||||
@@ -2478,7 +2485,7 @@
|
||||
(* ; "TEDIT Support information")
|
||||
|
||||
|
||||
(RPAQQ TEDITSYSTEMDATE "20-Dec-2024 07:51:50")
|
||||
(RPAQQ TEDITSYSTEMDATE "11-Jan-2025 00:09:59")
|
||||
|
||||
|
||||
|
||||
@@ -2488,28 +2495,28 @@
|
||||
(ADDTOVAR PRINTFILETYPES (TEDIT (TEST \TEDIT.GET.TRAILER)
|
||||
(EXTENSION (TEDIT))))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4507 6449 (MAKE-TEDIT-EXPORTS.ALL 4517 . 5063) (UPDATE-TEDIT 5065 . 5678) (EDIT-TEDIT
|
||||
5680 . 6447)) (8122 36577 (TEDIT 8132 . 10710) (TEXTSTREAM 10712 . 12632) (TEXTSTREAMP 12634 . 13018)
|
||||
(TEDITMENUP 13020 . 13786) (COERCETEXTSTREAM 13788 . 17999) (TEDIT.CONCAT 18001 . 21180) (TEDITSTRING
|
||||
21182 . 22035) (TEDIT-SEE 22037 . 22596) (TEDIT.COPY 22598 . 24743) (TEDIT.DELETE 24745 . 25997) (
|
||||
TEDIT.INSERT 25999 . 28957) (TEDIT.TERPRI 28959 . 30073) (TEDIT.KILL 30075 . 30991) (TEDIT.QUIT 30993
|
||||
. 32768) (TEDIT.MOVE 32770 . 33658) (TEDIT.STRINGWIDTH 33660 . 34331) (TEDIT.CHARWIDTH 34333 . 36575)
|
||||
) (36578 38519 (TEXTOBJ 36588 . 37053) (COERCETEXTOBJ 37055 . 38517)) (39919 40975 (TDRIBBLE 39929 .
|
||||
40973)) (41016 55977 (TEDIT.INSERT.OBJECT 41026 . 45617) (TEDIT.EDIT.OBJECT 45619 . 47960) (
|
||||
TEDIT.FIND.OBJECT 47962 . 49470) (TEDIT.FIND.OBJECT.BACKWARD 49472 . 51399) (TEDIT.OBJECT.CHANGED
|
||||
51401 . 54268) (TEDIT.MAP.OBJECTS 54270 . 55505) (\TEDIT.FIRST.OBJPIECE 55507 . 55740) (
|
||||
\TEDIT.NEXT.OBJPIECE 55742 . 55975)) (56000 64557 (\TEDIT.CONCAT.PAGEFRAMES 56010 . 61144) (
|
||||
\TEDIT.GET.PAGE.HEADINGS 61146 . 62175) (\TEDIT.CONCAT.INSTALL.HEADINGS 62177 . 63508) (
|
||||
\TEDIT.DO.BLUEPENDINGDELETE 63510 . 64555)) (64558 67987 (\TEDIT.MOVE.MSG 64568 . 66649) (
|
||||
\TEDIT.READONLY 66651 . 67985)) (67988 82609 (TEDIT.NCHARS 67998 . 68371) (TEDIT.RPLCHARCODE 68373 .
|
||||
76173) (TEDIT.NTHCHARCODE 76175 . 78532) (TEDIT.NTHCHAR 78534 . 78792) (\TEDIT.PIECE.NTHCHARCODE 78794
|
||||
. 82607)) (82655 136918 (\TEDIT1 82665 . 84742) (\TEDIT.INSERT 84744 . 90602) (\TEDIT.MOVE 90604 .
|
||||
98003) (\TEDIT.COPY 98005 . 101983) (\TEDIT.REPLACE.SELPIECES 101985 . 105965) (
|
||||
\TEDIT.INSERT.SELPIECES 105967 . 108852) (\TEDIT.RESTARTFN 108854 . 111359) (\TEDIT.CHARDELETE 111361
|
||||
. 114188) (\TEDIT.COPYPIECE 114190 . 119038) (\TEDIT.APPLY.OBJFN 119040 . 122237) (\TEDIT.DELETE
|
||||
122239 . 127048) (\TEDIT.DIFFUSE.PARALOOKS 127050 . 129321) (\TEDIT.WORDDELETE 129323 . 130879) (
|
||||
\TEDIT.WORDDELETE.FORWARD 130881 . 132553) (\TEDIT.FINISHEDIT? 132555 . 136916)) (136919 137578 (
|
||||
\TEDIT.THELP 136929 . 137576)) (137612 145097 (\TEDIT.PARAPIECES 137622 . 139596) (\TEDIT.PARA.FIRST
|
||||
139598 . 142364) (\TEDIT.PARA.LAST 142366 . 145095)) (145098 154063 (\TEDIT.WORD.FIRST 145108 . 149764
|
||||
) (\TEDIT.WORD.LAST 149766 . 154061)))))
|
||||
(FILEMAP (NIL (4632 6574 (MAKE-TEDIT-EXPORTS.ALL 4642 . 5188) (UPDATE-TEDIT 5190 . 5803) (EDIT-TEDIT
|
||||
5805 . 6572)) (8247 36702 (TEDIT 8257 . 10835) (TEXTSTREAM 10837 . 12757) (TEXTSTREAMP 12759 . 13143)
|
||||
(TEDITMENUP 13145 . 13911) (COERCETEXTSTREAM 13913 . 18124) (TEDIT.CONCAT 18126 . 21305) (TEDITSTRING
|
||||
21307 . 22160) (TEDIT-SEE 22162 . 22721) (TEDIT.COPY 22723 . 24868) (TEDIT.DELETE 24870 . 26122) (
|
||||
TEDIT.INSERT 26124 . 29082) (TEDIT.TERPRI 29084 . 30198) (TEDIT.KILL 30200 . 31116) (TEDIT.QUIT 31118
|
||||
. 32893) (TEDIT.MOVE 32895 . 33783) (TEDIT.STRINGWIDTH 33785 . 34456) (TEDIT.CHARWIDTH 34458 . 36700)
|
||||
) (36703 38644 (TEXTOBJ 36713 . 37178) (COERCETEXTOBJ 37180 . 38642)) (40044 41100 (TDRIBBLE 40054 .
|
||||
41098)) (41141 56210 (TEDIT.INSERT.OBJECT 41151 . 45850) (TEDIT.EDIT.OBJECT 45852 . 48193) (
|
||||
TEDIT.FIND.OBJECT 48195 . 49703) (TEDIT.FIND.OBJECT.BACKWARD 49705 . 51632) (TEDIT.OBJECT.CHANGED
|
||||
51634 . 54501) (TEDIT.MAP.OBJECTS 54503 . 55738) (\TEDIT.FIRST.OBJPIECE 55740 . 55973) (
|
||||
\TEDIT.NEXT.OBJPIECE 55975 . 56208)) (56233 64790 (\TEDIT.CONCAT.PAGEFRAMES 56243 . 61377) (
|
||||
\TEDIT.GET.PAGE.HEADINGS 61379 . 62408) (\TEDIT.CONCAT.INSTALL.HEADINGS 62410 . 63741) (
|
||||
\TEDIT.DO.BLUEPENDINGDELETE 63743 . 64788)) (64791 68220 (\TEDIT.MOVE.MSG 64801 . 66882) (
|
||||
\TEDIT.READONLY 66884 . 68218)) (68221 82842 (TEDIT.NCHARS 68231 . 68604) (TEDIT.RPLCHARCODE 68606 .
|
||||
76406) (TEDIT.NTHCHARCODE 76408 . 78765) (TEDIT.NTHCHAR 78767 . 79025) (\TEDIT.PIECE.NTHCHARCODE 79027
|
||||
. 82840)) (82888 137270 (\TEDIT1 82898 . 84975) (\TEDIT.INSERT 84977 . 90954) (\TEDIT.MOVE 90956 .
|
||||
98355) (\TEDIT.COPY 98357 . 102335) (\TEDIT.REPLACE.SELPIECES 102337 . 106317) (
|
||||
\TEDIT.INSERT.SELPIECES 106319 . 109204) (\TEDIT.RESTARTFN 109206 . 111711) (\TEDIT.CHARDELETE 111713
|
||||
. 114540) (\TEDIT.COPYPIECE 114542 . 119390) (\TEDIT.APPLY.OBJFN 119392 . 122589) (\TEDIT.DELETE
|
||||
122591 . 127400) (\TEDIT.DIFFUSE.PARALOOKS 127402 . 129673) (\TEDIT.WORDDELETE 129675 . 131231) (
|
||||
\TEDIT.WORDDELETE.FORWARD 131233 . 132905) (\TEDIT.FINISHEDIT? 132907 . 137268)) (137271 137930 (
|
||||
\TEDIT.THELP 137281 . 137928)) (137964 145555 (\TEDIT.PARAPIECES 137974 . 139948) (\TEDIT.PARA.FIRST
|
||||
139950 . 142822) (\TEDIT.PARA.LAST 142824 . 145553)) (145556 154521 (\TEDIT.WORD.FIRST 145566 . 150222
|
||||
) (\TEDIT.WORD.LAST 150224 . 154519)))))
|
||||
STOP
|
||||
|
||||
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "22-Dec-2024 22:47:22" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;200 119344
|
||||
(FILECREATED "12-Jan-2025 13:03:46" {WMEDLEY}<library>tedit>TEDIT-BUTTONS.;213 124294
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS MB.3STATE.BUTTONEVENTINFN)
|
||||
:CHANGES-TO (FNS MB.BUTTONEVENTINFN MB.CREATE MB.GET MB.FIELD.CREATE MB.FIELD.PREFIXCREATE)
|
||||
|
||||
:PREVIOUS-DATE "20-Dec-2024 22:19:48" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;198)
|
||||
:PREVIOUS-DATE " 9-Jan-2025 16:52:13" {WMEDLEY}<library>tedit>TEDIT-BUTTONS.;208)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-BUTTONSCOMS)
|
||||
@@ -24,7 +24,6 @@
|
||||
(FNS MB.BUTTONEVENTINFN MB.DISPLAYFN MB.SETIMAGE MB.SIZEFN MB.WHENOPERATEDONFN
|
||||
MB.COPYFN MB.GETFN MB.PUTFN MB.SHOWSELFN MB.CREATE MB.CHANGENAME MB.INIT
|
||||
MB.TRACK.UNTIL MB.DON'T)
|
||||
(GLOBALVARS MB.IMAGEFNS)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.INIT]
|
||||
[COMS (* ; "3STATE")
|
||||
|
||||
@@ -32,7 +31,6 @@
|
||||
|
||||
(FNS MB.3STATE.CREATE MB.3STATE.DISPLAYFN MB.3STATE.SHOWSELFN MB.3STATE.INIT
|
||||
MB.3STATE.SETSTATEFN MB.3STATE.BUTTONEVENTINFN)
|
||||
(GLOBALVARS MB.3STATE.IMAGEFNS)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.3STATE.INIT]
|
||||
[COMS (* ; "NWAY")
|
||||
|
||||
@@ -42,18 +40,15 @@
|
||||
MB.NWAY.SELECT MB.NWAY.BUTTONEVENTINFN MB.NWAY.NEWMENUBUTTON MB.NWAY.COPYFN
|
||||
MB.NWAY.INIT MB.NWAY.ARRANGEBUTTONS MB.NWAY.ADDITEM MB.NWAY.FINDSUBOBJ
|
||||
MB.NWAY.SETSTATEFN)
|
||||
(GLOBALVARS MB.NWAY.IMAGEFNS)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.NWAY.INIT]
|
||||
[COMS (* ; "TOGGLE")
|
||||
(FNS MB.TOGGLE.CREATE MB.TOGGLE.DISPLAYFN MB.TOGGLE.INIT MB.SET.TOGGLE
|
||||
MB.TOGGLE.SETSTATEFN MB.TOGGLE.BUTTONEVENTINFN MB.TOGGLE.WHENOPERATEDONFN)
|
||||
(GLOBALVARS MB.TOGGLE.IMAGEFNS)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.TOGGLE.INIT]
|
||||
(COMS (* ; "FIELDS")
|
||||
(FNS MB.FIELD.CREATE MB.FIELD.DISPLAYFN MB.FIELD.IMAGEBOXFN MB.FIELD.PREFIXCREATE
|
||||
MB.FIELD.SUFFIXCREATE MB.FIELD.INIT MB.FIELD.WHENOPERATEDONFN MB.FIELD.GETSTATEFN
|
||||
MB.FIELD.SETSTATEFN MB.FIELD.BUTTONEVENTINFN MB.FIELD.SIZEFN MB.FIELD.INSURETYPE)
|
||||
(GLOBALVARS MB.FIELD.IMAGEFNS)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.FIELD.INIT])
|
||||
|
||||
|
||||
@@ -72,7 +67,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(MB.ADD
|
||||
[LAMBDA (MENUDESC MENUTSTREAM WHERE) (* ; "Edited 22-Oct-2024 09:16 by rmk")
|
||||
[LAMBDA (MENUDESC MENUTSTREAM WHERE INCREMENTALUPDATES) (* ; "Edited 5-Jan-2025 11:36 by rmk")
|
||||
(* ; "Edited 22-Oct-2024 09:16 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:26 by rmk")
|
||||
(* ; "Edited 18-Oct-2024 13:49 by rmk")
|
||||
(* ; "Edited 6-Oct-2024 15:25 by rmk")
|
||||
@@ -92,73 +88,80 @@
|
||||
|
||||
(* ;; "Returns the textstream character number of the character just after the last inserted character/object.")
|
||||
|
||||
(for DESC TYPE SPEC OBJ [EOL _ (CONCATCODES (CHARCODE (EOL]
|
||||
[TAB _ (CONCATCODES (CHARCODE (TAB]
|
||||
(CH# _ (if (NULL WHERE)
|
||||
then (ADD1 (TEXTLEN (FGETTSTR MENUTSTREAM TEXTOBJ)))
|
||||
elseif (FIXP WHERE)
|
||||
else (\ILLEGAL.ARG WHERE))) in MENUDESC declare (SPECVARS CH#)
|
||||
do (SETQ DESC (MKLIST DESC)) (* ; "MKLIST for EOL/TAB, FIXP")
|
||||
(SETQ TYPE (CAR DESC))
|
||||
(SETQ SPEC (CDR DESC))
|
||||
(SELECTQ TYPE
|
||||
( (* ; ;; NIL)
|
||||
(RESETLST
|
||||
(CL:UNLESS INCREMENTALUPDATES (TEDIT.DEFER.UPDATES MENUTSTREAM))
|
||||
(for DESC TYPE SPEC OBJ [EOL _ (CONCATCODES (CHARCODE (EOL]
|
||||
[TAB _ (CONCATCODES (CHARCODE (TAB]
|
||||
(CH# _ (if (NULL WHERE)
|
||||
then (ADD1 (TEXTLEN (FGETTSTR MENUTSTREAM TEXTOBJ)))
|
||||
elseif (FIXP WHERE)
|
||||
else (\ILLEGAL.ARG WHERE))) in MENUDESC declare (SPECVARS CH#)
|
||||
do (SETQ DESC (MKLIST DESC)) (* ; "MKLIST for EOL/TAB, FIXP")
|
||||
(SETQ TYPE (CAR DESC))
|
||||
(SETQ SPEC (CDR DESC))
|
||||
(SELECTQ TYPE
|
||||
( (* ; ;; NIL)
|
||||
(* ;
|
||||
"Ignore comments within menu descriptions")
|
||||
)
|
||||
(EOL (TEDIT.INSERT MENUTSTREAM EOL CH# '(PROTECTED ON))
|
||||
(add CH# 1))
|
||||
(TAB (TEDIT.INSERT MENUTSTREAM TAB CH# '(PROTECTED ON))
|
||||
(add CH# 1))
|
||||
(ACTION (* ; "Hitting calls a function")
|
||||
(TEDIT.INSERT.OBJECT (MB.CREATE SPEC)
|
||||
MENUTSTREAM CH# '(PROTECTED OFF))
|
||||
(add CH# 1))
|
||||
(3STATE (* ;
|
||||
)
|
||||
(EOL (TEDIT.INSERT MENUTSTREAM EOL CH# '(PROTECTED ON))
|
||||
(add CH# 1))
|
||||
(TAB (TEDIT.INSERT MENUTSTREAM TAB CH# '(PROTECTED ON))
|
||||
(add CH# 1))
|
||||
(ACTION (* ; "Hitting calls a function")
|
||||
(TEDIT.INSERT.OBJECT (MB.CREATE SPEC)
|
||||
MENUTSTREAM CH# '(PROTECTED OFF))
|
||||
(add CH# 1))
|
||||
(3STATE (* ;
|
||||
"3-state button; hitting it changes state among ON, OFF, and NEUTRAL.")
|
||||
(TEDIT.INSERT.OBJECT (MB.3STATE.CREATE SPEC)
|
||||
MENUTSTREAM CH# '(PROTECTED OFF))
|
||||
(add CH# 1))
|
||||
(TOGGLE (* ;
|
||||
(TEDIT.INSERT.OBJECT (MB.3STATE.CREATE SPEC)
|
||||
MENUTSTREAM CH# '(PROTECTED OFF))
|
||||
(add CH# 1))
|
||||
(TOGGLE (* ;
|
||||
"TOGGLE button; hitting it switches between ON and OFF.")
|
||||
(TEDIT.INSERT.OBJECT (MB.TOGGLE.CREATE SPEC)
|
||||
MENUTSTREAM CH# '(PROTECTED OFF))
|
||||
(add CH# 1))
|
||||
(NWAY (* ;
|
||||
(TEDIT.INSERT.OBJECT (MB.TOGGLE.CREATE SPEC)
|
||||
MENUTSTREAM CH# '(PROTECTED OFF))
|
||||
(add CH# 1))
|
||||
(NWAY (* ;
|
||||
"N-way buttons; choosing one turns the others off.")
|
||||
(SETQ OBJ (MB.NWAY.CREATE SPEC))
|
||||
(TEDIT.INSERT.OBJECT OBJ MENUTSTREAM CH# '(PROTECTED OFF))
|
||||
(add CH# 1))
|
||||
(TEXT (* ; "Arbitrary protected text.")
|
||||
[TEDIT.INSERT MENUTSTREAM (CADR (ASSOC 'STRING SPEC))
|
||||
CH#
|
||||
(CL:IF (CADR (ASSOC 'FONT SPEC))
|
||||
`(FONT ,(CADR (ASSOC 'FONT SPEC))
|
||||
PROTECTED ON)
|
||||
'(PROTECTED ON))]
|
||||
[add CH# (NCHARS (CADR (ASSOC 'STRING SPEC])
|
||||
(FIELD (SETQ CH# (MB.FIELD.CREATE SPEC MENUTSTREAM CH#)))
|
||||
(MENU (* ;
|
||||
(SETQ OBJ (MB.NWAY.CREATE SPEC))
|
||||
(TEDIT.INSERT.OBJECT OBJ MENUTSTREAM CH# '(PROTECTED OFF))
|
||||
(add CH# 1))
|
||||
(TEXT (* ; "Arbitrary protected text.")
|
||||
[TEDIT.INSERT MENUTSTREAM (CADR (ASSOC 'STRING SPEC))
|
||||
CH#
|
||||
(CL:IF (CADR (ASSOC 'FONT SPEC))
|
||||
`(FONT ,(CADR (ASSOC 'FONT SPEC))
|
||||
PROTECTED ON)
|
||||
'(PROTECTED ON))]
|
||||
[add CH# (NCHARS (CADR (ASSOC 'STRING SPEC])
|
||||
(FIELD (SETQ CH# (MB.FIELD.CREATE SPEC MENUTSTREAM CH#)))
|
||||
(MENU (* ;
|
||||
"Real menu, except the selection sticks")
|
||||
(\TEDIT.THELP "NOT IMPLEMENTED")
|
||||
(TEDIT.INSERT.OBJECT (MB.CREATE.FULLMENU (CADR SPEC))
|
||||
MENUTSTREAM CH# '(PROTECTED OFF))
|
||||
(add CH# 1))
|
||||
(if (STRINGP TYPE)
|
||||
then (TEDIT.INSERT MENUTSTREAM TYPE CH# '(PROTECTED ON))
|
||||
(add CH# (NCHARS TYPE))
|
||||
elseif (FIXP TYPE)
|
||||
then (* ; "TYPE spaces")
|
||||
(TEDIT.INSERT MENUTSTREAM (ALLOCSTRING TYPE (CHARCODE SPACE))
|
||||
CH#
|
||||
'(PROTECTED ON))
|
||||
(add CH# TYPE)
|
||||
elseif (LISTP TYPE)
|
||||
then
|
||||
(* ;; "Form to be evaluated")
|
||||
(\TEDIT.THELP "NOT IMPLEMENTED")
|
||||
(TEDIT.INSERT.OBJECT (MB.CREATE.FULLMENU (CADR SPEC))
|
||||
MENUTSTREAM CH# '(PROTECTED OFF))
|
||||
(add CH# 1))
|
||||
(if (STRINGP TYPE)
|
||||
then (TEDIT.INSERT MENUTSTREAM TYPE CH# '(PROTECTED ON))
|
||||
(add CH# (NCHARS TYPE))
|
||||
elseif (FIXP TYPE)
|
||||
then (* ; "TYPE spaces")
|
||||
(TEDIT.INSERT MENUTSTREAM (ALLOCSTRING TYPE (CHARCODE SPACE))
|
||||
CH#
|
||||
'(PROTECTED ON))
|
||||
(add CH# TYPE)
|
||||
elseif (LISTP TYPE)
|
||||
then
|
||||
(* ;; "Form to be evaluated")
|
||||
|
||||
(add CH# (EVAL TYPE))
|
||||
else (\ILLEGAL.ARG DESC))) finally (RETURN CH#])
|
||||
(add CH# (EVAL TYPE))
|
||||
else (\ILLEGAL.ARG DESC))) finally (\TEDIT.SHOWSEL NIL NIL MENUTSTREAM)
|
||||
(* ;
|
||||
"User has to click to get a selection")
|
||||
(SETSEL (TEXTSEL (GETTSTR MENUTSTREAM TEXTOBJ))
|
||||
SET NIL)
|
||||
(RETURN CH#)))])
|
||||
|
||||
(MB.DELETE
|
||||
[LAMBDA (IDENTIFIERS MENUSTREAM) (* ; "Edited 8-Nov-2024 08:58 by rmk")
|
||||
@@ -168,7 +171,8 @@
|
||||
(CAR CHNOS])
|
||||
|
||||
(MB.GET
|
||||
[LAMBDA (IDENTIFIERS MENUSTREAM RETURNS START BEFORE) (* ; "Edited 13-Dec-2024 09:24 by rmk")
|
||||
[LAMBDA (IDENTIFIERS MENUSTREAM RETURNS START BEFORE) (* ; "Edited 11-Jan-2025 20:49 by rmk")
|
||||
(* ; "Edited 13-Dec-2024 09:24 by rmk")
|
||||
(* ; "Edited 2-Dec-2024 09:41 by rmk")
|
||||
(* ; "Edited 7-Nov-2024 22:20 by rmk")
|
||||
(* ; "Edited 22-Oct-2024 22:02 by rmk")
|
||||
@@ -251,9 +255,9 @@
|
||||
(ERROR R " is not a button return"))
|
||||
finally (CL:UNLESS (CDR RETURNS)
|
||||
(RETURN (CAR $$VAL)))])
|
||||
(CL:IF (LITATOM IDENTIFIERS)
|
||||
(CADR RESULT)
|
||||
RESULT)))])
|
||||
(CL:IF (LISTP IDENTIFIERS)
|
||||
RESULT
|
||||
(CADR RESULT))))])
|
||||
|
||||
(MB.GET.MBARG
|
||||
[LAMBDA (IDPC MENUSTREAM) (* ; "Edited 17-Dec-2024 11:54 by rmk")
|
||||
@@ -315,6 +319,8 @@
|
||||
|
||||
(MB.BUTTONEVENTINFN
|
||||
[LAMBDA (OBJ MENUSTREAM SEL RELX RELY SELWINDOW HOSTSTREAM BUTTON)
|
||||
(* ; "Edited 12-Jan-2025 13:03 by rmk")
|
||||
(* ; "Edited 28-Dec-2024 20:21 by rmk")
|
||||
(* ; "Edited 22-Aug-2024 16:26 by rmk")
|
||||
(* ; "Edited 20-Aug-2024 10:04 by rmk")
|
||||
(* ; "Edited 20-Jul-2024 15:26 by rmk")
|
||||
@@ -323,8 +329,10 @@
|
||||
|
||||
(* ;; "Called when a mouse-button is down inside the object, RELX and RELY are in the objects coordinate system. Decline unless it is a normal left-button selection within the object.")
|
||||
|
||||
(TEDIT.PROMPTCLEAR MENUSTREAM)
|
||||
(if [OR (EQ BUTTON 'RIGHT)
|
||||
(SHIFTDOWNP 'CTRL)
|
||||
(SHIFTDOWNP 'SHIFT)
|
||||
(LET [(OBJBOX (IMAGEOBJPROP OBJ 'BOUNDBOX]
|
||||
(OR (ILESSP RELX 0)
|
||||
(ILESSP RELY 0)
|
||||
@@ -515,7 +523,11 @@
|
||||
'INVERT))])
|
||||
|
||||
(MB.CREATE
|
||||
[LAMBDA (SPEC IMAGEFNS) (* ; "Edited 18-Oct-2024 10:27 by rmk")
|
||||
[LAMBDA (SPEC IMAGEFNS) (* ; "Edited 12-Jan-2025 12:35 by rmk")
|
||||
(* ; "Edited 9-Jan-2025 16:51 by rmk")
|
||||
(* ; "Edited 6-Jan-2025 00:19 by rmk")
|
||||
(* ; "Edited 4-Jan-2025 16:29 by rmk")
|
||||
(* ; "Edited 18-Oct-2024 10:27 by rmk")
|
||||
(* ; "Edited 6-Oct-2024 16:59 by rmk")
|
||||
(* ; "Edited 5-Oct-2024 11:51 by rmk")
|
||||
(* ; "Edited 29-Sep-2024 14:51 by rmk")
|
||||
@@ -532,25 +544,34 @@
|
||||
|
||||
(* ;; "Create a MENU BUTTON image object, and fill in its image and function-hook fields. ")
|
||||
|
||||
(for S PROP VAL (OBJ _ (IMAGEOBJCREATE NIL (OR IMAGEFNS (CADR (ASSOC 'IMAGEFNS SPEC))
|
||||
MB.IMAGEFNS))) in SPEC
|
||||
(for S PROP VAL IDENTIFIER LABEL (OBJ _ (IMAGEOBJCREATE NIL (OR IMAGEFNS
|
||||
(CADR (ASSOC 'IMAGEFNS SPEC))
|
||||
MB.IMAGEFNS))) in SPEC
|
||||
eachtime (SETQ PROP (MKATOM (CAR S)))
|
||||
(SETQ VAL (CADR S)) unless (EQ PROP 'IMAGEFNS)
|
||||
do (SELECTQ PROP
|
||||
(FONT [SETQ VAL (FONTCREATE (FONTCREATE VAL NIL NIL NIL 'DISPLAY])
|
||||
((LABEL IDENTIFIER)
|
||||
(SETQ VAL (MKATOM VAL)))
|
||||
(LABEL (SETQ LABEL (SETQ VAL (MKSTRING VAL))))
|
||||
(IDENTIFIER (SETQ IDENTIFIER VAL)
|
||||
(GO $$ITERATE))
|
||||
NIL)
|
||||
(IMAGEOBJPROP OBJ PROP VAL)
|
||||
finally (CL:UNLESS (IMAGEOBJPROP OBJ 'FONT)
|
||||
(IMAGEOBJPROP OBJ 'FONT (FONTCREATE '(HELVETICA 8 BOLD)
|
||||
NIL NIL NIL 'DISPLAY)))
|
||||
(CL:UNLESS (IMAGEOBJPROP OBJ 'IDENTIFIER)
|
||||
(if (SETQ VAL (IMAGEOBJPROP OBJ 'LABEL))
|
||||
then [IMAGEOBJPROP OBJ 'IDENTIFIER
|
||||
(U-CASE (MKATOM (CL:STRING-TRIM '(#\Space #\Tab #\Newline #\:)
|
||||
VAL]
|
||||
else (ERROR (ERROR "Missing both IDENTIFIER and LABEL" SPEC))))
|
||||
(if (NULL IDENTIFIER)
|
||||
then (if LABEL
|
||||
then [SETQ IDENTIFIER (U-CASE (MKATOM (CL:STRING-TRIM '(#\Space #\Tab
|
||||
#\Newline #\:
|
||||
)
|
||||
LABEL]
|
||||
else (ERROR (ERROR "Missing both IDENTIFIER and LABEL" SPEC)))
|
||||
elseif (OR (LITATOM IDENTIFIER)
|
||||
(SMALLP IDENTIFIER))
|
||||
elseif (STRINGP IDENTIFIER)
|
||||
then (SETQ IDENTIFIER (MKATOM IDENTIFIER))
|
||||
else (\ILLEGAL.ARG VAL))
|
||||
(IMAGEOBJPROP OBJ 'IDENTIFIER IDENTIFIER)
|
||||
(CL:WHEN (IMAGEOBJPROP OBJ 'INITSTATE)
|
||||
(IMAGEOBJPROP OBJ 'STATE (IMAGEOBJPROP OBJ 'INITSTATE)))
|
||||
(MB.SETIMAGE OBJ)
|
||||
@@ -569,12 +590,14 @@
|
||||
(TEDIT.OBJECT.CHANGED TEXTOBJ OBJ])
|
||||
|
||||
(MB.INIT
|
||||
[LAMBDA NIL (* ; "Edited 7-Dec-2024 09:05 by rmk")
|
||||
[LAMBDA NIL (* ; "Edited 7-Jan-2025 22:49 by rmk")
|
||||
(* ; "Edited 7-Dec-2024 09:05 by rmk")
|
||||
(* ; "Edited 28-Aug-2024 23:34 by rmk")
|
||||
(* ; "Edited 24-Aug-2024 11:00 by rmk")
|
||||
(* ; "Edited 20-Aug-2024 15:23 by rmk")
|
||||
(* ; "Edited 18-Feb-2024 14:15 by rmk")
|
||||
(* jds "12-Feb-85 14:32")
|
||||
(DECLARE (GLOBALVARS MB.IMAGEFNS))
|
||||
(SETQ MB.IMAGEFNS (IMAGEFNSCREATE (FUNCTION MB.DISPLAYFN)
|
||||
(FUNCTION MB.SIZEFN)
|
||||
(FUNCTION MB.PUTFN)
|
||||
@@ -611,10 +634,6 @@
|
||||
(CL:UNLESS (IMAGEOBJPROP OBJ 'DELETABLE)
|
||||
'DON'T])
|
||||
)
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
(GLOBALVARS MB.IMAGEFNS)
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
(MB.INIT)
|
||||
@@ -696,7 +715,8 @@
|
||||
NIL])
|
||||
|
||||
(MB.3STATE.INIT
|
||||
[LAMBDA NIL (* ; "Edited 7-Dec-2024 12:38 by rmk")
|
||||
[LAMBDA NIL (* ; "Edited 7-Jan-2025 22:49 by rmk")
|
||||
(* ; "Edited 7-Dec-2024 12:38 by rmk")
|
||||
(* ; "Edited 18-Oct-2024 11:40 by rmk")
|
||||
(* ; "Edited 25-Aug-2024 23:11 by rmk")
|
||||
(* ; "Edited 20-Aug-2024 15:36 by rmk")
|
||||
@@ -704,6 +724,7 @@
|
||||
|
||||
(* ;; "Initialize the IMAGEFNS for 3-state menu button IMAGEOBJs")
|
||||
|
||||
(DECLARE (GLOBALVARS MB.3STATE.IMAGEFNS))
|
||||
(SETQ MB.3STATE.IMAGEFNS (IMAGEFNSCREATE (FUNCTION MB.3STATE.DISPLAYFN)
|
||||
(FUNCTION MB.SIZEFN)
|
||||
(FUNCTION MB.PUTFN)
|
||||
@@ -778,10 +799,6 @@
|
||||
(TEDIT.BACKTOMAIN MENUTSTREAM)))
|
||||
'DON'T])
|
||||
)
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
(GLOBALVARS MB.3STATE.IMAGEFNS)
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
(MB.3STATE.INIT)
|
||||
@@ -799,7 +816,9 @@
|
||||
(DEFINEQ
|
||||
|
||||
(MB.NWAY.CREATE
|
||||
[LAMBDA (SPEC) (* ; "Edited 20-Dec-2024 22:17 by rmk")
|
||||
[LAMBDA (SPEC) (* ; "Edited 9-Jan-2025 11:38 by rmk")
|
||||
(* ; "Edited 4-Jan-2025 21:39 by rmk")
|
||||
(* ; "Edited 20-Dec-2024 22:17 by rmk")
|
||||
(* ; "Edited 22-Oct-2024 00:26 by rmk")
|
||||
(* ; "Edited 29-Sep-2024 12:43 by rmk")
|
||||
(* ; "Edited 31-Aug-2024 14:57 by rmk")
|
||||
@@ -824,6 +843,11 @@
|
||||
(DONTAPPLY (CADR (ASSOC 'DONTAPPLY SPEC)))
|
||||
(OBJ (IMAGEOBJCREATE NIL MB.NWAY.IMAGEFNS))
|
||||
SPACING HEIGHT SUBOBJECTS)
|
||||
(if (AND IDENTIFIER (LITATOM IDENTIFIER))
|
||||
elseif (STRINGP IDENTIFIER)
|
||||
then (SETQ IDENTIFIER (MKATOM IDENTIFIER))
|
||||
else (\ILLEGAL.ARG IDENTIFIER))
|
||||
(SETQ IDENTIFIER IDENTIFIER)
|
||||
(SETQ SPACING (STRINGWIDTH " " FONT))
|
||||
[SETQ HEIGHT (IPLUS 2 (FONTPROP FONT 'HEIGHT]
|
||||
(CL:UNLESS (LISTP BUTTONS)
|
||||
@@ -986,7 +1010,9 @@
|
||||
BOX])
|
||||
|
||||
(MB.NWAY.SELECT
|
||||
[LAMBDA (OBJ SELECTED MENUWINDOW SEL) (* ; "Edited 29-Sep-2024 12:44 by rmk")
|
||||
[LAMBDA (OBJ SELECTED MENUWINDOW SEL) (* ; "Edited 3-Jan-2025 12:56 by rmk")
|
||||
(* ; "Edited 1-Jan-2025 12:30 by rmk")
|
||||
(* ; "Edited 29-Sep-2024 12:44 by rmk")
|
||||
(* ; "Edited 24-Aug-2024 15:28 by rmk")
|
||||
(* ; "Edited 20-Aug-2024 15:13 by rmk")
|
||||
(* ; "Edited 2-Aug-2024 00:28 by rmk")
|
||||
@@ -1002,29 +1028,37 @@
|
||||
(CL:WHEN (AND SELECTED (NEQ SELECTED T)
|
||||
(LITATOM SELECTED))
|
||||
(SETQ SELECTED (MB.NWAY.FINDSUBOBJ SELECTED OBJ)))
|
||||
(CL:UNLESS (EQ OLDSELECTED SELECTED) (* ; "Reclicking is a no-op. ")
|
||||
(CL:WHEN (AND OLDSELECTED SELECTED) (* ;
|
||||
(if (AND NIL (EQ OLDSELECTED SELECTED))
|
||||
then (IMAGEOBJPROP OBJ 'STATE 'OFF) (* ;
|
||||
"Reclicking the current selection turns it off. ")
|
||||
(IMAGEOBJPROP OBJ 'SELECTED NIL)
|
||||
(CL:WHEN MENUWINDOW
|
||||
(BITBLT (IMAGEOBJPROP OLDSELECTED 'BITCACHE)
|
||||
0 0 MENUWINDOW (IMAGEOBJPROP OLDSELECTED 'X)
|
||||
(IMAGEOBJPROP OLDSELECTED 'Y)
|
||||
NIL NIL 'INPUT 'REPLACE))
|
||||
else (CL:WHEN (AND OLDSELECTED SELECTED) (* ;
|
||||
"Turn the old one off if it's changing")
|
||||
(IMAGEOBJPROP OLDSELECTED 'STATE 'OFF)
|
||||
(CL:WHEN MENUWINDOW
|
||||
(BITBLT (IMAGEOBJPROP OLDSELECTED 'BITCACHE)
|
||||
0 0 MENUWINDOW (IMAGEOBJPROP OLDSELECTED 'X)
|
||||
(IMAGEOBJPROP OLDSELECTED 'Y)
|
||||
NIL NIL 'INPUT 'REPLACE))
|
||||
(IMAGEOBJPROP OBJ 'STATE NIL)
|
||||
(IMAGEOBJPROP OBJ 'SELECTED NIL))
|
||||
(CL:WHEN (AND SELECTED (NEQ T SELECTED)) (* ; "Turn on the new one.")
|
||||
(IMAGEOBJPROP SELECTED 'STATE 'ON)
|
||||
(CL:WHEN MENUWINDOW
|
||||
(BITBLT (IMAGEOBJPROP SELECTED 'BITCACHE)
|
||||
0 0 MENUWINDOW (IMAGEOBJPROP SELECTED 'X)
|
||||
(IMAGEOBJPROP SELECTED 'Y)
|
||||
NIL NIL 'INVERT 'REPLACE))
|
||||
(IMAGEOBJPROP OBJ 'SELECTED SELECTED)
|
||||
(IMAGEOBJPROP OBJ 'STATE (IMAGEOBJPROP SELECTED 'IDENTIFIER))
|
||||
(CL:WHEN (IMAGEOBJPROP OBJ 'STATECHANGEFN)
|
||||
(APPLY* (IMAGEOBJPROP OBJ 'STATECHANGEFN)
|
||||
OBJ SELECTED SEL MENUWINDOW))))])
|
||||
(IMAGEOBJPROP OLDSELECTED 'STATE 'OFF)
|
||||
(CL:WHEN MENUWINDOW
|
||||
(BITBLT (IMAGEOBJPROP OLDSELECTED 'BITCACHE)
|
||||
0 0 MENUWINDOW (IMAGEOBJPROP OLDSELECTED 'X)
|
||||
(IMAGEOBJPROP OLDSELECTED 'Y)
|
||||
NIL NIL 'INPUT 'REPLACE))
|
||||
(IMAGEOBJPROP OBJ 'STATE NIL)
|
||||
(IMAGEOBJPROP OBJ 'SELECTED NIL))
|
||||
(CL:WHEN (AND SELECTED (NEQ T SELECTED)) (* ; "Turn on the new one.")
|
||||
(IMAGEOBJPROP SELECTED 'STATE 'ON)
|
||||
(CL:WHEN MENUWINDOW
|
||||
(BITBLT (IMAGEOBJPROP SELECTED 'BITCACHE)
|
||||
0 0 MENUWINDOW (IMAGEOBJPROP SELECTED 'X)
|
||||
(IMAGEOBJPROP SELECTED 'Y)
|
||||
NIL NIL 'INVERT 'REPLACE))
|
||||
(IMAGEOBJPROP OBJ 'SELECTED SELECTED)
|
||||
(IMAGEOBJPROP OBJ 'STATE (IMAGEOBJPROP SELECTED 'IDENTIFIER))
|
||||
(CL:WHEN (IMAGEOBJPROP OBJ 'STATECHANGEFN)
|
||||
(APPLY* (IMAGEOBJPROP OBJ 'STATECHANGEFN)
|
||||
OBJ SELECTED SEL MENUWINDOW)))])
|
||||
|
||||
(MB.NWAY.BUTTONEVENTINFN
|
||||
[LAMBDA (OBJ MENUDS SEL RELX RELY SELWINDOW MENUTSTREAM BUTTON)
|
||||
@@ -1105,7 +1139,8 @@
|
||||
NEWOBJ])
|
||||
|
||||
(MB.NWAY.INIT
|
||||
[LAMBDA (BUTTONS FONT INITSTATE) (* ; "Edited 7-Dec-2024 09:05 by rmk")
|
||||
[LAMBDA (BUTTONS FONT INITSTATE) (* ; "Edited 7-Jan-2025 22:50 by rmk")
|
||||
(* ; "Edited 7-Dec-2024 09:05 by rmk")
|
||||
(* ; "Edited 24-Aug-2024 23:11 by rmk")
|
||||
(* ; "Edited 20-Aug-2024 16:41 by rmk")
|
||||
(* ; "Edited 11-Aug-2024 17:13 by rmk")
|
||||
@@ -1113,6 +1148,7 @@
|
||||
|
||||
(* ;; "Selection happens in the BUTTEVENTINFN, no WHENOPERATEDONFN")
|
||||
|
||||
(DECLARE (GLOBALVARS MB.NWAY.IMAGEFNS))
|
||||
(SETQ MB.NWAY.IMAGEFNS (IMAGEFNSCREATE (FUNCTION MB.NWAY.DISPLAYFN)
|
||||
(FUNCTION MB.NWAY.SIZEFN)
|
||||
(FUNCTION MB.PUTFN)
|
||||
@@ -1155,7 +1191,8 @@
|
||||
(RETURN (DREVERSE LINES])
|
||||
|
||||
(MB.NWAY.ADDITEM
|
||||
[LAMBDA (OBJ NEWBUTTON) (* ; "Edited 20-Oct-2024 00:13 by rmk")
|
||||
[LAMBDA (OBJ NEWBUTTON) (* ; "Edited 9-Jan-2025 11:38 by rmk")
|
||||
(* ; "Edited 20-Oct-2024 00:13 by rmk")
|
||||
(* ; "Edited 29-Sep-2024 12:47 by rmk")
|
||||
(* ; "Edited 26-Aug-2024 09:36 by rmk")
|
||||
(* ; "Edited 20-Aug-2024 15:46 by rmk")
|
||||
@@ -1169,7 +1206,7 @@
|
||||
|
||||
(CL:WHEN NEWBUTTON
|
||||
(LET* [(SUBOBJECTS (IMAGEOBJPROP OBJ 'SUBOBJECTS))
|
||||
[NEWSOBJ (MB.TOGGLE.CREATE `((IDENTIFIER ,(U-CASE NEWBUTTON))
|
||||
[NEWSOBJ (MB.TOGGLE.CREATE `((IDENTIFIER ,NEWBUTTON)
|
||||
(LABEL ,NEWBUTTON)
|
||||
(FONT ,(IMAGEOBJPROP OBJ 'FONT]
|
||||
(MAXITEMS/LINE (IMAGEOBJPROP OBJ 'MAXITEMS/LINE]
|
||||
@@ -1230,10 +1267,6 @@
|
||||
(TEDIT.OBJECT.CHANGED MENUSTREAM OBJ PC))
|
||||
PC])
|
||||
)
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
(GLOBALVARS MB.NWAY.IMAGEFNS)
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
(MB.NWAY.INIT)
|
||||
@@ -1286,7 +1319,8 @@
|
||||
(BLTSHADE BLACKSHADE STREAM X Y XSIZE YSIZE 'INVERT))])
|
||||
|
||||
(MB.TOGGLE.INIT
|
||||
[LAMBDA NIL (* ; "Edited 7-Dec-2024 12:33 by rmk")
|
||||
[LAMBDA NIL (* ; "Edited 7-Jan-2025 22:50 by rmk")
|
||||
(* ; "Edited 7-Dec-2024 12:33 by rmk")
|
||||
(* ; "Edited 19-Oct-2024 23:21 by rmk")
|
||||
(* ; "Edited 18-Oct-2024 13:27 by rmk")
|
||||
(* ; "Edited 6-Oct-2024 23:43 by rmk")
|
||||
@@ -1294,6 +1328,7 @@
|
||||
(* ; "Edited 24-Aug-2024 10:56 by rmk")
|
||||
(* ; "Edited 20-Aug-2024 15:47 by rmk")
|
||||
(* jds " 9-Feb-86 15:18")
|
||||
(DECLARE (GLOBALVARS MB.TOGGLE.IMAGEFNS))
|
||||
(SETQ MB.TOGGLE.IMAGEFNS (IMAGEFNSCREATE (FUNCTION MB.TOGGLE.DISPLAYFN)
|
||||
(FUNCTION MB.SIZEFN)
|
||||
(FUNCTION MB.PUTFN)
|
||||
@@ -1418,10 +1453,6 @@
|
||||
((DESELECTED HIGHLIGHTED UNHIGHLIGHTED))
|
||||
NIL])
|
||||
)
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
(GLOBALVARS MB.TOGGLE.IMAGEFNS)
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
(MB.TOGGLE.INIT)
|
||||
@@ -1434,7 +1465,10 @@
|
||||
(DEFINEQ
|
||||
|
||||
(MB.FIELD.CREATE
|
||||
[LAMBDA (SPEC MENUTSTREAM CH#) (* ; "Edited 16-Dec-2024 13:33 by rmk")
|
||||
[LAMBDA (SPEC MENUTSTREAM CH#) (* ; "Edited 11-Jan-2025 09:59 by rmk")
|
||||
(* ; "Edited 9-Jan-2025 16:52 by rmk")
|
||||
(* ; "Edited 5-Jan-2025 12:09 by rmk")
|
||||
(* ; "Edited 16-Dec-2024 13:33 by rmk")
|
||||
(* ; "Edited 9-Dec-2024 21:53 by rmk")
|
||||
(* ; "Edited 4-Dec-2024 15:57 by rmk")
|
||||
(* ; "Edited 20-Oct-2024 23:43 by rmk")
|
||||
@@ -1462,22 +1496,24 @@
|
||||
[FIELDFONT (FONTCREATE (OR (CADR (ASSOC 'FIELDFONT SPEC))
|
||||
'(HELVETICA 8]
|
||||
PRE POST FIELDLOOKS PREFIXOBJ SUFFIXOBJ REMAINDER)
|
||||
|
||||
(* ;; "Collect any other properties to put on the prefix")
|
||||
|
||||
(if (NULL IDENTIFIER)
|
||||
then (if PRELABEL
|
||||
then [SETQ IDENTIFIER (U-CASE (MKATOM (CL:STRING-TRIM '(#\Space #\Tab #\Newline
|
||||
#\:)
|
||||
PRELABEL]
|
||||
else (ERROR (ERROR "Missing both IDENTIFIER and PRELABEL" SPEC)))
|
||||
elseif (OR (LITATOM IDENTIFIER)
|
||||
(SMALLP IDENTIFIER))
|
||||
elseif (STRINGP IDENTIFIER)
|
||||
then (SETQ IDENTIFIER (MKATOM IDENTIFIER))
|
||||
else (\ILLEGAL.ARG IDENTIFIER))
|
||||
(push SPEC (LIST 'IDENTIFIER IDENTIFIER))
|
||||
(SETQ REMAINDER (for S in SPEC unless (MEMB (CAR S)
|
||||
'(INITSTATE PRELABEL POSTLABEL IDENTIFIER
|
||||
LABELFONT FIELDFONT)) collect S))
|
||||
|
||||
(* ;; "SPEC could specify a prelabel font different from a field font")
|
||||
|
||||
(CL:UNLESS IDENTIFIER
|
||||
(if PRELABEL
|
||||
then [push SPEC (LIST IDENTIFIER (U-CASE (MKATOM (CL:STRING-TRIM '(#\Space #\Tab
|
||||
#\Newline
|
||||
#\:)
|
||||
PRELABEL]
|
||||
else (ERROR "NO IDENTIFIER FOR FIELD")))
|
||||
[SETQ PRE `((,FIELDFONT " {"]
|
||||
(CL:WHEN PRELABEL
|
||||
(push PRE (LIST LABELFONT PRELABEL)))
|
||||
@@ -1504,10 +1540,12 @@
|
||||
(TEDIT.INSERT.OBJECT PREFIXOBJ MENUTSTREAM CH# FIELDFONT)
|
||||
(add CH# 1)
|
||||
(CL:WHEN (AND INITSTATE (NEQ INITSTATE '**EMPTY**)) (* ; "Initial entry")
|
||||
[TEDIT.INSERT MENUTSTREAM (MKSTRING INITSTATE)
|
||||
CH#
|
||||
`(FONT ,FIELDFONT]
|
||||
(add CH# (NCHARS INITSTATE)))
|
||||
(add CH# (if (EQ 'IMAGEOBJ (CADR (ASSOC 'FIELDTYPE SPEC)))
|
||||
then [TEDIT.INSERT.OBJECT INITSTATE MENUTSTREAM CH#
|
||||
`(FONT ,FIELDFONT]
|
||||
1
|
||||
else [TEDIT.INSERT MENUTSTREAM INITSTATE CH# `(FONT ,FIELDFONT]
|
||||
(NCHARS INITSTATE))))
|
||||
(TEDIT.INSERT.OBJECT SUFFIXOBJ MENUTSTREAM CH# FIELDFONT)
|
||||
(add CH# 1])
|
||||
|
||||
@@ -1547,7 +1585,9 @@
|
||||
XKERN _ 0])
|
||||
|
||||
(MB.FIELD.PREFIXCREATE
|
||||
[LAMBDA (SPEC PRE FIELDLOOKS) (* ; "Edited 9-Dec-2024 21:53 by rmk")
|
||||
[LAMBDA (SPEC PRE FIELDLOOKS) (* ; "Edited 11-Jan-2025 09:58 by rmk")
|
||||
(* ; "Edited 4-Jan-2025 16:53 by rmk")
|
||||
(* ; "Edited 9-Dec-2024 21:53 by rmk")
|
||||
(* ; "Edited 7-Dec-2024 09:01 by rmk")
|
||||
(* ; "Edited 4-Dec-2024 17:48 by rmk")
|
||||
(* ; "Edited 8-Nov-2024 08:36 by rmk")
|
||||
@@ -1577,12 +1617,12 @@
|
||||
(IMAGEOBJPROP OBJ SPEC 'SETSTATEFN (FUNCTION MB.FIELD.SETSTATEFN)))
|
||||
(IMAGEOBJPROP OBJ 'FIELDLOOKS FIELDLOOKS)
|
||||
(for S in SPEC unless (MEMB (CAR S)
|
||||
'(PRELABEL POSTLABEL LABELFONT FIELDFONT))
|
||||
'(PRELABEL POSTLABEL LABELFONT IDENTIFIER FIELDFONT))
|
||||
do (IMAGEOBJPROP OBJ (CAR S)
|
||||
(CADR S)))
|
||||
(CL:WHEN (AND EMPTYVALUE (EQ INITSTATE (CADR EMPTYVALUE)))
|
||||
(SETQ INITSTATE '**EMPTY**))
|
||||
(CL:WHEN (AND INITSTATE (NEQ INITSTATE '**EMPTY**)) (* ; "Can SELECTION be initialized?")
|
||||
(CL:WHEN (AND INITSTATE (NEQ INITSTATE '**EMPTY**))
|
||||
(CL:UNLESS (SELECTQ FIELDTYPE
|
||||
(NUMBER (NUMBERP INITSTATE))
|
||||
(SYMBOL (LITATOM INITSTATE))
|
||||
@@ -1594,9 +1634,12 @@
|
||||
((TEXT STRING)
|
||||
(STRINGP INITSTATE))
|
||||
(IMAGEOBJ (IMAGEOBJP INITSTATE))
|
||||
(SELECTION (OR (ATOM INITSTATE)
|
||||
(STRINGP INITSTATE)))
|
||||
NIL)
|
||||
(\ILLEGAL.ARG INITSTATE))
|
||||
(IMAGEOBJPROP OBJ 'INITSTATE INITSTATE))
|
||||
(IMAGEOBJPROP OBJ 'IDENTIFIER (CADR (ASSOC 'IDENTIFIER SPEC)))
|
||||
(IMAGEOBJPROP OBJ 'FIELDPREFIX T)
|
||||
OBJ])
|
||||
|
||||
@@ -1623,7 +1666,8 @@
|
||||
OBJ])
|
||||
|
||||
(MB.FIELD.INIT
|
||||
[LAMBDA NIL (* ; "Edited 7-Dec-2024 09:05 by rmk")
|
||||
[LAMBDA NIL (* ; "Edited 7-Jan-2025 22:51 by rmk")
|
||||
(* ; "Edited 7-Dec-2024 09:05 by rmk")
|
||||
(* ; "Edited 4-Dec-2024 16:09 by rmk")
|
||||
(* ; "Edited 22-Aug-2024 10:07 by rmk")
|
||||
(* ; "Edited 20-Aug-2024 16:03 by rmk")
|
||||
@@ -1633,6 +1677,7 @@
|
||||
|
||||
(* ;; "The displayfn is NILL--field prefixes don't display")
|
||||
|
||||
(DECLARE (GLOBALVARS MB.FIELD.IMAGEFNS))
|
||||
(SETQ MB.FIELD.IMAGEFNS (IMAGEFNSCREATE (FUNCTION MB.FIELD.DISPLAYFN)
|
||||
(FUNCTION MB.FIELD.IMAGEBOXFN)
|
||||
(FUNCTION MB.PUTFN)
|
||||
@@ -1908,34 +1953,30 @@
|
||||
(\TEDIT.THELP "UNRECOGNIZED FIELD TYPE" FIELDTYPE))
|
||||
VAL])
|
||||
)
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
(GLOBALVARS MB.FIELD.IMAGEFNS)
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
(MB.FIELD.INIT)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3459 19034 (MB.ADD 3469 . 9058) (MB.DELETE 9060 . 9434) (MB.GET 9436 . 16099) (
|
||||
MB.GET.MBARG 16101 . 17770) (TEDITMENU.STREAM 17772 . 18439) (TEDIT.BACKTOMAIN 18441 . 19032)) (19078
|
||||
36844 (MB.BUTTONEVENTINFN 19088 . 20297) (MB.DISPLAYFN 20299 . 22358) (MB.SETIMAGE 22360 . 23528) (
|
||||
MB.SIZEFN 23530 . 25078) (MB.WHENOPERATEDONFN 25080 . 27029) (MB.COPYFN 27031 . 27489) (MB.GETFN 27491
|
||||
. 28452) (MB.PUTFN 28454 . 29554) (MB.SHOWSELFN 29556 . 31065) (MB.CREATE 31067 . 34052) (
|
||||
MB.CHANGENAME 34054 . 34536) (MB.INIT 34538 . 35847) (MB.TRACK.UNTIL 35849 . 36544) (MB.DON'T 36546 .
|
||||
36842)) (37069 46900 (MB.3STATE.CREATE 37079 . 37943) (MB.3STATE.DISPLAYFN 37945 . 38931) (
|
||||
MB.3STATE.SHOWSELFN 38933 . 41244) (MB.3STATE.INIT 41246 . 42498) (MB.3STATE.SETSTATEFN 42500 . 43158)
|
||||
(MB.3STATE.BUTTONEVENTINFN 43160 . 46898)) (47125 76244 (MB.NWAY.CREATE 47135 . 52645) (
|
||||
MB.NWAY.DISPLAYFN 52647 . 53510) (MB.NWAY.WHENOPERATEDONFN 53512 . 55702) (MB.NWAY.SIZEFN 55704 .
|
||||
59640) (MB.NWAY.SELECT 59642 . 62452) (MB.NWAY.BUTTONEVENTINFN 62454 . 65666) (MB.NWAY.NEWMENUBUTTON
|
||||
65668 . 66380) (MB.NWAY.COPYFN 66382 . 67349) (MB.NWAY.INIT 67351 . 68685) (MB.NWAY.ARRANGEBUTTONS
|
||||
68687 . 70658) (MB.NWAY.ADDITEM 70660 . 74422) (MB.NWAY.FINDSUBOBJ 74424 . 74938) (MB.NWAY.SETSTATEFN
|
||||
74940 . 76242)) (76391 88119 (MB.TOGGLE.CREATE 76401 . 77396) (MB.TOGGLE.DISPLAYFN 77398 . 78881) (
|
||||
MB.TOGGLE.INIT 78883 . 80523) (MB.SET.TOGGLE 80525 . 81726) (MB.TOGGLE.SETSTATEFN 81728 . 82568) (
|
||||
MB.TOGGLE.BUTTONEVENTINFN 82570 . 86774) (MB.TOGGLE.WHENOPERATEDONFN 86776 . 88117)) (88270 119196 (
|
||||
MB.FIELD.CREATE 88280 . 93015) (MB.FIELD.DISPLAYFN 93017 . 93808) (MB.FIELD.IMAGEBOXFN 93810 . 95292)
|
||||
(MB.FIELD.PREFIXCREATE 95294 . 98846) (MB.FIELD.SUFFIXCREATE 98848 . 100508) (MB.FIELD.INIT 100510 .
|
||||
102119) (MB.FIELD.WHENOPERATEDONFN 102121 . 103392) (MB.FIELD.GETSTATEFN 103394 . 107328) (
|
||||
MB.FIELD.SETSTATEFN 107330 . 112025) (MB.FIELD.BUTTONEVENTINFN 112027 . 114332) (MB.FIELD.SIZEFN
|
||||
114334 . 114574) (MB.FIELD.INSURETYPE 114576 . 119194)))))
|
||||
(FILEMAP (NIL (3287 19809 (MB.ADD 3297 . 9726) (MB.DELETE 9728 . 10102) (MB.GET 10104 . 16874) (
|
||||
MB.GET.MBARG 16876 . 18545) (TEDITMENU.STREAM 18547 . 19214) (TEDIT.BACKTOMAIN 19216 . 19807)) (19853
|
||||
39094 (MB.BUTTONEVENTINFN 19863 . 21357) (MB.DISPLAYFN 21359 . 23418) (MB.SETIMAGE 23420 . 24588) (
|
||||
MB.SIZEFN 24590 . 26138) (MB.WHENOPERATEDONFN 26140 . 28089) (MB.COPYFN 28091 . 28549) (MB.GETFN 28551
|
||||
. 29512) (MB.PUTFN 29514 . 30614) (MB.SHOWSELFN 30616 . 32125) (MB.CREATE 32127 . 36150) (
|
||||
MB.CHANGENAME 36152 . 36634) (MB.INIT 36636 . 38097) (MB.TRACK.UNTIL 38099 . 38794) (MB.DON'T 38796 .
|
||||
39092)) (39256 49246 (MB.3STATE.CREATE 39266 . 40130) (MB.3STATE.DISPLAYFN 40132 . 41118) (
|
||||
MB.3STATE.SHOWSELFN 41120 . 43431) (MB.3STATE.INIT 43433 . 44844) (MB.3STATE.SETSTATEFN 44846 . 45504)
|
||||
(MB.3STATE.BUTTONEVENTINFN 45506 . 49244)) (49401 79998 (MB.NWAY.CREATE 49411 . 55382) (
|
||||
MB.NWAY.DISPLAYFN 55384 . 56247) (MB.NWAY.WHENOPERATEDONFN 56249 . 58439) (MB.NWAY.SIZEFN 58441 .
|
||||
62377) (MB.NWAY.SELECT 62379 . 65949) (MB.NWAY.BUTTONEVENTINFN 65951 . 69163) (MB.NWAY.NEWMENUBUTTON
|
||||
69165 . 69877) (MB.NWAY.COPYFN 69879 . 70846) (MB.NWAY.INIT 70848 . 72339) (MB.NWAY.ARRANGEBUTTONS
|
||||
72341 . 74312) (MB.NWAY.ADDITEM 74314 . 78176) (MB.NWAY.FINDSUBOBJ 78178 . 78692) (MB.NWAY.SETSTATEFN
|
||||
78694 . 79996)) (80077 91964 (MB.TOGGLE.CREATE 80087 . 81082) (MB.TOGGLE.DISPLAYFN 81084 . 82567) (
|
||||
MB.TOGGLE.INIT 82569 . 84368) (MB.SET.TOGGLE 84370 . 85571) (MB.TOGGLE.SETSTATEFN 85573 . 86413) (
|
||||
MB.TOGGLE.BUTTONEVENTINFN 86415 . 90619) (MB.TOGGLE.WHENOPERATEDONFN 90621 . 91962)) (92045 124215 (
|
||||
MB.FIELD.CREATE 92055 . 97492) (MB.FIELD.DISPLAYFN 97494 . 98285) (MB.FIELD.IMAGEBOXFN 98287 . 99769)
|
||||
(MB.FIELD.PREFIXCREATE 99771 . 103707) (MB.FIELD.SUFFIXCREATE 103709 . 105369) (MB.FIELD.INIT 105371
|
||||
. 107138) (MB.FIELD.WHENOPERATEDONFN 107140 . 108411) (MB.FIELD.GETSTATEFN 108413 . 112347) (
|
||||
MB.FIELD.SETSTATEFN 112349 . 117044) (MB.FIELD.BUTTONEVENTINFN 117046 . 119351) (MB.FIELD.SIZEFN
|
||||
119353 . 119593) (MB.FIELD.INSURETYPE 119595 . 124213)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "26-Nov-2024 23:53:32" {WMEDLEY}<library>tedit>TEDIT-FNKEYS.;101 38718
|
||||
(FILECREATED "18-Jan-2025 23:38:11" {WMEDLEY}<library>tedit>TEDIT-FNKEYS.;108 39841
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.KEY.FIND)
|
||||
:CHANGES-TO (FNS \TEDIT.CALL.ED \TEDIT.MANPAGE)
|
||||
|
||||
:PREVIOUS-DATE "23-Nov-2024 16:29:11" {WMEDLEY}<library>tedit>TEDIT-FNKEYS.;100)
|
||||
:PREVIOUS-DATE "29-Dec-2024 08:47:57" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;102)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-FNKEYSCOMS)
|
||||
@@ -442,7 +442,9 @@
|
||||
(TEDIT.SUBSTITUTE TEXTSTREAM NIL NIL T])
|
||||
|
||||
(\TEDIT.MANPAGE
|
||||
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 25-Jun-2024 11:59 by rmk")
|
||||
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 18-Jan-2025 21:48 by rmk")
|
||||
(* ; "Edited 29-Dec-2024 08:40 by rmk")
|
||||
(* ; "Edited 25-Jun-2024 11:59 by rmk")
|
||||
(* ; "Edited 26-May-2024 21:53 by rmk")
|
||||
(* ; "Edited 25-May-2024 14:50 by rmk")
|
||||
|
||||
@@ -450,12 +452,26 @@
|
||||
|
||||
(CL:UNLESS (WINDOWPROP (\TEDIT.PRIMARYPANE TSTREAM)
|
||||
'DINFOGRAPH)
|
||||
(GENERIC.MAN.LOOKUP (TEDIT.SEL.AS.STRING TSTREAM SEL)))])
|
||||
(TEDIT.PROMPTCLEAR TSTREAM)
|
||||
[LET ((KEY (TEDIT.SEL.AS.STRING TSTREAM SEL)))
|
||||
(if (OR (NULL KEY)
|
||||
(EQ 0 (NCHARS KEY)))
|
||||
then (TEDIT.PROMPTPRINT TSTREAM "Please select a man-page key" T T)
|
||||
else (GENERIC.MAN.LOOKUP (TEDIT.SEL.AS.STRING TSTREAM SEL])])
|
||||
|
||||
(\TEDIT.CALL.ED
|
||||
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 25-May-2024 15:03 by rmk")
|
||||
(ED [MKATOM (CAR (MKLIST (TEDIT.SEL.AS.SEXPR TSTREAM SEL]
|
||||
'(:DONTWAIT])
|
||||
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 18-Jan-2025 23:38 by rmk")
|
||||
(* ; "Edited 29-Dec-2024 08:46 by rmk")
|
||||
(* ; "Edited 25-May-2024 15:03 by rmk")
|
||||
(TEDIT.PROMPTCLEAR TSTREAM)
|
||||
(LET [(SYMBOL (MKATOM (CAR (MKLIST (TEDIT.SEL.AS.SEXPR TSTREAM SEL]
|
||||
(if (OR (NULL SYMBOL)
|
||||
(EQ 0 (NCHARS SYMBOL)))
|
||||
then (TEDIT.PROMPTPRINT TSTREAM "Please select a symbol to edit" T T)
|
||||
elseif (TYPESOF SYMBOL)
|
||||
then (ED SYMBOL `(:DONTWAIT :DISPLAY))
|
||||
else (TEDIT.PROMPTPRINT TSTREAM (CONCAT SYMBOL " has no definitions to edit")
|
||||
T T])
|
||||
|
||||
(\TEDIT.ONECHAR.BACKWARD
|
||||
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 21-Nov-2024 20:31 by rmk")
|
||||
@@ -710,23 +726,23 @@
|
||||
(TEDIT.SETSYNTAX (CAR ENTRY)
|
||||
(CADR ENTRY]
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (6220 28574 (\TEDIT.BOLD.SEL.OFF 6230 . 6568) (\TEDIT.BOLD.SEL.ON 6570 . 6898) (
|
||||
\TEDIT.CENTER.SEL 6900 . 8416) (\TEDIT.CENTER.SEL.REV 8418 . 8714) (\TEDIT.DEFAULTS.CARET 8716 . 9209)
|
||||
(\TEDIT.DEFAULTSSEL 9211 . 9658) (\TEDIT.SETDEFAULT.FROM.SEL 9660 . 10337) (\TEDIT.KEY.FIND 10339 .
|
||||
15406) (\TEDIT.KEY.FIND.SEARCHSTRING 15408 . 16548) (\TEDIT.GET.TARGET.STRING 16550 . 18264) (
|
||||
\TEDIT.KEY.FIND.BACKWARD 18266 . 18571) (\TEDIT.FINDAGAIN.BACKWARD 18573 . 18984) (\TEDIT.FINDAGAIN
|
||||
18986 . 19277) (\TEDIT.ITALIC.SEL.OFF 19279 . 19531) (\TEDIT.ITALIC.SEL.ON 19533 . 19726) (
|
||||
\TEDIT.LARGERSEL 19728 . 20016) (\TEDIT.LCASE.SEL 20018 . 21413) (\TEDIT.SHOWCARETLOOKS 21415 . 23015)
|
||||
(\TEDIT.SMALLERSEL 23017 . 23308) (\TEDIT.SUBSCRIPTSEL 23310 . 23513) (\TEDIT.SUPERSCRIPTSEL 23515 .
|
||||
23719) (\TEDIT.UCASE.SEL 23721 . 25060) (\TEDIT.UNDERLINE.SEL.OFF 25062 . 25260) (
|
||||
\TEDIT.UNDERLINE.SEL.ON 25262 . 25458) (\TEDIT.STRIKEOUT.SEL.ON 25460 . 25656) (
|
||||
\TEDIT.STRIKEOUT.SEL.OFF 25658 . 25856) (\TEDIT.SELECT.ALL 25858 . 26174) (\TEDIT.KEY.SUBSTITUTE 26176
|
||||
. 26397) (\TEDIT.MANPAGE 26399 . 27155) (\TEDIT.CALL.ED 27157 . 27369) (\TEDIT.ONECHAR.BACKWARD 27371
|
||||
. 27941) (\TEDIT.ONECHAR.FORWARD 27943 . 28572)) (28646 35157 (\TEDIT.BOLD.CARET.OFF 28656 . 29191) (
|
||||
\TEDIT.BOLD.CARET.ON 29193 . 29725) (\TEDIT.ITALIC.CARET.OFF 29727 . 30264) (\TEDIT.ITALIC.CARET.ON
|
||||
30266 . 30809) (\TEDIT.LARGER.CARET 30811 . 31346) (\TEDIT.SMALLER.CARET 31348 . 31885) (
|
||||
\TEDIT.SUBSCRIPT.CARET 31887 . 32428) (\TEDIT.SUPERSCRIPT.CARET 32430 . 32972) (
|
||||
\TEDIT.UNDERLINE.CARET.OFF 32974 . 33514) (\TEDIT.UNDERLINE.CARET.ON 33516 . 34054) (
|
||||
\TEDIT.STRIKEOUT.CARET.OFF 34056 . 34596) (\TEDIT.STRIKEOUT.CARET.ON 34598 . 35155)) (35226 35928 (
|
||||
\TK.DESCRIBEFONT 35236 . 35926)))))
|
||||
(FILEMAP (NIL (6234 29697 (\TEDIT.BOLD.SEL.OFF 6244 . 6582) (\TEDIT.BOLD.SEL.ON 6584 . 6912) (
|
||||
\TEDIT.CENTER.SEL 6914 . 8430) (\TEDIT.CENTER.SEL.REV 8432 . 8728) (\TEDIT.DEFAULTS.CARET 8730 . 9223)
|
||||
(\TEDIT.DEFAULTSSEL 9225 . 9672) (\TEDIT.SETDEFAULT.FROM.SEL 9674 . 10351) (\TEDIT.KEY.FIND 10353 .
|
||||
15420) (\TEDIT.KEY.FIND.SEARCHSTRING 15422 . 16562) (\TEDIT.GET.TARGET.STRING 16564 . 18278) (
|
||||
\TEDIT.KEY.FIND.BACKWARD 18280 . 18585) (\TEDIT.FINDAGAIN.BACKWARD 18587 . 18998) (\TEDIT.FINDAGAIN
|
||||
19000 . 19291) (\TEDIT.ITALIC.SEL.OFF 19293 . 19545) (\TEDIT.ITALIC.SEL.ON 19547 . 19740) (
|
||||
\TEDIT.LARGERSEL 19742 . 20030) (\TEDIT.LCASE.SEL 20032 . 21427) (\TEDIT.SHOWCARETLOOKS 21429 . 23029)
|
||||
(\TEDIT.SMALLERSEL 23031 . 23322) (\TEDIT.SUBSCRIPTSEL 23324 . 23527) (\TEDIT.SUPERSCRIPTSEL 23529 .
|
||||
23733) (\TEDIT.UCASE.SEL 23735 . 25074) (\TEDIT.UNDERLINE.SEL.OFF 25076 . 25274) (
|
||||
\TEDIT.UNDERLINE.SEL.ON 25276 . 25472) (\TEDIT.STRIKEOUT.SEL.ON 25474 . 25670) (
|
||||
\TEDIT.STRIKEOUT.SEL.OFF 25672 . 25870) (\TEDIT.SELECT.ALL 25872 . 26188) (\TEDIT.KEY.SUBSTITUTE 26190
|
||||
. 26411) (\TEDIT.MANPAGE 26413 . 27660) (\TEDIT.CALL.ED 27662 . 28492) (\TEDIT.ONECHAR.BACKWARD 28494
|
||||
. 29064) (\TEDIT.ONECHAR.FORWARD 29066 . 29695)) (29769 36280 (\TEDIT.BOLD.CARET.OFF 29779 . 30314) (
|
||||
\TEDIT.BOLD.CARET.ON 30316 . 30848) (\TEDIT.ITALIC.CARET.OFF 30850 . 31387) (\TEDIT.ITALIC.CARET.ON
|
||||
31389 . 31932) (\TEDIT.LARGER.CARET 31934 . 32469) (\TEDIT.SMALLER.CARET 32471 . 33008) (
|
||||
\TEDIT.SUBSCRIPT.CARET 33010 . 33551) (\TEDIT.SUPERSCRIPT.CARET 33553 . 34095) (
|
||||
\TEDIT.UNDERLINE.CARET.OFF 34097 . 34637) (\TEDIT.UNDERLINE.CARET.ON 34639 . 35177) (
|
||||
\TEDIT.STRIKEOUT.CARET.OFF 35179 . 35719) (\TEDIT.STRIKEOUT.CARET.ON 35721 . 36278)) (36349 37051 (
|
||||
\TK.DESCRIBEFONT 36359 . 37049)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "22-Dec-2024 15:27:12" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;359 160454
|
||||
(FILECREATED " 5-Jan-2025 23:31:37" {MEDLEY}<library>tedit>TEDIT-LOOKS.;14 160989
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.CHARLOOKS.CHANGE.FONT)
|
||||
:CHANGES-TO (FNS \TEDIT.CHANGE.PARALOOKS.NEW)
|
||||
|
||||
:PREVIOUS-DATE "22-Dec-2024 11:42:48" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;357)
|
||||
:PREVIOUS-DATE "22-Dec-2024 15:27:12" {MEDLEY}<library>tedit>TEDIT-LOOKS.;13)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-LOOKSCOMS)
|
||||
@@ -2141,7 +2141,8 @@ CONS pair of default width and LIST of TAB record instances")
|
||||
(\TEDIT.SHOWSEL NIL T TEXTOBJ)))])
|
||||
|
||||
(\TEDIT.CHANGE.PARALOOKS.NEW
|
||||
[LAMBDA (NEWLOOKS OLDFMTSPEC TEXTOBJ) (* ; "Edited 31-Aug-2024 15:00 by rmk")
|
||||
[LAMBDA (NEWLOOKS OLDFMTSPEC TEXTOBJ) (* ; "Edited 5-Jan-2025 16:02 by rmk")
|
||||
(* ; "Edited 31-Aug-2024 15:00 by rmk")
|
||||
(* ; "Edited 29-Aug-2024 11:13 by rmk")
|
||||
(* ; "Edited 23-Aug-2024 23:41 by rmk")
|
||||
(* ; "Edited 11-Aug-2024 21:22 by rmk")
|
||||
@@ -2187,7 +2188,13 @@ CONS pair of default width and LIST of TAB record instances")
|
||||
(STYLE (FSETPARA NEWFMTSPEC FMTSTYLE VAL))
|
||||
(CHARSTYLES (FSETPARA NEWFMTSPEC FMTCHARSTYLES VAL))
|
||||
(COLUMN (FSETPARA NEWFMTSPEC FMTCOLUMN VAL))
|
||||
(TABS (FSETPARA NEWFMTSPEC FMTTABS VAL))
|
||||
(TABS [if (LISTP (CAR VAL))
|
||||
then (FSETPARA NEWFMTSPEC FMTTABS VAL)
|
||||
else (* ;
|
||||
"Could be the old (DEF . TABS) format")
|
||||
(FSETPARA NEWFMTSPEC FMTTABS (CDR VAL))
|
||||
(CL:WHEN (CAR VAL)
|
||||
(FSETPARA NEWFMTSPEC FMTDEFAULTTAB (CAR VAL)))])
|
||||
(DEFAULTTAB (FSETPARA NEWFMTSPEC FMTDEFAULTTAB VAL))
|
||||
NIL) finally (RETURN NEWFMTSPEC])
|
||||
|
||||
@@ -2568,28 +2575,28 @@ CONS pair of default width and LIST of TAB record instances")
|
||||
(ADDTOVAR LAMA \TEDIT.CHARLOOK.FEATURE)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (22860 24621 (\TEDIT.CHARLOOKS.DEFPRINT 22870 . 24001) (\TEDIT.FMTSPEC.DEFPRINT 24003 .
|
||||
24619)) (24725 25710 (\TEDIT.CREATE.DEFAULT.FMTSPEC 24735 . 25332) (\TEDIT.CREATE.FACE.MENU 25334 .
|
||||
25506) (\TEDIT.CREATE.SIZE.MENU 25508 . 25708)) (26600 26789 (\TEDIT.CHARLOOK.FEATUREP 26610 . 26787))
|
||||
(27091 56841 (\TEDIT.CHARLOOKS.FROM.FONT 27101 . 28911) (\TEDIT.EQCLOOKS 28913 . 31882) (
|
||||
\TEDIT.SAMECLOOKS 31884 . 36154) (TEDIT.CARETLOOKS 36156 . 37198) (TEDIT.COPY.LOOKS 37200 . 40483) (
|
||||
\TEDIT.UNPARSE.CHARLOOKS.LIST 40485 . 43198) (\TEDIT.MODIFYLOOKS 43200 . 45194) (TEDIT.NEW.FONT 45196
|
||||
. 45643) (\TEDIT.CARETLOOKS.VERIFY 45645 . 46482) (\TEDIT.CARETPIECE 46484 . 46789) (
|
||||
\TEDIT.GET.INSERT.CHARLOOKS 46791 . 49527) (\TEDIT.GET.TERMSA.WIDTHS 49529 . 49945) (
|
||||
\TEDIT.PARSE.CHARLOOKS.LIST 49947 . 51147) (\TEDIT.CHARLOOK.FEATURE 51149 . 56839)) (56842 71973 (
|
||||
\TEDIT.TRANSLATE.ASCIICHARS 56852 . 65951) (\TEDIT.CONVERT.TO.FORMATTED 65953 . 71971)) (73163 80398 (
|
||||
\TEDIT.UNIQUIFY.CHARLOOKS 73173 . 74833) (\TEDIT.UNIQUIFY.PARALOOKS 74835 . 76102) (
|
||||
\TEDIT.UNIQUIFY.ALL 76104 . 77961) (\TEDIT.FLUSH.UNUSED.LOOKS 77963 . 80396)) (80431 91527 (
|
||||
TEDIT.LOOKS 80441 . 82830) (TEDIT.GET.LOOKS 82832 . 84861) (TEDIT.SUBLOOKS 84863 . 88891) (
|
||||
TEDIT.FINDLOOKS 88893 . 91525)) (91528 111971 (\TEDIT.CHANGE.CHARLOOKS 91538 . 99274) (
|
||||
\TEDIT.CHANGE.CHARLOOKS.NEW 99276 . 103010) (\TEDIT.CHARLOOKS.CHANGE.FONT 103012 . 107289) (
|
||||
\TEDIT.LOOKS 107291 . 110620) (\TEDIT.FONTCOPY 110622 . 111969)) (112014 141681 (\TEDIT.EQFMTSPEC
|
||||
112024 . 115781) (TEDIT.GET.PARALOOKS 115783 . 119520) (\TEDIT.PARSE.PARALOOKS.LIST 119522 . 126596) (
|
||||
TEDIT.PARALOOKS 126598 . 127604) (\TEDIT.CHANGE.PARALOOKS 127606 . 134253) (
|
||||
\TEDIT.CHANGE.PARALOOKS.NEW 134255 . 137339) (TEDIT.COPY.PARALOOKS 137341 . 140015) (\TEDIT.PARABOUNDS
|
||||
140017 . 141679)) (141741 149288 (TEDIT.SUBPARALOOKS 141751 . 145535) (SAMEPARALOOKS 145537 . 149286)
|
||||
) (149327 149905 (\TEDIT.MARK.REVISION 149337 . 149903)) (149942 158994 (\TEDIT.APPLY.STYLES 149952 .
|
||||
153517) (\TEDIT.APPLY.PARASTYLES 153519 . 155868) (TEDIT.STYLESHEET 155870 . 156937) (
|
||||
TEDIT.POP.STYLESHEET 156939 . 157607) (TEDIT.PUSH.STYLESHEET 157609 . 158349) (TEDIT.ADD.STYLESHEET
|
||||
158351 . 158992)))))
|
||||
(FILEMAP (NIL (22855 24616 (\TEDIT.CHARLOOKS.DEFPRINT 22865 . 23996) (\TEDIT.FMTSPEC.DEFPRINT 23998 .
|
||||
24614)) (24720 25705 (\TEDIT.CREATE.DEFAULT.FMTSPEC 24730 . 25327) (\TEDIT.CREATE.FACE.MENU 25329 .
|
||||
25501) (\TEDIT.CREATE.SIZE.MENU 25503 . 25703)) (26595 26784 (\TEDIT.CHARLOOK.FEATUREP 26605 . 26782))
|
||||
(27086 56836 (\TEDIT.CHARLOOKS.FROM.FONT 27096 . 28906) (\TEDIT.EQCLOOKS 28908 . 31877) (
|
||||
\TEDIT.SAMECLOOKS 31879 . 36149) (TEDIT.CARETLOOKS 36151 . 37193) (TEDIT.COPY.LOOKS 37195 . 40478) (
|
||||
\TEDIT.UNPARSE.CHARLOOKS.LIST 40480 . 43193) (\TEDIT.MODIFYLOOKS 43195 . 45189) (TEDIT.NEW.FONT 45191
|
||||
. 45638) (\TEDIT.CARETLOOKS.VERIFY 45640 . 46477) (\TEDIT.CARETPIECE 46479 . 46784) (
|
||||
\TEDIT.GET.INSERT.CHARLOOKS 46786 . 49522) (\TEDIT.GET.TERMSA.WIDTHS 49524 . 49940) (
|
||||
\TEDIT.PARSE.CHARLOOKS.LIST 49942 . 51142) (\TEDIT.CHARLOOK.FEATURE 51144 . 56834)) (56837 71968 (
|
||||
\TEDIT.TRANSLATE.ASCIICHARS 56847 . 65946) (\TEDIT.CONVERT.TO.FORMATTED 65948 . 71966)) (73158 80393 (
|
||||
\TEDIT.UNIQUIFY.CHARLOOKS 73168 . 74828) (\TEDIT.UNIQUIFY.PARALOOKS 74830 . 76097) (
|
||||
\TEDIT.UNIQUIFY.ALL 76099 . 77956) (\TEDIT.FLUSH.UNUSED.LOOKS 77958 . 80391)) (80426 91522 (
|
||||
TEDIT.LOOKS 80436 . 82825) (TEDIT.GET.LOOKS 82827 . 84856) (TEDIT.SUBLOOKS 84858 . 88886) (
|
||||
TEDIT.FINDLOOKS 88888 . 91520)) (91523 111966 (\TEDIT.CHANGE.CHARLOOKS 91533 . 99269) (
|
||||
\TEDIT.CHANGE.CHARLOOKS.NEW 99271 . 103005) (\TEDIT.CHARLOOKS.CHANGE.FONT 103007 . 107284) (
|
||||
\TEDIT.LOOKS 107286 . 110615) (\TEDIT.FONTCOPY 110617 . 111964)) (112009 142216 (\TEDIT.EQFMTSPEC
|
||||
112019 . 115776) (TEDIT.GET.PARALOOKS 115778 . 119515) (\TEDIT.PARSE.PARALOOKS.LIST 119517 . 126591) (
|
||||
TEDIT.PARALOOKS 126593 . 127599) (\TEDIT.CHANGE.PARALOOKS 127601 . 134248) (
|
||||
\TEDIT.CHANGE.PARALOOKS.NEW 134250 . 137874) (TEDIT.COPY.PARALOOKS 137876 . 140550) (\TEDIT.PARABOUNDS
|
||||
140552 . 142214)) (142276 149823 (TEDIT.SUBPARALOOKS 142286 . 146070) (SAMEPARALOOKS 146072 . 149821)
|
||||
) (149862 150440 (\TEDIT.MARK.REVISION 149872 . 150438)) (150477 159529 (\TEDIT.APPLY.STYLES 150487 .
|
||||
154052) (\TEDIT.APPLY.PARASTYLES 154054 . 156403) (TEDIT.STYLESHEET 156405 . 157472) (
|
||||
TEDIT.POP.STYLESHEET 157474 . 158142) (TEDIT.PUSH.STYLESHEET 158144 . 158884) (TEDIT.ADD.STYLESHEET
|
||||
158886 . 159527)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,13 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "24-Dec-2024 21:29:07" {WMEDLEY}<library>TEDIT>TEDIT-MENU.;426 169660
|
||||
(FILECREATED "12-Jan-2025 12:21:33" {MEDLEY}<library>tedit>TEDIT-MENU.;22 170476
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.CHANGE.PAGELOOKS)
|
||||
:CHANGES-TO (FNS MARGINBAR.INIT MB.MARGINBAR.BUTTONEVENTINFN MB.MARGINBAR.SELFN.TABS
|
||||
\TEDIT.PARAMENU.CREATE)
|
||||
|
||||
:PREVIOUS-DATE "22-Dec-2024 00:24:03" {WMEDLEY}<library>TEDIT>TEDIT-MENU.;425)
|
||||
:PREVIOUS-DATE " 9-Jan-2025 16:40:33" {MEDLEY}<library>tedit>TEDIT-MENU.;20)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-MENUCOMS)
|
||||
@@ -403,13 +404,15 @@
|
||||
(RETURN OBJ])
|
||||
|
||||
(MB.MARGINBAR.BUTTONEVENTINFN
|
||||
[LAMBDA (OBJ MENUDS SEL RELX RELY MENUTSTREAM) (* ; "Edited 7-Dec-2024 21:21 by rmk")
|
||||
[LAMBDA (OBJ MENUDS SEL RELX RELY MENUTSTREAM) (* ; "Edited 11-Jan-2025 21:28 by rmk")
|
||||
(* ; "Edited 7-Dec-2024 21:21 by rmk")
|
||||
(* ; "Edited 25-Aug-2024 09:12 by rmk")
|
||||
(* ; "Edited 1-Aug-2024 22:56 by rmk")
|
||||
(* ; "Edited 23-Jul-2024 00:44 by rmk")
|
||||
(* ; "Edited 18-Jul-2024 17:08 by rmk")
|
||||
(* ; "Edited 26-Feb-2024 11:44 by rmk")
|
||||
(* ; "Edited 12-Jun-90 18:59 by mitani")
|
||||
(TEDIT.PROMPTCLEAR MENUTSTREAM)
|
||||
|
||||
(* ;; "Let the user adjust margins and tabs using the mouse. Do the adjustment based on the region of the margin bar that mouse starts out in: left marging, first line, right margin, tabs")
|
||||
|
||||
@@ -420,8 +423,8 @@
|
||||
(OL1 L1)
|
||||
(LN (fetch MARLN of OBJDATUM))
|
||||
(OLN LN)
|
||||
(R (fetch MARR of OBJDATUM))
|
||||
(OR R)
|
||||
(RMARG (fetch MARR of OBJDATUM))
|
||||
(OLDRMARG RMARG)
|
||||
(TABS (fetch MARTABS of OBJDATUM))
|
||||
(UNIT (fetch MARUNIT of OBJDATUM))
|
||||
(CLIP (create REGION
|
||||
@@ -429,9 +432,9 @@
|
||||
BOTTOM _ 0
|
||||
WIDTH _ (fetch XSIZE of IMAGEBOX)
|
||||
HEIGHT _ (fetch YSIZE of IMAGEBOX)))
|
||||
(RIGHTLIM (IDIFFERENCE (fetch (REGION WIDTH) of (DSPCLIPPINGREGION NIL MENUDS))
|
||||
4)))
|
||||
(if (INSIDE? (create REGION
|
||||
(PWIDTH (PANEWIDTH (WFROMDS MENUDS)))
|
||||
(RIGHTLIM (IDIFFERENCE PWIDTH 4)))
|
||||
[if (INSIDE? (create REGION
|
||||
LEFT _ (IDIFFERENCE (MSCALE (ABS L1)
|
||||
UNIT)
|
||||
2)
|
||||
@@ -449,7 +452,7 @@
|
||||
"Right mouse button UNsets the margin.")
|
||||
(SETQ L1 (MINUS L1)))
|
||||
(CL:UNLESS (EQP OL1 L1)
|
||||
(MARGINBAR MENUTSTREAM L1 LN R TABS UNIT T RIGHTLIM)
|
||||
(MARGINBAR MENUTSTREAM L1 LN RMARG TABS UNIT T RIGHTLIM)
|
||||
(SETQ OL1 L1)))
|
||||
elseif (INSIDE? (create REGION
|
||||
LEFT _ (IDIFFERENCE (MSCALE (ABS LN)
|
||||
@@ -469,26 +472,22 @@
|
||||
"Right mouse button UNsets the margin.")
|
||||
(SETQ LN (MINUS LN)))
|
||||
(CL:UNLESS (EQP OLN LN)
|
||||
(MARGINBAR MENUTSTREAM L1 LN R TABS UNIT T RIGHTLIM)
|
||||
(MARGINBAR MENUTSTREAM L1 LN RMARG TABS UNIT T RIGHTLIM)
|
||||
(SETQ OLN LN)))
|
||||
elseif (OR (INSIDE? (create REGION
|
||||
LEFT _ (IDIFFERENCE (IMIN (MSCALE (ABS R)
|
||||
LEFT _ (IDIFFERENCE (IMIN (MSCALE (ABS RMARG)
|
||||
UNIT)
|
||||
(fetch XSIZE of IMAGEBOX)
|
||||
(fetch (REGION WIDTH)
|
||||
of (DSPCLIPPINGREGION NIL MENUDS)
|
||||
))
|
||||
PWIDTH)
|
||||
16)
|
||||
BOTTOM _ 26
|
||||
WIDTH _ 16
|
||||
HEIGHT _ 32)
|
||||
RELX RELY)
|
||||
(AND (ZEROP (IABS (FIXR R)))
|
||||
(AND (ZEROP (IABS (FIXR RMARG)))
|
||||
(INSIDE? (create REGION
|
||||
LEFT _ (IDIFFERENCE (IMIN (fetch XSIZE of IMAGEBOX)
|
||||
(fetch (REGION WIDTH)
|
||||
of (DSPCLIPPINGREGION NIL
|
||||
MENUDS)))
|
||||
PWIDTH)
|
||||
16)
|
||||
BOTTOM _ 26
|
||||
WIDTH _ 16
|
||||
@@ -498,14 +497,14 @@
|
||||
(while (AND (MOUSESTATE (OR LEFT MIDDLE RIGHT))
|
||||
(INSIDE? CLIP (LASTMOUSEX MENUTSTREAM)
|
||||
(LASTMOUSEY MENUTSTREAM)))
|
||||
do (SETQ R (MAX 0 (MDESCALE (LASTMOUSEX MENUTSTREAM)
|
||||
UNIT)))
|
||||
do (SETQ RMARG (MAX 0 (MDESCALE (LASTMOUSEX MENUTSTREAM)
|
||||
UNIT)))
|
||||
(CL:WHEN (\TEDIT.MOUSESTATE RIGHT) (* ;
|
||||
"Right mouse button UNsets the margin.")
|
||||
(SETQ R (MINUS R)))
|
||||
(CL:UNLESS (EQP OR R)
|
||||
(MARGINBAR MENUTSTREAM L1 LN R TABS UNIT T RIGHTLIM)
|
||||
(SETQ OR R)))
|
||||
(SETQ RMARG (MINUS RMARG)))
|
||||
(CL:UNLESS (EQP OLDRMARG RMARG)
|
||||
(MARGINBAR MENUTSTREAM L1 LN RMARG TABS UNIT T RIGHTLIM)
|
||||
(SETQ OLDRMARG RMARG)))
|
||||
elseif (INSIDE? (create REGION
|
||||
LEFT _ 0
|
||||
BOTTOM _ 0
|
||||
@@ -513,34 +512,35 @@
|
||||
HEIGHT _ 16)
|
||||
RELX RELY)
|
||||
then (* ; "We're in the tab ruler region")
|
||||
(replace MARTABS of OBJDATUM with (MB.MARGINBAR.SELFN.TABS OBJDATUM MENUDS
|
||||
MENUTSTREAM)))
|
||||
(if (EQ 'OFF (MB.GET 'TABTYPE MENUTSTREAM 'STATE NIL T))
|
||||
then (TEDIT.PROMPTPRINT MENUTSTREAM "Please choose one of the tab types" T)
|
||||
else (replace MARTABS of OBJDATUM with (MB.MARGINBAR.SELFN.TABS OBJDATUM MENUDS
|
||||
MENUTSTREAM]
|
||||
(replace MARL1 of OBJDATUM with L1)
|
||||
(replace MARLN of OBJDATUM with LN)
|
||||
(replace MARR of OBJDATUM with R)
|
||||
(replace MARR of OBJDATUM with RMARG)
|
||||
(TEDIT.BACKTOMAIN MENUTSTREAM))
|
||||
T])
|
||||
'DON'T])
|
||||
|
||||
(MB.MARGINBAR.SELFN.TABS
|
||||
[LAMBDA (OBJDATUM SELWINDOW STREAM) (* ; "Edited 24-Aug-2024 21:40 by rmk")
|
||||
[LAMBDA (OBJDATUM SELWINDOW STREAM) (* ; "Edited 11-Jan-2025 10:47 by rmk")
|
||||
(* ; "Edited 24-Aug-2024 21:40 by rmk")
|
||||
(* ; "Edited 2-Aug-2024 08:18 by rmk")
|
||||
|
||||
(* ;; "Mouse is down in the tab region of the marginbar. Creates, moves, or deletes a tab, depending on the mouse button. Returns the modified TABS list. UNIT was only partially implemented, tabs are assumed to be in picas and are scaled to points (PTSPERPICA=12).")
|
||||
(* ;; "Mouse is down in the tab region of the marginbar. Creates, moves, or deletes a tab, depending on the mouse button. Returns the modified TABS list. UNIT was only partially implemented, tabs are assumed to be in piecas and are scaled to points (PTSPERPICA=12).")
|
||||
|
||||
(LET* ((TABS (fetch MARTABS of OBJDATUM))
|
||||
(UNIT (fetch MARUNIT of OBJDATUM))
|
||||
[SCALEDTABS (CL:WHEN (LISTP (fetch MARTABS of OBJDATUM))
|
||||
(* ;
|
||||
[SCALEDTABS (for TAB in (LISTP (fetch MARTABS of OBJDATUM))
|
||||
collect (MSCALE (fetch TABX of TAB)
|
||||
(fetch MARUNIT of OBJDATUM]
|
||||
TAB TABX) (* ;
|
||||
"Only scale the tabs if there are any, and they're not neutralized.")
|
||||
(for TAB in (fetch MARTABS of OBJDATUM)
|
||||
collect (MSCALE (fetch TABX of TAB)
|
||||
(fetch MARUNIT of OBJDATUM))))]
|
||||
TAB TABX)
|
||||
[if (MOUSESTATE LEFT)
|
||||
then (* ; "MOVE a tab")
|
||||
[SETQ TAB (for TABX in SCALEDTABS as TAB in TABS
|
||||
smallest (ABS (IDIFFERENCE TABX (LASTMOUSEX STREAM]
|
||||
(AND TAB (MB.MARGINBAR.TABTRACK STREAM OBJDATUM TAB))
|
||||
(CL:WHEN TAB (MB.MARGINBAR.TABTRACK STREAM OBJDATUM TAB))
|
||||
elseif (MOUSESTATE MIDDLE)
|
||||
then (* ; "ADD/CHANGE a tab")
|
||||
(CL:WHEN (EQ (fetch MARTABS of OBJDATUM)
|
||||
@@ -551,13 +551,10 @@
|
||||
(* ;;
|
||||
"Make the tab region look non-neutral, too, so that tabs look OK on it. ")
|
||||
|
||||
(DSPFILL (create REGION
|
||||
LEFT _ 2
|
||||
BOTTOM _ 1
|
||||
HEIGHT _ 8
|
||||
WIDTH _ (IDIFFERENCE (fetch (REGION WIDTH)
|
||||
of (DSPCLIPPINGREGION NIL SELWINDOW))
|
||||
4))
|
||||
(DSPFILL (CREATEREGION 2 1 8 (IDIFFERENCE (fetch (REGION WIDTH)
|
||||
of (DSPCLIPPINGREGION NIL
|
||||
SELWINDOW))
|
||||
4))
|
||||
WHITESHADE
|
||||
'REPLACE SELWINDOW))
|
||||
(if (AND [SETQ TAB (for TABX in SCALEDTABS as TAB in TABS
|
||||
@@ -573,10 +570,9 @@
|
||||
SELWINDOW))
|
||||
(MB.MARGINBAR.SHOWTAB STREAM TAB UNIT 'PAINT)
|
||||
(MB.MARGINBAR.TABTRACK STREAM OBJDATUM TAB)
|
||||
elseif [OR (NOT TAB)
|
||||
(NOT (EQP (fetch TABX of TAB)
|
||||
(MDESCALE (LASTMOUSEX STREAM)
|
||||
UNIT]
|
||||
elseif [NOT (AND TAB (EQP (fetch TABX of TAB)
|
||||
(MDESCALE (LASTMOUSEX STREAM)
|
||||
UNIT]
|
||||
then (* ; "Really create a new tab")
|
||||
(SETQ TAB (create TAB
|
||||
TABX _ (MDESCALE (LASTMOUSEX STREAM)
|
||||
@@ -884,19 +880,22 @@
|
||||
(SETQ OLDX X])
|
||||
|
||||
(MARGINBAR.INIT
|
||||
[LAMBDA NIL (* ; "Edited 25-Aug-2024 09:11 by rmk")
|
||||
[LAMBDA NIL (* ; "Edited 12-Jan-2025 12:05 by rmk")
|
||||
(* ; "Edited 7-Jan-2025 22:48 by rmk")
|
||||
(* ; "Edited 25-Aug-2024 09:11 by rmk")
|
||||
(* ; "Edited 17-Jul-2024 21:58 by rmk")
|
||||
(* jds " 9-Feb-86 15:18")
|
||||
(DECLARE (GLOBALVARS MARGINBARIMAGEFNS))
|
||||
(SETQ MARGINBARIMAGEFNS (IMAGEFNSCREATE (FUNCTION MB.MARGINBAR.DISPLAYFN)
|
||||
(FUNCTION MB.MARGINBAR.SIZEFN)
|
||||
(FUNCTION MB.MARGINBAR.PUTFN)
|
||||
(FUNCTION MB.MARGINBAR.GETFN)
|
||||
(FUNCTION MB.COPYFN)
|
||||
(FUNCTION MB.MARGINBAR.BUTTONEVENTINFN)
|
||||
(FUNCTION MB.DON'T)
|
||||
(FUNCTION MB.DON'T)
|
||||
'NILL
|
||||
'NILL
|
||||
'NILL
|
||||
'NILL
|
||||
(FUNCTION MB.DON'T)
|
||||
'NILL
|
||||
'NILL
|
||||
'NILL
|
||||
@@ -1472,7 +1471,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.PARAMENU.CREATE
|
||||
[LAMBDA NIL (* ; "Edited 8-Nov-2024 08:35 by rmk")
|
||||
[LAMBDA NIL (* ; "Edited 9-Jan-2025 16:38 by rmk")
|
||||
(* ; "Edited 8-Nov-2024 08:35 by rmk")
|
||||
(* ; "Edited 20-Oct-2024 23:46 by rmk")
|
||||
(* ; "Edited 6-Oct-2024 15:35 by rmk")
|
||||
(* ; "Edited 29-Sep-2024 12:53 by rmk")
|
||||
@@ -1641,7 +1641,8 @@
|
||||
'PARALOOKS])
|
||||
|
||||
(\TEDIT.PARAMENU.FILLIN
|
||||
[LAMBDA (MENUSTREAM FMTSPEC) (* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
[LAMBDA (MENUSTREAM FMTSPEC) (* ; "Edited 9-Jan-2025 12:15 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
(* ; "Edited 29-Sep-2024 12:53 by rmk")
|
||||
(* ; "Edited 31-Aug-2024 11:29 by rmk")
|
||||
(* ; "Edited 25-Aug-2024 23:48 by rmk")
|
||||
@@ -1653,8 +1654,7 @@
|
||||
|
||||
(* ;; "For the paragraph menu SHOW command, fills in the with values drawn from the FMTSPEC of the main documents selectiont. The strategy is to iterate through the image objects in the MENUTEXTOBJ and figure out from their property what aspect of FMTSPEC they depict.")
|
||||
|
||||
(for PC OBJ VAL PROP SETSTATEFN inpieces (\TEDIT.FIRSTPIECE (fetch (TEXTSTREAM TEXTOBJ)
|
||||
of MENUSTREAM))
|
||||
(for PC OBJ VAL PROP SETSTATEFN inpieces (\TEDIT.FIRSTPIECE (GETTSTR MENUSTREAM TEXTOBJ))
|
||||
when [SETQ SETSTATEFN (AND (SETQ OBJ (POBJ PC))
|
||||
(SETQ PROP (IMAGEOBJPROP OBJ 'IDENTIFIER))
|
||||
(IMAGEOBJPROP OBJ 'SETSTATEFN]
|
||||
@@ -1759,7 +1759,8 @@
|
||||
,@(\TEDIT.CHARMENU.SPEC TSTREAM])
|
||||
|
||||
(\TEDIT.CHARMENU.SPEC
|
||||
[LAMBDA (TSTREAM) (* ; "Edited 22-Dec-2024 00:22 by rmk")
|
||||
[LAMBDA (TSTREAM) (* ; "Edited 9-Jan-2025 16:34 by rmk")
|
||||
(* ; "Edited 22-Dec-2024 00:22 by rmk")
|
||||
(* ; "Edited 20-Dec-2024 12:27 by rmk")
|
||||
(* ; "Edited 17-Dec-2024 14:32 by rmk")
|
||||
(* ; "Edited 8-Nov-2024 08:35 by rmk")
|
||||
@@ -1820,6 +1821,7 @@
|
||||
(MAXITEMS/LINE 7))
|
||||
EOL
|
||||
(TOGGLE (LABEL Other)
|
||||
(IDENTIFIER OTHER)
|
||||
(IGNORE T)
|
||||
(STATECHANGEFN \TEDIT.OTHER.STATECHANGEFN)
|
||||
(SELECTFN \TEDIT.OTHER.SELECTFN
|
||||
@@ -1831,8 +1833,7 @@
|
||||
(FIELDTYPE SYMBOL)
|
||||
(EMPTYVALUE NIL))
|
||||
EOL
|
||||
(FIELD (IDENTIFIER SIZE)
|
||||
(PRELABEL "Size:")
|
||||
(FIELD (PRELABEL "Size:")
|
||||
(FIELDTYPE NUMBER))
|
||||
3
|
||||
(NWAY (IDENTIFIER OFFSETTYPE)
|
||||
@@ -1886,7 +1887,8 @@
|
||||
NEWLOOKS])
|
||||
|
||||
(\TEDIT.CHARMENU.FILLIN
|
||||
[LAMBDA (STARTINGPC CHARLOOKS MENUSTREAM) (* ; "Edited 20-Dec-2024 12:18 by rmk")
|
||||
[LAMBDA (STARTINGPC CHARLOOKS MENUSTREAM) (* ; "Edited 9-Jan-2025 12:14 by rmk")
|
||||
(* ; "Edited 20-Dec-2024 12:18 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
(* ; "Edited 20-Oct-2024 00:03 by rmk")
|
||||
(* ; "Edited 29-Sep-2024 12:53 by rmk")
|
||||
@@ -1933,7 +1935,8 @@
|
||||
NIL)
|
||||
(DISTANCE (CL:UNLESS (ZEROP (FGETCLOOKS CHARLOOKS CLOFFSET))
|
||||
(ABS (FGETCLOOKS CHARLOOKS CLOFFSET))))
|
||||
(\TEDIT.THELP (IMAGEOBJPROP OBJ 'IDENTIFIER]
|
||||
(\TEDIT.THELP "Unrecognized button identifier" (IMAGEOBJPROP OBJ
|
||||
'IDENTIFIER]
|
||||
|
||||
(* ;; "Eventually, replace SHOULDNT with SETQ SETSTATEFN NIL")
|
||||
|
||||
@@ -2116,7 +2119,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.PAGEMENU.CREATE
|
||||
[LAMBDA (TSTREAM) (* ; "Edited 17-Dec-2024 00:08 by rmk")
|
||||
[LAMBDA (TSTREAM) (* ; "Edited 9-Jan-2025 16:39 by rmk")
|
||||
(* ; "Edited 17-Dec-2024 00:08 by rmk")
|
||||
(* ; "Edited 20-Oct-2024 23:47 by rmk")
|
||||
(* ; "Edited 6-Oct-2024 15:35 by rmk")
|
||||
(* ; "Edited 29-Sep-2024 12:53 by rmk")
|
||||
@@ -2658,28 +2662,28 @@
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (5359 51317 (DRAWMARGINSCALE 5369 . 8828) (MARGINBAR 8830 . 15955) (MARGINBAR.CREATE
|
||||
15957 . 19376) (MB.MARGINBAR.BUTTONEVENTINFN 19378 . 27046) (MB.MARGINBAR.SELFN.TABS 27048 . 32411) (
|
||||
MB.MARGINBAR.SELFN.TABS.KIND 32413 . 33348) (MARGINBAR.GETSTATEFN 33350 . 37228) (MARGINBAR.SETSTATEFN
|
||||
37230 . 37440) (MARGINBAR.NEUTRALIZE 37442 . 37855) (MARGINBAR.LOOKS 37857 . 40963) (
|
||||
MB.MARGINBAR.SIZEFN 40965 . 41568) (MB.MARGINBAR.DISPLAYFN 41570 . 44631) (MDESCALE 44633 . 45173) (
|
||||
MSCALE 45175 . 45505) (MB.MARGINBAR.SHOWTAB 45507 . 47830) (MB.MARGINBAR.TABTRACK 47832 . 49217) (
|
||||
MARGINBAR.INIT 49219 . 50289) (\TEDIT.FMTSPECTOMARBAR 50291 . 51315)) (52211 58428 (\TEDIT.MENU.START
|
||||
52221 . 57852) (\TEDIT.MENU.BUTTONEVENTFN 57854 . 58426)) (58747 66451 (\TEDIT.MENU.CREATE 58757 .
|
||||
60568) (\TEDIT.MENU.PARSE 60570 . 64259) (\TEDIT.MENU.NEUTRALIZE 64261 . 66114) (
|
||||
\TEDITMENU.RECORD.UNFORMATTED 66116 . 66449)) (66516 87885 (\TEDIT.DEFAULTMENU.CREATE 66526 . 73541) (
|
||||
\TEDIT.EXPANDED.MENU 73543 . 74834) (\TEDIT.DEFAULTMENU.FN 74836 . 77980) (\TEDIT.DEFAULTMENU.ACTIONFN
|
||||
77982 . 87326) (TEDIT.MENUSTREAM 87328 . 87883)) (87947 105274 (\TEDIT.PARAMENU.CREATE 87957 . 96359)
|
||||
(\TEDIT.APPLY.PARALOOKS 96361 . 97249) (\TEDIT.SHOW.PARALOOKS 97251 . 100034) (
|
||||
\TEDIT.EXPANDEDPARA.MENU 100036 . 100810) (\TEDIT.PARAMENU.FILLIN 100812 . 105272)) (105336 132225 (
|
||||
\TEDIT.CHARMENU.CREATE 105346 . 108192) (\TEDIT.CHARMENU.SPEC 108194 . 114349) (\TEDIT.CHARMENU.PARSE
|
||||
114351 . 117519) (\TEDIT.CHARMENU.FILLIN 117521 . 121697) (\TEDIT.SHOW.CHARLOOKS 121699 . 124806) (
|
||||
\TEDIT.EXPANDEDCHAR.MENU 124808 . 125732) (\TEDIT.APPLY.CHARLOOKS 125734 . 126731) (
|
||||
\TEDIT.OFFSETTYPE.STATEFN 126733 . 128696) (\TEDIT.OTHER.STATECHANGEFN 128698 . 130098) (
|
||||
\TEDIT.OTHER.SELECTFN 130100 . 132223)) (132287 163414 (\TEDIT.PAGEMENU.CREATE 132297 . 144343) (
|
||||
\TEDIT.SHOW.PAGELOOKS 144345 . 146140) (\TEDIT.PAGEMENU.FILLIN 146142 . 147692) (
|
||||
\TEDIT.PAGEREGION.UNPARSE 147694 . 156884) (\TEDIT.APPLY.PAGELOOKS 156886 . 158649) (
|
||||
\TEDIT.CHANGE.PAGELOOKS 158651 . 162570) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 162572 . 163412)) (163415
|
||||
169218 (\TEDIT.PAGEMENU.CREATE.HEADINGS 163425 . 166237) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 166239
|
||||
. 167664) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 167666 . 169216)))))
|
||||
(FILEMAP (NIL (5446 51561 (DRAWMARGINSCALE 5456 . 8915) (MARGINBAR 8917 . 16042) (MARGINBAR.CREATE
|
||||
16044 . 19463) (MB.MARGINBAR.BUTTONEVENTINFN 19465 . 27104) (MB.MARGINBAR.SELFN.TABS 27106 . 32346) (
|
||||
MB.MARGINBAR.SELFN.TABS.KIND 32348 . 33283) (MARGINBAR.GETSTATEFN 33285 . 37163) (MARGINBAR.SETSTATEFN
|
||||
37165 . 37375) (MARGINBAR.NEUTRALIZE 37377 . 37790) (MARGINBAR.LOOKS 37792 . 40898) (
|
||||
MB.MARGINBAR.SIZEFN 40900 . 41503) (MB.MARGINBAR.DISPLAYFN 41505 . 44566) (MDESCALE 44568 . 45108) (
|
||||
MSCALE 45110 . 45440) (MB.MARGINBAR.SHOWTAB 45442 . 47765) (MB.MARGINBAR.TABTRACK 47767 . 49152) (
|
||||
MARGINBAR.INIT 49154 . 50533) (\TEDIT.FMTSPECTOMARBAR 50535 . 51559)) (52455 58672 (\TEDIT.MENU.START
|
||||
52465 . 58096) (\TEDIT.MENU.BUTTONEVENTFN 58098 . 58670)) (58991 66695 (\TEDIT.MENU.CREATE 59001 .
|
||||
60812) (\TEDIT.MENU.PARSE 60814 . 64503) (\TEDIT.MENU.NEUTRALIZE 64505 . 66358) (
|
||||
\TEDITMENU.RECORD.UNFORMATTED 66360 . 66693)) (66760 88129 (\TEDIT.DEFAULTMENU.CREATE 66770 . 73785) (
|
||||
\TEDIT.EXPANDED.MENU 73787 . 75078) (\TEDIT.DEFAULTMENU.FN 75080 . 78224) (\TEDIT.DEFAULTMENU.ACTIONFN
|
||||
78226 . 87570) (TEDIT.MENUSTREAM 87572 . 88127)) (88191 105647 (\TEDIT.PARAMENU.CREATE 88201 . 96712)
|
||||
(\TEDIT.APPLY.PARALOOKS 96714 . 97602) (\TEDIT.SHOW.PARALOOKS 97604 . 100387) (
|
||||
\TEDIT.EXPANDEDPARA.MENU 100389 . 101163) (\TEDIT.PARAMENU.FILLIN 101165 . 105645)) (105709 132932 (
|
||||
\TEDIT.CHARMENU.CREATE 105719 . 108565) (\TEDIT.CHARMENU.SPEC 108567 . 114832) (\TEDIT.CHARMENU.PARSE
|
||||
114834 . 118002) (\TEDIT.CHARMENU.FILLIN 118004 . 122404) (\TEDIT.SHOW.CHARLOOKS 122406 . 125513) (
|
||||
\TEDIT.EXPANDEDCHAR.MENU 125515 . 126439) (\TEDIT.APPLY.CHARLOOKS 126441 . 127438) (
|
||||
\TEDIT.OFFSETTYPE.STATEFN 127440 . 129403) (\TEDIT.OTHER.STATECHANGEFN 129405 . 130805) (
|
||||
\TEDIT.OTHER.SELECTFN 130807 . 132930)) (132994 164230 (\TEDIT.PAGEMENU.CREATE 133004 . 145159) (
|
||||
\TEDIT.SHOW.PAGELOOKS 145161 . 146956) (\TEDIT.PAGEMENU.FILLIN 146958 . 148508) (
|
||||
\TEDIT.PAGEREGION.UNPARSE 148510 . 157700) (\TEDIT.APPLY.PAGELOOKS 157702 . 159465) (
|
||||
\TEDIT.CHANGE.PAGELOOKS 159467 . 163386) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 163388 . 164228)) (164231
|
||||
170034 (\TEDIT.PAGEMENU.CREATE.HEADINGS 164241 . 167053) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 167055
|
||||
. 168480) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 168482 . 170032)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "24-Dec-2024 22:16:22" {WMEDLEY}<library>tedit>TEDIT-SCREEN.;845 185725
|
||||
(FILECREATED " 6-Jan-2025 23:41:58" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;847 185662
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.FORMATLINE)
|
||||
:CHANGES-TO (FNS \TEDIT.UPDATE.LINES \TEDIT.VALID.LINES)
|
||||
|
||||
:PREVIOUS-DATE "19-Dec-2024 11:51:04" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;840)
|
||||
:PREVIOUS-DATE "24-Dec-2024 22:16:22" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;845)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-SCREENCOMS)
|
||||
@@ -2322,7 +2322,8 @@
|
||||
1)])
|
||||
|
||||
(\TEDIT.UPDATE.LINES
|
||||
[LAMBDA (TEXTOBJ REASON FIRSTCHANGEDCHNO NCHARSCHANGED) (* ; "Edited 7-Dec-2024 21:52 by rmk")
|
||||
[LAMBDA (TEXTOBJ REASON FIRSTCHANGEDCHNO NCHARSCHANGED) (* ; "Edited 6-Jan-2025 23:37 by rmk")
|
||||
(* ; "Edited 7-Dec-2024 21:52 by rmk")
|
||||
(* ; "Edited 29-Nov-2024 22:56 by rmk")
|
||||
(* ; "Edited 26-Nov-2024 03:35 by rmk")
|
||||
(* ; "Edited 22-Nov-2024 17:57 by rmk")
|
||||
@@ -2353,10 +2354,6 @@
|
||||
else (CL:UNLESS FIRSTCHANGEDCHNO (SETQ FIRSTCHANGEDCHNO 1))
|
||||
(CL:UNLESS NCHARSCHANGED
|
||||
(SETQ NCHARSCHANGED (FGETTOBJ TEXTOBJ TEXTLEN)))]
|
||||
|
||||
(* ;;
|
||||
"If DONTDISPLAY, we ensure lines that are properly formatted and positioned but not displayed.")
|
||||
|
||||
(\TEDIT.SHOWSEL NIL NIL TEXTOBJ)
|
||||
(for PANE VALIDS LASTVALID NEXTVALID LASTGAPLINE UPPERBITMAPLINES BITMAPLINES inpanes TEXTOBJ
|
||||
when (SETQ VALIDS (\TEDIT.VALID.LINES PANE FIRSTCHANGEDCHNO NCHARSCHANGED REASON
|
||||
@@ -2535,6 +2532,7 @@
|
||||
|
||||
(\TEDIT.VALID.LINES
|
||||
[LAMBDA (PANE FIRSTCHANGEDCHNO NCHARSCHANGED REASON TSTREAM)
|
||||
(* ; "Edited 6-Jan-2025 15:19 by rmk")
|
||||
(* ; "Edited 22-Nov-2024 16:54 by rmk")
|
||||
(* ; "Edited 20-Nov-2024 12:37 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
@@ -2602,31 +2600,28 @@
|
||||
(CL:UNLESS SUFFIXLINE
|
||||
(\TEDIT.THELP "NO SUFFIXLINE")
|
||||
(RETURN NIL))
|
||||
(SETQ FIRSTVISIBLECHNO (FGETLD PREFIXLINE LCHARLIM))
|
||||
(SETQ LASTVISIBLECHNO (SUB1 (FGETLD SUFFIXLINE LCHAR1)))
|
||||
(CL:WHEN (IGREATERP FIRSTCHANGEDCHNO LASTVISIBLECHNO)
|
||||
(* ;
|
||||
"Change after previously visible lines")
|
||||
(CL:UNLESS (ILEQ LASTCHANGEDCHNO (TEXTLEN TEXTOBJ))
|
||||
(RETURN NIL)) (* ;
|
||||
"Unless adding past the end, nothing to do ")
|
||||
(* ;
|
||||
"Change is after PANE, nothing to do")
|
||||
(RETURN NIL))
|
||||
|
||||
(* ;; "Adding at the end of the document: insert a new line")
|
||||
|
||||
(SETQ FIRSTCHANGEDLINE (\TEDIT.FORMATLINE TEXTOBJ FIRSTCHANGEDCHNO))
|
||||
(LINKLD (FGETLD SUFFIXLINE PREVLINE)
|
||||
FIRSTCHANGEDLINE)
|
||||
(LINKLD FIRSTCHANGEDLINE SUFFIXLINE)) (* ;
|
||||
"Change is after PANE, nothing to do")
|
||||
|
||||
(* ;;; "Change is visible in PANE, there's gotta be a FIRSTCHANGEDLINE")
|
||||
|
||||
(\TEDIT.INSERTLINE (\TEDIT.FORMATLINE TEXTOBJ FIRSTCHANGEDCHNO)
|
||||
SUFFIXLINE))
|
||||
(SETQ FIRSTVISIBLECHNO (FGETLD PREFIXLINE LCHARLIM))
|
||||
(SETQ FIRSTCHANGEDLINE (find L inlines (FGETLD PREFIXLINE NEXTLINE)
|
||||
suchthat (FWITHINLINEP FIRSTCHANGEDCHNO L)))
|
||||
suchthat (FWITHINLINEP FIRSTVISIBLECHNO L)))
|
||||
(CL:UNLESS FIRSTCHANGEDLINE (* ; "Changes are not visible")
|
||||
(RETURN NIL))
|
||||
|
||||
(* ;; "Updates may be required in lines before the FIRSTCHANGEDLINE, if words jump around.")
|
||||
(* ;; "Change is visible in PANE, look for the last valid line (in PANE).")
|
||||
|
||||
(SETQ LASTVALIDLINE (\TEDIT.LASTVALIDLINE FIRSTCHANGEDLINE FIRSTCHANGEDCHNO PANE TSTREAM))
|
||||
(SETQ LASTVALIDLINE (\TEDIT.LASTVALIDLINE FIRSTCHANGEDLINE FIRSTVISIBLECHNO PANE TSTREAM))
|
||||
|
||||
(* ;; "Now for the after-change lines")
|
||||
|
||||
@@ -2854,21 +2849,21 @@
|
||||
(\TEDIT.LINE.TALLP LINE PHEIGHT))))])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (27979 30195 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 27989 . 30193)) (37600 118360 (
|
||||
\TEDIT.FORMATLINE 37610 . 72350) (\TEDIT.FORMATLINE.SETUP.PARA 72352 . 77175) (
|
||||
\TEDIT.FORMATLINE.HORIZONTAL 77177 . 81573) (\TEDIT.FORMATLINE.VERTICAL 81575 . 83792) (
|
||||
\TEDIT.FORMATLINE.JUSTIFY 83794 . 89815) (\TEDIT.FORMATLINE.TABS 89817 . 97617) (\TEDIT.SCALE.TABS
|
||||
97619 . 98410) (\TEDIT.FORMATLINE.PURGE.SPACES 98412 . 99839) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN
|
||||
99841 . 100742) (\TEDIT.FORMATLINE.EMPTY 100744 . 105430) (\TEDIT.FORMATLINE.UPDATELOOKS 105432 .
|
||||
111554) (\TEDIT.FORMATLINE.LASTLEGAL 111556 . 115096) (\TEDIT.LINES.ABOVE 115098 . 118358)) (118477
|
||||
120392 (\TLVALIDATE 118487 . 120390)) (120586 141750 (\TEDIT.DISPLAYLINE 120596 . 134043) (
|
||||
\TEDIT.DISPLAYLINE.TABS 134045 . 136668) (\TEDIT.LINECACHE 136670 . 137398) (\TEDIT.CREATE.LINECACHE
|
||||
137400 . 138236) (\TEDIT.BLTCHAR 138238 . 140865) (\TEDIT.DIACRITIC.SHIFT 140867 . 141748)) (142365
|
||||
185702 (\TEDIT.BACKFORMAT 142375 . 144929) (\TEDIT.PREVIOUS.LINEBREAK 144931 . 147654) (
|
||||
\TEDIT.UPDATE.LINES 147656 . 152101) (\TEDIT.PANE.CREATELINES 152103 . 155095) (
|
||||
\TEDIT.SUFFIXLINE.CREATE 155097 . 156472) (\TEDIT.LINES.BELOW 156474 . 160836) (\TEDIT.MEASURED.LINES
|
||||
160838 . 162610) (\TEDIT.VALID.LINES 162612 . 171255) (\TEDIT.LASTVALIDLINE 171257 . 176079) (
|
||||
\TEDIT.NEXTVALIDLINE 176081 . 177383) (\TEDIT.CLEARPANE.BELOW.LINE 177385 . 179491) (\TEDIT.INSERTLINE
|
||||
179493 . 180879) (\TEDIT.LINE.BOTTOM 180881 . 183877) (\TEDIT.SHOW.AT.BOTTOMP 183879 . 184989) (
|
||||
\TEDIT.SHOW.AT.TOPP 184991 . 185700)))))
|
||||
(FILEMAP (NIL (28000 30216 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 28010 . 30214)) (37621 118381 (
|
||||
\TEDIT.FORMATLINE 37631 . 72371) (\TEDIT.FORMATLINE.SETUP.PARA 72373 . 77196) (
|
||||
\TEDIT.FORMATLINE.HORIZONTAL 77198 . 81594) (\TEDIT.FORMATLINE.VERTICAL 81596 . 83813) (
|
||||
\TEDIT.FORMATLINE.JUSTIFY 83815 . 89836) (\TEDIT.FORMATLINE.TABS 89838 . 97638) (\TEDIT.SCALE.TABS
|
||||
97640 . 98431) (\TEDIT.FORMATLINE.PURGE.SPACES 98433 . 99860) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN
|
||||
99862 . 100763) (\TEDIT.FORMATLINE.EMPTY 100765 . 105451) (\TEDIT.FORMATLINE.UPDATELOOKS 105453 .
|
||||
111575) (\TEDIT.FORMATLINE.LASTLEGAL 111577 . 115117) (\TEDIT.LINES.ABOVE 115119 . 118379)) (118498
|
||||
120413 (\TLVALIDATE 118508 . 120411)) (120607 141771 (\TEDIT.DISPLAYLINE 120617 . 134064) (
|
||||
\TEDIT.DISPLAYLINE.TABS 134066 . 136689) (\TEDIT.LINECACHE 136691 . 137419) (\TEDIT.CREATE.LINECACHE
|
||||
137421 . 138257) (\TEDIT.BLTCHAR 138259 . 140886) (\TEDIT.DIACRITIC.SHIFT 140888 . 141769)) (142386
|
||||
185639 (\TEDIT.BACKFORMAT 142396 . 144950) (\TEDIT.PREVIOUS.LINEBREAK 144952 . 147675) (
|
||||
\TEDIT.UPDATE.LINES 147677 . 152103) (\TEDIT.PANE.CREATELINES 152105 . 155097) (
|
||||
\TEDIT.SUFFIXLINE.CREATE 155099 . 156474) (\TEDIT.LINES.BELOW 156476 . 160838) (\TEDIT.MEASURED.LINES
|
||||
160840 . 162612) (\TEDIT.VALID.LINES 162614 . 171192) (\TEDIT.LASTVALIDLINE 171194 . 176016) (
|
||||
\TEDIT.NEXTVALIDLINE 176018 . 177320) (\TEDIT.CLEARPANE.BELOW.LINE 177322 . 179428) (\TEDIT.INSERTLINE
|
||||
179430 . 180816) (\TEDIT.LINE.BOTTOM 180818 . 183814) (\TEDIT.SHOW.AT.BOTTOMP 183816 . 184926) (
|
||||
\TEDIT.SHOW.AT.TOPP 184928 . 185637)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "17-Dec-2024 14:29:31" {WMEDLEY}<library>TEDIT>TEDIT-SELECTION.;638 151180
|
||||
(FILECREATED "19-Jan-2025 08:36:30" {WMEDLEY}<library>tedit>TEDIT-SELECTION.;643 149608
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.XYTOSEL)
|
||||
:CHANGES-TO (FNS TEDIT.SETSEL)
|
||||
|
||||
:PREVIOUS-DATE " 6-Dec-2024 12:50:42" {WMEDLEY}<library>TEDIT>TEDIT-SELECTION.;637)
|
||||
:PREVIOUS-DATE " 8-Jan-2025 00:21:32" {WMEDLEY}<library>tedit>TEDIT-SELECTION.;641)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-SELECTIONCOMS)
|
||||
@@ -1707,7 +1707,8 @@
|
||||
`(PROGN (DSPCLIPPINGREGION OLDVALUE ,DS])
|
||||
|
||||
(\TEDIT.OPERATE.OBJECT
|
||||
[LAMBDA (TSTREAM SEL PANE OPERATION) (* ; "Edited 1-Dec-2024 11:55 by rmk")
|
||||
[LAMBDA (TSTREAM SEL PANE OPERATION) (* ; "Edited 31-Dec-2024 17:24 by rmk")
|
||||
(* ; "Edited 1-Dec-2024 11:55 by rmk")
|
||||
(* ; "Edited 18-Oct-2024 13:44 by rmk")
|
||||
(* ; "Edited 6-Oct-2024 23:09 by rmk")
|
||||
(* ; "Edited 27-Aug-2024 10:03 by rmk")
|
||||
@@ -1735,7 +1736,6 @@
|
||||
(* ;; "Called from BUTTONEVENTFN.DOOPERATION. Execute once, in PANE. SHOWSEL and FIXSEL do the updates across other panes. This runs in PANE's coordinate system. We can't do it if we can't determine from SEL where OBJ is located in PANE.")
|
||||
|
||||
(CL:WHEN (SETQ LINE (\TEDIT.SEL.L1 SEL PANE TEXTOBJ))
|
||||
(TEDIT.PROMPTCLEAR TSTREAM)
|
||||
(\TEDIT.SHOWSEL SEL NIL TEXTOBJ)
|
||||
(MOVETO (FGETSEL SEL X0)
|
||||
(FGETLD LINE YBASE)
|
||||
@@ -2245,20 +2245,17 @@
|
||||
|
||||
(TEDIT.SETSEL
|
||||
[LAMBDA (TSTREAM CH# LEN POINT PENDINGDELFLG LEAVECARETLOOKS OPERATION)
|
||||
(* ; "Edited 19-Jan-2025 08:32 by rmk")
|
||||
(* ; "Edited 8-Jan-2025 00:20 by rmk")
|
||||
(* ; "Edited 26-Nov-2024 23:51 by rmk")
|
||||
(* ; "Edited 30-Jul-2024 23:27 by rmk")
|
||||
(* ; "Edited 7-Jul-2024 11:18 by rmk")
|
||||
(* ; "Edited 15-Jun-2024 10:08 by rmk")
|
||||
(* ; "Edited 23-May-2024 09:13 by rmk")
|
||||
(* ; "Edited 19-May-2024 00:01 by rmk")
|
||||
(* ; "Edited 29-Apr-2024 12:39 by rmk")
|
||||
(* ; "Edited 15-Mar-2024 13:38 by rmk")
|
||||
(* ; "Edited 17-Mar-2024 00:27 by rmk")
|
||||
(* ; "Edited 9-Mar-2024 12:04 by rmk")
|
||||
(* ; "Edited 22-Sep-2023 18:09 by rmk")
|
||||
(* ; "Edited 3-Aug-2023 23:12 by rmk")
|
||||
(* ; "Edited 23-May-2023 16:50 by rmk")
|
||||
(* ; "Edited 18-Apr-2023 23:54 by rmk")
|
||||
(* ; "Edited 27-Mar-2023 13:07 by rmk")
|
||||
(* ; "Edited 30-May-91 23:05 by jds")
|
||||
|
||||
@@ -2267,66 +2264,48 @@
|
||||
(* ;; "For convenience, TSTREAM may be provided as an external selection (with its SELTEXTSTREAM as the actual TSTREAM). That selection is never installed in TSTREAM, to avoid circularity.")
|
||||
|
||||
(SETQ TSTREAM (TEXTSTREAM TSTREAM))
|
||||
(LET* ((TEXTOBJ (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)))
|
||||
(CL:UNLESS OPERATION
|
||||
(SETQ OPERATION (CL:IF PENDINGDELFLG
|
||||
'PENDINGDEL
|
||||
'NORMAL)))
|
||||
(LET* ((TEXTOBJ (TEXTOBJ! (GETTSTR TSTREAM TEXTOBJ)))
|
||||
(SEL (TEXTSEL TEXTOBJ))
|
||||
(TEXTLEN (TEXTLEN TEXTOBJ))
|
||||
PC)
|
||||
(\TEDIT.SHOWSEL SEL NIL TEXTOBJ) (* ; "First turn the old sel off.")
|
||||
[COND
|
||||
((type? SELECTION CH#) (* ;
|
||||
"He gave use a selection; just plug it in")
|
||||
(\TEDIT.COPYSEL CH# SEL) (* ;
|
||||
[if (type? SELECTION CH#)
|
||||
then (* ;
|
||||
"He gave us a selection; just plug it in")
|
||||
(\TEDIT.COPYSEL CH# SEL) (* ;
|
||||
"And make sure it can be turned on.")
|
||||
(SETSEL SEL ONFLG NIL))
|
||||
(T (* ;
|
||||
(SETSEL SEL ONFLG NIL)
|
||||
else (* ;
|
||||
"Documentation doesn't allow NIL, but DINFO.SHOWSEL passes it")
|
||||
(SELECTQ POINT
|
||||
(LEFT)
|
||||
(RIGHT)
|
||||
(NIL (SETQ POINT 'LEFT))
|
||||
(ERROR POINT "is an illegal POINT")) (* ; "He fed us numbers; use them")
|
||||
(SETQ LEN (IMAX 0 (OR LEN 0)))
|
||||
(CL:WHEN (ILESSP CH# 0)
|
||||
(SETQ CH# (IPLUS 1 TEXTLEN CH#))) (* ; "Length must be positive")
|
||||
(SETQ CH# (IMIN (IMAX 1 CH#)
|
||||
(ADD1 TEXTLEN))) (* ;
|
||||
"Starting character. If beyond TEXTLEN, then just after EOF")
|
||||
(SETSEL SEL CH# CH#)
|
||||
[SETSEL SEL CHLIM (IMAX CH# (IMIN (IPLUS CH# LEN)
|
||||
(ADD1 TEXTLEN]
|
||||
|
||||
(* ;; "LEN may have been reduced by TEXTLEN")
|
||||
|
||||
(SETQ LEN (IDIFFERENCE (GETSEL SEL CHLIM)
|
||||
(GETSEL SEL CH#)))
|
||||
(SETSEL SEL DCH LEN)
|
||||
(SETSEL SEL POINT (if (IGREATERP CH# TEXTLEN)
|
||||
then 'LEFT
|
||||
elseif POINT
|
||||
else 'LEFT)) (* ; "Which side the caret should go on")
|
||||
(FSETSEL SEL SELOBJ (CL:WHEN (EQ 1 LEN) (* ; "If CH# beyond TEXTLEN, LEN is 0")
|
||||
(SETQ PC (\TEDIT.CHTOPC (GETSEL SEL CH#)
|
||||
TEXTOBJ))
|
||||
(CL:WHEN (EQ OBJECT.PTYPE (PTYPE PC))
|
||||
(PCONTENTS PC)))]
|
||||
[COND
|
||||
[PENDINGDELFLG (* ;
|
||||
"This selection is to be a pending-deletion sel.")
|
||||
(SETTOBJ TEXTOBJ BLUEPENDINGDELETE T) (* ;
|
||||
"Warn TEdit that there's a deletion pending")
|
||||
(\TEDIT.SET.SEL.LOOKS SEL (OR OPERATION 'PENDINGDEL]
|
||||
(T (* ;
|
||||
"This selection is to be a pending-deletion sel.")
|
||||
(\TEDIT.RESET.EXTEND.PENDING.DELETE TEXTOBJ)
|
||||
(\TEDIT.SET.SEL.LOOKS SEL (OR OPERATION 'NORMAL]
|
||||
(SETSEL SEL SET T) (* ;
|
||||
"Mark the selection as valid for others to use")
|
||||
(SELECTQ POINT
|
||||
(LEFT)
|
||||
(RIGHT)
|
||||
(NIL (SETQ POINT 'LEFT))
|
||||
(ERROR POINT "is an illegal POINT")) (* ; "He fed us numbers; use them")
|
||||
(CL:WHEN (ILESSP CH# 0) (* ; "Negative => from end")
|
||||
(SETQ CH# (IPLUS 1 TEXTLEN CH#)))
|
||||
(if (EQ 0 TEXTLEN)
|
||||
then (\TEDIT.UPDATE.SEL SEL 1 0 'LEFT)
|
||||
elseif (IGREATERP CH# TEXTLEN)
|
||||
then (\TEDIT.UPDATE.SEL SEL TEXTLEN 0 'RIGHT)
|
||||
else [SETQ LEN (IMIN LEN (ADD1 (IDIFFERENCE TEXTLEN CH#]
|
||||
(\TEDIT.UPDATE.SEL SEL CH# LEN POINT)
|
||||
(FSETSEL SEL SELOBJ (CL:WHEN (EQ 1 LEN)
|
||||
(SETQ PC (\TEDIT.CHTOPC (GETSEL SEL CH#)
|
||||
TEXTOBJ))
|
||||
(CL:WHEN (EQ OBJECT.PTYPE (PTYPE PC))
|
||||
(PCONTENTS PC)))]
|
||||
(SETTOBJ TEXTOBJ BLUEPENDINGDELETE PENDINGDELFLG)
|
||||
(\TEDIT.SET.SEL.LOOKS SEL OPERATION)
|
||||
(CL:UNLESS LEAVECARETLOOKS (* ;
|
||||
"And set the insertion looks to follow.")
|
||||
"Set the insertion looks to follow.")
|
||||
(SETTOBJ TEXTOBJ CARETLOOKS (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ SEL)))
|
||||
(\TEDIT.FIXSEL SEL TEXTOBJ) (* ;
|
||||
"Update the selection's screen location")
|
||||
(\TEDIT.SHOWSEL SEL T TEXTOBJ) (* ; "Highlight it on the screen")
|
||||
(\TEDIT.FIXSEL SEL TEXTOBJ)
|
||||
(\TEDIT.SHOWSEL SEL T TEXTOBJ)
|
||||
SEL])
|
||||
|
||||
(TEDIT.SHOWSEL
|
||||
@@ -2386,7 +2365,8 @@
|
||||
RESULT])
|
||||
|
||||
(TEDIT.SEL.AS.SEXPR
|
||||
[LAMBDA (TSTREAM SEL RDTBL FLG) (* ; "Edited 29-Apr-2024 10:49 by rmk")
|
||||
[LAMBDA (TSTREAM SEL RDTBL FLG) (* ; "Edited 29-Dec-2024 08:47 by rmk")
|
||||
(* ; "Edited 29-Apr-2024 10:49 by rmk")
|
||||
(* ; "Edited 17-Mar-2024 12:05 by rmk")
|
||||
(* ; "Edited 25-Dec-2023 18:52 by rmk")
|
||||
(* ; "Edited 9-Jul-2023 09:37 by rmk")
|
||||
@@ -2399,7 +2379,7 @@
|
||||
(SETQ TSTREAM (TEXTSTREAM TSTREAM))
|
||||
[\TEDIT.TEXTSETFILEPTR TSTREAM (SUB1 (\TEDIT.WORD.FIRST TSTREAM (TEDIT.GETPOINT TSTREAM SEL)
|
||||
(TEDIT.ATOMBOUND.READTABLE (OR RDTBL *READTABLE*]
|
||||
(READ TSTREAM RDTBL FLG])
|
||||
(CAR (NLSETQ (READ TSTREAM RDTBL FLG])
|
||||
|
||||
(TEDIT.SELECTALL
|
||||
[LAMBDA (TEXTSTREAM TEXTOBJ SEL) (* ; "Edited 14-Jun-2023 16:58 by rmk")
|
||||
@@ -2416,25 +2396,25 @@
|
||||
(ADDTOVAR LAMA TEDIT.SELPROP)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (15576 17397 (\TEDIT.SELECTION.DEFPRINT 15586 . 17395)) (17434 18939 (
|
||||
\TEDIT.SET.GLOBAL.SELECTIONS 17444 . 18937)) (18940 24809 (\TEDIT.SELECTED.PIECES 18950 . 20470) (
|
||||
\TEDIT.FIND.PROTECTED.END 20472 . 22141) (\TEDIT.FIND.PROTECTED.START 22143 . 24001) (
|
||||
\TEDIT.WORD.BOUND 24003 . 24807)) (24943 58882 (\TEDIT.EXTEND.SEL 24953 . 32041) (\TEDIT.SCAN.LINE
|
||||
32043 . 43671) (\TEDIT.SCAN.LINE.WORD 43673 . 49034) (\TEDIT.XYTOSEL 49036 . 56035) (\TEDIT.REGIONTYPE
|
||||
56037 . 57056) (\TEDIT.XYTOSEL.INLINEP 57058 . 57513) (\TEDIT.XYTOSEL.LINE 57515 . 58880)) (58883
|
||||
72045 (\TEDIT.FIXSEL 58893 . 68506) (\TEDIT.CHTOLINEX 68508 . 72043)) (72046 75583 (
|
||||
\TEDIT.RESET.EXTEND.PENDING.DELETE 72056 . 73029) (\TEDIT.SET.SEL.LOOKS 73031 . 75581)) (75584 91884 (
|
||||
\TEDIT.SHOWSEL 75594 . 80054) (\TEDIT.SHOWSEL.HILIGHT 80056 . 84677) (\TEDIT.UPDATE.SEL 84679 . 88178)
|
||||
(\TEDIT.CARETLINE 88180 . 88894) (\TEDIT.SEL.L1 88896 . 89402) (\TEDIT.SEL.LN 89404 . 89910) (
|
||||
\TEDIT.SEL.DELETEDCHARS 89912 . 91882)) (91885 96591 (\TEDIT.COPYSEL 91895 . 94361) (
|
||||
\TEDIT.SEL.CHANGED? 94363 . 96589)) (96622 109302 (\TEDIT.SELECT.OBJECT 96632 . 101138) (
|
||||
\TEDIT.SHOWSEL.OBJECT 101140 . 103302) (\TEDIT.CLIP.OBJECT 103304 . 105308) (\TEDIT.OPERATE.OBJECT
|
||||
105310 . 109300)) (109330 127559 (\TEDIT.SELPIECES 109340 . 113288) (\TEDIT.SELPIECES.COPY 113290 .
|
||||
115328) (\TEDIT.SELPIECES.CONCAT 115330 . 117209) (\TEDIT.SELPIECES.CHARTRANSFORM 117211 . 120169) (
|
||||
\TEDIT.SELPIECES.FROM.STRING 120171 . 125194) (\TEDIT.SELPIECES.TO.STRING 125196 . 127557)) (127612
|
||||
151011 (TEDIT.XYTOCH 127622 . 130006) (TEDIT.SELPROP 130008 . 133764) (TEDIT.GETPOINT 133766 . 135686)
|
||||
(TEDIT.GETSEL 135688 . 136422) (TEDIT.GETSEL.PARA 136424 . 137373) (TEDIT.SCANSEL 137375 . 138323) (
|
||||
TEDIT.SET.SEL.LOOKS 138325 . 139704) (TEDIT.SETSEL 139706 . 145976) (TEDIT.SHOWSEL 145978 . 147258) (
|
||||
TEDIT.SEL.AS.STRING 147260 . 149511) (TEDIT.SEL.AS.SEXPR 149513 . 150677) (TEDIT.SELECTALL 150679 .
|
||||
151009)))))
|
||||
(FILEMAP (NIL (15574 17395 (\TEDIT.SELECTION.DEFPRINT 15584 . 17393)) (17432 18937 (
|
||||
\TEDIT.SET.GLOBAL.SELECTIONS 17442 . 18935)) (18938 24807 (\TEDIT.SELECTED.PIECES 18948 . 20468) (
|
||||
\TEDIT.FIND.PROTECTED.END 20470 . 22139) (\TEDIT.FIND.PROTECTED.START 22141 . 23999) (
|
||||
\TEDIT.WORD.BOUND 24001 . 24805)) (24941 58880 (\TEDIT.EXTEND.SEL 24951 . 32039) (\TEDIT.SCAN.LINE
|
||||
32041 . 43669) (\TEDIT.SCAN.LINE.WORD 43671 . 49032) (\TEDIT.XYTOSEL 49034 . 56033) (\TEDIT.REGIONTYPE
|
||||
56035 . 57054) (\TEDIT.XYTOSEL.INLINEP 57056 . 57511) (\TEDIT.XYTOSEL.LINE 57513 . 58878)) (58881
|
||||
72043 (\TEDIT.FIXSEL 58891 . 68504) (\TEDIT.CHTOLINEX 68506 . 72041)) (72044 75581 (
|
||||
\TEDIT.RESET.EXTEND.PENDING.DELETE 72054 . 73027) (\TEDIT.SET.SEL.LOOKS 73029 . 75579)) (75582 91882 (
|
||||
\TEDIT.SHOWSEL 75592 . 80052) (\TEDIT.SHOWSEL.HILIGHT 80054 . 84675) (\TEDIT.UPDATE.SEL 84677 . 88176)
|
||||
(\TEDIT.CARETLINE 88178 . 88892) (\TEDIT.SEL.L1 88894 . 89400) (\TEDIT.SEL.LN 89402 . 89908) (
|
||||
\TEDIT.SEL.DELETEDCHARS 89910 . 91880)) (91883 96589 (\TEDIT.COPYSEL 91893 . 94359) (
|
||||
\TEDIT.SEL.CHANGED? 94361 . 96587)) (96620 109349 (\TEDIT.SELECT.OBJECT 96630 . 101136) (
|
||||
\TEDIT.SHOWSEL.OBJECT 101138 . 103300) (\TEDIT.CLIP.OBJECT 103302 . 105306) (\TEDIT.OPERATE.OBJECT
|
||||
105308 . 109347)) (109377 127606 (\TEDIT.SELPIECES 109387 . 113335) (\TEDIT.SELPIECES.COPY 113337 .
|
||||
115375) (\TEDIT.SELPIECES.CONCAT 115377 . 117256) (\TEDIT.SELPIECES.CHARTRANSFORM 117258 . 120216) (
|
||||
\TEDIT.SELPIECES.FROM.STRING 120218 . 125241) (\TEDIT.SELPIECES.TO.STRING 125243 . 127604)) (127659
|
||||
149439 (TEDIT.XYTOCH 127669 . 130053) (TEDIT.SELPROP 130055 . 133811) (TEDIT.GETPOINT 133813 . 135733)
|
||||
(TEDIT.GETSEL 135735 . 136469) (TEDIT.GETSEL.PARA 136471 . 137420) (TEDIT.SCANSEL 137422 . 138370) (
|
||||
TEDIT.SET.SEL.LOOKS 138372 . 139751) (TEDIT.SETSEL 139753 . 144282) (TEDIT.SHOWSEL 144284 . 145564) (
|
||||
TEDIT.SEL.AS.STRING 145566 . 147817) (TEDIT.SEL.AS.SEXPR 147819 . 149105) (TEDIT.SELECTALL 149107 .
|
||||
149437)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "22-Dec-2024 00:24:17" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;835 172312
|
||||
(FILECREATED "12-Jan-2025 12:16:57" {MEDLEY}<library>tedit>TEDIT-STREAM.;8 172473
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.TEXTPROP)
|
||||
:CHANGES-TO (FNS COPYTEXTSTREAM)
|
||||
|
||||
:PREVIOUS-DATE "20-Dec-2024 12:19:41" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;834)
|
||||
:PREVIOUS-DATE "22-Dec-2024 00:24:17" {MEDLEY}<library>tedit>TEDIT-STREAM.;7)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-STREAMCOMS)
|
||||
@@ -1345,7 +1345,8 @@
|
||||
TSTREAM))])
|
||||
|
||||
(COPYTEXTSTREAM
|
||||
[LAMBDA (ORIGINAL CROSSCOPY) (* ; "Edited 17-Mar-2024 12:41 by rmk")
|
||||
[LAMBDA (ORIGINAL CROSSCOPY) (* ; "Edited 12-Jan-2025 12:16 by rmk")
|
||||
(* ; "Edited 17-Mar-2024 12:41 by rmk")
|
||||
(* ; "Edited 16-Mar-2024 10:03 by rmk")
|
||||
(* ; "Edited 16-Jan-2024 12:27 by rmk")
|
||||
(* ; "Edited 22-Sep-2023 20:48 by rmk")
|
||||
@@ -1365,10 +1366,13 @@
|
||||
"Create an empty textstream into which the pieces can be hammered")
|
||||
[SETQ NEWSTREAM (OPENTEXTSTREAM NIL NIL NIL NIL (COPY (FGETTOBJ TEXTOBJ EDITPROPS]
|
||||
(SETQ NEWTEXTOBJ (TEXTOBJ NEWSTREAM))
|
||||
(for PC inpieces (\TEDIT.FIRSTPIECE TEXTOBJ) do (\TEDIT.INSERTPIECE (\TEDIT.COPYPIECE
|
||||
PC TEXTOBJ NEWTEXTOBJ
|
||||
NIL 'COPY)
|
||||
NIL NEWTEXTOBJ))
|
||||
(for PC NEWPC inpieces (\TEDIT.FIRSTPIECE TEXTOBJ)
|
||||
do (SETQ NEWPC (\TEDIT.COPYPIECE PC TEXTOBJ NEWTEXTOBJ NIL 'COPY))
|
||||
(CL:UNLESS NEWPC
|
||||
(CL:IF (EQ OBJECT.PTYPE (PTYPE PC))
|
||||
(ERROR "Image object does not allow copying" (POBJ PC))
|
||||
(ERROR "Piece cannot be copied " PC)))
|
||||
(\TEDIT.INSERTPIECE NEWPC NIL NEWTEXTOBJ))
|
||||
(FSETTOBJ NEWTEXTOBJ FORMATTEDP (FGETTOBJ TEXTOBJ FORMATTEDP))
|
||||
(FSETTOBJ NEWTEXTOBJ DEFAULTCHARLOOKS (FGETTOBJ TEXTOBJ DEFAULTCHARLOOKS))
|
||||
(FSETTOBJ NEWTEXTOBJ FMTSPEC (FGETTOBJ TEXTOBJ FMTSPEC))
|
||||
@@ -2839,31 +2843,31 @@
|
||||
(ADDTOVAR LAMA TEXTPROP)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (36657 67258 (\TEDIT.TEXTBIN 36667 . 47417) (\TEDIT.TEXTPEEKBIN 47419 . 52969) (
|
||||
\TEDIT.TEXTBACKFILEPTR 52971 . 58644) (\TEDIT.TEXTBOUT 58646 . 63048) (\TEDIT.INSTALL.FILEBUFFER 63050
|
||||
. 67256)) (68156 72204 (\TEDIT.TEXTOUTCHARFN 68166 . 69722) (\TEDIT.TEXTINCCODEFN 69724 . 70463) (
|
||||
\TEDIT.TEXTBACKCCODEFN 70465 . 71057) (\TEDIT.TEXTFORMATBYTESTREAM 71059 . 71762) (
|
||||
\TEDIT.TEXTFORMATBYTESTRING 71764 . 72202)) (72251 82942 (OPENTEXTSTREAM 72261 . 78678) (
|
||||
COPYTEXTSTREAM 78680 . 82165) (TEDIT.STREAMCHANGEDP 82167 . 82469) (TXTFILE 82471 . 82940)) (82943
|
||||
112098 (\TEDIT.REOPENTEXTSTREAM 82953 . 84305) (\TEDIT.OPENTEXTSTREAM.PIECES 84307 . 88737) (
|
||||
\TEDIT.OPENTEXTSTREAM.PROPS 88739 . 89841) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 89843 . 94778) (
|
||||
\TEDIT.OPENTEXTSTREAM.WINDOW 94780 . 97461) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 97463 . 99990) (
|
||||
\TEDIT.OPENTEXTFILE 99992 . 101705) (\TEDIT.CREATE.TEXTSTREAM 101707 . 102641) (\TEDIT.REOPEN.STREAM
|
||||
102643 . 104979) (\TEDIT.TEXTINIT 104981 . 112096)) (112136 113324 (\TEDIT.TTYBOUT 112146 . 113322)) (
|
||||
113442 131819 (\TEDIT.TEXTCLOSEF 113452 . 114776) (\TEDIT.TEXTDSPFONT 114778 . 115748) (
|
||||
\TEDIT.TEXTEOFP 115750 . 117505) (\TEDIT.TEXTGETEOFPTR 117507 . 117830) (\TEDIT.TEXTSETEOFPTR 117832
|
||||
. 118922) (\TEDIT.TEXTGETFILEPTR 118924 . 121646) (\TEDIT.TEXTSETFILEINFO 121648 . 122156) (
|
||||
\TEDIT.TEXTOPENF 122158 . 123089) (\TEDIT.TEXTSETEOF 123091 . 123707) (\TEDIT.TEXTSETFILEPTR 123709 .
|
||||
125750) (\TEDIT.TEXTDSPXPOSITION 125752 . 126769) (\TEDIT.TEXTDSPYPOSITION 126771 . 127512) (
|
||||
\TEDIT.TEXTLEFTMARGIN 127514 . 127891) (\TEDIT.TEXTRIGHTMARGIN 127893 . 130968) (
|
||||
\TEDIT.TEXTDSPCHARWIDTH 130970 . 131274) (\TEDIT.TEXTDSPSTRINGWIDTH 131276 . 131582) (
|
||||
\TEDIT.TEXTDSPLINEFEED 131584 . 131817)) (132866 153517 (\TEDIT.DELETE.SELPIECES 132876 . 136303) (
|
||||
\TEDIT.INSERTCH 136305 . 144099) (\TEDIT.INSERTCH.HISTORY 144101 . 147565) (\TEDIT.INSERTEOL 147567 .
|
||||
149392) (\TEDIT.INSERTCH.INSERTION 149394 . 152231) (\TEDIT.INSERTCH.EXTEND 152233 . 153515)) (153518
|
||||
155022 (\TEDIT.NEXTCHANGEABLE.CHNO 153528 . 154243) (\TEDIT.LASTCHANGEABLE.CHNO 154245 . 155020)) (
|
||||
155023 156727 (\SETUPGETCH 155033 . 156725)) (156785 161243 (\TEDIT.INSTALL.PIECE 156795 . 161241)) (
|
||||
161281 169493 (TEXTPROP 161291 . 161638) (GETTEXTPROP 161640 . 161884) (PUTTEXTPROP 161886 . 162143) (
|
||||
GETTEXTPROPS 162145 . 162589) (PUTTEXTPROPS 162591 . 163495) (\TEDIT.TEXTPROP 163497 . 169491)) (
|
||||
169494 171564 (\TEDIT.TEXTOBJ.PROPNAMES 169504 . 170456) (\TEDIT.TEXTOBJ.PROPFETCHFN 170458 . 170974)
|
||||
(\TEDIT.TEXTOBJ.PROPSTOREFN 170976 . 171562)))))
|
||||
(FILEMAP (NIL (36650 67251 (\TEDIT.TEXTBIN 36660 . 47410) (\TEDIT.TEXTPEEKBIN 47412 . 52962) (
|
||||
\TEDIT.TEXTBACKFILEPTR 52964 . 58637) (\TEDIT.TEXTBOUT 58639 . 63041) (\TEDIT.INSTALL.FILEBUFFER 63043
|
||||
. 67249)) (68149 72197 (\TEDIT.TEXTOUTCHARFN 68159 . 69715) (\TEDIT.TEXTINCCODEFN 69717 . 70456) (
|
||||
\TEDIT.TEXTBACKCCODEFN 70458 . 71050) (\TEDIT.TEXTFORMATBYTESTREAM 71052 . 71755) (
|
||||
\TEDIT.TEXTFORMATBYTESTRING 71757 . 72195)) (72244 83103 (OPENTEXTSTREAM 72254 . 78671) (
|
||||
COPYTEXTSTREAM 78673 . 82326) (TEDIT.STREAMCHANGEDP 82328 . 82630) (TXTFILE 82632 . 83101)) (83104
|
||||
112259 (\TEDIT.REOPENTEXTSTREAM 83114 . 84466) (\TEDIT.OPENTEXTSTREAM.PIECES 84468 . 88898) (
|
||||
\TEDIT.OPENTEXTSTREAM.PROPS 88900 . 90002) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90004 . 94939) (
|
||||
\TEDIT.OPENTEXTSTREAM.WINDOW 94941 . 97622) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 97624 . 100151) (
|
||||
\TEDIT.OPENTEXTFILE 100153 . 101866) (\TEDIT.CREATE.TEXTSTREAM 101868 . 102802) (\TEDIT.REOPEN.STREAM
|
||||
102804 . 105140) (\TEDIT.TEXTINIT 105142 . 112257)) (112297 113485 (\TEDIT.TTYBOUT 112307 . 113483)) (
|
||||
113603 131980 (\TEDIT.TEXTCLOSEF 113613 . 114937) (\TEDIT.TEXTDSPFONT 114939 . 115909) (
|
||||
\TEDIT.TEXTEOFP 115911 . 117666) (\TEDIT.TEXTGETEOFPTR 117668 . 117991) (\TEDIT.TEXTSETEOFPTR 117993
|
||||
. 119083) (\TEDIT.TEXTGETFILEPTR 119085 . 121807) (\TEDIT.TEXTSETFILEINFO 121809 . 122317) (
|
||||
\TEDIT.TEXTOPENF 122319 . 123250) (\TEDIT.TEXTSETEOF 123252 . 123868) (\TEDIT.TEXTSETFILEPTR 123870 .
|
||||
125911) (\TEDIT.TEXTDSPXPOSITION 125913 . 126930) (\TEDIT.TEXTDSPYPOSITION 126932 . 127673) (
|
||||
\TEDIT.TEXTLEFTMARGIN 127675 . 128052) (\TEDIT.TEXTRIGHTMARGIN 128054 . 131129) (
|
||||
\TEDIT.TEXTDSPCHARWIDTH 131131 . 131435) (\TEDIT.TEXTDSPSTRINGWIDTH 131437 . 131743) (
|
||||
\TEDIT.TEXTDSPLINEFEED 131745 . 131978)) (133027 153678 (\TEDIT.DELETE.SELPIECES 133037 . 136464) (
|
||||
\TEDIT.INSERTCH 136466 . 144260) (\TEDIT.INSERTCH.HISTORY 144262 . 147726) (\TEDIT.INSERTEOL 147728 .
|
||||
149553) (\TEDIT.INSERTCH.INSERTION 149555 . 152392) (\TEDIT.INSERTCH.EXTEND 152394 . 153676)) (153679
|
||||
155183 (\TEDIT.NEXTCHANGEABLE.CHNO 153689 . 154404) (\TEDIT.LASTCHANGEABLE.CHNO 154406 . 155181)) (
|
||||
155184 156888 (\SETUPGETCH 155194 . 156886)) (156946 161404 (\TEDIT.INSTALL.PIECE 156956 . 161402)) (
|
||||
161442 169654 (TEXTPROP 161452 . 161799) (GETTEXTPROP 161801 . 162045) (PUTTEXTPROP 162047 . 162304) (
|
||||
GETTEXTPROPS 162306 . 162750) (PUTTEXTPROPS 162752 . 163656) (\TEDIT.TEXTPROP 163658 . 169652)) (
|
||||
169655 171725 (\TEDIT.TEXTOBJ.PROPNAMES 169665 . 170617) (\TEDIT.TEXTOBJ.PROPFETCHFN 170619 . 171135)
|
||||
(\TEDIT.TEXTOBJ.PROPSTOREFN 171137 . 171723)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "17-Dec-2024 23:43:52" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;739 230830
|
||||
(FILECREATED " 6-Jan-2025 23:41:44" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;742 231603
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.SHIFTLINES)
|
||||
|
||||
:PREVIOUS-DATE "13-Dec-2024 09:00:10" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;738)
|
||||
:PREVIOUS-DATE "29-Dec-2024 20:07:33" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;741)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-WINDOWCOMS)
|
||||
@@ -18,8 +18,8 @@
|
||||
(MACROS PANEPROPS PANEPREFIX PANESUFFIX PANETOPLINE
|
||||
PANECARET PANESTREAM PANETOBJ PANEBOTTOMLINE
|
||||
\TEDIT.PREFIX.LCHARLIM)
|
||||
(MACROS PANETOP PANEWIDTH PANELEFT PANEBOTTOM
|
||||
PANEHEIGHT PANEREGION)
|
||||
(MACROS PANETOP PANEWIDTH PANELEFT PANERIGHT
|
||||
PANEBOTTOM PANEHEIGHT PANEREGION)
|
||||
(I.S.OPRS inpanes backpanes)
|
||||
(MACROS ALLBUTTONSUP)))
|
||||
(INITRECORDS TEDITCARET PANEPROPS)
|
||||
@@ -263,6 +263,9 @@
|
||||
(PUTPROPS PANELEFT MACRO [(PANE PREG)
|
||||
(fetch (REGION LEFT) of (OR PREG (DSPCLIPPINGREGION NIL PANE])
|
||||
|
||||
(PUTPROPS PANERIGHT MACRO [(PANE PREG)
|
||||
(fetch (REGION RIGHT) of (OR PREG (DSPCLIPPINGREGION NIL PANE])
|
||||
|
||||
(PUTPROPS PANEBOTTOM MACRO [(PANE PREG)
|
||||
(fetch (REGION BOTTOM) of (OR PREG (DSPCLIPPINGREGION NIL PANE])
|
||||
|
||||
@@ -1946,7 +1949,8 @@
|
||||
PROMPTWINDOW])
|
||||
|
||||
(TEDIT.PROMPTPRINT
|
||||
[LAMBDA (TEXTSTREAM MSG CLEAR? FLASH?) (* ; "Edited 26-Nov-2023 10:10 by rmk")
|
||||
[LAMBDA (TEXTSTREAM MSG CLEAR? FLASH?) (* ; "Edited 29-Dec-2024 14:45 by rmk")
|
||||
(* ; "Edited 26-Nov-2023 10:10 by rmk")
|
||||
(* ; "Edited 10-Sep-2023 00:27 by rmk")
|
||||
(* ; "Edited 30-Jul-2023 08:52 by rmk")
|
||||
(* ; "Edited 9-Jul-2023 12:37 by rmk")
|
||||
@@ -1956,29 +1960,31 @@
|
||||
|
||||
(* ;; "Print a message in the editor's prompt window (if none, use the global promptwindow). Optionally clear the window first.")
|
||||
|
||||
(LET ((TEXTOBJ (TEXTOBJ TEXTSTREAM))
|
||||
(LET ((TEXTOBJ (TEXTOBJ TEXTSTREAM T))
|
||||
PWINDOW MAINWINDOW)
|
||||
(CL:WHEN (SETQ MAINWINDOW (\TEDIT.MAINW TEXTOBJ))
|
||||
[SETQ PWINDOW (CAR (NLSETQ (SELECTQ PWINDOW
|
||||
(DON'T (CL:WHEN (GETTEXTPROP TEXTOBJ 'PWINDOW.ON.DEMAND)
|
||||
(GETPROMPTWINDOW MAINWINDOW)))
|
||||
(NIL (CL:WHEN TEXTSTREAM
|
||||
[GETPROMPTWINDOW MAINWINDOW NIL NIL
|
||||
(NOT (GETTEXTPROP TEXTOBJ
|
||||
'PWINDOW.ON.DEMAND]))
|
||||
PWINDOW]) (* ;
|
||||
(if TEXTOBJ
|
||||
then (CL:WHEN (SETQ MAINWINDOW (\TEDIT.MAINW TEXTOBJ))
|
||||
[SETQ PWINDOW
|
||||
(CAR (NLSETQ (SELECTQ PWINDOW
|
||||
(DON'T (CL:WHEN (GETTEXTPROP TEXTOBJ 'PWINDOW.ON.DEMAND)
|
||||
(GETPROMPTWINDOW MAINWINDOW)))
|
||||
(NIL (CL:WHEN TEXTSTREAM
|
||||
[GETPROMPTWINDOW MAINWINDOW NIL NIL
|
||||
(NOT (GETTEXTPROP TEXTOBJ 'PWINDOW.ON.DEMAND]))
|
||||
PWINDOW]) (* ;
|
||||
"Try to find an editor's prompt window for our message")
|
||||
(COND
|
||||
((WINDOWP PWINDOW) (* ;
|
||||
(COND
|
||||
((WINDOWP PWINDOW) (* ;
|
||||
"We found a window to use. Print the message.")
|
||||
(CL:WHEN CLEAR? (CLEARW PWINDOW))
|
||||
(CL:WHEN FLASH? (FLASHWINDOW PWINDOW 1 75))
|
||||
(PRIN1 MSG PWINDOW))
|
||||
(T (* ;
|
||||
(CL:WHEN CLEAR? (CLEARW PWINDOW))
|
||||
(CL:WHEN FLASH? (FLASHWINDOW PWINDOW 1 75))
|
||||
(PRIN1 MSG PWINDOW))
|
||||
(T (* ;
|
||||
"Failing all else, use global PROMPTWINDOW.")
|
||||
(FRESHLINE PROMPTWINDOW)
|
||||
(CL:WHEN FLASH? (FLASHWINDOW PWINDOW 1 75))
|
||||
(printout PROMPTWINDOW MSG])
|
||||
(FRESHLINE PROMPTWINDOW)
|
||||
(CL:WHEN FLASH? (FLASHWINDOW PWINDOW 1 75))
|
||||
(printout PROMPTWINDOW MSG)))
|
||||
else (PROMPTPRINT MSG])
|
||||
|
||||
(TEDIT.PROMPTCLEAR
|
||||
[LAMBDA (TEXTSTREAM FONT) (* ; "Edited 14-Mar-98 12:52 by rmk:")
|
||||
@@ -2869,6 +2875,7 @@
|
||||
|
||||
(\TEDIT.SHIFTLINES
|
||||
[LAMBDA (PREVLINE NEXTLINE PANE TEXTOBJ BITMAPLINES SCROLLING)
|
||||
(* ; "Edited 6-Jan-2025 23:37 by rmk")
|
||||
(* ; "Edited 17-Dec-2024 23:40 by rmk")
|
||||
(* ; "Edited 3-Dec-2024 16:08 by rmk")
|
||||
(* ; "Edited 1-Dec-2024 11:31 by rmk")
|
||||
@@ -2985,8 +2992,13 @@
|
||||
|
||||
(\TEDIT.CLEARPANE.BELOW.LINE PREVLINE PANE TEXTOBJ)
|
||||
(SETQ LASTVISIBLE (\TEDIT.LINES.BELOW PREVLINE PANE TEXTOBJ))
|
||||
(CL:WHEN (IGEQ (FGETLD PREVLINE YBOT)
|
||||
(PANETOP PANE)) (* ;
|
||||
"If PREVLINE isn't visible, link in its next")
|
||||
(LINKLD (PANEPREFIX PANE)
|
||||
NEXTLINE))
|
||||
(\TEDIT.SUFFIXLINE.CREATE PANE TEXTOBJ LASTVISIBLE)
|
||||
(\TEDIT.FIXSEL SEL TEXTOBJ NIL PANE))
|
||||
(\TEDIT.FIXSEL NIL TEXTOBJ NIL PANE))
|
||||
(CL:WHEN SCROLLING
|
||||
|
||||
(* ;; "If scrolling up or down, we brute force wipe out whatever is above PREVLINE. If not scrolling, those are the lines from the top to lastvalid that are preserved.")
|
||||
@@ -3644,37 +3656,37 @@
|
||||
(RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _
|
||||
TEDIT.ICON.TITLE.REGION))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (18257 19153 (TEDIT.DEFER.UPDATES 18267 . 19151)) (19154 42196 (\TEDIT.CREATEW 19164 .
|
||||
25879) (\TEDIT.WINDOW.SETUP 25881 . 29994) (\TEDIT.MINIMAL.WINDOW.SETUP 29996 . 38198) (
|
||||
\TEDIT.CLEARPANE 38200 . 38917) (\TEDIT.FILL.PANES 38919 . 42194)) (42197 64911 (\TEDIT.CURSORMOVEDFN
|
||||
42207 . 47080) (\TEDIT.CURSOROUTFN 47082 . 47527) (\TEDIT.ACTIVE.WINDOWP 47529 . 48580) (
|
||||
\TEDIT.EXPANDFN 48582 . 49145) (\TEDIT.MAINW 49147 . 50427) (\TEDIT.MAINSTREAM 50429 . 50696) (
|
||||
\TEDIT.PRIMARYPANE 50698 . 51468) (\TEDIT.PANELIST 51470 . 51966) (\TEDIT.NEWREGIONFN 51968 . 54484) (
|
||||
\TEDIT.SET.WINDOW.EXTENT 54486 . 59740) (\TEDIT.SHRINK.ICONCREATE 59742 . 62282) (\TEDIT.SHRINKFN
|
||||
62284 . 62693) (\TEDIT.PANEREGION 62695 . 64909)) (64943 96398 (\TEDIT.BUTTONEVENTFN 64953 . 77506) (
|
||||
\TEDIT.BUTTONEVENTFN.DOOPERATION 77508 . 84231) (\TEDIT.BUTTONEVENTFN.GETOPERATION 84233 . 86075) (
|
||||
\TEDIT.BUTTONEVENTFN.CURSEL.INIT 86077 . 89314) (\TEDIT.BUTTONEVENTFN.INACTIVE 89316 . 91658) (
|
||||
\TEDIT.BUTTONEVENTFN.INTITLE 91660 . 93495) (\TEDIT.COPYINSERTFN 93497 . 94629) (\TEDIT.FOREIGN.COPY
|
||||
94631 . 96396)) (96399 113508 (\TEDIT.PANE.SPLIT 96409 . 100888) (\TEDIT.SPLITW 100890 . 108349) (
|
||||
\TEDIT.UNSPLITW 108351 . 112165) (\TEDIT.LINKPANES 112167 . 112930) (\TEDIT.UNLINKPANE 112932 . 113506
|
||||
)) (114865 115756 (TEDITWINDOWP 114875 . 115754)) (115793 118896 (TEDIT.GETINPUT 115803 . 118246) (
|
||||
\TEDIT.MAKEFILENAME 118248 . 118894)) (118945 127055 (TEDIT.PROMPTWINDOW 118955 . 119269) (
|
||||
TEDIT.PROMPTPRINT 119271 . 121707) (TEDIT.PROMPTCLEAR 121709 . 123428) (TEDIT.PROMPTFLASH 123430 .
|
||||
125362) (\TEDIT.PROMPT.PAGEFULLFN 125364 . 127053)) (127293 136119 (\TEXTSTREAM.TITLE 127303 . 127993)
|
||||
(\TEDIT.DEFAULT.TITLE 127995 . 130374) (\TEDIT.WINDOW.TITLE 130376 . 132545) (\TEXTSTREAM.FILENAME
|
||||
132547 . 134217) (\TEDIT.UPDATE.TITLE 134219 . 136117)) (136162 144365 (TEDIT.DEACTIVATE.WINDOW 136172
|
||||
. 141965) (\TEDIT.RESHAPEFN 141967 . 144137) (\TEDIT.REPAINTFN 144139 . 144363)) (144366 186365 (
|
||||
\TEDIT.SCROLLFN 144376 . 146621) (\TEDIT.SCROLLCH.TOP 146623 . 148734) (\TEDIT.SCROLLCH.BOTTOM 148736
|
||||
. 153066) (\TEDIT.SCROLLUP 153068 . 158587) (\TEDIT.TOPLINE.YTOP 158589 . 160258) (\TEDIT.SCROLLDOWN
|
||||
160260 . 167092) (\TEDIT.SCROLL.CARET 167094 . 169932) (\TEDIT.VISIBLECARETP 169934 . 172228) (
|
||||
\TEDIT.VISIBLECHARP 172230 . 173321) (\TEDIT.BITMAPLINES 173323 . 177243) (\TEDIT.SETPANE.TOPLINE
|
||||
177245 . 178036) (\TEDIT.SHIFTLINES 178038 . 186363)) (186366 197235 (\TEDIT.ONSCREEN? 186376 . 190927
|
||||
) (\TEDIT.ONSCREEN.REGION 190929 . 194580) (\TEDIT.AFTERMOVEFN 194582 . 195479) (OFFSCREENP 195481 .
|
||||
197233)) (197277 199894 (\TEDIT.PROCIDLEFN 197287 . 198824) (\TEDIT.PROCENTRYFN 198826 . 199271) (
|
||||
\TEDIT.PROCEXITFN 199273 . 199892)) (199973 213127 (\TEDIT.DOWNCARET 199983 . 200776) (
|
||||
\TEDIT.FLASHCARET 200778 . 202889) (\TEDIT.UPCARET 202891 . 203995) (TEDIT.NORMALIZECARET 203997 .
|
||||
207215) (\TEDIT.SETCARET 207217 . 212497) (\TEDIT.CARET 212499 . 213125)) (213161 224800 (
|
||||
TEDIT.ADD.MENUITEM 213171 . 215462) (TEDIT.DEFAULT.MENUFN 215464 . 222012) (TEDIT.REMOVE.MENUITEM
|
||||
222014 . 223011) (\TEDIT.CREATEMENU 223013 . 223578) (\TEDIT.MENU.WHENHELDFN 223580 . 224485) (
|
||||
\TEDIT.MENU.WHENSELECTEDFN 224487 . 224798)))))
|
||||
(FILEMAP (NIL (18414 19310 (TEDIT.DEFER.UPDATES 18424 . 19308)) (19311 42353 (\TEDIT.CREATEW 19321 .
|
||||
26036) (\TEDIT.WINDOW.SETUP 26038 . 30151) (\TEDIT.MINIMAL.WINDOW.SETUP 30153 . 38355) (
|
||||
\TEDIT.CLEARPANE 38357 . 39074) (\TEDIT.FILL.PANES 39076 . 42351)) (42354 65068 (\TEDIT.CURSORMOVEDFN
|
||||
42364 . 47237) (\TEDIT.CURSOROUTFN 47239 . 47684) (\TEDIT.ACTIVE.WINDOWP 47686 . 48737) (
|
||||
\TEDIT.EXPANDFN 48739 . 49302) (\TEDIT.MAINW 49304 . 50584) (\TEDIT.MAINSTREAM 50586 . 50853) (
|
||||
\TEDIT.PRIMARYPANE 50855 . 51625) (\TEDIT.PANELIST 51627 . 52123) (\TEDIT.NEWREGIONFN 52125 . 54641) (
|
||||
\TEDIT.SET.WINDOW.EXTENT 54643 . 59897) (\TEDIT.SHRINK.ICONCREATE 59899 . 62439) (\TEDIT.SHRINKFN
|
||||
62441 . 62850) (\TEDIT.PANEREGION 62852 . 65066)) (65100 96555 (\TEDIT.BUTTONEVENTFN 65110 . 77663) (
|
||||
\TEDIT.BUTTONEVENTFN.DOOPERATION 77665 . 84388) (\TEDIT.BUTTONEVENTFN.GETOPERATION 84390 . 86232) (
|
||||
\TEDIT.BUTTONEVENTFN.CURSEL.INIT 86234 . 89471) (\TEDIT.BUTTONEVENTFN.INACTIVE 89473 . 91815) (
|
||||
\TEDIT.BUTTONEVENTFN.INTITLE 91817 . 93652) (\TEDIT.COPYINSERTFN 93654 . 94786) (\TEDIT.FOREIGN.COPY
|
||||
94788 . 96553)) (96556 113665 (\TEDIT.PANE.SPLIT 96566 . 101045) (\TEDIT.SPLITW 101047 . 108506) (
|
||||
\TEDIT.UNSPLITW 108508 . 112322) (\TEDIT.LINKPANES 112324 . 113087) (\TEDIT.UNLINKPANE 113089 . 113663
|
||||
)) (115022 115913 (TEDITWINDOWP 115032 . 115911)) (115950 119053 (TEDIT.GETINPUT 115960 . 118403) (
|
||||
\TEDIT.MAKEFILENAME 118405 . 119051)) (119102 127403 (TEDIT.PROMPTWINDOW 119112 . 119426) (
|
||||
TEDIT.PROMPTPRINT 119428 . 122055) (TEDIT.PROMPTCLEAR 122057 . 123776) (TEDIT.PROMPTFLASH 123778 .
|
||||
125710) (\TEDIT.PROMPT.PAGEFULLFN 125712 . 127401)) (127641 136467 (\TEXTSTREAM.TITLE 127651 . 128341)
|
||||
(\TEDIT.DEFAULT.TITLE 128343 . 130722) (\TEDIT.WINDOW.TITLE 130724 . 132893) (\TEXTSTREAM.FILENAME
|
||||
132895 . 134565) (\TEDIT.UPDATE.TITLE 134567 . 136465)) (136510 144713 (TEDIT.DEACTIVATE.WINDOW 136520
|
||||
. 142313) (\TEDIT.RESHAPEFN 142315 . 144485) (\TEDIT.REPAINTFN 144487 . 144711)) (144714 187138 (
|
||||
\TEDIT.SCROLLFN 144724 . 146969) (\TEDIT.SCROLLCH.TOP 146971 . 149082) (\TEDIT.SCROLLCH.BOTTOM 149084
|
||||
. 153414) (\TEDIT.SCROLLUP 153416 . 158935) (\TEDIT.TOPLINE.YTOP 158937 . 160606) (\TEDIT.SCROLLDOWN
|
||||
160608 . 167440) (\TEDIT.SCROLL.CARET 167442 . 170280) (\TEDIT.VISIBLECARETP 170282 . 172576) (
|
||||
\TEDIT.VISIBLECHARP 172578 . 173669) (\TEDIT.BITMAPLINES 173671 . 177591) (\TEDIT.SETPANE.TOPLINE
|
||||
177593 . 178384) (\TEDIT.SHIFTLINES 178386 . 187136)) (187139 198008 (\TEDIT.ONSCREEN? 187149 . 191700
|
||||
) (\TEDIT.ONSCREEN.REGION 191702 . 195353) (\TEDIT.AFTERMOVEFN 195355 . 196252) (OFFSCREENP 196254 .
|
||||
198006)) (198050 200667 (\TEDIT.PROCIDLEFN 198060 . 199597) (\TEDIT.PROCENTRYFN 199599 . 200044) (
|
||||
\TEDIT.PROCEXITFN 200046 . 200665)) (200746 213900 (\TEDIT.DOWNCARET 200756 . 201549) (
|
||||
\TEDIT.FLASHCARET 201551 . 203662) (\TEDIT.UPCARET 203664 . 204768) (TEDIT.NORMALIZECARET 204770 .
|
||||
207988) (\TEDIT.SETCARET 207990 . 213270) (\TEDIT.CARET 213272 . 213898)) (213934 225573 (
|
||||
TEDIT.ADD.MENUITEM 213944 . 216235) (TEDIT.DEFAULT.MENUFN 216237 . 222785) (TEDIT.REMOVE.MENUITEM
|
||||
222787 . 223784) (\TEDIT.CREATEMENU 223786 . 224351) (\TEDIT.MENU.WHENHELDFN 224353 . 225258) (
|
||||
\TEDIT.MENU.WHENSELECTEDFN 225260 . 225571)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 1-May-2024 14:53:20" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;260 131326
|
||||
(FILECREATED "20-Jan-2025 11:00:54" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;263 131893
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS COMPAREDIRECTORIES)
|
||||
:CHANGES-TO (VARS COMPAREDIRECTORIESCOMS)
|
||||
|
||||
:PREVIOUS-DATE "26-Mar-2024 21:42:47" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;259)
|
||||
:PREVIOUS-DATE "23-Dec-2024 23:54:13" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;262)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT COMPAREDIRECTORIESCOMS)
|
||||
@@ -15,6 +15,8 @@
|
||||
[
|
||||
(* ;; "Compare the contents of two directories.")
|
||||
|
||||
(FILES (SYSLOAD)
|
||||
PDFSTREAM)
|
||||
(FNS COMPAREDIRECTORIES COMPAREDIRECTORIES.INFOS COMPAREDIRECTORIES.CANDIDATES
|
||||
CDENTRIES.SELECT COMPAREDIRECTORIES.INFOS.TYPE MATCHNAME CD.INSURECDVALUE
|
||||
CD.UPDATEWIDTHS)
|
||||
@@ -59,6 +61,9 @@
|
||||
|
||||
(* ;; "Compare the contents of two directories.")
|
||||
|
||||
|
||||
(FILESLOAD (SYSLOAD)
|
||||
PDFSTREAM)
|
||||
(DEFINEQ
|
||||
|
||||
(COMPAREDIRECTORIES
|
||||
@@ -1955,6 +1960,8 @@
|
||||
(CD-MENUFN
|
||||
[LAMBDA (TBITEM MENUITEM CDBROWSER KEY)
|
||||
|
||||
(* ;; "Edited 23-Dec-2024 23:53 by rmk")
|
||||
|
||||
(* ;; "Edited 21-May-2022 21:59 by rmk")
|
||||
|
||||
(* ;; "Edited 27-Feb-2022 12:47 by rmk: FILELABELFN, if provided, can be used to calculate abbreviated labels for the file, for example, to strip off any long common prefixes.")
|
||||
@@ -1968,52 +1975,64 @@
|
||||
(* ; "Close the previous ones")
|
||||
(CLOSEWITH.DOIT WINDOW))
|
||||
(LET (CHILDREN)
|
||||
(SETQ CHILDREN (SELECTQ MENUITEM
|
||||
(Compare (IF (AND FILE1 FILE2)
|
||||
THEN (CD-COMPARE-FILES FILE1 FILE2 LABEL1 LABEL2 TYPE
|
||||
(WINDOWPROP WINDOW 'REGION))
|
||||
ELSE (FLASHWINDOW T)
|
||||
(PRIN3 "Only one file" T)))
|
||||
(See% left (IF FILE1
|
||||
THEN (TEDIT-SEE FILE1
|
||||
(RELCREATEREGION
|
||||
700 700 'RIGHT 'TOP `(,WINDOW 0.5)
|
||||
(IPLUS (FETCH (REGION BOTTOM)
|
||||
OF (WINDOWPROP WINDOW 'REGION))
|
||||
-1)
|
||||
T)
|
||||
NIL
|
||||
(CONCAT "SEE window for " LABEL1))
|
||||
ELSE (FLASHWINDOW T)
|
||||
(PRIN3 "No file to print" T)))
|
||||
(See% right (IF FILE2
|
||||
THEN (TEDIT-SEE FILE2
|
||||
(RELCREATEREGION
|
||||
700 700 'LEFT 'TOP `(,WINDOW 0.5)
|
||||
(IPLUS (FETCH (REGION BOTTOM)
|
||||
OF (WINDOWPROP WINDOW 'REGION))
|
||||
-1)
|
||||
NIL)
|
||||
NIL
|
||||
(CONCAT "SEE window for " LABEL2))
|
||||
ELSE (FLASHWINDOW T)
|
||||
(PRIN3 "No file to print" T)))
|
||||
((See See% both)
|
||||
(EXAMINEFILES FILE1 FILE2 LABEL1 LABEL2
|
||||
(RELCREATEREGION 1400 700 'LEFT 'TOP `(,WINDOW 0.5 -701)
|
||||
(IPLUS (FETCH (REGION BOTTOM)
|
||||
OF (WINDOWPROP WINDOW 'REGION))
|
||||
-1)
|
||||
NIL)))
|
||||
(Copy% -> (CDBROWSER-COPY CDBROWSER TBITEM 'LEFT))
|
||||
(Copy% <- (CDBROWSER-COPY CDBROWSER TBITEM 'RIGHT))
|
||||
(Delete% <- (CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'LEFT T))
|
||||
(|Delete ALL <-|
|
||||
(CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'LEFT NIL))
|
||||
(Delete% -> (CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'RIGHT T))
|
||||
(|Delete ALL ->|
|
||||
(CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'RIGHT NIL))
|
||||
(SHOULDNT)))
|
||||
(SETQ CHILDREN
|
||||
(SELECTQ MENUITEM
|
||||
(Compare (IF (AND FILE1 FILE2)
|
||||
THEN (CD-COMPARE-FILES FILE1 FILE2 LABEL1 LABEL2 TYPE (WINDOWPROP
|
||||
WINDOW
|
||||
'REGION))
|
||||
ELSE (FLASHWINDOW T)
|
||||
(PRIN3 "Only one file" T)))
|
||||
(See% left (IF FILE1
|
||||
THEN (if (PDFFILEP FILE1)
|
||||
then (SEE-PDF FILE1)
|
||||
else (TEDIT-SEE FILE1 (RELCREATEREGION
|
||||
700 700 'RIGHT 'TOP `(,WINDOW 0.5)
|
||||
(IPLUS (FETCH (REGION BOTTOM)
|
||||
OF (WINDOWPROP WINDOW
|
||||
'REGION))
|
||||
-1)
|
||||
T)
|
||||
NIL
|
||||
(CONCAT "SEE window for " LABEL1)))
|
||||
ELSE (FLASHWINDOW T)
|
||||
(PRIN3 "No file to print" T)))
|
||||
(See% right (IF FILE2
|
||||
THEN (if (PDFFILEP FILE2)
|
||||
then (SEE-PDF FILE2)
|
||||
else (TEDIT-SEE FILE2 (RELCREATEREGION
|
||||
700 700 'LEFT 'TOP `(,WINDOW 0.5)
|
||||
(IPLUS (FETCH (REGION BOTTOM)
|
||||
OF (WINDOWPROP WINDOW
|
||||
'REGION))
|
||||
-1)
|
||||
NIL)
|
||||
NIL
|
||||
(CONCAT "SEE window for " LABEL2)))
|
||||
ELSE (FLASHWINDOW T)
|
||||
(PRIN3 "No file to print" T)))
|
||||
((See See% both)
|
||||
(IF (PDFFILEP FILE1)
|
||||
then (SEE-PDF FILE1)
|
||||
(CL:WHEN (PDFFILEP FILE2)
|
||||
(SEE-PDF FILE2))
|
||||
elseif (PDFFILEP FILE2)
|
||||
then (SEE-PDF FILE2)
|
||||
else (EXAMINEFILES FILE1 FILE2 LABEL1 LABEL2
|
||||
(RELCREATEREGION 1400 700 'LEFT 'TOP `(,WINDOW 0.5 -701)
|
||||
(IPLUS (FETCH (REGION BOTTOM) OF (WINDOWPROP WINDOW
|
||||
'REGION))
|
||||
-1)
|
||||
NIL))))
|
||||
(Copy% -> (CDBROWSER-COPY CDBROWSER TBITEM 'LEFT))
|
||||
(Copy% <- (CDBROWSER-COPY CDBROWSER TBITEM 'RIGHT))
|
||||
(Delete% <- (CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'LEFT T))
|
||||
(|Delete ALL <-|
|
||||
(CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'LEFT NIL))
|
||||
(Delete% -> (CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'RIGHT T))
|
||||
(|Delete ALL ->|
|
||||
(CDBROWSER-DELETE-FILE CDBROWSER TBITEM 'RIGHT NIL))
|
||||
(SHOULDNT)))
|
||||
(CLOSEWITH CHILDREN WINDOW)
|
||||
(MOVEWITH CHILDREN WINDOW])
|
||||
|
||||
@@ -2202,25 +2221,25 @@
|
||||
|
||||
(MOVD? 'NILL 'TEDIT.FILEDATE)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2526 22889 (COMPAREDIRECTORIES 2536 . 7871) (COMPAREDIRECTORIES.INFOS 7873 . 10831) (
|
||||
COMPAREDIRECTORIES.CANDIDATES 10833 . 14218) (CDENTRIES.SELECT 14220 . 18995) (
|
||||
COMPAREDIRECTORIES.INFOS.TYPE 18997 . 20123) (MATCHNAME 20125 . 20805) (CD.INSURECDVALUE 20807 . 22421
|
||||
) (CD.UPDATEWIDTHS 22423 . 22887)) (22890 33512 (CDFILES 22900 . 28914) (CDFILES.MATCH 28916 . 30541)
|
||||
(CDFILES.PATS 30543 . 33510)) (33513 51334 (CDPRINT 33523 . 36040) (CDPRINT.HEADER 36042 . 36939) (
|
||||
CDPRINT.LINE 36941 . 40173) (CDPRINT.MAXWIDTHS 40175 . 44290) (CDPRINT.COLHEADERS 44292 . 45577) (
|
||||
CDPRINT.COLUMNS 45579 . 50699) (CDTEDIT 50701 . 51332)) (51335 60456 (CDMAP 51345 . 52777) (CDENTRY
|
||||
52779 . 53088) (CDSUBSET 53090 . 54529) (CDMERGE 54531 . 58515) (CDMERGE.COMMON 58517 . 59832) (
|
||||
CD.SORT 59834 . 60454)) (60457 67995 (BINCOMP 60467 . 64756) (EOLTYPE 64758 . 67320) (EOLTYPE.SHOW
|
||||
67322 . 67993)) (68523 81050 (FIND-UNCOMPILED-FILES 68533 . 72176) (FIND-UNSOURCED-FILES 72178 . 74562
|
||||
) (FIND-SOURCE-FILES 74564 . 76302) (FIND-COMPILED-FILES 76304 . 78181) (FIND-UNLOADED-FILES 78183 .
|
||||
79036) (FIND-LOADED-FILES 79038 . 79466) (FIND-MULTICOMPILED-FILES 79468 . 81048)) (81051 89482 (
|
||||
CREATED-AS 81061 . 85858) (SOURCE-FOR-COMPILED-P 85860 . 88787) (COMPILE-SOURCE-DATE-DIFF 88789 .
|
||||
89480)) (89483 100246 (FIX-DIRECTORY-DATES 89493 . 92943) (FIX-EQUIV-DATES 92945 . 94470) (
|
||||
COPY-COMPARED-FILES 94472 . 96293) (COPY-MISSING-FILES 96295 . 98452) (COMPILED-ON-SAME-SOURCE 98454
|
||||
. 100244)) (100440 108278 (CDBROWSER 100450 . 104377) (CDBROWSER.STRINGS 104379 . 108276)) (108440
|
||||
110176 (CD.TABLEITEM 108450 . 108670) (CD.TABLEITEM.PRINTFN 108672 . 108871) (CD.TABLEITEM.COPYFN
|
||||
108873 . 109931) (CDTABLEBROWSER.HEADING.REPAINTFN 109933 . 110174)) (110177 130832 (
|
||||
CDTABLEBROWSER.WHENSELECTEDFN 110187 . 110655) (CD.COMMANDSELECTEDFN 110657 . 115758) (CD-MENUFN
|
||||
115760 . 120071) (CD-COMPARE-FILES 120073 . 123425) (CDBROWSER-COPY 123427 . 127096) (
|
||||
CDBROWSER-DELETE-FILE 127098 . 130311) (CD-SWAPDIRS 130313 . 130830)))))
|
||||
(FILEMAP (NIL (2622 22985 (COMPAREDIRECTORIES 2632 . 7967) (COMPAREDIRECTORIES.INFOS 7969 . 10927) (
|
||||
COMPAREDIRECTORIES.CANDIDATES 10929 . 14314) (CDENTRIES.SELECT 14316 . 19091) (
|
||||
COMPAREDIRECTORIES.INFOS.TYPE 19093 . 20219) (MATCHNAME 20221 . 20901) (CD.INSURECDVALUE 20903 . 22517
|
||||
) (CD.UPDATEWIDTHS 22519 . 22983)) (22986 33608 (CDFILES 22996 . 29010) (CDFILES.MATCH 29012 . 30637)
|
||||
(CDFILES.PATS 30639 . 33606)) (33609 51430 (CDPRINT 33619 . 36136) (CDPRINT.HEADER 36138 . 37035) (
|
||||
CDPRINT.LINE 37037 . 40269) (CDPRINT.MAXWIDTHS 40271 . 44386) (CDPRINT.COLHEADERS 44388 . 45673) (
|
||||
CDPRINT.COLUMNS 45675 . 50795) (CDTEDIT 50797 . 51428)) (51431 60552 (CDMAP 51441 . 52873) (CDENTRY
|
||||
52875 . 53184) (CDSUBSET 53186 . 54625) (CDMERGE 54627 . 58611) (CDMERGE.COMMON 58613 . 59928) (
|
||||
CD.SORT 59930 . 60550)) (60553 68091 (BINCOMP 60563 . 64852) (EOLTYPE 64854 . 67416) (EOLTYPE.SHOW
|
||||
67418 . 68089)) (68619 81146 (FIND-UNCOMPILED-FILES 68629 . 72272) (FIND-UNSOURCED-FILES 72274 . 74658
|
||||
) (FIND-SOURCE-FILES 74660 . 76398) (FIND-COMPILED-FILES 76400 . 78277) (FIND-UNLOADED-FILES 78279 .
|
||||
79132) (FIND-LOADED-FILES 79134 . 79562) (FIND-MULTICOMPILED-FILES 79564 . 81144)) (81147 89578 (
|
||||
CREATED-AS 81157 . 85954) (SOURCE-FOR-COMPILED-P 85956 . 88883) (COMPILE-SOURCE-DATE-DIFF 88885 .
|
||||
89576)) (89579 100342 (FIX-DIRECTORY-DATES 89589 . 93039) (FIX-EQUIV-DATES 93041 . 94566) (
|
||||
COPY-COMPARED-FILES 94568 . 96389) (COPY-MISSING-FILES 96391 . 98548) (COMPILED-ON-SAME-SOURCE 98550
|
||||
. 100340)) (100536 108374 (CDBROWSER 100546 . 104473) (CDBROWSER.STRINGS 104475 . 108372)) (108536
|
||||
110272 (CD.TABLEITEM 108546 . 108766) (CD.TABLEITEM.PRINTFN 108768 . 108967) (CD.TABLEITEM.COPYFN
|
||||
108969 . 110027) (CDTABLEBROWSER.HEADING.REPAINTFN 110029 . 110270)) (110273 131399 (
|
||||
CDTABLEBROWSER.WHENSELECTEDFN 110283 . 110751) (CD.COMMANDSELECTEDFN 110753 . 115854) (CD-MENUFN
|
||||
115856 . 120638) (CD-COMPARE-FILES 120640 . 123992) (CDBROWSER-COPY 123994 . 127663) (
|
||||
CDBROWSER-DELETE-FILE 127665 . 130878) (CD-SWAPDIRS 130880 . 131397)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "11-Apr-2024 08:27:34" {WMEDLEY}<lispusers>DINFO.;13 65523
|
||||
(FILECREATED "25-May-2024 13:19:49" {WMEDLEY}<lispusers>DINFO.;14 65819
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS DINFO.OPENTEXTSTREAM)
|
||||
:CHANGES-TO (FNS DINFO.OPENTEXTSTREAM DINFO.UPDATE.TEXT.DISPLAY)
|
||||
|
||||
:PREVIOUS-DATE "10-Mar-2024 15:38:36" {WMEDLEY}<lispusers>DINFO.;12)
|
||||
:PREVIOUS-DATE "11-Apr-2024 08:27:34" {WMEDLEY}<lispusers>DINFO.;13)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT DINFOCOMS)
|
||||
@@ -988,17 +988,18 @@
|
||||
(DEFINEQ
|
||||
|
||||
(DINFO.UPDATE.TEXT.DISPLAY
|
||||
[LAMBDA (GRAPH NODE SEL OFF?) (* ; "Edited 3-Feb-2022 11:50 by rmk")
|
||||
[LAMBDA (GRAPH NODE SEL OFF?) (* ; "Edited 25-May-2024 13:16 by rmk")
|
||||
(* drc%: "25-Jan-86 18:18")
|
||||
(* drc%: "25-Jan-86 18:18")
|
||||
(LET ((WINDOW (fetch (DINFOGRAPH WINDOW) of GRAPH))
|
||||
(FILENAME (DINFO.GET.FILENAME GRAPH NODE))
|
||||
(FROM (fetch (DINFONODE FROMBYTE) of NODE))
|
||||
(TO (fetch (DINFONODE TOBYTE) of NODE))
|
||||
(PROPS (APPEND (LIST 'READONLY T 'NOTITLE T 'TITLEMENUFN 'DINFO.TITLEMENUFN)
|
||||
(PROPS (APPEND (LIST 'READONLY 'QUIET 'NOTITLE T 'TITLEMENUFN (FUNCTION DINFO.TITLEMENUFN))
|
||||
(fetch (DINFOGRAPH TEXTPROPS) of GRAPH)))
|
||||
(OLD.TEXTSTREAM (WINDOWPROP (fetch (DINFOGRAPH WINDOW) of GRAPH)
|
||||
'TEXTSTREAM))
|
||||
TEXTSTREAM FULLFILENAME) (* Default directory and host.)
|
||||
TEXTSTREAM FULLFILENAME) (* ; "Default directory and host.")
|
||||
(if (OR OFF? (NULL FILENAME))
|
||||
then (OPENTEXTSTREAM (CL:UNLESS OFF? (OPENSTRINGSTREAM "This node has no text"))
|
||||
WINDOW NIL NIL PROPS)
|
||||
@@ -1036,7 +1037,8 @@
|
||||
(PROMPTPRINT "DInfo is busy"])
|
||||
|
||||
(DINFO.OPENTEXTSTREAM
|
||||
[LAMBDA (FILE WINDOW FROM TO PROPS) (* ; "Edited 10-Apr-2024 23:46 by rmk")
|
||||
[LAMBDA (FILE WINDOW FROM TO PROPS) (* ; "Edited 25-May-2024 13:17 by rmk")
|
||||
(* ; "Edited 10-Apr-2024 23:46 by rmk")
|
||||
(* ; "Edited 10-Mar-2024 15:37 by rmk")
|
||||
(* drc%: "25-Jan-86 18:24")
|
||||
(RESETFORM (TTYDISPLAYSTREAM (GETPROMPTWINDOW WINDOW))
|
||||
@@ -1053,7 +1055,8 @@
|
||||
(CLEARW T)
|
||||
(CLEARW WINDOW)
|
||||
[RESETSAVE NIL `(AND RESETSTATE (WINDOWPROP ,WINDOW 'LAST.TEXT NIL]
|
||||
(PROG1 (OPENTEXTSTREAM FILE WINDOW FROM TO PROPS)
|
||||
(PROG1 (TEDIT (OPENTEXTSTREAM FILE NIL FROM TO PROPS)
|
||||
WINDOW)
|
||||
(replace (DINFOGRAPH LAST.TEXT) of (DINFOGRAPH WINDOW) with THIS.TEXT))])
|
||||
|
||||
(DINFO.SHOWSEL
|
||||
@@ -1110,21 +1113,21 @@
|
||||
(SETTEMPLATE 'DINFOGRAPHPROP 'MACRO)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4556 6015 (DINFOGRAPHPROP 4556 . 6015)) (7269 24407 (DINFO 7279 . 8893) (DINFO.UPDATE
|
||||
8895 . 11759) (DINFOGRAPH 11761 . 12179) (DINFO.SPECIAL.UPDATE 12181 . 13879) (DINFO.READ.GRAPH 13881
|
||||
. 15736) (DINFO.WRITE.GRAPH 15738 . 16828) (DINFO.SELECT.GRAPH 16830 . 17737) (DINFO.DEFAULT.MENU
|
||||
17739 . 20263) (DINFO.FIND 20265 . 22851) (DINFO.LOOKUP 22853 . 24405)) (24408 27102 (
|
||||
DINFO.READ.KOTO.GRAPH 24418 . 27100)) (27103 29417 (DINFO.SETUP.WINDOW 27113 . 27794) (DINFO.CLOSEFN
|
||||
27796 . 28229) (DINFO.SHRINKFN 28231 . 28427) (DINFO.EXPANDFN 28429 . 28986) (DINFO.ICONFN 28988 .
|
||||
29415)) (29418 40740 (DINFO.ADD.FMENU 29428 . 30523) (DINFO.CREATE.FMENU 30525 . 34552) (
|
||||
DINFO.FMW.CLOSEFN 34554 . 35399) (DINFO.FMENU.HANDLER 35401 . 36040) (DINFO.UPDATE.FMENU 36042 . 38231
|
||||
) (DINFO.TOGGLE.MENU 38233 . 38823) (DINFO.TOGGLE.GRAPH 38825 . 39324) (DINFO.TOGGLE.HISTORY 39326 .
|
||||
39870) (DINFO.TOGGLE.TEXT 39872 . 40738)) (40741 48536 (DINFO.UPDATE.MENU.DISPLAY 40751 . 44872) (
|
||||
DINFO.UPDATE.FROM.MENU 44874 . 45173) (DINFO.UPDATE.HISTORY 45175 . 47705) (DINFO.HISTORIC.UPDATE
|
||||
47707 . 48534)) (48537 58866 (DINFO.UPDATE.GRAPH.DISPLAY 48547 . 49999) (DINFO.UPDATE.FROM.GRAPH 50001
|
||||
. 50477) (DINFO.GET.GRAPH.WINDOW 50479 . 51064) (DINFO.CREATE.GRAPH.WINDOW 51066 . 52183) (
|
||||
DINFO.SHOWGRAPH 52185 . 53910) (DINFO.INVERT.NODE 53912 . 55300) (DINFO.LAYOUTGRAPH 55302 . 58864)) (
|
||||
58867 64936 (DINFO.UPDATE.TEXT.DISPLAY 58877 . 60825) (DINFO.TITLEMENUFN 60827 . 61952) (
|
||||
DINFO.OPENTEXTSTREAM 61954 . 63296) (DINFO.SHOWSEL 63298 . 64031) (DINFO.GET.FILENAME 64033 . 64934)))
|
||||
(FILEMAP (NIL (4582 6041 (DINFOGRAPHPROP 4582 . 6041)) (7295 24433 (DINFO 7305 . 8919) (DINFO.UPDATE
|
||||
8921 . 11785) (DINFOGRAPH 11787 . 12205) (DINFO.SPECIAL.UPDATE 12207 . 13905) (DINFO.READ.GRAPH 13907
|
||||
. 15762) (DINFO.WRITE.GRAPH 15764 . 16854) (DINFO.SELECT.GRAPH 16856 . 17763) (DINFO.DEFAULT.MENU
|
||||
17765 . 20289) (DINFO.FIND 20291 . 22877) (DINFO.LOOKUP 22879 . 24431)) (24434 27128 (
|
||||
DINFO.READ.KOTO.GRAPH 24444 . 27126)) (27129 29443 (DINFO.SETUP.WINDOW 27139 . 27820) (DINFO.CLOSEFN
|
||||
27822 . 28255) (DINFO.SHRINKFN 28257 . 28453) (DINFO.EXPANDFN 28455 . 29012) (DINFO.ICONFN 29014 .
|
||||
29441)) (29444 40766 (DINFO.ADD.FMENU 29454 . 30549) (DINFO.CREATE.FMENU 30551 . 34578) (
|
||||
DINFO.FMW.CLOSEFN 34580 . 35425) (DINFO.FMENU.HANDLER 35427 . 36066) (DINFO.UPDATE.FMENU 36068 . 38257
|
||||
) (DINFO.TOGGLE.MENU 38259 . 38849) (DINFO.TOGGLE.GRAPH 38851 . 39350) (DINFO.TOGGLE.HISTORY 39352 .
|
||||
39896) (DINFO.TOGGLE.TEXT 39898 . 40764)) (40767 48562 (DINFO.UPDATE.MENU.DISPLAY 40777 . 44898) (
|
||||
DINFO.UPDATE.FROM.MENU 44900 . 45199) (DINFO.UPDATE.HISTORY 45201 . 47731) (DINFO.HISTORIC.UPDATE
|
||||
47733 . 48560)) (48563 58892 (DINFO.UPDATE.GRAPH.DISPLAY 48573 . 50025) (DINFO.UPDATE.FROM.GRAPH 50027
|
||||
. 50503) (DINFO.GET.GRAPH.WINDOW 50505 . 51090) (DINFO.CREATE.GRAPH.WINDOW 51092 . 52209) (
|
||||
DINFO.SHOWGRAPH 52211 . 53936) (DINFO.INVERT.NODE 53938 . 55326) (DINFO.LAYOUTGRAPH 55328 . 58890)) (
|
||||
58893 65232 (DINFO.UPDATE.TEXT.DISPLAY 58903 . 60963) (DINFO.TITLEMENUFN 60965 . 62090) (
|
||||
DINFO.OPENTEXTSTREAM 62092 . 63592) (DINFO.SHOWSEL 63594 . 64327) (DINFO.GET.FILENAME 64329 . 65230)))
|
||||
))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,29 +1,31 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "13-Oct-2023 11:18:04" {WMEDLEY}<lispusers>EXAMINEDEFS.;48 14244
|
||||
(FILECREATED "12-Dec-2024 15:09:08" {WMEDLEY}<lispusers>EXAMINEDEFS.;53 16442
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS EXAMINEDEFS TEDITDEF)
|
||||
:CHANGES-TO (FNS EXVV)
|
||||
(VARS EXAMINEDEFSCOMS)
|
||||
|
||||
:PREVIOUS-DATE "19-Jul-2023 13:59:26" {WMEDLEY}<lispusers>EXAMINEDEFS.;44)
|
||||
:PREVIOUS-DATE " 6-Dec-2024 21:30:42" {WMEDLEY}<lispusers>EXAMINEDEFS.;51)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT EXAMINEDEFSCOMS)
|
||||
|
||||
(RPAQQ EXAMINEDEFSCOMS ((FNS EXAMINEDEFS EXAMINEFILES TEDITDEF)
|
||||
(RPAQQ EXAMINEDEFSCOMS ((FNS EXAMINEDEFS EXAMINEFILES TEDITDEF EXV EXVV)
|
||||
(INITVARS (EXAMINEDEFS-PROCESS-LIST)
|
||||
(EXAMINEWITH 'COMPARETEXT))
|
||||
(FILES (SYSLOAD)
|
||||
COMPARETEXT)))
|
||||
COMPARETEXT VERSIONDEFS)))
|
||||
(DEFINEQ
|
||||
|
||||
(EXAMINEDEFS
|
||||
[LAMBDA (NAME TYPE SOURCE1 SOURCE2 TITLE1 TITLE2 REGION) (* ; "Edited 13-Oct-2023 11:11 by rmk")
|
||||
[LAMBDA (NAME TYPE SOURCE1 SOURCE2 TITLE1 TITLE2 REGION) (* ; "Edited 6-Dec-2024 20:51 by rmk")
|
||||
(* ; "Edited 13-Oct-2023 11:11 by rmk")
|
||||
(* ; "Edited 18-May-2023 22:35 by rmk")
|
||||
(* ; "Edited 21-Apr-2023 14:42 by rmk")
|
||||
|
||||
(* ;; "This provides for side-by-side examination of separate but presumably related expressions. The (LISTP) expressions can be provided directly as the definitions SOURCE1 and SOURCE2 or, if NAME is given the copies of the definitions of NAME as TYPE on the two sources are examined. If both SOURCE1 and SOURCE2 are NIL, then SOURCE1 is the existing file defintions, NIL is the existing in-memory definition")
|
||||
(* ;; "This provides for side-by-side examination of separate but presumably related expressions. The (LISTP) expressions can be provided directly as the definitions SOURCE1 and SOURCE2 or, if NAME is given, the copies of the definitions of NAME as TYPE on the two sources are examined. If both SOURCE1 and SOURCE2 are NIL, then SOURCE1 is the existing file defintion, NIL is the existing in-memory definition")
|
||||
|
||||
(* ;; "")
|
||||
|
||||
@@ -231,6 +233,54 @@
|
||||
(PRIN3 ")" TSTREAM)
|
||||
ELSE (PRINTDEF DEF 3 NIL NIL NIL TSTREAM)))
|
||||
TSTREAM])
|
||||
|
||||
(EXV
|
||||
[LAMBDA (NAME TYPE FILE VERSION) (* ; "Edited 6-Dec-2024 21:24 by rmk")
|
||||
|
||||
(* ;; "Compares the current incore version with the definition on version VERSION of FILE. TYPE defaults to functions, FILE defaults to (CAR (WHEREIS)), VERSION defaults to newest.")
|
||||
|
||||
(CL:WHEN (VERSIONP TYPE)
|
||||
(SETQ VERSION TYPE)
|
||||
(SETQ TYPE NIL))
|
||||
|
||||
(* ;; "NAME (VARS) (SOURCE1) (V1) (SOURCE2) (V2) ")
|
||||
|
||||
(CL:UNLESS FILE
|
||||
(CL:WHEN (AND (VERSIONP FILE)
|
||||
(NOT (VERSIONP VERSION)))
|
||||
(SETQ VERSION FILE))
|
||||
(SETQ FILE (OR (CAR (WHEREIS NAME TYPE T))
|
||||
(ERROR "Can't find " FILE " definition of " NAME))))
|
||||
(CL:UNLESS VERSION
|
||||
(SETQ VERSION 'NEWEST))
|
||||
(SETQ FILE (FINDFILEVERSION FILE VERSION))
|
||||
(EXAMINEDEFS NAME TYPE NIL FILE])
|
||||
|
||||
(EXVV
|
||||
[LAMBDA (NAME TYPE FILE VERSION1 VERSION2) (* ; "Edited 12-Dec-2024 15:09 by rmk")
|
||||
|
||||
(* ;; "Compares the definitions of NAME as TYPE on 2 different versions of FILE. TYPE and FILE can be elided, defaulting to NIL and WHEREIS respectively. Versions default to newest.")
|
||||
|
||||
(* ;; "(EXVV 'FOO -1 -2) will compare the newest and second-newest function definitions of FOO")
|
||||
|
||||
(if (AND (VERSIONP VERSION1)
|
||||
(VERSIONP VERSION2))
|
||||
elseif (VERSIONP TYPE)
|
||||
then (SETQ VERSION1 TYPE)
|
||||
(SETQ TYPE NIL)
|
||||
(CL:WHEN (VERSIONP FILE)
|
||||
(SETQ VERSION2 FILE)
|
||||
(SETQ FILE NIL))
|
||||
elseif (VERSIONP FILE)
|
||||
then (CL:WHEN (VERSIONP VERSION1)
|
||||
(SETQ VERSION2 VERSION1))
|
||||
(SETQ VERSION1 FILE)
|
||||
(SETQ FILE NIL))
|
||||
(CL:UNLESS FILE
|
||||
(SETQ FILE (OR (CAR (WHEREIS NAME TYPE T))
|
||||
(ERROR "Can't find " FILE " definition of " NAME))))
|
||||
(EXAMINEDEFS NAME TYPE (FINDFILEVERSION FILE (OR VERSION1 -1))
|
||||
(FINDFILEVERSION FILE (OR VERSION2 -1])
|
||||
)
|
||||
|
||||
(RPAQ? EXAMINEDEFS-PROCESS-LIST )
|
||||
@@ -238,8 +288,8 @@
|
||||
(RPAQ? EXAMINEWITH 'COMPARETEXT)
|
||||
|
||||
(FILESLOAD (SYSLOAD)
|
||||
COMPARETEXT)
|
||||
COMPARETEXT VERSIONDEFS)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (618 14102 (EXAMINEDEFS 628 . 10448) (EXAMINEFILES 10450 . 11932) (TEDITDEF 11934 .
|
||||
14100)))))
|
||||
(FILEMAP (NIL (664 16288 (EXAMINEDEFS 674 . 10603) (EXAMINEFILES 10605 . 12087) (TEDITDEF 12089 .
|
||||
14255) (EXV 14257 . 15125) (EXVV 15127 . 16286)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
73
lispusers/TAB-WINDOWS
Normal file
73
lispusers/TAB-WINDOWS
Normal file
@@ -0,0 +1,73 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 9-Aug-2024 11:31:37" {DSK}<Users>hjellinek>Projects>IL>TAB-WINDOWS.;13 3078
|
||||
|
||||
:CHANGES-TO (FNS START-TAB-WINDOWS TAB-WINDOWS SHOW-KEYS IS-KEY-DOWN? KEY-WINDOW)
|
||||
(VARS TAB-WINDOWSCOMS)
|
||||
(PROPS (TAB-WINDOWS :COMPILE-FILE))
|
||||
|
||||
:PREVIOUS-DATE " 4-Jun-2024 09:48:34" {DSK}<Users>hjellinek>Projects>IL>TAB-WINDOWS.;1)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TAB-WINDOWSCOMS)
|
||||
|
||||
(RPAQQ TAB-WINDOWSCOMS ((FNS IS-KEY-DOWN? START-TAB-WINDOWS TAB-WINDOWS SHOW-KEYS KEY-WINDOW)
|
||||
(PROP :COMPILE-FILE TAB-WINDOWS)))
|
||||
(DEFINEQ
|
||||
|
||||
(IS-KEY-DOWN?
|
||||
[LAMBDA (KEY-NAME KEYS-DOWN)
|
||||
(for KEY-NAME-LIST in KEYS-DOWN thereis (FMEMB KEY-NAME KEY-NAME-LIST])
|
||||
|
||||
(START-TAB-WINDOWS
|
||||
[LAMBDA (META-KEY-NAME)
|
||||
(ADD.PROCESS (LIST 'TAB-WINDOWS (KWOTE META-KEY-NAME))
|
||||
'NAME "Window Tabber" 'RESTARTABLE T])
|
||||
|
||||
(TAB-WINDOWS
|
||||
[LAMBDA (META-KEY-NAME)
|
||||
|
||||
(* ;; "When the meta and tab keys go down, TOTOPW the next window in OPENWINDOWS")
|
||||
|
||||
(DECLARE (CL:SPECIAL \KEYNAMES))
|
||||
(LET ((CURRENT-WINDOW NIL)
|
||||
(OPEN-WINDOWS (OPENWINDOWS)))
|
||||
(CL:UNWIND-PROTECT
|
||||
[PROGN (while T
|
||||
do ([LET ((KEYS-DOWN (for K in \KEYNAMES when (KEYDOWNP K) collect K)))
|
||||
[if (AND (IS-KEY-DOWN? 'TAB KEYS-DOWN)
|
||||
(IS-KEY-DOWN? META-KEY-NAME KEYS-DOWN))
|
||||
then (if CURRENT-WINDOW
|
||||
then (TOTOPW CURRENT-WINDOW)
|
||||
(SETQ CURRENT-WINDOW (CADR (FMEMB CURRENT-WINDOW
|
||||
OPEN-WINDOWS)))
|
||||
else (SETQ CURRENT-WINDOW (CAR OPEN-WINDOWS]
|
||||
(if (NOT KEYS-DOWN)
|
||||
then (SETQ CURRENT-WINDOW NIL)
|
||||
(SETQ OPEN-WINDOWS (OPENWINDOWS]
|
||||
(BLOCK 20])])
|
||||
|
||||
(SHOW-KEYS
|
||||
[LAMBDA NIL
|
||||
(DECLARE (CL:SPECIAL \KEYNAMES))
|
||||
(LET ((WINDOW (CREATEW NIL "Keys down")))
|
||||
(WINDOWPROP WINDOW 'PROCESS (THIS.PROCESS))
|
||||
[WINDOWPROP WINDOW 'CLOSEFN (FUNCTION (LAMBDA (W)
|
||||
(DEL.PROCESS (WINDOWPROP W 'PROCESS]
|
||||
(CL:UNWIND-PROTECT
|
||||
[PROGN (while T do (LET ((DOWN-KEYS (for K in \KEYNAMES when (KEYDOWNP K) collect K)))
|
||||
(BLOCK 100)
|
||||
(CLEARW WINDOW)
|
||||
(COND
|
||||
(DOWN-KEYS (PRIN1 DOWN-KEYS WINDOW]
|
||||
(CLOSEW WINDOW))])
|
||||
|
||||
(KEY-WINDOW
|
||||
[LAMBDA NIL
|
||||
(ADD.PROCESS '(SHOW-KEYS)
|
||||
'NAME "Showing Keys" 'RESTARTABLE T])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (645 3055 (IS-KEY-DOWN? 655 . 791) (START-TAB-WINDOWS 793 . 950) (TAB-WINDOWS 952 . 2219
|
||||
) (SHOW-KEYS 2221 . 2939) (KEY-WINDOW 2941 . 3053)))))
|
||||
STOP
|
||||
BIN
lispusers/TAB-WINDOWS.DFASL
Normal file
BIN
lispusers/TAB-WINDOWS.DFASL
Normal file
Binary file not shown.
BIN
lispusers/TAB-WINDOWS.TEdit
Normal file
BIN
lispusers/TAB-WINDOWS.TEdit
Normal file
Binary file not shown.
@@ -1,32 +1,31 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "31-Oct-2024 17:27:44" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;124 10208
|
||||
(FILECREATED "23-Dec-2024 19:26:20" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;133 11059
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS TEDIT-PF-SEECOMS)
|
||||
|
||||
:PREVIOUS-DATE "31-Oct-2024 17:25:56" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;123)
|
||||
:PREVIOUS-DATE " 7-Dec-2024 18:00:39" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;132)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-PF-SEECOMS)
|
||||
|
||||
(RPAQQ TEDIT-PF-SEECOMS [(FNS PF-TEDIT PF-TEDIT-FROM-TEXT)
|
||||
(COMMANDS ts tf)
|
||||
(FILES (SYSLOAD)
|
||||
REGIONMANAGER)
|
||||
(P (MOVD? 'PFCOPYBYTES 'PFI.MAYBE.PP.DEFINITION)
|
||||
(MOVD? 'NILL (FUNCTION TEDIT.SETFUNCTION))
|
||||
(TEDIT.SETFUNCTION "Meta,T" (FUNCTION PF-TEDIT-FROM-TEXT))
|
||||
(TEDIT.SETFUNCTION "Meta,t" (FUNCTION PF-TEDIT-FROM-TEXT)))
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS
|
||||
(NLAMA)
|
||||
(NLAML)
|
||||
(LAMA])
|
||||
(RPAQQ TEDIT-PF-SEECOMS
|
||||
[(FNS PF-TEDIT PF-TEDIT-FROM-TEXT)
|
||||
(COMMANDS ts tf)
|
||||
(FILES (SYSLOAD)
|
||||
REGIONMANAGER VERSIONDEFS)
|
||||
(P (MOVD? 'PFCOPYBYTES 'PFI.MAYBE.PP.DEFINITION)
|
||||
(MOVD? 'NILL (FUNCTION TEDIT.SETFUNCTION))
|
||||
(TEDIT.SETFUNCTION "Meta,T" (FUNCTION PF-TEDIT-FROM-TEXT))
|
||||
(TEDIT.SETFUNCTION "Meta,t" (FUNCTION PF-TEDIT-FROM-TEXT)))
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
|
||||
(NLAML)
|
||||
(LAMA])
|
||||
(DEFINEQ
|
||||
|
||||
(PF-TEDIT
|
||||
[LAMBDA (FN IFILES REPRINT) (* ; "Edited 27-Aug-2024 13:03 by rmk")
|
||||
[LAMBDA (FN IFILES VERSION REPRINT) (* ; "Edited 6-Dec-2024 19:15 by rmk")
|
||||
(* ; "Edited 27-Aug-2024 13:03 by rmk")
|
||||
(* ; "Edited 27-Mar-2024 23:45 by rmk")
|
||||
(* ; "Edited 25-Dec-2023 12:24 by rmk")
|
||||
(* ; "Edited 5-Dec-2023 23:50 by rmk")
|
||||
@@ -50,21 +49,32 @@
|
||||
((t T NIL)
|
||||
(SETQ REPRINT T)
|
||||
(SETQ FN LASTWORD))
|
||||
(SETQ LASTWORD FN))
|
||||
(if (VERSIONP FN)
|
||||
then (SETQ IFILES (CONS FN))
|
||||
(SETQ FN LASTWORD)
|
||||
else (SETQ LASTWORD FN)))
|
||||
(CL:UNLESS FN (ERROR "No function to print"))
|
||||
(CL:WHEN (AND (VERSIONP IFILES)
|
||||
(NULL VERSION))
|
||||
(SETQ VERSION IFILES)
|
||||
(SETQ IFILES NIL))
|
||||
(CL:WHEN (INTERSECTION '(T t)
|
||||
IFILES)
|
||||
(SETQ REPRINT T)
|
||||
[SETQ IFILES (LDIFFERENCE IFILES '(t T])
|
||||
(IF [OR IFILES (SETQ IFILES (APPEND (WHEREIS FN 'FNS T)
|
||||
(WHEREIS FN 'FUNCTIONS T]
|
||||
(CL:UNLESS IFILES
|
||||
(SETQ IFILES (APPEND (WHEREIS FN 'FNS T)
|
||||
(WHEREIS FN 'FUNCTIONS T))))
|
||||
(IF IFILES
|
||||
THEN (* ; "skip compiled files")
|
||||
|
||||
(* ;; "Since we are creating readonly Tedits, try to keep the TTY where it is.")
|
||||
|
||||
(FOR IFILE LOC TSTREAM ENV EXPR TFPROP WINDOW INSIDE IFILES
|
||||
UNLESS (MEMB (FILENAMEFIELD IFILE 'EXTENSION)
|
||||
*COMPILED-EXTENSIONS*)
|
||||
EACHTIME (CL:IF (VERSIONP IFILE)
|
||||
(SETQ IFILE (FINDFILEVERSION (CAR (WHEREIS FN NIL T))
|
||||
IFILE))) UNLESS (MEMB (FILENAMEFIELD IFILE 'EXTENSION)
|
||||
*COMPILED-EXTENSIONS*)
|
||||
DO (SETQ LOC (FINDFNDEF FN IFILE))
|
||||
(IF (LISTP LOC)
|
||||
THEN (SETQ TFPROP (LIST FN (CAR LOC)))
|
||||
@@ -134,7 +144,8 @@
|
||||
ELSE (PRINTOUT T FN " has no function definition" T])
|
||||
|
||||
(PF-TEDIT-FROM-TEXT
|
||||
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 26-Aug-2024 23:13 by rmk")
|
||||
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 5-Dec-2024 22:20 by rmk")
|
||||
(* ; "Edited 26-Aug-2024 23:13 by rmk")
|
||||
|
||||
(* ;; "The function key for the meta,T and meta,t keys. This shows in a separate Tedit window the definition in TSTREAM of the function named by the selection SEL.")
|
||||
|
||||
@@ -149,21 +160,27 @@
|
||||
(if (EQ 0 (NCHARS FN))
|
||||
then (TEDIT.PROMPTPRINT TSTREAM "Please select a function to display" T)
|
||||
elseif FILENAME
|
||||
then (PF-TEDIT FN FILENAME)
|
||||
then [PF-TEDIT FN (CAR (MEMB (FILENAMEFIELD FILENAME)
|
||||
(WHEREIS FN NIL T]
|
||||
else (TEDIT.PROMPTPRINT TSTREAM (CONCAT FN " not found")
|
||||
T])
|
||||
)
|
||||
|
||||
(DEFCOMMAND ts (FILE WINDOW FORMAT)
|
||||
(TEDIT-SEE (OR (FINDFILE-WITH-EXTENSIONS FILE NIL '(NIL TEDIT TED TXT TEXT TEX))
|
||||
(ERROR "FILE NOT FOUND" FILE))
|
||||
(DEFCOMMAND ts (FILE VERSION WINDOW FORMAT) (CL:WHEN (WINDOWP VERSION)
|
||||
(SETQ WINDOW VERSION)
|
||||
(SETQ VERSION -1))
|
||||
(CL:UNLESS VERSION (SETQ VERSION -1))
|
||||
(TEDIT-SEE (FINDFILEVERSION (OR (FINDFILE-WITH-EXTENSIONS FILE NIL
|
||||
'(NIL TEDIT TED TXT TEXT TEX))
|
||||
(ERROR "FILE NOT FOUND" FILE))
|
||||
VERSION)
|
||||
(OR WINDOW 'SEE)
|
||||
FORMAT))
|
||||
|
||||
(DEFCOMMAND tf (FN . IFILES) (PF-TEDIT FN IFILES))
|
||||
(DEFCOMMAND tf (FN FILE VERSION) (PF-TEDIT FN FILE VERSION))
|
||||
|
||||
(FILESLOAD (SYSLOAD)
|
||||
REGIONMANAGER)
|
||||
REGIONMANAGER VERSIONDEFS)
|
||||
|
||||
(MOVD? 'PFCOPYBYTES 'PFI.MAYBE.PP.DEFINITION)
|
||||
|
||||
@@ -181,5 +198,5 @@
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1243 9524 (PF-TEDIT 1253 . 8506) (PF-TEDIT-FROM-TEXT 8508 . 9522)))))
|
||||
(FILEMAP (NIL (973 10035 (PF-TEDIT 983 . 8821) (PF-TEDIT-FROM-TEXT 8823 . 10033)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
158
lispusers/VERSIONDEFS
Normal file
158
lispusers/VERSIONDEFS
Normal file
@@ -0,0 +1,158 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "12-Dec-2024 15:07:45" {WMEDLEY}<lispusers>VERSIONDEFS.;11 6270
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS VERSIONDEFSCOMS)
|
||||
|
||||
:PREVIOUS-DATE " 6-Dec-2024 22:12:48" {WMEDLEY}<lispusers>VERSIONDEFS.;10)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT VERSIONDEFSCOMS)
|
||||
|
||||
(RPAQQ VERSIONDEFSCOMS [(FNS FINDFILEVERSION GETVINFO VERSIONP)
|
||||
(FNS EDV DFV)
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
(ADDVARS (NLAMA DVV DFV EDV)
|
||||
(NLAML)
|
||||
(LAMA])
|
||||
(DEFINEQ
|
||||
|
||||
(FINDFILEVERSION
|
||||
[LAMBDA (FILE VERSION DIRLIST NOERROR) (* ; "Edited 6-Dec-2024 22:12 by rmk")
|
||||
(* ; "Edited 1-Dec-2024 23:01 by rmk")
|
||||
(* ; "Edited 4-Oct-2024 15:23 by rmk")
|
||||
|
||||
(* ;; "Returns the version of FILE in DIRLIST that correspond to the relative version specifier VERSION. Negative version count backwrd from the newest (=-1), positive count forward from the oldest (=1). F, FIRST,OLDEST are equivalent to 1 (= oldest), N NEWEST are equivalent to -1 (newest).")
|
||||
|
||||
(LET (FILES)
|
||||
(SETQ VERSION (VERSIONP VERSION))
|
||||
(if (EQ VERSION -1)
|
||||
then (FINDFILE FILE T DIRLIST)
|
||||
elseif [SETQ FILES (FILDIR (PACKFILENAME 'VERSION '* 'BODY (FINDFILE FILE T DIRLIST]
|
||||
then (CAR (if (ILESSP VERSION 0)
|
||||
then
|
||||
(* ;; "-2 is the second newest version")
|
||||
|
||||
(NTH FILES (IMINUS VERSION))
|
||||
else
|
||||
(* ;; "2 is the second oldest")
|
||||
|
||||
(NTH (DREVERSE FILES)
|
||||
VERSION)))
|
||||
elseif (NOT NOERROR)
|
||||
then (ERROR (CONCAT "Version " VERSION " of " FILE " not found"])
|
||||
|
||||
(GETVINFO
|
||||
[LAMBDA (NAME TYPE FILE VERSION DIRLIST) (* ; "Edited 6-Dec-2024 21:37 by rmk")
|
||||
(* ; "Edited 1-Dec-2024 23:50 by rmk")
|
||||
|
||||
(* ;; "Gets the TYPE definition of NAME from version VERSION of FILE, returns the definition after storing it under an annotated name that the filepkg doesn't see. ")
|
||||
|
||||
(CL:WHEN (VERSIONP TYPE)
|
||||
(SETQ VERSION TYPE)
|
||||
(SETQ TYPE NIL))
|
||||
(CL:WHEN (VERSIONP FILE)
|
||||
(SETQ VERSION FILE)
|
||||
(SETQ FILE NIL))
|
||||
(CL:UNLESS [OR FILE (SETQ FILE (CAR (WHEREIS NAME TYPE T]
|
||||
(ERROR (CONCAT "File for " NAME " not found")))
|
||||
(CL:UNLESS VERSION
|
||||
(SETQ VERSION 'NEWEST))
|
||||
(LET ((VFILE (FINDFILEVERSION FILE VERSION DIRLIST))
|
||||
(CONNECTED (DIRECTORYNAME T T))
|
||||
DEF VNAME HOST DIR) (* ; "Don't include the whole path if it's the connected one. Perhaps we should create/return both a short name and a long name")
|
||||
(SETQ DEF (GETDEF NAME TYPE FILE))
|
||||
(SETQ HOST (FILENAMEFIELD VFILE 'HOST))
|
||||
(SETQ DIR (FILENAMEFIELD VFILE 'DIRECTORY))
|
||||
(CL:WHEN (STRING.EQUAL HOST (FILENAMEFIELD CONNECTED 'HOST))
|
||||
(SETQ HOST NIL))
|
||||
(CL:WHEN (STRING.EQUAL DIR (FILENAMEFIELD CONNECTED 'DIRECTORY))
|
||||
(SETQ DIR NIL))
|
||||
(SETQ VNAME (PACK* (CL:IF HOST
|
||||
(CONCAT "{" HOST "}")
|
||||
"")
|
||||
(CL:IF DIR
|
||||
(CONCAT "<" (L-CASE DIR)
|
||||
">")
|
||||
"")
|
||||
NAME ";" (FILENAMEFIELD VFILE 'VERSION)
|
||||
(SELECTQ VERSION
|
||||
(1 " (F)")
|
||||
(-1 " (N)")
|
||||
"")))
|
||||
(LIST VNAME TYPE DEF])
|
||||
|
||||
(VERSIONP
|
||||
[LAMBDA (X) (* ; "Edited 6-Dec-2024 20:26 by rmk")
|
||||
|
||||
(* ;; "Normalize X if X is a version designator, otherwise NIL")
|
||||
|
||||
(SELECTQ X
|
||||
((F FIRST OLDEST)
|
||||
1)
|
||||
((N NEWEST 0)
|
||||
-1)
|
||||
(FIXP X])
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(EDV
|
||||
[NLAMBDA ARGS (* ; "Edited 6-Dec-2024 21:30 by rmk")
|
||||
(* ; "Edited 2-Dec-2024 00:14 by rmk")
|
||||
(SETQ ARGS (MKLIST ARGS))
|
||||
(PROG ((NAME (POP ARGS))
|
||||
(TYPE (POP ARGS))
|
||||
(FILE (POP ARGS))
|
||||
(VERSION (POP ARGS))
|
||||
(DIRLIST (POP ARGS))
|
||||
VINFO)
|
||||
(SETQ VINFO (GETVINFO NAME TYPE FILE VERSION DIRLIST))
|
||||
(EDITE (CADDR VINFO)
|
||||
NIL
|
||||
(CAR VINFO)
|
||||
(CADR VINFO)
|
||||
NIL
|
||||
'(:DONTWAIT))
|
||||
(CAR VINFO])
|
||||
|
||||
(DFV
|
||||
[NLAMBDA ARGS (* ; "Edited 6-Dec-2024 21:29 by rmk")
|
||||
(* ; "Edited 2-Dec-2024 00:08 by rmk")
|
||||
(SETQ ARGS (MKLIST ARGS))
|
||||
(APPLY (FUNCTION EDV)
|
||||
(LIST (POP ARGS)
|
||||
NIL
|
||||
(POP ARGS)
|
||||
(POP ARGS)
|
||||
(POP ARGS])
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
|
||||
(ADDTOVAR NLAMA DVV DFV EDV)
|
||||
|
||||
(ADDTOVAR NLAML )
|
||||
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(PRETTYCOMPRINT VERSIONDEFSCOMS)
|
||||
|
||||
(RPAQQ VERSIONDEFSCOMS [(FNS FINDFILEVERSION GETVINFO VERSIONP)
|
||||
(FNS EDV DFV)
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
(ADDVARS (NLAMA DFV EDV)
|
||||
(NLAML)
|
||||
(LAMA])
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
|
||||
(ADDTOVAR NLAMA DFV EDV)
|
||||
|
||||
(ADDTOVAR NLAML )
|
||||
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (683 4442 (FINDFILEVERSION 693 . 2140) (GETVINFO 2142 . 4125) (VERSIONP 4127 . 4440)) (
|
||||
4443 5589 (EDV 4453 . 5153) (DFV 5155 . 5587)))))
|
||||
STOP
|
||||
BIN
lispusers/VERSIONDEFS.LCOM
Normal file
BIN
lispusers/VERSIONDEFS.LCOM
Normal file
Binary file not shown.
BIN
lispusers/VERSIONDEFS.TEDIT
Normal file
BIN
lispusers/VERSIONDEFS.TEDIT
Normal file
Binary file not shown.
40
sources/ADIR
40
sources/ADIR
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "25-Dec-2024 11:31:30" {MEDLEY}<sources>ADIR.;15 70102
|
||||
(FILECREATED "31-Dec-2024 11:45:01" {WMEDLEY}<sources>ADIR.;59 69831
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS TRUEDEVICE.STUB)
|
||||
:CHANGES-TO (VARS ADIRCOMS)
|
||||
|
||||
:PREVIOUS-DATE "25-Dec-2024 07:35:38" {MEDLEY}<sources>ADIR.;13)
|
||||
:PREVIOUS-DATE "25-Dec-2024 11:31:30" {WMEDLEY}<sources>ADIR.;58)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT ADIRCOMS)
|
||||
@@ -16,12 +16,11 @@
|
||||
(FNS DELFILE FULLNAME INFILE INFILEP IOFILE OPENFILE OPENSTREAM OUTFILE OUTFILEP
|
||||
RENAMEFILE SIMPLE.FINDFILE VMEMSIZE \COPYSYS \FLUSHVM \LOGOUT0)
|
||||
(CONSTANTS (MULTIPLE.STREAMS.PER.FILE.ALLOWED T))
|
||||
(FNS TRUEDEVICE.STUB)
|
||||
(P (MOVD? 'SIMPLE.FINDFILE 'FINDFILE NIL T)
|
||||
(MOVD? 'EVQ 'TRUEFILENAME)
|
||||
(MOVD? 'EVQ 'PSEUDOFILENAME)
|
||||
(MOVD? 'NILL 'PSEUDOHOSTP)
|
||||
(MOVD? 'TRUEDEVICE.STUB 'TRUEDEVICE))
|
||||
(MOVD? '\GETDEVICEFROMNAME 'TRUEDEVICE))
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P
|
||||
|
||||
(* ;; "for the benefit of the call to PATHNAMEP in OPENSTREAM. PATHNAMEP (and pathnames) get defined much later in the loadup.")
|
||||
@@ -300,14 +299,6 @@
|
||||
|
||||
(CONSTANTS (MULTIPLE.STREAMS.PER.FILE.ALLOWED T))
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(TRUEDEVICE.STUB
|
||||
[LAMBDA (X) (* ; "Edited 25-Dec-2024 11:31 by rmk")
|
||||
(if (type? FDEV X)
|
||||
then X
|
||||
else (\GETDEVICEFROMNAME X NIL T])
|
||||
)
|
||||
|
||||
(MOVD? 'SIMPLE.FINDFILE 'FINDFILE NIL T)
|
||||
|
||||
@@ -317,7 +308,7 @@
|
||||
|
||||
(MOVD? 'NILL 'PSEUDOHOSTP)
|
||||
|
||||
(MOVD? 'TRUEDEVICE.STUB 'TRUEDEVICE)
|
||||
(MOVD? '\GETDEVICEFROMNAME 'TRUEDEVICE)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
|
||||
@@ -1289,15 +1280,14 @@
|
||||
(ADDTOVAR LAMA PACKFILENAME.STRING PACKFILENAME)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3201 15904 (DELFILE 3211 . 3372) (FULLNAME 3374 . 3741) (INFILE 3743 . 4002) (INFILEP
|
||||
4004 . 4139) (IOFILE 4141 . 4392) (OPENFILE 4394 . 4697) (OPENSTREAM 4699 . 9039) (OUTFILE 9041 . 9303
|
||||
) (OUTFILEP 9305 . 9441) (RENAMEFILE 9443 . 9749) (SIMPLE.FINDFILE 9751 . 10161) (VMEMSIZE 10163 .
|
||||
10330) (\COPYSYS 10332 . 14623) (\FLUSHVM 14625 . 15697) (\LOGOUT0 15699 . 15902)) (16033 16269 (
|
||||
TRUEDEVICE.STUB 16043 . 16267)) (16637 41297 (UNPACKFILENAME.STRING 16647 . 38483) (\UPF.DIRECTORY
|
||||
38485 . 41295)) (42825 45131 (UNPACKFILENAME 42835 . 43021) (LASTCHPOS 43023 . 43717) (FILENAMEFIELD
|
||||
43719 . 44013) (FILENAMEFIELD.STRING 44015 . 44419) (PACKFILENAME 44421 . 44764) (PACKFILENAME.STRING
|
||||
44766 . 45129)) (59601 60514 (FILEDIRCASEARRAY 59611 . 60512)) (60681 67861 (LOGOUT 60691 . 61608) (
|
||||
MAKESYS 61610 . 63239) (SYSOUT 63241 . 64793) (SAVEVM 64795 . 65595) (HERALD 65597 . 65757) (
|
||||
INTERPRET.REM.CM 65759 . 67484) (\USEREVENT 67486 . 67859)) (68043 69770 (USERNAME 68053 . 69009) (
|
||||
SETUSERNAME 69011 . 69768)))))
|
||||
(FILEMAP (NIL (3164 15867 (DELFILE 3174 . 3335) (FULLNAME 3337 . 3704) (INFILE 3706 . 3965) (INFILEP
|
||||
3967 . 4102) (IOFILE 4104 . 4355) (OPENFILE 4357 . 4660) (OPENSTREAM 4662 . 9002) (OUTFILE 9004 . 9266
|
||||
) (OUTFILEP 9268 . 9404) (RENAMEFILE 9406 . 9712) (SIMPLE.FINDFILE 9714 . 10124) (VMEMSIZE 10126 .
|
||||
10293) (\COPYSYS 10295 . 14586) (\FLUSHVM 14588 . 15660) (\LOGOUT0 15662 . 15865)) (16366 41026 (
|
||||
UNPACKFILENAME.STRING 16376 . 38212) (\UPF.DIRECTORY 38214 . 41024)) (42554 44860 (UNPACKFILENAME
|
||||
42564 . 42750) (LASTCHPOS 42752 . 43446) (FILENAMEFIELD 43448 . 43742) (FILENAMEFIELD.STRING 43744 .
|
||||
44148) (PACKFILENAME 44150 . 44493) (PACKFILENAME.STRING 44495 . 44858)) (59330 60243 (
|
||||
FILEDIRCASEARRAY 59340 . 60241)) (60410 67590 (LOGOUT 60420 . 61337) (MAKESYS 61339 . 62968) (SYSOUT
|
||||
62970 . 64522) (SAVEVM 64524 . 65324) (HERALD 65326 . 65486) (INTERPRET.REM.CM 65488 . 67213) (
|
||||
\USEREVENT 67215 . 67588)) (67772 69499 (USERNAME 67782 . 68738) (SETUSERNAME 68740 . 69497)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
41
sources/HIST
41
sources/HIST
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
|
||||
(FILECREATED "19-Apr-2023 18:58:13" |{DSK}<home>larry>il>medley>sources>HIST.;6| 152088
|
||||
(FILECREATED "14-Jan-2025 13:20:25" |{DSK}<home>matt>Interlisp>medley>sources>HIST.;2| 152217
|
||||
|
||||
:EDIT-BY "lmm"
|
||||
:EDIT-BY "matt"
|
||||
|
||||
:CHANGES-TO (FNS GREET0)
|
||||
|
||||
:PREVIOUS-DATE "19-Mar-2023 10:09:08" |{DSK}<home>larry>il>medley>sources>HIST.;1|)
|
||||
:PREVIOUS-DATE "19-Apr-2023 18:58:13" |{DSK}<home>matt>Interlisp>medley>sources>HIST.;1|)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT HISTCOMS)
|
||||
@@ -2754,7 +2754,8 @@ this sysout is initialized for user " T)
|
||||
(printout t "error during GREET..." t))))
|
||||
|
||||
(GREET0
|
||||
(LAMBDA NIL (* \; "Edited 19-Apr-2023 18:55 by lmm")
|
||||
(LAMBDA NIL (* \; "Edited 14-Jan-2025 13:19 by matt")
|
||||
(* \; "Edited 19-Apr-2023 18:55 by lmm")
|
||||
(* \; "Edited 19-Mar-2023 09:58 by lmm")
|
||||
(* |lmm| "28-DEC-82 08:49")
|
||||
(COND
|
||||
@@ -2763,7 +2764,7 @@ this sysout is initialized for user " T)
|
||||
(CL:GET-DECODED-TIME)
|
||||
(OR (AND (EVENP (LRSH SECONDS 1))
|
||||
(CDR (SASSOC (CL:FORMAT NIL "~2D-~A" DAY
|
||||
(CL:NTH MONTH
|
||||
(CL:NTH (SUB1 MONTH)
|
||||
'("JAN" "FEB" "MAR" "APR" "MAY"
|
||||
"JUN" "JUL" "AUG" "SEP"
|
||||
"OCT" "NOV" "DEC")))
|
||||
@@ -3038,19 +3039,19 @@ this sysout is initialized for user " T)
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (14244 20989 (PRINTHISTORY 14254 . 16044) (ENTRY# 16046 . 16381) (PRINTHISTORY1 16383 .
|
||||
19552) (PRINTHISTORY2 19554 . 20987)) (20990 129420 (EVALQT 21000 . 21800) (ENTEREVALQT 21802 . 22357)
|
||||
(USEREXEC 22359 . 22994) (LISPXREAD 22996 . 24799) (LISPXREADBUF 24801 . 27027) (LISPXREADP 27029 .
|
||||
27578) (LISPXUNREAD 27580 . 27873) (LISPX 27875 . 63570) (LISPX/ 63572 . 65026) (LISPX/1 65028 . 70314
|
||||
) (LISPXEVAL 70316 . 70940) (LISPXSTOREVALUE 70942 . 71196) (HISTORYSAVE 71198 . 78482) (LISPXFIND
|
||||
78484 . 85919) (LISPXGETINPUT 85921 . 86134) (REMEMBER 86136 . 86330) (GETEXPRESSIONFROMEVENTSPEC
|
||||
86332 . 88442) (LISPXFIND0 88444 . 92718) (LISPXFIND1 92720 . 93148) (HISTORYFIND 93150 . 98724) (
|
||||
HISTORYFIND1 98726 . 102171) (HISTORYMATCH 102173 . 102248) (VALUEOF 102250 . 103275) (VALUOF 103277
|
||||
. 104167) (VALUOF-EVENT 104169 . 104574) (LISPXUSE 104576 . 110995) (LISPXUSE0 110997 . 113723) (
|
||||
LISPXUSE1 113725 . 115350) (LISPXSUBST 115352 . 115772) (LISPXUSEC 115774 . 124015) (LISPXFIX 124017
|
||||
. 124867) (CHANGESLICE 124869 . 126716) (LISPXSTATE 126718 . 127812) (LISPXTYPEAHEAD 127814 . 129418)
|
||||
) (137472 140690 (GREET 137482 . 138623) (GREET0 138625 . 140688)) (142292 149468 (LISPXPRINT 142302
|
||||
. 142866) (LISPXPRIN1 142868 . 143752) (LISPXPRIN2 143754 . 144696) (LISPXPRINTDEF 144698 . 145252) (
|
||||
LISPXPRINTDEF0 145254 . 145617) (LISPXSPACES 145619 . 146305) (LISPXTERPRI 146307 . 146932) (LISPXTAB
|
||||
146934 . 147492) (USERLISPXPRINT 147494 . 148894) (LISPXPUT 148896 . 149466)))))
|
||||
(FILEMAP (NIL (14257 21002 (PRINTHISTORY 14267 . 16057) (ENTRY# 16059 . 16394) (PRINTHISTORY1 16396 .
|
||||
19565) (PRINTHISTORY2 19567 . 21000)) (21003 129433 (EVALQT 21013 . 21813) (ENTEREVALQT 21815 . 22370)
|
||||
(USEREXEC 22372 . 23007) (LISPXREAD 23009 . 24812) (LISPXREADBUF 24814 . 27040) (LISPXREADP 27042 .
|
||||
27591) (LISPXUNREAD 27593 . 27886) (LISPX 27888 . 63583) (LISPX/ 63585 . 65039) (LISPX/1 65041 . 70327
|
||||
) (LISPXEVAL 70329 . 70953) (LISPXSTOREVALUE 70955 . 71209) (HISTORYSAVE 71211 . 78495) (LISPXFIND
|
||||
78497 . 85932) (LISPXGETINPUT 85934 . 86147) (REMEMBER 86149 . 86343) (GETEXPRESSIONFROMEVENTSPEC
|
||||
86345 . 88455) (LISPXFIND0 88457 . 92731) (LISPXFIND1 92733 . 93161) (HISTORYFIND 93163 . 98737) (
|
||||
HISTORYFIND1 98739 . 102184) (HISTORYMATCH 102186 . 102261) (VALUEOF 102263 . 103288) (VALUOF 103290
|
||||
. 104180) (VALUOF-EVENT 104182 . 104587) (LISPXUSE 104589 . 111008) (LISPXUSE0 111010 . 113736) (
|
||||
LISPXUSE1 113738 . 115363) (LISPXSUBST 115365 . 115785) (LISPXUSEC 115787 . 124028) (LISPXFIX 124030
|
||||
. 124880) (CHANGESLICE 124882 . 126729) (LISPXSTATE 126731 . 127825) (LISPXTYPEAHEAD 127827 . 129431)
|
||||
) (137485 140819 (GREET 137495 . 138636) (GREET0 138638 . 140817)) (142421 149597 (LISPXPRINT 142431
|
||||
. 142995) (LISPXPRIN1 142997 . 143881) (LISPXPRIN2 143883 . 144825) (LISPXPRINTDEF 144827 . 145381) (
|
||||
LISPXPRINTDEF0 145383 . 145746) (LISPXSPACES 145748 . 146434) (LISPXTERPRI 146436 . 147061) (LISPXTAB
|
||||
147063 . 147621) (USERLISPXPRINT 147623 . 149023) (LISPXPUT 149025 . 149595)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
136
sources/INSPECT
136
sources/INSPECT
@@ -1,12 +1,13 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 4-Jul-2024 12:16:52" {WMEDLEY}<sources>INSPECT.;31 126551
|
||||
(FILECREATED "16-Jul-2024 18:28:42" {WMEDLEY}<sources>INSPECT.;33 129220
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS INSPECTCOMS)
|
||||
:CHANGES-TO (FNS IMAGEOBJ\PROPFETCHFN IMAGEOBJ\PROPSTOREFN)
|
||||
(VARS INSPECTCOMS)
|
||||
|
||||
:PREVIOUS-DATE " 4-Jul-2024 11:11:46" {WMEDLEY}<sources>INSPECT.;30)
|
||||
:PREVIOUS-DATE " 4-Jul-2024 12:16:52" {WMEDLEY}<sources>INSPECT.;31)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT INSPECTCOMS)
|
||||
@@ -72,6 +73,11 @@
|
||||
(FNS WINDOW\INSPECTPROPS WINDOW\PROPFETCHFN WINDOW\PROPSTOREFN)
|
||||
(ADDVARS (INSPECTMACROS (WINDOW WINDOW\INSPECTPROPS WINDOW\PROPFETCHFN
|
||||
WINDOW\PROPSTOREFN]
|
||||
[COMS (* ;
|
||||
"Show properties in the main window")
|
||||
(FNS IMAGEOBJ\INSPECTPROPS IMAGEOBJ\PROPFETCHFN IMAGEOBJ\PROPSTOREFN)
|
||||
(ADDVARS (INSPECTMACROS (IMAGEOBJ IMAGEOBJ\INSPECTPROPS IMAGEOBJ\PROPFETCHFN
|
||||
IMAGEOBJ\PROPSTOREFN]
|
||||
(COMS (* ; "Hunk inspector")
|
||||
(FNS INSPECT/AS/BLOCKRECORD INSPECT/TYPELESS LIST-ALL-BLOCKRECORDS INSPECT/HUNK
|
||||
\INSPECT.DATATYPE.RAW.FETCH \INSPECT.FETCH.8 \INSPECT.FETCH.32 \INSPECT.FETCH.CHAR
|
||||
@@ -2090,6 +2096,53 @@
|
||||
|
||||
|
||||
|
||||
(* ; "Show properties in the main window")
|
||||
|
||||
(DEFINEQ
|
||||
|
||||
(IMAGEOBJ\INSPECTPROPS
|
||||
[LAMBDA (OBJ) (* ; "Edited 16-Jul-2024 15:01 by rmk")
|
||||
(* ; "Edited 4-Jul-2024 00:03 by rmk")
|
||||
(* ; "Edited 30-Jun-2024 09:04 by rmk")
|
||||
|
||||
(* ;; "Stick the user properties at the end with --PROPS-- separator. INSPECTABLEFIELDNAMES does the sort for defined field names, the UFIELDS have to be sorted here.")
|
||||
|
||||
(LET ([IFIELDS (REMOVE 'IMAGEOBJPLIST (INSPECTABLEFIELDNAMES (OR (RECLOOK 'IMAGEOBJ)
|
||||
(SYSRECLOOK1 'IMAGEOBJ]
|
||||
(PFIELDS (for X in (fetch (IMAGEOBJ IMAGEOBJPLIST) of OBJ) by (CDDR X) collect X)))
|
||||
(CL:UNLESS (OR (EQ T INSPECTDONTSORTFIELDS)
|
||||
(MEMB 'IMAGEOBJ INSPECTDONTSORTFIELDS))
|
||||
(SETQ PFIELDS (SORT PFIELDS)))
|
||||
(APPEND IFIELDS (CONS '--PROPS--)
|
||||
PFIELDS])
|
||||
|
||||
(IMAGEOBJ\PROPFETCHFN
|
||||
[LAMBDA (OBJ PROPNAME) (* ; "Edited 16-Jul-2024 18:25 by rmk")
|
||||
|
||||
(* ;; "Keep the main fields up front.")
|
||||
|
||||
(* ;;
|
||||
"This does not expand out all of the fields of the IMAGEFNS, they could be raised up at the bottom.")
|
||||
|
||||
(SELECTQ PROPNAME
|
||||
(OBJECTDATUM (fetch (IMAGEOBJ OBJECTDATUM) of OBJ))
|
||||
(IMAGEOBJFNS (fetch (IMAGEOBJ IMAGEOBJFNS) of OBJ))
|
||||
(--PROPS-- '------)
|
||||
(IMAGEOBJPROP OBJ PROPNAME])
|
||||
|
||||
(IMAGEOBJ\PROPSTOREFN
|
||||
[LAMBDA (OBJ PROPNAME VALUE) (* ; "Edited 16-Jul-2024 18:27 by rmk")
|
||||
(* ; "Edited 30-Jun-2024 08:52 by rmk")
|
||||
(SELECTQ PROPNAME
|
||||
(--PROPS-- NIL)
|
||||
(IMAGEOBJFNS (replace (IMAGEOBJ IMAGEOBJFNS) of OBJ with VALUE))
|
||||
(IMAGEOBJPROP OBJ PROPNAME VALUE])
|
||||
)
|
||||
|
||||
(ADDTOVAR INSPECTMACROS (IMAGEOBJ IMAGEOBJ\INSPECTPROPS IMAGEOBJ\PROPFETCHFN IMAGEOBJ\PROPSTOREFN))
|
||||
|
||||
|
||||
|
||||
(* ; "Hunk inspector")
|
||||
|
||||
(DEFINEQ
|
||||
@@ -2258,42 +2311,43 @@
|
||||
("As Character array" '(8 \INSPECT.FETCH.CHAR \INSPECT.STORE.CHAR))
|
||||
("As Fat Character array" '(16 \INSPECT.FETCH.FATCHAR \INSPECT.STORE.FATCHAR])
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (7293 45646 (INSPECTW.CREATE 7303 . 12598) (INSPECTW.REPAINTFN 12600 . 18136) (
|
||||
INSPECTW.REDISPLAY 18138 . 27010) (\INSPECTW.VALUE.MARGIN 27012 . 27415) (INSPECTW.REPLACE 27417 .
|
||||
28125) (INSPECTW.SELECTITEM 28127 . 29117) (\INSPECTW.REDISPLAYPROP 29119 . 31549) (INSPECTW.FETCH
|
||||
31551 . 31974) (INSPECTW.PROPERTIES 31976 . 32617) (DECODE.WINDOW.ARG 32619 . 34347) (
|
||||
DEFAULT.INSPECTW.PROPCOMMANDFN 34349 . 36377) (DEFAULT.INSPECTW.VALUECOMMANDFN 36379 . 37795) (
|
||||
DEFAULT.INSPECTW.TITLECOMMANDFN 37797 . 41246) (\SELITEM.FROM.PROPERTY 41248 . 41690) (
|
||||
\INSPECT.COMPUTE.TITLE 41692 . 42976) (LEVELEDFORM 42978 . 43697) (MAKEWITHINREGION 43699 . 45644)) (
|
||||
45647 62952 (ITEMW.REPAINTFN 45657 . 46877) (\ITEM.WINDOW.BUTTON.HANDLER 46879 . 47298) (
|
||||
\ITEM.WINDOW.SELECTION.HANDLER 47300 . 49967) (\INSPECTW.COMMAND.HANDLER 49969 . 53970) (
|
||||
ITEM.WINDOW.SET.STACK.ARG 53972 . 56176) (REPLACESTKARG 56178 . 57277) (IN/ITEM? 57279 . 58161) (
|
||||
\ITEMW.DESELECTITEM 58163 . 58427) (\ITEMW.SELECTITEM 58429 . 58691) (\ITEMW.CLEARSELECTION 58693 .
|
||||
59048) (\ITEMW.FLIPITEM 59050 . 59523) (PRINTANDBOX 59525 . 62034) (PRINTATBOX 62036 . 62553) (
|
||||
ITEMOFPROPERTYVALUE 62555 . 62950)) (62953 66694 (\ITEM.WINDOW.COPY.HANDLER 62963 . 64820) (
|
||||
\ITEMW.FLIPCOPY 64822 . 65281) (BKSYSBUF.GENERAL 65283 . 66692)) (67086 92001 (INSPECT 67096 . 71626)
|
||||
(\APPLYINSPECTMACRO 71628 . 72689) (INSPECT/BITMAP 72691 . 73843) (INSPECT/DATATYPE 73845 . 77359) (
|
||||
INSPECTABLEFIELDNAMES 77361 . 78694) (REMOVEDUPS 78696 . 78901) (INSPECT/ARRAY 78903 . 79968) (
|
||||
INSPECT/TOP/LEVEL/LIST 79970 . 81087) (INSPECT/PROPLIST 81089 . 82177) (NONSYSPROPNAMES 82179 . 82475)
|
||||
(INSPECT/LISTP 82477 . 82916) (ALISTP 82918 . 83127) (PROPLISTP 83129 . 83769) (INSPECT/ALIST 83771
|
||||
. 84247) (ASSOCGET 84249 . 84460) (/ASSOCPUT 84462 . 84727) (INSPECT/PLIST 84729 . 85213) (
|
||||
INSPECT/TYPERECORD 85215 . 85572) (INSPECT/AS/RECORD 85574 . 86811) (SELECT.LIST.INSPECTOR 86813 .
|
||||
88864) (STANDARDEDITE 88866 . 89149) (NTHTOPLEVELELT 89151 . 89467) (SETNTHTOPLEVELELT 89469 . 90229)
|
||||
(DEDITE 90231 . 90438) (FINDRECDECL 90440 . 91023) (FINDSYSRECDECL 91025 . 91426) (
|
||||
MAKE-INSPECTOR-PROFILE 91428 . 91813) (CONFIRM-SET 91815 . 91999)) (93825 102039 (INSPECT/ATOM 93835
|
||||
. 97940) (SELECT.ATOM.ASPECT 97942 . 99086) (INSPECT/AS/FUNCTION 99088 . 101374) (SELECT.FNS.EDITOR
|
||||
101376 . 102037)) (102080 107505 (INSPECTCODE 102090 . 103242) (\TEDIT.INSPECTCODE 103244 . 105222) (
|
||||
\INSPECT/CODE/RESHAPEFN 105224 . 106763) (\INSPECT/CODE/REPAINTFN 106765 . 107503)) (107543 109149 (
|
||||
INSPECT/HARRAYP 107553 . 108301) (HARRAYKEYS 108303 . 108682) (INSPECTW.GETHASH 108684 . 108911) (
|
||||
INSPECTW.PUTHASH 108913 . 109147)) (109198 115407 (RDTBL\NONOTHERCODES 109208 . 110228) (GETSYNTAXPROP
|
||||
110230 . 111728) (SETSYNTAXPROP 111730 . 113457) (GETTTBLPROP 113459 . 114377) (SETTTBLPROP 114379 .
|
||||
115405)) (115912 117362 (WINDOW\INSPECTPROPS 115922 . 116777) (WINDOW\PROPFETCHFN 116779 . 117133) (
|
||||
WINDOW\PROPSTOREFN 117135 . 117360)) (117491 126133 (INSPECT/AS/BLOCKRECORD 117501 . 118501) (
|
||||
INSPECT/TYPELESS 118503 . 119894) (LIST-ALL-BLOCKRECORDS 119896 . 120171) (INSPECT/HUNK 120173 .
|
||||
122776) (\INSPECT.DATATYPE.RAW.FETCH 122778 . 123104) (\INSPECT.FETCH.8 123106 . 123255) (
|
||||
\INSPECT.FETCH.32 123257 . 123428) (\INSPECT.FETCH.CHAR 123430 . 123593) (\INSPECT.FETCH.FATCHAR
|
||||
123595 . 123757) (\INSPECT.FETCH.PTR 123759 . 123930) (\INSPECT.STORE.8 123932 . 124238) (
|
||||
\INSPECT.STORE.16 124240 . 124540) (\INSPECT.STORE.32 124542 . 124977) (\INSPECT.STORE.CHAR 124979 .
|
||||
125305) (\INSPECT.STORE.FATCHAR 125307 . 125629) (\INSPECT.STORE.PTR 125631 . 125978) (
|
||||
INSPECT/MAKE/CCODEP 125980 . 126131)))))
|
||||
(FILEMAP (NIL (7776 46129 (INSPECTW.CREATE 7786 . 13081) (INSPECTW.REPAINTFN 13083 . 18619) (
|
||||
INSPECTW.REDISPLAY 18621 . 27493) (\INSPECTW.VALUE.MARGIN 27495 . 27898) (INSPECTW.REPLACE 27900 .
|
||||
28608) (INSPECTW.SELECTITEM 28610 . 29600) (\INSPECTW.REDISPLAYPROP 29602 . 32032) (INSPECTW.FETCH
|
||||
32034 . 32457) (INSPECTW.PROPERTIES 32459 . 33100) (DECODE.WINDOW.ARG 33102 . 34830) (
|
||||
DEFAULT.INSPECTW.PROPCOMMANDFN 34832 . 36860) (DEFAULT.INSPECTW.VALUECOMMANDFN 36862 . 38278) (
|
||||
DEFAULT.INSPECTW.TITLECOMMANDFN 38280 . 41729) (\SELITEM.FROM.PROPERTY 41731 . 42173) (
|
||||
\INSPECT.COMPUTE.TITLE 42175 . 43459) (LEVELEDFORM 43461 . 44180) (MAKEWITHINREGION 44182 . 46127)) (
|
||||
46130 63435 (ITEMW.REPAINTFN 46140 . 47360) (\ITEM.WINDOW.BUTTON.HANDLER 47362 . 47781) (
|
||||
\ITEM.WINDOW.SELECTION.HANDLER 47783 . 50450) (\INSPECTW.COMMAND.HANDLER 50452 . 54453) (
|
||||
ITEM.WINDOW.SET.STACK.ARG 54455 . 56659) (REPLACESTKARG 56661 . 57760) (IN/ITEM? 57762 . 58644) (
|
||||
\ITEMW.DESELECTITEM 58646 . 58910) (\ITEMW.SELECTITEM 58912 . 59174) (\ITEMW.CLEARSELECTION 59176 .
|
||||
59531) (\ITEMW.FLIPITEM 59533 . 60006) (PRINTANDBOX 60008 . 62517) (PRINTATBOX 62519 . 63036) (
|
||||
ITEMOFPROPERTYVALUE 63038 . 63433)) (63436 67177 (\ITEM.WINDOW.COPY.HANDLER 63446 . 65303) (
|
||||
\ITEMW.FLIPCOPY 65305 . 65764) (BKSYSBUF.GENERAL 65766 . 67175)) (67569 92484 (INSPECT 67579 . 72109)
|
||||
(\APPLYINSPECTMACRO 72111 . 73172) (INSPECT/BITMAP 73174 . 74326) (INSPECT/DATATYPE 74328 . 77842) (
|
||||
INSPECTABLEFIELDNAMES 77844 . 79177) (REMOVEDUPS 79179 . 79384) (INSPECT/ARRAY 79386 . 80451) (
|
||||
INSPECT/TOP/LEVEL/LIST 80453 . 81570) (INSPECT/PROPLIST 81572 . 82660) (NONSYSPROPNAMES 82662 . 82958)
|
||||
(INSPECT/LISTP 82960 . 83399) (ALISTP 83401 . 83610) (PROPLISTP 83612 . 84252) (INSPECT/ALIST 84254
|
||||
. 84730) (ASSOCGET 84732 . 84943) (/ASSOCPUT 84945 . 85210) (INSPECT/PLIST 85212 . 85696) (
|
||||
INSPECT/TYPERECORD 85698 . 86055) (INSPECT/AS/RECORD 86057 . 87294) (SELECT.LIST.INSPECTOR 87296 .
|
||||
89347) (STANDARDEDITE 89349 . 89632) (NTHTOPLEVELELT 89634 . 89950) (SETNTHTOPLEVELELT 89952 . 90712)
|
||||
(DEDITE 90714 . 90921) (FINDRECDECL 90923 . 91506) (FINDSYSRECDECL 91508 . 91909) (
|
||||
MAKE-INSPECTOR-PROFILE 91911 . 92296) (CONFIRM-SET 92298 . 92482)) (94308 102522 (INSPECT/ATOM 94318
|
||||
. 98423) (SELECT.ATOM.ASPECT 98425 . 99569) (INSPECT/AS/FUNCTION 99571 . 101857) (SELECT.FNS.EDITOR
|
||||
101859 . 102520)) (102563 107988 (INSPECTCODE 102573 . 103725) (\TEDIT.INSPECTCODE 103727 . 105705) (
|
||||
\INSPECT/CODE/RESHAPEFN 105707 . 107246) (\INSPECT/CODE/REPAINTFN 107248 . 107986)) (108026 109632 (
|
||||
INSPECT/HARRAYP 108036 . 108784) (HARRAYKEYS 108786 . 109165) (INSPECTW.GETHASH 109167 . 109394) (
|
||||
INSPECTW.PUTHASH 109396 . 109630)) (109681 115890 (RDTBL\NONOTHERCODES 109691 . 110711) (GETSYNTAXPROP
|
||||
110713 . 112211) (SETSYNTAXPROP 112213 . 113940) (GETTTBLPROP 113942 . 114860) (SETTTBLPROP 114862 .
|
||||
115888)) (116395 117845 (WINDOW\INSPECTPROPS 116405 . 117260) (WINDOW\PROPFETCHFN 117262 . 117616) (
|
||||
WINDOW\PROPSTOREFN 117618 . 117843)) (117994 120023 (IMAGEOBJ\INSPECTPROPS 118004 . 119070) (
|
||||
IMAGEOBJ\PROPFETCHFN 119072 . 119602) (IMAGEOBJ\PROPSTOREFN 119604 . 120021)) (120160 128802 (
|
||||
INSPECT/AS/BLOCKRECORD 120170 . 121170) (INSPECT/TYPELESS 121172 . 122563) (LIST-ALL-BLOCKRECORDS
|
||||
122565 . 122840) (INSPECT/HUNK 122842 . 125445) (\INSPECT.DATATYPE.RAW.FETCH 125447 . 125773) (
|
||||
\INSPECT.FETCH.8 125775 . 125924) (\INSPECT.FETCH.32 125926 . 126097) (\INSPECT.FETCH.CHAR 126099 .
|
||||
126262) (\INSPECT.FETCH.FATCHAR 126264 . 126426) (\INSPECT.FETCH.PTR 126428 . 126599) (
|
||||
\INSPECT.STORE.8 126601 . 126907) (\INSPECT.STORE.16 126909 . 127209) (\INSPECT.STORE.32 127211 .
|
||||
127646) (\INSPECT.STORE.CHAR 127648 . 127974) (\INSPECT.STORE.FATCHAR 127976 . 128298) (
|
||||
\INSPECT.STORE.PTR 128300 . 128647) (INSPECT/MAKE/CCODEP 128649 . 128800)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user