Compare commits
4 Commits
rmk175--Of
...
rmk185--Te
| Author | SHA1 | Date | |
|---|---|---|---|
|
44d9da0ba1 | ||
|
|
2bf791ed7a | ||
|
|
75ddcbaadd | ||
|
|
880507f8d5 |
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
|
||||
|
||||
(FILECREATED " 7-Feb-2026 17:00:39" {WMEDLEY}<internal>TEDIT-DEBUG.;178 138742
|
||||
(FILECREATED "29-Apr-2026 09:51:30" {MEDLEY}<internal>TEDIT-DEBUG.;190 139487
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS TEDIT-DEBUG)
|
||||
:CHANGES-TO (FNS INSPECTFILEPIECES)
|
||||
|
||||
:PREVIOUS-DATE " 7-Feb-2026 10:41:45" {WMEDLEY}<internal>TEDIT-DEBUG.;177)
|
||||
:PREVIOUS-DATE "24-Apr-2026 17:08:51" {MEDLEY}<internal>TEDIT-DEBUG.;189)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-DEBUGCOMS)
|
||||
@@ -31,7 +31,8 @@
|
||||
(FNS TEST.TEMPLATE))
|
||||
(FNS TESTACTION)
|
||||
(COMS (* ; "Inspect")
|
||||
(FNS IPC ILINES ISEL ITS IPANES ITL IHIST IPCTB IMB ICL IPL ICARET INSPECTPIECES))
|
||||
(FNS IPC ILINES ISEL ITS IPANES ITL IHIST IPCTB IMB ICL IPL ICARET INSPECTPIECES
|
||||
INSPECTFILEPIECES))
|
||||
(COMS (* ; "Show")
|
||||
(FNS SP SL SSP SPF SLF SHOWLINE SLL STBYTES SSEL)
|
||||
(FNS STL CLEARTHISLINE CHARSLOTP \TLVALIDATE))
|
||||
@@ -58,7 +59,7 @@
|
||||
(VARS (OK.TO.MODIFY.FNS T))
|
||||
(FNS OLDWI COMP DFR)
|
||||
(FNS DFGV GDIRECTORIES)
|
||||
(COMS (FNS TTEST LTEST THC)
|
||||
(COMS (FNS TTEST LTEST)
|
||||
(INITVARS (LASTTTESTFILE))
|
||||
(VARS * TTESTREGIONS))
|
||||
(COMS (FNS SHOWSAFE)
|
||||
@@ -446,6 +447,16 @@
|
||||
(SETQ W (INSPECT/TOP/LEVEL/LIST PIECES))
|
||||
(WINDOWPROP W 'TITLE PIECE)
|
||||
PIECE])
|
||||
|
||||
(INSPECTFILEPIECES
|
||||
[LAMBDA (FILEPOS N TSTREAM) (* ; "Edited 29-Apr-2026 09:51 by rmk")
|
||||
(* ; "Edited 24-Apr-2026 17:07 by rmk")
|
||||
|
||||
(* ;; "Give a file position, inspect the piece that includes its characters, and following pieces. FILEBYTES/TFILEBYTES work in the other way: given a piece, show the bytes that make it up.")
|
||||
|
||||
(for PC inpieces (\TEDIT.FIRSTPIECE (GTO TSTREAM)) when (<= FILEPOS (PFPOS PC))
|
||||
do (for I from 1 to (OR N 1) as PCI inpieces PC do (INSPECT PCI))
|
||||
(RETURN])
|
||||
)
|
||||
|
||||
|
||||
@@ -653,7 +664,7 @@
|
||||
(PRINTOUT OFILE .FONT '(TERMINAL 8 BOLD)
|
||||
TITLE .FONT '(TERMINAL 8)
|
||||
T)
|
||||
(for TYPE PF (FIRSTPF _ (TEDIT.GET.PAGEFORMAT PAGEREGIONS 'FIRST/DEFAULT))
|
||||
(for TYPE PF (FIRSTPF ← (TEDIT.GET.PAGEFORMAT PAGEREGIONS 'FIRST/DEFAULT))
|
||||
in '(FIRST/DEFAULT LEFT RIGHT)
|
||||
collect (SETQ PF (TEDIT.GET.PAGEFORMAT PAGEREGIONS TYPE))
|
||||
(PRINTOUT OFILE T .FONT '(TERMINAL 8 BOLD)
|
||||
@@ -696,13 +707,13 @@
|
||||
(CL:UNLESS TRAILER
|
||||
(PRINTOUT T FORMATSTREAM " is not a Tedit looks file" T)
|
||||
(RETURN))
|
||||
(for PCNO BYTELEN LTYPE LOOKSMAP PLOOKSMAP LASTCHARLOOKNO (PFPOS _ 0)
|
||||
(CHNO _ 0)
|
||||
(TEXTPCNO _ 0)
|
||||
(START _ (CAR TRAILER))
|
||||
(TYPETAB _ 13)
|
||||
(FPOSTAB _ 28)
|
||||
(BYTESTAB _ 38) from 1 to PCCOUNT
|
||||
(for PCNO BYTELEN LTYPE LOOKSMAP PLOOKSMAP LASTCHARLOOKNO (PFPOS ← 0)
|
||||
(CHNO ← 0)
|
||||
(TEXTPCNO ← 0)
|
||||
(START ← (CAR TRAILER))
|
||||
(TYPETAB ← 13)
|
||||
(FPOSTAB ← 28)
|
||||
(BYTESTAB ← 38) from 1 to PCCOUNT
|
||||
first (PRINTOUT OUTFILE "Starting FILEPTR = " START " " "PCCOUNT = " PCCOUNT T)
|
||||
(SETFILEPTR FORMATSTREAM START)
|
||||
do (SETQ BYTELEN (\DWIN FORMATSTREAM))
|
||||
@@ -846,7 +857,7 @@
|
||||
"l"
|
||||
"")
|
||||
"dummy" T)
|
||||
else (for CNO C LASTC (TSTREAM _ (TEXTSTREAM TEXTOBJ)) from (GETLD LINE LCHAR1)
|
||||
else (for CNO C LASTC (TSTREAM ← (TEXTSTREAM TEXTOBJ)) from (GETLD LINE LCHAR1)
|
||||
to (GETLD LINE LCHARLAST) first (SETFILEPTR TSTREAM (SUB1 (GETLD LINE LCHAR1)))
|
||||
(PRINTOUT FILE " %"") until (EOFP TSTREAM)
|
||||
do (SETQ C (BIN TSTREAM)) (* ;
|
||||
@@ -936,7 +947,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(STL
|
||||
[LAMBDA (THISLINE LASTCS LCHAR1 OFILE) (* ; "Edited 11-Apr-2025 13:02 by rmk")
|
||||
[LAMBDA (THISLINE LASTCS LCHAR1 OFILE) (* ; "Edited 19-Apr-2026 14:39 by rmk")
|
||||
(* ; "Edited 11-Apr-2025 13:02 by rmk")
|
||||
(* ; "Edited 29-Mar-2025 22:36 by rmk")
|
||||
(* ; "Edited 22-Aug-2024 23:51 by rmk")
|
||||
(* ; "Edited 4-Aug-2024 12:08 by rmk")
|
||||
@@ -962,15 +974,15 @@
|
||||
NIL
|
||||
'STL)
|
||||
NIL 80)
|
||||
(for CSLOT EXPANDSPACES CHNO TX LENGTH CHAR CHARW CHARCL (SPACEFACTOR _
|
||||
(for CSLOT EXPANDSPACES CHNO TX LENGTH CHAR CHARW CHARCL (SPACEFACTOR ←
|
||||
(FETCH TLSPACEFACTOR
|
||||
OF THISLINE))
|
||||
(FIRSTSPACESLOT _ (fetch TLFIRSTSPACE of THISLINE))
|
||||
(LINE _ (fetch (THISLINE DESC) of THISLINE))
|
||||
(NSPACES _ 0)
|
||||
(NCHARS _ 0)
|
||||
(SPACETOTAL _ 0)
|
||||
(PSP _ (AND (BOUNDP 'PREVSP)
|
||||
(FIRSTSPACESLOT ← (fetch TLFIRSTSPACE of THISLINE))
|
||||
(LINE ← (fetch (THISLINE DESC) of THISLINE))
|
||||
(NSPACES ← 0)
|
||||
(NCHARS ← 0)
|
||||
(SPACETOTAL ← 0)
|
||||
(PSP ← (AND (BOUNDP 'PREVSP)
|
||||
(NEQ PREVSP (GETATOMVAL 'PREVSP))
|
||||
PREVSP)) incharslots THISLINE as NSLOTS from 0
|
||||
first (if (NULL LINE)
|
||||
@@ -987,14 +999,13 @@
|
||||
(CL:WHEN LCHAR1
|
||||
(SETQ CHNO (OR LCHAR1 1)))
|
||||
(SETQ LENGTH TX)
|
||||
(printout OFILE 29 "XLIM" T) eachtime (SETQ CHAR (CHAR CSLOT))
|
||||
(SETQ CHARW (CHARW CSLOT))
|
||||
(SETQ CHARCL (CHARCL CSLOT))
|
||||
(CL:UNLESS (CHARSLOTP CSLOT THISLINE)
|
||||
(HELP "THISLINE RUNS OFF THE EDGE"
|
||||
THISLINE))
|
||||
repeatuntil [OR (EQ CSLOT (OR LASTCS (LASTCHARSLOT THISLINE]
|
||||
do (printout OFILE .I4 NSLOTS)
|
||||
(printout OFILE 29 "XLIM" T)
|
||||
do (SETQ CHAR (CHAR CSLOT))
|
||||
(SETQ CHARW (CHARW CSLOT))
|
||||
(SETQ CHARCL (CHARCL CSLOT))
|
||||
(CL:UNLESS (CHARSLOTP CSLOT THISLINE)
|
||||
(HELP "THISLINE RUNS OFF THE EDGE" THISLINE))
|
||||
(printout OFILE .I4 NSLOTS)
|
||||
[if (IMAGEOBJP CHAR)
|
||||
then (add NCHARS 1)
|
||||
(printout OFILE " " .I5 CHNO ": ")
|
||||
@@ -1033,12 +1044,12 @@
|
||||
(CHARACTER CHAR)))
|
||||
.FR 28 CHARW " " .I4 TX 35 CHARCL 64 CSLOT)
|
||||
(ADD CHNO 1)
|
||||
elseif [AND [OR (CHARSLOTP CHAR THISLINE)
|
||||
elseif [AND [OR (CHARSLOTP CHAR THISLINE)
|
||||
(AND (NULL CHAR)
|
||||
(NOT (TYPE? CHARLOOKS CHARW]
|
||||
(OR (EQ CSLOT PSP)
|
||||
(find CS incharslots (NEXTCHARSLOT CSLOT)
|
||||
while (CHARSLOTP CS THISLINE) suchthat (EQ CSLOT CHAR]
|
||||
while (CHARSLOTP CS THISLINE) suchthat (EQ CSLOT CHAR]
|
||||
then (* ; "Presumably a PREVSP")
|
||||
(ADD NSPACES 1)
|
||||
(printout OFILE " " .I5 CHNO ":")
|
||||
@@ -1239,7 +1250,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(FILEBYTES
|
||||
[LAMBDA (FILE START NBYTES) (* ; "Edited 15-May-2024 10:44 by rmk")
|
||||
[LAMBDA (FILE START NBYTES) (* ; "Edited 18-Apr-2026 09:37 by rmk")
|
||||
(* ; "Edited 15-May-2024 10:44 by rmk")
|
||||
(* ; "Edited 23-Jan-2024 12:03 by rmk")
|
||||
(* ; "Edited 20-Jan-2024 14:13 by rmk")
|
||||
|
||||
@@ -1255,25 +1267,31 @@
|
||||
(SETQ FILE (PCONTENTS FILE))))
|
||||
(CL:UNLESS START (SETQ START 0))
|
||||
(CL:UNLESS NBYTES (SETQ NBYTES 40))
|
||||
(CL:WITH-OPEN-FILE (STREAM FILE :DIRECTION :INPUT)
|
||||
(SETFILEPTR STREAM START)
|
||||
(SETQ NBYTES (IMIN NBYTES (IDIFFERENCE (GETEOFPTR STREAM)
|
||||
START)))
|
||||
(FOR I B FROM START AS J FROM 1 TO NBYTES COLLECT (SETQ B (BIN STREAM))
|
||||
(RESETLST
|
||||
[if (STREAMP FILE)
|
||||
then [RESETSAVE NIL `(PROGN (SETFILEPTR ,FILE ,(GETFILEPTR FILE]
|
||||
else (RESETSAVE (SETQ FILE (OPENSTREAM FILE 'INPUT))
|
||||
'(PROGN (CLOSEF? OLDVALUE]
|
||||
(SETFILEPTR FILE START)
|
||||
(SETQ NBYTES (IMIN NBYTES (IDIFFERENCE (GETEOFPTR FILE)
|
||||
START)))
|
||||
(for I B from START as J from 1 TO NBYTES collect (SETQ B (BIN FILE))
|
||||
|
||||
(* ;; "Do CHARACTER of the byte, since we don't know whether START respected FILE's external-format character alignment.")
|
||||
|
||||
(LIST I B (CHARACTER B])
|
||||
(LIST I B (CHARACTER B))))])
|
||||
|
||||
(TFILEBYTES
|
||||
[LAMBDA (FILE START NBYTES) (* ; "Edited 14-Dec-2024 00:04 by rmk")
|
||||
[LAMBDA (FILE START NBYTES FONT) (* ; "Edited 18-Apr-2026 09:36 by rmk")
|
||||
(* ; "Edited 11-Apr-2026 00:32 by rmk")
|
||||
(* ; "Edited 14-Dec-2024 00:04 by rmk")
|
||||
(* ; "Edited 23-Nov-2024 15:41 by rmk")
|
||||
(* ; "Edited 23-Sep-2024 11:40 by rmk")
|
||||
(LET ((BYTES (FILEBYTES FILE START NBYTES)))
|
||||
(LET [(BYTES (FILEBYTES FILE START (OR NBYTES 200]
|
||||
(TEVAL (for B in BYTES first (DSPFONT DEFAULTFONT T)
|
||||
do (printout T .I6 (CAR B)
|
||||
" " .I3 (CADR B)
|
||||
" " .FONT '(MODERN 8)
|
||||
" " .FONT (OR FONT '(MODERN 10))
|
||||
(SELCHARQ (CADR B)
|
||||
(EOL 'EOL)
|
||||
(LF 'LF)
|
||||
@@ -1291,8 +1309,8 @@
|
||||
[LAMBDA (DY ARG) (* ; "Edited 5-Nov-2024 15:29 by rmk")
|
||||
(RELMOVEW (GTW ARG)
|
||||
(create POSITION
|
||||
XCOORD _ 0
|
||||
YCOORD _ DY])
|
||||
XCOORD ← 0
|
||||
YCOORD ← DY])
|
||||
|
||||
(TSCROLL
|
||||
[LAMBDA (DY ARG) (* ; "Edited 5-Nov-2024 15:30 by rmk")
|
||||
@@ -1304,7 +1322,7 @@
|
||||
|
||||
(* ;; "Repeatedly scrolls up or down by DIST")
|
||||
|
||||
(bind (W _ (GTW ARG)) do (SELECTQ [ASKUSER NIL NIL NIL '((U NIL CONFIRMFLG NIL RETURN
|
||||
(bind (W ← (GTW ARG)) do (SELECTQ [ASKUSER NIL NIL NIL '((U NIL CONFIRMFLG NIL RETURN
|
||||
'UP)
|
||||
(D NIL CONFIRMFLG NIL RETURN
|
||||
'DOWN)
|
||||
@@ -1363,7 +1381,7 @@
|
||||
(FIXPARALAST
|
||||
[LAMBDA (TSTREAM HELP) (* ; "Edited 16-Mar-2024 10:06 by rmk")
|
||||
(* ; "Edited 24-Oct-2022 21:59 by rmk")
|
||||
(for (PC _ (\TEDIT.FIRSTPIECE (TEXTOBJ TSTREAM))) by (NEXTPIECE PC) while PC
|
||||
(for (PC ← (\TEDIT.FIRSTPIECE (TEXTOBJ TSTREAM))) by (NEXTPIECE PC) while PC
|
||||
when (PPARALAST PC) unless (MEMB (NTHPIECECHAR PC -1)
|
||||
(CHARCODE (EOL CR LF)))
|
||||
do (replace (PIECE PPARALAST) of PC with NIL])
|
||||
@@ -1371,7 +1389,9 @@
|
||||
(DEFINEQ
|
||||
|
||||
(SPPRINT
|
||||
[LAMBDA (P OSTREAM TEXTOBJ NOCR) (* ; "Edited 29-Jul-2025 11:42 by rmk")
|
||||
[LAMBDA (P OSTREAM TEXTOBJ NOCR) (* ; "Edited 9-Apr-2026 00:07 by rmk")
|
||||
(* ; "Edited 15-Feb-2026 14:35 by rmk")
|
||||
(* ; "Edited 29-Jul-2025 11:42 by rmk")
|
||||
(* ; "Edited 24-Apr-2025 16:04 by rmk")
|
||||
(* ; "Edited 19-Feb-2025 12:21 by rmk")
|
||||
(* ; "Edited 8-Feb-2025 22:41 by rmk")
|
||||
@@ -1419,8 +1439,6 @@
|
||||
(PRINTOUT OSTREAM (SELECTC PTYPE
|
||||
(THINFILE.PTYPE
|
||||
'Thinfile)
|
||||
(FATFILE1.PTYPE
|
||||
"Fatfile1")
|
||||
(FATFILE2.PTYPE
|
||||
'Fatfile2)
|
||||
(THINSTRING.PTYPE
|
||||
@@ -1462,7 +1480,7 @@
|
||||
CLINVISIBLE))
|
||||
(PRIN1 "i " OSTREAM))
|
||||
(PRIN1 "%"" OSTREAM)
|
||||
(for I C from 1 to PLEN
|
||||
(for I C from 0 to (SUB1 PLEN)
|
||||
do (SETQ C (\TEDIT.PIECE.NTHCHARCODE P I))
|
||||
(PRIN1 (SELCHARQ C
|
||||
((EOL CR)
|
||||
@@ -1474,12 +1492,12 @@
|
||||
(Meta,EOL "[MLB]")
|
||||
(CHARACTER C))
|
||||
OSTREAM)
|
||||
(CL:WHEN (IEQP I PLEN)
|
||||
(CL:WHEN (IEQP I (SUB1 PLEN))
|
||||
(PRIN1 '%" OSTREAM))
|
||||
(CL:WHEN [AND (NOT NOCR)
|
||||
(MEMB C (CHARCODE (EOL CR LF FORM]
|
||||
(TERPRI OSTREAM)
|
||||
(CL:UNLESS (IEQP I PLEN)
|
||||
(CL:UNLESS (IEQP I (SUB1 PLEN))
|
||||
(DSPFONT (PROG1 (DSPFONT FONT OSTREAM)
|
||||
|
||||
(* ;; "Add1 for %"")
|
||||
@@ -1624,10 +1642,10 @@
|
||||
|
||||
(* ;; "Produces a chain of copies of the pieces in PIECES from I to J. The pieces are chained in both directions so a copy can be copied or shortened.")
|
||||
|
||||
(for PC NEWPC [LASTPC _ (NTHPIECE PIECES (IMIN (NPIECES PIECES)
|
||||
(for PC NEWPC [LASTPC ← (NTHPIECE PIECES (IMIN (NPIECES PIECES)
|
||||
(OR J (NPIECES PIECES]
|
||||
inpieces (NTHPIECE PIECES (IMAX 1 (OR I 1)))
|
||||
do (SETQ NEWPC (create PIECE using PC PREVPIECE _ NEWPC)) repeatuntil (EQ PC LASTPC)
|
||||
do (SETQ NEWPC (create PIECE using PC PREVPIECE ← NEWPC)) repeatuntil (EQ PC LASTPC)
|
||||
finally (RETURN (for NPC NEXTPC backpieces NEWPC do (SETPC NPC NEXTPIECE NEXTPC)
|
||||
(SETQ NEXTPC NPC)
|
||||
finally (RETURN NPC])
|
||||
@@ -1679,12 +1697,12 @@
|
||||
(CL:UNLESS N (SETQ N 7))
|
||||
(CL:UNLESS SPREAD (SETQ SPREAD 4))
|
||||
(LET ((TEXTOBJ (GTO)))
|
||||
[for I (POS _ (CL:IF (IGREATERP SPREAD 0)
|
||||
[for I (POS ← (CL:IF (IGREATERP SPREAD 0)
|
||||
0
|
||||
90)) from 1 to 3 do (TEDIT.INSERT TEXTOBJ (CONCAT I)
|
||||
(add POS 4)
|
||||
'(FACE BOLD]
|
||||
[for I (POS _ 90) from (IDIFFERENCE N 3) to N do (TEDIT.INSERT TEXTOBJ (CONCAT I)
|
||||
[for I (POS ← 90) from (IDIFFERENCE N 3) to N do (TEDIT.INSERT TEXTOBJ (CONCAT I)
|
||||
(add POS -4)
|
||||
'(FACE BOLD]
|
||||
(SP TEXTOBJ)
|
||||
@@ -1703,8 +1721,8 @@
|
||||
(SETQ THISLINE (fetch (TEXTOBJ THISLINE) of (GTO THISLINE))))
|
||||
(CL:UNLESS (FIXP N)
|
||||
(SETQ N MAX.SMALLP))
|
||||
(for (CHARSLOT _ (FIRSTCHARSLOT THISLINE))
|
||||
(LASTSLOT _ (LASTCHARSLOT THISLINE))
|
||||
(for (CHARSLOT ← (FIRSTCHARSLOT THISLINE))
|
||||
(LASTSLOT ← (LASTCHARSLOT THISLINE))
|
||||
CHAR CHARW by (NEXTCHARSLOT CHARSLOT) as I from 0 to (SUB1 N) repeatuntil (EQ CHARSLOT
|
||||
LASTSLOT)
|
||||
do (SETQ CHAR (CHAR CHARSLOT))
|
||||
@@ -2099,7 +2117,7 @@
|
||||
(* ; "Edited 11-Aug-2023 08:30 by rmk")
|
||||
(* ; "Edited 8-Aug-2023 22:17 by rmk")
|
||||
|
||||
(* ;; "Makes a copy of FILE except that each each CR is followed by the fileptr of the next byte, and and ^z and \ are also marked with the file position of the nexxt character. This helps in decoding Bravo files.")
|
||||
(* ;; "Makes a copy of FILE except that each each CR is followed by the fileptr of the next byte, and and ↑z and \ are also marked with the file position of the nexxt character. This helps in decoding Bravo files.")
|
||||
|
||||
(CL:WITH-OPEN-FILE (INSTREAM FILE :DIRECTION :INPUT)
|
||||
(STREAMPROP INSTREAM 'ENDOFSTREAMOP (FUNCTION NILL))
|
||||
@@ -2155,7 +2173,7 @@
|
||||
else (PRINTOUT OUTSTREAM "[" (GETFILEPTR INSTREAM)
|
||||
"]")))
|
||||
(TAB (PRINTOUT OUTSTREAM "[TAB]"))
|
||||
(^Z (BOUT OUTSTREAM (CHARCODE ^Z)) (* ; "Comes out black")
|
||||
(↑Z (BOUT OUTSTREAM (CHARCODE ↑Z)) (* ; "Comes out black")
|
||||
(if SPACELINES
|
||||
then (PRINTOUT OUTSTREAM T .I6 (GETFILEPTR INSTREAM)
|
||||
": " -5)
|
||||
@@ -2175,7 +2193,7 @@
|
||||
|
||||
(OLDWI
|
||||
[LAMBDA (FN) (* ; "Edited 16-May-2023 12:02 by rmk")
|
||||
(for F COMS in TEDITFILES when (AND (SETQ F (DFOV.OLDEST F))
|
||||
(for F COMS in TEDITFILES when (AND (SETQ F (DFOV.OLDEST F))
|
||||
(INFILECOMS? FN NIL (GETDEF (FILECOMS F)
|
||||
'VARS F))) collect F])
|
||||
|
||||
@@ -2327,21 +2345,7 @@
|
||||
LCHAR1)
|
||||
(GTO)))
|
||||
(SP LPC)
|
||||
(SPLINES])
|
||||
|
||||
(THC
|
||||
[LAMBDA (TSTREAM PRINTER TYPE) (* ; "Edited 10-Jul-2023 23:00 by rmk")
|
||||
(CL:UNLESS TYPE (SETQ TYPE DEFAULTPRINTERTYPE))
|
||||
(LET ((TFILE (TXTFILE (GTO TSTREAM)))
|
||||
HCFILE)
|
||||
(CL:UNLESS PRINTER
|
||||
(SETQ HCFILE (OUTFILEP (PACKFILENAME 'EXTENSION TYPE 'VERSION NIL 'NAME
|
||||
(PACK* (FILENAMEFIELD TFILE 'NAME)
|
||||
'W)
|
||||
'BODY TFILE))))
|
||||
(HARDCOPY.SOMEHOW (WFROMDS (TEXTSTREAM (GTO TSTREAM)))
|
||||
HCFILE TYPE)
|
||||
HCFILE])
|
||||
(SPLINES])
|
||||
)
|
||||
|
||||
(RPAQ? LASTTTESTFILE )
|
||||
@@ -2483,7 +2487,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(TEDIT-DEBUG
|
||||
[LAMBDA (DONTOVERLOAD) (* ; "Edited 7-Feb-2026 17:00 by rmk")
|
||||
[LAMBDA (DONTOVERLOAD) (* ; "Edited 24-Feb-2026 00:35 by rmk")
|
||||
(* ; "Edited 7-Feb-2026 17:00 by rmk")
|
||||
(* ; "Edited 9-Aug-2024 13:20 by rmk")
|
||||
(* ; "Edited 16-Jul-2024 12:37 by rmk")
|
||||
(* ; "Edited 6-Jul-2024 21:16 by rmk")
|
||||
@@ -2497,7 +2502,7 @@
|
||||
(* ; "Edited 3-Dec-2023 21:00 by rmk")
|
||||
(* ; "Edited 29-Nov-2023 10:49 by rmk")
|
||||
(* ; "Edited 24-Nov-2023 12:53 by rmk")
|
||||
(DRIBBLE "TEDIT-DEBUG.DRIBBLE")
|
||||
(DRIBBLE (PSEUDOFILENAME (MEDLEYDIR "library/tedit" "TEDIT-DEBUG.DRIBBLE" T)))
|
||||
(CL:WHEN (DIRECTORYNAMEP (MEDLEYDIR "../oldtedit/"))
|
||||
(PSEUDOHOST 'OT (MEDLEYDIR "../oldtedit/")))
|
||||
(FILESLOAD (NOERROR FROM LOADUPS)
|
||||
@@ -2585,33 +2590,33 @@
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (5124 7683 (GTO 5134 . 5384) (GTS 5386 . 7157) (GTW 7159 . 7315) (GSEL 7317 . 7681)) (
|
||||
7716 8837 (TEST.TEMPLATE 7726 . 8835)) (8838 9773 (TESTACTION 8848 . 9771)) (9798 23613 (IPC 9808 .
|
||||
11312) (ILINES 11314 . 13855) (ISEL 13857 . 14468) (ITS 14470 . 16194) (IPANES 16196 . 16431) (ITL
|
||||
16433 . 16852) (IHIST 16854 . 19516) (IPCTB 19518 . 19944) (IMB 19946 . 20705) (ICL 20707 . 21408) (
|
||||
IPL 21410 . 21950) (ICARET 21952 . 22479) (INSPECTPIECES 22481 . 23611)) (23635 52650 (SP 23645 .
|
||||
28760) (SL 28762 . 32764) (SSP 32766 . 34468) (SPF 34470 . 37000) (SLF 37002 . 46135) (SHOWLINE 46137
|
||||
. 49808) (SLL 49810 . 50557) (STBYTES 50559 . 52285) (SSEL 52287 . 52648)) (52651 65164 (STL 52661 .
|
||||
61662) (CLEARTHISLINE 61664 . 62144) (CHARSLOTP 62146 . 63465) (\TLVALIDATE 63467 . 65162)) (65165
|
||||
70538 (NTHPIECE 65175 . 66307) (NPIECES 66309 . 67174) (NTHPIECECHAR 67176 . 68484) (SELPIECE 68486 .
|
||||
68928) (PIECENUM 68930 . 69649) (PCBYTES 69651 . 70536)) (70539 73013 (FILEBYTES 70549 . 71973) (
|
||||
TFILEBYTES 71975 . 73011)) (73014 74336 (TRELMOVE 73024 . 73267) (TSCROLL 73269 . 73435) (TSCROLL*
|
||||
73437 . 74334)) (74337 77386 (TRY 74347 . 75616) (TEDITCLOSEW 75618 . 75961) (PARALASTWITHOUTEOL 75963
|
||||
. 76848) (FIXPARALAST 76850 . 77384)) (77387 92274 (SPPRINT 77397 . 84222) (SPPRINT.CHAR 84224 .
|
||||
85208) (SPPRINT.OBJ 85210 . 88268) (SHOWPIECEBYTES 88270 . 89826) (CHECKPLENGTHS 89828 . 90285) (SBT
|
||||
90287 . 91424) (COPYPCHAIN 91426 . 92272)) (92275 94336 (POSLINE 92285 . 94334)) (94337 95220 (
|
||||
PRESPLIT 94347 . 95218)) (95221 96934 (ALLTL 95231 . 96484) (NTHCHARSLOT 96486 . 96932)) (96960 107173
|
||||
(PLCHAIN 96970 . 97498) (PRINTLINE 97500 . 100490) (SL.GETLINES 100492 . 103785) (CHECKLINES 103787
|
||||
. 104767) (COLLECTLINES 104769 . 105021) (NTHLINE 105023 . 106028) (HEIGHT 106030 . 106318) (LINEBOTS
|
||||
106320 . 107171)) (107174 109622 (IPC.DECODEARGS 107184 . 109620)) (109623 110216 (SPF1 109633 .
|
||||
110214)) (110245 112623 (SLF.FATPLEN 110255 . 111114) (FILEPIECE 111116 . 112621)) (112656 113424 (
|
||||
SELTEDIT 112666 . 113422)) (113494 119106 (PPARA 113504 . 113926) (PRUN 113928 . 115404) (
|
||||
ADDLINEPOSITIONS 115406 . 116833) (SBR 116835 . 117489) (SBC 117491 . 119104)) (119163 120939 (OLDWI
|
||||
119173 . 119548) (COMP 119550 . 119745) (DFR 119747 . 120937)) (120940 121973 (DFGV 120950 . 121476) (
|
||||
GDIRECTORIES 121478 . 121971)) (121974 128539 (TTEST 121984 . 126516) (LTEST 126518 . 127883) (THC
|
||||
127885 . 128537)) (128853 129545 (SHOWSAFE 128863 . 129543)) (129598 130045 (MYH 129608 . 130043)) (
|
||||
130290 131385 (DFVENUE 130300 . 131179) (VSEE 131181 . 131383)) (131386 131840 (PTT 131396 . 131838))
|
||||
(132199 133780 (DEBUGOUTPUT.STREAM 132209 . 133778)) (133781 136256 (TEDIT-DEBUG 133791 . 136254)) (
|
||||
136257 136749 (HEXTOHILO 136267 . 136607) (CW 136609 . 136747)) (136750 138486 (TRENAME 136760 .
|
||||
138484)))))
|
||||
(FILEMAP (NIL (5177 7736 (GTO 5187 . 5437) (GTS 5439 . 7210) (GTW 7212 . 7368) (GSEL 7370 . 7734)) (
|
||||
7769 8890 (TEST.TEMPLATE 7779 . 8888)) (8891 9826 (TESTACTION 8901 . 9824)) (9851 24332 (IPC 9861 .
|
||||
11365) (ILINES 11367 . 13908) (ISEL 13910 . 14521) (ITS 14523 . 16247) (IPANES 16249 . 16484) (ITL
|
||||
16486 . 16905) (IHIST 16907 . 19569) (IPCTB 19571 . 19997) (IMB 19999 . 20758) (ICL 20760 . 21461) (
|
||||
IPL 21463 . 22003) (ICARET 22005 . 22532) (INSPECTPIECES 22534 . 23664) (INSPECTFILEPIECES 23666 .
|
||||
24330)) (24354 53387 (SP 24364 . 29479) (SL 29481 . 33483) (SSP 33485 . 35187) (SPF 35189 . 37721) (
|
||||
SLF 37723 . 46870) (SHOWLINE 46872 . 50545) (SLL 50547 . 51294) (STBYTES 51296 . 53022) (SSEL 53024 .
|
||||
53385)) (53388 65740 (STL 53398 . 62238) (CLEARTHISLINE 62240 . 62720) (CHARSLOTP 62722 . 64041) (
|
||||
\TLVALIDATE 64043 . 65738)) (65741 71114 (NTHPIECE 65751 . 66883) (NPIECES 66885 . 67750) (
|
||||
NTHPIECECHAR 67752 . 69060) (SELPIECE 69062 . 69504) (PIECENUM 69506 . 70225) (PCBYTES 70227 . 71112))
|
||||
(71115 74103 (FILEBYTES 71125 . 72828) (TFILEBYTES 72830 . 74101)) (74104 75432 (TRELMOVE 74114 .
|
||||
74361) (TSCROLL 74363 . 74529) (TSCROLL* 74531 . 75430)) (75433 78484 (TRY 75443 . 76712) (TEDITCLOSEW
|
||||
76714 . 77057) (PARALASTWITHOUTEOL 77059 . 77944) (FIXPARALAST 77946 . 78482)) (78485 93511 (SPPRINT
|
||||
78495 . 85455) (SPPRINT.CHAR 85457 . 86441) (SPPRINT.OBJ 86443 . 89501) (SHOWPIECEBYTES 89503 . 91059)
|
||||
(CHECKPLENGTHS 91061 . 91518) (SBT 91520 . 92657) (COPYPCHAIN 92659 . 93509)) (93512 95573 (POSLINE
|
||||
93522 . 95571)) (95574 96461 (PRESPLIT 95584 . 96459)) (96462 98179 (ALLTL 96472 . 97729) (NTHCHARSLOT
|
||||
97731 . 98177)) (98205 108418 (PLCHAIN 98215 . 98743) (PRINTLINE 98745 . 101735) (SL.GETLINES 101737
|
||||
. 105030) (CHECKLINES 105032 . 106012) (COLLECTLINES 106014 . 106266) (NTHLINE 106268 . 107273) (
|
||||
HEIGHT 107275 . 107563) (LINEBOTS 107565 . 108416)) (108419 110867 (IPC.DECODEARGS 108429 . 110865)) (
|
||||
110868 111461 (SPF1 110878 . 111459)) (111490 113868 (SLF.FATPLEN 111500 . 112359) (FILEPIECE 112361
|
||||
. 113866)) (113901 114669 (SELTEDIT 113911 . 114667)) (114739 120357 (PPARA 114749 . 115171) (PRUN
|
||||
115173 . 116649) (ADDLINEPOSITIONS 116651 . 118080) (SBR 118082 . 118736) (SBC 118738 . 120355)) (
|
||||
120414 122186 (OLDWI 120424 . 120795) (COMP 120797 . 120992) (DFR 120994 . 122184)) (122187 123220 (
|
||||
DFGV 122197 . 122723) (GDIRECTORIES 122725 . 123218)) (123221 129128 (TTEST 123231 . 127763) (LTEST
|
||||
127765 . 129126)) (129442 130134 (SHOWSAFE 129452 . 130132)) (130187 130634 (MYH 130197 . 130632)) (
|
||||
130879 131974 (DFVENUE 130889 . 131768) (VSEE 131770 . 131972)) (131975 132429 (PTT 131985 . 132427))
|
||||
(132788 134369 (DEBUGOUTPUT.STREAM 132798 . 134367)) (134370 137001 (TEDIT-DEBUG 134380 . 136999)) (
|
||||
137002 137494 (HEXTOHILO 137012 . 137352) (CW 137354 . 137492)) (137495 139231 (TRENAME 137505 .
|
||||
139229)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "29-Apr-2026 23:49:14" {MEDLEY}<library>tedit>TEDIT-FILE.;684 174888
|
||||
(FILECREATED "10-May-2026 20:54:51" {MEDLEY}<library>TEDIT>TEDIT-FILE.;685 174952
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.INTERPRET.MCCS.SHIFTS)
|
||||
:CHANGES-TO (FNS \TEDIT.GET.FORMATTED.FILE)
|
||||
|
||||
:PREVIOUS-DATE "24-Apr-2026 21:09:13" {MEDLEY}<library>tedit>TEDIT-FILE.;683)
|
||||
:PREVIOUS-DATE "29-Apr-2026 23:49:14" {MEDLEY}<library>TEDIT>TEDIT-FILE.;684)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-FILECOMS)
|
||||
@@ -707,7 +707,8 @@
|
||||
(\TEDIT.INSERTPIECES PIECES NIL TEXTOBJ)))])
|
||||
|
||||
(\TEDIT.GET.FORMATTED.FILE
|
||||
[LAMBDA (TEXT TSTREAM START END PROPS) (* ; "Edited 25-Sep-2025 21:27 by rmk")
|
||||
[LAMBDA (TEXT TSTREAM START END PROPS) (* ; "Edited 10-May-2026 20:54 by rmk")
|
||||
(* ; "Edited 25-Sep-2025 21:27 by rmk")
|
||||
(* ; "Edited 9-Sep-2025 21:45 by rmk")
|
||||
(* ; "Edited 7-Sep-2025 12:14 by rmk")
|
||||
(* ; "Edited 28-Mar-2025 14:15 by rmk")
|
||||
@@ -744,8 +745,7 @@
|
||||
"Version 1; obsoleted at INTERMEZZO release 2/85")
|
||||
(\TEDIT.GET.PCTB1 TEXT TSTREAM PCCOUNT START END))
|
||||
(0 (* ; "VERSION 0")
|
||||
(\TEDIT.GET.PCTB0 TEXT TSTREAM (CADR PCCOUNT)
|
||||
PCCOUNT START END))
|
||||
(\TEDIT.GET.PCTB0 TEXT TSTREAM PCCOUNT START END))
|
||||
(\TEDIT.THELP "File format version incompatible with this version of TEdit."))
|
||||
(CL:WHEN (SETQ PC (\TEDIT.LASTPIECE TEXTOBJ))
|
||||
(FSETPC PC PPARALAST T))
|
||||
@@ -2706,29 +2706,29 @@
|
||||
|
||||
(RPAQ? *TEDIT-FILE-READTABLE* (COPYREADTABLE \ORIGREADTABLE))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (5384 35643 (TEDIT.GET 5394 . 11804) (TEDIT.FORMATTEDFILEP 11806 . 13122) (
|
||||
TEDIT.FILEDATE 13124 . 14433) (TEDIT.INCLUDE 14435 . 22464) (TEDIT.RAW.INCLUDE 22466 . 23274) (
|
||||
TEDIT.PUT 23276 . 31632) (TEDIT.PUT.STREAM 31634 . 35641)) (35644 56951 (\TEDIT.GET.FOREIGN.FILE 35654
|
||||
. 39079) (\TEDIT.GET.UNFORMATTED.FILE 39081 . 43420) (\TEDIT.GET.FORMATTED.FILE 43422 . 47065) (
|
||||
\TEDIT.FORMATTEDSTREAMP 47067 . 50198) (\ARBIN 50200 . 50920) (\ATMIN 50922 . 51459) (\DWIN 51461 .
|
||||
51840) (\STRINGIN 51842 . 52550) (\TEDIT.GET.TRAILER 52552 . 55420) (\TEDIT.CACHEFILE 55422 . 56949))
|
||||
(57117 73044 (\TEDIT.GET.PIECES3 57127 . 68176) (\TEDIT.GET.PROPS3 68178 . 71400) (
|
||||
\TEDIT.MAKE.STRINGPIECE 71402 . 73042)) (73045 85841 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73055 . 78706)
|
||||
(\TEDIT.INTERPRET.MCCS.SHIFTS 78708 . 84304) (\TEDIT.CONVERT.XCCSTOMCCS 84306 . 85238) (
|
||||
\TEDIT.RUN.TO.STRINGPIECE 85240 . 85839)) (85863 92124 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 85873 . 92122
|
||||
)) (92147 103665 (\TEDIT.GET.CHARLOOKS.LIST 92157 . 92888) (\TEDIT.GET.SINGLE.CHARLOOKS 92890 . 99962)
|
||||
(\TEDIT.GET.CHARLOOKS 99964 . 101520) (\TEDIT.GET.PARALOOKS.INDEX 101522 . 102066) (
|
||||
\TEDIT.GET.CHARLOOKS.INDEX 102068 . 103663)) (103666 111323 (\TEDIT.GET.PARALOOKS.LIST 103676 . 104298
|
||||
) (\TEDIT.GET.SINGLE.PARALOOKS 104300 . 111321)) (111324 115266 (\TEDIT.GET.OBJECT 111334 . 115264)) (
|
||||
115331 150489 (\TEDIT.PUT.PCTB 115341 . 125667) (\TEDIT.PUT.PCTB.PIECEDATA 125669 . 128826) (
|
||||
\TEDIT.PUT.TRAILER 128828 . 130156) (\TEDIT.PUT.PCTB.MERGEABLE 130158 . 134019) (
|
||||
\TEDIT.PUT.UTF8.SPLITPIECES 134021 . 138597) (\TEDIT.PUT.MCCS.SPLITPIECES 138599 . 140177) (
|
||||
\TEDIT.PUT.PCTB.NEXTNEW 140179 . 144920) (\TEDIT.INSERT.NEWPIECES 144922 . 148087) (\TEDIT.PUTRESET
|
||||
148089 . 148331) (\ARBOUT 148333 . 149057) (\ATMOUT 149059 . 149664) (\DWOUT 149666 . 149945) (
|
||||
\STRINGOUT 149947 . 150487)) (150490 163441 (\TEDIT.PUT.CHARLOOKS.LIST 150500 . 152172) (
|
||||
\TEDIT.PUT.SINGLE.CHARLOOKS 152174 . 158454) (\TEDIT.PUT.CHARLOOKS 158456 . 159903) (
|
||||
\TEDIT.PUT.CHARLOOKS1 159905 . 160956) (\TEDIT.PUT.OBJECT 160958 . 163439)) (163442 171081 (
|
||||
\TEDIT.PUT.PARALOOKS.LIST 163452 . 164354) (\TEDIT.PUT.SINGLE.PARALOOKS 164356 . 169940) (
|
||||
\TEDIT.PUT.PARALOOKS 169942 . 171079)) (171176 174581 (TEDITFROMLISPSOURCE 171186 . 173830) (
|
||||
SHELLSCRIPTP 173832 . 174061) (TEDITFROMSHELLSCRIPT 174063 . 174579)))))
|
||||
(FILEMAP (NIL (5381 35640 (TEDIT.GET 5391 . 11801) (TEDIT.FORMATTEDFILEP 11803 . 13119) (
|
||||
TEDIT.FILEDATE 13121 . 14430) (TEDIT.INCLUDE 14432 . 22461) (TEDIT.RAW.INCLUDE 22463 . 23271) (
|
||||
TEDIT.PUT 23273 . 31629) (TEDIT.PUT.STREAM 31631 . 35638)) (35641 57015 (\TEDIT.GET.FOREIGN.FILE 35651
|
||||
. 39076) (\TEDIT.GET.UNFORMATTED.FILE 39078 . 43417) (\TEDIT.GET.FORMATTED.FILE 43419 . 47129) (
|
||||
\TEDIT.FORMATTEDSTREAMP 47131 . 50262) (\ARBIN 50264 . 50984) (\ATMIN 50986 . 51523) (\DWIN 51525 .
|
||||
51904) (\STRINGIN 51906 . 52614) (\TEDIT.GET.TRAILER 52616 . 55484) (\TEDIT.CACHEFILE 55486 . 57013))
|
||||
(57181 73108 (\TEDIT.GET.PIECES3 57191 . 68240) (\TEDIT.GET.PROPS3 68242 . 71464) (
|
||||
\TEDIT.MAKE.STRINGPIECE 71466 . 73106)) (73109 85905 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73119 . 78770)
|
||||
(\TEDIT.INTERPRET.MCCS.SHIFTS 78772 . 84368) (\TEDIT.CONVERT.XCCSTOMCCS 84370 . 85302) (
|
||||
\TEDIT.RUN.TO.STRINGPIECE 85304 . 85903)) (85927 92188 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 85937 . 92186
|
||||
)) (92211 103729 (\TEDIT.GET.CHARLOOKS.LIST 92221 . 92952) (\TEDIT.GET.SINGLE.CHARLOOKS 92954 . 100026
|
||||
) (\TEDIT.GET.CHARLOOKS 100028 . 101584) (\TEDIT.GET.PARALOOKS.INDEX 101586 . 102130) (
|
||||
\TEDIT.GET.CHARLOOKS.INDEX 102132 . 103727)) (103730 111387 (\TEDIT.GET.PARALOOKS.LIST 103740 . 104362
|
||||
) (\TEDIT.GET.SINGLE.PARALOOKS 104364 . 111385)) (111388 115330 (\TEDIT.GET.OBJECT 111398 . 115328)) (
|
||||
115395 150553 (\TEDIT.PUT.PCTB 115405 . 125731) (\TEDIT.PUT.PCTB.PIECEDATA 125733 . 128890) (
|
||||
\TEDIT.PUT.TRAILER 128892 . 130220) (\TEDIT.PUT.PCTB.MERGEABLE 130222 . 134083) (
|
||||
\TEDIT.PUT.UTF8.SPLITPIECES 134085 . 138661) (\TEDIT.PUT.MCCS.SPLITPIECES 138663 . 140241) (
|
||||
\TEDIT.PUT.PCTB.NEXTNEW 140243 . 144984) (\TEDIT.INSERT.NEWPIECES 144986 . 148151) (\TEDIT.PUTRESET
|
||||
148153 . 148395) (\ARBOUT 148397 . 149121) (\ATMOUT 149123 . 149728) (\DWOUT 149730 . 150009) (
|
||||
\STRINGOUT 150011 . 150551)) (150554 163505 (\TEDIT.PUT.CHARLOOKS.LIST 150564 . 152236) (
|
||||
\TEDIT.PUT.SINGLE.CHARLOOKS 152238 . 158518) (\TEDIT.PUT.CHARLOOKS 158520 . 159967) (
|
||||
\TEDIT.PUT.CHARLOOKS1 159969 . 161020) (\TEDIT.PUT.OBJECT 161022 . 163503)) (163506 171145 (
|
||||
\TEDIT.PUT.PARALOOKS.LIST 163516 . 164418) (\TEDIT.PUT.SINGLE.PARALOOKS 164420 . 170004) (
|
||||
\TEDIT.PUT.PARALOOKS 170006 . 171143)) (171240 174645 (TEDITFROMLISPSOURCE 171250 . 173894) (
|
||||
SHELLSCRIPTP 173896 . 174125) (TEDITFROMSHELLSCRIPT 174127 . 174643)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "29-Apr-2026 15:35:33" {MEDLEY}<library>TEDIT>TEDIT-MENU.;512 183159
|
||||
(FILECREATED "10-May-2026 17:15:14" {MEDLEY}<library>tedit>TEDIT-MENU.;513 183190
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.SHOW.PAGELOOKS)
|
||||
:CHANGES-TO (FNS \TEDIT.MENU.START)
|
||||
|
||||
:PREVIOUS-DATE " 9-Feb-2026 09:10:43" {MEDLEY}<library>TEDIT>TEDIT-MENU.;510)
|
||||
:PREVIOUS-DATE "29-Apr-2026 15:35:33" {MEDLEY}<library>tedit>TEDIT-MENU.;512)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-MENUCOMS)
|
||||
@@ -1161,7 +1161,8 @@
|
||||
TSTREAM])
|
||||
|
||||
(\TEDIT.MENU.START
|
||||
[LAMBDA (MENUSTREAM TSTREAM TITLE HEIGHT TYPE) (* ; "Edited 14-Mar-2025 16:13 by rmk")
|
||||
[LAMBDA (MENUSTREAM TSTREAM TITLE HEIGHT TYPE) (* ; "Edited 10-May-2026 17:12 by rmk")
|
||||
(* ; "Edited 14-Mar-2025 16:13 by rmk")
|
||||
(* ; "Edited 28-Jun-2024 23:08 by rmk")
|
||||
(* ; "Edited 19-Apr-2024 10:53 by rmk")
|
||||
(* ; "Edited 10-Apr-2024 23:04 by rmk")
|
||||
@@ -1195,7 +1196,6 @@
|
||||
WIDTH _ (fetch (REGION WIDTH) of WREG)
|
||||
HEIGHT _ (OR HEIGHT 133))
|
||||
TITLE))
|
||||
(WINDOWADDPROP MENUW 'CLOSEFN (FUNCTION FREEATTACHEDWINDOW))
|
||||
(WINDOWPROP MENUW 'TEDITMENU (OR TITLE "TEdit Menu"))
|
||||
(* ; "Mark this as a TEDIT MENU window")
|
||||
(ATTACHWINDOW MENUW MAINWINDOW 'TOP 'JUSTIFY 'LOCALCLOSE)
|
||||
@@ -2899,32 +2899,32 @@
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4933 16571 (TEDIT.ADD.MENUITEM 4943 . 7060) (TEDIT.DEFAULT.MENUFN 7062 . 13783) (
|
||||
TEDIT.REMOVE.MENUITEM 13785 . 14782) (\TEDIT.CREATEMENU 14784 . 15349) (\TEDIT.MENU.WHENHELDFN 15351
|
||||
. 16256) (\TEDIT.MENU.WHENSELECTEDFN 16258 . 16569)) (17385 65420 (DRAWMARGINSCALE 17395 . 20854) (
|
||||
MARGINBAR 20856 . 27981) (MARGINBAR.CREATE 27983 . 32181) (MB.MARGINBAR.BUTTONEVENTINFN 32183 . 39985)
|
||||
(MB.MARGINBAR.SELFN.TABS 39987 . 45227) (MB.MARGINBAR.SELFN.TABS.KIND 45229 . 46164) (
|
||||
MARGINBAR.GETSTATEFN 46166 . 50153) (MARGINBAR.SETSTATEFN 50155 . 50365) (MARGINBAR.NEUTRALIZE 50367
|
||||
. 51042) (MARGINBAR.LOOKS 51044 . 54150) (MB.MARGINBAR.SIZEFN 54152 . 54938) (MB.MARGINBAR.DISPLAYFN
|
||||
54940 . 58001) (MDESCALE 58003 . 58543) (MSCALE 58545 . 58875) (MB.MARGINBAR.SHOWTAB 58877 . 61200) (
|
||||
MB.MARGINBAR.TABTRACK 61202 . 62587) (MARGINBAR.INIT 62589 . 63982) (\TEDIT.PARALOOKS.TO.MARBAR 63984
|
||||
. 65418)) (66245 73527 (TEDIT.MENUSTREAM 66255 . 67255) (TEDITMENUP 67257 . 68226) (\TEDIT.MENU.START
|
||||
68228 . 72575) (\TEDIT.MENU.OPEN? 72577 . 72951) (\TEDIT.MENU.BUTTONEVENTFN 72953 . 73525)) (73846
|
||||
81897 (\TEDIT.MENU.CREATE 73856 . 75796) (\TEDIT.MENU.PARSE 75798 . 79487) (\TEDIT.MENU.NEUTRALIZE
|
||||
79489 . 81560) (\TEDITMENU.RECORD.UNFORMATTED 81562 . 81895)) (81963 101365 (
|
||||
\TEDIT.EXPANDEDMENU.CREATE 81973 . 87651) (\TEDIT.EXPANDEDMENU.START 87653 . 89277) (
|
||||
\TEDIT.EXPANDEDMENU.FN 89279 . 92534) (\TEDIT.EXPANDEDMENU.ACTIONFN 92536 . 101363)) (101427 120852 (
|
||||
\TEDIT.PARAMENU.CREATE 101437 . 110168) (\TEDIT.PARAMENU.START 110170 . 111424) (
|
||||
\TEDIT.APPLY.PARALOOKS 111426 . 112478) (\TEDIT.SHOW.PARALOOKS 112480 . 115197) (
|
||||
\TEDIT.PARAMENU.FILLIN 115199 . 119948) (\TEDIT.PARAMENU.RESHAPEFN 119950 . 120850)) (121046 147888 (
|
||||
\TEDIT.CHARMENU.CREATE 121056 . 123660) (\TEDIT.CHARMENU.START 123662 . 124952) (\TEDIT.CHARMENU.SPEC
|
||||
124954 . 129637) (\TEDIT.CHARMENU.PARSE 129639 . 132807) (\TEDIT.CHARMENU.FILLIN 132809 . 137439) (
|
||||
\TEDIT.SHOW.CHARLOOKS 137441 . 140986) (\TEDIT.APPLY.CHARLOOKS 140988 . 142149) (
|
||||
\TEDIT.OFFSETTYPE.STATEFN 142151 . 144114) (\TEDIT.OTHER.STATECHANGEFN 144116 . 145761) (
|
||||
\TEDIT.OTHER.SELECTFN 145763 . 147886)) (147950 177199 (\TEDIT.PAGEMENU.CREATE 147960 . 156481) (
|
||||
\TEDIT.PAGEMENU.START 156483 . 156834) (\TEDIT.SHOW.PAGELOOKS 156836 . 158857) (\TEDIT.PAGEMENU.FILLIN
|
||||
158859 . 160409) (\TEDIT.PAGEREGION.UNPARSE 160411 . 169810) (\TEDIT.APPLY.PAGELOOKS 169812 . 171739)
|
||||
(\TEDIT.CHANGE.PAGELOOKS 171741 . 176355) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176357 . 177197)) (
|
||||
177200 183003 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177210 . 180022) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN
|
||||
180024 . 181449) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181451 . 183001)))))
|
||||
(FILEMAP (NIL (4929 16567 (TEDIT.ADD.MENUITEM 4939 . 7056) (TEDIT.DEFAULT.MENUFN 7058 . 13779) (
|
||||
TEDIT.REMOVE.MENUITEM 13781 . 14778) (\TEDIT.CREATEMENU 14780 . 15345) (\TEDIT.MENU.WHENHELDFN 15347
|
||||
. 16252) (\TEDIT.MENU.WHENSELECTEDFN 16254 . 16565)) (17381 65416 (DRAWMARGINSCALE 17391 . 20850) (
|
||||
MARGINBAR 20852 . 27977) (MARGINBAR.CREATE 27979 . 32177) (MB.MARGINBAR.BUTTONEVENTINFN 32179 . 39981)
|
||||
(MB.MARGINBAR.SELFN.TABS 39983 . 45223) (MB.MARGINBAR.SELFN.TABS.KIND 45225 . 46160) (
|
||||
MARGINBAR.GETSTATEFN 46162 . 50149) (MARGINBAR.SETSTATEFN 50151 . 50361) (MARGINBAR.NEUTRALIZE 50363
|
||||
. 51038) (MARGINBAR.LOOKS 51040 . 54146) (MB.MARGINBAR.SIZEFN 54148 . 54934) (MB.MARGINBAR.DISPLAYFN
|
||||
54936 . 57997) (MDESCALE 57999 . 58539) (MSCALE 58541 . 58871) (MB.MARGINBAR.SHOWTAB 58873 . 61196) (
|
||||
MB.MARGINBAR.TABTRACK 61198 . 62583) (MARGINBAR.INIT 62585 . 63978) (\TEDIT.PARALOOKS.TO.MARBAR 63980
|
||||
. 65414)) (66241 73558 (TEDIT.MENUSTREAM 66251 . 67251) (TEDITMENUP 67253 . 68222) (\TEDIT.MENU.START
|
||||
68224 . 72606) (\TEDIT.MENU.OPEN? 72608 . 72982) (\TEDIT.MENU.BUTTONEVENTFN 72984 . 73556)) (73877
|
||||
81928 (\TEDIT.MENU.CREATE 73887 . 75827) (\TEDIT.MENU.PARSE 75829 . 79518) (\TEDIT.MENU.NEUTRALIZE
|
||||
79520 . 81591) (\TEDITMENU.RECORD.UNFORMATTED 81593 . 81926)) (81994 101396 (
|
||||
\TEDIT.EXPANDEDMENU.CREATE 82004 . 87682) (\TEDIT.EXPANDEDMENU.START 87684 . 89308) (
|
||||
\TEDIT.EXPANDEDMENU.FN 89310 . 92565) (\TEDIT.EXPANDEDMENU.ACTIONFN 92567 . 101394)) (101458 120883 (
|
||||
\TEDIT.PARAMENU.CREATE 101468 . 110199) (\TEDIT.PARAMENU.START 110201 . 111455) (
|
||||
\TEDIT.APPLY.PARALOOKS 111457 . 112509) (\TEDIT.SHOW.PARALOOKS 112511 . 115228) (
|
||||
\TEDIT.PARAMENU.FILLIN 115230 . 119979) (\TEDIT.PARAMENU.RESHAPEFN 119981 . 120881)) (121077 147919 (
|
||||
\TEDIT.CHARMENU.CREATE 121087 . 123691) (\TEDIT.CHARMENU.START 123693 . 124983) (\TEDIT.CHARMENU.SPEC
|
||||
124985 . 129668) (\TEDIT.CHARMENU.PARSE 129670 . 132838) (\TEDIT.CHARMENU.FILLIN 132840 . 137470) (
|
||||
\TEDIT.SHOW.CHARLOOKS 137472 . 141017) (\TEDIT.APPLY.CHARLOOKS 141019 . 142180) (
|
||||
\TEDIT.OFFSETTYPE.STATEFN 142182 . 144145) (\TEDIT.OTHER.STATECHANGEFN 144147 . 145792) (
|
||||
\TEDIT.OTHER.SELECTFN 145794 . 147917)) (147981 177230 (\TEDIT.PAGEMENU.CREATE 147991 . 156512) (
|
||||
\TEDIT.PAGEMENU.START 156514 . 156865) (\TEDIT.SHOW.PAGELOOKS 156867 . 158888) (\TEDIT.PAGEMENU.FILLIN
|
||||
158890 . 160440) (\TEDIT.PAGEREGION.UNPARSE 160442 . 169841) (\TEDIT.APPLY.PAGELOOKS 169843 . 171770)
|
||||
(\TEDIT.CHANGE.PAGELOOKS 171772 . 176386) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176388 . 177228)) (
|
||||
177231 183034 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177241 . 180053) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN
|
||||
180055 . 181480) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181482 . 183032)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED " 1-May-2026 08:15:56" {MEDLEY}<library>tedit>TEDIT-STREAM.;956 190971
|
||||
(FILECREATED "10-May-2026 13:26:30" {MEDLEY}<library>TEDIT>TEDIT-STREAM.;957 191002
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (RECORDS PIECE)
|
||||
:CHANGES-TO (FNS \TEDIT.OPENTEXTFILE)
|
||||
|
||||
:PREVIOUS-DATE "26-Apr-2026 23:46:38" {MEDLEY}<library>tedit>TEDIT-STREAM.;955)
|
||||
:PREVIOUS-DATE " 1-May-2026 08:15:56" {MEDLEY}<library>TEDIT>TEDIT-STREAM.;956)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-STREAMCOMS)
|
||||
@@ -1642,7 +1642,8 @@
|
||||
(SETTOBJ TEXTOBJ DEFAULTPARALOOKS PARALOOKS])
|
||||
|
||||
(\TEDIT.OPENTEXTFILE
|
||||
[LAMBDA (TEXT PROPS ERROR) (* ; "Edited 2-Dec-2025 17:49 by rmk")
|
||||
[LAMBDA (TEXT PROPS ERROR) (* ; "Edited 10-May-2026 12:57 by rmk")
|
||||
(* ; "Edited 2-Dec-2025 17:49 by rmk")
|
||||
(* ; "Edited 16-Sep-2025 00:28 by rmk")
|
||||
(* ; "Edited 8-Sep-2025 21:52 by rmk")
|
||||
(* ; "Edited 21-Nov-2024 11:38 by rmk")
|
||||
@@ -1658,16 +1659,15 @@
|
||||
(STRINGP TEXT)
|
||||
(CL:PATHNAMEP TEXT)
|
||||
(STREAMP TEXT))
|
||||
(CAR (NLSETQ (OPENSTREAM (if (STREAMP TEXT)
|
||||
elseif (CL:PATHNAMEP TEXT)
|
||||
then (FINDFILE TEXT T)
|
||||
elseif (FINDFILE-WITH-EXTENSIONS TEXT NIL
|
||||
*TEDIT-EXTENSIONS*)
|
||||
else TEXT)
|
||||
(CAR (NLSETQ (OPENSTREAM (OR (STREAMP TEXT)
|
||||
(AND (CL:PATHNAMEP TEXT)
|
||||
(FINDFILE TEXT T))
|
||||
(FINDFILE-WITH-EXTENSIONS TEXT NIL
|
||||
*TEDIT-EXTENSIONS*)
|
||||
TEXT)
|
||||
'INPUT
|
||||
'OLD
|
||||
`((TYPE TEXT)
|
||||
(FORMAT ,(LISTGET PROPS 'FORMAT]
|
||||
`((FORMAT ,(LISTGET PROPS 'FORMAT]
|
||||
elseif ERROR
|
||||
then (ERROR "File not found:" TEXT)))])
|
||||
|
||||
@@ -3084,33 +3084,33 @@
|
||||
(ADDTOVAR LAMA TEXTPROP)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (36156 66033 (\TEDIT.TEXTBIN 36166 . 46068) (\TEDIT.TEXTPEEKBIN 46070 . 51495) (
|
||||
\TEDIT.TEXTBACKFILEPTR 51497 . 57204) (\TEDIT.TEXTBOUT 57206 . 61823) (\TEDIT.INSTALL.FILEBUFFER 61825
|
||||
. 66031)) (66931 71222 (\TEDIT.TEXTOUTCHARFN 66941 . 68497) (\TEDIT.TEXTINCCODEFN 68499 . 69238) (
|
||||
\TEDIT.TEXTBACKCCODEFN 69240 . 69832) (\TEDIT.TEXTFORMATBYTESTREAM 69834 . 70671) (
|
||||
\TEDIT.TEXTFORMATBYTESTRING 70673 . 71220)) (71269 83344 (OPENTEXTSTREAM 71279 . 78255) (
|
||||
COPYTEXTSTREAM 78257 . 82567) (TEDIT.STREAMCHANGEDP 82569 . 82871) (TXTFILE 82873 . 83342)) (83345
|
||||
106550 (\TEDIT.REOPENTEXTSTREAM 83355 . 84707) (\TEDIT.OPENTEXTSTREAM.PIECES 84709 . 89637) (
|
||||
\TEDIT.OPENTEXTSTREAM.PROPS 89639 . 90741) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90743 . 96193) (
|
||||
\TEDIT.OPENTEXTSTREAM.WINDOW 96195 . 98986) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 98988 . 100927) (
|
||||
\TEDIT.OPENTEXTFILE 100929 . 103061) (\TEDIT.CREATE.TEXTSTREAM 103063 . 104210) (\TEDIT.REOPEN.STREAM
|
||||
104212 . 106548)) (106551 114883 (\TEDIT.STREAMINIT 106561 . 114700) (TEDIT.IMAGESTREAM.OPEN 114702 .
|
||||
114881)) (115071 116259 (\TEDIT.TTYBOUT 115081 . 116257)) (116377 138060 (\TEDIT.TEXTCLOSEF 116387 .
|
||||
117711) (\TEDIT.TEXTDSPFONT 117713 . 118911) (\TEDIT.TEXTEOFP 118913 . 120668) (\TEDIT.TEXTGETEOFPTR
|
||||
120670 . 120993) (\TEDIT.TEXTSETEOFPTR 120995 . 122282) (\TEDIT.TEXTGETFILEPTR 122284 . 125119) (
|
||||
\TEDIT.TEXTSETFILEINFO 125121 . 125629) (\TEDIT.TEXTOPENF 125631 . 126562) (\TEDIT.TEXTSETEOF 126564
|
||||
. 127180) (\TEDIT.TEXTSETFILEPTR 127182 . 129292) (\TEDIT.TEXTDSPXPOSITION 129294 . 131997) (
|
||||
\TEDIT.TEXTDSPYPOSITION 131999 . 132740) (\TEDIT.TEXTLEFTMARGIN 132742 . 133333) (\TEDIT.TEXTCOLOR
|
||||
133335 . 133918) (\TEDIT.TEXTRIGHTMARGIN 133920 . 137209) (\TEDIT.TEXTDSPCHARWIDTH 137211 . 137515) (
|
||||
\TEDIT.TEXTDSPSTRINGWIDTH 137517 . 137823) (\TEDIT.TEXTDSPLINEFEED 137825 . 138058)) (138098 150332 (
|
||||
\TEDIT.NTHCHARCODE 138108 . 139634) (\TEDIT.PIECE.NTHCHARCODE 139636 . 143204) (\TEDIT.RPLCHARCODE
|
||||
143206 . 144764) (\TEDIT.PIECE.RPLCHARCODE 144766 . 149977) (\TEDIT.NTHCHARLOOKS 149979 . 150330)) (
|
||||
151379 172254 (\TEDIT.DELETE.SELPIECES 151389 . 155014) (\TEDIT.INSERTCH 155016 . 162821) (
|
||||
\TEDIT.INSERTCH.HISTORY 162823 . 166287) (\TEDIT.INSERTEOL 166289 . 168114) (\TEDIT.INSERTCH.INSERTION
|
||||
168116 . 170953) (\TEDIT.INSERTCH.EXTEND 170955 . 172252)) (172255 173862 (\TEDIT.NEXTCHANGEABLE.CHNO
|
||||
172265 . 172980) (\TEDIT.LASTCHANGEABLE.CHNO 172982 . 173860)) (173863 178652 (\TEDIT.INSTALL.PIECE
|
||||
173873 . 178650)) (178690 188156 (TEXTPROP 178700 . 179047) (GETTEXTPROP 179049 . 179293) (PUTTEXTPROP
|
||||
179295 . 179552) (GETTEXTPROPS 179554 . 179998) (PUTTEXTPROPS 180000 . 180904) (TEXTPROP.ADD 180906
|
||||
. 181169) (\TEDIT.TEXTPROP 181171 . 188154)) (188157 190534 (\TEDIT.TEXTOBJ.PROPNAMES 188167 . 189426
|
||||
) (\TEDIT.TEXTOBJ.PROPFETCHFN 189428 . 189944) (\TEDIT.TEXTOBJ.PROPSTOREFN 189946 . 190532)))))
|
||||
(FILEMAP (NIL (36166 66043 (\TEDIT.TEXTBIN 36176 . 46078) (\TEDIT.TEXTPEEKBIN 46080 . 51505) (
|
||||
\TEDIT.TEXTBACKFILEPTR 51507 . 57214) (\TEDIT.TEXTBOUT 57216 . 61833) (\TEDIT.INSTALL.FILEBUFFER 61835
|
||||
. 66041)) (66941 71232 (\TEDIT.TEXTOUTCHARFN 66951 . 68507) (\TEDIT.TEXTINCCODEFN 68509 . 69248) (
|
||||
\TEDIT.TEXTBACKCCODEFN 69250 . 69842) (\TEDIT.TEXTFORMATBYTESTREAM 69844 . 70681) (
|
||||
\TEDIT.TEXTFORMATBYTESTRING 70683 . 71230)) (71279 83354 (OPENTEXTSTREAM 71289 . 78265) (
|
||||
COPYTEXTSTREAM 78267 . 82577) (TEDIT.STREAMCHANGEDP 82579 . 82881) (TXTFILE 82883 . 83352)) (83355
|
||||
106581 (\TEDIT.REOPENTEXTSTREAM 83365 . 84717) (\TEDIT.OPENTEXTSTREAM.PIECES 84719 . 89647) (
|
||||
\TEDIT.OPENTEXTSTREAM.PROPS 89649 . 90751) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90753 . 96203) (
|
||||
\TEDIT.OPENTEXTSTREAM.WINDOW 96205 . 98996) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 98998 . 100937) (
|
||||
\TEDIT.OPENTEXTFILE 100939 . 103092) (\TEDIT.CREATE.TEXTSTREAM 103094 . 104241) (\TEDIT.REOPEN.STREAM
|
||||
104243 . 106579)) (106582 114914 (\TEDIT.STREAMINIT 106592 . 114731) (TEDIT.IMAGESTREAM.OPEN 114733 .
|
||||
114912)) (115102 116290 (\TEDIT.TTYBOUT 115112 . 116288)) (116408 138091 (\TEDIT.TEXTCLOSEF 116418 .
|
||||
117742) (\TEDIT.TEXTDSPFONT 117744 . 118942) (\TEDIT.TEXTEOFP 118944 . 120699) (\TEDIT.TEXTGETEOFPTR
|
||||
120701 . 121024) (\TEDIT.TEXTSETEOFPTR 121026 . 122313) (\TEDIT.TEXTGETFILEPTR 122315 . 125150) (
|
||||
\TEDIT.TEXTSETFILEINFO 125152 . 125660) (\TEDIT.TEXTOPENF 125662 . 126593) (\TEDIT.TEXTSETEOF 126595
|
||||
. 127211) (\TEDIT.TEXTSETFILEPTR 127213 . 129323) (\TEDIT.TEXTDSPXPOSITION 129325 . 132028) (
|
||||
\TEDIT.TEXTDSPYPOSITION 132030 . 132771) (\TEDIT.TEXTLEFTMARGIN 132773 . 133364) (\TEDIT.TEXTCOLOR
|
||||
133366 . 133949) (\TEDIT.TEXTRIGHTMARGIN 133951 . 137240) (\TEDIT.TEXTDSPCHARWIDTH 137242 . 137546) (
|
||||
\TEDIT.TEXTDSPSTRINGWIDTH 137548 . 137854) (\TEDIT.TEXTDSPLINEFEED 137856 . 138089)) (138129 150363 (
|
||||
\TEDIT.NTHCHARCODE 138139 . 139665) (\TEDIT.PIECE.NTHCHARCODE 139667 . 143235) (\TEDIT.RPLCHARCODE
|
||||
143237 . 144795) (\TEDIT.PIECE.RPLCHARCODE 144797 . 150008) (\TEDIT.NTHCHARLOOKS 150010 . 150361)) (
|
||||
151410 172285 (\TEDIT.DELETE.SELPIECES 151420 . 155045) (\TEDIT.INSERTCH 155047 . 162852) (
|
||||
\TEDIT.INSERTCH.HISTORY 162854 . 166318) (\TEDIT.INSERTEOL 166320 . 168145) (\TEDIT.INSERTCH.INSERTION
|
||||
168147 . 170984) (\TEDIT.INSERTCH.EXTEND 170986 . 172283)) (172286 173893 (\TEDIT.NEXTCHANGEABLE.CHNO
|
||||
172296 . 173011) (\TEDIT.LASTCHANGEABLE.CHNO 173013 . 173891)) (173894 178683 (\TEDIT.INSTALL.PIECE
|
||||
173904 . 178681)) (178721 188187 (TEXTPROP 178731 . 179078) (GETTEXTPROP 179080 . 179324) (PUTTEXTPROP
|
||||
179326 . 179583) (GETTEXTPROPS 179585 . 180029) (PUTTEXTPROPS 180031 . 180935) (TEXTPROP.ADD 180937
|
||||
. 181200) (\TEDIT.TEXTPROP 181202 . 188185)) (188188 190565 (\TEDIT.TEXTOBJ.PROPNAMES 188198 . 189457
|
||||
) (\TEDIT.TEXTOBJ.PROPFETCHFN 189459 . 189975) (\TEDIT.TEXTOBJ.PROPSTOREFN 189977 . 190563)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED " 7-Feb-2026 18:53:22" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;896 234678
|
||||
(FILECREATED "10-May-2026 18:05:02" {MEDLEY}<library>tedit>TEDIT-WINDOW.;899 235055
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS TEDIT.PROMPTPRINT)
|
||||
:CHANGES-TO (FNS TEDIT.DEACTIVATE.WINDOW \TEDIT.WINDOW.GETREGION)
|
||||
|
||||
:PREVIOUS-DATE " 5-Feb-2026 08:24:23" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;895)
|
||||
:PREVIOUS-DATE " 7-Feb-2026 18:53:22" {MEDLEY}<library>tedit>TEDIT-WINDOW.;896)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-WINDOWCOMS)
|
||||
@@ -458,7 +458,8 @@
|
||||
WINDOW])
|
||||
|
||||
(\TEDIT.WINDOW.GETREGION
|
||||
[LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 5-Feb-2026 08:24 by rmk")
|
||||
[LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 10-May-2026 16:32 by rmk")
|
||||
(* ; "Edited 5-Feb-2026 08:24 by rmk")
|
||||
(* ; "Edited 27-Jan-2026 15:30 by rmk")
|
||||
(* ; "Edited 25-Jan-2026 20:09 by rmk")
|
||||
(* ; "Edited 25-Oct-2025 10:27 by rmk")
|
||||
@@ -552,7 +553,7 @@
|
||||
(CL:WHEN (TXTFILE TSTREAM)
|
||||
(printout PROMPTWINDOW " for " 2 (GETTEXTPROP TSTREAM 'FILENAME)))
|
||||
(TERPRI PROMPTWINDOW)
|
||||
(GETBOXREGION WIDTH HEIGHT])
|
||||
(GETREGION WIDTH HEIGHT])
|
||||
|
||||
(\TEDIT.WINDOW.SETUP
|
||||
[LAMBDA (PANE TSTREAM PROPS AFTERPANE LCHAR1) (* ; "Edited 15-Jan-2026 10:35 by rmk")
|
||||
@@ -2393,7 +2394,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(TEDIT.DEACTIVATE.WINDOW
|
||||
[LAMBDA (PANE) (* ; "Edited 30-May-2025 12:54 by rmk")
|
||||
[LAMBDA (PANE) (* ; "Edited 10-May-2026 18:03 by rmk")
|
||||
(* ; "Edited 30-May-2025 12:54 by rmk")
|
||||
(* ; "Edited 9-May-2025 14:54 by rmk")
|
||||
(* ; "Edited 6-May-2025 15:57 by rmk")
|
||||
(* ; "Edited 4-May-2025 21:45 by rmk")
|
||||
@@ -2455,7 +2457,10 @@
|
||||
"Close the file that this window was open on.")
|
||||
(CL:UNLESS (fetch (TEXTWINDOW CLOSINGFILE) of PANEWINDOW)
|
||||
(replace (TEXTWINDOW CLOSINGFILE) of PANEWINDOW with T)
|
||||
(CLOSEF? (FGETTOBJ TEXTOBJ TXTFILE)))) (* ; "Close any open menus")
|
||||
(CLOSEF? (FGETTOBJ TEXTOBJ TXTFILE))))
|
||||
(CL:WHEN (FGETTOBJ TEXTOBJ MENUFLG) (* ;
|
||||
"This is a menu, detach it so that space closes up")
|
||||
(FREEATTACHEDWINDOW PANEWINDOW)) (* ; " Close any open menus")
|
||||
(for MENUW MTEXTOBJ in (ATTACHEDWINDOWS PANE) when (AND (SETQ MTEXTOBJ (TEXTOBJ MENUW T))
|
||||
(FGETTOBJ MTEXTOBJ MENUFLG))
|
||||
do
|
||||
@@ -2463,12 +2468,9 @@
|
||||
|
||||
(FSETTOBJ MTEXTOBJ EDITFINISHEDFLG T)
|
||||
(WINDOWPROP MENUW 'TEDITMENU NIL)
|
||||
(GIVE.TTY.PROCESS MENUW))
|
||||
(\TEDIT.CLOSEPANE PANE T) (* ; "We're already closing")
|
||||
|
||||
(* ;; "Let it kill itself")
|
||||
|
||||
(GIVE.TTY.PROCESS PANE])
|
||||
(TEDIT.KILL MTEXTOBJ))
|
||||
(\TEDIT.CLOSEPANE PANE T)
|
||||
(TEDIT.KILL TSTREAM])
|
||||
|
||||
(\TEDIT.RESHAPEFN
|
||||
[LAMBDA (PANE BITS OLDREGION) (* ; "Edited 20-Apr-2025 12:55 by rmk")
|
||||
@@ -3698,36 +3700,36 @@
|
||||
(RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _
|
||||
TEDIT.ICON.TITLE.REGION))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (17097 17993 (TEDIT.DEFER.UPDATES 17107 . 17991)) (17994 46195 (\TEDIT.WINDOW.CREATE
|
||||
18004 . 24867) (\TEDIT.WINDOW.GETREGION 24869 . 30356) (\TEDIT.WINDOW.SETUP 30358 . 34865) (
|
||||
\TEDIT.MINIMAL.WINDOW.SETUP 34867 . 42827) (\TEDIT.CLEARPANE 42829 . 43546) (\TEDIT.FILL.PANES 43548
|
||||
. 46193)) (46196 69923 (\TEDIT.CURSORMOVEDFN 46206 . 51733) (\TEDIT.CURSOROUTFN 51735 . 52532) (
|
||||
\TEDIT.ACTIVE.WINDOWP 52534 . 53604) (\TEDIT.EXPANDFN 53606 . 54169) (\TEDIT.MAINW 54171 . 55451) (
|
||||
\TEDIT.MAINSTREAM 55453 . 55787) (\TEDIT.PRIMARYPANE 55789 . 56559) (\TEDIT.PANELIST 56561 . 57057) (
|
||||
\TEDIT.NEWREGIONFN 57059 . 59575) (\TEDIT.SET.WINDOW.EXTENT 59577 . 64559) (\TEDIT.SHRINK.ICONCREATE
|
||||
64561 . 67294) (\TEDIT.SHRINKFN 67296 . 67705) (\TEDIT.PANEREGION 67707 . 69921)) (69955 105080 (
|
||||
\TEDIT.BUTTONEVENTFN 69965 . 84672) (\TEDIT.BUTTONEVENTFN.DOOPERATION 84674 . 92145) (
|
||||
\TEDIT.BUTTONEVENTFN.GETOPERATION 92147 . 93989) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 93991 . 97661) (
|
||||
\TEDIT.BUTTONEVENTFN.INACTIVE 97663 . 100093) (\TEDIT.BUTTONEVENTFN.INTITLE 100095 . 101930) (
|
||||
\TEDIT.COPYINSERTFN 101932 . 103064) (\TEDIT.FOREIGN.COPY 103066 . 105078)) (105081 122644 (
|
||||
\TEDIT.PANE.SPLIT 105091 . 109039) (\TEDIT.SPLITW 109041 . 117100) (\TEDIT.UNSPLITW 117102 . 121301) (
|
||||
\TEDIT.LINKPANES 121303 . 122066) (\TEDIT.UNLINKPANE 122068 . 122642)) (124078 124969 (TEDITWINDOWP
|
||||
124088 . 124967)) (125006 128109 (TEDIT.GETINPUT 125016 . 127459) (\TEDIT.MAKEFILENAME 127461 . 128107
|
||||
)) (128158 136241 (TEDIT.PROMPTWINDOW 128168 . 128482) (TEDIT.PROMPTPRINT 128484 . 131451) (
|
||||
TEDIT.PROMPTCLEAR 131453 . 133288) (TEDIT.PROMPTFLASH 133290 . 134548) (\TEDIT.PROMPT.PAGEFULLFN
|
||||
134550 . 136239)) (136479 147057 (\TEDIT.FILENAME 136489 . 137261) (\TEDIT.DEFAULT.TITLE 137263 .
|
||||
139642) (\TEDIT.WINDOW.TITLE 139644 . 141813) (\TEDIT.LIKELY.FILENAME 141815 . 144539) (
|
||||
\TEDIT.UPDATE.TITLE 144541 . 147055)) (147100 159584 (TEDIT.DEACTIVATE.WINDOW 147110 . 152683) (
|
||||
\TEDIT.RESHAPEFN 152685 . 154770) (\TEDIT.REPAINTFN 154772 . 154996) (\TEDIT.CLOSESPLITS 154998 .
|
||||
157443) (\TEDIT.CLOSEPANE 157445 . 159582)) (159585 202384 (\TEDIT.SCROLLFN 159595 . 161826) (
|
||||
\TEDIT.SCROLLCH.TOP 161828 . 163939) (\TEDIT.SCROLLCH.BOTTOM 163941 . 168271) (\TEDIT.SCROLLUP 168273
|
||||
. 173999) (\TEDIT.TOPLINE.YTOP 174001 . 175670) (\TEDIT.SCROLLDOWN 175672 . 182711) (
|
||||
\TEDIT.SCROLL.CARET 182713 . 185551) (\TEDIT.VISIBLECARETP 185553 . 187847) (\TEDIT.VISIBLECHARP
|
||||
187849 . 188940) (\TEDIT.BITMAPLINES 188942 . 192862) (\TEDIT.SETPANE.TOPLINE 192864 . 193476) (
|
||||
\TEDIT.SHIFTLINES 193478 . 202382)) (202385 213254 (\TEDIT.ONSCREEN? 202395 . 206946) (
|
||||
\TEDIT.ONSCREEN.REGION 206948 . 210599) (\TEDIT.AFTERMOVEFN 210601 . 211498) (OFFSCREENP 211500 .
|
||||
213252)) (213296 216110 (\TEDIT.PROCIDLEFN 213306 . 214966) (\TEDIT.PROCENTRYFN 214968 . 215413) (
|
||||
\TEDIT.PROCEXITFN 215415 . 216108)) (216189 229414 (\TEDIT.DOWNCARET 216199 . 216992) (
|
||||
\TEDIT.FLASHCARET 216994 . 219105) (\TEDIT.UPCARET 219107 . 220211) (TEDIT.NORMALIZECARET 220213 .
|
||||
223431) (\TEDIT.SETCARET 223433 . 228784) (\TEDIT.CARET 228786 . 229412)))))
|
||||
(FILEMAP (NIL (17125 18021 (TEDIT.DEFER.UPDATES 17135 . 18019)) (18022 46329 (\TEDIT.WINDOW.CREATE
|
||||
18032 . 24895) (\TEDIT.WINDOW.GETREGION 24897 . 30490) (\TEDIT.WINDOW.SETUP 30492 . 34999) (
|
||||
\TEDIT.MINIMAL.WINDOW.SETUP 35001 . 42961) (\TEDIT.CLEARPANE 42963 . 43680) (\TEDIT.FILL.PANES 43682
|
||||
. 46327)) (46330 70057 (\TEDIT.CURSORMOVEDFN 46340 . 51867) (\TEDIT.CURSOROUTFN 51869 . 52666) (
|
||||
\TEDIT.ACTIVE.WINDOWP 52668 . 53738) (\TEDIT.EXPANDFN 53740 . 54303) (\TEDIT.MAINW 54305 . 55585) (
|
||||
\TEDIT.MAINSTREAM 55587 . 55921) (\TEDIT.PRIMARYPANE 55923 . 56693) (\TEDIT.PANELIST 56695 . 57191) (
|
||||
\TEDIT.NEWREGIONFN 57193 . 59709) (\TEDIT.SET.WINDOW.EXTENT 59711 . 64693) (\TEDIT.SHRINK.ICONCREATE
|
||||
64695 . 67428) (\TEDIT.SHRINKFN 67430 . 67839) (\TEDIT.PANEREGION 67841 . 70055)) (70089 105214 (
|
||||
\TEDIT.BUTTONEVENTFN 70099 . 84806) (\TEDIT.BUTTONEVENTFN.DOOPERATION 84808 . 92279) (
|
||||
\TEDIT.BUTTONEVENTFN.GETOPERATION 92281 . 94123) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 94125 . 97795) (
|
||||
\TEDIT.BUTTONEVENTFN.INACTIVE 97797 . 100227) (\TEDIT.BUTTONEVENTFN.INTITLE 100229 . 102064) (
|
||||
\TEDIT.COPYINSERTFN 102066 . 103198) (\TEDIT.FOREIGN.COPY 103200 . 105212)) (105215 122778 (
|
||||
\TEDIT.PANE.SPLIT 105225 . 109173) (\TEDIT.SPLITW 109175 . 117234) (\TEDIT.UNSPLITW 117236 . 121435) (
|
||||
\TEDIT.LINKPANES 121437 . 122200) (\TEDIT.UNLINKPANE 122202 . 122776)) (124212 125103 (TEDITWINDOWP
|
||||
124222 . 125101)) (125140 128243 (TEDIT.GETINPUT 125150 . 127593) (\TEDIT.MAKEFILENAME 127595 . 128241
|
||||
)) (128292 136375 (TEDIT.PROMPTWINDOW 128302 . 128616) (TEDIT.PROMPTPRINT 128618 . 131585) (
|
||||
TEDIT.PROMPTCLEAR 131587 . 133422) (TEDIT.PROMPTFLASH 133424 . 134682) (\TEDIT.PROMPT.PAGEFULLFN
|
||||
134684 . 136373)) (136613 147191 (\TEDIT.FILENAME 136623 . 137395) (\TEDIT.DEFAULT.TITLE 137397 .
|
||||
139776) (\TEDIT.WINDOW.TITLE 139778 . 141947) (\TEDIT.LIKELY.FILENAME 141949 . 144673) (
|
||||
\TEDIT.UPDATE.TITLE 144675 . 147189)) (147234 159961 (TEDIT.DEACTIVATE.WINDOW 147244 . 153060) (
|
||||
\TEDIT.RESHAPEFN 153062 . 155147) (\TEDIT.REPAINTFN 155149 . 155373) (\TEDIT.CLOSESPLITS 155375 .
|
||||
157820) (\TEDIT.CLOSEPANE 157822 . 159959)) (159962 202761 (\TEDIT.SCROLLFN 159972 . 162203) (
|
||||
\TEDIT.SCROLLCH.TOP 162205 . 164316) (\TEDIT.SCROLLCH.BOTTOM 164318 . 168648) (\TEDIT.SCROLLUP 168650
|
||||
. 174376) (\TEDIT.TOPLINE.YTOP 174378 . 176047) (\TEDIT.SCROLLDOWN 176049 . 183088) (
|
||||
\TEDIT.SCROLL.CARET 183090 . 185928) (\TEDIT.VISIBLECARETP 185930 . 188224) (\TEDIT.VISIBLECHARP
|
||||
188226 . 189317) (\TEDIT.BITMAPLINES 189319 . 193239) (\TEDIT.SETPANE.TOPLINE 193241 . 193853) (
|
||||
\TEDIT.SHIFTLINES 193855 . 202759)) (202762 213631 (\TEDIT.ONSCREEN? 202772 . 207323) (
|
||||
\TEDIT.ONSCREEN.REGION 207325 . 210976) (\TEDIT.AFTERMOVEFN 210978 . 211875) (OFFSCREENP 211877 .
|
||||
213629)) (213673 216487 (\TEDIT.PROCIDLEFN 213683 . 215343) (\TEDIT.PROCENTRYFN 215345 . 215790) (
|
||||
\TEDIT.PROCEXITFN 215792 . 216485)) (216566 229791 (\TEDIT.DOWNCARET 216576 . 217369) (
|
||||
\TEDIT.FLASHCARET 217371 . 219482) (\TEDIT.UPCARET 219484 . 220588) (TEDIT.NORMALIZECARET 220590 .
|
||||
223808) (\TEDIT.SETCARET 223810 . 229161) (\TEDIT.CARET 229163 . 229789)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user