From 63d5849a157c0d883828407bbf232b3d2da71eac Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Thu, 3 Jul 2025 00:06:10 -0700 Subject: [PATCH] Rmk88 split screen updates and color, eliminate reliance on STREAMHINT xpointer (#2119) * Tedit window splitting is more robust, interface through menu items instead of split-region on the right of the window. See TEDIT-RELEASENOTES.TEDIT * Tedit recognizes color as specfied by DSPCOLOR, passes it to hardcopy * N-way buttons default to unsorted--new items go at the end. Otherwise keyboard shortcut meta-3 for the 3rd font might pick a different one depending on what went before. * USER.CM can be specified as an opening property for Bravo conversion. * Adresses/fixes Tedit issues #2173 #2172 #2171 #2142 #2105 #2062 #2059 #1972 (maybe some others). * Changes to rationalize internal interfaces and simplify code, and particularly to eliminate internal dependencies on the STREAMHINT Xpointer backlink. STREAMHINT is only accessed if a client has grabbed the TEXTOBJ and passes it back in. The stream and window are the safe/reliable way of referencing the Tedit state (and the window and stream know about each other, and know about the TEXTOBJ only through the stream). * Many changes to TEDIT-STRESS, including new defaults CHECKARRAYS NIL, NSYSOUTS 0, ARRAYBLOCKCHECKING T * lispusers/EQUATIONS: image object no longer saves state on the stream, not the window (which may not be there). * Rename CHARNAME to be CHARCODE.ENCODE, parallel to CHARCODE.DECODE --- internal/TEDIT-DEBUG | 293 +++-- internal/TEDIT-DEBUG.LCOM | Bin 61959 -> 62121 bytes library/tedit/TEDIT | 560 +++++---- library/tedit/TEDIT-ABBREV | 18 +- library/tedit/TEDIT-ABBREV.LCOM | Bin 5019 -> 5024 bytes library/tedit/TEDIT-BUTTONS | 106 +- library/tedit/TEDIT-BUTTONS.LCOM | Bin 35180 -> 35426 bytes library/tedit/TEDIT-CHAT | 91 +- library/tedit/TEDIT-CHAT.LCOM | Bin 5406 -> 4965 bytes library/tedit/TEDIT-COMMAND.LCOM | Bin 5644 -> 5681 bytes library/tedit/TEDIT-FILE | 259 ++-- library/tedit/TEDIT-FILE.LCOM | Bin 38658 -> 39403 bytes library/tedit/TEDIT-FIND | 58 +- library/tedit/TEDIT-FIND.LCOM | Bin 9247 -> 9201 bytes library/tedit/TEDIT-FNKEYS | 697 ++++++---- library/tedit/TEDIT-FNKEYS.LCOM | Bin 37368 -> 39959 bytes library/tedit/TEDIT-HCPY | 295 +++-- library/tedit/TEDIT-HCPY.LCOM | Bin 12514 -> 12117 bytes library/tedit/TEDIT-HISTORY | 558 ++++---- library/tedit/TEDIT-HISTORY.LCOM | Bin 13365 -> 15326 bytes library/tedit/TEDIT-LOOKS | 351 +++--- library/tedit/TEDIT-LOOKS.LCOM | Bin 38955 -> 39783 bytes library/tedit/TEDIT-MENU | 621 ++++++--- library/tedit/TEDIT-MENU.LCOM | Bin 47358 -> 54449 bytes library/tedit/TEDIT-OLDFILE.LCOM | Bin 17524 -> 17500 bytes library/tedit/TEDIT-PAGE | 485 +++---- library/tedit/TEDIT-PAGE.LCOM | Bin 28839 -> 29399 bytes library/tedit/TEDIT-PCTREE.LCOM | Bin 13624 -> 13603 bytes library/tedit/TEDIT-RELEASENOTES.TEDIT | Bin 36150 -> 39636 bytes library/tedit/TEDIT-SCREEN | 1058 ++++++++-------- library/tedit/TEDIT-SCREEN.LCOM | Bin 31683 -> 33793 bytes library/tedit/TEDIT-SELECTION | 859 +++++++------ library/tedit/TEDIT-SELECTION.LCOM | Bin 30293 -> 31599 bytes library/tedit/TEDIT-STREAM | 621 +++++---- library/tedit/TEDIT-STREAM.LCOM | Bin 37165 -> 38109 bytes library/tedit/TEDIT-STRESS | 772 +++++++++--- library/tedit/TEDIT-STRESS.LCOM | Bin 10895 -> 32051 bytes library/tedit/TEDIT-STYLES.LCOM | Bin 4162 -> 4143 bytes library/tedit/TEDIT-TFBRAVO | 163 ++- library/tedit/TEDIT-TFBRAVO.LCOM | Bin 27112 -> 28028 bytes library/tedit/TEDIT-WINDOW | 1606 +++++++++++------------- library/tedit/TEDIT-WINDOW.LCOM | Bin 65925 -> 63156 bytes library/tedit/TEDIT.LCOM | Bin 32146 -> 33173 bytes library/tedit/TOPLINE.TEDIT | Bin 0 -> 1685 bytes library/tedit/tedit-exports.all | 141 ++- lispusers/EQUATIONS | 73 +- lispusers/EQUATIONS.LCOM | Bin 28135 -> 28172 bytes 47 files changed, 5481 insertions(+), 4204 deletions(-) create mode 100644 library/tedit/TOPLINE.TEDIT diff --git a/internal/TEDIT-DEBUG b/internal/TEDIT-DEBUG index f8932328..ef2817ba 100644 --- a/internal/TEDIT-DEBUG +++ b/internal/TEDIT-DEBUG @@ -1,13 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "29-Mar-2025 22:37:05" {WMEDLEY}TEDIT-DEBUG.;143 131559 +(FILECREATED "31-May-2025 10:30:31" {WMEDLEY}TEDIT-DEBUG.;170 138250 :EDIT-BY rmk - :CHANGES-TO (MACROS DEBUGOUTPUT) - (FNS SP SL SSP SPF STL TEST.TEMPLATE) + :CHANGES-TO (FNS \TLVALIDATE) - :PREVIOUS-DATE "28-Mar-2025 20:51:43" {WMEDLEY}TEDIT-DEBUG.;141) + :PREVIOUS-DATE "30-May-2025 23:51:11" {WMEDLEY}TEDIT-DEBUG.;168) (PRETTYCOMPRINT TEDIT-DEBUGCOMS) @@ -23,7 +22,8 @@ (* ;;  "This is stored in internal/ so that it remains compatible with the commits/branches/PRs/releases.") - (VARS (\TEDIT.THELPFLG T)) + (VARS (\TEDIT.THELPFLG T) + (TFILES (CONS 'TEDIT-DEBUG TEDITFILES))) (COMS (* ;  "Get/set (default) object, stream, window, selection") (FNS GTO GTS GTW GSEL) @@ -34,7 +34,7 @@ (FNS IPC ILINES ISEL ITS IPANES ITL IHIST IPCTB IMB ICL IPL ICARET INSPECTPIECES)) (COMS (* ; "Show") (FNS SP SL SSP SPF SLF SHOWLINE SLL STBYTES SSEL) - (FNS STL CLEARTHISLINE)) + (FNS STL CLEARTHISLINE CHARSLOTP \TLVALIDATE)) (COMS (FNS NTHPIECE NPIECES NTHPIECECHAR SELPIECE PIECENUM PCBYTES)) (COMS (FNS FILEBYTES TFILEBYTES)) (FNS TRELMOVE TSCROLL TSCROLL*) @@ -68,8 +68,10 @@ (FNS DFVENUE VSEE) (FNS PTT) (* ; "Plain text") - (MACROS DEBUGOUTPUT) + (COMS (MACROS DEBUGOUTPUT) + (FNS DEBUGOUTPUT.STREAM)) (FNS TEDIT-DEBUG) + (FNS HEXTOHILO CW) (FNS TRENAME) (FILES (NOERROR) VERSIONDEFS) @@ -100,6 +102,8 @@ (RPAQQ \TEDIT.THELPFLG T) +(RPAQ TFILES (CONS 'TEDIT-DEBUG TEDITFILES)) + (* ; "Get/set (default) object, stream, window, selection") @@ -157,11 +161,18 @@ (DEFINEQ (TEST.TEMPLATE - [LAMBDA (FILE) (* ; "Edited 29-Mar-2025 09:51 by rmk") - (CL:WHEN (AND (TEXTSTREAM LASTTEXTSTREAM) + [LAMBDA (FILE) (* ; "Edited 17-Apr-2025 19:41 by rmk") + (* ; "Edited 29-Mar-2025 09:51 by rmk") + (CL:WHEN (AND (TEXTSTREAM LASTTEXTSTREAM T) (TEDITWINDOWP LASTTEXTSTREAM) (OPENWP (TEDITWINDOWP LASTTEXTSTREAM))) - (TEXTPROP LASTTEXTSTREAM 'DIRTY NIL) + (for ST SW in (GETTEXTPROP LASTTEXTSTREAM 'SHOWSTREAMS) when (AND (SETQ SW ( + \TEDIT.PRIMARYPANE + ST)) + (OPENWP SW)) + do (PUTTEXTPROP ST 'DIRTY NIL) + (CLOSEW SW)) + (PUTTEXTPROP LASTTEXTSTREAM 'DIRTY NIL) (CLOSEW (TEDITWINDOWP LASTTEXTSTREAM))) (LET [(TSTREAM (TEXTSTREAM (TEDIT FILE NIL NIL '(LEAVETTY T] (SETQ LASTTEXTSTREAM TSTREAM) @@ -444,7 +455,10 @@ (DEFINEQ (SP - [LAMBDA (PC NP OFILE TOBJ FONT NOCR) (* ; "Edited 29-Mar-2025 22:34 by rmk") + [LAMBDA (PC NP OFILE TOBJ FONT NOCR) (* ; "Edited 17-Apr-2025 13:37 by rmk") + (* ; "Edited 15-Apr-2025 13:53 by rmk") + (* ; "Edited 11-Apr-2025 12:15 by rmk") + (* ; "Edited 29-Mar-2025 22:34 by rmk") (* ; "Edited 6-Jan-2025 22:18 by rmk") (* ; "Edited 16-Dec-2024 15:50 by rmk") (* ; "Edited 30-Nov-2024 19:34 by rmk") @@ -502,8 +516,7 @@ (SETQ NP (CL:IF NP 20 MAX.SMALLP))) - (DEBUGOUTPUT OFILE WTYPE TITLE (DSPFONT (OR FONT '(TERMINAL 8)) - OFILE) + (DEBUGOUTPUT [DEBUGOUTPUT.STREAM OFILE WTYPE TITLE 120 (OR FONT '(TERMINAL 8] (for P PFILES inpieces PC as I from 1 to NP as PCNO from (OR (PIECENUM PC TEXTOBJ) 1) do @@ -521,11 +534,16 @@ OLDVALUE]) (PRINTOUT OFILE .I3 PCNO "/") (SPPRINT P OFILE TEXTOBJ NOCR)) - (TERPRI OFILE)) + (TERPRI OFILE) + (CL:WHEN (TEXTSTREAMP OFILE) + (TEXTPROP.ADD TEXTOBJ 'SHOWSTREAMS OFILE))) (RETURN PC]) (SL - [LAMBDA (FIRSTLINE LASTLINE PANE TOBJ OFILE) (* ; "Edited 29-Mar-2025 20:27 by rmk") + [LAMBDA (FIRSTLINE LASTLINE PANE TOBJ OFILE) (* ; "Edited 17-Apr-2025 13:36 by rmk") + (* ; "Edited 15-Apr-2025 13:57 by rmk") + (* ; "Edited 11-Apr-2025 12:15 by rmk") + (* ; "Edited 29-Mar-2025 20:27 by rmk") (* ; "Edited 21-Jan-2025 15:39 by rmk") (* ; "Edited 6-Jan-2025 22:58 by rmk") (* ; "Edited 7-Dec-2024 16:34 by rmk") @@ -537,9 +555,6 @@ (* ; "Edited 27-Oct-2024 18:38 by rmk") (* ; "Edited 25-Oct-2024 22:25 by rmk") (* ; "Edited 21-Oct-2024 23:08 by rmk") - - (* ;; "Shows a selection of the lines backing the display in PANE") - (LET (LINES WTYPE PNO TITLE) (if OFILE then (CL:WHEN (MEMB OFILE '(T TEDIT)) @@ -564,8 +579,9 @@ (SETQ TOBJ (pop LINES)) (SETQ PANE (pop LINES)) (SETQ PNO (pop LINES)) - (DEBUGOUTPUT OFILE WTYPE TITLE (PRINTOUT OFILE .FONT '(TERMINAL 8) - "Pane " PNO " = " PANE T) + (DEBUGOUTPUT (DEBUGOUTPUT.STREAM OFILE WTYPE TITLE NIL '(TERMINAL 8)) + (PRINTOUT OFILE .FONT '(TERMINAL 8) + "Pane " PNO " = " PANE T) (PRINTOUT OFILE .FONT '(TERMINAL 8) 15 "HT" -3 "BOT" 27 .FONT '(TERMINAL 8 BOLD) "C1" 36 "CN" .FONT '(TERMINAL 8) @@ -577,11 +593,14 @@ (TERPRI OFILE) (CL:WHEN (EQ FIRSTLINE LASTLINE) (printout OFILE (for L inlines (FGETLD LASTLINE NEXTLINE) sum 1) - " lines below LASTLINE" T T))) + " lines below LASTLINE" T T)) + (CL:WHEN (TEXTSTREAMP OFILE) + (TEXTPROP.ADD TOBJ 'SHOWSTREAMS OFILE))) FIRSTLINE]) (SSP - [LAMBDA (SELPIECES NP OFILE TEXTOBJ) (* ; "Edited 29-Mar-2025 22:35 by rmk") + [LAMBDA (SELPIECES NP OFILE TEXTOBJ) (* ; "Edited 11-Apr-2025 12:16 by rmk") + (* ; "Edited 29-Mar-2025 22:35 by rmk") (* ; "Edited 30-Jan-2025 11:25 by rmk") (* ; "Edited 26-Nov-2024 20:54 by rmk") (* ; "Edited 3-Mar-2024 12:58 by rmk") @@ -600,15 +619,16 @@ then (SETQ TEXTOBJ (TEXTOBJ OFILE)) (SETQ OFILE NIL) else (GTO TEXTOBJ)) - (DEBUGOUTPUT OFILE (CL:UNLESS OFILE 'SSP) - NIL + (DEBUGOUTPUT (DEBUGOUTPUT.STREAM OFILE (CL:UNLESS OFILE 'SSP) + NIL) (for PC inselpieces SELPIECES as I from 1 to (OR NP 50) do (PRINTOUT OFILE .I3 I "/") (SPPRINT PC OFILE TEXTOBJ))) SELPIECES]) (SPF - [LAMBDA (ARG TITLE OFILE) (* ; "Edited 29-Mar-2025 22:36 by rmk") + [LAMBDA (ARG TITLE OFILE) (* ; "Edited 11-Apr-2025 12:16 by rmk") + (* ; "Edited 29-Mar-2025 22:36 by rmk") (* ; "Edited 30-Aug-2024 21:25 by rmk") (* ; "Edited 15-Aug-2024 22:39 by rmk") (* ; "Edited 13-Aug-2024 10:45 by rmk") @@ -627,9 +647,10 @@ (SETQ TEXTOBJ (TEXTOBJ (\TEDIT.MAINW TEXTOBJ)))) (SETQ PAGEREGIONS (GETTOBJ TEXTOBJ TXTPAGEFRAMES))) (SETQ TITLE (CONCAT "Page regions for " (OR TITLE TEXTOBJ PAGEREGIONS))) - (DEBUGOUTPUT OFILE 'SPF TITLE (PRINTOUT OFILE .FONT '(TERMINAL 8 BOLD) - TITLE .FONT '(TERMINAL 8) - T) + (DEBUGOUTPUT (DEBUGOUTPUT.STREAM OFILE 'SPF TITLE) + (PRINTOUT OFILE .FONT '(TERMINAL 8 BOLD) + TITLE .FONT '(TERMINAL 8) + T) (for TYPE PF (FIRSTPF _ (TEDIT.GET.PAGEFORMAT PAGEREGIONS 'FIRST/DEFAULT)) in '(FIRST/DEFAULT LEFT RIGHT) collect (SETQ PF (TEDIT.GET.PAGEFORMAT PAGEREGIONS TYPE)) @@ -912,7 +933,8 @@ (DEFINEQ (STL - [LAMBDA (THISLINE LASTCS LCHAR1 OFILE) (* ; "Edited 29-Mar-2025 22:36 by rmk") + [LAMBDA (THISLINE LASTCS LCHAR1 OFILE) (* ; "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") (* ; "Edited 31-Jul-2024 19:55 by rmk") @@ -933,12 +955,13 @@ (SETQ LASTCS CHARSLOT)) (SETQ THISLINE (fetch (TEXTOBJ THISLINE) of (GTO THISLINE)))) (\DTEST THISLINE 'THISLINE) - (DEBUGOUTPUT OFILE (CL:IF OFILE - NIL - 'STL) - NIL - (for CSLOT EXPANDSPACES CHNO TX LENGTH CHAR CHARW (SPACEFACTOR _ (FETCH TLSPACEFACTOR - OF THISLINE)) + (DEBUGOUTPUT (DEBUGOUTPUT.STREAM OFILE (CL:IF OFILE + NIL + 'STL) + NIL 80) + (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) @@ -963,6 +986,7 @@ (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)) @@ -1004,7 +1028,7 @@ (PROGN (add LENGTH CHARW) (add TX CHARW) (CHARACTER CHAR))) - .FR 28 CHARW " " .I4 TX 35 CSLOT) + .FR 28 CHARW " " .I4 TX 35 CHARCL 64 CSLOT) (ADD CHNO 1) elseif [AND [OR (CHARSLOTP CHAR THISLINE) (AND (NULL CHAR) @@ -1048,11 +1072,69 @@ T]) (CLEARTHISLINE - [LAMBDA (TSTREAM) (* ; "Edited 6-Mar-2025 11:28 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 11-Apr-2025 11:04 by rmk") + (* ; "Edited 6-Mar-2025 11:28 by rmk") (LET ((THISLINE (GETTOBJ (GTO TSTREAM) THISLINE))) (replace (THISLINE DESC) of THISLINE with NIL) - (for CSLOT incharslots THISLINE do (FILLCHARSLOT CSLOT NIL NIL]) + (for CSLOT incharslots THISLINE do (FILLCHARSLOT CSLOT NIL NIL NIL]) + +(CHARSLOTP + [LAMBDA (X TL) (* ; "Edited 30-May-2025 21:57 by rmk") + + (* ;; "True if TL is a THISLINE and X is a pointer into its CHARSLOTS block. A tool for consistency assertions.") + + (CL:WHEN (TYPE? THISLINE TL) + [LET [(FIRSTSLOT (FIRSTCHARSLOT TL)) + (LASTSLOT (LASTCHARSLOT TL)) + (LASTUSEDSLOT (PREVCHARSLOT (fetch (THISLINE NEXTAVAILABLECHARSLOT) of TL] + (AND [OR (IGREATERP (\HILOC X) + (\HILOC FIRSTSLOT)) + (AND (EQ (\HILOC X) + (\HILOC FIRSTSLOT)) + (IGEQ (\LOLOC X) + (\LOLOC FIRSTSLOT] + [OR (ILESSP (\HILOC X) + (\HILOC LASTUSEDSLOT)) + (AND (EQ (\HILOC X) + (\HILOC LASTUSEDSLOT)) + (ILEQ (\LOLOC X) + (\LOLOC LASTUSEDSLOT] + (OR (ILESSP (\HILOC X) + (\HILOC LASTSLOT)) + (AND (EQ (\HILOC X) + (\HILOC LASTSLOT)) + (ILEQ (\LOLOC X) + (\LOLOC LASTSLOT])]) + +(\TLVALIDATE + [LAMBDA (THISLINE LINE) (* ; "Edited 31-May-2025 10:29 by rmk") + (* ; "Edited 29-May-2025 15:28 by rmk") + (* ; "Edited 21-Oct-2024 00:26 by rmk") + (* ; "Edited 15-Mar-2024 19:33 by rmk") + (* ; "Edited 7-Nov-2022 10:16 by rmk") + + (* ;; "Check validity of THISLINE, anytime after \TEDIT.FORMATLINE") + + (CL:WHEN LINE + (CL:UNLESS (EQ (fetch (THISLINE DESC) of THISLINE) + LINE) + (HELP "THISLINE-DESC is not LINE" THISLINE))) + [LET ((CHARSLOTS (fetch (THISLINE CHARSLOTS) of THISLINE))) + (CL:UNLESS (type? ARRAYBLOCK CHARSLOTS) + (HELP "CHARSLOTS is not an ARRAYBLOCK" THISLINE)) + (\CHECKARRAYBLOCK (\ADDBASE CHARSLOTS (IMINUS \ArrayBlockHeaderWords] + (for CHARSLOT incharslots THISLINE do (CL:UNLESS (OR (CHARCODEP CHAR) + (IMAGEOBJP CHAR) + (CHARSLOTP CHAR THISLINE)) + + (* ;; "CHARSLOTP if spaces haven't been instantiated") + + (HELP "BAD CHARSLOT CHAR" CHARSLOT)) + (CL:UNLESS (SMALLP CHARW) + (HELP "BAD CHARSLOT CHARW" CHARSLOT)) + (CL:UNLESS (type? CHARLOOKS CHARCL) + (HELP "BAD CHARSLOT CLOOKS" CHARSLOT]) ) (DEFINEQ @@ -1290,7 +1372,8 @@ (DEFINEQ (SPPRINT - [LAMBDA (P OSTREAM TEXTOBJ NOCR) (* ; "Edited 19-Feb-2025 12:21 by rmk") + [LAMBDA (P OSTREAM TEXTOBJ NOCR) (* ; "Edited 24-Apr-2025 16:04 by rmk") + (* ; "Edited 19-Feb-2025 12:21 by rmk") (* ; "Edited 8-Feb-2025 22:41 by rmk") (* ; "Edited 5-Aug-2024 00:30 by rmk") (* ; "Edited 5-May-2024 12:55 by rmk") @@ -1379,7 +1462,7 @@ (PRIN1 "i " OSTREAM)) (PRIN1 "%"" OSTREAM) (for I C from 1 to PLEN - do (SETQ C (\TEDIT.PIECE.NTHCHARCODE TEXTOBJ P I)) + do (SETQ C (\TEDIT.PIECE.NTHCHARCODE P I)) (PRIN1 (SELCHARQ C ((EOL CR) "[EOL]") @@ -2360,29 +2443,41 @@ (DECLARE%: EVAL@COMPILE -(PUTPROPS DEBUGOUTPUT MACRO - [ARGS - `(LET - [(OFILE ,(CAR ARGS)) - (WTYPE ,(CADR ARGS)) - (TITLE ,(CADDR ARGS] - (RESETLST - [if WTYPE - then [SETQ OFILE (OPENTEXTSTREAM NIL (REGIONP OFILE) - NIL NIL '(FONT DEFAULTFONT] - [RESETSAVE NIL - `(PROGN (CL:UNLESS RESETSTATE - [TEDIT OFILE WTYPE NIL - `(READONLY QUIET LEAVETTY T TITLE - ,(OR TITLE WTYPE] - (WINDOWPROP (WFROMDS OFILE) - 'TEDIT-DEBUG T))] - elseif OFILE - then (RESETSAVE (SETQ OFILE (OPENSTREAM OFILE 'OUTPUT 'NEW)) - '(PROGN (CLOSEF? OLDVALUE] - [RESETSAVE (DSPFONT NIL OFILE) - '(PROGN (DSPFONT OLDVALUE OFILE] - ,@(CDDDR ARGS))]) +(PUTPROPS DEBUGOUTPUT MACRO [(FILE . FORMS) + (RESETLST + [LET ((OFILE FILE)) + [RESETSAVE (DSPFONT NIL OFILE) + '(PROGN (DSPFONT OLDVALUE OFILE] . FORMS])]) +) +(DEFINEQ + +(DEBUGOUTPUT.STREAM + [LAMBDA (OFILE WTYPE TITLE WIDTH FONT) (* ; "Edited 25-Apr-2025 09:11 by rmk") + (* ; "Edited 15-Apr-2025 13:55 by rmk") + (* ; "Edited 11-Apr-2025 12:13 by rmk") + + (* ;; "Passed as the first argument in a call to DEBUGOUTPUT") + + (CL:UNLESS FONT (SETQ FONT DEFAULTFONT)) + [if WTYPE + then [SETQ OFILE (OPENTEXTSTREAM + NIL + (REGIONP OFILE) + NIL NIL `(FONT ,FONT PARALOOKS + (RIGHTMARGIN ,(AND WIDTH (ITIMES WIDTH (CHARWIDTH + (CHARCODE SPACE) + FONT] + (CL:WHEN WIDTH (LINELENGTH WIDTH OFILE)) + (CL:UNLESS TITLE (SETQ TITLE WTYPE)) + [RESETSAVE NIL `(PROGN (CL:UNLESS RESETSTATE + [TEDIT ,OFILE ',WTYPE NIL '(READONLY QUIET LEAVETTY T TITLE + ,TITLE] + (WINDOWPROP (WFROMDS ,OFILE) + 'TEDIT-DEBUG T))] + elseif OFILE + then (RESETSAVE (SETQ OFILE (OPENSTREAM OFILE 'OUTPUT 'NEW)) + '(PROGN (CLOSEF? OLDVALUE] + OFILE]) ) (DEFINEQ @@ -2422,6 +2517,23 @@ ) (DEFINEQ +(HEXTOHILO + [LAMBDA (NUM) (* ; "Edited 4-May-2025 21:52 by rmk") + + (* ;; "Shows NUM as a standard Medley address") + + (CL:UNLESS (FIXP NUM) + (SETQ NUM (HEXNUM? NUM))) + (CONCAT (OCTALSTRING (LRSH NUM 16)) + "," + (OCTALSTRING (LOGAND NUM 65535]) + +(CW + [LAMBDA NIL (* ; "Edited 5-May-2025 00:04 by rmk") + (CLOSEW (WHICHW]) +) +(DEFINEQ + (TRENAME [LAMBDA (FNS FILES) (* ; "Edited 16-Mar-2024 09:22 by rmk") (CL:UNLESS FILES (SETQ FILES TEDITFILES)) @@ -2469,30 +2581,33 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4984 7543 (GTO 4994 . 5244) (GTS 5246 . 7017) (GTW 7019 . 7175) (GSEL 7177 . 7541)) ( -7576 8135 (TEST.TEMPLATE 7586 . 8133)) (8136 9071 (TESTACTION 8146 . 9069)) (9096 22911 (IPC 9106 . -10610) (ILINES 10612 . 13153) (ISEL 13155 . 13766) (ITS 13768 . 15492) (IPANES 15494 . 15729) (ITL -15731 . 16150) (IHIST 16152 . 18814) (IPCTB 18816 . 19242) (IMB 19244 . 20003) (ICL 20005 . 20706) ( -IPL 20708 . 21248) (ICARET 21250 . 21777) (INSPECTPIECES 21779 . 22909)) (22933 50561 (SP 22943 . -27587) (SL 27589 . 31035) (SSP 31037 . 32592) (SPF 32594 . 35020) (SLF 35022 . 44155) (SHOWLINE 44157 - . 47719) (SLL 47721 . 48468) (STBYTES 48470 . 50196) (SSEL 50198 . 50559)) (50562 59579 (STL 50572 . -59208) (CLEARTHISLINE 59210 . 59577)) (59580 64953 (NTHPIECE 59590 . 60722) (NPIECES 60724 . 61589) ( -NTHPIECECHAR 61591 . 62899) (SELPIECE 62901 . 63343) (PIECENUM 63345 . 64064) (PCBYTES 64066 . 64951)) - (64954 67428 (FILEBYTES 64964 . 66388) (TFILEBYTES 66390 . 67426)) (67429 68751 (TRELMOVE 67439 . -67682) (TSCROLL 67684 . 67850) (TSCROLL* 67852 . 68749)) (68752 71801 (TRY 68762 . 70031) (TEDITCLOSEW - 70033 . 70376) (PARALASTWITHOUTEOL 70378 . 71263) (FIXPARALAST 71265 . 71799)) (71802 86449 (SPPRINT -71812 . 78397) (SPPRINT.CHAR 78399 . 79383) (SPPRINT.OBJ 79385 . 82443) (SHOWPIECEBYTES 82445 . 84001) - (CHECKPLENGTHS 84003 . 84460) (SBT 84462 . 85599) (COPYPCHAIN 85601 . 86447)) (86450 88511 (POSLINE -86460 . 88509)) (88512 89395 (PRESPLIT 88522 . 89393)) (89396 91109 (ALLTL 89406 . 90659) (NTHCHARSLOT - 90661 . 91107)) (91135 101348 (PLCHAIN 91145 . 91673) (PRINTLINE 91675 . 94665) (SL.GETLINES 94667 . -97960) (CHECKLINES 97962 . 98942) (COLLECTLINES 98944 . 99196) (NTHLINE 99198 . 100203) (HEIGHT 100205 - . 100493) (LINEBOTS 100495 . 101346)) (101349 103797 (IPC.DECODEARGS 101359 . 103795)) (103798 104391 - (SPF1 103808 . 104389)) (104420 106798 (SLF.FATPLEN 104430 . 105289) (FILEPIECE 105291 . 106796)) ( -106831 107599 (SELTEDIT 106841 . 107597)) (107669 113281 (PPARA 107679 . 108101) (PRUN 108103 . 109579 -) (ADDLINEPOSITIONS 109581 . 111008) (SBR 111010 . 111664) (SBC 111666 . 113279)) (113338 115114 ( -OLDWI 113348 . 113723) (COMP 113725 . 113920) (DFR 113922 . 115112)) (115115 116148 (DFGV 115125 . -115651) (GDIRECTORIES 115653 . 116146)) (116149 122714 (TTEST 116159 . 120691) (LTEST 120693 . 122058) - (THC 122060 . 122712)) (123028 123720 (SHOWSAFE 123038 . 123718)) (123773 124220 (MYH 123783 . 124218 -)) (124465 125560 (DFVENUE 124475 . 125354) (VSEE 125356 . 125558)) (125561 126015 (PTT 125571 . -126013)) (127250 129566 (TEDIT-DEBUG 127260 . 129564)) (129567 131303 (TRENAME 129577 . 131301))))) + (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 52303 (SP 23645 . +28689) (SL 28691 . 32526) (SSP 32528 . 34230) (SPF 34232 . 36762) (SLF 36764 . 45897) (SHOWLINE 45899 + . 49461) (SLL 49463 . 50210) (STBYTES 50212 . 51938) (SSEL 51940 . 52301)) (52304 64970 (STL 52314 . +61315) (CLEARTHISLINE 61317 . 61797) (CHARSLOTP 61799 . 63118) (\TLVALIDATE 63120 . 64968)) (64971 +70344 (NTHPIECE 64981 . 66113) (NPIECES 66115 . 66980) (NTHPIECECHAR 66982 . 68290) (SELPIECE 68292 . +68734) (PIECENUM 68736 . 69455) (PCBYTES 69457 . 70342)) (70345 72819 (FILEBYTES 70355 . 71779) ( +TFILEBYTES 71781 . 72817)) (72820 74142 (TRELMOVE 72830 . 73073) (TSCROLL 73075 . 73241) (TSCROLL* +73243 . 74140)) (74143 77192 (TRY 74153 . 75422) (TEDITCLOSEW 75424 . 75767) (PARALASTWITHOUTEOL 75769 + . 76654) (FIXPARALAST 76656 . 77190)) (77193 91941 (SPPRINT 77203 . 83889) (SPPRINT.CHAR 83891 . +84875) (SPPRINT.OBJ 84877 . 87935) (SHOWPIECEBYTES 87937 . 89493) (CHECKPLENGTHS 89495 . 89952) (SBT +89954 . 91091) (COPYPCHAIN 91093 . 91939)) (91942 94003 (POSLINE 91952 . 94001)) (94004 94887 ( +PRESPLIT 94014 . 94885)) (94888 96601 (ALLTL 94898 . 96151) (NTHCHARSLOT 96153 . 96599)) (96627 106840 + (PLCHAIN 96637 . 97165) (PRINTLINE 97167 . 100157) (SL.GETLINES 100159 . 103452) (CHECKLINES 103454 + . 104434) (COLLECTLINES 104436 . 104688) (NTHLINE 104690 . 105695) (HEIGHT 105697 . 105985) (LINEBOTS + 105987 . 106838)) (106841 109289 (IPC.DECODEARGS 106851 . 109287)) (109290 109883 (SPF1 109300 . +109881)) (109912 112290 (SLF.FATPLEN 109922 . 110781) (FILEPIECE 110783 . 112288)) (112323 113091 ( +SELTEDIT 112333 . 113089)) (113161 118773 (PPARA 113171 . 113593) (PRUN 113595 . 115071) ( +ADDLINEPOSITIONS 115073 . 116500) (SBR 116502 . 117156) (SBC 117158 . 118771)) (118830 120606 (OLDWI +118840 . 119215) (COMP 119217 . 119412) (DFR 119414 . 120604)) (120607 121640 (DFGV 120617 . 121143) ( +GDIRECTORIES 121145 . 121638)) (121641 128206 (TTEST 121651 . 126183) (LTEST 126185 . 127550) (THC +127552 . 128204)) (128520 129212 (SHOWSAFE 128530 . 129210)) (129265 129712 (MYH 129275 . 129710)) ( +129957 131052 (DFVENUE 129967 . 130846) (VSEE 130848 . 131050)) (131053 131507 (PTT 131063 . 131505)) +(131866 133447 (DEBUGOUTPUT.STREAM 131876 . 133445)) (133448 135764 (TEDIT-DEBUG 133458 . 135762)) ( +135765 136257 (HEXTOHILO 135775 . 136115) (CW 136117 . 136255)) (136258 137994 (TRENAME 136268 . +137992))))) STOP diff --git a/internal/TEDIT-DEBUG.LCOM b/internal/TEDIT-DEBUG.LCOM index 7d290024119afc243e2289ec5474960ac7979bc9..72b1bab853781736e441a6c968543769c007a502 100644 GIT binary patch delta 13890 zcmbVTd2k!oc?ZBl6l7B*MavXL(a*3g6S72M7dLGu1aS}`K`aD-1SKB~CCUONh;k&> z;~efLj$=DbQy-h7Ic&F1oj6Gkk|4*4FC=xF8D-kBBWc=clXlv15+{zwg(iO_lQvO* z-+Q}@1w}h)$1?Vv-+S+S-~B#5^rNP){kZATVz*b?H!=HxeX>XPGs!dL#Xsq>6J9mw zaWkjO>#_7oLq5-tM|QEpr;i>vb@J}{^3geV^xnHqpSfX(-CjsfMbfEQq!4HG3(S?6 zOsAQ3`rzQ8i_Oh0V$Oze!!EaTAdyPPqq%sb&=Zd_*G7BOJof802R%&khGf4-yWQRw zN@ViZ<=t#3n~P7Sl*#-)zMY0s$lf8pG$ctb=6vkFYaM}5<$vsNI`((lY&J(^Gk$HY z^mDeCe>!Xfel}WAur(>j@^S30kWw;CYihY(^|C^~fXz;@ER$Kjh>yhb1(sqSMh9UD z=40tdzEFry>m%LF_N8XK&0d&y(kd&_0$+0FX7Lr3!NM`>s0bK5bn5cGwT{!l9M^F#&FSii6YVipFZvF}?I@+koT?v1nS!$BRtz zNh~|b_nOTqIEox(N;aM;q9}!c;CL)m7|iBU6Or7(Y$Ov0xr9}mcQTPc(F-)?Sy*EA z!?I8SHOyi`*;pkI6ivlcCZ+&%z|*j(&%;LJ^*z+LAj^&OBp|QgXhuOn29;z%Ckpjz zvuAc{|Gs^X%4;AS$-|0;gIS^=Nn#l#nxhg>kScJplDsUTWD3;iW0|a**;`sS+w8@z zVt28pd~dOLZPO{*?3FF_i|zATDalEy)Z1HZ?>*99>^m`4?BGpnO(#09Ynj@;*0OB- zG(Y)^W2s*}zHEDF>U*{(K3ULfdg`ogLOXx;xH_H`w8%RJ;A%Qq>?m&MXsV{qwyj;W zEy-~yepj~^J2)kZnH~B%CoVice&WIl%a_J%12Slku8|0EFcOO~Stb%P?iFa0J*elh zxj>4^9-ur6f&?O@Fi?$>#H0{#Ol_IT2_^+(q9?*}wvdC&(4Oe&Q9(;+)LB>Z1lUA; zVuS$#|M~+gn~F!{G~XL!v3!=J8k1u2k;zeIvH&g_6th7@vM(scGr5t#I78*Fivw^@ z8O>yHrvVTUz_1`TON$XTN}(`w?RPOL7+?^D)6DAzj4&He(lLnE$+(+^J!}A?57Yy) z2(hpm5?1^Ee%Cet8~|P>Qkh7ah1_muKC5}kSuL^i){X#6r}Ek9WGY_(q3mz1Xgjyr z?NeIE$(=V2gPLWWJf9jG%EhtU$qX?Rld;n66H}O2U~)%sqvd$hmW^|#x+EDgey z_^*Y0bxD^_K`ta1E`tO_g5ma*kuem4+WYS5zA6N{n9CRRQDL3>-?w+WN~A2aY(~Kr zztwEe^7hj2CSxlBTFb>Aohq%3lX{z=$a;@ztCqKxHX!M8(*{t=J2x6yhX!ER|IQHu z))A_$VPl;g_F~6_LIm}#O%x{U3PChBi%)-TrSI~-e8R7y#0kSVnzYFZ|&`|t_{vEFjsB(thP^C8QV7C^M)Gv*e8>`uJf@E z+LZHgiuoYy3M%n5%1|SMjlIw$ddctQa+?#47h+bQ=as^ib`Rum+)xIjzT{wVeT!e0 z9S|KpV;$KGi4z%7Az36AO-3@Kal!7Mu)e+&#*&c{uqPN@h?tUduw^Fdaz67#22$hM+9?9Oz9^z!IY1Z`dV(8}bPV-B3RH zFvgrur?a{9{H#2WIsQud2t3vF$(wY5xZp}t=5i+1$OopPhN;pV=FLOmR5SJkd z1=w>^0J5?!1lb7WrrQY-3TPt=U`S9Vt|S#aKI=#~3x=4B-HQMH7@O^xT{wy|Fkk`a zX0jim_S$`bC^d9I*rwS~EaV)3Im5UV%@@cF&N2wj-tH|h0u2GIxo&u0N3dRpJ^1ZS zns&pNTZ-+S*S2br-Md`4{q^El!lfDFSPJ^IkL->(0%7fy-CyhmsYJ1ocfCDf50J!d zg$)Por#*Y)ZuTdwEie(<=bqub`jL__2tRPZDvC7(GnVnkoVq3ElgS1DV zAJSghb5jSjn{idRngdPRulDR~`*@UFF;#6)>ARjZCbahY8w$We*7aq;t9|gM_c;6^ z?W4+e?VoRQUkAaFz#Tyul1)d(A6J9Cv93dRZ8priFkPL>*=;nQi;u$N$diJUgu;Z1 z>}YGoU2f+$S?u6QuV18T<#qKQ>9T62V#hlQbUv)uUDq?6YHm}iX{~v@!~SxyJHuhl zv>S5Y3N<5qnGHZI?He|Z)mE;_@Re$n?N&%asVwc}U#MiIog=<9H#e8OQqZKXca-** z(rZ^vlzMM}A>}x@eCg1{?iZJSNd}~;A7uCvoUUT=1f)BZMK%G;31VJXATq3IqX;8V z$XDVtA)Uv$9+2R$=skXeU?rb98f&EYMI(7QLy)r;u`U^gY6{mTX&)Wj?g-2DQK3Ba zRY5bB8Dw{Ip^qb2n&nWPA-wOv5KtVPp!Vaak;!y{K~*(21nBg{3UU^58-DoFyJr8O zym*E!o?>^+pFXn)p$MvOkavb$U1?kZqmLW9nl5ma$nC4;7CIEdX|)+G7O%?6{O^$E?5cc zMpd4WkL_}VeU;YiPnz)6-p(he8YoEiU0H|C)+B-ghaJOfopYQ9_0WK(P7ZaO)K*u} zLG2$WukHh3)ZIa^wIX}9UrfeSV2CtZKCKiW5ip!zm|lhX1QN(a$<&52q;ipp0bZmM zERZ~XA+YLDK!OcWB(4--GLf$-Hw+~w$T}AIGgpLRWvmE+O+`$HeNi7E_CZ?$j*S6O zbMee*AxW*^tZDiZPjG)1vMW9f0|3IE+eIomv7~<9Fw0PhP6T$#lc!7+i;)GT0FMTm zlx1ig8Uc@22ZHl+GXjmqX*hI&Q{4tjM51Kmn9eqkf$PwYow;hO4<0q#B5qkCR-?^M zY*)$jicet+Xz&YpOGP+Qz%y`;GW0j?MRK#Y-|T6H96mJnSm^;S&`RYjcYik!##6mV zriukYK@OwPY!qzA=jI54cI)(Jb(+KCvaeREtu_~@i-qHzXRlH^=6ICi^HoK7&u3d_ zx~m3=wwXQE@wIrduz}Fk#b&w1>U1>v9MuyuJ=Nngy~{TBt9+HGmu*k!&cJqb=|$&E zFIL=OiSZ5E-gQ}JBL_|CO*&NyT2!ryL0`K~UqT04ymPJT{$=|gD!ns()$*=)IhxXa z);7~$#m6zj=+ivo!YTMMR}LBoY}E_u+1B!Pi`-obOfxwzIXO10H3)IE3}y{vYnN$sC`Z^chg{212Vq}e2>+%`I+so!BGDc&1zclb$Wog zrQLJ(PW#T3!rtV_@0#&c6?tv5;wkmc`0iI!&+Zwy>S$W~f#U0W*c`@Bjp~u^y~WS^7QvU#LShXwzj(9=?oX^y_zw8eDW}Jr~uP=vt-!oHERr zh!=>7`p+xF1{0xiL@*IA)l_g1`bRhyRkkVpk1yL76($0-%l3J&Qaf15_FbjB-1=JQ zfg6>WDHmfxz_!jLEOIeZRT2;YN%}Zu#^}>Llg3BM)G8m)Pq6xa;{>W92u;D7jXq83*F(O>m4Qh9ztTVzm%Fr}u(=ldN|^J~XAKhF!V4DI<=qWS zDLo`0dX_x860zS`-ei&wGq!iR3^FYH?xK48TBmUrx+Dfq+aHC{6tdKM@Ula1oOrj+ z^t*Lh!O^;;f6lJcHP$gopAK!q;NbY&XLTBU*HNoo#u4=gr}~1I>%Xyg1C?5B=etV@ zw$+CUbe1}-8!z{n7qPMA7jxAHy`mU*reBc$S^n)koc&;cC|ytmUCY1vI{YsgKDpsk z$-%m>B?pX{mMr^?SiNkC!^vKA0BlnPi?}ZYcTEJ>5cr4JFWMvor;Rm?a6ddd2@yXU z!6W~&gb{4Gw3Y$oi z!Y0n7Fdl`>5pa3*WkO-&Tv7-Eh9@t7>;z(1hn#cNE^V=fgyEXF!H5Hzk|3aE8YI{?>7-+lnTNF7uF zAw0c9Hg8&z;j;2|Wt_z5hL0rLaF99xxgOx92(NW7D$Z=orpFjE_Tfat@qk1(kEa$akDN4sF-itR`y=2~#S4Wk^yeeWe zdbhqUG=g0S9z9GMETq5mftAgp$|lRmCRxj%I)m85#=>;PoGQR@MrT0BG3eh6=<(9#JMUG46MpVM+vOHhdVAz_HT%J&W*HQ0mVsG3O!5$!44JOFI1-BdRRH>k9te1#gI)<_k{B*F5{dCP z9>kzlq@@fb(nFF$%z) zAQI4->Y8Td`IGaDVu}Ys-*tNaSZR@+oIQOE2{wEm9%x5bc^=Od<)aJ77E8Ppo5OAw zj^4Y-X78DuFYAr;v>}!`gJ51*4mnXjQkp%DogF<*Z6WY1hLle&o^gQ(f;f&VwQ$co z^#yTlt^`F21q^C}6yxD^AKs}+1iA2^6hKtdbz7VQJ$F#mFVi|yg0OK7Q30st^Zb}c zqK0?#2Ofw|M$lvrbTDt0z{ai#a4IHJkk2KG9)vupKMb+pN+`Jr7Yl{xL~$jJA`&#H z7a2lkz&}K&8bV_br!-=v@*)`R$}i5I z#{DgVzz{#`P%2JrNg#r{;;EJ&4LLXwtZxn8?~DKg=^vniLZ;IGQ@w4 zP%E~F)g!QPNHFWkQ_#!nrf45LdCO)IJVcmNTRj zdBW>c^GjoM8N|U#9o@F-SgG4VKh4!Kcv6R!exM~6QYsG)BJP(p0?RTF*iGi+F+IlE z5O1}HTM?mWg)|QfPUF$%OcP~-apz_AL_{~`jjxCc>9w|#zkaQ=$uWE`c}~4p*+$>m zYIyj3Qh0^?htG|{C;S`w)K;$@K0ik8;A+qCxfHpI9rUfOZXQ0LqV^73CY5#$Ah2tS zBzmea#3q@+M!7x&;>zu$%sa1)eCYz7fK2sh{p1b%(>xksZ-@e8pE!&1W z545I)v;L>ml9vTGYZr?kUUzlwir ztGma~EA8S&cA}|+aNorXwND5_?9o_OL%>dA@jH? zM4CesV9oFXJyzBYC{kNQsZk{sM~FMb)Z3%Ucyv6H%S8^3q?PD6gGr!+;$Pgb3|&f- zbcJkHV3ZzYTolhYGAop{V9-m*qUNkN0)(DgA7qZ_IuH!)YS3@U5`@hG@k5%Zu?KrA zqJxCkWgU1@2PA_#^KAYMTQ~*5w!rwAck@F-1d=#4_Og$16O55Wkgm!j3lBK5*TXNj z3%PXI*6Q&rgGr@IfoKJj__95$oq9;dBZ6*IhJX}d%37^|q$cWFWkI?pk^4gKl-Z28II>QIxCXNgX1g&I z4?#RvEeMS$z}HpO^+PYv@Y7hCPA>X=wXB>iga*`4E4cmj_qDAjHB*XSz4~IPSdO{BoqFJMqoH`^V ztXOM216Zsm`9qb!*Za0O!of;m?MrriITK$09GEazx#hVJwK>9J?OWB?>GR~b7wFUe zotquuP-Xl(uVQ=%ts~l7W?08-LJl9>tEDg&>o*!yH}fi)!pNp-`L#Y3g;zUr9v#H-hMpBzS(L44JkHoI(lg-=-9#(|ai?-YODJ8WCN^kMDoS4;M7 zTJg1ysUa38|Ii0FK@`Ya)sg3gQ7Cda;5L%iX{N!!IVSF>1Zgikg{YD}hzDJ~vx{-NYJE=)_uiPA-NCG;>Ap!r-;bp5$EHRF`h@9iA=;{fx$gZ<>K@P zdQi0B%8|XA%8cUGG=N1Eg(t|0PB^|02~l!kWS_S5{hkQcMm%bqR^&q{)z+9#IdPOD zZaEXrhU2N?2PSba2|4+*kd2+-&2f0Y_#A63hkhN{+M`Pr9Arn8QWYPy2(p_8sq*CcrMC3tzPzv~k(?-Uu2Xn)E~a95=SCi(o{>$K zlStU6$7Lgn+e2wQvq)$XSs9d10{ilHo5R);`|^RqZPf@K0G=xejaCw}D8{Lb|3v3j zuPCz^mpcE7q;34`?G+i_u+gJyXGXppIow=5rhW7~+pZYqQzA5sH>mTxVT4cOb495R zei#khNYf$H)VZbIx>2|E@bK!j!iK9);SZ6AZ5WyDJ!0dz!=Mf#03(?i^gwbV9aniK z0Myqy@&LNY7!U|VPJzxDWac0sm%-m5Af(Dfk~N4Y#EOZWG7&?t1C*)f`crzRL;($+ z4No?eNl@e>g6`r4_^${(nj}FvZquC7e{@JCH* zl0-r>l~xRr@-SqXgC^YEvVo=X6)tfO+g^X27sLfDT)OmQUgh{F^9ETNf=Quol_)YK z1VfS)Wv!AiI*k?H>vocJF^u#d=;yuoLz`%kZvm~$#wA)Cc3|U+06y|R#NUMYSTUK3 zCW~VJKxO}bJlxt29wN@lvjJ=(uX*-t-$6XZ+uUw9HBX>(54)K;wZHqxa4-E~$Y`O+ zMxhhXoyw#NQjMLz>rg3T^)2(GE!d_c`DD`}C!MZ+PDi8$Mj@P-FW?C(rIzgKCJWYL6c5QNjLDK>kW`3DQB z6ssS3;J^Vto1UCQ|Fx#nG=H}@Fqljw`m>36J~6=j>gJW((jq;<&_nOIc7v`lMN>kd zm^JC{ni!4uXN?>iNc0tkj6yzB$ak~AU^>Tg8QM&aKAAz5%codAk;@;*Cq^?VtkBJR zGTFpf(kSHi51>xliq=l5275wEkFH_Cb-L2+9m*Tlz2`eBueqP~Y~SQ^xjgX=_;oeY z&qZIWD-dGngF{%aHSV$=IDbVd$ml$5kSQz`&*k%p@q8|i(~WjB*UfIX%YB5;uo#rz zfcOgFwj(EK=F&#`tsb!+Y`VsD4NrNddGoON#j4R5j#d~PWKj+4=U7C+G3|v|IE>mr zGS5OP>rWZEM3Lzc0V*cb14c2!^dKLQ$r>3v7&9`7G@vR?gMoH0MPvCuJs`wK$@6#v zn$8B2+5AzQpM@(gH{aP5zs`+I>iv7#|3kfh+RJw=Z>!Di8ZJ%8ub{SJ975ArGM&pL z`twZD1!;JF1 z8GR#w#8@$ZG{av3?_s3#^d1UJXXvZ4w9%jKX6}7W>s{_*`=Y;8;QK61pP{{7*+jon z-YTz^rsua87X7?j;IG4f_zO*WOFmz*#W&SbJrk!vrGl4#B(&JEv`!4<;Nq53W5rfp zTxvMgc5UO>QqzL#Bm8=vNDf=6&Q5pAn&~`jjuZq2)D5m4E)-jfo&5HyhcB*Q@@^Kp zZk6Ltz3{gqr(Sq`;q?huK#kJ-W;59&UN-_#Kna(ihC+-=3R6K&9F{JOg8Ef9l*rSi zX7X94#LOVOi6g>+Y=ThZfOv7HM0rQM20R;0jP@~5r7S3Tkz}GjL9;5s5E}py((PlM zT@1xIw#hkEjo0dsR|&GLnHWkM=?u_HjmjCB8dO-Wev@d(8bfKOM8d!$Z~*WJ9Ez4_ zA)TcO>#>$#4nR;9HUB|BQ?)QyMRJ^h&#A!}3mB<^v3RNg-k^knED&VMcAy*3CCXym zEQTJq%F$#xo?_8%771CCdv-Q@nXXwqFLs%l!UAF=f&NraAq}L>v1|fc&E<)~U@(!Q zKv{v6>12upQpsGN1&$O9^Z|PqFw&``;9&xAq>xMyM-#PFB0iSLgUpySBA?8su;GAV zW*ILFgzxSKOj0kAcAz+zHAV+=VtHpmzNP(~d16is^5Pb8DfCnWiNSawm8UY`;G;bQ zQEwoF%cwh4h5@OPJw1D~)&qB6*&Sv$O=f(Uj+9|w60|#%bV-Ip#QXxRzwwQ=#%jGm zgy9X9u5Fv$8~c(YZ4FJu_O_ktE#*Y#o?hY*L6tAVS1zRKU`&lg*iEBj{QA_GYMt$R z(jBo5ZvXlQm8Gy|kfp3^9^bZ6t_XtHIeQ3kcAQG4i7Nni;=B+6x6VRJ2ryX48vG-Z zHn7j<8*FBgTZ36N*O*0aaVIC++zMu4f}=EpTjYIH>t)}Z%_|5dhH!{z7OmA{hb+{0 z7?UuullqqOrc$nsb;y3@hMaln)a7k!^<6RBu3y_DuvQPTueMfKvE{vj`FAxgr3+)$ zBiH!M?PL66_vJ_SM4C zI(P^YIAKdnqB#xv)JljNbJkH~raiqHiLrdV4-7iS`iJA`p#-NtH58HSt2!u&I%p2p z2D_~93LeEffHjKEE2J1?;{6bu3PgYeV!zZ)!EyVCO=l&AD+T=c3iJWlS+g%fQ5_i8 z5v^c`b?Zl!H^tQjQ#ZlYb(MHPIx&#Q^=Ffrypd(P5?u|_V)`W@9Dyj8^p+gc^c6KN za!Gd$N2qnD1I1NmGg^}HKZ_q ze;O?~pub;1L5Wz;`mY*^VRWB?F-k;d{$VNr<5mb31$vmDU621sa{4oqr)N-(ty&^t z-MYvB|3>mB{ULt)Ipn)xYKw;L;cf~!>2*TGr(g@w7-}iX?y(MbF$TSw zNT^=3!c*F)9SK`^25#62vvPGONGBNA*4F|Dw*n0Yg}O(kRt5$y*QGLpT>pwll@~TD z*T3+z@u5VP3xOP&VZoY>1~De|S$A$-6Ud}v@!C?cWeqh8b{4m&dwke4zVLb>wfl+r|1_aZD`dWNd9MY9l97kD4~;rR&Jq}f(VCt@%84`} zfdzu{Rb8(a|0+x$*#HAlmLOE^67=!?{qbA^2Bpr-I=w*wrpd{b2wV(gARU0pbbv5q z(8!L)Vaq`luiXGKZx4o)t)G^xPj1~R!Ek*8aDBj(mS|XAVSYj~z`m_FKNUzC$NCI~ z1x_E7RuLQ(u~iTd1euy(M|GwqbWHfYW^S8&TY2srn>)j9>z+M(ZVvhYcE3XEt9TUh ztDTrV0|y$kwulwqw^>tkXa}5}oTXEV!92?*hlcZHuHnX4%oB^zI8P)>)+tzE2*&9) z(+h3%4``m60cdu=8}l@J8S`}TjWh)7J$JWu|K{pJWnbTF_2B(pt7-q#ran%T@j4Y@ zn_q!)xtcpF(EV*5s;Jgq?eFp7eJ|-nu8hoJslXA;KtVw<>HILrA`3%Y_$FaLK$ybM z2B!*qK-Mis222QD>Qe;YRwKMfC6G;yzB)_N2dWYj-CW8bvmU~kBcxpwqi6!q9bXTn zkTWY>dNxpFsYH4xKTKV*$8mg3m=yiPX@fvPmKcYY4hIo8Tr%+9^~*(~EKMca6KEUG z2=XrQet9Dge+;=8(zFcq(9qeQ0=$Pzddx02%^So)@NAh4SZXld56gpul@Cv8`xL>{ z@^EDE;e$-G+8*0tLREp&7|R1-`!rA#E(P2e$`HS_52c%Jc-xM3kYNKP!w#(>!wyNQ zL^AAh@C;TdF4~Iu~3Q_*$P?aD7>t>s!zwi{6P&tZNSyf=?W`Isz!2-xkjj{OguC zwyZgu(YYpAZezXOXwP08UTU~+!EHWZbWZrHv0;Jeu3TEUxJWp}QFE#;)au7neLHQuDDv!6&JO}^BJAS zju-GMypL($OS#L~ak4aBJR~)aHKxM_i|NXQ{-S8K+Y_u9V08T&u;HUk_^PI{<JIk{}jPISD>=s^8LwAY43y)AgPv15Msw7bpSIc)5Bncsf<#NMj0 zZ)toOC)2ULwjtv!I;HW~1xj1@~RX4o;yco-*3gpdJ?H( zS)&e;HbrIqL{HVwLG5AscqXFw7(L6Cd*s$H-0AGtDb#kZ+dJn4+PPl0a{%Sed5Lz8 zX0h`N=2j4Tc=@A-zO-rf1BQ;>PUs7--&1M_4t~LTX!}hB&R>SYC2`qU!u#3-jV>9u zvH|jS!3lm_(ihJ=KWFTiZgMZamDA711nM0vZ{&q~)>7WRlGPYnhzQLs^SYEH?nle( zY8+;Vv(dHKj?K@(hz6J1Ry_&G*}X&@Q*hE1_fYoO;1n-F5($=QgKHfQ+n~!#umWsv z;S!0nqL<;b=PWmflDTU6k?D^~^jzI@b;k?s_L?$y{l-ft*PhRG+3?{DoA_RbB}290 z@~TU%D^61Gsy)@469&%1@`>sG?Z;gB)e%mv&{>RD$cNU2|2mJzr&i}|*Wkgktym2) zNNJgBky;VqNE-^%&Mrcovy0G)g%cjSZN?PAQw<8dJ+BH6t?bK#mC`c?7cl(#b_484 zshX;)bf3Z8CS%a<0hQaC(XnGy^5@GQ6z0sCLcdiNgkEhpIl;xY6jJo<9rDS3>DVF+5yKmZNtBqg z3_JqP4Jt7T+w%P>F$6exs3HbK!G_VEDSQ!)XeJv>6>`Je3I+hS_li192{|Z=9q>UB zd4uGwg!3KVciAHnhG|eYSp?A*yNNuKVnbm>JnSOe2qu-qRAI+0g0QnQl!8BeU0CpZ zpy;gDrXeJ$UssJdo2GaI84<8c5(vX92ra>}NhM6iOQsS88Vg_$-WXnrIU$=EIZ*8# z#)9@)qcP#A;d_Y!kHm?hIHq*(9-y#i6d@Sdf&hdlMc^BfC88gJ{}Ip+9g?n)8u`2t z2d^V|&$<&v5Ly;fgk$#7Ve2{Q$Y4+JN1 zScf-WjMU|pbj)BkIx#IB#3j2qku2SbnQ8EPiB>J*l)~Z}HSUEHE;BlxIKSo~tme$D zIWw!_8qkUjCxo}DRfwxP zEntIAMYsOsv%5{)>guZjb*utW7|0o?07YsQaQIqnfdapzbQn-bqt*rdsa6Rp zCu_Aey@(pH(9f@-$m4>l2Ctw1$a*k}dS85icj7)1ialbFfx(mkFRIFuT-2~?eR`^+ zLDhoRV^iBrO5^d5v-0fivvXo11?<>=cJ@SRj@>?a_5^bIC=RKD+c1B57J@fMG5n`z?w(_lcTLWgB@n@6KRb8F z=BOG4qWF`i@0#Tm;E8{be57Iyv_}xY=7Aj@i8&EuG5PT?{KeSPu>^UGZl-_#z9(zf7{MlnJs zN*E~=!Q^=>-jmOXOrj{#Qv5vtM{&9K@=+iNb&P^J&^H3Y@iPMjpsd^ti-0xoM$G0< z-hSrzNxzqcA-4E*VMr`{x-ih5dWI?I2&|vsX2QXk_34>w#_{I<@l+BU)xmH5`&f!< z^fvGTL(=;JQ20}65M2J;+~irj-y9GJPB?mOjkbaN(`Y!m?aW#HA_KwdyiN70NCc#| z72ai}KK&tm%K>9D`}_4R=TnyH%g7Mh!fnB0!p+Ia3`vLJ6Ef=xKtF7Cjy|WC!q)fCwxd}2#n}fpbq=9>WAC)a{=AP5Jnp*a z`piOuukxw;zTV2qnhB{A{a$Fi;$>M zM|?&R?Xj~9BQ@7J}B&!uhLE%fdmu za_f5^aJxg+OYi&E?Vzm8?99{*D@~qbr_Zo{NN5CJohBuLUw_mvg<4(2pH4O`o#>cC}^7S4Uhk4*-_0BIGqkOMb5}ow*)u2n0fmGnns$P_vMX^HCmQ~1N zr;PZ)>aMV4cPE7qmZ&GXH`Ps%HkKhHhLmT<(bMS-S~ozhN=44 z(mU3BBAOL?>Id|pU{R`ih>9PmzSR>^E8ndC6Z)&NrPccG*RCY+OJDo^Mt9Zv@V9T+ z^k^+E@bK8uIqSu5cW*u@vWOS=3{-ZB;*Hjhr>{{z)mxgLPFxWA%OWLu!S!|i>PwsX zJSF}+#xs(SyXN0z-SKqEz18~8)9)^;EI|sa4(pH?NCMeM)Sz|A5GxZ|bxz_si6$Px zLYM_XAR}`WVhMpFUVtv=41->h$Yv2-MC{tSA+yy4JA{>yOB4op948$gO#p_tLU0SJebz8|*0X4Y1_SEtC$$O4R7k^sJxn>#)Jhr97{(KZ>*3I9 zVCv@IBIYE;YIQsr;W-hNLryOxx`(U}J~MwKw-_mVS%ac$=l60MjK3H_7Oe_h$=-Vs z*?g2x_72{ZJ5P=SmMiqx?MKNZhoLZV6uXI7AANRc05~78lZuhx%P5i7&y(iUh~*8E zO#$hSt;_7>{CJ)rD;WvVqzEEO8VXm1JvYC;a_+?+G*qts{(GCRMD}pMF`8q6z3i>b z`tFZZJ5!F$w*x zh8KZKk@;gyy*%#q;?E>fqsCZ*S^w~Iz6H6*#DMb$$PQrEo>z(+y)-JGO5v|MtoOfi zbOTL5bjPe$UKwli@&tCuB*H3uli45VH+lViXD9DE;|GjJTT4G4Z}G|sGQW#SW^MZk zrV8+#?`78cpWL$E?qL1kC;Rlv{;dgrS38ZG&yEuiwsd=~yI$R8J@RTCm+)_|UT1lJ zI#Rj!r}uiycygurV}?Av-3_IlI4UZBIkK<#m@cmC`x{{tvAC1(Ht diff --git a/library/tedit/TEDIT b/library/tedit/TEDIT index a22f9a7e..689b82e0 100644 --- a/library/tedit/TEDIT +++ b/library/tedit/TEDIT @@ -1,12 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "31-Mar-2025 12:04:22" {WMEDLEY}TEDIT>TEDIT.;792 141883 +(FILECREATED "28-May-2025 16:07:21" {WMEDLEY}tedit>TEDIT.;830 146159 :EDIT-BY rmk - :CHANGES-TO (FNS TDRIBBLE) + :CHANGES-TO (VARS TEDITCOMS) + (FNS TEDITSYSTEMDATE) - :PREVIOUS-DATE "28-Mar-2025 14:10:12" {WMEDLEY}TEDIT>TEDIT.;791) + :PREVIOUS-DATE " 7-May-2025 00:13:12" {WMEDLEY}tedit>TEDIT.;829) (PRETTYCOMPRINT TEDITCOMS) @@ -19,8 +20,8 @@ (* ;; "Would be nice to just do (DOFILESLOAD (CDR TEDITFILES)). But the order for exports.all and the order for loading have to be aligned.") (VARS TEDITFILES) - (FILES TEDIT-PCTREE TEDIT-STREAM TEDIT-COMMAND TEDIT-SCREEN TEDIT-ABBREV TEDIT-LOOKS - TEDIT-STYLES) + (FILES TEDIT-PCTREE TEDIT-SELECTION TEDIT-SCREEN TEDIT-STREAM TEDIT-COMMAND + TEDIT-ABBREV TEDIT-LOOKS TEDIT-STYLES) (FNS MAKE-TEDIT-EXPORTS.ALL UPDATE-TEDIT EDIT-TEDIT) (DECLARE%: DONTEVAL@LOAD DONTCOPY DONTEVAL@COMPILE @@ -31,14 +32,14 @@ (DECLARE%: EVAL@COMPILE DONTCOPY (FILES TEDIT-EXPORTS.ALL)) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) UNICODE))) - (DECLARE%: EVAL@COMPILE DONTCOPY + [DECLARE%: EVAL@COMPILE DONTCOPY (* ;; "Assertions go to comments if not being checked, so we see value-warnings") (EXPORT (COMS (MACROS TEDIT-ASSERT) + (MACROS FTEXTOBJ) (GLOBALVARS CHECK-TEDIT-ASSERTIONS) - (INITVARS (CHECK-TEDIT-ASSERTIONS T))) - (MACROS OBJECT.ALLOWS))) + (INITVARS (CHECK-TEDIT-ASSERTIONS T] (INITVARS (TEDIT.TENTATIVE NIL) (TEDIT.DEFAULT.PROPS NIL)) (GLOBALVARS TEDIT.TENTATIVE TEDIT.DEFAULT.PROPS) @@ -69,11 +70,11 @@ (INITVARS (\TEDIT.THELPFLG NIL))) (FNS \TEDIT.PARAPIECES \TEDIT.PARACHNOS \TEDIT.PARA.FIRST \TEDIT.PARA.LAST) (FNS \TEDIT.WORD.FIRST \TEDIT.WORD.LAST) - (FILES TEDIT-FIND TEDIT-HISTORY TEDIT-FILE TEDIT-OLDFILE TEDIT-WINDOW TEDIT-SELECTION - TEDIT-TFBRAVO TEDIT-HCPY TEDIT-PAGE TEDIT-BUTTONS TEDIT-MENU TEDIT-FNKEYS) - (COMS (* ; "TEDIT Support information") - (E (SETQ TEDITSYSTEMDATE (DATE))) - (VARS TEDITSYSTEMDATE)) + (FILES TEDIT-FIND TEDIT-HISTORY TEDIT-FILE TEDIT-OLDFILE TEDIT-WINDOW TEDIT-TFBRAVO + TEDIT-HCPY TEDIT-PAGE TEDIT-BUTTONS TEDIT-MENU TEDIT-FNKEYS) + [COMS (* ; "TEDIT Support information") + (FNS TEDITSYSTEMDATE) + (VARS (TEDITSYSTEMDATE (TEDITSYSTEMDATE] (COMS (* ;  "LISTFILES Interface, so the system can decide if a file is a TEdit file.") (ADDVARS (PRINTFILETYPES (TEDIT (TEST \TEDIT.GET.TRAILER) @@ -99,8 +100,8 @@ TEDIT-MENU TEDIT-FIND TEDIT-FNKEYS TEDIT-HCPY TEDIT-HISTORY TEDIT-PAGE TEDIT-ABBREV TEDIT-TFBRAVO)) -(FILESLOAD TEDIT-PCTREE TEDIT-STREAM TEDIT-COMMAND TEDIT-SCREEN TEDIT-ABBREV TEDIT-LOOKS TEDIT-STYLES - ) +(FILESLOAD TEDIT-PCTREE TEDIT-SELECTION TEDIT-SCREEN TEDIT-STREAM TEDIT-COMMAND TEDIT-ABBREV + TEDIT-LOOKS TEDIT-STYLES) (DEFINEQ (MAKE-TEDIT-EXPORTS.ALL @@ -170,19 +171,19 @@ ,(KWOTE (CAR ARGS])] (T ` (* (TEDIT-ASSERT (\,@ ARGS)))]) ) +(DECLARE%: EVAL@COMPILE + +(PUTPROPS FTEXTOBJ MACRO [(X) + (TEXTOBJ! (CL:IF (type? TEXTOBJ X) + X + (GETTSTR X TEXTOBJ))]) +) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS CHECK-TEDIT-ASSERTIONS) ) (RPAQ? CHECK-TEDIT-ASSERTIONS T) -(DECLARE%: EVAL@COMPILE - -(PUTPROPS OBJECT.ALLOWS MACRO ((PC OPERATION FROMTOBJ TOTOBJ) - (OR (NOT (EQ OBJECT.PTYPE (PTYPE PC))) - (\TEDIT.APPLY.OBJFN (PCONTENTS PC) - OPERATION FROMTOBJ TOTOBJ)))) -) (* "END EXPORTED DEFINITIONS") @@ -260,7 +261,8 @@ PROC]) (TEXTSTREAM - [LAMBDA (TSTREAM? NOERROR) (* ; "Edited 29-Apr-2024 12:50 by rmk") + [LAMBDA (TSTREAM? NOERROR) (* ; "Edited 25-Apr-2025 18:07 by rmk") + (* ; "Edited 29-Apr-2024 12:50 by rmk") (* ; "Edited 20-Mar-2024 08:51 by rmk") (* ; "Edited 24-Mar-2023 18:01 by rmk") (* jds "11-Jul-85 12:06") @@ -277,14 +279,13 @@ then (PROCESS.WINDOW TSTREAM?) elseif (DISPLAYSTREAMP TSTREAM?) then (WFROMDS TSTREAM?))) - then (if (type? TEXTSTREAM (SETQ X (fetch (TEXTWINDOW WTEXTSTREAM) of WINDOW))) - then X - elseif (type? TEXTOBJ (SETQ X (fetch (TEXTWINDOW WTEXTOBJ) of WINDOW))) - then (FGETTOBJ X STREAMHINT)) + then (CL:WHEN (type? TEXTSTREAM (SETQ X (fetch (TEXTWINDOW WTEXTSTREAM) + of WINDOW))) + X) elseif (AND (type? SELECTION TSTREAM?) (FGETSEL TSTREAM? SET)) - then (CL:WHEN [type? TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) - of (SETQ X (FGETSEL TSTREAM? SELTEXTSTREAM] + then (CL:WHEN (type? TEXTOBJ (GETTSTR (SETQ X (FGETSEL TSTREAM? SELTEXTSTREAM)) + TEXTOBJ)) X))) (OR TS (CL:UNLESS NOERROR (ERROR TSTREAM? "is not a Tedit document"]) @@ -359,7 +360,8 @@ NIL]) (TEDIT.CONCAT - [LAMBDA (TSTREAMS SEPARATOR) (* ; "Edited 8-Feb-2025 20:58 by rmk") + [LAMBDA (TSTREAMS SEPARATOR) (* ; "Edited 21-Apr-2025 22:28 by rmk") + (* ; "Edited 8-Feb-2025 20:58 by rmk") (* ; "Edited 17-Mar-2024 00:21 by rmk") (* ; "Edited 18-Jan-2024 00:03 by rmk") @@ -369,12 +371,13 @@ (CL:UNLESS (CHARCODEP SEPARATOR) (SETQ SEPARATOR (OR (CHARCODE.DECODE SEPARATOR T) (MKSTRING SEPARATOR))))) + [SETQ TSTREAMS (for TS inside TSTREAMS collect (OR (TEXTSTREAM TS T) + (OPENTEXTSTREAM TS] (LET* ((CSTREAM (OPENTEXTSTREAM)) (CTEXTOBJ (TEXTOBJ CSTREAM)) - [TSTEXTOBJECTS (for TS inside TSTREAMS collect (OR (TEXTOBJ TS T) - (TEXTOBJ (OPENTEXTSTREAM TS] + (TSTEXTOBJECTS (for TS in TSTREAMS collect (FTEXTOBJ TS))) FIRSTTOBJ INITIALFILEPIECES) - (CL:WHEN TSTEXTOBJECTS + (CL:WHEN TSTREAMS (SETQ FIRSTTOBJ (CAR TSTEXTOBJECTS)) (* ;; "Take overall parameters from the first stream. ") @@ -384,17 +387,16 @@ (FSETTOBJ CTEXTOBJ TXTRTBL (FGETTOBJ FIRSTTOBJ TXTRTBL)) (FSETTOBJ CTEXTOBJ TXTWTBL (FGETTOBJ FIRSTTOBJ TXTWTBL)) (FSETTOBJ CTEXTOBJ TXTSTYLESHEET (FGETTOBJ FIRSTTOBJ TXTSTYLESHEET)) - (for TSOBJ PREVPC (LASTTOBJ _ (CAR (LAST TSTEXTOBJECTS))) - (FIRSTPC _ (create PIECE)) in TSTEXTOBJECTS first - (* ;; - "LASTTOBJ to suppress final separator") + (for TS PREVPC (LASTTOBJ _ (CAR (LAST TSTEXTOBJECTS))) + (FIRSTPC _ (create PIECE)) in TSTREAMS as TSOBJ in TSTEXTOBJECTS + first + (* ;; "LASTTOBJ to suppress final separator") - (SETQ PREVPC FIRSTPC) - (* ; "Dummy") + (SETQ PREVPC FIRSTPC) (* ; "Dummy") do (CL:WHEN (FGETTOBJ TSOBJ FORMATTEDP) (FSETTOBJ CTEXTOBJ FORMATTEDP T)) (for PC NEWPIECE inpieces (\TEDIT.FIRSTPIECE TSOBJ) - do (SETQ NEWPIECE (\TEDIT.COPYPIECE PC TSOBJ CTEXTOBJ NIL 'COPY)) + do (SETQ NEWPIECE (\TEDIT.COPYPIECE PC TS CTEXTOBJ NIL 'COPY)) (FSETPC PREVPC NEXTPIECE NEWPIECE) (FSETPC NEWPIECE PREVPIECE PREVPC) (SETQ PREVPC NEWPIECE)) @@ -480,7 +482,8 @@ (\TEDIT.COPY FROM TO FROMSTREAM TOSTREAM]) (TEDIT.DELETE - [LAMBDA (TSTREAM SEL LEN LEAVECARETLOOKS) (* ; "Edited 22-Jun-2024 00:06 by rmk") + [LAMBDA (TSTREAM SEL LEN LEAVECARETLOOKS) (* ; "Edited 6-Apr-2025 12:31 by rmk") + (* ; "Edited 22-Jun-2024 00:06 by rmk") (* ; "Edited 22-May-2024 09:44 by rmk") (* ; "Edited 23-May-2023 12:57 by rmk") (* ; "Edited 22-May-2023 10:54 by rmk") @@ -498,10 +501,11 @@ elseif (NULL SEL) then (SETQ SEL (FGETTOBJ TEXTOBJ SEL))) (SELECTION! SEL) - (\TEDIT.DELETE TEXTOBJ SEL]) + (\TEDIT.DELETE TSTREAM SEL]) (TEDIT.INSERT - [LAMBDA (TSTREAM TEXT CH#ORSEL LOOKS DONTSCROLL) (* ; "Edited 2-Aug-2024 22:17 by rmk") + [LAMBDA (TSTREAM TEXT CH#ORSEL LOOKS DONTSCROLL) (* ; "Edited 4-Apr-2025 11:22 by rmk") + (* ; "Edited 2-Aug-2024 22:17 by rmk") (* ; "Edited 31-Jul-2024 12:13 by rmk") (* ; "Edited 23-Jul-2024 16:35 by rmk") (* ; "Edited 7-Jul-2024 12:33 by rmk") @@ -535,9 +539,13 @@ (SELECTION! CH#ORSEL) (if (FGETSEL CH#ORSEL SET) then (\TEDIT.INSERT TEXT CH#ORSEL TSTREAM DONTSCROLL) - (CL:WHEN LOOKS (* ; - "TEXTSEL now selects the insertion, apply the looks.") - (\TEDIT.CHANGE.CHARLOOKS TSTREAM LOOKS)) + (CL:WHEN LOOKS + + (* ;; "TEXTSEL now selects the insertion, apply the looks, but don't keep the looks-change as a separate event. We want it to behave as if the looks had been applied to the TEXT before the insertion (e.g. converting first to SELPIECES).") + + (LET ((HISTORY (FGETTOBJ TEXTOBJ TXTHISTORY))) + (\TEDIT.CHANGE.CHARLOOKS TSTREAM LOOKS) + (FSETTOBJ TEXTOBJ TXTHISTORY HISTORY))) else (TEDIT.PROMPTPRINT TEXTOBJ "Please select a place for the insertion." T)))) ]) @@ -560,7 +568,8 @@ else (TEDIT.PROMPTPRINT TEXTOBJ "Please select a place for the insertion." T]) (TEDIT.KILL - [LAMBDA (TSTREAM) (* ; "Edited 25-Jun-2024 11:59 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 7-May-2025 00:08 by rmk") + (* ; "Edited 25-Jun-2024 11:59 by rmk") (* ; "Edited 12-May-2024 11:55 by rmk") (* ; "Edited 20-Sep-2023 17:55 by rmk") (* ; "Edited 12-Jun-90 17:49 by mitani") @@ -573,8 +582,7 @@ (CL:WHEN (AND (SETQ TEDW (\TEDIT.PRIMARYPANE TEXTOBJ)) [PROCESSP (SETQ TEDPROC (WINDOWPROP TEDW 'PROCESS] (NEQ TEDPROC (THIS.PROCESS))) - (DEL.PROCESS TEDPROC) - (TEDIT.DEACTIVATE.WINDOW TEDW))]) + (DEL.PROCESS TEDPROC]) (TEDIT.QUIT [LAMBDA (TSTREAM VALUE) (* ; "Edited 12-Feb-2025 16:26 by rmk") @@ -750,7 +758,10 @@ (DEFINEQ (TEDIT.INSERT.OBJECT - [LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 25-Feb-2025 11:18 by rmk") + [LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 7-May-2025 00:10 by rmk") + (* ; "Edited 21-Apr-2025 22:17 by rmk") + (* ; "Edited 6-Apr-2025 14:10 by rmk") + (* ; "Edited 25-Feb-2025 11:18 by rmk") (* ; "Edited 2-Feb-2025 11:37 by rmk") (* ; "Edited 26-Dec-2024 10:13 by rmk") (* ; "Edited 21-Oct-2024 00:26 by rmk") @@ -795,7 +806,7 @@  "If this is computed text in bulk, fix the length.") (\TEDIT.THELP "SUBSTREAM NOT IMPLEMENTED") (FSETPC OBJPC PTYPE SUBSTREAM.PTYPE) - (FSETPC OBJPC PLEN (TEXTLEN (fetch (TEXTSTREAM TEXTOBJ) of SUBSTREAM)))) + (FSETPC OBJPC PLEN (TEXTLEN (FTEXTOBJ SUBSTREAM)))) (SETQ OBJSELPIECES (\TEDIT.SELPIECES.COPY (create SELPIECES SPLEN _ 1 @@ -803,7 +814,7 @@ SPLAST _ OBJPC SPFIRSTCHAR _ CH# SPLASTCHAR _ CH#) - 'INSERT TEXTOBJ)) + 'INSERT TSTREAM)) (CL:UNLESS OBJSELPIECES (* ; "Copy may not be allowed") (RETURN)) @@ -813,57 +824,71 @@  " OBJSELPIECES contains (a copy of) the object piece, and the object approved of insertion.") (SETQ SEL (TEXTSEL TEXTOBJ)) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) + (\TEDIT.SEL.OFF TSTREAM) (CL:WHEN (type? SELECTION CH#) (SETQ CH# (GETSEL CH# CH#))) (CL:WHEN (FGETTOBJ TEXTOBJ BLUEPENDINGDELETE) - (\TEDIT.DELETE TEXTOBJ SEL)) + (\TEDIT.DELETE TSTREAM SEL)) (CL:WHEN CH# (\TEDIT.UPDATE.SEL SEL (IMIN CH# (ADD1 (TEXTLEN TEXTOBJ))) 0 'LEFT) - (\TEDIT.FIXSEL SEL TEXTOBJ)) + (\TEDIT.FIXSEL SEL TSTREAM)) (\TEDIT.INSERT.SELPIECES OBJSELPIECES TEXTOBJ SEL) (CL:WHEN LOOKS (\TEDIT.CHANGE.CHARLOOKS TSTREAM LOOKS SEL)) (\TEDIT.SCROLL.CARET TSTREAM) - (\TEDIT.SHOWSEL SEL T TEXTOBJ]) + (\TEDIT.SEL.ON TSTREAM]) (TEDIT.EDIT.OBJECT - [LAMBDA (TSTREAM OBJ) (* ; "Edited 3-Oct-2024 22:08 by rmk") + [LAMBDA (TSTREAM OBJ) (* ; "Edited 7-May-2025 00:09 by rmk") + (* ; "Edited 6-Apr-2025 23:14 by rmk") + (* ; "Edited 3-Oct-2024 22:08 by rmk") (* ; "Edited 10-May-2024 22:42 by rmk") - (* ; "Edited 7-May-2024 08:18 by rmk") - (* ; "Edited 29-Apr-2024 12:41 by rmk") (* ; "Edited 15-Mar-2024 14:23 by rmk") (* ; "Edited 2-Dec-2023 09:57 by rmk") (* ; "Edited 19-May-2023 21:35 by rmk") (* ; "Edited 27-Apr-2023 00:14 by rmk") (* ; "Edited 21-Oct-2022 18:37 by rmk") (* ; "Edited 29-May-91 18:23 by jds") + + (* ;; "If OBJ, makes it be the selection and SELOBJ. Then edits SELOBJ") + (SETQ TSTREAM (TEXTSTREAM TSTREAM)) - (LET ((TEXTOBJ (TEXTOBJ! (FGETTSTR TSTREAM TEXTOBJ))) - SEL CH# EDITFN) - [COND - [(AND OBJ (IMAGEOBJP OBJ)) - (SETQ CH# (TEDIT.FIND.OBJECT TEXTOBJ OBJ)) - (COND - (CH# (SETQ SEL (\TEDIT.COPYSEL (FGETTOBJ TEXTOBJ SEL))) - (\TEDIT.UPDATE.SEL SEL CH# 1) - (SETSEL SEL SELOBJ OBJ) - (\TEDIT.FIXSEL SEL TEXTOBJ)) - (T (TEDIT.PROMPTPRINT TEXTOBJ "Can't find specified object." T] - (T (SETQ SEL (FGETTOBJ TEXTOBJ SEL)) - (SETQ OBJ (GETSEL SEL SELOBJ] - (COND - (CH# (* ; + (PROG ((TEXTOBJ (FTEXTOBJ TSTREAM)) + CH# EDITFN) + (if (IMAGEOBJP OBJ) + then (SETQ CH# (TEDIT.FIND.OBJECT TSTREAM OBJ)) + (if CH# + then (\TEDIT.SEL.OFF TSTREAM) + (\TEDIT.UPDATE.SEL TSTREAM CH# 1) + (\TEDIT.FIXSEL NIL TSTREAM) + (SETSEL (TEXTSEL TEXTOBJ) + SELOBJ OBJ) + (TEDIT.NORMALIZECARET TSTREAM) + else (TEDIT.PROMPTPRINT TSTREAM "Can't find the specified object" T T) + (RETURN)) + elseif OBJ + then (TEDIT.PROMPTPRINT TSTREAM (CONCAT OBJ " is not an image object") + T T) + (RETURN) + elseif (SETQ OBJ (GETSEL (TEXTSEL TEXTOBJ) + SELOBJ)) + else (TEDIT.PROMPTPRINT TSTREAM "Please select an editable object" T T) + (RETURN)) + (if (SETQ EDITFN (IMAGEOBJPROP OBJ 'EDITFN)) + then (* ;  "OK There's an object selected. Edit it.") - (SETQ EDITFN (IMAGEOBJPROP OBJ 'EDITFN)) - (CL:UNLESS (AND EDITFN (APPLY* EDITFN OBJ)) (* ; + (CL:UNLESS (AND EDITFN (APPLY* EDITFN OBJ)) + (* ;  "If the editfn makes a change, update the screen.") - (TEDIT.OBJECT.CHANGED TSTREAM OBJ))) - (T (TEDIT.PROMPTPRINT TEXTOBJ "Please select an editable object" T T]) + (TEDIT.OBJECT.CHANGED TSTREAM OBJ)) + else (TEDIT.PROMPTPRINT TSTREAM (CONCAT OBJ " does not have an edit function" T]) (TEDIT.OBJECT.CHANGED - [LAMBDA (TSTREAM OBJECT PIECE/CH#/SEL) (* ; "Edited 26-Nov-2024 03:52 by rmk") + [LAMBDA (TSTREAM OBJECT PIECE/CH#/SEL) (* ; "Edited 7-May-2025 00:10 by rmk") + (* ; "Edited 21-Apr-2025 20:16 by rmk") + (* ; "Edited 20-Apr-2025 13:24 by rmk") + (* ; "Edited 26-Nov-2024 03:52 by rmk") (* ; "Edited 20-Oct-2024 12:08 by rmk") (* ; "Edited 19-Oct-2024 10:03 by rmk") (* ; "Edited 3-Oct-2024 22:58 by rmk") @@ -890,11 +915,11 @@ elseif (AND (type? SELECTION PIECE/CH#/SEL) (EQ OBJECT (FGETSEL PIECE/CH#/SEL SELOBJ))) then (FGETSEL PIECE/CH#/SEL CH#) - else (TEDIT.FIND.OBJECT TSTREAM OBJECT 1))) + else (TEDIT.FIND.OBJECT TSTREAM OBJECT 1))) (if CH# then (* ; "Change affected lines") - (\TEDIT.UPDATE.LINES TEXTOBJ 'CHANGED CH# 1) - (\TEDIT.SHOWSEL NIL T TEXTOBJ) (* ; "And mark the document dirty.") + (\TEDIT.UPDATE.LINES TSTREAM 'CHANGED CH# 1) + (\TEDIT.SEL.ON TSTREAM) (* ; "And mark the document dirty.") (FSETTOBJ TEXTOBJ \DIRTY T) else (TEDIT.PROMPTPRINT TSTREAM "Changed object not found in document" T]) @@ -1075,26 +1100,27 @@ T]) (\TEDIT.READONLY - [LAMBDA (TEXTOBJ TYPE CHNO) (* ; "Edited 4-Jul-2024 13:40 by rmk") + [LAMBDA (TSTREAM TYPE CHNO) (* ; "Edited 20-Apr-2025 23:12 by rmk") + (* ; "Edited 4-Jul-2024 13:40 by rmk") (* ; "Edited 25-May-2024 10:01 by rmk") (* ; "Edited 22-May-2024 13:00 by rmk") (* ; "Edited 1-Feb-2024 17:33 by rmk") (* ; "Edited 13-Nov-2023 11:26 by rmk") - (SETQ TEXTOBJ (TEXTOBJ TEXTOBJ)) - (if (FGETTOBJ TEXTOBJ TXTREADONLY) - then (CL:UNLESS (FGETTOBJ TEXTOBJ TXTREADONLYQUIET) - (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT (OR TYPE "Text") - " is read only--aborted") - T T)) - 'READONLY - elseif [AND (FGETTOBJ TEXTOBJ TXTAPPENDONLY) - (OR (NULL CHNO) - (ILEQ CHNO (FGETTOBJ TEXTOBJ TEXTLEN] - then (CL:UNLESS (FGETTOBJ TEXTOBJ TXTREADONLYQUIET) - (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT (OR TYPE "Text") - " is append only--aborted") - T T)) - 'APPENDONLY]) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM))) + (if (FGETTOBJ TEXTOBJ TXTREADONLY) + then (CL:UNLESS (FGETTOBJ TEXTOBJ TXTREADONLYQUIET) + (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT (OR TYPE "Text") + " is read only--aborted") + T T)) + 'READONLY + elseif [AND (FGETTOBJ TEXTOBJ TXTAPPENDONLY) + (OR (NULL CHNO) + (ILEQ CHNO (FGETTOBJ TEXTOBJ TEXTLEN] + then (CL:UNLESS (FGETTOBJ TEXTOBJ TXTREADONLYQUIET) + (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT (OR TYPE "Text") + " is append only--aborted") + T T)) + 'APPENDONLY]) ) (DEFINEQ @@ -1107,7 +1133,8 @@ TEXTLEN))]) (TEDIT.RPLCHARCODE - [LAMBDA (TSTREAM N NEWCHARCODE NEWCHARLOOKS DONTDISPLAY) (* ; "Edited 28-Mar-2025 09:58 by rmk") + [LAMBDA (TSTREAM N NEWCHARCODE NEWCHARLOOKS DONTDISPLAY) (* ; "Edited 24-Apr-2025 17:26 by rmk") + (* ; "Edited 28-Mar-2025 09:58 by rmk") (* ; "Edited 9-Feb-2025 12:21 by rmk") (* ; "Edited 7-Feb-2025 08:02 by rmk") (* ; "Edited 23-Sep-2024 00:36 by rmk") @@ -1143,7 +1170,7 @@ (CL:WHEN [AND NEWCHARLOOKS (NOT (OR (FONTP NEWCHARLOOKS) (type? CHARLOOKS NEWCHARLOOKS] (\ILLEGAL.ARG NEWCHARLOOKS)) - (\TEDIT.RPLCHARCODE TSTREAM NEWCHARCODE NEWCHARLOOKS DONTDISPLAY]) + (\TEDIT.RPLCHARCODE TSTREAM N NEWCHARCODE NEWCHARLOOKS DONTDISPLAY]) (TEDIT.NTHCHARCODE [LAMBDA (TSTREAM N) (* ; "Edited 28-Mar-2025 14:10 by rmk") @@ -1223,7 +1250,11 @@ (T TSTREAM)))]) (\TEDIT.INSERT - [LAMBDA (INSERT SEL TSTREAM DONTSCROLL TYPEIN) (* ; "Edited 5-Jan-2025 23:01 by rmk") + [LAMBDA (INSERT SEL TSTREAM DONTSCROLL TYPEIN) (* ; "Edited 7-May-2025 00:11 by rmk") + (* ; "Edited 21-Apr-2025 20:16 by rmk") + (* ; "Edited 20-Apr-2025 13:26 by rmk") + (* ; "Edited 6-Apr-2025 14:12 by rmk") + (* ; "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") @@ -1254,7 +1285,7 @@ (CL:WHEN [AND (GETSEL SEL SET) (OR (CHARCODEP INSERT) (NEQ 0 (NCHARS INSERT] - [PROG* ((TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)) + [PROG* ((TEXTOBJ (FTEXTOBJ TSTREAM)) (PARACHARS (FGETTOBJ TEXTOBJ PARABREAKCHARS)) NCHARSADDED CARETCHNO) @@ -1263,7 +1294,7 @@ (CL:WHEN (\TEDIT.READONLY TEXTOBJ NIL CARETCHNO) (RETURN NIL)) (CL:WHEN (FGETTOBJ TEXTOBJ BLUEPENDINGDELETE) (* ; "Blue pending delete?") - (\TEDIT.DELETE TEXTOBJ SEL)) + (\TEDIT.DELETE TSTREAM SEL)) (SETQ CARETCHNO (TEDIT.GETPOINT TEXTOBJ SEL)) (if (CHARCODEP INSERT) then @@ -1286,7 +1317,7 @@ (* ;; "The piece table is now correct: NCHARSADDED new characters have been been added in front of CARETCHNO. ") - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) + (\TEDIT.SEL.OFF TSTREAM) (* ;; "Set the caret so that the next insertion should also come in front of that (now displaced) character, and then update the screen.") @@ -1302,13 +1333,18 @@ (* ;; "All the panes must be updated. SELPANE mayalso need to be scrolled to make the caret visible for the next input.") - (\TEDIT.UPDATE.LINES TEXTOBJ 'INSERTION CARETCHNO NCHARSADDED) + (\TEDIT.UPDATE.LINES TSTREAM 'INSERTION CARETCHNO NCHARSADDED) (CL:WHEN (EQ SEL (TEXTSEL TEXTOBJ)) - (\TEDIT.SHOWSEL SEL T TEXTOBJ)) + (\TEDIT.SEL.ON TSTREAM)) (CL:WHEN TYPEIN (\TEDIT.SCROLL.CARET TSTREAM)))])]) (\TEDIT.MOVE - [LAMBDA (FROMSEL TOSEL FROMTSTREAM TOTSTREAM) (* ; "Edited 6-Feb-2025 16:17 by rmk") + [LAMBDA (FROMSEL TOSEL FROMTSTREAM TOTSTREAM) (* ; "Edited 7-May-2025 00:12 by rmk") + (* ; "Edited 22-Apr-2025 09:21 by rmk") + (* ; "Edited 16-Apr-2025 09:01 by rmk") + (* ; "Edited 6-Apr-2025 14:14 by rmk") + (* ; "Edited 5-Apr-2025 13:18 by rmk") + (* ; "Edited 6-Feb-2025 16:17 by rmk") (* ; "Edited 8-Dec-2024 21:37 by rmk") (* ; "Edited 26-Nov-2024 22:34 by rmk") (* ; "Edited 22-Nov-2024 15:42 by rmk") @@ -1337,8 +1373,8 @@ (* ;; "If they are in separate texts, then the modifcations to TO go into TO's history (pending delete and insert), the deletion of FROM is an event in its object. In that case it will require undos in both objects to get them both back to the original state.") (CL:UNLESS (EQ 0 (GETSEL FROMSEL DCH)) - [PROG* ((FROMOBJ (GETTSTR FROMTSTREAM TEXTOBJ)) - (TOOBJ (GETTSTR TOTSTREAM TEXTOBJ)) + [PROG* ((FROMOBJ (FTEXTOBJ FROMTSTREAM)) + (TOOBJ (FTEXTOBJ TOTSTREAM)) (TOCH# (FGETSEL TOSEL CH#)) (TODCH (FGETSEL TOSEL DCH)) (TOPOINT (FGETSEL TOSEL POINT)) @@ -1376,14 +1412,14 @@ (* ;; "Grab (a copy of) the source pieces, if image objects allow copying. FROMPIECES is essentially a clipboard for extract/insert--the FROMOBJ has not yet been changed.") (SETQ FROMPIECES (\TEDIT.SELPIECES.COPY (\TEDIT.SELPIECES FROMSEL NIL FROMOBJ) - 'MOVE TOOBJ FROMOBJ)) + 'MOVE TOTSTREAM FROMTSTREAM)) (CL:UNLESS FROMPIECES (* ;; "If bailing, should we undo the BPDEVENT (if history is ON)?") (RETURN)) - (\TEDIT.SHOWSEL FROMSEL NIL FROMOBJ) - (\TEDIT.SHOWSEL TOSEL NIL TOOBJ) + (\TEDIT.SEL.OFF FROMTSTREAM) + (\TEDIT.SEL.OFF TOTSTREAM) (* ;; "No need to recheck allowance") @@ -1392,9 +1428,10 @@ (* ;;  "Can't call \TEDIT.DELETE because we don't want to implicitly update the TOSEL for the insert.") - (\TEDIT.DELETE.SELPIECES FROMOBJ FROMSEL NIL T) + (\TEDIT.DELETE.SELPIECES FROMTSTREAM FROMSEL NIL T) (\TEDIT.SEL.DELETEDCHARS TOSEL FROMSEL) - (\TEDIT.UPDATE.LINES FROMOBJ 'DELETION FROMSEL) + (\TEDIT.UPDATE.LINES FROMTSTREAM 'DELETION (FGETSEL FROMSEL CH#) + (FGETSEL FROMSEL DCH)) (* ;; "Pop to accumulate into a single event (BPD, DELETE, INSERT).") @@ -1411,10 +1448,9 @@ (\TEDIT.HISTORYADD.COMPOSITE TOOBJ TOOBJ (LIST (\TEDIT.POPEVENT TOOBJ) (\TEDIT.POPEVENT TOOBJ)))) (RETURN)) - (\TEDIT.INSERT.SELPIECES FROMPIECES TOOBJ TOSEL) + (\TEDIT.INSERT.SELPIECES FROMPIECES TOTSTREAM TOSEL) (\TEDIT.SET.SEL.LOOKS TOSEL 'NORMAL) - (\TEDIT.FIXSEL TOSEL TOOBJ) - (\TEDIT.SHOWSEL TOSEL T TOOBJ) + (\TEDIT.SEL.ON TOTSTREAM) (* ;; "") @@ -1426,7 +1462,11 @@ (CL:IF BPD (\TEDIT.POPEVENT TOOBJ])]) (\TEDIT.COPY - [LAMBDA (FROMSEL TOSEL FROMTSTREAM TOTSTREAM) (* ; "Edited 18-Mar-2025 23:13 by rmk") + [LAMBDA (FROMSEL TOSEL FROMTSTREAM TOTSTREAM) (* ; "Edited 7-May-2025 00:12 by rmk") + (* ; "Edited 22-Apr-2025 09:12 by rmk") + (* ; "Edited 6-Apr-2025 14:16 by rmk") + (* ; "Edited 5-Apr-2025 13:19 by rmk") + (* ; "Edited 18-Mar-2025 23:13 by rmk") (* ; "Edited 23-Nov-2024 22:45 by rmk") (* ; "Edited 22-Nov-2024 15:44 by rmk") (* ; "Edited 13-Sep-2024 22:28 by rmk") @@ -1460,13 +1500,13 @@ (* ;; "Grab (a copy of) the source pieces, if image object allows") (SETQ FROMPIECES (\TEDIT.SELPIECES.COPY (\TEDIT.SELPIECES FROMSEL NIL FROMOBJ) - 'COPY TOOBJ FROMOBJ)) + 'COPY TOTSTREAM FROMTSTREAM)) (CL:UNLESS FROMPIECES (RETURN)) (* ;; "No object objected") - (\TEDIT.SHOWSEL FROMSEL NIL FROMOBJ) (* ; "Turn off any current highlighting") - (\TEDIT.SHOWSEL TOSEL NIL TOOBJ) + (\TEDIT.SEL.OFF FROMTSTREAM) (* ; "Turn off any current highlighting") + (\TEDIT.SEL.OFF TOTSTREAM) (* ;; "") @@ -1482,8 +1522,8 @@ (if (FGETTOBJ TOOBJ BLUEPENDINGDELETE) then (FSETTOBJ TOOBJ BLUEPENDINGDELETE NIL) - (\TEDIT.REPLACE.SELPIECES FROMPIECES TOOBJ TOSEL) - else (\TEDIT.INSERT.SELPIECES FROMPIECES TOOBJ TOSEL)) + (\TEDIT.REPLACE.SELPIECES FROMPIECES TOTSTREAM TOSEL) + else (\TEDIT.INSERT.SELPIECES FROMPIECES TOTSTREAM TOSEL)) (* ;; "") @@ -1491,14 +1531,15 @@ (* ;; "") - (\TEDIT.SHOWSEL TOSEL NIL TOOBJ) (* ; + (\TEDIT.SEL.OFF TOTSTREAM) (* ;  "Take down anything that might thave appeared") - (\TEDIT.FIXSEL TOSEL TOOBJ) - (\TEDIT.SHOWSEL TOSEL T TOOBJ) + (\TEDIT.SEL.ON TOTSTREAM) (\TEDIT.SCROLL.CARET TOTSTREAM)))]) (\TEDIT.REPLACE.SELPIECES - [LAMBDA (INSERTSELPIECES TEXTOBJ SEL) (* ; "Edited 19-Mar-2025 15:46 by rmk") + [LAMBDA (INSERTSELPIECES TSTREAM SEL) (* ; "Edited 7-May-2025 00:13 by rmk") + (* ; "Edited 21-Apr-2025 22:29 by rmk") + (* ; "Edited 19-Mar-2025 15:46 by rmk") (* ; "Edited 8-Dec-2024 13:46 by rmk") (* ; "Edited 26-Nov-2024 17:37 by rmk") (* ; "Edited 29-Sep-2024 00:24 by rmk") @@ -1520,16 +1561,17 @@ (* ;;  "On return, the pieces, lines, selection, and display are complete, correct, and consistent ") - (CL:UNLESS (\TEDIT.READONLY TEXTOBJ) - [PROG ((POINT (GETSEL SEL POINT)) + (CL:UNLESS (\TEDIT.READONLY TSTREAM) + [PROG ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (POINT (GETSEL SEL POINT)) (CH# (FGETSEL SEL CH#)) (DCH (FGETSEL SEL DCH)) DELEVENT ILEN) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) + (\TEDIT.SEL.OFF TSTREAM SEL) (* ;; "We first delete, then insert, updating the display after the second operation.") - (CL:WHEN (\TEDIT.DELETE.SELPIECES TEXTOBJ CH# DCH) + (CL:WHEN (\TEDIT.DELETE.SELPIECES TSTREAM CH# DCH) (* ;; "Reduce to a point to the right of the last remaining character so that FIXSEL sees starting character in its proper line.") @@ -1537,7 +1579,7 @@ 0 'RIGHT 'NORMAL) - (\TEDIT.FIXSEL SEL TEXTOBJ) + (\TEDIT.FIXSEL SEL TSTREAM) (FSETTOBJ TEXTOBJ CARETLOOKS (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ SEL)) (SETQ DELEVENT (\TEDIT.LASTEVENT TEXTOBJ T))) (* ; "Catch the deletion event") @@ -1557,13 +1599,14 @@ (SETTH DELEVENT THPOINT POINT)) (\TEDIT.UPDATE.SEL SEL CH# ILEN POINT) (if (IGREATERP ILEN DCH) - then (\TEDIT.UPDATE.LINES TEXTOBJ 'INSERTION CH# (IDIFFERENCE ILEN DCH)) + then (\TEDIT.UPDATE.LINES TSTREAM 'INSERTION CH# (IDIFFERENCE ILEN DCH)) elseif (ILESSP ILEN DCH) - then (\TEDIT.UPDATE.LINES TEXTOBJ 'DELETION CH# (IDIFFERENCE DCH ILEN)) - else (\TEDIT.UPDATE.LINES TEXTOBJ 'LOOKS CH# DCH)))])]) + then (\TEDIT.UPDATE.LINES TSTREAM 'DELETION CH# (IDIFFERENCE DCH ILEN)) + else (\TEDIT.UPDATE.LINES TSTREAM 'LOOKS CH# DCH)))])]) (\TEDIT.INSERT.SELPIECES - [LAMBDA (SELPIECES TEXTOBJ TARGETSEL DONTUPDATE) (* ; "Edited 26-Nov-2024 11:04 by rmk") + [LAMBDA (SELPIECES TSTREAM TARGETSEL DONTUPDATE) (* ; "Edited 20-Apr-2025 23:19 by rmk") + (* ; "Edited 26-Nov-2024 11:04 by rmk") (* ; "Edited 31-Oct-2024 18:01 by rmk") (* ; "Edited 22-Sep-2024 18:37 by rmk") (* ; "Edited 15-Aug-2024 10:49 by rmk") @@ -1585,9 +1628,10 @@ (* ;; "\TEDIT.INSERTCH.HISTORY uses the first piece to decide whether it is in a consecutive run of insertions.") (CL:WHEN SELPIECES - (LET ((INSCH# (TEDIT.GETPOINT TEXTOBJ TARGETSEL)) - (SPLEN (fetch (SELPIECES SPLEN) of SELPIECES)) - (SPFIRST (fetch (SELPIECES SPFIRST) of SELPIECES)) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (INSCH# (TEDIT.GETPOINT TSTREAM TARGETSEL)) + (SPLEN (GETSPC SELPIECES SPLEN)) + (SPFIRST (GETSPC SELPIECES SPFIRST)) NEXTPC) (SETQ NEXTPC (\TEDIT.ALIGNEDPIECE INSCH# TEXTOBJ)) (\TEDIT.INSERTPIECES SPFIRST NEXTPC TEXTOBJ) @@ -1599,7 +1643,7 @@ (\TEDIT.UPDATE.SEL (FGETTOBJ TEXTOBJ SEL) INSCH# SPLEN 'RIGHT) - (\TEDIT.UPDATE.LINES TEXTOBJ 'INSERTION INSCH# SPLEN)) + (\TEDIT.UPDATE.LINES TSTREAM 'INSERTION INSCH# SPLEN)) (\TEDIT.HISTORYADD TEXTOBJ (\TEDIT.HISTORY.EVENT TEXTOBJ :Insert INSCH# SPLEN NIL SPFIRST))))]) @@ -1636,7 +1680,8 @@ WINDOW TSTREAM))]) (\TEDIT.CHARDELETE - [LAMBDA (TSTREAM FORWARD) (* ; "Edited 28-Nov-2024 10:14 by rmk") + [LAMBDA (TSTREAM FORWARD) (* ; "Edited 6-Apr-2025 12:28 by rmk") + (* ; "Edited 28-Nov-2024 10:14 by rmk") (* ; "Edited 27-Nov-2024 09:18 by rmk") (* ; "Edited 29-Sep-2024 21:04 by rmk") (* ; "Edited 22-Sep-2024 18:56 by rmk") @@ -1651,7 +1696,7 @@ (* ;; "This identifies the character before or after the current caret position, and deletes it.") (CL:UNLESS (\TEDIT.READONLY TSTREAM) - (PROG* ((TEXTOBJ (GETTSTR TSTREAM TEXTOBJ)) + (PROG* ((TEXTOBJ (FTEXTOBJ TSTREAM)) (SEL (TEXTSEL TEXTOBJ)) (DCH (GETSEL SEL DCH)) CH#) @@ -1673,13 +1718,14 @@ (SETQ DCH 1) else (RETURN)) - (\TEDIT.DELETE TEXTOBJ CH# DCH (CL:IF FORWARD + (\TEDIT.DELETE TSTREAM CH# DCH (CL:IF FORWARD 'RIGHT 'LEFT)) (\TEDIT.SCROLL.CARET TSTREAM)))]) (\TEDIT.COPYPIECE - [LAMBDA (PC FROMOBJ TOOBJ UNPROTECT OPERATION PROMPTTEXTOBJ) + [LAMBDA (PC FROMTSTREAM TOTSTREAM UNPROTECT OPERATION PROMPTTEXTOBJ) + (* ; "Edited 22-Apr-2025 00:12 by rmk") (* ; "Edited 3-Aug-2024 12:40 by rmk") (* ; "Edited 15-Oct-2023 20:14 by rmk") (* ; "Edited 30-Jul-2023 22:44 by rmk") @@ -1688,14 +1734,15 @@ (* ; "Edited 7-May-2023 11:46 by rmk") (* ; "Edited 12-Jun-90 17:50 by mitani") - (* ;; "TEXTOBJ's prompt gets the message that a copy is not allowed, the FROMOBJ and TOOBJ provide the streams for the object's copy function. The copy is disconnected from PC's original connections.") + (* ;; "PROMPTTEXTOBJ's prompt gets the message that a copy is not allowed, the FROMOBJ and TOOBJ provide the streams for the object's copy function. The copy is disconnected from PC's original connections.") (* ;; "If UNPROTECT, the copies of protected pieces are unprotected") (* ;; "OPERATION keys which imageobject function to apply, if any") - (PROG (NEWPC SRCPFILE (CROSSCOPY (NEQ FROMOBJ TOOBJ))) (* ; - "No matter what, we need a fresh copy.") + (PROG ((TOOBJ (FTEXTOBJ TOTSTREAM)) + (CROSSCOPY (NEQ FROMTSTREAM TOTSTREAM)) + NEWPC SRCPFILE) (SETQ NEWPC (create PIECE using PC PNEW _ T PREVPIECE _ NIL NEXTPIECE _ NIL PTREENODE _ NIL)) (SELECTC (PTYPE PC) @@ -1727,13 +1774,15 @@ (OBJECT.PTYPE (* ;  "No copy if object doesn't allow it. Caller must be prepared for NIL?") (FSETPC NEWPC PCONTENTS (OR (\TEDIT.APPLY.OBJFN (PCONTENTS NEWPC) - OPERATION FROMOBJ TOOBJ PROMPTTEXTOBJ) + OPERATION FROMTSTREAM TOTSTREAM + PROMPTTEXTOBJ) (RETURN NIL)))) NIL) (* ;; "If moving from one text to another, we have to register the looks.") - (if (AND UNPROTECT (ffetch CLPROTECTED of (PLOOKS NEWPC))) + (if (AND UNPROTECT (FGETCLOOKS (PLOOKS NEWPC) + CLPROTECTED)) then (FSETPC NEWPC PLOOKS (\TEDIT.UNIQUIFY.CHARLOOKS (create CHARLOOKS using (PLOOKS PC) CLPROTECTED _ NIL @@ -1747,7 +1796,8 @@ (RETURN NEWPC]) (\TEDIT.APPLY.OBJFN - [LAMBDA (OBJ OPERATION FROMTOBJ TOTOBJ PROMPTTEXTOBJ) (* ; "Edited 25-Jun-2024 11:59 by rmk") + [LAMBDA (OBJ OPERATION FROMTSTREAM TOTSTREAM PROMPTTEXTOBJ)(* ; "Edited 21-Apr-2025 21:07 by rmk") + (* ; "Edited 25-Jun-2024 11:59 by rmk") (* ; "Edited 15-Mar-2024 15:38 by rmk") (* ; "Edited 15-Jul-2023 10:43 by rmk") (* ; "Edited 9-Jul-2023 16:24 by rmk") @@ -1758,24 +1808,24 @@ (* ;; "As part of an OPERATION on an image object piece, we execute the appropriate object functions. If any of them returns DONT, we print a message in the prompt window of PROMPTTEXTOBJ or FROMTOBJ, and return NIL. Otherwise, we return an object, either OBJ or a copy.") - (CL:UNLESS TOTOBJ (SETQ TOTOBJ FROMTOBJ)) - (PROG [NEWOBJ (OBJFN (IMAGEOBJPROP OBJ (SELECTQ OPERATION - (COPY 'COPYFN) - (MOVE 'WHENMOVEDFN) - (INSERT 'WHENINSERTEDFN) - (DELETE (* ; + (CL:UNLESS TOTSTREAM (SETQ TOTSTREAM FROMTSTREAM)) + (PROG ((OBJFN (IMAGEOBJPROP OBJ (SELECTQ OPERATION + (COPY 'COPYFN) + (MOVE 'WHENMOVEDFN) + (INSERT 'WHENINSERTEDFN) + (DELETE (* ;  "This may want to apply to the first pane?") - 'WHENDELETEDFN) - NIL] + 'WHENDELETEDFN) + NIL))) + NEWOBJ) (SETQ NEWOBJ (if OBJFN - then (APPLY* OBJFN OBJ (fetch (TEXTOBJ STREAMHINT) of FROMTOBJ) - (CL:UNLESS (EQ OPERATION 'DELETE) - (fetch (TEXTOBJ STREAMHINT) of TOTOBJ))) + then (APPLY* OBJFN OBJ FROMTSTREAM (CL:UNLESS (EQ OPERATION 'DELETE) + TOTSTREAM)) elseif (EQ OPERATION 'COPY) then (COPYALL OBJ) else OBJ)) (CL:WHEN (MEMB NEWOBJ '(DON'T DONT)) - (TEDIT.PROMPTPRINT (OR PROMPTTEXTOBJ FROMTOBJ) + (TEDIT.PROMPTPRINT (OR PROMPTTEXTOBJ FROMTSTREAM) (CONCAT (L-CASE OPERATION T) " of this object not allowed.") T) @@ -1785,36 +1835,29 @@ (CL:WHEN [AND (EQ OPERATION 'COPY) (SETQ OBJFN (IMAGEOBJPROP OBJ 'WHENCOPIEDFN)) - (MEMB (APPLY* OBJFN OBJ (WINDOWPROP (\TEDIT.PRIMARYPANE TOTOBJ) + (MEMB (APPLY* OBJFN OBJ (WINDOWPROP (\TEDIT.PRIMARYPANE TOTSTREAM) 'DSP) - (fetch (TEXTOBJ STREAMHINT) of FROMTOBJ) - (fetch (TEXTOBJ STREAMHINT) of TOTOBJ)) + FROMTSTREAM TOTSTREAM) '(DON'T DONT] (RETURN NIL)) (RETURN (OR (IMAGEOBJP NEWOBJ) OBJ]) (\TEDIT.DELETE - [LAMBDA (TEXTOBJ TARGETSEL/CHAR LEN POINT DONTCHECK) (* ; "Edited 19-Mar-2025 11:22 by rmk") + [LAMBDA (TSTREAM TARGETSEL/CHAR LEN POINT DONTCHECK) (* ; "Edited 22-Apr-2025 09:58 by rmk") + (* ; "Edited 20-Apr-2025 13:27 by rmk") + (* ; "Edited 6-Apr-2025 12:03 by rmk") + (* ; "Edited 19-Mar-2025 11:22 by rmk") (* ; "Edited 6-Feb-2025 00:14 by rmk") (* ; "Edited 8-Dec-2024 21:39 by rmk") - (* ; "Edited 28-Nov-2024 10:13 by rmk") - (* ; "Edited 27-Nov-2024 09:18 by rmk") (* ; "Edited 13-Sep-2024 22:30 by rmk") - (* ; "Edited 8-Sep-2024 00:07 by rmk") (* ; "Edited 7-Jul-2024 12:07 by rmk") (* ; "Edited 23-Jun-2024 19:27 by rmk") (* ; "Edited 18-May-2024 16:20 by rmk") - (* ; "Edited 12-May-2024 20:51 by rmk") - (* ; "Edited 23-Apr-2024 07:35 by rmk") (* ; "Edited 24-Apr-2024 10:42 by rmk") (* ; "Edited 15-Mar-2024 13:36 by rmk") (* ; "Edited 21-Feb-2024 20:40 by rmk") - (* ; "Edited 20-Feb-2024 20:09 by rmk") - (* ; "Edited 19-Feb-2024 11:48 by rmk") - (* ; "Edited 16-Feb-2024 08:46 by rmk") (* ; "Edited 12-Nov-2023 12:14 by rmk") - (* ; "Edited 29-Oct-2023 00:19 by rmk") (* ; "Edited 6-Jun-2023 12:48 by rmk") (* ; "Edited 29-May-91 18:22 by jds") @@ -1827,46 +1870,45 @@ (* ;; "If this is called as part of a move, SEL should end up at the location of the insert, adjusted if the TARGETSEL comes earlier. If this is just a delete, SEL should end up as a point selection at TARGETSEL's CH#.") - (CL:UNLESS TARGETSEL/CHAR - (SETQ TARGETSEL/CHAR (TEXTSEL TEXTOBJ))) - (LET ((SEL (TEXTSEL TEXTOBJ)) - CLOOKS FIRSTCHAR) - [if (type? SELECTION TARGETSEL/CHAR) - then (SETQ CLOOKS (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ TARGETSEL/CHAR)) - (SETQ FIRSTCHAR (FGETSEL TARGETSEL/CHAR CH#)) - (CL:UNLESS LEN - (SETQ LEN (FGETSEL TARGETSEL/CHAR DCH))) - (SETQ POINT (FGETSEL TARGETSEL/CHAR POINT)) - else (SETQ FIRSTCHAR TARGETSEL/CHAR) - (CL:UNLESS POINT - (SETQ POINT 'LEFT))] - [SETQ CLOOKS (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ (CL:IF (EQ POINT 'LEFT) - (SUB1 FIRSTCHAR) - (IPLUS FIRSTCHAR LEN))] - (CL:WHEN (\TEDIT.DELETE.SELPIECES TEXTOBJ FIRSTCHAR LEN DONTCHECK) + (LET* ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (SEL (TEXTSEL TEXTOBJ)) + CLOOKS FIRSTCHAR) + (CL:UNLESS TARGETSEL/CHAR (SETQ TARGETSEL/CHAR SEL)) + [if (type? SELECTION TARGETSEL/CHAR) + then (SETQ CLOOKS (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ TARGETSEL/CHAR)) + (SETQ FIRSTCHAR (FGETSEL TARGETSEL/CHAR CH#)) + (CL:UNLESS LEN + (SETQ LEN (FGETSEL TARGETSEL/CHAR DCH))) + (SETQ POINT (FGETSEL TARGETSEL/CHAR POINT)) + else (SETQ FIRSTCHAR TARGETSEL/CHAR) + (CL:UNLESS POINT + (SETQ POINT 'LEFT))] + [SETQ CLOOKS (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ (CL:IF (EQ POINT 'LEFT) + FIRSTCHAR + (IPLUS -1 FIRSTCHAR LEN))] + (CL:WHEN (\TEDIT.DELETE.SELPIECES TSTREAM FIRSTCHAR LEN DONTCHECK) (* ;  "Delete the selected characters (if objects allow)") - (* ;; "Pieces are gone, make lines, SEL, and caret looks consistent with current text.") + (* ;; + "Pieces are gone, make lines, SEL, and caret looks consistent with current text.") - (\TEDIT.UPDATE.LINES TEXTOBJ 'DELETION FIRSTCHAR LEN) - (FSETTOBJ TEXTOBJ CARETLOOKS CLOOKS) + (\TEDIT.UPDATE.LINES TSTREAM 'DELETION FIRSTCHAR LEN) + (FSETTOBJ TEXTOBJ CARETLOOKS CLOOKS) - (* ;; "Adjust SEL and TARGETSEL to reflect the deleted characters.") + (* ;; "Adjust SEL and TARGETSEL to reflect the deleted characters.") - (\TEDIT.SEL.DELETEDCHARS SEL FIRSTCHAR LEN) + (\TEDIT.SEL.DELETEDCHARS SEL FIRSTCHAR LEN) - (* ;; "In any event, TARGETSEL's characters are all gone, reduce it to a point selection in case it is still in use. And then SEL moves to the position of the deletion.") + (* ;; "In any event, TARGETSEL's characters are all gone, reduce it to a point selection in case it is still in use. And then SEL moves to the position of the deletion.") - (* ;; "This is to the right of the last remaining character so that FIXSEL sees starting character in its proper line.") + (* ;; "This is to the right of the last remaining character so that FIXSEL sees starting character in its proper line.") - (\TEDIT.RESET.EXTEND.PENDING.DELETE TEXTOBJ) - (\TEDIT.UPDATE.SEL SEL (SUB1 FIRSTCHAR) - 0 - 'RIGHT) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ) - T)]) + (\TEDIT.RESET.EXTEND.PENDING.DELETE TEXTOBJ) + (\TEDIT.UPDATE.SEL TSTREAM (SUB1 FIRSTCHAR) + 0 + 'RIGHT) + T)]) (\TEDIT.DIFFUSE.PARALOOKS [LAMBDA (PRIORPC SUCCEEDINGPC) (* ; "Edited 16-Feb-2024 00:07 by rmk") @@ -1894,7 +1936,8 @@ (PPARALAST PC)) do (FSETPC PC PPARALOOKS PPLOOKS)))]) (\TEDIT.WORDDELETE - [LAMBDA (TSTREAM) (* ; "Edited 27-Nov-2024 23:21 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 6-Apr-2025 12:31 by rmk") + (* ; "Edited 27-Nov-2024 23:21 by rmk") (* ; "Edited 31-Oct-2024 17:47 by rmk") (* ; "Edited 7-Jul-2024 11:35 by rmk") (* ; "Edited 29-Apr-2024 11:01 by rmk") @@ -1903,8 +1946,7 @@ (* ; "Edited 23-May-2023 16:37 by rmk") (* ; "Edited 22-May-2023 10:52 by rmk") (* ; "Edited 29-May-91 18:22 by jds") - (LET ((TEXTOBJ (GETTSTR TSTREAM TEXTOBJ)) - LASTNO FIRSTNO) + (LET (LASTNO FIRSTNO) (SETQ LASTNO (SUB1 (TEDIT.GETPOINT TSTREAM))) (* ;; "LASTNO is the final (i.e., highest-numbered) character to be deleted.") @@ -1912,10 +1954,11 @@ (CL:UNLESS (ILEQ LASTNO 0) (* ;  "Nothing to delete at start of file.") (SETQ FIRSTNO (\TEDIT.WORD.FIRST TSTREAM LASTNO)) - (\TEDIT.DELETE TEXTOBJ FIRSTNO (ADD1 (IDIFFERENCE LASTNO FIRSTNO))))]) + (\TEDIT.DELETE TSTREAM FIRSTNO (ADD1 (IDIFFERENCE LASTNO FIRSTNO))))]) (\TEDIT.WORDDELETE.FORWARD - [LAMBDA (TSTREAM) (* ; "Edited 27-Nov-2024 20:31 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 6-Apr-2025 12:30 by rmk") + (* ; "Edited 27-Nov-2024 20:31 by rmk") (* ; "Edited 31-Oct-2024 17:47 by rmk") (* ; "Edited 7-Jul-2024 11:35 by rmk") (* ; "Edited 29-Apr-2024 10:59 by rmk") @@ -1927,18 +1970,20 @@ (* ;; "This deletes all characters from the character just after the caret to the end of the following word, skipping over separators to reach the target word.") - (LET ((TEXTOBJ (TEXTOBJ! (GETTSTR TSTREAM TEXTOBJ))) - FIRSTNO LASTNO) + (LET (FIRSTNO LASTNO) (* ;; "LASTNO is the final (i.e., highest-numbered) character to be deleted.") (SETQ FIRSTNO (TEDIT.GETPOINT TSTREAM)) - (CL:UNLESS (IGREATERP FIRSTNO (TEXTLEN TEXTOBJ)) (* ; "Nothing to delete at end of file.") + (CL:UNLESS (IGREATERP FIRSTNO (TEXTLEN (FTEXTOBJ TSTREAM))) + (* ; "Nothing to delete at end of file.") (SETQ LASTNO (\TEDIT.WORD.LAST TSTREAM FIRSTNO)) - (\TEDIT.DELETE TEXTOBJ FIRSTNO (ADD1 (IDIFFERENCE LASTNO FIRSTNO))))]) + (\TEDIT.DELETE TSTREAM FIRSTNO (ADD1 (IDIFFERENCE LASTNO FIRSTNO))))]) (\TEDIT.FINISHEDIT? - [LAMBDA (TSTREAM NOFORCE) (* ; "Edited 14-Jul-2024 12:25 by rmk") + [LAMBDA (TSTREAM NOFORCE) (* ; "Edited 27-Apr-2025 23:53 by rmk") + (* ; "Edited 19-Apr-2025 10:47 by rmk") + (* ; "Edited 14-Jul-2024 12:25 by rmk") (* ; "Edited 1-Jul-2024 16:11 by rmk") (* ; "Edited 30-Jun-2024 12:36 by rmk") (* ; "Edited 25-Jun-2024 11:59 by rmk") @@ -1949,9 +1994,9 @@ (* ; "Edited 20-Sep-2023 23:24 by rmk") (* ; "Edited 12-Jun-90 17:50 by mitani") - (* ;; "Called to determine whether the edit in TSTREAM can be terminated. If there are no active operations and non of the QUITFNS (if any) returns DON'T, then the stream EDITFINISHEDFLG is set to T and NIL is returned. Setting the flag to T will allow the edit process to terminate.") + (* ;; "Called to determine whether the edit in TSTREAM can be terminated. If there are no active operations and non of the QUITFNS (if any) returns DON'T, then the stream EDITFINISHEDFLG is set to T and T is returned. Setting the flag to T allows the edit process to terminate.") - (* ;; "Otherwise, the return value is DON'T, so that this can be used by itself to guard closing as a CLOSEWFN.") + (* ;; "Otherwise, the return value is DON'T, so that this can be used by itself to guard closing as a window CLOSEFN.") (* ;; "Menus can always be closed.") @@ -1963,12 +2008,15 @@ (* ;; "We're busy doing something, don't close with a message") - (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "Not closed: " (CL:IF (EQ T (FGETTOBJ TEXTOBJ - EDITOPACTIVE)) - "Edit" - (FGETTOBJ TEXTOBJ EDITOPACTIVE)) - " operation in progress") - T) + (CL:UNLESS (STRING.EQUAL "Get" (FGETTOBJ TEXTOBJ EDITOPACTIVE)) + (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "Not closed: " (CL:IF (EQ T (FGETTOBJ TEXTOBJ + EDITOPACTIVE + )) + "Edit" + (FGETTOBJ TEXTOBJ + EDITOPACTIVE)) + " operation in progress") + T)) (RETURN 'DON'T)) [for QUITFN (PRIMPANE _ (FGETTOBJ TEXTOBJ PRIMARYPANE)) inside QUITFNS until (OR (EQ QUITFLG 'DON'T) @@ -2003,7 +2051,7 @@ 'WINDOW] (TTY.PROCESS (WINDOWPROP PRIMPANE 'PROCESS))) (FSETTOBJ TEXTOBJ EDITFINISHEDFLG T) - (RETURN NIL]) + (RETURN T]) ) (DEFINEQ @@ -2067,7 +2115,8 @@ when (PPARALAST PC) collect CHNO repeatuntil (EQ PC LASTPARAPC]) (\TEDIT.PARA.FIRST - [LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 30-Jan-2025 12:02 by rmk") + [LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 26-Apr-2025 11:33 by rmk") + (* ; "Edited 30-Jan-2025 12:02 by rmk") (* ; "Edited 11-Jan-2025 00:08 by rmk") (* ; "Edited 17-Mar-2024 00:27 by rmk") (* ; "Edited 19-Jan-2024 10:10 by rmk") @@ -2105,7 +2154,7 @@ (* ;; "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))]) @@ -2258,15 +2307,22 @@ else CHNO]) ) -(FILESLOAD TEDIT-FIND TEDIT-HISTORY TEDIT-FILE TEDIT-OLDFILE TEDIT-WINDOW TEDIT-SELECTION - TEDIT-TFBRAVO TEDIT-HCPY TEDIT-PAGE TEDIT-BUTTONS TEDIT-MENU TEDIT-FNKEYS) +(FILESLOAD TEDIT-FIND TEDIT-HISTORY TEDIT-FILE TEDIT-OLDFILE TEDIT-WINDOW TEDIT-TFBRAVO TEDIT-HCPY + TEDIT-PAGE TEDIT-BUTTONS TEDIT-MENU TEDIT-FNKEYS) (* ; "TEDIT Support information") +(DEFINEQ -(RPAQQ TEDITSYSTEMDATE "31-Mar-2025 12:04:23") +(TEDITSYSTEMDATE + [LAMBDA NIL (* ; "Edited 28-May-2025 16:04 by rmk") + (for F in TEDITFILES largest [IDATE (CAAR (GETP F 'FILEDATES] + finally (RETURN (CAAR (GETP $$VAL 'FILEDATES]) +) + +(RPAQ TEDITSYSTEMDATE (TEDITSYSTEMDATE)) @@ -2276,26 +2332,26 @@ (ADDTOVAR PRINTFILETYPES (TEDIT (TEST \TEDIT.GET.TRAILER) (EXTENSION (TEDIT)))) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4795 7189 (MAKE-TEDIT-EXPORTS.ALL 4805 . 5351) (UPDATE-TEDIT 5353 . 6282) (EDIT-TEDIT -6284 . 7187)) (8697 36163 (TEDIT 8707 . 11285) (TEXTSTREAM 11287 . 13207) (TEXTSTREAMP 13209 . 13593) -(COERCETEXTSTREAM 13595 . 17806) (TEDIT.CONCAT 17808 . 21114) (TEDITSTRING 21116 . 22030) (TEDIT-SEE -22032 . 22591) (TEDIT.COPY 22593 . 24738) (TEDIT.DELETE 24740 . 25992) (TEDIT.INSERT 25994 . 28952) ( -TEDIT.TERPRI 28954 . 30068) (TEDIT.KILL 30070 . 30986) (TEDIT.QUIT 30988 . 32354) (TEDIT.MOVE 32356 . -33244) (TEDIT.STRINGWIDTH 33246 . 33917) (TEDIT.CHARWIDTH 33919 . 36161)) (36164 38105 (TEXTOBJ 36174 - . 36639) (COERCETEXTOBJ 36641 . 38103)) (39505 41155 (TDRIBBLE 39515 . 41153)) (41196 53304 ( -TEDIT.INSERT.OBJECT 41206 . 46047) (TEDIT.EDIT.OBJECT 46049 . 48390) (TEDIT.OBJECT.CHANGED 48392 . -51259) (TEDIT.MAP.OBJECTS 51261 . 52832) (\TEDIT.FIRST.OBJPIECE 52834 . 53067) (\TEDIT.NEXT.OBJPIECE -53069 . 53302)) (53327 60770 (\TEDIT.CONCAT.PAGEFRAMES 53337 . 58404) (\TEDIT.GET.PAGE.HEADINGS 58406 - . 59435) (\TEDIT.CONCAT.INSTALL.HEADINGS 59437 . 60768)) (60771 64200 (\TEDIT.MOVE.MSG 60781 . 62862) - (\TEDIT.READONLY 62864 . 64198)) (64201 69865 (TEDIT.NCHARS 64211 . 64584) (TEDIT.RPLCHARCODE 64586 - . 67465) (TEDIT.NTHCHARCODE 67467 . 69394) (TEDIT.NTHCHAR 69396 . 69863)) (69911 124812 (\TEDIT1 -69921 . 71998) (\TEDIT.INSERT 72000 . 77977) (\TEDIT.MOVE 77979 . 85329) (\TEDIT.COPY 85331 . 89464) ( -\TEDIT.REPLACE.SELPIECES 89466 . 93631) (\TEDIT.INSERT.SELPIECES 93633 . 96518) (\TEDIT.RESTARTFN -96520 . 99025) (\TEDIT.CHARDELETE 99027 . 101854) (\TEDIT.COPYPIECE 101856 . 106704) ( -\TEDIT.APPLY.OBJFN 106706 . 109903) (\TEDIT.DELETE 109905 . 114942) (\TEDIT.DIFFUSE.PARALOOKS 114944 - . 117215) (\TEDIT.WORDDELETE 117217 . 118773) (\TEDIT.WORDDELETE.FORWARD 118775 . 120447) ( -\TEDIT.FINISHEDIT? 120449 . 124810)) (124813 125472 (\TEDIT.THELP 124823 . 125470)) (125506 134290 ( -\TEDIT.PARAPIECES 125516 . 127490) (\TEDIT.PARACHNOS 127492 . 128384) (\TEDIT.PARA.FIRST 128386 . -131253) (\TEDIT.PARA.LAST 131255 . 134288)) (134291 141386 (\TEDIT.WORD.FIRST 134301 . 138305) ( -\TEDIT.WORD.LAST 138307 . 141384))))) + (FILEMAP (NIL (4856 7250 (MAKE-TEDIT-EXPORTS.ALL 4866 . 5412) (UPDATE-TEDIT 5414 . 6343) (EDIT-TEDIT +6345 . 7248)) (8680 36702 (TEDIT 8690 . 11268) (TEXTSTREAM 11270 . 13159) (TEXTSTREAMP 13161 . 13545) +(COERCETEXTSTREAM 13547 . 17758) (TEDIT.CONCAT 17760 . 21062) (TEDITSTRING 21064 . 21978) (TEDIT-SEE +21980 . 22539) (TEDIT.COPY 22541 . 24686) (TEDIT.DELETE 24688 . 26049) (TEDIT.INSERT 26051 . 29425) ( +TEDIT.TERPRI 29427 . 30541) (TEDIT.KILL 30543 . 31525) (TEDIT.QUIT 31527 . 32893) (TEDIT.MOVE 32895 . +33783) (TEDIT.STRINGWIDTH 33785 . 34456) (TEDIT.CHARWIDTH 34458 . 36700)) (36703 38644 (TEXTOBJ 36713 + . 37178) (COERCETEXTOBJ 37180 . 38642)) (40044 41694 (TDRIBBLE 40054 . 41692)) (41735 55044 ( +TEDIT.INSERT.OBJECT 41745 . 46865) (TEDIT.EDIT.OBJECT 46867 . 49807) (TEDIT.OBJECT.CHANGED 49809 . +52999) (TEDIT.MAP.OBJECTS 53001 . 54572) (\TEDIT.FIRST.OBJPIECE 54574 . 54807) (\TEDIT.NEXT.OBJPIECE +54809 . 55042)) (55067 62510 (\TEDIT.CONCAT.PAGEFRAMES 55077 . 60144) (\TEDIT.GET.PAGE.HEADINGS 60146 + . 61175) (\TEDIT.CONCAT.INSTALL.HEADINGS 61177 . 62508)) (62511 66118 (\TEDIT.MOVE.MSG 62521 . 64602) + (\TEDIT.READONLY 64604 . 66116)) (66119 71894 (TEDIT.NCHARS 66129 . 66502) (TEDIT.RPLCHARCODE 66504 + . 69494) (TEDIT.NTHCHARCODE 69496 . 71423) (TEDIT.NTHCHAR 71425 . 71892)) (71940 128711 (\TEDIT1 +71950 . 74027) (\TEDIT.INSERT 74029 . 80394) (\TEDIT.MOVE 80396 . 88302) (\TEDIT.COPY 88304 . 92835) ( +\TEDIT.REPLACE.SELPIECES 92837 . 97264) (\TEDIT.INSERT.SELPIECES 97266 . 100263) (\TEDIT.RESTARTFN +100265 . 102770) (\TEDIT.CHARDELETE 102772 . 105701) (\TEDIT.COPYPIECE 105703 . 110716) ( +\TEDIT.APPLY.OBJFN 110718 . 113804) (\TEDIT.DELETE 113806 . 118174) (\TEDIT.DIFFUSE.PARALOOKS 118176 + . 120447) (\TEDIT.WORDDELETE 120449 . 122064) (\TEDIT.WORDDELETE.FORWARD 122066 . 123855) ( +\TEDIT.FINISHEDIT? 123857 . 128709)) (128712 129371 (\TEDIT.THELP 128722 . 129369)) (129405 138310 ( +\TEDIT.PARAPIECES 129415 . 131389) (\TEDIT.PARACHNOS 131391 . 132283) (\TEDIT.PARA.FIRST 132285 . +135273) (\TEDIT.PARA.LAST 135275 . 138308)) (138311 145406 (\TEDIT.WORD.FIRST 138321 . 142325) ( +\TEDIT.WORD.LAST 142327 . 145404)) (145607 145884 (TEDITSYSTEMDATE 145617 . 145882))))) STOP diff --git a/library/tedit/TEDIT-ABBREV b/library/tedit/TEDIT-ABBREV index 88b76fa5..9098e61d 100644 --- a/library/tedit/TEDIT-ABBREV +++ b/library/tedit/TEDIT-ABBREV @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "28-Mar-2025 10:13:36" {WMEDLEY}tedit>TEDIT-ABBREV.;21 15982 +(FILECREATED "24-Apr-2025 23:45:12" {WMEDLEY}tedit>TEDIT-ABBREV.;23 16200 :EDIT-BY rmk :CHANGES-TO (FNS \TEDIT.ABBREV.PARSE) - :PREVIOUS-DATE "23-Mar-2025 17:09:00" {WMEDLEY}tedit>TEDIT-ABBREV.;20) + :PREVIOUS-DATE "20-Apr-2025 23:30:29" {WMEDLEY}tedit>TEDIT-ABBREV.;22) (PRETTYCOMPRINT TEDIT-ABBREVCOMS) @@ -63,7 +63,8 @@ (DEFINEQ (\TEDIT.ABBREV.EXPAND - [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 20-Mar-2025 21:52 by rmk") + [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 20-Apr-2025 23:30 by rmk") + (* ; "Edited 20-Mar-2025 21:52 by rmk") (* ; "Edited 30-May-91 19:27 by jds") (* ; "Expand an abbvreviation") (LET ((CANDIDATES (\TEDIT.ABBREV.PARSE TSTREAM SEL)) @@ -92,11 +93,12 @@ (\TEDIT.REPLACE.SELPIECES (\TEDIT.SELPIECES.FROM.STRING EXPANSION TEXTOBJ NIL (PCHARLOOKS (\TEDIT.CHTOPC (CADR CAND) TEXTOBJ))) - TEXTOBJ SEL) + TSTREAM SEL) else (TEDIT.PROMPTPRINT TSTREAM "No abbreviation to expand" T]) (\TEDIT.ABBREV.PARSE - [LAMBDA (TSTREAM SEL) (* ; "Edited 28-Mar-2025 10:11 by rmk") + [LAMBDA (TSTREAM SEL) (* ; "Edited 24-Apr-2025 23:45 by rmk") + (* ; "Edited 28-Mar-2025 10:11 by rmk") (* ; "Edited 23-Mar-2025 17:08 by rmk") (* ; "Edited 20-Mar-2025 22:21 by rmk") @@ -159,7 +161,7 @@ FIRST# LEN))) (* ; "Extend if a ,") [for C KEY END in CANDIDATES do - (* ;; "Comma for XCCS character names, - and / - for internal punctuation (3/4 EM-DASH). Adjacent character must be text") + (* ;; "Comma for MCCS character names, - and / - for internal punctuation (3/4 EM-DASH). Adjacent character must be text") (if [AND (MEMB (\TEDIT.NTHCHARCODE TSTREAM (SUB1 (CADR C))) (CHARCODE (%, / -))) @@ -306,6 +308,6 @@ ("DATE" . \TEDIT.EXPAND.DATE) (">>DATE<<" . \TEDIT.EXPAND.DATE))) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2933 14638 (\TEDIT.ABBREV.EXPAND 2943 . 5054) (\TEDIT.ABBREV.PARSE 5056 . 12340) ( -\TEDIT.EXPAND.DATE 12342 . 12975) (\TEDIT.TRY.ABBREV 12977 . 14636))))) + (FILEMAP (NIL (2933 14856 (\TEDIT.ABBREV.EXPAND 2943 . 5163) (\TEDIT.ABBREV.PARSE 5165 . 12558) ( +\TEDIT.EXPAND.DATE 12560 . 13193) (\TEDIT.TRY.ABBREV 13195 . 14854))))) STOP diff --git a/library/tedit/TEDIT-ABBREV.LCOM b/library/tedit/TEDIT-ABBREV.LCOM index b01804eed14c83acf82a92c4e035e9e838e9d7a1..109a1d5f1f90379a3aac654a9a2c124573ea978f 100644 GIT binary patch delta 315 zcmbQOzCe9KM7^=DS81NEk%5t^f`O%#fw`5Tsgi<*QgVK7L1s>Bib8&#f|3GPwM(#f ztxafgYEiLWc49$JVxFB(esW@tU2bYhPHLsGo~d1WW{EC@XP1+iRFqg$X&2(^;u!)V zbse3Yf?UJ&tPPDd6_kwNw$=l!wXiZaw=yvUT2lhDHb*^0Arok;Td0qZ0z##!f}Wn9 zl0r&i3D8wYCcq3ZHB!>#(s1+iadi%Ibp%=sRAi#-SWpD*nUaErQgVK7L1s>Bib8&#!enrsjzPh$3YmEd zN^YS(J_^Xj=;`SxDWoKp0IkAizOk{ACYOerr@W7=bC9be&{PE_BP?zPxslya!O+yw n!f0|iqnofXl1t643@oh-3?^S-)M7N4{G0I%qvPfiOg97oevd<5 diff --git a/library/tedit/TEDIT-BUTTONS b/library/tedit/TEDIT-BUTTONS index 69d60bf8..2f00fe35 100644 --- a/library/tedit/TEDIT-BUTTONS +++ b/library/tedit/TEDIT-BUTTONS @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "24-Mar-2025 09:26:13" {WMEDLEY}tedit>TEDIT-BUTTONS.;223 124611 +(FILECREATED "30-Apr-2025 14:09:18" {WMEDLEY}tedit>TEDIT-BUTTONS.;228 125393 :EDIT-BY rmk - :CHANGES-TO (FNS MB.FIELD.INSURETYPE MB.BUTTONEVENTINFN) + :CHANGES-TO (FNS MB.NWAY.ADDITEM MB.NWAY.CREATE MB.NWAY.SETSTATEFN MB.NWAY.SELECT) - :PREVIOUS-DATE "14-Mar-2025 15:29:51" {WMEDLEY}TEDIT>TEDIT-BUTTONS.;219) + :PREVIOUS-DATE "14-Apr-2025 23:50:23" {WMEDLEY}tedit>TEDIT-BUTTONS.;226) (PRETTYCOMPRINT TEDIT-BUTTONSCOMS) @@ -67,7 +67,8 @@ (DEFINEQ (MB.ADD - [LAMBDA (MENUDESC MENUTSTREAM WHERE INCREMENTALUPDATES) (* ; "Edited 5-Jan-2025 11:36 by rmk") + [LAMBDA (MENUDESC MENUTSTREAM WHERE INCREMENTALUPDATES) (* ; "Edited 6-Apr-2025 14:35 by rmk") + (* ; "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") @@ -156,10 +157,10 @@ (* ;; "Form to be evaluated") (add CH# (EVAL TYPE)) - else (\ILLEGAL.ARG DESC))) finally (\TEDIT.SHOWSEL NIL NIL MENUTSTREAM) + else (\ILLEGAL.ARG DESC))) finally (\TEDIT.NOSEL MENUTSTREAM) (* ;  "User has to click to get a selection") - (SETSEL (TEXTSEL (GETTSTR MENUTSTREAM TEXTOBJ)) + (SETSEL (TEXTSEL (FTEXTOBJ MENUTSTREAM)) SET NIL) (RETURN CH#)))]) @@ -753,6 +754,7 @@ (MB.3STATE.BUTTONEVENTINFN [LAMBDA (OBJ MENUDS SEL RELX RELY MENUWINDOW MENUTSTREAM BUTTON) + (* ; "Edited 14-Apr-2025 23:49 by rmk") (* ; "Edited 22-Dec-2024 22:45 by rmk") (* ; "Edited 7-Dec-2024 13:11 by rmk") (* ; "Edited 5-Dec-2024 21:53 by rmk") @@ -794,8 +796,7 @@ else (* ; "Buttons came up: do it") (IMAGEOBJPROP OBJ 'STATE NEXTSTATE) (CL:WHEN (SETQ STATECHANGEFN (IMAGEOBJPROP OBJ 'STATECHANGEFN)) - (APPLY* STATECHANGEFN OBJ NEXTSTATE (fetch (TEXTWINDOW WTEXTSTREAM) - of MENUDS)))]) + (APPLY* STATECHANGEFN OBJ NEXTSTATE (PANETEXTSTREAM MENUDS)))]) (TEDIT.BACKTOMAIN MENUTSTREAM))) 'DON'T]) ) @@ -816,7 +817,8 @@ (DEFINEQ (MB.NWAY.CREATE - [LAMBDA (SPEC MENUTSTREAM CH#) (* ; "Edited 16-Feb-2025 12:08 by rmk") + [LAMBDA (SPEC MENUTSTREAM CH#) (* ; "Edited 30-Apr-2025 14:06 by rmk") + (* ; "Edited 16-Feb-2025 12:08 by rmk") (* ; "Edited 9-Jan-2025 11:38 by rmk") (* ; "Edited 4-Jan-2025 21:39 by rmk") (* ; "Edited 20-Dec-2024 22:17 by rmk") @@ -833,6 +835,7 @@ (* gbn "24-Sep-84 15:31") (LET ((IDENTIFIER (CADR (ASSOC 'IDENTIFIER SPEC))) (BUTTONS (CADR (ASSOC 'BUTTONS SPEC))) + (SORTBUTTONS (CADR (ASSOC 'SORTBUTTONS SPEC))) [FONT (FONTCREATE (OR (CADR (ASSOC 'FONT SPEC)) '(HELVETICA 8 BOLD] (STATECHANGEFN (CADR (ASSOC 'STATECHANGEFN SPEC))) @@ -876,14 +879,14 @@ (* ;; "At most, we're as wide as the N widest buttons put together. COPY because we want to preserve the original order") - [IMAGEOBJPROP OBJ 'MAXWIDTH (for SOBJ - in [SORT (COPY SUBOBJECTS) - (FUNCTION (LAMBDA (A B) - (IGEQ (fetch XSIZE - of (IMAGEOBJPROP A 'BOUNDBOX)) - (fetch XSIZE - of (IMAGEOBJPROP B 'BOUNDBOX] - as I from 1 to MAXITEMS/LINE + (CL:WHEN SORTBUTTONS + (IMAGEOBJPROP OBJ 'SORTBUTTONS T) + [SETQ SUBOBJECTS (SORT SUBOBJECTS (FUNCTION (LAMBDA (A B) + (IGEQ (fetch XSIZE + of (IMAGEOBJPROP A 'BOUNDBOX)) + (fetch XSIZE + of (IMAGEOBJPROP B 'BOUNDBOX]) + [IMAGEOBJPROP OBJ 'MAXWIDTH (for SOBJ in SUBOBJECTS as I from 1 to MAXITEMS/LINE sum (fetch XSIZE of (IMAGEOBJPROP SOBJ 'BOUNDBOX)) finally (RETURN (IPLUS $$VAL (ITIMES SPACING (SUB1 MAXITEMS/LINE @@ -1191,7 +1194,8 @@ (RETURN (DREVERSE LINES]) (MB.NWAY.ADDITEM - [LAMBDA (OBJ NEWBUTTON) (* ; "Edited 9-Jan-2025 11:38 by rmk") + [LAMBDA (OBJ NEWBUTTON) (* ; "Edited 30-Apr-2025 14:09 by rmk") + (* ; "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") @@ -1205,15 +1209,17 @@ (* ;; "Given an existing n-way choice menu button, add another choice to the list. The items are arranged in alphabetical order by their labels. MAXITEMS/LINE is goofy: it should flow with reshaping of the window.") (CL:WHEN NEWBUTTON - (LET* [(SUBOBJECTS (IMAGEOBJPROP OBJ 'SUBOBJECTS)) - [NEWSOBJ (MB.TOGGLE.CREATE `((IDENTIFIER ,NEWBUTTON) + (LET* [[NEWSOBJ (MB.TOGGLE.CREATE `((IDENTIFIER ,NEWBUTTON) (LABEL ,NEWBUTTON) (FONT ,(IMAGEOBJPROP OBJ 'FONT] + (SUBOBJECTS (APPEND (IMAGEOBJPROP OBJ 'SUBOBJECTS) + (CONS NEWSOBJ))) (MAXITEMS/LINE (IMAGEOBJPROP OBJ 'MAXITEMS/LINE] - [SETQ SUBOBJECTS (SORT (CONS NEWSOBJ SUBOBJECTS) - (FUNCTION (LAMBDA (S1 S2) - (ALPHORDER (IMAGEOBJPROP S1 'LABEL) - (IMAGEOBJPROP S2 'LABEL] + (CL:WHEN (IMAGEOBJPROP OBJ 'SORTBUTTONS) + [SETQ SUBOBJECTS (SORT SUBOBJECTS (FUNCTION (LAMBDA (S1 S2) + (ALPHORDER (IMAGEOBJPROP S1 + 'LABEL) + (IMAGEOBJPROP S2 'LABEL]) (IMAGEOBJPROP OBJ 'SUBOBJECTS SUBOBJECTS) [IMAGEOBJPROP OBJ 'MINWIDTH (IMAX (IMAGEOBJPROP OBJ 'MINWIDTH) (fetch XSIZE of (IMAGEOBJPROP NEWSOBJ 'BOUNDBOX] @@ -1379,6 +1385,7 @@ (MB.TOGGLE.BUTTONEVENTINFN [LAMBDA (OBJ MENUDS MENUSEL RELX RELY MENUWINDOW MENUTSTREAM BUTTON) + (* ; "Edited 14-Apr-2025 23:49 by rmk") (* ; "Edited 7-Dec-2024 13:11 by rmk") (* ; "Edited 19-Oct-2024 19:52 by rmk") (* ; "Edited 5-Oct-2024 22:42 by rmk") @@ -1422,8 +1429,8 @@ else (* ; "Buttons came up: do it") (SETQ STATECHANGEFN (IMAGEOBJPROP OBJ 'STATECHANGEFN)) (if (OR (NULL STATECHANGEFN) - (NEQ 'DON'T (APPLY* STATECHANGEFN OBJ NEXTSTATE - (fetch (TEXTWINDOW WTEXTSTREAM) of MENUDS) + (NEQ 'DON'T (APPLY* STATECHANGEFN OBJ NEXTSTATE (PANETEXTSTREAM + MENUDS) MENUSEL))) then (IMAGEOBJPROP OBJ 'STATE NEXTSTATE) (* ; @@ -1774,7 +1781,8 @@ ENDPC]) (MB.FIELD.SETSTATEFN - [LAMBDA (PREFIXPC NEWVALUE TSTREAM) (* ; "Edited 9-Dec-2024 22:14 by rmk") + [LAMBDA (PREFIXPC NEWVALUE TSTREAM) (* ; "Edited 6-Apr-2025 12:23 by rmk") + (* ; "Edited 9-Dec-2024 22:14 by rmk") (* ; "Edited 4-Dec-2024 20:31 by rmk") (* ; "Edited 20-Oct-2024 17:20 by rmk") (* ; "Edited 29-Sep-2024 12:46 by rmk") @@ -1818,7 +1826,7 @@  "FSEL selects the field to the right of PREFIXPC") (\TEDIT.UPDATE.SEL FSEL FIELDSTART FIELDLENGTH 'LEFT) (CL:UNLESS (EQ 0 FIELDLENGTH) (* ; "Clear the old value") - (\TEDIT.DELETE TEXTOBJ FSEL) + (\TEDIT.DELETE TSTREAM FSEL) (SETQ FIELDLENGTH 0)) (SETQ FIELDLENGTH (if (EQ NEWVALUE '**EMPTY**) then 0 @@ -1961,25 +1969,25 @@ (MB.FIELD.INIT) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3253 19106 (MB.ADD 3263 . 9692) (MB.DELETE 9694 . 10068) (MB.GET 10070 . 16840) ( -MB.GET.MBARG 16842 . 18511) (TEDIT.BACKTOMAIN 18513 . 19104)) (19150 39086 (MB.BUTTONEVENTINFN 19160 - . 20728) (MB.DISPLAYFN 20730 . 22789) (MB.SETIMAGE 22791 . 23959) (MB.SIZEFN 23961 . 25509) ( -MB.WHENOPERATEDONFN 25511 . 27460) (MB.COPYFN 27462 . 27920) (MB.GETFN 27922 . 28883) (MB.PUTFN 28885 - . 29985) (MB.SHOWSELFN 29987 . 31496) (MB.CREATE 31498 . 35521) (MB.CHANGENAME 35523 . 36005) ( -MB.INIT 36007 . 37468) (MB.TRACK.UNTIL 37470 . 38165) (MB.DON'T 38167 . 38463) (MB.SPEC.REMAINDER -38465 . 39084)) (39248 49238 (MB.3STATE.CREATE 39258 . 40122) (MB.3STATE.DISPLAYFN 40124 . 41110) ( -MB.3STATE.SHOWSELFN 41112 . 43423) (MB.3STATE.INIT 43425 . 44836) (MB.3STATE.SETSTATEFN 44838 . 45496) - (MB.3STATE.BUTTONEVENTINFN 45498 . 49236)) (49393 80061 (MB.NWAY.CREATE 49403 . 55445) ( -MB.NWAY.DISPLAYFN 55447 . 56310) (MB.NWAY.WHENOPERATEDONFN 56312 . 58502) (MB.NWAY.SIZEFN 58504 . -62440) (MB.NWAY.SELECT 62442 . 66012) (MB.NWAY.BUTTONEVENTINFN 66014 . 69226) (MB.NWAY.NEWMENUBUTTON -69228 . 69940) (MB.NWAY.COPYFN 69942 . 70909) (MB.NWAY.INIT 70911 . 72402) (MB.NWAY.ARRANGEBUTTONS -72404 . 74375) (MB.NWAY.ADDITEM 74377 . 78239) (MB.NWAY.FINDSUBOBJ 78241 . 78755) (MB.NWAY.SETSTATEFN -78757 . 80059)) (80140 92027 (MB.TOGGLE.CREATE 80150 . 81145) (MB.TOGGLE.DISPLAYFN 81147 . 82630) ( -MB.TOGGLE.INIT 82632 . 84431) (MB.SET.TOGGLE 84433 . 85634) (MB.TOGGLE.SETSTATEFN 85636 . 86476) ( -MB.TOGGLE.BUTTONEVENTINFN 86478 . 90682) (MB.TOGGLE.WHENOPERATEDONFN 90684 . 92025)) (92108 124532 ( -MB.FIELD.CREATE 92118 . 97569) (MB.FIELD.DISPLAYFN 97571 . 98362) (MB.FIELD.IMAGEBOXFN 98364 . 99846) -(MB.FIELD.PREFIXCREATE 99848 . 103784) (MB.FIELD.SUFFIXCREATE 103786 . 105446) (MB.FIELD.INIT 105448 - . 107215) (MB.FIELD.WHENOPERATEDONFN 107217 . 108488) (MB.FIELD.GETSTATEFN 108490 . 112424) ( -MB.FIELD.SETSTATEFN 112426 . 117121) (MB.FIELD.BUTTONEVENTINFN 117123 . 119428) (MB.FIELD.SIZEFN -119430 . 119670) (MB.FIELD.INSURETYPE 119672 . 124530))))) + (FILEMAP (NIL (3279 19224 (MB.ADD 3289 . 9810) (MB.DELETE 9812 . 10186) (MB.GET 10188 . 16958) ( +MB.GET.MBARG 16960 . 18629) (TEDIT.BACKTOMAIN 18631 . 19222)) (19268 39204 (MB.BUTTONEVENTINFN 19278 + . 20846) (MB.DISPLAYFN 20848 . 22907) (MB.SETIMAGE 22909 . 24077) (MB.SIZEFN 24079 . 25627) ( +MB.WHENOPERATEDONFN 25629 . 27578) (MB.COPYFN 27580 . 28038) (MB.GETFN 28040 . 29001) (MB.PUTFN 29003 + . 30103) (MB.SHOWSELFN 30105 . 31614) (MB.CREATE 31616 . 35639) (MB.CHANGENAME 35641 . 36123) ( +MB.INIT 36125 . 37586) (MB.TRACK.UNTIL 37588 . 38283) (MB.DON'T 38285 . 38581) (MB.SPEC.REMAINDER +38583 . 39202)) (39366 49371 (MB.3STATE.CREATE 39376 . 40240) (MB.3STATE.DISPLAYFN 40242 . 41228) ( +MB.3STATE.SHOWSELFN 41230 . 43541) (MB.3STATE.INIT 43543 . 44954) (MB.3STATE.SETSTATEFN 44956 . 45614) + (MB.3STATE.BUTTONEVENTINFN 45616 . 49369)) (49526 80622 (MB.NWAY.CREATE 49536 . 55719) ( +MB.NWAY.DISPLAYFN 55721 . 56584) (MB.NWAY.WHENOPERATEDONFN 56586 . 58776) (MB.NWAY.SIZEFN 58778 . +62714) (MB.NWAY.SELECT 62716 . 66286) (MB.NWAY.BUTTONEVENTINFN 66288 . 69500) (MB.NWAY.NEWMENUBUTTON +69502 . 70214) (MB.NWAY.COPYFN 70216 . 71183) (MB.NWAY.INIT 71185 . 72676) (MB.NWAY.ARRANGEBUTTONS +72678 . 74649) (MB.NWAY.ADDITEM 74651 . 78800) (MB.NWAY.FINDSUBOBJ 78802 . 79316) (MB.NWAY.SETSTATEFN +79318 . 80620)) (80701 92700 (MB.TOGGLE.CREATE 80711 . 81706) (MB.TOGGLE.DISPLAYFN 81708 . 83191) ( +MB.TOGGLE.INIT 83193 . 84992) (MB.SET.TOGGLE 84994 . 86195) (MB.TOGGLE.SETSTATEFN 86197 . 87037) ( +MB.TOGGLE.BUTTONEVENTINFN 87039 . 91355) (MB.TOGGLE.WHENOPERATEDONFN 91357 . 92698)) (92781 125314 ( +MB.FIELD.CREATE 92791 . 98242) (MB.FIELD.DISPLAYFN 98244 . 99035) (MB.FIELD.IMAGEBOXFN 99037 . 100519) + (MB.FIELD.PREFIXCREATE 100521 . 104457) (MB.FIELD.SUFFIXCREATE 104459 . 106119) (MB.FIELD.INIT 106121 + . 107888) (MB.FIELD.WHENOPERATEDONFN 107890 . 109161) (MB.FIELD.GETSTATEFN 109163 . 113097) ( +MB.FIELD.SETSTATEFN 113099 . 117903) (MB.FIELD.BUTTONEVENTINFN 117905 . 120210) (MB.FIELD.SIZEFN +120212 . 120452) (MB.FIELD.INSURETYPE 120454 . 125312))))) STOP diff --git a/library/tedit/TEDIT-BUTTONS.LCOM b/library/tedit/TEDIT-BUTTONS.LCOM index 5bc86b10f1783471bb0abfe0424493efcb81e029..3b2a83e0ffe50cb95f086724c10c0ba31a8735a9 100644 GIT binary patch delta 4008 zcmZu!U2Ggz751)0h)vb{-Ah_^Fy@67CO!1dTWw#S~GyWJhf4vMr5anz)7 z;?M?Fs6rzZ!87f^L)AV2ue{)xJiyBecmagqfg;+zRH}r;0}rWqKuBQm-8-{Cvk)cO zd(S=h+;h*l=ljn5{q6iG-_L(-?+DIXog8zxuRJWUM|pL;l|P3`?n8o9?;P} zD$wW~)#lE(zP$U|%~xMrxpV#g;q`kf{?U!=hbwn)9vt5MCM%jNFW-K!oXl3@$GK-B zi!V{Z=r>=gFuTGnn0p}2AAa$GZo~SJ&;&MUZwUV7_|FP$xsZkVjh;@5M}#p1iu@jKsnYPIQx%@F%G0;;VQ zgFWYJvFXBCxI~qD!@c5(-R5!?3N%{KdC#!HDyCL37!2pEcr5>`+_&RD<+si~bL(Jl z?A8-Q_|x7S`?dW2@p1k$dt=A>krQY5-?`{-dt+y$__uTFCmGN8#;^QwYG`L{XwfX& zbj|a9chm8UPGghIQilicR)iblx%bXOGnf17w%tPtIJ4EV!Cv*AoF*OzWQ+3`X`tv9?W?Ug{g`GF+}xBW{%_i3_($ z#eg^*NrTSH7Hxe7bnByl-!dH-6m%}l>X@@ zi$Z6Obga6N0}BK)tLbdjV+>N97ln!UajuCxGoG7i0eF~34>g-Mh9h#$6r4?`4ugDx-@GbCH)>L8Os`# zGQAxC^6X^JI{EY2`cj18%6!zx;N;04=5hr(XB3LW*bV?0cbGYd-ILflJjoS>y#?0ufM<`Aon9 zwUCTaX2GU}k2yI*^YOB19Yf<}UDHe2VeqN1s zFu>mtDQ(TS#kof#0)p20H^uyg*12|m_|fmg`H9wCpwu6qJbf@eJ|POjkA~ko&g~uz zMc5dqQzpfP(g{8%jinRuWM(!u?#zk{$>#fFG1;JY=Q4UT*_o&O`$!45A3mGfzAfj` zP+QEYbCWpCwYw*axjV0nPtA*Ba^A8q#FTjQ&W9g;Fp)7omzhmvW*J9z`j@tn$x?C$ zzkjLLKM`Z;EPm0Pj}mR=IYKm+Yb~?`vC#8hUE*Zse`OE9kg6$NWwLwI1vNcBy(xFD+kz0Z2&w_4?4>VtWtSEV52Z=PSo3DnH|t8 zx-ag6tt?X;*dtL`!D2@PK%6<(Lak;5X2~89*cpuorD>v6`<*v|h*`nlF($A!s{ta( z2qZ6N1whBFz%n3+`hvz4G=Y`5W@dHSVDwmtk?#hZ;TAD)OU5t*>SqOfPy?8pYQ&Gf zHWz^m+(tt*$N*Y`IkT*)gO!qH9g#}nzvoqPw9a|9(a;&#b;k)s4S-rsbtRbgo<~aK zk_UmGY8JU*9@_#Mi`}5QCicnJO1+6y0xGJ`3WQ`?0AMgMC|&_7Ssbydf^0nSYJ)8F zpT4u^;`PXsYzCs?l37Nm(;?e`ssGp9TNyHpY({y5J zd-@oH7#am^N)KS@=4xKhnc*3CBg#O4SW2uj&}<)HMIbDr+zF_GPEBlVfH95a9_Z=Q zkm|^hyjs<5t~b1Th!+EYdOV1C)Mpk}(FICVvgEp42p_w#L}I~;FSy-UvNU!^h6vHX zq>*fbJbSU04U19I;x%xWO5DPrJTW?&7tnpKuhx*rnd8<6h~U6w)XT-2|U4ggOL>VpuZ1Ijb|ffVuP z__IwN$dlL^ya7H@GCN@X8oDbts2ZsD?3$@+I7O+rU6_gR5)4^x9RM*vNWBU0FH?vH zhknn9l zeYGg`=`*eq4(%^%07bTtWYP4@AYBS!0I|vMwAQIm0BskFPF`sIYazFGQhuFH{1=iE Bx-(s0hR)N*Z_aFY?&Ewba9m2ymAa0jl z8n88(sZe90O=+F-y09wn>Z5yO^?Pr<`RIo))}hm=wmjEwR=uFN*L9=2p$o@vK&7?k z`;c{0tyU{=_{xtk)YJY&-Jq4Vnbnqe)pxhLt`oUUsL-c#j!Wf@XBiO6O+ww;8Z=I#BC+w|SLKe_eZZ(o?E#Ez@wKb4N+ zC*}6_Zyg=(&ptPWe}?c-ixPciZu+ zPInuGT?6-y_^nX0PL9XHqmZWDMpi4(P5KLl>tlj}*efpakm#i^Z7iwMi*6Cm8}IJRgV@3u0OEm9O0y zaH|H%QG^BhUV)>hv`XACp(TR|m@U$eniy>|OJIxx++-H0+<{@0BDuZoyFg72Nuofh z1I+&nJ z0l%<&@nS7l4ZAWz3v6H+tbxFMiXtO^=h+K`nhBLaM&NZq-^F92MFlwJMRiWhnWBtg zfwEp(tuz7xgIDA+C+HRL0b>bBe**3=r$oJRhzNu*mAnAy5XM`Y}cVjF@f_ z0gb&V!m@@y2=w+EXo6MfskH%Z*V}GK_>J`poh{Y$A=DsoYe5sQ)d@rYE=sX;oC7a% zJH4B}7q}2I5a0z~q&p22I2IgxuBAe$;^Q~YPOzOwsBVqeW4ABq9@Ks8bsV+bTZ8gf z%ki(-)%Y*0b)L_tp`Np!ix>IIU`Ma|^RJh8^mzYu=Hvc?H~pK3O3Blk!@1kv@P2O{ zmikwR_mx;)Jz8GYUpx4Lf6psve`zR}AD@>?N6Y=^-<3<(`^&@f^y9zF=jZ#29j*SK z(<_H_b8`}=A5Xt~QgR+n4bZToqg;@)TBoD2CtU>Dg*;2nU?8wUG)H?6e#iwN-zL=_MU2Q*1y~&DRo}9fS zq1=a)v-_p~>cnNKzcG~SKbISFu>R#Q@q)lK3IarHZ=jlYY%`{V zs{5TiBo~vCf(^oCf|w%>qo5&bMS-a0eF&b>7^qwY;$|*+fuNoj6vOaZ!7E3M&Y2*G z7X*mFc@4&3ke3)Z{}M@**&McHh(K@Ic_U^q@ZDfLY6B~tj3M~t{4rL@l3{?H#(*NR z<|Gth-tBf}7pYAsqDy#Y#Dc^!(`|z1N$z6bYhpTtiToRZU|Bo6P9!@>I0&oyJ)jVC z(kfd6{Tu?!Q?Xyd<486Z5=%qw1^_t0)}XY36i{~lpqQw1dxB$g zbEWuq@@D*BIeTZPo$#DS+Ji(XLG$E0W41H#Q2OJc_vC}2r;)a;iDvh!Cm(Jm+Pm%e zFl<~-jtSyHG9~zq&I~)D@#nXeP8+>1R!Z&Dn{ToC{{tz8ap3>} diff --git a/library/tedit/TEDIT-CHAT b/library/tedit/TEDIT-CHAT index 1027f534..6f220118 100644 --- a/library/tedit/TEDIT-CHAT +++ b/library/tedit/TEDIT-CHAT @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "11-Mar-2025 15:41:08" {WMEDLEY}tedit>TEDIT-CHAT.;17 12449 +(FILECREATED "21-Apr-2025 23:06:01" {WMEDLEY}tedit>TEDIT-CHAT.;20 12175 :EDIT-BY rmk - :CHANGES-TO (FNS TEDITCHAT.CHARFN) + :CHANGES-TO (FNS TEDIT.DISPLAYTEXT) - :PREVIOUS-DATE "24-Jun-2024 00:05:09" {WMEDLEY}tedit>TEDIT-CHAT.;16) + :PREVIOUS-DATE "11-Mar-2025 15:41:08" {WMEDLEY}tedit>TEDIT-CHAT.;17) (PRETTYCOMPRINT TEDIT-CHATCOMS) @@ -92,98 +92,99 @@ (DEFINEQ (TEDIT.DISPLAYTEXT - [LAMBDA (TEXTOBJ CH CHWIDTH LINE XPOINT DS SEL) (* ; "Edited 23-Dec-2023 09:15 by rmk") + [LAMBDA (TSTREAM CH CHWIDTH LINE XPOINT DS SEL) (* ; "Edited 21-Apr-2025 23:05 by rmk") + (* ; "Edited 23-Dec-2023 09:15 by rmk") (* ; "Edited 6-Apr-2023 21:39 by rmk") (* ; "Edited 4-Nov-2022 17:18 by rmk") (* ; "Edited 25-Sep-2022 13:34 by rmk") - (* ; "Edited 6-Aug-2022 13:28 by rmk") - (* ; "Edited 12-Jun-90 18:01 by mitani") + (* ; "Edited 6-Aug-2022 13:28 by rmk") + (* ; + "This function does the actual displaying of typed-in text on the edit window.") (* This function does the actual  displaying of typed-in text on the  edit window.) - (HELP 'TEDIT.DISPLAYTEXT 'NOTUSED?) - (PROG ((LOOKS (\TEDIT.APPLY.STYLES (fetch (TEXTOBJ CARETLOOKS) of TEXTOBJ) + (LINEDESCRIPTOR! LINE) + (NOTUSED) + (LET* ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (LOOKS (\TEDIT.APPLY.STYLES (FGETTOBJ TEXTOBJ CARETLOOKS) (\TEDIT.CARETPIECE TEXTOBJ) - (fetch (TEXTOBJ STREAMHINT) of TEXTOBJ))) - (TERMSA (fetch (TEXTOBJ TXTTERMSA) of TEXTOBJ)) + TSTREAM)) + (TERMSA (FGETTOBJ TEXTOBJ TXTTERMSA)) DY FONT) - (MOVETO XPOINT (IPLUS (fetch YBASE of LINE) - (OR (fetch CLOFFSET of LOOKS) + (MOVETO XPOINT (IPLUS (GETLD LINE YBASE) + (OR (FGETCLOOKS LOOKS CLOFFSET) 0)) - DS) (* Set the display stream position) + DS) (* ; "Set the display stream position") (COND - [TERMSA (* Special terminal table for - controlling character display. - Use it.) + [TERMSA (* ; + "Special terminal table for controlling character display. Use it.") (RESETLST (RESETSAVE \PRIMTERMSA TERMSA) [COND [(STRINGP CH) (for CHAR instring CH do (SELCHARQ CHAR - (TAB (* Put down white) - (BITBLT NIL 0 0 DS XPOINT (fetch YBOT of LINE) + (TAB (* ; "Put down white") + (BITBLT NIL 0 0 DS XPOINT (FGETLD LINE YBOT) 36 - (fetch LHEIGHT of LINE) + (FGETLD LINE LHEIGHT) 'TEXTURE 'REPLACE WHITESHADE) (RELMOVETO 36 0 DS)) - (CR (BITBLT NIL 0 0 DS XPOINT (fetch YBOT of LINE) + (CR (BITBLT NIL 0 0 DS XPOINT (FGETLD LINE YBOT) (IMAX 6 (CHARWIDTH CHAR FONT)) - (fetch LHEIGHT of LINE) + (FGETLD LINE LHEIGHT) 'TEXTURE 'REPLACE WHITESHADE)) - (\DSPPRINTCHAR (fetch (TEXTOBJ STREAMHINT) of TEXTOBJ) - CHAR] + (\DSPPRINTCHAR TSTREAM CHAR] (T (SELCHARQ CH - (TAB (* Put down white) - (BITBLT NIL 0 0 DS XPOINT (fetch YBOT of LINE) + (TAB (* ; "Put down white") + (BITBLT NIL 0 0 DS XPOINT (FGETLD LINE YBOT) 36 - (fetch LHEIGHT of LINE) + (FGETLD LINE LHEIGHT) 'TEXTURE 'REPLACE WHITESHADE) (RELMOVETO 36 0 DS)) - (EOL (BITBLT NIL 0 0 DS XPOINT (fetch YBOT of LINE) + (EOL (BITBLT NIL 0 0 DS XPOINT (FGETLD LINE YBOT) (IMAX 6 (CHARWIDTH CH FONT)) - (fetch LHEIGHT of LINE) + (FGETLD LINE LHEIGHT) 'TEXTURE 'REPLACE WHITESHADE)) - (\DSPPRINTCHAR (fetch (TEXTOBJ STREAMHINT) of TEXTOBJ) - CH])] - (T (* No special handling; - just use native character codes) + (\DSPPRINTCHAR TSTREAM CH])] + (T (* ; + "No special handling; just use native character codes") (COND [(STRINGP CH) (for CHAR instring CH do (SELCHARQ CHAR - (TAB (* Put down white) + (TAB (* ; "Put down white") (BITBLT NIL 0 0 DS (DSPXPOSITION NIL DS) - (fetch YBOT of LINE) + (FGETLD LINE YBOT) 36 - (fetch LHEIGHT of LINE) + (FGETLD LINE LHEIGHT) 'TEXTURE 'REPLACE WHITESHADE) (RELMOVETO 36 0 DS)) (EOL (BITBLT NIL 0 0 DS (DSPXPOSITION NIL DS) - (fetch YBOT of LINE) + (FGETLD LINE YBOT) (IMAX 6 (CHARWIDTH CHAR FONT)) - (fetch LHEIGHT of LINE) + (FGETLD LINE LHEIGHT) 'TEXTURE 'REPLACE WHITESHADE)) (BLTCHAR CHAR DS] (T (SELCHARQ CH - (TAB (* Put down white) + (TAB (* ; "Put down white") (BITBLT NIL 0 0 DS (DSPXPOSITION NIL DS) - (fetch YBOT of LINE) + (FGETLD LINE YBOT) 36 - (fetch LHEIGHT of LINE) + (FGETLD LINE LHEIGHT) 'TEXTURE 'REPLACE WHITESHADE) (RELMOVETO 36 0 DS)) - (EOL (* Blank out the CR's width.) + (EOL (* ; "Blank out the CR's width.") (BITBLT NIL 0 0 DS (DSPXPOSITION NIL DS) - (fetch YBOT of LINE) + (FGETLD LINE YBOT) (IMAX 6 (CHARWIDTH CH FONT)) - (fetch LHEIGHT of LINE) + (FGETLD LINE LHEIGHT) 'TEXTURE 'REPLACE WHITESHADE)) (BLTCHAR CH DS]) @@ -214,6 +215,6 @@ CHATDECLS) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (886 4630 (TEDITSTREAM.INIT 896 . 1823) (TEDITCHAT.MENUFN 1825 . 3661) (TEDITCHAT.CHARFN - 3663 . 4628)) (4677 11561 (TEDIT.DISPLAYTEXT 4687 . 11559))))) + (FILEMAP (NIL (887 4631 (TEDITSTREAM.INIT 897 . 1824) (TEDITCHAT.MENUFN 1826 . 3662) (TEDITCHAT.CHARFN + 3664 . 4629)) (4678 11287 (TEDIT.DISPLAYTEXT 4688 . 11285))))) STOP diff --git a/library/tedit/TEDIT-CHAT.LCOM b/library/tedit/TEDIT-CHAT.LCOM index 8d82ab38d6b52ee9c43c079c7fe7e105e0f82814..aaad4d44df075c43fc740316fef05b06963c3475 100644 GIT binary patch delta 1909 zcmZ`)O>g5w7*1L?{n~busw!1>Rc5LVj(zzio_3SS4ez`YM0AqPaJ#P3rKKk4;(m^*W+g6mJ(Ux@iWi+A?JBs zf3@`c{HN{&!71&%_fte7X+&sFQgRaB+g6f9T13M$;Zsa z`(xmhcD^-wa+nUC7;bVn0>58cvFho5^U z1*%eXPj_s)W>k5hq}343P?Rs{4W2hSqBM(q)HQToLKNO#jhPkeF5?zjqf&@T()dy$ zB9mSsf^jGjR@0$GIOBaZ^kI`K3V@)e0z*{6@c-2LdW|8H?cpRF!l|Dm;1epn;A188 z0>=vJ;@;56N;_x**(eJXhjEAd0Nxn zfak7&U`vr{S!D-yK^Inj4H*#NFca>;ci<+Yy6t^GGT-j0QRx)`8U7iMMg|HoUnPV7 zvihsP?yc^w3am3FZi(A{rH))05)7e*1df$DD?jT&Xs55-iGA0WPKcAoX^w)B(cG%&5H)6WhfUs}^&ShuX?9dOsj{^m(@QV5^=24kB{WGeU` zD|pvOr`x)3vCPFYYqBb6KeS@T>AnFPFI?f1U28JP2F16Jo5_Q-`0WBu6AoFOqRq z^`4KttVrnI8;s{QhZT*wjW7Unb6TyYHBvqZ)3pa!#UdCDVXS(o8(hRGZx%U!sj)fl%822%h_sA}E;t6i&L^qz&EvtAwzEA={#DMJjtdj^j{v>m-w{8z(llvuQ+8Sg8`F&F%q- z8&b3g!2t;<7UG6fq?I^;P`g4x;-}J{wtM2(6P&nlXwMwVn{ocusUQb?{PKP8J$v5w z&0jBnz4Up_`yo8Hcb6nYWf8@aqL3=zc{haxEF&yrG0w{3-p|h`@@tyA3>UjtLGRo{ z$zs(o5C`v_&0f2Jr6d<)*NeJA^ETC7TJXLP$Gz3?{D`O^5fh?%&F}*0OS_1&mQ8Q# zX4Od*fPs>jq}JcN$9f@15VC@t71Sh(u`EMk`r+SUJdEguYv$Hb5s4BiniZF=2y&@i zcCi%$eI@*lw;Q!m-CngCW^sPmx$+EKe_D(CnU{6WIV$a* zym4^8u{~Lv<}Ikf?A;EI$GkfuXd?eK!24t*(ehIcR-5crt4;HAlcDQGQqX3>u`FA! zxNHLv!2-&aa=M!{TqI>g#G*C5;I1J_7LZMivU!`jCXz@W5G$EZ9^6iZ)3}!i<8)sl zQI-1=i5YKw^!*mW8Q2+r!wBq`O)W#qQ$z$mUbWd;M223W1?uE&-EvJENs2HKl6q{Z zot3dAJjfP1>{d4;hK!v?u*^F38^Q4UEY4D4A_c2rF&zwviqd6^3huJSv^)Tvl1U)u zEyPyd6!>RD7Ro>-hq{i-hTlR8a`bF=iN}g2%<~ciSp$x>v8FpNJheyOLKqe5@GL@o zHu$iFmp09k<2{M3w0at0O||KZXz00#a46avSw1nV{%n!eQ8vEqr)56N?T3}A+;Ac9 z!-m%Ud*sJUJ13N*^uuel7p7hs;dyzIO@19=`Htoz;hBT*1C58iIS5Z^Q?HMk(_2r5 zCU;IB@aX-=mm2Y-K{wSuBFk;208-iYv~jm433;NYFKdM$s&`nZznQ%T*ppiVZb{GSZ~1U2smz= z-9iMuTZhi9Gl+#sfsh0*-6<}~JyVtBfl3mLL4b`jq|3%iOYIiNU~EAwSbrd-Vs2Rc z16C_Fy;4AFg>O7}A|$Ip28>h3g(Y@o`zHgOPHdTE$GVCtrdxGr;U;1LwiyL5Fhi>| L$iufLhA;mMI!PoJ diff --git a/library/tedit/TEDIT-COMMAND.LCOM b/library/tedit/TEDIT-COMMAND.LCOM index e1f35fabbd4dd5b7edbe54d31185a78001ad15ea..82f61c4b5ba5881318f6ef0ef50a29b59f6fb695 100644 GIT binary patch delta 402 zcmeCt*{Cxis@|(KPuIx6$W+0=(#pWh%E(elK|?7yKer$=CpASOKTknPfvegj*t^yy zv^ce>*e*MZ>lW(cqkyDRK~GOl zNg*Y%1n4Ye6QBl|8YyW`^ibXG%{YUJarfjW%vOvwljT`V7~Lj^uox+_F#tihP(~&% zD~Pp!!*=0tfeaD5{Tu)LF=!Z?8%m|1tKm5rgE4)`S~&hI6-PQKlKFD8$JSUFfvkb Z4RiESFf=ro{D)JX&(HwHE@`fh+yHs~YG?oe delta 310 zcmdm})1xyXYO*<_FrS7}a(-?>W=?8~LVljYWDiCiT}=fpB_jh}-^3zaBLgE-1tTLX zBNHoAb0vkOqExu*)QWFMbyDWoKp0FA~p(A3Ic zvl8P0CdO@(A2VAqmQR*rF=2F^9L!=Q6E2jI$;-+B1p7Da5e^r~5V708@qaLbhM}4H zdHfOL(voKapZsBxF*LL(c>BI(7dyr-YV?ikpdBy%3=28=gSn} z1W9jxTEDIT>TEDIT-FILE.;608 161966 +(FILECREATED "31-May-2025 10:42:55" {WMEDLEY}TEDIT>TEDIT-FILE.;628 165414 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.GET.FORMATTED.FILE) + :CHANGES-TO (FNS TEDIT.GET) - :PREVIOUS-DATE "26-Mar-2025 10:02:49" {WMEDLEY}TEDIT>TEDIT-FILE.;607) + :PREVIOUS-DATE "30-May-2025 11:21:42" {WMEDLEY}TEDIT>TEDIT-FILE.;627) (PRETTYCOMPRINT TEDIT-FILECOMS) @@ -36,7 +36,8 @@ (P (MOVD? '\TEDIT.GET.TRAILER '\TEDIT.FORMATTEDP1] (FNS \TEDIT.GET.PIECES3 \TEDIT.GET.IDATE3 \TEDIT.MAKE.STRINGPIECE) - (FNS \TEDIT.GET.UNFORMATTED.FILE.XCCS \TEDIT.INTERPRET.XCCS.SHIFTS) + (FNS \TEDIT.GET.UNFORMATTED.FILE.MCCS \TEDIT.INTERPRET.MCCS.SHIFTS + \TEDIT.CONVERT.XCCSTOMCCS) (* ; "XCCS") (FNS \TEDIT.GET.UNFORMATTED.FILE.UTF8) (* ; "UTF-8") @@ -45,7 +46,7 @@ (FNS \TEDIT.GET.PARALOOKS.LIST \TEDIT.GET.SINGLE.PARALOOKS) (FNS \TEDIT.GET.OBJECT)) (COMS - (* ;; "Putting (pageframe functions on TEDIT-PAGE)") + (* ;; "Putting pageframe functions are on TEDIT-PAGE)") (FNS \TEDIT.PUT.PCTB \TEDIT.PUT.PCTB.PIECEDATA \TEDIT.PUT.TRAILER \TEDIT.PUT.PCTB.MERGEABLE \TEDIT.PUT.UTF8.SPLITPIECES \TEDIT.PUT.PCTB.NEXTNEW @@ -55,7 +56,8 @@ (FNS \TEDIT.PUT.PARALOOKS.LIST \TEDIT.PUT.SINGLE.PARALOOKS \TEDIT.PUT.PARALOOKS)) (GLOBALVARS TEDIT.INPUT.FORMATS *TEDIT-FILE-READTABLE*) (FNS TEDITFROMLISPSOURCE SHELLSCRIPTP TEDITFROMSHELLSCRIPT) - (INITVARS (TEDIT.SOURCE.LINELENGTH 110)) + (INITVARS (TEDIT.SOURCE.LINELENGTH 110) + (TEDIT.SOURCE.NLINES 30)) (ADDVARS (TEDIT.INPUT.FORMATS (LISPSOURCEFILEP TEDITFROMLISPSOURCE) (SHELLSCRIPTP TEDITFROMSHELLSCRIPT))) (INITVARS (* ; @@ -118,7 +120,9 @@ (DEFINEQ (TEDIT.GET - [LAMBDA (TSTREAM FILE UNFORMATTED? PROPS) (* ; "Edited 14-Mar-2025 11:52 by rmk") + [LAMBDA (TSTREAM FILE UNFORMATTED? PROPS) (* ; "Edited 19-Apr-2025 10:31 by rmk") + (* ; "Edited 6-Apr-2025 14:26 by rmk") + (* ; "Edited 14-Mar-2025 11:52 by rmk") (* ; "Edited 26-Aug-2024 16:15 by rmk") (* ; "Edited 11-Aug-2024 12:13 by rmk") (* ; "Edited 29-Jun-2024 16:30 by rmk") @@ -180,8 +184,7 @@ (* ;; "New file is good, clean out the old stuff") - (\TEDIT.SHOWSEL (TEXTSEL TEXTOBJ) - NIL TEXTOBJ) + (\TEDIT.NOSEL TSTREAM) (\TEDIT.TEXTCLOSEF TEXTOBJ) (* ;  "Close the old files, still in TXTFILE") @@ -189,9 +192,10 @@ (* ;; "Open a textstream NTSTREAM on the new file, then reconnect its textobj to the old TSTREAM and window") - (SETQ MAINWINDOW (\TEDIT.MAINW TEXTOBJ)) (SETQ BEING-EDITED (GETTEXTPROP TEXTOBJ 'BEING-EDITED)) + (SETQ MAINWINDOW (\TEDIT.MAINW TEXTOBJ)) (CL:WHEN MAINWINDOW + (TEDIT.KILL TEXTOBJ) (SETQ TEDITCREATED (WINDOWPROP MAINWINDOW 'TEDITCREATED))) (CL:WHEN UNFORMATTED? (push PROPS 'CLEARGET T)) @@ -392,7 +396,9 @@ (TEDIT.INCLUDE TSTREAM INFILE START END SAFE T]) (TEDIT.PUT - [LAMBDA (TSTREAM FILE FORCENEW UNFORMATTED? FORMAT QUIET) (* ; "Edited 14-Mar-2025 11:52 by rmk") + [LAMBDA (TSTREAM FILE FORCENEW UNFORMATTED? FORMAT QUIET) (* ; "Edited 25-Apr-2025 23:33 by rmk") + (* ; "Edited 22-Apr-2025 15:58 by rmk") + (* ; "Edited 14-Mar-2025 11:52 by rmk") (* ; "Edited 22-Feb-2025 15:56 by rmk") (* ; "Edited 23-Dec-2024 23:02 by rmk") (* ; "Edited 11-Aug-2024 12:30 by rmk") @@ -496,7 +502,7 @@ (* ;; "We don't know how to decide that the user doesn't want to continue editing and therefore doesn't need the pieces to be updated to the new file. The stream itself may be used in the future, even if right now there is no process or window") - (SETQ CHARSTREAM (TEDIT.PUT.STREAM TSTREAM CHARSTREAM UNFORMATTED? NIL T)) + (SETQ CHARSTREAM (TEDIT.PUT.STREAM TSTREAM CHARSTREAM UNFORMATTED? NEWEXTFORMAT T)) (* ;; "The file is written, nothing can be lost. CHARSTREAM isn't closed yet") @@ -527,6 +533,7 @@ (TEDIT.PUT.STREAM [LAMBDA (TSTREAM DESTSTREAM UNFORMATTED? EXTERNALFORMAT CONTINUE) + (* ; "Edited 30-May-2025 11:21 by rmk") (* ; "Edited 20-Nov-2024 16:26 by rmk") (* ; "Edited 22-Sep-2024 18:40 by rmk") (* ; "Edited 14-May-2024 17:49 by rmk") @@ -571,6 +578,7 @@ (FSETTOBJ TEXTOBJ \XDIRTY NIL) (\TEDIT.UPDATE.TITLE TEXTOBJ DESTSTREAM) (\TEDIT.HISTORYADD TEXTOBJ (\TEDIT.HISTORY.EVENT TEXTOBJ :Put)) + (PUTTEXTPROP TEXTOBJ 'CLEARGET UNFORMATTED?) DESTSTREAM elseif OPENEDHERE then (OR (CLOSEF? DESTSTREAM) @@ -624,7 +632,8 @@ TSTREAM)]) (\TEDIT.GET.UNFORMATTED.FILE - [LAMBDA (STREAM TSTREAM START END PROPS) (* ; "Edited 8-Feb-2025 20:21 by rmk") + [LAMBDA (STREAM TSTREAM START END PROPS) (* ; "Edited 24-Apr-2025 17:21 by rmk") + (* ; "Edited 8-Feb-2025 20:21 by rmk") (* ; "Edited 17-Mar-2024 00:21 by rmk") (* ; "Edited 5-Feb-2024 09:26 by rmk") (* ; "Edited 21-Jan-2024 09:42 by rmk") @@ -650,8 +659,9 @@ (SETQ STREAM (COPYFILE STREAM '{NODIRCORE}))) [SETQ PIECES (SELECTQ FORMAT - (:XCCS (\TEDIT.GET.UNFORMATTED.FILE.XCCS STREAM START END DEFAULTCHARLOOKS - DEFAULTPARALOOKS)) + ((:MCCS :XCCS) (* ; "XCCS is done later") + (\TEDIT.GET.UNFORMATTED.FILE.MCCS STREAM START END DEFAULTCHARLOOKS + DEFAULTPARALOOKS)) (:UTF-8 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 STREAM START END DEFAULTCHARLOOKS DEFAULTPARALOOKS)) (:STRING (CL:WHEN (\IOMODEP STREAM 'OUTPUT T) @@ -904,7 +914,8 @@ (DEFINEQ (\TEDIT.GET.PIECES3 - [LAMBDA (TEXT TSTREAM PCCOUNT CURFILEBYTE# END) (* ; "Edited 8-Feb-2025 20:21 by rmk") + [LAMBDA (TEXT TSTREAM PCCOUNT CURFILEBYTE# END) (* ; "Edited 24-Apr-2025 17:20 by rmk") + (* ; "Edited 8-Feb-2025 20:21 by rmk") (* ; "Edited 30-Aug-2024 15:44 by rmk") (* ; "Edited 11-Jul-2024 13:20 by rmk") (* ; "Edited 29-Apr-2024 10:37 by rmk") @@ -1035,9 +1046,14 @@ (change (PPARALOOKS P) (CL:UNLESS (EQ DATUM 0) (* ; " For the last piece?") - (ELT PARALOOKSMAP DATUM))))] - (CL:WHEN (EQ :XCCS (STREAMPROP TEXT 'FORMAT)) - (\TEDIT.INTERPRET.XCCS.SHIFTS PC TEXT)) + (ELT PARALOOKSMAP DATUM))))] + + (* ;; "Produce MCCS codes for XCCS files, fix up later") + + (SELECTQ (STREAMPROP TEXT 'FORMAT) + ((:MCCS :XCCS) + (\TEDIT.INTERPRET.MCCS.SHIFTS PC TEXT)) + NIL) (RETURN PC]) (\TEDIT.GET.IDATE3 @@ -1098,7 +1114,7 @@ ) (DEFINEQ -(\TEDIT.GET.UNFORMATTED.FILE.XCCS +(\TEDIT.GET.UNFORMATTED.FILE.MCCS [LAMBDA (STRM START END DEFAULTCHARLOOKS DEFAULTPARALOOKS) (* ; "Edited 21-Jan-2024 09:40 by rmk") (* ; "Edited 12-Jan-2024 13:13 by rmk") (* ; "Edited 10-Jan-2024 11:19 by rmk") @@ -1201,7 +1217,7 @@ (CL:WHEN (SETQ CRBEFORE (EQ CHAR (CHARCODE CR))) (SETQ EOLC CR.EOLC]) -(\TEDIT.INTERPRET.XCCS.SHIFTS +(\TEDIT.INTERPRET.MCCS.SHIFTS [LAMBDA (PIECES PFILE) (* ; "Edited 21-Oct-2024 00:33 by rmk") (* ; "Edited 14-May-2024 18:39 by rmk") (* ; "Edited 21-Jan-2024 00:02 by rmk") @@ -1290,6 +1306,20 @@ (replace (STREAM EOLCONVENTION) of PFILE with EOLC))) PIECES]) + +(\TEDIT.CONVERT.XCCSTOMCCS + [LAMBDA (TSTREAM) (* ; "Edited 24-Apr-2025 17:10 by rmk") + + (* ;; "Brute force way of converting a known-to-be MCCS stream into an XCCS stream") + (* ; + "Don't accumulate history during this transformation;") + (RESETLST + [RESETSAVE (TEXTPROP TSTREAM 'HISTORY 'OFF) + `(PROGN (TEXTPROP ,TSTREAM 'HISTORY OLDVALUE] + (for CHNO CHAR from 1 to (TEDIT.NCHARS TSTREAM) when (SMALLP (SETQ CHAR (TEDIT.NTHCHARCODE + TSTREAM CHNO))) + unless (EQ CHAR (SETQ CHAR (MTOXCODE CHAR))) do (\TEDIT.RPLCHARCODE TSTREAM CHNO CHAR NIL + T)))]) ) @@ -1415,7 +1445,8 @@ (for I from 1 to (\WIN FILE) collect (\TEDIT.GET.SINGLE.CHARLOOKS FILE TEXTOBJ]) (\TEDIT.GET.SINGLE.CHARLOOKS - [LAMBDA (FILE TEXTOBJ) (* ; "Edited 2-Jan-2025 11:08 by rmk") + [LAMBDA (FILE TEXTOBJ) (* ; "Edited 22-Apr-2025 15:20 by rmk") + (* ; "Edited 2-Jan-2025 11:08 by rmk") (* ; "Edited 11-Dec-2024 22:59 by rmk") (* ; "Edited 9-Dec-2024 20:11 by rmk") (* ; "Edited 13-Aug-2024 08:49 by rmk") @@ -1423,8 +1454,6 @@ (* ; "Edited 7-Apr-2024 17:21 by rmk") (* ; "Edited 16-Jan-2024 22:46 by rmk") (* ; "Edited 21-Dec-2023 23:54 by rmk") - (* ; "Edited 19-Dec-2023 10:13 by rmk") - (* ; "Edited 25-Nov-2023 23:21 by rmk") (* ; "Edited 24-Aug-2023 15:05 by rmk") (* ; "Edited 20-Feb-2022 12:42 by larry") (* ; "Edited 30-May-91 20:25 by jds") @@ -1436,15 +1465,22 @@ (PROG* ((LOOKS (create CHARLOOKS)) (FILEPOS (GETFILEPTR FILE)) (LOOKSLEN (\WIN FILE)) - FONT NAME SIZE SUPER PROPS STYLESTR BOLD ITALIC) + FONT NAME SIZE SUPER PROPS STYLESTR BOLD ITALIC EXTRAS) (SETQ NAME (\ARBIN FILE)) (* ; "The font name") (SETQ SIZE (\WIN FILE)) (* ; "Size of the type, in points") (SETQ SUPER (\SMALLPIN FILE)) (* ;  "Superscripting distance, could be negative") (FSETCLOOKS LOOKS CLSTYLE (OR (\ARBIN FILE) 0)) - (FSETCLOOKS LOOKS CLUSERINFO (\ARBIN FILE)) - (SETQ PROPS (\WIN FILE)) + (SETQ EXTRAS (\ARBIN FILE)) + (if [AND (EQ '\TEDIT.COLOR (CAR (LISTP (CAR (LISTP EXTRAS] + then (FSETCLOOKS LOOKS CLCOLOR (CADR (ASSOC '\TEDIT.COLOR EXTRAS))) + (* ; "Color tells us it's an alist") + (FSETCLOOKS LOOKS CLUSERINFO (CADR (ASSOC '\TEDIT.USERINFO EXTRAS))) + else (* ; "Pre color, create installed BLACK") + (FSETCLOOKS LOOKS CLCOLOR 'BLACK) + (FSETCLOOKS LOOKS CLUSERINFO EXTRAS)) + (SETQ PROPS (\WIN FILE)) (* ; "All the bits") [SETQ BOLD (NOT (ZEROP (LOGAND 512 PROPS] [SETQ ITALIC (NOT (ZEROP (LOGAND 256 PROPS] (with CHARLOOKS LOOKS [SETQ CLSELBEFORE (NOT (ZEROP (LOGAND 8192 PROPS] @@ -1692,12 +1728,13 @@ -(* ;; "Putting (pageframe functions on TEDIT-PAGE)") +(* ;; "Putting pageframe functions are on TEDIT-PAGE)") (DEFINEQ (\TEDIT.PUT.PCTB [LAMBDA (TEXTOBJ CHARSTREAM FORMATSTREAM CONTINUE KEEPSEPARATE) + (* ; "Edited 26-Apr-2025 00:11 by rmk") (* ; "Edited 21-Oct-2024 00:33 by rmk") (* ; "Edited 15-May-2024 17:03 by rmk") (* ; "Edited 16-Mar-2024 12:40 by rmk") @@ -1784,9 +1821,9 @@ (PPARALAST (PREVPIECE PC))) (\TEDIT.PUT.PARALOOKS FORMATSTREAM PC PARAHASH) (add PCCOUNT 1)) - (CL:WHEN (EQ EXTFORMAT :XCCS) + (CL:WHEN (MEMB EXTFORMAT '(:MCCS :XCCS)) - (* ;; "For XCCS, CHARSET will put out the char-shifting prefix bytes as needed. In format-version 3 all the file bytes belong to a piece, no skipping in the file. TEDIT.GET calls \TEDIT.INTERPRET.XCCS.SHIFTS to shave those bytes. NSHIFTBYTES is used here if the edit will continue.") + (* ;; "For MCCS, CHARSET will put out the char-shifting prefix bytes as needed. In format-version 3 all the file bytes belong to a piece, no skipping in the file. TEDIT.GET calls \TEDIT.INTERPRET.XCCS.SHIFTS to shave those bytes. NSHIFTBYTES is used here if the edit will continue.") (CHARSET CHARSTREAM (CL:IF (MEMB (PTYPE PC) FAT.PTYPES) @@ -1896,7 +1933,9 @@ (\WOUT FORMATSTREAM (IPLUS 31415 VERSION]) (\TEDIT.PUT.PCTB.MERGEABLE - [LAMBDA (PREVPC PC EDITSTENTATIVE EXTFORMAT TEXTOBJ) (* ; "Edited 14-May-2024 11:55 by rmk") + [LAMBDA (PREVPC PC EDITSTENTATIVE EXTFORMAT TEXTOBJ) (* ; "Edited 25-Apr-2025 23:50 by rmk") + (* ; "Edited 24-Apr-2025 16:02 by rmk") + (* ; "Edited 14-May-2024 11:55 by rmk") (* ; "Edited 12-May-2024 21:57 by rmk") (* ; "Edited 23-Jan-2024 09:12 by rmk") (* ; "Edited 12-Jan-2024 09:46 by rmk") @@ -1921,11 +1960,11 @@ (* ;; "PC cannot merge with PREVPC if PREVPC ends in EOL (even if not PPARALAST). (We assume here that EOL's of interest appear only in last-of-piece position.) For some input piece types we can make the decision without bothering to look at their last character. If the destination EXTFORMAT is :UTF-8, the splitter has presumably arranged it so that EOL's only appear in thin string and file pieces.") [AND (SELECTQ EXTFORMAT - (:XCCS - (* ;; "All thin strings and files are mergeable, all fat pieces are mergeable, since they all go to FAT2. ") + ((:MCCS :XCCS) + (* ;; "All thin strings and files are mergeable, all fat pieces are mergeable, since they all go to FAT2. ") - (EQ (THINPIECEP PREVPC) - (THINPIECEP PC))) + (EQ (THINPIECEP PREVPC) + (THINPIECEP PC))) (:UTF-8 (* ;; "UTF8 pieces with the same bytesperchar are mergeable. We rely on \TEDIT.PUT.UTF8.SPLITPIECES to examine string pieces and split thin strings that include mixtures of Ascii and non-Ascii characters, and to split fat pieces that may contain Ascii character in 2-byte form. After splitting, all pieces with the same PUTF8BYTESPERCHAR can be merged.") @@ -1938,7 +1977,7 @@ (NEQ 0 (PCHARSET PREVPC))) [AND (EQ EXTFORMAT :UTF-8) (NOT (MEMB PREVTYPE (CONSTANT (LIST THINFILE.PTYPE THINSTRING.PTYPE] - (NOT (MEMB (\TEDIT.PIECE.NTHCHARCODE TEXTOBJ PREVPC (SUB1 (PLEN PREVPC))) + (NOT (MEMB (\TEDIT.PIECE.NTHCHARCODE PREVPC (SUB1 (PLEN PREVPC))) (CHARCODE (EOL LF])])]) (\TEDIT.PUT.UTF8.SPLITPIECES @@ -2009,6 +2048,7 @@ (\TEDIT.PUT.PCTB.NEXTNEW [LAMBDA (NEXTNEW PC OLDBYTE# RUNLEN EXTFORMAT TEXTOBJ EOLC NSHIFTBYTES) + (* ; "Edited 25-Apr-2025 08:48 by rmk") (* ; "Edited 26-Mar-2025 09:27 by rmk") (* ; "Edited 21-Oct-2024 00:26 by rmk") (* ; "Edited 14-May-2024 18:54 by rmk") @@ -2024,7 +2064,7 @@ (* ;; "Note that the PCONTENTS (= PFILE) field for these file pieces isn't filled in, that has to be done after CHARSTREAM is closed and reopened at the TEDIT.PUT level. For the same reason, PBINABLE isn't set here.") - (* ;; "NSHIFTBYTES strips any XCCS charset shifts at the beginning of the new piece.") + (* ;; "NSHIFTBYTES strips any MCCS/XCCS charset shifts at the beginning of the new piece.") (SETQ RUNLEN (IDIFFERENCE RUNLEN NSHIFTBYTES)) (FSETPC NEXTNEW NEXTPIECE (SETQ NEXTNEW (create PIECE @@ -2036,19 +2076,18 @@ THINFILE.PTYPE UTF8.PTYPE)) (FSETPC NEXTNEW PBYTESPERCHAR (FGETPC PC PUTF8BYTESPERCHAR))) - (:XCCS (* ; + ((:MCCS :XCCS) (* ;  "String pieces can be merged with corresponding file pieces") - (FSETPC NEXTNEW PTYPE (SELECTC (PTYPE PC) - (THINSTRING.PTYPE - THINFILE.PTYPE) - ((LIST FATSTRING.PTYPE FATFILE1.PTYPE) + (FSETPC NEXTNEW PTYPE (SELECTC (PTYPE PC) + (THINSTRING.PTYPE + THINFILE.PTYPE) + ((LIST FATSTRING.PTYPE FATFILE1.PTYPE) (* ;  "PCHARSET is not relevant for FILEFILE2") - (FSETPC NEXTNEW PBYTESPERCHAR 2) - FATFILE2.PTYPE) - (PTYPE PC)))) - (\TEDIT.THELP "EXTERNAL FORMAT NOT RECOGNIZED" EXTFORMAT)) - (* ; + (FSETPC NEXTNEW PBYTESPERCHAR 2) + FATFILE2.PTYPE) + (PTYPE PC)))) + NIL) (* ;  "Accumulate PLEN across merged pieces. Objects are always 1.") [FSETPC NEXTNEW PLEN (CL:IF (EQ OBJECT.PTYPE (PTYPE NEXTNEW)) 1 @@ -2057,7 +2096,7 @@  "The file may have LF, but we want to restore EOL internally") (CL:WHEN [AND (EQ THINFILE.PTYPE (PTYPE NEXTNEW)) (EQ (CHARCODE EOL) - (\TEDIT.PIECE.NTHCHARCODE TEXTOBJ PC (PLEN PC] + (\TEDIT.PIECE.NTHCHARCODE PC (PLEN PC] (if (EQ 1 (PLEN NEXTNEW)) then (FSETPC NEXTNEW PTYPE THINSTRING.PTYPE) (FSETPC NEXTNEW PCONTENTS (ALLOCSTRING 1 (CHARCODE EOL))) @@ -2185,11 +2224,11 @@ (PUTHASH LOOKS I LOOKSHASH]) (\TEDIT.PUT.SINGLE.CHARLOOKS - [LAMBDA (FORMATSTREAM LOOKS) (* ; "Edited 2-Jan-2025 10:43 by rmk") + [LAMBDA (FORMATSTREAM LOOKS) (* ; "Edited 22-Apr-2025 14:50 by rmk") + (* ; "Edited 2-Jan-2025 10:43 by rmk") (* ; "Edited 13-Aug-2024 08:47 by rmk") (* ; "Edited 31-Jul-2024 00:05 by rmk") (* ; "Edited 16-Jan-2024 23:07 by rmk") - (* ; "Edited 21-Dec-2023 23:54 by rmk") (* ; "Edited 19-Dec-2023 10:14 by rmk") (* ; "Edited 26-Aug-2023 11:29 by rmk") (* ; "Edited 15-Aug-2023 23:17 by rmk") @@ -2198,40 +2237,43 @@ (* ;; "Put out a single CHARLOOKS description.") (LET ((FILEPOS (GETFILEPTR FORMATSTREAM)) - (FONT (fetch (CHARLOOKS CLFONT) of LOOKS)) + (FONT (FGETCLOOKS LOOKS CLFONT)) LEN) (\WOUT FORMATSTREAM 0) (* ;  "Reserve space for the length of this looks") - [COND - ((type? FONTCLASS FONT) (* ; + [if (type? FONTCLASS FONT) + then (* ;  "For font classes, we need to save a list of device-FD sets") - (\ARBOUT FORMATSTREAM (FONTCLASSUNPARSE FONT))) - (T (* ; + (\ARBOUT FORMATSTREAM (FONTCLASSUNPARSE FONT)) + else (* ;  "For FONTDESCRIPTORs, do it the easy way") - (\ATMOUT FORMATSTREAM (FONTPROP FONT 'FAMILY] (* ; "The font family") + (\ATMOUT FORMATSTREAM (FONTPROP FONT 'FAMILY](* ; "The font family") (\WOUT FORMATSTREAM (OR (FONTPROP FONT 'SIZE) 0)) (* ; "Size of the type, in points") - (\SMALLPOUT FORMATSTREAM (OR (fetch (CHARLOOKS CLOFFSET) of LOOKS) + (\SMALLPOUT FORMATSTREAM (OR (FGETCLOOKS LOOKS CLOFFSET) 0)) (* ; "Super/subscripting distance") - (COND - ([AND (fetch (CHARLOOKS CLSTYLE) of LOOKS) - (NOT (ZEROP (fetch (CHARLOOKS CLSTYLE) of LOOKS] - (\ARBOUT FORMATSTREAM (fetch (CHARLOOKS CLSTYLE) of LOOKS))) - (T (\WOUT FORMATSTREAM 0))) - (COND - ((fetch (CHARLOOKS CLUSERINFO) of LOOKS) - (\ARBOUT FORMATSTREAM (fetch (CHARLOOKS CLUSERINFO) of LOOKS))) - (T (\WOUT FORMATSTREAM 0))) - (\WOUT FORMATSTREAM (LOGOR (CL:IF (fetch (CHARLOOKS CLSELBEFORE) of LOOKS) + (if [AND (FGETCLOOKS LOOKS CLSTYLE) + (NOT (ZEROP (FGETCLOOKS LOOKS CLSTYLE] + then (\ARBOUT FORMATSTREAM (FGETCLOOKS LOOKS CLSTYLE)) + else (\WOUT FORMATSTREAM 0)) + + (* ;; "Make an ALIST, headed by \TEDIT.COLOR, for future expansion") + + [\ARBOUT FORMATSTREAM (CONS (LIST '\TEDIT.COLOR (OR (FGETCLOOKS LOOKS CLCOLOR) + 'BLACK)) + (CL:IF (FGETCLOOKS LOOKS CLUSERINFO) + (CONS (LIST '\TEDIT.USERINFO (FGETCLOOKS LOOKS CLUSERINFO)))) + ] + (\WOUT FORMATSTREAM (LOGOR (CL:IF (FGETCLOOKS LOOKS CLSELBEFORE) 8192 0) - (CL:IF (fetch (CHARLOOKS CLUNBREAKABLE) of LOOKS) + (CL:IF (FGETCLOOKS LOOKS CLUNBREAKABLE LOOKS) 4096 0) - (CL:IF (fetch (CHARLOOKS CLLEADER) of LOOKS) + (CL:IF (FGETCLOOKS LOOKS CLLEADER) 2048 0) - (CL:IF (fetch (CHARLOOKS CLINVERTED) of LOOKS) + (CL:IF (FGETCLOOKS LOOKS CLINVERTED) 1024 0) (CL:IF (EQ 'BOLD (FONTPROP FONT 'WEIGHT)) @@ -2240,28 +2282,28 @@ (CL:IF (EQ 'ITALIC (FONTPROP FONT 'SLOPE)) 256 0) - (CL:IF (fetch (CHARLOOKS CLULINE) of LOOKS) + (CL:IF (FGETCLOOKS LOOKS CLULINE) 128 0) - (CL:IF (fetch (CHARLOOKS CLOLINE) of LOOKS) + (CL:IF (FGETCLOOKS LOOKS CLOLINE) 64 0) - (CL:IF (fetch (CHARLOOKS CLSTRIKE) of LOOKS) + (CL:IF (FGETCLOOKS LOOKS CLSTRIKE) 32 0) - (CL:IF (fetch (CHARLOOKS CLSMALLCAP) of LOOKS) + (CL:IF (FGETCLOOKS LOOKS CLSMALLCAP) 16 0) - (CL:IF (fetch (CHARLOOKS CLPROTECTED) of LOOKS) + (CL:IF (FGETCLOOKS LOOKS CLPROTECTED) 8 0) - (CL:IF (fetch (CHARLOOKS CLINVISIBLE) of LOOKS) + (CL:IF (FGETCLOOKS LOOKS CLINVISIBLE) 4 0) - (CL:IF (fetch (CHARLOOKS CLSELAFTER) of LOOKS) + (CL:IF (FGETCLOOKS LOOKS CLSELAFTER) 2 0) - (CL:IF (fetch (CHARLOOKS CLCANCOPY) of LOOKS) + (CL:IF (FGETCLOOKS LOOKS CLCANCOPY) 1 0))) @@ -2470,7 +2512,9 @@ (DEFINEQ (TEDITFROMLISPSOURCE - [LAMBDA (SOURCEFILE TSTREAM PROPS USERTEMP START END) (* ; "Edited 26-Mar-2025 10:02 by rmk") + [LAMBDA (SOURCEFILE TSTREAM PROPS USERTEMP START END) (* ; "Edited 7-Apr-2025 23:13 by rmk") + (* ; "Edited 1-Apr-2025 12:54 by rmk") + (* ; "Edited 26-Mar-2025 10:02 by rmk") (* ; "Edited 18-Feb-2025 23:34 by rmk") (* ; "Edited 17-Nov-2024 10:03 by rmk") (* ; "Edited 25-Dec-2023 12:28 by rmk") @@ -2492,12 +2536,15 @@ (* ;; "Estimate 110 characters per line in the default font?") - [PUTTEXTPROPS TSTREAM `(PARABREAKCHARS NIL OPENWIDTH ,(TIMES TEDIT.SOURCE.LINELENGTH + (PUTTEXTPROPS TSTREAM `(PARABREAKCHARS NIL OPENWIDTH ,(TIMES TEDIT.SOURCE.LINELENGTH (CHARWIDTH (CHARCODE SPACE) DEFAULTFONT)) + OPENHEIGHT + ,(TIMES TEDIT.SOURCE.NLINES (FONTPROP DEFAULTFONT 'HEIGHT)) BOUNDTABLE ,(TEDIT.ATOMBOUND.READTABLE (fetch (READER-ENVIRONMENT REREADTABLE) - of USERTEMP] + of USERTEMP)) + DEFAULTPUTEXTENSION "")) (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Fetching " (FULLNAME SOURCEFILE) " ...") T) @@ -2526,33 +2573,35 @@ (RPAQ? TEDIT.SOURCE.LINELENGTH 110) +(RPAQ? TEDIT.SOURCE.NLINES 30) + (ADDTOVAR TEDIT.INPUT.FORMATS (LISPSOURCEFILEP TEDITFROMLISPSOURCE) (SHELLSCRIPTP TEDITFROMSHELLSCRIPT)) (RPAQ? *TEDIT-FILE-READTABLE* (COPYREADTABLE \ORIGREADTABLE)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (5064 34612 (TEDIT.GET 5074 . 11194) (TEDIT.FORMATTEDFILEP 11196 . 12512) ( -TEDIT.FILEDATE 12514 . 13685) (TEDIT.INCLUDE 13687 . 21716) (TEDIT.RAW.INCLUDE 21718 . 22526) ( -TEDIT.PUT 22528 . 30777) (TEDIT.PUT.STREAM 30779 . 34610)) (34613 54492 (\TEDIT.GET.FOREIGN.FILE 34623 - . 38048) (\TEDIT.GET.UNFORMATTED.FILE 38050 . 42042) (\TEDIT.GET.FORMATTED.FILE 42044 . 45071) ( -\TEDIT.FORMATTEDSTREAMP 45073 . 48091) (\ARBIN 48093 . 48813) (\ATMIN 48815 . 49352) (\DWIN 49354 . -49733) (\STRINGIN 49735 . 50443) (\TEDIT.GET.TRAILER 50445 . 52961) (\TEDIT.CACHEFILE 52963 . 54490)) -(54658 68412 (\TEDIT.GET.PIECES3 54668 . 65174) (\TEDIT.GET.IDATE3 65176 . 66571) ( -\TEDIT.MAKE.STRINGPIECE 66573 . 68410)) (68413 80788 (\TEDIT.GET.UNFORMATTED.FILE.XCCS 68423 . 74539) -(\TEDIT.INTERPRET.XCCS.SHIFTS 74541 . 80786)) (80810 86832 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 80820 . -86830)) (86855 95480 (\TEDIT.GET.CHARLOOKS.LIST 86865 . 87596) (\TEDIT.GET.SINGLE.CHARLOOKS 87598 . -92292) (\TEDIT.GET.CHARLOOKS 92294 . 93624) (\TEDIT.GET.PARALOOKS.INDEX 93626 . 94170) ( -\TEDIT.GET.CHARLOOKS.INDEX 94172 . 95478)) (95481 103138 (\TEDIT.GET.PARALOOKS.LIST 95491 . 96113) ( -\TEDIT.GET.SINGLE.PARALOOKS 96115 . 103136)) (103139 106729 (\TEDIT.GET.OBJECT 103149 . 106727)) ( -106791 138872 (\TEDIT.PUT.PCTB 106801 . 116451) (\TEDIT.PUT.PCTB.PIECEDATA 116453 . 119651) ( -\TEDIT.PUT.TRAILER 119653 . 120420) (\TEDIT.PUT.PCTB.MERGEABLE 120422 . 123856) ( -\TEDIT.PUT.UTF8.SPLITPIECES 123858 . 128560) (\TEDIT.PUT.PCTB.NEXTNEW 128562 . 133033) ( -\TEDIT.INSERT.NEWPIECES 133035 . 136470) (\TEDIT.PUTRESET 136472 . 136714) (\ARBOUT 136716 . 137440) ( -\ATMOUT 137442 . 138047) (\DWOUT 138049 . 138328) (\STRINGOUT 138330 . 138870)) (138873 150948 ( -\TEDIT.PUT.CHARLOOKS.LIST 138883 . 140555) (\TEDIT.PUT.SINGLE.CHARLOOKS 140557 . 146292) ( -\TEDIT.PUT.CHARLOOKS 146294 . 147519) (\TEDIT.PUT.CHARLOOKS1 147521 . 148572) (\TEDIT.PUT.OBJECT -148574 . 150946)) (150949 158588 (\TEDIT.PUT.PARALOOKS.LIST 150959 . 151861) ( -\TEDIT.PUT.SINGLE.PARALOOKS 151863 . 157447) (\TEDIT.PUT.PARALOOKS 157449 . 158586)) (158683 161695 ( -TEDITFROMLISPSOURCE 158693 . 160944) (SHELLSCRIPTP 160946 . 161175) (TEDITFROMSHELLSCRIPT 161177 . -161693))))) + (FILEMAP (NIL (5137 35300 (TEDIT.GET 5147 . 11479) (TEDIT.FORMATTEDFILEP 11481 . 12797) ( +TEDIT.FILEDATE 12799 . 13970) (TEDIT.INCLUDE 13972 . 22001) (TEDIT.RAW.INCLUDE 22003 . 22811) ( +TEDIT.PUT 22813 . 31289) (TEDIT.PUT.STREAM 31291 . 35298)) (35301 55377 (\TEDIT.GET.FOREIGN.FILE 35311 + . 38736) (\TEDIT.GET.UNFORMATTED.FILE 38738 . 42927) (\TEDIT.GET.FORMATTED.FILE 42929 . 45956) ( +\TEDIT.FORMATTEDSTREAMP 45958 . 48976) (\ARBIN 48978 . 49698) (\ATMIN 49700 . 50237) (\DWIN 50239 . +50618) (\STRINGIN 50620 . 51328) (\TEDIT.GET.TRAILER 51330 . 53846) (\TEDIT.CACHEFILE 53848 . 55375)) +(55543 69604 (\TEDIT.GET.PIECES3 55553 . 66366) (\TEDIT.GET.IDATE3 66368 . 67763) ( +\TEDIT.MAKE.STRINGPIECE 67765 . 69602)) (69605 82914 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 69615 . 75731) +(\TEDIT.INTERPRET.MCCS.SHIFTS 75733 . 81978) (\TEDIT.CONVERT.XCCSTOMCCS 81980 . 82912)) (82936 88958 ( +\TEDIT.GET.UNFORMATTED.FILE.UTF8 82946 . 88956)) (88981 98110 (\TEDIT.GET.CHARLOOKS.LIST 88991 . 89722 +) (\TEDIT.GET.SINGLE.CHARLOOKS 89724 . 94922) (\TEDIT.GET.CHARLOOKS 94924 . 96254) ( +\TEDIT.GET.PARALOOKS.INDEX 96256 . 96800) (\TEDIT.GET.CHARLOOKS.INDEX 96802 . 98108)) (98111 105768 ( +\TEDIT.GET.PARALOOKS.LIST 98121 . 98743) (\TEDIT.GET.SINGLE.PARALOOKS 98745 . 105766)) (105769 109359 +(\TEDIT.GET.OBJECT 105779 . 109357)) (109424 141872 (\TEDIT.PUT.PCTB 109434 . 119204) ( +\TEDIT.PUT.PCTB.PIECEDATA 119206 . 122404) (\TEDIT.PUT.TRAILER 122406 . 123173) ( +\TEDIT.PUT.PCTB.MERGEABLE 123175 . 126831) (\TEDIT.PUT.UTF8.SPLITPIECES 126833 . 131535) ( +\TEDIT.PUT.PCTB.NEXTNEW 131537 . 136033) (\TEDIT.INSERT.NEWPIECES 136035 . 139470) (\TEDIT.PUTRESET +139472 . 139714) (\ARBOUT 139716 . 140440) (\ATMOUT 140442 . 141047) (\DWOUT 141049 . 141328) ( +\STRINGOUT 141330 . 141870)) (141873 153943 (\TEDIT.PUT.CHARLOOKS.LIST 141883 . 143555) ( +\TEDIT.PUT.SINGLE.CHARLOOKS 143557 . 149287) (\TEDIT.PUT.CHARLOOKS 149289 . 150514) ( +\TEDIT.PUT.CHARLOOKS1 150516 . 151567) (\TEDIT.PUT.OBJECT 151569 . 153941)) (153944 161583 ( +\TEDIT.PUT.PARALOOKS.LIST 153954 . 154856) (\TEDIT.PUT.SINGLE.PARALOOKS 154858 . 160442) ( +\TEDIT.PUT.PARALOOKS 160444 . 161581)) (161678 165107 (TEDITFROMLISPSOURCE 161688 . 164356) ( +SHELLSCRIPTP 164358 . 164587) (TEDITFROMSHELLSCRIPT 164589 . 165105))))) STOP diff --git a/library/tedit/TEDIT-FILE.LCOM b/library/tedit/TEDIT-FILE.LCOM index 2ea4564e26c42848242934cad50923134a471226..af826ff6200af23678bfa2bd52023e5975233f5c 100644 GIT binary patch delta 6330 zcmZu#Yj9h~b;g6FC`h763Dg66Z9usOX%WGF;R2v7;}WL@zl;tOsyZ2hm(ntPTFLqsR-*&XIi#D(h1cWyFc0_ZKriKZU3}(OHcc! zGilv#cP~I#wnn@-``$f!&iTHxU;QKBzc+lZpI%mmPd>jmEXQPx#FD94Jf%os5(!T) zUA{86Fgrt*7D<={Zf2`vx1OwBo4tDN_@${U3sZ~73ro{e3&$_d&MeH{P@>xL3v<_p zMd|p$+%s3FuHHEAm|4pa-{G89Fry=?Hb}y9+nUR9CSgSyE>7JLN0VYHRZeMInB1%v&1}J( zxb-C8<;vIhY?Tv4ifgK*(%Bx>d^Bb$ZRWx_ohF{Ni>G{*|}#?*;Y^u+Q{%Q8nE$ zv$|J^Yn8U0yB1;Lv6+z@!f|P5HI7zu;mx+|r9<52x z%L99Tx=f{xeG7_4?6O&M%+pPENHL8-p<<3&)vWM&l8RU&I%eUj6Ec|;s^^L$y2^&I zNqFbD(rji`nSxz4b41hWN=M|fjCnTKO1L|3+JO`o?e^$NB54Y7uSiliMJY})1=FZt zK_bOsVq4Ae@gx~FtW?av+3H7qN0znbxV%+$?8=0Z z%@QRUd!#mMp2Bqy1vLkE6RKBI{zu?$ojtZ(mqe)b@pCDNcXAE4VAkFTAzBq{mqG zC@wx@mof%!Mop3&9Ex=ru3Jui82ZC;EW1=Cl9FgOq7ZYh8P+P(@!t;mrC5S)9O#co zv8L7GuvQ6{O%i%jU+~?mT`EivU86tU{lqd_3TDnBYCKMGD`v*QT13^7n|Gtgq+Ecf zv%4fJf@tefr6egE6{BF=V^yNYbdt0AB_v5Iv#@k+_F05iqF`pR3q_Ng5*(;tmQFa; zJTxhjl36Em92%`TY`Ze-`DV$^T9u4lF>euB)!czH0-2ahN+iV;dH6`%*0mU22@V7` zi9{mKMA_uK9UO#{C+W|Fx;JsBKkU`%K>ru|6C`XcPA@z^GfSSmx^y`O6o@Aq6a7zh zdW(&>L**?8YcP{a(SVO;pGL&P(cSybkvN@-1nKT@e;@7+YOa}s#Pi?&E|0fHp9)K{ zQ=#eYYjb~6?|G-n16wm5<*QD;mq*EodhgwPp5GHu%c0*1M=3WmT@h$&FCRZG5YjCf9O$vaXmvyDs*vR&l7sAHG{;wqimXE zqgDxFLxK{yZDnEZ6cAIQorW9*jIl8OE`wsox$UFLvtr@O@jnyE4p&qR7IXNb<;GX9L zw`KRE4S#7-d+>c9)If&z9Dv%G*RowfRXC_+7wxQBh8@uNjvbtGVo+5J5}V8qPw#+o_*r>_AfA4m0XQx&74syIMH0usg}*mAo2Zuzn6Zf=X~{{ zhMw5xI~>`a=Gx#0=&I~T?(f@cbULLk|HwWlz_a&UXw8-F(ELW@RlC;?@qza~x$TMQ z@N2W+kT`-i|5aNdoq0as%ygn`%h77y$~jdM2Yd==;NYd{(BG#0XmDm0YNw%pW=|Rq zC_tAedKb$8Jj_Zo0F;Y}h$B@qS~gCYxe83ZN;E_}7OaRCW0A=*fFTMoDis5G6HhdK zUj;zk961Cs!uu$IM$tz}D9t_!A`C5$2m7N1U>eF&WS+a*{qAIpU2`?~_5F zq|*;q4t7X@GuA&4MJP5;6G=+Y+LI$yDMq+aAWDERF!LaB?8%klYEy!-xOE7f;>P2E z8gb)sNkN!oK?O%t=Bv*VUZpYj)GvJqRYv-zA3uMZ zdBML6!RVA(aiYx59GhJjeYx}Toibr?Mt~I%N;ds??}25YL@S!9q-v#7Llu+VA$C_C zLNuH8`#fH5VEj{EVuUIbx)=(Hkj85{u|kyt+9pETrM_K0EB{|B7kjG~H?T9E-qn34 zXE^aXv+xpbKh)TJ@_L_mW50Aj z0jhQ@1zbZ@44s%sf-5Uv137q9oVetH2w3A5o56im>=PyQgF^x>#%nehu-kKx*oEvV zqkynJ7;tU$b9DQ9AVt%ALY;^GUXPc)e(c2OUBEv+HhAY)FG5aN!#+{(*a}ZO?Np2^ zp+6X-U-Wl}JRaY9ri~-QcZ0oaGxNc&wZ4ZvX|A+B@6I%Nm?ppKTiH)13u;PKpOgJw zzqp`{)q?^xY~lRu=RSMF}vU z85<&TFcscVFsg_EGFXM{M;g1orVK9Bl4US8w_Z(v6mfaEOjH#yx!Hht*_0K1bFc!w z)~b(fI;{++Yu3wc&dhjxvtCMoaJuuuTPKYQLpcOvCQU$8g$N1g;IcwQDp-RKZ)Daa zXpIi*sSq7e8DH3mMRX9IBEAwCMYsgmF;xkT=ya;Qdl?wpR>zR2HCr6PY_p^>G;XzN zfZENHie0yrz=+yP*wbc-vEjCow%k6Af(zJeltK5}N=OyjN?>!FB}M>73%GSK%@z`{ zyvBuns8l#!#xB_43+#H_iXEZ`>S5y>@$r|o9c9=D?3IWSlK=$_hPjA1ie!t6dgB+9 zIWI@RCV%}b0-oLLrQx%afkUpp)T8vZvyS&H{q@@<)tYvD}Z*0c1Ch;aI0kx;T9@1kx@Ol}Lk7r$QnEF*$-Z z{(L&nx$N!oc|4uQyZ*1<^ZZ}>fyZy)ug~YrFLZ6-!auac@4uwiw;Su*H+a8arPq6n z^$bMa%DJIJ9m2IMd{zBWr9mYRrwCv(pcPuNe5- zcsHA0*tT*1c>dDHH&MBTO>{rzj{R_D=;P7QZW*z`C=_fk49;;`dVA%{!7M2W#E{vx!6St^$av;(B^CrYZIY4uyT$@= zaStN1gV0}I2{#Tux3p!4_ai9FCy>sd-+N&ywcd5#KmTW6D*f}qC;!S7xmGN-L}R^s zHH^=>9_)R;-P7rR+wS3!;1AOVE#25x5?mRkaDNLwKS+zQ9(Z>rFF-;W|M|pe<3UgF z{KgL!iRbpb@xT{jaxatDx6{RLCeWYVNEIJ+kok?f3%6OP4s^P^kmmhiQ+F2#6T7(B z%SGO|n~S_}2k(n@?k@Ns((5mtTUHSg+MrowZ$_iYE5r+mkbuJNUEs8v_yu4Eu!(-i z7KNk$7#SjQ-Xpt^B?>Gx0wS^%B;fP17$7ke7L}mdtqv?-`WjU z=Xu5_?2UiN7f6}g*e`goQs(K|&jX^E5y_g58!nF%p%9I}Du*PNK?Ac8Fi#_D+EJ^B zT#4Z>dqRppDee;zo*Y}*H#kt+69E{TLL0A+__R3Pcr`eTSb=LRWgTM_Niy<1cJQoO z%~Y&1UfPKJ$eHJwrG2jrFiH|8{E-?68qUpLpT0P^c!52eBuK;sYb=NziZ?3~4i7d8 zul-x+I8Sz)Jo@t!$|imIOae1VB12?^gju)?qmaW}Sb+ZZu>k>~c)^Hl9%tJ2?m`9PyVPkMigL_X)dH!o1-t=-+ibcjN$Z~gTD0ji5~cmMzZ delta 5740 zcmaJ_dvIJ;8Q({emTgGWG_M9)58EP1G&}d)*FFk1H=Dc3Z8!IBckd=C6r@ekM@UoX zV`Q{-k&#gu%P^d_P(kD`OLOGn2)sHn`C%82-fiZhA~!XG%y1pjgT3xDU_$8LeK zGtGYAd3@(P-{bdv=l-i6d+^2BqqAExBUAg1jmVO$5vt~7HK(XaGMJn@dgR{2OAGVl z=rUnu^cG3V43R`q)|-|qIZ4jRnIzeNY$05~aR0r>j^CUk?9P#aI}R_CWT9FtlIDG> zR4Pg4_nm<7&l0F8$)Utx!77^hvT3;HI7!N%p(I!8Iw?b_PP4ksPDc5On}&u+u2eRs zEvH%;8OLsHZdO_1Dy!KfNwA6N%~6Sc7`>}^%CPJi%N}=TNP)=2t++UNitUSC+EHqY z;NQx?q0%}|l&)+1or{$YaxTID%(d^neBVshlVaqsJ1{V}_R386ZniJpQ!5J@mG1tE zAj-c_l^4aP-IumigupAi#lD#iafr{AJ!bmlwPmrWv+1;sD=&RBGAL7(Oqi~xdbMJf zOJ%1-WJw{gn&lFjRY<9NlfOVr(u{WD4cgndx)9|`D%$rOsZlQiJF!|VX97>cZg|~Uv1XqXQ`_ENt3BkXcQ=# zvTXRqP30$za`CaQHGNVbZqll_PI-?pK2DU3#ocoNZi1E;QNTHHZHj0k3t3p&sCI!cKiIP@HF28j2_`(5zAW;wj-pL9= z)Ta~)2iX(uB)~0AY;y*`GRZhqm#ZjiY4SDO8Mn%Lr)-`kvMTu-Wm)klno$E0n#_LK zy|r7_$>5;7r(_BR0cNtKvbVd_QHAyOB%?CR_1x5>kfgOdw{&uTfgCt?^hk~*iLTb~ z?YXTrdZ_;5Kxxf%5HAG+BU`!LaM`RNY@G5`Wf%~rb9cd%RTE5_a2J(rqsZss!ve{W zDx!-su=|c75_vz~7KysdP100#U@mdx@GoXMo~~SjS(BBS&gpgzg?pwio%UdDrjuPx z4r1fqlaox|+DG9AUJZm-@At* zt})9-%w-9`9m1vLmcfSk?B^X^Q?krFqMs_)1U*F{_&Y^9QL6co#)XOMK@pRl%B?&S z6?WUUaxXbjDmm2>7Z>D#v-K20jecqf5PD5CBJ6`eg@7DT06&dY-+NOGhuV4cq&d&pMsX zfGBe>JscTK(+n|-F42Mc;ulEf=Q__yR4(A;Y(8H}RVJ;1TOqm}Tv1dV4JqH`WDW4_ z10nahrn5J1?~ZG#&VIUmU>Nu3xIi?(Fg6)LbDbFFvH`SD(;($kT_Wt+>4Bump@=V2 z0F~Y{C8Gz+6cjx6hpB<}3J2QWvK>?cDaEwde&UiSQLBT>En=52qDMQ7_j8vR-vKR1uxAFucCysw3w zvmgC@?Db8NNK82XbMuScZC5tD(=jSKk`2-IqvV}Y@|O+Y=x45@u9@`4>%Vf2$7(1@ zO&-&cGaOp0HsH2mA`ti`Y}c#(U||I#ziXK2JmdI8(Wq45*>q@h4cQwwK+OUHd}nY+ zhP15ubPZlY>k>>TT4S>U0|w(V8lsQ}l7uuxG4cBcx!8#3X`a7`9sj55a~6d+F3 zKq?-|K`N}Ah*z|?-0Pwr5Oqg~=gUM#mBC+4BNhNXO{Vadk};%$)?^Vq0I89Nm2@gK zt$b`80eV;@q9nuAyqy&!5`r6%kLvZEcNd}@mG10|u#5Zl zUQhh!6hEwQzZ<=sE$u(N;R9z|Yy5l8HW96lU5xydy}zHdd053d=RQvUIx?ss)f@d0 zw;i(BbP67>Aid^$cm;a<+@?5MM^-!E8&?&Hou1zuRoRpCo40#+N2sGs(8!cIH3oP< z6nZ@idVy48qqtWG>@Cp zAW##<`v)Bqx*|FqFSe!8sl>$*9p{Rz@iMvlRWduOUD?7=+_FgthUW zQKKBg`b9PMjE0ucHC$`jBosB0!_>P6cCMAkpiERk>k|hPt#;(&SR~SFyc~ba&)N5vHbtLd zuP*JpyEJ;W`&$P7ufA+fF0EU=ykqj7)e9J0v$%R_^)k(S@$<~&QItaO^@rhs@zME} zwtLW3lT$t-$m zpDn1Bw#)IwSMIdmUHbSvamOoDc1U`QSJqzoVnBVlV{x^<#p!5`Kkjsh)PHf*7x~nw z{w{x6;u(K%CBdFK)%PWD_-aSz;_CCuB=W$bKM<4nKxa6x($1FGhTPRQvA%`fbh?+3 z(>KStW&IT{`uWj&Re@n>6aO!hQu?COz zKe*?C#eXt(x?0olwreWA8jxY{7}`Ce@#myR@sw^f&06DODR2+%qQ4H+#-kL?t1$vv z6yC|BNDGF?ledO$j1;TKr_#Pe4Plx(?LE+#8+%~M1K?kA)ssLQy_)c$4MJEszBcei76Nmh5 z;?RgRap)$RIH_5Rf)`$6PT^0OpxhCK7kbwyT6uh~&`7OP#D^E&S&}iQhz|mQh#AwG zm_%K{{TutlgFciZUsJ*PtFvh(TE-^s8a*j5d!ZDnWp+2S*IbtZdKyd7-c*pcgd?~y zW#Q?KE+;fD-tytv`XjXi?KKZjDo(YWH&aE+HvLC)flxAT7K~~U4^!L4D|0Rqi?kV+ zuUpG;b$?92>>=^Dv_y7`#Q&3E^ByY1L~b7%5dXxqA#l(G5kantuxG#9-H#TWm-rNK zhf}VTvZjm)6Cbwl)nVfxLdpMnfwT#qr)XkOy7>kkDvpizj(^lEB zr%qN)qv*6Ma*%uyA7T(Bb8SBw2s^%m=NSXyX(A@BK4G z28YRZlH@CsUnjc{D{6_Y|IUU?T&h@kZo-4)^1)F{S zd~f}(^Q9<16Q8A~`4^-?&xPW%N6LG6U@*b%x-h|{CtBBAw&i*YxylJP{=^LX?S&3V Ne&LC)u+a-Y{vS!a%s2o5 diff --git a/library/tedit/TEDIT-FIND b/library/tedit/TEDIT-FIND index d1ea8007..ffbd94c4 100644 --- a/library/tedit/TEDIT-FIND +++ b/library/tedit/TEDIT-FIND @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "28-Mar-2025 14:07:00" {WMEDLEY}TEDIT>TEDIT-FIND.;155 43772 +(FILECREATED "21-Apr-2025 22:42:57" {WMEDLEY}tedit>TEDIT-FIND.;165 43576 :EDIT-BY rmk - :CHANGES-TO (FNS TEDIT.NEXT) + :CHANGES-TO (FNS TEDIT.SUBSTITUTE) - :PREVIOUS-DATE "19-Mar-2025 11:25:45" {WMEDLEY}tedit>TEDIT-FIND.;153) + :PREVIOUS-DATE "20-Apr-2025 23:44:49" {WMEDLEY}tedit>TEDIT-FIND.;162) (PRETTYCOMPRINT TEDIT-FINDCOMS) @@ -67,15 +67,15 @@ (CAR RESULT)))]) (TEDIT.SUBSTITUTE - [LAMBDA (TSTREAM PATTERN REPLACEMENT CONFIRM? NEWCHARLOOKS)(* ; "Edited 19-Mar-2025 11:20 by rmk") + [LAMBDA (TSTREAM PATTERN REPLACEMENT CONFIRM? NEWCHARLOOKS)(* ; "Edited 21-Apr-2025 22:23 by rmk") + (* ; "Edited 6-Apr-2025 14:39 by rmk") + (* ; "Edited 19-Mar-2025 11:20 by rmk") (* ; "Edited 15-Mar-2025 00:23 by rmk") (* ; "Edited 6-Mar-2025 20:17 by rmk") (* ; "Edited 8-Dec-2024 15:47 by rmk") - (* ; "Edited 26-Nov-2024 23:49 by rmk") (* ; "Edited 15-Aug-2024 09:20 by rmk") (* ; "Edited 14-Jul-2024 00:24 by rmk") (* ; "Edited 18-May-2024 23:03 by rmk") - (* ; "Edited 12-May-2024 21:11 by rmk") (* ; "Edited 15-Mar-2024 14:09 by rmk") (* ; "Edited 6-Jan-2024 11:09 by rmk") (* ; "Edited 12-Nov-2023 12:29 by rmk") @@ -88,7 +88,7 @@ (CL:UNLESS (\TEDIT.READONLY TSTREAM) (RESETLST - (PROG ((TEXTOBJ (TEXTOBJ TSTREAM)) + (PROG ((TEXTOBJ (FTEXTOBJ TSTREAM)) (NREPLACEMENTS 0) (YESLIST '("Y" "y" "yes" "YES" "T" "Yes")) SEARCHSTRING ABORTFLG ENDCHAR# STARTCHAR# CONFIRMFLG SEL REPLACE-LEN ACTIONSTRING @@ -159,12 +159,10 @@ ENDCHAR#)) do (* ;  "Show each substitution site and ask for permission") - (\TEDIT.UPDATE.SEL SEL (CAR HIT) + (\TEDIT.UPDATE.SEL TSTREAM (CAR HIT) (CADR HIT) 'RIGHT 'PENDINGDEL) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ) (TEDIT.NORMALIZECARET TEXTOBJ SEL) [SELECTQ (U-CASE (NTHCHAR (TEDIT.GETINPUT TEXTOBJ "OK to replace? ['q' quits]" "Yes") @@ -175,8 +173,8 @@ (SETQ CHARLOOKS (PCHARLOOKS (\TEDIT.CHTOPC (CAR HIT) TEXTOBJ)))) (\TEDIT.REPLACE.SELPIECES (\TEDIT.SELPIECES.COPY REPLACEMENT - 'COPY TEXTOBJ) - TEXTOBJ SEL) + 'COPY TSTREAM) + TSTREAM SEL) (\TEDIT.COPYSEL SEL LASTSEL) (* ; "This may be where we end up") (add NREPLACEMENTS 1) @@ -187,7 +185,7 @@ (* ;;  "Turn off rejected selection, search for next starting one charcter later. ENDCHAR# is still OK.") - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) + (\TEDIT.NOSEL TSTREAM) (SETQ STARTCHAR# (ADD1 (CAR HIT] finally (\TEDIT.COPYSEL LASTSEL SEL)) else @@ -204,10 +202,10 @@ (\TEDIT.UPDATE.SEL SEL (CAR HIT) (CADR HIT) 'RIGHT) - (\TEDIT.FIXSEL SEL TEXTOBJ) + (\TEDIT.FIXSEL SEL TSTREAM) (\TEDIT.REPLACE.SELPIECES (\TEDIT.SELPIECES.COPY REPLACEMENT - 'COPY TEXTOBJ NIL CHARLOOKS) - TEXTOBJ SEL) + 'COPY TSTREAM NIL CHARLOOKS) + TSTREAM SEL) (push EVENTS (\TEDIT.POPEVENT TEXTOBJ)) (* ;  "Collect the events for a single composite") @@ -221,23 +219,22 @@ (* ;; "At least one replacement, update the lines that have changed. We have to calculate how many of the original characters have %"changed%" by adding the TOTALDIFF to the final position of the last character of the last hit. ") - (\TEDIT.UPDATE.LINES TEXTOBJ 'INSERTION FIRSTHIT + (\TEDIT.UPDATE.LINES TSTREAM 'INSERTION FIRSTHIT (IDIFFERENCE (IPLUS (FGETSEL SEL CHLIM) TOTALDIFF) FIRSTHIT)) (* ;; "Not clear what the final selection should be, if there are multiple changes. The original selection? A selection that goes from the beginning of the first subsitution to the end of the last (as here)? Or just the selection of the last substitution?") - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) + (\TEDIT.NOSEL TSTREAM) (\TEDIT.UPDATE.SEL SEL FIRSTHIT (IDIFFERENCE HITLAST FIRSTHIT ) 'RIGHT) - (\TEDIT.FIXSEL SEL TEXTOBJ) (\TEDIT.HISTORYADD.COMPOSITE TEXTOBJ EVENTS))] (* ;; "Save the search & replacement strings to offer for next time:") - (\TEDIT.SHOWSEL SEL T TEXTOBJ) + (\TEDIT.SHOWSEL SEL T TSTREAM) (TEDIT.NORMALIZECARET TSTREAM SEL) (PUTTEXTPROP TEXTOBJ 'TEDIT.LAST.SUBSTITUTE.STRING SEARCHSTRING) (PUTTEXTPROP TEXTOBJ 'TEDIT.LAST.REPLACEMENT.STRING (\TEDIT.SELPIECES.TO.STRING @@ -251,7 +248,8 @@ (RETURN NREPLACEMENTS))))]) (TEDIT.NEXT - [LAMBDA (TSTREAM) (* ; "Edited 28-Mar-2025 14:06 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 6-Apr-2025 14:40 by rmk") + (* ; "Edited 28-Mar-2025 14:06 by rmk") (* ; "Edited 14-Mar-2025 23:14 by rmk") (* ; "Edited 11-Mar-2025 15:35 by rmk") (* ; "Edited 9-Mar-2025 11:31 by rmk") @@ -307,11 +305,9 @@ then (* ;; "CHNO is the beginning of the located blank, DCH is its length") - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) - (\TEDIT.UPDATE.SEL SEL CHNO DCH 'RIGHT 'PENDINGDEL) + (\TEDIT.NOSEL TSTREAM) + (\TEDIT.UPDATE.SEL TSTREAM CHNO DCH 'RIGHT 'PENDINGDEL) (FSETTOBJ TEXTOBJ BLUEPENDINGDELETE T) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ) (FSETTOBJ TEXTOBJ CARETLOOKS (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ SEL)) (TEDIT.NORMALIZECARET TEXTOBJ) else (TEDIT.PROMPTPRINT TEXTOBJ "No more blanks to fill in" T]) @@ -688,10 +684,10 @@ (DREVERSE $$VAL))]) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (961 20132 (TEDIT.FIND 971 . 1555) (TEDIT.FIND.SETSEL 1557 . 2022) (TEDIT.FIND.BACKWARD -2024 . 2603) (TEDIT.SUBSTITUTE 2605 . 15424) (TEDIT.NEXT 15426 . 20130)) (20133 23562 ( -TEDIT.FIND.OBJECT 20143 . 21643) (TEDIT.FIND.OBJECT.BACKWARD 21645 . 23560)) (23595 43749 (\TEDIT.FIND - 23605 . 26541) (\TEDIT.FIND.BACKWARD 26543 . 29061) (\TEDIT.WCFIND 29063 . 32582) (\TEDIT.BASICFIND -32584 . 34943) (\TEDIT.WCFIND.BACKWARD 34945 . 38409) (\TEDIT.BASICFIND.BACKWARD 38411 . 40668) ( -\TEDIT.PARSE.SEARCHSTRING 40670 . 43747))))) + (FILEMAP (NIL (967 19936 (TEDIT.FIND 977 . 1561) (TEDIT.FIND.SETSEL 1563 . 2028) (TEDIT.FIND.BACKWARD +2030 . 2609) (TEDIT.SUBSTITUTE 2611 . 15222) (TEDIT.NEXT 15224 . 19934)) (19937 23366 ( +TEDIT.FIND.OBJECT 19947 . 21447) (TEDIT.FIND.OBJECT.BACKWARD 21449 . 23364)) (23399 43553 (\TEDIT.FIND + 23409 . 26345) (\TEDIT.FIND.BACKWARD 26347 . 28865) (\TEDIT.WCFIND 28867 . 32386) (\TEDIT.BASICFIND +32388 . 34747) (\TEDIT.WCFIND.BACKWARD 34749 . 38213) (\TEDIT.BASICFIND.BACKWARD 38215 . 40472) ( +\TEDIT.PARSE.SEARCHSTRING 40474 . 43551))))) STOP diff --git a/library/tedit/TEDIT-FIND.LCOM b/library/tedit/TEDIT-FIND.LCOM index ab0bf432b1d70af21dbb05e243d4e852a1651eaa..d3ed8fd4c36d87170fca436d60f889caafb96f58 100644 GIT binary patch delta 2530 zcmZuzO>7fK6pj-Tf=Nn}Qb;Hv!>W{oI@|sKajD6&UdK!9-L1W5lN5xU*u*9#Ms`qz z(#UELZBM9TPF1B;;=-k%Mxm-IP&xDzsfS9HD!5eYsmH>tH~MzhUYnmt+049o^S*E1 zy!TDMOFo z6Fse5tNBM`m?+0Yd67UHPFjnnw1v&n9!tC%I@B-lh+}zCz$>A5sci0S*4FKutxch* zmC?@YW-dD&hnNtO>Ilh3IWEe{_@~fhx4`WD9lFvpYG-YLPoo4-M;XmZDXNy%3>z=^ zCXU=c)YlbqBENRQ&n+kNl@sZ6hr6SFc)K?eBJp3nWAOd2_v8uEbJ`hq$bGKM9fvHi zGf(gT?vTl_Ygi^fb4VQTyE*ZVIojLvW6$T?U0)dHkRNbh^~vLl<{P)SyZ*(``o?oePm;cK_xAG}D{joE_brFJYaR{x5W54H4n1;6Z^?=5cRe7? zy}glBT)~Ny23*4<@LqlV%l7l*SBCR%CFjZ|BR%May+i=|O}wX{I_g9`%I#Psb8@h^ z886)*J8@aR@^nXaA|8~9%%R<|dF-)?p7Ym=1@5xWe$19q_=<0 zW9p9`^47kU9EZF*B(02@wrne-8#ah3$Jm$5jM#)S%uHHI>5H1GWHcK|w1h7BB(h1<$!aMiQ35_39-kLw zv9*-5+#)00RZ$GAtqr0eyyTeD4K0fVDTr;EmUbSB4Qw>t3cuYgGWbDwtiiT6CiHnX zy1)gN4orcTTYhTNHZ2wLGSjlS-HZ4(g%&HGX>T&E1vfh1j^j4~{ysc_FYQ0tpj*+J z@i`ujlvvcIgE+dCk z1Bj*s*m!dgg;=~bIMIMh&*-yB8;P8ZbR(-}Y~3`FNC86)kI8+TQQGOg9v2gEgBo^+rJ!2qs z?HLWX12aq4ROken6*^|3j6WTm=;j$X)UgKRihvIf<&<0Jc9&`Rl|=c4jS`R|kWqyXN5gQTSSR*CiHdmg09t{(5#_ZN z?=fQ_5rk1C5CimF>@zR~dW2G6MN7rY)mjl1^UEcO1n)B<>erX*>*e+9>i{eZh$s{* zMR!cYINMqS>NHK^y9cJCvV@3_m8EJ8-pq>x5?MrKitu(X7g2q^1}vgL(cN3j*8nB3 zvDD7c&~G8-9e652Gv0eKtn6t%7e_pK|GBjIP~Qy?5BH@X%*=W6yI9ycGXkRjPpL5D zzYa6_@W?n;N67HEp$A5H=wbPXExa-EUZ{@mz;_n^G4f#}sNha{W_TLuX=PS}dhryO zVa2w=%U4rRo2sCiaSf8x;pB=6Epr{aXn|`9kSAv}$n}Ma-yObzYCRP%={F?12?t$7 z`aMCqVw5t?xh$x4Yq>*C`9PLiTFFs(;^1)`GM>=2R6LtYfF64{>&@X`4R^-;D2(WjT!&| delta 2493 zcmZuz-ESL35RV-tB+i$UG#@BQJ6s7Q!7+Dx-&Ses*ys2X+jrQPIw=jsiQUF&8Pdq@Sz96I`H4Px4Rz!lQAP_vE_P;0+NW7J~JNxW}TJm~#cIG#~ot>HW zU$b|Tw-;YmrqhMZX~Gf_I3dEy5te0Of?2IxyI#IpDnexg7`T~FYw?t}bnDb-_eOR^ zaS{Ryks2)d2umVFVPIvm>sC0UEm}}Uw8TOx1&!9>aF~H&VH>?Y z50>Yd$-qQHPie8N7PYjKabU=EX&<85CW;{NvP|f<@0BUr`y@ontaeT}7IM>Z1OkRr z8_vK*h!_z>`ipPEFYvznQT#7kgv*P`f?(DjzEHXP(X{i0PeoT015Hs3dbt`nS;lO0rh;moOZ2j%YWvtrV9;op6B$+3C*Ad?rq zK`7Vep!4G3em>-EC7lx`=}#|&rcN5cHFv#_x>p|mxce-)-dh+r#EQAQ+w?IVZew4p z5~u;K851tIBrUd`-YM(rPxt2B&>3I^4+6&V#|Av#`#bc6lHXzeR)BuCaRe=(xzo*b-Z&`U?FB?Vo{tD0_l0Y zemye_Dy!DyiXwSai34-NvM|>W!~{i@=x^;~y}}VOq20|xg9>5cf?FH8q>;~QDNtCI zP6WnIE3CJb&=>6;S>MJ&dYr52n|Q)1uu%uL3#9Dy|GyJR74W#MCbUbC_E>72-2@+ z58)L^xwHw9A+4onv@8(99c4{8u4co@NV6IVP7vt*&J#Om>!zRy9P4pTN3-+Mn5Cc7 zFz22_1k>b5a3l#ZP+q3uL60c#>LCTYI2J9VZDtO8u_DMc-Sv`Bq?N7{JDC4jeKu)< zj3|00r)4eO$bigpfcLH;EnG>WT`=YnNW5HC7qPbL3L-1G3W6-d5(tv)dYqZVE-u2G zz@x;}GI1=wIHnUX5f?`Xo@)dmc)4|0f-$VGIJ_oYnYtF!a=>BE)K^$H>8=xgUcf_* zmGG3H@&YjB%ElI4D-=r%b^saQLj2_<_ZKPK`_*klwYNF^DhiGbhKh`ekg4Dxa6B+e zr7fJX3LWl&l7NEp#%1RbBsOxU!T@1$f(U02P*s76Ze4+u(xu8~2}*_4HQSGZm|Hhi zwzkXLH@0ytE5H;>S4%ioahj`bImGFmp2>*90`pdMrLu`H?J@)SJ~G+T^{a)|5^Qa6 zB8Lb%woOZgP4wZ(II`yt{_68h)8Bgs#(!8l|42Uw^!B!&dm`?8Ktj@^rCs4pD&#P=}c_dP1#zfFsMulY*!HjXNN)c1y8RjAQ904(U~ z=&WYU%sD-j2vS{uFECHp{(&gQ>97{of+xUOc$MMQEyqi>x^>qakDXz#nPWxzW&cuvvjd-0!M0&^Qzx`da7~X`grQ*4T1Y&?)*UlRMg4k>9nGM-2 lvDKpB>_WssbLtF;O6bzDw4&wtWBYH|Po diff --git a/library/tedit/TEDIT-FNKEYS b/library/tedit/TEDIT-FNKEYS index 8b1b8553..07309f06 100644 --- a/library/tedit/TEDIT-FNKEYS +++ b/library/tedit/TEDIT-FNKEYS @@ -1,22 +1,23 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "28-Mar-2025 10:13:53" {WMEDLEY}tedit>TEDIT-FNKEYS.;250 100100 +(FILECREATED "29-May-2025 16:20:30" {WMEDLEY}tedit>TEDIT-FNKEYS.;290 110242 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.WRITE.SEL \TEDIT.SHOWCARETLOOKS) + :CHANGES-TO (FNS TEDIT.GETSYNTAX) - :PREVIOUS-DATE "26-Mar-2025 10:37:43" {WMEDLEY}TEDIT>TEDIT-FNKEYS.;248) + :PREVIOUS-DATE "25-May-2025 23:26:11" {WMEDLEY}tedit>TEDIT-FNKEYS.;289) (PRETTYCOMPRINT TEDIT-FNKEYSCOMS) (RPAQQ TEDIT-FNKEYSCOMS - ((FNS CHARNAME) + ((FNS CHARCODE.ENCODE) (COMS (* ;  "Public functions (binding data below)") (FNS TEDIT.INSTALL.CHARBINDINGS TEDIT.CLEAR.CHARBINDINGS TEDIT.GET.CHARACTION - TEDIT.GET.CHARBINDING TEDIT.GET.ALL.CHARBINDINGS TEDIT.GET.ALL.CHARACTIONS)) + TEDIT.GET.CHARBINDING TEDIT.GET.ALL.CHARBINDINGS TEDIT.CHARBINDINGS.INVERT + TEDIT.GET.ALL.CHARACTIONS TEDIT.CONFLICTING.CHARBINDINGS)) (COMS (* ;; "Functions that implement the key actions:") @@ -32,6 +33,8 @@ \TEDIT.LINE.END \TEDIT.DOCUMENT.BEGIN \TEDIT.DOCUMENT.END) (FNS \TEDIT.LINEDELETE.FORWARD \TEDIT.LINEDELETE.BACKWARD) (FNS \TEDIT.KEY.NEST) + (FNS \TEDIT.KEY.WRAP) + (* ; "From TEDITDORADOKEYS") (INITVARS (TEDIT.NESTWIDTH 36)) (* ; "Find") (FNS \TEDIT.KEY.FIND \TEDIT.KEY.FIND.SEARCHSTRING \TEDIT.GET.TARGET.STRING) @@ -42,14 +45,16 @@ (VARS (TEDIT.FNKEY.VERBOSE T)) (COMS (* ; "Read-table Utilities") (GLOBALVARS TEDIT.READTABLE TEDIT.WORDBOUND.READTABLE) - (ALISTS (CHARACTERNAMES EMQUAD ENQUAD THINSPACE FIGURESPACE)) + (ALISTS (CHARACTERNAMES EMQUAD ENQUAD THINSPACE FIGURESPACE LEFT-DOUBLEQUOTE + RIGHT-DOUBLEQUOTE)) (FNS \TEDIT.READTABLE \TEDIT.WORDBOUND.READTABLE TEDIT.GETSYNTAX TEDIT.SETSYNTAX TEDIT.GETFUNCTION TEDIT.SETFUNCTION TEDIT.WORDGET TEDIT.WORDSET TEDIT.ATOMBOUND.READTABLE)) (* ; "Keybindings") (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (CONSTANTS \TEDIT.TTCCODES) (MACROS \TEDIT.TTC))) - (VARS TEDIT.CHARACTIONS TEDIT.CHARBINDINGS TEDIT.DORADO.CHARBINDINGS) + (VARS TEDIT.CHARACTIONS TEDIT.BASIC.CHARBINDINGS TEDIT.DORADO.CHARBINDINGS + (TEDIT.CHARBINDINGS (APPEND TEDIT.BASIC.CHARBINDINGS TEDIT.DORADO.CHARBINDINGS))) (* ; "Installation") [DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (TEDIT.READTABLE (\TEDIT.READTABLE)) (TEDIT.WORDBOUND.READTABLE (\TEDIT.WORDBOUND.READTABLE] @@ -62,8 +67,9 @@ (VARS TEDIT.BUTTONBITMAP))) (DEFINEQ -(CHARNAME - [LAMBDA (CODE OCTALCHARS) (* ; "Edited 26-Mar-2025 10:37 by rmk") +(CHARCODE.ENCODE + [LAMBDA (CODE OCTALCHARS NONCHARIDENTITY) (* ; "Edited 23-Apr-2025 19:08 by rmk") + (* ; "Edited 26-Mar-2025 10:37 by rmk") (* ; "Edited 23-Mar-2025 14:57 by rmk") (* ; "Edited 18-Mar-2025 20:55 by rmk") (* ; "Edited 6-Dec-2023 20:30 by rmk") @@ -75,23 +81,27 @@ (* ;; "If not OCTALCHARS, the character-name part is constructed from the name of its Ascii equivalent, modified by ^ or #. %"0,%" is suppressed in front of the names for character-set 0.") + (* ;; "If NONCHARIDENTITY, returns CODE if it isn't something that can be interpreted as a character code.") + (DECLARE (USEDFREE CHARACTERSETNAMES CHARACTERNAMES)) (* ;; "") (if (LISTP CODE) - then (CONS (CHARNAME (CAR CODE) - OCTALCHARS) + then (CONS (CHARCODE.ENCODE (CAR CODE) + OCTALCHARS NONCHARIDENTITY) (AND (CDR CODE) - (CHARNAME (CDR CODE) - OCTALCHARS))) + (CHARCODE.ENCODE (CDR CODE) + OCTALCHARS NONCHARIDENTITY))) elseif (CL:CHARACTERP CODE) - then (CHARNAME (CL:CHAR-CODE CODE) - OCTALCHARS) + then (CHARCODE.ENCODE (CL:CHAR-CODE CODE) + OCTALCHARS NONCHARIDENTITY) elseif (NULL CODE) then NIL elseif (NOT (CHARCODEP CODE)) - then (\ILLEGAL.ARG CODE) + then (CL:IF NONCHARIDENTITY + CODE + (\ILLEGAL.ARG CODE)) elseif [CAR (find CN in CHARACTERNAMES suchthat (if (CHARCODEP (CADR CN)) then (IEQP CODE (CADR CN)) else (IEQP CODE (CHARCODE.DECODE (CADR CN] @@ -138,7 +148,10 @@ (DEFINEQ (TEDIT.INSTALL.CHARBINDINGS - [LAMBDA (CHARBINDINGS RDTBL CHARACTIONS) (* ; "Edited 18-Mar-2025 11:15 by rmk") + [LAMBDA (CHARBINDINGS RDTBL CHARACTIONS) (* ; "Edited 7-Apr-2025 20:01 by rmk") + (* ; "Edited 5-Apr-2025 11:36 by rmk") + (* ; "Edited 1-Apr-2025 00:19 by rmk") + (* ; "Edited 18-Mar-2025 11:15 by rmk") (* ; "Edited 17-Mar-2025 09:34 by rmk") (* ; "Edited 15-Mar-2025 15:20 by rmk") (* ; "Edited 13-Mar-2025 23:25 by rmk") @@ -149,55 +162,60 @@ (* ;; "This will overwrite previous assignments in RDTBL, possibly add new ones. ") (CL:UNLESS CHARBINDINGS (SETQ CHARBINDINGS TEDIT.CHARBINDINGS)) - (SETQ RDTBL (if (NULL RDTBL) - then TEDIT.READTABLE - elseif (TEXTSTREAM RDTBL T) - then (OR (GETTOBJ (TEXTOBJ RDTBL) - TXTRTBL) - TEDIT.READTABLE) - elseif (type? READTABLEP RDTBL) - then RDTBL - else (\ILLEGAL.ARG RDTBL))) + (CL:UNLESS (LISTP CHARBINDINGS) + (\ILLEGAL.ARG CHARBINDINGS)) + (CL:UNLESS (READTABLEP RDTBL) + (SETQ RDTBL (if (NULL RDTBL) + then TEDIT.READTABLE + elseif (TEXTSTREAM RDTBL T) + then (OR (GETTOBJ (GETTSTR RDTBL TEXTOBJ) + TXTRTBL) + TEDIT.READTABLE) + else (\ILLEGAL.ARG RDTBL)))) (CL:UNLESS CHARACTIONS (SETQ CHARACTIONS TEDIT.CHARACTIONS)) - [for CB A ACTION in CHARBINDINGS when (LISTP CB) unless (EQ '* (CAR CB)) - when (AND [SETQ ACTION (find PAIR in CHARACTIONS suchthat + (TEDIT.CONFLICTING.CHARBINDINGS (APPEND CHARBINDINGS (TEDIT.GET.ALL.CHARBINDINGS RDTBL))) + [for CB A ACTION in CHARBINDINGS first (TEDIT.CONFLICTING.CHARBINDINGS (APPEND CHARBINDINGS + ( + TEDIT.GET.ALL.CHARBINDINGS + RDTBL))) + when (LISTP CB) unless (EQ '* (CAR CB)) when (AND [SETQ ACTION + (find PAIR in CHARACTIONS + suchthat - (* ;; - "An ASSOC that allows synonym keys") + (* ;; + "An ASSOC that allows synonym keys") - (EQMEMB (CAR CB) - (CAR PAIR] - (SETQ A (CADR ACTION))) do (for CHAR in (CDR CB) - do (CL:UNLESS (CHARCODEP CHAR) - (SETQ CHAR (CHARCODE.DECODE CHAR))) - (CL:WHEN (EQ (CAR ACTION) - 'CHARDELETE.FORWARD)) - (TEDIT.SETFUNCTION CHAR A RDTBL) + (EQMEMB (CAR CB) + (CAR PAIR] + (SETQ A (CADR ACTION))) + do (for CHAR in (CDR CB) do (CL:UNLESS (CHARCODEP CHAR) + (SETQ CHAR (CHARCODE.DECODE CHAR))) + (TEDIT.SETFUNCTION CHAR A RDTBL) (* ; "Set the method") - (CL:WHEN NIL - (ASSOC (CAR ACTION) - \TEDIT.TTCCODES) + (CL:WHEN NIL + (ASSOC (CAR ACTION) + \TEDIT.TTCCODES) (* ;  "A tag like NEXT, UNDO. Setup the termtable FWIW ") - (TEDIT.SETSYNTAX CHAR (CAR ACTION) - RDTBL))] + (TEDIT.SETSYNTAX CHAR (CAR ACTION) + RDTBL))] RDTBL]) (TEDIT.CLEAR.CHARBINDINGS - [LAMBDA (RDTBL BINDINGS) (* ; "Edited 18-Mar-2025 11:10 by rmk") + [LAMBDA (RDTBL BINDINGS) (* ; "Edited 5-Apr-2025 11:36 by rmk") + (* ; "Edited 18-Mar-2025 11:10 by rmk") (* ; "Edited 15-Mar-2025 12:02 by rmk") (* ;; "Removes the Tedit function bindings to the characters in BINDINGS, or all current bindings if BINDINGS is NIL") - (SETQ RDTBL (if (NULL RDTBL) - then TEDIT.READTABLE - elseif (TEXTSTREAM RDTBL T) - then (OR (GETTOBJ (TEXTOBJ RDTBL) - TXTRTBL) - TEDIT.READTABLE) - elseif (type? READTABLEP RDTBL) - then RDTBL - else (\ILLEGAL.ARG RDTBL))) + (CL:UNLESS (READTABLEP RDTBL) + (SETQ RDTBL (if (NULL RDTBL) + then TEDIT.READTABLE + elseif (TEXTSTREAM RDTBL T) + then (OR (GETTOBJ (GETTSTR RDTBL TEXTOBJ) + TXTRTBL) + TEDIT.READTABLE) + else (\ILLEGAL.ARG RDTBL)))) (CL:WHEN (fetch READMACRODEFS of RDTBL) [if (EQ BINDINGS T) then [MAPHASH (fetch READMACRODEFS of RDTBL) @@ -223,7 +241,8 @@ RDTBL))])]) (TEDIT.GET.CHARACTION - [LAMBDA (CHARCODE BINDINGS) (* ; "Edited 19-Mar-2025 14:51 by rmk") + [LAMBDA (CHARCODE BINDINGS) (* ; "Edited 5-Apr-2025 11:36 by rmk") + (* ; "Edited 19-Mar-2025 14:51 by rmk") (* ; "Edited 18-Mar-2025 11:07 by rmk") (* ; "Edited 17-Mar-2025 09:43 by rmk") @@ -249,7 +268,7 @@ then (OR (GETTOBJ (TEXTOBJ BINDINGS) TXTRTBL) TEDIT.READTABLE) - elseif (type? READTABLEP BINDINGS) + elseif (READTABLEP BINDINGS) else (\ILLEGAL.ARG BINDINGS] [MAPHASH (fetch READMACRODEFS of RDTBL) (FUNCTION (LAMBDA (VAL CCODE) @@ -264,7 +283,9 @@ NIL]) (TEDIT.GET.CHARBINDING - [LAMBDA (ACTION BINDINGS RETURNCODES) (* ; "Edited 18-Mar-2025 20:40 by rmk") + [LAMBDA (ACTION BINDINGS RETURNCODES) (* ; "Edited 23-Apr-2025 10:11 by rmk") + (* ; "Edited 5-Apr-2025 11:37 by rmk") + (* ; "Edited 18-Mar-2025 20:40 by rmk") (* ;; "Returns the bindings for ACTION in BINDINGS, a binding list or a read-table specification. If BINDINGS is a readtable, looks at all currently installed bindings in that readtable. If NIL, uses TEDIT.READTABLE.") @@ -280,7 +301,7 @@ then (OR (GETTOBJ (TEXTOBJ BINDINGS) TXTRTBL) TEDIT.READTABLE) - elseif (type? READTABLEP BINDINGS) + elseif (READTABLEP BINDINGS) else (\ILLEGAL.ARG BINDINGS))) [IMPL (CADR (find CA in TEDIT.CHARACTIONS suchthat (EQMEMB ACTION (CAR CA] CHARS) @@ -291,47 +312,25 @@ (* ; "charcode, not charname") (push CHARS (CL:IF RETURNCODES CCODE - (CHARNAME CCODE))))] + (CHARCODE.ENCODE CCODE))))] CHARS)]) (TEDIT.GET.ALL.CHARBINDINGS - [LAMBDA (RDTBL RETURNCODES) (* ; "Edited 18-Mar-2025 20:41 by rmk") - (SETQ RDTBL (if (NULL RDTBL) - then TEDIT.READTABLE - elseif (TEXTSTREAM RDTBL T) - then (OR (GETTOBJ (GETTSTR RDTBL TEXTOBJ) - TXTRTBL) - TEDIT.READTABLE) - elseif (type? READTABLEP RDTBL) - else (\ILLEGAL.ARG RDTBL))) - (LET (BINDINGS) - [MAPHASH (fetch READMACRODEFS of RDTBL) - (FUNCTION (LAMBDA (VAL CCODE) - (CL:WHEN (EQ (\TEDIT.TTC FUNCTIONCALL) - (\SYNCODE (fetch READSA of RDTBL) - CCODE)) - [for CA in TEDIT.CHARACTIONS when (LISTP CA) - unless (EQ '* (CAR CA)) when (EQUAL (CADR CA) - (CADR VAL)) - do (PUSH BINDINGS (LIST (CL:IF RETURNCODES - CCODE - (CHARNAME CCODE)) - (CAR (CL:IF (LISTP (CAR CA)) - (CAR CA) - CA)])] - (SORT BINDINGS T) - BINDINGS]) + [LAMBDA (RDTBL RETURNCODES) (* ; "Edited 23-Apr-2025 10:11 by rmk") + (* ; "Edited 7-Apr-2025 22:11 by rmk") + (* ; "Edited 5-Apr-2025 11:37 by rmk") + (* ; "Edited 18-Mar-2025 20:51 by rmk") -(TEDIT.GET.ALL.CHARACTIONS - [LAMBDA (RDTBL RETURNCODES) (* ; "Edited 18-Mar-2025 20:51 by rmk") - (SETQ RDTBL (if (NULL RDTBL) - then TEDIT.READTABLE - elseif (TEXTSTREAM RDTBL T) - then (OR (GETTOBJ (GETTSTR RDTBL TEXTOBJ) - TXTRTBL) - TEDIT.READTABLE) - elseif (type? READTABLEP RDTBL) - else (\ILLEGAL.ARG RDTBL))) + (* ;; "Returns the charbindings instantiated in RDTBL, in the form of TEDIT.CHARBINDINGS: (action . chars)") + + (CL:UNLESS (READTABLEP RDTBL) + (SETQ RDTBL (if (NULL RDTBL) + then TEDIT.READTABLE + elseif (TEXTSTREAM RDTBL T) + then (OR (GETTOBJ (GETTSTR RDTBL TEXTOBJ) + TXTRTBL) + TEDIT.READTABLE) + else (\ILLEGAL.ARG RDTBL)))) (LET (ACTIONS) [MAPHASH (fetch READMACRODEFS of RDTBL) (FUNCTION (LAMBDA (VAL CCODE) @@ -351,8 +350,84 @@ [for A S in ACTIONS do (SETQ S (SORT (CDR A))) (RPLACD A (CL:IF RETURNCODES S - (CHARNAME S))] + (CHARCODE.ENCODE S))] ACTIONS]) + +(TEDIT.CHARBINDINGS.INVERT + [LAMBDA (CHARBINDINGS RETURNCODES) (* ; "Edited 23-Apr-2025 10:11 by rmk") + (* ; "Edited 7-Apr-2025 22:39 by rmk") + (* ; "Edited 4-Apr-2025 09:58 by rmk") + (* ; "Edited 1-Apr-2025 15:09 by rmk") + + (* ;; "Inverts CHARBINDINGS to return a list of (char/code . actions), usually a single action unless there is a conflict.. ") + + (for CB ACTIONSPERCHAR CA in CHARBINDINGS when (CDR (LISTP CB)) unless (EQ '* (CAR CB)) + do [for CHAR CODE CACTIONS in (CDR CB) do (SETQ CODE (CHARCODE.DECODE CHAR)) + (SETQ CACTIONS (ASSOC CODE ACTIONSPERCHAR)) + (CL:UNLESS CACTIONS + (push ACTIONSPERCHAR (SETQ CACTIONS (CONS CODE)) + )) + (CL:UNLESS (MEMB (CAR CB) + (CDR CACTIONS)) + (push (CDR CACTIONS) + (CAR CB)))] + finally (SORT ACTIONSPERCHAR T) + (CL:UNLESS RETURNCODES + (for APC in ACTIONSPERCHAR do (change (CAR APC) + (CHARCODE.ENCODE DATUM)))) + (RETURN ACTIONSPERCHAR]) + +(TEDIT.GET.ALL.CHARACTIONS + [LAMBDA (RDTBL RETURNCODES) (* ; "Edited 23-Apr-2025 10:11 by rmk") + (* ; "Edited 5-Apr-2025 11:37 by rmk") + (* ; "Edited 18-Mar-2025 20:51 by rmk") + (CL:UNLESS (READTABLEP RDTBL) + (SETQ RDTBL (if (NULL RDTBL) + then TEDIT.READTABLE + elseif (TEXTSTREAM RDTBL T) + then (OR (GETTOBJ (GETTSTR RDTBL TEXTOBJ) + TXTRTBL) + TEDIT.READTABLE) + else (\ILLEGAL.ARG RDTBL)))) + (LET (ACTIONS) + [MAPHASH (fetch READMACRODEFS of RDTBL) + (FUNCTION (LAMBDA (VAL CCODE) + (CL:WHEN (EQ (\TEDIT.TTC FUNCTIONCALL) + (\SYNCODE (fetch READSA of RDTBL) + CCODE)) + (for CA ANAME in TEDIT.CHARACTIONS when (LISTP CA) + unless (EQ '* (CAR CA)) when (EQUAL (CADR CA) + (CADR VAL)) + do (SETQ ANAME (CAR (CL:IF (LISTP (CAR CA)) + (CAR CA) + CA))) + (PUSH [CDR (OR (ASSOC ANAME ACTIONS) + (CAR (PUSH ACTIONS (CONS ANAME] + CCODE)))] + (SORT ACTIONS T) + [for A S in ACTIONS do (SETQ S (SORT (CDR A))) + (RPLACD A (CL:IF RETURNCODES + S + (CHARCODE.ENCODE S))] + ACTIONS]) + +(TEDIT.CONFLICTING.CHARBINDINGS + [LAMBDA (CHARBINDINGS NOERROR) (* ; "Edited 7-Apr-2025 22:40 by rmk") + (* ; "Edited 4-Apr-2025 09:58 by rmk") + (* ; "Edited 1-Apr-2025 15:09 by rmk") + + (* ;; "Returns a list of the character names that bind to conflicting actions. Each element in the return is of the form") + + (* ;; " (CHARNAMES . ACTIONAMES) where CHARNAMES is a list of different synonyms for a given charcode, or a single code if they are all the same, and ACTIONNAMES are the names of the different actions assigned to those characters. ") + + (* ;; "where CHARNAME is the result of APPP") + + (for CA in (TEDIT.CHARBINDINGS.INVERT CHARBINDINGS) when (CDDR CA) collect + (* ; "Multiple actions") + CA + finally (CL:WHEN (AND $$VAL (NOT NOERROR)) (* ; + "RETURN from error break returns conflicts") + (ERROR "Conflicting key bindings" $$VAL))]) ) @@ -362,25 +437,27 @@ (DEFINEQ (\TEDIT.KEY.CHARLOOKS - [LAMBDA (TSTREAM PROP NEWVALUE) (* ; "Edited 15-Mar-2025 15:40 by rmk") + [LAMBDA (TSTREAM PROP NEWVALUE) (* ; "Edited 5-Apr-2025 17:26 by rmk") + (* ; "Edited 15-Mar-2025 15:40 by rmk") (* ; "Edited 13-Mar-2025 23:58 by rmk") (* ;; "Generic key action function for changing individual character looks. ") - (* ;; "Example actions:") - (* ;; " (BOLD-ON (\TEDIT.CHANGE.CHARLOOKS 'BOLD 'ON) ") (* ;; " (BOLD-OFF (\TEDIT.CHANGE.CHARLOOKS 'BOLD 'OFF") - (* ; "Bound in COMMAND.LOOP") - (CL:WHEN (EQ NEWVALUE 'TOGGLE) - (SETQ NEWVALUE (CL:IF (EQ 'ON) - (LISTGET (TEDIT.GET.LOOKS TSTREAM) - PROP) - 'OFF - 'ON))) - (\TEDIT.CHANGE.CHARLOOKS TSTREAM (LIST PROP NEWVALUE)) - (\TEDIT.SHOWCARETLOOKS TSTREAM]) + + (LET ((CURLOOKS (TEDIT.GET.LOOKS TSTREAM))) + (CL:WHEN (EQ NEWVALUE 'TOGGLE) + (SETQ NEWVALUE (CL:IF (EQ 'ON (LISTGET CURLOOKS PROP)) + 'OFF + 'ON))) + (if (EQ 0 (GETSEL (TEXTSEL (GETTSTR TSTREAM TEXTOBJ)) + DCH)) + then (* ; "Point selection") + (TEDIT.CARETLOOKS TSTREAM (LIST PROP NEWVALUE)) + else (\TEDIT.CHANGE.CHARLOOKS TSTREAM (LIST PROP NEWVALUE))) + (\TEDIT.SHOWCARETLOOKS TSTREAM]) (\TEDIT.KEY.QUAD [LAMBDA (TSTREAM REVERSE) (* ; "Edited 16-Mar-2025 00:03 by rmk") @@ -458,7 +535,8 @@ SEL]) (\TEDIT.KEY.TRANSFORM - [LAMBDA (TSTREAM CHARFN) (* ; "Edited 19-Mar-2025 14:57 by rmk") + [LAMBDA (TSTREAM CHARFN) (* ; "Edited 22-Apr-2025 00:07 by rmk") + (* ; "Edited 19-Mar-2025 14:57 by rmk") (* ; "Edited 16-Mar-2025 18:49 by rmk") (* ; "Edited 7-Jul-2024 09:04 by rmk") (* ; "Edited 15-Mar-2024 13:57 by rmk") @@ -469,17 +547,18 @@ (* ;; "This changes the :Replace THACTION to :Transform and adds CHARFN to the event, so that REDO can perform the action again. ") - (LET* ((TEXTOBJ (GETTSTR TSTREAM TEXTOBJ)) + (LET* ((TEXTOBJ (FTEXTOBJ TSTREAM)) (SEL (TEXTSEL TEXTOBJ))) (CL:WHEN (IGREATERP (TEXTLEN TEXTOBJ) 0) (\TEDIT.REPLACE.SELPIECES (\TEDIT.SELPIECES.CHARTRANSFORM (\TEDIT.SELPIECES.COPY (\TEDIT.SELPIECES SEL NIL - TEXTOBJ)) - CHARFN NIL TEXTOBJ) - TEXTOBJ SEL) - (\TEDIT.RESET.EXTEND.PENDING.DELETE TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ) + TEXTOBJ) + NIL TSTREAM) + CHARFN NIL TSTREAM) + TSTREAM SEL) + (\TEDIT.RESET.EXTEND.PENDING.DELETE TSTREAM) + (\TEDIT.SHOWSEL SEL T TSTREAM) (CL:UNLESS (FGETTOBJ TEXTOBJ TXTHISTORYINACTIVE) (SETTH (\TEDIT.LASTEVENT TEXTOBJ) THACTION :Transform) @@ -535,7 +614,9 @@ (DEFINEQ (\TEDIT.SHOWCARETLOOKS - [LAMBDA (TSTREAM) (* ; "Edited 27-Mar-2025 08:04 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 23-Apr-2025 10:20 by rmk") + (* ; "Edited 15-Apr-2025 16:44 by rmk") + (* ; "Edited 27-Mar-2025 08:04 by rmk") (* ; "Edited 15-Mar-2025 20:40 by rmk") (* ; "Edited 13-Mar-2025 23:52 by rmk") (* ; "Edited 5-Mar-2025 14:55 by rmk") @@ -543,7 +624,7 @@ (* ; "Edited 30-May-91 21:09 by jds") (LET ((LOOKS (FGETTOBJ (TEXTOBJ TSTREAM) CARETLOOKS))) - (TEDIT.PROMPTPRINT TSTREAM (CONCAT (\TEDIT.DESCRIBEFONT (GETCLOOKS LOOKS CLFONT)) + (TEDIT.PROMPTPRINT TSTREAM [CONCAT (\TEDIT.DESCRIBEFONT (GETCLOOKS LOOKS CLFONT)) (CL:IF (AND (GETCLOOKS LOOKS CLOFFSET) (NEQ (GETCLOOKS LOOKS CLOFFSET) 0)) @@ -560,7 +641,11 @@ "") (CL:IF (GETCLOOKS LOOKS CLUNBREAKABLE) " unbreakable" - "")) + "") + (CL:IF (EQ 'BLACK (GETCLOOKS LOOKS CLCOLOR)) + "" + (CONCAT " color " (L-CASE (GETCLOOKS LOOKS CLCOLOR)))) + ] T]) (\TEDIT.DESCRIBEFONT @@ -592,7 +677,8 @@ (DEFINEQ (\TEDIT.ONECHAR.BACKWARD - [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 17-Feb-2025 09:12 by rmk") + [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 6-Apr-2025 14:46 by rmk") + (* ; "Edited 17-Feb-2025 09:12 by rmk") (* ; "Edited 24-Jan-2025 15:25 by rmk") (* ; "Edited 21-Nov-2024 20:31 by rmk") (* ; "Edited 1-Sep-2024 10:39 by rmk") @@ -606,15 +692,14 @@ TEXTOBJ))) (IMAGEOBJPROP OBJ 'FIELDPREFIX] (FSETTOBJ TEXTOBJ LASTARROWX NIL) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) - (\TEDIT.UPDATE.SEL SEL (SUB1 PT) + (\TEDIT.NOSEL TSTREAM) + (\TEDIT.UPDATE.SEL TSTREAM (SUB1 PT) 0 - 'LEFT) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ))]) + 'LEFT))]) (\TEDIT.ONECHAR.FORWARD - [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 17-Feb-2025 09:11 by rmk") + [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 6-Apr-2025 14:40 by rmk") + (* ; "Edited 17-Feb-2025 09:11 by rmk") (* ; "Edited 15-Feb-2025 08:50 by rmk") (* ; "Edited 24-Jan-2025 15:27 by rmk") (* ; "Edited 21-Nov-2024 20:31 by rmk") @@ -631,10 +716,8 @@ (SETQ OBJ (POBJ (\TEDIT.CHTOPC PT TEXTOBJ))) (IMAGEOBJPROP OBJ 'FIELDSUFFIX] (FSETTOBJ TEXTOBJ LASTARROWX NIL) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) - (\TEDIT.UPDATE.SEL SEL PT 0 'RIGHT) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ))]) + (\TEDIT.NOSEL TSTREAM) + (\TEDIT.UPDATE.SEL TSTREAM PT 0 'RIGHT))]) (\TEDIT.ONELINE.UP [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 13-Feb-2025 22:04 by rmk") @@ -702,7 +785,9 @@ TSTREAM))]) (\TEDIT.ONELINE.MOVE - [LAMBDA (SEL CHNO TSTREAM) (* ; "Edited 16-Feb-2025 16:20 by rmk") + [LAMBDA (SEL CHNO TSTREAM) (* ; "Edited 25-May-2025 23:25 by rmk") + (* ; "Edited 6-Apr-2025 11:04 by rmk") + (* ; "Edited 16-Feb-2025 16:20 by rmk") (* ; "Edited 14-Feb-2025 09:49 by rmk") (* ;; @@ -721,24 +806,23 @@ (RIGHT (FGETSEL SEL XLIM)) NIL] incharslots (FGETTOBJ TEXTOBJ THISLINE) - when CHAR do (add TARGX CHARW) - (CL:WHEN (IGEQ TARGX X) - (CL:WHEN (IGEQ X (IDIFFERENCE TARGX (FOLDLO CHARW 2))) + do (add TARGX CHARW) + (CL:WHEN (IGEQ TARGX X) + (CL:WHEN (IGEQ X (IDIFFERENCE TARGX (FOLDLO CHARW 2))) (* ;  "To RIGHT of target char if more than half way") - (add CHNO 1)) - (RETURN)) - (add CHNO 1) finally (* ; + (add CHNO 1)) + (RETURN)) + (add CHNO 1) finally (* ;  "TARGETLINE must have been shorter than X") - (SETQ CHNO (FGETLD TARGETLINE LCHARLAST))) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) - (\TEDIT.UPDATE.SEL SEL CHNO 0 'LEFT) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ) + (SETQ CHNO (FGETLD TARGETLINE LCHARLAST))) + (\TEDIT.SHOWSEL SEL NIL TSTREAM) + (\TEDIT.UPDATE.SEL TSTREAM CHNO 0 'LEFT) (\TEDIT.SCROLL.CARET TSTREAM))]) (\TEDIT.ONEWORD.BACKWARD - [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 19-Mar-2025 13:47 by rmk") + [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 6-Apr-2025 11:03 by rmk") + (* ; "Edited 19-Mar-2025 13:47 by rmk") (* ; "Edited 5-Mar-2025 17:37 by rmk") (* gbn "20-Mar-85 00:49") @@ -751,14 +835,13 @@  "End of word, maybe after whitespace") (SETQ LAST (IMIN HERE (\TEDIT.WORD.LAST TSTREAM FIRST))) (* ; "In case we started in white space") - (\TEDIT.UPDATE.SEL SEL FIRST (ADD1 (IDIFFERENCE LAST FIRST)) + (\TEDIT.UPDATE.SEL TSTREAM FIRST (ADD1 (IDIFFERENCE LAST FIRST)) 'LEFT) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ) (TEDIT.NORMALIZECARET TEXTOBJ]) (\TEDIT.ONEWORD.FORWARD - [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 19-Mar-2025 13:47 by rmk") + [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 6-Apr-2025 10:59 by rmk") + (* ; "Edited 19-Mar-2025 13:47 by rmk") (* ; "Edited 5-Mar-2025 17:33 by rmk") (* gbn "20-Mar-85 00:48") @@ -771,14 +854,13 @@  "End of word, maybe after whitespace") (SETQ FIRST (IMAX HERE (\TEDIT.WORD.FIRST TSTREAM LAST))) (* ; "In case we started in white space") - (\TEDIT.UPDATE.SEL SEL FIRST (ADD1 (IDIFFERENCE LAST FIRST)) + (\TEDIT.UPDATE.SEL TSTREAM FIRST (ADD1 (IDIFFERENCE LAST FIRST)) 'RIGHT) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ) (TEDIT.NORMALIZECARET TEXTOBJ]) (\TEDIT.LINE.BEGIN - [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 19-Mar-2025 13:16 by rmk") + [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 6-Apr-2025 10:58 by rmk") + (* ; "Edited 19-Mar-2025 13:16 by rmk") (* ; "Edited 15-Mar-2025 22:55 by rmk") (* ; "Edited 9-Mar-2025 19:50 by rmk") (* ; "Edited 5-Mar-2025 00:05 by rmk") @@ -790,14 +872,13 @@ TEXTOBJ))) (CL:WHEN L1 (\TEDIT.RESET.EXTEND.PENDING.DELETE TEXTOBJ) - (\TEDIT.UPDATE.SEL SEL (FGETLD L1 LCHAR1) + (\TEDIT.UPDATE.SEL TSTREAM (FGETLD L1 LCHAR1) 0 - 'LEFT) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ))]) + 'LEFT))]) (\TEDIT.LINE.END - [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 19-Mar-2025 13:16 by rmk") + [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 6-Apr-2025 10:59 by rmk") + (* ; "Edited 19-Mar-2025 13:16 by rmk") (* ; "Edited 15-Mar-2025 22:54 by rmk") (* ; "Edited 9-Mar-2025 19:49 by rmk") (* ; "Edited 5-Mar-2025 14:07 by rmk") @@ -811,13 +892,11 @@ (* ;; "Put the caret in front of the terminating EOL so it stays on LN.") - (\TEDIT.UPDATE.SEL SEL (FGETLD LN LCHARLAST) + (\TEDIT.UPDATE.SEL TSTREAM (FGETLD LN LCHARLAST) 0 (CL:IF (FGETLD LN FORCED-END) 'LEFT - 'RIGHT)) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ))]) + 'RIGHT)))]) (\TEDIT.DOCUMENT.BEGIN [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 15-Mar-2025 23:08 by rmk") @@ -845,7 +924,8 @@ (DEFINEQ (\TEDIT.LINEDELETE.FORWARD - [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 15-Mar-2025 23:02 by rmk") + [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 6-Apr-2025 14:41 by rmk") + (* ; "Edited 15-Mar-2025 23:02 by rmk") (* ; "Edited 9-Mar-2025 22:11 by rmk") (* ; "Edited 4-Mar-2025 17:22 by rmk") (* gbn "13-Dec-84 11:56") @@ -856,13 +936,14 @@ HERE) (CL:WHEN LINE (SETQ HERE (TEDIT.GETPOINT TSTREAM)) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) + (\TEDIT.NOSEL TSTREAM) (\TEDIT.UPDATE.SEL SEL HERE (IDIFFERENCE (FGETLD LINE LCHARLIM) HERE)) - (TEDIT.DELETE TEXTOBJ SEL))]) + (TEDIT.DELETE TSTREAM SEL))]) (\TEDIT.LINEDELETE.BACKWARD - [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 15-Mar-2025 23:02 by rmk") + [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 6-Apr-2025 14:41 by rmk") + (* ; "Edited 15-Mar-2025 23:02 by rmk") (* ; "Edited 9-Mar-2025 22:11 by rmk") (* ; "Edited 4-Mar-2025 17:22 by rmk") (* gbn "13-Dec-84 11:56") @@ -874,7 +955,7 @@ HERE) (CL:WHEN LINE (SETQ HERE (TEDIT.GETPOINT TSTREAM)) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) + (\TEDIT.NOSEL TSTREAM) (\TEDIT.UPDATE.SEL SEL HERE (IDIFFERENCE (FGETLD LINE LCHAR1) HERE)) (TEDIT.DELETE TEXTOBJ SEL))]) @@ -882,7 +963,10 @@ (DEFINEQ (\TEDIT.KEY.NEST - [LAMBDA (TSTREAM OUTFLAG) (* ; "Edited 16-Mar-2025 13:06 by rmk") + [LAMBDA (TSTREAM OUTFLAG) (* ; "Edited 21-Apr-2025 20:18 by rmk") + (* ; "Edited 6-Apr-2025 14:42 by rmk") + (* ; "Edited 5-Apr-2025 13:16 by rmk") + (* ; "Edited 16-Mar-2025 13:06 by rmk") (* ; "Edited 7-Mar-2025 22:18 by rmk") (* ;; "This moves the left margin of each selected paragraph in TEDITKEY.NESTWIDTH points. It has to go paragraph by paragraph because the paragraphs may have different margins to begin with.") @@ -894,7 +978,7 @@ (TARGETSEL _ (\TEDIT.COPYSEL SEL)) in (\TEDIT.PARACHNOS SEL NIL TEXTOBJ) first (CL:WHEN OUTFLAG (SETQ DELTA (IMINUS DELTA))) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) + (\TEDIT.NOSEL TSTREAM) (FSETSEL SEL SET NIL) do (SETQ LOOKS (TEDIT.GET.PARALOOKS TSTREAM CHNO)) (LISTPUT LOOKS 'LEFTMARGIN (IPLUS (LISTGET LOOKS 'LEFTMARGIN) @@ -909,10 +993,41 @@ (\TEDIT.UPDATE.SEL TARGETSEL CHNO 1) (\TEDIT.CHANGE.PARALOOKS TSTREAM LOOKS TARGETSEL) finally (FSETSEL SEL SET T) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ) + (\TEDIT.SHOWSEL SEL T TSTREAM) (TEDIT.PROMPTCLEAR TSTREAM]) ) +(DEFINEQ + +(\TEDIT.KEY.WRAP + [LAMBDA (TSTREAM LEFT RIGHT) (* ; "Edited 4-Apr-2025 11:12 by rmk") + (LET* ((TEXTOBJ (GETTSTR TSTREAM TEXTOBJ)) + (SEL (TEXTSEL TEXTOBJ)) + (CH# (FGETSEL SEL CH#)) + (DCH (FGETSEL SEL DCH)) + (POINT (FGETSEL SEL POINT)) + UNDOEVENT) + + (* ;; "The wrap event includes the 2 insert-events and the original selection, undo just undoes them all. But it als has the LEFT and RIGHT so that Redo knows what to do.") + + (TEDIT.INSERT TSTREAM RIGHT (FGETSEL SEL CHLIM) + (\TEDIT.NTHCHARLOOKS TSTREAM (FGETSEL SEL CHLAST))) + (TEDIT.INSERT TSTREAM LEFT CH#) + (TEDIT.SETSEL TSTREAM CH# (IPLUS (NCHARS LEFT) + DCH + (NCHARS RIGHT)) + POINT) + (\TEDIT.HISTORYADD.COMPOSITE TEXTOBJ (LIST (\TEDIT.POPEVENT TEXTOBJ) + (\TEDIT.POPEVENT TEXTOBJ) + (\TEDIT.HISTORY.EVENT TEXTOBJ :Sel CH# DCH POINT + )) + :Wrap + (LIST LEFT RIGHT]) +) + + + +(* ; "From TEDITDORADOKEYS") + (RPAQ? TEDIT.NESTWIDTH 36) @@ -923,7 +1038,9 @@ (DEFINEQ (\TEDIT.KEY.FIND - [LAMBDA (TSTREAM AGAIN BACKWARD SEARCHSTRING) (* ; "Edited 19-Mar-2025 11:20 by rmk") + [LAMBDA (TSTREAM AGAIN BACKWARD SEARCHSTRING) (* ; "Edited 21-Apr-2025 13:58 by rmk") + (* ; "Edited 6-Apr-2025 14:42 by rmk") + (* ; "Edited 19-Mar-2025 11:20 by rmk") (* ; "Edited 16-Mar-2025 21:42 by rmk") (* ; "Edited 11-Mar-2025 15:09 by rmk") (* ; "Edited 26-Nov-2024 23:47 by rmk") @@ -947,52 +1064,49 @@ (SETQ TSTREAM (TEXTSTREAM TSTREAM)) (RESETLST - (LET ((TEXTOBJ (TEXTOBJ TSTREAM)) - (SEL (TEXTSEL TEXTOBJ)) - CH) - [RESETSAVE (\TEDIT.MARKACTIVE TEXTOBJ "Find") - '(PROGN (\TEDIT.MARKINACTIVE OLDVALUE] - (CL:UNLESS SEARCHSTRING - (SETQ SEARCHSTRING (\TEDIT.KEY.FIND.SEARCHSTRING TEXTOBJ AGAIN BACKWARD))) - (CL:WHEN (AND SEARCHSTRING (IGEQ (NCHARS SEARCHSTRING) - 1)) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) - (SETQ CH (if BACKWARD - then (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "Searching backward for %"" - SEARCHSTRING "%"") - T) - (\TEDIT.FIND.BACKWARD TSTREAM (MKSTRING SEARCHSTRING) - T) - else (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "Searching for %"" SEARCHSTRING - "%"") - T) - (\TEDIT.FIND TSTREAM (MKSTRING SEARCHSTRING) - T))) - (if CH - then (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "%"" SEARCHSTRING "%" found") - T) (* ; "We found the target text.") - (\TEDIT.RESET.EXTEND.PENDING.DELETE TEXTOBJ) + [LET* ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (SEL (TEXTSEL TEXTOBJ)) + CH) + [RESETSAVE (\TEDIT.MARKACTIVE TEXTOBJ "Find") + '(PROGN (\TEDIT.MARKINACTIVE OLDVALUE] + (CL:UNLESS SEARCHSTRING + (SETQ SEARCHSTRING (\TEDIT.KEY.FIND.SEARCHSTRING TEXTOBJ AGAIN BACKWARD))) + (CL:WHEN (AND SEARCHSTRING (IGEQ (NCHARS SEARCHSTRING) + 1)) + (\TEDIT.NOSEL TSTREAM) + (SETQ CH (if BACKWARD + then (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Searching backward for %"" + SEARCHSTRING "%"") + T) + (\TEDIT.FIND.BACKWARD TSTREAM (MKSTRING SEARCHSTRING) + T) + else (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Searching for %"" SEARCHSTRING + "%"") + T) + (\TEDIT.FIND TSTREAM (MKSTRING SEARCHSTRING) + T))) + (if CH + then (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "%"" SEARCHSTRING "%" found") + T) (* ; "We found the target text.") + (\TEDIT.RESET.EXTEND.PENDING.DELETE TSTREAM) (* ;  "Set up SELECTION to be the found text") - (\TEDIT.UPDATE.SEL SEL (CAR CH) - (CADR CH) - (CL:IF BACKWARD - 'LEFT - 'RIGHT) - (CL:IF (FGETTOBJ TEXTOBJ TXTREADONLY) - 'PENDINGDEL - 'NORMAL)) - (SETSEL SEL SELKIND (CL:IF (IGREATERP (CADR CH) - 1) - 'WORD - 'CHAR)) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ) - (FSETTOBJ TEXTOBJ CARETLOOKS (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ SEL)) - (TEDIT.NORMALIZECARET TEXTOBJ) - else (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "%"" SEARCHSTRING "%" not found") - T)) - (\TEDIT.SHOWSEL SEL T TEXTOBJ))))]) + (SETSEL SEL SELKIND (CL:IF (IGREATERP (CADR CH) + 1) + 'WORD + 'CHAR)) + (\TEDIT.UPDATE.SEL TSTREAM (CAR CH) + (CADR CH) + (CL:IF BACKWARD + 'LEFT + 'RIGHT) + (CL:IF (FGETTOBJ TEXTOBJ TXTREADONLY) + 'PENDINGDEL + 'NORMAL)) + (FSETTOBJ TEXTOBJ CARETLOOKS (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ SEL)) + (TEDIT.NORMALIZECARET TSTREAM) + else (TEDIT.PROMPTPRINT TSTREAM (CONCAT "%"" SEARCHSTRING "%" not found") + T)))])]) (\TEDIT.KEY.FIND.SEARCHSTRING [LAMBDA (TEXTOBJ AGAIN BACKWARD) (* ; "Edited 22-Jun-2024 10:17 by rmk") @@ -1218,7 +1332,9 @@ (ADDTOVAR CHARACTERNAMES (EMQUAD "357,55") (ENQUAD "357,54") (THINSPACE "357,57") - (FIGURESPACE "357,56")) + (FIGURESPACE "357,56") + (LEFT-DOUBLEQUOTE "0,252") + (RIGHT-DOUBLEQUOTE "0,272")) (DEFINEQ (\TEDIT.READTABLE @@ -1274,40 +1390,24 @@ RTBL]) (TEDIT.GETSYNTAX - [LAMBDA (CH TABLE) (* ; "Edited 12-Mar-2025 12:55 by rmk") + [LAMBDA (CH TABLE) (* ; "Edited 29-May-2025 16:20 by rmk") + (* ; "Edited 12-Mar-2025 12:55 by rmk") (* ; "Edited 24-Dec-2023 09:47 by rmk") (* ; "Edited 31-Mar-87 10:01 by jds") (* ;; "Find TEdit's interpretation of a given character") - (SELECTC (\SYNCODE (fetch READSA of (if (NULL TABLE) - then TEDIT.READTABLE - elseif (TEXTSTREAM TABLE T) - then (OR (GETTOBJ (TEXTOBJ TABLE) - TXTRTBL) - TEDIT.READTABLE) - else TABLE)) - (CL:IF (OR (LITATOM CH) - (STRINGP CH)) - (CHARCODE.DECODE CH) - CH)) - (WORDDELETE.TTC - 'WORDDELETE) - (WORDDELETE.FORWARD.TTC - 'WORDDELETE.FORWARD) - (CHARDELETE.TTC - 'CHARDELETE) - (CHARDELETE.FORWARD.TTC - 'CHARDELETE.FORWARD) - (DELETE.TTC 'DELETE) - (UNDO.TTC 'UNDO) - (REDO.TTC 'REDO) - (FUNCTIONCALL.TTC - 'FN) - (CMD.TTC 'CMD) - (NEXT.TTC 'NEXT) - (EXPAND.TTC 'EXPAND) - NIL]) + (CAR (find TTC (SYNCODE _ (\SYNCODE (fetch READSA of (if (NULL TABLE) + then TEDIT.READTABLE + elseif (TEXTSTREAM TABLE T) + then (OR (GETTOBJ (TEXTOBJ TABLE) + TXTRTBL) + TEDIT.READTABLE) + else TABLE)) + (CL:IF (OR (LITATOM CH) + (STRINGP CH)) + (CHARCODE.DECODE CH) + CH))) in \TEDIT.TTCCODES suchthat (EQ SYNCODE (CADR TTC]) (TEDIT.SETSYNTAX [LAMBDA (CHAR CLASS RDTBL) (* ; "Edited 13-Mar-2025 21:52 by rmk") @@ -1333,7 +1433,8 @@ (\TEDIT.TTC NONE))))]) (TEDIT.GETFUNCTION - [LAMBDA (CHARCODE RDTBL) (* ; "Edited 13-Mar-2025 22:56 by rmk") + [LAMBDA (CHARCODE RDTBL) (* ; "Edited 5-Apr-2025 11:37 by rmk") + (* ; "Edited 13-Mar-2025 22:56 by rmk") (* ; "Edited 7-Mar-2025 12:02 by rmk") (* jds "19-Sep-85 17:06") @@ -1348,7 +1449,7 @@ TXTRTBL) TEDIT.READTABLE) else RDTBL)) - (CL:WHEN (AND RDTBL (type? READTABLEP RDTBL) + (CL:WHEN (AND (READTABLEP RDTBL) (EQ (\TEDIT.TTC FUNCTIONCALL) (\SYNCODE (fetch READSA of RDTBL) CHARCODE)) @@ -1410,7 +1511,8 @@ (\TEDIT.TTC TEXT]) (TEDIT.ATOMBOUND.READTABLE - [LAMBDA (READTABLE) (* ; "Edited 14-Mar-2025 18:13 by rmk") + [LAMBDA (READTABLE) (* ; "Edited 5-Apr-2025 11:47 by rmk") + (* ; "Edited 14-Mar-2025 18:13 by rmk") (* ; "Edited 25-Dec-2023 13:10 by rmk") (* ; "Edited 5-Dec-2023 23:47 by rmk") @@ -1418,12 +1520,11 @@ (* ;; "Could cache this for common readtables (interlisp, commonlisp)") + (CL:UNLESS READTABLE (SETQ READTABLE *READTABLE*)) (LET ((TABLE (\TEDIT.WORDBOUND.READTABLE))) (* ;  "\TEDIT.WORDBOUND.READTABLE creates a new one each time.") - (for CODE IN (GETSYNTAX 'OTHER (OR READTABLE *READTABLE*)) do (TEDIT.WORDSET CODE - 'TEXT TABLE)) - (for CODE IN (GETSYNTAX 'BREAK (OR READTABLE *READTABLE*)) do (TEDIT.WORDSET CODE - 'PUNCT TABLE)) + (for CODE IN (GETSYNTAX 'OTHER READTABLE) do (TEDIT.WORDSET CODE 'TEXT TABLE)) + (for CODE IN (GETSYNTAX 'BREAK READTABLE) do (TEDIT.WORDSET CODE 'PUNCT TABLE)) (TEDIT.WORDSET (CHARCODE %:) 'TEXT TABLE) TABLE]) @@ -1467,7 +1568,8 @@ ) (RPAQQ TEDIT.CHARACTIONS - ( + ((TEDIT-PF PF-TEDIT-FROM-TEXT) + (* ;; "This defines the implementation of the named actions. They are activated by keybinding specifications given to TEDIT.INSTALL.KEYBINDINGS.") @@ -1584,6 +1686,16 @@ (* ;; "") + (* ;; "From TEDITDORADOKEYS") + + (WRAP.PARENS (\TEDIT.KEY.WRAP TSTREAM "(" ")")) + (WRAP.NEUTRAL.DOUBLEQUOTES (\TEDIT.KEY.WRAP TSTREAM "%"" "%"")) + [WRAP.REAL.DOUBLEQUOTES (\TEDIT.KEY.WRAP TSTREAM (CHARACTER (CHARCODE LEFT-DOUBLEQUOTE)) + (CHARACTER (CHARCODE RIGHT-DOUBLEQUOTE] + + (* ;; "") + + (* ;; "Clipboard") (CLIPBOARD-PASTE PASTEFROMCLIPBOARD) @@ -1600,7 +1712,7 @@ (WHEELSCROLL-LEFT (WHEELSCROLL 'HORIZONTAL)) (WHEELSCROLL-RIGHT (WHEELSCROLL 'HORIZONTAL T)))) -(RPAQQ TEDIT.CHARBINDINGS +(RPAQQ TEDIT.BASIC.CHARBINDINGS ( (* ;; "Establishes key bindings for particular Tedit key actions. Function,xxx roughly correspond to Koto release notes, but this preserves the immediately preceding assignments if those drifted away from the Koto notes. There is no obvious way of typing Function. Maybe Meta,^xxx instead, as in DORADO.KEYBINDINGS. (But CTRL collapses upper and lower case).") @@ -1728,24 +1840,48 @@ (RPAQQ TEDIT.DORADO.CHARBINDINGS ( - (* ;; "Taken from lispusers>TKDORADO, these make the indicatedd Tedit commands available from the Dorado keyboard.") + (* ;; "Taken from lispusers>TKDORADO, these make the indicated Tedit commands available from the Dorado keyboard.") (DEFAULTS "Meta,^V") - (BOLD.ON "Meta,^B") - (BOLD.OFF "Meta,^N") + (BOLD.ON "Meta,^B" "Meta,b") + (BOLD.OFF "Meta,^N" "Meta,B") (ITALIC.ON "Meta,^I") (ITALIC.OFF "Meta,^O") (OVERLINE.ON "Meta,^D") (OVERLINE.OFF "Meta,^F") (STRIKEOUT.ON "Meta,^G") (STRIKEOUT.OFF "Meta,^H") - (UNDERLINE.ON "Meta,^J") + (* (UNDERLINE.ON "Meta,^J") + conflicts with LINE.DOWN) (UNDERLINE.OFF "Meta,^K") (SMALLER "Meta,^[") (LARGER "Meta,^^]") (SUBSCRIPT "Meta,^^") (SUPERSCRIPT "Meta,^_") - (QUAD "Meta,^C"))) + (QUAD "Meta,^C") + + (* ;; "Mappings from lispusers>TEDITDORADOKEYS") + + (* ("Meta,c" QUAD) + ("Meta,C" QUAD) + ("Meta,x" EXPAND) + ("Meta,X" EXPAND) + conflict with clipboard) + (* ("Meta,^" SUBSCRIPT) + conflicts with LINE.UP) + (BOLD.ON "Meta,b") + (BOLD.OFF "Meta,B") + (ITALIC.ON "Meta,i") + (ITALIC.OFF "Meta,I") + (STRIKEOUT.ON "Meta,=") + (STRIKEOUT.OFF "Meta,+") + (UNDERLINE.ON "Meta,-") + (UNDERLINE.OFF "Meta,_") + (WRAP.PARENS "Meta,(" "Meta,Nine") + (WRAP.NEUTRAL.DOUBLEQUOTES "Meta,%"") + (WRAP.REAL.DOUBLEQUOTES "Meta,'"))) + +(RPAQ TEDIT.CHARBINDINGS (APPEND TEDIT.BASIC.CHARBINDINGS TEDIT.DORADO.CHARBINDINGS)) @@ -1880,27 +2016,30 @@ (RPAQQ TEDIT.BUTTONBITMAP #*(78 48)OOOOOOOOOOOOOOOOOOOLON@@@@@@@@@@@@@@@AOLO@@@@@@@@@@@@@@@@@CLO@@@@@@@@@@@@@@@@@CLMH@@@@@@@@@@@@@@@@DLNLGOOOOOOOOOOOOOOHHLMFL@@@@@@@@@@@@@@M@LJK@@@@@@@@@@@@@@@B@DMF@@@@@@@@@@@@@@@A@DJN@@@@@@@@@@@@@@@AHDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMF@@@@@@@@@@@@@@@AHDJJ@@@@@@@@@@@@@@@A@DMG@@@@@@@@@@@@@@@B@DNEL@@@@@@@@@@@@@@O@LLIGOOOOOOOOOOOOOOMHLOBBJJJJJJJJJJJJJJJLLNDEEEEEEEEEEEEEEEEGLOHJJJJJJJJJJJJJJJJKLOLEEEEEEEEEEEEEEEEOLOOOOOOOOOOOOOOOOOOOL ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3704 7717 (CHARNAME 3714 . 7715)) (7773 21650 (TEDIT.INSTALL.CHARBINDINGS 7783 . 10966) - (TEDIT.CLEAR.CHARBINDINGS 10968 . 13559) (TEDIT.GET.CHARACTION 13561 . 16208) (TEDIT.GET.CHARBINDING -16210 . 18134) (TEDIT.GET.ALL.CHARBINDINGS 18136 . 19790) (TEDIT.GET.ALL.CHARACTIONS 19792 . 21648)) ( -21710 31328 (\TEDIT.KEY.CHARLOOKS 21720 . 22662) (\TEDIT.KEY.QUAD 22664 . 24757) (\TEDIT.DEFAULTSSEL -24759 . 25370) (\TEDIT.SETDEFAULT.FROM.SEL 25372 . 26049) (\TEDIT.KEY.SIZE 26051 . 27247) ( -\TEDIT.SUBSCRIPTSEL 27249 . 27452) (\TEDIT.SUPERSCRIPTSEL 27454 . 27658) (\TEDIT.KEY.TRANSFORM 27660 - . 29470) (\TEDIT.KEY.OPENLINE 29472 . 29926) (\TEDIT.KEY.FAMILYN 29928 . 31326)) (31329 31618 ( -CAP-CASECODE 31339 . 31616)) (31652 34582 (\TEDIT.SHOWCARETLOOKS 31662 . 33675) (\TEDIT.DESCRIBEFONT -33677 . 34580)) (34613 49349 (\TEDIT.ONECHAR.BACKWARD 34623 . 35752) (\TEDIT.ONECHAR.FORWARD 35754 . -36972) (\TEDIT.ONELINE.UP 36974 . 39935) (\TEDIT.ONELINE.DOWN 39937 . 41594) (\TEDIT.ONELINE.MOVE -41596 . 43810) (\TEDIT.ONEWORD.BACKWARD 43812 . 44964) (\TEDIT.ONEWORD.FORWARD 44966 . 46117) ( -\TEDIT.LINE.BEGIN 46119 . 47170) (\TEDIT.LINE.END 47172 . 48381) (\TEDIT.DOCUMENT.BEGIN 48383 . 48742) - (\TEDIT.DOCUMENT.END 48744 . 49347)) (49350 51194 (\TEDIT.LINEDELETE.FORWARD 49360 . 50260) ( -\TEDIT.LINEDELETE.BACKWARD 50262 . 51192)) (51195 53453 (\TEDIT.KEY.NEST 51205 . 53451)) (53507 61462 -(\TEDIT.KEY.FIND 53517 . 58602) (\TEDIT.KEY.FIND.SEARCHSTRING 58604 . 59744) (\TEDIT.GET.TARGET.STRING - 59746 . 61460)) (61493 64125 (\TEDIT.KEY.SUBSTITUTE 61503 . 61724) (\TEDIT.MANPAGE 61726 . 62973) ( -\TEDIT.CALL.ED 62975 . 63805) (\TEDIT.SELECT.ALL 63807 . 64123)) (64152 69842 (\TEDIT.CLIPBOARD 64162 - . 65917) (\TEDIT.COPYTOCLIPBOARD 65919 . 66699) (\TEDIT.EXTRACTTOCLIPBOARD 66701 . 66896) ( -\TEDIT.WRITE.SEL 66898 . 69840)) (70194 81909 (\TEDIT.READTABLE 70204 . 71140) ( -\TEDIT.WORDBOUND.READTABLE 71142 . 73771) (TEDIT.GETSYNTAX 73773 . 75292) (TEDIT.SETSYNTAX 75294 . -76499) (TEDIT.GETFUNCTION 76501 . 77673) (TEDIT.SETFUNCTION 77675 . 79661) (TEDIT.WORDGET 79663 . -79924) (TEDIT.WORDSET 79926 . 80557) (TEDIT.ATOMBOUND.READTABLE 80559 . 81907)) (92497 99036 ( -TEDIT.BUTTONS.BUILD 92507 . 97304) (TEDIT.BUTTONBITMAP.FILL 97306 . 99034))))) + (FILEMAP (NIL (4055 8434 (CHARCODE.ENCODE 4065 . 8432)) (8490 27412 (TEDIT.INSTALL.CHARBINDINGS 8500 + . 12391) (TEDIT.CLEAR.CHARBINDINGS 12393 . 15071) (TEDIT.GET.CHARACTION 15073 . 17819) ( +TEDIT.GET.CHARBINDING 17821 . 19960) (TEDIT.GET.ALL.CHARBINDINGS 19962 . 22278) ( +TEDIT.CHARBINDINGS.INVERT 22280 . 24010) (TEDIT.GET.ALL.CHARACTIONS 24012 . 26098) ( +TEDIT.CONFLICTING.CHARBINDINGS 26100 . 27410)) (27472 37527 (\TEDIT.KEY.CHARLOOKS 27482 . 28674) ( +\TEDIT.KEY.QUAD 28676 . 30769) (\TEDIT.DEFAULTSSEL 30771 . 31382) (\TEDIT.SETDEFAULT.FROM.SEL 31384 . +32061) (\TEDIT.KEY.SIZE 32063 . 33259) (\TEDIT.SUBSCRIPTSEL 33261 . 33464) (\TEDIT.SUPERSCRIPTSEL +33466 . 33670) (\TEDIT.KEY.TRANSFORM 33672 . 35669) (\TEDIT.KEY.OPENLINE 35671 . 36125) ( +\TEDIT.KEY.FAMILYN 36127 . 37525)) (37528 37817 (CAP-CASECODE 37538 . 37815)) (37851 41283 ( +\TEDIT.SHOWCARETLOOKS 37861 . 40376) (\TEDIT.DESCRIBEFONT 40378 . 41281)) (41314 56287 ( +\TEDIT.ONECHAR.BACKWARD 41324 . 42471) (\TEDIT.ONECHAR.FORWARD 42473 . 43709) (\TEDIT.ONELINE.UP 43711 + . 46672) (\TEDIT.ONELINE.DOWN 46674 . 48331) (\TEDIT.ONELINE.MOVE 48333 . 50620) ( +\TEDIT.ONEWORD.BACKWARD 50622 . 51810) (\TEDIT.ONEWORD.FORWARD 51812 . 52999) (\TEDIT.LINE.BEGIN 53001 + . 54080) (\TEDIT.LINE.END 54082 . 55319) (\TEDIT.DOCUMENT.BEGIN 55321 . 55680) (\TEDIT.DOCUMENT.END +55682 . 56285)) (56288 58330 (\TEDIT.LINEDELETE.FORWARD 56298 . 57297) (\TEDIT.LINEDELETE.BACKWARD +57299 . 58328)) (58331 60859 (\TEDIT.KEY.NEST 58341 . 60857)) (60860 62142 (\TEDIT.KEY.WRAP 60870 . +62140)) (62233 70281 (\TEDIT.KEY.FIND 62243 . 67421) (\TEDIT.KEY.FIND.SEARCHSTRING 67423 . 68563) ( +\TEDIT.GET.TARGET.STRING 68565 . 70279)) (70312 72944 (\TEDIT.KEY.SUBSTITUTE 70322 . 70543) ( +\TEDIT.MANPAGE 70545 . 71792) (\TEDIT.CALL.ED 71794 . 72624) (\TEDIT.SELECT.ALL 72626 . 72942)) (72971 + 78661 (\TEDIT.CLIPBOARD 72981 . 74736) (\TEDIT.COPYTOCLIPBOARD 74738 . 75518) ( +\TEDIT.EXTRACTTOCLIPBOARD 75520 . 75715) (\TEDIT.WRITE.SEL 75717 . 78659)) (79118 90810 ( +\TEDIT.READTABLE 79128 . 80064) (\TEDIT.WORDBOUND.READTABLE 80066 . 82695) (TEDIT.GETSYNTAX 82697 . +84126) (TEDIT.SETSYNTAX 84128 . 85333) (TEDIT.GETFUNCTION 85335 . 86600) (TEDIT.SETFUNCTION 86602 . +88588) (TEDIT.WORDGET 88590 . 88851) (TEDIT.WORDSET 88853 . 89484) (TEDIT.ATOMBOUND.READTABLE 89486 . +90808)) (102639 109178 (TEDIT.BUTTONS.BUILD 102649 . 107446) (TEDIT.BUTTONBITMAP.FILL 107448 . 109176) +)))) STOP diff --git a/library/tedit/TEDIT-FNKEYS.LCOM b/library/tedit/TEDIT-FNKEYS.LCOM index dc1f405fa898f93c6b7c65ddfb399d61c6e61599..307e1118c38b6718a12f3bebe91abf07a71627a7 100644 GIT binary patch delta 7905 zcmc&(dvF`adB+_kQi3E36hVp)Jyu6a1Y`li-Qh_~3J$=LI1V+N)$*+0>qar z$>TV&4X2Zg6H9e1?>K!o)3}bKO#Yw+u~R!qnNHg2u$?r@w9`m#{g}?QlTKzl(oCmm z)28mXyLZ4*uXd(?lz(tUDE=9@qY{dFks#UGNBiVRUoZ^pE)({1y)&o`-1|o|8DyX6_xlAjQ@jkj zKZHR@61+}Nzm`#xc~vpg6ikZwhKtX!ONikciHGQPuOTiwnMX0`oB=6AxPpN)23k`1NXImtc)w6`IrPQpU8RPi#e1Gcu+jvJqe5T<> z_ez{o5}O?G7w2zoit}ct%k=|7`>l8*Y5sc3vGh0bnXkXYUEN6f-%4DIyQ-h^U*sw= zG|_)T&FeW7lx38Jy%Yll0}<;}j@mvYL{6e44KF6_5;CH&@D1z&1w;1*|y| z3>1vKdTd0=ATcVDj+Py$_)SVEOxMxdr&Q7)F(}q(IV8#fq$dp}!xkbD7~1>cD4NhR z8FfI(_?7$s3c6VQy(%k+Ps27(+o|BODY!JOL#12uK!1 zB%BhEMChj`;X@4JAFRJ#`D7ze&vN7Fwkb!$H{w+0D++C@L1lU4X`+Os-m;UlH#!xn zq}2}AB$k^`6Z)6ff+>C_@du;ssdX!HMxcu*uXxMTO%D)P(hc6_b&87{Z@6(zd=q}3ey4g;;zM#7X6>3(ke8chw zX?|?!Rfk8C!lsQERHJ_+n=~{%3%91CWRf&>Ck5*I1l@^Ia~+sTe@26K*#SRMPeRMK zr=U}SIWn41ayd1dl8_jP;()tbM6t-D7qWFRslF^4A*&WqB(T;N zu0vudRK33GBc9ucztWuA5{lY3!hhL(6`$SuhfW)G?RI?xQ$KZG*b)uer!KS<@dqsv z)gQZeaQK(!HsZzBCj6gm()Q=qJyLY8`$V^b=i1eM06C_6*E~8Pqk^6{P&CBaNR)_Z z_hUsAk-=nyNZ58rqTK(zaJo;Mc1+FDuVs&`aD={8)al8gC{l7sltZ9QKoM}30(8JL z2)yMGy8?Uw@G8(q$eff@^Momo009%YrM<0U-^7a?&x616@fNWm-LUK$WI(c_R7-

H61JzRb6XO__$}4XwnDf6SevzJ6-3eX{xOY^iIqd9dp}jnkWXiY(Xl zX4>iMT*>egOMfxL5q!{HGaOykLGa*{L6-xJ%jWhpV5ta{J**BVP`GZXHR}yhrGQn+ zA#?!it=p^Lb3e`fe=7bL?R)+&ir-`dGhA$KTL5_|NCTZ^bv2*Y^YG2&04PVT0~FV{ zzGmkw$~w@VTf6B}zO_hTTB8ckT-?MA&;Q1E2A8)CmAX!huMoA}9@>9m>E{5!QN(zM zFgM-mH|@>q%xW2kP?Cg%FotaE=6v8#lVrN-z6-gEn8J|4A@f6SKN#kC8T?zx&&9B~j|? zqStxF_PxUR6XO9SnqW>=Nb93X1<#c?^06S!?&+*RcEE;`N?tYC8AB!sk}E%@fFXs$ zsGvduN25>}Fss&iI8sLuL@QZBdVfEHlm$9q!iGLDkRhSp>ogBkJ=oFIc;X6A6h*VB zYw?%YT(_l#OS8MOd%v4r<U*imR(SD*wREqQl=6CJCH;Ynn~82 z%j?5ABL_*L0TH^Eic0lV6kZo7<4Y<96@|goSgH!wqQbym?%A;~#t@ZRj2H=_1W0fQ ziI5u-{4}lo&7Or;5Wj$?7v~l)LQB$7LBL!09^;(&^xpRBvwPck?rHq1`*(52@wfMf z`gSWN_m0v`yu=imp1pIP-j;SU@H$@r_iU*Q%p@*wUQ zRy=Za=Y0$xWEXxkJF(j9{j|X;njo7&c(3nS{%<$q-}NExUHr$s0B>xXZP%~QF-9^Yy?)djNNPz(6552`D@HY?ncEks@!8^0J>(XOMEpQLZuLs(3 zEbsvr$J@mx9ye1YGruAJsdSKlR>I7m&4d-uD}8f2V;fJew%cw3yWqc)z8*S6mz7w8 zOXu&Y&F?s$UhT4j9n-PHQ~inT<%1!Bg@%N+6oBAnF9Wslnt3ENkml@d?GAJMgcJYQ zPzTt+Ey>Nra54PqZutQw`|M2cmPmKAl`*FP)C?8>P})ux2k?uLtHt*>a1P$Wq?SGW z8aNs^VJJ?8OucS--Ka}r*xu8m+-y3Zx%1uHc~`XaKXN-(h8mVTwOR5-FlsLPeB`7Q4E)*d)SD_3nQV3Fhwv@mgnFLRB2n+bV)aAa*iBqFh3WYqrJj9`#a;&l=PVEYWfM_U(AG^-YjQ7vVpp%_tzRIK&wt&HZC zoRt}d&`36=Gi-*pH_GV*_(&?4N~UQpm`wN31d!Y>2Z@9Q!y4p?^cpnPAe+-X!+hO9 zit!r6riPkv99wT0M}@|$@zuunwAIbu(N^8xEqyPZ&{mysjYTu(>>X+?4CItSX1{~X zHHL089JrmK!|54nPHFa^TH4@HW(#CD4hMw(E=r+UfaO181s>O?-ptUXq*4&MhI4vB zgX)L~*~{8-zZttA2ABgmJ!jEs%xbilWohs_B~pWjk6EFJ#Nev}A)r9)iP?^pEs#vT z_Rcf=@U$`a${Oif)F9>qR@FCpv3P+#Rr?BO=1?$J*YFy3gKgFH1&?)2hQeTyB| zBeWlMUI2?vrePEw!1y2gdMnC+qGi2^(;C)0xB|;P3NII!c364ferJET^d5_}^gmS} zi2r!k^k$>lnjUQ)p-Pj4@AY>a|6H0Wuy8hV!&{)MD+X=o3KpSP z3Ty%EE%mZ_|HHHsGdC`$DW?Y}7U=fO+y;4W_MRPR-F!y@|Ln;Ff%FW^gxx_l-}Q)X zY2cNmApW((ZCn(;b-0I<@ao~+T##TbFNPtZ+N($qC+$FErWk=*3L!?J^1x>FL!yqv zNCXWJF|~jqWBAq)w+v=tW*j1bf^E7#0V&3)l81Hhg08QF+99m-LVjYcgB{Iv7LY+< z(K65w-h6ad1*%}?6u_t<@)|r&Qd21sg*Qch7)obSL_(xS0wx2I0ZEVyGBA)J=cQmE zLA8U}Ef}PXMs+xt1dav%U?$3s$@D4~#?(_il6TXh02~8wRYt--0WBqF7^72x4i3d80Bj3|GsTP3CGs?Z)DzKlkO8uBQ9fXwFjbtMeYSXU z#+vCwfX_ldyk?*R7pnR{BW`!UMhY&})M`~Vgg+}BHqOPp zr-8}cePeL>U&>4O$eZe?tR!)A<$7x=n|>5@F<9{Z@N`|er$^8F#hPoXP}TGJawXn zhB$gq5%MkT&~U;UvmCzm)DisF$*o>{%>~6+_G=!`-ie6#?@ta?CnkR0;EunUpK`2h zAovX#5rywKe&zJe#@gqpJyygfRs|S~z_{TYR^bYsCHTY19e8hX+cp^`;8;TljE!6m zQtWEF$T!+cM8oG|>z$-(j&H5+#w+I<@wd;N#v7(LZ?K9e`0v`f{7x&J(fu8GrR>Gmo@m3rEGK~)KQG|v^8q~nLKi;r!Up`-3+)5s_@=`SspEbU z`{6wIQAyYbDxA*=_Iq)09z+5!o|K+fQaUUv2-OeIbNoT%B>wA5=_62>JT{_3NTjZ9 zr+7{F_@{G+;Y@qy1w1hC$Nw?egOe08Boo96M(2O`OO&y2nGWB;iPW;9zr!q(wK6ANvaEfe~&@(ANDY-D(sVsUy&=|jr1I+l9UaB4`H}?;Q}d^p|iwK=gOBZJVSr2yx(KVzVQ1dT|X@#_*E+f zB-T&X`c6jptbo+9oRY0i83RhiBv~hC2cMoRUzl2iuxH-^eq*X3m>0?xtiWep)k&{5 zLLi2T+7ji%q;HdXr7rZcT@y7;X@qJQyv6tk8F-jNo*)A@aa#*~_tEJV6=ETibPwtx zrc*MJ5eKBg&6XF=kU5WbLpF~%+arC=)I%@$qiMGQGI-r|ORMKWyu1$E73MBwTcR&YqD)!7#w#DBY|-30u%+Bv`x@9l|>0ig9bE^6s?UWP0%8V(V}SswCDi@Hku#lulCJe zqAeLofD(dsc4qdyH}Ck~d-L3D^k*;9=X-WXn={9!nzwZQdCsLURfT0=@Dh1zY$?ivT)sJf;p0K}r9*K` zFJO4k35%Hh4B}$~VjAHY3?b$igE%sOtPcjk82)(GE3L(hW z3ykVEnfHpi#&t7XNi2Hx)pMe5oeSdQ#_9l_c&XbnP*I9kKT;_>7b`?J)$5!eRH%Ch zvFpVniIKhyrDM*;jUz|rGaWQ_WWHUQi&HSE;OLrdO?_^i%`2+$>~lY&x(|tK$=4;? zx%g+9?wPyb@Uf8yrc}>tcu7IF#zWu&rWJB19K2bhd=P0;kESLL!TI$eF{qdUMa5Xu zghDKW*OVqE(h|6n09!}|+H(l(X%S$B;^oTS^ual&!$HTFDJ;H{!s3R);*T4v1CBww zd+pcjEItKEEA(bHu?Mk2h@7ym%zx|?a?!FA#)2p#=47!TqYwl_x%+VZlB|Z<_F;+V zHKAw-``7JIBGK|ghi_GZefS*WBg+&5!dME4;B)IXQ9ORP>Rs#|-%xyPJw;P*;>S0p z@P`|}MMbgZe#=RMpQ-)`=INT#_~Dv$ivrC7XhXDxfyRqkKwBq+w(! z$8>Q;&64#H$gFkdvn0$4e&o21u5i!=e4$pzYSq;g@xBq=`vSK2?NVqePE()GZ|SsM zRvDz6=P7EWp&{RJqM}6n>sJn6%s>f{RYJI_Ud8HoRdq`$>hk4K5Lr@UbyJ;JmlF8* zP~~250AKRddpGqH$Njcp^u&`^BMwY{@2>gHS8@mig5Ve@mgSA zi4WASmcZA`EFpx;-v9uXIck}w^Ezya85Fr#yBEK@d3~|VJ4kJOpyJDjENwSnQCA8Z ziV#}_5ji6y?!oZj3^asHoF##4evWXssplzOm z02#z+Q17I{Wy~3WH zA|<6lAgShhAuTOi0CDkajZAYagj%$z;}g@vlT+geVqZ7AtQ0gg-z#-VSq()ETmy*1 zSMS_aM7utqsZ02?JwK{muODet7a0`7M(_>M<6=QxBWL1j-vK=A8^?e5sa_O~K-n@q zGc`IkGYcPac4J`>KejK_(=3j7wkAdl z^iIfQ*G}r@(G{04(tBdmSapvOc>s|ug_w#XFlA1)DLq7$Y%qe~i`CLG4(FQNDGs;n ze~Nk#zqKE^`oybI$I0u(fQ--WYwFr}GyBhF4w=G;Aka#pj#<>%=dz zXXuaD;sy>;zr?LvkWRVqIJa$!r=)JU;^=de2i;c#57l$M*sQwe5q_E5Ia~2=--fxj zeDbP4&&rZQ99>aY%9C~Oh8&M4S{Z?Y3ua2F4LA^dd1L7kl$3_72n z$p^NX#|0IWASvvL#G9RFQ*l31ilvb80n_hnoKC*YGWTN*Yx-o zjerFk3Rdn&Nofg+d4VHBL$>}~?A#%48QEPcklnPLs8uLfM1wZbAg*YAn)(C2(CWoM zZQbd|C)3w{VWDeDIr&?UqtxMC+^LL_ks|9MP$J-ZqxBoil*7ldwxOXU$hJ#?92E3v zRqZH1ElU{H-o-*Smj+bKb!v!(BG4W~1!Ir(giFf1c1bIv!3G8VmpeSO%VH^dt9_T8 z+Om;ge?*X+02VL=@}xw{kq(8ky@m*#l(TAqq@oBUccop{GEnv_Sr9pjj@&d6;t*TV z(o&nfMSynm<{2)A$~OR=s<}G2+oQ8^eDJ?V3d_c;RyTEM$GN@nu6ca+@i4V*p(bQy4lvbz)?6;vU#Hg~&QoXZkWE)q7Ig*O5(aql7ZY6)&V%@2bC& zA`^@KKK$v?)a>9X`ua0^l64QBT5Au-?9nOL($KjyT)i}0wKS|)8m?IyR$9YTRo55R z7|fu*i2*3hYI@hWLJu8^npYcuSGVsWIlwZhCntiB5p`z);y~NbBxJx_VmxXC90Rw^ zODPpJ%A(FJ82}iYIiZP#)B^~fH{JtnYTocP-so@5Z7iq}v+L_L!v)OQm~qRYH|nJ1 zC3K7zXxhvAq|fVEFIR3UUj51dO+Aa7`|qk)=pB3$kM|#`3lY@T^}~W!m}C6U{yW=m zYL;1WyE1MpxpcB6fgH5-61hpNaJbla{9r|OB>^oc2Xw>47oB;0X{ga@Jh$N+L*jO` z#19bnhwA}QHIc@=B@po8;b0APq##2F=^IGwfTtJnFuhuDwZC^NR?!9xGyY`NR{Yti zVSN91t=sQMzNDHdAYT(|ZAC8p`Zxz&Rkc}ObV$7cxZ_H}Le0cMe0ah`x$w|Lz7F{a zsic@|PKpKnf(!05@oy$nFO!+Pk3_=pDLs^cKH2HQ6T9m1p-F$8NmJe*3XCIDWdW4lXT$Mwv_`e-*!bnxd=70SpFLr|!UO zrWyF$KOMk5(=3dhn&$Bv)6KOm11E_M2)K}Y1I*6U;ya&hz>m)C+~!KDSxxE^)A6(l zr%kDP_vPy%_kliqc_vP|=FhxJZ3QIC=fuN@P2?=6=PT~`>c$N?^Mr`M^TcN0{qhr; z>TX$*(gnRRZ|=+?p9{B~-HMsB(c1DAlAFoe_*ree=7*of1!VLT|8ch8h2@KVc>mb4+Gv=J@_&GVXuI>p6Caflnajq`atedit>TEDIT-HCPY.;170 33842 +(FILECREATED "21-Apr-2025 19:07:23" {WMEDLEY}tedit>TEDIT-HCPY.;176 32823 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.HARDCOPY.DISPLAYLINE \TEDIT.HARDCOPY.FORMATLINE.HEADINGS - \TEDIT.HCPYFMTSPEC) + :CHANGES-TO (FNS \TEDIT.HARDCOPY.DISPLAYLINE) - :PREVIOUS-DATE " 8-Feb-2025 23:42:18" {WMEDLEY}tedit>TEDIT-HCPY.;169) + :PREVIOUS-DATE "17-Apr-2025 13:35:29" {WMEDLEY}tedit>TEDIT-HCPY.;174) (PRETTYCOMPRINT TEDIT-HCPYCOMS) @@ -134,7 +133,11 @@ else (TEDIT.PROMPTPRINT TSTREAM "No hardcopy file--aborted" T T)))]) (\TEDIT.HARDCOPY.DISPLAYLINE - [LAMBDA (TEXTOBJ LINE REGION PRSTREAM FORMATTINGSTATE) (* ; "Edited 19-Feb-2025 13:34 by rmk") + [LAMBDA (TSTREAM LINE REGION PRSTREAM FORMATTINGSTATE) (* ; "Edited 21-Apr-2025 19:02 by rmk") + (* ; "Edited 17-Apr-2025 13:35 by rmk") + (* ; "Edited 15-Apr-2025 15:19 by rmk") + (* ; "Edited 11-Apr-2025 17:30 by rmk") + (* ; "Edited 19-Feb-2025 13:34 by rmk") (* ; "Edited 8-Feb-2025 23:39 by rmk") (* ; "Edited 13-Dec-2024 23:49 by rmk") (* ; "Edited 13-Jun-2024 17:13 by rmk") @@ -152,131 +155,117 @@ (* ;; "If possible, use the information cached in THISLINE") - (TEXTOBJ! TEXTOBJ) - (\DTEST LINE 'LINEDESCRIPTOR) + (LINEDESCRIPTOR! LINE) (* ;; "Only display the line if it appears before the end of the text!") - (CL:UNLESS (IGREATERP (FGETLD LINE LCHAR1 LINE) - (FGETTOBJ TEXTOBJ TEXTLEN)) - [LET ((THISLINE (FGETTOBJ TEXTOBJ THISLINE))) - (CL:UNLESS (EQ LINE (fetch DESC of THISLINE)) - (\TEDIT.FORMATLINE (FGETTOBJ TEXTOBJ STREAMHINT) - (FGETLD LINE LCHAR1) - LINE REGION PRSTREAM FORMATTINGSTATE)) + (PROG* ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (THISLINE (FGETTOBJ TEXTOBJ THISLINE))) + (CL:WHEN (IGREATERP (FGETLD LINE LCHAR1 LINE) + (FGETTOBJ TEXTOBJ TEXTLEN)) + (RETURN NIL)) + (CL:UNLESS (EQ LINE (fetch DESC of THISLINE)) + (\TEDIT.FORMATLINE TSTREAM (FGETLD LINE LCHAR1) + LINE REGION PRSTREAM FORMATTINGSTATE)) - (* ;; "Use the characters cached in THISLINE.") + (* ;; "Use the characters cached in THISLINE.") - (for CHARSLOT CLOOKS CURY LOOKSTARTX SCALESPACES (SPACEFACTOR _ (fetch (THISLINE - TLSPACEFACTOR - ) - of THISLINE)) - (FIRST-SCALEDSPACE-SLOT _ (ffetch (THISLINE TLFIRSTSPACE) of THISLINE)) - (SCALE _ (DSPSCALE NIL PRSTREAM)) - (TX _ (FGETLD LINE LX1)) incharslots THISLINE first (DSPSPACEFACTOR 1 PRSTREAM) - (DSPXPOSITION TX PRSTREAM) - do - (* ;; - "Display the line character by character. CHAR and CHARW are bound to CHARSLOT values") + (for CHARSLOT OLDCLOOKS CURY LOOKSTARTX SCALESPACES OLDCOLOR (SPACEFACTOR + _ + (fetch (THISLINE + TLSPACEFACTOR) + of THISLINE)) + (FIRST-SCALEDSPACE-SLOT _ (ffetch (THISLINE TLFIRSTSPACE) of THISLINE)) + (SCALE _ (DSPSCALE NIL PRSTREAM)) + (TX _ (FGETLD LINE LX1)) incharslots THISLINE first (DSPSPACEFACTOR 1 PRSTREAM) + (DSPXPOSITION TX PRSTREAM) + do + (* ;; + "Display the line character by character. CHAR, CHARW, and CHARCL are bound to CHARSLOT values") - (SELCHARQ CHAR - (SPACE (CL:WHEN (EQ CHARSLOT FIRST-SCALEDSPACE-SLOT) - (* ; "Time to turn on space scaling.") - (DSPSPACEFACTOR SPACEFACTOR PRSTREAM) - (SETQ SCALESPACES T)) - (\OUTCHAR PRSTREAM (CHARCODE SPACE)) - (add TX (CL:IF SCALESPACES - (HCSCALE SPACEFACTOR CHARW) - CHARW))) - ((TAB Meta,TAB) (* ; - "Dotted leaders are meta-TAB, or are DOTTEDLEADER.") - (CL:WHEN (OR (EQ CHAR (CHARCODE Meta,TAB)) - (fetch CLLEADER of CLOOKS) - (EQ (fetch CLUSERINFO of CLOOKS) - 'DOTTEDLEADER)) - (LET* [(DOTWIDTH (CHARWIDTH (CHARCODE %.) - (FONTCOPY (fetch (CHARLOOKS CLFONT) - of CLOOKS) - 'DEVICE PRSTREAM))) - (TTX (IPLUS TX DOTWIDTH (IDIFFERENCE DOTWIDTH - (IREMAINDER TX DOTWIDTH] - (DSPXPOSITION (IDIFFERENCE TTX DOTWIDTH) - PRSTREAM) (* ; - "Move over to the next even multiple of a dot's width.") - (while (ILEQ TTX (IPLUS TX CHARW)) - do (\OUTCHAR PRSTREAM (CHARCODE %.)) - (add TTX DOTWIDTH)))) - (add TX CHARW) - (DSPXPOSITION TX PRSTREAM)) - ((EOL LF CR) - NIL) - (NIL - (* ;; - "LOOKS. Line-start looks are guaranteed to come before any character/object") - - (if (type? CHARLOOKS CHARW) - then (CL:WHEN CLOOKS - - (* ;; - "Underline/overline/strike the just-finished looks run") + (* ;; "Underline/overline/strike the just-finished looks run") (* ; "DISPLAY ALSO PASES LINE DESCENT") - (\TEDIT.HARDCOPY.MODIFYLOOKS LINE LOOKSTARTX TX - (FGETLD LINE YBASE) - CLOOKS PRSTREAM)) - (SETQ CLOOKS CHARW) - (DSPFONT (fetch CLFONT of CLOOKS) - PRSTREAM) - [SETQ CURY (COND - [(AND (fetch (CHARLOOKS CLOFFSET) of CLOOKS) - (NEQ 0 (fetch (CHARLOOKS CLOFFSET) - of CLOOKS))) - (IPLUS (FGETLD LINE YBASE) - (HCSCALE SCALE (fetch (CHARLOOKS CLOFFSET - ) - of CLOOKS] - (T (FGETLD LINE YBASE] - (DSPYPOSITION CURY PRSTREAM) + (\TEDIT.HARDCOPY.MODIFYLOOKS LINE LOOKSTARTX TX OLDCLOOKS PRSTREAM) + (DSPFONT (FGETCLOOKS CHARCL CLFONT) + PRSTREAM) + (CL:UNLESS (EQ OLDCOLOR (SETQ OLDCOLOR (FGETCLOOKS CHARCL CLCOLOR))) + (DSPCOLOR OLDCOLOR PRSTREAM)) + [SETQ CURY (COND + [(AND (FGETCLOOKS CHARCL CLOFFSET) + (NEQ 0 (FGETCLOOKS CHARCL CLOFFSET))) + (IPLUS (FGETLD LINE YBASE) + (HCSCALE SCALE (FGETCLOOKS CHARCL CLOFFSET] + (T (FGETLD LINE YBASE] + (DSPYPOSITION CURY PRSTREAM) - (* ;; "LOOKSTARTX: Starting X position for this CLOOKS.") + (* ;; "LOOKSTARTX: Starting X position for this CLOOKS.") - (SETQ LOOKSTARTX TX))) - (PROGN (if (IMAGEOBJP CHAR) - then - (* ;; "Go to the base line, left edge of the image region.") + (SETQ LOOKSTARTX TX) + (SELCHARQ CHAR + (SPACE (CL:WHEN (EQ CHARSLOT FIRST-SCALEDSPACE-SLOT) + (* ; "Time to turn on space scaling.") + (DSPSPACEFACTOR SPACEFACTOR PRSTREAM) + (SETQ SCALESPACES T)) + (\OUTCHAR PRSTREAM (CHARCODE SPACE)) + (add TX (CL:IF SCALESPACES + (HCSCALE SPACEFACTOR CHARW) + CHARW))) + ((TAB Meta,TAB) (* ; + "Dotted leaders are meta-TAB, or are DOTTEDLEADER.") + (CL:WHEN (OR (EQ CHAR (CHARCODE Meta,TAB)) + (FGETCLOOKS CHARCL CLLEADER) + (EQ (FGETCLOOKS CHARCL CLUSERINFO) + 'DOTTEDLEADER)) + (LET* [(DOTWIDTH (CHARWIDTH (CHARCODE %.) + (FONTCOPY (FGETCLOOKS CHARCL CLFONT) + 'DEVICE PRSTREAM))) + (TTX (IPLUS TX DOTWIDTH (IDIFFERENCE DOTWIDTH (IREMAINDER + TX DOTWIDTH] + (DSPXPOSITION (IDIFFERENCE TTX DOTWIDTH) + PRSTREAM) (* ; + "Move over to the next even multiple of a dot's width.") + (while (ILEQ TTX (IPLUS TX CHARW)) + do (\OUTCHAR PRSTREAM (CHARCODE %.)) + (add TTX DOTWIDTH)))) + (add TX CHARW) + (DSPXPOSITION TX PRSTREAM)) + ((EOL LF CR) + NIL) + (PROGN (if (IMAGEOBJP CHAR) + then + (* ;; "Go to the base line, left edge of the image region.") - (SETQ CURY (DSPYPOSITION NIL PRSTREAM)) - (APPLY* (IMAGEOBJPROP CHAR 'DISPLAYFN) - CHAR PRSTREAM (IMAGESTREAMTYPE PRSTREAM) - (ffetch (TEXTOBJ STREAMHINT) of TEXTOBJ)) - (DSPFONT (fetch CLFONT of CLOOKS) - PRSTREAM) (* ; + (SETQ CURY (DSPYPOSITION NIL PRSTREAM)) + (APPLY* (IMAGEOBJPROP CHAR 'DISPLAYFN) + CHAR PRSTREAM (IMAGESTREAMTYPE PRSTREAM) + TSTREAM) + (DSPFONT (FGETCLOOKS CHARCL CLFONT) + PRSTREAM) (* ;  "Restore the font, move to after the object's image") - (MOVETO (IPLUS TX CHARW) - CURY PRSTREAM) - elseif (DIACRITICP CHAR) - then - (* ;; "Special placement for diacritics") + (MOVETO (IPLUS TX CHARW) + CURY PRSTREAM) + elseif (DIACRITICP CHAR) + then + (* ;; "Special placement for diacritics") - (SETQ CHARW (\TEDIT.DISPLAY.DIACRITIC CHARSLOT THISLINE - PRSTREAM)) - elseif (EQ 'KERN CHAR) - then (RELMOVETO 0 CHARW PRSTREAM) - else (\OUTCHAR PRSTREAM CHAR)) - (add TX CHARW))) finally + (SETQ CHARW (\TEDIT.DISPLAY.DIACRITIC CHARSLOT THISLINE + PRSTREAM)) + elseif (EQ 'KERN CHAR) + then (RELMOVETO 0 CHARW PRSTREAM) + else (\OUTCHAR PRSTREAM CHAR)) + (add TX CHARW))) finally (* ;; "Do any last-minute underlining or similar looks fix-ups, and print a revision mark, if one is needed:") - (CL:WHEN CLOOKS - (\TEDIT.HARDCOPY.MODIFYLOOKS LINE - LOOKSTARTX TX (FGETLD LINE YBASE) - CLOOKS PRSTREAM)) - (CL:WHEN (GETPLOOKS (FGETLD LINE LPARALOOKS) - FMTREVISED) + (\TEDIT.HARDCOPY.MODIFYLOOKS LINE LOOKSTARTX TX + CHARCL PRSTREAM) + (CL:WHEN (GETPLOOKS (FGETLD LINE LPARALOOKS) + FMTREVISED) (* ;  "This paragraph has been revised, so mark it.") - (\TEDIT.MARK.REVISION TEXTOBJ - (FGETLD LINE LPARALOOKS) - PRSTREAM LINE))])]) + (\TEDIT.MARK.REVISION TEXTOBJ + (FGETLD LINE LPARALOOKS) + PRSTREAM LINE))]) (\TEDIT.HARDCOPY.FORMATLINE.HEADINGS [LAMBDA (TEXTOBJ TSTREAM LINE PARALOOKS CHNO IMAGESTREAM FORMATTINGSTATE) @@ -307,45 +296,41 @@ NIL]) (\TEDIT.HARDCOPY.MODIFYLOOKS - [LAMBDA (LINE STARTX CURX CURY LOOKS PRSTREAM) (* ; "Edited 27-May-2023 12:16 by rmk") + [LAMBDA (LINE STARTX CURX CLOOKS PRSTREAM) (* ; "Edited 11-Apr-2025 17:37 by rmk") + (* ; "Edited 27-May-2023 12:16 by rmk") (* ; "Edited 30-May-91 21:17 by jds") (* ;; "Do underlining, overlining, etc. for hardcopy files") - [PROG ((STREAMSCALE (DSPSCALE NIL PRSTREAM)) - [RULEWIDTH (FIXR (FTIMES 0.75 (DSPSCALE NIL PRSTREAM] - (ONEPOINT (FIXR (DSPSCALE NIL PRSTREAM))) - YOFFSET) - (COND - ((fetch (CHARLOOKS CLULINE) of LOOKS) (* ; "It's underlined.") - (DRAWLINE STARTX (IDIFFERENCE (GETLD LINE YBASE) - (GETLD LINE LTRUEDESCENT LINE)) - CURX - (IDIFFERENCE (GETLD LINE YBASE) - (GETLD LINE LTRUEDESCENT LINE)) - RULEWIDTH - 'PAINT PRSTREAM) (* ; "A 1/2-pt underline") - )) - (COND - ((fetch (CHARLOOKS CLOLINE) of LOOKS) (* ; "Over-line") - (DRAWLINE STARTX (IPLUS (GETLD LINE YBASE) - (GETLD LINE LTRUEASCENT LINE)) - CURX - (IPLUS (GETLD LINE YBASE LINE) - (GETLD LINE LTRUEASCENT LINE)) - RULEWIDTH - 'PAINT PRSTREAM))) - (COND - ((fetch (CHARLOOKS CLSTRIKE) of LOOKS) (* ; "Struch-thru") - (DRAWLINE STARTX (SETQ YOFFSET (IPLUS (GETLD LINE YBASE LINE) - (IQUOTIENT - [FIXR (FTIMES STREAMSCALE - (FONTPROP (fetch (CHARLOOKS CLFONT) - of LOOKS) - 'ASCENT] - 3))) - CURX YOFFSET RULEWIDTH 'PAINT PRSTREAM] - (MOVETO CURX CURY PRSTREAM]) + (LINEDESCRIPTOR! LINE) + (CL:WHEN CLOOKS + (LET ((STREAMSCALE (DSPSCALE NIL PRSTREAM)) + [RULEWIDTH (FIXR (FTIMES 0.75 (DSPSCALE NIL PRSTREAM] + (ONEPOINT (FIXR (DSPSCALE NIL PRSTREAM))) + (YBASE (FGETLD LINE YBASE)) + YOFFSET) + (CL:WHEN (FGETCLOOKS CLOOKS CLULINE) (* ; "Underlined") + (DRAWLINE STARTX (IDIFFERENCE YBASE (FGETLD LINE LTRUEDESCENT LINE)) + CURX + (IDIFFERENCE YBASE (FGETLD LINE LTRUEDESCENT LINE)) + RULEWIDTH + 'PAINT PRSTREAM)) + (CL:WHEN (FGETCLOOKS CLOOKS CLOLINE) (* ; "Over-line") + (DRAWLINE STARTX (IPLUS YBASE (GETLD LINE LTRUEASCENT LINE)) + CURX + (IPLUS YBASE (GETLD LINE LTRUEASCENT LINE)) + RULEWIDTH + 'PAINT PRSTREAM)) + (CL:WHEN (FGETCLOOKS CLOOKS CLSTRIKE) (* ; "Struch-thru") + (DRAWLINE STARTX (SETQ YOFFSET + (IPLUS YBASE (IQUOTIENT [FIXR (FTIMES STREAMSCALE + (FONTPROP (fetch (CHARLOOKS + CLFONT) + of CLOOKS) + 'ASCENT] + 3))) + CURX YOFFSET RULEWIDTH 'PAINT PRSTREAM)) + (MOVETO CURX YBASE PRSTREAM)))]) (\TEDIT.HCPYFMTSPEC [LAMBDA (DISPLAYFMT IMAGESTREAM) (* ; "Edited 19-Feb-2025 13:34 by rmk") @@ -563,11 +548,11 @@ (CLOSEF DOC]) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3554 27051 (TEDIT.HARDCOPY 3564 . 4697) (\TEDIT.PRINT.MENU 4699 . 5665) (TEDIT.HCPYFILE - 5667 . 7841) (\TEDIT.HARDCOPY.DISPLAYLINE 7843 . 17953) (\TEDIT.HARDCOPY.FORMATLINE.HEADINGS 17955 . -19684) (\TEDIT.HARDCOPY.MODIFYLOOKS 19686 . 21920) (\TEDIT.HCPYFMTSPEC 21922 . 25380) ( -\TEDIT.INTEGER.IMAGEBOX 25382 . 26053) (\TEDIT.DISPLAY.DIACRITIC 26055 . 27049)) (27126 27956 ( -\TEDIT.SCALEREGION 27136 . 27954)) (28215 31755 (TEDIT.HARDCOPYFN 28225 . 29530) ( -\TEDIT.HARDCOPYFILEFN 29532 . 30093) (\TEDIT.POSTSCRIPT.HARDCOPY 30095 . 31026) (\TEDIT.PRESS.HARDCOPY - 31028 . 31753)) (33018 33819 (TEDIT-BOOK 33028 . 33817))))) + (FILEMAP (NIL (3475 26032 (TEDIT.HARDCOPY 3485 . 4618) (\TEDIT.PRINT.MENU 4620 . 5586) (TEDIT.HCPYFILE + 5588 . 7762) (\TEDIT.HARDCOPY.DISPLAYLINE 7764 . 16987) (\TEDIT.HARDCOPY.FORMATLINE.HEADINGS 16989 . +18718) (\TEDIT.HARDCOPY.MODIFYLOOKS 18720 . 20901) (\TEDIT.HCPYFMTSPEC 20903 . 24361) ( +\TEDIT.INTEGER.IMAGEBOX 24363 . 25034) (\TEDIT.DISPLAY.DIACRITIC 25036 . 26030)) (26107 26937 ( +\TEDIT.SCALEREGION 26117 . 26935)) (27196 30736 (TEDIT.HARDCOPYFN 27206 . 28511) ( +\TEDIT.HARDCOPYFILEFN 28513 . 29074) (\TEDIT.POSTSCRIPT.HARDCOPY 29076 . 30007) (\TEDIT.PRESS.HARDCOPY + 30009 . 30734)) (31999 32800 (TEDIT-BOOK 32009 . 32798))))) STOP diff --git a/library/tedit/TEDIT-HCPY.LCOM b/library/tedit/TEDIT-HCPY.LCOM index 62c40ed7f4c5d237e5ba4097225a3ea55335444b..daff62dc8f902d67df118ddd66a3a6243c98a878 100644 GIT binary patch delta 2442 zcmZ8jO>7fK6kaO>vg@!I%Dl_NL)o-r8pu1lh8n= zq6%4Xp@$v{KB1}?q*h2&G>+jwTgjEG9^6ZNpi+=HaYF6IIaEDW?VDLUPRPOY{^tG7 zd*9~8;vXM;F<0V+v8j(&$9R^P5Stihm2p-Iqe%GN+NH}Y#iasTTSZ|M_%vltUw>!z z%F_CkiHnPui;Jrh=GwW%;>4w;LUHMu5R)d(uUsATxQXJ*hwF>$*Crf2WjNmNSVqg` zV`mak6y6ezQ}$V349#r4d0n)6piOB{j7m!?XeWxLt#$Ybxjx- zq;Wn0$=$v_x?hY2NJVA!M5y|?KiXA_BgdIXIm9a{g`GJg7ZPM7E}yx}8%s-6jG7nHW#oj%v{$9FMeFD^D~Wy=a~!YQnSB zrEOvdI7o`*qu<3Vp?MAU2dplf508BUG(g0xVJ@w>WqtO zI8^t$VRCf3BXHo+2IP=b@gVNSN41`PBuWjB)S1@3S5WH{6KGTT(GxI;Cqh-fFEGCXvz;`;=LJ2rcz;N&0< zZ@g9TxneDg!{wI;hfB{f-&gS^f%S5!_~c@D;{o_y^>sJyRhSzPhmh5NNdM3S_z9dR zNjEmn7GuCMl+z9p84Viry#Zn6Ei9Ac`LnH{ZwSY+{H&FG9OU7x?P^FX#!AgRLI2c^ zZ@ld9C(5U8^F=Dmx5XZ4KJyJm#Q-6`B2`n-9ooB1t@-Ni03=Ftp)P;GNGni_$ztd9 zk;8kQi^RtRB+mTy}iNsbfs{Ek`@g?2I$FA{C3 ztrio4he#B&#CRN$R5YB+BN5OnZOmIpAW}*|vO9$dB1?Sj1``3GYENzg%X&9?S!@zK z+&X6GJhbCkS`4k8OR%JSB~Fy~R=`19UI_#*KqLevp{1?YNMkFjIt0n!6QC#}%Bhx0 zp%W)+{3jPz*Uo0}D>|?;}gTei7wyI&JF&#|4y6 zsvuLg4x4Y^zH>K{LY46oL6^58N6uGvA|o$vL!9h#K971MM5EC# z+PL;6oO5JoAw1=s%xZa6(N)<{Gbns?z9hfnF~su;fvengU8G7xLO?M+6>xk?;8JXYRv2+h$@+gTrN7J}!&pNF#IY!Yja4mU3~tfQch&DWMl= zD3FLKtLa5!mhu@Id)77<5M{HnVqhIiW5~#9#k{tpRxS)&DywS-o|~USo)^a$=2*I) zfj`;$-yBUh-FqKaJr~l=gpc*eIVx{5?fOW%8I_x(@|=%ukd})Og*pZ{Q(^@HZJV*ueg#+YG@6qxOeY_ggr)Q9|w7 zHb@rRALni3ZF8)lln^}BmmlGoT2y_UZwp6t(LC z^&@j;_m7bgqI+c8EvmY%mIk3It~DGic?p3@cc>`y(6duzKEol}_6Jp$fCIIFjL+gB zx#`9M#lA5dG6Vf-l3tT>GO#P_udO&`^xtULHSk;N2)_Pm-cy_L#h#ttJ*UlA{_>8O zpJL8`Pn)+o+}Z(ibJPhrWS*@u_i68I^Y&<%qtHy+A6n)&IH+t;3mB_X-@@skhI3jc zGtwD6YPEA$hGLJoYR@%F-{Ih1z5EO*{-?b!U@~%+i5c1*w~uJwzkx%R^qzu)ok1bp z1cy@J&!)fn?>k2~Np4PBmp%REP#PFTK1DjVHOx#VI0;<=sL>36bWzq9q69sP8eT$) z7+3KPjgQAA4qd^^20;N77kQ+s`9-{<8W_d-%5SHFTowSlz;CS+mQRY^BKWv;Kr7fFN1=}wVu)0r;KDlMoO3u%unuGs$!;jt z3e^ivEYDutAD-oC6}?7rnzIFbqEvZh=u9~Qm|2i@*#gVBz@Y_IhlYSDX}u+u1n8Gm zEac_&>=F_MfZ2{tgbaH)!00X~z#a8)aHU<2CwHKhS2RUMJlAW-1Ng&>0OOHY<&3H$ zK9=Zlnlo($cSANmjgh9FxHNz-kA{g3AkNi+%o>fmt_x#76Sy6zdK;~!`p^bfR-^mjAh zFLjR3Wh$Te&XzCFE$p`*nNw7X%&^BCpLCXxA5>L**l7CLOgi6Y`k}JSut+M zVui#ZQ&>k*O1U>aZ^?Q^kk5e$V)soeq-5oLIGcFpz}*@AUsnw3~JS diff --git a/library/tedit/TEDIT-HISTORY b/library/tedit/TEDIT-HISTORY index 1d249bbb..203f5572 100644 --- a/library/tedit/TEDIT-HISTORY +++ b/library/tedit/TEDIT-HISTORY @@ -1,12 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "28-Mar-2025 14:23:18" {WMEDLEY}TEDIT>TEDIT-HISTORY.;227 53951 +(FILECREATED "21-Apr-2025 22:42:33" {WMEDLEY}tedit>TEDIT-HISTORY.;250 58952 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.UNDO.REPLACECODE \TEDIT.UNDO1) + :CHANGES-TO (FNS \TEDIT.UNDO.DELETE \TEDIT.REDO.INSERT \TEDIT.REDO.REPLACE \TEDIT.UNDO.REPLACE + \TEDIT.UNDO.CHARLOOKS \TEDIT.UNDO.PARALOOKS TEDIT.UNDO) - :PREVIOUS-DATE "16-Mar-2025 18:50:43" {WMEDLEY}tedit>TEDIT-HISTORY.;225) + :PREVIOUS-DATE "20-Apr-2025 23:30:57" {WMEDLEY}tedit>TEDIT-HISTORY.;247) (PRETTYCOMPRINT TEDIT-HISTORYCOMS) @@ -31,7 +32,7 @@ (FNS TEDIT.UNDO \TEDIT.UNDO1 TEDIT.REDO \TEDIT.UNDO.UNDO) (FNS \TEDIT.UNDO.INSERT \TEDIT.UNDO.DELETE \TEDIT.UNDO.MOVE \TEDIT.UNDO.REPLACE \TEDIT.UNDO.CHARLOOKS \TEDIT.UNDO.PARALOOKS \TEDIT.UNDO.PAGELOOKS - \TEDIT.UNDO.COMPOSITE \TEDIT.UNDO.REPLACECODE) + \TEDIT.UNDO.COMPOSITE \TEDIT.UNDO.REPLACECODE \TEDIT.UNDO.WRAP \TEDIT.UNDO.SEL) (FNS \TEDIT.REDO.INSERT \TEDIT.REDO.REPLACE \TEDIT.REDO.COMPOSITE)))) (DECLARE%: EVAL@COMPILE DONTCOPY (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE @@ -153,7 +154,8 @@ (DEFINEQ (\TEDIT.HISTORYADD - [LAMBDA (TEXTOBJ EVENT) (* ; "Edited 8-Dec-2024 17:32 by rmk") + [LAMBDA (TSTREAM EVENT) (* ; "Edited 6-Apr-2025 11:22 by rmk") + (* ; "Edited 8-Dec-2024 17:32 by rmk") (* ; "Edited 29-Aug-2024 12:30 by rmk") (* ; "Edited 11-Aug-2024 21:57 by rmk") (* ; "Edited 30-Apr-2024 22:51 by rmk") @@ -171,61 +173,64 @@ (* ;; "Not sure what should happen if the second one is to the right of the first, deleting forwards. Old code seemed to treat those as separate events, and only the second/right one could be undone.") - (if (GETTOBJ TEXTOBJ TXTHISTORYINACTIVE) - then - (* ;; "Maybe the first event after setting the textprop--now's the time to flush") + [LET [(TEXTOBJ (FTEXTOBJ TSTREAM (type? TEXTOBJ TSTREAM] + (if (GETTOBJ TEXTOBJ TXTHISTORYINACTIVE) + then + (* ;; "Maybe the first event after setting the textprop--now's the time to flush") - (FSETTOBJ TEXTOBJ TXTHISTORY NIL) - (FSETTOBJ TEXTOBJ TXTHISTORYUNDONE NIL) - else (if (type? TEDITHISTORYEVENT EVENT) - then (CL:WHEN (MEMB (GETTH EVENT THACTION) - (CONSTANT (LIST :Put :Get))) + (FSETTOBJ TEXTOBJ TXTHISTORY NIL) + (FSETTOBJ TEXTOBJ TXTHISTORYUNDONE NIL) + else (if (type? TEDITHISTORYEVENT EVENT) + then (CL:WHEN (MEMB (GETTH EVENT THACTION) + (CONSTANT (LIST :Put :Get))) (* ;  "Can't back up over Put/Get, flush the history.") - (FSETTOBJ TEXTOBJ TXTHISTORY NIL)) + (FSETTOBJ TEXTOBJ TXTHISTORY NIL)) - (* ;; "Somebody may have already done there own fixup.") + (* ;; "Somebody may have already done there own fixup.") - (LET ((OLDEVENT (\TEDIT.LASTEVENT TEXTOBJ))) - (CL:WHEN (AND (type? TEDITHISTORYEVENT OLDEVENT) - (EQ :Delete (GETTH EVENT THACTION)) - (EQ :Delete (GETTH OLDEVENT THACTION))) + (LET ((OLDEVENT (\TEDIT.LASTEVENT TEXTOBJ))) + (CL:WHEN (AND (type? TEDITHISTORYEVENT OLDEVENT) + (EQ :Delete (GETTH EVENT THACTION)) + (EQ :Delete (GETTH OLDEVENT THACTION))) - (* ;; + (* ;;  "Repeated successive deletions, we can combine them if they are adjacent.") - (CL:WHEN (IEQP (GETTH EVENT THCHLIM) - (GETTH OLDEVENT THCH#)) + (CL:WHEN (IEQP (GETTH EVENT THCHLIM) + (GETTH OLDEVENT THCH#)) (* ;  "OLDEVENT is first, EVENT is still delete") - (SETQ EVENT (\TEDIT.CUMULATE.EVENTS EVENT OLDEVENT TEXTOBJ)) - (\TEDIT.POPEVENT TEXTOBJ) (* ; "Pop OLDEVENT before repushing") - (SETQ OLDEVENT (\TEDIT.LASTEVENT TEXTOBJ))) + (SETQ EVENT (\TEDIT.CUMULATE.EVENTS EVENT OLDEVENT TEXTOBJ)) + (\TEDIT.POPEVENT TEXTOBJ) + (* ; "Pop OLDEVENT before repushing") + (SETQ OLDEVENT (\TEDIT.LASTEVENT TEXTOBJ))) - (* ;; "This may have created a new adjacency, if the accumulation of later deletes comes into with an earlier accumulation") + (* ;; "This may have created a new adjacency, if the accumulation of later deletes comes into with an earlier accumulation") - (CL:WHEN [AND OLDEVENT (type? TEDITHISTORYEVENT OLDEVENT) - (EQ :Delete (GETTH OLDEVENT THACTION)) - (IEQP (GETTH OLDEVENT THCHLIM) - (IPLUS (GETTH EVENT THCH#) - (GETTH OLDEVENT THLEN] + (CL:WHEN [AND OLDEVENT (type? TEDITHISTORYEVENT OLDEVENT) + (EQ :Delete (GETTH OLDEVENT THACTION)) + (IEQP (GETTH OLDEVENT THCHLIM) + (IPLUS (GETTH EVENT THCH#) + (GETTH OLDEVENT THLEN] (* ;; "The OLDEEVENT deleted in front of EVENT, and itsTCHLIM are in its original coordinates. EVENT came later, with its TCH# in a coordinate system reduced by THLEN. So we have to add it back.") - (SETQ EVENT (\TEDIT.CUMULATE.EVENTS OLDEVENT EVENT)) - (\TEDIT.POPEVENT TEXTOBJ))) - (\TEDIT.HISTORYADD1 TEXTOBJ EVENT)) - elseif (LISTP EVENT) - then - (* ;; "A monolithic sequence of undoable events") + (SETQ EVENT (\TEDIT.CUMULATE.EVENTS OLDEVENT EVENT)) + (\TEDIT.POPEVENT TEXTOBJ))) + (\TEDIT.HISTORYADD1 TEXTOBJ EVENT)) + elseif (LISTP EVENT) + then + (* ;; "A monolithic sequence of undoable events") - (* ;; "SHOULDNT HAPPEN ?") + (* ;; "SHOULDNT HAPPEN ?") - (\TEDIT.HISTORYADD1 TEXTOBJ EVENT))) + (\TEDIT.HISTORYADD1 TEXTOBJ EVENT] EVENT]) (\TEDIT.HISTORYADD.COMPOSITE - [LAMBDA (TEXTOBJ EVENTS) (* ; "Edited 6-Feb-2025 15:31 by rmk") + [LAMBDA (TEXTOBJ EVENTS ACTION EXTRA) (* ; "Edited 1-Apr-2025 17:50 by rmk") + (* ; "Edited 6-Feb-2025 15:31 by rmk") (* ; "Edited 8-Dec-2024 19:31 by rmk") (* ; "Edited 22-Sep-2024 18:47 by rmk") (* ; "Edited 3-Jul-2024 08:02 by rmk") @@ -233,8 +238,8 @@ (SETQ EVENTS (REMOVE NIL EVENTS)) (CL:WHEN EVENTS (\TEDIT.HISTORYADD TEXTOBJ (CL:IF (CDR EVENTS) - (\TEDIT.HISTORY.EVENT TEXTOBJ :Composite NIL NIL NIL NIL - EVENTS) + (\TEDIT.HISTORY.EVENT TEXTOBJ (OR ACTION :Composite) + NIL NIL NIL NIL EVENTS EXTRA) (CAR EVENTS))))]) (\TEDIT.CUMULATE.EVENTS @@ -294,13 +299,15 @@ (\ILLEGAL.ARG NEWVALUE))))]) (\TEDIT.HISTORY.EVENT - [LAMBDA (TEXTOBJ ACTION CH# LEN POINT FIRSTPIECE OLDINFO DELETEDPIECES) + [LAMBDA (TSTREAM ACTION CH# LEN POINT FIRSTPIECE OLDINFO DELETEDPIECES) + (* ; "Edited 6-Apr-2025 11:20 by rmk") (* ; "Edited 26-Sep-2024 15:44 by rmk") (* ; "Edited 23-Sep-2024 16:47 by rmk") (* ;; "Don't create if it's inactive") - (CL:UNLESS (GETTOBJ TEXTOBJ TXTHISTORYINACTIVE) + (CL:UNLESS (GETTOBJ (FTEXTOBJ TSTREAM) + TXTHISTORYINACTIVE) (CL:WHEN (AND (NULL LEN) (type? SELPIECES CH#)) (SETQ LEN (fetch (SELPIECES SPLEN) of CH#)) @@ -326,7 +333,10 @@ (DEFINEQ (TEDIT.UNDO - [LAMBDA (TSTREAM NOUNDOUNDO) (* ; "Edited 13-Mar-2025 15:47 by rmk") + [LAMBDA (TSTREAM NOUNDOUNDO) (* ; "Edited 21-Apr-2025 20:16 by rmk") + (* ; "Edited 6-Apr-2025 14:42 by rmk") + (* ; "Edited 5-Apr-2025 13:49 by rmk") + (* ; "Edited 13-Mar-2025 15:47 by rmk") (* ; "Edited 8-Dec-2024 19:41 by rmk") (* ; "Edited 25-Nov-2024 13:17 by rmk") (* ; "Edited 12-Aug-2024 10:49 by rmk") @@ -362,6 +372,7 @@ (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "You can't undo a " (GETTH EVENT THACTION)) T) (RETURN)) + (TEDIT.PROMPTCLEAR TEXTOBJ) (SETQ EVENT (\TEDIT.POPEVENT TEXTOBJ)) (SETQ PREVEVENT (\TEDIT.LASTEVENT TEXTOBJ)) (* ;  "So we can test for the undoundo event.") @@ -375,7 +386,7 @@ (\TEDIT.RESET.EXTEND.PENDING.DELETE TEXTOBJ) (TEDIT.PROMPTCLEAR TSTREAM) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) + (\TEDIT.NOSEL TSTREAM) (\TEDIT.UNDO1 TSTREAM EVENT) (* ;; "Get the event that undid EVENT--if it was pushed in front of PREVENT ") @@ -392,11 +403,12 @@ (push (FGETTOBJ TEXTOBJ TXTHISTORYUNDONE) (LIST PREVEVENT UNDOEVENT EVENT))) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ]) + (\TEDIT.SHOWSEL SEL T TSTREAM]) (\TEDIT.UNDO1 - [LAMBDA (TSTREAM EVENT) (* ; "Edited 28-Mar-2025 14:22 by rmk") + [LAMBDA (TSTREAM EVENT) (* ; "Edited 6-Apr-2025 14:42 by rmk") + (* ; "Edited 1-Apr-2025 21:22 by rmk") + (* ; "Edited 28-Mar-2025 14:22 by rmk") (* ; "Edited 16-Mar-2025 18:46 by rmk") (* ; "Edited 25-Nov-2024 13:56 by rmk") (* ; "Edited 29-Sep-2024 13:51 by rmk") @@ -408,57 +420,55 @@ (* ; "Edited 16-Jul-2023 11:14 by rmk") (* ; "Edited 30-May-2023 23:50 by rmk") (* ; "Edited 25-May-2023 00:33 by rmk") - (LET ((TEXTOBJ (GETTSTR TSTREAM TEXTOBJ))) - (CL:WHEN (GETTH EVENT THCH#) - (\TEDIT.SHOWSEL NIL NIL TEXTOBJ) - (\TEDIT.UPDATE.SEL (TEXTSEL TEXTOBJ) - EVENT) - (\TEDIT.SHOWSEL NIL T TEXTOBJ) - (\TEDIT.SCROLL.CARET TSTREAM)) - (PROG1 (SELECTC (GETTH EVENT THACTION) - ((LIST :Insert :Copy) - (\TEDIT.UNDO.INSERT TEXTOBJ EVENT)) - (:Move (\TEDIT.UNDO.MOVE TSTREAM EVENT)) - (:Delete (* ; "Deletion or case-shift") - (\TEDIT.UNDO.DELETE TEXTOBJ EVENT)) - (:CharLooks (* ; "Character-looks change") - (\TEDIT.UNDO.CHARLOOKS TEXTOBJ EVENT)) - (:ParaLooks (* ; "PARA looks change") - (\TEDIT.UNDO.PARALOOKS TEXTOBJ EVENT)) - (:PageFormat (* ; "Pageframe change") - (\TEDIT.UNDO.PAGELOOKS TEXTOBJ EVENT)) - ((LIST :Replace :Transform) + (CL:WHEN (GETTH EVENT THCH#) + (\TEDIT.NOSEL TSTREAM) + (\TEDIT.UPDATE.SEL TSTREAM EVENT) + (\TEDIT.SCROLL.CARET TSTREAM)) + (PROG1 (SELECTC (GETTH EVENT THACTION) + ((LIST :Insert :Copy) + (\TEDIT.UNDO.INSERT TSTREAM EVENT)) + (:Move (\TEDIT.UNDO.MOVE TSTREAM EVENT)) + (:Delete (* ; "Deletion or case-shift") + (\TEDIT.UNDO.DELETE TSTREAM EVENT)) + (:CharLooks (* ; "Character-looks change") + (\TEDIT.UNDO.CHARLOOKS TSTREAM EVENT)) + (:ParaLooks (* ; "PARA looks change") + (\TEDIT.UNDO.PARALOOKS TSTREAM EVENT)) + (:PageFormat (* ; "Pageframe change") + (\TEDIT.UNDO.PAGELOOKS TSTREAM EVENT)) + ((LIST :Replace :Transform) + (* ;; "He replaced one portion of text with another ; Transforms have the same undo event but different REDO's.") - (* ;; "He replaced one portion of text with another ; Transforms have the same undo event but different REDO's.") - - (\TEDIT.UNDO.REPLACE TEXTOBJ EVENT (GETTH EVENT THACTION))) - (:ReplaceCode (\TEDIT.UNDO.REPLACECODE TSTREAM EVENT)) - (:Closefile (* ; "Closes an included file") - (CL:WHEN (STREAMP (GETTH EVENT THOLDINFO)) - (CLOSEF? (GETTH EVENT THOLDINFO)))) - (:Composite (\TEDIT.UNDO.COMPOSITE TSTREAM EVENT)) - ((LIST :Get :Put) (* ; + (\TEDIT.UNDO.REPLACE TSTREAM EVENT (GETTH EVENT THACTION))) + (:ReplaceCode (\TEDIT.UNDO.REPLACECODE TSTREAM EVENT)) + (:Closefile (* ; "Closes an included file") + (CL:WHEN (STREAMP (GETTH EVENT THOLDINFO)) + (CLOSEF? (GETTH EVENT THOLDINFO)))) + (:Composite (\TEDIT.UNDO.COMPOSITE TSTREAM EVENT)) + (:Wrap (\TEDIT.UNDO.WRAP TSTREAM EVENT)) + (:Sel (\TEDIT.UNDO.SEL TSTREAM EVENT)) + ((LIST :Get :Put) (* ;  "He did a GET or PUT-- not undoable.") - (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "You can't undo a " (GETTH EVENT THACTION - )) - T)) - (LET [(UNDOFN (CADDR (ASSOC (GETTH EVENT THACTION) - TEDIT.HISTORY.TYPELST] - (COND - (UNDOFN + (TEDIT.PROMPTPRINT TSTREAM (CONCAT "You can't undo a " (GETTH EVENT THACTION)) + T)) + (LET [(UNDOFN (CADDR (ASSOC (GETTH EVENT THACTION) + TEDIT.HISTORY.TYPELST] + (COND + (UNDOFN - (* ;; - "TEDIT.HISTORY.TYPELST is an ALST of form (type redofn undofn)") + (* ;; "TEDIT.HISTORY.TYPELST is an ALST of form (type redofn undofn)") - (APPLY* UNDOFN TEXTOBJ EVENT (GETTH EVENT THLEN) - (GETTH EVENT THCH#) - (GETTH EVENT THFIRSTPIECE))) - (T (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "UNDO not implemented for " - (GETTH EVENT THACTION)) - T]) + (APPLY* UNDOFN TSTREAM EVENT (GETTH EVENT THLEN) + (GETTH EVENT THCH#) + (GETTH EVENT THFIRSTPIECE))) + (T (TEDIT.PROMPTPRINT TSTREAM (CONCAT "UNDO not implemented for " + (GETTH EVENT THACTION)) + T]) (TEDIT.REDO - [LAMBDA (TSTREAM) (* ; "Edited 16-Mar-2025 18:48 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 6-Apr-2025 14:43 by rmk") + (* ; "Edited 1-Apr-2025 21:42 by rmk") + (* ; "Edited 16-Mar-2025 18:48 by rmk") (* ; "Edited 2-Feb-2025 11:28 by rmk") (* ; "Edited 8-Dec-2024 17:53 by rmk") (* ; "Edited 27-Nov-2024 23:11 by rmk") @@ -478,74 +488,74 @@ (* ;; "REDO the last thing this guy did.") (SETQ TSTREAM (TEXTSTREAM TSTREAM)) - (PROG* ((TEXTOBJ (GETTSTR TSTREAM TEXTOBJ)) - (SEL (GETTOBJ TEXTOBJ SEL)) + (PROG* ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (SEL (FGETTOBJ TEXTOBJ SEL)) (EVENT (\TEDIT.LASTEVENT TEXTOBJ)) CH) - (CL:WHEN (\TEDIT.READONLY TEXTOBJ) + (CL:WHEN (\TEDIT.READONLY TSTREAM) (RETURN NIL)) (CL:UNLESS EVENT - (TEDIT.PROMPTPRINT TEXTOBJ "Nothing to redo" T) + (TEDIT.PROMPTPRINT TSTREAM "Nothing to redo" T) (RETURN)) (CL:UNLESS (GETSEL SEL SET) - (TEDIT.PROMPTPRINT TEXTOBJ "Please select a target for the repeated action" T) + (TEDIT.PROMPTPRINT TSTREAM "Please select a target for the repeated action" T) (RETURN)) (* ;; "There really is something to redo and something to do it to.") - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) + (\TEDIT.NOSEL TSTREAM) (SELECTC (GETTH EVENT THACTION) ((LIST :Insert :Copy :Move) (* ; "It was an insertion") - (\TEDIT.REDO.INSERT TEXTOBJ EVENT SEL)) + (\TEDIT.REDO.INSERT TSTREAM EVENT SEL)) (:Delete (* ; "It was a deletion") - (\TEDIT.DELETE TEXTOBJ SEL)) + (\TEDIT.DELETE TSTREAM SEL)) (:Replace (* ;  "It was a replacement (a del/insert combo)") - (\TEDIT.REDO.REPLACE TEXTOBJ EVENT (GETTH EVENT THACTION))) + (\TEDIT.REDO.REPLACE TSTREAM EVENT (GETTH EVENT THACTION))) (:Transform (\TEDIT.KEY.TRANSFORM TSTREAM (GETTH EVENT THOLDINFO))) (:LowerCase (* ; "He lower-cased something") - (\TEDIT.LCASE.SEL TSTREAM TEXTOBJ SEL)) + (\TEDIT.KEY.TRANSFORM TSTREAM (FUNCTION L-CASECODE))) (:UpperCase (* ; "He upper-cased something") - (\TEDIT.UCASE.SEL TSTREAM TEXTOBJ SEL)) - (:InitialCap (\TEDIT.KEY.INITIALCAP TSTREAM TEXTOBJ SEL)) + (\TEDIT.KEY.TRANSFORM TSTREAM (FUNCTION U-CASECODE))) + (:InitialCap (\TEDIT.KEY.TRANSFORM TSTREAM (FUNCTION CAP-CASECODE))) (:CharLooks (* ; "It was a character looks change") (\TEDIT.CHANGE.CHARLOOKS TSTREAM (CAR (GETTH EVENT THOLDINFO)) SEL)) (:ParaLooks (* ; "It was a Paragraph looks change") (\TEDIT.CHANGE.PARALOOKS TSTREAM (CAR (GETTH EVENT THOLDINFO)) SEL)) - (:PageFormat (TEDIT.PROMPTPRINT TEXTOBJ "You can't redo a page-format change" T T)) + (:PageFormat (TEDIT.PROMPTPRINT TSTREAM "You can't redo a page-format change" T T)) (:Find (* ; "EXACT-MATCH SEARCH COMMAND") (* (* ;; "RESTLST ?")  (AND NIL (RESETSAVE (CURSOR  WAITINGCURSOR))) (TEDIT.PROMPTPRINT - TEXTOBJ "Searching..." T) - (SETQ SEL (fetch (TEXTOBJ SEL) of - TEXTOBJ)) (\TEDIT.SHOWSEL SEL NIL NIL - TEXTOBJ) (SETQ CH (TEDIT.FIND TEXTOBJ + TSTREAM "Searching..." T) + (SETQ SEL (TEXTSEL TEXTOBJ)) + (\TEDIT.NOSEL TSTREAM) + (SETQ CH (TEDIT.FIND TEXTOBJ  (GETTH EVENT THAUXINFO))) - (COND (CH (TEDIT.PROMPTPRINT TEXTOBJ - "done.") (\TEDIT.UPDATE.SEL SEL CH - (NCHARS (GETTH EVENT THAUXINFO)) - (QUOTE RIGHT)) (\TEDIT.FIXSEL SEL - TEXTOBJ) (TEDIT.NORMALIZECARET TEXTOBJ) - (\TEDIT.SHOWSEL SEL T NIL TEXTOBJ)) - (T (TEDIT.PROMPTPRINT TEXTOBJ - "[Not found]")))) + (if CH then (\TEDIT.UPDATE.SEL TSTREAM + CH (NCHARS (GETTH EVENT THAUXINFO)) + (QUOTE RIGHT)) (TEDIT.NORMALIZECARET + TSTREAM) (TEDIT.PROMPTPRINT TSTREAM + "done.") else (TEDIT.PROMPTPRINT + TSTREAM "[Not found]"))) ) (:Move (* ;; "It doesn't make sense to do the deletion part of a move in the same place or a different place. The insert part is probably OK--that maps to the :Insert clause above.") - (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "You can't redo a " (GETTH EVENT THACTION)) + (TEDIT.PROMPTPRINT TSTREAM (CONCAT "You can't redo a " (GETTH EVENT THACTION)) T T)) - (:Composite (\TEDIT.REDO.COMPOSITE TEXTOBJ EVENT SEL)) + (:Composite (\TEDIT.REDO.COMPOSITE TSTREAM EVENT SEL)) + (:Wrap (\TEDIT.KEY.WRAP TSTREAM (CAR (GETTH EVENT THDELETEDPIECES)) + (CADR (GETTH EVENT THDELETEDPIECES)))) ((LIST :Get :Put NIL) (* ; "Why can't you redo a get or put ?") - (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "You can't redo a " (GETTH EVENT THACTION)) + (TEDIT.PROMPTPRINT TSTREAM (CONCAT "You can't redo a " (GETTH EVENT THACTION)) T T)) - (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "Redoing the action " (GETTH EVENT THACTION) + (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Redoing the action " (GETTH EVENT THACTION) " isn't implemented.") T)) - (\TEDIT.SHOWSEL SEL T TEXTOBJ]) + (\TEDIT.SHOWSEL SEL T TSTREAM]) (\TEDIT.UNDO.UNDO [LAMBDA (TSTREAM) (* ; "Edited 8-Dec-2024 18:24 by rmk") @@ -591,7 +601,8 @@ (DEFINEQ (\TEDIT.UNDO.INSERT - [LAMBDA (TEXTOBJ EVENT) (* ; "Edited 8-Jul-2024 00:07 by rmk") + [LAMBDA (TSTREAM EVENT) (* ; "Edited 6-Apr-2025 12:15 by rmk") + (* ; "Edited 8-Jul-2024 00:07 by rmk") (* ; "Edited 30-May-2023 22:54 by rmk") (* ; "Edited 26-May-2023 23:49 by rmk") (* ; "Edited 24-May-2023 23:53 by rmk") @@ -600,12 +611,16 @@ (* ;; "UNDO a prior Insert, Copy, or Include. ") - (\TEDIT.DELETE TEXTOBJ (\TEDIT.FIXSEL (\TEDIT.UPDATE.SEL (TEXTSEL TEXTOBJ) + (* ;; "If it is OK to show, we don't need the FIX or the TEXTSEL--use the stream") + + (\TEDIT.DELETE TSTREAM (\TEDIT.FIXSEL (\TEDIT.UPDATE.SEL (TEXTSEL (FTEXTOBJ TSTREAM)) EVENT) - TEXTOBJ]) + TSTREAM]) (\TEDIT.UNDO.DELETE - [LAMBDA (TEXTOBJ EVENT) (* ; "Edited 29-Sep-2024 00:23 by rmk") + [LAMBDA (TSTREAM EVENT) (* ; "Edited 21-Apr-2025 22:22 by rmk") + (* ; "Edited 6-Apr-2025 11:49 by rmk") + (* ; "Edited 29-Sep-2024 00:23 by rmk") (* ; "Edited 15-Mar-2024 13:54 by rmk") (* ; "Edited 30-May-2023 23:31 by rmk") (* ; "Edited 27-May-2023 23:39 by rmk") @@ -614,12 +629,13 @@ (* ;; "UNDO a prior deletion ") (\TEDIT.INSERT.SELPIECES (\TEDIT.SELPIECES.COPY (GETTH EVENT THDELETEDPIECES) - 'INSERT TEXTOBJ) - TEXTOBJ + 'INSERT TSTREAM) + TSTREAM (GETTH EVENT THCH#]) (\TEDIT.UNDO.MOVE - [LAMBDA (TSTREAM EVENT) (* ; "Edited 8-Dec-2024 19:38 by rmk") + [LAMBDA (TSTREAM EVENT) (* ; "Edited 6-Apr-2025 11:51 by rmk") + (* ; "Edited 8-Dec-2024 19:38 by rmk") (* ; "Edited 25-Nov-2024 14:12 by rmk") (* ; "Edited 29-Sep-2024 00:23 by rmk") (* ; "Edited 7-Jul-2024 11:50 by rmk") @@ -629,7 +645,7 @@ (* ;; "This event includes a deletion and an insert/replace both within TEXTOBJ. (The deletion from a from a foreign textobj is in that document's history.)") - (LET* [(TEXTOBJ (GETTSTR TSTREAM TEXTOBJ)) + (LET* [(TEXTOBJ (FTEXTOBJ TSTREAM)) (SEL (TEXTSEL TEXTOBJ)) (REPLACE (EQ :Replace (GETTH (CAR (GETTH EVENT THOLDINFO)) THACTION] @@ -638,11 +654,12 @@ then (FSETTOBJ TEXTOBJ BLUEPENDINGDELETE T) 'PENDINGDEL else 'NORMAL)) - (\TEDIT.FIXSEL SEL TSTREAM) (\TEDIT.SHOWSEL SEL T TSTREAM]) (\TEDIT.UNDO.REPLACE - [LAMBDA (TEXTOBJ EVENT ACTION) (* ; "Edited 15-Mar-2025 22:35 by rmk") + [LAMBDA (TSTREAM EVENT ACTION) (* ; "Edited 21-Apr-2025 22:22 by rmk") + (* ; "Edited 6-Apr-2025 11:58 by rmk") + (* ; "Edited 15-Mar-2025 22:35 by rmk") (* ; "Edited 13-Sep-2024 23:50 by rmk") (* ; "Edited 7-Jul-2024 11:59 by rmk") (* ; "Edited 15-Mar-2024 13:54 by rmk") @@ -652,16 +669,20 @@ (* ;; "This undoes the replacement, but tracks for REDO whether the action was replace, lowercase, uppercase, or initialcap.") - (\TEDIT.REPLACE.SELPIECES (\TEDIT.SELPIECES.COPY (GETTH EVENT THDELETEDPIECES) - NIL TEXTOBJ) - TEXTOBJ - (\TEDIT.UPDATE.SEL (TEXTSEL TEXTOBJ) - EVENT)) - (SETTH (\TEDIT.LASTEVENT TEXTOBJ) - THACTION ACTION]) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM))) + (\TEDIT.REPLACE.SELPIECES (\TEDIT.SELPIECES.COPY (GETTH EVENT THDELETEDPIECES) + NIL TSTREAM) + TSTREAM + (\TEDIT.UPDATE.SEL (TEXTSEL TEXTOBJ) + EVENT)) + (SETTH (\TEDIT.LASTEVENT TEXTOBJ) + THACTION ACTION]) (\TEDIT.UNDO.CHARLOOKS - [LAMBDA (TEXTOBJ EVENT) (* ; "Edited 25-Nov-2024 21:59 by rmk") + [LAMBDA (TSTREAM EVENT) (* ; "Edited 21-Apr-2025 20:31 by rmk") + (* ; "Edited 20-Apr-2025 13:39 by rmk") + (* ; "Edited 6-Apr-2025 14:44 by rmk") + (* ; "Edited 25-Nov-2024 21:59 by rmk") (* ; "Edited 28-Sep-2024 22:37 by rmk") (* ; "Edited 26-Sep-2024 16:06 by rmk") (* ; "Edited 11-Aug-2024 22:11 by rmk") @@ -675,54 +696,60 @@ (* ;; "Undo the setting of character looks. The undolist is a list of (NEXTCHNO . OLDCHARLOOKS) pairs, where OLDCHARLOOKS NIL means nothing changed. We have to track the character numbers because pieces may have been split by future events that were then undone. NEXTCHNO is the first character number of the next original piece") - (for U OLDLOOKS NEWUNDOLIST NEXTCHNO (PC _ (\TEDIT.CHTOPC (GETTH EVENT THCH#) - TEXTOBJ)) - (CHNO _ (GETTH EVENT THCH#)) - (SEL _ (FGETTOBJ TEXTOBJ SEL)) - (CARETPC _ (\TEDIT.CARETPIECE TEXTOBJ)) in (CDR (GETTH EVENT THOLDINFO)) - do - (* ;; "Revert changes until we see the character number of the next changed piece. The initial NEXTCHNO is ") + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM))) + (for U OLDLOOKS NEWUNDOLIST NEXTCHNO (PC _ (\TEDIT.CHTOPC (GETTH EVENT THCH#) + TEXTOBJ)) + (CHNO _ (GETTH EVENT THCH#)) + (SEL _ (FGETTOBJ TEXTOBJ SEL)) + (CARETPC _ (\TEDIT.CARETPIECE TEXTOBJ)) in (CDR (GETTH EVENT THOLDINFO)) + do + (* ;; "Revert changes until we see the character number of the next changed piece. The initial NEXTCHNO is ") - (* ;; "Perhaps we should also save the CHNO of the CARETPC") + (* ;; "Perhaps we should also save the CHNO of the CARETPC") - (SETQ NEXTCHNO (CAR U)) - (SETQ OLDLOOKS (CDR U)) - (CL:WHEN (AND OLDLOOKS (EQ PC CARETPC)) - (FSETTOBJ TEXTOBJ CARETLOOKS (\TEDIT.CARETLOOKS.VERIFY TEXTOBJ OLDLOOKS))) - [push NEWUNDOLIST (CONS NEXTCHNO (CL:IF OLDLOOKS (PLOOKS PC] + (SETQ NEXTCHNO (CAR U)) + (SETQ OLDLOOKS (CDR U)) + (CL:WHEN (AND OLDLOOKS (EQ PC CARETPC)) + (FSETTOBJ TEXTOBJ CARETLOOKS (\TEDIT.CARETLOOKS.VERIFY TEXTOBJ OLDLOOKS))) + [push NEWUNDOLIST (CONS NEXTCHNO (CL:IF OLDLOOKS (PLOOKS PC] - (* ;; "U starts at the first piece. We want CHNO to be the start of the next piece, i.e. initialize to (CAR(CDR ...)) But then, what about the last piece. Maybe we have to do our own popping, or look at UTAIL. Or end in (NEXTPC-CHNO . NIL ). Or text for IGEQ THCHLIM") + (* ;; "U starts at the first piece. We want CHNO to be the start of the next piece, i.e. initialize to (CAR(CDR ...)) But then, what about the last piece. Maybe we have to do our own popping, or look at UTAIL. Or end in (NEXTPC-CHNO . NIL ). Or text for IGEQ THCHLIM") - (for P inpieces PC do (FSETPC P PLOOKS OLDLOOKS) - (add CHNO (PLEN P)) - (CL:WHEN (IEQP CHNO NEXTCHNO)(* ; "First piece of the next run") - (SETQ PC P) - (RETURN))) finally + (for P inpieces PC do (FSETPC P PLOOKS OLDLOOKS) + (add CHNO (PLEN P)) + (CL:WHEN (IEQP CHNO NEXTCHNO) + (* ; "First piece of the next run") + (SETQ PC P) + (RETURN))) finally - (* ;; + (* ;;  "Remember the previous looks in case we UNDO the UNDO. (CAR DATUM) is for redo.") - (CL:WHEN NEWUNDOLIST - (change (GETTH EVENT THOLDINFO) - (CONS (CAR DATUM) - (DREVERSE NEWUNDOLIST))) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) - (\TEDIT.UPDATE.SEL SEL EVENT NIL NIL - 'NORMAL) - (\TEDIT.UPDATE.LINES TEXTOBJ 'LOOKS - (GETTH EVENT THCH#) - (GETTH EVENT THLEN)) - (\TEDIT.SHOWSEL SEL T TEXTOBJ) - (TEDIT.PROMPTPRINT TEXTOBJ - "Character looks restored" T)) + (CL:WHEN NEWUNDOLIST + (change (GETTH EVENT THOLDINFO) + (CONS (CAR DATUM) + (DREVERSE NEWUNDOLIST))) + (\TEDIT.NOSEL TSTREAM) + (\TEDIT.UPDATE.SEL SEL EVENT NIL NIL + 'NORMAL) + (\TEDIT.UPDATE.LINES TSTREAM + 'LOOKS + (GETTH EVENT THCH#) + (GETTH EVENT THLEN)) + (\TEDIT.SHOWSEL SEL T TSTREAM) + (TEDIT.PROMPTPRINT TEXTOBJ + "Character looks restored" T)) - (* ;; + (* ;;  "Save the event for REDO, even if these pieces didn't change") - (\TEDIT.HISTORYADD TEXTOBJ EVENT]) + (\TEDIT.HISTORYADD TEXTOBJ EVENT]) (\TEDIT.UNDO.PARALOOKS - [LAMBDA (TEXTOBJ EVENT) (* ; "Edited 25-Nov-2024 22:00 by rmk") + [LAMBDA (TSTREAM EVENT) (* ; "Edited 21-Apr-2025 20:31 by rmk") + (* ; "Edited 20-Apr-2025 13:38 by rmk") + (* ; "Edited 6-Apr-2025 14:44 by rmk") + (* ; "Edited 25-Nov-2024 22:00 by rmk") (* ; "Edited 28-Sep-2024 22:38 by rmk") (* ; "Edited 27-Sep-2024 12:23 by rmk") (* ; "Edited 11-Aug-2024 22:10 by rmk") @@ -737,60 +764,62 @@ (* ;; "Undo the setting of paragraph looks.") - (for U OLDLOOKS NEWUNDOLIST (PC _ (\TEDIT.CHTOPC (GETTH EVENT THCH#) - TEXTOBJ)) - (CHNO _ (GETTH EVENT THCH#)) - (SEL _ (FGETTOBJ TEXTOBJ SEL)) in (CDR (GETTH EVENT THOLDINFO)) - do - (* ;; "Find the first piece of the next changed paragraph") + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM))) + (for U OLDLOOKS NEWUNDOLIST (PC _ (\TEDIT.CHTOPC (GETTH EVENT THCH#) + TEXTOBJ)) + (CHNO _ (GETTH EVENT THCH#)) + (SEL _ (FGETTOBJ TEXTOBJ SEL)) in (CDR (GETTH EVENT THOLDINFO)) + do + (* ;; "Find the first piece of the next changed paragraph") - (for P inpieces PC do (CL:WHEN (IEQP CHNO (CAR U)) - (SETQ PC P) - (RETURN)) - (add CHNO (PLEN P))) - (SETQ OLDLOOKS (CDR U)) - (push NEWUNDOLIST (CONS CHNO (PPARALOOKS PC))) (* ; "Save for UNDO UNDO") + (for P inpieces PC do (CL:WHEN (IEQP CHNO (CAR U)) + (SETQ PC P) + (RETURN)) + (add CHNO (PLEN P))) + (SETQ OLDLOOKS (CDR U)) + (push NEWUNDOLIST (CONS CHNO (PPARALOOKS PC))) + (* ; "Save for UNDO UNDO") - (* ;; "Change all the pieces in this paragraph") + (* ;; "Change all the pieces in this paragraph") - (for P inpieces PC do (FSETPC P PPARALOOKS OLDLOOKS) - (CL:WHEN (PPARALAST P) - (SETQ PC P) - (RETURN)) - (add CHNO (PLEN P))) finally + (for P inpieces PC do (FSETPC P PPARALOOKS OLDLOOKS) + (CL:WHEN (PPARALAST P) + (SETQ PC P) + (RETURN)) + (add CHNO (PLEN P))) + finally - (* ;; - "Remember the previous looks in case we UNDO the UNDO. (CAR DATUM) is for redo.") + (* ;; + "Remember the previous looks in case we UNDO the UNDO. (CAR DATUM) is for redo.") - (CL:WHEN NEWUNDOLIST - (change (GETTH EVENT THOLDINFO) - (CONS (CAR DATUM) - (DREVERSE NEWUNDOLIST))) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) - (\TEDIT.UPDATE.SEL SEL EVENT NIL NIL - 'NORMAL) - (\TEDIT.UPDATE.LINES TEXTOBJ - 'LOOKS - (GETTH EVENT THCH#) - (GETTH EVENT THLEN)) - (\TEDIT.SHOWSEL SEL T TEXTOBJ) - (TEDIT.PROMPTPRINT TEXTOBJ - "Paragraph looks restored" T)) - - (* ;; - "Save the event for REDO, even if these pieces didn't change") + (CL:WHEN NEWUNDOLIST + (change (GETTH EVENT THOLDINFO) + (CONS (CAR DATUM) + (DREVERSE NEWUNDOLIST))) + (\TEDIT.NOSEL TSTREAM) + (\TEDIT.UPDATE.SEL SEL EVENT NIL NIL 'NORMAL) + (\TEDIT.UPDATE.LINES TSTREAM 'LOOKS (GETTH EVENT THCH#) + (GETTH EVENT THLEN)) + (\TEDIT.SHOWSEL SEL T TSTREAM) + (TEDIT.PROMPTPRINT TEXTOBJ "Paragraph looks restored" T)) - (\TEDIT.HISTORYADD TEXTOBJ EVENT]) + (* ;; "Save the event for REDO, even if these pieces didn't change") + + (\TEDIT.HISTORYADD TEXTOBJ EVENT]) (\TEDIT.UNDO.PAGELOOKS - [LAMBDA (TEXTOBJ EVENT) (* ; "Edited 12-Aug-2024 10:28 by rmk") - [SETTOBJ TEXTOBJ TXTPAGEFRAMES (PROG1 (COPYALL (GETTH EVENT THOLDINFO)) - (SETTH EVENT THOLDINFO (GETTOBJ TEXTOBJ TXTPAGEFRAMES)))] + [LAMBDA (TEXTOBJ EVENT) (* ; "Edited 6-Apr-2025 11:49 by rmk") + (* ; "Edited 12-Aug-2024 10:28 by rmk") + (SETQ TEXTOBJ (FTEXTOBJ TEXTOBJ)) + [FSETTOBJ TEXTOBJ TXTPAGEFRAMES (PROG1 (COPYALL (GETTH EVENT THOLDINFO)) + (SETTH EVENT THOLDINFO (GETTOBJ TEXTOBJ TXTPAGEFRAMES)))] (TEDIT.PROMPTPRINT TEXTOBJ "Page formats restored" T) (\TEDIT.HISTORYADD TEXTOBJ EVENT]) (\TEDIT.UNDO.COMPOSITE - [LAMBDA (TSTREAM EVENT) (* ; "Edited 8-Dec-2024 15:47 by rmk") + [LAMBDA (TSTREAM EVENT) (* ; "Edited 6-Apr-2025 14:44 by rmk") + (* ; "Edited 1-Apr-2025 17:34 by rmk") + (* ; "Edited 8-Dec-2024 15:47 by rmk") (* ; "Edited 25-Nov-2024 22:27 by rmk") (* ; "Edited 15-Aug-2024 10:14 by rmk") (* ; "Edited 7-May-2024 23:17 by rmk") @@ -802,7 +831,9 @@ (\TEDIT.UNDO1 TSTREAM E) (CL:UNLESS (EQ CUREVENT (\TEDIT.LASTEVENT TEXTOBJ))(* ; "Something changed") (push EVENTS (\TEDIT.POPEVENT TEXTOBJ))) - (\TEDIT.SHOWSEL NIL NIL TSTREAM) finally (\TEDIT.HISTORYADD.COMPOSITE TEXTOBJ EVENTS)) + (\TEDIT.NOSEL TSTREAM) finally (\TEDIT.HISTORYADD.COMPOSITE TEXTOBJ EVENTS (GETTH EVENT + THACTION) + )) (\TEDIT.SCROLL.CARET TSTREAM]) (\TEDIT.UNDO.REPLACECODE @@ -810,21 +841,57 @@ (* ; "Edited 23-Sep-2024 00:45 by rmk") (\TEDIT.RPLCHARCODE TSTREAM (GETTH EVENT THCH#) (GETTH EVENT THOLDINFO]) + +(\TEDIT.UNDO.WRAP + [LAMBDA (TSTREAM EVENT) (* ; "Edited 4-Apr-2025 11:01 by rmk") + + (* ;; "Undo the deletions and restore the original selection. But also update the undo event so that undo-undo will select the whole span.") + + (LET* ((TEXTOBJ (GETTSTR TSTREAM TEXTOBJ)) + (SEL (TEXTSEL TEXTOBJ)) + (CH# (GETSEL SEL CH#)) + (DCH (FGETSEL SEL DCH)) + (POINT (FGETSEL SEL POINT)) + UNDOEVENT) + (\TEDIT.UNDO.COMPOSITE TSTREAM EVENT) + (SETQ UNDOEVENT (\TEDIT.LASTEVENT TEXTOBJ)) + (CL:WHEN (AND UNDOEVENT (EQ :Sel (GETTH (CAR (GETTH UNDOEVENT THOLDINFO)) + THACTION))) + (change (GETTH UNDOEVENT THOLDINFO) + (NCONC1 (CDR DATUM) + (\TEDIT.HISTORY.EVENT TEXTOBJ :Sel CH# DCH POINT))))]) + +(\TEDIT.UNDO.SEL + [LAMBDA (TSTREAM EVENT) (* ; "Edited 6-Apr-2025 14:45 by rmk") + (* ; "Edited 4-Apr-2025 10:55 by rmk") + (LET* ((SEL (TEXTSEL (FTEXTOBJ TSTREAM))) + (CH# (GETSEL SEL CH#)) + (DCH (FGETSEL SEL DCH)) + (POINT (FGETSEL SEL POINT))) + (\TEDIT.NOSEL TSTREAM) + (\TEDIT.UPDATE.SEL TSTREAM (GETTH EVENT THCH#) + (GETTH EVENT THLEN) + (GETTH EVENT THPOINT)) + (\TEDIT.HISTORYADD TSTREAM (\TEDIT.HISTORY.EVENT TSTREAM :Sel CH# DCH POINT]) ) (DEFINEQ (\TEDIT.REDO.INSERT - [LAMBDA (TEXTOBJ EVENT SEL) (* ; "Edited 15-Aug-2024 10:47 by rmk") + [LAMBDA (TSTREAM EVENT SEL) (* ; "Edited 21-Apr-2025 22:19 by rmk") + (* ; "Edited 6-Apr-2025 12:09 by rmk") + (* ; "Edited 15-Aug-2024 10:47 by rmk") (* ; "Edited 15-Mar-2024 13:54 by rmk") (* ; "Edited 31-May-2023 10:26 by rmk") (* ; "Edited 18-May-2023 19:24 by rmk") (* ; "Edited 21-Apr-93 01:06 by jds") - (\TEDIT.INSERT.SELPIECES (\TEDIT.SELPIECES.COPY (\TEDIT.SELPIECES EVENT NIL TEXTOBJ) - 'INSERT TEXTOBJ) - TEXTOBJ SEL]) + (\TEDIT.INSERT.SELPIECES (\TEDIT.SELPIECES.COPY (\TEDIT.SELPIECES EVENT NIL (FTEXTOBJ TSTREAM)) + 'INSERT TSTREAM) + TSTREAM SEL]) (\TEDIT.REDO.REPLACE - [LAMBDA (TEXTOBJ EVENT ACTION) (* ; "Edited 7-Jul-2024 11:59 by rmk") + [LAMBDA (TSTREAM EVENT ACTION) (* ; "Edited 21-Apr-2025 22:22 by rmk") + (* ; "Edited 6-Apr-2025 12:14 by rmk") + (* ; "Edited 7-Jul-2024 11:59 by rmk") (* ; "Edited 15-Mar-2024 13:54 by rmk") (* ; "Edited 2-Oct-2023 11:43 by rmk") (* ; "Edited 31-May-2023 10:25 by rmk") @@ -834,28 +901,31 @@ (* ;; "We get the replacement from where EVENT just installed it in the text (assume that it is still there unchanged), and then we use it to replace what is now at the current selection. EVENT's deleted pieces are not relevant.") - (\TEDIT.REPLACE.SELPIECES (\TEDIT.SELPIECES.COPY (\TEDIT.SELPIECES EVENT NIL TEXTOBJ) - NIL TEXTOBJ) - TEXTOBJ - (\TEDIT.UPDATE.SEL (GETTOBJ TEXTOBJ SEL) - EVENT)) - (SETTH (\TEDIT.LASTEVENT TEXTOBJ) - THACTION ACTION]) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM))) + (\TEDIT.UPDATE.SEL (TEXTSEL TEXTOBJ) + EVENT) + (\TEDIT.REPLACE.SELPIECES (\TEDIT.SELPIECES.COPY (\TEDIT.SELPIECES EVENT NIL TEXTOBJ) + NIL TSTREAM) + TSTREAM) + (SETTH (\TEDIT.LASTEVENT TEXTOBJ) + THACTION ACTION]) (\TEDIT.REDO.COMPOSITE - [LAMBDA (TEXTOBJ EVENT SEL) (* ; "Edited 21-Oct-2024 00:26 by rmk") + [LAMBDA (TSTREAM EVENT SEL) (* ; "Edited 6-Apr-2025 12:12 by rmk") + (* ; "Edited 21-Oct-2024 00:26 by rmk") (* ; "Edited 7-May-2024 23:12 by rmk") (\TEDIT.THELP 'Redo-composite]) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4922 5943 (\TEDIT.HISTORYEVENT.DEFPRINT 4932 . 5941)) (7033 17618 (\TEDIT.HISTORYADD -7043 . 11904) (\TEDIT.HISTORYADD.COMPOSITE 11906 . 12812) (\TEDIT.CUMULATE.EVENTS 12814 . 14408) ( -\TEDIT.COMPOSITE.EVENT 14410 . 15146) (\TEDIT.HISTORY.PROP 15148 . 16511) (\TEDIT.HISTORY.EVENT 16513 - . 17442) (\TEDIT.POPEVENT 17444 . 17616)) (17671 36249 (TEDIT.UNDO 17681 . 22240) (\TEDIT.UNDO1 22242 - . 26663) (TEDIT.REDO 26665 . 33403) (\TEDIT.UNDO.UNDO 33405 . 36247)) (36250 51567 ( -\TEDIT.UNDO.INSERT 36260 . 37173) (\TEDIT.UNDO.DELETE 37175 . 37969) (\TEDIT.UNDO.MOVE 37971 . 39560) -(\TEDIT.UNDO.REPLACE 39562 . 40779) (\TEDIT.UNDO.CHARLOOKS 40781 . 45355) (\TEDIT.UNDO.PARALOOKS 45357 - . 49589) (\TEDIT.UNDO.PAGELOOKS 49591 . 50000) (\TEDIT.UNDO.COMPOSITE 50002 . 51229) ( -\TEDIT.UNDO.REPLACECODE 51231 . 51565)) (51568 53928 (\TEDIT.REDO.INSERT 51578 . 52311) ( -\TEDIT.REDO.REPLACE 52313 . 53644) (\TEDIT.REDO.COMPOSITE 53646 . 53926))))) + (FILEMAP (NIL (5074 6095 (\TEDIT.HISTORYEVENT.DEFPRINT 5084 . 6093)) (7185 18439 (\TEDIT.HISTORYADD +7195 . 12457) (\TEDIT.HISTORYADD.COMPOSITE 12459 . 13491) (\TEDIT.CUMULATE.EVENTS 13493 . 15087) ( +\TEDIT.COMPOSITE.EVENT 15089 . 15825) (\TEDIT.HISTORY.PROP 15827 . 17190) (\TEDIT.HISTORY.EVENT 17192 + . 18263) (\TEDIT.POPEVENT 18265 . 18437)) (18492 37479 (TEDIT.UNDO 18502 . 23378) (\TEDIT.UNDO1 23380 + . 27718) (TEDIT.REDO 27720 . 34633) (\TEDIT.UNDO.UNDO 34635 . 37477)) (37480 55955 ( +\TEDIT.UNDO.INSERT 37490 . 38615) (\TEDIT.UNDO.DELETE 38617 . 39629) (\TEDIT.UNDO.MOVE 39631 . 41284) +(\TEDIT.UNDO.REPLACE 41286 . 42796) (\TEDIT.UNDO.CHARLOOKS 42798 . 48035) (\TEDIT.UNDO.PARALOOKS 48037 + . 51866) (\TEDIT.UNDO.PAGELOOKS 51868 . 52426) (\TEDIT.UNDO.COMPOSITE 52428 . 54028) ( +\TEDIT.UNDO.REPLACECODE 54030 . 54364) (\TEDIT.UNDO.WRAP 54366 . 55295) (\TEDIT.UNDO.SEL 55297 . 55953 +)) (55956 58929 (\TEDIT.REDO.INSERT 55966 . 56928) (\TEDIT.REDO.REPLACE 56930 . 58536) ( +\TEDIT.REDO.COMPOSITE 58538 . 58927))))) STOP diff --git a/library/tedit/TEDIT-HISTORY.LCOM b/library/tedit/TEDIT-HISTORY.LCOM index 58449eb91289f04b1e367c64c48499c52ccf31f1..56785c73316f017f8162f58e13d7fb40a6fa848f 100644 GIT binary patch literal 15326 zcmcIr+ixS+c_%4ZUbD7B?XvDhaqSbjv8l#lG&7_wbg{@N7(P`z_ zlWohabFw|Ib}u-4*Lph_ZVvi8gV&8h>B9Bxqj~Xk zVQ2g5LGR%83wT4LD?aD#MyKnxw+hc|#@yIzm&?Xdxwwee9P!ugJlkj6cx!#raaeGF zg+d|6`n@CUD!gx6prq&K#t)~>oBIdiaJpVD>Se>ou{SPnST)Dmdh45NpICAGXndb~ zX@QlNS4ui7^JC1fZn1-#udsBvYMafAR%gEJvV6VSVZTSmENnJwZlPv5R@YKZZ3|6} zX2)uGLrra~<(O4(7|m2|>ELpBRoijh_3%qtX4@34{+s7mxz)BVHQde4d=0Dxg%$#b zH_FCBxwOPN`58}NT$)o`k*u>WSv<#bRk_E ztbsO~GshCUsYD_*!;+P$1pc|7*yCUFVJi4A8GJ~+lIG(cdzgP-sXW5JwrBu-*!0;* zimw!XJ$8l<8qQ`Cd2OM@s&2DtcG==G?Q&654W$xmc5O~x$V_pG5g~);WJWQjQP*M` zm!oZ1l&!3=+*>)eqO;sLa%{N-HOjFiG?wvIWVtuGc8(P_mYdHpeVM*A8Z=IKvsUwo z?K(B0DN(#@UFo{3YoN3yC`~l)3i{8nPCjGOg!hh_O#>o}&#*U+%TvX-nh2ZZ6uU%hUi3%jsA^TAw z*Nd@ZjTn(;y1oK29PA8^2KcSVt)|85%!0o+Ep~5ODNX^k;$qA@G^6D0LW9~w&!lNf z{s@h~8`e9d+8XU>ymgr`CP=#&caBnAqv4;8Y=f8&I!GH>QfqRHu%xkkxpnJ^l`jsC z=3>;mP<1z2Zl?kBP1d!+42CVWP3X1G%xbscHhpF92yGX8hK<#rGm}Fl*Zn(RtC;=N z$(Kj{)w>Uq1`hlEzF8F(^6ezaKjau>mM%vUiQ5}vWvo$%FU>x(36{gY_7P>yjE^>qe20>iZ*I->Y>F=kC`2!iDImzqoj#6+aXS} zI{c>ObsdJiX<3%r zS`*7oDHVlQ+ifYa)cLM1na-v~;@GjefoD%8u;I(ZQt~lBA{qQXeVQlbRpAtVwA$Z( z@Pkq1#?R}SQAV`Aw|e)H$}53}cPiXH$uXZ zAk=QX4y(tYF*q9k)Ob^nDe7dxc1xBlF@fP~LWFQWtl`uoxGAxEquuFJAG(UH<#H^< z71go0ZtARRKaFoqv5=!6&m$+^ghxIT?~zHEiBfmIU45Uel3zVJzbb|N>eNX7oVq$W z`Y!02c&cw^6HxE$)Tm$0PL66)9A;8UyWhyBMrZq0_ROeX&!$KHi__WZQ6|xBIO+UK z3A?R#xj}k!av~!3-L01O^qUMG!`B&rVgI412OdCUrP!Zp0zDhyc}z+5pv=rB6A1+r zZH`mqgPnp9$P;M3u@0KpxilSyu(*)b7I=h>11`aoasZ28I^$4TJ!y>NZ}sGDgm~C= zc_05Dj{!a=pL>WSE0V;kiN0Xb`5ALk!iQOE`Dpm!w?D8yE(2iQnfTsu;(rvlNWOSC zBf#r6*|lLttRP@98RnDU76aC04>hXM3Kr4(KlE0;xBim~f#9)mVxOa7zcPH3%gv~= zPRotfyr~cVMy&b4+R5W<(ak&o*!RT9{`k4XjR!xmhhnyUi&renL8IZyPGhoCMuK;z4WZljC9RX213KTL=FmgdS67;QyU zZJaL})3_NBY*!0wONKD!+-PmIy22)Ci{1{}7ED$F?#OD^3N3sznio~7a14o2kL$c|&%J~{Bg9t`&01oZglEhG<_Xug02p&#$*>{@)*a;V^>s(OB zA&iEYL+PSc^hKFRLebHPMWT&_a>P3f(tk^!4xOVPiEa#uZeUA+1eXA6fM*bY-a49N z8sg<#bMI)ly?dPEiZ=VfeN+JJ~uLMM2;G>b$2{|Ou7oO*D<@aBXDq>vbw1yvy4fwpz>P_zg zq)B}vRXO#Ah>OIyG->^vFNGdYo%ZP``LR6W$rHkOD3Sy$PG+PUzsv2%nPuL#_!uz5)Siwi}iCx(Lep#cU$52;8xf@-PxTpS8yQxNJ0 z+b*|F82nPmW&~iij^L{5xE-thEm)fsDcHzr_|}S+mf4xATSFENiW7W=%G_wkBLv%9 z$jyl~jRsW;_oxJphLAtl<0pKeGQkd+Sn_QhZHq&3=9@KYlldm!UUjN%*KrC}vu$-b zB2vq?c%F!e28$&dr3Hm%8!K@^nXwex8XMLbu_32XRJK{cFAg`HPL~-*T)=05LQyki zAcUh(N=JT$%#Xf=z_2se0kfA``SL+;pXmVlKBgs86%xpAn$o?P~GdJK^bp(2mv3oMQo;f(AzzHdGFvRY+=!x#WV!fY zcs}SkdwZ`OA~lOQRENC-@wkHH$ygh{th}-J>VTE_h`s&S8G@N|V;8yDBSuDk+zrGK zjGJl$jwi=OgzfGfv27$;2R8@1Je!K$!WtV3u~u4PDxS<#m$j_DL$B4``QNNE%H{n-GT8Gaxpy#MvJFp-^93(fj&;|tG+Dyq)jGcd7RvoU4K2QkVBEp z7vh_rjc-=A9GNF?{iNJ$;=k3)<2rw#I?s(H5bP7+J5GEgd;a`5ajXV0IY?1T7<@J3 zPvkHVMH1@vt7_(x-o~bra`tp8Nz}akf*kaB^83C1`%itsi*A2)tdjsNEhShwS`UE8 z5|klqsh|}yFB9?-B^UweB}y>9q~PHJ05ozy(Ko8=)>eT$M$ylTP!iuy%oN8!pMZBo z_zt<8fz(~}eFg$3xpPrJDEL`?194Nh&vygdzR5nmIpl(xox0oJfFbuB#8`*F^|21! zBVM>8;OywIoEz%A5Q9gM(`C5II|H#0m5w$SON~uc=-wj>b9yhoD1SjtdzyU;^bF;q$O3 z>AA?|k?Yd_DbLg&jygdq0tX5H%)^g9!>txQ8ntpvdFBFJP4lssdlOh~)T)VNjl8))v2gm2R z*N1DrHtg+QA0X<%%B`INC;lPw=GTs}@KNvJI)WwcagVT#gTelQ3Yua+IR+L6V<5gA zlr^P-5WXW1F5{pgbIeYcw=}KOy>H?lkgf2&uW(uCXW(ze&&*a*{A#2Sw9h0bh2M4V zP75zWjv*t*pbGQgq$|cdNHmEhY}8A{Ea`a2f~)oKi63ixc{MXI^~J2co)PV+Km`{- zl8>Y9s5$jSCuB;r1*xSX0R%J_oeA(1Y!s=1F@vL#Pm$3s47ZZIP)r?=M~$L!F&<1; z!vnE9Sw1l!P|i6msOI^LT(!5$aT*VxNmTX^2Cr`K-8z&ZwYGqo;U@3oBX%KfsG{V$ z!@GoC-0%xxQXNV$N*M)i$*2tz z!@48i`ibXznx9XGvD1X&L=vka+onjgd4k>Z%z|t@l#)r~KtQG15OlV-up!*DhXQ~gM?pqhCg7!bfy#Y>^(rml^hjc7g7Ywzg)?7GNwpPh{6HQ%ofOPX zh)l^nng3{*!~WVkHnR1J5%qkZJ|Ba{NhBH)x^XpzCy7FY2&;LeUN!QN-osrW0yL`$ z||djHFQu|E{0_b){Rin=T%fc{Pd;#}z1^-$%K}sfo-> z3)P!VG~p%)Pk*%dO%=Z&Am^hVAa1ZIt8$9kB+rB3r>Tv{u(UEBQ#P4B$;T-Kw<5aZoD4;u9Fb1C8H$i+QLphcmJT#5pi?rkRIAGGNs-uB3HMR3x-hbZv9s#}v-i*3edJst zwRQZzEmHrNvhH;D(a}13rvCLs_bk6l@gHvX-tGTHhTqTD6S0W{g-ceuQQtxa#gj;x zGT~)rEjCutP{xxIs=^7LN(l?CgUfKZRS}=h@^_*ZKs-|8MV~gV!THJ|go4+KnV-C? z+FiF*B~uN_piZ9Ji|T-eDtTNhYJqfTi^BqCvEt@0#}<-hdMuP!iha=+(=X5*P?$#* zfSiK^wnOQsgTdj^9>C@p9`IvSseUWaAFgoxb7@TNs7|WXu0(40#Z@f_!TeQJZKn7z zDcN*X$)^9GmF#CTnKNsD>}H@LAL8@O-QPO5k^0B=wfmV_cY5}vY3SA?Yqx(#=u>92 z-rq=aHTsv4o4I%U7whg>nt0Y%y|Ng3wh8#`p8a?lX|MPH-93Bn_J47B>^aPkUP;>< zhQ~mN<9Y=+9Isa~I1EWjPYXT0(tN#&Qz7_sp+Y)E{BM~c0Gy$AWk$jYzm9HQf77y~S zOc!1w+YLrfszjB@gE*4Q0U-fvh&Uk`0W9J`)pQ&fK)M|!(6!3iht1L#^6(6C8EAHW zz@uQq%ZG?YVy%w{{#4o-DZ5Q>#Hore>-im6BBY`5=?7k8q*eDJ6W4jwUQtkz?fi^B zX;0k!a${X~BnVZV6VYrYc~9OOw38oI*2r6q9IxrYj~m2@_1O=7hi#{>+`gUQmn_DV z&CfG>C1l?far~k&Kvgv6GAWKs+TE>P`;7@lm6q zgt(LQdE%q*JN(7#g#1?q`}qtoS}M#;LK+a&Vt#0X%^^C*r|-+ms2OqVSKbpR)X|E#=7FVC#dS@ zhax!^|B5QkBJwU2vGU9Gii)ZObi|ouiUo41Z>RQM|R8!CpZdzXVHmbb37+;*4c+bGPmYn`a3&awQ4 z36I`MD`NA+y>M9A|1_u77C}?NBzr69*QcKBE2&i$3I-hPd8z_#PzLATL zyJ|X@%(mQTL0Kks5ksIt*@~MPSd_0xGxG9=<@g-jE5)$!nT$81ol}_Qf0sS~Jj>bJ z9PGV5zk_dfv$u^K2)n)AYe0jycBv?HnB%92Qh_H7A{N$1L8@>3`njCKnMPOZrPow7 z6?G80-W*^ znF37;v{Mm7&Q!Z44=?RlaHvdd2b(BM9Bfdj%3zzHUkkm#kNbmz{R>UOR*$fX0kp>; zZVW9=z%4i*>Mjo{Tgfhj&qz&U`=>VV< z63aA7Cn%fXKVFvGKiIyBvg)gY=lC5))JtydBf#r}!P_sh*9Po5N;14mcz}`$ad-dL z;SfCLs?7f&OTD6dMg8T;oVY2I=KIWlLmCuZz%segvHT00F8=6)7KdO z7O?0ue5c1IaH*9`2`vr22B1m~$Ee6A_lgzcHoni z=Gk7aKRO#_lTYmScjg~Itu1mEcz?$D38b%YHpS&vDVV`i`_@=`j&DirmV*k)m~sm! Pe9PDfe&vli@sa*NbMSuD literal 13365 zcmc&*U5p#obtbv%wZz&RuEZF^){U>}*5L+ThBGAhhb|J%a)+APo#jv@SJK)^Y)Yg> z%B$T4cV*X20t9Vdiaxbyn;=FSz(CTVg%RyqDj>z}py-nX6nSVLlA?X-W1sf9DB6Da z-g9S$A2t&pqcm-#Pa>yKdI(y17`h9dpsH*If3whEd%#E}AT3*V|^( zv0IG{`&`pB*4xIKGgiE2v`nVu7m~>=AEAn7ZF8Mv^p(Y}&TvuB>m{ZY%X*=#tz=j> zbAA8T!C<%7W&3+9!@hoH%UpNNop1i;?%>+6GyLF7=xn#;-$l!AwcX}U?sZ*XUSP?L zz7!g>P|oXR9b;Y__WVJ6zjZJ?{EagEiWnxhU0-*#@Jp^~HXNgBR^4@z4fZf*ZQF5J zc;H+vmtoz`5vCaN!9pRk@Kh^(`jxR#VYQ^OGGF-O+727udY2{3Rm-SfG+T>pmt|}9 z)?*hDUg-iWH=5>U+ud$0u45ZmMhi=9rCiFFi-inJPEHQX9UM)Hy|j>|571tim(6-R z2bF0wp&YEdzLLx~n8qBp${H-sgaX+pXtkjUTg*n8=(E6Ldx=;qF~{PSnHc_g7~AJR z^fD8EnGU}s-c9m$&p*rmUag$vKRcp<_+yE`c3l1>#Lx3*c%%M&DwfsqC02FoRin+8 zR>UlqG*wV4v3lErpqtpz;xZFD6J94P6e9|CEuwH`vJ8W=)m4`HW`?cmEc3+-TPZ>1 zGi(`!W&9Lb=Id=M!-^WqEM}O#B7QW{Xk6~b`nnQ!p1IDtkSV0AN$CnXx6P|#D{pdLM6N~!$CEuquGxw%$(&IE9e@+c&esS~k5&dt@vGmm zPOi!?o-{^BKdGoeFd#jOvDGJ4+0Xe$&Rd39&-gbC^{M%^b^gx0(VaSZfj%FuGN3s+ z^o4Z4;Wnha_0p;;t8Q;?JFu~wsA(}RqPh0?<}mmzb88JcQpm4Dcf`)ILSFZu^_9@` zaw#Y;Mk-}tX;K53u1B`j3Q=wIMQB)Ww|CTI+G>EjMl-vGT><(L#iI z=Bn;i!)@7sU4e?eZMH^@GqwobPxO_3cJIDiF}jJ9&w5>9M*VKLYe=yBR$S;Xbg`%_ zwIk7UI4G3H3Z*KtCDt^z+{-3rjqNX2;c)j42S+`;`_mrRUYc>BasKS}0Kzq3_zEUJ zC5?zoX_gFdc1>7ydUmu{Ld0}>y25R0SxvcRIt|;bnk|TpqcbK~Tw#7G$Hd94#fm2j zwWzJrqPj=)9+8RKKa%4Uc9GTK){JV~cI$Z5SlzrLVE__(HI|4ajP6MWn|i^kH10j? z@9QPCufmBz9ur&0_Z5C%)aT0iV5-{kW44pDBG+iT4W)fLpVei<**1lnXqoNMdtR9X zCVWL~sqhm&6jS}S_-mY$*Tlo=57)Yb)9-kdn?I|iyp$~aXzkwF%DbV052fdjZPvsB zJ*;r0z`kNTj(O2=az^ta76DVNI;PR&7UkAz;9d+;#M1a*jTePCMXgNYFKx*(TQ?mO zsvuPe>%$n%I&qH@tJ%#~ThyVd$QmxEDmE)H$E@R5XI1MJ{Ay|oIZ5%IXY2-O${DG| zLMV6NsD8rMgd04$utxfPZN{U=nQPPD+Yn*wrLK{VdEK@2jMuHEr@eLB`ME^g>e}gq zcdl!u&v@NhI_Y&U&ZcJ}pStZNvmgSFS!=UWo_%9_YC^-?I}P)dZ?IxMWFEk)z*YdH z!Alsld~^357zr@E+<9;XMaeAg@ae@$fHKewHBN6Ne2$JUCM#&RRJ#Vmjk$md7KoTM zAZ|`dyZ)3?NDyvn8+#@q0Fp8iOVb${dJg^kHcylC~)FM8Ia*J3wMKeqa^w{`Pp zuf;s$lV6piY}lLq`T2PoGBux0d5$GpIs^IPJ_p%VKjdjy?iIcroJ$a<)am2Q%+0-1sJD4+OiK#GP2T^{ZZ7XH1KPw6#%2HMqAptRw}B`HBCTK z4%%ea*K-a0vFjHRP;h%jphzr+BN;l&AVY(KPfSH|n9-K`Wkv2+mgG8?h{=q!lS)kL z1vk0GeTdX=y~L+L&lqmP9GQlpRSOMZ?LX(aHjgt8824mhG4wrNFF%JR`BTD16hSz^ zH4xL?K3afi@+?!|Kk5(mZm^?$c6+b8kH7*k#LoV0cD=Lr`6E%rI*2ec|1of-~y0CG4Ycx^t)sSq^t9i?Rb4sQ)MsIBPOZO z>7UW>cRix-DZij1M^FXd8Ef#%zN;_&z%mFRRNF)$;#qE=fKQ$Gn%}~QLyU*C4nI&9Pox>x7Fp59| zx;Ucth1Dfx9tEA0b+iGLj-q9K+2?9pLqhCUU&_OSyDhW!Wu_NPq_e!4D){i1G%~PLAttBAzOZe!pQf4XOb*4ENyyJk=oA6s}RIf(R>I%*ini z$-`xKy=6Axg8i1QYSVR`T-9irDE1pGm@5YJZtzq~PQt7jlbV6a6e5GBf5(7T3laGa zD8MSZ?(QG<-a&>B2!^qny@TD(^%7PCFG~9G5ig2p~Tr~&ez7dkT#{DHbhqX_a*1}gMMn`<53zU+0LUh z=*IWQY7~c2EQKKKC-keJ^Fz^~yP{#6Z&l#UuUPJ_h$?n#w*RONY(gwcJDgYj|fPpIY( zk7K{D8ofk~lz=4k${u&R)C!^?@!YvYMSo7eA9X)@;t(&7jV}nNkhEl--e!pHl@K`* zkSS~`<;l)Qu)PGAK-gYXIg*hEMP#s4gCJ1nx*7uiV&vFG=sR^Sl%hUffThwbWnw!Q z;CTUQp3%Ah(RElY)oq$PIlFGRZNsS=@HPRX+^*sbLIN-nw$vPrR3V&NXpDB#sJCiv za|=-8i%zVP92Q)U?*)_x3D~k|N!|i@MguF+1Iwg|hxzLgrN2g{?Yk;|u;SL89X7^F zi>pz5vKZ+jittAQ$BTe5f#XFEhJNmc6~GiHd1wKIUczL7!+veB*G0}7XAvRHE$ET% zhl6{7#CqiLI$$z{&pJYXK=9yb(Alka4nQ98zI|}e8&*4q@E7<{+1YnClB*Hay@>2- zh7ArmB@g)q94i&!Wi!oQcVCeBevfso9}UDoSP_R2A&)Uc8^PoY(5T4rl9r69IDoHQ zzP=!p|AIiCze5EPCW z_;hgYManLin(%()!;rr)T5VoZHy`i0Vt<%uXP(or_OPC+FOol_9r) z*%Y;TXvI%Y+OoZa1dAl+7Sj5%S2#+i%G3k-u)&8{JwsjJOk0~NS&oB}@Bj#^H5}SZ zTDAsgi755Sw-8da`HupHjFQIyfU_SJgK0<(`OiQj{}~z`JO|~-0jT28IRZ3Um5QS+ z3UfoB35TGZoM)xG7ZSVAy+auz&lI0#FV9AhXRYd5b-$8+d!B-R}*1umI2_ zrQ+}R!3#wruKS2r*)^_r@AZa(Iq5veE0gZKzb zD2|YaG?W(R zdoW69BHyMQiz_U=MmA$6cDoU%MitsQlCDl&ZwFT1){u*B_+LaQ`Bk7cWT!TuX?LD^+eJ{Y~z8kBygMMMGaF89<6I~bL1 z>ZjsgjlY%hwh~|aQ`a6{{?zx9&?wvhv zC9WR-XIog@Tj%QO=e!M6%>2U}Zi*j;|C4*}{+)k@2Mcn*LWDxDxyxqLuI+&G`iMj6 z1bz}Foz8d`Nh|oYS=l8|gN`bfgDXWy;vgkDTF!%AkRU2l{b82t{EVQ9yF>+FPvuVY zQ$lb<)un2+-A0uIA?Tt!Vfc;7=R({g)DCLc=&}t?GQ9L z5&(SSqH=|Be%l--ahmNPu(t4s+#&u3jDO4p`n2t9{1{aUizIYmPM?Nd&)G6@cV7Cx zRQ!QWAyxd-%7$=4p5qst{@50>-kkqwzf1lMUg*w!9QgZE^}*dIZT>NIAbRfYH3sca z#uQGw2R0ViV~~r2C_@1f4kA=&xK6Mt8RBS#t zqii-DPImZ!_*kTOh{!L8=M~N|(Uf$NCLY^ZpWE3aO_!?<)wVtlxUWwYyM)d7#j zO=%NXgerU#T;66#;Iui?v8;Ku;WpbW+r(Ar=6Y+=Q7o|RmH}gJCDn9!4oHI2Ma;~? zs_}PW0S!a6hwl#-ck#<^bp|*H+Ux9H2fp9l z6ZyTv3}3~h6gbD8a6tjUsk-sYdent)nz(OB_tjK-PAx=S1{)ooT2i5cwIVzl{Sek-~ZvSppnc`RmE?1@ZMr@rX7ws04IbE;@zE#YG|Nsb%GRWh9I$a z`v63%i|re{!`|<)8_3=9eDV;vH?emIw-5VR1UFRN823GA`>MLzyC9DvlVX-%B)Gsq zx53SWWiM^JxUM61nWn5}Cu_3e&YjtmckiC!H#ydU>m&^&Z7}>9+zq4VXf-hje&LMY z_%oZRmBu~NnJxs1>dDSX3;CTVYgaTEDIT>TEDIT-LOOKS.;403 156185 +(FILECREATED "24-Apr-2025 23:47:54" {WMEDLEY}tedit>TEDIT-LOOKS.;425 159446 :EDIT-BY rmk :CHANGES-TO (FNS \TEDIT.TRANSLATE.ASCIICHARS) - :PREVIOUS-DATE "28-Mar-2025 14:24:25" {WMEDLEY}TEDIT>TEDIT-LOOKS.;402) + :PREVIOUS-DATE "24-Apr-2025 16:05:02" {WMEDLEY}tedit>TEDIT-LOOKS.;424) (PRETTYCOMPRINT TEDIT-LOOKSCOMS) @@ -42,7 +42,7 @@ (VARS TEDIT.CHARLOOKS.FEATURES (TEDIT.DEFAULT.FMTSPEC (\TEDIT.CREATE.DEFAULT.FMTSPEC)) (TEDIT.FACE.MENU (\TEDIT.CREATE.FACE.MENU)) (TEDIT.SIZE.MENU (\TEDIT.CREATE.SIZE.MENU))) - (FNS \TEDIT.CHARLOOK.FEATUREP) + (FNS \TEDIT.CHARLOOKS.FEATURE.CHECK) (GLOBALVARS TEDIT.CHARLOOKS.FEATURES TEDIT.KNOWN.FONTS TEDIT.FACE.MENU TEDIT.SIZE.MENU TEDIT.DEFAULT.FMTSPEC) (ADDVARS (FONTVARS (TEDIT.PROMPT.FONT DEFAULTFONT) @@ -145,8 +145,10 @@ (CLSELBEFORE FLAG) (* ;  "T if TEDIT can put selection before this char (for menu fields).") - ) - CLOFFSET _ 0 (INIT (DEFPRINT 'CHARLOOKS (FUNCTION \TEDIT.CHARLOOKS.DEFPRINT))) + CLCOLOR) + CLOFFSET _ 0 CLCOLOR _ 'BLACK (INIT (DEFPRINT 'CHARLOOKS (FUNCTION + \TEDIT.CHARLOOKS.DEFPRINT + ))) (ACCESSFNS (CLNAME (fetch (CHARLOOKS CLFONTUNPARSE) of DATUM) (replace (CHARLOOKS CLFONTUNPARSE) of DATUM with NEWVALUE)))) @@ -204,7 +206,7 @@ (/DECLAREDATATYPE 'CHARLOOKS '(POINTER POINTER POINTER FLAG FLAG FLAG FLAG FLAG POINTER FLAG FLAG FLAG FLAG FLAG FLAG FLAG - POINTER POINTER POINTER POINTER FLAG FLAG) + POINTER POINTER POINTER POINTER FLAG FLAG POINTER) '((CHARLOOKS 0 POINTER) (CHARLOOKS 2 POINTER) (CHARLOOKS 4 POINTER) @@ -226,8 +228,9 @@ (CHARLOOKS 12 POINTER) (CHARLOOKS 14 POINTER) (CHARLOOKS 14 (FLAGBITS . 0)) - (CHARLOOKS 14 (FLAGBITS . 16))) - '16) + (CHARLOOKS 14 (FLAGBITS . 16)) + (CHARLOOKS 16 POINTER)) + '18) (DEFPRINT 'CHARLOOKS (FUNCTION \TEDIT.CHARLOOKS.DEFPRINT)) @@ -341,7 +344,7 @@ (/DECLAREDATATYPE 'CHARLOOKS '(POINTER POINTER POINTER FLAG FLAG FLAG FLAG FLAG POINTER FLAG FLAG FLAG FLAG FLAG FLAG FLAG - POINTER POINTER POINTER POINTER FLAG FLAG) + POINTER POINTER POINTER POINTER FLAG FLAG POINTER) '((CHARLOOKS 0 POINTER) (CHARLOOKS 2 POINTER) (CHARLOOKS 4 POINTER) @@ -363,8 +366,9 @@ (CHARLOOKS 12 POINTER) (CHARLOOKS 14 POINTER) (CHARLOOKS 14 (FLAGBITS . 0)) - (CHARLOOKS 14 (FLAGBITS . 16))) - '16) + (CHARLOOKS 14 (FLAGBITS . 16)) + (CHARLOOKS 16 POINTER)) + '18) (DEFPRINT 'CHARLOOKS (FUNCTION \TEDIT.CHARLOOKS.DEFPRINT)) @@ -505,11 +509,11 @@ (Helvetica 'HELVETICA) (Times% Roman 'TIMESROMAN))) -(RPAQQ TEDIT.CHARLOOKS.FEATURES (DEVICE FAMILY SIZE FACE ITALIC WEIGHT SLOPE BOLD EXPANSION FONT - INVERTED INVISIBLE OFFSET OFFSETINCREMENT OVERLINE PROTECTED - SELECTPOINT SELAFTER SELBEFORE SIZEINCREMENT SMALLCAPS - STRIKEOUT STYLE SUBSCRIPT SUPERSCRIPT UNBREAKABLE UNDERLINE - USERINFO OFFSETTYPE)) +(RPAQQ TEDIT.CHARLOOKS.FEATURES + (DEVICE FAMILY SIZE FACE ITALIC WEIGHT SLOPE BOLD EXPANSION FONT INVERTED INVISIBLE OFFSET + OFFSETINCREMENT OVERLINE PROTECTED SELECTPOINT SELAFTER SELBEFORE SIZEINCREMENT + SMALLCAPS STRIKEOUT STYLE SUBSCRIPT SUPERSCRIPT UNBREAKABLE UNDERLINE USERINFO + OFFSETTYPE COLOR)) (RPAQ TEDIT.DEFAULT.FMTSPEC (\TEDIT.CREATE.DEFAULT.FMTSPEC)) @@ -518,9 +522,31 @@ (RPAQ TEDIT.SIZE.MENU (\TEDIT.CREATE.SIZE.MENU)) (DEFINEQ -(\TEDIT.CHARLOOK.FEATUREP - [LAMBDA (P) (* ; "Edited 27-Jul-2024 17:33 by rmk") - (MEMB P TEDIT.CHARLOOKS.FEATURES]) +(\TEDIT.CHARLOOKS.FEATURE.CHECK + [LAMBDA (LOOKSLIST TSTREAM) (* ; "Edited 22-Apr-2025 20:38 by rmk") + + (* ;; "Checks to see whether LOOKSLIST contains any invalid character properties. If so, then if TSTREAM is provided, prints a message in its prompt window and returns the (non-NIL) list of offenders. Otherwise, causes an error.") + + (CL:UNLESS (OR (type? CHARLOOKS LOOKSLIST) + (FONTP LOOKSLIST)) + [for FTAIL on (MKLIST LOOKSLIST) by (CDDR FTAIL) unless (MEMB (CAR FTAIL) + TEDIT.CHARLOOKS.FEATURES) + collect (CAR FTAIL) finally (CL:WHEN $$VAL + (if TSTREAM + then (TEDIT.PROMPTPRINT TSTREAM + (CL:IF (CDR $$VAL) + (CONCAT $$VAL + " are not valid character properties--aborted" + ) + (CONCAT (CAR $$VAL) + + " is not a valid character property--aborted" + )) + T) + elseif (CDR $$VAL) + then (ERROR "Invalid character properties" $$VAL) + else (ERROR "Invalid character property" (CAR $$VAL))))]) + ]) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -565,7 +591,8 @@ CLNAME _ (FONTUNPARSE FONT]) (\TEDIT.EQCLOOKS - [LAMBDA (CLOOK1 CLOOK2) (* ; "Edited 2-Jan-2025 21:01 by rmk") + [LAMBDA (CLOOK1 CLOOK2) (* ; "Edited 15-Apr-2025 16:45 by rmk") + (* ; "Edited 2-Jan-2025 21:01 by rmk") (* ; "Edited 18-Oct-2024 22:29 by rmk") (* ; "Edited 11-Aug-2024 20:41 by rmk") (* ; "Edited 31-Jul-2024 00:05 by rmk") @@ -604,6 +631,8 @@ (FGETCLOOKS CLOOK2 CLOFFSET)) (EQ (FGETCLOOKS CLOOK1 CLSMALLCAP) (FGETCLOOKS CLOOK2 CLSMALLCAP)) + (EQ (FGETCLOOKS CLOOK1 CLCOLOR) + (FGETCLOOKS CLOOK2 CLCOLOR)) (EQUAL (FGETCLOOKS CLOOK1 CLSTYLE) (FGETCLOOKS CLOOK2 CLSTYLE)) (EQ (FGETCLOOKS CLOOK1 CLUNBREAKABLE) @@ -612,7 +641,8 @@ (FGETCLOOKS CLOOK2 CLUSERINFO]) (\TEDIT.SAMECLOOKS - [LAMBDA (CLOOK1 CLOOK2 FEATURES) (* ; "Edited 2-Jan-2025 20:31 by rmk") + [LAMBDA (CLOOK1 CLOOK2 FEATURES) (* ; "Edited 15-Apr-2025 16:42 by rmk") + (* ; "Edited 2-Jan-2025 20:31 by rmk") (* ; "Edited 31-Dec-2024 23:59 by rmk") (* ; "Edited 31-Jul-2024 00:06 by rmk") (* ; "Edited 24-Jul-2023 17:17 by rmk") @@ -649,6 +679,8 @@ (FGETCLOOKS CLOOK2 CLULINE))) (UNBREAKABLE (FGETCLOOKS CLOOK1 CLUNBREAKABLE) (FGETCLOOKS CLOOK2 CLUNBREAKABLE)) + (COLOR (FGETCLOOKS CLOOK1 CLCOLOR) + (FGETCLOOKS CLOOK2 CLCOLOR)) (FACE (EQUAL (FONTPROP FONT1 'FACE) (FONTPROP FONT2 'FACE))) (ERROR (CONCAT F @@ -727,7 +759,8 @@ DEST]) (\TEDIT.UNPARSE.CHARLOOKS.LIST - [LAMBDA (LOOKS) (* ; "Edited 29-Dec-2024 12:14 by rmk") + [LAMBDA (LOOKS) (* ; "Edited 15-Apr-2025 16:41 by rmk") + (* ; "Edited 29-Dec-2024 12:14 by rmk") (* ; "Edited 31-Jul-2024 00:06 by rmk") (* ; "Edited 24-Jul-2023 17:28 by rmk") (* ; "Edited 11-Feb-2023 14:51 by rmk") @@ -738,23 +771,31 @@ (\DTEST LOOKS 'CHARLOOKS) (LET (NEWLOOKS (OFFSET (FGETCLOOKS LOOKS CLOFFSET)) (FONT (FGETCLOOKS LOOKS CLFONT))) - [SETQ NEWLOOKS - (NCONC (if (ILESSP OFFSET 0) - then (LIST 'SUBSCRIPT (IMINUS OFFSET)) - else (IGREATERP OFFSET 0) - then (LIST 'SUPERSCRIPT OFFSET)) - (for PVAL in (LIST (ONOFF (FGETCLOOKS LOOKS CLINVERTED)) - (ONOFF (FGETCLOOKS LOOKS CLULINE)) - (ONOFF (FGETCLOOKS LOOKS CLSTRIKE)) - (ONOFF (FGETCLOOKS LOOKS CLOLINE)) - (ONOFF (FGETCLOOKS LOOKS CLUNBREAKABLE)) - (ONOFF (FGETCLOOKS LOOKS CLPROTECTED)) - (ONOFF (FGETCLOOKS LOOKS CLSELAFTER)) - (ONOFF (FGETCLOOKS LOOKS CLINVISIBLE)) - (FGETCLOOKS LOOKS CLSTYLE) - (FGETCLOOKS LOOKS CLUSERINFO LOOKS)) as PNAME - in '(INVERTED UNDERLINE STRIKEOUT OVERLINE UNBREAKABLE PROTECTED SELECTPOINT - INVISIBLE STYLE USERINFO) join (LIST PNAME PVAL] + [SETQ NEWLOOKS (NCONC (if (ILESSP OFFSET 0) + then (LIST 'SUBSCRIPT (IMINUS OFFSET)) + else (IGREATERP OFFSET 0) + then (LIST 'SUPERSCRIPT OFFSET)) + `(INVERTED ,(ONOFF (FGETCLOOKS LOOKS CLINVERTED)) + UNDERLINE + ,(ONOFF (FGETCLOOKS LOOKS CLULINE)) + STRIKEOUT + ,(ONOFF (FGETCLOOKS LOOKS CLSTRIKE)) + OVERLINE + ,(ONOFF (FGETCLOOKS LOOKS CLOLINE)) + UNBREAKABLE + ,(ONOFF (FGETCLOOKS LOOKS CLUNBREAKABLE)) + COLOR + ,(FGETCLOOKS LOOKS CLCOLOR) + STYLE + ,(FGETCLOOKS LOOKS CLSTYLE) + INVISIBLE + ,(ONOFF (FGETCLOOKS LOOKS CLINVISIBLE)) + PROTECTED + ,(ONOFF (FGETCLOOKS LOOKS CLPROTECTED)) + SELECTPOINT + ,(ONOFF (FGETCLOOKS LOOKS CLSELAFTER)) + USERINFO + ,(FGETCLOOKS LOOKS CLUSERINFO LOOKS] (* ;; "Font properties. Don't show the separate properties if a font class, just the class. And if not a class, just show the properties, not the font. So there is always a consistent picture.") @@ -771,39 +812,41 @@ NEWLOOKS]) (\TEDIT.MODIFYLOOKS - [LAMBDA (LINE STARTX DS LOOKS LINEBASEY) (* ; "Edited 20-Nov-2023 14:18 by rmk") + [LAMBDA (LINE STARTX DS CLOOKS LINEBASEY) (* ; "Edited 11-Apr-2025 17:32 by rmk") + (* ; "Edited 20-Nov-2023 14:18 by rmk") (* ; "Edited 27-May-2023 12:11 by rmk") (* ; "Edited 24-Sep-2022 11:12 by rmk") (* ; "Edited 30-May-91 21:45 by jds") (* ;; "Modify the screen to allow for underlining, etc. Also, restore the vertical offset to the baseline.") - (LET ((CURX (DSPXPOSITION NIL DS)) - (CURY (DSPYPOSITION NIL DS)) - (FONT (fetch (CHARLOOKS CLFONT) of LOOKS))) - (CL:WHEN (fetch (CHARLOOKS CLULINE) of LOOKS) (* ; "It's underlined.") - (MOVETO STARTX (ADD1 (IDIFFERENCE (IPLUS CURY) - (GETLD LINE LTRUEDESCENT))) - DS) - (RELDRAWTO (IDIFFERENCE CURX STARTX) - 0 1 'PAINT DS)) - (CL:WHEN (fetch (CHARLOOKS CLOLINE) of LOOKS) (* ; "Over-line") - (MOVETO STARTX [IPLUS CURY (SUB1 (FONTPROP FONT 'ASCENT] - DS) - (RELDRAWTO (IDIFFERENCE CURX STARTX) - 0 1 'PAINT DS)) - (CL:WHEN (fetch (CHARLOOKS CLSTRIKE) of LOOKS) (* ; "Struck-thru") - (MOVETO STARTX (IPLUS CURY (IQUOTIENT (FONTPROP FONT 'ASCENT) - 3)) - DS) - (RELDRAWTO (IDIFFERENCE CURX STARTX) - 0 1 'PAINT DS)) - (CL:WHEN (fetch (CHARLOOKS CLINVERTED) of LOOKS) (* ; "Inverse video") - (BLTSHADE BLACKSHADE DS STARTX (IDIFFERENCE CURY (FONTPROP FONT 'DESCENT)) - (IDIFFERENCE CURX STARTX) - (FONTPROP FONT 'HEIGHT) - 'INVERT)) - (MOVETO CURX LINEBASEY DS]) + (CL:WHEN CLOOKS + (LET ((CURX (DSPXPOSITION NIL DS)) + (CURY (DSPYPOSITION NIL DS)) + (FONT (FGETCLOOKS CLOOKS CLFONT))) + (CL:WHEN (FGETCLOOKS CLOOKS CLULINE) (* ; "Underlined.") + (MOVETO STARTX (ADD1 (IDIFFERENCE (IPLUS CURY) + (GETLD LINE LTRUEDESCENT))) + DS) + (RELDRAWTO (IDIFFERENCE CURX STARTX) + 0 1 'PAINT DS)) + (CL:WHEN (FGETCLOOKS CLOOKS CLOLINE) (* ; "Over-line") + (MOVETO STARTX [IPLUS CURY (SUB1 (FONTPROP FONT 'ASCENT] + DS) + (RELDRAWTO (IDIFFERENCE CURX STARTX) + 0 1 'PAINT DS)) + (CL:WHEN (FGETCLOOKS CLOOKS CLSTRIKE) (* ; "Struck-thru") + (MOVETO STARTX (IPLUS CURY (IQUOTIENT (FONTPROP FONT 'ASCENT) + 3)) + DS) + (RELDRAWTO (IDIFFERENCE CURX STARTX) + 0 1 'PAINT DS)) + (CL:WHEN (FGETCLOOKS CLOOKS CLINVERTED) (* ; "Inverse video") + (BLTSHADE BLACKSHADE DS STARTX (IDIFFERENCE CURY (FONTPROP FONT 'DESCENT)) + (IDIFFERENCE CURX STARTX) + (FONTPROP FONT 'HEIGHT) + 'INVERT)) + (MOVETO CURX LINEBASEY DS)))]) (TEDIT.NEW.FONT [LAMBDA (TEXTOBJ) (* ; "Edited 29-Jun-2024 16:31 by rmk") @@ -836,7 +879,8 @@ TEXTOBJ]) (\TEDIT.GET.INSERT.CHARLOOKS - [LAMBDA (TEXTOBJ SEL/CHNO) (* ; "Edited 26-Nov-2024 04:58 by rmk") + [LAMBDA (TEXTOBJ SEL/CHNO) (* ; "Edited 22-Apr-2025 10:28 by rmk") + (* ; "Edited 26-Nov-2024 04:58 by rmk") (* ; "Edited 23-Oct-2024 00:04 by rmk") (* ; "Edited 31-Jul-2024 12:10 by rmk") (* ; "Edited 17-Mar-2024 00:27 by rmk") @@ -849,8 +893,6 @@ (* ;; "We want to get the looks of a selected character. If point is RIGHT, that's the last character of the selection. If LEFT, the first character of the selection.") - (* ;; "Return the looks at SEL, or defaults. Reset CLPROTECTED if need be.") - (LET ((PC (\TEDIT.CHTOPC (IMAX 1 (IMIN (TEXTLEN TEXTOBJ) (if (type? SELECTION SEL/CHNO) then (SELECTQ (GETSEL SEL/CHNO POINT) @@ -862,6 +904,9 @@ else SEL/CHNO))) TEXTOBJ)) LOOKS) + (CL:WHEN (AND (PPARALAST PC) + (PREVPIECE PC)) (* ; "Get the looks before the EOL") + (SETQ PC (PREVPIECE PC))) (SETQ LOOKS (if PC then (PCHARLOOKS PC) elseif (FGETTOBJ TEXTOBJ DEFAULTCHARLOOKS) @@ -901,7 +946,8 @@ (DEFINEQ (\TEDIT.TRANSLATE.ASCIICHARS - [LAMBDA (TSTREAM NOASCIIFONTS) (* ; "Edited 30-Mar-2025 22:00 by rmk") + [LAMBDA (TSTREAM NOASCIIFONTS) (* ; "Edited 24-Apr-2025 23:47 by rmk") + (* ; "Edited 30-Mar-2025 22:00 by rmk") (* ; "Edited 28-Mar-2025 14:24 by rmk") (* ; "Edited 2-Jan-2025 23:30 by rmk") (* ; "Edited 30-Dec-2024 21:30 by rmk") @@ -915,7 +961,7 @@ (* ; "Edited 14-Nov-2023 19:21 by rmk") (* ; "Edited 9-Nov-2023 23:56 by rmk") - (* ;; "Converts characters in Alto/Ascii font pieces to their XCCS character and font (more or less) equivalents. The affected characters are put in their own string pieces with their new CHARLOOKS. Asciifont pieces are completely replaced if NOASCIIFONTS, otherwise untranslated characters remain in their Asciifonts.") + (* ;; "Converts characters in Alto/Ascii font pieces to their MCCS character and font (more or less) equivalents. The affected characters are put in their own string pieces with their new CHARLOOKS. Asciifont pieces are completely replaced if NOASCIIFONTS, otherwise untranslated characters remain in their Asciifonts.") (* ;; "ASCIITONSTRANSLATIONS and the mapping arrays are from INTERPRESS.") @@ -970,7 +1016,7 @@ (* ;;  "Out-of-range alone and zero newcodes alone (some arrays are not filled in).") - (SETQ OLDCODE (\TEDIT.PIECE.NTHCHARCODE TEXTOBJ PC OFFSET)) + (SETQ OLDCODE (\TEDIT.PIECE.NTHCHARCODE PC OFFSET)) (RPLCHARCODE STRING OFFSET (if [OR (IGREATERP OLDCODE TARRAYLAST) (ZEROP (SETQ NEWCODE (ELT MAPARRAY OLDCODE] @@ -998,7 +1044,7 @@ (* ;; "Find the first change quickly, in piece coordinates. Then change whatever else needs it, slowly, in document coordinates. It would be more complicated to do the replacements in piece coordinates, because the pieces would get split on the fly. ") (for OFFSET OLDCODE NEWLOOKS from 1 to (PLEN PC) - eachtime (SETQ OLDCODE (\TEDIT.PIECE.NTHCHARCODE TEXTOBJ PC OFFSET)) + eachtime (SETQ OLDCODE (\TEDIT.PIECE.NTHCHARCODE PC OFFSET)) when (ILEQ OLDCODE 255) unless (EQ OLDCODE (ELT \ASCII2MCCS OLDCODE)) do (* ;; "First hit, scan/change the rest of PC") @@ -1047,7 +1093,8 @@ (\TEDIT.UNIQUIFY.ALL TEXTOBJ))))]) (\TEDIT.CONVERT.TO.FORMATTED - [LAMBDA (TSTREAM START END) (* ; "Edited 28-Mar-2025 14:11 by rmk") + [LAMBDA (TSTREAM START END) (* ; "Edited 20-Apr-2025 13:25 by rmk") + (* ; "Edited 28-Mar-2025 14:11 by rmk") (* ; "Edited 7-Jul-2024 09:06 by rmk") (* ; "Edited 10-May-2024 22:42 by rmk") (* ; "Edited 6-May-2024 23:49 by rmk") @@ -1119,9 +1166,10 @@ repeatuntil (IGEQ CHNO END) finally (FSETTOBJ TEXTOBJ FORMATTEDP T) (CL:WHEN CHANGED (FSETTOBJ TEXTOBJ \DIRTY T) - (\TEDIT.UPDATE.LINES (CL:IF CRLF - 'DELETION - 'CHANGED) + (\TEDIT.UPDATE.LINES TSTREAM + (CL:IF CRLF + 'DELETION + 'CHANGED) START (ADD1 (IDIFFERENCE END START))))]))]) ) @@ -1316,22 +1364,27 @@ TEXTOBJ]) (TEDIT.SUBLOOKS - [LAMBDA (TEXTSTREAM OLDLOOKSLIST NEWLOOKSLIST) (* ; "Edited 25-Nov-2024 21:57 by rmk") + [LAMBDA (TSTREAM OLDLOOKSLIST NEWLOOKSLIST) (* ; "Edited 22-Apr-2025 20:41 by rmk") + (* ; "Edited 20-Apr-2025 13:26 by rmk") + (* ; "Edited 6-Apr-2025 14:27 by rmk") + (* ; "Edited 5-Apr-2025 13:31 by rmk") + (* ; "Edited 25-Nov-2024 21:57 by rmk") (* ; "Edited 5-Jul-2024 22:54 by rmk") - (* ; "Edited 25-Jun-2024 11:59 by rmk") (* ; "Edited 18-May-2024 16:22 by rmk") - (* ; "Edited 10-May-2024 22:42 by rmk") - (* ; "Edited 17-Mar-2024 17:17 by rmk") - (* ; "Edited 6-May-2024 17:27 by rmk") - (* ; "Edited 16-Mar-2024 10:03 by rmk") (* ; "Edited 13-Nov-2023 00:26 by rmk") (* ; "Edited 18-Apr-2023 23:53 by rmk") (* ; "Edited 22-Aug-2022 13:06 by rmk") (* ; "Edited 26-Apr-93 14:53 by jds") -(* ;;; "User entry to substitute one set of looks for another. Goes through the whole textstream and whenever the looks match the characteristics of OLDLOOKSLIST which are specified, the characteristics listed in NEWLOOKSLIST are substituted.") + (* ;; "User entry to substitute one set of looks for another. Goes through the whole textstream and whenever the looks match the characteristics of OLDLOOKSLIST which are specified, the characteristics listed in NEWLOOKSLIST are substituted.") - (LET ((TEXTOBJ (TEXTOBJ TEXTSTREAM))) (* ; "Turn off the selection, first.") + (* ;; "") + + (* ;; "Note: might be more useful to provide SEL/CH# and LEN arguments, create the selpieces, and do inselpieces.") + + (\TEDIT.CHARLOOKS.FEATURE.CHECK OLDLOOKSLIST) (* ; "Error if invalid") + (\TEDIT.CHARLOOKS.FEATURE.CHECK NEWLOOKSLIST) + (LET ((TEXTOBJ (TEXTOBJ TSTREAM))) (CL:UNLESS (ZEROP (FGETTOBJ TEXTOBJ TEXTLEN)) (for PC CHANGEMADE SEL FIRSTCHANGEDCHNO (NCHARSCHANGED _ 0) (OLDLOOKS _ (\TEDIT.PARSE.CHARLOOKS.LIST OLDLOOKSLIST NIL TEXTOBJ)) @@ -1341,8 +1394,9 @@ when (\TEDIT.SAMECLOOKS OLDLOOKS (PLOOKS PC) FEATURELIST) do (CL:UNLESS CHANGEMADE (SETQ CHANGEMADE T) - (SETQ SEL (FGETTOBJ TEXTOBJ SEL)) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) + (SETQ SEL (TEXTSEL TEXTOBJ)) + (\TEDIT.NOSEL TSTREAM) + (* ; "Turn off the selection, first.") (FSETTOBJ TEXTOBJ \DIRTY T)) (* ;; @@ -1361,8 +1415,8 @@ (add NCHARSCHANGED (PLEN PC)) finally (CL:WHEN (AND CHANGEMADE (\TEDIT.PRIMARYPANE TEXTOBJ)) (* ; "Update the screen image") - (\TEDIT.UPDATE.LINES TEXTOBJ 'LOOKS FIRSTCHANGEDCHNO NCHARSCHANGED) - (\TEDIT.SHOWSEL SEL T TEXTOBJ)) + (\TEDIT.UPDATE.LINES TSTREAM 'LOOKS FIRSTCHANGEDCHNO NCHARSCHANGED) + (\TEDIT.SHOWSEL SEL T TSTREAM)) (RETURN CHANGEMADE)))]) (TEDIT.FINDLOOKS @@ -1409,18 +1463,19 @@ (DEFINEQ (\TEDIT.CHANGE.CHARLOOKS - [LAMBDA (TSTREAM NEWLOOKS TARGETSEL) (* ; "Edited 21-Mar-2025 23:15 by rmk") + [LAMBDA (TSTREAM NEWLOOKS TARGETSEL) (* ; "Edited 22-Apr-2025 20:17 by rmk") + (* ; "Edited 21-Apr-2025 20:17 by rmk") + (* ; "Edited 20-Apr-2025 13:27 by rmk") + (* ; "Edited 16-Apr-2025 09:03 by rmk") + (* ; "Edited 6-Apr-2025 14:28 by rmk") + (* ; "Edited 21-Mar-2025 23:15 by rmk") (* ; "Edited 19-Mar-2025 12:55 by rmk") (* ; "Edited 31-Jan-2025 10:31 by rmk") (* ; "Edited 1-Jan-2025 18:11 by rmk") (* ; "Edited 29-Dec-2024 20:08 by rmk") (* ; "Edited 26-Nov-2024 23:50 by rmk") (* ; "Edited 22-Oct-2024 23:37 by rmk") - (* ; "Edited 2-Oct-2024 14:22 by rmk") - (* ; "Edited 28-Sep-2024 17:58 by rmk") (* ; "Edited 16-Aug-2024 22:41 by rmk") - (* ; "Edited 11-Aug-2024 21:12 by rmk") - (* ; "Edited 6-Aug-2024 09:33 by rmk") (* ; "Edited 31-Jul-2024 12:05 by rmk") (* ; "Edited 25-Jun-2024 11:59 by rmk") (* ; "Edited 15-Mar-2024 14:23 by rmk") @@ -1449,19 +1504,7 @@ elseif (FONTP NEWLOOKS) then (SETQ NEWLOOKS (\TEDIT.UNIQUIFY.CHARLOOKS (\TEDIT.CHARLOOKS.FROM.FONT NEWLOOKS T) TEXTOBJ)) - elseif (for PTAIL on NEWLOOKS by (CDDR PTAIL) unless (OR (\TEDIT.CHARLOOK.FEATUREP - (CAR PTAIL)) - (NULL (CADR PTAIL))) - do - (* ;; - "OK if a known property or NIL value. Caller can delete temporary properties.") - - (TEDIT.PROMPTPRINT TSTREAM (CONCAT (CAR PTAIL) - - " is not a valid character property--aborted" - ) - T T) - (RETURN T)) + elseif (\TEDIT.CHARLOOKS.FEATURE.CHECK NEWLOOKS TSTREAM) then (RETURN) elseif (AND (SETQ FONT (LISTGET NEWLOOKS 'FONT)) (for PTAIL on NEWLOOKS by (CDDR PTAIL) @@ -1510,8 +1553,8 @@ NIL NIL (CONS NEWLOOKS (AND DIRTY (DREVERSE UNDOLIST] (CL:WHEN DIRTY (* ; "Something changed") - (CL:WHEN (\TEDIT.PRIMARYPANE TEXTOBJ) - (\TEDIT.SHOWSEL NIL NIL TEXTOBJ) + (CL:WHEN (\TEDIT.PRIMARYPANE TSTREAM) + (\TEDIT.NOSEL TSTREAM) (SELECTQ (LISTGET NEWLOOKS 'INVISIBLE) (ON (* ;; @@ -1537,13 +1580,15 @@ TEXTOBJ))) TEXTOBJ))) (\TEDIT.RESET.EXTEND.PENDING.DELETE TEXTOBJ) - (\TEDIT.UPDATE.LINES TEXTOBJ 'LOOKS SELPIECES) - (\TEDIT.SHOWSEL NIL T TEXTOBJ) + (\TEDIT.UPDATE.LINES TSTREAM 'LOOKS (GETSPC SELPIECES SPFIRSTCHAR) + (GETSPC SELPIECES SPLEN)) + (\TEDIT.SHOWSEL NIL T TSTREAM) (\TEDIT.TEXTSETFILEPTR TSTREAM ORIGFILEPTR)))] (RETURN DIRTY]) (\TEDIT.CHANGE.CHARLOOKS.NEW - [LAMBDA (NEWLOOKS OLDCHARLOOKS TEXTOBJ) (* ; "Edited 2-Jan-2025 15:49 by rmk") + [LAMBDA (NEWLOOKS OLDCHARLOOKS TEXTOBJ) (* ; "Edited 15-Apr-2025 16:47 by rmk") + (* ; "Edited 2-Jan-2025 15:49 by rmk") (* ; "Edited 1-Jan-2025 09:04 by rmk") (* ; "Edited 2-Dec-2024 23:52 by rmk") (* ; "Edited 29-Aug-2024 11:12 by rmk") @@ -1581,6 +1626,7 @@ (UNDERLINE (FSETCLOOKS NEWCHARLOOKS CLULINE VAL)) (STYLE (FSETCLOOKS NEWCHARLOOKS CLSTYLE VAL)) (UNBREAKABLE (FSETCLOOKS NEWCHARLOOKS CLUNBREAKABLE VAL)) + (COLOR (FSETCLOOKS NEWCHARLOOKS CLCOLOR VAL)) (STRIKEOUT (FSETCLOOKS NEWCHARLOOKS CLSTRIKE VAL)) (INVERTED (FSETCLOOKS NEWCHARLOOKS CLINVERTED VAL)) ((SELECTPOINT SELAFTER) @@ -2129,20 +2175,17 @@ then (\TEDIT.CHANGE.PARALOOKS TSTREAM NEWLOOKS TARGETSEL)))]) (\TEDIT.CHANGE.PARALOOKS - [LAMBDA (TSTREAM NEWLOOKS TARGETSEL) (* ; "Edited 19-Mar-2025 13:09 by rmk") + [LAMBDA (TSTREAM NEWLOOKS TARGETSEL) (* ; "Edited 21-Apr-2025 23:27 by rmk") + (* ; "Edited 20-Apr-2025 13:27 by rmk") + (* ; "Edited 16-Apr-2025 09:05 by rmk") + (* ; "Edited 6-Apr-2025 14:29 by rmk") + (* ; "Edited 19-Mar-2025 13:09 by rmk") (* ; "Edited 8-Feb-2025 22:30 by rmk") (* ; "Edited 31-Jan-2025 09:45 by rmk") (* ; "Edited 6-Jan-2025 23:41 by rmk") - (* ; "Edited 5-Jan-2025 16:01 by rmk") (* ; "Edited 26-Nov-2024 23:51 by rmk") (* ; "Edited 27-Sep-2024 16:06 by rmk") (* ; "Edited 16-Aug-2024 14:21 by rmk") - (* ; "Edited 11-Aug-2024 21:59 by rmk") - (* ; "Edited 4-Aug-2024 23:19 by rmk") - (* ; "Edited 2-Aug-2024 00:39 by rmk") - (* ; "Edited 1-Aug-2024 00:12 by rmk") - (* ; "Edited 29-Jul-2024 11:20 by rmk") - (* ; "Edited 26-Jul-2024 16:17 by rmk") (* ; "Edited 13-Jul-2024 22:55 by rmk") (* ;; "Apply new looks to the piece that begins the paragraph containing the first selected character, the piece that ends the paragraph containing the last piece of the selection, and all pieces in between. All the pieces within a paragraph have the same looks.") @@ -2195,7 +2238,7 @@ (* ;; "First piece of a new paragraph, get the NEWFMTSPEC for all its pieces") - (CL:UNLESS UNDOLIST (\TEDIT.SHOWSEL NIL NIL TEXTOBJ)) + (CL:UNLESS UNDOLIST (\TEDIT.NOSEL TSTREAM)) (SETQ OLDPARALOOKS (PPARALOOKS PC)) (SETQ NEWPARALOOKS (CL:IF (type? PARALOOKS NEWLOOKS) NEWLOOKS @@ -2228,10 +2271,10 @@ (CL:WHEN (\TEDIT.PRIMARYPANE TEXTOBJ) (\TEDIT.RESET.EXTEND.PENDING.DELETE TEXTOBJ) - (\TEDIT.UPDATE.LINES TEXTOBJ 'LOOKS PARAPIECES) - (* ; + (\TEDIT.UPDATE.LINES TSTREAM 'LOOKS (GETSPC PARAPIECES SPFIRSTCHAR) + (GETSPC PARAPIECES SPLEN)) (* ;  "Update the screen image, showing the original selection") - (\TEDIT.SHOWSEL NIL T TEXTOBJ))) + (\TEDIT.SHOWSEL NIL T TSTREAM))) (\TEDIT.TEXTSETFILEPTR TSTREAM ORIGFILEPTR]) (\TEDIT.CHANGE.PARALOOKS.NEW @@ -2365,7 +2408,10 @@ (DEFINEQ (TEDIT.SUBPARALOOKS - [LAMBDA (TEXTSTREAM OLDLOOKSLIST NEWLOOKSLIST) (* ; "Edited 25-Nov-2024 22:00 by rmk") + [LAMBDA (TSTREAM OLDLOOKSLIST NEWLOOKSLIST) (* ; "Edited 21-Apr-2025 20:15 by rmk") + (* ; "Edited 20-Apr-2025 13:27 by rmk") + (* ; "Edited 6-Apr-2025 14:31 by rmk") + (* ; "Edited 25-Nov-2024 22:00 by rmk") (* ; "Edited 5-Jul-2024 22:54 by rmk") (* ; "Edited 25-Jun-2024 11:59 by rmk") (* ; "Edited 18-May-2024 16:22 by rmk") @@ -2380,7 +2426,8 @@ (* ;;; "User entry to substitute one set of looks for another. Goes through the whole textstream and whenever the looks match the characteristics of OLDLOOKSLIST which are specified, the characteristics listed in NEWLOOKSLIST are substituted.") - (LET ((TEXTOBJ (TEXTOBJ TEXTSTREAM))) + (SETQ TSTREAM (TEXTSTREAM TSTREAM)) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM))) (for PC CHANGEMADE SEL FIRSTCHANGEDCHNO (NCHARSCHANGED _ 0) (OLDLOOKS _ (\TEDIT.PARSE.PARALOOKS.LIST OLDLOOKSLIST)) (NEWLOOKS _ (\TEDIT.PARSE.PARALOOKS.LIST NEWLOOKSLIST)) @@ -2391,7 +2438,7 @@  "First change, turn off the selection") (SETQ CHANGEMADE T) (SETQ SEL (FGETTOBJ TEXTOBJ SEL)) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) + (\TEDIT.NOSEL TSTREAM) (FSETTOBJ TEXTOBJ \DIRTY T)) (FSETPC PC PPARALOOKS (\TEDIT.UNIQUIFY.PARALOOKS (\TEDIT.PARSE.PARALOOKS.LIST @@ -2404,10 +2451,10 @@ (CL:UNLESS FIRSTCHANGEDCHNO (SETQ FIRSTCHANGEDCHNO CH#)) (add NCHARSCHANGED (PLEN PC)) - finally (CL:WHEN (AND CHANGEMADE (\TEDIT.PRIMARYPANE TEXTOBJ)) + finally (CL:WHEN (AND CHANGEMADE (\TEDIT.PRIMARYPANE TSTREAM)) (* ; "Update the screen image") - (\TEDIT.UPDATE.LINES TEXTOBJ 'LOOKS FIRSTCHANGEDCHNO NCHARSCHANGED) - (\TEDIT.SHOWSEL SEL T TEXTOBJ)) + (\TEDIT.UPDATE.LINES TSTREAM 'LOOKS FIRSTCHANGEDCHNO NCHARSCHANGED) + (\TEDIT.SHOWSEL SEL T TSTREAM)) (RETURN CHANGEMADE]) (SAMEPARALOOKS @@ -2484,26 +2531,26 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (22577 24519 (\TEDIT.CHARLOOKS.DEFPRINT 22587 . 23723) (\TEDIT.PARALOOKS.DEFPRINT 23725 - . 24517)) (24623 25719 (\TEDIT.CREATE.DEFAULT.FMTSPEC 24633 . 25341) (\TEDIT.CREATE.FACE.MENU 25343 - . 25515) (\TEDIT.CREATE.SIZE.MENU 25517 . 25717)) (26620 26809 (\TEDIT.CHARLOOK.FEATUREP 26630 . -26807)) (27111 50383 (\TEDIT.CHARLOOKS.FROM.FONT 27121 . 29334) (\TEDIT.EQCLOOKS 29336 . 31958) ( -\TEDIT.SAMECLOOKS 31960 . 34630) (TEDIT.CARETLOOKS 34632 . 36178) (TEDIT.COPY.LOOKS 36180 . 39463) ( -\TEDIT.UNPARSE.CHARLOOKS.LIST 39465 . 42432) (\TEDIT.MODIFYLOOKS 42434 . 44428) (TEDIT.NEW.FONT 44430 - . 44877) (\TEDIT.CARETLOOKS.VERIFY 44879 . 45716) (\TEDIT.CARETPIECE 45718 . 46023) ( -\TEDIT.GET.INSERT.CHARLOOKS 46025 . 48761) (\TEDIT.GET.TERMSA.WIDTHS 48763 . 49179) ( -\TEDIT.PARSE.CHARLOOKS.LIST 49181 . 50381)) (50384 67283 (\TEDIT.TRANSLATE.ASCIICHARS 50394 . 61173) ( -\TEDIT.CONVERT.TO.FORMATTED 61175 . 67281)) (68295 75406 (\TEDIT.UNIQUIFY.CHARLOOKS 68305 . 69965) ( -\TEDIT.UNIQUIFY.PARALOOKS 69967 . 71234) (\TEDIT.UNIQUIFY.ALL 71236 . 73211) ( -\TEDIT.FLUSH.UNUSED.LOOKS 73213 . 75404)) (75439 86535 (TEDIT.LOOKS 75449 . 77838) (TEDIT.GET.LOOKS -77840 . 79869) (TEDIT.SUBLOOKS 79871 . 83899) (TEDIT.FINDLOOKS 83901 . 86533)) (86610 116528 ( -\TEDIT.CHANGE.CHARLOOKS 86620 . 95856) (\TEDIT.CHANGE.CHARLOOKS.NEW 95858 . 99483) ( -\TEDIT.CHARLOOKS.CHANGE.FONT 99485 . 107792) (\TEDIT.FONT.NEXTSIZE 107794 . 109415) (\TEDIT.LOOKS -109417 . 112746) (\TEDIT.FONTCOPY 112748 . 114249) (\TEDIT.COERCE.FONTCLASS 114251 . 115402) ( -\TEDIT.FONTCLASS.TO.FONT 115404 . 116526)) (116571 147845 (\TEDIT.EQFMTSPEC 116581 . 119796) ( -TEDIT.GET.PARALOOKS 119798 . 123845) (\TEDIT.PARSE.PARALOOKS.LIST 123847 . 131189) (TEDIT.PARALOOKS -131191 . 132231) (\TEDIT.CHANGE.PARALOOKS 132233 . 139518) (\TEDIT.CHANGE.PARALOOKS.NEW 139520 . -143503) (TEDIT.COPY.PARALOOKS 143505 . 146179) (\TEDIT.PARABOUNDS 146181 . 147843)) (147905 155303 ( -TEDIT.SUBPARALOOKS 147915 . 151699) (SAMEPARALOOKS 151701 . 155301)) (155304 155991 ( -\TEDIT.MARK.REVISION 155314 . 155989))))) + (FILEMAP (NIL (22843 24785 (\TEDIT.CHARLOOKS.DEFPRINT 22853 . 23989) (\TEDIT.PARALOOKS.DEFPRINT 23991 + . 24783)) (24889 25985 (\TEDIT.CREATE.DEFAULT.FMTSPEC 24899 . 25607) (\TEDIT.CREATE.FACE.MENU 25609 + . 25781) (\TEDIT.CREATE.SIZE.MENU 25783 . 25983)) (26784 28673 (\TEDIT.CHARLOOKS.FEATURE.CHECK 26794 + . 28671)) (28975 53558 (\TEDIT.CHARLOOKS.FROM.FONT 28985 . 31198) (\TEDIT.EQCLOOKS 31200 . 34022) ( +\TEDIT.SAMECLOOKS 34024 . 36910) (TEDIT.CARETLOOKS 36912 . 38458) (TEDIT.COPY.LOOKS 38460 . 41743) ( +\TEDIT.UNPARSE.CHARLOOKS.LIST 41745 . 45239) (\TEDIT.MODIFYLOOKS 45241 . 47401) (TEDIT.NEW.FONT 47403 + . 47850) (\TEDIT.CARETLOOKS.VERIFY 47852 . 48689) (\TEDIT.CARETPIECE 48691 . 48996) ( +\TEDIT.GET.INSERT.CHARLOOKS 48998 . 51936) (\TEDIT.GET.TERMSA.WIDTHS 51938 . 52354) ( +\TEDIT.PARSE.CHARLOOKS.LIST 52356 . 53556)) (53559 70705 (\TEDIT.TRANSLATE.ASCIICHARS 53569 . 64441) ( +\TEDIT.CONVERT.TO.FORMATTED 64443 . 70703)) (71717 78828 (\TEDIT.UNIQUIFY.CHARLOOKS 71727 . 73387) ( +\TEDIT.UNIQUIFY.PARALOOKS 73389 . 74656) (\TEDIT.UNIQUIFY.ALL 74658 . 76633) ( +\TEDIT.FLUSH.UNUSED.LOOKS 76635 . 78826)) (78861 90168 (TEDIT.LOOKS 78871 . 81260) (TEDIT.GET.LOOKS +81262 . 83291) (TEDIT.SUBLOOKS 83293 . 87532) (TEDIT.FINDLOOKS 87534 . 90166)) (90243 119751 ( +\TEDIT.CHANGE.CHARLOOKS 90253 . 98910) (\TEDIT.CHANGE.CHARLOOKS.NEW 98912 . 102706) ( +\TEDIT.CHARLOOKS.CHANGE.FONT 102708 . 111015) (\TEDIT.FONT.NEXTSIZE 111017 . 112638) (\TEDIT.LOOKS +112640 . 115969) (\TEDIT.FONTCOPY 115971 . 117472) (\TEDIT.COERCE.FONTCLASS 117474 . 118625) ( +\TEDIT.FONTCLASS.TO.FONT 118627 . 119749)) (119794 150751 (\TEDIT.EQFMTSPEC 119804 . 123019) ( +TEDIT.GET.PARALOOKS 123021 . 127068) (\TEDIT.PARSE.PARALOOKS.LIST 127070 . 134412) (TEDIT.PARALOOKS +134414 . 135454) (\TEDIT.CHANGE.PARALOOKS 135456 . 142424) (\TEDIT.CHANGE.PARALOOKS.NEW 142426 . +146409) (TEDIT.COPY.PARALOOKS 146411 . 149085) (\TEDIT.PARABOUNDS 149087 . 150749)) (150811 158564 ( +TEDIT.SUBPARALOOKS 150821 . 154960) (SAMEPARALOOKS 154962 . 158562)) (158565 159252 ( +\TEDIT.MARK.REVISION 158575 . 159250))))) STOP diff --git a/library/tedit/TEDIT-LOOKS.LCOM b/library/tedit/TEDIT-LOOKS.LCOM index 7830009dc1f1dc77e6cb631d746fb0eb1538e698..f1f8f6529cccb02e89e435aef47ffa76035fa6bf 100644 GIT binary patch delta 7925 zcmdT}Yj7Lab;d3zilk%);1eP#@`|EFQZ}J|FF?r@7T{7?62L+LD2a+5rb3NLkrow6 zwkumM;*64XDp`(n-N`s{IwQN8wDGhi2{EnXw1^Y`ftplJChpj2#!;u!rtOcGo~BMF z(>gu(-dzBc)S3S1pK37!3BJndu8~ z_yY*2Qtx2Hz?hXVV;R%PnWL~s88XhEV|S3`VMQNSm0kfodnjp+Cd{el_AbnwJU4yr z;s}tOyD$QKtlUt-wkNW|Jqp}gRKtp*;b*zjNEIbf8y3`IK_a*R-%(Nu8~Kq9_|ePt z`Cu$=#wO74XsBTzjTAJNGpq!%kce{G9PpilZvjyr5>_@hh&-R&;PLR0?|I-~;bNqo zwx5p7cwd{jKHK3pYT`$|tH`=_%vf!-_!VoBEU=d1)(pS0i*}X>Ucy)&`%TT8#<=t{D}Gq;KSy~5~lbjb3}`aA=oq#!esu`@^%Mf}5q zEj@yYVs~nX@z*zB*{Z-vfqlhj zscj`hjUhs9VQE*CEbl3hRVbqD&9sLSXmbtYi#IXfK#N1~&nRw7~UHxfZ3 zvmc2{82kOril|8CrFMEMYbL-#RCE+q@2dB6++R$1S2rb_#_3ugccQVFOxcaF zj1K&Hg8%je|JKsGpmqX0e2Ta?3CSU)@~w&$&65?Osw0J~I%24*Bk1``Ptrjd7-jH? zGPpMLaN0;^i40{KB$}|(CX&J19x|={@f?!Dt7feuFeZT38%ZlMg`_Y$8A-q!ak;UC zkM65% zNvHFm=Jr7|ldw`iPlP?>FhL=6VF{>btO?Ve%%Ko0hbgcFn1ORAQ=`ryqZ$>aC(F?^&=z%RB1@ps#H1b5dMz|E4QWQkwG-}ql=Mj!zKnNHJh00ULN<_g1{6E4~Gkro%m#(iKsII~hcvKlXMZXeFHftW7|t-B z>T3oYVT$7Npz1<}2US(^+g5YEPAMuO36JdT;1v~%`?lu6hY()ejfx~yHYx&mG8X8{ zPauKu?$}{uGRD*pk>*fpG8r{9NYZpveE|s+;^^2BlgL2=H%cxek-(Oo4}?`%#$eaN#EktIC6vEllA8^{QcT z;g$8Fu#Svu%(8NJDx1TH`x|HUG6NyKe11r)K0YK1)il7o9-!cQ7`!&~ltU>Qi)BH|)z?)u`9VjkV9X9R6&z)Sno5kpp{5gZ ziVS$G{CWxq=K(j7!vtf|*ONnG{H1{pI3Ip$uqXJh@e)6EdhN!t=kKiz-j^+EzR-Ku zcy0b9UyObY=1lGyoO~>Cp|Mp zl!AjB(WU%G%!RU1p+}c^^6%AGe?se1PlP`!$?9M zpwbmMri9D*OObF=I@EreBWVYHhm#(IabhfG@yOHd=1Y;1vZN6tS{QI=0>-M(;fg`h z%XBYeu$IBm(q=kF(lY^&p^Tc!{=~taAsNTyosHEHP}lKk`J+87;T%LoM|)Kyh{^ zGP@ans2pi#z~Amj($_EAfw>4iu6A{%NTx}Ah2saZar+QK#geKMId>3D1SQZ4cAf|ZUQreZ zcolMjUigm2)#UmA3V>W3Ssd69ePdn9L2QR07p^yYy9EO9jb*MqG8=WYg9-wMYTN;k zBr&vK%)0}m_m4~quN&8x^jCHmb5z;m@E7md(=u>$+4H)=R1MaD-JllJ|H+k~7=Hgl zcHl&ZceQS|Y2_~qOM6U?TfiUf-Szl;jOACCJwKoVCnj5TcDkwN?)AEHn$o3AFU3lA zOso2eb{Bu5Yxy@FbariJ*SZJ5mmW0~rbm`@Yp1PYN;Nwdp%jY|8_`=OK(};|>Dh($ zRvj`(R|^~+(-nN@Vw+bNRop+aW3TW4W7kPm;J5&m+G!!x@d^9Q9K+Qb*q7hm$_end zc}@kVanC^zaNVJFl@hBJ-Ht=;$IeU{qobgEWs7!3gXTdKz?=%fYBU4i1ez#%i0Hdl zfy5FFK~&`O^~?i~ipvoH98QSp0>7kMmd-(N4k_Tox_ODzb(*(GVmZ+k!?IJ^fxL&R zb&sRv1kbzoG80t2vj}X9+My_FIMThf4gdm0GI-k=l-J=Vpz_XAU7{|j+>;!`&>&`K zXx_6vz11Lxt{994>{Rt2rn%Ng5D`fWG=N#m=rpKPCCsrrJQ={E$}Sb4io1)1PRJru zu+&PLqry83$7ZL`B^DRw&m$SuGm0|cJm(95ROL=2nXBr-ec39B;E+A#P)e|mGXY+} z`C9ilA|OrjaDYT<2*%$$6Xaxk)97dtpj1{Vje+MA@ed5mD*|M#jcRx?n&18on1k0S z?1;YX7<**3?J;77JA6GB(;a|o6;Ne>ksz7yExey>nHM#_4 zD|{Cz29wHxPgOvDDw0w_#31ynnX?FiB(V=!SBNm8=9ry< z+*zT?uQ8SbFiO+xs!Ui0Y*Wr2CBSBt^fNC(54lEml1fd{|-D%^t-#FHWl=}h3dY395`}cm(ZMX0tLh2kNiA}|a zIj90)>csJ`+`0mS2r-nfCWdLQE`kJU7gAj?EzwEWMest_)6?gs z9p?|I5ghm^H3vx-p)vwCMt&=T`jQ)IBzPCcokR4goFU5M@#?N1S8a#7OGWV*YmP0f z%O`+zWf?rPV?E#s!QiCAFV6gI1NSEW@rD1hg7yyl+>@J0Q5(!>=l_qIcH!nz0e+yI z*ECd&7m`1kR$Y&Lp`7U9@Bh}GT^FehooFg1?WU5?Ze$tEF}tOp%t2lgFLgj38luhm*qu5>5`&206@EE_Q7>3>gf`6xOF5l1vSbf-7gL+R(%hz82id0|tHJ znI5QkfZ^;Fp_FhB6)0e#EMzSe?IS-Bu#>717bxCreP$~!hed3g%6+UuP47`)-o7a*mn87+HHseUo$f}hz1T!LJ1iS z3^bGj7yO`!o33OxSB)sR>*`i~?aBz(a05R6<%-EQVE@$se&vb}e|)78f9py&9=z)F zN~i&U@k$rIO~-urhgTnIZUC5BJ`oL&bMW+w&3O9@d-_oIxguCRsdN*@%AARz!s!hdjQ76*h?E>* delta 7230 zcmd5>ZERcDdFH*86q%M}eb5pu$d>>#KYjVx;R&37b?>?JU?w%2&7#_29E?xY%j<8wimo`+IEQHRqjY1DTW^LaNetv`7hrb#c zBg$QB`CY3Qhqjs(=zsE@73BBI_vSMl3q7vWg z-jvXuN1=p;q#06Hb24tpY%w%4Ujrx?^3dx1$+&J+>SF_<7U^ zUV#C2qLguRNQAgivX7UX_)%oYc%thFr{F7HGsED3{8LsI<&h|&e9oG-;Zv`EX>Ke2 zo33&G^;WzyJl07!?gH;^_l&-Xop4VpJ#eq)#c+=UHE@)y#_b9415nr3@BrZY8ghr~ zYPOnVTcIU<Mc`H9T;2^=;bb?s)BdVAL|bMtMLX{Rj*1-H*1X8Cug`0uWN zA5ZVz2mg2DOS@ZFTb$0|?ckTV`R|-A=@_Fdwcso&0`f(N=-pis@5d1#wwTMLM>!eahgxLu)bcq&WH>9XSEooH@w;6Q%>IFMNt zWt1%D=kiW5<6dcv6pwqw(bZ5?k`&?x@F$WO1e10#QOM*=5F90e!l0%~tR*)W33-b+ zQ&a#&0G-;dvf}d~gcD#~x2s8UpR|uwCo<%ko|?%zLc}9SSz{8sRAp8`rC%uT>V1dj zzJV+KOZ@F8@S(ltj;)sUyFliuj<4+P+XZ;aQLP~nDB^GIUECv!=xRf-YOpkyxA$L# zR>_!*%O znTFsxaWUtl?t(-I+dzc$5y9O z;h2bB1!j3-q@RQWEnGj_rr&*7sZJMsUFoaZ#WGTO5$3OYa)VqGxZSQV3U|YCK=(0JY=fc!=Pl6bD^Qt1hD!24bwzcF_FoXoLsSluZ*^+h5>M9 zOEC263Jkq=0S2&pjTI5U7v0^bn?M(I7M&QWu1Z(&y=Y`rhy8e#brRTFUtkQsuLe=( zl)EHpI*}+s6t3N$s;Lj#p9mJ%|5|bDN6R1XBywP>{pj)sCpPX+1)?DM_N{c|^k+V5 zgIETO%}oMfNQzum#`>GMIG&MvQv2dxiNzDHl@>C7Ek?tBgy}ukXv}hnAqE+NCV_@> zRh(6@OO#1el}J4N7xG{$Fs3K56cINm$8u*mk}9|xJQJ{7$#TP5&&9U*4la#;3mT_mcryx;5FW!>J%R@IBwmA$-a;JXUyg!5%fp@LF3Ft0w!$yif= zCV|ca4z;c6QN*>j1p-03gpLlb>iYk#bNx^8IZX>TtUrfuYP-8nINfFOJP4%pR_}ad zDebzULOhTEQ`5WBuEU((Y1d~JCvrZGExlhpxdbjEx0J1{n0Ag4#VWyNVO31p5*{c5 zMX7jUB^(qDHyAaDI%H@wgZ<+oC|5S%SSFWrj*XWxC7^WCH{{tC1ryJFsVhQM8HTz^5;VXp$b4p`>Kmc0s68l-r*Zmn4^KsHCM^DffT z?q9eG_?5%E7DxsO_uwa1M@Op@nePqWZeHr#l$Y8$cT{=5)4RxXn*)`Y)64le()mSt zI_K9vaC&)u{m(4-)J9Hj-mJHDqx`+YHpl%uZaDJTsqaxFer+RAURq@5&IWp^-DA}( z=Yng|-R%04Tg~p~=MPkzety1x<34g*w>O79pW!!-Si=-M8H%W-^K6QkgWNr50YJK; zV{WWxT-U2a=N+~VTH;|q(p3#RvEf5-k`G)@9jJ+oVX2ocX{_6%U834i7fIF>=D`jm zPvPn;-o%=q6Qo8|pe<%BohgE*nzNEg2(I`yR(hhUA);i#2K5D8uY$H=J?kK>QsR|> zKfQK)CP7iBK%&6LkT3$PBTp*%QUS>z!tra#{-C7GxTCqNM*^+R@?1$#-3Ja3P&%}Q zkAS*oO(MxpyeL6mF#MMjk=zH`2$$5o0gxJqIw5pk6!AX{4(t?|I)UxrOYwnK5HNJ9 zI%v^?n|SE3Xg|x;Kn>QGgla(4z&j)#(13gBb<;6R)!uKxbqZSL{`i|LX2fo{o+cbMhz0xQ)i!n=f3uRE3O8*8 zK4IlIE7=QEKO!|hWi@X>kL$}XU3k9BKdPURLLToU31Zbl6cB)cKpsSA(taufGE+2h zD!so8G;}m)&z1`C>;fG|k*buhrr+$ig=jZ=@1bEYXh9LR5 zn-e_n;sp7|Tc`Uc;d;T6Btdu6cax?5kOq=$9#k-C6+wlQqH5A2oCp+Q7Ej%P=4n|F zIJtay;cGj%i})uO(4O8;X{lGLOB`5!0x03?Zi=m%X(&yl=mz@&abHOoI( z?&ChoeGE^zOt!eB*3rp7gnlbk`n{EYfPQa!Y|H5PdL8|K0nc2N_`rSqs~6{+Uv$FX zB!q`QzKFS5{PLv()(EA-%|ZHGq0Dvk)66yP64z3@$A4{=jr)!8B&ln_Vv#ZMq!(nF z8dAWktg228DGDL613^VLfNOR~;BkO;tDzc2lJMF}&xok{R3ih-SkF4DkxUb>34IX> zyv^F}nbdR%UJeuROr*n!42G-9%%eIHMgfa-12U>C0xuBm9hVh+>gh-XAja%LK(ttl zg`^8+>&F*?CKOO(G@2@^#~2D+{E7U+qGe2(R-oan^-2d@mS0sj=S|2@}LlLiF-mEI?O`-LaC=kUE3h{_KWl^=Fhes`V9KYaDz5`%v) zQ~QxDQ~TXav^n8+s`$w3sMERC^Z~q(Zrnc!DFBcr1Bizz2~M9?)qx%khNb|(g@Dxt z@+^+gnf?-a8)F0NKrQ-)Jlh~FituXfW1!~Q!p{ZZ4TTsE!p$MS@Q*=0HA~P)aVA1k zrzix;;Z~KoUm4l4qbi%q`YRtc?SX%4iq6c!DurK_~5lrgMy+V ze0^=MEt<+&lkrTch{ll+!vD24+vbmgC(sanXRQzSUu(l3u65!sUmIwx9TCFsT|3bV sFK)tedit>TEDIT-MENU.;464 162009 +(FILECREATED "29-May-2025 09:31:55" {WMEDLEY}tedit>TEDIT-MENU.;486 179156 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.CHARMENU.SPEC \TEDIT.CHARMENU.FILLIN) + :CHANGES-TO (FNS \TEDIT.EXPANDEDMENU.CREATE \TEDIT.EXPANDEDMENU.ACTIONFN TEDIT.DEFAULT.MENUFN + \TEDIT.PAGEMENU.START \TEDIT.EXPANDEDMENU.START \TEDIT.CHARMENU.START + \TEDIT.PARAMENU.START \TEDIT.MENU.OPEN?) + (VARS TEDIT-MENUCOMS) - :PREVIOUS-DATE "19-Mar-2025 10:01:40" {WMEDLEY}tedit>TEDIT-MENU.;461) + :PREVIOUS-DATE "26-May-2025 20:12:04" {WMEDLEY}tedit>TEDIT-MENU.;478) (PRETTYCOMPRINT TEDIT-MENUCOMS) @@ -26,6 +29,16 @@ (* ;; "") + (* ; "Middle button in title") + [COMS (* ; "Menu interfacing") + (FNS TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENUFN TEDIT.REMOVE.MENUITEM \TEDIT.CREATEMENU + \TEDIT.MENU.WHENHELDFN \TEDIT.MENU.WHENSELECTEDFN) + (GLOBALVARS TEDIT.DEFAULT.MENU) + (VARS \TEDIT.DEFAULTMENU.ITEMS) + (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (TEDIT.DEFAULT.MENU (\TEDIT.CREATEMENU + (COPY + \TEDIT.DEFAULTMENU.ITEMS + ] [COMS (* ; "MARGINBAR") (FNS DRAWMARGINSCALE MARGINBAR MARGINBAR.CREATE MB.MARGINBAR.BUTTONEVENTINFN MB.MARGINBAR.SELFN.TABS MB.MARGINBAR.SELFN.TABS.KIND MARGINBAR.GETSTATEFN @@ -36,7 +49,8 @@ \TEDIT.DOTTED.LEFTTAB \TEDIT.DOTTED.CENTERTAB \TEDIT.DOTTED.RIGHTTAB \TEDIT.DOTTED.DECIMALTAB TEDIT.EXTENDEDRIGHTMARK) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MARGINBAR.INIT] - (COMS (FNS TEDIT.MENUSTREAM TEDITMENUP \TEDIT.MENU.START \TEDIT.MENU.BUTTONEVENTFN) + (COMS (FNS TEDIT.MENUSTREAM TEDITMENUP \TEDIT.MENU.START \TEDIT.MENU.OPEN? + \TEDIT.MENU.BUTTONEVENTFN) (BITMAPS TEXTMENUICON TEXTMENUICONMASK)) (* ; "Generic support for Tedit menus") (FNS \TEDIT.MENU.CREATE \TEDIT.MENU.PARSE \TEDIT.MENU.NEUTRALIZE @@ -78,9 +92,9 @@ (* ;; "") (* ; "PAGEMENU") - (FNS \TEDIT.PAGEMENU.CREATE \TEDIT.SHOW.PAGELOOKS \TEDIT.PAGEMENU.FILLIN - \TEDIT.PAGEREGION.UNPARSE \TEDIT.APPLY.PAGELOOKS \TEDIT.CHANGE.PAGELOOKS - \TEDIT.PAGEMENU.CHARLOOKS.STATEFN) + (FNS \TEDIT.PAGEMENU.CREATE \TEDIT.PAGEMENU.START \TEDIT.SHOW.PAGELOOKS + \TEDIT.PAGEMENU.FILLIN \TEDIT.PAGEREGION.UNPARSE \TEDIT.APPLY.PAGELOOKS + \TEDIT.CHANGE.PAGELOOKS \TEDIT.PAGEMENU.CHARLOOKS.STATEFN) (FNS \TEDIT.PAGEMENU.CREATE.HEADINGS \TEDIT.PAGEMENU.HEADINGS.SETSTATEFN \TEDIT.PAGEMENU.HEADINGS.STATEFN) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) @@ -137,6 +151,212 @@ +(* ; "Middle button in title") + + + + +(* ; "Menu interfacing") + +(DEFINEQ + +(TEDIT.ADD.MENUITEM + [LAMBDA (MENU ITEM) (* ; "Edited 13-Apr-2025 19:53 by rmk") + (* jds " 9-AUG-83 09:55") + (CL:UNLESS (MEMBER ITEM (fetch ITEMS of MENU)) (* ; "Do nothing--it's already there ") + (LET (OLDITM) + (if [AND (LISTP ITEM) + (SETQ OLDITM (SASSOC (CAR ITEM) + (fetch ITEMS of MENU] + then (* ; + "The menu item exists. Make sure the thing behind it is right.") + (RPLACD OLDITM (CDR ITEM)) + else (* ; "Not there, add it") + (replace ITEMS of MENU with (NCONC1 (fetch ITEMS of MENU) + ITEM)) + (if (EQ (fetch MENUCOLUMNS of MENU) + 1) + then (* ; + "If there is only one column, force a re-figuring of the number of rows") + (replace MENUROWS of MENU with NIL) + elseif (EQ (fetch MENUROWS of MENU) + 1) + then (* ; + "There's only one row, so recompute # of columns.") + (replace MENUCOLUMNS of MENU with NIL)) + (replace ITEMWIDTH of MENU with 10000) + (replace ITEMHEIGHT of MENU with 10000) + (replace IMAGE of MENU with NIL) (* ; + "Force it to create a new menu image.") + (UPDATE/MENU/IMAGE MENU))))]) + +(TEDIT.DEFAULT.MENUFN + [LAMBDA (PANE) (* ; "Edited 28-May-2025 23:54 by rmk") + (* ; "Edited 14-Apr-2025 22:09 by rmk") + (* ; "Edited 13-Apr-2025 13:28 by rmk") + (* ; "Edited 17-Mar-2025 17:28 by rmk") + (* ; "Edited 14-Mar-2025 16:40 by rmk") + (* ; "Edited 12-Feb-2025 16:26 by rmk") + (* ; "Edited 9-Feb-2025 21:28 by rmk") + (* ; "Edited 7-Jan-2025 23:46 by rmk") + (* ; "Edited 27-Jul-2024 20:24 by rmk") + (* ; "Edited 30-Jun-2024 12:38 by rmk") + (* ; "Edited 18-May-2024 16:50 by rmk") + (* ; "Edited 24-Apr-2024 09:47 by rmk") + (* ; "Edited 15-Mar-2024 18:35 by rmk") + (* ; "Edited 22-Sep-2023 20:14 by rmk") + (* ; "Edited 6-May-2023 17:28 by rmk") + (* ; "Edited 30-May-91 23:35 by jds") + + (* ;; + "Default MENU Fn for editor windows--displays a menu of items & acts on the commands received.") + + (PROG* ((TSTREAM (TEXTSTREAM PANE)) + (TEXTOBJ (FTEXTOBJ TSTREAM)) + (WMENU (WINDOWPROP PANE 'TEDIT.MENU)) + THISMENU ITEM) + (CL:WHEN (FGETTOBJ TEXTOBJ EDITOPACTIVE) + + (* ;; "We're busy doing something, tell him to wait. Unfortunately, this string will overwrite whatever may be in the Tedit promptwindow (e.g. a GETINPUT calling TTYINPROMPTFORWORD for a meta-F command), obscuring what the user has already typed. Maybe an interface that tests to see if the promptwindow is in use, and enlarges it with an extra line above the current type-in?") + + (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT (CL:IF (EQ T (FGETTOBJ TEXTOBJ EDITOPACTIVE)) + "Edit" + (FGETTOBJ TEXTOBJ EDITOPACTIVE)) + " operation in progress; please wait") + T) + (RETURN NIL)) + (SETQ THISMENU (if WMENU + elseif (SETQ WMENU (WINDOWPROP PANE 'TEDIT.MENU.COMMANDS)) + then (PROG1 (SETQ WMENU (\TEDIT.CREATEMENU WMENU)) + (WINDOWPROP PANE 'TEDIT.MENU WMENU)) + else TEDIT.DEFAULT.MENU)) + (SETQ ITEM (CAR (MENU THISMENU))) + (ERSETQ (RESETLST + [SELECTQ ITEM + ((Put |Put Formatted Document|) + (TEDIT.PUT TEXTOBJ NIL NIL (GETTEXTPROP TEXTOBJ 'CLEARPUT))) + (Plain-Text (TEDIT.PUT TEXTOBJ NIL NIL T)) + ((Get |Get Formatted Document|) (* ; + "Get a new file (overwriting the one being edited.)") + (TEDIT.GET TEXTOBJ NIL (GETTEXTPROP TEXTOBJ 'CLEARGET))) + (Unformatted% Get + (TEDIT.GET TEXTOBJ NIL T)) + (Include (* ; "Insert a file where the caret is") + (TEDIT.INCLUDE TEXTOBJ)) + (Quit (* ; "OK to stop this session?") + (\TEDIT.FINISHEDIT? TEXTOBJ)) + (Substitute (* ; "Search-and-replace") + (RESETLST + (RESETSAVE (CURSOR WAITINGCURSOR)) + (TEDIT.SUBSTITUTE TEXTOBJ))) + (Find (* ; + "Case sensitive search, with * and # wildcards") + (\TEDIT.KEY.FIND TSTREAM)) + (Hardcopy (* ; "Print this document") + (TEDIT.HARDCOPY TEXTOBJ)) + (Expanded% Menu (* ; + "Open the expanded operations menu.") + (\TEDIT.EXPANDEDMENU.START TSTREAM)) + (Character% Looks (* ; + "Open the menu for setting character looks") + (\TEDIT.CHARMENU.START TSTREAM)) + (Paragraph% Formatting (* ; + "Open the paragraph formatting menu") + (\TEDIT.PARAMENU.START TSTREAM)) + (Page% Layout (* ; "Open the page-layout menu") + (\TEDIT.PAGEMENU.START TSTREAM)) + (Buttons (TEDIT.BUTTONS.BUILD)) + (Split% Window (\TEDIT.SPLITW (OR (GETTOBJ TEXTOBJ SELPANE) + PANE) + T)) + (Unsplit% Window + (\TEDIT.UNSPLITW (OR (GETTOBJ TEXTOBJ SELPANE) + PANE))) + (CL:WHEN ITEM (* ; + "Apply a user-supplied function to the text stream") + [RESETSAVE (\TEDIT.MARKACTIVE TEXTOBJ T) + '(PROGN (\TEDIT.MARKINACTIVE OLDVALUE] + (APPLY* ITEM (TEXTSTREAM PANE)))])]) + +(TEDIT.REMOVE.MENUITEM + [LAMBDA (MENU ITEM) (* gbn "26-Apr-84 04:06") + (PROG (ITEMLIST) + [COND + ((OR (LITATOM ITEM) + (STRINGP ITEM)) + (for X in (fetch ITEMS of MENU) do (COND + ((AND (LISTP X) + (EQUAL (CAR X) + ITEM)) + (RETURN (SETQ ITEM X] + (RETURN (COND + ((MEMBER ITEM (SETQ ITEMLIST (fetch ITEMS of MENU))) + (replace ITEMS of MENU with (REMOVE ITEM ITEMLIST)) + (replace MENUCOLUMNS of MENU with NIL) + (replace MENUROWS of MENU with NIL) + (UPDATE/MENU/IMAGE MENU)) + (T NIL]) + +(\TEDIT.CREATEMENU + [LAMBDA (ITEMS) (* ; "Edited 3-Apr-2024 13:30 by rmk") + (* ; "Edited 16-Oct-87 14:21 by jds") + + (* ;; "Create a TEdit command menu, given a list of menu items.") + + (create MENU + ITEMS _ ITEMS + CENTERFLG _ T + MENUFONT _ (FONTCREATE 'HELVETICA 10 'BOLD) + WHENHELDFN _ (FUNCTION \TEDIT.MENU.WHENHELDFN) + WHENSELECTEDFN _ (FUNCTION \TEDIT.MENU.WHENSELECTEDFN]) + +(\TEDIT.MENU.WHENHELDFN + [LAMBDA (ITEM MENU BUTTON) (* ; "Edited 4-Oct-2022 09:17 by rmk") + (* jds "10-Apr-84 15:14") + (COND + ((ATOM ITEM) + (CLRPROMPT) + (PROMPTPRINT (SELECTQ ITEM + (Put "Sends the document to a file") + (Get "Gets a new file as the document to edit.") + (Looks "Changes the font/size/etc. of characters") + (Find "Searches for a string") + (Quit "Ends the edit session") + (Hardcopy "Formats and sends the file to a printer.") + (Hardcopy% File + "Creates a hardcopy-format file of the document.") + ""))) + (T (DEFAULTMENUHELDFN ITEM]) + +(\TEDIT.MENU.WHENSELECTEDFN + [LAMBDA (ITEM MENU BUTTON) (* ; "Edited 16-Oct-87 14:21 by jds") + + (* ;; "A Selection fn for preserving the button pressed, for special handling in PUT, e.g.") + + (CONS (DEFAULTWHENSELECTEDFN ITEM MENU BUTTON) + BUTTON]) +) +(DECLARE%: DOEVAL@COMPILE DONTCOPY + +(GLOBALVARS TEDIT.DEFAULT.MENU) +) + +(RPAQQ \TEDIT.DEFAULTMENU.ITEMS + ((Put 'Put NIL (SUBITEMS |Put Formatted Document| Plain-Text)) + (Get 'Get NIL (SUBITEMS |Get Formatted Document| Unformatted% Get)) + Include Find Substitute (Buttons 'Buttons "Display action buttons") + (Split% Window 'Split% Window "Split the last-selected window") + (Unsplit% Window 'Unsplit% Window "Unsplit the last-selected window") + Quit + (Expanded% Menu 'Expanded% Menu NIL (SUBITEMS Expanded% Menu Character% Looks + Paragraph% Formatting Page% Layout)))) +(DECLARE%: DONTEVAL@LOAD DOCOPY + +(RPAQ TEDIT.DEFAULT.MENU (\TEDIT.CREATEMENU (COPY \TEDIT.DEFAULTMENU.ITEMS))) +) + + + (* ; "MARGINBAR") (DEFINEQ @@ -396,7 +616,8 @@ (RETURN OBJ]) (MB.MARGINBAR.BUTTONEVENTINFN - [LAMBDA (OBJ MENUDS SEL RELX RELY MENUTSTREAM) (* ; "Edited 11-Jan-2025 21:28 by rmk") + [LAMBDA (OBJ MENUDS SEL RELX RELY MENUTSTREAM) (* ; "Edited 26-Apr-2025 11:52 by rmk") + (* ; "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") @@ -504,7 +725,8 @@ HEIGHT _ 16) RELX RELY) then (* ; "We're in the tab ruler region") - (if (EQ 'OFF (MB.GET 'TABTYPE MENUTSTREAM 'STATE NIL T)) + (if (AND (MOUSESTATE MIDDLE) + (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] @@ -605,7 +827,8 @@ TABTYPE)]) (MARGINBAR.GETSTATEFN - [LAMBDA (PC OBJ TEXTOBJ) (* ; "Edited 22-Oct-2024 12:26 by rmk") + [LAMBDA (PC OBJ TEXTOBJ) (* ; "Edited 26-May-2025 20:10 by rmk") + (* ; "Edited 22-Oct-2024 12:26 by rmk") (* ; "Edited 20-Oct-2024 11:39 by rmk") (* ; "Edited 29-Aug-2024 09:32 by rmk") (* ; "Edited 12-Aug-2024 10:43 by rmk") @@ -635,7 +858,7 @@ (CL:WHEN (IGEQ R 0) (* ;  "The RIGHTMARGIN is set, and non-neutral.") (push LOOKS 'RIGHTMARGIN R)) - (CL:UNLESS (MEMB MARTABS '(NIL NEUTRAL)) (* ; + (CL:UNLESS (EQ MARTABS 'NEUTRAL) (* ;  "If the tab settings are neutral, don't change anything.") (* ;; @@ -1038,6 +1261,15 @@ (TEDIT.BACKTOMAIN MENUSTREAM) MENUW))]) +(\TEDIT.MENU.OPEN? + [LAMBDA (MENUTITLE MAINSTREAM) (* ; "Edited 28-May-2025 23:40 by rmk") + + (* ;; "True if a menu with MENUTITLE is already open") + + (find W in (ATTACHEDWINDOWS (\TEDIT.PRIMARYPANE MAINSTREAM)) + suchthat (AND (STREQUAL MENUTITLE (WINDOWPROP W 'TEDITMENU)) + (OPENWP W]) + (\TEDIT.MENU.BUTTONEVENTFN [LAMBDA (MENUW) (* ; "Edited 28-Jun-2024 23:09 by rmk") (* ; "Edited 25-Sep-2023 12:53 by rmk") @@ -1181,7 +1413,8 @@ (DEFINEQ (\TEDIT.EXPANDEDMENU.CREATE - [LAMBDA NIL (* ; "Edited 8-Mar-2025 12:27 by rmk") + [LAMBDA NIL (* ; "Edited 29-May-2025 09:31 by rmk") + (* ; "Edited 8-Mar-2025 12:27 by rmk") (* ; "Edited 7-Jan-2025 16:05 by rmk") (* ; "Edited 8-Nov-2024 08:35 by rmk") (* ; "Edited 22-Oct-2024 10:48 by rmk") @@ -1203,7 +1436,7 @@ (FUNCTION \TEDIT.EXPANDEDMENU.FN)) (\TEDIT.MENU.CREATE `((ACTION (LABEL "Quit") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) - 5 + 12 (ACTION (IDENTIFIER PAGELAYOUT) (LABEL "Page layout") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) @@ -1215,11 +1448,9 @@ (ACTION (IDENTIFIER PARALOOKS) (LABEL "Para looks") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) - 5 - (ACTION (LABEL "All") - (SELECTFN \TEDIT.EXPANDEDMENU.FN) - (ACTION (LABEL "Unformatted") - (SELECTFN \TEDIT.EXPANDEDMENU.FN))) + 12 + (ACTION (LABEL "Select All") + (SELECTFN \TEDIT.EXPANDEDMENU.FN)) EOL (ACTION (LABEL "Get") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) @@ -1238,6 +1469,8 @@ (FIELD (IDENTIFIER INCLUDEFILE) (FIELDTYPE SYMBOL) (SELECTFN \TEDIT.EXPANDEDMENU.FN)) + 5 + (TOGGLE (LABEL "Unformatted")) EOL (ACTION (LABEL "Find") (SELECTFN \TEDIT.EXPANDEDMENU.FN)) @@ -1274,7 +1507,8 @@ (FIELDTYPE STRING]) (\TEDIT.EXPANDEDMENU.START - [LAMBDA (TSTREAM) (* ; "Edited 14-Mar-2025 15:41 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 28-May-2025 23:44 by rmk") + (* ; "Edited 14-Mar-2025 15:41 by rmk") (* ; "Edited 7-Jan-2025 16:43 by rmk") (* ; "Edited 20-Aug-2024 15:46 by rmk") (* ; "Edited 25-Jun-2024 11:59 by rmk") @@ -1283,13 +1517,14 @@ (* ; "Edited 19-Sep-2023 08:51 by rmk") (* ; "Edited 20-Aug-87 16:51 by jds") (* ; "'27-Sep-84 01:04' gbn") - (LET (EXPANDEDMENU (TEXTOBJ (TEXTOBJ TSTREAM))) - (\TEDIT.MENU.START (SETQ EXPANDEDMENU (\TEDIT.EXPANDEDMENU.CREATE)) - TSTREAM "TEdit Menu" (HEIGHTIFWINDOW 60 T) - 'EXPANDED) - (CL:WHEN (OR (GETTEXTPROP TEXTOBJ 'CLEARGET) - (GETTEXTPROP TEXTOBJ 'CLEARPUT)) (* ; "initialize the button") - (MB.SET.TOGGLE "Unformatted" 'ON EXPANDEDMENU))]) + (CL:UNLESS (\TEDIT.MENU.OPEN? "TEdit Menu" TSTREAM) + (LET (EXPANDEDMENU (TEXTOBJ (TEXTOBJ TSTREAM))) + (\TEDIT.MENU.START (SETQ EXPANDEDMENU (\TEDIT.EXPANDEDMENU.CREATE)) + TSTREAM "TEdit Menu" (HEIGHTIFWINDOW 60 T) + 'EXPANDED) + (CL:WHEN (OR (GETTEXTPROP TEXTOBJ 'CLEARGET) + (GETTEXTPROP TEXTOBJ 'CLEARPUT)) (* ; "initialize the button") + (MB.SET.TOGGLE 'UNFORMATTED 'ON EXPANDEDMENU))))]) (\TEDIT.EXPANDEDMENU.FN [LAMBDA (OBJ MENUSEL MENUW MENUSTREAM) (* ; "Edited 7-Jan-2025 17:44 by rmk") @@ -1343,23 +1578,14 @@ (RETURN 'DON'T]) (\TEDIT.EXPANDEDMENU.ACTIONFN - [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM MAINSTREAM) (* ; "Edited 18-Mar-2025 23:54 by rmk") - (* ; "Edited 16-Mar-2025 21:43 by rmk") - (* ; "Edited 14-Mar-2025 15:43 by rmk") - (* ; "Edited 5-Mar-2025 20:51 by rmk") - (* ; "Edited 7-Jan-2025 22:36 by rmk") + [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM MAINSTREAM) (* ; "Edited 29-May-2025 09:29 by rmk") + (* ; "Edited 11-May-2025 15:01 by rmk") + (* ; "Edited 6-Apr-2025 14:39 by rmk") + (* ; "Edited 18-Mar-2025 23:54 by rmk") (* ; "Edited 26-Nov-2024 23:30 by rmk") (* ; "Edited 22-Oct-2024 10:54 by rmk") - (* ; "Edited 20-Oct-2024 15:40 by rmk") - (* ; "Edited 29-Sep-2024 12:53 by rmk") (* ; "Edited 2-Sep-2024 23:29 by rmk") - (* ; "Edited 28-Aug-2024 19:19 by rmk") (* ; "Edited 12-Aug-2024 10:23 by rmk") - (* ; "Edited 9-Aug-2024 22:43 by rmk") - (* ; "Edited 27-Jul-2024 21:35 by rmk") - (* ; "Edited 7-Jul-2024 00:01 by rmk") - (* ; "Edited 30-Jun-2024 12:39 by rmk") - (* ; "Edited 25-Jun-2024 11:59 by rmk") (* ; "Edited 2-May-2024 13:48 by rmk") (* ; "Edited 27-Feb-2024 07:54 by rmk") (* ; "Edited 14-Dec-2023 21:03 by rmk") @@ -1369,95 +1595,102 @@ (* ; "Edited 30-Mar-94 16:04 by jds") (* ;  "MBFN for TEdit default menu item buttons.") - (LET ((MENUTEXTOBJ (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of MENUSTREAM))) - STATE) - [ERSETQ (RESETLST + (ERSETQ (RESETLST + (LET ((MENUTEXTOBJ (FTEXTOBJ MENUSTREAM)) + STATES STATE) [RESETSAVE (PROG1 OBJ (IMAGEOBJPROP OBJ 'MENUBUTTON.SELECTED T)) '(AND (IMAGEOBJPROP OLDVALUE 'MENUBUTTON.SELECTED NIL] (SELECTQ (IMAGEOBJPROP OBJ 'IDENTIFIER) + (QUIT (* ; "Is it OK to quit the main edit?") + (\TEDIT.FINISHEDIT? MAINSTREAM)) + (PAGELAYOUT (* ; "Page layout menu") + (\TEDIT.PAGEMENU.START MAINSTREAM)) + (PARALOOKS (* ; "Page layout menu") + (\TEDIT.PARAMENU.START MAINSTREAM)) + (CHARLOOKS (* ; "Page layout menu") + (\TEDIT.CHARMENU.START MAINSTREAM)) + (SELECT% ALL (* ; "Select the entire document.") + (TEDIT.SETSEL MAINSTREAM 1 (TEXTLEN (TEXTOBJ MAINSTREAM)) + 'LEFT)) (PUT (* ;  "Only try this if he really typed a file name") - (SETQ STATE (MB.GET 'PUTFILE MENUTEXTOBJ 'STATE MENUSEL)) + (SETQ STATES (MB.GET '(PUTFILE UNFORMATTED) + MENUSTREAM + 'STATE MENUSEL)) + (SETQ STATE (LISTGET STATES 'PUTFILE)) + (* ; "STATE is the file name") (if STATE - then (TEDIT.PUT MAINSTREAM STATE NIL (GETTEXTPROP MAINSTREAM - 'UNFORMATTEDPUT/GET)) + then [TEDIT.PUT MAINSTREAM STATE NIL + (OR (EQ 'ON (LISTGET STATES 'UNFORMATTED)) + (GETTEXTPROP MAINSTREAM 'UNFORMATTEDPUT/GET] else (TEDIT.PROMPTPRINT MAINSTREAM "Put file not specified" T))) - (GET (SETQ STATE (MB.GET 'GETFILE MENUTEXTOBJ 'STATE MENUSEL)) + (GET (SETQ STATES (MB.GET '(GETFILE UNFORMATTED) + MENUSTREAM + 'STATE MENUSEL)) + (SETQ STATE (LISTGET STATES 'GETFILE)) (if STATE - then (TEDIT.GET MAINSTREAM STATE (GETTEXTPROP MAINSTREAM - 'UNFORMATTEDPUT/GET)) + then [TEDIT.GET MAINSTREAM STATE (OR (EQ 'ON (LISTGET STATES + 'UNFORMATTED)) + (GETTEXTPROP MAINSTREAM + 'UNFORMATTEDPUT/GET] else (TEDIT.PROMPTPRINT MAINSTREAM "Get file not specified" T))) - (INCLUDE (SETQ STATE (MB.GET 'INCLUDEFILE MENUTEXTOBJ 'STATE MENUSEL)) + (INCLUDE (SETQ STATES (MB.GET '(PUTFILE UNFORMATTED) + MENUSTREAM + 'STATE MENUSEL)) + (SETQ STATE (LISTGET STATES 'PUTFILE)) (if STATE - then (TEDIT.INCLUDE MAINSTREAM STATE) + then [TEDIT.INCLUDE MAINSTREAM STATE NIL NIL NIL + (OR (EQ 'ON (LISTGET STATES 'UNFORMATTED)) + (GETTEXTPROP MAINSTREAM 'UNFORMATTEDPUT/GET] else (TEDIT.PROMPTPRINT MAINSTREAM "Include file not specified" T ))) - (FIND (SETQ STATE (MB.GET 'FINDPATTERN MENUTEXTOBJ 'STATE MENUSEL)) + (FIND (SETQ STATE (MB.GET 'FINDPATTERN MENUSTREAM 'STATE MENUSEL)) (if (IGEQ (NCHARS STATE) 1) then (\TEDIT.KEY.FIND MAINSTREAM NIL NIL STATE) else (TEDIT.PROMPTPRINT MAINSTREAM "Search pattern not specified" T) )) - (SUBSTITUTE [LET* [(STATES (MB.GET '(REPLACEMENT PATTERN CONFIRM USENEWLOOKS - ) - MENUTEXTOBJ - 'STATE MENUSEL)) - (REPLACEMENT (LISTGET STATES 'REPLACEMENT)) - (PATTERN (LISTGET STATES 'PATTERN] - (CL:UNLESS (ZEROP (NCHARS PATTERN)) - (SETQ REPLACEMENT (CL:IF (EQ 'ON (LISTGET STATES - 'USENEWLOOKS)) - (\TEDIT.SELPIECES REPLACEMENT - NIL MENUTEXTOBJ) - (TEDIT.SEL.AS.STRING MENUSTREAM - REPLACEMENT))) - [TEDIT.SUBSTITUTE MAINSTREAM PATTERN (OR REPLACEMENT - "") - (EQ 'ON (LISTGET STATES 'CONFIRM)) - (EQ 'ON (LISTGET STATES 'USENEWLOOKS])]) - (QUIT (* ; "Is it OK to quit the main edit?") - (\TEDIT.FINISHEDIT? MAINSTREAM)) - (PAGELAYOUT (* ; "Page layout menu") - (\TEDIT.MENU.START (\TEDIT.PAGEMENU.CREATE) - MAINSTREAM "Page Layout Menu" (HEIGHTIFWINDOW 135 5) - 'PAGE)) - (PARALOOKS (* ; "Page layout menu") - (\TEDIT.PARAMENU.START MAINSTREAM)) - (CHARLOOKS (* ; "Page layout menu") - (\TEDIT.CHARMENU.START MAINSTREAM)) - (ALL (* ; "Select the entire document.") - (TEDIT.SETSEL MAINSTREAM 1 (TEXTLEN (TEXTOBJ MAINSTREAM)) - 'LEFT)) - (HARDCOPY (LET* ((STATES (MB.GET '(SERVER COPIES SIDES MESSAGE/PHONE#) - MENUTEXTOBJ + (SUBSTITUTE (SETQ STATES (MB.GET '(REPLACEMENT PATTERN CONFIRM USENEWLOOKS) + MENUSTREAM 'STATE MENUSEL)) - (SERVER (LISTGET STATES 'SERVER)) - (COPIES (LISTGET STATES 'COPIES)) - (SIDES (LISTGET STATES 'SIDES)) - (MSG (LISTGET STATES 'MESSAGE/PHONE#)) - PRINTOPTIONS) - (CL:UNLESS (AND SERVER (SETQ SERVER (\TEDIT.MAKEFILENAME - SERVER))) - (TEDIT.PROMPTPRINT MAINSTREAM - "Using default print server.")) - (CL:WHEN COPIES - (SETQ PRINTOPTIONS (LIST '%#COPIES COPIES))) - (CL:WHEN SIDES - (push PRINTOPTIONS '%#SIDES (SELECTQ SIDES - (One% Side 1) - (Duplex 2) - NIL))) - (CL:WHEN MSG - (push PRINTOPTIONS 'MESSAGE (\TEDIT.MAKEFILENAME MSG))) - (TEDIT.HARDCOPY MAINSTREAM NIL NIL NIL SERVER PRINTOPTIONS))) - (ERROR)))] - (SETSEL MENUSEL SET T) (* ; - "Now turn the menu button highlighting off.") - (SETSEL MENUSEL ONFLG T) - (\TEDIT.SHOWSEL MENUSEL NIL MENUTEXTOBJ) (* ; - "And forget that anything is selected.") - (SETSEL MENUSEL SET NIL]) + [LET [(REPLACEMENT (LISTGET STATES 'REPLACEMENT)) + (PATTERN (LISTGET STATES 'PATTERN] + (CL:UNLESS (ZEROP (NCHARS PATTERN)) + (SETQ REPLACEMENT (CL:IF (EQ 'ON (LISTGET STATES + 'USENEWLOOKS)) + (\TEDIT.SELPIECES MENUTEXTOBJ + REPLACEMENT NIL + MENUTEXTOBJ) + (TEDIT.SEL.AS.STRING MENUSTREAM + REPLACEMENT))) + [TEDIT.SUBSTITUTE MAINSTREAM PATTERN (OR REPLACEMENT "" + ) + (EQ 'ON (LISTGET STATES 'CONFIRM)) + (EQ 'ON (LISTGET STATES 'USENEWLOOKS])]) + (HARDCOPY (SETQ STATES (MB.GET '(SERVER COPIES SIDES MESSAGE/PHONE#) + MENUSTREAM + 'STATE MENUSEL)) + (LET ((SERVER (LISTGET STATES 'SERVER)) + (COPIES (LISTGET STATES 'COPIES)) + (SIDES (LISTGET STATES 'SIDES)) + (MSG (LISTGET STATES 'MESSAGE/PHONE#)) + PRINTOPTIONS) + (CL:UNLESS (AND SERVER (SETQ SERVER (\TEDIT.MAKEFILENAME + SERVER))) + (TEDIT.PROMPTPRINT MAINSTREAM + "Using default print server.")) + (CL:WHEN COPIES + (SETQ PRINTOPTIONS (LIST '%#COPIES COPIES))) + (CL:WHEN SIDES + (push PRINTOPTIONS '%#SIDES (SELECTQ SIDES + (One% Side 1) + (Duplex 2) + NIL))) + (CL:WHEN MSG + (push PRINTOPTIONS 'MESSAGE (\TEDIT.MAKEFILENAME MSG))) + (TEDIT.HARDCOPY MAINSTREAM NIL NIL NIL SERVER PRINTOPTIONS))) + (ERROR))))]) ) @@ -1580,16 +1813,18 @@ EOL]) (\TEDIT.PARAMENU.START - [LAMBDA (TSTREAM) (* ; "Edited 14-Mar-2025 15:42 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 28-May-2025 23:45 by rmk") + (* ; "Edited 14-Mar-2025 15:42 by rmk") (* ; "Edited 7-Jan-2025 15:36 by rmk") (* ; "Edited 27-Jul-2024 00:06 by rmk") (* ; "Edited 25-Jun-2024 11:59 by rmk") (* ; "Edited 27-Feb-2024 07:53 by rmk") (* ; "Edited 19-Sep-2023 08:51 by rmk") (* ; "Edited 20-Aug-87 16:51 by jds") - (\TEDIT.MENU.START (\TEDIT.PARAMENU.CREATE) - TSTREAM "Paragraph-Looks Menu" (HEIGHTIFWINDOW 141 T) - 'PARALOOKS]) + (CL:UNLESS (\TEDIT.MENU.OPEN? "Paragraph-Looks Menu" TSTREAM) + (\TEDIT.MENU.START (\TEDIT.PARAMENU.CREATE) + TSTREAM "Paragraph-Looks Menu" (HEIGHTIFWINDOW 141 T) + 'PARALOOKS))]) (\TEDIT.APPLY.PARALOOKS [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM) (* ; "Edited 29-Dec-2024 20:16 by rmk") @@ -1608,7 +1843,8 @@ (TEDIT.BACKTOMAIN MENUSTREAM]) (\TEDIT.SHOW.PARALOOKS - [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM) (* ; "Edited 20-Oct-2024 11:11 by rmk") + [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM) (* ; "Edited 20-Apr-2025 23:40 by rmk") + (* ; "Edited 20-Oct-2024 11:11 by rmk") (* ; "Edited 29-Sep-2024 14:59 by rmk") (* ; "Edited 25-Aug-2024 09:15 by rmk") (* ; "Edited 3-Aug-2024 19:05 by rmk") @@ -1642,7 +1878,7 @@ (\TEDIT.UPDATE.SEL (TEXTSEL MENUTEXTOBJ) 1 0 'LEFT) (\TEDIT.FIXSEL (TEXTSEL MENUTEXTOBJ) - MENUTEXTOBJ) + MENUSTREAM) (TEDIT.BACKTOMAIN MENUSTREAM))]) (\TEDIT.PARAMENU.FILLIN @@ -1771,7 +2007,8 @@ ,@(\TEDIT.CHARMENU.SPEC TSTREAM]) (\TEDIT.CHARMENU.START - [LAMBDA (TSTREAM) (* ; "Edited 14-Mar-2025 15:41 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 28-May-2025 23:41 by rmk") + (* ; "Edited 14-Mar-2025 15:41 by rmk") (* ; "Edited 7-Jan-2025 22:37 by rmk") (* ; "Edited 17-Dec-2024 00:04 by rmk") (* ; "Edited 25-Jun-2024 11:59 by rmk") @@ -1782,9 +2019,10 @@ (* ;; "Open a character-looks menu.") - (\TEDIT.MENU.START (\TEDIT.CHARMENU.CREATE TSTREAM) - TSTREAM "Character Looks Menu" (HEIGHTIFWINDOW 100 T) - 'CHARLOOKS]) + (CL:UNLESS (\TEDIT.MENU.OPEN? "Character Looks Menu" TSTREAM) + (\TEDIT.MENU.START (\TEDIT.CHARMENU.CREATE TSTREAM) + TSTREAM "Character Looks Menu" (HEIGHTIFWINDOW 100 T) + 'CHARLOOKS))]) (\TEDIT.CHARMENU.SPEC [LAMBDA (TSTREAM) (* ; "Edited 23-Mar-2025 14:48 by rmk") @@ -1910,7 +2148,8 @@ NEWLOOKS]) (\TEDIT.CHARMENU.FILLIN - [LAMBDA (STARTINGPC CHARLOOKS MENUSTREAM) (* ; "Edited 22-Mar-2025 23:27 by rmk") + [LAMBDA (STARTINGPC CHARLOOKS MENUSTREAM) (* ; "Edited 15-Apr-2025 16:47 by rmk") + (* ; "Edited 22-Mar-2025 23:27 by rmk") (* ; "Edited 1-Jan-2025 15:24 by rmk") (* ; "Edited 28-Dec-2024 12:48 by rmk") (* ; "Edited 20-Dec-2024 12:18 by rmk") @@ -1953,6 +2192,7 @@ (STRIKEOUT (FGETCLOOKS CHARLOOKS CLSTRIKE)) (OVERLINE (FGETCLOOKS CHARLOOKS CLOLINE)) (UNBREAKABLE (FGETCLOOKS CHARLOOKS CLUNBREAKABLE)) + (COLOR (FGETCLOOKS CHARLOOKS CLCOLOR)) (OFFSETTYPE (CL:WHEN (SETQ VAL (FGETCLOOKS CHARLOOKS CLOFFSET)) (if (IGREATERP VAL 0) then 'SUPERSCRIPT @@ -1973,7 +2213,8 @@ (TEDIT.OBJECT.CHANGED MENUSTREAM OBJ PC)))) finally (RETURN PC)))]) (\TEDIT.SHOW.CHARLOOKS - [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM) (* ; "Edited 31-Dec-2024 21:25 by rmk") + [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM) (* ; "Edited 20-Apr-2025 23:40 by rmk") + (* ; "Edited 31-Dec-2024 21:25 by rmk") (* ; "Edited 2-Nov-2024 20:16 by rmk") (* ; "Edited 20-Oct-2024 09:55 by rmk") (* ; "Edited 29-Sep-2024 14:59 by rmk") @@ -1996,7 +2237,7 @@ (* ;; "OBJ is unused, presumably to have a standard interface with other menu functions that update image objects.") - (LET* ((MENUTEXTOBJ (GETTSTR MENUSTREAM TEXTOBJ)) + (LET* ((MENUTEXTOBJ (FTEXTOBJ MENUSTREAM)) (MAINTEXTOBJ (GETTSTR (\TEDIT.MAINSTREAM MENUSTREAM) TEXTOBJ)) (MAINCH# (GETSEL (TEXTSEL MAINTEXTOBJ) @@ -2011,7 +2252,7 @@ MENUSTREAM)) (FSETSEL MENUSEL ONFLG T) (\TEDIT.UPDATE.SEL MENUSEL 1 0 'LEFT) - (\TEDIT.FIXSEL MENUSEL MENUTEXTOBJ)) + (\TEDIT.FIXSEL MENUSEL MENUSTREAM)) (TEDIT.BACKTOMAIN MENUSTREAM]) (\TEDIT.APPLY.CHARLOOKS @@ -2138,7 +2379,8 @@ (DEFINEQ (\TEDIT.PAGEMENU.CREATE - [LAMBDA (TSTREAM) (* ; "Edited 27-Jan-2025 08:51 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 11-May-2025 14:40 by rmk") + (* ; "Edited 27-Jan-2025 08:51 by rmk") (* ; "Edited 7-Jan-2025 15:47 by rmk") (* ; "Edited 5-Jan-2025 16:02 by rmk") (* ; "Edited 4-Jan-2025 00:34 by rmk") @@ -2199,8 +2441,27 @@ (TEXT (STRING "Page numbers: ") (FONT (HELVETICA 10))) (NWAY (IDENTIFIER PAGENOS) - (BUTTONS (No Yes)) + (BUTTONS (No Yes Heading)) (INITSTATE Yes)) + EOL TAB (FIELD (IDENTIFIER PAGENUMBERX) + (PRELABEL "X:") + (INITSTATE 25.5) + (FIELDTYPE NUMBER)) + (FIELD (IDENTIFIER PAGENUMBERY) + (PRELABEL " Y:") + (INITSTATE 3) + (FIELDTYPE NUMBER)) + " Format: " + (NWAY (IDENTIFIER FOLIOFORMAT) + (BUTTONS (|123| xiv XIV)) + INITSTATE |123|) + EOL TAB (FIELD (IDENTIFIER STARTINGPAGE#) + (PRELABEL "Starting page #:") + (INITSTATE 1) + (FIELDTYPE POSITIVENUMBER)) + 3 "Alignment:" 2 (NWAY (IDENTIFIER QUAD) + (BUTTONS (Left Centered Right)) + (INITSTATE Centered)) EOL (* ;; "") @@ -2270,8 +2531,16 @@ EOL ,@(\TEDIT.CHARMENU.SPEC TSTREAM]) +(\TEDIT.PAGEMENU.START + [LAMBDA (TSTREAM) (* ; "Edited 28-May-2025 23:50 by rmk") + (CL:UNLESS (\TEDIT.MENU.OPEN? "Page Layout Menu" TSTREAM) + (\TEDIT.MENU.START (\TEDIT.PAGEMENU.CREATE) + TSTREAM "Page Layout Menu" (HEIGHTIFWINDOW 135 5) + 'PAGE))]) + (\TEDIT.SHOW.PAGELOOKS - [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM) (* ; "Edited 22-Oct-2024 11:04 by rmk") + [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM) (* ; "Edited 20-Apr-2025 23:41 by rmk") + (* ; "Edited 22-Oct-2024 11:04 by rmk") (* ; "Edited 20-Oct-2024 17:32 by rmk") (* ; "Edited 29-Sep-2024 15:10 by rmk") (* ; "Edited 30-Aug-2024 23:58 by rmk") @@ -2294,7 +2563,7 @@ PAGEID))) (FSETSEL MENUSEL ONFLG T) (\TEDIT.UPDATE.SEL MENUSEL 1 0 'LEFT) - (\TEDIT.FIXSEL MENUSEL (GETTSTR MENUSTREAM TEXTOBJ)) + (\TEDIT.FIXSEL MENUSEL MENUSTREAM) (TEDIT.BACKTOMAIN MENUSTREAM]) (\TEDIT.PAGEMENU.FILLIN @@ -2471,7 +2740,8 @@ (TEDIT.BACKTOMAIN MENUSTREAM]) (\TEDIT.CHANGE.PAGELOOKS - [LAMBDA (MAINTEXTSTREAM PAGELOOKS) (* ; "Edited 24-Dec-2024 21:28 by rmk") + [LAMBDA (MAINTEXTSTREAM PAGELOOKS) (* ; "Edited 11-May-2025 15:04 by rmk") + (* ; "Edited 24-Dec-2024 21:28 by rmk") (* ; "Edited 20-Oct-2024 17:17 by rmk") (* ; "Edited 30-Aug-2024 23:43 by rmk") (* ; "Edited 15-Aug-2024 14:48 by rmk") @@ -2479,7 +2749,7 @@ (* ; "Edited 10-Aug-2024 12:11 by rmk") (PROG ((MAINTEXTOBJ (TEXTOBJ MAINTEXTSTREAM)) (PAGEID (LISTGET PAGELOOKS 'PAGEID)) - [PAGENOS (STRING.EQUAL 'Yes (LISTGET PAGELOOKS 'PAGENOS] + (PAGENOS (LISTGET PAGELOOKS 'PAGENOS)) PAGEPROPS) (CL:WHEN (EQ 'OFF PAGEID) (TEDIT.PROMPTPRINT MAINTEXTSTREAM "Please specify a page type" T T) @@ -2489,11 +2759,29 @@ ((OFF NEUTRAL) (RPLACA PLTAIL NIL)) NIL)) - (CL:WHEN [AND PAGENOS (NOT (AND (LISTGET PAGELOOKS 'PAGENUMBERX) - (LISTGET PAGELOOKS 'PAGENUMBERY] - (TEDIT.PROMPTPRINT MAINTEXTOBJ "Please set both X and Y locations for page numbers" T T - ) - (RETURN)) + (SELECTQ PAGENOS + (Yes (* ; + "Page number format specfified in pagelooks menu") + (CL:UNLESS (AND (LISTGET PAGELOOKS 'PAGENUMBERX) + (LISTGET PAGELOOKS 'PAGENUMBERY)) + (TEDIT.PROMPTPRINT MAINTEXTOBJ + "Please set both X and Y locations for page numbers" T T) + (RETURN)) + [push PAGEPROPS 'STARTINGPAGE# (LISTGET PAGELOOKS 'STARTINGPAGE#) + 'FOLIOINFO + (LIST (SELECTQ (LISTGET PAGELOOKS 'FOLIOFORMAT) + (|123| 'ARABIC) + (xiv 'LOWERROMAN) + (XIV 'UPPERROMAN) + 'ARABIC) + (LISTGET PAGELOOKS 'FOLIOPRETEXT) + (LISTGET PAGELOOKS 'FOLIOPOSTTEXT]) + (No) + (Header + (* ;; "Page numbers formatted/printed by image object in header paragraphs") + + (push PAGEPROPS 'STARTINGPAGE# (LISTGET PAGELOOKS 'STARTINGPAGE#))) + NIL) (CL:UNLESS (LISTGET PAGELOOKS 'COLUMNS) (LISTPUT PAGELOOKS 'COLUMNS 1) (RETURN)) @@ -2502,17 +2790,7 @@ (LISTGET PAGELOOKS 'SPACEBETWEENCOLUMNS)) (TEDIT.PROMPTPRINT MAINTEXTOBJ "Please specify the space between columns" T T) (RETURN)) - [push PAGEPROPS 'STARTINGPAGE# (LISTGET PAGELOOKS 'STARTINGPAGE#) - 'LANDSCAPE? - (EQ 'ON (LISTGET PAGELOOKS 'LANDSCAPE)) - 'FOLIOINFO - (LIST (SELECTQ (LISTGET PAGELOOKS 'FOLIOFORMAT) - (|123| 'ARABIC) - (xiv 'LOWERROMAN) - (XIV 'UPPERROMAN) - 'ARABIC) - (LISTGET PAGELOOKS 'FOLIOPRETEXT) - (LISTGET PAGELOOKS 'FOLIOPOSTTEXT] + [push PAGEPROPS 'LANDSCAPE? (EQ 'ON (LISTGET PAGELOOKS 'LANDSCAPE] (* ;; "**EMPTY** may come from field values in the pagelooks menue") @@ -2634,29 +2912,32 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (5138 51509 (DRAWMARGINSCALE 5148 . 8607) (MARGINBAR 8609 . 15734) (MARGINBAR.CREATE -15736 . 19155) (MB.MARGINBAR.BUTTONEVENTINFN 19157 . 26796) (MB.MARGINBAR.SELFN.TABS 26798 . 32038) ( -MB.MARGINBAR.SELFN.TABS.KIND 32040 . 32975) (MARGINBAR.GETSTATEFN 32977 . 36855) (MARGINBAR.SETSTATEFN - 36857 . 37067) (MARGINBAR.NEUTRALIZE 37069 . 37482) (MARGINBAR.LOOKS 37484 . 40590) ( -MB.MARGINBAR.SIZEFN 40592 . 41195) (MB.MARGINBAR.DISPLAYFN 41197 . 44258) (MDESCALE 44260 . 44800) ( -MSCALE 44802 . 45132) (MB.MARGINBAR.SHOWTAB 45134 . 47457) (MB.MARGINBAR.TABTRACK 47459 . 48844) ( -MARGINBAR.INIT 48846 . 50239) (\TEDIT.PARALOOKS.TO.MARBAR 50241 . 51507)) (52334 59240 ( -TEDIT.MENUSTREAM 52344 . 53344) (TEDITMENUP 53346 . 54315) (\TEDIT.MENU.START 54317 . 58664) ( -\TEDIT.MENU.BUTTONEVENTFN 58666 . 59238)) (59559 67481 (\TEDIT.MENU.CREATE 59569 . 61380) ( -\TEDIT.MENU.PARSE 61382 . 65071) (\TEDIT.MENU.NEUTRALIZE 65073 . 67144) (\TEDITMENU.RECORD.UNFORMATTED - 67146 . 67479)) (67547 87539 (\TEDIT.EXPANDEDMENU.CREATE 67557 . 72959) (\TEDIT.EXPANDEDMENU.START -72961 . 74391) (\TEDIT.EXPANDEDMENU.FN 74393 . 77648) (\TEDIT.EXPANDEDMENU.ACTIONFN 77650 . 87537)) ( -87601 103158 (\TEDIT.PARAMENU.CREATE 87611 . 93632) (\TEDIT.PARAMENU.START 93634 . 94566) ( -\TEDIT.APPLY.PARALOOKS 94568 . 95620) (\TEDIT.SHOW.PARALOOKS 95622 . 98405) (\TEDIT.PARAMENU.FILLIN -98407 . 103156)) (103363 129548 (\TEDIT.CHARMENU.CREATE 103373 . 105977) (\TEDIT.CHARMENU.START 105979 - . 107076) (\TEDIT.CHARMENU.SPEC 107078 . 111761) (\TEDIT.CHARMENU.PARSE 111763 . 114931) ( -\TEDIT.CHARMENU.FILLIN 114933 . 119387) (\TEDIT.SHOW.CHARLOOKS 119389 . 122646) ( -\TEDIT.APPLY.CHARLOOKS 122648 . 123809) (\TEDIT.OFFSETTYPE.STATEFN 123811 . 125774) ( -\TEDIT.OTHER.STATECHANGEFN 125776 . 127421) (\TEDIT.OTHER.SELECTFN 127423 . 129546)) (129610 156049 ( -\TEDIT.PAGEMENU.CREATE 129620 . 136814) (\TEDIT.SHOW.PAGELOOKS 136816 . 138611) ( -\TEDIT.PAGEMENU.FILLIN 138613 . 140163) (\TEDIT.PAGEREGION.UNPARSE 140165 . 149355) ( -\TEDIT.APPLY.PAGELOOKS 149357 . 151284) (\TEDIT.CHANGE.PAGELOOKS 151286 . 155205) ( -\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 155207 . 156047)) (156050 161853 (\TEDIT.PAGEMENU.CREATE.HEADINGS -156060 . 158872) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 158874 . 160299) ( -\TEDIT.PAGEMENU.HEADINGS.STATEFN 160301 . 161851))))) + (FILEMAP (NIL (6277 17915 (TEDIT.ADD.MENUITEM 6287 . 8404) (TEDIT.DEFAULT.MENUFN 8406 . 15127) ( +TEDIT.REMOVE.MENUITEM 15129 . 16126) (\TEDIT.CREATEMENU 16128 . 16693) (\TEDIT.MENU.WHENHELDFN 16695 + . 17600) (\TEDIT.MENU.WHENSELECTEDFN 17602 . 17913)) (18729 65372 (DRAWMARGINSCALE 18739 . 22198) ( +MARGINBAR 22200 . 29325) (MARGINBAR.CREATE 29327 . 32746) (MB.MARGINBAR.BUTTONEVENTINFN 32748 . 40550) + (MB.MARGINBAR.SELFN.TABS 40552 . 45792) (MB.MARGINBAR.SELFN.TABS.KIND 45794 . 46729) ( +MARGINBAR.GETSTATEFN 46731 . 50718) (MARGINBAR.SETSTATEFN 50720 . 50930) (MARGINBAR.NEUTRALIZE 50932 + . 51345) (MARGINBAR.LOOKS 51347 . 54453) (MB.MARGINBAR.SIZEFN 54455 . 55058) (MB.MARGINBAR.DISPLAYFN +55060 . 58121) (MDESCALE 58123 . 58663) (MSCALE 58665 . 58995) (MB.MARGINBAR.SHOWTAB 58997 . 61320) ( +MB.MARGINBAR.TABTRACK 61322 . 62707) (MARGINBAR.INIT 62709 . 64102) (\TEDIT.PARALOOKS.TO.MARBAR 64104 + . 65370)) (66197 73479 (TEDIT.MENUSTREAM 66207 . 67207) (TEDITMENUP 67209 . 68178) (\TEDIT.MENU.START + 68180 . 72527) (\TEDIT.MENU.OPEN? 72529 . 72903) (\TEDIT.MENU.BUTTONEVENTFN 72905 . 73477)) (73798 +81720 (\TEDIT.MENU.CREATE 73808 . 75619) (\TEDIT.MENU.PARSE 75621 . 79310) (\TEDIT.MENU.NEUTRALIZE +79312 . 81383) (\TEDITMENU.RECORD.UNFORMATTED 81385 . 81718)) (81786 101567 ( +\TEDIT.EXPANDEDMENU.CREATE 81796 . 87263) (\TEDIT.EXPANDEDMENU.START 87265 . 88889) ( +\TEDIT.EXPANDEDMENU.FN 88891 . 92146) (\TEDIT.EXPANDEDMENU.ACTIONFN 92148 . 101565)) (101629 117487 ( +\TEDIT.PARAMENU.CREATE 101639 . 107660) (\TEDIT.PARAMENU.START 107662 . 108787) ( +\TEDIT.APPLY.PARALOOKS 108789 . 109841) (\TEDIT.SHOW.PARALOOKS 109843 . 112734) ( +\TEDIT.PARAMENU.FILLIN 112736 . 117485)) (117692 144347 (\TEDIT.CHARMENU.CREATE 117702 . 120306) ( +\TEDIT.CHARMENU.START 120308 . 121598) (\TEDIT.CHARMENU.SPEC 121600 . 126283) (\TEDIT.CHARMENU.PARSE +126285 . 129453) (\TEDIT.CHARMENU.FILLIN 129455 . 134085) (\TEDIT.SHOW.CHARLOOKS 134087 . 137445) ( +\TEDIT.APPLY.CHARLOOKS 137447 . 138608) (\TEDIT.OFFSETTYPE.STATEFN 138610 . 140573) ( +\TEDIT.OTHER.STATECHANGEFN 140575 . 142220) (\TEDIT.OTHER.SELECTFN 142222 . 144345)) (144409 173196 ( +\TEDIT.PAGEMENU.CREATE 144419 . 152869) (\TEDIT.PAGEMENU.START 152871 . 153222) (\TEDIT.SHOW.PAGELOOKS + 153224 . 155110) (\TEDIT.PAGEMENU.FILLIN 155112 . 156662) (\TEDIT.PAGEREGION.UNPARSE 156664 . 165854) + (\TEDIT.APPLY.PAGELOOKS 165856 . 167783) (\TEDIT.CHANGE.PAGELOOKS 167785 . 172352) ( +\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 172354 . 173194)) (173197 179000 (\TEDIT.PAGEMENU.CREATE.HEADINGS +173207 . 176019) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 176021 . 177446) ( +\TEDIT.PAGEMENU.HEADINGS.STATEFN 177448 . 178998))))) STOP diff --git a/library/tedit/TEDIT-MENU.LCOM b/library/tedit/TEDIT-MENU.LCOM index b5d5821883b12090a68ddef530b43f67e880d4a3..44713bfeeaef51b7f13645e4a0d2573f2131ee06 100644 GIT binary patch delta 12965 zcmbVTdu&_Rc^64ZcG$#`WJy-!BtBu{nsOqV_g+4gz|j?XC0&~@^C3!(+lCQoiLoNN zmYl?i4X#BOH}BXdkEV~rPFwVmVwFW3T~@3r8f=BPE^C2dSl6OM|0w!LfmOwdb^WK^ z?>sJfDLYx$02c3gf9E^josIX|}Ym|B*_0p>j&|1^3TYSB6Dt z|3dYl6QvWU_UDbbnHPVDlSZoGyEhOSA|6#6Zmt=rjcDPKKnRPhutgX4lt~q9ju#RM zV(;nm`8=dtS^-U)W?&NpRnL&yJ8mY7Sk}<7FgittlciIQt!c_gFz6vq7L!IiVa%Ml zPf~gAh29$?A)09XitG)F8;#Lpg`|!n$alMep``Av#Q^b8l zRA=-FgQiw@(bdULI_nyuesr!eBcS_IZ#EhILv2-#wL`E`M zW6Deya>H>D586Xb+ExFEqK^1+Eben>cGtp@A-7mrkHhpuVLvOpR*?Mea zZTDzrjg6Y`?OgRatggJ@^xF3(%ewQH^)6Z6d2Hi#@j2hSbzN4vozBHQT?5UMtvKJ? zHhKe_y=%U!&8vj`q>y3U*vF{fXC}dC5((BwPS54iF%k%oBdJ(A6;p|#VTZ{vBMT8w zf(qX*Dns%^Rpp0befVXca746(WY=Iol&ztfU>y<7n0?57=kA2Zi8_W7`=$WuPWZuCtp6Ntn6J^rV@~4-v^M#g^ka$)~da(IkGP|ZyWa^+qjL_F|68B^J-2oOfI{rxJHUy z^y28PHLE%QLA_ty)cXG_u5Yyyy4JUz6UuhrifgJ`<1FYBELz)cYZCMnE|VoTJXhr% zAq~ZCgR|SFcy_hHO@)Fm%jQzGD0QsuaH(p5UX1rK z+gDTlmatCh*?26SnITFvV9j*UnDLF9sW=R6kV_L+jY6s@>ipzLatiX4CrT(NscJR2 zn{*6nfH8u6%xmUqlWZ&Z69t}3RGX<-q7a9|D1KQpVdP0vwG|>^f;y&^nQS^kf+5+K zDdY*5DCXe>)!q@Br>Wu~pv~ZIgcNFv%f}b0E4xXtx>#O%jA$@2Qr(FfRYUpnzfX=SClI0uKQkk~w$ zW>+dF(0^&^7{)6hVmw|uURo?y%DYLjvUrlHSbef|qCC5F{1j2(-^M`|c3Dwp`q&od+VnvhFO6}TexOeGKrR7T{V8;)Q zC-jNEBm=v+7nH;dBR(9{a|UcXM29n0^c&`cpc488^T-qk1x=XM3{eR%2(RK2Qez$g z?GRF_)y!o}%NyCe6kNwww>sJ!!c}&6J0{;{Hsjpn*-2q)2KdiAqfMjReMh@_b^qF3 zX8G#=>c%VF#(WYr{KMVGJi0Ka^IZq7^w|a;zT$h3O@4%1Ajh}6yE=He*frSQy(PtK zdxSZ=?3(Z5<-=n90dAkySO1=Qa*g1anWCqQT+NhVLv?}H6!>_~4@I-=k^P9qQ(W^Q zkJ5WbBlL#{dmSp(FKn+tjTi>d^CZAERIF0S8CjvwTm=PNAw^2i(rK|EOvp$I-dRt; zY^e4Vw4X0g{FYs?6GoyCY#}>rHXo2&QcuNmO~b(#0fuOp0gcELhR9n`0J0rc=lhD>^@yHID>c?K7?` z?W?_x!>%ixrgQbb9Qtq9et+O0=X$My45zvOxjZCB=##u?0YRWSQ4bI(@fyz9AGi)$ z1H2L&U^YM?G^Xs}0T4@u!Iz-GTd+?_qXw0LA>m95$_5GD&~?ZH(*ob~UR+0+vM_D{ zMYkPswzWC9i0&$n_O`E=tGzd_a{*m&^B*pi-A>13+3f9F?-78Y_ttgx0X^vL=U@0B z>kpR~Ykw@m2@ej+0q%9?fK@V{PUQs^pbOA3mSDn`%;X8g%d$;OB8rnnDrX=h!C}Ir z1R~e8P8tc;0&6&yt})l^C#ae-@@7nj^*G(`VjIoRWQ;pc+nK;>`SfxE$qAJRPtMUl zXOYDnFy|R)vTO9^QEltm84goMB_4Whom+z1YDwtwtGu|H+tj`~*3ul<+0X9_;qd@j{V}{4aB|g(O>ka?O#l9bI_N1ZgZ}E zf{twek}IMp^yk~RJ0n5*-JJt95(XRvw4N|iV|tc^0~#?7Wk}c`Cds&wi|Gji1wTpX zxqK4wyD?2dK$vDKXU2{DNeBS5(KLgi(k!AU;27W&9|wSq*e(P--x#Yz$%l@NA2t{= z4S_8ELhsH00O@&sj2Rw)V)dFK^qu}?SI8f%@7wYHEuAGW*QL|+T_-z*4WLi%`ehWF$AfmD z8}5r0sHUV{VVEE+^70yc^7R}Kwk>MJED(8p>gBv$um?=RtHGsVVuE!fSQ0J^U zF$uH|vmn}J8TuJBQh6hbT#$+lipFLYd``j`&%^dcWSb}=zydF7P!4NCYcVz0Bt;Ft zc5za~aw;|=zYw!;UQ2}uYtVvhg=iP+`GbNE1t6Q(FtnZ~DFjMDB%B8d4$T^($BitU zs7gP6bKjsuMhs$rZydvWqXWBs^iXOH6r`dnbZajO31z&3}YL@x&? z>FOco-eBDzXMv zmI*nEgaKzW0#ED|$b)Mz1FFCs^IeX2Molgx98~Z>pEG%vm(44#YS*N5diCGhykIX| zvIy7=V)BKoaj3u~07l%9P_hB?aPoRSug4Go3iy`;8kcqpE(F>;!_YK*2RsYMRm|O> zNbiVlIA&UIpbPhsqns)A zJpI+A{s?Ck|6_9V$8%!X2CcGK0p{8Vi!7$w3%iDmBL*y_Sb7Wmhnj``&7dwA5#Jz$rRt1n96{WO zgX`=NJ$VLmd8i7n)l!7Zso#8H$W_D28~~&UIIdl68j8!@F9Xhd-iXLxF$c;(dH-)ybF)mcD^|9>7t0#u8N;- z#l=s*c&k8VJR+;Lt+Oo9?Sr$o7jJE9jfLBa{Q^<_ndP-xiv7pr99Nxu`j%YWTD~So z8sKfkLEbteR@-y9ytb#)WIYV21FdyTbJ6t{sG4;$F}}-_qtQBiMaox-;liFB&?^meV$L7-UfmF zSnqneYi+lvK(=?DExd7l{n*oD>C5d4&UCNn*R$3q`t|VL%4){Kaw^>`&w+zC_^JrJ ztdY&8vm}B<7&qmQfD3zqp=TAd|TWeh{p7dnOm zz-@A}Mj|v24qM{`$hgY!0c2J|y+3eG8Z!VqXgBK`Xpw`o06f@*?RRTD*}xWOW>>=$ z_5o^y`wiBl2I=U9UK43ti&*60RODam{S{;_Jr0TrEHm?!sP%%ZPxfNh6nIS3qG*54TU9AeB`kph7mPHg0B<0Mijx7i2!t)-?!N zYqy|>1JHJgBCcx=92jq=!qPr#DdVgd%5 zxqJZx+j?8Xs1RYyrNV96T5(N)pj;B8KwZUL3X~#KWBFkO!2%gW{ULnFr|c#=u7?$d zt8q5s5EL9~MhEugM*@Xo!k5rz(wHKwkwXPD&k}4n^b|mk38aAZAM@TKHe%|}Gc`!R zH%0pv#u|b>~e*|e)>O!54%H1+#r__R24cpwYS4f0?{yCoFc9O zI-Z-lZ3;~GBY!P7Y1{k|;1E&+EP2lJ28&C`3>>e_R*zOIW#kRmWsDar<&16_rv}3G zhf{;MDiGE8nOUv>YU*2#dm%jRGO{&^t!&OLa~#Av+LPGychhme%}x1k0Q_ApM_UJO zjvr*UJ%@a-Q=s@pK6n!Ln);{j+QV>nppj< zSu~>9SW*4|N%Xl-(f&;OygPWR0SNa!c!u4H8|IktMZ$251NaT%j5V24e zmzLa@H;@Jnt$9DmPC_1mAyNczEG!oEo6NrTYBT5Jfa@#$?Km-Gm{$ zsDEbRr&}FE^yJBx9Iw#MM-Mpm(L;~+I|k_dqqjSLPtQKO>mxsw82WST`aiUjhd1Uo zF17ugtMq&p+Wn&L3${9^tb1D4y|S)f?V`VZv^IBU^1#@F>)_4X#>`0$Ue~8D z{h`Vw1s@Y_-XN@-5D!EVutYxWFExR%Du{SOigX@1Qp7iqWV?riwFwfI00=}v^xq%5 zT7&cBfQ1BM6YT~M$*edoS@l%RAOT$FrZHi5Tu+*b8Nyr%FOvW)lDrlPFww%>gILx? zemej&mn&q9tX0M>Ba$VEM0uu2LsS?`C(@2={gzWhuAR?yI@;P}Jm5JOI~x-!Bf=e; zK27MurzdJcOV*{D;3lELg%%}gsIH|XxEYW<5wAp;`6loqn}r$1%TgLRWH}@^nJzN+ zW)swZ#=V2zsW%}Tzt)7qqZcbX7NqL|blN;KBHV_W00G(xV5Fs90EW_kz*kw7aMiN1 zk#c|t54q{b*LKvuf5x}f@gV*0zbrZC=;BiY^qWt0Z0Bkv6itMQ3r?DR>N|Afshj-5 zz#x$WWFhxwS0EMJjwMF)4ALpcgoUH$e$?Nt!lj-(WKP4F71P@!ks7fd9e- z@LynK_RA7b{1^Cu|FX+(eT*lZSUJjz^o_F<&QOH@^6ZaYYS2&L{q%S5VF=T^m)v_V zv#E0xGG8f`k=S1L3~{(An^;MW(w`f>^xdaFhF1kD|BgOmx>O~|zh8f*;!^Rn#_?=# z7mm3(P>E`y^Rq{skqG~M``IaHMAYth?yxf~YR^75oU9Uf%ceb%ilbl`X;GXl(btO!)cii=U&K{N#WC%Y`@0jYtzwK-v7hmkF_q}w+;aH~h zTy>Alck|b1NCaK$y8S`A_x#iK@0@?j+0N2F^vTce>>MJ_-*!3bM_-wDIR2Xc^Q(6| zi=_U?S3l~g{Ua_v5Rw4|iWh7lK1XOSSf+GF+-Hyw0?0Asu-UyeyWqg>Lx7_Ns|Xv*Ocp|6=CJiRZf$1} z0*9@_Gz#p(lDEja0^Ie3zgc5~K@oOG(b8N2$+7}qnZ0so$SQo5y*v$PX3OBS2wCLU z0|3$-(gffskQ9!?D@Cjil|#AuxzGN>5kV4DQGI?~x@htPYAq=jf68&od&rhJ1;Wv}B<_(vwD5*`qx9~`q5Q=ksWFs#qN<0 z4i2vFm%UySomPLs=iXR*kN>XzKoskP2gJvl{6|iO@!zKFZ)CS@;Ol|O1N0Mb?xioj zc`N>Hqi?^tGsx2BRx*QeR#+A|`bO}M6HFLBTN|tt5&Z=97a`^wE8P885!HnQ6ohT%cx@AFVi==7H zV>AR&gCg+5m4c_?#MlvAMTD39pfw0V1N0%HVyE4dA1#E~xLGlcCqq0c*PuWN_An!c zeIVLmmvypqKfHW|ldb|1H%R9$Q65DnykTf zQvrR5bH>aVe>o>yhXOIM`4;##_G$sX#zX|qeA^~Ml`e$BExV!Rx9%8)pM?=8VdS~Q ztrEMc78iv)j7Ne4w}#jQ=Xx3!P)I6(7p6$_EA-dr`{_^KI^@vm!(W`Zp#~g4JjrSq zPsYhZ{P7!m>WznI3l-*=*i&fYb&Fo?5gWfeKU$h)H{oa>ha?Fj-172SRM}tV;6;U~ zY<)gcOEw;D+a8hFArrfjmah;tR|}}e-f@7Ei9~u#Pc&b0x4aEUyPG%3DH=~4+z5c= zOBH(i<(*UfiKKWB?!9&sm_<%tBNjZ$%vh$qF>zyFynP#@AOFU#?s!%&3hfbB)b9Gl zZ=82_@ZgDlJv>++{pQbH+t^ugsK}3=UU;#e-cui-i!bk_AFJif!W zdgSTBtql1v9$*Kzphx&}v33m|#Or16`Mie;X}~1*+=Ae4pLh{S@cqC4bHC;bL0}2D zmt{rdEcm=;7S=qzRO7EBTb>-+uGjcuMTVi|Q%3#{()Qlb>$aX@%7tVR|DQsTYEQ5;PmbaWWi^P^%kniCY{Mp7rX?bOMnO_fr(8u@-Q8rOw)1y&I!=`FB zm#n(ZY_-O8{N1M4c)aB$sGPF3b~7v8tNG7TAriwSF2O<*(wu0w>O*74@vE_ St7PNR=ASIg_0yL>+5W%u~EGyMXtE*(I+MugM(q&PM(zC)Y zTKLu0J+O4_^Z*&kWUW!#&3k*}7=?tTXw4wvkSGnQBK>NpKcq{gn;oyU2!tLF-xN}G zdtbMp(@5Xb!e61?6%xKq|Gw`T?JI82hC2NHbk@0j#rg8A^N)|ru9m!1WBr@S*-5uG z6cXlJr+e`ii*IBdUtX&F9es6&+;H7(5$I=kd@6M91^T}`Ua2>tGQG01Bc$u}!*{k6 z4OJ&8Gn=&2!)BHkvP!H&8KOrbBo(*3nCVy$B;uG}E`{w_V?;L;Vy8VjZtW+!9;tpB zhbUJ?^i(C1w0t`+$NZoxYSmU0$;5`lVJquqh!&-9Z|ZE;43VUU2Vqot=7ExM$cP#w z?xuI;h#{)gp@;LioSXJAfpM==Gc@8R5=6sd{8=?kCpmLCH=eQR<^I$4T0}2(5By@i zFh&1Ge6o3w`Ky`zqmN4ewoAkIQfAU}hYw`f(xiwQtcggPL_9Z}L$*rv3r4c2s=*YB zqLa84gP}tdIf6y!kUUk5OtN-zBu5lU4Za1ksFRqL&RJQcnj9?~)~H0{Scx2wBXVHq zi-v?v786894z8U{#%{|K%W8DZbTT61Pb@1+@TEEzj$u`hnCICh{Q1Oauntl28&Xsx zVK+@ALl1l)A$VmIGj3(!C7sYuiM>q{!j1rV^na9x=mXKN(u3-bcHvoiB+(#@etJAG@{YnIp-5WDKizr64B#fL8N}snc3v}+?O|;SZjgX`N?5MOe z74Hy9&Kk=hTF5S}1jja2I+t2mPrse-repa(;CExQV-8ym37hlt^j3aH6X`c&IonOs z%vd-5+k9W?!srcwK0n%7dTMO2zR?TS)d}>c51Vs5H%_qJu=%mV(jq)XJu5eubCXGS zK4g~VY!N(PG;xinM9BoaXy*n~Ryse3j70t*Lq;r?5O$(qr{ivcND95M(nU|Ltar5X zhJZwdO5kJ7ATh@>vzdI3s0b2kV@iS;T4NbA9k=4>OY|rS=NFDIK5_Es830@uz*qY3 ziD>;J5t7N;>71Kkd-h0%7$oH-@r%&m95W3@bu%_^BB!nFDB_nP3dxw*SvHL}QrOBk zX3WAqa*#zo>>fRmxi1z4hyWD0_ep|C!AI7V2-|o$Mo`FH;UOLn6v85hhDt9qbQLxK z8y{zY)HiNeUnlSw6nZCl7-o1FmH~Bz`+JYwU+CppetP{5tJn5(RiWGe>G=eU-m%Wf zYg-EKh0f_hd)0z}YAv+$8Q92l=JAd4{^gGupoa}mYwxE-p`9LiymP1gF=pRjR(ye& ziS^v~nUC%{SLoyzfBUsU`}Aa?v%ETb=kf013(LM6*6gaS4F`j5Z&#ZTstD3FSaO37++g(^2c`?%eErW9wjSWiJ6vc#c;LS?L#5SN zX{{SExc#oSwkGFAhc9#D^&sAS&&#QA@*XK9)MKs7>1#WYLFfb2VjAo?G6cEJF z=+8HG#B^Qy=;sASeK^gq^m%5r$>^0Yj*%9M-)2u$QxQIN?Oa*)A{688qn! zlN+Kc3Pxa$6nv`TR=gO8NZWcM3|%ZNR`+y7?rf>8pxKEs)5K2iqUc` z83e;wwScb!P5t44^>OJ2X+I_vM{xicr%kz!0`y# z+2oto(JapG9zx<>O;|s1|Y7>(K3kZ5|loO>+pX-gCaVqq#|QUys~SW zMof@o4dbvVIIerpBbv;hKWhe35edi=gQ(zwtl^mBE-Oax|Dn8%1{Q`wr6R#W64O?} zH&n4*rdC9(ES<2kDWXJWrc$t&+MWt%SGm?G7^Sw>DDp8Q*n79770Gcpk^#P z%45i?%wLAkJis5+hQf-KIVP;#s7S-v6nFqpZR43ug(Gyd| zIeLEa>=}}pS~wdfs;oAXa2S*l$6;o711O?S|7(Wqlo9K&y>M*)Eb`?zE=y!#@eDbA zYU8;rtLLMdF9va%6b^s!W5{{YN&5QkR z5SW-{#X0fvm<|*g9sPcLM@=VhL0NVY;{Y|ao&I1xjskwyAOocCu|}b;F~)InrHB8Z zaJ99DjxglR_qMe)_!XKy;_#HmgVUYUbB4tEbBKriGB=tIn=c< zqUDXa1qO`@!UazC$+=B?;BydYKLX%DfYBNOsZ#wSE0nbKZe~E{vq}x=!$>8D7-*)q zS2mX}o?N%Skznlty?SQb?z(;i<6e#@-NW%zy1KHt3**!tE|v|FSaQ$)EF}CH-E?lx zrj>Pv?Um5&k~iA6y^$8Z9{T9jPte74P5pDTyb$rqIO6-WcZAomm|ub!b(Z7^H6QKh zkmd5C680E#ha}P;UG3a%_%Y2|hEd~9UE_A{nSUsfQSf-&@%)OwYl_c)0Zwvy3cJDeoq&k+m`-i(B+%U z<}Vuv%dMrl>ovMiov(YjM%N(vx~~PgORx=b9sT`t#T{Q6IWRn5fAEtn!?vH5%VSF) zp5tLb1Dn@mnLhSf_g;&TSWWWYWs+(n(Q56(`0cI>~X8_ZvGhRMpWdoU^ zFz(981a>(l3KAio9?q7+UnTXzd6tdz%NK?_{2W^jk_;&(@f7O>w-5GJNil^kUF{$S zt4V881Kg*YV^JzyyuVXr#D$$#piU~2*W3A09s11*A2 zwlX}XR0oR~^vbJU^zXjAxpQEE^n=>v{4zN{b$S3mx9*h(OT(|^Le%(POX>N){GuQ{ zNn5YZZ1G{Irv`O6==d2Cl4N@M>a!aqmS_HDur%=fmqY6YNazo(b*0tUrv>3HI{w2? zHy!~>)Rmt8;iJOIcY)rx5u<*Zp6ABEe|TLD1iW-qzn~CLq(LQOGAAsR4;r2;DuRm4 zstRkqND@8tqj!o?g3GY~>;>>M$S__y+*DbC>o&{3vWRC927`E`V!YXm+v(&u=iz}c zhWoiv{=(0Zrt6#~WvwJHHsF^*U;pz-EHF?6Oe+a`o*K5Y7#Io37?v-OfpOKm%BTQu z|NTYL^0@uOyPnDsA&L7OK8edA3#bZtA`aD5wn^?G(kZNF7+ z6KDcN#l7wYYG1!^J$t!)c;o=xenX=BZhUS$`2KbOro43L1UFuNdFjp=Z!O))qqu-H z1qcF%B^cm=fdMgnrH4Q{)*y3c@C^XK=symgMt^c+o1jtQ`Dx^La2@7C45j_F?vFg%q&yfQ6P=4mJcF z|Ls5SDk``>#ayRg$8#g#DU7%~`4rw}6p)cM*{CR3QYBg0+agbZAUPF;v?f>C^CHgy z1@Kj6^9l-3HK)djTx2J#Cdp*vRl;>_H{*KzB@6G0TA;~VJo{xNF)jqdc8thK-=`#5 zc?vDCZe|xa7?&_#w$lk0xXUjEGOCe-M=HD~qsGWMkB(Fp_e17%GMhsT*pm7H$qYR3 zOjglI5$-inLJ_HW4M&NwB_b@6SuXrmCxZWLvVRvFT=Po^BV{kI2Xfl zb3Gt80r;^OE4C1u6Lkjor*0k>)Y5NnCO6Pa@7&+k9M75s-~avtdFdDLJRd5}z55^a z3@quB@Ac4sdaYMzrayRZAN|66t@HzEjQ2LvJ8w19&%WJDA9{ZezRthDh5p}P_t2N# L-(NCsooe`h7v*WF diff --git a/library/tedit/TEDIT-OLDFILE.LCOM b/library/tedit/TEDIT-OLDFILE.LCOM index a54a548051fcd46110044ae0157c86338c6d9bc1..42fa6a65e5227c1b8912760de69dde420bc0ec42 100644 GIT binary patch delta 1760 zcmZux&1w@-6i(toEGi-uDF_||V!KF~`=3cmV45FIJ0xL}B4`(lO{l^2hqf-N=q&BB z;1l=^c>rIb58z{{YtPMO=AMFCOwO5m&UfzI@B8lW%lxm){MGB2i_+G|qZ0SH0?)5{ zx++u=R*U<`hbNQicm&5sP=uw=jsEtRjh(ac=~?Z=@MJnXs)fh=SXeHXi!d6V&^?^81xsF29$<-_y~7{ab$UbN1x^+d|AdXmvY- zolY-^`b|)NlGmeVFu+v$u-kgmjJiEgVzCqk{XR(Ftw=4iD#(B+ zTr-!hnKReSjC;={c~5F=Nf2$eJD^n>3ATvVmR7YVq5dj}!ftoF52~V|JqW_MT?b_p zY$6q)u+s*1!MlVqtDDtht=$3x+k*G__}u5ss8uZPe$4E9N+m z6_Hg*XOY`sf=Vsl*zc0gzp+HUJ%77 z2}?g}!4al$qYIX`hi5rw-%o;+eZ^qz)e<=aLFtmdA&^qj0TL~kjEk(?#0@UR4K4+v zFuX!xxJ+RzO3M1|x^#Kx(X9gfhw_p6Q;5-z)YJwkntw!MYJ+5uR1+s_;$+PoXUcb+ zDdjj*+z~F(QVC~q41l(N%gy&?&@iOYzQ|v=}5J7#=jPL@~ zNwsxM3dgZCsg8l6&35~PsNH#q7lL&X$&C9hrm~v|7#btR(gJ#DFVu}e$vNE^H1k3q z2FuB1VbC6P8EI3ANr#ryx7wpzD^#|_R;X8(+544bxFM2piXu?AZVhGLyVq{ko0(eh Mj(9%%y7Bk+KmB6BvH$=8 delta 1607 zcmZvc&1w@-6vsQkh5fJ#@q@NlPlG~>q|E)EsohMbNevB2m_&rCsI^%Xw5`>JxNvaS zg$rSxz-I_Ph#%L|k8aJSRji;bYg_*a!k|0i6lL4=nhSy8sSfvPjo@usg z7HzMM7O&pFIsb9Vo2eAwo^E`oq%ybw&I&Wm3vkwVJk9@N$q`B9$m20b z0*ZaS$3g|Fn3U#{P>Mt#Lu!_Wnx&+zMMxqLb_xfCF4+ktI3b91K#lplC`pktQniSf z?%d)*r|?2qKn*6rbX`jrG!Su(-GStAbP%wS+VBmuu*El#t4LiSr#LxKJ|82U%-$?7 zW%cbl+2{J~=tpgTcA@eY2x{#9R8lk&ccViH<6} z*g2_A@kPTa{Xx>|?4px%XRr*PzOqM`PY4K<{&d}F=tc1!D#M|uNEr^jSt!6^Idi!~ z1B~5oZJ4qStC$bLgq)^9?b2+6ili)m7+Hn~VwvDm6e^Rxp^$r*T8+3dindoS{{!m% Bm9_u? diff --git a/library/tedit/TEDIT-PAGE b/library/tedit/TEDIT-PAGE index 06aae89f..e93700f1 100644 --- a/library/tedit/TEDIT-PAGE +++ b/library/tedit/TEDIT-PAGE @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "23-Feb-2025 10:06:16" {WMEDLEY}TEDIT>TEDIT-PAGE.;208 133418 +(FILECREATED "11-May-2025 15:03:00" {WMEDLEY}tedit>TEDIT-PAGE.;221 134841 :EDIT-BY rmk - :CHANGES-TO (FNS TEDIT.FORMAT.HARDCOPY) + :CHANGES-TO (FNS TEDIT.SINGLE.PAGEFORMAT) - :PREVIOUS-DATE "19-Feb-2025 13:33:12" {WMEDLEY}TEDIT>TEDIT-PAGE.;207) + :PREVIOUS-DATE "22-Apr-2025 08:12:43" {WMEDLEY}tedit>TEDIT-PAGE.;220) (PRETTYCOMPRINT TEDIT-PAGECOMS) @@ -19,7 +19,7 @@ (* ;; "Replaces CL:MULTIPLE-VALUE-SETQ, to avoid CL:VALUES") - (MACROS TEDIT.SETQS TEDIT.VALUES)) + (EXPORT (MACROS TEDIT.SETQS TEDIT.VALUES))) (INITRECORDS PAGEREGION) [COMS (* ;; "Page-numbering font specification/default. ") @@ -190,11 +190,10 @@ (EQ 'FIRST (FGETPLOOKS PARALOOKS FMTCOLUMN]) ) -(DECLARE%: EVAL@COMPILE +(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE (PUTPROPS TEDIT.SETQS MACRO - [ARGS `(LET (($$VALUES ,(CADR ARGS)) - ($$PRIMARY)) + [ARGS `(LET [($$VALUES ,(CADR ARGS] (DECLARE (LOCALVARS $$VALUES)) (PROG1 (CAR $$VALUES) ,@[FOR V IN (CAR ARGS) collect (COND @@ -203,6 +202,9 @@ (PUTPROPS TEDIT.VALUES MACRO [ARGS `(LIST ,@ARGS]) ) + +(* "END EXPORTED DEFINITIONS") + ) (/DECLAREDATATYPE 'PAGEREGION '(POINTER POINTER POINTER FULLXPOINTER POINTER POINTER) @@ -311,7 +313,8 @@ (TEDIT.SINGLE.PAGEFORMAT [LAMBDA (PAGE#S? PX PY PFONT PQUAD LEFT RIGHT TOP BOTTOM COLS COLWIDTH INTERCOL HEADINGS UNITS - PAGEPROPS PAPERSIZE) (* ; "Edited 10-Jan-2025 11:41 by rmk") + PAGEPROPS PAPERSIZE) (* ; "Edited 11-May-2025 14:59 by rmk") + (* ; "Edited 10-Jan-2025 11:41 by rmk") (* ; "Edited 24-Dec-2024 21:20 by rmk") (* ; "Edited 15-Aug-2024 23:01 by rmk") (* ; "Edited 6-Aug-2024 12:06 by rmk") @@ -353,7 +356,7 @@ (AND INTERCOL (SETQ INTERCOL (HCSCALE SCALEFACTOR INTERCOL))) (SETQ PAGEWIDTH (IDIFFERENCE (IDIFFERENCE PAPERWIDTH RIGHT) LEFT)) - (CL:WHEN PAGE#S? + (CL:WHEN (EQ PAGE#S? 'Yes) (* ;; "This asserts that the page number's region is 4 inches wide. Why? What if the pretext/posttext is longer?") @@ -630,7 +633,8 @@ (TEDIT.FORMAT.HARDCOPY [LAMBDA (TEXTSTREAM FILE DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS IMAGETYPE FIRSTPG# STARTPG - ENDPG QUIET) (* ; "Edited 23-Feb-2025 09:59 by rmk") + ENDPG QUIET) (* ; "Edited 22-Apr-2025 08:12 by rmk") + (* ; "Edited 23-Feb-2025 09:59 by rmk") (* ; "Edited 30-Aug-2024 15:45 by rmk") (* ; "Edited 10-Jul-2024 23:34 by rmk") (* ; "Edited 29-Jun-2024 10:32 by rmk") @@ -658,7 +662,7 @@ `(PROGN (CLOSEF? OLDVALUE]) TEXTSTREAM else (ERROR TEXTSTREAM "is not a Tedit stream"))) - (PROG ((TEXTOBJ (FGETTSTR TEXTSTREAM TEXTOBJ)) + (PROG ((TEXTOBJ (FTEXTOBJ TEXTSTREAM)) [FORMATTINGSTATE (create PAGEFORMATTINGSTATE PAGE# _ (FIXP FIRSTPG#) FIRSTPAGE _ T @@ -730,7 +734,7 @@ do (* ;; "Format pages according to the existing layout:") - (\TEDIT.FORMATBOX TEXTOBJ PRSTREAM (GETPFS FORMATTINGSTATE CHNO) + (\TEDIT.FORMATBOX TEXTSTREAM PRSTREAM (GETPFS FORMATTINGSTATE CHNO) PAGEREGION FORMATTINGSTATE IMAGETYPE) (CL:WHEN (EQ (GETPFS FORMATTINGSTATE STATE) :NEW-PAGE-LAYOUT) @@ -778,7 +782,8 @@ (DEFINEQ (\TEDIT.FORMATBOX - [LAMBDA (TEXTOBJ PRSTREAM STARTINGCHNO PAGEREGION FORMATTINGSTATE) + [LAMBDA (TSTREAM PRSTREAM STARTINGCHNO PAGEREGION FORMATTINGSTATE) + (* ; "Edited 21-Apr-2025 18:50 by rmk") (* ; "Edited 20-Nov-2024 12:37 by rmk") (* ; "Edited 17-Nov-2024 19:10 by rmk") (* ; "Edited 21-Oct-2024 00:33 by rmk") @@ -790,151 +795,155 @@ (* ; "Edited 15-Feb-2023 23:47 by rmk") (* ; "Edited 30-May-91 12:51 by jds") - (* ;; "Grab text from the TEXTOBJ, starting with STARTINGCHNO, and use it to fill REGION on a page. Return a list of line descriptors which, taken together, fill the region.") + (* ;; "Grab text from the TSTREAM, starting with STARTINGCHNO, and use it to fill REGION on a page. Return a list of line descriptors which, taken together, fill the region.") (* ;; "This updates the CHNO field of the PAGEFORMATTINGSTATE") - (LET ((REGION (fetch (PAGEREGION REGIONSPEC) of PAGEREGION)) - CHNO LINES LAST-CHNO SUBREGIONSPEC (TEXTLEN (FGETTOBJ TEXTOBJ TEXTLEN))) - (SELECTQ (fetch REGIONFILLMETHOD of PAGEREGION) - (TEXT (* ; + (LET* ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (REGION (fetch (PAGEREGION REGIONSPEC) of PAGEREGION)) + (TEXTLEN (TEXTLEN TEXTOBJ)) + CHNO LINES LAST-CHNO SUBREGIONSPEC) + (SELECTQ (fetch REGIONFILLMETHOD of PAGEREGION) + (TEXT (* ;  "A normal text region. Fill it with text formatted the usual way.") - (CL:WHEN (\TEDIT.FORMAT.FOUNDBOX? PAGEREGION FORMATTINGSTATE) - (* ; - "Only format if we're not looking for something else.") - (TEDIT.SETQS (LINES NIL LAST-CHNO) - (\TEDIT.FORMATTEXTBOX TEXTOBJ PRSTREAM STARTINGCHNO PAGEREGION - FORMATTINGSTATE)))) - (FOLIO (* ; - "A Page Number. Fill it in according to the instructions") (CL:WHEN (\TEDIT.FORMAT.FOUNDBOX? PAGEREGION FORMATTINGSTATE) (* ;  "Only format if we're not looking for something else.") - (SETQ LINES (\TEDIT.FORMATFOLIO TEXTOBJ PRSTREAM FORMATTINGSTATE PAGEREGION)))) - (HEADING (* ; - "A Page heading. Fill it in from a text source we saved for the occasion.") - (CL:WHEN (\TEDIT.FORMAT.FOUNDBOX? PAGEREGION FORMATTINGSTATE) + (TEDIT.SETQS (LINES NIL LAST-CHNO) + (\TEDIT.FORMATTEXTBOX TSTREAM PRSTREAM STARTINGCHNO PAGEREGION + FORMATTINGSTATE)))) + (FOLIO (* ; + "A Page Number. Fill it in according to the instructions") + (CL:WHEN (\TEDIT.FORMAT.FOUNDBOX? PAGEREGION FORMATTINGSTATE) (* ;  "Only format if we're not looking for something else.") - (SETQ LINES (\TEDIT.FORMATHEADING TEXTOBJ PRSTREAM FORMATTINGSTATE - PAGEREGION)))) - (PAGE - (* ;; "This box is really a PAGE FRAME, no lines here. Fill it in and do whatever other processing is needful for end of page.") + (SETQ LINES (\TEDIT.FORMATFOLIO TEXTOBJ PRSTREAM FORMATTINGSTATE PAGEREGION) + ))) + (HEADING (* ; + "A Page heading. Fill it in from a text source we saved for the occasion.") + (CL:WHEN (\TEDIT.FORMAT.FOUNDBOX? PAGEREGION FORMATTINGSTATE) + (* ; + "Only format if we're not looking for something else.") + (SETQ LINES (\TEDIT.FORMATHEADING TEXTOBJ PRSTREAM FORMATTINGSTATE + PAGEREGION)))) + (PAGE + (* ;; "This box is really a PAGE FRAME, no lines here. Fill it in and do whatever other processing is needful for end of page.") + (\TEDIT.FORMAT.FOUNDBOX? PAGEREGION FORMATTINGSTATE) + (* ; + "So that if this is the box he's looking for, we'll spot it and stop searching") + (\TEDIT.FORMATPAGE TSTREAM PRSTREAM STARTINGCHNO PAGEREGION FORMATTINGSTATE)) + ((RECURSIVE SEQUENCE ALTERNATE SELECTION REPEAT) + (* ; + "This box is really a list of boxes. Fill them.") (\TEDIT.FORMAT.FOUNDBOX? PAGEREGION FORMATTINGSTATE) (* ;  "So that if this is the box he's looking for, we'll spot it and stop searching") - (\TEDIT.FORMATPAGE TEXTOBJ PRSTREAM STARTINGCHNO PAGEREGION FORMATTINGSTATE)) - ((RECURSIVE SEQUENCE ALTERNATE SELECTION REPEAT) - (* ; - "This box is really a list of boxes. Fill them.") - (\TEDIT.FORMAT.FOUNDBOX? PAGEREGION FORMATTINGSTATE) - (* ; - "So that if this is the box he's looking for, we'll spot it and stop searching") - (SELECTQ (fetch REGIONFILLMETHOD of PAGEREGION) - ((SEQUENCE RECURSIVE) (* ; + (SELECTQ (fetch REGIONFILLMETHOD of PAGEREGION) + ((SEQUENCE RECURSIVE) (* ;  "Just run thru filling in the sub-boxes in order.") - (bind SUBREGIONSPEC for SUBREGION in (fetch (PAGEREGION REGIONSUBBOXES) - of PAGEREGION) - while (AND (ILEQ (GETPFS FORMATTINGSTATE CHNO) - TEXTLEN) - (OR (NOT (GETPFS FORMATTINGSTATE PAGE#)) - (NOT (GETPFS FORMATTINGSTATE MAXPAGE#)) - (ILEQ (GETPFS FORMATTINGSTATE PAGE#) - (GETPFS FORMATTINGSTATE MAXPAGE#))) - (NEQ (GETPFS FORMATTINGSTATE STATE) - :NEW-PAGE-LAYOUT)) - do [SETQ SUBREGIONSPEC (create REGION - using (fetch REGIONSPEC of SUBREGION) - LEFT _ - (IPLUS (fetch (REGION LEFT) - of (fetch REGIONSPEC - of SUBREGION)) - (fetch (REGION LEFT) - of REGION)) - BOTTOM _ - (IPLUS (fetch (REGION BOTTOM) - of (fetch REGIONSPEC - of SUBREGION)) - (fetch (REGION BOTTOM) - of REGION] - (\TEDIT.FORMATBOX TEXTOBJ PRSTREAM (GETPFS FORMATTINGSTATE CHNO) - (create PAGEREGION using SUBREGION REGIONSPEC _ SUBREGIONSPEC - ) - FORMATTINGSTATE))) - (ALTERNATE (* ; + (bind SUBREGIONSPEC for SUBREGION in (fetch (PAGEREGION REGIONSUBBOXES) + of PAGEREGION) + while (AND (ILEQ (GETPFS FORMATTINGSTATE CHNO) + TEXTLEN) + (OR (NOT (GETPFS FORMATTINGSTATE PAGE#)) + (NOT (GETPFS FORMATTINGSTATE MAXPAGE#)) + (ILEQ (GETPFS FORMATTINGSTATE PAGE#) + (GETPFS FORMATTINGSTATE MAXPAGE#))) + (NEQ (GETPFS FORMATTINGSTATE STATE) + :NEW-PAGE-LAYOUT)) + do [SETQ SUBREGIONSPEC (create REGION + using (fetch REGIONSPEC of SUBREGION) + LEFT _ + (IPLUS (fetch (REGION LEFT) + of (fetch REGIONSPEC + of SUBREGION)) + (fetch (REGION LEFT) + of REGION)) + BOTTOM _ + (IPLUS (fetch (REGION BOTTOM) + of (fetch REGIONSPEC + of SUBREGION)) + (fetch (REGION BOTTOM) + of REGION] + (\TEDIT.FORMATBOX TSTREAM PRSTREAM (GETPFS FORMATTINGSTATE CHNO) + (create PAGEREGION using SUBREGION REGIONSPEC _ + SUBREGIONSPEC) + FORMATTINGSTATE))) + (ALTERNATE (* ;  "Run through the sub-boxes repeatedly in sequence.") - (while (AND (ILEQ (GETPFS FORMATTINGSTATE CHNO) - TEXTLEN) - (NEQ :NEW-PAGE-LAYOUT (GETPFS FORMATTINGSTATE STATE))) - do (bind SUBREGIONSPEC for SUBREGION - in (fetch (PAGEREGION REGIONSUBBOXES) of PAGEREGION) - while (AND (ILEQ (GETPFS FORMATTINGSTATE CHNO) - TEXTLEN) - (NEQ (GETPFS FORMATTINGSTATE STATE) - :NEW-PAGE-LAYOUT)) - do [SETQ SUBREGIONSPEC - (create REGION - using (fetch REGIONSPEC of SUBREGION) - LEFT _ (IPLUS (fetch (REGION LEFT) - of (fetch REGIONSPEC - of SUBREGION)) - (fetch (REGION LEFT) - of REGION)) - BOTTOM _ (IPLUS (fetch (REGION BOTTOM) - of (fetch REGIONSPEC - of SUBREGION)) - (fetch (REGION BOTTOM) - of REGION] - (\TEDIT.FORMATBOX TEXTOBJ PRSTREAM (GETPFS + (while (AND (ILEQ (GETPFS FORMATTINGSTATE CHNO) + TEXTLEN) + (NEQ :NEW-PAGE-LAYOUT (GETPFS FORMATTINGSTATE STATE))) + do (bind SUBREGIONSPEC for SUBREGION + in (fetch (PAGEREGION REGIONSUBBOXES) of PAGEREGION) + while (AND (ILEQ (GETPFS FORMATTINGSTATE CHNO) + TEXTLEN) + (NEQ (GETPFS FORMATTINGSTATE STATE) + :NEW-PAGE-LAYOUT)) + do [SETQ SUBREGIONSPEC + (create REGION + using (fetch REGIONSPEC of SUBREGION) + LEFT _ (IPLUS (fetch (REGION LEFT) + of (fetch REGIONSPEC + of SUBREGION)) + (fetch (REGION LEFT) + of REGION)) + BOTTOM _ (IPLUS (fetch (REGION BOTTOM) + of (fetch REGIONSPEC + of SUBREGION)) + (fetch (REGION BOTTOM) + of REGION] + (\TEDIT.FORMATBOX TSTREAM PRSTREAM (GETPFS FORMATTINGSTATE - CHNO) - (create PAGEREGION using SUBREGION REGIONSPEC _ - SUBREGIONSPEC) - FORMATTINGSTATE)))) - (SELECTION (* ; + CHNO) + (create PAGEREGION using SUBREGION REGIONSPEC _ + SUBREGIONSPEC) + FORMATTINGSTATE)))) + (SELECTION (* ;  "Do one or another box, depending on some criterion.")) - (\TEDIT.THELP)) (* ; - "For now, draw a box around it, too.") - ) - NIL) - (for LINE LTEXTOBJ in LINES when LINE do (* ; + (\TEDIT.THELP))) + NIL) + (for LINE LTEXTSTREAM in LINES when LINE do (* ;  "Run thru the lines displaying them all.") - (BLOCK) - (SETQ LTEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) - of (FGETLD LINE LTEXTSTREAM))) - (CL:WHEN (OR (NOT (GETPFS FORMATTINGSTATE MINPAGE#) - ) - (IGEQ (GETPFS FORMATTINGSTATE PAGE#) - (GETPFS FORMATTINGSTATE MINPAGE# - ))) + (BLOCK) + (CL:WHEN (OR (NOT (GETPFS FORMATTINGSTATE + MINPAGE#)) + (IGEQ (GETPFS FORMATTINGSTATE + PAGE#) + (GETPFS FORMATTINGSTATE + MINPAGE#))) (* ;  "We're beyond the min page number -- go ahead and print the line") - (\TEDIT.HARDCOPY.DISPLAYLINE - LTEXTOBJ LINE (SCALEREGION (DSPSCALE NIL - PRSTREAM) - REGION) - PRSTREAM FORMATTINGSTATE)) - (CL:WHEN (EQ TEXTOBJ LTEXTOBJ) + (SETQ LTEXTSTREAM (FGETLD LINE LTEXTSTREAM) + ) + (\TEDIT.HARDCOPY.DISPLAYLINE + (FGETLD LINE LTEXTSTREAM) + LINE + (SCALEREGION (DSPSCALE NIL PRSTREAM) + REGION) + PRSTREAM FORMATTINGSTATE)) + (CL:WHEN (EQ TSTREAM LTEXTSTREAM) - (* ;; + (* ;;  "This line refers back to the main text, so update the current-char pointer.") - (* ;; + (* ;;  "[NB that footnotes could cause the count to be non-monotonic; hence the IMAX.]") - (SETQ CHNO (IMAX (OR CHNO 0) - (FGETLD LINE LCHARLIM)))) - (push (GETPFS FORMATTINGSTATE PAGELINECACHE) - LINE) - (FSETLD LINE LTEXTSTREAM NIL)) - (COND - (LAST-CHNO (* ; + (SETQ CHNO (IMAX (OR CHNO 0) + (FGETLD LINE LCHARLIM)))) + (push (GETPFS FORMATTINGSTATE PAGELINECACHE) + LINE) + (FSETLD LINE LTEXTSTREAM NIL)) + (if LAST-CHNO + then (* ;  "We got a definite last chno from FORMATTEXTBOX.") - (SETPFS FORMATTINGSTATE CHNO LAST-CHNO)) - (CHNO (* ; + (SETPFS FORMATTINGSTATE CHNO LAST-CHNO) + elseif CHNO + then (* ;  "Otherwise, use the new char no if we computed one.") - (SETPFS FORMATTINGSTATE CHNO CHNO]) + (SETPFS FORMATTINGSTATE CHNO CHNO]) (\TEDIT.FORMATHEADING [LAMBDA (TEXTOBJ PRSTREAM FORMATTINGSTATE PAGEREGION) (* ; "Edited 9-Jan-2025 22:27 by rmk") @@ -1005,7 +1014,8 @@ LINE))]) (\TEDIT.FORMATPAGE - [LAMBDA (TEXTOBJ PRSTREAM CHNO PAGEREGION FORMATTINGSTATE) (* ; "Edited 19-Feb-2025 13:32 by rmk") + [LAMBDA (TSTREAM PRSTREAM CHNO PAGEREGION FORMATTINGSTATE) (* ; "Edited 21-Apr-2025 22:41 by rmk") + (* ; "Edited 19-Feb-2025 13:32 by rmk") (* ; "Edited 8-Feb-2025 21:13 by rmk") (* ; "Edited 11-Dec-2024 22:39 by rmk") (* ; "Edited 17-Mar-2024 00:24 by rmk") @@ -1034,110 +1044,112 @@ (* ;; "Only do real page formatting work if we're not trying to get ourselves to an equivalent page frame spec (having switched page layouts in mid-document).") - [PROG ((PAGE# (GETPFS FORMATTINGSTATE PAGE#)) - (PAGEPROPS (fetch (PAGEREGION REGIONLOCALINFO) of PAGEREGION)) - (REGION (\TEDIT.SCALEREGION (DSPSCALE NIL PRSTREAM) - (fetch (PAGEREGION REGIONSPEC) of PAGEREGION))) - (END-OF-PAGE-FN (GETTEXTPROP TEXTOBJ 'END-OF-PAGE-FN)) - (PRE-EXISTING-FONT (DSPFONT NIL PRSTREAM)) - (TEXTLEN (TEXTLEN TEXTOBJ)) - END-OF-PAGE-MARKER STARTING-FILEPTR PC NEWPARALOOKS) + [PROG* ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (PAGE# (GETPFS FORMATTINGSTATE PAGE#)) + (PAGEPROPS (fetch (PAGEREGION REGIONLOCALINFO) of PAGEREGION)) + (REGION (\TEDIT.SCALEREGION (DSPSCALE NIL PRSTREAM) + (fetch (PAGEREGION REGIONSPEC) of PAGEREGION))) + (END-OF-PAGE-FN (GETTEXTPROP TEXTOBJ 'END-OF-PAGE-FN)) + (PRE-EXISTING-FONT (DSPFONT NIL PRSTREAM)) + (TEXTLEN (TEXTLEN TEXTOBJ)) + END-OF-PAGE-MARKER STARTING-FILEPTR PC NEWPARALOOKS) (* ;; "For real page independence, we need to reset the font to where it was as of the beginning of the page before calling DSPNEWPAGE. This avoids font creation in a page prolog, which might get missed otherwise.") (* ;  "Print in the usual region on the page") - (CL:UNLESS (ILEQ CHNO TEXTLEN) - (RETURN)) - (SETQ PC (\TEDIT.ALIGNEDPIECE CHNO TEXTOBJ)) - (SETQ NEWPARALOOKS (\TEDIT.APPLY.PARASTYLES (PPARALOOKS PC) - PC TEXTOBJ)) (* ; + (CL:UNLESS (ILEQ CHNO TEXTLEN) + (RETURN)) + (SETQ PC (\TEDIT.ALIGNEDPIECE CHNO TEXTOBJ)) + (SETQ NEWPARALOOKS (\TEDIT.APPLY.PARASTYLES (PPARALOOKS PC) + PC TEXTOBJ)) (* ;  "RMK: Why both 'NEWPAGELAYOUT and :NEW-PAGE-LAYOUT ?") - (CL:WHEN (EQ 'NEWPAGELAYOUT (GETPLOOKS NEWPARALOOKS FMTPARATYPE)) + (CL:WHEN (EQ 'NEWPAGELAYOUT (GETPLOOKS NEWPARALOOKS FMTPARATYPE)) - (* ;; "The first paragra ph on this page starts a new page layout.") + (* ;; "The first paragra ph on this page starts a new page layout.") - (SETPFS FORMATTINGSTATE STATE :NEW-PAGE-LAYOUT) + (SETPFS FORMATTINGSTATE STATE :NEW-PAGE-LAYOUT) - (* ;; "The first character of the paragraph after the one containing PC:") + (* ;; "The first character of the paragraph after the one containing PC:") - [SETPFS FORMATTINGSTATE CHNO (ADD1 (CAR (\TEDIT.PARA.LAST TEXTOBJ PC] - [SETPFS FORMATTINGSTATE NEWPAGELAYOUT (\TEDIT.PARSE.PAGEFRAMES (LISTGET - (GETPLOOKS + [SETPFS FORMATTINGSTATE CHNO (ADD1 (CAR (\TEDIT.PARA.LAST TEXTOBJ PC] + [SETPFS FORMATTINGSTATE NEWPAGELAYOUT (\TEDIT.PARSE.PAGEFRAMES (LISTGET + (GETPLOOKS NEWPARALOOKS - FMTUSERINFO) - 'NEWPAGELAYOUT] - (RETURN)) + FMTUSERINFO + ) + 'NEWPAGELAYOUT] + (RETURN)) (* ;; "") - (CL:UNLESS PAGE# + (CL:UNLESS PAGE# - (* ;; "If this page template specifies a starting page number, use it.") + (* ;; "If this page template specifies a starting page number, use it.") - (SETQ PAGE# (OR (LISTGET PAGEPROPS 'STARTINGPAGE#) - 1)) - (SETPFS FORMATTINGSTATE PAGE# PAGE#)) - (CL:WHEN (LISTGET PAGEPROPS 'LANDSCAPE?) (* ; "This is a landscape page.") - (STREAMPROP PRSTREAM 'PRINTERMODE 'LANDSCAPE) + (SETQ PAGE# (OR (LISTGET PAGEPROPS 'STARTINGPAGE#) + 1)) + (SETPFS FORMATTINGSTATE PAGE# PAGE#)) + (CL:WHEN (LISTGET PAGEPROPS 'LANDSCAPE?) (* ; "This is a landscape page.") + (STREAMPROP PRSTREAM 'PRINTERMODE 'LANDSCAPE) (* ; "Put the info. into stream ") - (DSPPUSHSTATE PRSTREAM) - (DSPROTATE 90 PRSTREAM) - (DSPTRANSLATE 0 (IMINUS (ffetch (REGION HEIGHT) of REGION)) - PRSTREAM)) - (DSPCLIPPINGREGION REGION PRSTREAM) (* ; "Clip to the whole sheet.") - (DSPRIGHTMARGIN (fetch (REGION WIDTH) of REGION) - PRSTREAM) + (DSPPUSHSTATE PRSTREAM) + (DSPROTATE 90 PRSTREAM) + (DSPTRANSLATE 0 (IMINUS (ffetch (REGION HEIGHT) of REGION)) + PRSTREAM)) + (DSPCLIPPINGREGION REGION PRSTREAM) (* ; "Clip to the whole sheet.") + (DSPRIGHTMARGIN (fetch (REGION WIDTH) of REGION) + PRSTREAM) (* ;; "Go thru any leading page heading paras on the page, collecting copies of those pieces in the FORMATTINGSTATE. The value is the first CHNO of the start of the first non-heading piece.") - (SETQ CHNO (\TEDIT.HARDCOPY.PAGEHEADINGS TEXTOBJ CHNO FORMATTINGSTATE)) + (SETQ CHNO (\TEDIT.HARDCOPY.PAGEHEADINGS TSTREAM CHNO FORMATTINGSTATE PAGEREGION)) (* ;; "") (* ;; "We now fill up the next complete page. Afterwards, we either continue to the next page (DPSNEWPAGE) or finish up. TEDIT.FORMATBOX is responsible for setting up NEWPAGEBEFORFE and NEWPAGEAFTER") - (SETPFS FORMATTINGSTATE CHNO CHNO) - (for SUBREGION in (fetch (PAGEREGION REGIONSUBBOXES) of PAGEREGION) - while (ILEQ (GETPFS FORMATTINGSTATE CHNO) - TEXTLEN) do - (* ;; + (SETPFS FORMATTINGSTATE CHNO CHNO) + (for SUBREGION in (fetch (PAGEREGION REGIONSUBBOXES) of PAGEREGION) + while (ILEQ (GETPFS FORMATTINGSTATE CHNO) + TEXTLEN) do + (* ;;  "Now format the subregions of the page. The CHNO field may be updated by each call.") - (\TEDIT.FORMATBOX TEXTOBJ PRSTREAM (GETPFS FORMATTINGSTATE - CHNO) - SUBREGION FORMATTINGSTATE)) + (\TEDIT.FORMATBOX TSTREAM PRSTREAM (GETPFS FORMATTINGSTATE + CHNO) + SUBREGION FORMATTINGSTATE)) (* ;; "") - (DSPFONT PRE-EXISTING-FONT PRSTREAM) - (CL:WHEN (LISTGET PAGEPROPS 'LANDSCAPE?) (* ; "This is a landscape page.") - (STREAMPROP PRSTREAM 'PRINTERMODE NIL) - (DSPTRANSLATE 0 (ffetch (REGION HEIGHT) of REGION) - PRSTREAM) - (DSPROTATE 0 PRSTREAM) - (DSPPOPSTATE PRSTREAM)) - [COND - ([AND (ILEQ (GETPFS FORMATTINGSTATE CHNO) - TEXTLEN) - [NOT (AND END-OF-PAGE-FN (EQ 'DON'T (SETQ END-OF-PAGE-MARKER - (APPLY* END-OF-PAGE-FN TEXTOBJ - FORMATTINGSTATE] - [NOT (AND (GETPFS FORMATTINGSTATE MINPAGE#) - (ILESSP PAGE# (GETPFS FORMATTINGSTATE MINPAGE#] - (NOT (AND (GETPFS FORMATTINGSTATE MAXPAGE#) - (IEQ PAGE# (GETPFS FORMATTINGSTATE MAXPAGE#] + (DSPFONT PRE-EXISTING-FONT PRSTREAM) + (CL:WHEN (LISTGET PAGEPROPS 'LANDSCAPE?) (* ; "This is a landscape page.") + (STREAMPROP PRSTREAM 'PRINTERMODE NIL) + (DSPTRANSLATE 0 (ffetch (REGION HEIGHT) of REGION) + PRSTREAM) + (DSPROTATE 0 PRSTREAM) + (DSPPOPSTATE PRSTREAM)) + [COND + ([AND (ILEQ (GETPFS FORMATTINGSTATE CHNO) + TEXTLEN) + [NOT (AND END-OF-PAGE-FN (EQ 'DON'T (SETQ END-OF-PAGE-MARKER + (APPLY* END-OF-PAGE-FN TEXTOBJ + FORMATTINGSTATE] + [NOT (AND (GETPFS FORMATTINGSTATE MINPAGE#) + (ILESSP PAGE# (GETPFS FORMATTINGSTATE MINPAGE#] + (NOT (AND (GETPFS FORMATTINGSTATE MAXPAGE#) + (IEQ PAGE# (GETPFS FORMATTINGSTATE MAXPAGE#] (* ; "There is more to print....") (* ; "Force the new page") - (DSPNEWPAGE PRSTREAM)) - ((OR (AND (GETPFS FORMATTINGSTATE MAXPAGE#) - (IGEQ PAGE# (GETPFS FORMATTINGSTATE MAXPAGE#))) - (EQ END-OF-PAGE-MARKER 'DON'T)) (* ; + (DSPNEWPAGE PRSTREAM)) + ((OR (AND (GETPFS FORMATTINGSTATE MAXPAGE#) + (IGEQ PAGE# (GETPFS FORMATTINGSTATE MAXPAGE#))) + (EQ END-OF-PAGE-MARKER 'DON'T)) (* ;  "We've run past the last page to be formatted. or were told to stop. .") - (SETPFS FORMATTINGSTATE CHNO (ADD1 TEXTLEN] - (add (GETPFS FORMATTINGSTATE PAGE#) - 1) - (SETPFS FORMATTINGSTATE FIRSTPAGE NIL) - (SETPFS FORMATTINGSTATE PAGE#TEXT (pop (GETPFS FORMATTINGSTATE PAGE#GENERATOR]) + (SETPFS FORMATTINGSTATE CHNO (ADD1 TEXTLEN] + (add (GETPFS FORMATTINGSTATE PAGE#) + 1) + (SETPFS FORMATTINGSTATE FIRSTPAGE NIL) + (SETPFS FORMATTINGSTATE PAGE#TEXT (pop (GETPFS FORMATTINGSTATE PAGE#GENERATOR]) (* ;; "Some things happen regardless of whether we're searching or not: Need to count pages we pass over to find an equivalent page in the new layout:") @@ -1145,7 +1157,8 @@ 1]) (\TEDIT.FORMATTEXTBOX - [LAMBDA (TEXTOBJ PRSTREAM CHNO PAGEREGION FORMATTINGSTATE) (* ; "Edited 19-Feb-2025 13:32 by rmk") + [LAMBDA (TSTREAM PRSTREAM CHNO PAGEREGION FORMATTINGSTATE) (* ; "Edited 21-Apr-2025 14:05 by rmk") + (* ; "Edited 19-Feb-2025 13:32 by rmk") (* ; "Edited 8-Feb-2025 23:39 by rmk") (* ; "Edited 11-Dec-2024 22:37 by rmk") (* ; "Edited 24-Nov-2024 11:46 by rmk") @@ -1173,7 +1186,8 @@ (* ;; "Only format text if we're really formatting.") - (LET* ((REGION (SCALEREGION (DSPSCALE NIL PRSTREAM) + (LET* ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (REGION (SCALEREGION (DSPSCALE NIL PRSTREAM) (ffetch (PAGEREGION REGIONSPEC) of PAGEREGION))) (COLUMNBOTTOM (fetch (REGION BOTTOM) of REGION)) (RTOP (fetch (REGION TOP) of REGION)) @@ -1216,8 +1230,8 @@ (SETQ LINE (pop (GETPFS FORMATTINGSTATE PAGELINECACHE))) (* ;  "Format the line, noting any form-feeds") - (SETQ LINE (\TEDIT.FORMATLINE (FGETTOBJ TEXTOBJ STREAMHINT) - CHNO LINE REGION PRSTREAM FORMATTINGSTATE)) + (SETQ LINE (\TEDIT.FORMATLINE TSTREAM CHNO LINE REGION PRSTREAM + FORMATTINGSTATE)) (SETQ FORCENEXTPAGE (AND (EQ (CHARCODE FORM) (FGETLD LINE FORCED-END)) 'USERBREAK)) @@ -1238,7 +1252,7 @@ (CL:WHEN FORCENEXTPAGE (* ;  "HELP in original code. SHOULDNT ?") (\TEDIT.THELP)) - (SETQ FOOTNOTELINES (\TEDIT.FORMAT.FOOTNOTE TEXTOBJ PRSTREAM LINE REGION + (SETQ FOOTNOTELINES (\TEDIT.FORMAT.FOOTNOTE TSTREAM PRSTREAM LINE REGION FORMATTINGSTATE)) (SETQ CHNO (FGETLD (CAR (FLAST FOOTNOTELINES)) LCHARLIM)) (* ; "Grab the lines of this footnote") @@ -1517,7 +1531,8 @@ (DEFINEQ (\TEDIT.HARDCOPY.PAGEHEADINGS - [LAMBDA (TEXTOBJ CHNO FORMATTINGSTATE) (* ; "Edited 19-Feb-2025 13:32 by rmk") + [LAMBDA (TSTREAM CHNO FORMATTINGSTATE PAGEREGION) (* ; "Edited 22-Apr-2025 08:11 by rmk") + (* ; "Edited 19-Feb-2025 13:32 by rmk") (* ; "Edited 12-Jan-2025 17:31 by rmk") (* ; "Edited 10-Jan-2025 15:42 by rmk") (* ; "Edited 21-Oct-2024 00:33 by rmk") @@ -1532,7 +1547,8 @@ (CL:UNLESS FORMATTINGSTATE (* ;  "If it isn't there, we would loose the headings") (\TEDIT.THELP "NIL FORMATTINGSTATE")) - (bind HEADINGSUBTYPE (PC _ (\TEDIT.CHTOPC CHNO TEXTOBJ)) + (bind HEADINGSUBTYPE PC (TEXTOBJ _ (FTEXTOBJ TSTREAM)) first (SETQ PC (\TEDIT.CHTOPC CHNO TEXTOBJ + )) while (AND PC (EQ 'PAGEHEADING (GETPLOOKS (PPARALOOKS PC) FMTPARATYPE))) do (SETQ HEADINGSUBTYPE (GETPLOOKS (PPARALOOKS PC) @@ -1548,7 +1564,8 @@ (add CHNO (PLEN P)) finally (LISTPUT (fetch PAGEHEADINGS of FORMATTINGSTATE) HEADINGSUBTYPE (\TEDIT.SELPIECES.COPY (\TEDIT.SELPIECES START - CHNO TEXTOBJ))) + CHNO TEXTOBJ) + NIL TSTREAM)) (* ;;  "Set PC to continue looking for the next headingtype.") @@ -1567,7 +1584,7 @@ [SETQ FOLIOSTREAM (OPENTEXTSTREAM NIL NIL `(PARALOOKS ,(LISTGET FOLIOINFO 'PARALOOKS) LOOKS ,(LISTGET FOLIOINFO 'CHARLOOKS] - (SETQ FOLIOTEXTOBJ (GETTSTR FOLIOSTREAM TEXTOBJ)) + (SETQ FOLIOTEXTOBJ (FTEXTOBJ FOLIOSTREAM)) (CL:WHEN (CADR INFOLIST) (TEDIT.INSERT FOLIOSTREAM (MKSTRING (CADR INFOLIST)))) (TEDIT.INSERT.OBJECT (TEDIT.PAGENO.CREATE (CAR INFOLIST)) @@ -1577,7 +1594,8 @@ (LISTPUT (fetch PAGEHEADINGS of FORMATTINGSTATE) '\TEDIT.PAGENO (\TEDIT.SELPIECES.COPY (\TEDIT.SELPIECES 1 (TEXTLEN FOLIOTEXTOBJ) - FOLIOTEXTOBJ))))] + (FTEXTOBJ TSTREAM)) + NIL TSTREAM)))] CHNO]) ) @@ -2044,7 +2062,8 @@ (DEFINEQ (\TEDIT.FORMAT.FOOTNOTE - [LAMBDA (TEXTOBJ PRSTREAM LINE REGION FORMATTINGSTATE) (* ; "Edited 20-Nov-2024 12:37 by rmk") + [LAMBDA (TSTREAM PRSTREAM LINE REGION FORMATTINGSTATE) (* ; "Edited 21-Apr-2025 14:03 by rmk") + (* ; "Edited 20-Nov-2024 12:37 by rmk") (* ; "Edited 17-Nov-2024 19:22 by rmk") (* ; "Edited 13-Jun-2024 17:13 by rmk") (* ; "Edited 15-Mar-2024 19:24 by rmk") @@ -2054,21 +2073,19 @@ (* ; "Edited 7-Mar-2023 13:11 by rmk") (* ; "Edited 30-May-91 12:52 by jds") - (* ;; "Grab text from the TEXTOBJ, starting with CHNO, and use it to fill REGION on a page. Return a list of line descriptors which, taken together, fill the region.") + (* ;; "Grab text from the TSTREAM, starting with CHNO, and use it to fill REGION on a page. Return a list of line descriptors which, taken together, fill the region.") (BLOCK) (* ;  "Footnotes aren't so long, but why not?") (bind PREVLINE (LEFT _ (fetch (REGION LEFT) of REGION)) - (TEXTLEN _ (TEXTLEN TEXTOBJ)) + (TEXTLEN _ (TEXTLEN (FTEXTOBJ TSTREAM))) (CHNO _ (GETLD LINE LCHAR1)) while (ILEQ CHNO TEXTLEN) until (AND PREVLINE (GETLD PREVLINE LSTLN)) collect (* ;; "Grab a line descriptor from the formatting list, or create a new one.") - (SETQ LINE (\TEDIT.FORMATLINE (FGETTOBJ TEXTOBJ STREAMHINT) - CHNO - (GETPFS FORMATTINGSTATE PAGELINECACHE) + (SETQ LINE (\TEDIT.FORMATLINE TSTREAM CHNO (GETPFS FORMATTINGSTATE PAGELINECACHE) REGION PRSTREAM FORMATTINGSTATE)) (* ;  "Format the line, noting any form-feeds") @@ -2084,18 +2101,18 @@ (RETURN (DREMOVE NIL $$VAL]) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (12098 15710 (\TEDIT.PARSE.PAGEFRAMES 12108 . 13887) (\TEDIT.PUT.PAGEFRAMES 13889 . -14713) (\TEDIT.UNPARSE.PAGEFRAMES 14715 . 15708)) (15773 37671 (TEDIT.SINGLE.PAGEFORMAT 15783 . 26657) - (TEDIT.COMPOUND.PAGEFORMAT 26659 . 27638) (TEDIT.PAGEFORMAT 27640 . 34929) (TEDIT.GET.PAGEFORMAT -34931 . 37669)) (37958 48639 (TEDIT.FORMAT.HARDCOPY 37968 . 48637)) (48726 101203 (\TEDIT.FORMATBOX -48736 . 61839) (\TEDIT.FORMATHEADING 61841 . 66487) (\TEDIT.FORMATPAGE 66489 . 75356) ( -\TEDIT.FORMATTEXTBOX 75358 . 91739) (\TEDIT.FORMATFOLIO 91741 . 97058) (\TEDIT.FORMAT.FOUNDBOX? 97060 - . 99099) (\TEDIT.SKIP.SPECIALCOND 99101 . 101201)) (101283 105992 (\TEDIT.HARDCOPY.PAGEHEADINGS -101293 . 105990)) (106101 114152 (\TEDIT.HARDCOPY-COLUMN-END 106111 . 114150)) (114197 119138 ( -SCALEPAGEUNITS 114207 . 115348) (SCALEPAGEXUNITS 115350 . 116120) (SCALEPAGEYUNITS 116122 . 116893) ( -\TEDIT.PAPERHEIGHT 116895 . 117830) (\TEDIT.PAPERWIDTH 117832 . 119136)) (119554 123122 (ROMANNUMERALS - 119564 . 123120)) (123161 130427 (TEDIT.PAGENO.CREATE 123171 . 123547) (\TEDIT.PAGENO.OBJINIT 123549 - . 124832) (\TEDIT.PAGENO.BUTTONEVENTINFN 124834 . 125900) (\TEDIT.PAGENO.IMAGEBOXFN 125902 . 128052) -(\TEDIT.PAGENO.DISPLAYFN 128054 . 129704) (\TEDIT.PAGENO.GETFN 129706 . 130098) (\TEDIT.PAGENO.PUTFN -130100 . 130425)) (130492 133395 (\TEDIT.FORMAT.FOOTNOTE 130502 . 133393))))) + (FILEMAP (NIL (12141 15753 (\TEDIT.PARSE.PAGEFRAMES 12151 . 13930) (\TEDIT.PUT.PAGEFRAMES 13932 . +14756) (\TEDIT.UNPARSE.PAGEFRAMES 14758 . 15751)) (15816 37833 (TEDIT.SINGLE.PAGEFORMAT 15826 . 26819) + (TEDIT.COMPOUND.PAGEFORMAT 26821 . 27800) (TEDIT.PAGEFORMAT 27802 . 35091) (TEDIT.GET.PAGEFORMAT +35093 . 37831)) (38120 48905 (TEDIT.FORMAT.HARDCOPY 38130 . 48903)) (48992 102244 (\TEDIT.FORMATBOX +49002 . 62426) (\TEDIT.FORMATHEADING 62428 . 67074) (\TEDIT.FORMATPAGE 67076 . 76265) ( +\TEDIT.FORMATTEXTBOX 76267 . 92780) (\TEDIT.FORMATFOLIO 92782 . 98099) (\TEDIT.FORMAT.FOUNDBOX? 98101 + . 100140) (\TEDIT.SKIP.SPECIALCOND 100142 . 102242)) (102324 107379 (\TEDIT.HARDCOPY.PAGEHEADINGS +102334 . 107377)) (107488 115539 (\TEDIT.HARDCOPY-COLUMN-END 107498 . 115537)) (115584 120525 ( +SCALEPAGEUNITS 115594 . 116735) (SCALEPAGEXUNITS 116737 . 117507) (SCALEPAGEYUNITS 117509 . 118280) ( +\TEDIT.PAPERHEIGHT 118282 . 119217) (\TEDIT.PAPERWIDTH 119219 . 120523)) (120941 124509 (ROMANNUMERALS + 120951 . 124507)) (124548 131814 (TEDIT.PAGENO.CREATE 124558 . 124934) (\TEDIT.PAGENO.OBJINIT 124936 + . 126219) (\TEDIT.PAGENO.BUTTONEVENTINFN 126221 . 127287) (\TEDIT.PAGENO.IMAGEBOXFN 127289 . 129439) +(\TEDIT.PAGENO.DISPLAYFN 129441 . 131091) (\TEDIT.PAGENO.GETFN 131093 . 131485) (\TEDIT.PAGENO.PUTFN +131487 . 131812)) (131879 134818 (\TEDIT.FORMAT.FOOTNOTE 131889 . 134816))))) STOP diff --git a/library/tedit/TEDIT-PAGE.LCOM b/library/tedit/TEDIT-PAGE.LCOM index 13556b021c440c1cff5f5241c401f52e40ffe967..0e607541ab3fc626b8c38497f4d7f1a83f911445 100644 GIT binary patch delta 7546 zcma)BZERcDdDf+5JCiM$vS^v675Rv^Wy-M>-Vc5$s;n#WN~HL4D3Xe-#O|$ZxuIgk zcAe}aNHV4^ux4AZIlkMH4oSDBSi5z_V2Tljd~6q8F%&9LYy(ov9Wbo>F$~*}Rr<5; z$6D<<=iEzDb^=U*$n*KW?>Xl^&-=WG-}+bSAOB6d^Hgd6mv4+IVI@MsiHUG*LY9Lh z6uf%#xm#=N*H+2R8ze}&UrLp;uS_mJf9>}3Q`c8+t*_je%H6!WvOe|Pwbk`&FRJ5_ zsb|(+7!$QAi%KVI>L>{+>R3y9d_s*)Xi-Refk|IKyGqs|e0DLHBkcpn$H#+Yb>#&p z{{#UMB{S0>ljuH0U^ z{o)ivuDvjYIho2>QJ*u$pHLK;$f_3CWb1ip#QNEdzS1a}D3**TGjy>$mVyEpp^WLb zZaaGvpOBRaO=WxX|B@db?Y8O>zxBhe1C8UJKielAXngO$uX*-A(}BP3#uMFdcxrKS zsgR_Fq(WplqLJCm#S%(N%q@jAVw6f0jp0bNRg?*vq*q8Hp^|b^&lzk{%Zr6frA!i$ zc&qKA(G|gqal&MljJXUg zz@~VFRE&!ilwxt~b7Mzgk)n~bp{Fv1xyo|UAc>gj)=457WrGgIBQY^89tpFC;dnSf zW@#=%Glf}7;$a1~QeLm{YAhZj)`e?<3$Zv>nAS@T!ybrlQA7!_88WW6+pnNU>F^Gq2|tXRqvDzsR^36xn&l%!~( zQpO>U5^3NIlD9)z3Vf$>lR4DdLH22vtCj_;!mnP_n zd#(;H4KzjamwdV{l=qcWH=^Sn^f_0Y1zT{>>-(K)ccsuz7%&`=pK~|Mm3Y zUN1&0b#%O2-%XVHV3ZzTyEoddj*!P&gyGui_Ee&zm zTYmo4u!g@PJq=IboR7bvZPm%>2dBuYJ};(SaF;{#gU?j z8&o7p3@+rBWk?ow=JirmPgXKd8bpr8te>9xY%Q92*c25wARJ2#N8F;q&_T2+aiv)V z(4=T`F^|hJ&KD;q63nyC;&x-1g$!U>jwxiufFm2YhN&biF3%Ql!HKuJ*p6fkvVj0LptHX^P! z?k^KS9N;XHu)8}}AQ7_u?(E4Y#F31W&f?LIj(yYIU*DMi%5=N8_I`s=%wSKVve@i*-%?a`C@K04I7xv&4;-%BQG>)UDk7nknJ9oSmeAqU^F>93u+ie^2m_zm5F9_5AP3Ouo{8M*#Vw#4wH~iVn&Sx>q zfBn9B#9pOGcHXt=kq=!hO=vTHbcFh(fFClezMxG{d(6}I-SzByJ?_{nEb0iwqOuDM z?yVfR<{s;*0aZ8)aGWlt#Yn1LWsWL?epZAfoULy@+6# zAO*p&6rx4K50B8)SZjn5k%_fkJr=+f)b@^L0TPI!SU;`$yKo6*i=02^(c-Lr0^!hQ zA>%?hrvSTJX>R4|LP}`HcGQuE4P4Tj`W1uIoCY_TpL>v$Fv4g-awd;kdmKCQ7bh#0MVXcTj zf5ZNOMv8)IPZ(_8{%|C@kadaRDMTYI|*nQ!ki`$+%z1D)# zU%PI93U#gZdT@0`1KKduEjm?A)z;JZV0{ z^lo{nH_d67*(;#Y`bc?HN?ZS=oD4ZF16<@;PP^*T?`8jDUNmfWUjHza_1p8-u=?1U z93xXd)&-@@3FB-uN=|Wl1_8yor4IUfSn%llQoZ9h`wLFzy!FTGfRwZTQaxRRg^gQw zexpB~TKD7+_nJNdu8pTss}T2xcGiK+c?M(BTdeAlkooA`!h09@ge1P+-LMF$>X>E{r&yc+gbn!i3CV6sut8~;77no z?l6EV4I~29BF?_T?=@}->Ln^_$i+~rl=MP5$GTM{7{Vo(yAXEI(LW1@4*t@_HUZSu z%WH?%i3)DQ1hVV{&ODbX5H$=^UoIwdnPL(C?0BS-i0{>X<;e& zaJwlA=+nJO;27hl4%gL7;`6lv?erhtK)Hk6og$rz91-ZX1B){ zgdnKqEx5=LfRSL18e)(rsYn$a@|&kA>{BcX?o>!&PSLnPR3KgpENZ|rrPU2ULoZ8v zj1r%$Xz^C>1%Mi3wBqhFA*X;fQE}tv3kOYI1G`E;9j4jXT zWyVvHusV*%vu8Af$?^=XFc3-*5Li8{&te^+KirCE>eb1a5MH|;iyxv z&uJr*Ww|Z-a0<=!peh(E>kz2sKx~3!0ia{FV2rs08awV%Y0Hcc)S`HeDCjwd`?AE8 zmWpYe^V}8>MmmdwqouLtI{8{~huA^QQd%j{3TMn9B)Egf&6%g64>lovc1JMXY;AZa z$dt;JTt?-z9)S(1FxpwF#x@dLRiSw_L|Zt%2d`@`UU$i-!LvC;IQ;T%y=(YWuzSIU z;^dY`fOFpg@NH0Jd=>yP(*5Ul@AtjYw+2q8(Q_qX$IuOVm$KSFcwK=~NG=n9EYe^SW4B)dN}fWxqiXmp|z=~ zzB}J!ykbf2=Tnk2&jHm8+tV{NTmaMMQOFE$1=bI3zb9S+5V&Y~>yW9juc?r!uy67X zKEQ#mbfH%F{03FFoIv#+i!J{{2Yz2@oz@}Pfqc_v{rALVO)Q%m?YCd2zP{m8bjD0| zZXW2b);(R4Im@iqJ~n&lV*a${*T=M zu{p{1ZE|NLK;w;pHF0hOSR)OaLw2>^@#pkNBTH+-`UXyXE3`$h!xQGzhQ>{9&8cDv zom$&&__=TLUca-+bjoj6?_GvrL2J#NK%TjIl};iRrQubv3|K`ceMlZB?;~AvS1Ojm zU3mMw!!#_$ddz9NihBohT!%8F=D1DIZyuxL)qr{4JZIPc_ix$KH{P-Dy+y}I%=2hz zRFOVKV|Z?zeac|bItsXVpI)PYu2~)&qu{yht%F1m7V%!%EgnoGh#}V3GADu>9!hw> z#&R9^J(WFVi20gg?R@6Au0fy^Iz^(TB5dqo9~@wnMAXU56og3E8YQZ6WsfQvB5KLV zQ}*=Ju8+MGGjnPYy!5cgUxzicWqk^rVb(vXm)S_$zW4K+9kiFSM}-dlLvC zWkW9|(_kVb4(k@nMu|rvJo3byi81gTAvV{P8v}DZomeChk%u^emyvk(a?GFL5J5#Je@jN3Lqc$O)_=g6 zYz}Hqli_k-i7ofDP3Q$rm5qkPW#kJ*zK3R|8}j-_139)0y+e77T{ z;&GoH7~TmPH?;1}`Sb88muuo-B4Z>$0aWfB_{C;CQ-B|0FsNQWi-TkCslt;5w-vqP zU|)C%0C&=?V*2P9%c0x*L7wE+Y<9O?8;~@^hGXXxFtUe?kntM8-tUes`lSli>h$6#rB*Z2aYrKKIe0l_m)o7hsID_fMk>)FYxsqQb0+7<6})Kf=>=cL z4%LwT%bZHPoK;rEt3h)bXk?pEWa6%7JZZFkU4d%x6AGj4O~Q!Op{>H$S@TyKpbl1Z z)E-bA`7H zyyXWYFBnRjmB#sl%fr)SbZ(a(G&yrBu1` J>#L)O{ttjkUWEVv delta 7122 zcmZ`;Yit`=cGisKN3@nqJ;Kn8B3;voEjcF5nIVUdx{ikANF0%zOOqqZa-2*Z%dz}O z>?RJHMYCnvU9^j$#X6quZn{XasDW*ZZLk$Zt7ta69rV{iixy~sELMx6K>MTUj{*y+ z3$%ZlRlj>@NRdufhRORp_uPBW{myp|fBGN7U;Mjp?_zZB>Pt~ME+>f;&&JiPq(;be z6)o#lku!9MaWC9UF}T0 z`sSV2UVkP_EWKb@u{m0+XjZJK)e3o9T_)Edcy6&=Cf$N!u~>wxT)vBiKX(N+GBX&P zo-@jNzNTvsOd_(ncELpbhOH%6pvwWgmp=wdxufEd!d8zrkK zSxJtN!5%RK@zl(qGut0(1;w>}g3$WWfj7mLKKPE)y;xT zQW=R{;)m-j4jmEGs&i*(>ITEE6WPrq3JHgifgp?&E^RN)C+%p^%g& zMO`Zx=Df9B)k#K8wd*Lyooe*)L+PaC%}OT{tl?-nu8=ueHmG6FQ7EFK#;(_^rX}Ls zz7{^4N@0Vz@G_;PI!QrrUNX2|7|l;pfK96YI}A%agL zYN~6#noN(0uPTBB}cvnOkMUALI#^^@q8;$%syQyeaVezVJUk&j-5oJpmgBczHzVTbjICJUkr0i0Qt*2hH7##RsEw`ude|*Mj)w?yL24 z9c7k+PV}iGkJo+W_P&HGLFf6W&K%fDoTIU^);~;sSrmTi zRFBdF`N^7C&T?P^I=ONhC6RMcgIOgB>SP)HGrD$**(K zTrzMCimH%HmGfnzZV@G!CeHg)VOxvGVYo^HZ-QN*UW?W9HO~_8~ewa!WRWQ&dX}c^G zg{@9S6pGG&%^W!ub|JPs_cz%3G{kjUq2Y1SEe!2rZ7vOpcF>8R3<-u~oSbU##rKV^ z{ZsGSJFTB{VS=~A*1vVuvje|c5fOR?L{VTL{-+qmpZzP9YkZD&&E4PhR{hRFu5xMQ zXn;=iZ;X$XA2j>E(cWY^Bm@L|a{VoD6rJ3R_^@CTc8bEE76kV7=}v2c5<0o6@#84+ zPt8A%i|#BX+v}l)js6>u5W2Z#kGd;#bmxIfN59`*s)JJYIGv>9LOA3?-gv~N6QVuQ z+`YE&aHu_Y0c!P4r}*sBTd1#7wT2+vx%CHlU$kROK?VD0v?80MZH`l zD#rN@o`=lQ3q%DUF+Bn!mJHHJ6@OM?3_9> zASoF3&o>_LXRaL$A$aAU(Vk;XE37jNnCj_dua)Vhq|qIk0&=Js4u1?!R0Ypc2kBxC z59&)G0YQdzUDP6(i1$?GbWas5BWvnQQ8pu5)|Tm_MG`>3E(r;s;Ah7u38Dc@Y9`}p zN+v_z8tCVfoaN}DxB_O@Tie#*(?1ta^g?Ea;9&PSRF&Wi7_z1uNgi*g1gs=V=e(0=4ok10)8i-}Xo7*& z^r(ITz7ozZItMC)5lYWQI2Z=GzWD>TxrT7mRffgh)gL1Uqgb2?GD&qyvm7;hied1S zczFmITv%aG&UBmmSy)(7-Hb zHTJ0URppp4>wKt8O^{3a|Pb_(m)5vb0OE)_Tb3KAqMvSzt`;h{jst?#b0OrS&c8a>dC&rSMnFS z;SbfE4-$b!WvBIuTl)5F;g(oBJp3Y`wcT1~ha`N>D(IS^nG>erknydf&j+*VaW4_Nn~(FH08@iwF-;#%~M8n(IZ<< z@WuS4*&9c9b+KObG?M{V9u?y&gK;^}^@oFatUgAv*A-(l1W}puv3jHdPUd%MWngVxBkk_)M z8D$1bEF35=R?O&fPOCFg3BTvB&I4G$RE8|)D8n$^E7+!1(&pen*!?l3SUbEq=%=BT zm#dVMNjM5*1pMW|pUXwvXt4MagMp8o6F}9Ypy&Whv-|Zx6h~dst5%en@NYibO||t0 zAD*MsGO49UYkI}h5G*nQh;|KAE4Rrl;z(Mn7Bz;opvsLl)dfe!HPTwNvva;XKSpg! z<`Ux!e-SY=yJLQ)N-~|L+u~S)qE@$jE#cD;%CZ&xgT>KVw1S3%9-HQ5`Z)&Tje)>1 z2I343Iv76C=VNt#Q{?zOa(RDI6h6ZLA{)2$%I?<4JAv!qo4s%%fT4|$QG*Wed`L$H zIx3>Uj%UHeG_rbg6}>~8WL^{&#P8cdcY%KseA`cd!yEq*DCVf=XGRh7{uZC= zFVhIR-k{~?uIaJW-YsFj&kI6{qo*BnXE$Rxij-Gjh(|b2=);kPVlKSXBwW?eD5Lm zkLc*g(FmQjbNw3!##Wo6AlLZgI#?IFJHOF~)v0nVl@ zc=VfHw*QBt$$59|uacuVUJ{^mW9x@-(|_hx>`8a+9+&MOThPU{=I)!e>S9CT^=bC` z;*IUrl)10}nfj!HQe$31g`3rwNY{Om80Cdi%x}KWe^6E4(M~JsMh}*`50?%~JVm?BfsV zFa(a{|LE4w>?}?#yR#mqYAbl%yR;y-NMrVdyV~sgD;j8(*s9Y|zJ=@FoZcij;Iw^a zJ;62Jo3n~3^o%2%eWGzDeB5I_u6;I~?jnV8l;=Jq@qQ3UF zy7Yc{n8v)JqJ7p~W#QbO?br$XluJ);JV8&bhV7H~wA=i@x7jw=-*?yErKjeP+b7ZV z>MBAUHGx23?xN0|uF4XOekwBw9y`aKUNXh70ZH2=D0(OVm;}x`_exJ5OQG9!ny-$G!nMDpm7nJTin42XGxs*Td%HC+-~&g`B2SKz|&kL7^i zj8XEFpv<|j#ATJUYGhmebP?m`EYr%9TX0AK_;xCmp|~GbAgkj0LwNAK^SkrM8osL2#K)^% zW@N#u@=w2v^kX>8Iq)TKYBco2(uydokGbWNDDZ_i;$Jwn~wy|w8pGr`x}MwZejw%aB@(ndxO6xWh`QG2-E?vGucg2QRIO>Tdnp|<~% zm+-`fHxF+7W3G*Lq5#j_@S=>a#p&>cvF0y-(l@QJ92X)cq}jkpI#E7?LQVziG5#W0 z2CdEe+CAV6a%ZXp8+mkqH&sf@r15AMC{<)J((run z_$9@QO8M^-c&JRIXZ@|$OK*k1Z61^E9RRiA&NVN9Z{$3i4UXjZFBm(m+va;FZ~5_Y za%219Ww>_d%*x{A*DJ?=uy${?#7!4qDkZ?-eHg-T7=OJo>HK2l>G||$U3ZQxfT diff --git a/library/tedit/TEDIT-PCTREE.LCOM b/library/tedit/TEDIT-PCTREE.LCOM index 2d6910c0c3e39a0c83244cf3081110d8b86b1a9a..cfb9f286e46bc34ee7cdf564b1e08c001ae5a469 100644 GIT binary patch delta 215 zcmdmywK!`+c)gLau2*TEu91O}se*x}m4TU+p^1`$hEj5VZb4>FYKlUBo`RABSG7y9 zcdbomacWVqU3OwYPGX*&PkwS@j$LkQN=|B}v7V`2dS;0(glCtNnN*ZmRB0FD>f#v! zA$0?sLxNmg^{kCG6_gN`dIN2>urfBcGBE?%QUbCyM?FO$6KJVhsE>~VLZzvKo}QkP WLP}x@&{0Sxzzi@o+HA(iWC8%)ls&-! delta 164 zcmZ3SwIgdnxSFB4u3Ku7u91O}se+-Am65rXiK&u;hEj5VZb4>FYKlUBo`RCXgnkzDWoKp0Byi9)6B}iaI+#KlL-L3Q7gy* diff --git a/library/tedit/TEDIT-RELEASENOTES.TEDIT b/library/tedit/TEDIT-RELEASENOTES.TEDIT index 6c552e3d0e211003f88a140a5389bdcd2ea3d21d..9b80ceb44fada53553df8ffcf23981c9fbab0fe8 100644 GIT binary patch delta 8904 zcmb7ITWlO>6`pm{Hrez7X%dmNO8>ZxW2g3}7uuAjG~L+S)WqI(*PEua3GH}y)}D5D zXFD@%$LVFrr4dD?6y~8&1gOdzAfU3~0SWPjii9d50WS!IkdSz+kU)Jvh4Y=6|Ln|c zFXF+|+3!Es?_B;#fBxpk?|(M(dg&W?91Y7o&vw*ZcieSPsaTAE@UP-2yW4Wtl;3mg zAh5g3#Rbn=wcWn&tWT<7#TuL_v)fYru1G4ktr}L#4%8aknCh8b%U5frubOT*@Lb2S zT54%sH61%_K1;Th-BqUYtYzEns=#IQp1r&hz!ZG7+-ARHbpzG1$&E=7z-O>xijPDY zPCU!Eyj5~xty*Mm#qBSz45B@hj?@l)vPACNp7mTG4&0vQnE}O7QmX9uF6Zi59KET) zg=48D%8eqUY}$PvF_Tvcdu_#{U_DBOGHX7Y%>)fMYb%$2xABo)xI^e%G;l z$~;iS3lu4WL)7dYbDeEWlvHur4IS4j#?1=u>~7QPx2Rd6uw?pnlc2Uopih0! zrs6bR(kiJ2$?$8OSX@waLz7x+$xPD2JYAcs)rpkAv#AVL$Oapgnb}5Z zu2ws-$W@JhAFm{s?sjs=xjC-;tgprqW6ZMIZCVHd+y?7C@+ZyYPv~%bVugk-wmn_0 zR~qCnB#)HQ%;EwE7AMuR+GgLOjzpfCJ~MDT>eyU)`UEu#rA}NBv4g^QUG5~}i`uVk zQa~xHP9>8;=DMynOfh!DWg^>OA?o`*bg8Lm3R+FKx31bYOZhmk}p}6teYi})VZ;(p7$Q-p|VV_6G zuiJZbb#As=S=1TpW^2>cP%1|6UH8VeaU!GVQX}~j8<($t`G)APY6mUq#FTxGl1wg% zei!pbjSzSBvGU^VbZPpLa{btBb!N7DJUvb`wR(A`mN|_(Sp}X+w-s439bSqwCvJ5l+fqJh+z#QVar{UE*|efDA@n) z1LMgKNbyvftv*(%H&mLt=y$gr40+*q%$~0-v$-v+lSNU8Ex6^Htj9C<>Qw1ss6KVZ3IQ5L88l}?{&X<%TDSzojgMA zV0H+gcB2buka?V5(kFfBKi9WO)OS0Sd+V9LAK=TSq-qoz5A7saXqr?>{`jywkEpcy zLkG=7Ajf?GLxxWbx|rjQK>RrtJ{2+%MBB#B+`ttbR6lBuS=%w^xL8u~Z^oiIHExxb zOKRQ<%*iF5;w9Hrd(`q>%7wz8*f@RQ&Em)lt&R8Z zeCzg*Z^ZcHf|8(IXq&Ct_}T`PxRRY{I=vNh$qMWy z&8O?pkR+?$_LM^h4y^{Tx0fCA8di(7dP6%PM(O&tHokS{^sY@?jn(K#|H*LI`1t8$ z4ERRon{8skFpS%cYo_PQi?m6MBK>Ts>c#sno0gx8z6pA2E!9(Q7}>JxNX) zTN;)6{A{&6_lW^KZ=8xpYwF=zwJ{x?59&94bYkG>vG#vI_}J`AMzJwFUs9cTj_5nUN%Lg)!Pc2qOOPc)cq6F&$n7k?<-2boeQH zUXNETy^Y={HBi9IW;{p~Cqn>ptBt|Nry-nD8F?3gwvPWoI%E;HrjKCWp+A;oi`USP z8#IDr0|*~MiI0HH(;sUg8J1!HklCUUg%|DJxCXjcG(^co=B1nNg$vPyVYXG(VuEle zu*IxI4_(@Ee24~+o~9uw5`jDnuvLNx%m^|PJ-W6t`p(+cCkBzy`H!@qu7VVd$%d`Z zXc0;Hks%}|F8W|?_dPmz(7^Aoai7+J8=OcH=J+I-mGPGo{|;XoehT%X&DLbPK}7KF^x#K9vwp90t&a_B-O6QXSFDg7n1pv zMySYNio>XDD2cSd^96fsinK-!YY_@GcJ(=pXg~o-`5rkFoxikGCIfNt) z$}fZzuma-qWJq^wfSUnIl2j6}@ro8QLT*Pu?2{j{;X+?)X)`aS0Z2{(NTpQx ziI!jxbV~CIa!|{#=c5pMO+y?XkOLZlZ;V?{13UzXmsU9i9ew@W?t69A5ag`@Km>QO zAU&iuEWauG%eg&FzfkabEh$LsgkYHF9V`gKWaMvnfk{CSUKWvNXV*AC#WEp1MQzx$ zAfmRP)#xGB7KQ~`(=wVo5fM%}K{6Ws`}rAZLFC9~f;XYy4sDHjMCf;GgoS}fJ8|ZC zoY68|4*f@?4CkYJmc&n>5ECNkuUDP7x%O>d5mhw zArj)GVU^8;M={I3@Th9_d}!Z)(a$h=Sqp0RSph{>`h+(f5aEr77>KM5t|ky^9g#V% z?P!^BV2DYDn$%p=eZSUX5u_x(_TUJJ^qY>ICj#c=7R*!tD0NNr)t9z02f_`Q=Lz5p zVfqV0i0pd_h${nC_69A!V}MA}+S(36gj~`__asbZd`UcsP$CVPIMrx2+;xeOd4nYfkxNTrin129AK=4NkckKMW8zIS7&>CYg{@#Th z@qGI>6G5&`Vw54m< z3_GS2VVnW@*5opQkYErq$-x6*S)S6Qzxak^;0PfI`j_+i`(aH{%x)!=HGWv4O~Ad8>^9K>0(YGeBY>N&{fvU>?Xc z5F})0X%;V~Rp90EJg`dn584JI-^+;<$+A7up#%Y4kX_Kg$rUMOe)?LgaBkS zl-}EE3AkBE1Ef-r;e}t=*q@d_lZ|SCrYhdlVP-i&=0IMiaFa%$1d&@cAZ8xbh!&w6 zE+$q)hI|*$vV;C3!ND|%mT)OM;E&p}An*z8+x3ao9^uWX#|9$O&srobAR!q7$nf%l zl9n-km=_t>fQStF9{h_^Q_U9)3YRV|>TejYYkQC-pzz%sV7!q73Vbsl$_x$A&GZE% z#-Izw+Ing?()@vdLpaRj{AZ0MO7RyEL;#Sr!i{MOm_L>W-pvEA=77Rw%%89iD&(6f zaWg#D`_n4$JDUgokOwlmAF=;SOOXF~;k>93ou1TKOYqm2CIF-jt-eBLwSTCHaWU-U1ik^%?ap&5cP32_^&cojD47IfADV3vG>#65ysr^mq1SRiVKE07835Lu tq2YKrt%G?wn*)sh3Y50Av`~Tm(cB zS_>zUgeb=FsZrrZV@wRc#t%b$erbqbnwZFsi5~_%Yt8K4GjoYba)&ePto`2moawh8 zr#`uunpk$OslBv2dthKFSkby-RsL$avMB#`>H3mX5aef-FZBJu9Id!uu2mH0>no4U z^4rbz1@rRdb$-$GLqmhXXm(^U*taKN-Z-9`(Y`U$)!Wk_^mSx5Y&F^D#^M9mtQPRwY-$Se&4%G^RtF_ROP0772eeD-j2?`9GZ7 zUYOovHBHevSl-&u5Y%t$*reNp8XUd5%*fFl|5NYI|JM8Wttc^bywXfpcV~ZJZ+Cl- zw@5?ABIT9a=Tt1G+g~LXzWM#wBHuS_Uyhz-K48l&v(G9li_AW|Sp>?wA^>*tPWzmR zrLdu}$y^_+G&hbHnQxBIE@QfdKgDjBnP*Q_<{-c_7Td)#`=bg)Y<1#F=_R;#$xa#z zAnywTkKllMG#fjh%)tUCOR%s=x3>i=7xJi30-0rZnIecYf9?+ApyD-H_~xFI)r<%p zKvI2si~D#)JCC~noSgvxMj%IrRC$9Ss!m;mB&FsGCkG1J8#WOjnsALj2eJcrM_mB)W&lnA{)fVlJWO_%B8}i|fnM$3aS@|` z$nX+D5CZbPUjTL~{AJUp&8<___cEA>h#_M~DUtIC3QK_nT~3?sS8JFDO~L(;RnOE2 z5Y|41z)j}zXDq-`1iUz+jYrei-%gJ0!$~n6V^ySxiY=y?eQ33HeieB^IFdZ2XigZi z_1O%*)}gbA7`4ANDXpT7d4%h2f@lvSsSKEr5y`O?`TxM#1*~s-1KUQIW9jhvbFcn~{j$7u^cr`l*7M#AaFN!c)$SJ}R7grEEyD~;uU{M-l8lhr` zATp~G;;u=>>>%jTWT|m&rRA<3=qPjx-(*fO=H?r1rO?Xjyu>t5G_J<07VR+jK$uOK z%oZS_w`P2z*3R3NiJHaW<3~emjTl1ZX>)U;Cgj^^-MIyRiP>^48{V%`)%Yy{QGS-e zcmuQoVaeH<5jWNYu)sWl!6wCnegYwvuocGtJl6>1ECT7z?Jwj-0Bc0S2so8wu$;n( zYqcU6>YJ_z09H;!;8`2)HMI+*ISD+O1U4rDwu)$l8HOhSlz!ogfPopIS!+MViSHEz z04NV6fzvL4co_||7>TgZuHDP72;)rxxtLv0czZ&LEqnMu$dPi@KAO~$NdhBDz_0*@!m^P>ID!jUar7)cuR6Z94>R8-DKRr}{*NT%NCNP+z(^XD^4mo`L(&S4Ie#u^ z@n1RK3D*$R6gJz*Bt=uL<@wU3z`Ib3oCWxb*zHoL*_Vw;U`-N;*4U4$aOBhu0e<($SvjTsM66x2vA_%(m1!FMjq9r1>1L diff --git a/library/tedit/TEDIT-SCREEN b/library/tedit/TEDIT-SCREEN index 6811c065..559c3c61 100644 --- a/library/tedit/TEDIT-SCREEN +++ b/library/tedit/TEDIT-SCREEN @@ -1,14 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "30-Mar-2025 10:02:52" {WMEDLEY}TEDIT>TEDIT-SCREEN.;871 189269 +(FILECREATED "30-May-2025 21:59:23" {WMEDLEY}tedit>TEDIT-SCREEN.;906 187434 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.VALID.LINES \TEDIT.PANE.CREATELINES \TEDIT.SUFFIXLINE.CREATE - \TEDIT.LASTVALIDLINE \TEDIT.LINES.ABOVE \TEDIT.UPDATE.LINES \TEDIT.FORMATLINE) - (RECORDS LINEDESCRIPTOR) + :CHANGES-TO (FNS \TEDIT.DISPLAYLINE \TLVALIDATE) + (VARS TEDIT-SCREENCOMS) - :PREVIOUS-DATE " 6-Mar-2025 11:42:48" {WMEDLEY}TEDIT>TEDIT-SCREEN.;867) + :PREVIOUS-DATE "29-May-2025 22:38:44" {WMEDLEY}tedit>TEDIT-SCREEN.;905) (PRETTYCOMPRINT TEDIT-SCREENCOMS) @@ -30,10 +29,9 @@ (MACROS \TEDIT.LINE.TALLP) (COMS (* ; "Formatting slots held by THISLINE") (RECORDS THISLINE CHARSLOT) - (MACROS CHAR CHARW PREVCHARSLOT PREVCHARSLOT! NEXTCHARSLOT FIRSTCHARSLOT - NTHCHARSLOT LASTCHARSLOT FILLCHARSLOT BACKCHARS PUSHCHAR POPCHAR - CHARSLOTP) - (CONSTANTS (CELLSPERCHARSLOT 2) + (MACROS CHAR CHARW CHARCL PREVCHARSLOT NEXTCHARSLOT FIRSTCHARSLOT + NTHCHARSLOT LASTCHARSLOT FILLCHARSLOT PUSHCHAR) + (CONSTANTS (CELLSPERCHARSLOT 3) (WORDSPERCHARSLOT (TIMES CELLSPERCHARSLOT WORDSPERCELL)) (MAXCHARSLOTS 256)) @@ -50,11 +48,9 @@ \TEDIT.FORMATLINE.VERTICAL \TEDIT.FORMATLINE.JUSTIFY \TEDIT.FORMATLINE.TABS \TEDIT.SCALE.TABS \TEDIT.FORMATLINE.PURGE.SPACES \TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN \TEDIT.FORMATLINE.EMPTY \TEDIT.FORMATLINE.UPDATELOOKS \TEDIT.FORMATLINE.LASTLEGAL - \TEDIT.LINES.ABOVE) + \TEDIT.LINES.ABOVE \TEDIT.CHNO.TO.YTOP) (INITVARS (TEDIT.LINELEADING.BELOW NIL)) (GLOBALVARS TEDIT.LINELEADING.BELOW) - (FNS \TLVALIDATE) - (* ; "Consistency checking") (INITVARS *TEDIT-CACHED-PARALOOKS*) (* ; "Heuristic for \FORMATLINE") (GLOBALVARS *TEDIT-CACHED-PARALOOKS*) @@ -66,9 +62,10 @@ (MACROS MI-TEDIT.BLTCHAR)) (FNS \TEDIT.BACKFORMAT \TEDIT.PREVIOUS.LINEBREAK \TEDIT.UPDATE.LINES \TEDIT.PANE.CREATELINES - \TEDIT.SUFFIXLINE.CREATE \TEDIT.LINES.BELOW \TEDIT.MEASURED.LINES \TEDIT.VALID.LINES - \TEDIT.LASTVALIDLINE \TEDIT.NEXTVALIDLINE \TEDIT.CLEARPANE.BELOW.LINE \TEDIT.INSERTLINE - \TEDIT.LINE.BOTTOM \TEDIT.SHOW.AT.BOTTOMP \TEDIT.SHOW.AT.TOPP))) + \TEDIT.SUFFIXLINE.CREATE \TEDIT.LINES.BELOW \TEDIT.MEASURED.LINES \TEDIT.VALID.LASTCHNOS + \TEDIT.VALID.NEXTCHNOS \TEDIT.LASTVALIDLINE \TEDIT.NEXTVALIDLINE + \TEDIT.CLEARPANE.BELOW.LINE \TEDIT.INSERTLINE \TEDIT.LINE.BOTTOM \TEDIT.SHOW.AT.BOTTOMP + \TEDIT.SHOW.AT.TOPP))) (DECLARE%: EVAL@COMPILE DONTCOPY (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE @@ -351,7 +348,7 @@ (BLOCKRECORD CHARSLOT (CHAR CHARW (* ;  "If CHAR is NIL, then CHARW is CHARLOOKS.") - )) + CHARCL)) ) (/DECLAREDATATYPE 'THISLINE '(FULLXPOINTER POINTER POINTER POINTER POINTER) @@ -369,16 +366,12 @@ (PUTPROPS CHARW MACRO ((CSLOT) (ffetch (CHARSLOT CHARW) of CSLOT))) +(PUTPROPS CHARCL MACRO ((CSLOT) + (ffetch (CHARSLOT CHARCL) of CSLOT))) + (PUTPROPS PREVCHARSLOT MACRO ((CSLOT) (\ADDBASE CSLOT (IMINUS WORDSPERCHARSLOT)))) -(PUTPROPS PREVCHARSLOT! MACRO ((CSLOT) - - (* ;; "Backs over looks and invisibles to the last character slot") - - (find CS _ (PREVCHARSLOT CSLOT) by (PREVCHARSLOT CS) while CS - suchthat (CHAR CS)))) - (PUTPROPS NEXTCHARSLOT MACRO ((CSLOT) (\ADDBASE CSLOT WORDSPERCHARSLOT))) @@ -394,54 +387,25 @@ (TIMES (SUB1 MAXCHARSLOTS) WORDSPERCHARSLOT)))) -(PUTPROPS FILLCHARSLOT MACRO ((CSLOT C W) +(PUTPROPS FILLCHARSLOT MACRO ((CSLOT C W R) (freplace (CHARSLOT CHAR) of CSLOT with C) - (freplace (CHARSLOT CHARW) of CSLOT with W))) + (freplace (CHARSLOT CHARW) of CSLOT with W) + (freplace (CHARSLOT CHARCL) of CSLOT with R))) -(PUTPROPS BACKCHARS MACRO ((CSLOTVAR CHARVAR WIDTHVAR) - (SETQ CSLOTVAR (PREVCHARSLOT CSLOTVAR)) - (SETQ CHARVAR (fetch (CHARSLOT CHAR) of CSLOTVAR)) - (SETQ WIDTHVAR (fetch (CHARSLOT CHARW) of CSLOTVAR)))) - -(PUTPROPS PUSHCHAR MACRO ((CSLOTVAR C W) - (FILLCHARSLOT CSLOTVAR C W) +(PUTPROPS PUSHCHAR MACRO ((CSLOTVAR C W CL) + (FILLCHARSLOT CSLOTVAR C W CL) (SETQ CSLOTVAR (NEXTCHARSLOT CSLOTVAR)))) - -(PUTPROPS POPCHAR MACRO ((CSLOTVAR CHARVAR WIDTHVAR) - (SETQ CHARVAR (fetch (CHARSLOT CHAR) of CSLOTVAR)) - (SETQ WIDTHVAR (fetch (CHARSLOT CHARW) of CSLOTVAR)) - (SETQ CSLOTVAR (NEXTCHARSLOT CSLOTVAR)))) - -(PUTPROPS CHARSLOTP MACRO [OPENLAMBDA (X TL) - - (* ;; "True if TL is a THISLINE and X is a pointer into its CHARSLOTS block. A tool for consistency assertions.") - - (CL:WHEN (TYPE? THISLINE TL) - [LET ((FIRSTSLOT (FIRSTCHARSLOT TL)) - (LASTSLOT (LASTCHARSLOT TL))) - (AND [OR (IGREATERP (\HILOC X) - (\HILOC FIRSTSLOT)) - (AND (EQ (\HILOC X) - (\HILOC FIRSTSLOT)) - (IGEQ (\LOLOC X) - (\LOLOC FIRSTSLOT] - (OR (ILESSP (\HILOC X) - (\HILOC LASTSLOT)) - (AND (EQ (\HILOC X) - (\HILOC LASTSLOT)) - (ILEQ (\LOLOC X) - (\LOLOC LASTSLOT])]) ) (DECLARE%: EVAL@COMPILE -(RPAQQ CELLSPERCHARSLOT 2) +(RPAQQ CELLSPERCHARSLOT 3) (RPAQ WORDSPERCHARSLOT (TIMES CELLSPERCHARSLOT WORDSPERCELL)) (RPAQQ MAXCHARSLOTS 256) -(CONSTANTS (CELLSPERCHARSLOT 2) +(CONSTANTS (CELLSPERCHARSLOT 3) (WORDSPERCHARSLOT (TIMES CELLSPERCHARSLOT WORDSPERCELL)) (MAXCHARSLOTS 256)) ) @@ -456,7 +420,7 @@ (I.S.OPR 'incharslots NIL '[SUBST (GETDUMMYVAR) '$$STARTSLOT - '(bind $$STARTSLOT _ BODY CHAR CHARW $$CHARSLOTLIMIT + '(bind $$STARTSLOT _ BODY CHAR CHARW CHARCL $$CHARSLOTLIMIT declare (LOCALVARS $$STARTSLOT $$CHARSLOTLIMIT) first (SETQ I.V. (COND ((TYPE? THISLINE $$STARTSLOT) @@ -467,12 +431,13 @@ ) of THISLINE)) by (NEXTCHARSLOT I.V.) until (EQ I.V. $$CHARSLOTLIMIT) eachtime (SETQ CHAR (fetch (CHARSLOT CHAR) of I.V.)) - (SETQ CHARW (fetch (CHARSLOT CHARW) of I.V.] + (SETQ CHARW (fetch (CHARSLOT CHARW) of I.V.)) + (SETQ CHARCL (fetch (CHARSLOT CHARCL) of I.V.] T) (I.S.OPR 'backcharslots NIL '[SUBST (GETDUMMYVAR) '$$STARTSLOT - '(bind $$STARTSLOT _ BODY CHAR CHARW $$CHARSLOTLIMIT + '(bind $$STARTSLOT _ BODY CHAR CHARW CHARCL $$CHARSLOTLIMIT declare (LOCALVARS $$STARTSLOT $$CHARSLOTLIMIT) first (SETQ I.V. (COND ((TYPE? THISLINE $$STARTSLOT) @@ -488,6 +453,9 @@ (SETQ CHARW (fetch (CHARSLOT CHARW) of I.V.)) + (SETQ CHARCL (fetch (CHARSLOT + CHARCL) + of I.V.)) repeatuntil (EQ I.V. $$CHARSLOTLIMIT] T) ) @@ -689,26 +657,19 @@ (\TEDIT.FORMATLINE [LAMBDA (TSTREAM CH#1 LINE REGION IMAGESTREAM FORMATTINGSTATE) + (* ; "Edited 27-Apr-2025 11:24 by rmk") + (* ; "Edited 21-Apr-2025 19:03 by rmk") + (* ; "Edited 11-Apr-2025 20:18 by rmk") (* ; "Edited 29-Mar-2025 11:39 by rmk") (* ; "Edited 6-Mar-2025 11:42 by rmk") - (* ; "Edited 25-Feb-2025 10:39 by rmk") - (* ; "Edited 19-Feb-2025 13:36 by rmk") - (* ; "Edited 10-Feb-2025 09:59 by rmk") (* ; "Edited 8-Feb-2025 23:36 by rmk") (* ; "Edited 24-Dec-2024 22:15 by rmk") - (* ; "Edited 23-Dec-2024 19:47 by rmk") - (* ; "Edited 13-Dec-2024 23:46 by rmk") - (* ; "Edited 12-Dec-2024 15:20 by rmk") - (* ; "Edited 9-Dec-2024 21:05 by rmk") (* ; "Edited 23-Nov-2024 00:03 by rmk") - (* ; "Edited 17-Nov-2024 19:56 by rmk") (* ; "Edited 31-Oct-2024 15:32 by rmk") (* ; "Edited 26-Oct-2024 10:51 by rmk") (* ; "Edited 2-Sep-2024 16:06 by rmk") - (* ; "Edited 27-Aug-2024 18:29 by rmk") (* ; "Edited 4-Aug-2024 18:07 by rmk") (* ; "Edited 21-May-2024 14:45 by rmk") - (* ; "Edited 17-Mar-2024 00:27 by rmk") (* ; "Edited 5-Feb-2024 09:35 by rmk") (* ; "Edited 3-Dec-2023 16:48 by rmk") (* ; "Edited 28-Oct-2023 13:14 by rmk") @@ -748,10 +709,7 @@ (CL:UNLESS IMAGESTREAM (SETQ IMAGESTREAM (WINDOWPROP (\TEDIT.PRIMARYPANE TSTREAM) 'DSP))) (* ; "For lower image objects?") - (CL:WHEN (type? TEXTOBJ TSTREAM) (* ; - "Still confused about textobj/stream. Not sure who uses TSTREAM freely ") - (SETQ TSTREAM (FGETTOBJ TSTREAM STREAMHINT))) - (PROG ((TEXTOBJ (TEXTOBJ! (GETTSTR TSTREAM TEXTOBJ))) + (PROG ((TEXTOBJ (FTEXTOBJ TSTREAM)) (OFFSET 0) (TRUEASCENT -1) (TRUEDESCENT -1) @@ -763,10 +721,10 @@ (SPACELEFT 0) (TX 0) (BOXSTREAM IMAGESTREAM) - THISLINE LINETYPE WIDTH WMARGIN SCALE PARALOOKS RIGHTMARGIN HASKERN PC CHARSLOT PREVSP - 1STLN CHNOB FORCED-END CHNO LX1 TX TXB FONT CHARSLOTB TABPENDING PREVHYPH PREVDHYPH + CHARLOOKS THISLINE LINETYPE WIDTH WMARGIN SCALE PARALOOKS RIGHTMARGIN HASKERN PC CHARSLOT + PREVSP 1STLN CHNOB FORCED-END CHNO LX1 TX TXB FONT CHARSLOTB TABPENDING PREVHYPH PREVDHYPH START-OF-PIECE UNBREAKABLE OLDPIECE OLDPCCHARSLEFT OLDCARETLOOKS FIRSTSEPR) - (DECLARE (SPECVARS TEXTOBJ LINETYPE CHARSLOT CHNO OFFSET ASCENTC DESCENTC FONT + (DECLARE (SPECVARS TEXTOBJ LINETYPE CHARLOOKS CHNO OFFSET ASCENTC DESCENTC FONT START-OF-PIECE HASKERN UNBREAKABLE)) (CL:UNLESS LINE @@ -800,8 +758,8 @@ (SETQ OLDCARETLOOKS (FGETTOBJ TEXTOBJ CARETLOOKS)) (* ;  "Restore at end--BIN changes things") - (SETQ OLDPIECE (ffetch (TEXTSTREAM PIECE) of TSTREAM)) - (SETQ OLDPCCHARSLEFT (ffetch (TEXTSTREAM PCCHARSLEFT) of TSTREAM)) + (SETQ OLDPIECE (FGETTSTR TSTREAM PIECE)) + (SETQ OLDPCCHARSLEFT (FGETTSTR TSTREAM PCCHARSLEFT)) (* ;; "") @@ -842,7 +800,10 @@ (SETQ WIDTH (ffetch (REGION WIDTH) of REGION)) else (SETQ WMARGIN \TEDIT.LINEREGION.WIDTH) (* ;  "A little more display margin on both sides") - (SETQ WIDTH (IDIFFERENCE (FGETTOBJ TEXTOBJ WRIGHT) + (SETQ WIDTH (IDIFFERENCE (CL:IF (FGETTOBJ TEXTOBJ PRIMARYPANE) + (PANERIGHT (FGETTOBJ TEXTOBJ PRIMARYPANE)) + (FGETPLOOKS (FGETLD LINE LPARALOOKS) + RIGHTMAR)) (UNFOLD WMARGIN 2] (SETQ RIGHTMARGIN (if (ZEROP (FGETPLOOKS PARALOOKS RIGHTMAR)) then @@ -914,7 +875,7 @@ (FILLCHARSLOT CHARSLOT (CL:IF (EQ CH (CHARCODE FORM)) (CHARCODE FORM) (CHARCODE EOL)) - DX) + DX CHARLOOKS) (SETQ FORCED-END (CL:IF (MEMB CH (CHARCODE (LF CR))) (CHARCODE EOL) CH)) @@ -931,7 +892,7 @@ (* ;; "Unlikely for display--probably backs it up. The idea is to back up the starting point of CH by backing off the end of the previous character. We stick the kern inline so that various consumers (displayline, scanline...) can make the adjustments.") (SETQ KERN (\FGETLEFTKERN FONT PREVCH CH)) - (PUSHCHAR CHARSLOT 'KERN KERN) + (PUSHCHAR CHARSLOT 'KERN KERN CHARLOOKS) (add DX KERN)) (SETQ DX (\FGETCHARWIDTH FONT CH)) (SETQ PREVCH CH) @@ -972,7 +933,7 @@ (* ;; "Not including this space in the justifying chain, so it won't expand. If that looks odd, let it fall through to the PUSHCHAR below.") - (PUSHCHAR CHARSLOT CH DX) + (PUSHCHAR CHARSLOT CH DX CHARLOOKS) else (CL:UNLESS FIRSTSEPR (SETQ FIRSTSEPR CHNO)) (SPACEBREAK) (add TX DX) @@ -983,7 +944,7 @@ (PUSHCHAR CHARSLOT (CL:IF JUSTIFIED (PROG1 PREVSP (SETQ PREVSP CHARSLOT)) CH) - DX))) + DX CHARLOOKS))) (TAB (* ;; "Try to be reasonable with tabs. This will create trouble when doing fast-case insert/delete, but Pah! for now.") @@ -997,7 +958,7 @@ (* ;; "Now for this tab:") (* ;  "Start with 0 width, then set up the next tab") - (FILLCHARSLOT CHARSLOT CH 0) + (FILLCHARSLOT CHARSLOT CH 0 CHARLOOKS) (SETQ TABPENDING (\TEDIT.FORMATLINE.TABS TEXTOBJ PARALOOKS SCALE CHARSLOT LX1 TX TABPENDING)) (* ; @@ -1035,7 +996,7 @@ (* ;;  "A good break-point not followed by spaces. NOTE: Even pending tabs go on the next line.") - (CL:UNLESS TXB (FILLCHARSLOT CH DX)) + (CL:UNLESS TXB (FILLCHARSLOT CH DX CHARLOOKS)) (DOBREAK) (RETURN)) (CL:WHEN (IGREATERP DX WIDTH) @@ -1049,7 +1010,7 @@ (add TX (IMINUS DX)) (add CHNO -1) (* ; "back up to preceding character") - (SETQ CHARSLOT (PREVCHARSLOT! CHARSLOT)) + (SETQ CHARSLOT (PREVCHARSLOT CHARSLOT)) (SETQ CH (CHAR CHARSLOT)) (SETQ DX (CHARW CHARSLOT)) @@ -1060,7 +1021,7 @@ else (* ;; "Dump it here") - (FILLCHARSLOT CHARSLOT CH DX)) + (FILLCHARSLOT CHARSLOT CH DX CHARLOOKS)) (SETQ OVERHANG 0) (SETQ SPACELEFT 0) (RETURN)) @@ -1073,12 +1034,12 @@ (* ;; "Didn't find one, the offender protrudes on this line") - (FILLCHARSLOT CHARSLOT CH DX)) + (FILLCHARSLOT CHARSLOT CH DX CHARLOOKS)) (RETURN)) (* ;; "Don't break: can't split before the first thing on the line!") - (PUSHCHAR CHARSLOT CH DX) + (PUSHCHAR CHARSLOT CH DX CHARLOOKS) (RETURN)) (* ;; "") @@ -1089,7 +1050,7 @@ (SELCHARQ CH (%. (* ;  "Check for decimal tabs, immediately after TAB") - (PUSHCHAR CHARSLOT CH DX) + (PUSHCHAR CHARSLOT CH DX CHARLOOKS) (CL:WHEN (AND TABPENDING (EQ (fetch PTTYPE of TABPENDING) 'DECIMAL)) (* ; @@ -1126,18 +1087,19 @@ (SETQ DX (\FGETCHARWIDTH FONT (CHARCODE "-")))) (SAVEBREAK)) (* ;  "Save the hyphen slot, then fill it") - (PUSHCHAR CHARSLOT CH DX)) + (PUSHCHAR CHARSLOT CH DX CHARLOOKS)) (NONBREAKING-HYPHEN (* ;;  "Switch the character code and width in case font doesn't have a glyph??") (PUSHCHAR CHARSLOT (CHARCODE -) - (\FGETCHARWIDTH FONT (CHARCODE "-")))) + (\FGETCHARWIDTH FONT (CHARCODE "-")) + CHARLOOKS)) (NONBREAKING-SPACE (* ;  "This will eventually convert to SPACE") (PUSHCHAR CHARSLOT (PROG1 PREVSP (SETQ PREVSP CHARSLOT)) - DX)) - (PUSHCHAR CHARSLOT CH DX] + DX CHARLOOKS)) + (PUSHCHAR CHARSLOT CH DX CHARLOOKS] (* ;; "BOUNDS CHECKING!") @@ -1158,9 +1120,10 @@ (* ;; "The line ended in a space that needs to be resolved. If we coded the end of a space-chain as (CHARCODE SPACE) instead of NIL, maybe this wouldn't be necessary.") (FILLCHARSLOT PREVSP (CHARCODE SPACE) - (CHARW PREVSP)) + (CHARW PREVSP) + CHARLOOKS) (SETQ PREVSP NIL)) - (SETQ CHARSLOT (PREVCHARSLOT! CHARSLOT)) + (SETQ CHARSLOT (PREVCHARSLOT CHARSLOT)) (add CHNO -1) (SETQ DX 0) (* ; "TX is already correct") (FORCEBREAK)) @@ -1332,7 +1295,8 @@ IMAGESTREAM]) (\TEDIT.FORMATLINE.HORIZONTAL - [LAMBDA (LINE THISLINE PREVSP SPACELEFT OVERHANG LINETYPE) (* ; "Edited 19-Feb-2025 13:35 by rmk") + [LAMBDA (LINE THISLINE PREVSP SPACELEFT OVERHANG LINETYPE) (* ; "Edited 29-May-2025 15:15 by rmk") + (* ; "Edited 19-Feb-2025 13:35 by rmk") (* ; "Edited 8-Feb-2025 23:37 by rmk") (* ; "Edited 15-Mar-2024 19:35 by rmk") (* ; "Edited 3-Dec-2023 16:49 by rmk") @@ -1381,7 +1345,7 @@ (* ;; "Scale the character widths to points, propagating rounding error along the way. LOST starts at .5 pt so that rounding doesn't clip the last character") - (for CHARSLOT REDUCED (LOST _ 0.5) incharslots THISLINE when CHAR + (for CHARSLOT REDUCED (LOST _ 0.5) incharslots THISLINE do (SETQ REDUCED (FPLUS LOST (FQUOTIENT CHARW SCALE))) (* ;  "Include the previously lost point-fraction") @@ -1650,7 +1614,8 @@ PREVSP]) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN - [LAMBDA (THISLINE PREVDHYPH CHARSLOT) (* ; "Edited 2-Sep-2024 16:09 by rmk") + [LAMBDA (THISLINE PREVDHYPH CHARSLOT) (* ; "Edited 11-Apr-2025 11:04 by rmk") + (* ; "Edited 2-Sep-2024 16:09 by rmk") (* ;; "PREVDHYPH is the THISLINE character slot of a preceding soft hyphen that is now being discarded in favor of a later potential linebreak. This function purges it from THISLINE by moving the contents of all of the slots from the one after PREDVDHYPH backwards by one slot. The value is the new (one-back) last slot") @@ -1659,37 +1624,36 @@ (CL:WHEN PREVDHYPH (for CS NEXT incharslots PREVDHYPH do (SETQ NEXT (NEXTCHARSLOT CS)) (FILLCHARSLOT CS (CHAR NEXT) - (CHARW NEXT)) repeatuntil (EQ NEXT CHARSLOT) + (CHARW NEXT) + (CHARCL NEXT)) repeatuntil (EQ NEXT CHARSLOT) finally (RETURN CS)))]) (\TEDIT.FORMATLINE.EMPTY - [LAMBDA (TEXTOBJ CH#1 LINE) (* ; "Edited 19-Feb-2025 13:37 by rmk") + [LAMBDA (TEXTOBJ CH#1 LINE) (* ; "Edited 27-Apr-2025 11:28 by rmk") + (* ; "Edited 19-Apr-2025 22:25 by rmk") + (* ; "Edited 13-Apr-2025 23:56 by rmk") + (* ; "Edited 9-Apr-2025 19:39 by rmk") + (* ; "Edited 19-Feb-2025 13:37 by rmk") (* ; "Edited 8-Feb-2025 23:37 by rmk") - (* ; "Edited 7-Feb-2025 08:09 by rmk") (* ; "Edited 22-Nov-2024 22:29 by rmk") - (* ; "Edited 17-Nov-2024 16:00 by rmk") (* ; "Edited 4-Aug-2024 14:51 by rmk") (* ; "Edited 25-Jun-2024 14:51 by rmk") (* ; "Edited 10-May-2024 00:24 by rmk") (* ; "Edited 15-Mar-2024 22:00 by rmk") (* ; "Edited 26-Jan-2024 11:08 by rmk") (* ; "Edited 6-Dec-2023 20:15 by rmk") - (* ; "Edited 3-Dec-2023 19:41 by rmk") (* ; "Edited 26-Sep-2023 17:32 by rmk") (* ; "Edited 15-Jul-2023 13:52 by rmk") (* ; "Edited 2-Jul-2023 15:20 by rmk") (* ; "Edited 7-Mar-2023 23:11 by rmk") - (* ; "Edited 5-Mar-2023 22:57 by rmk") (* ; "Edited 4-Mar-2023 21:40 by rmk") - (* ; "") (* ;; "NOTE: this follows the original in not distinguishing hardcopy-display mode. Presumably empty is empty, even thought the ASCENT/DESCENT/LHEIGHT are not scaled.") (* ;; "Original code asked for the piece at TEXTLEN (last piece?) to get its looks, but those looks would be the TEXTOBJ default looks anyway. But it really wants to the looks of the preceding piece.") (LINEDESCRIPTOR! LINE) - (LET (CHARSLOT FONT CLOOKS TRUEASCENT TRUEDESCENT LM PLOOKS (THISLINE (FGETTOBJ TEXTOBJ THISLINE) - )) + (LET (FONT CLOOKS TRUEASCENT TRUEDESCENT LM PLOOKS (THISLINE (FGETTOBJ TEXTOBJ THISLINE))) (\TEDIT.FORMATLINE.SETUP.PARA TEXTOBJ NIL LINE (WINDOWPROP (\TEDIT.PRIMARYPANE TEXTOBJ) 'DSP) 'TRUEDISPLAY) @@ -1702,7 +1666,7 @@ (SETQ FONT (GETCLOOKS CLOOKS CLFONT)) (SETQ TRUEASCENT (FONTPROP FONT 'ASCENT)) (SETQ TRUEDESCENT (FONTPROP FONT 'DESCENT)) - (SETQ LM (IPLUS \TEDIT.LINEREGION.WIDTH (FGETTOBJ TEXTOBJ WLEFT) + (SETQ LM (IPLUS \TEDIT.LINEREGION.WIDTH (PANELEFT (FGETTOBJ TEXTOBJ PRIMARYPANE)) (FGETPLOOKS PLOOKS 1STLEFTMAR))) (with LINEDESCRIPTOR LINE (SETQ LDUMMY T) (SETQ LCHAR1 CH#1) @@ -1713,19 +1677,17 @@ (SETQ LX1 LM) (SETQ LXLIM LM) (SETQ FORCED-END (CHARCODE EOL)) - (SETQ LHASPROT NIL) (SETQ LPARALOOKS PLOOKS) (SETQ LEFTMARGIN LM) (SETQ RIGHTMARGIN (CL:IF (ZEROP (FGETPLOOKS PLOOKS RIGHTMAR)) - (IDIFFERENCE (FGETTOBJ TEXTOBJ WRIGHT) + (IDIFFERENCE (PANERIGHT (FGETTOBJ TEXTOBJ PRIMARYPANE)) \TEDIT.LINEREGION.WIDTH) (FGETPLOOKS PLOOKS RIGHTMAR))) (SETQ LTRUEASCENT TRUEASCENT) (SETQ LTRUEDESCENT TRUEDESCENT) - (SETQ LHEIGHT (IPLUS TRUEASCENT TRUEDESCENT))) - (SETQ CHARSLOT (FIRSTCHARSLOT THISLINE)) - (FILLCHARSLOT CHARSLOT NIL CLOOKS) - (replace (THISLINE NEXTAVAILABLECHARSLOT) of THISLINE with (NEXTCHARSLOT CHARSLOT)) + (SETQ LHEIGHT (IPLUS TRUEASCENT TRUEDESCENT)) + (SETQ LFIRSTSEPR MAX.FIXP)) + (replace (THISLINE NEXTAVAILABLECHARSLOT) of THISLINE with (FIRSTCHARSLOT THISLINE)) (freplace (THISLINE DESC) of THISLINE with LINE) (* ;; "Just to initialize the rest of the fields--no intended transformations.") @@ -1735,7 +1697,8 @@ LINE]) (\TEDIT.FORMATLINE.UPDATELOOKS - [LAMBDA (TSTREAM PC) (* ; "Edited 19-Dec-2024 11:50 by rmk") + [LAMBDA (TSTREAM PC) (* ; "Edited 11-Apr-2025 09:43 by rmk") + (* ; "Edited 19-Dec-2024 11:50 by rmk") (* ; "Edited 13-Dec-2024 17:09 by rmk") (* ; "Edited 4-Aug-2024 15:09 by rmk") (* ; "Edited 28-Jul-2024 20:52 by rmk") @@ -1757,30 +1720,31 @@ (* ;; "Style sheets are undocumented, I suspect that this was never really thought through.") - (DECLARE (USEDFREE LINETYPE CHARSLOT CHNO OFFSET ASCENTC DESCENTC FONT IMAGESTREAM HASKERN + (DECLARE (USEDFREE LINETYPE CHARLOOKS CHNO OFFSET ASCENTC DESCENTC FONT IMAGESTREAM HASKERN UNBREAKABLE)) (CL:UNLESS PC (* ;  "Ran off the end ? Skips the ENDOFSTREAMOP") (RETFROM (FUNCTION \TEDIT.TEXTBIN) NIL)) - (LET (PLOOKS INVISIBLERUN CLOFFSET) + (LET (INVISIBLERUN CLOFFSET) (SETQ INVISIBLERUN (for old PC inpieces PC until (VISIBLEPIECEP PC) sum (PLEN PC))) (if (EQ 0 INVISIBLERUN) - then + then (SETQ CHARLOOKS (PCHARLOOKS PC)) + (* ;; "If the looks are the same as current looks, we don't need to change anything. APPLY STYLES AT PIECE CREATION??") - (SETQ PLOOKS (PLOOKS PC)) - (CL:UNLESS (EQ PLOOKS (FGETTOBJ (ffetch (TEXTSTREAM TEXTOBJ) of TSTREAM) - CARETLOOKS)) - (FSETTOBJ (ffetch (TEXTSTREAM TEXTOBJ) of TSTREAM) - CARETLOOKS PLOOKS) + (CL:UNLESS (EQ CHARLOOKS (FGETTOBJ (FTEXTOBJ TSTREAM) + CARETLOOKS)) + (FSETTOBJ (FTEXTOBJ TSTREAM) + CARETLOOKS CHARLOOKS) (* ;; "") - (SETQ OFFSET (OR (FGETCLOOKS PLOOKS CLOFFSET) + (SETQ OFFSET (OR (FGETCLOOKS CHARLOOKS CLOFFSET) 0)) - (SETQ FONT (FGETCLOOKS PLOOKS CLFONT)) (* ; + (SETQ FONT (FGETCLOOKS CHARLOOKS CLFONT)) + (* ;  "CLFONT is a display font or a class") [if (EQ LINETYPE 'TRUEHARDCOPY) then (SETQ FONT (FONTCOPY FONT 'DEVICE IMAGESTREAM)) @@ -1798,11 +1762,10 @@ (CL:WHEN (EQ LINETYPE 'HARDCOPYDISPLAY) (* ; "Switch widths to hardcopy") (SETQ FONT (FONTCOPY FONT 'DEVICE IMAGESTREAM)))] - (SETQ HASKERN (FFETCH (FONTDESCRIPTOR FONTHASLEFTKERNS) of FONT)) + (SETQ HASKERN (ffetch (FONTDESCRIPTOR FONTHASLEFTKERNS) of FONT)) (* ;  "T if FONT contains left-kern information") - (SETQ UNBREAKABLE (FGETCLOOKS PLOOKS CLUNBREAKABLE)) - (PUSHCHAR CHARSLOT NIL PLOOKS)) + (SETQ UNBREAKABLE (FGETCLOOKS CHARLOOKS CLUNBREAKABLE))) else (* ;; "Adjust the CHNO to pass over invisible pieces--they don't show up in the THISLINE vector or on the screen. Then recurse to here for the next visible piece.") @@ -1811,7 +1774,9 @@ PC]) (\TEDIT.FORMATLINE.LASTLEGAL - [LAMBDA (THISLINE CH#1 LINETYPE IMAGESTREAM) (* ; "Edited 25-Jun-2024 15:44 by rmk") + [LAMBDA (THISLINE CH#1 LINETYPE IMAGESTREAM) (* ; "Edited 29-May-2025 15:25 by rmk") + (* ; "Edited 11-Apr-2025 11:24 by rmk") + (* ; "Edited 25-Jun-2024 15:44 by rmk") (* ; "Edited 1-Feb-2024 16:51 by rmk") (* ; "Edited 2-Jul-2023 14:39 by rmk") (* ; "Edited 17-Mar-2023 05:36 by rmk") @@ -1826,12 +1791,12 @@ (* ;; "Once we find the break point, we have to sweep through from the beginning in order to accurately know the lines ascent and descent at the break point.") (DECLARE (USEDFREE TX CHNO CHARSLOT TRUEASCENT TRUEDESCENT TABPENDING)) - (LET [(BESTSLOT (find SLOT PCS backcharslots (PREVCHARSLOT! CHARSLOT) + (LET [(BESTSLOT (find SLOT PCS backcharslots (PREVCHARSLOT CHARSLOT) suchthat (CL:WHEN (AND TABPENDING (EQ SLOT (fetch (PENDINGTAB PTCHARSLOT) of TABPENDING))) (SETQ TABPENDING NIL)) (OR (MEMB CHAR TEDIT.DONT.BREAK.CHARS) - (AND (SETQ PCS (PREVCHARSLOT! SLOT)) + (AND (SETQ PCS (PREVCHARSLOT SLOT)) (MEMB (CHAR PCS) TEDIT.DONT.LAST.CHARS] @@ -1841,29 +1806,26 @@ (SETQ TX (SETQ TRUEASCENT (SETQ TRUEDESCENT 0))) (SETQ CHNO (SUB1 CH#1)) (for old CHARSLOT FONT OFFSET incharslots THISLINE - do [if CHAR - then (add CHNO 1) - (add TX CHARW) - else (* ; "Must be looks") - (SETQ OFFSET (OR (fetch (CHARLOOKS CLOFFSET) of CHARW) - 0)) - (SETQ FONT (fetch (CHARLOOKS CLFONT) of CHARW)) - [SETQ FONT (if (EQ LINETYPE 'TRUEHARDCOPY) - then (SETQ OFFSET (HCSCALE (DSPSCALE NIL IMAGESTREAM) - OFFSET)) - (FONTCOPY FONT 'DEVICE IMAGESTREAM) - else (FONTCOPY FONT 'DEVICE 'DISPLAY] - (SETQ TRUEASCENT (IMAX TRUEASCENT (IDIFFERENCE (ffetch \SFAscent - of FONT) - OFFSET))) - (SETQ TRUEDESCENT (IMAX TRUEDESCENT (IDIFFERENCE (ffetch \SFDescent - of FONT) - OFFSET] - repeatuntil (EQ CHARSLOT BESTSLOT)) + do (add CHNO 1) + (add TX CHARW) + (SETQ OFFSET (OR (fetch (CHARLOOKS CLOFFSET) of CHARCL) + 0)) + (SETQ FONT (fetch (CHARLOOKS CLFONT) of CHARCL)) + [SETQ FONT (if (EQ LINETYPE 'TRUEHARDCOPY) + then (SETQ OFFSET (HCSCALE (DSPSCALE NIL IMAGESTREAM) + OFFSET)) + (FONTCOPY FONT 'DEVICE IMAGESTREAM) + else (FONTCOPY FONT 'DEVICE 'DISPLAY] + (SETQ TRUEASCENT (IMAX TRUEASCENT (IDIFFERENCE (ffetch \SFAscent of FONT) + OFFSET))) + (SETQ TRUEDESCENT (IMAX TRUEDESCENT (IDIFFERENCE (ffetch \SFDescent of FONT) + OFFSET))) repeatuntil (EQ CHARSLOT + BESTSLOT)) T)]) (\TEDIT.LINES.ABOVE - [LAMBDA (TSTREAM CHN BOTTOMY) (* ; "Edited 30-Mar-2025 09:09 by rmk") + [LAMBDA (TSTREAM CHN BOTTOMY) (* ; "Edited 19-Apr-2025 23:55 by rmk") + (* ; "Edited 30-Mar-2025 09:09 by rmk") (* ; "Edited 24-Nov-2024 11:47 by rmk") (* ; "Edited 20-Nov-2024 12:37 by rmk") (* ; "Edited 17-Nov-2024 16:02 by rmk") @@ -1887,7 +1849,7 @@ (CL:WHEN (type? LINEDESCRIPTOR CHN) (SETQ BOTTOMY (FGETLD CHN YTOP)) (SETQ CHN (SUB1 (FGETLD CHN LCHAR1)))) - (bind LTOP LBOT LINE HEIGHT CHNO (TEXTOBJ _ (GETTSTR TSTREAM TEXTOBJ)) + (bind LTOP LBOT LINE HEIGHT CHNO (TEXTOBJ _ (FTEXTOBJ TSTREAM)) first (CL:WHEN (IGREATERP CHN (TEXTLEN TEXTOBJ)) (SETQ CHN (TEXTLEN TEXTOBJ))) (SETQ CHNO (\TEDIT.PREVIOUS.LINEBREAK TSTREAM CHN)) @@ -1908,6 +1870,20 @@ (for L (YB _ BOTTOMY) backlines LBOT do (SETYBOT L YB) (add YB (FGETLD L LHEIGHT)))) (RETURN (CONS LTOP LBOT]) + +(\TEDIT.CHNO.TO.YTOP + [LAMBDA (PANE CHNO) (* ; "Edited 18-Apr-2025 14:56 by rmk") + + (* ;; "Returns the YTOP of the line containing character CHNO in PANE, NIL if CHNO is not visible in PANE.") + + (CL:UNLESS (WINDOWP PANE) + (SETQ PANE (\TEDIT.PRIMARYPANE PANE))) + (CL:UNLESS CHNO + (SETQ CHNO (TEXTSEL (TEXTOBJ PANE)))) + (CL:WHEN (type? SELECTION CHNO) + (SETQ CHNO (FGETSEL CHNO CH#))) + (for L inlines (PANETOPLINE PANE) when (FWITHINLINEP CHNO L) unless (FGETLD L LDUMMY) + do (RETURN (FGETLD L YTOP]) ) (RPAQ? TEDIT.LINELEADING.BELOW NIL) @@ -1915,42 +1891,6 @@ (GLOBALVARS TEDIT.LINELEADING.BELOW) ) -(DEFINEQ - -(\TLVALIDATE - [LAMBDA (THISLINE) (* ; "Edited 21-Oct-2024 00:26 by rmk") - (* ; "Edited 15-Mar-2024 19:33 by rmk") - (* ; "Edited 7-Nov-2022 10:16 by rmk") - - (* ;; "Check validity of THISLINE, either just before or anytime after \TEDIT.FORMATLINE.JUSTIFY") - - [with THISLINE THISLINE (CL:WHEN (EQ DESC 'NODESC) - (\TEDIT.THELP "INVALID THISLINE" DESC)) - (CL:WHEN (EQ TLSPACEFACTOR 'NOSPACEFACTOR) - (\TEDIT.THELP "INVALID THISLINE" TLSPACEFACTOR)) - (CL:WHEN (EQ TLFIRSTSPACE 'NOTLFIRSTSPACE) - (\TEDIT.THELP "INVALID THISLINE" TLFIRSTSPACE)) - (CL:UNLESS (CHARSLOTP NEXTAVAILABLECHARSLOT THISLINE) - (\TEDIT.THELP "INVALID THISLINE" 'NEXTAVAILABLE))] - (for CHARSLOT incharslots THISLINE do (if CHAR - then (CL:UNLESS (OR (SMALLP CHAR) - (CHARSLOTP CHAR THISLINE)) - - (* ;; - "CHARSLOTP if spaces haven't been instantiated") - - (\TEDIT.THELP "INVALID THISLINE" 'BADCHAR)) - (CL:UNLESS (SMALLP CHARW) - (\TEDIT.THELP "INVALID THISLINE" 'BADCHARW)) - elseif (OR (SMALLP CHARW) - (type? CHARLOOKS CHARW)) - else (\TEDIT.THELP "INVALID THISLINE" 'BADCHARW]) -) - - - -(* ; "Consistency checking") - (RPAQ? *TEDIT-CACHED-PARALOOKS* NIL) @@ -1965,194 +1905,184 @@ (DEFINEQ (\TEDIT.DISPLAYLINE - [LAMBDA (TEXTOBJ LINE PANE) (* ; "Edited 19-Feb-2025 13:35 by rmk") + [LAMBDA (TSTREAM LINE PANE) (* ; "Edited 21-Apr-2025 12:14 by rmk") + (* ; "Edited 19-Apr-2025 22:06 by rmk") + (* ; "Edited 17-Apr-2025 13:33 by rmk") + (* ; "Edited 15-Apr-2025 15:17 by rmk") + (* ; "Edited 11-Apr-2025 20:20 by rmk") + (* ; "Edited 19-Feb-2025 13:35 by rmk") (* ; "Edited 8-Feb-2025 23:37 by rmk") (* ; "Edited 13-Dec-2024 23:51 by rmk") - (* ; "Edited 11-Dec-2024 23:14 by rmk") (* ; "Edited 31-Oct-2024 09:56 by rmk") - (* ; "Edited 26-Oct-2024 10:43 by rmk") (* ; "Edited 25-Aug-2024 23:18 by rmk") - (* ; "Edited 23-Aug-2024 22:52 by rmk") (* ; "Edited 19-Jul-2024 23:17 by rmk") - (* ; "Edited 28-Jun-2024 11:43 by rmk") - (* ; "Edited 13-Jun-2024 17:08 by rmk") (* ; "Edited 10-May-2024 00:24 by rmk") (* ; "Edited 20-Mar-2024 10:57 by rmk") - (* ; "Edited 15-Mar-2024 22:04 by rmk") (* ; "Edited 24-Dec-2023 22:05 by rmk") (* ; "Edited 2-Dec-2023 11:34 by rmk") - (* ; "Edited 20-Nov-2023 13:57 by rmk") (* ; "Edited 28-Oct-2023 23:57 by rmk") - (* ; "Edited 11-Oct-2023 10:47 by rmk") (* ; "Edited 2-Aug-2023 12:50 by rmk") (* ; "Edited 22-Jun-2023 17:37 by rmk") (* ; "Edited 24-Apr-2023 00:08 by rmk") - (* ; "Edited 10-Apr-2023 12:41 by rmk") (* ; "Edited 16-Mar-2023 23:30 by rmk") - (* ; "Edited 9-Mar-2023 14:06 by rmk") (* ; "Edited 7-Mar-2023 23:11 by rmk") (* ;; "Display the line of text LINE in the edit window where it belongs. This constructs the line image in a scratch bitmap then copies it to PANE. Presumably this is to avoid the flicker of incremental updates.") (* ;; "Validate the incoming arguments so ffetch can be used consistently for all their field extractions.") - (TEXTOBJ! TEXTOBJ) - (\DTEST LINE 'LINEDESCRIPTOR) - (LET ((WINDOWDS (WINDOWPROP PANE 'DSP)) - (THISLINE (\DTEST (FGETTOBJ TEXTOBJ THISLINE) - 'THISLINE)) - (OLDCACHE (fetch (LINECACHE LCBITMAP) of (FGETTOBJ TEXTOBJ DISPLAYCACHE))) - (DS (FGETTOBJ TEXTOBJ DISPLAYCACHEDS)) - CACHE XOFFSET CLIPLEFT CLIPRIGHT DISPLAYDATA DDPILOTBBT CURY LHEIGHT) - [SETQ LHEIGHT (COND - ((FGETLD LINE PREVLINE) (* ; + (LINEDESCRIPTOR! LINE) + (LET* ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (WINDOWDS (WINDOWPROP PANE 'DSP)) + (THISLINE (\DTEST (FGETTOBJ TEXTOBJ THISLINE) + 'THISLINE)) + (OLDCACHE (fetch (LINECACHE LCBITMAP) of (FGETTOBJ TEXTOBJ DISPLAYCACHE))) + (DS (FGETTOBJ TEXTOBJ DISPLAYCACHEDS)) + CACHE XOFFSET CLIPLEFT CLIPRIGHT DISPLAYDATA DDPILOTBBT CURY LHEIGHT) + (SETQ LHEIGHT (if (FGETLD LINE PREVLINE) + then (* ;  "So if theres a base-to-base measure, we clear everything right.") - (IMAX (IDIFFERENCE (FGETLD (FGETLD LINE PREVLINE) - YBOT) - (FGETLD LINE YBOT)) - (FGETLD LINE LHEIGHT))) - (T (FGETLD LINE LHEIGHT] - (SETQ CACHE (\TEDIT.LINECACHE (FGETTOBJ TEXTOBJ DISPLAYCACHE) - (FGETLD LINE LXLIM) - LHEIGHT)) - (CL:UNLESS (EQ CACHE OLDCACHE) (* ; + (IMAX (IDIFFERENCE (FGETLD (FGETLD LINE PREVLINE) + YBOT) + (FGETLD LINE YBOT)) + (FGETLD LINE LHEIGHT)) + else (FGETLD LINE LHEIGHT))) + (SETQ CACHE (\TEDIT.LINECACHE (FGETTOBJ TEXTOBJ DISPLAYCACHE) + (FGETLD LINE LXLIM) + LHEIGHT)) + (CL:UNLESS (EQ CACHE OLDCACHE) (* ;  "We changed the bitmaps because this line was bigger--update the displaystream, too") - (DSPDESTINATION CACHE DS) - (DSPCLIPPINGREGION (create REGION - LEFT _ 0 - BOTTOM _ 0 - WIDTH _ (fetch BITMAPWIDTH of CACHE) - HEIGHT _ (fetch BITMAPHEIGHT of CACHE)) - DS)) - (BLTSHADE WHITESHADE CACHE 0 0 NIL NIL 'REPLACE) (* ; "Clear the line cache") - (CL:WHEN (AND (IGEQ (FGETLD LINE LCHAR1) - 1) - (ILEQ (FGETLD LINE LCHAR1) - (FGETTOBJ TEXTOBJ TEXTLEN))) + (DSPDESTINATION CACHE DS) + (DSPCLIPPINGREGION (create REGION + LEFT _ 0 + BOTTOM _ 0 + WIDTH _ (fetch BITMAPWIDTH of CACHE) + HEIGHT _ (fetch BITMAPHEIGHT of CACHE)) + DS)) + (BLTSHADE WHITESHADE CACHE 0 0 NIL NIL 'REPLACE) (* ; "Clear the line cache") + (CL:WHEN (AND (IGEQ (FGETLD LINE LCHAR1) + 1) + (ILEQ (FGETLD LINE LCHAR1) + (FGETTOBJ TEXTOBJ TEXTLEN))) - (* ;; "Only display the line if it contains text (CHAR1 > 0), appears before the end of the text. Original code also suppressed lines that were partially off-screen, which meant that large bitmaps wouldn't show.") + (* ;; "Only display the line if it contains text (CHAR1 > 0), appears before the end of the text. Original code also suppressed lines that were partially off-screen, which meant that large bitmaps wouldn't show.") - (CL:UNLESS (EQ LINE (fetch (THISLINE DESC) of THISLINE)) + (CL:UNLESS (EQ LINE (fetch (THISLINE DESC) of THISLINE)) (* ;  "No image cache -- re-format and display") - (\TEDIT.FORMATLINE (FGETTOBJ TEXTOBJ STREAMHINT) - (FGETLD LINE LCHAR1) - LINE)) - (MOVETO (FGETLD LINE LX1) - (FGETLD LINE LDESCENT) - DS) - (SETQ DISPLAYDATA (ffetch (STREAM IMAGEDATA) of DS)) + (\TEDIT.FORMATLINE TSTREAM (FGETLD LINE LCHAR1) + LINE)) + (MOVETO (FGETLD LINE LX1) + (FGETLD LINE LDESCENT) + DS) + (SETQ DISPLAYDATA (ffetch (STREAM IMAGEDATA) of DS)) (* ;  "IMAGEDATA of the display stream, not textstream") - (SETQ DDPILOTBBT (ffetch DDPILOTBBT of DISPLAYDATA)) - (SETQ XOFFSET (ffetch DDXOFFSET of DISPLAYDATA)) + (SETQ DDPILOTBBT (ffetch DDPILOTBBT of DISPLAYDATA)) + (SETQ XOFFSET (ffetch DDXOFFSET of DISPLAYDATA)) - (* ;; "The X position of the left edge of the window, since \TEDIT.BLTCHAR works on the screen bitmap itself.") + (* ;; "The X position of the left edge of the window, since \TEDIT.BLTCHAR works on the screen bitmap itself.") - (SETQ CLIPLEFT (ffetch DDClippingLeft of DISPLAYDATA)) + (SETQ CLIPLEFT (ffetch DDClippingLeft of DISPLAYDATA)) (* ;  "The left and right edges of the clipping region for the text display window.") - (SETQ CLIPRIGHT (ffetch DDClippingRight of DISPLAYDATA)) + (SETQ CLIPRIGHT (ffetch DDClippingRight of DISPLAYDATA)) - (* ;; "We know that the line's first CLOOKS comes before the first CHAR") + (* ;; "We know that the line's first CLOOKS comes before the first CHAR") - [for CHARSLOT CLOOKS LOOKSTARTX (TX _ (IPLUS XOFFSET (FGETLD LINE LX1))) - (TERMSA _ (FGETTOBJ TEXTOBJ TXTTERMSA)) incharslots THISLINE - do - (* ;; - "Display the line character by character. CHAR and CHARW are bound to CHARSLOT values") + (for CHARSLOT LOOKSTARTX OLDCLOOKS OLDCOLOR (TX _ (IPLUS XOFFSET (FGETLD LINE LX1))) + (TERMSA _ (FGETTOBJ TEXTOBJ TXTTERMSA)) incharslots THISLINE + do + (* ;; + "Display the line character by character. CHAR, CHARW, and CHARCL are bound to CHARSLOT values") - (CL:WHEN (FMEMB CHAR (CHARCODE (EOL FORM))) + (CL:UNLESS (EQ OLDCLOOKS CHARCL) (* ; "New looks") + (CL:UNLESS LOOKSTARTX (* ; + "LOOKSTARTX: Starting X position for the current-looks text.") + (SETQ LOOKSTARTX (IDIFFERENCE TX XOFFSET))) + (freplace DDXPOSITION of DISPLAYDATA with (IDIFFERENCE TX XOFFSET)) + (* ; + "Make the displaystream reflect our current X position") + (\TEDIT.MODIFYLOOKS LINE LOOKSTARTX DS OLDCLOOKS (FGETLD LINE LDESCENT)) + (DSPFONT (FGETCLOOKS CHARCL CLFONT) + DS) + (CL:UNLESS (EQ OLDCOLOR (SETQ OLDCOLOR (FGETCLOOKS CHARCL CLCOLOR))) + (DSPCOLOR OLDCOLOR DS)) + (CL:UNLESS (EQ 0 (FGETCLOOKS CHARCL CLOFFSET)) + (* ; "Account for super/subscripting") + (RELMOVETO 0 (FGETCLOOKS CHARCL CLOFFSET) + DS)) + (SETQ LOOKSTARTX (IDIFFERENCE TX XOFFSET)) + (SETQ OLDCLOOKS CHARCL)) + (CL:WHEN (FMEMB CHAR (CHARCODE (EOL FORM))) (* ;  "\FORMATLINE used space-width for EOL and FORM. Display them that way.") - (SETQ CHAR (CHARCODE SPACE))) - (SELCHARQ CHAR - ((TAB Meta,TAB) - (CL:WHEN (OR (EQ CHAR (CHARCODE Meta,TAB)) - (FGETCLOOKS CLOOKS CLLEADER) - (EQ (FGETCLOOKS CLOOKS CLUSERINFO) + (SETQ CHAR (CHARCODE SPACE))) + (if (MEMB CHAR (CHARCODE (TAB Meta,TAB))) + then (CL:WHEN (OR (EQ CHAR (CHARCODE Meta,TAB)) + (FGETCLOOKS CHARCL CLLEADER) + (EQ (FGETCLOOKS CHARCL CLUSERINFO) 'DOTTEDLEADER)) (* ;; "Not just white space, have to fill in with dots.") - (\TEDIT.DISPLAYLINE.TABS CHARW DS TX TERMSA LINE CLOOKS DISPLAYDATA + (\TEDIT.DISPLAYLINE.TABS CHARW DS TX TERMSA LINE CHARCL DISPLAYDATA DDPILOTBBT CLIPRIGHT TEXTOBJ)) - (add TX CHARW)) - (NIL (* ; - "Must be looks. Line-start looks are guaranteed to come before any character/object") - (CL:WHEN (type? CHARLOOKS CHARW) - (CL:UNLESS LOOKSTARTX (* ; - "LOOKSTARTX: Starting X position for the current-looks text.") - (SETQ LOOKSTARTX (IDIFFERENCE TX XOFFSET))) - (freplace DDXPOSITION of DISPLAYDATA with (IDIFFERENCE TX XOFFSET)) - (* ; - "Make the displaystream reflect our current X position") - (CL:WHEN CLOOKS (* ; - "Underline/overline/strike the just-finished looks run") - (\TEDIT.MODIFYLOOKS LINE LOOKSTARTX DS CLOOKS (FGETLD LINE - LDESCENT))) - (SETQ CLOOKS CHARW) - (DSPFONT (FGETCLOOKS CLOOKS CLFONT) - DS) - (CL:UNLESS (EQ 0 (FGETCLOOKS CLOOKS CLOFFSET)) - (* ; "Account for super/subscripting") - (RELMOVETO 0 (FGETCLOOKS CLOOKS CLOFFSET) - DS)) - (SETQ LOOKSTARTX (IDIFFERENCE TX XOFFSET)))) - (PROGN (if (IMAGEOBJP CHAR) - then - (* ;; "Go to the base line, left edge of the image region.") + (add TX CHARW) + elseif (IMAGEOBJP CHAR) + then + (* ;; "Go to the base line, left edge of the image region.") - (SETQ CURY (DSPYPOSITION NIL DS)) - (MOVETO (IDIFFERENCE TX XOFFSET) - CURY DS) - (APPLY* (IMAGEOBJPROP CHAR 'DISPLAYFN) - CHAR DS 'DISPLAY (FGETTOBJ TEXTOBJ STREAMHINT)) - (DSPFONT (FGETCLOOKS CLOOKS CLFONT) - DS) (* ; + (SETQ CURY (DSPYPOSITION NIL DS)) + (MOVETO (IDIFFERENCE TX XOFFSET) + CURY DS) + (APPLY* (IMAGEOBJPROP CHAR 'DISPLAYFN) + CHAR DS 'DISPLAY TSTREAM) + (DSPFONT (FGETCLOOKS CHARCL CLFONT) + DS) (* ;  "Restore the character font, move to just after the object.") - (MOVETO (IDIFFERENCE TX XOFFSET) - CURY DS) - elseif TERMSA - then (* ; "Using special instrns from TERMSA") - (\DSPPRINTCHAR DS CHAR) - elseif (DIACRITICP CHAR) - then (MI-TEDIT.BLTCHAR CHAR DS (IPLUS TX (\TEDIT.DIACRITIC.SHIFT - CHARSLOT THISLINE DS)) - DISPLAYDATA DDPILOTBBT CLIPRIGHT) - (SETQ CHARW 0) - elseif (EQ 'KERN CHAR) - then (RELMOVETO CHARW 0) - else (* ; "Native charcodes") - (MI-TEDIT.BLTCHAR CHAR DS TX DISPLAYDATA DDPILOTBBT CLIPRIGHT)) - (add TX CHARW))) finally (replace DDXPOSITION of DISPLAYDATA - with (IDIFFERENCE TX XOFFSET)) + (MOVETO (IDIFFERENCE TX XOFFSET) + CURY DS) + (add TX CHARW) + elseif TERMSA + then (* ; "Using special instrns from TERMSA") + (\DSPPRINTCHAR DS CHAR) + elseif (DIACRITICP CHAR) + then (MI-TEDIT.BLTCHAR CHAR DS (IPLUS TX (\TEDIT.DIACRITIC.SHIFT CHARSLOT + THISLINE DS)) + DISPLAYDATA DDPILOTBBT CLIPRIGHT) + (SETQ CHARW 0) + elseif (EQ 'KERN CHAR) + then (RELMOVETO CHARW 0) + else (* ; "Native charcodes") + (MI-TEDIT.BLTCHAR CHAR DS TX DISPLAYDATA DDPILOTBBT CLIPRIGHT) + (add TX CHARW)) finally (replace DDXPOSITION of DISPLAYDATA + with (IDIFFERENCE TX XOFFSET)) (* ;  "Make any necessary looks mods to the last run of characters") - (CL:WHEN CLOOKS - (\TEDIT.MODIFYLOOKS LINE LOOKSTARTX DS - CLOOKS (FGETLD LINE LDESCENT)))]) - (BITBLT CACHE 0 0 WINDOWDS 0 (FGETLD LINE YBOT) - (FGETTOBJ TEXTOBJ WRIGHT) - LHEIGHT - 'INPUT - 'REPLACE) (* ; + (\TEDIT.MODIFYLOOKS LINE LOOKSTARTX DS OLDCLOOKS + (FGETLD LINE LDESCENT)))) + (BITBLT CACHE 0 0 WINDOWDS 0 (FGETLD LINE YBOT) + (PANERIGHT PANE) + LHEIGHT + 'INPUT + 'REPLACE) (* ;  "Paint the cached image on the screen (this lessens flicker during update)") - (CL:WHEN (GETPLOOKS (FGETLD LINE LPARALOOKS) - FMTREVISED) (* ; + (CL:WHEN (GETPLOOKS (FGETLD LINE LPARALOOKS) + FMTREVISED) (* ;  "This paragraph has been revised, so mark it.") - (\TEDIT.MARK.REVISION TEXTOBJ (FGETLD LINE LPARALOOKS) - WINDOWDS LINE)) - (SELECTQ (FGETLD LINE LMARK) - (GREY (* ; + (\TEDIT.MARK.REVISION TEXTOBJ (FGETLD LINE LPARALOOKS) + WINDOWDS LINE)) + (SELECTQ (FGETLD LINE LMARK) + (GREY (* ;  "This line has some property that isn't visible to the user. Tell him to be careful") - (BLTSHADE 42405 WINDOWDS 0 (FGETLD LINE YBASE) - 6 6 'PAINT)) - (SOLID (BLTSHADE BLACKSHADE WINDOWDS 0 (FGETLD LINE YBASE) + (BLTSHADE 42405 WINDOWDS 0 (FGETLD LINE YBASE) 6 6 'PAINT)) - (BLTSHADE WHITESHADE WINDOWDS 0 (FGETLD LINE YBASE) - 6 6 'PAINT)) - LINE]) + (SOLID (BLTSHADE BLACKSHADE WINDOWDS 0 (FGETLD LINE YBASE) + 6 6 'PAINT)) + (BLTSHADE WHITESHADE WINDOWDS 0 (FGETLD LINE YBASE) + 6 6 'PAINT)) + LINE]) (\TEDIT.DISPLAYLINE.TABS [LAMBDA (CW DS TX TERMSA LINE CLOOKS DISPLAYDATA DDPILOTBBT CLIPRIGHT TEXTOBJ) @@ -2259,14 +2189,18 @@ T]) (\TEDIT.DIACRITIC.SHIFT - [LAMBDA (CHARSLOT THISLINE IMAGESTREAM) (* ; "Edited 2-Dec-2023 15:58 by rmk") + [LAMBDA (CHARSLOT THISLINE IMAGESTREAM) (* ; "Edited 29-May-2025 15:52 by rmk") + (* ; "Edited 2-Dec-2023 15:58 by rmk") (* ; "Edited 28-Oct-2023 23:51 by rmk") (* ;; "Called when CHARSLOT contains a diacritic. Computes the X position shift that will center the diacritic over the next character. If negative, the caller should move forward by the shift the next character rather than the diacritic. In effect, the diacritic should be treated as if its width is (IMINUS SHIFT) and the next character should be treated as if its with is incremented by (IMINUS SHIFT).") - (for CS (DWIDTH _ (CHARW CHARSLOT)) incharslots (NEXTCHARSLOT CHARSLOT) when CHAR - do (RETURN (FIXR (FQUOTIENT (- CHARW DWIDTH) - 2))) finally (RETURN 0]) + (if (EQ (NEXTCHARSLOT CHARSLOT) + (fetch (THISLINE NEXTAVAILABLECHARSLOT) of THISLINE)) + then 0 + else (FIXR (FQUOTIENT (- (CHARW (NEXTCHARSLOT CHARSLOT)) + (CHARW CHARSLOT)) + 2]) ) (DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: EVAL@COMPILE @@ -2319,7 +2253,8 @@ BOTTOMNEWLINE]) (\TEDIT.PREVIOUS.LINEBREAK - [LAMBDA (TSTREAM CHNO) (* ; "Edited 18-May-2024 18:53 by rmk") + [LAMBDA (TSTREAM CHNO) (* ; "Edited 19-Apr-2025 23:58 by rmk") + (* ; "Edited 18-May-2024 18:53 by rmk") (* ; "Edited 3-May-2024 23:33 by rmk") (* ; "Edited 17-Mar-2024 12:05 by rmk") (* ; "Edited 11-Dec-2023 21:59 by rmk") @@ -2335,7 +2270,7 @@ else (* ;; "Otherwise, move back thru the text until we find a for-sure line break. ") - (LET ((TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM)) NCHARS) (if (AND NIL (FGETTOBJ TEXTOBJ FORMATTEDP)) then @@ -2359,18 +2294,15 @@ 1)]) (\TEDIT.UPDATE.LINES - [LAMBDA (TEXTOBJ REASON FIRSTCHANGEDCHNO NCHARSCHANGED) (* ; "Edited 30-Mar-2025 10:02 by rmk") + [LAMBDA (TSTREAM REASON FIRSTCHANGEDCHNO NCHARSCHANGED) (* ; "Edited 26-Apr-2025 19:19 by rmk") + (* ; "Edited 21-Apr-2025 20:30 by rmk") + (* ; "Edited 9-Apr-2025 12:59 by rmk") + (* ; "Edited 6-Apr-2025 14:23 by rmk") + (* ; "Edited 30-Mar-2025 10:02 by rmk") (* ; "Edited 1-Feb-2025 10:34 by rmk") (* ; "Edited 21-Jan-2025 13:25 by rmk") (* ; "Edited 7-Jan-2025 11:55 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") - (* ; "Edited 20-Nov-2024 14:52 by rmk") - (* ; "Edited 17-Nov-2024 19:52 by rmk") - (* ; "Edited 11-Nov-2024 23:51 by rmk") - (* ; "Edited 1-Nov-2024 22:05 by rmk") (* ; "Edited 13-Sep-2024 22:27 by rmk") (* ; "Edited 3-Jul-2024 15:42 by rmk") (* ; "Edited 7-May-2024 10:41 by rmk") @@ -2379,50 +2311,66 @@ (* ; "Edited 22-Jun-2023 15:50 by rmk") (* ; "Edited 4-May-2023 10:29 by rmk") - (* ;; "This updates the lines in each pane given that NCHARSCHANGED characters with respect to FIRSTCHANGEDCHNO have been modified. It tries to reuse formatting information and screen bitmap images that are valid after the change.") + (* ;; " ") + + (* ;; "The last valid line for each pane is a line above the change whose layout is not affected by the change--either because it is forced-end, or we can tell that a change in the after it does not propagate further back. If the pane would not be affected, its last valid line is NIL and the pane is not further processed.") + + (* ;; "For a pane with a last valid line, the next valid line is the line somewhere after the last valid that is also not affected by the change--either because the line before it is a forced-end or we can tell that the change stops propagating at the line before it. The next value line is NIL if the change propagates through the bottom of the pane--all lower lines must be reformatted.") + + (* ;; "The character numbers of NEXTVALIDLINE and all lines below it have been adjusted to reflect the NCHARSADDED (positive or negative), but their Y positions have not yet been adjusted. The lines in the gap between the last valid and next valid have also been chopped out.") (* ;; "See line-segmentation comments in \TEDIT.VALID.LINES.") - (CL:UNLESS (GETTOBJ TEXTOBJ TXTDON'TUPDATE) - [if (type? SELECTION FIRSTCHANGEDCHNO) - then (SETQ NCHARSCHANGED (FGETSEL FIRSTCHANGEDCHNO DCH)) - (SETQ FIRSTCHANGEDCHNO (FGETSEL FIRSTCHANGEDCHNO CH#)) - elseif (type? SELPIECES FIRSTCHANGEDCHNO) - then [SETQ NCHARSCHANGED (ADD1 (IDIFFERENCE (FGETSPC FIRSTCHANGEDCHNO SPLASTCHAR) - (FGETSPC FIRSTCHANGEDCHNO SPFIRSTCHAR] - (SETQ FIRSTCHANGEDCHNO (FGETSPC FIRSTCHANGEDCHNO SPFIRSTCHAR)) - else (CL:UNLESS FIRSTCHANGEDCHNO (SETQ FIRSTCHANGEDCHNO 1)) - (CL:UNLESS NCHARSCHANGED - (SETQ NCHARSCHANGED (FGETTOBJ TEXTOBJ TEXTLEN)))] - (\TEDIT.SHOWSEL NIL NIL TEXTOBJ) - (for PANE VALIDS LASTVALID NEXTVALID LASTGAPLINE BITMAPLINES inpanes TEXTOBJ - when (SETQ VALIDS (\TEDIT.VALID.LINES PANE FIRSTCHANGEDCHNO NCHARSCHANGED REASON - (FGETTOBJ TEXTOBJ STREAMHINT))) - do - (* ;; - "Create/format/position/display new lines between LASTVALID and NEXTVALID exclusive") + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM))) + (CL:UNLESS (FGETTOBJ TEXTOBJ TXTDON'TUPDATE) + (\TEDIT.NOSEL TSTREAM) + (for PANE LASTVALID NEXTVALID LASTGAPLINE BITMAPLINES (LASTCHANGEDCHNO + _ + (SUB1 (IPLUS FIRSTCHANGEDCHNO + NCHARSCHANGED))) + (DELTA _ (SELECTQ REASON + (INSERTION NCHARSCHANGED) + (DELETION (IMINUS NCHARSCHANGED)) + ((CHANGED LOOKS) + 0) + (\TEDIT.THELP "BAD REASONS FOR VALID LINES"))) inpanes TEXTOBJ + when (SETQ LASTVALID (\TEDIT.LASTVALIDLINE FIRSTCHANGEDCHNO LASTCHANGEDCHNO PANE + TSTREAM)) + do + (* ;; + "Create/format/position/display new lines between LASTVALID and NEXTVALID exclusive") - (SETQ LASTVALID (CAR VALIDS)) - (SETQ NEXTVALID (CDR VALIDS)) (* ; "MEASURED.LINES creates, measures, and links the lines from LASTVALID to the last pre-NEXTVALID character, without displaying. They may be in the bitmap.") - [SETQ LASTGAPLINE (\TEDIT.MEASURED.LINES LASTVALID PANE TEXTOBJ - (CL:IF NEXTVALID - (SUB1 (FGETLD NEXTVALID LCHAR1)) - (TEXTLEN TEXTOBJ))] + (SETQ NEXTVALID (\TEDIT.NEXTVALIDLINE LASTCHANGEDCHNO PANE TSTREAM)) + (CL:UNLESS (ZEROP DELTA) (* ; + "Adjust the character numbers of the lower valid lines") + (for L inlines NEXTVALID do (add (FGETLD L LCHAR1) + DELTA) + (add (FGETLD L LCHARLAST) + DELTA))) - (* ;; + (* ;; "MEASURED.LINES creates, measures, and links the lines from LASTVALID to the last pre-NEXTVALID character, without displaying. They may be in the bitmap.") + + [SETQ LASTGAPLINE (\TEDIT.MEASURED.LINES LASTVALID PANE TSTREAM + (CL:IF NEXTVALID + (SUB1 (FGETLD NEXTVALID LCHAR1)) + (TEXTLEN TEXTOBJ))] + + (* ;;  "The chain that ended at LASTVALID now continues thru LASTGAPLINE to NEXVALID and below.") - (LINKLD LASTGAPLINE NEXTVALID) - (if NEXTVALID - then (SETQ BITMAPLINES (\TEDIT.BITMAPLINES PANE NEXTVALID)) - else (\TEDIT.SUFFIXLINE.CREATE PANE TEXTOBJ LASTGAPLINE)) + (LINKLD LASTGAPLINE NEXTVALID) + (if NEXTVALID + then (SETQ BITMAPLINES (\TEDIT.BITMAPLINES PANE NEXTVALID)) + else (\TEDIT.SUFFIXLINE.CREATE PANE TSTREAM LASTGAPLINE)) - (* ;; "If LASTVALID is not visible (above the pane), make sure that its NEXT is linked to the PANE's prefix") + (* ;; "If LASTVALID is not visible (above the pane), make sure that its NEXT is linked to the PANE's prefix") - (\TEDIT.SHIFTLINES LASTVALID PANE TEXTOBJ BITMAPLINES)))]) + (\TEDIT.SHIFTLINES LASTVALID PANE TSTREAM BITMAPLINES)))]) (\TEDIT.PANE.CREATELINES - [LAMBDA (TEXTOBJ PANE LCHARLAST YBOT) (* ; "Edited 28-Mar-2025 20:55 by rmk") + [LAMBDA (TSTREAM PANE LCHARLAST YBOT) (* ; "Edited 21-Apr-2025 12:02 by rmk") + (* ; "Edited 19-Apr-2025 22:07 by rmk") + (* ; "Edited 28-Mar-2025 20:55 by rmk") (* ; "Edited 8-Feb-2025 23:52 by rmk") (* ; "Edited 29-Nov-2024 09:14 by rmk") (* ; "Edited 20-Nov-2024 14:26 by rmk") @@ -2455,10 +2403,10 @@ LDUMMY _ T LCHAR1 _ 0 LCHARLAST _ (OR LCHARLAST 0) - RIGHTMARGIN _ (SUB1 (FGETTOBJ TEXTOBJ WRIGHT)) + RIGHTMARGIN _ (SUB1 (PANERIGHT PANE)) LHEIGHT _ 0 LX1 _ 0 - LXLIM _ (FGETTOBJ TEXTOBJ WRIGHT) + LXLIM _ (PANERIGHT PANE) FORCED-END _ (CHARCODE EOL) LASCENT _ 0 LDESCENT _ 0 @@ -2471,18 +2419,19 @@ (SETYBOT PREFIX (OR YBOT (PANEHEIGHT PANE))) (FSETPANEPROP (PANEPROPS PANE) PREFIXLINE PREFIX) - (\TEDIT.SUFFIXLINE.CREATE PANE TEXTOBJ PREFIX) + (\TEDIT.SUFFIXLINE.CREATE PANE TSTREAM PREFIX) PREFIX]) (\TEDIT.SUFFIXLINE.CREATE - [LAMBDA (PANE TEXTOBJ PREVLINE) (* ; "Edited 28-Mar-2025 20:56 by rmk") + [LAMBDA (PANE TSTREAM PREVLINE) (* ; "Edited 21-Apr-2025 12:00 by rmk") + (* ; "Edited 28-Mar-2025 20:56 by rmk") (* ; "Edited 29-Nov-2024 10:54 by rmk") (* ; "Edited 22-Nov-2024 10:22 by rmk") (* ; "Edited 20-Nov-2024 14:25 by rmk") (* ;; "A new suffix line is created, if needed, and linked whenever the bottom is reached. This gets the paragraph leading and height parameters from the previous line. This may already be formatted as a dummy, if LCHARLIM is past the end.") - (LET ([SUFFIX (LINEDESCRIPTOR! (\TEDIT.FORMATLINE TEXTOBJ (GETLD PREVLINE LCHARLIM) + (LET ([SUFFIX (LINEDESCRIPTOR! (\TEDIT.FORMATLINE TSTREAM (GETLD PREVLINE LCHARLIM) (PANESUFFIX PANE] EMPTYLINE) (FSETLD SUFFIX LDUMMY T) @@ -2499,7 +2448,8 @@ SUFFIX]) (\TEDIT.LINES.BELOW - [LAMBDA (PREVLINE PANE TEXTOBJ) (* ; "Edited 21-Jan-2025 13:31 by rmk") + [LAMBDA (PREVLINE PANE TSTREAM) (* ; "Edited 21-Apr-2025 11:53 by rmk") + (* ; "Edited 21-Jan-2025 13:31 by rmk") (* ; "Edited 24-Nov-2024 14:57 by rmk") (* ; "Edited 22-Nov-2024 00:53 by rmk") (* ; "Edited 20-Nov-2024 12:37 by rmk") @@ -2525,14 +2475,15 @@ (* ;; "Formats and displays lines after PREVLINE down to the one is at least partially visible at the bottom of PANE. Each line is positioned with respect to its predecessor and linked to it. The last visible line is set as the BOTTOMLINE of PANE, PANE's suffix is adjusted to cover the bitmap and all the unseen later characters. Returns the last displayed line.") - (for L NEXT YBOT (BOTTOM _ (\TEDIT.ONSCREEN? PANE 'BOTTOM)) inlines PREVLINE - eachtime (SETQ NEXT (\TEDIT.FORMATLINE TEXTOBJ (FGETLD L LCHARLIM))) + (for L NEXT YBOT (TEXTOBJ _ (FTEXTOBJ TSTREAM)) + (BOTTOM _ (\TEDIT.ONSCREEN? PANE 'BOTTOM)) inlines PREVLINE + eachtime (SETQ NEXT (\TEDIT.FORMATLINE TSTREAM (FGETLD L LCHARLIM))) until (FGETLD NEXT LDUMMY) do (SETQ YBOT (\TEDIT.LINE.BOTTOM L NEXT)) (SETYBOT NEXT YBOT) (CL:WHEN (ILESSP YBOT BOTTOM) (* ; "Ran off the bottom") (RETURN (if (\TEDIT.SHOW.AT.BOTTOMP NEXT PANE) - then (\TEDIT.DISPLAYLINE TEXTOBJ NEXT PANE) + then (\TEDIT.DISPLAYLINE TSTREAM NEXT PANE) (LINKLD L NEXT) (* ; "Keep NEXT with partial display") NEXT @@ -2542,7 +2493,7 @@ (CL:WHEN (FGETLD NEXT LDUMMY) (* ; "Suffix line: end of pane") (RETURN L)) - (\TEDIT.DISPLAYLINE TEXTOBJ NEXT PANE) + (\TEDIT.DISPLAYLINE TSTREAM NEXT PANE) (* ;  "Cached formatting is good for display") finally @@ -2552,7 +2503,8 @@ (RETURN L]) (\TEDIT.MEASURED.LINES - [LAMBDA (PREVLINE PANE TEXTOBJ LASTCHAR) (* ; "Edited 21-Jan-2025 13:30 by rmk") + [LAMBDA (PREVLINE PANE TSTREAM LASTCHAR) (* ; "Edited 21-Apr-2025 12:05 by rmk") + (* ; "Edited 21-Jan-2025 13:30 by rmk") (* ; "Edited 7-Dec-2024 16:55 by rmk") (* ; "Edited 1-Dec-2024 11:26 by rmk") (* ; "Edited 20-Nov-2024 12:37 by rmk") @@ -2562,7 +2514,7 @@ (for L NEXT NEXTCHAR1 YBOT (PBOTTOM _ (PANEBOTTOM PANE)) inlines PREVLINE eachtime (SETQ NEXTCHAR1 (FGETLD L LCHARLIM)) while (ILEQ NEXTCHAR1 LASTCHAR) - do (SETQ NEXT (\TEDIT.FORMATLINE TEXTOBJ NEXTCHAR1)) (* ; + do (SETQ NEXT (\TEDIT.FORMATLINE TSTREAM NEXTCHAR1)) (* ;  "Always a next if the while succeeds") (SETQ YBOT (\TEDIT.LINE.BOTTOM L NEXT)) (SETYBOT NEXT YBOT) @@ -2579,166 +2531,194 @@ (RETURN L]) -(\TEDIT.VALID.LINES - [LAMBDA (PANE FIRSTCHANGEDCHNO NCHARSCHANGED REASON TSTREAM) - (* ; "Edited 30-Mar-2025 09:12 by rmk") - (* ; "Edited 27-Mar-2025 12:40 by rmk") - (* ; "Edited 21-Jan-2025 15:22 by rmk") - (* ; "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") - (* ; "Edited 5-Jul-2024 22:58 by rmk") - (* ; "Edited 4-Jul-2024 10:48 by rmk") - (* ; "Edited 23-May-2024 12:48 by rmk") - (* ; "Edited 22-Feb-2024 01:05 by rmk") - (* ; "Edited 3-Nov-2023 12:07 by rmk") - (* ; "Edited 14-Jun-2023 15:55 by rmk") - (* ; "Edited 17-May-2023 09:32 by rmk") - (* ; "Edited 15-May-2023 17:51 by rmk") +(\TEDIT.VALID.LASTCHNOS + [LAMBDA (FIRSTCHANGEDCHNO TSTREAM) (* ; "Edited 18-Apr-2025 09:35 by rmk") - (* ;; "Called when changes have been made to the document that affect the lines displayed in PANE. Return NIL if the change is not visible in PANE. Otherwise, this divides the lines in PANE into 3 segments:") + (* ;; "This returns the number of the last-visible valid character in the pane that contains the change and has the most visible lines above it. If the last valid character is not visible, returns the cons of the shortest list of valid-lines ending above the topline. (We might search that backwards, but the CAR is needed to avoid collection.) ") - (* ;; " 1. a prefix of lines from the top visible line (next of PANEPREFIX) to the LASTVALID line, the line just before the first changed line.") + (* ;; " Note that all character numbers above FIRSTCHANGEDCHNO are pre-change, so it is OK to look backwards.") - (* ;; " 2. an intermediate sequence of lines that are (or may be) no longer valid because of the change.") + (LET (MOSTVISIBLE FIRSTCHANGEDLINE LASTVALIDLINE) + (CL:WHEN [SETQ MOSTVISIBLE (for PANE inpanes (FTEXTOBJ TSTREAM) + when (IBETWEENP FIRSTCHANGEDCHNO (FGETLD (PANEPREFIX PANE) + LCHARLIM) + (SUB1 (FGETLD (PANESUFFIX PANE) + LCHAR1))) + largest (IDIFFERENCE FIRSTCHANGEDCHNO (FGETLD (PANEPREFIX + PANE) + LCHARLIM] + (SETQ FIRSTCHANGEDLINE (find L inlines (PANEPREFIX MOSTVISIBLE) + suchthat (FWITHINLINEP FIRSTCHANGEDCHNO L))) - (* ;; - " 3. a suffix of post-change lines, starting with NEXTVALID, that are known still to be valid.") + (* ;; "There is a single last valid above the first change that applies to every pane. If the global lastvalid corresponds to a line in a particular pane, then that existing line is the last valid for that pane.;;\") - (* ;; "A line is %"valid%" if its line breaking is unaffected by the change and the bits in the screen bitmap that represented it before the change are still correct.") + (* ;; "We want to return a chain of lines that runs upwards from just before the changeline to the last valid. With luck, the last valid is one of the lines above the change line in the pane that has the most above-change lines.") - (* ;; "") + (* ;; "If not, then the lines of the most visible pane are totally irrelevant. We have to compute the lines from the top of the most visible pane (it's lines are totally irrelevant)") - (* ;; "The segmentation information is returned to the caller as a pair of lines (LASTVALID . NEXTVALID). Segment 1 is then the sequence of lines chained from the prefix line to LASTVALID, segment 3 is the sequence beginning at NEXTVALID. The segment 2 lines originally between LASTVALID and NEXTVALID are useless, so here we just nuke them out (by smashing the NEXTLINE of LASTVALID and PREVLINE of NEXTVALID).") + (* ;; "If we can't") - (* ;; "") + [if (ILESSP (FGETLD FIRSTCHANGEDLINE LFIRSTSEPR) + FIRSTCHANGEDCHNO) + then + (* ;; "The prev of a line containing an internal sepr is valid") - (* ;; "This assumes that the change has already been installed in the piece table after character FIRSTCHANGEDCHNO. The LCHAR1/LAST valus for lines through LASTVALID are unaffected by the change, the values for all later lines are off by NCHARSCHANGED (negative for deletions, positive for insertions). The positions for NEXTVALID and beyond are adjusted so that they are correct with respect to the revised piece table. Note that this only deals with the character numbers of lines that will persist. Although the Y positions for segment 1 lines are good,segment 3 positions cannot be adjusted until the replacements for segment 2 lines have been calculated.") + (FGETLD FIRSTCHANGEDLINE PREVLINE) + elseif (for L backlines (FGETLD FIRSTCHANGEDLINE PREVLINE) + do + (* ;; "Line with a forced end is valid") - (* ;; "") + (CL:WHEN (FGETLD L FORCED-END) + (RETURN L)) - (* ;; "Edge conditions:") + (* ;; "The prev of a line containing an internal sepr is valid") - (* ;; "If the first visible line is changed, then there are no existing segment 1 lines and no existing LASTVALID line to return. If the first changed line is also the first line of the document, then LASTVALID is NIL. Otherwise, we fabricate a new line with LCHARLAST and YBOT just above the changed top line and returned it as LASTVALID. Either way, the next of PREFIXLINE is set to NIL to indicate that there is no chain of real segment 1 lines with valid formatting and reusable bitmaps. ") + (CL:WHEN (ILESSP (FGETLD L LFIRSTSEPR) + (FGETLD L LCHARLAST)) + (RETURN (FGETLD L PREVLINE))) finally - (* ;; "") + (* ;; "We create a chain of last-valid character numbers corresponding to a chain of valid lines that descends from the latest previous forced-end to the topline of MOSTVISIBLE.") - (* ;; "If the last visible line is changed, then there is no NEXTVALID line, indicated by NEXTVALID=NIL. The next valid could be a currently non-existent line just below the pane if we are not at the end of the document. If LCHARLAST of the last visible line is TEXTLEN, there is at best a trailing line.") + (RETURN (\TEDIT.LINES.ABOVE + TSTREAM + (PANETOPLINE MOSTVISIBLE + ])]) - (* ;; "") +(\TEDIT.VALID.NEXTCHNOS + [LAMBDA (LASTCHANGEDCHNO TSTREAM DELTA) (* ; "Edited 17-Apr-2025 11:33 by rmk") - (* ;; "Note that this is mostly an optimization to avoid unnecessary reformatting and redisplaying of still-valid lines in favor of bitbltting a block of their currently visible images. Smashing all lines to NIL and refilling each pane would also give the correct behavior, but slower. Intermediate would be smashing all lines below the last valid.") + (* ;; "This returns the number of the next-visible valid character in the pane that has the most visible lines below the change. If the last valid character is not visible, could return the shortest list of valid-lines starting below the bottomline. ") - (* ;; "LASTCHANGEDCHNO is in the before-change sequence. I.e., if FIRST is 5 and 6 were being deleted, then it is 10. But it doesn't correspond to the surviving line positions after they have been adjusted. It would have to be adjusted too.") + (* ;; " ") - (PROG ((TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)) - (LASTCHANGEDCHNO (SUB1 (IPLUS FIRSTCHANGEDCHNO NCHARSCHANGED))) - (SUFFIXLINE (PANESUFFIX PANE)) - (DELTA (SELECTQ REASON - (INSERTION NCHARSCHANGED) - (DELETION (IMINUS NCHARSCHANGED)) - ((CHANGED LOOKS) - NIL) - (\TEDIT.THELP "BAD REASONS FOR VALID LINES"))) - FIRSTCHANGEDLINE LASTCHANGEDLINE LASTVALIDLINE NEXTVALIDLINE LINESABOVE) - (CL:WHEN (EQ 0 (TEXTLEN TEXTOBJ)) (* ; "Empty document") - (RETURN (CONS (PANEPREFIX PANE)))) - (CL:WHEN (IGEQ FIRSTCHANGEDCHNO (FGETLD SUFFIXLINE LCHAR1)) - (* ; - "Change after previously visible lines") - (CL:UNLESS (ILEQ LASTCHANGEDCHNO (TEXTLEN TEXTOBJ)) - (* ; - "Change is after PANE, nothing to do") - (RETURN NIL)) + (* ;; "We can stop when we see a forced end-- characters won't move around after that. In the usual case, the forced-end is a also the last line of a paragraph, but we can't just take the first line of the next paragraph because we can't deal here with whatever paragraph leading it might have (and the venue sysout also screwed up in that case).") - (* ;; "Adding at the end of the document: insert a new line") + (* ;; "So we go for the second line of the next paragraph, if there is one") - (\TEDIT.INSERTLINE (\TEDIT.FORMATLINE TEXTOBJ FIRSTCHANGEDCHNO) - SUFFIXLINE)) - (SETQ FIRSTCHANGEDLINE (find L inlines (PANEPREFIX PANE) suchthat (FWITHINLINEP - FIRSTCHANGEDCHNO L - ))) - (CL:UNLESS FIRSTCHANGEDLINE (* ; "Change is below PANE") - (RETURN NIL)) + (* ;; " Note that all character numbers below LASTCHANGEDCHNO are pre-change, so it is OK to look forward in the lines") + (* ; "") + (LET (MOSTVISIBLE LASTCHANGEDLINE LASTVALIDLINE) + (CL:WHEN (SETQ MOSTVISIBLE (for PANE inpanes (FTEXTOBJ TSTREAM) + when (IBETWEENP LASTCHANGEDCHNO (FGETLD (PANEPREFIX PANE) + LCHARLIM) + (SUB1 (FGETLD (PANESUFFIX PANE) + LCHAR1))) + largest (IDIFFERENCE (SUB1 (FGETLD (PANESUFFIX PANE) + LCHAR1)) + LASTCHANGEDCHNO))) + (SETQ LASTCHANGEDLINE (find L inlines (PANEPREFIX MOSTVISIBLE) + suchthat (FWITHINLINEP LASTCHANGEDCHNO L))) - (* ;; "Change starts above or inside PANE, Where does it end?") + (* ;; "So we go for the second line of the next paragraph, if there is one") - (SETQ LASTCHANGEDLINE (find L inlines FIRSTCHANGEDLINE suchthat (FWITHINLINEP - LASTCHANGEDCHNO L))) - (CL:WHEN LASTCHANGEDLINE + (* ;; + "The line after a forced end is valid. But maybe we can figure out how to stop sooner?") - (* ;; - "Last changed line is visible, its changes may cause character to shift to or from lower lines.") + (for L inlines LASTCHANGEDLINE when (FGETLD L FORCED-END) + do + (* ;; "A forced end is usually the last line of a paragraph, and its next line is probably valid. But we skip that one, because we don't know how to deal here with its paragraph leading. If forced but not last, presumably it was a meta-EOL linebreak, no special leading to worry about.") - (SETQ NEXTVALIDLINE (\TEDIT.NEXTVALIDLINE LASTCHANGEDLINE TSTREAM))) + (CL:WHEN (FGETLD L LSTLN) + (SETQ L (FGETLD L NEXTLINE))) + (RETURN (CL:WHEN (AND L (FGETLD L NEXTLINE)) + (FGETLD (FGETLD L NEXTLINE) + LCHAR1))) finally - (* ;; "") + (* ;; "Ran off the bottom. Should we build lines down until we fine a true valid character? Or maybe wait to see whether there is another pane that starts in a suffix of the paragraph for which this ends in a prefix.") - (SETQ LASTVALIDLINE (\TEDIT.LASTVALIDLINE FIRSTCHANGEDLINE FIRSTCHANGEDCHNO PANE TSTREAM)) - (CL:WHEN NEXTVALIDLINE - (FSETLD NEXTVALIDLINE PREVLINE NIL) - (CL:WHEN DELTA + (* ;; "") - (* ;; "If the modification added or substracted to the number of characters, translate the character positions of the still-valid lines that are visible later than the change. ") + (* ;; "We would have to add DELTA to build new lines consistent with the document, then subtract DELTA to get consistent with the current lines.") - (for L inlines NEXTVALIDLINE do (add (FGETLD L LCHAR1) - DELTA) - (add (FGETLD L LCHARLAST) - DELTA)))) - - (* ;; "") - - (CL:WHEN LASTVALIDLINE - (FSETLD LASTVALIDLINE NEXTLINE NIL) (* ; "Chop out the now useless lines") - (RETURN (CONS LASTVALIDLINE NEXTVALIDLINE)))]) + NIL))]) (\TEDIT.LASTVALIDLINE - [LAMBDA (FIRSTCHANGEDLINE FIRSTCHANGEDCHNO PANE TSTREAM) (* ; "Edited 30-Mar-2025 10:00 by rmk") - (* ; "Edited 18-Feb-2025 12:45 by rmk") - (* ; "Edited 29-Nov-2024 09:14 by rmk") - (* ; "Edited 20-Nov-2024 12:37 by rmk") - (* ; "Edited 18-Nov-2024 23:16 by rmk") - (* ; "Edited 17-Nov-2024 19:08 by rmk") - (* ; "Edited 16-Nov-2024 13:25 by rmk") - (* ; "Edited 28-Oct-2024 16:05 by rmk") - (* ; "Edited 28-Jun-2024 15:22 by rmk") - (* ; "Edited 16-Jun-2024 08:27 by rmk") - (* ; "Edited 13-Jun-2024 22:09 by rmk") - (* ; "Edited 25-May-2024 00:28 by rmk") - (* ; "Edited 23-May-2024 12:47 by rmk") - (* ; "Edited 18-May-2024 10:13 by rmk") + [LAMBDA (FIRSTCHANGEDCHNO LASTCHANGEDCHNO PANE TSTREAM) (* ; "Edited 26-Apr-2025 22:57 by rmk") + (* ; "Edited 20-Apr-2025 00:08 by rmk") - (* ;; "We hope to return an existing line in PANE that is impervious to the change at FIRSTCHARCHANGECHNO. This would be the impervious line closest to FIRSTCHANGEDLINE, usually the immediately preceding line. That line is valid: it and lines above it do not need reformatting or redisplay. But if PANE does not contain an impervious line, and we are not at the beginning of the document, we have to construct lines above PANE until we get to an impervious line, so that we can format forwards.") + (* ;; "Return NIL if this change has no visible consequences for PANE. Otherwise, find or create the lowest line in PANE that is impervious to the change at FIRSTCHARCHANGECHNO. That line is valid: it and lines above it do not need reformatting or redisplay. ") - (* ;; "A line L is impervious to a change in L+1 if it has a forced end, or if L has at least one separator (space, tab) prior to its change point. The change point is FIRSTCHANGEDCHNO for the first line. If we have to go to earlier lines, then any separator anywhere on the line (at or before LCHARLAST) will stop the back-propagation.") + (* ;; "Note that all character numbers above FIRSTCHANGEDCHNO are pre-change, so it is OK to look backwards.") - (if (ILESSP (FGETLD FIRSTCHANGEDLINE LFIRSTSEPR) - FIRSTCHANGEDCHNO) - then (FGETLD FIRSTCHANGEDLINE PREVLINE) - elseif (for L (TOPLINE _ (PANETOPLINE PANE)) backlines (FGETLD FIRSTCHANGEDLINE PREVLINE) - do - (* ;; "Line with a forced end is valid") + (PROG ((TEXTOBJ (FTEXTOBJ TSTREAM)) + FIRSTCHANGEDLINE) + (if (<= (FGETLD (PANETOPLINE PANE) + LCHARLIM) + FIRSTCHANGEDCHNO + (SUB1 (FGETLD (PANESUFFIX PANE) + LCHAR1))) + then + (* ;; + "Change is within the second line of PANE or later, find the line that contains FIRSTCHANGEDCHNO") - (CL:WHEN (FGETLD L FORCED-END) - (RETURN L)) + (SETQ FIRSTCHANGEDLINE (find L inlines (FGETLD (PANETOPLINE PANE) + NEXTLINE) + suchthat (FWITHINLINEP FIRSTCHANGEDCHNO L))) + elseif (OR (ILEQ FIRSTCHANGEDCHNO (FGETLD (PANETOPLINE PANE) + LCHARLAST)) + (ZEROP (FGETLD (PANETOPLINE PANE) + LCHARLAST))) + then + (* ;; "Change is in first line or before PANE--does it impinge?") - (* ;; "The prev of a line containing an internal sepr is valid") + (RETURN (CL:WHEN (OR (FWITHINLINEP FIRSTCHANGEDCHNO (PANETOPLINE PANE)) + (IGEQ (CAR (\TEDIT.PARA.LAST TEXTOBJ LASTCHANGEDCHNO)) + (FGETLD (PANEPREFIX PANE) + LCHARLIM))) - (CL:WHEN (ILESSP (FGETLD L LFIRSTSEPR) - (FGETLD L LCHARLAST)) - (RETURN (FGETLD L PREVLINE))) finally (CL:WHEN (SETQ TOPLINE - (CDR (\TEDIT.LINES.ABOVE - TSTREAM TOPLINE))) - (FSETLD (PANEPREFIX PANE) - LCHARLIM - (FGETLD TOPLINE LCHAR1)) - (LINKLD (PANEPREFIX PANE) - TOPLINE) - (RETURN (PANEPREFIX PANE)))]) + (* ;; "The changed paragraph doesn't end above PANE there is at least one affected line. Build and return the prefix for the lowest such line.") + + (FSETLD (PANEPREFIX PANE) + LCHARLIM + (FGETLD (CDR (OR (\TEDIT.LINES.ABOVE TSTREAM (PANETOPLINE + PANE)) + (RETURN NIL))) + LCHAR1)) + (PANEPREFIX PANE))) + elseif (IGEQ FIRSTCHANGEDCHNO (FGETLD (PANESUFFIX PANE) + LCHAR1)) + then + (* ;; "Change starts below PANE--does it propagate back into PANE?") + + (CL:WHEN (ILESSP (FGETLD (PANEBOTTOMLINE PANE) + LCHARLIM) + (CAR (\TEDIT.PARA.FIRST TEXTOBJ LASTCHANGEDCHNO))) + + (* ;; "The changed paragraph starts before PANE--doesn't impinge") + + (RETURN NIL)) + (SETQ FIRSTCHANGEDLINE (PANEBOTTOMLINE PANE)) + (* ; "LCHAR1 forces the backward scan") + (SETQ FIRSTCHANGEDCHNO (FGETLD FIRSTCHANGEDLINE LCHAR1))) + + (* ;; "") + + (* ;; "FIRSTCHANGEDLINE is in the pane and is affected.") + + (RETURN (if (ILESSP (FGETLD FIRSTCHANGEDLINE LFIRSTSEPR) + FIRSTCHANGEDCHNO) + then (FGETLD FIRSTCHANGEDLINE PREVLINE) + elseif [for L backlines (FGETLD FIRSTCHANGEDLINE PREVLINE) + do + (* ;; "Line with a forced end is valid") + + (CL:WHEN (FGETLD L FORCED-END) + (RETURN L)) + + (* ;; "The prev of a line containing an internal sepr is valid") + + (CL:WHEN (ILESSP (FGETLD L LFIRSTSEPR) + (FGETLD L LCHARLAST)) + (RETURN (FGETLD L PREVLINE)))] + else [\TEDIT.SETPANE.TOPLINE PANE (CDR (\TEDIT.LINES.ABOVE TSTREAM (PANETOPLINE + PANE] + (PANEPREFIX PANE]) (\TEDIT.NEXTVALIDLINE - [LAMBDA (LASTCHANGEDLINE TSTREAM) (* ; "Edited 21-Jan-2025 15:27 by rmk") + [LAMBDA (LASTCHANGEDCHNO PANE TSTREAM) (* ; "Edited 29-May-2025 22:38 by rmk") + (* ; "Edited 19-Apr-2025 23:52 by rmk") + (* ; "Edited 18-Apr-2025 12:48 by rmk") + (* ; "Edited 21-Jan-2025 15:27 by rmk") (* ; "Edited 29-Nov-2024 23:31 by rmk") (* ; "Edited 16-Nov-2024 11:00 by rmk") @@ -2746,15 +2726,25 @@ (* ;; "So we go for the second line of the next paragraph, if there is one") + (* ;; "Note: another strategy might be to format forward within a paragraph until new character numbers align with old, anything after that is valid. There might be less redisplaying in a long paragraph, and the amount of formatting would be the same. May even remove the need for \TEDIT.MEASURED.LINES in \TEDIT.UPDATE.LINES") + (* ;; "The line after a forced end is valid. But maybe we can figure out how to stop sooner?") - (for L inlines LASTCHANGEDLINE when (FGETLD L FORCED-END) - do - (* ;; "A forced end is usually the last line of a paragraph, and its next line is probably valid. But we skip that one, because we don't know how to deal here with its paragraph leading. If forced but not last, presumably it was a meta-EOL linebreak, no special leading to worry about.") + (for L NEXTVALID inlines (find L inlines (PANETOPLINE PANE) suchthat (FWITHINLINEP + LASTCHANGEDCHNO L)) + when (FGETLD L FORCED-END) do - (CL:WHEN (FGETLD L LSTLN) - (SETQ L (FGETLD L NEXTLINE))) - (RETURN (AND L (FGETLD L NEXTLINE]) + (* ;; "A forced end is usually the last line of a paragraph, and its next line is probably valid. But we skip that one. If it's the first line of a paragraph, we would have to deal with its paragraph leading. If forced but not paragraph-last, presumably it is a meta-EOL linebreak or an EOL in a plaintext document. For reasons that are not entirely clear, in that case it is also better to go one more--if we have deleted the EOL a piece of the next line may have been brought up and we don't want to see it also below.") + + (CL:WHEN T + (FGETLD L LSTLN) + (SETQ L (FGETLD L NEXTLINE))) + (CL:WHEN L + (SETQ NEXTVALID (FGETLD L NEXTLINE)) + (FSETLD NEXTVALID PREVLINE NIL) + (* ; "Disconnect from above") + ) + (RETURN NEXTVALID]) (\TEDIT.CLEARPANE.BELOW.LINE [LAMBDA (LINE PANE TEXTOBJ) (* ; "Edited 1-Dec-2024 11:27 by rmk") @@ -2885,21 +2875,21 @@ (\TEDIT.LINE.TALLP LINE PHEIGHT))))]) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (28178 30394 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 28188 . 30392)) (37799 121333 ( -\TEDIT.FORMATLINE 37809 . 73751) (\TEDIT.FORMATLINE.SETUP.PARA 73753 . 78919) ( -\TEDIT.FORMATLINE.HORIZONTAL 78921 . 83494) (\TEDIT.FORMATLINE.VERTICAL 83496 . 85947) ( -\TEDIT.FORMATLINE.JUSTIFY 85949 . 91970) (\TEDIT.FORMATLINE.TABS 91972 . 100000) (\TEDIT.SCALE.TABS -100002 . 100793) (\TEDIT.FORMATLINE.PURGE.SPACES 100795 . 102222) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN -102224 . 103125) (\TEDIT.FORMATLINE.EMPTY 103127 . 108154) (\TEDIT.FORMATLINE.UPDATELOOKS 108156 . -114278) (\TEDIT.FORMATLINE.LASTLEGAL 114280 . 117820) (\TEDIT.LINES.ABOVE 117822 . 121331)) (121450 -123365 (\TLVALIDATE 121460 . 123363)) (123563 145101 (\TEDIT.DISPLAYLINE 123573 . 137213) ( -\TEDIT.DISPLAYLINE.TABS 137215 . 140019) (\TEDIT.LINECACHE 140021 . 140749) (\TEDIT.CREATE.LINECACHE -140751 . 141587) (\TEDIT.BLTCHAR 141589 . 144216) (\TEDIT.DIACRITIC.SHIFT 144218 . 145099)) (145716 -189246 (\TEDIT.BACKFORMAT 145726 . 148280) (\TEDIT.PREVIOUS.LINEBREAK 148282 . 151005) ( -\TEDIT.UPDATE.LINES 151007 . 155755) (\TEDIT.PANE.CREATELINES 155757 . 159008) ( -\TEDIT.SUFFIXLINE.CREATE 159010 . 160516) (\TEDIT.LINES.BELOW 160518 . 164979) (\TEDIT.MEASURED.LINES -164981 . 166881) (\TEDIT.VALID.LINES 166883 . 175396) (\TEDIT.LASTVALIDLINE 175398 . 179261) ( -\TEDIT.NEXTVALIDLINE 179263 . 180693) (\TEDIT.CLEARPANE.BELOW.LINE 180695 . 182801) (\TEDIT.INSERTLINE - 182803 . 184189) (\TEDIT.LINE.BOTTOM 184191 . 187421) (\TEDIT.SHOW.AT.BOTTOMP 187423 . 188533) ( -\TEDIT.SHOW.AT.TOPP 188535 . 189244))))) + (FILEMAP (NIL (26360 28576 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26370 . 28574)) (35981 119708 ( +\TEDIT.FORMATLINE 35991 . 71369) (\TEDIT.FORMATLINE.SETUP.PARA 71371 . 76537) ( +\TEDIT.FORMATLINE.HORIZONTAL 76539 . 81207) (\TEDIT.FORMATLINE.VERTICAL 81209 . 83660) ( +\TEDIT.FORMATLINE.JUSTIFY 83662 . 89683) (\TEDIT.FORMATLINE.TABS 89685 . 97713) (\TEDIT.SCALE.TABS +97715 . 98506) (\TEDIT.FORMATLINE.PURGE.SPACES 98508 . 99935) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN +99937 . 101014) (\TEDIT.FORMATLINE.EMPTY 101016 . 105836) (\TEDIT.FORMATLINE.UPDATELOOKS 105838 . +112019) (\TEDIT.FORMATLINE.LASTLEGAL 112021 . 115471) (\TEDIT.LINES.ABOVE 115473 . 119084) ( +\TEDIT.CHNO.TO.YTOP 119086 . 119706)) (119985 140565 (\TEDIT.DISPLAYLINE 119995 . 132505) ( +\TEDIT.DISPLAYLINE.TABS 132507 . 135311) (\TEDIT.LINECACHE 135313 . 136041) (\TEDIT.CREATE.LINECACHE +136043 . 136879) (\TEDIT.BLTCHAR 136881 . 139508) (\TEDIT.DIACRITIC.SHIFT 139510 . 140563)) (141180 +187411 (\TEDIT.BACKFORMAT 141190 . 143744) (\TEDIT.PREVIOUS.LINEBREAK 143746 . 146549) ( +\TEDIT.UPDATE.LINES 146551 . 152266) (\TEDIT.PANE.CREATELINES 152268 . 155719) ( +\TEDIT.SUFFIXLINE.CREATE 155721 . 157336) (\TEDIT.LINES.BELOW 157338 . 161948) (\TEDIT.MEASURED.LINES +161950 . 163959) (\TEDIT.VALID.LASTCHNOS 163961 . 167737) (\TEDIT.VALID.NEXTCHNOS 167739 . 171213) ( +\TEDIT.LASTVALIDLINE 171215 . 175886) (\TEDIT.NEXTVALIDLINE 175888 . 178858) ( +\TEDIT.CLEARPANE.BELOW.LINE 178860 . 180966) (\TEDIT.INSERTLINE 180968 . 182354) (\TEDIT.LINE.BOTTOM +182356 . 185586) (\TEDIT.SHOW.AT.BOTTOMP 185588 . 186698) (\TEDIT.SHOW.AT.TOPP 186700 . 187409))))) STOP diff --git a/library/tedit/TEDIT-SCREEN.LCOM b/library/tedit/TEDIT-SCREEN.LCOM index 92f63743475c53ddceff7af86ea4c699022b545d..8713f2ba6fbb7b9a8b15e4953e60d4a1b6db7935 100644 GIT binary patch literal 33793 zcmdsgd30OXc_#o;6wS&sK*21-F!T#8b0AejuyIoy8xIQwfB-H7fTn26h9yD{H%qQ0 zyIEV=QSBtn$;6JcIBw!ZiQ}Z5rXVPs#*%EzIkQyo)Q;0C9Wtw%Hd}o zGFyn}(#ibPfYP6ftFeL_Nt?hCH6K^}zP%kC9;zXVY=wAC83+W2QV$*<3itxUif{aY zZ{$G0KcIL9=1$!Iz{2vel5*m>GN5#PAeNu}(5=&_j-5Pp+tQH-mX932Eq!9{$ntIX zA1f^%dtcByeA{~#P7jH<+m;uOo;-5$eYc^7WI=om<wRZve6Ok1u>--;1ECSL za++FQ{x>CM0gX;fr_+kDdtR@1Kq(zLjZQUpn^!O#7}#qXThKR@Ir2U+wt)Y@@c4m1 za6tLMOeP*n$7erutJY1_xNzFk&2is|;vX9g1w+aK8pTj#Ryle9lG1S?nozR`h-)Ehr-uUu327B(k{Ln{42pfuir`O^Sw@+$3GTO zqAVL#3yOaj!@`jLp`Z@(YpK8)e?SboF=xuS1u{C!r^b+HIADf^LS{%1lijo$%9sg& z_7(r=h%)e@0et(Efde2n|42|7cn7|Rk??^u9)hFF0Dbw98pDH6y!-Hu*Rc@56Y&9M zWSp{5>3suAa7-B(8c;ykRCK(9fI5;)uv|thaBP)$feA|jEk*;%WIUIpC%-}{8coo% zPnk&O@`ag1vJlUwSphIKmdxhCgyMO68&e|e5Iu}4G5$TG@S-EbK>kC8be!rO2`Q=R zd?7iJ1oOdbP)V!#0!S*SRf=9@XIPG>`VEcpDt*e-6yfghxRT`$A(kSJA6BR)Yr$IK8c8IQ*4ZB&`gMnD0RoNWRy0*X*`g&{UEq-PrD zlMzeIPSJdTEzsO(Z$SktcPgHZC9?-971$+*6ropil7Rs6 zB@ZSF88vq>N#*@x%9NT@wOR6yD*332O#>+-%1k5Muria36==wQf!&4KDV_^MP9*aj zfsiJ8px5RnT##G^sWfWTFs^WHNsC3m8r%`j5i>;+a0VPJo-I(%M-)|m9@Y|Q{2`gZ zCsirrra7NODWnDXyC{fPzrrRa@^MN*>%c!2NddoyX>Nh|1uPWS7<@O0T9X-UqdF4| zD!KT-d55hn z_UD3!aYk0R9c{0L{{!)?$HR|Fp4!7%-QxXMON%A`7jyleUf0H6*T$GjIS^UhdoSg` zskG>J*YMFrAG_$Il|CHwVXGZ&ttIMX#ok0cRGg9(_Z8Ff$z9B&y?zI ziyPl4)pxzr=3CrYopd?h$@Y~#^Duj;-d_5%uHwGxP(qFH>`vaf;zOm%JqkB~aCeEnEkr*H7*WN>Im4BP6d!+6u?kUyx7YCxe^yj1YqEd@G9QN|>%zO=xiF#|LXC9xtsbay-3P@bL|LWRV zl&!Zi<+b%?okD z8y%PETe+R}ms%>mn#-333ctN%X9KT`Rr_3xeZG1f``mnQ@sA&2pBpTGzUFADzQ+Ez z>tkA;hgpAkc?UasLuc_LsF)9leT0v(mSP`q*zwcD?~66|C3NqL=-#PR3eJuA?Hd4&h*axw86X)N? z+>30Y?pWt&+{-4|ezBJO(L$^^0TeI3AIn<&INm>4TPS`^NBY#I$rn&nfKtPh?^Z&# zGoK~m0&P5ejc&C37+t?kkU;J^mXcli4Z5?4-pr#j1{&1HOYC1_dxGu3WbJ2Tn3RYR zi;Iy`PGS=}G zkX!#|CB{b7&C1QR(vOODmds3JZrKa0^R99?Cd`UCyfcS*4Ib93vcA|Z+NYjaaR61U z`BxlReJdCX!x_Me;|6e|WiKuLGqhUP24&6~i(p!-EFxB`Rj_h^&PkA#(gqgnZmTsd z`NH+>)JZHh=GwCG9MyFmz6Bbu*x$80w6S_481+Bjvhk557JGUa>`|t~FUJwoe@Y=YfsNyD)h} zg7~-ESx7cwi_}DeROED*)6~tkZ&YqUJA!~kJ;psmtYP`>*Xjx_>hEuSL1?5x$}0D= zktJ-NEC2HhdlV!_c+Q;bgzCFlFYkc6U2O96?p_wD_zcwT77HuUpq-PnbDc%x64P2n zSgzWJCf3}85!KxtVI%II2pe;E;Dfo>-0czOdwl84VsZJ~gJ^x3q>%^zoK;fK z*dk(}5zMxibulNTO-@!?R_q=$j+^PTcp5!@3p-6cJ76 zV0?U3IXrP^JjbB(j6)HY*%}JHH^FkrJE3%_u%C^G0$b#O;#EjO--G@MQwJ$1Q8qP; zH>ja{<)g-yMtyoq(L{kk!wif-`L;F=ML3VNM*j^Ro0`rYjC-ZYATS()5=^!=?^KRu zrV7GJ6$n8$J}m5$T#1Gb7YIUeHp2q2R9KszNKfYz-aMNqkZul}L%=`2Rleq~_=m@~ zsEZH9KR&Ljd4{2o*&-c3h$-}sL1VUdq^SY_$Tb=m`3=esZ#f9dVErM?skJZGe8FKd zoE*xLNhv6w0x$w_O&F>&Rs=ei$7k*u*2qj7B3c)qnvoE=*5($%vu^LNHSZ`>!w#pbU&YvdmPpz+efZ$+XrI2jb6i z)1*w3)CG&mVf1-A7oSOHV{8T%60N!%raw13rNU6#;Xyw~O(sQHnP9pz*&TyEV4xLd zv0(;%Fqm2L1!1Rawqpi;R;y{yCv8LqD`{YSWQ1F0U=NE4CNmD(71?eYkTGs7xg!a4 zTwn}sVG+QLMuBrvK(qur8e~@sjDnXn7aSoom@vD6SYavynMm^tuz9>G%?}=8%>Ra)86se{RAIfdJ)GAY^G1)5d2_>t+C! zT64bwUmMJHRg%qFwuk|0kLbn+TU(lOf-HkKe~=8Wn!OEnP;E7^{b!gPDF__ zvHvBPA`X=*|B0J~UQB4#r1OdDUo4c*iy~i0*7rZLVt*>R|ou1s@34bJgDt z^LPHi>%GgJt4$tltIdmMF5F8>L6RqxQtth=RI=Xs!lg`0Wxva}J5#rJDF3~A{& zzN>?^W`#5rfP*POTb-a4|L~~7z~eYOl4J^(j%+v)otmA<6!KH?D0-+t)v2lUEZ_6; zh1qmG4`Lo3w(JeVp%I;Mh*)Anx~pNIG7L7XQI#dpKRQNyMb9o-iXXnVDV8tfxla?j z<*4$3EQ=*`QI?B;h`Yti9L*1Tl{*N;wydCH!6LB@HgP(zE4?|m2MkBH2EROucPK>=#d;^D!Hj3edOY?Y4~{PCB(tf|Al=&jgbV4WIY{gA(_u9djSK61Ey5L|xXyRZ3I>=IU-gcQ7banL^up}eFhGAl>rt7--BD|ncaa9ZMQ6TGosoIKGhvHzzE+H0IMsIH?>@k`vv^AvPZF|%#pKdN|a zFAl;m3MLA@yAR9{oVO2ti#_;agBz;@tcMLGU;jmEajn?@%VH0K`^k9GN9Lry^5xx$ zx>MUv_KFGA)*=eEvkB53y>gGcJuBDs{7_S3NAxGiFV{d;(GFO#)7{QGNhyV2RPY_2 zR0{$S0|dJXYMco24Tt!(BoezgWL#zebC5j7AWS!DOCU*W4j~=Q634Mhqr;H3nuQT% z7#z?Hf=q7$g~mav*xBK|izy-SN^?5+h8YC*YXMo}1wxRhxW^UlWeC8U{1zl{xc&n7 zzW(CJyqK!>TSamB;Z2#yh2AWhgISunA$-aW=@PzRosp0<7DU{F&)bL}F)WL2C(z|A z>89n3Nq4q3b0)AE-QOy@i-3~bS`knJE)%Z1!}TuL?v}6!DoG~lZC9Sh3q_5j67}{g z7Xa$GG8<01JHsirGn`DV-R0gj>9l2&=??nu*-9pq=%EL>j49dp4ClI|O8gL%rI=v0 zBT5D?+2m9@8JC<`W49r&O^pc$o5~njaw89+HAO^7_xQNZ=SLNoYw~J_+~gxlBSK=h z(Ezb%tu4f)WHKzP)#FpLYGE3lc@D^fZJXrRe+hH9-?H0g+Yve6^2mz)rs(1(f9Q7k z98z$s?29bA9Ica;zVu|>FB@_&s|36K;>OqDDS#Z}KxQ=r77Yv)^BPo;ka| zm8|&Da@X~&8}`;7_>p=c@Uh;X&>wNP-sPKqO3bbsjIq1?!`KI^qeo1a%Vy=DV@9u8mc3_3>b~O=QOT2!k+mQl$ z3rHRYk|34IL{y|TnLuQ|(nuM4mr<%9vI>CP_`N=S2S8qkytDE&F4t+{H_&=j9-4tz zh>3IoX%sU71OhS1mtpOND>D=iArp}?NZ|&^hev41WP~HxfjWqn26Dm3#&S9&39~{p z9apo^uct{wfYv87;03Jekib8LsE}Nt1-0Ns)3`{g(76fVda%V_#lF~Sv$e-#SB`cp zmejgWt$STxy?z2-gil76TfR3Tw?g^dS`sqFbMpHOwYW^_SpP|RSVC8O<-?zwvOjIe z{)aX0{8-n^15cq|Y@P#deoF$|6F`x80)49;?0h`oOwDt(qow+L^M^~HDmkh3GjK6Ipb@S-(On$-aQ%7(bczU4{rJJjg0Kn=W5a8_UoX|$b_%U?@Az&jjsc* zp`B1~dS;_ZNL$G@r@h#1kHe|fUH$OF%GEQ>?O3^b+Ft&26h1w!RNRDIAQDnyY_(Db z^a=H=4f^9N?X^-I`!+C`^mB=1T(tle2EqABpw>+pQlbuE6N|9|v|ApH6CmRdh2_Bd zD&e{*1iP)sDYml!P+h$1`(^<0tf4YL%w@bXKPaTpGVCLe!S#+nz6ItOUZDnwO0r8Z<6RnIHp@6_1nTMh1@L zATaD|hrx3k>e9yJVW;cf9pQ4iWPd@;*e_j7!wKT@wWrH(olFbG@dwS`@0|}P2A@ZAmADc#G9hyb4R7!EJ7ALtCA*GrID_;* zoh>BOTob^C&6NTSVXvJw=JOq7zbL62pL8Pd;;0SIUXJBqq1YyPbV&I%2!XmTsG%6} zfj4cOM1u%nu|4avO5B9&NJ0Uk&04S+&ccYZaTXS(Jtn8m+r#sbrjRv` z7D5?Bu+=>-=XGTEx&a>#vo6@ZV4b>ETE2GOSrRE_-5x!; zRf9p@>V(U0k#!d9tb8*ByC=g6TGdT9h<0wcc zl9*pC$?0-(38nHSec(l>ojGOb+KhX>{82tR#jeu1l{fx^%z#gB(nn`-5OU9&#kZl${eB?J7APm z^jZ^$Oyp+Jm=%P*%A5;2pc#a%%M7wcll$QpGv|Ue(F8)b$f0ZS!H{*Z83L`AxUb+M zu+keXW#-O-m0>~r@QH**Lu0{_(5Svw8rb~w6rExa6-xewnAx-;2sfF%BbiU)U`lS9 zLTh=HGUwjX_Ba7ql)9-Pc2*1Coj}ZRqoWfPNo+J%0w5e+Tpq?-K#v^83yBXhju>yW z$soQOPs31;MO-vqMvSrFB(v`9z>fZ>oXgFN&CeBXS-hZ@2RLyab$n4J%KW-2sq#-! zc)xN%t+!WSOC2gLB1*>Ii^RFEts{HuAyBn_=hlfcUG7kArmNmoZCRXi(vxkjvo_Ps zyR%Vw|4b);nsIYS!d&O&_PL(gOy}k6=6Y*0h^t+_eSXHxdwp>R=J;D&zP1@>xo2`l zTH`Nesyoy3z4ttv9((~3#xJv7AJNmOz0Q~Vd8q1KKiYoDfpFmYjX9-!Xr_}JuqxfM z1H2cq4-cb#V>h(Uo;P>4{MDJh#Fe?eT3B7=WmPgNH5}v3F4`cBAC15Sm}wd>pbTMk z!s-cQ(>NqQ-L6gMaV??&7=g0@6NoPW8V7;tF`T)9n=uFzyTwRC0;e<=2gcwO7Fh%E zBl7y-^3MZ%z;Z!Af=I>< z({v7GJC_%xheW>&D)0QE}VcKD{R} z@6PNadjx$sV4c8MD@?yL``7^Zg6&r`zNIU3zS>NP^sOrZqj?*b6$+N#5y+~Um(eQZr{oq{{&v3Q5wY}1>toPnh#+q1)&7Sd?G$10GE?a z?kGb+BShY?+Gz9}gx;i)`UpfAjg*PfDB>sv2H_>*@p3!_hM8j$RSR(O70Vg#L)JMErc{(DkC|^TVUQ?zz(mi zDdUUE!-o{x8Ls_vz2xgc%{ywVsnu@rEap!5td2VPx_=td4pxz@1)TW#B8q&DGg1TU zD^85i%$OOFLXvvbizn}lEYAo z+T`*RdeWA`w<@vcVjCl#K~xvu#}ZkZ@i&}J!y!dYg(rNVvx;=$kSxA%&**z2-UtzL znY>CVwAs-&R$nJ=5^Se)vjhfL#GyuP%8>{+oj}?V;tWJ{UY;cKBs4I=6d+8~D>v2A z;k-k-unz5jT=S?CwrJYxM|h7V%%G?dlMxHSvo-S)nq!W1e6E@}Nz0GlN}Pn_&DN5z z%ikhg&2^h=>-No)=PqCN0s`dU#H$Lh%wQgI7 z9R7SMx%q4@`3N41{U{DWo%M6^v*^TzzPcaV5J%$LVu^`Zoy)D-L(6ZRxM%`il>F63WJ)NjqWK8)CEU82|{s&2#nEL&-(V@!jPC=eJk2#LZ+U#)Z| zWsq@A-M%!44Dedw8V@3R0-8p-)U9DAVdEbia< z2A(unfRvwqw}_NBeK1TPhN3kdNR zdQy0~HFX0#QpQ0wm7|kG15cx2uV~BmP4s++y>fRAM_s&|t9cs8w>MWa!lNL1Tj{3; z(1F2>Y<^Aj_(KQV%FElNiE#6BhKY`DJjHyAyv_0fY^pY!ta`UB&S!w?a~lDo5*oXY zV$sat7O85-a+{GdNVgk@;USVPWaA&T7 zjG|;Np3Xp6!hH>+5FE_~u)Ru9EU6;C2yyY=d?E>7$Y^8hF(-{+&oMSL0#E*7^c%bt zq4dP`DL7uXIszpHX{1A9>ltf~o~GzdnQs^_M&z4Cq!W69nHh#|%*`DXYOM^DSx*X- zf~^x@m9b%vYk25%2qSEaH$=W0gf{byCq(;$>_!Oo99frfLIY?*b|yeE*k-#R_NHKC zMg1giTLP#37&xFXz2JmQKe;$A+<-1mS9K(_Q`5j6nj+(#Hwq;?qb4V@^ds_KgAoitfJPv8 zY5Kx&L-$8m?lAUX&7lR{&2e*qCX3@Zzrp5@IA~o;$3AZm|8aYW-bKxTf@{gb-ft8HYkV+=!Vq$SML)q%_EVe40-f)pDt#Ifz4- zeXxT=9MHuE@)#SW4DuKoC!CzdQnJwk7f=BO|8g0IR17pmW&sEcBoahtpjUhwEU+Uc zxQ@rAwhB3tpA=u6K~UPVH!k;7&UFrU)pL9w<-82eHbiQ95bCuvU4Bc+KKVKqXJ5!x z+cVH-J0H#rz6fRZ7p$|Z{1%z`iAIgQjti00S}KzI!TQ>4B)qn{sz#qum&Kk?eusfS zKeOyrld1KIgPjMR#GQ8=-X(KRrmmDP&4c^->G+JGAdNdw$fc2O(9I;xY=eT*iGPU2 zp=&<4>N^Va7pcI*(xSs-PDnwPb}mv#fZzhJ{W8!{Fi9duq5XoQscHd6o(45tOPgq5 zsE$1RS`WyQY{Vi@AOfgGdf;pj@5CZsZk?46EqAJr)FP?P zFDINLTe75Xez~TmN)dd?jmvFAB#;L|PlAR-WGjX*6)nMAz$!Fq8_}M`7_{el_1RPx^wMlO%uO#hEti&W z;OO;2DT7`4(q#2|7+>$YkX*VlTmGB$;KlO)C>1;H9JN`e!(MI8+Fx;y<>eo<7$np^ z(;#K!ndlj8Xfgz!zYE8{acCOW@e!pJ4^gHj{eyEiR0Zq{20a1Z#pxW*FK9r?en6@~ zo+yi9Ey>6L<_)6GO;5o&o~HF(#yHwsQ?1cb{kHJmZ+t!c_k8TNs32WmSe#$KD>Auu zXb~$KIkPw$FC{h~uO;q;jDFtda_)#FUv|`Dld0tTrBWIx>6hDUFKgn{+9gbw1v;|RG%9RohIivUnKySnUxdy^R|Da+z5{TyrY50lVdQ%t zzqN!Ri)kU98;>tK!}a!X-SJ&6{R)mmODZC~(R#zdg%`U0C13~mg~ML1-J1B_KiCFu78xq_KITlkyfBqbdev8t!AV1`sROiIjZm6xV~5CWDXB(DTer zgpEmB?TG-nqw3~YmXe#Fb~)Qp<;8F^%K7ib^tnmLrAf!#)tgh*8z=1-VwGD`V!0iu zx?A3Jk%0}T{0|(QA`{Nv>RCiq*pS+45(Y!k^W`U{j@MWEYFBCXMxm751C4HT_2=2@ ze_JTOo~A3FFqsCaLYl-dn2S7s5hf7c(_&}!tJ&&MI;^SZ zNM=rbd{?Y36enVmxPEAcQU+{J|mCb;fkgapCN3)jb;_LMZfEUjNGO;Qx6yuzzP%W~MB zmRU%2M1&^~VM4Y}%Il;L?e?!3CqkM^ixd_`pE#Jt>E1m^nT&UW9V$huZowT4)VB*Z z)O$4l37jU7Q&}fDPz*T{DyxPQob(ddcPRo?!_O_y9LIN?Z25E&q!|K$)ouWLfCWf+ z4<+4z)>d0TU7l#jfIXz~HmXU;4Q$rMWb7>vx~wrRR?3wcfnVX#dxS;UC!m(|v2(Uh zJ2{7QDN*7p@q6kDaN}p-bSxXTh8d6p>nA`z+EUO1dd3s$*n z{h}69=S)pvsU~Tq47DY28%6bGqFRd7dn-APisIr6LJhHl3s`<2xKknaiK%kCeCk7zH644jh8fHZOfc zW^2R_5xFYXER7@QikgNxDj!?Bh8Qk4M=4P z=(5IhA=cQ`BKD<56FywayTEpcL z4ke#0M2%GScP2|uaR~S53J>6okxA(tkTKth+?PAEYMv z>!nGJb4{i}4G7Fc*lv2W^2DUzw3St@1xU1remF5Hkr|yJGXgOe$;qT{NHYv8rw*nK z*sB)2VlpwUKpa_uvPw8N>PfHxuPJzPi|QNVGt1^79mKP@lb~xQ0ZV8fSzJwcwZ$1R zinBN8vPLvo=>(>7Q!!YzB^JTfq#+SGOhsT53`!ah78g@le!-}Q;|3lM^wvGqCP7Ft zS`$jsmQ1Q`Ktph_0glyEvTwA5)1FNkIXl*F=xo}<4JiI8pm?j?j2(8^8^h(d3fv?f zc7L+km#TIO4p{H2_9i9UBVPAJOli28(s45Z-26&P z;^v|Uue~3VPrRz zvPRXyfZm+Pxa?d|QmJm0xON&B8hHG^2h+^>aMP;Jma9E#+ccWBKI~ zJt=QeV+a-dU8oZd9Dx&YERU;?Nvn-;p}EwZQd6q*lActShkFbnQ+w5u?mEPyzxrIx z_JmoX5sY%h_EE&RY@J3pV@YbI-PqOgTe!xcYjb|%{B^jesv8eoh~E1BYt^(45ia{# z#J>CrISZ`w#mwQAs~PFSuJ_>z*V$5iFpTJn{iS-pKxPDsK_lbA8Ef=_4k7(z<}6iS zs(xpo{0at^EWZUQgOvK~%_s5I@6;;ouMVi&jJw{)r%G!Ea>ym-Bx?<#V2gjvy#+v8ddg{p6iV3P&B9=nFFI zzY>*N<$OARU_#=6HL@M@v|1W5)d5@G56gUz{W}EF&6WO?1R#yfD z_u>1eiG%>#Y9Dp{0T84$Ds+M9W70{ZZKACrI@z#mid_*{hOH+2tJQ_DB?sRCf3?cs z2ePDTrTjcH5yR^BH>prI=XA?w+HjmR+D&$i7vTknQmmE@Z=`h=%` zc~5ag>D9ejdzO}DAwD~+hqpk89&rep!8SRa z^G>W@vV3EvK8UsW_2#EC_5P2^HR~^}M!TxFN8Y3v2S=Li8sL+AH<;2hneur!g261B z+0Y1V0-6jR$BkVOmf`v0yT~x~_$@?`VOT+%>llXBu^AEqBiW*82s)D~BeqQw1iPdO z;?oVhdm}`JC zVkm>Ng^jl@uY4IbX28#x7_uXd$5cB-Tp2PzJ2t#oCnN;JmLUUtU5z)oDaKSgontU$ zXtMYRt#cb}n%iL0+|uz0Q|*CKV{Zd=ji4^-Hv1C-h~6`#p&4^kP18!^ZX>(jdR)_w zn0rHprb+g1AwEOEH8n^Vd|5!o*~C?ljTT@yX}r*_0s1&`mzb#<$T5v%x+g%-`=)*g z-Llc_aFW}yW|`9yxm-(u`G|_rcVdHC&a@N5I(Hm?-WL2WlgsHa7~I5;<2a+4(MspK z${`NC5Ki%J>gV_tTjLK?rONlJf45NnQN3?=o@^R#69G8T6f3)Vp+jJ=|CFfr9jg8a zN8S-xWTA9eBTSP9{mTTwO%f)E)kA~{ZOkrMx&C5QBj|#X9Hj`$C-<6Z=1(4_QVX!sqWbY%P^u!;8yqQzOfc#0{NYtG6z??Dj=<;e zo%EA^_}L=*;XV@P8{vB7eIj$FbX$sMxtMM+avtIrZgF~+ zvxt)v{uV@Z&kA<2>%#oS)Uycj-c^2w$}i(uy(xhkxRMZS4B<>E zoTzZF%WE(=8`XY73Z~*l2f4FDOR-D>gR$ z(%+_)&kq=iG$$b;>CJm_e@z}g2f2*9f=?+&kIXIcCnO?{HplWEw0P;5!tWZ7;qVrJ z5nuS^6hhw={Knsjn$XZB$~3q4_Pu(gN+K$*NKHhi;i19LqIHN%IHyqwz2ZLZEOH-A zgF5j`kLaO{3ZPS^#)F;)Fzw~y_$NxL__59cri5G;Y7`7Mi|gX@N=H0{AA`&%5c@t+ z7?Ky*XPNkMI$Y7U6^LI4XXv{g%{bKmz1OL(<2^@%cMs^Qs+ekq`nvg;&Gxg{F9E5gHLH0xdTUk(QNtRm;bVbgq|YB z9+7|uG9Hz|&!%@w;dXz@$NNt|jF9Ei7{`TsQ}LW$LlEioBZ5spPa#Q@95rXwGa`W| zvLmA&(rUs_84QmQ5Xk#Z{6^=(@wxdUC&eVq9XYNXJ*GT(ivLRL^81v9`}7G@7EUP- zoILTsv6FxwJ@Mdi{+p(!=Z`7Jjz6?;^2G7`j~zd~pDw*du7?&%sOAA=7CGnUkIgM% zF}#Yx06c=ivMqh?J@3+eA#x2)oK%h|zqfFDe&P5KioE9-UrObH6AQ;rA3KSv3TS-! z$Z5Qwwo}KbhsRHxR^}c&c@lk5c%v8zF5y-lIfJ zM-o+zlu9R$ojQd|mggQsg$pN+pSpdomlJ1Wa!x*YT+r+99XVM#n{sLLr^>By^hh-1KDiUI_mZ&ZTt2#zF3S5E|l=ztCpa~SH?y52YkP9rxAs>5(Z z94Urhnl*Tsr2(J;G2V@CO*Gv5qp<`-QT@^%YeDUHO=}8qe$5WSd80UJvPJbx_mf#G zvfLA9%_45k+M;UX$4QSoa%?C!{mP)d$-Jsv;6_X?& z<0oV;v*c|8lk^Ji+~IkLTwXd<&d*qS-aXCmL#o=|1OyNO5B-8SghhT(1oyXJ^PARC z7V~syRgvStPzSQ;DG;DVg+?IkI#wVQ6Dx2`>Cm8!mhtoG*BBqoc4KR4bXV4+weqIl zTElOe@y#kWPK~9qZCja0s|S^9el#Y;<7pl=>7Dvqn)h1cikONS*Ts}%Tpd%AVT}}X zM-W-n=!vNu*;Msjn$wJ3F^_Y!QQDkl?2)DBYjlZ%CiE_uDkX#JHPSjfgpN47kypG5NYK(@ls9Ja zbAjC2hA~etK=qghV5%rIwnbwYh_Rxr`eVw{v1Nx$nW#ez!V2N71N-EJ(9b33YaSB% zKQWyZ_mW6n+?=5y4ZjK3(j;KXU*%dfV+mT**e|src6{Ty@wpUWoO3a9Wy7$p#Xk*_ zuHKf`mF>Qb?dUi}3#;|DQE3xzGJuW9ZU7tc+yFLWc!vRw^S8z!D;`6dffqHV!p~Qj ctSq-n;{Z*oRfH6lnA^AiNfeSZ`K7=A7rXD|RsaA1 literal 31683 zcmbV#3vgW3nP#gc3!&IbOKvnm5#}O{wyjtl^+PX*A$|KH_wCma>K2lWp|RB_dLc8m zNhTYI0)~+1rht$KlVYeqNJ26*X|>$7!N&B~Y|Sp0SqKBptdwMC*<>e^8Fpu++NzmK z)g<2UKj+*>KMc&O?CyL2^FHVQ|MS1jX-_mZsbykAlUgb^q-7?VvTsU_B-O()rC-bB zV$&%tJJql3n~tf`oElEmfWvAwruc>rw6}Yxh6u9dVo{|(Fg%n#c528!>>ok$p<(}_ z5r4np>0dZ`&%H~lCko2RHKkwq%+;rbEh6UW<2aYBT_{IiP=9(Ey`f9#9+?oDPSxQ)vpdI`H?(fNOdCxs&wxF#i-_z1#lMW8_sD z=It%rWXt`^fTKEBJ5^r1)~KTUXPVtRkSQxS|7%)LTBNd41^NV3yi=#}`LB>XE7El@S*Fu89T1WtsU9}p@cntvU zE55N&rT3LL{)TXn! z*|?UAWm7CiFcipS!E|F;dJ8IHHb)NuCCa}s#k{Cb$;IY!sTi+wSV_!ebK0Z^W;>;f zOejQWpyO#->Bu-Lodv;A>X@xjsuI&NHAT2PGNNSoLvUDR$;PIp0S`_0edEfsb~v6( ztJ8-yD(}PMs?(}5OTJMh8&R=IB4tFGwXy}3SuL8QA^QRxb#wDmJQs!>*Rp(%K$?#h zU$POr4vW!EC>%XfV%D(`x5cK3Wuvw+g~%*Xx1TTQyI*M?Uf$kFcDlxxr|{JW z*_z%~_>-=@r#uu_!#ul-_bk6wDE*QOZTt=Lh+?HT*;@I>OT{9;>hZ54lqd34t+9@-!{;9>rm?~OB0ILdnW?4n%9+rqjh-(S!V=9LI9{bZymzpoN; zI-9<97v;c9T;I?3y|tC^tFV5(B|nX>c-i!>=JE~veZRW0wY*)vPi2$%K6g*2YaAmg z-Bi4uS6KQP>*Y;vf0Ze$?06ZkK;o<{v5!i1FTADE%!T?_VR6 z9Pb|jB60#g?A2P-^7{&?Z>_125|!3qoB zbNNy}SXs{Bk8FIhD3hDre<|;-u!o*mZ~Y$LPHnBXers3LGwV%*?Ck2E?Tzd4)xN#a z!{2^@&)wV4v$JbWd$ylhcRa#w*7xa-^81$A&5L{(y5r?^BjBEVu2NvRoo6a6M?Ik0 zcW*zwy8FS^J=F0*c0c;f&KCF<&JpeL%IcoH{|cSm^&8RIUH_8EXq)-lQ2A|C`EBQu ztV7$%&jBz;fVm57pyXpWvq#ujK^LDzYkXcsyPu_Y2UlBOr%Ae>efAP{55r<-fAQAq z7~38^SffL?FaPc9FFPpH+598xO>OKfuZ(v&e*{q0jjl;7EPaIa6`D)KmCoVAz{DF0 zO-y-PO#bI9?2F~A+2MnNV{T=xSP%&?Z zJ-|m%Nw5c;P5AF@+QRscVz@_XxJNO50%8j81nf?N-FbmMz_U7=HmTpTZ|4rP`C z(BV5QUg|ed3QKHTSuw-wE!}MDTP&ELs<1PqaTYyy9dj?UsP5e2XxPJ|Y)~xIAgT`M zqd?L8DJ)R_VZ5KIEae|Ekv8#S@*=7lrqo*~-yuA)-~SpB2XOnrM(sC$6`j4BI{Sxg z3jLLRc@ObdEKG;#l9# zH;}V$EAOf-uQ%T;F>u}a&r2BPB8~FwuBLCS{wH>J=Q(uwM>}7W6Z;?)+W~?0vxiHJ z9V%UuI-kD44iOa(gTUD>gvbw<2H3$ea)P4sT{LC*cC9;q%pTSq0#^@Kia$rXo6?sl z?FANomPN5Dhc@;Cjqj(`JG)5aafL?gg^?fKLWhFtPHBV|^?tFWlJ5w1bXVbd^e%Ir zb=+ROPIr8j-BsRMD*hw8tN06I2^PNa4h`_iZeTqs>y7TF4dU^2r@JcSy0f|J-5}-l zrnkXNR=u>+UnjJ%)ooIH2($PwlUrwt;I#n#o&*^wt>BUF*6I~r+SA52tPo9Y-8yqz zHkoV#JY8?vy*jiFzI}G>pKjXzKDxU0Pd8FuzffWEjkR~9izpUMV&h;wj8&r2rTswr zXk~RMf0i?_TE094+HcU6hI3O~Tl=T}?GgxSbx15q14chYs3GXOcnkI6hV9ZmR42&K zT1z8OZ^Nc&aXz;Fl+fLT=u-5u;0iXY^1Rrn@c7ypOFsu$(XaXaKDjNFoR`|I;ie#3C*ve3LTV{i6Y;!tNFs zyyxyV`0d8+*wOn0mThQwRyHE|?BDoZeD;)j=`+8$y#1$aaaVK6!xn`^b3Nd_=M?(P zFGCu-hAr=E{u*26sY2R%V9^c9+wbm0AD=)*#~23+L{q9zF^Tu^?J@i%l2S&8a zex3IqDwyoemBc-lx1S(_ybw;f-QlFWE6n=c9;4GwghTHB3hN2K<_L>{hB4a*Sr>Cb ztmACW$XYspR(nb}(r11ZJ-wE#QcqWTPoHP|DB%)Byf7~&KJ^y1?-F`y2elHYwF=Zu zp!Or%o$A zKk4@T$rq4nCG<|L2bNziBHkEf7 z<9KjFNypM*WsJsJz1U-8n7(SzC@fs>QsW2=LNZG=5e3FE!=po0*QyYMCgT zgP&t9aZEyOedFW8L}D`}f*k8i ziT-ie%IeC(0z>u;n2n->n~aSGY9T6szB1X%dz#D(joTDo0}xOfHCb0==*&j$pL* zcmMD(j8I}ka^*o6Sc)*4$wbLs=o`kG)@2#?2LzcQ%Vb8G0OD{$7{y9h_QR3!5z7cg zEY`G0jReVr$Bo*-30S(gr7s9JC7uEk<8^HYU}ux4Lu(_D+AEA-evkq;J_+Q-oRe*> zdRTtggR5rUXEy8ulFQ!sV7HTxV}9jqOLH|Ika6wCvkDB=h6M|}K<3AkNFdpa!T(|9 zO)agRP|ln@sjQw{`zRiiyHB3F=hzuIXT~wD9@yc0fddU}zFr$uO1A*|Wf%aJDZ?y? z)x=&!7BlK6H~ndfTpHP}Dw`S4Y?|K=D9+$@4#zGbe5vK$PM0I3x1QULj|bu~%xw6& z%DeEQ3lmi5j!RQRd>fyS7KFG|8mbf`Tx*$MZ~CuXR+uZ4{+t_MUWyxbn{)BC@%k3GsLS!Rx)=nfX3pP5(!Iu$ z3JLeYN^q$mHJ4Rn3R$n#Pm z0}~!?poH3>fEebR_BE}i0Ztk&i@ee4nR-l)%j7Km8%EU^+1l-^x=e1 z3wr_Sbq`YmUI=Ssh}*{-=wtiP06t{{P&G%@6M+yn0(_VBn2X0!u=&H;!8g$$c0=(1 zVv<=n?h2732!6A4*2-k$wmzekGcn5(MFc z8-jtU*=@$4f7x(6GBrP$&Sj@!5%kc2s#8;`dA{jobMvWK78E;zYO0AHUW{R7kjrpG z5j7Hr#osi^4=N*I0!HG@^fYYVlqfPH6>^7>T36IJHcqU?tW0thA2`$$%jUA&1&Pgc zO!;JnMYU=8Cu5)D&ZSzW=EG)SXMCtwa8PU-Rm={K7qdCo+-;0%1fGWeuo~rqSEwtE zoKSYD+wfD4aVN?w+4jjfqLPCL&WY(*bOzoLdLhq<={bTZkizH)PIh~InH&vl%=C4T zOTfm=f|gT)IGg3KAihTKFL+qU8(?lNmXp+}>~%O=L%OH)_pXZT2VYQE+|D@XP=@vP z8zD6ui3t;UCCrtfn8}SE6l_tGs%iU$^GVnXy|5RyCyPpn(6s%9Ai%ikWQ%S5n1e8yGI@18arO-3OKk ze%#0QZ*L4RrF1P+)qd^mUlo=&^ZWij-$P0J$Y{|==H9;IU+j(RE@O*1AZE{4hzRt} zDo9)8(w*+Mj5Nug8>&idkNh0@oQJ3yAYP1tO4SIX2a#N=*U{*5?q?(mXLB)L6@aAoJ9MAT!j0z))*Iq)?Ib z4q{SN369r^(ZPCmIdSdUTIyM1Fen|B@Xw5$4Sj+z4l(nQy=$R%LAqgx132WFp(nz{84FslaC7qp|E153KYPKZY{ zq|1@fQtkBL)2OEsJ&YItxQR2dSNkxqe>cHPi-ot#UvXxcx@0oQ~K_) zm)gtN`LUIUXn+C@-<5P2S~E#R@EdByTi8{Ml#=p&aQn%NX?xD;YI6 z1BW&TWb0+te+y@Cx(S?pSNI%^k4@J{mUs9=cjvHE%95qQ@N%cKC0XiAC3R;~cRVjx zQWC=6r5Evjd-0d4t{<*D{!4gyX}NQMdm8M?T}i{V=c321N@nHKORTE^6a4b_w_)^$ zXxMcL+%>H`?kN6*b(Hop_gnNA;h&kGZoa@=T|d-HKD6Amhjo{3VmdG*Z(asyKZpB?&4qXEk?tfm-3HD{Owvgu4s%N-6!TP%9%c>8ie)rVEx+xe|MlkgBc8eVPw z$)wx|<#$U#2o&Fu-%nLyGNpa%=fx2T-RPAMKd8z64O{k4SGZ$i%PbE(g~qY-3~=*@ z64(|8ip1jRTjg-aV{unvk!vE&<&Q5OEquA)EMLXDb4RND$?(sC&q?NrZ6<%ZviXxc z)1spr*BK9P`S5&NcIxYu$Xe6Y&~RkJcjb4?rv-6l1Kg3}10E3Ev8>SIIB7_8l$KAjP3)>AZ zY3`eT2(z}zU@8@r`9L97%djz48EAZvZtbbiimF?N!PV#l>?8I*U`G|5f&Ix=1&pgT zJ;R=A_7d?^w!DxbtT#-QNuD+ZOj0Ju0A$6(3%Ox|BRL2RyV_Ck9H+Xn{aDD=dDpH` zF;!@~sHU4zJQyE%0m)_JN>I?a)C7|ceIK~;4p=2Z$*vDW;j={lnM_VgaWw#g=U@!sKof1u z=i14nQBb!ZbloVqxcqtKvOj|Pz?CMo3>A)O|q*qI?JvJm4|j{ z!B;rnB6i04R)jV_io26q5oa^#vItw_DlLZMw7y`7 zvKL{zxB!d8i&`O#VM2U9uO)N`$O&H*agqpce_I21zPPCgX@f>V|5mT_j)EEW)M(ABtjGV21RrV_@=1T^UO;Rjd z3UPEW=_BB)>8bW6N3*a~g!J*w2iro6;i~8_zWhStqmZYLPS@3B@_Ii$9%NmxdBHMe zSiN@NUJ%UOaYQ`4+;%j8gNJ_8a$QeQ;&Q?vdel@ z_5ndZB%!PQYJJF>Ua8Xer zg_t$*lt$p1grzs#yA4#DFDw$aBn|DDkOl5L@+%5D3C9Rd{Cow|_=L`z=^2W@#a1G6a~4fDcC5BEsZSzGoVut?Du`zmQLUU2nS32@sL>Y0 z3V@g?F5==XV20GZd>TB%(`B_dZDi}+XZH%F3xuI ze!V!`)m-{_ox@knb``Hp&2|aN;bNxTmWJTa@nCx3CCCN8VjW$dHB-^#tm~D1JiK#3 zsl;D#B20F1d!fHF>n3(J>n2He)(u{@;4aS1y0{&x)Gd3(yD2;NAUb95n;b*wo3$e- zJ~q2gyR@*c5>l6WS(VH~koF|YsByD`Os&`g(7*M9g%j4IapM6Jon^2lgOd@I0JK0b z{3JpIfVlzK)TIM401T-!cYv4;FC9W3jI4fGPk4Rs+Gl}hW`YkmV^`l4bkcBc!7L#B zZ;+$~<1_77WE>7_nJZ9|6&fJvh~uj|&5aU5`XNy#U=RkL%{?A|MMQN=3qeCkX$le& zDR?~3m0VezhKMdLalkM{O;UKhjSRtzAmvJt7$gOcgk3TLfW$OTZBo~jLJCqyPXwL) zZ+EMsW!8h3-p(dR{M?>+L3aTE|9iQ4sjKr?tCY;XAuWu08!{TgS*t0W%?>`T%?@(9 z)Z4bdytpt}N%H-Z6UgK1j&%*??u7K=`1BFlEgg@NJco9ktt@tR`r26sH*y?ZUO2cg zyx>Qy^@2Cld8>r-JpV5c8^~;DG{=*D);_}C#wVlqaU%p#+SiOA)?;1~DLh=cenP0!$%l66U z!7s?{AzvL(3&VnGlycIAM^@@y?zq~^df~W2ypnWW^*40cy#<%u=WMx9yP)C77vzIQ z?r3gynDxBe#(F6L&Crh*hAXoN0lu2Rh~Z~$QdHdw2QecB*0KHA5=qVrp7q~ea(IG3 z1(QGnhJiQ0kGqh&3R{p#%m^wHaUD?WD82(!6U1h1kZF+fb{-NC#4czMw?spOz;Pf& zh`(aX@gwHM+VK3Nz*!zh6a~}p68(8OhU3tkO#<;jwlHNA->5AG8>+25KS(1hfFxjP zi*#VhtN>Dp`Aj>mp_SM)O4`beGmnxLz=Hc-;>fI|_$DIcD z_dst_5um^G6?_m_<-~R|l;+>_NA#YR%{$bc4UdFeNR+#hh0@=1L{7Z6uaYeOHGfXJ z`zpo13zu89M6au}^QuJgAcyBWq=MjL9T{v&nN93T8A#u|VLj{+^suk|S9^=P!viCH zov2D@vFd?1JY~wL;s7E)0Lm8*=;ed0y;kOe99##glPi62V$|fS7Z`CgN^T6bt;qc# z#m}D7K^?j1Xc{OfnL4TSupY}dLIJTem>WZtwar2@@Y!dfS;+H@xv8^t_#4_AI~#lHYx`V({7vo6 z-|Q@IpX-Ugk$B@bJ7pJrZ=bt5{$}D$z`K6H`^=k`O?9fR2}6Gu`lH@@LAKKN63o#s zNjonlGhob)Z>GvOrFS)LT$|?TT~}EWZ0h#nYsj%A`dzx!=&$iD`rYYlOTEE5(DQ5f z_x8Dg)SIkB^!)<>xv2A9{9*fCJJMW@yHCCO0w2@*u2vj$X0#v1iDRZH>HhIF#iOeWdN_G0T4f(fk@^xVvaE@fCQC8&bV zVk#7?WVAPGs{-!+4C7vqNfn`X(~6x3LrOCXL7qZb02Br?vsjE-2_gYU>p6Xz2{>ko zfV~D_KZ0Q!fuYql03)cZ9@D08N^2yR9}9Vh^Kodj0DIMym)wl$?~O$0t78|`Zp z?#MSaKKv@bLh~btvS}7XEZkKhB0)z?);QlwLV8B*DS%AD=b-BQO1=2d9jflwf+i@QBttYCB9 z!5I(Ki&~xZ_;FQ}-P!(Q9Hm5p%C#o!!|kf>N{W}HKAd;ygOJ6T3xQh9^>Y79__z_a z;xsaDhV+}Y&V_EKm~yNlYHdZpfNY?R&ch*iK94{wI=zQeH2v%#$+3UQJU9yX9UL^o znYAY>t4iL3Gepnh9iEEq(s+e==mDYm`}N&_f{%8wCqVUmm<=W=>OjR&Ko_FsJ3@Q- z%&a#pZQQ{IIr~Mn6KvqytS`NlAHV?U0sB1L|Fp^ml59VQDWgYlz+=Dekh6z&pm=|O znZD&T$ST&Gu3;WwLdz|R+!QB9O_>5~Mvz{*D=5ZDGCdhbPk3kgXte2)6GJ zlguMV;dmC4u&b$bM+GO9JUbg%nxh}>Y@~%3NlZhj57lE5`Zdw`rkIIO9d0dN*Dyt# zE5I3-!D5(+j&4862A6r8#ScL)bI85>X;GffEY-Ky_AYBd!-JRjaZ+q*`Tq6aDog|# zUU{1L0x#psKzG<5SvMa9{}4;3>f-#TK8VO3-4j>&$t2*TB0X47RMwt*?h9h z`GIAs%(>cXM|INr#}R=VPUW(3H5yaKt-vvaEGNA%*uzwW^T^|H{e+WYEr+ZK>^5VY z(}>!doEO6Um}TNbF20?OK@dxWfq(;YRd#e@0!DyT8pp43Q^qLVKyoiM3XEEEVpLNR z9){x$-fUdMVfj%jw!bb3e9_*_2!er+LU93q!-)vmS4W^T$W})Xw1G5Id!Pv5<^VEY z8A0$P*jZ#g3fD!xc?7DV7np+})C)7S5`-r7TmaW!4JpuT@!EOq(*B<%EH$4CmU7Rq~NXFFQpndkTJEVP%ASfJ3oe;)J=%du)Zl6B8Dk92-iN zp%?-PZZrYAri(eo5pI}eDJ`muL$Bgd-Q%#~SpMO0$Pm*p#LZ)SA4gSMW@-iqfnrDH zp!ohW1}!hGYDugyEHNTr8vC69ji5$DYa9VoJ|nt1fGMZt68J=FsNt0aaw2HbE>QSk zXfk91STHOB0ro?i?b?USd>Z%l4-oNFBJ z(x>^p#u*+Qq6nq)AQtbcRPowEQ&NQCHL`3Lua${kvTEdYoDU~96XC?qwl?R(q0OBQ zHS(mo>TSSJSG}s1*qS`taoENAsqJ0zQ!R0+_##Q@6xv?HLMTes&J5_%m1<^yvob;o zn+;TWI|w`BsC2nof~p|D{f!J_+Mp%6&ylaZhTRfCvnaU22%BPmNzN1|Q4P2|tlV^?0AW-!K;5R$N@sYN7XQCrOLW07ktv3_ zo$mV8!s`2ZuP+wT5LjMJmiMF|kkK_aliHb|dwG=g_V1Yg*PW^7!1L@C8XlxdJLY}l3v4(2Qv1!s_O$;?dS z%!vV%mIz_djX>u)fMw?{JrMQu%oI$!DY^}572{}y^CMEwZwdWk`@5lE@Ud4Sf^>&N z;%0!`!^zFLWvpoUf#vyFA-?liC4Qu!?VKC#bnS|2uR1HyWJ23|v5-Pa>eaSNR94U> zD|i*Lv&$dj6b1qVM&ouX!fSXOy>c9w1@QJNwhwEf{oOuKwOh8t06{G^K?K|~j(x#E zZ-148i4fo9(H!@wUr=-~J!wosGlcdK#4N%V!xkZ>>(=u|!0tr^4qQOgz>A6W_C{~= zk5cg;bH!hdvz(+Rj%xU9E}Ya!8ACHh&@YOw##c(s@Vu#zgs=WYhU* z=_YByaVB)Pyl*58TVe5kab!!7sqnANECK;xooua07)+Ee6rYfaTwmc^U4@Nngw%T{ z^thdkzsr>WajE!riZ02rtRgfS(%6dG^ntSy#I_03p{-gFbm3Z1{Yklc6Cg|$HN{{` zsexcQYa!BZXh&~~#-R(;Ec>Og+CW~umKjbyc(kvkT;l2lyS16eB<*~2MY3qUr?a!E z+P=H8#p!;fv&kufJ~;Mr*dHaxUo&4Q{h6w5t!%myE0@j}e}-c$(tJ;+fu#ux!UsoB zTst_GgYl^<1*A^*5h8)s!7!F`4EN(e7cPLp@f0i%x%%l1aj#m+I^tDzE1;xyW1pZ2 zC038^0tVH?DuQ`A1&DA+Vb$`!;VZ9aB_TmQxuyjpW$Mr$2 zm{l|FKZKuML6*pK;5q;<7R0HskmWBcO~R$zQVca+NPxbyP^x?c7vyk#?T&IZRsNtB zN=pNR7Rm@cPU9jNUrs?+ZH0|NK|4f&snV+mqb3dX&f;J23@IYUGI<4x-Q~rv#1Udd!%M8;+L+8|X*%`yI{Iig z5Qvt>^y6TxalIpa#b#Y>HXBP3f>yC>@)57Se@7}r~W9xKRB8de^(gN6O zi{l20@~L>a5Y~H3(|n=hyct?$gbd?G5!+J7iPnKhFNDh;t<)m~oG^HU_M~`@gCoQX zB4kZ_ZC_k)4~_W5U-HgU=HgfQBjqiA28#}oHIE*`R8zgi)*fv$Ou(RBl?!X`2gTLU zt-oHErUThExriIpf}oVuf~0_M;RVovA2Y1ZD6j=5wrvPl&r#}KjP)Ky3LLR;*#1(> zplEmGdtyCqQs=VXa4dzZ0VGyRra}Ur88=I!A=EuC8gl$Jcv=;+F_0F!*y~*5+vu~A zGG9~O$-j;}>_iTYFjO4n2_(MZsvoWV!9?Ln4gr=_68t(;Y;*}};g*tfU-|u-z#uO6 zy~Yc?5Y~tyIFcR_1%IZA6TBA^2D7nnJ)YbtJ)RH@skC9VAmS@dCM;B?sA-?IM@V&p z<`1Tws;$GT=DcF6$Q@#CHYaXB~JqFwOhy5SSAadHJ14ZNj7!(4Xu;1Ew(|W zFgCk5f`x2og_szbLi223m9;tAkcyj?tBta>1J;MVlBKq0)#{H0*6SS*!D>oDV6TDH zMbFxo-7fjbHHUJ8B^DKD#jW1t8>IE;xv6?&0G~5NaS0KkyOgsfj83~-!nXv%?h#9I zmm}mb^YU-h2_h261JeSW-;Fd~X%!*y%aq`Oj)ZVFnV$~hTg^(D-`KyKo&Z+tl4j2y zHN3g9W!rN(R_U;&a5-rE%aw5PgYx++mF4hO@j8+4orw5;Z1Hnk*y4Vz&RiS9ZI-u7 zeRVYo-izy>)r8*to1Kjw9Eo)9JhteH3+xxDTA`49O9B&}5k)`Cy2NW=;d@<23+G-& z)>P5QVQ?_2h&rcwe@YJ^gx~CxUdJK6(yQXmP_yjDVAmamCkx`j1Nb3RYDnB+hrs!A zFjM&2B6b0U@$?Gbj+!-D^F?|PHJ7O7AMk4}7D0>2l8(->j^ZKN8~$bVw>xETGY?^2>XRpN39CUIQWgRbv+}k}(ph5zz;me-$?d*SE*4;x;Ufb#%YBtl37N z6r5dM8d0V)n~dhDXZ92nM|IkyjX?b=<3N3+c>sf`Er{~~wV?V#!~S|Z1+K}dE$D9$ z6yGQUzE(m(s5PA)wp6I9w+4F_^mI+1?PBRGS^@ zhAjiEQr26&Q33jZy)jUh0CP;5iG+c2Hw zql0{3il5sR*ZW+;ZKL-UO8?B)b`HAX|B3U%_8WhL40FXTeykqMv~FH%A@)Afnc-;~ zyU<9uIml2;xKko0G!^bkG?ij8T^NU8ZRqd`{5nH(=-gd4+$`A<6@lbxc-0wye@EBG z&C8ulP0Q-CDFGS}PBR$NfZ#siExs{|kQ^5|A}C7E@PH#6xX#+3fD6?F!E)*KgIL!`FJEunQ&)e+3ywYm8jSd9~i zXLD`I^QvHwR-X{4V!d$IWBg1)-6W7Hy^4$4XC+&s)9{(8vL{ek;N6E|QN|q~_}8&% zlH$%e-1*_KUdz{p^xdoeopL9>4KVDBJD^b!1yij9(av8_g3zn$fVF3%jecW0pAu9= z>AhO8Lk%lk^x|;;&sm|TR$Ku{p5v^SA!6@i~PQdd1Uxn{5dTqOw z#Dm4o<>qmr2M-+*rb+oLN&wRBS>T$t-ddNScsw}jp2E+4;K!3xChKCNN<3C;4W&3fSc3KPWYzC0pR6K*qhjGDP)$&3TvMQ=hLW1VadU0+% zi{DII#l3u|mE*@2R`?SV5gRehvhBnHQ&ENA?iq!JoWF=Kd~!0NZ}K$qcOn@ylth{8 z_HH;}R;t7!;!=rtWCj)#{EA1rxMgAnmC!5h#mpf0;S@*^;q~aDH2%_g5Bqry8<=)U zaf$;a@gq@)xyQsn1w`yHejWzbv}Bd`SQlB2 zZ>>PT4R&VngmPl-V@sz_uHAED?aV>CgA%zuwp2hh_ad{%xv+R*VFl~uRTKu`F%*_< znakt(UDKc-;|flmQjRGfUplk6v^InyA3ecWTeOyy(8R+kD(XFj2LPM^HzgmN^F810C1G{xxaSfOz0#Oc$h zWOd;_RJe3=@svjq-CS&v0 zxu~*?h9i^W$HL5M;f%?q22*i^PrWPe<18$LDZvlSojiqKYa_xCoCr55A)1gAztWyn zZX$k5!69FNLA?G`Xp3~xouGGw!>gZvHf71&0J7tK(Jp` zTAye;%5QKDt1_>7j=#R3aq(4s3T+OC{>9m+h%anVebv<=^%d1!;ZdJOTzAo+YWsQe z`eMXt#P!)Sjj+N9-w<=o**y4z8R!PpgRTdbz7QTX&|piTimGy&3uT_m0)+6Yy*~mn zSvq~@#M;6q1g(L<3BhQ|dGlAgpi#1g9*us!7b2wDN*`MQBLkCKE1bCZ1U|r_K6c{N zX)qh*wZyn%0KIBFdy1c47;3GSJ8%Oj}fp?0r>qh=g%>HleA?N@`pi5^A@6OAukMW#X2=YSrCnrlGPdOW5>0qhgX3q>Ds?3_;fLRT&i< za1wCAo!dPhl50pYf;?c}bL$Ml0YrldW0eKKLqCKGc@ja}bPe7+f73$AVxU7KYz={} zwmOi-Oo5CoDzpQknA8KIpwt7$m39MawTvG)eTVVULRwpk)m>SS(aO7i8x6l}#&@gO zJ~effU9pwPlzLcs#}8{lJf7-7lm2PWW$j*TUy+((_I0UAvae1}l5LHY+K!OL*X&76 zIkK)@G0onU+7VDF^c4%j8hoWRgzR5A&2M2^-6#;saOHyU&>6B*o1Lj01zm(uO*A$0 zgA?Rd>Dn}VkLqfEhb|!^;fj^QyZBCN`0-odBx1X=idO*%)=d-2+q3w%Kwi`FnmhqN z)l)lwnoPm*2904L_Qo3ZrzT5#!w%JCq7GSv6~tRRHbePavy$^w4+;IBoXLogFdN&p zSdb+RzYEtgBw)#3z(+gP0}@4z0s8`ecRhH zaflYy*ea|_t9X+QY)5t**pBBmupPtOZEzgBun$@B*wSpg$eIctUtu!Dd_>w0XmzWE VMIMVPj5Qy*^7Z5-d-D7E{vX3X1^WO1 diff --git a/library/tedit/TEDIT-SELECTION b/library/tedit/TEDIT-SELECTION index c7f1e559..5063ef50 100644 --- a/library/tedit/TEDIT-SELECTION +++ b/library/tedit/TEDIT-SELECTION @@ -1,13 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "19-Mar-2025 16:27:02" {WMEDLEY}tedit>TEDIT-SELECTION.;674 154655 +(FILECREATED "29-May-2025 15:53:51" {WMEDLEY}TEDIT>TEDIT-SELECTION.;729 160720 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.SELPIECES.COPY \TEDIT.SELPIECES \TEDIT.RESET.EXTEND.PENDING.DELETE) - (I.S.OPRS inselpieces) + :CHANGES-TO (FNS \TEDIT.CHTOLINEX) - :PREVIOUS-DATE "16-Mar-2025 10:06:15" {WMEDLEY}tedit>TEDIT-SELECTION.;665) + :PREVIOUS-DATE " 6-May-2025 23:24:14" {WMEDLEY}TEDIT>TEDIT-SELECTION.;728) (PRETTYCOMPRINT TEDIT-SELECTIONCOMS) @@ -40,8 +39,11 @@ \TEDIT.REGIONTYPE \TEDIT.XYTOSEL.INLINEP \TEDIT.XYTOSEL.LINE) (FNS \TEDIT.FIXSEL \TEDIT.CHTOLINEX) (FNS \TEDIT.RESET.EXTEND.PENDING.DELETE \TEDIT.SET.SEL.LOOKS) - (FNS \TEDIT.SHOWSEL \TEDIT.SHOWSEL.HILIGHT \TEDIT.UPDATE.SEL \TEDIT.CARETLINE - \TEDIT.SEL.L1 \TEDIT.SEL.LN \TEDIT.SEL.DELETEDCHARS) + (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (MACROS \TEDIT.NOSEL \TEDIT.SEL.ON + \TEDIT.SEL.OFF))) + (FNS \TEDIT.SHOWSEL \TEDIT.NOSEL \TEDIT.SEL.OFF \TEDIT.SEL.ON \TEDIT.SHOWSEL.HILIGHT + \TEDIT.UPDATE.SEL \TEDIT.CARETLINE \TEDIT.SEL.L1 \TEDIT.SEL.LN + \TEDIT.SEL.DELETEDCHARS) (FNS \TEDIT.COPYSEL \TEDIT.SEL.CHANGED?)) (COMS (* ; "Image objects") (FNS \TEDIT.SELECT.OBJECT \TEDIT.SHOWSEL.OBJECT \TEDIT.CLIP.OBJECT @@ -198,7 +200,7 @@ (ILEQ (FGETLD L LCHAR1) CHLAST)))) -(PUTPROPS IBETWEENP MACRO (OPENLAMBDA (X LOW HIGH) +(PUTPROPS IBETWEENP MACRO (OPENLAMBDA (X LOW HIGH) (* ; "within the closed interval") (AND (IGEQ X LOW) (ILEQ X HIGH)))) ) @@ -368,7 +370,8 @@ (DEFINEQ (\TEDIT.SELECTED.PIECES - [LAMBDA (TEXTOBJ SEL CROSSCOPY PIECEMAPFN FNARG1 FNARG2) (* ; "Edited 26-Nov-2024 10:54 by rmk") + [LAMBDA (TSTREAM SEL CROSSCOPY PIECEMAPFN FNARG1 FNARG2) (* ; "Edited 21-Apr-2025 22:45 by rmk") + (* ; "Edited 26-Nov-2024 10:54 by rmk") (* ; "Edited 15-Mar-2024 14:15 by rmk") (* ; "Edited 28-Nov-2023 23:14 by rmk") (* ; "Edited 21-Jun-2023 20:30 by rmk") @@ -381,14 +384,14 @@ (* ;; "Create a list of pieces corresponding to the selection; if FNARG, apply it to each piece, and use the result instead of the piece") (NOTUSED) - (SETQ TEXTOBJ (TEXTOBJ TEXTOBJ)) - (LET ((SELPIECES (\TEDIT.SELPIECES (OR SEL (TEXTSEL TEXTOBJ)) - NIL TEXTOBJ))) - (for PC inselpieces (CL:IF CROSSCOPY - (\TEDIT.SELPIECES.COPY SELPIECES 'COPY TEXTOBJ) - SELPIECES) collect (CL:IF PIECEMAPFN - (APPLY* PIECEMAPFN PC TEXTOBJ FNARG1 FNARG2) - PC)]) + (LET* ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (SELPIECES (\TEDIT.SELPIECES (OR SEL (TEXTSEL TEXTOBJ)) + NIL TEXTOBJ))) + (for PC inselpieces (CL:IF CROSSCOPY + (\TEDIT.SELPIECES.COPY SELPIECES 'COPY TSTREAM) + SELPIECES) collect (CL:IF PIECEMAPFN + (APPLY* PIECEMAPFN PC TEXTOBJ FNARG1 FNARG2) + PC)]) (\TEDIT.FIND.PROTECTED.END [LAMBDA (TEXTOBJ CH# LIMITCH#) (* ; "Edited 9-Jul-2024 18:19 by rmk") @@ -470,7 +473,8 @@ (DEFINEQ (\TEDIT.EXTEND.SEL - [LAMBDA (NEWSEL CURSEL TEXTOBJ EVENIFPROTECTED) (* ; "Edited 11-Sep-2024 23:44 by rmk") + [LAMBDA (NEWSEL CURSEL TSTREAM EVENIFPROTECTED) (* ; "Edited 21-Apr-2025 20:10 by rmk") + (* ; "Edited 11-Sep-2024 23:44 by rmk") (* ; "Edited 9-Sep-2024 09:28 by rmk") (* ; "Edited 28-Aug-2024 09:49 by rmk") (* ; "Edited 22-Aug-2024 16:06 by rmk") @@ -495,7 +499,8 @@ (CL:WHEN (AND (FGETSEL NEWSEL SET) (FGETSEL CURSEL SET)) - (LET ((CCH# (FGETSEL CURSEL CH#)) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (CCH# (FGETSEL CURSEL CH#)) (CCHLIM (FGETSEL CURSEL CHLIM)) (NCH# (FGETSEL NEWSEL CH#)) (NCHLIM (FGETSEL NEWSEL CHLIM)) @@ -563,14 +568,19 @@ (* ;; "NEWSEL now describes the difference between the highlighting of the original CURSEL to the highlighting of the extended CURSEL, either putting up new highlighting or taking down old highlighting. ") - (\TEDIT.FIXSEL NEWSEL TEXTOBJ) + (\TEDIT.FIXSEL NEWSEL TSTREAM) (\TEDIT.SHOWSEL NEWSEL (NOT (FGETSEL NEWSEL ONFLG)) - TEXTOBJ) + TSTREAM) (FSETSEL NEWSEL ONFLG NIL) (* ; "Restore its generally off state.") - (\TEDIT.FIXSEL CURSEL TEXTOBJ)))]) + (\TEDIT.FIXSEL CURSEL TSTREAM)))]) (\TEDIT.SCAN.LINE - [LAMBDA (LINE X NEWSEL SELOPERATION TEXTOBJ BUTTON WORDSELFLG) + [LAMBDA (LINE X NEWSEL SELOPERATION TSTREAM BUTTON WORDSELFLG) + (* ; "Edited 21-Apr-2025 12:11 by rmk") + (* ; "Edited 13-Apr-2025 15:17 by rmk") + (* ; "Edited 11-Apr-2025 22:38 by rmk") + (* ; "Edited 10-Apr-2025 21:08 by rmk") + (* ; "Edited 5-Apr-2025 17:29 by rmk") (* ; "Edited 18-Feb-2025 22:04 by rmk") (* ; "Edited 14-Feb-2025 09:47 by rmk") (* ; "Edited 3-Feb-2025 09:31 by rmk") @@ -591,17 +601,26 @@ (* ;; "") + (* ;; "") + + (* ;; "Newer implementation (April 2025) aims for a point selection (DCH=0) between characters , at least for NORMAL operations. Thus, X0 and XLIM specify the intended caret position, to the right of the selected character if pointing to its right half, to the left if pointing to its left half.") + + (* ;; "Then, If the mouse is not pointing to or beyond the last character on the line, CH# is the character AFTER the intended caret position, CHLIM is CH#, and POINT is LEFT.") + + (* ;; "If pointing at or beyond the last line character, CH# is the last character, CHLIM is (ADD1 CH#), and POINT is RIGHT. We don't have to worry here about TEXTLEN--it's covered by LCHARLIM.") + (* ;; "Earlier versions had more complexity because it not ony figured out the character pointed at but also %"fixed%" the selection on the fly to avoid the more generic \TEDIT.FIXLINE.The generic fixline would scan through the lines of a tall window to find the line containing the selected CH#, and then apply \TEDIT.CHTOX to scan its (presumably cached) THISLINE to set up the X0 and XLIM. But not a noticeable delay for user interaction--not worth the complexity.") (LINEDESCRIPTOR! LINE) - (TEXTOBJ! TEXTOBJ) (SELECTION! NEWSEL) - (FSETSEL NEWSEL SET NIL) - (PROG (CHARSLOT CLOOKS CHNO X0 XLIM SELCHAR PASTRIGHT THISLINE MOVED) + (FSETSEL NEWSEL SELKIND 'CHAR) (* ; + " The caller's HOW and HOWHEIGHT fields are preserved") + (PROG (CHARSLOT CLOOKS CHNO X0 XLIM DCH SELCHAR PASTRIGHT THISLINE (TEXTOBJ (FTEXTOBJ TSTREAM)) + RIGHTHALF) (SETQ THISLINE (FGETTOBJ TEXTOBJ THISLINE)) (CL:UNLESS (EQ LINE (fetch DESC of THISLINE)) (* ;  "Make sure the cache describes this line") - (SETQ LINE (\TEDIT.FORMATLINE TEXTOBJ (FGETLD LINE LCHAR1) + (SETQ LINE (\TEDIT.FORMATLINE TSTREAM (FGETLD LINE LCHAR1) LINE))) (* ;  "Convert X's display units to LINE's scale") (SETQ XLIM (FGETLD LINE LX1)) (* ; @@ -620,15 +639,17 @@  (FGETLD LINE LXLIM)) 30)  (RETURN NIL))) (SETQ X (SUB1 (FGETLD LINE LXLIM)))) - [SETQ CHARSLOT (for CS incharslots THISLINE - do (if CHAR - then (add XLIM CHARW) (* ; "Start of the next character ") - (CL:WHEN (IGEQ XLIM X) - (RETURN CS)) - (add CHNO 1) - else (SETQ CLOOKS CHARW] (* ; "The running CHARLOOKS") + (SETQ CHARSLOT (for CS incharslots THISLINE do (add XLIM CHARW) + (* ; "Start of the next character ") + (CL:WHEN (IGEQ XLIM X) + (RETURN CS)) + (add CHNO 1))) + (* ; "The running CHARLOOKS") (CL:UNLESS CHARSLOT (* ; "Guardrail") (RETURN)) + [SETQ RIGHTHALF (OR PASTRIGHT (IGEQ X (IDIFFERENCE XLIM (FOLDLO (CHARW CHARSLOT) + 2] + (SETQ CLOOKS (CHARCL CHARSLOT)) (CL:WHEN (FGETCLOOKS CLOOKS CLPROTECTED) (* ;; "Extensions can't run through protected characters, and they can't be deleted.") @@ -640,91 +661,71 @@ (* ;; "Otherwise, if either CLSELAFTER or CLSELBEFORE, we move CHARSLOT, CHNO, XLIM,CLOOKS to the closest unprotected one. ") [SETQ CHARSLOT (if (FGETCLOOKS CLOOKS CLSELAFTER) - then (SETQ MOVED 'FORWARD) - (for CS incharslots (NEXTCHARSLOT CHARSLOT) - do (if CHAR - then (add XLIM CHARW) - (add CHNO 1) - (CL:UNLESS (FGETCLOOKS CLOOKS CLSELAFTER) - (RETURN CS)) - else (SETQ CLOOKS CHARW))) + then (SETQ RIGHTHALF NIL) + (find CS incharslots (NEXTCHARSLOT CHARSLOT) + suchthat (add XLIM CHARW) + (add CHNO 1) + (NOT (FGETCLOOKS CHARCL CLSELAFTER))) elseif (FGETCLOOKS CLOOKS CLSELBEFORE) then - (* ;; "We back up through the charlooks keeping track of the next previous CLSELBEFORE (BEFORESLOT) while we look for the first one that is not CLSELBEFORE. When we find that one, we know that the PREVSLOT of BEFORESLOT is the one we want.") + (* ;; "We back up through the charslots looking for the first one that is not CLSELBEFORE. When we find that one, we know that the PREVSLOT of BEFORESLOT is the one we want.") - (SETQ MOVED 'BACKWARD) - (for CS (BEFORECHNO _ CHNO) - (BEFOREX _ XLIM) - (BEFORELOOKSLOT _ CHARSLOT) backcharslots (PREVCHARSLOT - CHARSLOT) - do (if CHAR - then (add XLIM (IMINUS CHARW)) - (add CHNO -1) - elseif (FGETCLOOKS CHARW CLSELBEFORE) - then (SETQ BEFORECHNO CHNO) - (SETQ BEFORELOOKSLOT CS) - (SETQ BEFOREX XLIM) - elseif BEFORELOOKSLOT - then (SETQ XLIM BEFOREX) - (SETQ CHNO BEFORECHNO) - (RETURN (PREVCHARSLOT BEFORELOOKSLOT]) - (CL:UNLESS CHARSLOT (* ; "Everything was protected.") - (RETURN)) + (SETQ RIGHTHALF T) + (for CS backcharslots (PREVCHARSLOT CHARSLOT) + do (add XLIM (IMINUS CHARW)) + (add CHNO -1) + (CL:UNLESS (FGETCLOOKS CHARCL CLSELBEFORE) + (RETURN (NEXTCHARSLOT CHARSLOT)))] + (CL:UNLESS CHARSLOT (* ; "Everything was protected.") + (RETURN)) + (SETQ CLOOKS (CHARCL CHARSLOT))) (* ;; "CHNO and CHARSLOT: the character pointed to, X0 is the beginning of CHNO, XLIM the point after CHNO.") (SETQ SELCHAR (CHAR CHARSLOT)) - (* ;; "NOTE: This preserves the HOW and HOWHEIGHT fields as set by the caller") - - (FSETSEL NEWSEL SELKIND 'CHAR) - (FSETSEL NEWSEL X0 (IDIFFERENCE XLIM (CHARW CHARSLOT))) - (* ; - "Setting X0 suppresses an extra scan in FIXSEL") - (FSETSEL NEWSEL XLIM XLIM) - (FSETSEL NEWSEL CH# CHNO) - (FSETSEL NEWSEL SELOBJ NIL) - (* ;; "DCH=0 makes it a point selection, 1 picks out a single char. Original code produced 0 only for protected text and dummy lines. For copy/delete selections, it's more convenient still to select at least one character, at least until modern one-button swiping is implemented. ") (* ;; "If we end up in a protected piece, we want DCH=0. We then want to flash the caret iff we moved forward or backward") [if (FGETCLOOKS CLOOKS CLPROTECTED) - then (FSETSEL NEWSEL DCH 0) (* ; "Protected: nothing shows") - [FSETSEL NEWSEL HASCARET (AND MOVED (EQ SELOPERATION 'NORMAL] - else (FSETSEL NEWSEL DCH (if (EQ 0 (TEXTLEN TEXTOBJ)) - then 0 - elseif (OR WORDSELFLG (NEQ SELOPERATION 'NORMAL) - (FGETTOBJ TEXTOBJ TXTREADONLY) - (type? IMAGEOBJ SELCHAR)) - then 1 - else 0 (* ; - "0 = point selection, character not underlined. But extension is confusing") - 1)) + then (SETQ DCH 0) (* ; "Protected: nothing shows") + (FSETSEL NEWSEL HASCARET (EQ SELOPERATION 'NORMAL)) + else (SETQ DCH (if (EQ 0 (TEXTLEN TEXTOBJ)) + then 0 + elseif (OR WORDSELFLG (NEQ SELOPERATION 'NORMAL) + (FGETTOBJ TEXTOBJ TXTREADONLY) + (type? IMAGEOBJ SELCHAR)) + then 1 + else + (* ;; "0 = point selection, character not underlined, good for changing caret looks. But if extension is confusing, use 1") + + 0 1)) (FSETSEL NEWSEL HASCARET (EQ SELOPERATION 'NORMAL] - (FSETSEL NEWSEL CHLIM (IPLUS (FGETSEL NEWSEL CH#) - (FGETSEL NEWSEL DCH))) - (FSETSEL NEWSEL POINT (if (EQ (CHARCODE EOL) - (CHAR CHARSLOT)) + (FSETSEL NEWSEL POINT (if (AND (EQ CHNO (FGETLD LINE LCHARLAST)) + (FGETLD LINE FORCED-END)) then (* ;;  "Always go to the left of an EOL, so caret stays on its line") 'LEFT - elseif [OR PASTRIGHT (EQ MOVED 'BACKWARD) - (AND (IGEQ (CHARW CHARSLOT) - 3) - (IGEQ X (IDIFFERENCE XLIM (FOLDLO (CHARW CHARSLOT) - 2] - then - (* ;; - "Beyond the line, or towards the end of a character that is at least 3 points wide.") + elseif RIGHTHALF + then 'RIGHT + else 'LEFT)) - 'RIGHT - else 'LEFT)) (* ; - "Don't recognize an object that wasn't directly pointed at") - (FSETSEL NEWSEL SELOBJ (CL:UNLESS PASTRIGHT (IMAGEOBJP SELCHAR))) + (* ;; " X0 and XLIM are used in word selection, also make it unecessary for subsequenct FIXSEL.") + + [FSETSEL NEWSEL X0 (CL:IF (EQ DCH 0) + XLIM + (IDIFFERENCE XLIM (CHARW CHARSLOT)))] + (FSETSEL NEWSEL XLIM XLIM) + (FSETSEL NEWSEL CH# CHNO) + (FSETSEL NEWSEL DCH DCH) + (FSETSEL NEWSEL CHLIM (IPLUS DCH (FGETSEL NEWSEL CH#))) + (FSETSEL NEWSEL SELOBJ (CL:UNLESS PASTRIGHT (* ; "Must directly point to the object") + (IMAGEOBJP SELCHAR))) + (FSETSEL NEWSEL SELKIND 'CHAR) (FSETSEL NEWSEL SET T) (* ;; "Single-char selection is good") @@ -738,13 +739,14 @@ (CL:UNLESS (OR (FGETSEL NEWSEL SELOBJ) (FGETLD LINE LDUMMY) (FGETCLOOKS CLOOKS CLPROTECTED)) - (\TEDIT.SCAN.LINE.WORD X TEXTOBJ THISLINE NEWSEL CHARSLOT CLOOKS))) + (\TEDIT.SCAN.LINE.WORD X TEXTOBJ THISLINE NEWSEL CHARSLOT))) (* ;  "We now have a complete char/caret selection") (RETURN NEWSEL]) (\TEDIT.SCAN.LINE.WORD - [LAMBDA (X TEXTOBJ THISLINE NEWSEL CHARSLOT SELLOOKS) (* ; "Edited 7-Nov-2024 21:50 by rmk") + [LAMBDA (X TEXTOBJ THISLINE NEWSEL CHARSLOT) (* ; "Edited 11-Apr-2025 22:35 by rmk") + (* ; "Edited 7-Nov-2024 21:50 by rmk") (* ; "Edited 4-Oct-2024 08:39 by rmk") (* ; "Edited 28-Aug-2024 10:22 by rmk") (* ; "Edited 3-Aug-2024 12:41 by rmk") @@ -780,42 +782,22 @@ (* ;; "XLIM will become the X at the end of last char") (* ; "") - (for CSLOT (CLOOKS _ SELLOOKS) - (LASTCHAR _ (CHAR CHARSLOT)) backcharslots (PREVCHARSLOT CHARSLOT) - do (CL:UNLESS CHAR + (for CSLOT (LASTCHAR _ (CHAR CHARSLOT)) backcharslots (PREVCHARSLOT CHARSLOT) + until (OR (type? IMAGEOBJ CHAR) + (\TEDIT.WORD.BOUND TEXTOBJ CHAR LASTCHAR) + (FGETCLOOKS CHARCL CLPROTECTED)) do (* ; "Stop at a protection bounary") + (ADD X0 (IMINUS CHARW)) + (ADD CH# -1) + (SETQ LASTCHAR CHAR)) - (* ;; "CLOOKS is the looks AFTER the preceding char. We have to go back further to see if the current char is protected.") + (* ;; "And search forward for the end of the word: XLIM is the end of the last character, CHLIM is one beyond") - (SETQ CLOOKS CHARW) - (GO $$ITERATE)) - (CL:WHEN (OR (type? IMAGEOBJ CHAR) - (\TEDIT.WORD.BOUND TEXTOBJ CHAR LASTCHAR) - (fetch (CHARLOOKS CLPROTECTED) of CLOOKS)) - (* ; "Stop at a protection bounary") - (RETURN)) - (SETQ LASTCHAR CHAR) - (ADD X0 (IMINUS CHARW)) - (ADD CH# -1)) - - (* ;; "And search forward for the end of the word") - - (for CSLOT (CLOOKS _ SELLOOKS) - (PREVCHAR _ (CHAR CHARSLOT)) incharslots (NEXTCHARSLOT CHARSLOT) - do (CL:UNLESS CHAR - (SETQ CLOOKS CHARW) - (GO $$ITERATE)) - (CL:WHEN (OR (type? IMAGEOBJ CHAR) - (\TEDIT.WORD.BOUND TEXTOBJ PREVCHAR CHAR) - (fetch (CHARLOOKS CLPROTECTED) of CLOOKS)) - - (* ;; "XLIM is now the end of the last character of the word.") - - (* ;; "CHLIM and XLIM should be OK if we run off the end.") - - (RETURN)) - (add XLIM CHARW) - (add CHLIM 1) - (SETQ PREVCHAR CHAR)) + (for CSLOT (PREVCHAR _ (CHAR CHARSLOT)) incharslots (NEXTCHARSLOT CHARSLOT) + until (OR (type? IMAGEOBJ CHAR) + (\TEDIT.WORD.BOUND TEXTOBJ PREVCHAR CHAR) + (FGETCLOOKS CHARCL CLPROTECTED)) do (add XLIM CHARW) + (add CHLIM 1) + (SETQ PREVCHAR CHAR)) (FSETSEL NEWSEL SELKIND 'WORD) (FSETSEL NEWSEL CH# CH#) (FSETSEL NEWSEL CHLIM CHLIM) @@ -825,7 +807,8 @@ (* ;; "Move the point to the intended side of the word: To the right of an otherwise-protected insertion, past the middle of a selection that is wide enough to discriminate, and not at the end of an EOL-terminated line. 3 is points.") - (FSETSEL NEWSEL POINT (if [OR (fetch (CHARLOOKS CLSELAFTER) of SELLOOKS) + (FSETSEL NEWSEL POINT (if [OR (FGETCLOOKS (CHARCL CHARSLOT) + CLSELAFTER) (AND (IGEQ (IDIFFERENCE XLIM X0) 3) (IGEQ X (FOLDLO (IPLUS XLIM X0) @@ -834,7 +817,9 @@ else 'LEFT]) (\TEDIT.XYTOSEL - [LAMBDA (X Y NEWSEL TEXTOBJ SELOPERATION PANE BUTTON CURSEL REGIONTYPE) + [LAMBDA (X Y NEWSEL TSTREAM SELOPERATION PANE BUTTON CURSEL REGIONTYPE) + (* ; "Edited 21-Apr-2025 20:33 by rmk") + (* ; "Edited 6-Apr-2025 18:57 by rmk") (* ; "Edited 13-Feb-2025 11:03 by rmk") (* ; "Edited 17-Dec-2024 10:10 by rmk") (* ; "Edited 6-Dec-2024 12:00 by rmk") @@ -855,9 +840,9 @@ (* ;; "CURSEL is used to decide whether extensions go to words or paragraphs (and to turn off highlighting for objects).") (SELECTION! NEWSEL) - (TEXTOBJ! TEXTOBJ) (FSETSEL NEWSEL SET NIL) - (PROG (LINE PARAFIRSTCHNO PARALASTCHNO SELFN) + (PROG ((TEXTOBJ (FTEXTOBJ TSTREAM)) + LINE PARAFIRSTCHNO PARALASTCHNO SELFN) (CL:UNLESS (SETQ LINE (\TEDIT.XYTOSEL.LINE X Y PANE TEXTOBJ)) (RETURN)) (SELECTQ (\TEDIT.REGIONTYPE BUTTON CURSEL TEXTOBJ REGIONTYPE) @@ -872,7 +857,7 @@  "Y is below the last line of the text: force selection past the very end of that line.") (SETQ X (ADD1 (GETLD LINE LXLIM)))) - (CL:WHEN (AND (\TEDIT.SCAN.LINE LINE X NEWSEL SELOPERATION TEXTOBJ BUTTON + (CL:WHEN (AND (\TEDIT.SCAN.LINE LINE X NEWSEL SELOPERATION TSTREAM BUTTON (SELECTQ BUTTON (RIGHT (MEMB (FGETSEL CURSEL SELKIND) '(WORD PARA))) @@ -883,8 +868,8 @@ (* ;; "Run the buttonin function with CURSEL's highlighting turned off--its highlighting may be somewhere else ") - (\TEDIT.SHOWSEL CURSEL NIL TEXTOBJ) - (\TEDIT.SELECT.OBJECT TEXTOBJ NEWSEL LINE X Y PANE SELOPERATION BUTTON))) + (\TEDIT.NOSEL TSTREAM CURSEL) + (\TEDIT.SELECT.OBJECT TSTREAM NEWSEL LINE X Y PANE SELOPERATION BUTTON))) (LINE (CL:WHEN (FGETTOBJ TEXTOBJ MENUFLG) (* ;; "Except for fields, menus are completely protected. Confusing to deal with a field that spreads across several lines, so essentially disable the line region") @@ -941,7 +926,7 @@ (FSETSEL NEWSEL SET NIL) (RETURN)) (FSETSEL NEWSEL ONFLG NIL) (* ; "New selection not yet displayed") - (\TEDIT.FIXSEL NEWSEL TEXTOBJ) + (\TEDIT.FIXSEL NEWSEL TSTREAM) (RETURN NEWSEL]) (\TEDIT.REGIONTYPE @@ -1001,33 +986,25 @@ (DEFINEQ (\TEDIT.FIXSEL - [LAMBDA (SEL TEXTOBJ AVOIDPANE ONLYPANE) (* ; "Edited 1-Dec-2024 11:28 by rmk") - (* ; "Edited 28-Nov-2024 14:30 by rmk") - (* ; "Edited 25-Nov-2024 12:57 by rmk") - (* ; "Edited 19-Nov-2024 15:52 by rmk") - (* ; "Edited 17-Nov-2024 15:58 by rmk") + [LAMBDA (SEL TSTREAM ONLYPANE) (* ; "Edited 6-May-2025 23:24 by rmk") + (* ; "Edited 21-Apr-2025 20:12 by rmk") + (* ; "Edited 10-Apr-2025 21:19 by rmk") + (* ; "Edited 5-Apr-2025 11:33 by rmk") + (* ; "Edited 1-Dec-2024 11:28 by rmk") (* ; "Edited 3-Oct-2024 18:47 by rmk") (* ; "Edited 9-Sep-2024 09:26 by rmk") - (* ; "Edited 3-Sep-2024 13:16 by rmk") (* ; "Edited 6-Jul-2024 22:36 by rmk") - (* ; "Edited 4-Jul-2024 15:45 by rmk") (* ; "Edited 28-Jun-2024 21:50 by rmk") - (* ; "Edited 24-Jun-2024 23:57 by rmk") - (* ; "Edited 16-Jun-2024 22:02 by rmk") (* ; "Edited 21-May-2024 09:01 by rmk") - (* ; "Edited 29-Apr-2024 12:56 by rmk") - (* ; "Edited 26-Apr-2024 00:23 by rmk") (* ; "Edited 20-Mar-2024 10:55 by rmk") - (* ; "Edited 2-Mar-2024 23:38 by rmk") (* ; "Edited 16-Dec-2023 11:44 by rmk") (* ; "Edited 3-Nov-2023 12:01 by rmk") (* ; "Edited 28-Jul-2023 15:58 by rmk") (* ; "Edited 22-Jun-2023 16:05 by rmk") - (* ; "Edited 6-Jun-2023 13:26 by rmk") (* ; "Edited 1-Jun-2023 17:41 by rmk") (* ; "Edited 31-May-91 12:26 by jds") - (* ;; "The PANEPREFIX of each pane heads the list of lines that are visible in that pane. This routine determines which of those visible lines contains characters between the first and last characters that are selected by SEL, if any. The first visible and selected line is stored in the L1 component of the selection that corresponds to PANE, and the last visible/selected line is stored in the LN. L1 and LN can both either be NIL (selection is not visible in a pane) or both be lines (if the pane shows a startiing selected line, it must necessarily show an ending line).") + (* ;; "The PANEPREFIX of each pane heads the list of lines that are visible in that pane. This routine determines which of those visible lines contains characters between the first and last characters that are selected by SEL, if any. The first visible and selected line is stored in the L1 component of the selection that corresponds to PANE, and the last visible/selected line is stored in the LN. L1 and LN can both either be NIL (selection is not visible in a pane) or both be lines (if the pane shows a starting selected line, it must necessarily show an ending line).") (* ;; "") @@ -1039,8 +1016,6 @@ (* ;; "") - (* ;; "AVOIDPANE is provided for a pane that may be skipped, e.g. the current selection pane. Its properties are already known, no point in doing extra work.") - (* ;; "ONLYPANE is specified in scrolling. to avoid disturbing and redisplaying panes that are not being scrolled.") (* ;; "") @@ -1049,10 +1024,6 @@ (* ;; " ") - (* ;; "Selection L1 and LN are sequences of CONS cells one for each pane that the text appears in. The running (CAR L1) heads the sub-chain of lines selected for the current pane, the running (CAR LN) points to the pane's last selected line.") - - (* ;; "") - (* ;; "Each pane's PANEPREFIX is a constant (dummy) line somewhere previous to the first visible line in that pane. ") (* ;; "") @@ -1060,80 +1031,97 @@ (* ;;  "If TXTDON'TUPDATE, the lines may not correspond to anything reasonable, don't try to find X.") - (CL:UNLESS (type? TEXTOBJ TEXTOBJ) - (SETQ TEXTOBJ (TEXTOBJ TEXTOBJ))) - (CL:UNLESS SEL - (SETQ SEL (FGETTOBJ TEXTOBJ SEL))) - (SELECTION! SEL) - (CL:WHEN (AND (FGETTOBJ TEXTOBJ PRIMARYPANE) - (FGETSEL SEL SET) - (NOT (FGETTOBJ TEXTOBJ TXTDON'TUPDATE))) + [LET ((TEXTOBJ (FTEXTOBJ TSTREAM))) + (CL:UNLESS SEL + (SETQ SEL (FGETTOBJ TEXTOBJ SEL))) + (SELECTION! SEL) + (CL:WHEN (AND (FGETTOBJ TEXTOBJ PRIMARYPANE) + (FGETSEL SEL SET) + (NOT (FGETTOBJ TEXTOBJ TXTDON'TUPDATE))) - (* ;; "CH# is the first selected character, CHLIM is the character just after the last one, hence the SUB1. ") + (* ;; "CH# is the first selected character, CHLIM is the character just after the last one, hence the SUB1. ") - (* ;; "For a point selection, CHLIM=(ADD1 CH#) so CHNO=LASTCHNO, and the caret position is determined by POINT. Highlighting is determined separately by DCH, which is 0 for point selections.") + (* ;; "For a point selection, CHLIM=(ADD1 CH#) so CHNO=LASTCHNO, and the caret position is determined by POINT. Highlighting is determined separately by DCH, which is 0 for point selections.") - (for PANE PSTARTLINE PENDLINE X0 XLIM (FIRSTCHNO _ (IMAX 1 (FGETSEL SEL CH#))) - [LASTCHNO _ (IMAX 1 (SUB1 (FGETSEL SEL CHLIM] inpanes TEXTOBJ as L1 - on (FGETSEL SEL L1) as LN on (FGETSEL SEL LN) unless (EQ PANE AVOIDPANE) - when (OR (NULL ONLYPANE) - (EQ PANE ONLYPANE)) when (SETQ PSTARTLINE (find L inlines (PANETOPLINE PANE) - first (RPLACA L1 NIL) - (RPLACA LN NIL) - suchthat + [for PANE PSTARTLINE PENDLINE X0 XLIM (FIRSTCHNO _ (IMAX 1 (FGETSEL SEL CH#))) + [LASTCHNO _ (IMAX 1 (SUB1 (FGETSEL SEL CHLIM] inpanes TEXTOBJ as L1 + on (FGETSEL SEL L1) as LN on (FGETSEL SEL LN) when (OR (NULL ONLYPANE) + (EQ PANE ONLYPANE)) + when (SETQ PSTARTLINE (find L inlines (PANETOPLINE PANE) + first (RPLACA L1 NIL) + (RPLACA LN NIL) suchthat - (* ;; + (* ;;  "The first visible line in PANE that SEL selects. ") - (FLINESELECTEDP L FIRSTCHNO - LASTCHNO))) - do - (* ;; "For highlighting, if the PSTARTLINE for PANE is also the first line of the selection, then update the selection's X0. Similarly for XLIM and PENDLINE. For interior lines, SHOWSEL.HILIGHT uses their LX1 and LXLIM values. ") + (FLINESELECTEDP L FIRSTCHNO + LASTCHNO))) + collect - (* ;; + (* ;; "For highlighting, if the PSTARTLINE for PANE is also the first line of the selection, then update the selection's X0. Similarly for XLIM and PENDLINE. For interior lines, SHOWSEL.HILIGHT uses their LX1 and LXLIM values. ") + + (* ;;  "IMAX to use the first character of PSTARTLINE if it is not the first line of the selection ") - (CL:UNLESS X0 (* ; + (CL:UNLESS X0 (* ;  "May have been computed for a prior pane") - (CL:WHEN (FWITHINLINEP FIRSTCHNO PSTARTLINE) - [SETQ X0 (\TEDIT.CHTOLINEX TEXTOBJ PSTARTLINE (IMAX FIRSTCHNO (FGETLD - PSTARTLINE - LCHAR1)) - (AND (IGREATERP FIRSTCHNO (TEXTLEN TEXTOBJ)) - (GETLD (FGETLD PSTARTLINE PREVLINE) - FORCED-END] - (FSETSEL SEL X0 X0))) - [SETQ PENDLINE (for L (PBOTTOM _ (PANEBOTTOM PANE)) inlines PSTARTLINE - do - (* ;; "Stop when L is beyond the selection or below the screen. ") + (CL:WHEN (FWITHINLINEP FIRSTCHNO PSTARTLINE) + [SETQ X0 (\TEDIT.CHTOLINEX TSTREAM PSTARTLINE (IMAX FIRSTCHNO + (FGETLD PSTARTLINE + LCHAR1)) + (CL:IF (EQ 0 (FGETSEL SEL DCH)) + (EQ 'RIGHT (FGETSEL SEL POINT)) + (AND (IGREATERP FIRSTCHNO (TEXTLEN TEXTOBJ)) + (FGETLD (FGETLD PSTARTLINE PREVLINE) + FORCED-END)))] + (FSETSEL SEL X0 X0))) + [SETQ PENDLINE (for L (PBOTTOM _ (PANEBOTTOM PANE)) inlines PSTARTLINE + do + (* ;; + "Stop when L is beyond the selection or below the screen. ") - (CL:WHEN (ILESSP LASTCHNO (FGETLD L LCHARLIM)) - (RETURN L)) - (CL:WHEN (ILEQ (FGETLD L YBOT) - PBOTTOM) (* ; + (CL:WHEN (ILESSP LASTCHNO (FGETLD L LCHARLIM)) + (RETURN L)) + (CL:WHEN (ILEQ (FGETLD L YBOT) + PBOTTOM) + (* ;  "This can happen if LASTCHAR is not visible on the screen") - (RETURN $$PREVLINE)) finally + (RETURN $$PREVLINE)) + finally - (* ;; + (* ;;  "If $$PREVLINE is NIL, we didn't advance--so we must have ended at the start") - (RETURN (OR $$PREVLINE PSTARTLINE] - (CL:UNLESS PENDLINE (* ; + (RETURN (OR $$PREVLINE PSTARTLINE] + (CL:UNLESS PENDLINE (* ;  "Start could be the last line in the window, it ends there too.") - (SETQ PENDLINE PSTARTLINE)) - (CL:UNLESS XLIM - (CL:WHEN (FWITHINLINEP LASTCHNO PENDLINE) - (SETQ XLIM (\TEDIT.CHTOLINEX TEXTOBJ PENDLINE LASTCHNO T)) - (FSETSEL SEL XLIM XLIM))) + (SETQ PENDLINE PSTARTLINE)) + (CL:UNLESS XLIM + (CL:WHEN (FWITHINLINEP LASTCHNO PENDLINE) + (SETQ XLIM (CL:IF (EQ 0 (FGETSEL SEL DCH)) + X0 + (\TEDIT.CHTOLINEX TSTREAM PENDLINE LASTCHNO T))) + (FSETSEL SEL XLIM XLIM))) - (* ;; "Fill in the selected lines that are visible in this pane") + (* ;; "Fill in the selected lines that are visible in this pane") - (RPLACA L1 PSTARTLINE) - (RPLACA LN PENDLINE))) + (RPLACA L1 PSTARTLINE) + (RPLACA LN PENDLINE) + (LIST PANE PSTARTLINE PENDLINE) + finally (AND NIL (if ONLYPANE + then + (* ;; "Have to make sure it's always initialized") + + (CL:WHEN (FGETSEL SEL SELLINES) + (RPLACD (ASSOC ONLYPANE (FGETSEL SEL SELLINES)) + (CAR $$VAL))) + else (FSETSEL SEL SELLINES $$VAL])] SEL]) (\TEDIT.CHTOLINEX - [LAMBDA (TEXTOBJ LINE CH# AFTER) (* ; "Edited 6-Mar-2025 11:57 by rmk") + [LAMBDA (TSTREAM LINE CH# AFTER) (* ; "Edited 29-May-2025 15:27 by rmk") + (* ; "Edited 20-Apr-2025 23:47 by rmk") + (* ; "Edited 6-Mar-2025 11:57 by rmk") (* ; "Edited 28-Nov-2024 14:41 by rmk") (* ; "Edited 17-Nov-2024 15:58 by rmk") (* ; "Edited 13-Jun-2024 17:12 by rmk") @@ -1150,61 +1138,61 @@ (* ;; "it is an error if CH# is before LCHAR1 or after LCHARLIM.") - (\DTEST LINE 'LINEDESCRIPTOR) - (LET (X (THISLINE (GETTOBJ TEXTOBJ THISLINE))) - (CL:UNLESS (EQ LINE (fetch DESC of THISLINE)) + (LINEDESCRIPTOR! LINE) + (LET* ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (THISLINE (GETTOBJ TEXTOBJ THISLINE)) + X) + (CL:UNLESS (EQ LINE (fetch DESC of THISLINE)) - (* ;; "Reformat if LINE is not cached in THISLINE. ") + (* ;; "Reformat if LINE is not cached in THISLINE. ") - (\TEDIT.FORMATLINE (FGETTOBJ TEXTOBJ STREAMHINT) - (FGETLD LINE LCHAR1) - LINE)) + (\TEDIT.FORMATLINE TSTREAM (FGETLD LINE LCHAR1) + LINE)) - (* ;; "Can avoid another loop if we are asking about the first or last characters.") + (* ;; "Can avoid another loop if we are asking about the first or last characters.") - (if (AND AFTER (IEQP CH# (FGETLD LINE LCHARLAST))) - then (FGETLD LINE LXLIM) - elseif (AND (NOT AFTER) - (IEQP CH# (FGETLD LINE LCHAR1))) - then (FGETLD LINE LX1) - else (for CHARSLOT (X _ (FGETLD LINE LX1)) - (CHNO _ (FGETLD LINE LCHAR1)) incharslots THISLINE - eachtime (CL:WHEN (AND CHAR (DIACRITICP CHAR)) + (if (AND AFTER (IEQP CH# (FGETLD LINE LCHARLAST))) + then (FGETLD LINE LXLIM) + elseif (AND (NOT AFTER) + (IEQP CH# (FGETLD LINE LCHAR1))) + then (FGETLD LINE LX1) + else (for CHARSLOT (X _ (FGETLD LINE LX1)) + (CHNO _ (FGETLD LINE LCHAR1)) incharslots THISLINE + eachtime (CL:WHEN (DIACRITICP CHAR) - (* ;; "If the diacritic CHARW is greater than the CHARW of the next slot, we should set the diacritic CHARW to (IDIFFERENCE CHARW (NEXT CHARW)). ") + (* ;; "If the diacritic CHARW is greater than the CHARW of the next slot, we should set the diacritic CHARW to (IDIFFERENCE CHARW (NEXT CHARW)). ") - (* ;; "i.e. (IMAX 0 (IDIFFERENCE CHARW (NEXT CHARW))") + (* ;; "i.e. (IMAX 0 (IDIFFERENCE CHARW (NEXT CHARW))") - (SETQ CHARW 0)) unless (type? CHARLOOKS CHARW) - do - (* ;; - "Update the running X-position in the line, skiping look-slots and skipping diacritics") + (SETQ CHARW 0)) do + (* ;; + "Update the running X-position in the line, skipping diacritics") - (CL:WHEN (IEQP CHNO CH#) - (if AFTER - then (add X (CHARW CHARSLOT))) + (CL:WHEN (IEQP CHNO CH#) + (if AFTER + then (add X (CHARW CHARSLOT))) - (* ;; - "Scale selection X down to points for lines in hardcopy-display mode.") + (* ;; + "Scale selection X down to points for lines in hardcopy-display mode.") - (RETURN X)) - (CL:WHEN CHAR (* ; "Ignore CHARLOOKS") - (add CHNO 1) - (add X CHARW)) finally (CL:WHEN (AND (IEQP CH# (FGETLD LINE LCHAR1)) - (IGREATERP (FGETLD LINE LCHARLIM) - (FGETTOBJ TEXTOBJ TEXTLEN)) - (EQ (FGETLD LINE LXLIM) - (FGETLD LINE LX1))) + (RETURN X)) + (add CHNO 1) + (add X CHARW) + finally (CL:WHEN (AND (IEQP CH# (FGETLD LINE LCHAR1)) + (IGREATERP (FGETLD LINE LCHARLIM) + (FGETTOBJ TEXTOBJ TEXTLEN)) + (EQ (FGETLD LINE LXLIM) + (FGETLD LINE LX1))) - (* ;; - "CH# not found in empty final line, return left margin") + (* ;; "CH# not found in empty final line, return left margin") - (RETURN (FGETLD LINE LX1)))]) + (RETURN (FGETLD LINE LX1)))]) ) (DEFINEQ (\TEDIT.RESET.EXTEND.PENDING.DELETE - [LAMBDA (TSTREAM) (* ; "Edited 19-Mar-2025 13:24 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 6-Apr-2025 14:19 by rmk") + (* ; "Edited 19-Mar-2025 13:24 by rmk") (* ; "Edited 26-Nov-2024 23:44 by rmk") (* ; "Edited 9-Mar-2024 11:37 by rmk") (* ; "Edited 19-Feb-2024 23:10 by rmk") @@ -1215,23 +1203,21 @@ (* ;; "Reset the 'Extend Pending Delete' status") - (LET [(TEXTOBJ (CL:IF (type? TEXTOBJ TSTREAM) - TSTREAM - (GETTSTR TSTREAM TEXTOBJ))] - (\TEDIT.SHOWSEL (TEXTSEL TEXTOBJ) - NIL TEXTOBJ) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM))) + (\TEDIT.NOSEL TSTREAM) (\TEDIT.SET.SEL.LOOKS (TEXTSEL TEXTOBJ) 'NORMAL) (SETTOBJ TEXTOBJ BLUEPENDINGDELETE NIL]) (\TEDIT.SET.SEL.LOOKS - [LAMBDA (SEL OPERATION) (* ; "Edited 28-Feb-2025 17:45 by rmk") + [LAMBDA (SEL OPERATION) (* ; "Edited 6-May-2025 11:32 by rmk") + (* ; "Edited 28-Feb-2025 17:45 by rmk") (* ; "Edited 7-Nov-2024 21:50 by rmk") (* ; "Edited 4-Oct-2024 08:40 by rmk") (* ; "Edited 12-Oct-2023 22:36 by rmk") (* ; "Edited 23-May-2023 12:48 by rmk") (* ; "Edited 30-May-91 23:00 by jds") - (\DTEST SEL 'SELECTION) + (SELECTION! SEL) (* ;;  "Set what the selection should be displayed like, given what it's for (NORMAL, COPY, MOVE, etc.)") @@ -1271,11 +1257,33 @@ (NIL) (\TEDIT.THELP "UNKNOWN SELECTION OPERATION" OPERATION)) SEL]) +) +(DECLARE%: EVAL@COMPILE DONTCOPY +(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE + +(PUTPROPS \TEDIT.NOSEL MACRO ((TSTREAM SEL ONLYPANE) (* ; + "Takes down SEL in TSTREAM, where SEL defaults to the current selection") + (\TEDIT.SHOWSEL SEL NIL TSTREAM ONLYPANE))) + +(PUTPROPS \TEDIT.SEL.ON MACRO ((TSTREAM SEL ONLYPANE DONTFIX)(* ; + "Takes down SEL in TSTREAM, where SEL defaults to the current selection") + (\TEDIT.SHOWSEL SEL T TSTREAM ONLYPANE DONTFIX))) + +(PUTPROPS \TEDIT.SEL.OFF MACRO ((TSTREAM SEL ONLYPANE) (* ; + "Takes down SEL in TSTREAM, where SEL defaults to the current selection") + (\TEDIT.SHOWSEL SEL NIL TSTREAM ONLYPANE))) +) + +(* "END EXPORTED DEFINITIONS") + ) (DEFINEQ (\TEDIT.SHOWSEL - [LAMBDA (SEL ON TEXTOBJ ONLYPANE) (* ; "Edited 4-Oct-2024 10:29 by rmk") + [LAMBDA (SEL ON TSTREAM ONLYPANE DONTFIX) (* ; "Edited 21-Apr-2025 20:35 by rmk") + (* ; "Edited 6-Apr-2025 13:55 by rmk") + (* ; "Edited 5-Apr-2025 13:00 by rmk") + (* ; "Edited 4-Oct-2024 10:29 by rmk") (* ; "Edited 2-Oct-2024 14:20 by rmk") (* ; "Edited 21-Aug-2024 16:11 by rmk") (* ; "Edited 19-Jul-2024 23:46 by rmk") @@ -1292,44 +1300,69 @@ (* ; "Edited 14-Oct-2023 12:10 by rmk") (* ; "Edited 5-Apr-2023 09:13 by rmk") (* ; "Edited 22-May-92 16:11 by jds") - (CL:WHEN (TEXTSTREAMP TEXTOBJ) - (SETQ TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of TEXTOBJ))) - (TEXTOBJ! TEXTOBJ) - (CL:UNLESS SEL - (SETQ SEL (FGETTOBJ TEXTOBJ SEL))) - (SELECTION! SEL) (* ;; "Highlight the selection SEL, according to HOW, turning it on or off according to ON. ONLYPANE is specified in calls from \TEDIT.SCROLLFN to confine operations to only the pane currently being scrolled. Other panes are neither unhighlighted or rehighlighted.") (* ;; "The selection's lines [L1...LN] are the subset of lines selected globally by CH# to CHLIM that are visible within each pane.") - (CL:WHEN (AND (FGETSEL SEL SET) - (NEQ ON (FGETSEL SEL ONFLG)) - (NOT (FGETTOBJ TEXTOBJ TXTDON'TUPDATE)) - (FGETTOBJ TEXTOBJ PRIMARYPANE)) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM))) + (CL:UNLESS SEL + (SETQ SEL (FGETTOBJ TEXTOBJ SEL))) + (SELECTION! SEL) + (CL:WHEN (AND (FGETSEL SEL SET) + (NEQ ON (FGETSEL SEL ONFLG)) + (NOT (FGETTOBJ TEXTOBJ TXTDON'TUPDATE)) + (FGETTOBJ TEXTOBJ PRIMARYPANE)) - (* ;; "This operation only makes sense if the selection is set, it is not currently in the intended ON state, we are allowed to update, and there is at least one pane to highlight in.") + (* ;; "This operation only makes sense if the selection is set, it is not currently in the intended ON state, we are allowed to update, and there is at least one pane to highlight in.") - (if (FGETSEL SEL SELOBJ) - then - (* ;; "SELOBJ if the selection consisted only of a single image object. It presumably did its own buttonevent operations when it was selected, but is otherwise immune to normal highlighting. But it acts just as a normal character in all panes if it is part of a longer selection. ") + (CL:WHEN (AND ON (NOT DONTFIX)) (* ; + "If we're ON, make sure we're fixed.") + (\TEDIT.FIXSEL SEL TSTREAM ONLYPANE)) + (if (FGETSEL SEL SELOBJ) + then + (* ;; "SELOBJ if the selection consisted only of a single image object. It presumably did its own buttonevent operations when it was selected, but is otherwise immune to normal highlighting. But it acts just as a normal character in all panes if it is part of a longer selection. ") - (* ;; "This does the WHENOPERATEDONFN once no matter how many panes the object appears in, and that function controls the highlighting. Not sure what happens in other panes. If we do the ordinary highlighting, then e.g. a whole NWAY image object gets underlines, even though only one toggle was selected.") + (* ;; "This does the WHENOPERATEDONFN once no matter how many panes the object appears in, and that function controls the highlighting. Not sure what happens in other panes. If we do the ordinary highlighting, then e.g. a whole NWAY image object gets underlines, even though only one toggle was selected.") - (\TEDIT.OPERATE.OBJECT (FGETTOBJ TEXTOBJ STREAMHINT) - SEL - (FGETTOBJ TEXTOBJ SELPANE) - (CL:IF ON - 'HIGHLIGHTED - 'UNHIGHLIGHTED)) - else (for PANE inpanes (PROGN TEXTOBJ) as L1 in (FGETSEL SEL L1) as LN - in (FGETSEL SEL LN) when (OR (NULL ONLYPANE) - (EQ PANE ONLYPANE)) - do (CL:WHEN (AND L1 LN (NEQ 0 (FGETSEL SEL DCH))) + (\TEDIT.OPERATE.OBJECT TSTREAM SEL (FGETTOBJ TEXTOBJ SELPANE) + (CL:IF ON + 'HIGHLIGHTED + 'UNHIGHLIGHTED)) + else (for PANE inpanes (PROGN TEXTOBJ) as L1 in (FGETSEL SEL L1) as LN + in (FGETSEL SEL LN) when (OR (NULL ONLYPANE) + (EQ PANE ONLYPANE)) + do (CL:WHEN (AND L1 LN (NEQ 0 (FGETSEL SEL DCH))) (* ; "Hilight if not a point selection") - (\TEDIT.SHOWSEL.HILIGHT TEXTOBJ L1 LN PANE SEL)) - (\TEDIT.SETCARET SEL PANE TEXTOBJ ON))) - (FSETSEL SEL ONFLG ON))]) + (\TEDIT.SHOWSEL.HILIGHT TEXTOBJ L1 LN PANE SEL)) + (\TEDIT.SETCARET SEL PANE TEXTOBJ ON))) + (FSETSEL SEL ONFLG ON))]) + +(\TEDIT.NOSEL + [LAMBDA (TSTREAM SEL ONLYPANE) (* ; "Edited 15-Apr-2025 15:20 by rmk") + + (* ;; + "A function along side the macro so Masterscope doesn't show NOSEL and SHOWSEL at the same time.") + + (\TEDIT.SHOWSEL SEL NIL TSTREAM ONLYPANE]) + +(\TEDIT.SEL.OFF + [LAMBDA (TSTREAM SEL ONLYPANE) (* ; "Edited 5-May-2025 23:08 by rmk") + (* ; "Edited 15-Apr-2025 15:20 by rmk") + + (* ;; + "A function along side the macro so Masterscope doesn't show this and SHOWSEL at the same time.") + + (\TEDIT.SHOWSEL SEL NIL TSTREAM ONLYPANE]) + +(\TEDIT.SEL.ON + [LAMBDA (TSTREAM SEL ONLYPANE DONTFIX) (* ; "Edited 5-May-2025 23:21 by rmk") + (* ; "Edited 15-Apr-2025 15:20 by rmk") + + (* ;; + "A function along side the macro so Masterscope doesn't show this and SHOWSEL at the same time.") + + (\TEDIT.SHOWSEL SEL T TSTREAM ONLYPANE DONTFIX]) (\TEDIT.SHOWSEL.HILIGHT [LAMBDA (TEXTOBJ L1 LN PANE SEL) (* ; "Edited 1-Dec-2024 11:28 by rmk") @@ -1384,64 +1417,77 @@ 'INVERT) repeatuntil (EQ L LN]) (\TEDIT.UPDATE.SEL - [LAMBDA (SEL CH# DCH POINT LOOKS CHLIM) (* ; "Edited 10-Jul-2024 17:25 by rmk") + [LAMBDA (TSTREAM/SEL CH# DCH POINT LOOKS CHLIM) (* ; "Edited 6-May-2025 11:36 by rmk") + (* ; "Edited 21-Apr-2025 22:50 by rmk") + (* ; "Edited 6-Apr-2025 11:47 by rmk") + (* ; "Edited 10-Jul-2024 17:25 by rmk") (* ; "Edited 8-Jul-2024 00:11 by rmk") - (* ; "Edited 21-Jun-2024 14:21 by rmk") (* ; "Edited 29-Apr-2024 13:28 by rmk") (* ; "Edited 15-Mar-2024 13:36 by rmk") - (* ; "Edited 5-Mar-2024 14:45 by rmk") - (* ; "Edited 25-Feb-2024 17:30 by rmk") - (* ; "Edited 16-Feb-2024 23:49 by rmk") (* ; "Edited 17-Sep-2023 00:05 by rmk") - (* ; "Edited 12-Aug-2023 08:27 by rmk") (* ; "Edited 6-Jun-2023 13:24 by rmk") (* ; "Edited 7-May-2023 19:03 by rmk") - (* ;; "Translates the selection SEL to new positions. DCH=0 means point selection with caret blinking either before or after CH#, depending on POINT. If CH# is a history event, that defines the new selection parameters. Otherwise, if any of the variables are NIL, the value for that field in SEL is not changed.") + (* ;; "Translates a selection to new positions. If TSTREAM/SEL is a stream, then its selection is the target SEL. And in that case the selection is fixed and shown after the adjustment.") + + (* ;; " DCH=0 means point selection with caret blinking either before or after CH#, depending on POINT. If CH# is a history event, that defines the new selection parameters. Otherwise, if any of the variables are NIL, the value for that field in SEL is not changed.") (* ;; "For convenience, If DCH is NIL and CHLIM is provided, DCH is computed from CH# and CHLIM instead of being left alone.") - [if (type? TEDITHISTORYEVENT CH#) - then (* ; "History is a pseudo-selection") - (CL:UNLESS DCH - (SETQ DCH (GETTH CH# THLEN))) - (CL:UNLESS POINT - (SETQ POINT (GETTH CH# THPOINT CH#))) - (SETQ CH# (GETTH CH# THCH#)) - else - (* ;; "Get defaults from SEL (either a selection or a textobj whose SEL is indicated)") + (LET (TSTREAM SEL) + (if (type? TEXTSTREAM TSTREAM/SEL) + then (SETQ TSTREAM TSTREAM/SEL) + (SETQ SEL (TEXTSEL (FTEXTOBJ TSTREAM))) + elseif (type? SELECTION TSTREAM/SEL) + then (SETQ SEL TSTREAM/SEL) + elseif (type? TEXTOBJ TSTREAM/SEL) + then (SETQ TSTREAM TSTREAM/SEL) (* ; "Maybe not allow this") + (SETQ SEL (TEXTSEL TSTREAM/SEL)) + else (\TEDIT.THELP "Not a text stream or selection" SEL)) - (CL:WHEN (type? TEXTOBJ SEL) - (SETQ SEL (TEXTSEL SEL))) - (CL:UNLESS CH# - (SETQ CH# (GETSEL SEL CH#))) - (CL:UNLESS DCH - (SETQ DCH (if CHLIM - then (IDIFFERENCE CHLIM CH#) - else (FGETSEL SEL DCH)))) - (CL:UNLESS POINT - (SETQ POINT (FGETSEL SEL POINT)))] + (* ;; "We now have a selection SEL, maybe also have a TSTREAM") - (* ;; + [if (type? TEDITHISTORYEVENT CH#) + then (* ; "History is a pseudo-selection") + (CL:UNLESS DCH + (SETQ DCH (GETTH CH# THLEN))) + (CL:UNLESS POINT + (SETQ POINT (GETTH CH# THPOINT CH#))) + (SETQ CH# (GETTH CH# THCH#)) + else + (* ;; + "Get defaults from SEL (either a selection or a textobj whose SEL is indicated)") + + (CL:UNLESS CH# + (SETQ CH# (GETSEL SEL CH#))) + (CL:UNLESS DCH + (SETQ DCH (if CHLIM + then (IDIFFERENCE CHLIM CH#) + else (FGETSEL SEL DCH)))) + (CL:UNLESS POINT + (SETQ POINT (FGETSEL SEL POINT)))] + + (* ;;  "If below 1, left of 1. We don't know TEXTLEN without the TEXTOBJ, so we can't test the length.") - (CL:WHEN (ILESSP CH# 1) - (SETQ CH# 1) - (SETQ POINT 'LEFT)) + (CL:WHEN (ILESSP CH# 1) + (SETQ CH# 1) + (SETQ POINT 'LEFT)) - (* ;; "POINT=LEFT means before CH#, POINT=RIGHT means before CHLIM. If DCH=0, caret is between (and CHLIM - CH# is not DCH=0).") + (* ;; "POINT=LEFT means before CH#, POINT=RIGHT means before CHLIM. If DCH=0, caret is between (and CHLIM - CH# is not DCH=0).") - (SETSEL SEL CH# CH#) - (FSETSEL SEL DCH DCH) - (FSETSEL SEL CHLIM (CL:IF (EQ DCH 0) - (ADD1 CH#) - (IPLUS CH# DCH))) - (FSETSEL SEL POINT POINT) - (FSETSEL SEL SELOBJ NIL) (* ; + (SETSEL SEL CH# CH#) + (FSETSEL SEL DCH DCH) + (FSETSEL SEL CHLIM (CL:IF (EQ DCH 0) + (ADD1 CH#) + (IPLUS CH# DCH))) + (FSETSEL SEL POINT POINT) + (FSETSEL SEL SELOBJ NIL) (* ;  "If we are moving around, we are moving away from any old object") - (FSETSEL SEL SET T) - (CL:WHEN LOOKS (\TEDIT.SET.SEL.LOOKS SEL LOOKS)) - SEL]) + (FSETSEL SEL SET T) + (CL:WHEN LOOKS (\TEDIT.SET.SEL.LOOKS SEL LOOKS)) + (CL:WHEN TSTREAM (\TEDIT.SEL.ON TSTREAM SEL)) + SEL]) (\TEDIT.CARETLINE [LAMBDA (SEL PANE TEXTOBJ) (* ; "Edited 7-Nov-2024 21:50 by rmk") @@ -1644,7 +1690,11 @@ (DEFINEQ (\TEDIT.SELECT.OBJECT - [LAMBDA (TEXTOBJ NEWSEL LINE X Y SELPANE SELOPERATION BUTTON) + [LAMBDA (TSTREAM NEWSEL LINE X Y SELPANE SELOPERATION BUTTON) + (* ; "Edited 6-May-2025 11:35 by rmk") + (* ; "Edited 21-Apr-2025 20:16 by rmk") + (* ; "Edited 14-Apr-2025 23:47 by rmk") + (* ; "Edited 5-Apr-2025 13:05 by rmk") (* ; "Edited 6-Dec-2024 11:09 by rmk") (* ; "Edited 30-Nov-2024 00:01 by rmk") (* ; "Edited 26-Nov-2024 03:45 by rmk") @@ -1662,7 +1712,8 @@ (* ; "Edited 14-Oct-2023 11:38 by rmk") (* ; "Edited 10-Apr-2023 08:38 by rmk") (* ; "Edited 29-Mar-94 13:28 by jds") - (LET ((OBJ (FGETSEL NEWSEL SELOBJ)) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (OBJ (FGETSEL NEWSEL SELOBJ)) RESULT) (RESETLST (\TEDIT.CLIP.OBJECT OBJ (FGETSEL NEWSEL X0) @@ -1677,7 +1728,7 @@ (IDIFFERENCE X (FGETSEL NEWSEL X0)) (IDIFFERENCE Y (FGETLD LINE YBASE)) SELPANE - (fetch (TEXTWINDOW WTEXTSTREAM) of SELPANE) + (PANETEXTSTREAM SELPANE) BUTTON SELOPERATION)))) (* ;; "The clipping region is now restored.") @@ -1696,9 +1747,9 @@ then (* ;; "The object may have updated its own image, within its coordinate system. But its box may have changed, and if so, the document also needs to reformat and the selection has to be adjusted. We know that CURSEL is currently displayed, we get it out of the way here, expecting that \TEDIT.BUTTONEVENTFN will synchronize CURSEL with NEWSEL.") - (\TEDIT.UPDATE.LINES TEXTOBJ 'CHANGED (FGETSEL NEWSEL CH#) + (\TEDIT.UPDATE.LINES TSTREAM 'CHANGED (FGETSEL NEWSEL CH#) 1) - (\TEDIT.SHOWSEL NIL T TEXTOBJ) + (\TEDIT.SEL.ON TSTREAM NIL T) (FSETTOBJ TEXTOBJ \DIRTY T) elseif (NULL (CAR RESULT)) then @@ -1712,7 +1763,8 @@ (CAR RESULT]) (\TEDIT.SHOWSEL.OBJECT - [LAMBDA (TEXTOBJ SEL L1 ON PANE) (* ; "Edited 1-Dec-2024 11:52 by rmk") + [LAMBDA (TSTREAM SEL L1 ON PANE) (* ; "Edited 21-Apr-2025 19:07 by rmk") + (* ; "Edited 1-Dec-2024 11:52 by rmk") (* ; "Edited 21-Aug-2024 15:31 by rmk") (* ; "Edited 19-Jul-2024 23:15 by rmk") (* ; "Edited 18-Jul-2024 12:19 by rmk") @@ -1726,6 +1778,7 @@ (* ;; "We are hilighting (or dehilighting) a selection containing only a single image object if it appears in PANE ") + (NOTUSED) (LET [(OBJ (FGETSEL SEL SELOBJ)) (IMAGEFN (IMAGEOBJPROP (FGETSEL SEL SELOBJ) 'WHENOPERATEDONFN] @@ -1741,8 +1794,7 @@ (ERSETQ (APPLY* IMAGEFN OBJ PANE (CL:IF ON 'HIGHLIGHTED 'UNHIGHLIGHTED) - SEL - (FGETTOBJ TEXTOBJ STREAMHINT)))))]) + SEL TSTREAM))))]) (\TEDIT.CLIP.OBJECT [LAMBDA (OBJ X LINE PANE) (* ; "Edited 1-Dec-2024 11:54 by rmk") @@ -1778,7 +1830,11 @@ `(PROGN (DSPCLIPPINGREGION OLDVALUE ,DS]) (\TEDIT.OPERATE.OBJECT - [LAMBDA (TSTREAM SEL PANE OPERATION) (* ; "Edited 31-Dec-2024 17:24 by rmk") + [LAMBDA (TSTREAM SEL PANE OPERATION) (* ; "Edited 6-May-2025 11:37 by rmk") + (* ; "Edited 21-Apr-2025 20:22 by rmk") + (* ; "Edited 6-Apr-2025 14:21 by rmk") + (* ; "Edited 5-Apr-2025 13:13 by rmk") + (* ; "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") @@ -1799,7 +1855,7 @@ (LET* ((OBJ (FGETSEL SEL SELOBJ)) (WHENOPERATEDONFN (IMAGEOBJPROP OBJ 'WHENOPERATEDONFN)) - (TEXTOBJ (GETTSTR TSTREAM TEXTOBJ)) + (TEXTOBJ (FTEXTOBJ TSTREAM)) LINE) (CL:WHEN WHENOPERATEDONFN (SELECTQ OPERATION @@ -1807,14 +1863,14 @@ (* ;; "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.SHOWSEL SEL NIL TEXTOBJ) + (\TEDIT.SEL.OFF TSTREAM) (MOVETO (FGETSEL SEL X0) (FGETLD LINE YBASE) PANE) (ERSETQ (APPLY* WHENOPERATEDONFN OBJ (WINDOWPROP PANE 'DSP) OPERATION SEL TSTREAM)) - (\TEDIT.FIXSEL SEL TEXTOBJ) (* ; "Restore highlighting") - (\TEDIT.SHOWSEL SEL T TEXTOBJ))) + (* ; "Restore highlighting") + (\TEDIT.SEL.ON TSTREAM SEL))) ((HIGHLIGHTED UNHIGHLIGHTED DESELECTED) (* ;; "Execute in each pane where OBJ is visible, in OBJ's coordinate system. This may be duplicating the pane iteration in SHOWSEL?") @@ -1907,7 +1963,8 @@ SPLASTCHAR _ LASTCHAR))]) (\TEDIT.SELPIECES.COPY - [LAMBDA (SELPIECES OPERATION TOTEXTOBJ FROMTEXTOBJ CHARLOOKS) + [LAMBDA (SELPIECES OPERATION TOTSTREAM FROMTSTREAM CHARLOOKS) + (* ; "Edited 22-Apr-2025 08:26 by rmk") (* ; "Edited 19-Mar-2025 16:26 by rmk") (* ; "Edited 26-Nov-2024 23:31 by rmk") (* ; "Edited 22-Nov-2024 15:38 by rmk") @@ -1919,18 +1976,20 @@ (* ;; "Produces a copy of SELPIECES where the pieces from first to last are chained-together copies of the original pieces so that later inpieces can run from first to last. OPERATION determines which imageobject functions will be invoked, if any.") - (* ;; "FROMTEXTOBJ is optional. Providing a FROMTEXTOBJ that is different from TOTEXTOBJ is a signal that this is a cross-copy needing to create private copies of strings and files. ") + (* ;; "FROMTEXTOBJ is optional. Providing a FROMTSTREAM that is different from TOTSTREAM is a signal that this is a cross-copy needing to create private copies of strings and files. ") + + (* ;; "DO NOT RUN THIS INTERPRETED: DWIM SOMEHOW SCREWS UP THIS INSELPIECES LOOP") (CL:WHEN SELPIECES - (CL:UNLESS FROMTEXTOBJ (SETQ FROMTEXTOBJ TOTEXTOBJ)) + (CL:UNLESS FROMTSTREAM (SETQ FROMTSTREAM TOTSTREAM)) (for PC NPC PREVPC NEWFIRSTPIECE inselpieces (PROGN SELPIECES) - do (SETQ NPC (\TEDIT.COPYPIECE PC FROMTEXTOBJ TOTEXTOBJ NIL OPERATION)) + do (SETQ NPC (\TEDIT.COPYPIECE PC FROMTSTREAM TOTSTREAM NIL OPERATION)) (CL:UNLESS NPC (* ; "Was an object-copy disallowed?") - (RETURN)) + (RETURN)) + (CL:WHEN CHARLOOKS (FSETPC NPC PCHARLOOKS CHARLOOKS)) (* ;; "Linke the new pieces together") - (CL:WHEN CHARLOOKS (FSETPC NPC PCHARLOOKS CHARLOOKS)) (if PREVPC then (SETPC PREVPC NEXTPIECE NPC) else (SETQ NEWFIRSTPIECE NPC)) @@ -1967,7 +2026,9 @@ SPLASTCHAR _ (ffetch (SELPIECES SPLASTCHAR) of SP2]) (\TEDIT.SELPIECES.CHARTRANSFORM - [LAMBDA (SELPIECES CHARFN OBJECTSTOO TEXTOBJ) (* ; "Edited 16-Mar-2025 10:03 by rmk") + [LAMBDA (SELPIECES CHARFN OBJECTSTOO TSTREAM) (* ; "Edited 24-Apr-2025 16:02 by rmk") + (* ; "Edited 20-Apr-2025 23:23 by rmk") + (* ; "Edited 16-Mar-2025 10:03 by rmk") (* ; "Edited 7-Nov-2024 21:50 by rmk") (* ; "Edited 4-Oct-2024 08:41 by rmk") (* ; "Edited 28-Apr-2024 08:52 by rmk") @@ -1979,7 +2040,8 @@ (* ;;  "This smashes the pieces, use crosscopy \TEDIT.SELPIECES.COPY first to protect the document pieces.") - [for PC PCONTENTS (INDEX _ 0) inselpieces SELPIECES + [for PC PCONTENTS (TEXTOBJ _ (FTEXTOBJ TSTREAM)) + (INDEX _ 0) inselpieces SELPIECES do (SETQ PCONTENTS (PCONTENTS PC)) (SELECTC (PTYPE PC) (STRING.PTYPES (for I CH (STR _ PCONTENTS) from 1 while (SETQ CH (NTHCHARCODE STR I)) @@ -1991,7 +2053,7 @@ [for I from 1 to (PLEN PC) do (RPLCHARCODE STR I (APPLY* CHARFN (\TEDIT.PIECE.NTHCHARCODE - TEXTOBJ PC I) + PC I) (add INDEX 1] (if (fetch (STRINGP FATSTRINGP) of STR) then (FSETPC PC PTYPE FATSTRING.PTYPE) @@ -2132,7 +2194,9 @@ (DEFINEQ (TEDIT.XYTOCH - [LAMBDA (X Y PANE) (* ; "Edited 6-Dec-2024 11:55 by rmk") + [LAMBDA (X Y PANE) (* ; "Edited 20-Apr-2025 13:43 by rmk") + (* ; "Edited 18-Apr-2025 15:07 by rmk") + (* ; "Edited 6-Dec-2024 11:55 by rmk") (* ; "Edited 1-Dec-2024 11:28 by rmk") (* ; "Edited 29-Nov-2024 09:14 by rmk") (* ; "Edited 20-Nov-2024 11:27 by rmk") @@ -2162,10 +2226,8 @@ (SUB1 (PANEHEIGHT PANE))) (BOTTOM (PANEBOTTOM PANE)) Y)) - (\TEDIT.XYTOSEL X Y SCRSEL (PANETOBJ PANE) - PANE - 'NORMAL - 'LEFT NIL 'TEXT) + (\TEDIT.XYTOSEL X Y SCRSEL (PANETEXTSTREAM PANE) + 'NORMAL PANE 'LEFT NIL 'TEXT) (CL:WHEN (FGETSEL SCRSEL SET) (FGETSEL SCRSEL CH#]) @@ -2266,7 +2328,8 @@ (\TEDIT.THELP "Selection's POINT is neither RIGHT nor LEFT." (FGETSEL SEL POINT]) (TEDIT.GETSEL - [LAMBDA (TSTREAM) (* ; "Edited 7-Jul-2024 11:18 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 5-May-2025 23:37 by rmk") + (* ; "Edited 7-Jul-2024 11:18 by rmk") (* ; "Edited 1-May-2023 21:07 by rmk") (* ; "Edited 30-May-91 23:03 by jds") @@ -2275,7 +2338,7 @@ (SETQ TSTREAM (TEXTSTREAM TSTREAM)) (create SELECTION using (FGETTOBJ (TEXTOBJ TSTREAM) SEL) - SELTEXTSTREAM _ TSTREAM]) + SELTEXTSTREAM _ TSTREAM L1 _ NIL LN _ NIL SELLINES _ NIL]) (TEDIT.GETSEL.PARA [LAMBDA (TSTREAM) (* ; "Edited 16-Jan-2024 14:59 by rmk") @@ -2308,7 +2371,8 @@ (FGETSEL SEL DCH))]) (TEDIT.SET.SEL.LOOKS - [LAMBDA (SEL OPERATION) (* ; "Edited 18-May-2024 16:20 by rmk") + [LAMBDA (SEL OPERATION) (* ; "Edited 21-Apr-2025 20:27 by rmk") + (* ; "Edited 18-May-2024 16:20 by rmk") (* ; "Edited 29-Apr-2024 13:03 by rmk") (* ; "Edited 9-Mar-2024 12:04 by rmk") (* ; "Edited 15-Mar-2024 13:34 by rmk") @@ -2321,14 +2385,16 @@ (* ;; "Set what the selection should be displayed like, given what it's for (NORMAL, COPY, MOVE, etc.). This is a documented entry.") (LET ((WASON (GETSEL SEL ONFLG)) - (TEXTOBJ (TEXTOBJ SEL))) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) + (TSTREAM (TEXTSTREAM SEL))) + (\TEDIT.NOSEL TSTREAM SEL) (\TEDIT.SET.SEL.LOOKS SEL OPERATION) - (\TEDIT.SHOWSEL SEL WASON TEXTOBJ) + (\TEDIT.SHOWSEL SEL WASON TSTREAM) SEL]) (TEDIT.SETSEL [LAMBDA (TSTREAM CH# LEN POINT PENDINGDELFLG LEAVECARETLOOKS OPERATION) + (* ; "Edited 6-Apr-2025 17:52 by rmk") + (* ; "Edited 5-Apr-2025 13:43 by rmk") (* ; "Edited 17-Feb-2025 12:26 by rmk") (* ; "Edited 31-Jan-2025 12:43 by rmk") (* ; "Edited 19-Jan-2025 08:32 by rmk") @@ -2352,11 +2418,11 @@ (SETQ TSTREAM (TEXTSTREAM TSTREAM)) (CL:WHEN (AND LEN (ILESSP LEN 0)) (ERROR "Selection length cannot be negative" LEN)) - (LET* ((TEXTOBJ (TEXTOBJ! (GETTSTR TSTREAM TEXTOBJ))) + (LET* ((TEXTOBJ (FTEXTOBJ TSTREAM)) (SEL (TEXTSEL TEXTOBJ)) (TEXTLEN (TEXTLEN TEXTOBJ)) PC) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) (* ; "First turn the old sel off.") + (\TEDIT.NOSEL TSTREAM) (* ; "First turn the old sel off.") [if (type? SELECTION CH#) then (* ;  "He gave us a selection; just plug it in") @@ -2388,13 +2454,13 @@ (CL:UNLESS LEAVECARETLOOKS (* ;  "Set the insertion looks to follow.") (SETTOBJ TEXTOBJ CARETLOOKS (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ SEL))) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ) + (\TEDIT.SHOWSEL SEL T TSTREAM) (FSETTOBJ TEXTOBJ LASTARROWX NIL) (TEDIT.GETSEL TSTREAM]) (TEDIT.SHOWSEL - [LAMBDA (TSTREAM ONFLG SEL) (* ; "Edited 7-Jul-2024 11:25 by rmk") + [LAMBDA (TSTREAM ONFLG SEL) (* ; "Edited 6-Apr-2025 23:31 by rmk") + (* ; "Edited 7-Jul-2024 11:25 by rmk") (* ; "Edited 18-May-2024 16:28 by rmk") (* ; "Edited 29-Apr-2024 12:27 by rmk") (* ; "Edited 9-Mar-2024 12:06 by rmk") @@ -2404,14 +2470,14 @@ (* ;  "Edited 21-Oct-2022 18:36 by rmk; Edited 30-May-91 23:04 by jds") - (* ;; "He's giving us a selection to highlight and to connect it to this textobj.") + (* ;; "He's giving us a selection to highligh. Original comment said that it would :connect%" SEL to this stream. But that didn't mean making installing the indicated selection into the stream, it meant adding the stream to the selection (now the SELTEXTSTREAM field). The old code did not take down the current selection, so you could end up with highlighting in 2 places. Her at least we take it down.") - (LET ((TEXTOBJ (TEXTOBJ TSTREAM))) - (CL:UNLESS SEL - (SETQ SEL (FGETTOBJ TEXTOBJ SEL))) - (CL:WHEN SEL - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL ONFLG TEXTOBJ))]) + (* ;; "But generally, this is a bogus interface, should be dedocumented and removed. TEDIT.SETSEL is more reasonable") + + (CL:WHEN ONFLG (* ; + "If SEL is going on, we better take down what's there") + (\TEDIT.NOSEL TSTREAM)) + (\TEDIT.SHOWSEL SEL ONFLG TSTREAM]) (TEDIT.SEL.AS.STRING [LAMBDA (TSTREAM SEL/CH# LEN CODEFOROBJECT) (* ; "Edited 15-Feb-2025 12:47 by rmk") @@ -2485,25 +2551,26 @@ (ADDTOVAR LAMA TEDIT.SELPROP) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (15676 17497 (\TEDIT.SELECTION.DEFPRINT 15686 . 17495)) (17534 19039 ( -\TEDIT.SET.GLOBAL.SELECTIONS 17544 . 19037)) (19040 24892 (\TEDIT.SELECTED.PIECES 19050 . 20570) ( -\TEDIT.FIND.PROTECTED.END 20572 . 22241) (\TEDIT.FIND.PROTECTED.START 22243 . 24101) ( -\TEDIT.WORD.BOUND 24103 . 24890)) (25026 59225 (\TEDIT.EXTEND.SEL 25036 . 32124) (\TEDIT.SCAN.LINE -32126 . 43904) (\TEDIT.SCAN.LINE.WORD 43906 . 49267) (\TEDIT.XYTOSEL 49269 . 56378) (\TEDIT.REGIONTYPE - 56380 . 57399) (\TEDIT.XYTOSEL.INLINEP 57401 . 57856) (\TEDIT.XYTOSEL.LINE 57858 . 59223)) (59226 -72850 (\TEDIT.FIXSEL 59236 . 68849) (\TEDIT.CHTOLINEX 68851 . 72848)) (72851 76834 ( -\TEDIT.RESET.EXTEND.PENDING.DELETE 72861 . 74170) (\TEDIT.SET.SEL.LOOKS 74172 . 76832)) (76835 95235 ( -\TEDIT.SHOWSEL 76845 . 81305) (\TEDIT.SHOWSEL.HILIGHT 81307 . 85928) (\TEDIT.UPDATE.SEL 85930 . 89429) - (\TEDIT.CARETLINE 89431 . 90145) (\TEDIT.SEL.L1 90147 . 90830) (\TEDIT.SEL.LN 90832 . 91515) ( -\TEDIT.SEL.DELETEDCHARS 91517 . 95233)) (95236 99942 (\TEDIT.COPYSEL 95246 . 97712) ( -\TEDIT.SEL.CHANGED? 97714 . 99940)) (99973 112702 (\TEDIT.SELECT.OBJECT 99983 . 104489) ( -\TEDIT.SHOWSEL.OBJECT 104491 . 106653) (\TEDIT.CLIP.OBJECT 106655 . 108659) (\TEDIT.OPERATE.OBJECT -108661 . 112700)) (112730 131910 (\TEDIT.SELPIECES 112740 . 117021) (\TEDIT.SELPIECES.COPY 117023 . -119310) (\TEDIT.SELPIECES.CONCAT 119312 . 121191) (\TEDIT.SELPIECES.CHARTRANSFORM 121193 . 124402) ( -\TEDIT.SELPIECES.FROM.STRING 124404 . 129545) (\TEDIT.SELPIECES.TO.STRING 129547 . 131908)) (131963 -154486 (TEDIT.XYTOCH 131973 . 134357) (TEDIT.SELPROP 134359 . 138389) (TEDIT.GETPOINT 138391 . 140311) - (TEDIT.GETSEL 140313 . 141047) (TEDIT.GETSEL.PARA 141049 . 141998) (TEDIT.SCANSEL 142000 . 142948) ( -TEDIT.SET.SEL.LOOKS 142950 . 144329) (TEDIT.SETSEL 144331 . 149095) (TEDIT.SHOWSEL 149097 . 150377) ( -TEDIT.SEL.AS.STRING 150379 . 152864) (TEDIT.SEL.AS.SEXPR 152866 . 154152) (TEDIT.SELECTALL 154154 . -154484))))) + (FILEMAP (NIL (15860 17681 (\TEDIT.SELECTION.DEFPRINT 15870 . 17679)) (17718 19223 ( +\TEDIT.SET.GLOBAL.SELECTIONS 17728 . 19221)) (19224 25195 (\TEDIT.SELECTED.PIECES 19234 . 20873) ( +\TEDIT.FIND.PROTECTED.END 20875 . 22544) (\TEDIT.FIND.PROTECTED.START 22546 . 24404) ( +\TEDIT.WORD.BOUND 24406 . 25193)) (25329 59436 (\TEDIT.EXTEND.SEL 25339 . 32579) (\TEDIT.SCAN.LINE +32581 . 44254) (\TEDIT.SCAN.LINE.WORD 44256 . 49249) (\TEDIT.XYTOSEL 49251 . 56589) (\TEDIT.REGIONTYPE + 56591 . 57610) (\TEDIT.XYTOSEL.INLINEP 57612 . 58067) (\TEDIT.XYTOSEL.LINE 58069 . 59434)) (59437 +72982 (\TEDIT.FIXSEL 59447 . 68824) (\TEDIT.CHTOLINEX 68826 . 72980)) (72983 77037 ( +\TEDIT.RESET.EXTEND.PENDING.DELETE 72993 . 74271) (\TEDIT.SET.SEL.LOOKS 74273 . 77035)) (77974 98740 ( +\TEDIT.SHOWSEL 77984 . 82960) (\TEDIT.NOSEL 82962 . 83263) (\TEDIT.SEL.OFF 83265 . 83676) ( +\TEDIT.SEL.ON 83678 . 84094) (\TEDIT.SHOWSEL.HILIGHT 84096 . 88717) (\TEDIT.UPDATE.SEL 88719 . 92934) +(\TEDIT.CARETLINE 92936 . 93650) (\TEDIT.SEL.L1 93652 . 94335) (\TEDIT.SEL.LN 94337 . 95020) ( +\TEDIT.SEL.DELETEDCHARS 95022 . 98738)) (98741 103447 (\TEDIT.COPYSEL 98751 . 101217) ( +\TEDIT.SEL.CHANGED? 101219 . 103445)) (103478 117137 (\TEDIT.SELECT.OBJECT 103488 . 108441) ( +\TEDIT.SHOWSEL.OBJECT 108443 . 110674) (\TEDIT.CLIP.OBJECT 110676 . 112680) (\TEDIT.OPERATE.OBJECT +112682 . 117135)) (117165 136797 (\TEDIT.SELPIECES 117175 . 121456) (\TEDIT.SELPIECES.COPY 121458 . +123947) (\TEDIT.SELPIECES.CONCAT 123949 . 125828) (\TEDIT.SELPIECES.CHARTRANSFORM 125830 . 129289) ( +\TEDIT.SELPIECES.FROM.STRING 129291 . 134432) (\TEDIT.SELPIECES.TO.STRING 134434 . 136795)) (136850 +160551 (TEDIT.XYTOCH 136860 . 139436) (TEDIT.SELPROP 139438 . 143468) (TEDIT.GETPOINT 143470 . 145390) + (TEDIT.GETSEL 145392 . 146268) (TEDIT.GETSEL.PARA 146270 . 147219) (TEDIT.SCANSEL 147221 . 148169) ( +TEDIT.SET.SEL.LOOKS 148171 . 149656) (TEDIT.SETSEL 149658 . 154576) (TEDIT.SHOWSEL 154578 . 156442) ( +TEDIT.SEL.AS.STRING 156444 . 158929) (TEDIT.SEL.AS.SEXPR 158931 . 160217) (TEDIT.SELECTALL 160219 . +160549))))) STOP diff --git a/library/tedit/TEDIT-SELECTION.LCOM b/library/tedit/TEDIT-SELECTION.LCOM index 2fb5bba0289e51c53e9562c1c86565e3c9b767c9..dbf8801a608fbdc7681edb11dbd1ad634de9dc0c 100644 GIT binary patch delta 10914 zcmbVSYj7Labp}9+q9_Rh$R!2QG;;+@6e(L27H?9qjKzb*;;~DEph(4Xs0S5;1SLwc z(k5{|kkh0}A4#LEAF-X-R#GLdnG?OT8l~hbJosRRPGo4IIPMx%q z8QcBty}JM?DdU;wf&19|+I!FW&Uen;AOF()-@h?`akAj{>`8q5X<7XbaJwsfA-l=J%gCJ~My( zlb%7}{>Ns|?%}2V^Rq|K969sJ{n=Pl&hp%p5t3h4BH_^!K@)18w~yGG@xeB+QORLwnLk zKFQxt^bPww!#>eTo|sI>qN&)yCwG7N1J)XF4-wJt3b*Z117vtC z6FVTQ6XScLm4wps%42a5ofuLk$J5UoRAJj>O}kCE_+JX`MLKFb5F>9^!n`i4F7<=U${3 z&56IF5A`(l28ih%UFD!wK`MAUjfhC;T4B14i^V9<3*6><&FPT^i`2jb}5l zby6CmYJa~`DF0vUkInnY2)33lW>U>W!|H?*9fV#*vr;$}!>*n*n@vrUhm>+*{2bGF zG`iIEu=cCAN2YvaG?tA^<8gvx*RyzqAOscC$Oa*S#sXfx{>0l@065hq9@DOE94Pp( zvh*0v8@m&Ur{pxUkn~9WK4j3Zl5L4ulv5cApC;=yA^vTjqz#hnW z?Z`xi%C?MdN^BC@0b)J@0cs9i7ff?2Un(q`k4ZecXg(O`LKQwAW@lRELM2sOq-tBJ z+7ha^*?sFH<>6#v^~>=@lF88*k>vIqe3n|mRPtI7K0T)_ zC*@@b?VM^|{hDh1W2DQgrJZ;7&eKKcYwR=SlEwQZW5Km$@HQ!9V(r-G=#bxK$n=Oj zMR(PMvo)kVuF~Bl9-OdVWi)bmwg1>GSb`!=J_6{`pHGZYyrudb?CW8i}KYk4$mZ@scSQ%5-=|C1Xyi zLMc^EvMJb{<0&yw};erUTs?WRy0)Y;vjp}bPjU=s5Fyay;zw!YQcj?q)@eWb=vkElKk>fOGRzB zKWtOGX4vr07b`hbGO_y+~BDQobjx_S}3+N<;1) zpHJp*UR53QEkBxe6mR6(56)a}`t+iCw`yD3ET!eD$jtQ?0u)#@ zZ;7$Dq<~<0KceRsP4CQHx7g-Z$_u$^p(10<#-;u~D|ND!vL*Jip`TG5OV-&xH5U9& zgkA3N7BR@@F<#VcI z2AiiDn z@$17_@N=q_9bzS4>v17}Ztg~psS-|xs*V*cRPBCM6`o=H`x!1*LRgtwxsd)0J(^{~ zayXn8TEj`9C9DXW!b-T>a!Y6ntF~{d)(zBnpUVlohD3(*Hw059KLwSRrQYT;fi&9)|56hd^(Vk(OsXrhFwe1~_0-#JzOQSJxC@7R@z|4r6NlRI(b$||k zz{Qo+4{c?N5BjJ>fe%zhp^a0-=O3z#MSLJcMm-3pp7na5ZH78~0SSeA320U;cmM*m zf*WvCF9aI^!R-r>C|EeisvB_1ae?y3T5}O|HxwF1MOQo+=E(8^KnB{!H$Y^}jI)02 zsh#%%**0je2*SrWtod0h25TJc0525lbff{oQHE{c9p6;e6XaLNL(U%14>RiBd?W?X zqYbp~&YfDSGqCP#hsm@~`&{SlLbPg%QoYD*R5)(DSkX;(D-~s{QEHj)s;E}TvW+H| z>2{hlL#tF9lhm?HQf+Bwx63!S1Z90i3=?eS!j#M@nvCCBq3NLNuf0o{aCe`fk&xhzA2elUM;&r$;7R< z-(4*aFr_N)V!N>Tep^x{H?PY1n{TMS6f1ftEcPtEKgXIK5`+|#!d)k;lphWQG8985(_3rsw zK+4rpw_Y|$t6$;SRv5lpM@mBY-aw> zqUjBNlG1~f`1K%A?i*pc_?#^)SG#ngCTst-tv|vamnvakWhIWMvrNFuSCDt;`K#eX z4o?!x$^0$UF0Wo`Z5RUblz3 z2Xxax$ie7cHDJxg;n@)n5cN(%=K(tEwe%ERNO7+h1y4j8^pja^P?_q#VV6SwHs z)O)((?)qHgIu#WIHBvbqk(5Cu6(U3{9ZQFazczj*HVTh7dvGj9d@k+u$<9Jszt`&} zQB~QMC0U`x1Oczj;2D()funHw%Ro7N4xz_iE> zp2!#C_mZ?6Meu^T{yK=esqosASTr^s$;e|_H3J{orS0!=hS_|egLo^t!&rbJ-q@@f z3x)T?Wge6e3+0#%V+L>Auf5#kwD>&b@AZ7gyzRLrI6>TyvIEwIcIJ}yiQdl+dp+dP z$VX!I6k+LbsFSi1RVVqe25+nIxQVQc%h4FL(Wh+>2?f{M7MNdz4WaMd@M7TnW0Df1 zV~*3esu$q$-qse|SAUGf)eEqu^@5()UiwgP!R;c9bPtiSu$s-P)Um|rvAO_BQ7{of z_C=c3=rha~jm&M#ldCsr>e&gJ9wXY6U%q7*emHg3M2My}etv~JOS zi5g316UKQ_B{X?D{5*Jhn2!7h6}zon?b0@Gzo+15tD^>v!zfntB$mMb*)PqLN-i2nAOr}vO5rEM_v=-VV z9-p>2A{0EHn#Wv!CIXAs=rxqo2YcS2Ou*%O$?JvgtW{u7@D4roK!I*=RRG1+i31jL z+f(LwuN_td(%s%F(5U4itU!HXBDB}QJP-4YIq1PO@Otf2eNL@%pZx%*n~ZsKzDX&o zPI1Q&RHa-~C!f?)XFBa6Q)uL7zYPSt(SP2uV|$GI&j_Wx154Y?)%SNqDD7rFJQ;k$ zZnH=RJ6L%wq&>Rhfr4xwZ%cE{{BkADg`wq|-l`R1qfpNbzZP&>1(cFf+I8la=f4ZJ z`)k!Ye`EFQbM%oatd#Fd&4icdR$iz?o=Kv|O+lPH2sqY7YmI*-(#WIX)rjyF>IGMW`{8ZKoxl|>#?o~V%qwebvi&D zx(4GY)_k+Zs5e4AwMB{Lvwgoc7j#phTM90Ckcb+$1h_M*kOc`s-a{IIer+fcQFR)I zWO#4h2vWE1?%_te-CW1}7-**f^roLlq3gXMez_HdEKEP(u+KQ@Kfori%p1}R(N{y^ z2qS!mJNA}(!lAfk9q2lAnj43>-LpQ$1x%}?fc(wH18*gpkf`Qs37U?YY3Tde^h{)> z)L&6b+f-|*lfmD&pcK}0i2Ku(P&zJgs+!jRXkc69t)%5@!g8hf%G^O3VU+1YZ8_>- z;IP+V4Ro_cUeO+4>6~{$}qrtX*8d)~ZRugkV z8rn{Gxk<`}!fYGxrZo_*Nu466+WH6D3}K9=2Gx;~yN`&wsNZu$#Td{-S*tFJYnQth zgKx%io26NZ2R}h97!e0!X`D6>wDA>d@1Jy(FYO+%2;e_dXt~hqimLta0e3-XF?+d0 zJ1n@Gu@hZqO9A~B!NF9x)E}DSx*R{Rt1LI>9N@VBe6YBeE4&suSlq$0FNdbqH2Jdy zyn{)m2Hs+-XdCwo7M#*+Iy|-@nizgHw&atmn~pYDBA4W%f{*v-#(d&cA%qX zTn)#=?bkLR+d3?|YSO^mA1c1sZtRv}py0DGr$B@+P_Gufnr%>M5CT}BVoz`fV~9NUrFB5XHPj)uqX5!u)WCSxvNdM`x@1(sb2G9a#rh$`)nOMYSU9_- zaw-dF$q{n)_$SVi$IqTQe&hsMI71#kK7ah!+1Z7YxU$tniRp8y{P^HkH`wTf4^$lV z8R07Ugc=D7yC`oMADe>lprL3tZ8DLfS&<+j$0ZH#qN%}$Kddii1O~d+39@{v#cXQ5 zyM2(Vz4ms?0sHoK+Jy%lg^omNZ-O((a$jPm=>;wbiJr1Uul`%qmK;X)i&8x%VAETC zo3=<9ElN^|jfab&Jk$K#Y-l#eg(994dg9j~U?@GiQtpiJCrK*m@#J@T{#$fX07>`8U=D2?9K{r9%>Gq}4yCr>N0z=x57P>kl zmkTcqTEpGehj3d9x3%LCY{G43svh6st}j@Faf1tw_4b)?9ac9-Yb=%MEAQR^PRrDg z)dB>De40%S!4>=Vrn^h>mE2XCne~;35&V%WQaHh^`y=ehPZ$-_=3~32WrL5 z)Z_E7=_w*ie<@Y13A?k+aQ{jR%>OIq%+u|qgvwp5H5>a4Z8Br&r`e5nru@N^udN9s{Ms#o({WPAqb~q7njH)a|^~l$`2s|P>o00-DKD-B_6^X^7dm_>}LQpKg1Pg(oJ}^En zlF4{XQO9B#`jL#PKbCymWIoXxCYJ?oL@AP$+zm(W)8N>O>fLiJbA%W+V z%^>x&NR3>%Txd7?vd2FklnK`K?4mB zX;;U0yFHbB%HH0pS`{Wz)3(yR$g4I)s}IKKo1`sPPGXh(&1=P3=F%I*R@C zEh{B~hS|fVo@7d96APx#GmS}JH#M;(p-Xz@Ldd3nG4jabd;bbGs^6jOY6P6#xl_ty zq=S2CP;!qlkq+bgAIcpvW2sHlOO2>egbfkVdr3h!CP1VVJ{`jO$;v2H0{7fw?1Gpz z10w3*4bdXx!-G2@{+$WblV>2ZJi}SB{^g0`KvNkvSTVwiI#FPf1~*H4YCMn%tTZhq&j4P0<6bBEAUFuiwM~_ce8WpdT&i5kYYcVvCKCUHfu-WV<5KcLrjv7n!+#7g;!r>@)G94QnLu!7mqk>j0C@dpx2e$Bh>fR%18cl z-)x9!2&Ei+916=Y?Z5&#JBV!rC?Pm}=SLbYQTx@=UQ3Yr%3C{Vu$OnC;UTEH8#`|8 zG!JRp-FP1n-$bnCAaqy?bFoYY0cz~H(H-9@(Px36_Uy5N0{l0FRJy@%Yk3GbM@#;p znGrr0aSzMsFrw delta 9587 zcmbVSYj7Labp}8Rq9_RlLGU4(qOTx{A{B|kE}ob>^P1+iJUm&iQNPQ#E$hcGIi1xN?Io!B{h>t((z=b)0s2@+fMqY zj{DtvcL9iYr_)*e7I4HVB9})ahVqnTG zy2zO8!}r~D|KjqQJh|^);vx^9NJS&b=*dsKe|d4?fx8~~!^3CK#B^r)q zC&KFNNwSDlr;jC*q*o-` z=k@!1TFJamOP<@($M?5k*P8U;p3*oOQzo(#>TD)Ux)<+#@XYf4i)TK3=D~3?HJgbZ zSJY$KgAwct+w!->Be}w0Nf{}ei)KhLNYc3&trI`V zMdxy=9EXS}CrR_jNzmO^@dw%}K5tvaD;SlMnkHh9)`&3KHY?OGNL-(A;VBT;Av`gG z3;zT!+SyYiu7@#h3T@&fah-#V&!X%`dEP}PJ?ymrMjdn!Itd;g)SwnkY2_xgr$5?L z^>mJOIDBL_OlArD0Iq!6eVe6{{++~B+H5jeyQt(sTj=kCNm}jB>!K`#w$ip9vq^p~ z_7Pg-4d-J$N3F_gXW7SItSNO9D_m3R7FKvI{H0VV5?$^L-(owTx|&$EB@08RE~oP8 z#?x_oa;6l#LO;$0$-o5t%aOBsm!+!S;&J-`3-8ui#)|y%9EMmWW>M7u`c0&;@P1%c=cx zt7F28FHFti+&m;5jwO{8iXtuUMnNE9qs>i=yS4Xi8?y2f)e_rwlrlKe&d_zIX{qt# zia913rNdI)D%HC~b!({J-Q%@}t5b1h{TW$_vt#~TEU{i8ax76?WA)S2s0!@Z3(4(F zA~lS?jKNnzOK*&rYD@V>p`part3)zhOl-H7sK{y|MIV}2F?}kLkKv`76xZ7nV>+WD zR$frnt}Uh3FQgt>O0C6XYp*S(*Ds_WSxT?1SN6VpV3Drh++MuAyS0M>V{-mZ!dO%L z!uH6d$73kev@%ES(tPNPW>ctL=svKER5ynuK3I010Q zO94O`hG|bY`$}Xg66_v>RzL-ST_>nsOtK;^1xYwdpMD}or`1d}sj7)=Qq9pepWZe{ zD_*@4j-^#v=laWLgPKuLL?f1Rsy}`XYXdYYUc|YU`1iw)fZ?DBL_W!-7 zz1UM9+Y{Xjo4V9^N_GBO+pd04aIBcVqFlFO*(X;_UoaMqCu8}0{_BT5kv`SMge;yC3S4=#?|;e@7%at9#qHJ0@dMCe0~^j&68Sk zeguWQy1!8wtQ8#PTUAn7S4Xa@!!dVj?^tnrN)y><>Be-px*O* z-D&)VrQ2o?m)n*i@7Ab*o(8_NKF2#s-$RH>#uQ>Q2?JA6f5m2X?al zZHaE^t+lt;Ut}GR@_jnx^fyw>Yo5mj<)W7=W^oCaI9=H-*GH-&q3fdn;YvT>{Bu%7 zwaGCZ{A9anEa3HO?%u%?+`5vIW}@I8u%H(DsF{?MqhaJrVE}0f`1T6oDu@wuu4yc927ffIT%Q65MTzd)t-+90FlD zA=Ji4$F%32JMU(Q#a%2gg?^g>cOF8CsR3m`AOmUfG_6N8n?uPa!4jP=}i^H*CP%h_QMXHSZCuPUyoj@4`df)2OK0r~64M%9o=^Re|~^;%n>G z4}}u(H{W`Dy?Tr(emTp&X62nxm8@=2UBJn*z&HLiNgYxN-}x8S!M3e`CZW1+Tv3WQ zE~$jV><9(Uk(GDm*_5Z9&Lr%?;~8iw{|Pk{nUK|EaHWFi*KQdYEd@Q?0zBZ0^l11| zdPILq+dWWcu3I8}YU?G@>n3zYI83H;y2eemDVY##?}7hqji#EZq;_!&r7W+hrr`6f zvRiw3;C?U+=;w5r`MX(!8C;RLe}${eNYhG&supW;6KdYt9fMJwlM{t9y(l9h3b@`$ zG`Pv!I5GbqI0EXS~L zWO_S`Ay!P6^ff9UsD-Zw0e;_LyDZp&ul+g`i)r88F&5_Cl^O;2S{S{HY)11Xln3?l zWmzepM_G#(-$d)$P54`gYlnu!9UReFBzUT_BP>VQ$1Zm!w2u$%_W7CtgihtWz!eaA z8tKhuR50wI*C2bj7-9tC@p&knoA3Zn^^l4l+5|mD;sLU@H?pGywF}ZANHk0uy&R$@ z0O&v}5VGbX2FVm!FrN)e=?O-r1g}U^(UeSlqA^h>I)ki3?&NHg#(DbMb0>2uR$znR z8oYqfh?*|#%OSXd5=YZHDW@Ed5-+yPmC@rzB#6(zBp%&BJe~kICo!P+iNJWa50OUA zjG?-NyoCm+DJ6mg39Qj)z_**fABkqe8D&-r4EG-i@Bw;LPDNNv2_l#xKA1|Kfb{Bd zHYbZ5%JCV*6PVOKKkTx20@dp9x6Rf^I}peew1-C?D~b5_={utI#Qbi0fG3o6L_NWd z5aHC#4LCU^omC=HN=_r$*>F;somJ8^T$Vg&qu<%SNh*SLl+KqW5JRg1-;-2^Z+aOA z(dtL|_BXffDFGpp)b*fCR&zNuMJvE7`T)77Z~%{!L_|s^4O$%Jv^YR!5il^pGd7*g zNg3w#@h;y93YdyHB!(IyX<>+hE}VVxBoi`459zq7MD$uq))Ypd3jmV;?15M%2G}o2 zJnFa9LaUpl`p^OoG~WT0@^^Q?V-92aUik+#n}3V*!iLZ5#iC| zT3dtE^Vl{8ZY>5!m*lQUt0n85tD9EL$FHgV9hfPtI_YC3m6vIldY~45CY2AP$Rc?}ytuf+xnjy?)W3zUYzCv>8q-uMV!iP*Vrv5)km>wsd`j&oRV66Ye@xQteJl zt&n2qVlnsZvZu?t*-P_7EAKo^y{I~jh=7!x>c~7XwlELB*pYV3+rE~bx52kp4<=L_ z+sPhUU|Xr|P;HeyNwp;w`Erh0NOd^75OSpHm#VhGT56GD8C#vt-L<+iWak?gsU@&J zo9l&@cRr?$l%Ke!IvJVhx6Jpi{Qfh@s{sCPHVrRmm<}T0SWcx%H%B~(V4pbETk;^w z^sY_;5$w%#AWCc{%Dgb|4YuUnU_b5FE|Cr=Lj_Z(ND1wi}mI zU}_&Me-7-dsU0Bot-wS;3blqRqZ>YBW6+i<>&wsD7p&ko)&PgdmcDr0_LbkKp=$8llN(N zy>F~~=e~b1mjL4wtD$QYsu4X<*Tpfm4PuRvl%XNl+rn0gpPe!T)n|3?Ke*6&o)>|! zauZ_>a5eo%3SA!oQz|rogC*1JGQ(O%;$D^OoviTfP<^B_BG)HEay>3R#bDu4_RGMd zR=$VhvfSg@6gL1j4#4d!XRat6cqGhMWAqs|Ukg8-0MJ%OYstz$s^SdQw=FeZmXoPO zX!|BTd6$qSK5^pR2-MXZlAbMo=89su6tlcq{`yjn#T-*;K2CAaudo-uFq>R6A9hy1b3m|Yn+}OvnVU3y3tZZ&y?SV( zT6y)P$p?8E9{qDL;;?Fu_vR)!4nCL#@)A{3L4j3H}$+n8BuxrEvaN@=jdcet=Bf0O#q@1fSoog4VQYA${~e` z1<4jA-|;M$kuqEz)SLeTt;id(ca-5TORX@+uD|gu`i5e>Q8^r9?;^cjWLjHT2T=!0cKl^jcOmgFro?$F(1$~HBeT?{GtTe(*hJ%Kz3gT5Kb{Ca!QV}Uf{*ezyf;L zWa-Cd>8%&z<5}d7NmiMff_$R6V`(}IA_Q_ebsS>Jb<#Yo_M6Ear|4PITdA0oo}n5F zw%9B~Ta9u6c@qQxlt!~Bt`+d4RNtc)z&SUp2X%h7zj+=(9v)ApaT@!zmBY6V)hCuW zov`0xD-3%std|ayA z;ytczBv+UNs+^)(n$B|0JnyLZ3);UaCr*65{JZ;TtQ}@kQoIW^udsL+DSCYy08qpQ z)y9t!5w02H5d{&bH*6CoAr2P4905RT=G{){$-9*gEKJu&J+c+t9*iG?M?#*2rs{Jl zK@Mbt()#>bDB-#n0&YPkO^&qHkRjQ)PkLWzz=%K<54ueui0Unpd>gP937K}RofNd$ z&|p77B-I>+7*a=GAvxHATun8ZELfbn;?XE3r|Jt<|2Dnb5{AwIYA7Sa!%qj}2|?i( zP8zqpH0q_-6u1TCH=eLNa9irS^@+6GkG`*@;>0?aLOo)qLZgvMrbx{j%*)0N=GA!J zbR~Y>)RABAXuOzT?rcSn>lA8X*R>3p!TWd2$Ib4<<2)u9kuwf#c8X>m)@|G za$kJ8gS8cDQxQ$IVl7@uBTpUAL(A*dpE@nQ<*{XJqvFJuyee0QRd#n$e=`=4_$CKP2+ zXWZ1MGR>p;TF90WhY4^!2pMtPd)%frk6OaSLPS5$av|O6K?H-&*=%Y|M3UH2V+V^t<54PXEc(kmmmf->taqDxXY%UUK}~L zoBnA5ml*v+iq$PKgaDoS=ebyAiHnsAvuO{;K~dJg#j8t>^I;rW_0r;ZxAab@v&IX? z5UqS*P;=NETKH_wPJJ-MGl6KPy_P23+DFgEwX0``%-z~g&K}k-#QVC(@#j7J$?dnJ z({pZ8yXV{>Iv+dte(kT$xlsDmxuCZ5q5UY$Jml5>=%GU>z5LK2?Pm{p&E3^o{@~8e F{|42#K+6CC diff --git a/library/tedit/TEDIT-STREAM b/library/tedit/TEDIT-STREAM index 6134bd72..c5592e9b 100644 --- a/library/tedit/TEDIT-STREAM +++ b/library/tedit/TEDIT-STREAM @@ -1,13 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "28-Mar-2025 18:32:27" {WMEDLEY}TEDIT>TEDIT-STREAM.;872 187180 +(FILECREATED "29-May-2025 19:06:45" {WMEDLEY}tedit>TEDIT-STREAM.;901 191318 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.NTHCHARCODE \TEDIT.TEXTBOUT \TEDIT.RPLCHARCODE) - (VARS TEDIT-STREAMCOMS) + :CHANGES-TO (FNS \TEDIT.OPENTEXTSTREAM.PIECES) - :PREVIOUS-DATE "26-Mar-2025 00:29:46" {WMEDLEY}TEDIT>TEDIT-STREAM.;865) + :PREVIOUS-DATE "26-Apr-2025 12:59:53" {WMEDLEY}tedit>TEDIT-STREAM.;900) (PRETTYCOMPRINT TEDIT-STREAMCOMS) @@ -56,12 +55,13 @@ (FNS \TEDIT.TEXTCLOSEF \TEDIT.TEXTDSPFONT \TEDIT.TEXTEOFP \TEDIT.TEXTGETEOFPTR \TEDIT.TEXTSETEOFPTR \TEDIT.TEXTGETFILEPTR \TEDIT.TEXTSETFILEINFO \TEDIT.TEXTOPENF \TEDIT.TEXTSETEOF \TEDIT.TEXTSETFILEPTR \TEDIT.TEXTDSPXPOSITION \TEDIT.TEXTDSPYPOSITION - \TEDIT.TEXTLEFTMARGIN \TEDIT.TEXTRIGHTMARGIN \TEDIT.TEXTDSPCHARWIDTH + \TEDIT.TEXTLEFTMARGIN \TEDIT.TEXTCOLOR \TEDIT.TEXTRIGHTMARGIN \TEDIT.TEXTDSPCHARWIDTH \TEDIT.TEXTDSPSTRINGWIDTH \TEDIT.TEXTDSPLINEFEED) (* ;; "Access by character") - (FNS \TEDIT.NTHCHARCODE \TEDIT.PIECE.NTHCHARCODE \TEDIT.RPLCHARCODE) + (FNS \TEDIT.NTHCHARCODE \TEDIT.PIECE.NTHCHARCODE \TEDIT.RPLCHARCODE \TEDIT.PIECE.RPLCHARCODE + \TEDIT.NTHCHARLOOKS) (COMS (* ;; "Editing support") @@ -75,7 +75,8 @@  "Deprecated, maybe still external callers") (FNS \TEDIT.INSTALL.PIECE) [COMS (* ; "Support for TEXTPROP") - (FNS TEXTPROP GETTEXTPROP PUTTEXTPROP GETTEXTPROPS PUTTEXTPROPS \TEDIT.TEXTPROP) + (FNS TEXTPROP GETTEXTPROP PUTTEXTPROP GETTEXTPROPS PUTTEXTPROPS TEXTPROP.ADD + \TEDIT.TEXTPROP) (FNS \TEDIT.TEXTOBJ.PROPNAMES \TEDIT.TEXTOBJ.PROPFETCHFN \TEDIT.TEXTOBJ.PROPSTOREFN) (* ; "For TEXTOBJ inspection") (DECLARE%: DONTCOPY (* ; "Only if the declaration is loaded") @@ -134,124 +135,125 @@ (freplace (PIECE PCHARLOOKS) of DATUM with NEWVALUE] PFPOS _ 0 PLEN _ 0 PBYTELEN _ 0 PPARALOOKS _ TEDIT.DEFAULT.FMTSPEC) -(DATATYPE TEXTOBJ - ( - (* ;; +(DATATYPE TEXTOBJ ( + (* ;;  "This is where TEdit stores its state information, and internal data about the text being edited.") - PCTB (* ; "The piece table") - TEXTLEN (* ; "# of chars in the text") - PRIMARYPANE (* ; "A sequence of panes (split subwindows) that are open on this document. Was INSERTPC: The string-piece that received the last insertion. Now HINTPC") - SUFFIXPIECE (* ; + PCTB (* ; "The piece table") + TEXTLEN (* ; "# of chars in the text") + PRIMARYPANE (* ; "A sequence of panes (split subwindows) that are open on this document. Was INSERTPC: The string-piece that received the last insertion. Now HINTPC") + SUFFIXPIECE (* ;  "The last (end-of-stream) piece of the textstream, for easy insertion at the end") - CHARFN (* ; + CHARFN (* ;  "Was: INSERTNEXTCH CH# of next char which is typed into that piece. Taken over by HINTPCSTARTCH#") - HINTPC (* ; + HINTPC (* ;  "Was: Space left in the type-in piece") - HINTPCSTARTCH# (* ; + HINTPCSTARTCH# (* ;  "Was # of characters already in the piece.") - INSERTSTRING (* ; + INSERTSTRING (* ;  "A substring of storage that is available for an insertion.") - TXTHISTORYUNDONE (* ; "Events that result from undoing other events, for revoking the UNDO. Was: CH# of first char in the piece.") - (NIL FLAG) (* ; " Was \INSERTPCVALID. T if it's OK to use the cached piece. Set to NIL by people who require that the next insertion/deletion use a different piece. Now just set HINTPC to NIL.") - (TXTREADONLYQUIET FLAG) (* ; + TXTHISTORYUNDONE (* ; "Events that result from undoing other events, for revoking the UNDO. Was: CH# of first char in the piece.") + (NIL FLAG) (* ; " Was \INSERTPCVALID. T if it's OK to use the cached piece. Set to NIL by people who require that the next insertion/deletion use a different piece. Now just set HINTPC to NIL.") + (TXTREADONLYQUIET FLAG) (* ;  "T => don't print READONLY abort messages") - PARABREAKCHARS (* ; "Characters that cause a paragraph break.Was \WINDOW. The window-pane where this textobj is displayed. Now chained through PRIMARYPANE") - MOUSEREGION (* ; + PARABREAKCHARS (* ; "Characters that cause a paragraph break.Was \WINDOW. The window-pane where this textobj is displayed. Now chained through PRIMARYPANE") + MOUSEREGION (* ;  "Section of the window the mouse is in.") - LOOPFN (* ; "Was: A list of lines (parallel to the panes in \WINDOW) each of which is the top of chain of line descriptors for the part of the text that is visible in the corresponding pane. Now: each PANE has its own PLINES.") - DS (* ; + LOOPFN (* ; "Was: A list of lines (parallel to the panes in \WINDOW) each of which is the top of chain of line descriptors for the part of the text that is visible in the corresponding pane. Now: each PANE has its own PLINES.") + DS (* ;  "NOTE: THIS IS ONLY USED INCORRECTLY BY TEDIT-CHAT Display stream where this textobj is displayed") - SEL (* ; + SEL (* ;  "The current selection within the text") - LASTARROWX (* ; + LASTARROWX (* ;  "X for next arrow up or arrow down. Was: Scratch space for the selection code") - NIL (* ; + NIL (* ;  "Was MOVESEL: Source for the next MOVE of text") - NIL (* ; + NIL (* ;  "Was SHIFTEDSEL: Source for the next COPY") - NIL (* ; + NIL (* ;  "Was DELETESEL: Text to be deleted imminently") - WRIGHT (* ; - "Right edge of the window (or subregion) where this is displayed") - WTOP (* ; "Top of the window/region") - WBOTTOM (* ; "Bottom of the window/region") - WLEFT (* ; "Left edge of the window/region") - TXTFILE (* ; + NIL (* ; + "Was WRIGHT: Right edge of the window (or subregion) where this is displayed") + WTOP (* ; "Top of the window/region") + NIL (* ; + "Was WBOTTOM: Bottom of the window/region") + NIL (* ; + "Was WLEFT: Left edge of the window/region") + TXTFILE (* ;  "The original text file we're editing") - (\XDIRTY FLAG) (* ; "T => changed since last saved.") - (STREAMHINT FULLXPOINTER) (* ; + (\XDIRTY FLAG) (* ; "T => changed since last saved.") + (STREAMHINT FULLXPOINTER) (* ;  "-> the TEXTOFD stream which gives access to this textobj") - EDITFINISHEDFLG (* ; + EDITFINISHEDFLG (* ;  "T => The guy has asked the editor to go way") - NIL (* ; + NIL (* ;  "Was CARET: Describes the flashing caret for the editing window") - CARETLOOKS (* ; + CARETLOOKS (* ;  "Font to be used for inserted text.") - WINDOWTITLE (* ; + WINDOWTITLE (* ;  "Original title for this window, of there was one.") - THISLINE (* ; + THISLINE (* ;  "Cache of line-related info, to speed up selection &c") - (MENUFLG FLAG) (* ; + (MENUFLG FLAG) (* ;  "T if this TEXTOBJ is a tedit-style menu") - DEFAULTPARALOOKS (* ; + DEFAULTPARALOOKS (* ;  "Default Formatting Spec to be used when formatting paragraphs") - (FORMATTEDP FLAG) (* ; + (FORMATTEDP FLAG) (* ;  "Flag for paragraph formatting. T if this document is to contain paragraph formatting information.") - (TXTREADONLY FLAG) (* ; + (TXTREADONLY FLAG) (* ;  "This is only available for shift selection.") - (TXTEDITING FLAG) (* ; "T => This document is in a window and there is an edit process behind it. For example, it only makes sense to have a caret show up if you are editing.") - (TXTNOTSPLITTABLE FLAG) (* ; "Can't split into panes, split-region not show. Was TXTNONSCHARS: T => If TEdit rns into a 255, it won't attempt to convert to NS characters. Used for REALLY plain-text manipulation.") - TXTTERMSA (* ; + (TXTEDITING FLAG) (* ; "T => This document is in a window and there is an edit process behind it. For example, it only makes sense to have a caret show up if you are editing.") + (TXTNOTSPLITTABLE FLAG) (* ; "Can't split into panes, split-region not show. Was TXTNONSCHARS: T => If TEdit rns into a 255, it won't attempt to convert to NS characters. Used for REALLY plain-text manipulation.") + TXTTERMSA (* ;  "Special instructions for displaying characters on the screen") - EDITOPACTIVE (* ; + EDITOPACTIVE (* ;  "T if there is an editing operation in progress. Used to interlock the TEdit menu") - DEFAULTCHARLOOKS (* ; "The default character looks -- if any -- to be applied to characters coming into the file from outside.") - TXTRTBL (* ; + DEFAULTCHARLOOKS (* ; "The default character looks -- if any -- to be applied to characters coming into the file from outside.") + TXTRTBL (* ;  "The READTABLE to be used by the command loop for command dispatch") - TXTWTBL (* ; + TXTWTBL (* ;  "The READTABLE to be used to decide on word breaks") - EDITPROPS (* ; + EDITPROPS (* ;  "The PROPS that were passed into this edit session") - (BLUEPENDINGDELETE FLAG) (* ; "T if the next insertion in this document is to be preceded by a deletion of the then-current selection") - (TXTHISTORYINACTIVE FLAG) (* ; + (BLUEPENDINGDELETE FLAG) (* ; "T if the next insertion in this document is to be preceded by a deletion of the then-current selection") + (TXTHISTORYINACTIVE FLAG) (* ;  "T if history events are not recorded (e.g. for transcript files)") - TXTHISTORY (* ; + TXTHISTORY (* ;  "The history list for this edit session.") - (SELPANE FULLXPOINTER) (* ; + (SELPANE FULLXPOINTER) (* ;  "The pane in which the last 'real' selection got made for this edit; used by TEDIT.NORMALIZECAREET") - PROMPTWINDOW (* ; + PROMPTWINDOW (* ;  "A window to be used for unscheduled interactions; normally a small window above the edit window") - DISPLAYCACHE (* ; + DISPLAYCACHE (* ;  "The bitmap to be used when building the image of a line for display") - DISPLAYCACHEDS (* ; + DISPLAYCACHEDS (* ;  "The DISPLAYSTREAM that is used to build line images") - DISPLAYHCPYDS (* ; "The DISPLAYSTREAM used to build line images of lines that are displayed in 'hardcopy' simulation mode") - TXTPAGEFRAMES (* ; + DISPLAYHCPYDS (* ; "The DISPLAYSTREAM used to build line images of lines that are displayed in 'hardcopy' simulation mode") + TXTPAGEFRAMES (* ;  "A tree of page frames, specifying how the document is to be laid out.") - TXTCHARLOOKSLIST (* ; + TXTCHARLOOKSLIST (* ;  "List of all the CHARLOOKSs in the document, so they can be kept unique") - TXTPARALOOKSLIST (* ; + TXTPARALOOKSLIST (* ;  "List of all the PARALOOKS in the document, so they can be kept unique") - (TXTAPPENDONLY FLAG) (* ; "Allows updates only at the end of the stream. Was TXTNEEDSUPDATE: T => Screen invalid, need to run updater") - (TXTDON'TUPDATE FLAG) (* ; "T if we're holding off on screen updates until later. Used, e.g., by the menu-SHOW code so that you don't get piecemeal updates, but only one at the end of the SHOW.") - TXTRAWINCLUDESTREAM (* ; + (TXTAPPENDONLY FLAG) (* ; "Allows updates only at the end of the stream. Was TXTNEEDSUPDATE: T => Screen invalid, need to run updater") + (TXTDON'TUPDATE FLAG) (* ; "T if we're holding off on screen updates until later. Used, e.g., by the menu-SHOW code so that you don't get piecemeal updates, but only one at the end of the SHOW.") + TXTRAWINCLUDESTREAM (* ;  "NODIRCORE stream used to cache RAW includes (and maybe later, all includes?)") - DOCPROPS (* ; + DOCPROPS (* ;  "Document properties that are stored with the document (not used yet)") - TXTSTYLESHEET (* ; + TXTSTYLESHEET (* ;  "Style sheet local to this document. Not currently saved as part of the file.") - ) - [ACCESSFNS TEXTOBJ ((\DIRTY (ffetch (TEXTOBJ \XDIRTY) of DATUM) - (PROGN (FSETTOBJ DATUM LASTARROWX NIL) - (CL:UNLESS (EQ NEWVALUE (ffetch (TEXTOBJ \XDIRTY) - of DATUM)) - (\TEDIT.WINDOW.TITLE DATUM NEWVALUE) - (freplace \XDIRTY OF DATUM WITH NEWVALUE))] - SEL _ (create SELECTION) - TEXTLEN _ 0 WRIGHT _ 0 WTOP _ 0 WLEFT _ 0 WBOTTOM _ 0 MOUSEREGION _ 'TEXT THISLINE _ - (create THISLINE) - DEFAULTPARALOOKS _ TEDIT.DEFAULT.FMTSPEC PARABREAKCHARS _ (CHARCODE (EOL FORM LF CR))) + ) + [ACCESSFNS TEXTOBJ ((\DIRTY (ffetch (TEXTOBJ \XDIRTY) of DATUM) + (PROGN (FSETTOBJ DATUM LASTARROWX NIL) + (CL:UNLESS (EQ NEWVALUE (ffetch (TEXTOBJ \XDIRTY) + of DATUM)) + (\TEDIT.WINDOW.TITLE DATUM NEWVALUE) + (freplace \XDIRTY OF DATUM WITH NEWVALUE))] + SEL _ (create SELECTION) + TEXTLEN _ 0 WTOP _ 0 MOUSEREGION _ 'TEXT THISLINE _ (create THISLINE) + DEFAULTPARALOOKS _ TEDIT.DEFAULT.FMTSPEC PARABREAKCHARS _ + (CHARCODE (EOL FORM LF CR))) (ACCESSFNS TEXTSTREAM ( @@ -498,8 +500,8 @@ (PUTPROPS TEXTLEN MACRO ((TOBJ) (ffetch (TEXTOBJ TEXTLEN) of TOBJ))) -(PUTPROPS TEXTSEL MACRO ((TOBJ) - (fetch (TEXTOBJ SEL) of TOBJ))) +(PUTPROPS TEXTSEL MACRO ((TEXTOBJ) + (SELECTION! (GETTOBJ TEXTOBJ SEL)))) (PUTPROPS TEXTOBJ! MACRO ((TOBJ) (\DTEST TOBJ 'TEXTOBJ))) @@ -1024,7 +1026,8 @@ (\TEDIT.THELP "UNKNOWN PIECE TYPE")))]) (\TEDIT.TEXTBOUT - [LAMBDA (TSTREAM CHAR) (* ; "Edited 28-Mar-2025 10:13 by rmk") + [LAMBDA (TSTREAM CHAR) (* ; "Edited 20-Apr-2025 13:24 by rmk") + (* ; "Edited 28-Mar-2025 10:13 by rmk") (* ; "Edited 17-Nov-2024 10:05 by rmk") (* ; "Edited 6-Sep-2024 13:06 by rmk") (* ; "Edited 27-Aug-2024 14:50 by rmk") @@ -1057,7 +1060,7 @@ (CL:UNLESS (OR (\CHARCODEP CHAR) (IMAGEOBJP CHAR)) (\ILLEGAL.ARG CHAR)) - (PROG [(TEXTOBJ (GETTSTR TSTREAM TEXTOBJ)) + (PROG [(TEXTOBJ (FTEXTOBJ TSTREAM)) (CHNO (ADD1 (\TEDIT.TEXTGETFILEPTR TSTREAM] (CL:WHEN [OR (FGETTOBJ TEXTOBJ TXTREADONLY) (AND (FGETTOBJ TEXTOBJ TXTAPPENDONLY) @@ -1071,7 +1074,7 @@ elseif (AND (\TEDIT.INSERTCH CHAR CHNO TEXTOBJ (MEMB CHAR (FGETTOBJ TEXTOBJ PARABREAKCHARS))) (\TEDIT.PRIMARYPANE TEXTOBJ)) - then (\TEDIT.UPDATE.LINES TEXTOBJ 'INSERTION CHNO 1)) + then (\TEDIT.UPDATE.LINES TSTREAM 'INSERTION CHNO 1)) (* ;; ";; We inserted 1 char. Whether or not we introduced a new piece or extended an old one, we want to be positioned so that the next BOUT will insert after this one (if nothing else is changed). Do this after potential redisplay, in case the BINS in reformatting change the position.") @@ -1211,19 +1214,21 @@ (\TEDIT.TEXTBACKFILEPTR STREAM]) (\TEDIT.TEXTFORMATBYTESTREAM - [LAMBDA (STREAM BYTESTREAM) (* ; "Edited 21-Oct-2024 00:26 by rmk") + [LAMBDA (STREAM BYTESTREAM) (* ; "Edited 24-Apr-2025 23:49 by rmk") + (* ; "Edited 21-Oct-2024 00:26 by rmk") (* ; "Edited 19-Mar-2024 16:13 by rmk") (* ; "Edited 24-Jun-2021 16:47 by rmk:") - (* ;; "BYTESTREAM might come in with a textstream external format, but that's presumably a mistake. If STREAM is a text stream, then it traffics in XCCS characters, it's format should be relatively vanilla.") + (* ;; "BYTESTREAM might come in with a textstream external format, but that's presumably a mistake. If STREAM is a text stream, then it traffics in MCCS characters, it's format should be relatively vanilla.") - (\TEDIT.THELP) + (\TEDIT.THELP "TEXT FORMATBYTESTREAM?") (REPLACE (STREAM CHARSET) OF BYTESTREAM WITH (FETCH (STREAM CHARSET) OF STREAM]) (\TEDIT.TEXTFORMATBYTESTRING - [LAMBDA (TSTREAM STRING SCRATCHSTREAM) (* ; "Edited 19-Mar-2024 18:22 by rmk") + [LAMBDA (TSTREAM STRING SCRATCHSTREAM) (* ; "Edited 24-Apr-2025 23:50 by rmk") + (* ; "Edited 19-Mar-2024 18:22 by rmk") - (* ;; "The FORMATBYTESTRINGFN for Text streams. STRING is presumably in internal XCCS character codes, and those are the codes that TSTREAM will match against, independent of however its backing stream characters might be encoded. So we can just return STRING") + (* ;; "The FORMATBYTESTRINGFN for Text streams. STRING is presumably in internal MCCS character codes, and those are the codes that TSTREAM will match against, independent of however its backing stream characters might be encoded. So we can just return STRING") (MKSTRING STRING]) ) @@ -1366,7 +1371,8 @@ TSTREAM))]) (COPYTEXTSTREAM - [LAMBDA (ORIGINAL CROSSCOPY) (* ; "Edited 8-Feb-2025 20:10 by rmk") + [LAMBDA (ORIGINAL CROSSCOPY) (* ; "Edited 21-Apr-2025 23:48 by rmk") + (* ; "Edited 8-Feb-2025 20:10 by rmk") (* ; "Edited 12-Jan-2025 12:16 by rmk") (* ; "Edited 17-Mar-2024 12:41 by rmk") (* ; "Edited 16-Mar-2024 10:03 by rmk") @@ -1383,29 +1389,29 @@ (* ;; "Given a stream, textobj or window, returns a new textstream with the same contents. CROSSCOPY is a documented argument, but it doesn't control what happens. It is supposed to force a copy of a file piece to a new underlying source (a string or nodircore piece), so that there is no sharing between the original and the copy so that future edits in one stream are independent and safe even if the original file is deleted or modified by operations on the other stream. But edit operations don't change the source file until the file is saved, and tne you get a new version anyway. In any event, CROSSCOPY is T in all calls within TEDIT (e.g. for installing edit menus).") - (LET ((TEXTOBJ (TEXTOBJ ORIGINAL)) - NEWSTREAM NEWTEXTOBJ) (* ; + (LET* ((TSTREAM (TEXTSTREAM ORIGINAL)) + (TEXTOBJ (FTEXTOBJ TSTREAM)) + [NEWSTREAM (OPENTEXTSTREAM NIL NIL NIL NIL (COPY (FGETTOBJ TEXTOBJ EDITPROPS] + (NEWTEXTOBJ (FTEXTOBJ NEWSTREAM))) (* ;  "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 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 DEFAULTPARALOOKS (FGETTOBJ TEXTOBJ DEFAULTPARALOOKS)) - (FSETTOBJ NEWTEXTOBJ TXTRTBL (FGETTOBJ TEXTOBJ TXTRTBL)) - (FSETTOBJ NEWTEXTOBJ TXTWTBL (FGETTOBJ TEXTOBJ TXTWTBL)) - (FSETTOBJ NEWTEXTOBJ TXTSTYLESHEET (FGETTOBJ TEXTOBJ TXTSTYLESHEET)) - (FSETTOBJ NEWTEXTOBJ TXTPAGEFRAMES (FGETTOBJ TEXTOBJ TXTPAGEFRAMES)) - (FSETTOBJ NEWTEXTOBJ TXTPARALOOKSLIST (FGETTOBJ TEXTOBJ TXTPARALOOKSLIST)) - (FSETTOBJ NEWTEXTOBJ TXTCHARLOOKSLIST (FGETTOBJ TEXTOBJ TXTCHARLOOKSLIST)) - (FSETTOBJ NEWTEXTOBJ MENUFLG (FGETTOBJ TEXTOBJ MENUFLG)) - NEWSTREAM]) + (for PC NEWPC inpieces (\TEDIT.FIRSTPIECE TEXTOBJ) + do (SETQ NEWPC (\TEDIT.COPYPIECE PC TSTREAM NEWSTREAM 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 DEFAULTPARALOOKS (FGETTOBJ TEXTOBJ DEFAULTPARALOOKS)) + (FSETTOBJ NEWTEXTOBJ TXTRTBL (FGETTOBJ TEXTOBJ TXTRTBL)) + (FSETTOBJ NEWTEXTOBJ TXTWTBL (FGETTOBJ TEXTOBJ TXTWTBL)) + (FSETTOBJ NEWTEXTOBJ TXTSTYLESHEET (FGETTOBJ TEXTOBJ TXTSTYLESHEET)) + (FSETTOBJ NEWTEXTOBJ TXTPAGEFRAMES (FGETTOBJ TEXTOBJ TXTPAGEFRAMES)) + (FSETTOBJ NEWTEXTOBJ TXTPARALOOKSLIST (FGETTOBJ TEXTOBJ TXTPARALOOKSLIST)) + (FSETTOBJ NEWTEXTOBJ TXTCHARLOOKSLIST (FGETTOBJ TEXTOBJ TXTCHARLOOKSLIST)) + (FSETTOBJ NEWTEXTOBJ MENUFLG (FGETTOBJ TEXTOBJ MENUFLG)) + NEWSTREAM]) (TEDIT.STREAMCHANGEDP [LAMBDA (STREAM RESET?) (* ; "Edited 31-May-91 13:57 by jds") @@ -1445,7 +1451,10 @@ TSTREAM]) (\TEDIT.OPENTEXTSTREAM.PIECES - [LAMBDA (TEXT TSTREAM START END PROPS) (* ; "Edited 26-Sep-2024 22:27 by rmk") + [LAMBDA (TEXT TSTREAM START END PROPS) (* ; "Edited 29-May-2025 19:02 by rmk") + (* ; "Edited 26-Apr-2025 12:59 by rmk") + (* ; "Edited 24-Apr-2025 17:09 by rmk") + (* ; "Edited 26-Sep-2024 22:27 by rmk") (* ; "Edited 20-Mar-2024 10:58 by rmk") (* ; "Edited 27-Dec-2023 13:33 by rmk") (* ; "Edited 23-Oct-2023 13:47 by rmk") @@ -1494,6 +1503,9 @@ elseif (\TEDIT.GET.FORMATTED.FILE TEXT TSTREAM START END PROPS) elseif (\TEDIT.GET.FOREIGN.FILE TEXT TSTREAM START END PROPS) else (\TEDIT.GET.UNFORMATTED.FILE TEXT TSTREAM START END)) + (CL:WHEN NIL + (EQ :XCCS (STREAMPROP TEXT 'FORMAT)) (* ; "XCCS was read as MCCS") + (\TEDIT.CONVERT.MCCSTOXCCS TSTREAM)) (FSETTOBJ TEXTOBJ TXTREADONLY READONLY) (FSETTOBJ TEXTOBJ TXTHISTORY NIL) (FSETTOBJ TEXTOBJ TXTHISTORYUNDONE NIL) @@ -1518,7 +1530,9 @@ (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS TEXTOBJ]) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL - [LAMBDA (TSTREAM) (* ; "Edited 17-Feb-2025 08:56 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 21-Apr-2025 20:14 by rmk") + (* ; "Edited 6-Apr-2025 14:24 by rmk") + (* ; "Edited 17-Feb-2025 08:56 by rmk") (* ; "Edited 25-Nov-2024 14:33 by rmk") (* ; "Edited 20-Nov-2024 23:56 by rmk") (* ; "Edited 29-Sep-2024 10:51 by rmk") @@ -1537,13 +1551,13 @@ (* ;; "This sets up the initial SEL for TEXTOBJ according to the SEL PROPS entry. If SELPROP is NIL, the default is 1-0-LEFT--just before the first character. This doesn't show the selection--this stream may not yet have a window.") - (LET* ((TEXTOBJ (GETTSTR TSTREAM TEXTOBJ)) + (LET* ((TEXTOBJ (FTEXTOBJ TSTREAM)) (SEL (TEXTSEL TEXTOBJ)) SELPROP) (CL:UNLESS (AND SEL (GETSEL SEL SET)) (SETQ SELPROP (GETTEXTPROP TEXTOBJ 'SEL)) (FSETSEL SEL SET T) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ) + (\TEDIT.NOSEL TSTREAM) (CL:UNLESS (EQ SELPROP 'DON'T) (FSETSEL SEL SELKIND 'CHAR) (* ; "Default, maybe reset below") (if (type? SELECTION SELPROP) @@ -1554,12 +1568,12 @@ then (* ;; "Default to POINT selection") + (FSETSEL SEL SELKIND 'CHAR) (\TEDIT.UPDATE.SEL SEL (CAR SELPROP) (OR (CADR SELPROP) 0) (OR (CADDR SELPROP) 'LEFT)) - (FSETSEL SEL SELKIND 'CHAR) elseif (FIXP SELPROP) then (\TEDIT.UPDATE.SEL SEL SELPROP 0 'LEFT) elseif (FGETTOBJ TEXTOBJ TXTAPPENDONLY) @@ -1585,12 +1599,14 @@ (* ;  "Don't blink for read-only, but do highlighting") (FSETSEL SEL HASCARET NIL)) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.SHOWSEL SEL T TEXTOBJ))) + (\TEDIT.SHOWSEL SEL T TSTREAM))) SEL]) (\TEDIT.OPENTEXTSTREAM.WINDOW - [LAMBDA (WINDOW TSTREAM PROPS) (* ; "Edited 21-Nov-2024 00:18 by rmk") + [LAMBDA (WINDOW TSTREAM PROPS) (* ; "Edited 21-Apr-2025 20:14 by rmk") + (* ; "Edited 6-Apr-2025 14:25 by rmk") + (* ; "Edited 5-Apr-2025 13:10 by rmk") + (* ; "Edited 21-Nov-2024 00:18 by rmk") (* ; "Edited 1-Sep-2024 09:06 by rmk") (* ; "Edited 28-Jun-2024 23:06 by rmk") (* ; "Edited 16-Jun-2024 15:40 by rmk") @@ -1605,16 +1621,12 @@ (* ;; "Associates WINDOW with TSTREAM. Brute force, doesn't let this window stuff change the fileptr. Maybe should unsplit all panes if WINDOW is split.") - (LET ((TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM)) (FILEPTR (\TEDIT.TEXTGETFILEPTR TSTREAM))) [if WINDOW then (\TEDIT.WINDOW.SETUP WINDOW TSTREAM PROPS) - (\TEDIT.SHOWSEL (FGETTOBJ TEXTOBJ SEL) - NIL TEXTOBJ) - (\TEDIT.FIXSEL (FGETTOBJ TEXTOBJ SEL) - TEXTOBJ) - (\TEDIT.SHOWSEL (FGETTOBJ TEXTOBJ SEL) - T TEXTOBJ) + (\TEDIT.NOSEL TSTREAM) + (\TEDIT.SHOWSEL NIL T TSTREAM) (CL:WHEN (FGETTOBJ TEXTOBJ TXTREADONLY) (for PANE inpanes TEXTOBJ do (\TEDIT.UPCARET (GETPANEPROP (PANEPROPS PANE) PCARET)))) @@ -1754,7 +1766,8 @@ NEWSTREAM]) (\TEDIT.TEXTINIT - [LAMBDA NIL (* ; "Edited 4-Sep-2024 22:05 by rmk") + [LAMBDA NIL (* ; "Edited 15-Apr-2025 23:10 by rmk") + (* ; "Edited 4-Sep-2024 22:05 by rmk") (* ; "Edited 22-May-2024 14:53 by rmk") (* ; "Edited 19-Mar-2024 18:16 by rmk") (* ; "Edited 17-Mar-2024 12:25 by rmk") @@ -1788,7 +1801,7 @@ (* ;; "(FW8 WORD)") - [SETQ \TEXTIMAGEOPS (create IMAGEOPS + (SETQ \TEXTIMAGEOPS (create IMAGEOPS IMAGETYPE _ 'TEXT IMXPOSITION _ (FUNCTION \TEDIT.TEXTDSPXPOSITION) IMYPOSITION _ (FUNCTION \TEDIT.TEXTDSPYPOSITION) @@ -1800,7 +1813,8 @@ IMLINEFEED _ (FUNCTION \TEDIT.TEXTDSPLINEFEED) IMCHARWIDTH _ (FUNCTION \TEDIT.TEXTDSPCHARWIDTH) IMSTRINGWIDTH _ (FUNCTION \TEDIT.TEXTDSPSTRINGWIDTH) - IMSCALE _ (FUNCTION (LAMBDA NIL 1] + IMSCALE _ [FUNCTION (LAMBDA NIL 1] + IMCOLOR _ (FUNCTION \TEDIT.TEXTCOLOR))) (FONTPROFILE.ADDDEVICE 'TEXT 'DISPLAY) (ADDTOVAR IMAGESTREAMTYPES (TEXT (FONTCREATE \CREATEDISPLAYFONT) (FONTSAVAILABLE \SEARCHDISPLAYFONTFILES) @@ -1965,15 +1979,17 @@ TEXTLEN]) (\TEDIT.TEXTSETEOFPTR - [LAMBDA (TSTREAM LEN) (* ; "Edited 25-Nov-2024 20:13 by rmk") + [LAMBDA (TSTREAM LEN) (* ; "Edited 20-Apr-2025 23:44 by rmk") + (* ; "Edited 6-Apr-2025 12:29 by rmk") + (* ; "Edited 25-Nov-2024 20:13 by rmk") (* ; "Edited 7-Jul-2024 11:43 by rmk") (* ; "Edited 23-May-2024 08:33 by rmk") (* ;; "Eliminate all trailing bytes so the file contains the first LEN characters") - (LET* ((TEXTOBJ (GETTSTR TSTREAM TEXTOBJ)) - (TEXTLEN (FGETTOBJ TEXTOBJ TEXTLEN)) - (SEL (FGETTOBJ TEXTOBJ SEL)) + (LET* ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (TEXTLEN (TEXTLEN TEXTOBJ)) + (SEL (TEXTSEL TEXTOBJ)) (TAILSEL (\TEDIT.COPYSEL SEL))) (CL:UNLESS (IGEQ LEN TEXTLEN) (RESETLST @@ -1982,8 +1998,8 @@ (FSETTOBJ TEXTOBJ TXTAPPENDONLY NIL) (\TEDIT.UPDATE.SEL TAILSEL (ADD1 LEN) (IDIFFERENCE TEXTLEN LEN)) - (\TEDIT.FIXSEL SEL TEXTOBJ) - (\TEDIT.DELETE TEXTOBJ TAILSEL)))]) + (\TEDIT.FIXSEL SEL TSTREAM) + (\TEDIT.DELETE TSTREAM TAILSEL)))]) (\TEDIT.TEXTGETFILEPTR [LAMBDA (TSTREAM) (* ; "Edited 7-Feb-2025 08:12 by rmk") @@ -2063,7 +2079,8 @@ (replace (STREAM EOFFSET) of TSTREAM with (fetch (BYTEPTR OFFSET) of EOFPTR]) (\TEDIT.TEXTSETFILEPTR - [LAMBDA (TSTREAM FILEPOS) (* ; "Edited 20-Mar-2024 10:58 by rmk") + [LAMBDA (TSTREAM FILEPOS) (* ; "Edited 20-Apr-2025 00:02 by rmk") + (* ; "Edited 20-Mar-2024 10:58 by rmk") (* ; "Edited 17-Mar-2024 00:27 by rmk") (* ; "Edited 23-Dec-2023 12:14 by rmk") (* ; "Edited 22-Oct-2023 16:14 by rmk") @@ -2075,7 +2092,7 @@ (* ;; "FILEPOS is known to be a positive number. For other filedevices there is no error if the ptr is set beyond the EOF, and GETFILEPTR will return the new position. But the length of an input file doesn't change and a BIN at any position after the EOF causes the error. An output file grows. Filepos is a %"byte%" position, have to add 1 to get to the notion of character in a Tedit selection.") - (LET ((TEXTOBJ (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM))) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM)) START-OF-PIECE PC CH#) (DECLARE (SPECVARS START-OF-PIECE)) (CL:WHEN (IGREATERP FILEPOS (FGETTOBJ TEXTOBJ TEXTLEN)) @@ -2128,8 +2145,21 @@ DEFAULTPARALOOKS) LEFTMAR]) +(\TEDIT.TEXTCOLOR + [LAMBDA (TSTREAM VALUE) (* ; "Edited 22-Apr-2025 15:48 by rmk") + (* ; "Edited 15-Apr-2025 16:59 by rmk") + + (* ;; "Changes the caret looks, not the document") + + (LET ((CARETLOOKS (FGETTOBJ (FTEXTOBJ TSTREAM) + CARETLOOKS))) + (PROG1 (FGETCLOOKS CARETLOOKS CLCOLOR) + (CL:WHEN (AND VALUE (NEQ VALUE (FGETCLOOKS CARETLOOKS CLCOLOR))) + [TEDIT.CARETLOOKS TSTREAM `(COLOR ,VALUE]))]) + (\TEDIT.TEXTRIGHTMARGIN - [LAMBDA (TSTREAM XPOSITION) (* ; "Edited 19-Feb-2025 13:39 by rmk") + [LAMBDA (TSTREAM XPOSITION) (* ; "Edited 19-Apr-2025 22:24 by rmk") + (* ; "Edited 19-Feb-2025 13:39 by rmk") (* ; "Edited 8-Feb-2025 22:35 by rmk") (* ; "Edited 28-Jun-2024 22:07 by rmk") (* ; "Edited 21-Sep-2023 12:38 by rmk") @@ -2151,7 +2181,7 @@ (RIGHTMAR (FGETPLOOKS PARALOOKS RIGHTMAR)) LEFTMAR NEWPOS) (CL:WHEN (ZEROP RIGHTMAR) - (SETQ RIGHTMAR (FGETTOBJ TEXTOBJ WRIGHT))) + (SETQ RIGHTMAR (PANERIGHT (FGETTOBJ TEXTOBJ PRIMARYPANE)))) (CL:WHEN (AND XPOSITION (NEQ XPOSITION RIGHTMAR)) (* ; "Changing the default PARALOOKS") (SETQ LEFTMAR (FGETPLOOKS PARALOOKS LEFTMAR)) @@ -2204,7 +2234,8 @@ (DEFINEQ (\TEDIT.NTHCHARCODE - [LAMBDA (TSTREAM N) (* ; "Edited 28-Mar-2025 18:31 by rmk") + [LAMBDA (TSTREAM N) (* ; "Edited 24-Apr-2025 16:03 by rmk") + (* ; "Edited 28-Mar-2025 18:31 by rmk") (* ; "Edited 7-Jul-2024 11:09 by rmk") (* ; "Edited 29-Apr-2024 13:06 by rmk") (* ; "Edited 17-Mar-2024 00:27 by rmk") @@ -2219,12 +2250,13 @@ (DECLARE (SPECVARS START-OF-PIECE)) (CL:WHEN (AND (IGEQ N 1) (ILEQ N (FGETTOBJ TEXTOBJ TEXTLEN))) - (\TEDIT.PIECE.NTHCHARCODE TEXTOBJ (\TEDIT.CHTOPC N TEXTOBJ T) + (\TEDIT.PIECE.NTHCHARCODE (\TEDIT.CHTOPC N TEXTOBJ T) (IDIFFERENCE (ADD1 N) START-OF-PIECE)))]) (\TEDIT.PIECE.NTHCHARCODE - [LAMBDA (TEXTOBJ PC OFFSET) (* ; "Edited 21-Oct-2024 00:26 by rmk") + [LAMBDA (PC OFFSET) (* ; "Edited 24-Apr-2025 16:04 by rmk") + (* ; "Edited 21-Oct-2024 00:26 by rmk") (* ; "Edited 29-Apr-2024 08:46 by rmk") (* ; "Edited 22-Mar-2024 00:02 by rmk") (* ; "Edited 1-Feb-2024 09:55 by rmk") @@ -2280,105 +2312,128 @@ (\TEDIT.THELP '\TEDIT.PIECE.NTHCHARCODE])]) (\TEDIT.RPLCHARCODE - [LAMBDA (TSTREAM N NEWCHARCODE NEWCHARLOOKS DONTDISPLAY) (* ; "Edited 28-Mar-2025 10:04 by rmk") + [LAMBDA (TSTREAM N NEWCHARCODE NEWCHARLOOKS DONTDISPLAY) (* ; "Edited 24-Apr-2025 17:24 by rmk") + (* ; "Edited 20-Apr-2025 13:25 by rmk") + (* ; "Edited 28-Mar-2025 10:04 by rmk") - (* ;; "Replaces the Nth charcode (or object) in TSTREAM with NEWCHARCODE (or object) with NEWCHARLOOKS. This is accomplished by isolating the target character into a length 1 piece, then converting that into a string (or object) piece containing NEWCHAR.") + (* ;; "Replaces the Nth charcode (or object) in TSTREAM with NEWCHARCODE (or object) with NEWCHARLOOKS. ") (* ;; "If DONTDISPLAY, this doesn't update the display. ") (* ;; "NOTE: this may introduce new pieces, so must be used carefully with other piece-based or BIN-based iterations.") - (SETQ TSTREAM (TEXTSTREAM TSTREAM)) (CL:UNLESS (\TEDIT.READONLY TSTREAM) - (PROG ((TEXTOBJ (TEXTOBJ! (GETTSTR TSTREAM TEXTOBJ))) - PC OFFSET START-OF-PIECE OLDCHAR PARALAST) - (DECLARE (SPECVARS START-OF-PIECE)) - (replace (STREAM BINABLE) of TSTREAM with NIL) - (SETQ PC (\TEDIT.CHTOPC N TEXTOBJ T)) - (SETQ OFFSET (ADD1 (IDIFFERENCE N START-OF-PIECE))) - (* ; "Change is at OFFSET 1") - (SETQ PARALAST (MEMB NEWCHARCODE (FGETTOBJ TEXTOBJ PARABREAKCHARS))) - [if (AND (SMALLP NEWCHARCODE) - (MEMB (PTYPE PC) - STRING.PTYPES) - (OR (NULL NEWCHARLOOKS) - (EQ NEWCHARLOOKS (PLOOKS PC))) - (NEQ PC (FGETTOBJ TEXTOBJ SUFFIXPIECE)) - (NOT PARALAST)) - then - (* ;; + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM)) + START-OF-PIECE OLDCHAR) + (DECLARE (SPECVARS START-OF-PIECE)) + (replace (STREAM BINABLE) of TSTREAM with NIL) + (SETQ OLDCHAR (\TEDIT.PIECE.RPLCHARCODE TEXTOBJ (\TEDIT.CHTOPC N TEXTOBJ T) + (ADD1 (IDIFFERENCE N START-OF-PIECE)) + NEWCHARCODE NEWCHARLOOKS)) + (\TEDIT.HISTORYADD TEXTOBJ (\TEDIT.HISTORY.EVENT TEXTOBJ :ReplaceCode N NIL NIL NIL + OLDCHAR)) + (CL:UNLESS (OR DONTDISPLAY (NOT (\TEDIT.PRIMARYPANE TEXTOBJ))) + (\TEDIT.UPDATE.LINES TSTREAM 'CHANGED N 1)) + TSTREAM))]) + +(\TEDIT.PIECE.RPLCHARCODE + [LAMBDA (TEXTOBJ PC OFFSET NEWCHARCODE NEWCHARLOOKS) (* ; "Edited 24-Apr-2025 16:30 by rmk") + (* ; "Edited 20-Apr-2025 13:25 by rmk") + (* ; "Edited 28-Mar-2025 10:04 by rmk") + + (* ;; "Replaces the charcode (or object) at OFFSET in PC with NEWCHARCODE (or object) with NEWCHARLOOKS. This is accomplished by isolating the target character into a length 1 piece, then converting that into a string (or object) piece containing NEWCHAR.") + + (* ;; "Returns OLDCHAR so caller and update history") + + (* ;; "NOTE: this may introduce new pieces, so must be used carefully with other piece-based or BIN-based iterations.") + + (LET (OLDCHAR PARALAST) + (SETQ PARALAST (MEMB NEWCHARCODE (FGETTOBJ TEXTOBJ PARABREAKCHARS))) + [if (AND (SMALLP NEWCHARCODE) + (MEMB (PTYPE PC) + STRING.PTYPES) + (OR (NULL NEWCHARLOOKS) + (EQ NEWCHARLOOKS (PLOOKS PC))) + (NEQ PC (FGETTOBJ TEXTOBJ SUFFIXPIECE)) + (NOT PARALAST)) + then + (* ;;  "Fast case: Smash a new character code into an existing string piece with same looks. ") - (SETQ OLDCHAR (NTHCHARCODE (PCONTENTS PC) - OFFSET)) - (RPLCHARCODE (PCONTENTS PC) - OFFSET NEWCHARCODE) (* ; + (SETQ OLDCHAR (NTHCHARCODE (PCONTENTS PC) + OFFSET)) + (RPLCHARCODE (PCONTENTS PC) + OFFSET NEWCHARCODE) (* ;  "May upgrade string from thin to fat") - (CL:WHEN (AND (EQ THINSTRING.PTYPE (PTYPE PC)) - (IGREATERP NEWCHARCODE 255)) - (FSETPC PC PTYPE FATSTRING.PTYPE) - (FSETPC PC PBINABLE NIL) - (FSETPC PC PBYTESPERCHAR 2) - (FSETPC PC PBYTELEN (UNFOLD (PLEN PC) - 2))) - elseif [AND (IMAGEOBJP NEWCHARCODE) - (EQ OBJECT.PTYPE (PTYPE PC)) - (OR (NULL NEWCHARLOOKS) - (EQ NEWCHARLOOKS (PLOOKS PC] - then (SETQ OLDCHAR (POBJ PC)) (* ; "We know PLEN is 1") - (FSETPC PC PCONTENTS NEWCHARCODE) - else - (* ;; - "The PC that contained character N becomes the suffix of characters after N, ") + (CL:WHEN (AND (EQ THINSTRING.PTYPE (PTYPE PC)) + (IGREATERP NEWCHARCODE 255)) + (FSETPC PC PTYPE FATSTRING.PTYPE) + (FSETPC PC PBINABLE NIL) + (FSETPC PC PBYTESPERCHAR 2) + (FSETPC PC PBYTELEN (UNFOLD (PLEN PC) + 2))) + elseif [AND (IMAGEOBJP NEWCHARCODE) + (EQ OBJECT.PTYPE (PTYPE PC)) + (OR (NULL NEWCHARLOOKS) + (EQ NEWCHARLOOKS (PLOOKS PC] + then (SETQ OLDCHAR (POBJ PC)) (* ; "We know PLEN is 1") + (FSETPC PC PCONTENTS NEWCHARCODE) + else + (* ;; + "PC contained character OFFSET now becomes the suffix of characters after offset.") - (CL:UNLESS (IEQP OFFSET (PLEN PC)) (* ; "No suffix for the last character") + (CL:UNLESS (IEQP OFFSET (PLEN PC)) (* ; "No suffix for the last character") - (* ;; + (* ;;  "Chop off the suffix (essentially (\TEDIT.ALIGNEDPIECE CHNO ..) but we already have the piece") - (\TEDIT.SPLITPIECE PC OFFSET TEXTOBJ) - (SETQ PC (PREVPIECE PC))) (* ; + (\TEDIT.SPLITPIECE PC OFFSET TEXTOBJ) + (SETQ PC (PREVPIECE PC))) (* ;  "Original PC holds the suffix, new PC ends with change position.") - (CL:UNLESS (EQ OFFSET 1) - (SETQ PC (\TEDIT.SPLITPIECE PC (SUB1 OFFSET) - TEXTOBJ))) (* ; + (CL:UNLESS (EQ OFFSET 1) + (SETQ PC (\TEDIT.SPLITPIECE PC (SUB1 OFFSET) + TEXTOBJ))) (* ;  "Chop off the prefix. PC is now the singleton target ") - (* ;; "N is now isolated into a one-character new piece which we smash. ") + (* ;; "OFFSET is now isolated into a one-character new piece which we smash. ") - (SETQ OLDCHAR (\TEDIT.PIECE.NTHCHARCODE TEXTOBJ PC 1)) - (if (IMAGEOBJP NEWCHARCODE) - then (FSETPC PC PBINABLE NIL) - (FSETPC PC PCONTENTS NEWCHARCODE) - (FSETPC PC PTYPE OBJECT.PTYPE) - (FSETPC PC PBYTESPERCHAR NIL) (* ; "Doesn't make sense for objects") - (FSETPC PC PBYTELEN NIL) - else (FSETPC PC PCONTENTS (MKSTRING (CHARACTER NEWCHARCODE))) + (SETQ OLDCHAR (\TEDIT.PIECE.NTHCHARCODE PC 1)) + (if (IMAGEOBJP NEWCHARCODE) + then (FSETPC PC PBINABLE NIL) + (FSETPC PC PCONTENTS NEWCHARCODE) + (FSETPC PC PTYPE OBJECT.PTYPE) + (FSETPC PC PBYTESPERCHAR NIL) (* ; "Doesn't make sense for objects") + (FSETPC PC PBYTELEN NIL) + else (FSETPC PC PCONTENTS (MKSTRING (CHARACTER NEWCHARCODE))) (* ;  "Use the extend-string in INSERTCH for repeated calls?") - (if (IGREATERP NEWCHARCODE 255) - then (FSETPC PC PTYPE FATSTRING.PTYPE) - (FSETPC PC PBINABLE NIL) - (FSETPC PC PBYTESPERCHAR 2) - (FSETPC PC PBYTELEN 2) - else (FSETPC PC PTYPE THINSTRING.PTYPE) - (FSETPC PC PBINABLE T) - (FSETPC PC PBYTESPERCHAR 1) - (FSETPC PC PBYTELEN 1) - (FSETPC PC PCHARSET 0))) - (FSETPC PC PFPOS NIL) - (CL:WHEN NEWCHARLOOKS - (FSETPC PC PLOOKS (CL:IF (FONTP NEWCHARLOOKS) - (\TEDIT.UNIQUIFY.CHARLOOKS (\TEDIT.CHARLOOKS.FROM.FONT - NEWCHARLOOKS) - TEXTOBJ) - NEWCHARLOOKS)))] - (CL:WHEN PARALAST (FSETPC PC PPARALAST T)) - (\TEDIT.HISTORYADD TEXTOBJ (\TEDIT.HISTORY.EVENT TEXTOBJ :ReplaceCode N NIL NIL NIL - OLDCHAR)) - (CL:UNLESS (OR DONTDISPLAY (NOT (\TEDIT.PRIMARYPANE TEXTOBJ))) - (\TEDIT.UPDATE.LINES TEXTOBJ 'CHANGED N 1)) - (RETURN TSTREAM)))]) + (if (IGREATERP NEWCHARCODE 255) + then (FSETPC PC PTYPE FATSTRING.PTYPE) + (FSETPC PC PBINABLE NIL) + (FSETPC PC PBYTESPERCHAR 2) + (FSETPC PC PBYTELEN 2) + else (FSETPC PC PTYPE THINSTRING.PTYPE) + (FSETPC PC PBINABLE T) + (FSETPC PC PBYTESPERCHAR 1) + (FSETPC PC PBYTELEN 1) + (FSETPC PC PCHARSET 0))) + (FSETPC PC PFPOS NIL) + (CL:WHEN NEWCHARLOOKS + (FSETPC PC PLOOKS (CL:IF (FONTP NEWCHARLOOKS) + (\TEDIT.UNIQUIFY.CHARLOOKS (\TEDIT.CHARLOOKS.FROM.FONT + NEWCHARLOOKS) + TEXTOBJ) + NEWCHARLOOKS)))] + (CL:WHEN PARALAST (FSETPC PC PPARALAST T)) + OLDCHAR]) + +(\TEDIT.NTHCHARLOOKS + [LAMBDA (TSTREAM N) (* ; "Edited 6-Apr-2025 23:36 by rmk") + (* ; "Edited 4-Apr-2025 11:11 by rmk") + + (* ;; "Returns the charlooks of character N") + + (PCHARLOOKS (\TEDIT.CHTOPC N (FTEXTOBJ TSTREAM]) ) @@ -2413,7 +2468,8 @@ (DEFINEQ (\TEDIT.DELETE.SELPIECES - [LAMBDA (TEXTOBJ FIRSTCHAR LEN DONTCHECK) (* ; "Edited 5-Feb-2025 23:33 by rmk") + [LAMBDA (TSTREAM FIRSTCHAR LEN DONTCHECK) (* ; "Edited 22-Apr-2025 09:17 by rmk") + (* ; "Edited 5-Feb-2025 23:33 by rmk") (* ; "Edited 26-Nov-2024 22:31 by rmk") (* ; "Edited 22-Sep-2024 18:34 by rmk") (* ; "Edited 7-Jul-2024 09:09 by rmk") @@ -2431,36 +2487,37 @@ (CL:UNLESS LEN (SETQ LEN (FGETSEL FIRSTCHAR DCH))) (SETQ FIRSTCHAR (FGETSEL FIRSTCHAR CH#))) - (CL:UNLESS (GETTOBJ TEXTOBJ TXTREADONLY) - (\TEDIT.BTVALIDATE '\TEDIT.DELETE.SELPIECES 'START TEXTOBJ) - (LET (SELPIECES PREVPC) - (CL:WHEN [AND (SETQ SELPIECES (\TEDIT.SELPIECES FIRSTCHAR (IPLUS FIRSTCHAR LEN -1) - TEXTOBJ)) - (OR DONTCHECK (for PC inselpieces (PROGN SELPIECES) - always (OBJECT.ALLOWS PC 'DELETE TEXTOBJ] - (SETQ PREVPC (PREVPIECE (FGETSPC SELPIECES SPFIRST))) - (\TEDIT.DELETEPIECES SELPIECES TEXTOBJ) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM)) + SELPIECES PREVPC) + (CL:WHEN [AND (NOT (FGETTOBJ TEXTOBJ TXTREADONLY)) + (SETQ SELPIECES (\TEDIT.SELPIECES FIRSTCHAR (IPLUS FIRSTCHAR LEN -1) + TEXTOBJ)) + (OR DONTCHECK (for PC inselpieces (PROGN SELPIECES) + always (OR (NEQ OBJECT.PTYPE (PTYPE PC)) + (\TEDIT.APPLY.OBJFN (PCONTENTS PC) + 'DELETE TSTREAM] + (SETQ PREVPC (PREVPIECE (FGETSPC SELPIECES SPFIRST))) + (\TEDIT.DELETEPIECES SELPIECES TEXTOBJ) - (* ;; "If the the effect of the deletion is to concatenate a (non-empty) prefix of one paragraph with a (non-empty) suffix of another, propagate the prefix PARALOOKS all the way through to the end of the newly combined paragraph. All the pieces of a paragraph must have the same PARALOOKS.") + (* ;; "If the the effect of the deletion is to concatenate a (non-empty) prefix of one paragraph with a (non-empty) suffix of another, propagate the prefix PARALOOKS all the way through to the end of the newly combined paragraph. All the pieces of a paragraph must have the same PARALOOKS.") - (CL:WHEN (AND PREVPC (NOT (PPARALAST PREVPC))) - (* ; "Retained a non-empty prefix") - (for PC (PARALOOKS _ (PPARALOOKS PREVPC)) inpieces (NEXTPIECE PREVPC) - do - (* ;; - "(NEXTPIECE PREVPC) is the first retained piece linked in after the deletion") + (CL:WHEN (AND PREVPC (NOT (PPARALAST PREVPC))) (* ; "Retained a non-empty prefix") + (for PC (PARALOOKS _ (PPARALOOKS PREVPC)) inpieces (NEXTPIECE PREVPC) + do + (* ;; + "(NEXTPIECE PREVPC) is the first retained piece linked in after the deletion") - (FSETPC PC PPARALOOKS PARALOOKS) repeatuntil (PPARALAST PC))) - (\TEDIT.BTVALIDATE '\TEDIT.DELETE.SELPIECES 'END TEXTOBJ) + (FSETPC PC PPARALOOKS PARALOOKS) repeatuntil (PPARALAST PC))) + (\TEDIT.BTVALIDATE '\TEDIT.DELETE.SELPIECES 'END TEXTOBJ) - (* ;; "") + (* ;; "") - (* ;; "The pieces are now properly linked with the proper looks. SELPIECE holds the deleted pieces needed for undoing.") + (* ;; "The pieces are now properly linked with the proper looks. SELPIECE holds the deleted pieces needed for undoing.") - (\TEDIT.HISTORYADD TEXTOBJ (\TEDIT.HISTORY.EVENT TEXTOBJ :Delete FIRSTCHAR - (FGETSPC SELPIECES SPLEN) - NIL NIL NIL SELPIECES)) - T)))]) + (\TEDIT.HISTORYADD TEXTOBJ (\TEDIT.HISTORY.EVENT TEXTOBJ :Delete FIRSTCHAR + (FGETSPC SELPIECES SPLEN) + NIL NIL NIL SELPIECES)) + T)]) (\TEDIT.INSERTCH [LAMBDA (CH CH# TEXTOBJ PARALAST) (* ; "Edited 26-Mar-2025 00:29 by rmk") @@ -2903,6 +2960,12 @@ T (CADR PTAIL]) +(TEXTPROP.ADD + [LAMBDA (TSTREAM PROP NEWITEM) (* ; "Edited 17-Apr-2025 13:24 by rmk") + (LET ((OLDITEMS (GETTEXTPROP TSTREAM PROP))) + (PUTTEXTPROP TSTREAM PROP (CONS NEWITEM OLDITEMS)) + OLDITEMS]) + (\TEDIT.TEXTPROP [LAMBDA (TEXTOBJ PROP SETNEWVALUE NEWVALUE) (* ; "Edited 16-Feb-2025 23:27 by rmk") (* ; "Edited 15-Feb-2025 14:02 by rmk") @@ -3069,32 +3132,34 @@ (ADDTOVAR LAMA TEXTPROP) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (37315 68029 (\TEDIT.TEXTBIN 37325 . 48075) (\TEDIT.TEXTPEEKBIN 48077 . 53627) ( -\TEDIT.TEXTBACKFILEPTR 53629 . 59302) (\TEDIT.TEXTBOUT 59304 . 63819) (\TEDIT.INSTALL.FILEBUFFER 63821 - . 68027)) (68927 72975 (\TEDIT.TEXTOUTCHARFN 68937 . 70493) (\TEDIT.TEXTINCCODEFN 70495 . 71234) ( -\TEDIT.TEXTBACKCCODEFN 71236 . 71828) (\TEDIT.TEXTFORMATBYTESTREAM 71830 . 72533) ( -\TEDIT.TEXTFORMATBYTESTRING 72535 . 72973)) (73022 84543 (OPENTEXTSTREAM 73032 . 79984) ( -COPYTEXTSTREAM 79986 . 83766) (TEDIT.STREAMCHANGEDP 83768 . 84070) (TXTFILE 84072 . 84541)) (84544 -114404 (\TEDIT.REOPENTEXTSTREAM 84554 . 85906) (\TEDIT.OPENTEXTSTREAM.PIECES 85908 . 90338) ( -\TEDIT.OPENTEXTSTREAM.PROPS 90340 . 91442) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 91444 . 96530) ( -\TEDIT.OPENTEXTSTREAM.WINDOW 96532 . 99213) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 99215 . 102185) ( -\TEDIT.OPENTEXTFILE 102187 . 103900) (\TEDIT.CREATE.TEXTSTREAM 103902 . 104947) (\TEDIT.REOPEN.STREAM -104949 . 107285) (\TEDIT.TEXTINIT 107287 . 114402)) (114442 115630 (\TEDIT.TTYBOUT 114452 . 115628)) ( -115748 134540 (\TEDIT.TEXTCLOSEF 115758 . 117082) (\TEDIT.TEXTDSPFONT 117084 . 118054) ( -\TEDIT.TEXTEOFP 118056 . 119811) (\TEDIT.TEXTGETEOFPTR 119813 . 120136) (\TEDIT.TEXTSETEOFPTR 120138 - . 121228) (\TEDIT.TEXTGETFILEPTR 121230 . 124065) (\TEDIT.TEXTSETFILEINFO 124067 . 124575) ( -\TEDIT.TEXTOPENF 124577 . 125508) (\TEDIT.TEXTSETEOF 125510 . 126126) (\TEDIT.TEXTSETFILEPTR 126128 . -128169) (\TEDIT.TEXTDSPXPOSITION 128171 . 129188) (\TEDIT.TEXTDSPYPOSITION 129190 . 129931) ( -\TEDIT.TEXTLEFTMARGIN 129933 . 130524) (\TEDIT.TEXTRIGHTMARGIN 130526 . 133689) ( -\TEDIT.TEXTDSPCHARWIDTH 133691 . 133995) (\TEDIT.TEXTDSPSTRINGWIDTH 133997 . 134303) ( -\TEDIT.TEXTDSPLINEFEED 134305 . 134538)) (134578 145928 (\TEDIT.NTHCHARCODE 134588 . 135938) ( -\TEDIT.PIECE.NTHCHARCODE 135940 . 139741) (\TEDIT.RPLCHARCODE 139743 . 145926)) (146975 167848 ( -\TEDIT.DELETE.SELPIECES 146985 . 150498) (\TEDIT.INSERTCH 150500 . 158430) (\TEDIT.INSERTCH.HISTORY -158432 . 161896) (\TEDIT.INSERTEOL 161898 . 163723) (\TEDIT.INSERTCH.INSERTION 163725 . 166562) ( -\TEDIT.INSERTCH.EXTEND 166564 . 167846)) (167849 169353 (\TEDIT.NEXTCHANGEABLE.CHNO 167859 . 168574) ( -\TEDIT.LASTCHANGEABLE.CHNO 168576 . 169351)) (169354 171058 (\SETUPGETCH 169364 . 171056)) (171116 -175574 (\TEDIT.INSTALL.PIECE 171126 . 175572)) (175612 184361 (TEXTPROP 175622 . 175969) (GETTEXTPROP -175971 . 176215) (PUTTEXTPROP 176217 . 176474) (GETTEXTPROPS 176476 . 176920) (PUTTEXTPROPS 176922 . -177826) (\TEDIT.TEXTPROP 177828 . 184359)) (184362 186432 (\TEDIT.TEXTOBJ.PROPNAMES 184372 . 185324) ( -\TEDIT.TEXTOBJ.PROPFETCHFN 185326 . 185842) (\TEDIT.TEXTOBJ.PROPSTOREFN 185844 . 186430))))) + (FILEMAP (NIL (37559 68375 (\TEDIT.TEXTBIN 37569 . 48319) (\TEDIT.TEXTPEEKBIN 48321 . 53871) ( +\TEDIT.TEXTBACKFILEPTR 53873 . 59546) (\TEDIT.TEXTBOUT 59548 . 64165) (\TEDIT.INSTALL.FILEBUFFER 64167 + . 68373)) (69273 73564 (\TEDIT.TEXTOUTCHARFN 69283 . 70839) (\TEDIT.TEXTINCCODEFN 70841 . 71580) ( +\TEDIT.TEXTBACKCCODEFN 71582 . 72174) (\TEDIT.TEXTFORMATBYTESTREAM 72176 . 73013) ( +\TEDIT.TEXTFORMATBYTESTRING 73015 . 73562)) (73611 85252 (OPENTEXTSTREAM 73621 . 80573) ( +COPYTEXTSTREAM 80575 . 84475) (TEDIT.STREAMCHANGEDP 84477 . 84779) (TXTFILE 84781 . 85250)) (85253 +116062 (\TEDIT.REOPENTEXTSTREAM 85263 . 86615) (\TEDIT.OPENTEXTSTREAM.PIECES 86617 . 91551) ( +\TEDIT.OPENTEXTSTREAM.PROPS 91553 . 92655) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 92657 . 97898) ( +\TEDIT.OPENTEXTSTREAM.WINDOW 97900 . 100691) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 100693 . 103663) ( +\TEDIT.OPENTEXTFILE 103665 . 105378) (\TEDIT.CREATE.TEXTSTREAM 105380 . 106425) (\TEDIT.REOPEN.STREAM +106427 . 108763) (\TEDIT.TEXTINIT 108765 . 116060)) (116100 117288 (\TEDIT.TTYBOUT 116110 . 117286)) ( +117406 137175 (\TEDIT.TEXTCLOSEF 117416 . 118740) (\TEDIT.TEXTDSPFONT 118742 . 119712) ( +\TEDIT.TEXTEOFP 119714 . 121469) (\TEDIT.TEXTGETEOFPTR 121471 . 121794) (\TEDIT.TEXTSETEOFPTR 121796 + . 123083) (\TEDIT.TEXTGETFILEPTR 123085 . 125920) (\TEDIT.TEXTSETFILEINFO 125922 . 126430) ( +\TEDIT.TEXTOPENF 126432 . 127363) (\TEDIT.TEXTSETEOF 127365 . 127981) (\TEDIT.TEXTSETFILEPTR 127983 . +130093) (\TEDIT.TEXTDSPXPOSITION 130095 . 131112) (\TEDIT.TEXTDSPYPOSITION 131114 . 131855) ( +\TEDIT.TEXTLEFTMARGIN 131857 . 132448) (\TEDIT.TEXTCOLOR 132450 . 133033) (\TEDIT.TEXTRIGHTMARGIN +133035 . 136324) (\TEDIT.TEXTDSPCHARWIDTH 136326 . 136630) (\TEDIT.TEXTDSPSTRINGWIDTH 136632 . 136938) + (\TEDIT.TEXTDSPLINEFEED 136940 . 137173)) (137213 149689 (\TEDIT.NTHCHARCODE 137223 . 138674) ( +\TEDIT.PIECE.NTHCHARCODE 138676 . 142586) (\TEDIT.RPLCHARCODE 142588 . 144046) ( +\TEDIT.PIECE.RPLCHARCODE 144048 . 149334) (\TEDIT.NTHCHARLOOKS 149336 . 149687)) (150736 171721 ( +\TEDIT.DELETE.SELPIECES 150746 . 154371) (\TEDIT.INSERTCH 154373 . 162303) (\TEDIT.INSERTCH.HISTORY +162305 . 165769) (\TEDIT.INSERTEOL 165771 . 167596) (\TEDIT.INSERTCH.INSERTION 167598 . 170435) ( +\TEDIT.INSERTCH.EXTEND 170437 . 171719)) (171722 173226 (\TEDIT.NEXTCHANGEABLE.CHNO 171732 . 172447) ( +\TEDIT.LASTCHANGEABLE.CHNO 172449 . 173224)) (173227 174931 (\SETUPGETCH 173237 . 174929)) (174989 +179447 (\TEDIT.INSTALL.PIECE 174999 . 179445)) (179485 188499 (TEXTPROP 179495 . 179842) (GETTEXTPROP +179844 . 180088) (PUTTEXTPROP 180090 . 180347) (GETTEXTPROPS 180349 . 180793) (PUTTEXTPROPS 180795 . +181699) (TEXTPROP.ADD 181701 . 181964) (\TEDIT.TEXTPROP 181966 . 188497)) (188500 190570 ( +\TEDIT.TEXTOBJ.PROPNAMES 188510 . 189462) (\TEDIT.TEXTOBJ.PROPFETCHFN 189464 . 189980) ( +\TEDIT.TEXTOBJ.PROPSTOREFN 189982 . 190568))))) STOP diff --git a/library/tedit/TEDIT-STREAM.LCOM b/library/tedit/TEDIT-STREAM.LCOM index 27e64ff2f42b2b829012ca3cf8cb6e5fd303dec4..69243baafba7257dc767ff4b11abe484dc33c4bf 100644 GIT binary patch delta 5881 zcma)AeQX>@72n6+!si!kd2;6C$0ntq6h^^#A{a?X;W0EmcK`7Q zA6i;DT1Ll@p)urrI8(|$de`j7j-L3~RQ1S1D@Tq^>BsLsvNHAH(eldCQ*t0Y^}y1} zN%l5{4Sr`$j!d92Y4h^2gd9zTBCy;^vi!>4GFpPwv$ML6Hct!$0%NFr2^R~H|>Yh~%a6Gu**nt~;lPENr$ znmt*v;qyY^&UjEnVqBEP7(U7G#lIfx!)Ua#IDryYQJvGw+0tYNwt-zDlgdLUoL!_u zIGza0L^c2CF2TAiyzJ$l!~fjAYw#Bw{Cy#LF4;vI%^~`O`+M%@llWNAO+q+|#XARf zTXqqNp*T83MGnkbM3R868EOfMGWHexNhC^9cU&_{YSB*Tpie>twU9z$Fy;;xEj^u6 zifJ>WqPT?AV$m$3u!wtlqf$sh>|4z=P$-OSb-^}MGf0jhrY0oC-A+(Gibd-8_Wsm! z{jCDW3CGD1uEV4KH>X;X+BsFXV5TIx3y5K-MZOQAF|q~9n#F=*rxtCMZL@z2zu_CM zpYDIUvlc~$I&YHD;5SD&=xnYi8-Ro=!HoTW6E?bNXicy;?bZ zPj5q`Q&&f*S`07wqG9${3fI$?(cE^ix1e20aLXI@bahps3mnerl?TW;+u@$xi@&QG zmpIQ#*T&k*Y$5h`Va;fAbn^?}h1Ti|%LmsJTw`W=qq0%Znn`~Wo(X>fo+*C{o*91z zo`?O1;c5GAcrN%C;5p}?11Vx4#dFoimhWDVag97#MDOFq#SkE>#vn%&XK89$1t_(w z%do<_<8cQ{v51SbtX3@9Y!t9-TB<>;=9nZTBWer=GS&%@5Muzrf-LJB~(`O_k1zT;91ow@7>Z4;Gj^mRINFN{q->BfAaG1j5rOM0NGa7AP@`K5qKhOOw zM@6F&y{uK&{am9`PFA)Pp&K)FY~!i(+|ThFW2l?H`iJnlW5amYEuTP3NeV^{wq8yF}ih7h>|zI5E02wO>7~87>j%x3%MY0 zSBu2ZwA#`N99{~wjV6JCbTw-O0ml(|W)50lXx0^uI1L#f1I&d)5!gfp-nR)&iNT`8 z`r{(Xn8sckMZoYN1Z>crCIeVn-)sg+n=wEL2b^I%I^xF%ciw>S*kg^n*1>Teg;_{B z$2`@g>L>PCJ(aTJD7>qz~ z92h|Sfk|z>x>^*))_1M0V5^I55Gbkktc79#J6pvUhkZ5B$0psQP-x3*J8lrn!bB2N zL2T-cQDiBG%783Jx4glso5sRh-sD!8K;hVa1m71d=lm!vwLBE2Z5e_v;X3cNi~-(- z-`cApa9HBd#9=dPR+-i9K(=6)EHw>o`-Dfp6XSE;J@*nHu<>WdWg!^DjqzQ)gx?(B z&4crgzc4DdcamD{0MKd$z511jd0`Q@ihS5s{5QIIj;Gt)T%PkM8mxJY=c<=iJg--& zQ~CrxSJwPpjee&UYxI|w{U52HxqX@EMg0EKjvGUedN^n(D0$UN+bJZ+abs{dWKY1s zU{EEUR!b!$hrzMHN@@{e7mJz*zwl1J4-Z5Yd8PiB$e+9L@AnM==%lEG42|TN zfLzuf+RPM{dCSxnr%fX;tr}`kOCt$#A2I{`rsnWNQ~p8-f*K@|^MRBOc@^Ox;1kxf zU}m#mAjq{qS9H#z+tc=6B7fS{K{epP_;>pT>g!YIx<=h#m_^KDpmz#5U@Aazp6kX{ zb>Fr*nHB^i9o2A&2dpAQqp361+l(iuRel~ubq(M`0Lw^HeB~YCsDj{yVF31F| z%C^0>aIQzfOnm#ub$DTa-|dcoG@-T35+InxyaE6Wj?E$=dy(+l1$puN5c}O!)yLHD|!9uw-uU-Hgc4oW+<4-ioc_g zqfH>LJgyoeH&$Rl+Ox=Og1}#X@cqj_U3~^WVeB=4g*Nem7y+Gv7tCuJU}@&&nU@e7irv?Y;qt%60+;^if7}S<&}<&uQYNBo+|F?NH#kZ{6JCaA&u&l%T%5u z{&q3QhF&kmy4g^&epBg}yjMb|o}n~>|7DHh@!3?3dl=HZPL?j#PkgBRGIcDkd%4DP z8Pf1vOA*?Y>g80L)ddH0We1hz@=Q-R2Y*ziO#Q|jHTBmW)K+O8nCz>BKzX9r^6#w$ zWKec}&ng087Z*ubNAVE;!u&uj)^bdsW!o$+2Glu78o(d~{R2xuachA}D5^PzE(GBxryrC`h*K z?0A$2nMqO66(Bd_|E@JOKnoO$#4?NxGysj$LF!?A^}uNDEWonUhxl}|+0VQoUGC)9 zRvHR`gVtcQckN*2%NeD)ePita0ntW%MypRNO)f=8UnH$GEA_~CfT`!t^Lx@O?_Y)A zUCK(wI_GI9%jPCsB>Ev#eiQCa$mzLo11wJ?z=cj| zy{M%9+|7?E5BSXdZ*8I+h3^{VvG;DD3XdD&t z00$rycmeJOqbg}gj3D`lv`R>rD8+#@MmE(bB}>u0=NY0_NNr)IzZKW^9w( z!OoH0=nV?gBkRq1cPZ;!G!pR6A`Xlga zLAf?lP;E80gNEA4J99PI5!}Sh{#utUh>y^cCbKv+1xdVfn?ihqMnyuSv=gdqxa^`$ z8s({nk-*fds_~PHx7C;%0+)KXaa;#0jh;?@3*6zp4uD)2K-hax)iWlr!mrZRoP7*6e`W9jyn>;t=UlUvnGX>Coy| zF7-mCz4ptQW}na3J+rz4`fuX6dwLCjAKd5A(Jz_3aGmq_fz@a6YX?6u(56Pnlb8na z^4+=pkf>)MwT3%HQFN~}L?B-}1^AYvRgS{pBF?p;>|U6y9ZC+|MtVs#7Em%7NaCFY z2MA8H)j|m%1UarcPhRkk9vq7AfK11eR485`u}Lba+%Q!(@h%9>n=UG#&e>EX;v>4h zoQk z+B8bGV%Q}#?#0{A?8EyOhw$MueX#nmGZXmP`-kz`nO*RX#$P8FF&DeuI=mG>)5`x_RXt=ZY?fLVwbXR zVqR& zAX3gf=R2?Oe9zzK4_{$lJIy{lb7y2Ud*JA(zzIRbM`EH76T(Aic<8<(haX%hA1b0F z51=9R$aGdoW|Z0Q-u=w)HdZ2GVFYy!389v)VvK{Wks);O=%MD`L*IVz=r^{<(446x zH8YSi)r2bN6M9lX3vg^|GLu2Arvw6lAyho@O}O^Uju*wDkubQ+RmQu+>Tj>VdY|*>)G0(eEm8376$%a zwm-EoFBw_=_}^XkxKwO(Z(t=6|LJ?ZxMxRORt!2qn>5JHfsB?@3WyhYhi>Gxtel@U zuAt=2go=1Bg0f0Bj-nDg(!VMkK}tTa=aCr3_3rRSA%g6+nw~>K6xq)P z`J%8;on3vw?cGe+@4%baZr&t0$D68>F<=oNYHWae@S6Dg>Qif9ZQB$=Ic3^NAOi&v z{Ro6WWUa^3IK^$omHz$;^Y?Z*c#KNJCwu0L#iDAZ=&-wu2xYcN2m5@;tJ2=mz!5^v zc9OQ1n@_KzovhVyc1>?uy%b{>>(zK^$(HH8YI^=_WPyF!{f{rjOc{U)?C z{uyYe{8PY01ekcC^yuQ;&(Seg7-B5C5XzK|H93tm|pc`w5Qbf>cRvuSC+9(>a7eu0no=!9i=7UcT z>|ldjb$P&S-!OuhJK*{3nEX}vFjQ!?hXX@{ti<7^$JXQBk9Y49C1gyRwYFl=WBCrX-fJfk4|^P%tL``irUa%|qWg;j0yA2>IEUVC1ngG+vp z;OS-NpDJa9D*L=vy6k6a+PrG3JWZ$SraB4T6PMwfsOZ@bmaN2Bh9wB>}w8(Jdd9P)13ah!00mUK>}T7j#Hs6p@e#nhT>S zT@~dKT%sgQ;NRr4b_2=dyK7{9#P1xH0mF{;v4C9ua$dkCu7*MSN zN4C&y2oHJ-D*n}N)84~i!O=(~EO{$DdB?PtOX}0a5D*_~zJAh3$a#hE9{&6yKH`YT z5kJp`9a2O5(I&xJ6A3v>>(0xUfdRL z^2oPZ7awiXArpMGv#)ym_Gxz82y(4}9k?hDn~U`0kJaqq11_d?rOe{>qqp|lUMnv8 zhe>lAX|`2Eql+$9G`Z|B8V+>awelE;_yEK&LKg_bi^%2MJLgS5gx^LQ$=DZf?`P}B~NBx zcQA@lNo5KY9z-cX1|(5tl-#%%RtnKDe(cU(HWDG9GWge=qC=1b(Y5eJ({cI>&?c-`L z7hnAg{{vSSyvINsk~uyqR38vcH-0yC#>G{?75>=Up3?{*3gc_L{QV*iK}tk63F3j> zk%IWC-RtpdyUh+t;HA*1J?kV9yay24bReFA+)v{L_#CCo=&2Ma0G%H4S zfB;SO0!Uw^>ICoveZh{n_JGH)=%Vrqa%TgbxER&)tSkTw@bMna^6UegF_~_2pVj2E zo^(&TUj0kh0_sRwCzi_trjmamrOF)GCm>`!g!4;0X>oKdZ9=a*i`_ZvGR zAS=gc!De}gFhqsZT9S;wJ6b2C(q7LzBt#H7eyp&86?uGLArT9OK@t+N$q(Q(z#2v7@yB21Mn)A-SwA>Wl#NQH8qa6nA<(F z<%#38DRh%g>FO0KAsK()X{@pa>8oCl=J4O zo*K0w6ydpH@Puh2fj^wuTXB5?EVkJ?J;>PT5}5p}BQ}~4eS6#N@#5u9rnXoF0OyEr zR-U+8y0R~>T5Bn<_r?L#uas*VJdYw%N?qBP_(?*uy6P)?HP!OgtLbcYT(g*Tg-%~2 z-M9^7$VL#$>1EfJc=@yI@ZF%5J(n4GO71&S zC|?&F_iS!(0fzu9Udq=zVQAjZE@d@)6=ew)kO!=6{4)085$w{fTDjt;CzR;RO5~i9 zpCvE#x0541wZzJxmZ0bT(*D>u&qohy}e>B~@QMwUlAg-Hwem0;?fxRP1h~f`N z2Hlb%;{T3p3PBl^0#^V-gb19S0Bo-1#$jN?GC2W>4w8`6MCD+fkudeWiU0*!BbF76 zjAq*QD?mE?B9#Zw=Ky;!YcYiKMuxZmEv0z?9<8NyG-wxokZWlH2!QP7ph@!F-Ww=g z&t;rCqFDq=kZj?C+&I+O5o1^lDA+bee610baxRPB+eWj`1HwQO}A z^wc269Ap~>^rcwOV*QN!@nz->Y9F*2qt@(0F1Z-La`>|=_IQRaJDI3zs&9)Yeb%#d zH+B44+G1$uLfT?!=VE1|Q8D@_EW0cko2Pd5!u*MeVy3>5s4c8LvrDxYt8-ShW4m@X z@_7!%8a4|_1k6_L?r56rLXXu!uexXHr5dY@*0DkK@@9M;S+dABF zq6@D(v3szyr5Xc7&|2BzM^2<+^)n}WZy}DaqyQ4(znzExZQx`8YbVKBFpJ+jv9-E< Ia%b270h(kcX#fBK diff --git a/library/tedit/TEDIT-STRESS b/library/tedit/TEDIT-STRESS index b7dffcbc..c5816aac 100644 --- a/library/tedit/TEDIT-STRESS +++ b/library/tedit/TEDIT-STRESS @@ -1,20 +1,36 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "21-Oct-2024 00:27:47" {WMEDLEY}tedit>TEDIT-STRESS.;71 15583 +(FILECREATED "29-Jun-2025 21:59:18"  +{DSK}kaplan>Local>medley3.5>working-medley>library>TEDIT>TEDIT-STRESS.;125 42815 :EDIT-BY rmk - :CHANGES-TO (FNS STRESSHC STRESSPUT EQTEXTSTREAM) + :CHANGES-TO (FNS STRESSHC STRESSRAND STRESSPUT STRESSOPEN STRESSREAD STRESSFORMAT STRESSSCROLL + STRESSDELETE STRESSDELETEWINDOW STRESSINSERTWINDOW STRESSGREP STRESSPEEK + STRESSINSERT STRESS-SETUP STRESS-SYSOUT SYSOUTRING STRESSDISPLAY) + (VARS TEDIT-STRESSCOMS) - :PREVIOUS-DATE "19-Mar-2024 21:34:32" {WMEDLEY}tedit>TEDIT-STRESS.;70) + :PREVIOUS-DATE "26-Jun-2025 20:58:11" {WMEDLEY}tedit>TEDIT-STRESS.;120) (PRETTYCOMPRINT TEDIT-STRESSCOMS) -(RPAQQ TEDIT-STRESSCOMS ( (* ; "Preload typical image objects") - (FNS STRESSHC STRESSRAND STRESSPUT STRESSOPEN STRESSREAD STRESSGREP - STRESSPEEK) - (FNS EQTEXTSTREAM SYSOUTRING COPYTOCORE))) +(RPAQQ TEDIT-STRESSCOMS + ( (* ; "Preload typical image objects") + (FNS STRESSHC STRESSRAND STRESSPUT STRESSOPEN STRESSREAD STRESSFORMAT STRESSDISPLAY + STRESSSCROLL STRESSDELETE STRESSDELETEWINDOW STRESSINSERT STRESSINSERTWINDOW STRESSGREP + STRESSPEEK) + (FNS STRESS-SETUP STRESS-SYSOUT STRESS-AFTERSYSOUT SYSOUTRING SYSOUTNAME SYSOUTRING + SYSOUTNAME) + (FNS EQTEXTSTREAM COPYTOCORE CHECKARRAYS SAVERANDSTATE) + (INITVARS (CHECKARRAYS NIL) + (USELASTRANDSTATE NIL) + (SYSOUTLEVEL NIL) + (NSYSOUTS 0)) + (VARS (ARRAYBLOCKCHECKING T)) + (APPENDVARS (AFTERSYSOUTFORMS (STRESS-AFTERSYSOUT))) + (FILES TEDIT-DEBUG) + (MACROS STRESS))) @@ -23,7 +39,9 @@ (DEFINEQ (STRESSHC - [LAMBDA (FILES NSYSOUTS REPS ERROR SEPARATEOUT PDF SYSOUTNAME SINGLESTEP) + [LAMBDA (FILES REPS ERROR SEPARATEOUT PDF SYSOUTNAME SINGLESTEP) + (* ; "Edited 29-Jun-2025 21:58 by rmk") + (* ; "Edited 2-Jun-2025 21:27 by rmk") (* ; "Edited 21-Oct-2024 00:26 by rmk") (* ; "Edited 19-Mar-2024 21:33 by rmk") (* ; "Edited 14-Mar-2024 15:15 by rmk") @@ -32,11 +50,8 @@ (* ;; "If all arguments are defaulted, runs through all TEDIT files in the current directory until it fails, doing SAVEVM before each file. The HC files are made as {CORE}FOO.PS.") - (CL:UNLESS FILES - (SETQ FILES (FILDIR '*.TEDIT;))) + (SETQ FILES (STRESS-SETUP FILES 'STRESSHC)) (CL:UNLESS REPS (SETQ REPS MAX.SMALLP)) - (CL:UNLESS NSYSOUTS - (SETQ NSYSOUTS 'SAVEVM)) [SETQ SYSOUTNAME (PACKFILENAME 'VERSION NIL 'BODY (OR SYSOUTNAME (PACKFILENAME 'DIRECTORY MEDLEYDIR 'NAME "STRESSHC" 'EXTENSION @@ -56,189 +71,559 @@ (for R SYSOUTS (ITYPE _ (CL:IF PDF 'pdf 'ps)) - (N _ 0) from 1 to REPS - do (PRINTOUT T "Rep " R T) - (if (EQ NSYSOUTS 'SAVEVM) - then (SAVEVM) - else (SETQ SYSOUTS (SYSOUTRING NSYSOUTS SYSOUTNAME SYSOUTS))) - [for F TSTRM HCFILE inside FILES - do (PROMPTPRINT F) - (SETQ HCFILE (CL:IF SEPARATEOUT - (OUTFILEP (PACKFILENAME 'EXTENSION ITYPE 'VERSION 1 'BODY F)) - (CL:IF PDF - "{CORE}FOO.PDF;1" - "{CORE}FOO.PS;1"))) - (if [if ERROR - then (SETQ TSTRM (OPENTEXTSTREAM F)) - (TEDIT.FORMAT.HARDCOPY TSTRM HCFILE T NIL NIL NIL (CL:IF PDF - 'PDF - 'POSTSCRIPT)) - else (NLSETQ (SETQ TSTRM (OPENTEXTSTREAM F)) - (TEDIT.FORMAT.HARDCOPY TSTRM HCFILE T NIL NIL NIL - (CL:IF PDF - 'PDF - 'POSTSCRIPT)] - then (add N 1) - else (PRINTOUT T " Error for " (PACKFILENAME 'HOST NIL 'DIRECTORY NIL 'BODY F) - T)) - (CLOSEF? TSTRM) - (CL:WHEN SINGLESTEP - (\TEDIT.THELP (CONCAT "Just hardcopied " F " to " HCFILE)))] - (PRINTOUT T " Hardcopied " N " files without failure" T) + (N _ 0) from 1 to REPS do (PRINTOUT T "Rep " R T) + (if (EQ NSYSOUTS 'SAVEVM) + then (SAVEVM) + else (SETQ SYSOUTS (SYSOUTRING NSYSOUTS SYSOUTNAME SYSOUTS))) + [for F TSTREAM HCFILE in FILES unless (DIRECTORYNAMEP F) + do (PROMPTPRINT F) + (SETQ HCFILE (CL:IF SEPARATEOUT + (OUTFILEP (PACKFILENAME 'EXTENSION ITYPE + 'VERSION 1 'BODY F)) + (CL:IF PDF + "{CORE}FOO.PDF;1" + "{CORE}FOO.PS;1"))) + [STRESS (NOT ERROR) + (SETQ TSTREAM (OPENTEXTSTREAM F)) + (CHECKARRAYS 'AFTEROPEN) + (TEDIT.FORMAT.HARDCOPY TSTREAM HCFILE T NIL NIL NIL + (CL:IF PDF + 'PDF + 'POSTSCRIPT)] + (CL:WHEN SINGLESTEP + (\TEDIT.THELP (CONCAT "Just hardcopied " F " to " HCFILE + )))] + (PRINTOUT T " Hardcopied " N " files without failure" T) finally (RETURN (LIST R N]) (STRESSRAND - [LAMBDA (FILES REPS ERROR PROBESPERFILE) (* ; "Edited 19-Mar-2024 21:33 by rmk") + [LAMBDA (FILES REPS ERROR PROBESPERFILE) (* ; "Edited 29-Jun-2025 21:58 by rmk") + (* ; "Edited 5-Jun-2025 21:10 by rmk") + (* ; "Edited 2-Jun-2025 21:27 by rmk") + (* ; "Edited 31-May-2025 09:10 by rmk") + (* ; "Edited 19-Mar-2024 21:33 by rmk") (* ; "Edited 12-Mar-2024 09:47 by rmk") (* ;; "Opens, fetches random characters") - (CL:UNLESS FILES - (SETQ FILES (FILDIR '*.TEDIT;))) - (SETQ REPS (SELECTQ REPS - (T MAX.SMALLP) - (NIL 1) - REPS)) + (SETQ FILES (STRESS-SETUP FILES 'STRESSRAND)) + (CL:UNLESS REPS (SETQ REPS MAX.SMALLP)) (CL:UNLESS PROBESPERFILE (SETQ PROBESPERFILE 100)) + (BKSYSBUF " ") (PRINTOUT T REPS " reps of " (LENGTH FILES) " files with " PROBESPERFILE " probes per file" T) + (SAVERANDSTATE) (for R (N _ 0) from 1 to REPS do (PRINTOUT T R " ") - (for F TSTRM inside FILES - do (if (if ERROR - then (SETQ TSTRM (OPENTEXTSTREAM F)) - (for I (LEN _ (TEDIT.NCHARS TSTRM)) from 1 to PROBESPERFILE - do (TEDIT.NTHCHARCODE TSTRM (RAND 1 LEN))) - T - else (CAR (NLSETQ (SETQ TSTRM (OPENTEXTSTREAM F)) - (for I (LEN _ (TEDIT.NCHARS TSTRM)) from 1 to PROBESPERFILE - do (TEDIT.NTHCHARCODE TSTRM (RAND 1 LEN))) - T))) - then (CLOSEF TSTRM) - (add N 1) - else (PRINTOUT T " Error for " (PACKFILENAME 'HOST NIL 'DIRECTORY NIL 'BODY F) - T)) repeatwhile (PROGN (CLOSEF? TSTRM) - T)) finally (RETURN (LIST R N]) + [for F TSTREAM in FILES unless (DIRECTORYNAMEP F) + do (STRESS (NOT ERROR) + (SETQ TSTREAM (OPENTEXTSTREAM F)) + (CHECKARRAYS 'AFTEROPEN) + (for I (LEN _ (TEDIT.NCHARS TSTREAM)) from 1 to PROBESPERFILE + do (TEDIT.NTHCHARCODE TSTREAM (RAND 1 LEN] + finally (RETURN (LIST R N]) (STRESSPUT - [LAMBDA (FILES REPS NOERROR CHECKEQUIV STOP) (* ; "Edited 21-Oct-2024 00:26 by rmk") + [LAMBDA (FILES REPS NOERROR CHECKEQUIV STOP) (* ; "Edited 29-Jun-2025 21:58 by rmk") + (* ; "Edited 2-Jun-2025 21:28 by rmk") + (* ; "Edited 31-May-2025 09:10 by rmk") + (* ; "Edited 21-Oct-2024 00:26 by rmk") (* ; "Edited 19-Mar-2024 21:34 by rmk") (* ; "Edited 12-Mar-2024 09:48 by rmk") (* ;; "Opens, puts, reopens and tests for equivalence") - (CL:UNLESS FILES - (SETQ FILES (FILDIR '*.TEDIT;))) - (SETQ REPS (SELECTQ REPS - (T MAX.SMALLP) - (NIL 1) - REPS)) + (SETQ FILES (STRESS-SETUP FILES 'STRESSPUT)) + (CL:UNLESS REPS (SETQ REPS MAX.SMALLP)) + (BKSYSBUF " ") (PRINTOUT T REPS " reps of " (LENGTH FILES) " files" T) (for R (N _ 0) from 1 to REPS do (PRINTOUT T R " ") - (for F TSTRM TSP inside FILES - do (if (if NOERROR - then (NLSETQ (SETQ TSTRM (OPENTEXTSTREAM F)) - (TEDIT.PUT TSTRM "{CORE}FOO.TEDIT;1") - (SETQ TSP (OPENTEXTSTREAM "{CORE}FOO.TEDIT;1")) - (CL:WHEN (AND CHECKEQUIV (NOT (EQTEXTSTREAM TSTRM TSP STOP))) - (\TEDIT.THELP "Get of put not equivalent" F)) - (CLOSEF TSP)) - else (SETQ TSTRM (OPENTEXTSTREAM F)) - (TEDIT.PUT TSTRM "{CORE}FOO.TEDIT;1") - (SETQ TSP (OPENTEXTSTREAM "{CORE}FOO.TEDIT;1")) - (CL:WHEN (AND CHECKEQUIV (NOT (EQTEXTSTREAM TSTRM TSP STOP))) - (\TEDIT.THELP "Get of put not equivalent" F)) - (CLOSEF TSP)) - then (CLOSEF TSTRM) - (add N 1) - else (PRINTOUT T T "Error for " (PACKFILENAME 'HOST NIL 'DIRECTORY NIL 'BODY F) - T))) finally (RETURN (LIST R N]) + (for F TSTREAM TSP in FILES unless (DIRECTORYNAMEP F) + do (STRESS NOERROR (SETQ TSTREAM (OPENTEXTSTREAM F)) + (CHECKARRAYS 'AFTEROPEN) + (TEDIT.PUT TSTREAM "{CORE}FOO.TEDIT;1") + (SETQ TSP (OPENTEXTSTREAM "{CORE}FOO.TEDIT;1")) + (CL:WHEN (AND CHECKEQUIV (NOT (EQTEXTSTREAM TSTREAM TSP STOP))) + (\TEDIT.THELP "Get of put not equivalent" F)) + (CLOSEF TSP))) finally (RETURN (LIST R N]) (STRESSOPEN - [LAMBDA (FILES REPS NOERROR) (* ; "Edited 19-Mar-2024 21:34 by rmk") + [LAMBDA (FILES REPS NOERROR) (* ; "Edited 29-Jun-2025 21:55 by rmk") + (* ; "Edited 2-Jun-2025 21:28 by rmk") + (* ; "Edited 31-May-2025 09:12 by rmk") + (* ; "Edited 19-Mar-2024 21:34 by rmk") (* ; "Edited 12-Mar-2024 09:48 by rmk") (* ; "Edited 11-Mar-2024 09:15 by rmk") - (CL:UNLESS FILES - (SETQ FILES (FILDIR '*.TEDIT;))) - (SETQ REPS (SELECTQ REPS - (T MAX.SMALLP) - (NIL 1) - REPS)) + (SETQ FILES (STRESS-SETUP FILES 'STRESSOPEN)) + (CL:UNLESS REPS (SETQ REPS MAX.SMALLP)) + (BKSYSBUF " ") (PRINTOUT T REPS " reps of " (LENGTH FILES) " files" T) - (for R (N _ 0) from 1 to REPS - do (PRINTOUT T R " ") - (for F TSTRM inside FILES do (if (if NOERROR - then (NLSETQ (SETQ TSTRM (OPENTEXTSTREAM F))) - else (SETQ TSTRM (OPENTEXTSTREAM F))) - then (CLOSEF TSTRM) - (add N 1) - else (PRINTOUT T T "Error for " (PACKFILENAME 'HOST NIL - 'DIRECTORY NIL - 'BODY F) - T))) finally (RETURN (LIST R N]) + (for R (N _ 0) from 1 to REPS do (PRINTOUT T R " ") + [for F TSTREAM in FILES unless (DIRECTORYNAMEP F) + do (STRESS NOERROR (SETQ TSTREAM (OPENTEXTSTREAM F] + finally (RETURN (LIST R N]) (STRESSREAD - [LAMBDA (FILES REPS NOERROR) (* ; "Edited 19-Mar-2024 21:34 by rmk") + [LAMBDA (FILES REPS NOERROR) (* ; "Edited 29-Jun-2025 21:56 by rmk") + (* ; "Edited 2-Jun-2025 21:28 by rmk") + (* ; "Edited 31-May-2025 09:13 by rmk") + (* ; "Edited 19-Mar-2024 21:34 by rmk") (* ; "Edited 15-Mar-2024 15:19 by rmk") (* ; "Edited 12-Mar-2024 09:48 by rmk") (* ; "Edited 11-Mar-2024 09:13 by rmk") - (CL:UNLESS FILES - (SETQ FILES (FILDIR '*.TEDIT;))) - (SETQ REPS (SELECTQ REPS - (T MAX.SMALLP) - (NIL 1) - REPS)) + (SETQ FILES (STRESS-SETUP FILES 'STRESSREAD)) + (CL:UNLESS REPS (SETQ REPS MAX.SMALLP)) + (BKSYSBUF " ") (PRINTOUT T REPS " reps of " (LENGTH FILES) " files" T) + (for R (N _ 0) from 1 to REPS do (PRINTOUT T R " ") + [for F TSTREAM in FILES unless (DIRECTORYNAMEP F) + do (STRESS NOERROR (SETQ TSTREAM (OPENTEXTSTREAM F)) + (CHECKARRAYS 'AFTEROPEN) + (for I from 1 while (TEDIT.NTHCHARCODE TSTREAM I] + finally (RETURN (LIST (SUB1 R) + N]) + +(STRESSFORMAT + [LAMBDA (FILES REPS NOERROR) (* ; "Edited 29-Jun-2025 21:56 by rmk") + (* ; "Edited 23-Jun-2025 12:34 by rmk") + (* ; "Edited 2-Jun-2025 21:28 by rmk") + (* ; "Edited 31-May-2025 09:19 by rmk") + (* ; "Edited 19-Mar-2024 21:34 by rmk") + (* ; "Edited 15-Mar-2024 15:19 by rmk") + (* ; "Edited 12-Mar-2024 09:48 by rmk") + (* ; "Edited 11-Mar-2024 09:13 by rmk") + + (* ;; "Calls FORMATLINE from beginning to end of each file") + + (SETQ FILES (STRESS-SETUP FILES 'STRESSFORMAT)) + (CL:UNLESS REPS (SETQ REPS MAX.SMALLP)) + (BKSYSBUF " ") + (PRINTOUT T REPS " reps of " (LENGTH FILES) + " files" T) + (for R (N _ 0) from 1 to REPS do (PRINTOUT T R " ") + [for F TSTREAM TEXTOBJ in FILES unless (DIRECTORYNAMEP F) + do (SETQ TSTREAM (OPENTEXTSTREAM F)) + (CHECKARRAYS 'AFTEROPEN) + (SETQ TEXTOBJ (TEXTOBJ TSTREAM)) + (STRESS NOERROR (bind LINE (NCHARS _ (TEDIT.NCHARS TSTREAM + )) + (CHNO _ 1) + while (ILESSP CHNO NCHARS) + do (CHECKARRAYS 'BEFORE) + (SETQ LINE (\TEDIT.FORMATLINE + TSTREAM CHNO)) + (CHECKARRAYS 'AFTER) + (SETQ CHNO (GETLD LINE LCHARLIM] + finally (RETURN (LIST (SUB1 R) + N]) + +(STRESSDISPLAY + [LAMBDA (FILES REPS NOERROR) (* ; "Edited 29-Jun-2025 21:14 by rmk") + (* ; "Edited 23-Jun-2025 12:34 by rmk") + (* ; "Edited 2-Jun-2025 21:29 by rmk") + (* ; "Edited 19-Mar-2024 21:34 by rmk") + (* ; "Edited 15-Mar-2024 15:19 by rmk") + (* ; "Edited 12-Mar-2024 09:48 by rmk") + (* ; "Edited 11-Mar-2024 09:13 by rmk") + + (* ;; "Creates a single empty window, gets each file into that window without a process, and then displays every line there") + + [SETQ FILES (OR (MKLIST FILES) + (FILDIR '*.TEDIT;] + (CL:UNLESS REPS (SETQ REPS MAX.SMALLP)) + (BKSYSBUF " ") + (PRINTOUT T REPS " reps of " (LENGTH FILES) + " files" T) + (for R [WINDOW _ (CREATEW '(600 800 800 150] + (N _ 0) from 1 to REPS + do (PRINTOUT T R " ") + (for F TSTREAM TEXTOBJ in FILES unless (DIRECTORYNAMEP F) + do (* ; "No process") + (STRESS NOERROR (WINDOWPROP WINDOW 'TITLE (CONCAT "Fetching " F)) + [SETQ TSTREAM (OPENTEXTSTREAM F WINDOW '(READONLY T LEAVETTY T] + (CHECKARRAYS 'AFTEROPEN) + (SETQ TEXTOBJ (TEXTOBJ TSTREAM)) + (bind LINE (NCHARS _ (TEDIT.NCHARS TSTREAM)) + (CHNO _ 1) while (ILESSP CHNO NCHARS) do (CHECKARRAYS 'BEFOREFORMAT) + (SETQ LINE (\TEDIT.FORMATLINE + TSTREAM CHNO)) + (CHECKARRAYS 'BEFOREDISPLAY) + (\TEDIT.DISPLAYLINE TSTREAM + LINE WINDOW) + (CHECKARRAYS 'AFTERDISPLAY) + (SETQ CHNO (GETLD LINE LCHARLIM + ))) + (CHECKARRAYS 'BEFOREDEACTIVATE) + (TEDIT.DEACTIVATE.WINDOW WINDOW) + (CHECKARRAYS 'AFTERDEACTIVATE) + (CLEARW WINDOW))) finally (RETURN (LIST (SUB1 R) + N]) + +(STRESSSCROLL + [LAMBDA (FILES NSCROLLS REPS NOERROR) (* ; "Edited 29-Jun-2025 21:56 by rmk") + (* ; "Edited 5-Jun-2025 21:11 by rmk") + (* ; "Edited 2-Jun-2025 21:29 by rmk") + (* ; "Edited 19-Mar-2024 21:34 by rmk") + (* ; "Edited 15-Mar-2024 15:19 by rmk") + (* ; "Edited 12-Mar-2024 09:48 by rmk") + (* ; "Edited 11-Mar-2024 09:13 by rmk") + + (* ;; "Creates a single empty window, gets each file into that window without a process, and then does NSCROLLS random scrolls before moving on to the next file.") + + (SETQ FILES (STRESS-SETUP FILES 'STRESSSCROLL)) + (CL:UNLESS NSCROLLS (SETQ NSCROLLS 10)) + (CL:UNLESS REPS (SETQ REPS MAX.SMALLP)) + (BKSYSBUF " ") + (PRINTOUT T "STRESS SCROLL: " REPS " reps randomly scrolling " NSCROLLS " times in " (LENGTH + FILES) + " files" T) + (SAVERANDSTATE) + (for R [WINDOW _ (CREATEW '(600 500 750 400] + (N _ 0) from 1 to REPS + do (PRINTOUT T R " ") + (for F TSTREAM TEXTOBJ LEN in FILES unless (DIRECTORYNAMEP F) + do (* ; "No process") + (WINDOWPROP WINDOW 'TITLE (CONCAT "Fetching " F)) + [STRESS NOERROR [SETQ TSTREAM (OPENTEXTSTREAM F WINDOW '(READONLY T LEAVETTY T] + (CHECKARRAYS 'AFTEROPEN) + (SETQ TEXTOBJ (TEXTOBJ TSTREAM)) + (SETQ LEN (TEDIT.NCHARS TSTREAM)) + (for I from 1 to NSCROLLS do (CHECKARRAYS 'BEFORE) + (TEDIT.SETSEL TSTREAM (RAND 1 LEN) + 1) + (TEDIT.NORMALIZECARET TSTREAM NIL T) + (CHECKARRAYS 'AFTER] + (TEDIT.DEACTIVATE.WINDOW WINDOW) + (CLEARW WINDOW)) finally (RETURN (LIST (SUB1 R) + N]) + +(STRESSDELETE + [LAMBDA (FILES NTIMES REPS NOERROR) (* ; "Edited 29-Jun-2025 21:56 by rmk") + (* ; "Edited 5-Jun-2025 21:11 by rmk") + (* ; "Edited 4-Jun-2025 09:20 by rmk") + (* ; "Edited 2-Jun-2025 21:29 by rmk") + (* ; "Edited 19-Mar-2024 21:34 by rmk") + (* ; "Edited 15-Mar-2024 15:19 by rmk") + (* ; "Edited 12-Mar-2024 09:48 by rmk") + (* ; "Edited 11-Mar-2024 09:13 by rmk") + + (* ;; + "For each file does NDELETES random single-character deletes before moving on to the next file.") + + (SETQ FILES (STRESS-SETUP FILES 'STRESSDELETE)) + (CL:UNLESS NTIMES (SETQ NTIMES 10)) + (CL:UNLESS REPS (SETQ REPS MAX.SMALLP)) + (BKSYSBUF " ") + (PRINTOUT T "STRESS DELETE: " REPS " reps randomly deleting 1 character " NTIMES " times in " + (LENGTH FILES) + " files" T) + (SAVERANDSTATE) (for R (N _ 0) from 1 to REPS do (PRINTOUT T R " ") - (for F TSTRM inside FILES - do (if (if NOERROR - then (NLSETQ (SETQ TSTRM (OPENTEXTSTREAM F)) - (for I from 1 while (TEDIT.NTHCHARCODE TSTRM I))) - else (SETQ TSTRM (OPENTEXTSTREAM F)) - (for I from 1 while (TEDIT.NTHCHARCODE TSTRM I)) + (for F TSTREAM TEXTOBJ LEN in FILES unless (DIRECTORYNAMEP F) + do (* ; "No process") + (STRESS NOERROR [SETQ TSTREAM (OPENTEXTSTREAM F NIL '(LEAVETTY T HISTORY OFF] + (CHECKARRAYS 'AFTEROPEN) + (SETQ TEXTOBJ (TEXTOBJ TSTREAM)) + (SETQ LEN (TEDIT.NCHARS TSTREAM)) + (for I from 1 to NTIMES do (CHECKARRAYS 'BEFORE) + (TEDIT.DELETE TSTREAM (RAND 1 LEN) + 1) + (CHECKARRAYS 'AFTER) + (add LEN -1)) + (CLOSEF? TSTREAM))) finally (RETURN (LIST (SUB1 R) + N]) + +(STRESSDELETEWINDOW + [LAMBDA (FILES NTIMES REPS NOERROR) (* ; "Edited 29-Jun-2025 21:56 by rmk") + (* ; "Edited 5-Jun-2025 21:11 by rmk") + (* ; "Edited 4-Jun-2025 09:19 by rmk") + (* ; "Edited 2-Jun-2025 22:35 by rmk") + (* ; "Edited 19-Mar-2024 21:34 by rmk") + (* ; "Edited 15-Mar-2024 15:19 by rmk") + (* ; "Edited 12-Mar-2024 09:48 by rmk") + (* ; "Edited 11-Mar-2024 09:13 by rmk") + + (* ;; "Creates a single empty window, gets each file into that window without a process, and then does NTIMES random 1-character deletions before moving on to the next file.") + + (SETQ FILES (STRESS-SETUP FILES 'STRESSDELETEWINDOW)) + (CL:UNLESS NTIMES (SETQ NTIMES 10)) + (CL:UNLESS REPS (SETQ REPS MAX.SMALLP)) + (BKSYSBUF " ") + (PRINTOUT T "STRESS INSERT: " REPS " reps randomly inserting 3 characters " NTIMES " times in " + (LENGTH FILES) + " files" T) + (SAVERANDSTATE) + (for R [WINDOW _ (CREATEW '(550 800 750 150] + (N _ 0) from 1 to REPS + do (PRINTOUT T R " ") + (for F TSTREAM TEXTOBJ LEN in FILES unless (DIRECTORYNAMEP F) + do (* ; "No process") + (WINDOWPROP WINDOW 'TITLE (CONCAT "Fetching " F)) + (STRESS NOERROR [SETQ TSTREAM (OPENTEXTSTREAM F WINDOW '(LEAVETTY T HISTORY OFF] + (CHECKARRAYS 'AFTEROPEN) + (SETQ TEXTOBJ (TEXTOBJ TSTREAM)) + (SETQ LEN (TEDIT.NCHARS TSTREAM)) + (for I from 1 to NTIMES do (CHECKARRAYS 'BEFORE) + (TEDIT.DELETE TSTREAM (RAND 1 LEN)) + (CHECKARRAYS 'AFTER) + (add LEN -1))) + (PUTTEXTPROP TSTREAM 'DIRTY NIL) + (TEDIT.DEACTIVATE.WINDOW WINDOW) + (CLEARW WINDOW)) finally (RETURN (LIST (SUB1 R) + N]) + +(STRESSINSERT + [LAMBDA (FILES NTIMES REPS NOERROR SYSOUTNAME) (* ; "Edited 29-Jun-2025 21:18 by rmk") + (* ; "Edited 26-Jun-2025 20:19 by rmk") + (* ; "Edited 5-Jun-2025 21:11 by rmk") + (* ; "Edited 4-Jun-2025 09:18 by rmk") + (* ; "Edited 2-Jun-2025 22:34 by rmk") + (* ; "Edited 19-Mar-2024 21:34 by rmk") + (* ; "Edited 15-Mar-2024 15:19 by rmk") + (* ; "Edited 12-Mar-2024 09:48 by rmk") + (* ; "Edited 11-Mar-2024 09:13 by rmk") + + (* ;; "Does random inserts in the tstreams without a window or process") + + (DECLARE (SPECVARS SYSOUTNAME)) + (SETQ FILES (STRESS-SETUP FILES 'STRESSINSERT)) + (CL:UNLESS NTIMES (SETQ NTIMES 10)) + (CL:UNLESS REPS (SETQ REPS MAX.SMALLP)) + (PRINTOUT T T "STRESSINSERT: " T 2 REPS " reps randomly inserting 3 characters " NTIMES + " times in " (LENGTH FILES) + " files" T) + (PRINTOUT T 2 "Saving " (if (EQ NSYSOUTS 0) + then "no sysouts" + elseif (EQ NSYSOUTS 'SAVEVM) + then " the virtual memory" + else (PRINTOUT NIL NSYSOUTS " sysouts on ") + (PSEUDOFILENAME SYSOUTNAME)) + T) + (SAVERANDSTATE) + (for REP SYSOUTS AFTERCRASH (N _ 0) from 1 to REPS declare (SPECVARS SYSOUTS AFTERCRASH) + do (CL:WHEN AFTERCRASH (TERPRI T)) + (PRINTOUT T REP " ") + (for F TSTREAM TEXTOBJ LEN in FILES unless (DIRECTORYNAMEP F) + do (CL:WHEN AFTERCRASH + (PRINTOUT T T [if (EQ 'TEDIT (FILENAMEFIELD F 'EXTENSION)) + then (FILENAMEFIELD F 'NAME) + else (PACKFILENAME 'NAME (FILENAMEFIELD F 'NAME) + 'EXTENSION + (FILENAMEFIELD F 'EXTENSION] T) - then (CLOSEF TSTRM) - (add N 1) - else (PRINTOUT T T "Error for " (PACKFILENAME 'HOST NIL 'DIRECTORY NIL 'BODY F) - T))) finally (RETURN (LIST (SUB1 R) - N]) + 'FILE) + (STRESS NOERROR [SETQ TSTREAM (OPENTEXTSTREAM F NIL '(LEAVETTY T HISTORY OFF] + (CHECKARRAYS 'AFTEROPEN) + (SETQ TEXTOBJ (TEXTOBJ TSTREAM)) + (SETQ LEN (TEDIT.NCHARS TSTREAM)) + (for I RAND from 1 to NTIMES do (CHECKARRAYS 'BEFORE) + (SETQ RAND (RAND 1 LEN)) + (CL:WHEN AFTERCRASH (PRINTOUT T RAND " ")) + (SETQ SYSOUTS (STRESS-SYSOUT SYSOUTS + SYSOUTNAME)) + (TEDIT.INSERT TSTREAM "aaa" RAND) + (CHECKARRAYS 'AFTER) + (add LEN 3)) + (CLOSEF? TSTREAM))) finally (RETURN (LIST (SUB1 REP) + N]) + +(STRESSINSERTWINDOW + [LAMBDA (FILES NTIMES REPS NOERROR) (* ; "Edited 29-Jun-2025 21:57 by rmk") + (* ; "Edited 5-Jun-2025 21:12 by rmk") + (* ; "Edited 2-Jun-2025 22:35 by rmk") + (* ; "Edited 19-Mar-2024 21:34 by rmk") + (* ; "Edited 15-Mar-2024 15:19 by rmk") + (* ; "Edited 12-Mar-2024 09:48 by rmk") + (* ; "Edited 11-Mar-2024 09:13 by rmk") + + (* ;; "Creates a single empty window, gets each file into that window without a process, and then does NTIMES random 3-character inserts before moving on to the next file.") + + (SETQ FILES (STRESS-SETUP FILES 'STRESSINSERTWINDOW)) + (CL:UNLESS NTIMES (SETQ NTIMES 10)) + (CL:UNLESS REPS (SETQ REPS MAX.SMALLP)) + (BKSYSBUF " ") + (PRINTOUT T "STRESS INSERT: " REPS " reps randomly inserting 3 characters " NTIMES " times in " + (LENGTH FILES) + " files" T) + (SAVERANDSTATE) + (for R [WINDOW _ (CREATEW '(550 800 750 150] + (N _ 0) from 1 to REPS + do (PRINTOUT T R " ") + (for F TSTREAM TEXTOBJ LEN in FILES unless (DIRECTORYNAMEP F) + do (* ; "No process") + (WINDOWPROP WINDOW 'TITLE (CONCAT "Fetching " F)) + (STRESS NOERROR [SETQ TSTREAM (OPENTEXTSTREAM F WINDOW '(LEAVETTY T HISTORY OFF] + (CHECKARRAYS 'AFTEROPEN) + (SETQ TEXTOBJ (TEXTOBJ TSTREAM)) + (SETQ LEN (TEDIT.NCHARS TSTREAM)) + (for I from 1 to NTIMES do (CHECKARRAYS 'BEFORE) + (TEDIT.INSERT TSTREAM "aaa" (RAND 1 LEN)) + (CHECKARRAYS 'AFTER) + (add LEN 3))) + (PUTTEXTPROP TSTREAM 'DIRTY NIL) + (TEDIT.DEACTIVATE.WINDOW WINDOW) + (CLEARW WINDOW)) finally (RETURN (LIST (SUB1 R) + N]) (STRESSGREP - [LAMBDA (FILES NOERROR TARGET) (* ; "Edited 17-Mar-2024 19:46 by rmk") + [LAMBDA (FILES NOERROR TARGET) (* ; "Edited 29-Jun-2025 21:57 by rmk") + (* ; "Edited 2-Jun-2025 21:30 by rmk") + (* ; "Edited 17-Mar-2024 19:46 by rmk") (* ;; "GREP does forward bins and peekbins. If it hits on something, it also runs the backfileptr function. FOO appears in quite a few lispusers/ Tedit files.") - (CL:UNLESS FILES - (SETQ FILES (FILDIR '*.TEDIT;))) + (SETQ FILES (STRESS-SETUP FILES 'STRESSGREP)) (CL:UNLESS TARGET (SETQ TARGET "FOO")) (FILESLOAD GREP) - (for F inside FILES unless (if NOERROR - then (NLSETQ (GREP TARGET F)) - else (GREP TARGET F) - T) do (PRINTOUT T T "Error for " (PACKFILENAME 'HOST NIL - 'DIRECTORY NIL - 'BODY F) - T]) + (for F in FILES unless (DIRECTEORYNAMEP F) unless (if NOERROR + then (NLSETQ (GREP TARGET F)) + else (PROGN (GREP TARGET F)) + T) + do (PRINTOUT T T "Error for " (PACKFILENAME 'HOST NIL 'DIRECTORY NIL 'BODY F) + T]) (STRESSPEEK - [LAMBDA (FILES ERROR) (* ; "Edited 19-Mar-2024 21:33 by rmk") - (CL:UNLESS FILES - (SETQ FILES (FILDIR '*.TEDIT;))) - (for F TSTRM inside FILES eachtime (SETQ TSTRM (OPENTEXTSTREAM F)) - unless [if ERROR - then (bind P while (SETQ P (PEEKCCODE TSTRM T)) always (EQ P (BIN TSTRM))) - else (NLSETQ (bind P while (SETQ P (PEEKCCODE TSTRM T)) - always (EQ P (BIN TSTRM] do (PRINTOUT T "Error for " - (PACKFILENAME 'HOST NIL - 'DIRECTORY NIL 'BODY F) - T) - repeatwhile (PROGN (CLOSEF? TSTRM) - T]) + [LAMBDA (FILES ERROR) (* ; "Edited 29-Jun-2025 21:57 by rmk") + (* ; "Edited 2-Jun-2025 21:30 by rmk") + (* ; "Edited 19-Mar-2024 21:33 by rmk") + (SETQ FILES (STRESS-SETUP FILES 'STRESSPEEK)) + (for F TSTREAM (N _ 0) in FILES unless (DIRECTORYNAMEP F) + do (STRESS (NOT ERROR) + (SETQ TSTREAM (OPENTEXTSTREAM F)) + (CHECKARRAYS 'AFTEROPEN) + (bind P while (SETQ P (PEEKCCODE TSTREAM T)) always (EQ P (BIN TSTREAM]) +) +(DEFINEQ + +(STRESS-SETUP + [LAMBDA (FILES SUBDIR) (* ; "Edited 29-Jun-2025 21:18 by rmk") + (* ; "Edited 26-Jun-2025 20:18 by rmk") + + (* ;; "Copy the files to CORE, defaulting to TEDIT files in connected directory, and load all the image object functions.") + + (DECLARE (USEDFREE SYSOUTNAME)) + (BKSYSBUF " ") + (CL:UNLESS SYSOUTNAME (SETQ SYSOUTNAME SUBDIR)) + (LET ((COREDIR (PACKFILENAME 'HOST 'CORE 'DIRECTORY SUBDIR)) + TOCOPY) + (if (EQ FILES T) + then (CL:UNLESS [SETQ FILES (FILDIR (PACKFILENAME 'BODY COREDIR 'BODY '*] + (ERROR "No stress files in " COREDIR)) + (PRINTOUT T "Stress files in " COREDIR T) + else [SETQ FILES (OR (MKLIST FILES) + (FILDIR '*.TEDIT;] + (SETQ TOCOPY (for F in FILES unless (INFILEP (PACKFILENAME 'BODY COREDIR 'BODY F)) + collect F)) + (if TOCOPY + then (PRINTOUT T "Copying " (LENGTH TOCOPY) + " files to " COREDIR T) + (for F CF in TOCOPY collect (SETQ CF (COPYFILE F (PACKFILENAME 'BODY COREDIR + 'BODY F))) + (CLOSEF? (OPENTEXTSTREAM CF)) + CF) + else (PRINTOUT T (LENGTH FILES) + " files already copied to " COREDIR T)) + (FILDIR (PACKFILENAME 'BODY COREDIR 'BODY '*]) + +(STRESS-SYSOUT + [LAMBDA (SYSOUTS SYSOUTNAME) (* ; "Edited 29-Jun-2025 21:18 by rmk") + (* ; "Edited 26-Jun-2025 20:57 by rmk") + (DECLARE (USEDFREE NSYSOUTS)) + (if (EQ NSYSOUTS 'SAVEVM) + then (SAVEVM) + elseif (IGREATERP NSYSOUTS 0) + then + (* ;; "Keep NSYSOUT sysouts with increasing versions") + + (CL:WHEN (IGEQ (LENGTH SYSOUTS) + NSYSOUTS) + (DELFILE (pop SYSOUTS))) (* ; + "Drop the oldest, put out the newest") + (SETQ SYSOUTNAME (SYSOUT SYSOUTNAME)) + [if (LISTP SYSOUTNAME) + then (* ; + "Restarting presumab ly after crash") + (SETQ AFTERCRASH T) + else + (* ;; "Newest goes at the end of the ring") + + (SETQ SYSOUTS (NCONC1 SYSOUTS SYSOUTNAME)) + (CL:WHEN (IGREATERP (FILENAMEFIELD SYSOUTNAME 'VERSION) + 1000) (* ; "Restart the versions at one") + [SETQ SYSOUTS (for S in SYSOUTS as V from 1 + collect (RENAMEFILE S (PACKFILENAME 'VERSION V 'BODY S])] + SYSOUTS]) + +(STRESS-AFTERSYSOUT + [LAMBDA NIL (* ; "Edited 26-Jun-2025 09:18 by rmk") + (DECLARE (USEDFREE SYSOUTLEVEL)) (* ; + "Bound at the stress-test entry, or top-level NIL") + (BKSYSBUF " ") + (CL:WHEN SYSOUTLEVEL + (CL:WHEN (OR (UNIX-GETENV "STRESSHELP") + (EQ SYSOUTLEVEL 'EVENT)) + (HELP "STRESS SYSOUT")) + (SETQ SYSOUTLEVEL (SELECTQ SYSOUTLEVEL + (REPS 'FILE) + (FILE 'EVENT) + NIL)))]) + +(SYSOUTRING + [LAMBDA (SYSOUTNAME SYSOUTS) (* ; "Edited 29-Jun-2025 21:19 by rmk") + (* ; "Edited 26-Jun-2025 20:06 by rmk") + (* ; "Edited 12-Mar-2024 17:52 by rmk") + + (* ;; "SYSOUTS is the list of names of sysouts that currently exist.") + + (DECLARE (USEDFREE NSYSOUTS AFTERCRASH)) + (CL:WHEN (IGREATERP NSYSOUTS 0) (* ; + "Keep NSYSOUT sysouts with increasing versions") + (CL:WHEN (IGEQ (LENGTH SYSOUTS) + NSYSOUTS) + (DELFILE (pop SYSOUTS))) (* ; + "Drop the oldest, put out the newest") + (SETQ SYSOUTNAME (SYSOUT SYSOUTNAME)) + (CL:WHEN (LISTP SYSOUTNAME) (* ; "Restarting") + (SETQ AFTERCRASH T)) + (NCONC1 SYSOUTS SYSOUTNAME))]) + +(SYSOUTNAME + [LAMBDA (SYSOUTNAME) (* ; "Edited 26-Jun-2025 00:12 by rmk") + + (* ;; "Doesn't work with PSEUDOFILENAME ??") + + (PACKFILENAME 'VERSION NIL 'DIRECTORY MEDLEYDIR 'NAME SYSOUTNAME 'EXTENSION 'SYSOUT]) + +(SYSOUTRING + [LAMBDA (SYSOUTNAME SYSOUTS) (* ; "Edited 29-Jun-2025 21:19 by rmk") + (* ; "Edited 26-Jun-2025 20:06 by rmk") + (* ; "Edited 12-Mar-2024 17:52 by rmk") + + (* ;; "SYSOUTS is the list of names of sysouts that currently exist.") + + (DECLARE (USEDFREE NSYSOUTS AFTERCRASH)) + (CL:WHEN (IGREATERP NSYSOUTS 0) (* ; + "Keep NSYSOUT sysouts with increasing versions") + (CL:WHEN (IGEQ (LENGTH SYSOUTS) + NSYSOUTS) + (DELFILE (pop SYSOUTS))) (* ; + "Drop the oldest, put out the newest") + (SETQ SYSOUTNAME (SYSOUT SYSOUTNAME)) + (CL:WHEN (LISTP SYSOUTNAME) (* ; "Restarting") + (SETQ AFTERCRASH T)) + (NCONC1 SYSOUTS SYSOUTNAME))]) + +(SYSOUTNAME + [LAMBDA (SYSOUTNAME) (* ; "Edited 26-Jun-2025 00:12 by rmk") + + (* ;; "Doesn't work with PSEUDOFILENAME ??") + + (PACKFILENAME 'VERSION NIL 'DIRECTORY MEDLEYDIR 'NAME SYSOUTNAME 'EXTENSION 'SYSOUT]) ) (DEFINEQ @@ -261,41 +646,84 @@ (LIST I C1 C2))) (RETURN NIL) finally (RETURN T]) -(SYSOUTRING - [LAMBDA (NSYSOUTS SYSOUTNAME SYSOUTS) (* ; "Edited 12-Mar-2024 17:52 by rmk") - - (* ;; "SYSOUTS is the list of names of sysouts that currently exist.") - - (DECLARE (USEDFREE SINGLESTEP)) - (CL:WHEN (IGREATERP NSYSOUTS 0) (* ; - "Keep NSYSOUT sysouts with increasing versions") - (CL:WHEN (IGEQ (LENGTH SYSOUTS) - NSYSOUTS) - (DELFILE (pop SYSOUTS))) (* ; - "Drop the firstr (oldest), new one goes at the end") - (SETQ SYSOUTNAME (SYSOUT SYSOUTNAME)) - (CL:WHEN (LISTP SYSOUTNAME) (* ; "Restarting") - (SETQ SINGLESTEP T)) - (NCONC1 SYSOUTS SYSOUTNAME))]) - (COPYTOCORE - [LAMBDA (FILES NORECLAIM) (* ; "Edited 12-Mar-2024 22:45 by rmk") + [LAMBDA (FILES SUBDIR NORECLAIM) (* ; "Edited 25-Jun-2025 23:41 by rmk") + (* ; "Edited 2-Jun-2025 21:30 by rmk") + (* ; "Edited 12-Mar-2024 22:45 by rmk") (* ;; "Copy FILES to {CORE}, defaulting to TEDIT files in connected directory") - (CL:UNLESS (LISTP FILES) - (SETQ FILES (FILDIR (OR FILES "*.TEDIT;")))) + [SETQ FILES (OR (MKLIST FILES) + (FILDIR '*.TEDIT;] (PRINTOUT T "Copying " (LENGTH FILES) " files to {CORE} " (CL:IF NORECLAIM "without " "with ") "reclaiming" T) - (for F in FILES collect (COPYFILE F (PACKFILENAME 'HOST 'CORE 'DIRECTORY NIL 'BODY F)) - finally (CL:UNLESS NORECLAIM (RECLAIM]) + (for F CF in FILES collect (SETQ CF (PACKFILENAME 'HOST 'CORE 'DIRECTORY SUBDIR 'BODY F)) + (OR (INFILEP CF) + (COPYFILE F CF)) finally (CL:UNLESS NORECLAIM (RECLAIM]) + +(CHECKARRAYS + [LAMBDA (TAG) + (DECLARE (SPECVARS TAG)) (* ; "Edited 2-Jun-2025 21:11 by rmk") + + (* ;; "TAG is visible as an argument in URAID") + + (CL:WHEN CHECKARRAYS + (CL:WHEN (EQ CHECKARRAYS 'RECLAIM) + (RECLAIM)) + (\PARSEARRAYSPACE))]) + +(SAVERANDSTATE + [LAMBDA NIL (* ; "Edited 5-Jun-2025 21:20 by rmk") + (DECLARE (USEDFREE USELASTRANDSTATE)) + (LET (RSTREAM) + (if USELASTRANDSTATE + then (SETQ RSTREAM (OPENSTREAM 'RANDSTATE 'INPUT)) + (RANDSET (READ RSTREAM)) + else (SETQ RSTREAM (OPENSTREAM 'RANDSTATE 'OUTPUT)) + (PRINTOUT RSTREAM (RANDSET T) + T)) + (CLOSEF RSTREAM]) +) + +(RPAQ? CHECKARRAYS NIL) + +(RPAQ? USELASTRANDSTATE NIL) + +(RPAQ? SYSOUTLEVEL NIL) + +(RPAQ? NSYSOUTS 0) + +(RPAQQ ARRAYBLOCKCHECKING T) + +(APPENDTOVAR AFTERSYSOUTFORMS (STRESS-AFTERSYSOUT)) + +(FILESLOAD TEDIT-DEBUG) +(DECLARE%: EVAL@COMPILE + +(PUTPROPS STRESS MACRO ((NOERROR . FORMS) + (CHECKARRAYS 'BEFORESTRESS) + (if (if NOERROR + then (NLSETQ . FORMS) + else (PROGN . FORMS) + T) + then (add N 1) + else (PRINTOUT T T "Error for " (PACKFILENAME 'HOST NIL 'DIRECTORY NIL + 'BODY F) + T)) + (CHECKARRAYS 'AFTERSTRESS) + (CLOSEF? TSTREAM))) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (722 12866 (STRESSHC 732 . 4315) (STRESSRAND 4317 . 6053) (STRESSPUT 6055 . 8023) ( -STRESSOPEN 8025 . 9458) (STRESSREAD 9460 . 10995) (STRESSGREP 10997 . 11940) (STRESSPEEK 11942 . 12864 -)) (12867 15560 (EQTEXTSTREAM 12877 . 14046) (SYSOUTRING 14048 . 14928) (COPYTOCORE 14930 . 15558))))) + (FILEMAP (NIL (1548 32125 (STRESSHC 1558 . 5389) (STRESSRAND 5391 . 6927) (STRESSPUT 6929 . 8498) ( +STRESSOPEN 8500 . 9663) (STRESSREAD 9665 . 11165) (STRESSFORMAT 11167 . 13642) (STRESSDISPLAY 13644 . +16623) (STRESSSCROLL 16625 . 19193) (STRESSDELETE 19195 . 21574) (STRESSDELETEWINDOW 21576 . 24168) ( +STRESSINSERT 24170 . 27854) (STRESSINSERTWINDOW 27856 . 30342) (STRESSGREP 30344 . 31418) (STRESSPEEK +31420 . 32123)) (32126 38911 (STRESS-SETUP 32136 . 33889) (STRESS-SYSOUT 33891 . 35473) ( +STRESS-AFTERSYSOUT 35475 . 36139) (SYSOUTRING 36141 . 37249) (SYSOUTNAME 37251 . 37524) (SYSOUTRING +37526 . 38634) (SYSOUTNAME 38636 . 38909)) (38912 41860 (EQTEXTSTREAM 38922 . 40091) (COPYTOCORE 40093 + . 41023) (CHECKARRAYS 41025 . 41352) (SAVERANDSTATE 41354 . 41858))))) STOP diff --git a/library/tedit/TEDIT-STRESS.LCOM b/library/tedit/TEDIT-STRESS.LCOM index 27f0a84aeb393ee125494c0695369fd6f8e5a794..0e67fe4dae030894bc0c622ab152821195a7c71d 100644 GIT binary patch literal 32051 zcmeHweQadcb>EQOl~yB(CAkZEOKgRkNu!e6aKrcB%%II51Tz7Y9m} zsZc#%ElkW7E*Dj%RB04z)?yqq{aUZ@w9H`t#}_fZKGxUEr~R2hF{ zVCJ=31OA|&Q@%Hv8yWS6GpaAMymj;T`sV72+PbAOD*cO-_1Q0ea(-uZd*`K%rQ4fJ zw_Yl5EiY}pbaQoObM^J$QtqXn-`d_-zxBBRIrGxy`t|Ll?blzzTS^W2J5X=biuL-X z7d=1MuhP!Dy`j+{hyTy0>)Wf*%UA#Y?d_eP8ddV(^n^aB6)KbZusYw+M`5*CG1t)t zDlHF9g|)eYxu-r+3(IAF*JQC=Y!sazi>1nBxTsH+D)nNm;hef$D^~T@YOy%0)^DL1 zQ}Za&?#D})E@jlp(k^Us6H&vUMi;elJ8R~)h)p|(tf&ZzMDwp+blMsz^ z;cCC?TPW1(il?NWj1%Epy6(J&&YdajrO7E?)iO zC(Z1}7_aXhnB5RFGh+*bgM*$Log7a0Rh6gerP0xg6NSda^gs<&uT=)7YT?{PRaJv> zZE}8Y?&<(0?Ev3(QB5gdHK?@09F7D0H>I+CZ>5aZUl~{^l;?{$nN!mfB-%L4tLo%b zze@eR_S5aD^|9{uw)#^k{NM7a=I7{N{?V+>udl7FEWE*|zRZ80eUdJ(^)8>`pIxcG z?1*&NC6S{`(}mjPL|DD5{6I}i7omV^wZhdpREr`3Y!pAOD~mav8&;zg62G#_2C5p? z8<4+JwV{F`s-W_QRbdL6iyp-7ai>N7<*SPmVFk0b6jlZ>P0{(afpG{a#MbYs29w~id_w5l35omN#tQ8!o7fm0|P-OMwoj^jX8@Yh$R z#?@+(UaV@Wg!}5KNx4{WKrfUq1oA+oFjvISEVr_RXY0jkp@x}7v$KR!inUru&!d!L zwT^>9MMGD|YdyTlycWN*2U>!Yxg)!!U$y_EXFF0)j`0|#X+*E53jgfZ`|n?Gm+@cY zE5&;+@V`Gtckt0xbi_ZOeS&^JLw~NP3+r4`lkd^TV?2>sTv+T~x$)pP<=(wPF6_ZK z_{qJ@V(*$&l0M$-SX+6TUeqk=;?}ur=WT7yrKWWU-&@$2wCD1T?sKO~)9-!#PTN=Q zQc7+isHv`A^9;TJE5$O`yW^Sg z96#J6m4EY8*weEY$Q!S9+C_w&VHe4{(>EgL&Gk2CH{SWo-l%SY-B2!9=862(Rd#!i z?~-PQo$~M0elM3(;lE)QPanB7*Z$c%KiVtJuJ!gpv*dF*^$M%vOO5Gb8A6vERFHP) zJ(c%|)kHb07pFdjW1O}$O@5G6QmtBp_zn6B|5iMe8-dOP93m-V>B|jy=29-YKbOrO zqRnz%-g!xGFi7Y#l^up0Gk}?%5UrktaObHE{d1G`i zrLAW%(|B6rwE{sfb5Ok1&cKuR1IL@!!yM`PitbW**x-!X-NK(d3~*-VwVhqHwzR#n zymfn>psLDY`elmS+gsb}Rs5GxS&Ty8M0r%q)g{Y-YFpe7!=6`}Uz|Wkd~qraFIDR= zdYLrN4mxKir*K*YIUj|-3b$fM{rvjw+SY5k>eZ$7&DXY9aS`K@QEJ+*kdOCgYOA+# z!4IpKeX^U!S>we$K8irf*G#Y5ksxofNH3+vmvuPtq=o2xgs zwqMV{!s6yzTjqA0z)Ujr+FAMnoEZEZ!F$y9Dn@DRRUBc!GNw0y-{p|}5C`C8X@WCa zC^1HO6u1XTqtY4f5e}IGGQr#%FV?HYng)0fcK}Hn00QmJoIa(|-U92}<+N=F7CSfQ z`E+;3so9zLe*5g&O7C(PEAX!QjWU~LvCC`|{s$>&tt=~zY4`}WiEy$Am8;nM3IcPH zF4a#22Z4h%96SX1amfZN`?@b7pVXNnM`9k_AboPtMS?>I;1hwnWar`OxYr5y5&H8P z@d?fYdUZzNcnp`sp91BM0JHt7?Mu(Lr%ts*Z4=+#T)F;);3*!&heBf$hk_P{JcW%L z-5u?vmFf4s(Jal7ac*({Socqyp6$5z)LDi(|E=v6uEy8zr2dnI0mknRbay==aHZG4 zl?#9?Pib^u;7UiOXYW&GF5-LE^Aj6$dWt?1J{O*Q@9y86+X&BFQ!{*Srmt(?`+Ptf9B5nD%BUj6dCLh=ESPB?$HifL6qY1yIV4 ztqMG2@`AzWejipz(2gxm{?M?*ujeg|Q$5a(jF0IxO4mRhUnhri{WwGG>L$9a)jVH2%g`g>7DB zPQYb3*5t#W3mWw*v>9nMVhF6xF|>i6F2yVJr3KtG1k4atVNG6Xe?nW62FqlEJ79D# z_JR-Po+p|M`{!%*#ZLC2zQb1^S1#=Zf)(V)z81S{)MH@)myv3K%R|cSb`bL03O7! z$DB66fNEvz7`TWd)IM7_8kU6N8g5~@Fg6LRkEip13)N!{7*HjK6^2x^HZt5~#wy`a zWQ2F18Zcx>vobJbH=k}#oo;E!;<@rr7EBz}6B;V-iI#@yk1Rtoz7N0pNikH<8AEj* zhAJI)@k};`>Qva-vp0LtQq8rT|KFe3|HNEn(wh8&tD2e$cwAQNEUXr^Ze+C*eku8l z#%e*OYMl&q>RK%zYq{jZ#WT(zL{kf?pU=Be>H`xyV(Mq%|2iZfM3dZ6GHWcTFpQ2( zgN;c%K<=f0>qr}Vc#r**mmQ4Ff;MU7Y>OcqG~O%py>7&iu|xTYF31~CG_r+}DTM11 zdB`n{6^xo=te{TBSV1f-V+Ge)j1?HX*uC^dvazv3e_HbF8Y@(*rLjV%kgf7jj%%xc z%a77xK6!ix^%Wq5wWjF|zK=L$`vn&<+ZI*p)WA{A2Y&j#JeKId7wo37f&$ z=x%GT&oG+)4zo8JNy8KV?%tmf1kk3|aWIb$(`AQ@+B+;FM}1**AQb1vPRAUl3Lg!% zhCr>4RTX{{F`_>{8Nu?0F~RbdgIi;Q#lfwu2$r8d2wO3Q(sSWCoK=u6^7Y#>Kr3$6cxh+^>JOS}3q3NQFjrAA-I{G&xq5+P#0z(?#Msa3)2 zYVtM`aF4LFMYVXqv622V0Mqas9#{cU-;W7k8o(&ER0PHuV3M_oYNaToqXDMPhIojq zL?kPK*`WZFbhRD7h}aPH3hP*6)Lk8WJR3p`3jTLuKqxr{j+O<3jw~lATGCsU5C;%; zVZgdEq1gqR{Q4e8jB|ikqL% z@qUb!G~bROpr~A1D-mmK7f!KmA|`1%d*H2|YY1;9t%mMXkI;QS&{&` z7Gg;dI!I_7AM}r?90vDnFu)l^ezNjL5I2ZPNteWciE?ZVr3Y|n)Jw!hb97p|n`};i ztOm#CAS?BFT>p?ZN9O`QexsukN6F^IOvMlr@s3?KL_FnU@Wg^e`u=H?xHr!t%xvRg zC)*uKlUnSY=ac+v`59ZLb@aEVDF@n`-5oq@X#+8I_ET~O6p4-rTQ@HpGY3t&I{PL^dWLWic ztdy^+2Ix;j`x*@#_ESD#W@>eJd5tq44Dn^EW#SkSG6TvpFv7-WM^jDYIs@WWYL5h`*fBhR{ zYrXdbAu?MP=UINhKu7%ejqXz&6q{$~kyGbdM(4dJ%TaXx58FP=wLubM(UQ;c{h#UX zIwL`k=M9slz@$AL_VE32(4(v8PUb-Luu#jBtZi!TQX@WHinllNX?aHs$tL?)>PV zBNLh;>pCYfi`+e1lVsuYX!w$a77>h+MS`OPUnna|UqaNt+z-Llnk<0xW|ta3zzJk}U$joLWpf!$|X5#ehVmJj#dkz%oeBdVmbFxMh)2xO68Y_d+g5 zS)l-lIu|j@S&Z{6tsF^E7Rb56i=jiauxPAYwQHV*W5<9hYr{NFiDN(&AQv;KvjZS1 zQSz43rex2Ay$DQ_gHgi)jDdboRx_voO?B)AA>UZ}`GBy{D{2n7r>PIp&Bb#Y-R&L8>^(~hHa6y2y>5s$ zZLF;yP^+BX*91I+3UJ@oyLZapP2#BX7L`eXR8!s6eGJ%c(E5I;OGKOzfhJdNj^9D_@mWezXa(Mvc zl1MT9_GTLELdJQ0$SEtukf)`_8sjZ6$0H@l*@U({cgD=TC@jut=i-N$dM_V^T1u3Ys%V8$R8m^}?+VE0^v6XjuK zS)DLJ6C^Z65c^%OrU}>qBZo|@ngB0lT|?H;Rv`h1eplN-aAS4jI-Wi_iXW3>zfl!Ds_R>Y@#F!Xa8;Q7+Ok=)$M+VmB9V z9svqkJOJ3ia3cq}F$5f)9R%E&Qf#L}AcH{X8;s})!q-Y00{=2cMsvC&z)WE*lJ5X99{ zq_T{I7J(UIcd<&v^g_Y|0t|AM1ECR&y-aziE}5{D%o|Vf1RC*FU(Bbd=@N1+Ygbh` zHPvt6h+h6|xD<^?A3tRxXe4g@@e3VVLlB-IE&zG7Xw1JuH0EOmAZES8F#-9)lW`(x z9Jy(0w`MNm3(cuG0h(5v%HC^bORDUJ4?6NA|6u(lp^In3-thc;cZaRFVKszsz#89M zm%>iS5S|Qs0WNy?esEUG!V=HNvQXkje-2cERLDr)$jn)EL>3OYfeUb<#ZqO-#M!A( zL1fm*$mshC1(;%KDS%xpWfM4>fPjD?1YmUgPCw#K%z6rhi6Rw{h(7ssK2m)(elxtwGT7=w0_hv{Kni%=aRV($i~_U2R^{xVQQ6QP{-JN4{LQO8^Jc@ zX>|fizOuTxx=V)KQ_EN%xwO2C6&*-zjg7k08b-aPO&3z&BeCoc$3GY={|k?qeP9R3 zW-@I1{%>I4G4X6E!sKv-`tdLf01;x-Ps}i!$foNdFqZxQX`-Qpm47sv;eY=)(F~V9 zY?@)~k!Xe?%i2dY!vRqXy9ft#H8sib2akhfsBlfzgj#IDIDC(`jiFo*j?ZR!M}pP? z*(|O9pKp*|hNFm;w`7`;6JM1$B2+cx|)p&Nj^04@+|&LS}6;1AF(ns^wp@JANuB@#X{P(ytb#DhIPOg|tj z<>C>d9}Y1IkH|mJVo=(T0Q^G^yaRy7dh`hmaO1vimX3+-a8CCy;<*NK+Y(yFx9&%5g$Rh@QFBywTBX~U=el#_qhPm z`@X zRf31~US}RC3mHJO!oS4miZ!Y(SGz=Tu8c=?k`N7MrT{2lXhVv` z*~SM#GziXSmX?-idksm^qM*$o@?&Tc-CzTz@@5V~sq-WZj?B!U_>K4=iN&;F{tm`( zbUKPdhEY^UD3jP(Y`rsBJmom~#O&Brjkk^99l^|QF60}c35P{^S^%#hXB)7C%Yh*d zM=wXiHef&K?nth~b)!8kHh$8lHrq|);zNr4#0A=crNxZ3QP|&QX)_yz{jJ4Ji;co2 zSq!z{NnLeR=|=ZY>ixd{bNL&(6=t(9`;}weg{QEum)^ZMdw++|S!a^JdCx1Sj<)zuP##WNVp4zGiAaa)KN8emxA!bkdE)c(<^Z&59XpM+08MXtF%z;#hQ39_*~fdif|Y zlBeaqHr+(q9*M5ZLtB~qi8#`bGY8VhE;fgR4@VQ{0AXBBoQp`F95QaC^c+fOQYyKt zSPX@=2F`+CHY%8-Z&sVK2T7?c5R<&#HrN4TF?OwqRWraB=i#3KnCM#(`^0b0Ccj-tFA+JVg7cEm@H zi774$CQ|68S})E|hUVSK8Zrwky%CcXPKH!oLHly>)?~;G(WQBmv8neuiEabN(*ZWh z8_~>`Z2dxY*iHrL zJvqSYeK|ldkOhHvNr@k!BrUyhnPK!~W)gzV<7o#$=P2UFkRXSSBj`&}<-;%m2)AQ* zAM^8BjiKRhCN}^Rs;|`sVCYMC12D8aQ#U(*(cX1YS2g7e@f zIchnAzV3Y=FeM3!O~mj-gdvo!hPx+)x&NOzOm654$eQ|bVh)23n>pNlBs&PMr%al))w&q2F&y7Zxy0e}S;w$jJ~e?(T> zprR}pa2q0$%@K>9wH7Bs0oX;!HmyV-YJZjZ#K)YcByY0q#a|QpP&RWV`Vf4u4WqIk z7=%6qe-^_iiaZN_2+~*d_eVh=+T+9YA#$f3@WY#*GWekt-G_pnhfidp-A{F-^RW_% z*wrOAZ=x9lf18_#N3_C_yTLi?Wm3c;S*00XI3p9$G;=t?4GwuJ3V@O`Oq-RY!^P zh$}sM`<~RlM81~0XT|vMGPJsGr}B<|gBeYG)E+!Eg|r z;2=)V@(qT9=$PsGmGKgHZgc(ai<%y>=@hmt_D12QR?BLp+dqBh{VxH^af+unN^mzt z)zVhIju!UdZs<#Ze#U`A0GCG%xL%y#c(O%~R59L5+h<3$UJkK$32}YA#3XXcXv<~R z9<;JB)*eK)vi5+C8V3tr-(mihaeDMj1Jwyhw38U%Iv$gz0JpS{A16L9gFTcZ7lFPo z;>Z&GQKC4xHV^v|3HWc3YjD_ZkPxXCkKBO@A+X!}o0*C5^g@5|f1=qUnb$odiSXi(N1 zI8hp`0F&L3AWCY`au!5OHV6xg#L>PF=7{%Nrw=pukfBI!k+_kNC;FrWO&FqKu?Q62 zm+d^!PH*@!8GrtQ_Um^qLMV*XgRe1CACa=ePYXQ@$IXzk#Nf+G5UjeLlpSsg0!1U& zA)#`Bl`f*CA*1>M3JBQMq$q&>J6`PxK?|^7_Cf zf4G4*7SPnBe93{fuF6bo-F{tvv;dLT`tJ7X&W`@f0eaZG!=#L^LCt4r_GyC{I3I@wlBCJ*y+0Q?wfrw_ZR-pyZ>seZLIxz zswq-Z;D4^SuXOyz`f}%3*H~dqmW$(#0#AOHtXmy__U``w9NXv~KTRfcrmO9I?hpSYl?)bjznO-Kv;ho=l`F z=2xMu(2nJeGQVWnT~Doa{QCNGd$WMu8+e|e{Rrck0j40E^gkrj3@}iE3~+zCQYy0_ z$@g%zSYq6&Vwn0;sZ<;Hu((GI-uSmbKR$f+4DO-SYW8J;Z4%k|CVi_U%YFNbtq7k#Xg#VG#$~&+Fbk%7uQN%Fn9=i1(o=Txx zxd&z1{_%|mZ*Itm4R{4(;(mX(AphRSH_g7b-ZeA(;O^y_mCZChvo^c=?1Q_bGx+<) zEKc108NvVmSTOlFXJq@HyXVK>JjaTnG(-D{$kbo!V#W9^(usp+D+u`>7k#|w%6y?* zz~?Oy6fMo+TcgkdUSx&G>_tJ~O*-%4%cU>boD!mu!-k=bH^OFph_Z;vl*l?$ag{DM3sa4ow3E_N9? zWG@#RM#^}!fRW?&*V|fL7vMV9eT8h*)8pS}c`tRf$@YP)1Ne{FH~p;=*}vu9Q)StB z<^IgQXE0V4xQTza48vX2|pcv+2yg5O>blif|(z zV8MhO#9{3Sih){`YhWp$^Py~@Ts-6lh<&r&C?sJaje>@RrWCU&iH#&Mfin2Y>*mt> zP2d)MC<6dRe<1^=g%9c5Q21Vk19xQqa-4=tM9cLx;6h zSN6|wpFenmM?=2+2Q398_6k1KSV!J6ebf@2h&CXXLuL>fjE}WM$Iz_K2UGO?LnMG~ z9H%^bY92c#6!6=8Rs~h4w846JccrfEKOc`io1ss$65v03Kb5%lmdqpVA5DwGm48ri zfM-GNwD+b4$3U)nSS1?;YpMym5Te%=gn{9T;R1S;Hitr5g>?fOjH!e#+9Ae*^*M60 zd>jV(cojMeyA!vKtW6)jq>62&@L5%Qc|%0n{?=-`uU0KwxpLrw>g&6xUR0Ut_Uh)= z(u&%B{q{OOFs#;ZE`4rQZC$^yy1cuS!6#gg|3t0+Iu~b32;Shf$)Vm`OMaNmRpghf z)zyrFU-!Tuu>k4PF?lsj2MWets@#HAA=U6nl0dfG!3!@(ZjL` z(>TRVg`k-5!6n7Tq7&?4>$@@^;sZ`LokX3t{wn`xp2e5(ZmGVsaGxqFX?1gFRY8cu z%a!;f_K1_)msVClg#xvh+aTifOJ+ literal 10895 zcmd5?+m9Pp8TZ>4rfIoE z%ItV9XU^sOe!t)MeP<@8<%=~foG(_iaIu!x$pdvYTUHk}5-QeAtx+i&^$>ZWp{Y4j z%~XaiXH-KYQe@WepP?;e@tCRQNJy5#`uc8Ij>u6GiKOL3I+_TPnb7*y`R&eTt4X#l zkP!LmnW~nnXe(d)%w}h;yV||$TQ8dGb+0YDQ{*i<Y$=8g-hB8ai^@g@w z)R&BK4iis8QYu_s?eck-rL+=FD>BA)o4vw1ipf(Wk%&anxuk!lP9$O!)9JaaYGw=J zhGs4`YT5rD}C0oYxy+_S7876B+;WL?LwEt2m3YCu?lO!k9a+ug`jt$akmHm){icA+Rf(jb5GM>m)Y_7UG%(tYW*1d z8Su;~al*`I9(|~)=6peIX?;0n#SC%82XZF;9Ma!9A#28SLz!5ENPG;-Z0RQie{Kv z9Y5pN3pKT>;b)8v3xCm$R#zLa6*Pw53eg%3oxU%VhE_LlB9WT-RuQX97so&!BxPh6 zxEMWfPG*VsE62T_V+*gcRbs2T=ILjCb>ZgCwaLEvGP}Iy?X$macFgZR%>F(_7nq%G z*=OwM@uT$jz4WklZ>Hm?Cw=yeb-uv9GvHd z-Mojjp0^t7u$EolnsD9fJDyRkUA{rq?G z71oU>`U^qnSamOQ!uf7_%s_cB`o)bKE4?51UaY>=zFeJntLptjjdiM@yGqy>O6<77 zjx|27?1ArT&#_NjX2&N3{p{6;_^VG&=>h7Du2FGk?0qU2xce#E;WMXBb=aF{K7K0b zyH`KS8lC2YdTmmlo_?;papUtn#W@akmzw}TS{-svjXuRkusHS0EAPF_-mkHv9$*&1 z?_PQDFU4~E)G5G1T$afb92m@kR)IfB2?93;N|9JfCfSN^X!%D;EExrUH0llbN+Ln< zw}iIUagz-Vp$mq&;^DOvY7IzW?oC)k}@NOK)OVK(OCtMa`1SBRo1`<{H z_mzbGdD;G6oXpKLLw^J_0W*(4VC`<<5RXJjsC02>m$X;A&GoJA4%Ij$7Nt)Rt=rw| zlC$`aOA&?4WGiXT3GvxxoN`^w<#CxPar%X` z(0e=NOP$^J*2P_NcD1v4vD?B;{`rElOEN4b)M#zvEjfx#)4y~a`A!$Trwx(L4#D@N z1iia+X$MX2a4jjt&;_#FZjom?-QA0;o8)}!{8sl;2qc9rU)U0lU zJdK}HM8>h(!jf&B#aTS=Cn4eC5P$r%0or#-qbN09M#@D-#dji<;6s)~qGX>3mBSh{ zno-vp6d-UV=~xObouHE*Ju+$Oq-6$s>;C?ksf{Ie9`sF?OYi*TL? z-;3op+n37|ZsoO)eSx1FdKbp7C`xUN3+_Z1Ke&uEcLSISRtgV1X1u;_T&iF);fZk5ZkW+$mtCtdJm|sL& z)`_?h7gyqn;6qRWe`wIEgYFb?ALAnhG(4a?IhEpcCxcN0-N_){ThX1HIb<;I5HHA4 z`7mCPuqqUJVv>}hFgKJ2-aQjdZ&@6Y1HBT z3jWi$Q@|@$e8Bi30*#YwLCco4(@Vu=JPpNU>UF@Y?mcS3tHI&*7!#TtKG`Y1JlS8q zdcWB?GsQ&uE9{QJpW^W=AlT0#7;+TilPONHvRju%lkO}9)@#VLY&51Bjd4*ebcMCt zQ~?0lLyN6l%4XXj-V0m1r1iy%oo7}zTNidgtXQuBk8|Mw&W2(fbJ?*xb~uc%_TX@s z$GCIuXgE0%Mbcn*WLaq3OV{vVIERA6TCp(Jv4#}XYx+U3E{${oq3pplHA^NI@9}z$ z90Kdjak$IuWXz5Ch27H8TVeNnFmM--yFMb~uKN*p`Sk$%@F4D*n(lp;Wu*=VqcIO~W`K7o(e_*&3-9T3Hd(iJz3r;i#H83=nfuRmG2T`!#MWX3KD`|z~ zq0?tv!OIYuV*nwi#+UK&191VXF$MvUELFx{m*P?Xq2vIfqU3-u(4v75LWXhpPuJ%| zA%MeDj{x}ly}qG5qcfj44q#!k1ArBnNV_aRF?ARwav?v2iHQ+7qVP8c6AzNMhhg4m z77~~TAUpuWfq4PH*W>%2VcxCvDsoLnIp&=dnD-H2-rZJyNMN3?HvMf2@f;HLdhfR% z0KB$5GcuAeHW&$~mSeyw7kGhUxtr63iFh7vWFeLWKOe%Q0o)86;Xj2pGO|V-ZxD$) z@J5M#AiRM}ap4W{;lqOmT7`1K1G3D4ftC3OK<_ba?;AsB&jY>XT4X|4~$V9=Y#7 z-&P!a!yN}BsI_p#rKQH;O7B4{WQIBTtNKZ156|l-5g(uI_x4Y8T!8cJ2LPO9m=q#d z0U(2%EzPgG00*kT0vxcbcpe2VA(4RhqsbncxE+BZXm=hP+YTo|Jz1g!@i0I8Fl3L6 z+%|_H#6}JnLhNeEo39YhpB2~Q8R%( zB2smXP9V^I1DV3ZN|#EJ2<;5wJ$YOnj@}bs5<8IV0W&-wKBP@Xt9~@2Hr!2y!L+`J z{0Sctt0US$*dV0_b?RI;6hmpqeXt7g{05QuFkWO{W|0TVi0m%|=Y?Q!qR{+#!1rR| z_4eh$#Onp`@71ew!GM=(g=HZXrXUrLlwHx0uQdJLOp%A}oojF2j=L7eWvY7L@XS!k zv%HU5tmQSx8u|}uqT%T!A%b-4WJY;!;BG0d*tkO-OifVHLdLO7sN)) zWT+jz-)#j>+8(w;5cVg0UZ(1&y#|j;AKyDpv*6Z70fX#c`+K{$k5$5YpkG;<@uvP0 z9Yec6!V^zJ(W*Y368H}*1<wn)AH&uugANvH^oA9X8CKL;Dg>_Zz-}{*VU^Z3kG~8K7pU#JKCA<$tBF(Kia)_ zgMmq|yaU3Wrr}O^@#KIlyere!q6el1#(GbQeZGI?<~iy`$jn*QSz6q&JxT=D5-oc= z`A@P-iU{PbsNJ?as?No76O^llDG$3W=SZOfk&r$3==#3>0HUPR)wmN&>LI+vQl znxh~mp~~rUD0uk64mIm{r7x^<3c?5KJ*Zs6eqkR)hPqZB4E%0TNsI!lfn8IcZ%%pu zoNQ86cKq|X{ns}5g^ggyx4;qay2}5)fxQXOb^@jH{KAqaw!6jf%{?{U*=U(=zoSaX;&?6)Q-Q(sFYs*ExH( z)kRK}tfM} zFh@?Su-YI(1fE^8#x(1vo1RRaR%ius(K;CCV^qW|YO%^JgmDRa_v<4bAcOCB3ww7B zm=wEooZfrOl9cM)D8k{w^&;odg`hfF@a^5BzI4okf5pJW6AXt22fpRQN*6NYd84#< zFHGriaQI`rKb9Z9-uox)2&G&)K0b8Bt#1Fva*7cS1hcJ|?bMvTaROxx&cKMotQ;Lk zOz^c65G;*KE5{Ckh1IcnrXe~-2AX!KC2VX;++6LPM`4+(NnZ0HNC}2S9UKWTI~hjH z^gI<0^(jMyX1BI4iK;XS2^4`z&S1NrX|80kH3W8Pa-+63O5&n{CmMD2^y!fsWM*cL zJVHYCZfkREwMlj_ZFkmDBk!DFeY!=q*3PxocXvXwV|N|0+LxUKB~~Sz;-@1>uuhqF V89=YqpbN(wZZ$B~*;#JC{|0T+_kjQa diff --git a/library/tedit/TEDIT-STYLES.LCOM b/library/tedit/TEDIT-STYLES.LCOM index ea9d177e9b26979b8a6d0f5dfb1f3da990eb6516..cc252b15649efde9bcde289d3ffde26cb5041ea1 100644 GIT binary patch delta 220 zcmX@4uwG$8c)gLau2*TEu91O}se*x}m4TU+iLsJ`hEj5VZb4>FYKlUBo`RABSG7y9 zcdbomacWVqU3OwYPGX*&PkwS@j$LkQN=|B}v7V`2dS;0(glCtNnN*ZmRB0FD>f#v! zA$5a8B7Izg^{kCG6_gN``T}jWurfBcGBE?%QUbCyM?FO$6KJVhsE>~VLZzvKo}QkP bLP}x@&{0Sxzzi@oQqr90p}IMm@i`v=y}Lh^ delta 142 zcmZ3la7bZ7_+%qSF#!#wIz42(<_ z3=OOdjjfCfloXPRQsEj>D+-E=Rjnqk;nFqB%mZq13-$3)K-Q

CTll2`&X9h-S3 Jn-v-P_yI(GCHDXT diff --git a/library/tedit/TEDIT-TFBRAVO b/library/tedit/TEDIT-TFBRAVO index 96cd0a71..dfa977ab 100644 --- a/library/tedit/TEDIT-TFBRAVO +++ b/library/tedit/TEDIT-TFBRAVO @@ -1,12 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "28-Mar-2025 14:23:07" {WMEDLEY}TEDIT>TEDIT-TFBRAVO.;176 94631 +(FILECREATED "10-May-2025 12:53:24" {WMEDLEY}TEDIT>TEDIT-TFBRAVO.;183 97073 :EDIT-BY rmk - :CHANGES-TO (FNS TEDITFROMBRAVO) + :CHANGES-TO (FNS \TFBRAVO.GET.USER.CM TEDITFROMBRAVO \TFBRAVO.USER.CM.LOOKS) + (VARS TEDIT-TFBRAVOCOMS) - :PREVIOUS-DATE "19-Feb-2025 12:18:40" {WMEDLEY}TEDIT>TEDIT-TFBRAVO.;175) + :PREVIOUS-DATE " 9-May-2025 09:51:51" {WMEDLEY}TEDIT>TEDIT-TFBRAVO.;178) (PRETTYCOMPRINT TEDIT-TFBRAVOCOMS) @@ -44,7 +45,22 @@ (FNS \TFBRAVO.INSERT.PARA \TFBRAVO.INSERT.RUN \TFBRAVO.SPLIT.PARA \TFBRAVO.RUN.TABSPEC \TFBRAVO.INSTALL.PAGEFORMAT) (FNS \TFBRAVO.ASSERT \TEST.CHARACTER.LOOKS \TEST.PARAGRAPH.LOOKS) - (INITVARS (TEDIT-DEFAULT-USER.CM "TEDIT-DEFAULT-USER.CM") + (INITVARS [TEDIT.DEFAULT.USER.CM '((ParagraphLeading 12) + (LineLeading 6) + (FirstLineLeftMargin 84) + (LeftMargin 84) + (RightMargin 528) + (DefaultTab 36) + (Font (0 TIMESROMAN 10 NIL NIL) + (1 TIMESROMAN 8 NIL NIL) + (2 HIPPO 8 NIL NIL) + (3 GACHA 8 NIL NIL) + (4 MATH 8 NIL NIL) + (5 HELVETICA 12 NIL NIL) + (6 GACHA 6 NIL NIL) + (7 TIMESROMAN 9 NIL NIL) + (8 HELVETICA 10 NIL NIL) + (9 HELVETICA 11 NIL NIL] (USER.CM.RDTBL (COPYREADTABLE)) (PROFILE.PARA.RDTBL (COPYREADTABLE))) (P (SETBRK (CHARCODE (%, %: = CR)) @@ -170,7 +186,8 @@ (RETURN T]) (TEDITFROMBRAVO - [LAMBDA (BFILE TSTREAM PROPS USER.CM) (* ; "Edited 28-Mar-2025 14:16 by rmk") + [LAMBDA (BFILE TSTREAM PROPS USER.CM) (* ; "Edited 9-May-2025 09:18 by rmk") + (* ; "Edited 28-Mar-2025 14:16 by rmk") (* ; "Edited 19-Feb-2025 12:13 by rmk") (* ; "Edited 8-Feb-2025 23:03 by rmk") (* ; "Edited 2-Jan-2025 22:22 by rmk") @@ -193,7 +210,7 @@ (BSTREAM _ BFILE) (TEXTOBJ _ (TEXTOBJ TSTREAM)) declare (SPECVARS USER.CM.PARALOOKS USER.CM.CHARLOOKS USER.CM.ALIST) - first (CL:UNLESS (SETQ USER.CM (\TFBRAVO.GET.USER.CM BFILE USER.CM TEXTOBJ)) + first (CL:UNLESS (SETQ USER.CM (\TFBRAVO.GET.USER.CM BFILE USER.CM TEXTOBJ PROPS)) (* ; "Go for plain text") (RETURN)) (SETTOBJ TEXTOBJ FORMATTEDP T) @@ -245,11 +262,14 @@ (DEFINEQ (\TFBRAVO.GET.USER.CM - [LAMBDA (BFILE CANDIDATE TEXTOBJ) (* ; "Edited 28-Nov-2023 17:38 by rmk") + [LAMBDA (BFILE CANDIDATE TEXTOBJ PROPS) (* ; "Edited 10-May-2025 12:53 by rmk") + (* ; "Edited 28-Nov-2023 17:38 by rmk") (* ; "Edited 11-Sep-2023 13:15 by rmk") (* ; "Edited 19-Aug-2023 23:24 by rmk") (* ; "Edited 17-Aug-2023 09:46 by rmk") + (* ;; "Returns the name of the user.cm file to be used in the conversion of Bravo BFILE. If CANDIDATE can't be found, the heuristic search is to search in the following order: ") + (* ;; " BFILE's directory, connected directory, logindirectory, DIRECTORIES") (DECLARE (USEDFREE TEDIT-DEFAULT-USER.CM)) @@ -258,45 +278,58 @@ (CL:WHEN (EQ CANDIDATE T) (* ;  "Because the test function's non-NIL value is passed in as CANDIDATE.") (SETQ CANDIDATE NIL)) + (CL:UNLESS CANDIDATE + (SETQ CANDIDATE 'USER.CM)) + (OR (STREAMP CANDIDATE) + (PROG [USER.CM (PROP (LISTGET PROPS 'USER.CM)) + (DIRS `(,(PACKFILENAME 'NAME NIL 'EXTENSION NIL 'VERSION NIL 'BODY BFILE) + T NIL ,@DIRECTORIES] - (* ;; "Returns the name of the user.cm file to be used in the conversion of Bravo BFILE. If CANDIDATE can't be found, the heuristic search is to search in the following order:") + (* ;; + "If we find CANDIDATE in the same directory, just notify without asking for confirmation") - (PROG [USER.CM (DIRS `(,(PACKFILENAME 'NAME NIL 'EXTENSION NIL 'VERSION NIL 'BODY BFILE) - T NIL ,@DIRECTORIES] - (CL:WHEN [AND CANDIDATE (SETQ USER.CM (CL:IF (STREAMP CANDIDATE) - (FULLNAME CANDIDATE) - (FINDFILE CANDIDATE T DIRS))] - (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "USER.CM = " USER.CM) - T) - (RETURN USER.CM)) - [SETQ USER.CM (OR (FINDFILE 'USER.CM T DIRS) - (AND TEDIT-DEFAULT-USER.CM (FINDFILE TEDIT-DEFAULT-USER.CM T DIRS] - (* (SELECTQ (MKATOM (U-CASE - (TEDIT.GETINPUT TEXTOBJ - (CONCAT "USER.CM = " USER.CM " ? ")))) - (NIL (TEDIT.PROMPTPRINT TEXTOBJ "Yes") - T) ((Y YES T) T) NIL)) - (if USER.CM - then (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "USER.CM = " USER.CM) - T) - else (do (SETQ USER.CM (TEDIT.GETINPUT TEXTOBJ - "USER.CM file: (CR suppresses BRAVO conversion) ")) - (CL:WHEN (OR (NULL USER.CM) - (INFILEP USER.CM)) - (RETURN)) - (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT USER.CM " not found") - T T) - (DISMISS 3000))) - (RETURN USER.CM]) + (CL:WHEN (SETQ USER.CM (INFILEP (PACKFILENAME 'BODY CANDIDATE 'BODY BFILE))) + (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "USER.CM = " USER.CM) + T T) + (RETURN USER.CM)) + + (* ;; "Search more broadly for PROP before asking--comes after CANDIDATE because it could be an HCFILES default. BFILE's directory has priority") + + (CL:WHEN [AND PROP (SETQ USER.CM (OR (LISTP PROP) + (FINDFILE PROP T DIRS] + (RETURN USER.CM)) + + (* ;; "Search and confirm") + + (CL:WHEN (SETQ USER.CM (FINDFILE CANDIDATE T DIRS)) + (SELECTQ [MKATOM (U-CASE (TEDIT.GETINPUT TEXTOBJ (CONCAT "USER.CM = " USER.CM " ? " + ] + ((Y YES) + (RETURN USER.CM)) + (NIL (* ; "CR response") + (TEDIT.PROMPTPRINT TEXTOBJ "Yes") + (RETURN USER.CM)) + NIL)) + + (* ;; "Ask for a file name") + + (CL:WHEN (SETQ USER.CM (FINDFILE (TEDIT.GETINPUT TEXTOBJ + "Please enter the USER.CM file (CR for TEDIT default): " + "TEDIT.DEFAULT.USER.CM") + T DIRS)) + (RETURN USER.CM)) + (RETURN TEDIT.DEFAULT.USER.CM]) (\TFBRAVO.USER.CM.LOOKS - [LAMBDA (USER.CM TEXTOBJ) (* ; "Edited 8-Feb-2025 22:13 by rmk") + [LAMBDA (USER.CM TEXTOBJ) (* ; "Edited 10-May-2025 08:10 by rmk") + (* ; "Edited 8-Feb-2025 22:13 by rmk") (* ; "Edited 2-Jan-2025 11:06 by rmk") (* ; "Edited 18-Aug-2023 18:47 by rmk") (* ; "Edited 16-Aug-2023 21:33 by rmk") (* ; "Edited 5-Aug-2023 17:15 by rmk") (DECLARE (USEDFREE USER.CM.CHARLOOKS USER.CM.PARALOOKS USER.CM.ALIST)) - (SETQ USER.CM.ALIST (\TFBRAVO.READ.USER.CM USER.CM)) + (SETQ USER.CM.ALIST (OR (LISTP USER.CM) + (\TFBRAVO.READ.USER.CM USER.CM))) (SETQ USER.CM.CHARLOOKS (create CHARLOOKS CLOFFSET _ 0)) (\TFBRAVO.FONT.FROM.CHARLOOKS USER.CM.CHARLOOKS (\TFBRAVO.GETFONT 0 BRFAMILY) @@ -309,15 +342,14 @@ (SETTOBJ TEXTOBJ DEFAULTPARALOOKS USER.CM.PARALOOKS]) (\TFBRAVO.READ.USER.CM - [LAMBDA (USER.CM) (* ; "Edited 27-Aug-2024 18:12 by rmk") + [LAMBDA (USER.CM) (* ; "Edited 9-May-2025 00:54 by rmk") + (* ; "Edited 27-Aug-2024 18:12 by rmk") (* ; "Edited 18-Aug-2023 22:26 by rmk") (* ; "Edited 10-Aug-2023 13:02 by rmk") (* ; "Edited 7-Aug-2023 12:52 by rmk") (* ; "Edited 1-Aug-2023 22:11 by rmk") (* ; "Edited 30-Jul-2023 18:57 by rmk") (* gbn "17-Sep-84 18:53") - (CL:UNLESS USER.CM - (SETQ USER.CM 'USER.CM)) (* ;; "digests a user.cm file returning an alist of contents. Returns ((Font)) if no bravo section of user.cm file") @@ -1028,7 +1060,8 @@ PC))]) (\TFBRAVO.SPLIT.PARA - [LAMBDA (PARA) (* ; "Edited 19-Feb-2025 12:15 by rmk") + [LAMBDA (PARA) (* ; "Edited 24-Apr-2025 23:45 by rmk") + (* ; "Edited 19-Feb-2025 12:15 by rmk") (* ; "Edited 8-Feb-2025 23:12 by rmk") (* ; "Edited 9-Sep-2023 21:35 by rmk") (* ; "Edited 22-Aug-2023 23:45 by rmk") @@ -1045,7 +1078,7 @@ NEWPARAS) (* ;; - "RUNSTART is STRINGP for a math/hippo or other character that has been translated to XCCS") + "RUNSTART is STRINGP for a math/hippo or other character that has been translated to MCCS") (SETQ NEWPARAS (if [AND (fetch (PARA FORMATPTRS) of PARA) @@ -1353,7 +1386,23 @@ (RETURN (AND NONEMPTY CHAR]) ) -(RPAQ? TEDIT-DEFAULT-USER.CM "TEDIT-DEFAULT-USER.CM") +(RPAQ? TEDIT.DEFAULT.USER.CM + '((ParagraphLeading 12) + (LineLeading 6) + (FirstLineLeftMargin 84) + (LeftMargin 84) + (RightMargin 528) + (DefaultTab 36) + (Font (0 TIMESROMAN 10 NIL NIL) + (1 TIMESROMAN 8 NIL NIL) + (2 HIPPO 8 NIL NIL) + (3 GACHA 8 NIL NIL) + (4 MATH 8 NIL NIL) + (5 HELVETICA 12 NIL NIL) + (6 GACHA 6 NIL NIL) + (7 TIMESROMAN 9 NIL NIL) + (8 HELVETICA 10 NIL NIL) + (9 HELVETICA 11 NIL NIL)))) (RPAQ? USER.CM.RDTBL (COPYREADTABLE)) @@ -1503,18 +1552,18 @@ (AND NIL (\TEDIT.NAMEDTAB.INIT)) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (6570 13446 (TEDIT.BRAVOFILE? 6580 . 8310) (TEDITFROMBRAVO 8312 . 13444)) (13557 29284 ( -\TFBRAVO.GET.USER.CM 13567 . 16377) (\TFBRAVO.USER.CM.LOOKS 16379 . 17714) (\TFBRAVO.READ.USER.CM -17716 . 22286) (\TFBRAVO.INIT.PARALOOKS 22288 . 24397) (\TFBRAVO.INIT.PAGEFORMAT 24399 . 25279) ( -\TFBRAVO.GETPARAMS 25281 . 28135) (\TFBRAVO.FIND.LAST.TRAILER 28137 . 29282)) (29326 50024 ( -\TFBRAVO.PARSE.PARA 29336 . 33263) (\TFBRAVO.READ.PARALOOKS 33265 . 40155) (\TFBRAVO.CREATE.RUNS 40157 - . 41545) (\TFBRAVO.READ.CHARLOOKS 41547 . 46576) (\TFBRAVO.FONT.FROM.CHARLOOKS 46578 . 48125) ( -\TFBRAVO.READNUM? 48127 . 50022)) (50061 61102 (\TFBRAVO.HANDLE.HEADING 50071 . 52798) ( -\TFBRAVO.PARSE.PROFILE.PARA 52800 . 61100)) (61145 83181 (\TFBRAVO.INSERT.PARA 61155 . 61996) ( -\TFBRAVO.INSERT.RUN 61998 . 65300) (\TFBRAVO.SPLIT.PARA 65302 . 72617) (\TFBRAVO.RUN.TABSPEC 72619 . -77486) (\TFBRAVO.INSTALL.PAGEFORMAT 77488 . 83179)) (83182 87325 (\TFBRAVO.ASSERT 83192 . 83722) ( -\TEST.CHARACTER.LOOKS 83724 . 85610) (\TEST.PARAGRAPH.LOOKS 85612 . 87323)) (87810 94465 ( -\TFBRAVO.ADD.NAMEDTAB 87820 . 91423) (\TFBRAVO.COPY.NAMEDTAB 91425 . 91873) (\TFBRAVO.PUT.NAMEDTAB -91875 . 92155) (\TFBRAVO.GET.NAMEDTAB 92157 . 92534) (\NAMEDTABNYET 92536 . 92696) (\NAMEDTABSIZE -92698 . 93213) (\NAMEDTABPREPRINT 93215 . 93413) (\TEDIT.NAMEDTAB.INIT 93415 . 94463))))) + (FILEMAP (NIL (7682 14673 (TEDIT.BRAVOFILE? 7692 . 9422) (TEDITFROMBRAVO 9424 . 14671)) (14784 31092 ( +\TFBRAVO.GET.USER.CM 14794 . 17974) (\TFBRAVO.USER.CM.LOOKS 17976 . 19469) (\TFBRAVO.READ.USER.CM +19471 . 24094) (\TFBRAVO.INIT.PARALOOKS 24096 . 26205) (\TFBRAVO.INIT.PAGEFORMAT 26207 . 27087) ( +\TFBRAVO.GETPARAMS 27089 . 29943) (\TFBRAVO.FIND.LAST.TRAILER 29945 . 31090)) (31134 51832 ( +\TFBRAVO.PARSE.PARA 31144 . 35071) (\TFBRAVO.READ.PARALOOKS 35073 . 41963) (\TFBRAVO.CREATE.RUNS 41965 + . 43353) (\TFBRAVO.READ.CHARLOOKS 43355 . 48384) (\TFBRAVO.FONT.FROM.CHARLOOKS 48386 . 49933) ( +\TFBRAVO.READNUM? 49935 . 51830)) (51869 62910 (\TFBRAVO.HANDLE.HEADING 51879 . 54606) ( +\TFBRAVO.PARSE.PROFILE.PARA 54608 . 62908)) (62953 85098 (\TFBRAVO.INSERT.PARA 62963 . 63804) ( +\TFBRAVO.INSERT.RUN 63806 . 67108) (\TFBRAVO.SPLIT.PARA 67110 . 74534) (\TFBRAVO.RUN.TABSPEC 74536 . +79403) (\TFBRAVO.INSTALL.PAGEFORMAT 79405 . 85096)) (85099 89242 (\TFBRAVO.ASSERT 85109 . 85639) ( +\TEST.CHARACTER.LOOKS 85641 . 87527) (\TEST.PARAGRAPH.LOOKS 87529 . 89240)) (90252 96907 ( +\TFBRAVO.ADD.NAMEDTAB 90262 . 93865) (\TFBRAVO.COPY.NAMEDTAB 93867 . 94315) (\TFBRAVO.PUT.NAMEDTAB +94317 . 94597) (\TFBRAVO.GET.NAMEDTAB 94599 . 94976) (\NAMEDTABNYET 94978 . 95138) (\NAMEDTABSIZE +95140 . 95655) (\NAMEDTABPREPRINT 95657 . 95855) (\TEDIT.NAMEDTAB.INIT 95857 . 96905))))) STOP diff --git a/library/tedit/TEDIT-TFBRAVO.LCOM b/library/tedit/TEDIT-TFBRAVO.LCOM index 95bbb468e649712d159fc8f8701a791164748878..2ef5d468d1d4aa888233e3aa895d5e9015f8134b 100644 GIT binary patch delta 2799 zcmdT_&u`mQ9Iumhtf3LzSU1qN_N#!HqmsA z!maxLPJMU5+}o<}EZp`QJKkL>DKE6zokXx(pex*LHxq}LIBH$ZN=i0`)*~HeedkI8 z+GxC3Gffy3OeT{tXw*CC{5b|>F&2;TMZ?tdj;^_S0b)c*lLtIRMMET~NI7lV5@%Cx|}!KuB!xDP{Tpa>)dwqx07 zf-@r%^zQgv_{OEF-sj_2xwA^(DOuIss&0ZrB>H$_4o~Q&A8xW%F|OB);(AhJrAsNp zu#F1lo}CXdmukU=EsC`Vw`3Ur7pLB+tDkdz8~rC=3<$XHeq8O@?g z#56OwQ~^R{$QJaXRx@4P2w>G*%s)}IoU-OZMun_fa;(}?2{IC7(UtC0G;_dL1u!Zo z59xG&kxCB&LZG5!1$h2?%|dVtL+bIT=eXBJ7{Cw%go1$(vjMBmj==!QU(mHl-j(`* z=!ZE#FJfmR%#DpNPLAR8S@78$JJK5MC-i80GxT+fF*ZXVXuiaw@JHW`{harSSLpYX z@$T7>ztQ~n;uMqiB{v>k$nCM+a)iCx4WG3r4BB%hQ2@p?=@=qi}V4j2C4YibkanAOMdy=mZ2`P<>Gn z`XsDg*+%FZ6@(W;zr3QkRvAb}hFT)8RdrkrWV^@u1aY0WDtSC{k{)qIUe0_1gZ0%GC%C}eOI zQxe32+CBre7!DK_V)l+#KlH%c?RW>!+4cs?(8TKk_`Czny@Q}i(D0h|J3F0t7RRE9 z9UNQt4r4%6A%cXr@qdmeDToc4;4P$JU()E*$FCiZg~vjRjqsN~cD6$AGQiC>-aB{d zD8SFTY5MilYA8eK)2WLgRiu}q7sHAK^v#)9X45A|qQM5@lHPCVG@<*^Sx%*&Mqd?) zz>pM7j|@B9U?~ew+}rH{9+CeQ708)*mN+Zvnfdd*-=aU9nwZ7b?ZVTiXK(SyWNC;5ECf>TZ1#B;Odzgh$95Wxa~cq2bIE*qmg4 zR3M`ql@TL-jtC{gwk`09eVPPI8cysJv=rc^EDcFrv?@bMH&?Me^BP0<&>h}AzJWAE zhD4m0fT=`Sh4>p7$Uum?N7LW0EQ;RApigX delta 1939 zcmZ`)O>7%g5cWDHZJpAlkcO02WV#i|Zn4?7|GN?*YkQq+y52Rr>-?Y~wTa!@kl0bu zB7}r2#DQzoCsiDKgJadGQhUk?4n;sE!~t&HKthN^4+tT_yj?p<)8NCtpPBc~-#6ob ze&&AtfxEeIUe8yrY~)2jRDj5)D4BxBLzZ9ZuC2FMn+@o8fX;9idYYPp3@@sC)KOP7 zMV*J`jpmMi^TYLx%~wr`?6MP80>4@etT`Xr9pEc<*M+?Zg+hUc#+B=6<{)TE;&Yj7 z#c}OYaK^R}5qR+cf0=(rG!+b4l?eTa1MO+!IWTL1J?HrKFkeO(;E9p1G?)8Pizd-c zS>Pcah9^%;uoQbzsC&-ab*Hjeuvi9Ug{}=xq!pl#$k{{0(1DKB&i06| zpnfIJSD|JFq0PP)5KV?@J7RgLMF9{+g)jtQgkopHj+cj4YZTg7I41pw3|FGH62Ke;g;Eu2AVAp(=+{THnwS(e-*+J2*U3TZr!4{C2ySyoiNp?Z^1`-uHLENo7SsFc~qS06Ra4v4G4-Qbi1w zfUxR>ArPJP#aNDN4LRm`SO=tJ$@fZF0HO*9DJXJpM?*58;&|nl9Yhj<%>mD<+E{gI zP<5>HpoyL`Bp?A3Lx!}Af==xqDo8!6bcvz&K@$V?uaVIn`Z*{o`iWJwOOYQqb_htp zqF-JFS%5h^2p!)8Nd`tAFFuGmFu0f_h6elq<|$l?%hfidOxD+?_MND&S0Q&OLNt_`NI;I)e zI1cOHJeD2@2`p9TTqnetA~9>XPCPe>261@pS5*fUqi;=|+PX0Qi|_7lKj7oBy8oKb zLAGC}LQsy1E|$r!E#jywM^@3bb12WyGppz6x7TtMT4Td@EnrupEr))!`r;7V3#~Ew z$7+tQwZ>_FZG_9v?^;#*c)M*=|u*9grKttyp8~-tedit>TEDIT-WINDOW.;790 237200 +(FILECREATED "30-May-2025 12:54:56" {WMEDLEY}TEDIT>TEDIT-WINDOW.;860 229476 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.WINDOW.GETREGION) + :CHANGES-TO (FNS TEDIT.DEACTIVATE.WINDOW) - :PREVIOUS-DATE "31-Mar-2025 12:04:14" {WMEDLEY}tedit>TEDIT-WINDOW.;789) + :PREVIOUS-DATE "29-May-2025 15:02:25" {WMEDLEY}TEDIT>TEDIT-WINDOW.;858) (PRETTYCOMPRINT TEDIT-WINDOWCOMS) (RPAQQ TEDIT-WINDOWCOMS - [(DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (RECORDS TEDITCARET TEXTWINDOW PANEPROPS) - (MACROS FGETPANEPROP GETPANEPROP SETPANEPROP - FSETPANEPROP) - (MACROS PANEPROPS PANEPREFIX PANESUFFIX PANETOPLINE - PANECARET PANESTREAM PANETOBJ PANEBOTTOMLINE - \TEDIT.PREFIX.LCHARLIM) - (MACROS PANETOP PANEWIDTH PANELEFT PANERIGHT - PANEBOTTOM PANEHEIGHT PANEREGION) - (I.S.OPRS inpanes backpanes) - (MACROS ALLBUTTONSUP))) + [(DECLARE%: EVAL@COMPILE DONTCOPY + (EXPORT (RECORDS TEDITCARET TEXTWINDOW PANEPROPS) + (MACROS FGETPANEPROP GETPANEPROP SETPANEPROP FSETPANEPROP) + (MACROS PANEWINDOW PANEPROPS PANEPREFIX PANESUFFIX PANETOPLINE PANECARET + PANECARETY PANETEXTSTREAM PANETEXTOBJ PANEBOTTOMLINE NEXTPANE PREVPANE) + (MACROS PANETOP PANEPTOP PANEWIDTH PANELEFT PANERIGHT PANEBOTTOM PANEHEIGHT + PANEREGION) + (I.S.OPRS inpanes backpanes) + (MACROS ALLBUTTONSUP))) (INITRECORDS TEDITCARET PANEPROPS) (FILES ATTACHEDWINDOW) (FNS TEDIT.DEFER.UPDATES) @@ -39,11 +38,11 @@ (FNS \TEDIT.PANE.SPLIT \TEDIT.SPLITW \TEDIT.UNSPLITW \TEDIT.LINKPANES \TEDIT.UNLINKPANE) (P (MOVD? 'NILL 'GRAB-TYPED-REGION) (MOVD? 'NILL 'REGISTER-TYPED-REGION)) - (INITVARS (\TEDIT.OP.WIDTH 12) - (\TEDIT.OP.BOTTOM 12) - (\TEDIT.LINEREGION.WIDTH 12)) - (DECLARE%: DONTEVAL@LOAD DOCOPY (GLOBALVARS \TEDIT.OP.WIDTH \TEDIT.OP.BOTTOM - \TEDIT.LINEREGION.WIDTH)) + (INITVARS (\TEDIT.OP.WIDTH -1) + (\TEDIT.OP.BOTTOM 14) + (\TEDIT.LINEREGION.WIDTH 16)) + (GLOBALVARS \TEDIT.OP.WIDTH \TEDIT.OP.BOTTOM \TEDIT.LINEREGION.WIDTH \TEDIT.SPLITCURSOR + \TEDIT.LINECURSOR \TEDIT.MOVESPLITCURSOR \TEDIT.UNSPLITCURSOR \TEDIT.MAKESPLITCURSOR) (CURSORS BXCARET BXHICARET \TEDIT.LINECURSOR \TEDIT.SPLITCURSOR \TEDIT.MOVESPLITCURSOR \TEDIT.UNSPLITCURSOR \TEDIT.MAKESPLITCURSOR) (COMS (* ; @@ -61,7 +60,8 @@ (FNS \TEDIT.FILENAME \TEDIT.DEFAULT.TITLE \TEDIT.WINDOW.TITLE \TEDIT.LIKELY.FILENAME \TEDIT.UPDATE.TITLE)) (COMS (* ; "Screen updating utilities") - (FNS TEDIT.DEACTIVATE.WINDOW \TEDIT.RESHAPEFN \TEDIT.REPAINTFN) + (FNS TEDIT.DEACTIVATE.WINDOW \TEDIT.RESHAPEFN \TEDIT.REPAINTFN \TEDIT.CLOSESPLITS + \TEDIT.CLOSEPANE) (FNS \TEDIT.SCROLLFN \TEDIT.SCROLLCH.TOP \TEDIT.SCROLLCH.BOTTOM \TEDIT.SCROLLUP \TEDIT.TOPLINE.YTOP \TEDIT.SCROLLDOWN \TEDIT.SCROLL.CARET \TEDIT.VISIBLECARETP \TEDIT.VISIBLECHARP \TEDIT.BITMAPLINES \TEDIT.SETPANE.TOPLINE \TEDIT.SHIFTLINES) @@ -72,33 +72,11 @@ (* ; "Caret handler; stolen from CHAT.") (FNS \TEDIT.DOWNCARET \TEDIT.FLASHCARET \TEDIT.UPCARET TEDIT.NORMALIZECARET \TEDIT.SETCARET \TEDIT.CARET)) - [COMS (* ; "Menu interfacing") - (FNS TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENUFN TEDIT.REMOVE.MENUITEM \TEDIT.CREATEMENU - \TEDIT.MENU.WHENHELDFN \TEDIT.MENU.WHENSELECTEDFN) - (GLOBALVARS TEDIT.DEFAULT.MENU) - [DECLARE%: DONTEVAL@LOAD DOCOPY - (VARS (TEDIT.DEFAULT.MENU (\TEDIT.CREATEMENU '((Put 'Put NIL (SUBITEMS - |Put Formatted Document| - Plain-Text)) - (Get 'Get NIL (SUBITEMS - |Get Formatted Document| - - Unformatted% Get - )) - Include Find Looks Substitute - (Buttons 'Buttons - "Display action buttons") - Quit - (Expanded% Menu 'Expanded% Menu - NIL - (SUBITEMS Expanded% Menu - Character% Looks - Paragraph% Formatting - Page% Layout] + [COMS (* ; "Background menu") (DECLARE%: DONTEVAL@LOAD DOCOPY (P [OR (SASSOC 'TEdit BackgroundMenuCommands) (NCONC1 BackgroundMenuCommands '(TEdit '(TEDIT) - "Opens a TEdit window for use."] + "Opens an empty TEdit window"] (SETQ BackgroundMenu NIL] (COMS (* ; "titled icon info, ") (FILES ICONW) @@ -148,8 +126,6 @@ (ACCESSFNS TEXTWINDOW ((WTEXTSTREAM (GETWINDOWPROP DATUM 'TEXTSTREAM) (PUTWINDOWPROP DATUM 'TEXTSTREAM NEWVALUE)) - (WTEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of (fetch (TEXTWINDOW WTEXTSTREAM) - of DATUM))) (PTEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of (fetch (TEXTWINDOW WTEXTSTREAM) of DATUM))) (CURSORREGION (GETWINDOWPROP DATUM 'TEDIT.CURSORREGION) @@ -162,13 +138,16 @@ (TYPENAMEP (fetch (TEXTWINDOW PTEXTOBJ) of DATUM) 'TEXTOBJ]) -(DATATYPE PANEPROPS ((PWINDOW FULLXPOINTER) (* ; "The window with these PANEPROPS") - PREFIXLINE (* ; +(DATATYPE PANEPROPS + ((PWINDOW FULLXPOINTER) (* ; "The window with these PANEPROPS") + PREFIXLINE (* ;  "Dummy line that covers all the characters above the first visible line") - SUFFIXLINE (* ; + SUFFIXLINE (* ;  "Dummy line that covers all the characters below the last visible line") - PCARET NEXTPANE (PREVPANE XPOINTER) - PANEHEIGHT PANEWIDTH PANELEFT PANERIGHT PANEBOTTOM PANETOP PANEREGION)) + PCARET NEXTPANE (PREVPANE XPOINTER) + PANEHEIGHT PANEWIDTH PANELEFT PANERIGHT PANEBOTTOM PANETOP PANEREGION OTHERPAMEPROPS) + PANELEFT _ 0 PANERIGHT _ 0 PANEBOTTOM _ 0 PANETOP _ 0 PANEWIDTH _ 0 PANEHEIGHT _ 0 + PANEREGION _ (CREATEREGION 0 0 0 0)) ) (/DECLAREDATATYPE 'TEDITCARET '(POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER @@ -188,7 +167,7 @@ (/DECLAREDATATYPE 'PANEPROPS '(FULLXPOINTER POINTER POINTER POINTER POINTER XPOINTER POINTER POINTER POINTER POINTER - POINTER POINTER POINTER) + POINTER POINTER POINTER POINTER) '((PANEPROPS 0 FULLXPOINTER) (PANEPROPS 2 POINTER) (PANEPROPS 4 POINTER) @@ -201,8 +180,9 @@ (PANEPROPS 18 POINTER) (PANEPROPS 20 POINTER) (PANEPROPS 22 POINTER) - (PANEPROPS 24 POINTER)) - '26) + (PANEPROPS 24 POINTER) + (PANEPROPS 26 POINTER)) + '28) (DECLARE%: EVAL@COMPILE (PUTPROPS FGETPANEPROP MACRO ((P FIELD) @@ -219,6 +199,9 @@ ) (DECLARE%: EVAL@COMPILE +(PUTPROPS PANEWINDOW MACRO ((PANE) + PANE)) + (PUTPROPS PANEPROPS MACRO ((PANE) (fetch (TEXTWINDOW PANEPROPS) of PANE))) @@ -239,26 +222,36 @@ PCARET) 'TEDITCARET))) -(PUTPROPS PANESTREAM MACRO ((PANE) - (fetch (TEXTWINDOW WTEXTSTREAM) of PANE))) +(PUTPROPS PANECARETY MACRO ((PANE) + (fetch (TEDITCARET TCCARETY) of (GETPANEPROP (PANEPROPS PANE) + PCARET)))) -(PUTPROPS PANETOBJ MACRO [(PANE) - (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of (fetch (TEXTWINDOW WTEXTSTREAM) - of PANE]) +(PUTPROPS PANETEXTSTREAM MACRO ((PANE) + (fetch (TEXTWINDOW WTEXTSTREAM) of PANE))) + +(PUTPROPS PANETEXTOBJ MACRO ((PANE) + (FTEXTOBJ (PANETEXTSTREAM PANE)))) (PUTPROPS PANEBOTTOMLINE MACRO ((PANE) (GETLD (PANESUFFIX PANE) PREVLINE))) -(PUTPROPS \TEDIT.PREFIX.LCHARLIM MACRO ((PANE CHNO) - (FSETLD (PANEPREFIX PANE) - LCHARLAST CHNO))) +(PUTPROPS NEXTPANE MACRO ((PANE) + (GETPANEPROP (PANEPROPS PANE) + NEXTPANE))) + +(PUTPROPS PREVPANE MACRO ((PANE) + (GETPANEPROP (PANEPROPS PANE) + PREVPANE))) ) (DECLARE%: EVAL@COMPILE (PUTPROPS PANETOP MACRO [(PANE PREG) (fetch (REGION TOP) of (OR PREG (DSPCLIPPINGREGION NIL PANE]) +(PUTPROPS PANEPTOP MACRO [(PANE PREG) + (fetch (REGION PTOP) of (OR PREG (DSPCLIPPINGREGION NIL PANE]) + (PUTPROPS PANEWIDTH MACRO [(PANE PREG) (fetch (REGION WIDTH) of (OR PREG (DSPCLIPPINGREGION NIL PANE]) @@ -271,11 +264,14 @@ (PUTPROPS PANEBOTTOM MACRO [(PANE PREG) (fetch (REGION BOTTOM) of (OR PREG (DSPCLIPPINGREGION NIL PANE]) -(PUTPROPS PANEHEIGHT MACRO [(PANE PREG) - (fetch (REGION HEIGHT) of (OR PREG (DSPCLIPPINGREGION NIL PANE]) +(PUTPROPS PANEHEIGHT MACRO ((PANE PREG) + (GETPANEPROP (PANEPROPS PANE) + PANEHEIGHT))) -(PUTPROPS PANEREGION MACRO ((PANE PREG) - (OR PREG (DSPCLIPPINGREGION NIL PANE)))) +(PUTPROPS PANEREGION MACRO [(PANE PREG) + (OR PREG (GETPANEPROP (PANEPROPS PANE) + PANEREGION) + (DSPCLIPPINGREGION NIL (PANEWINDOW PANE]) ) (DECLARE%: EVAL@COMPILE @@ -320,7 +316,7 @@ (/DECLAREDATATYPE 'PANEPROPS '(FULLXPOINTER POINTER POINTER POINTER POINTER XPOINTER POINTER POINTER POINTER POINTER - POINTER POINTER POINTER) + POINTER POINTER POINTER POINTER) '((PANEPROPS 0 FULLXPOINTER) (PANEPROPS 2 POINTER) (PANEPROPS 4 POINTER) @@ -333,8 +329,9 @@ (PANEPROPS 18 POINTER) (PANEPROPS 20 POINTER) (PANEPROPS 22 POINTER) - (PANEPROPS 24 POINTER)) - '26) + (PANEPROPS 24 POINTER) + (PANEPROPS 26 POINTER)) + '28) (FILESLOAD ATTACHEDWINDOW) (DEFINEQ @@ -357,7 +354,10 @@ (DEFINEQ (\TEDIT.WINDOW.CREATE - [LAMBDA (WINDOW TSTREAM PROPS) (* ; "Edited 18-Feb-2025 09:49 by rmk") + [LAMBDA (WINDOW TSTREAM PROPS) (* ; "Edited 9-May-2025 12:11 by rmk") + (* ; "Edited 25-Apr-2025 21:24 by rmk") + (* ; "Edited 20-Apr-2025 15:21 by rmk") + (* ; "Edited 18-Feb-2025 09:49 by rmk") (* ; "Edited 1-Jul-2024 22:55 by rmk") (* ; "Edited 29-Jun-2024 23:16 by rmk") (* ; "Edited 5-May-2024 21:54 by rmk") @@ -380,17 +380,19 @@ (* ;; "If the region/window is typed, we grab (or create) a region of that type. The usual entry (TEDIT) defaults to type Tedit, giving a stack of regions in TYPED-REGIONS. The effect is that the next (Tedit) window will open where the last Tedit window closed. It's a little tricky for REGIONMANAGER to compensate for the prompt window, but it means that the user can reshape what is initially offered.") - (LET ((TEXTOBJ (TEXTOBJ TSTREAM)) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM)) (PHEIGHT 0) TITLE REGIONTYPE PROMPTPROP REGION FILE PWINDOW PREPROMPT WTEXTOBJ) (CL:WHEN (WINDOWP WINDOW) - (CL:WHEN (SETQ WTEXTOBJ (fetch (TEXTWINDOW WTEXTOBJ) of WINDOW)) + (CL:WHEN (GETTSTR (fetch (TEXTWINDOW WTEXTSTREAM) of WINDOW) + TEXTOBJ) - (* ;; "Reusing an existing Tedit window, undo its splits.") + (* ;; " %"Reusing an existing Tedit window, kill the old process, undo its splits and restore its shape.%" ") - (for P backpanes WTEXTOBJ do (\TEDIT.UNSPLITW P))) - [SETQ TITLE (OR (WINDOWPROP WINDOW 'TITLE) - (LISTGET PROPS 'TITLE]) + (TEDIT.KILL WINDOW) + (\TEDIT.CLOSESPLITS (fetch (TEXTWINDOW WTEXTSTREAM) of WINDOW) + T)) + (SETQ TITLE (LISTGET PROPS 'TITLE))) (SETQ REGIONTYPE (OR (GETTEXTPROP TEXTOBJ 'REGION-TYPE) (AND (LITATOM WINDOW) WINDOW))) @@ -452,12 +454,14 @@ (* ;; "Make the window's dimensions available thru TSTREAM even though it hasn't yet been configured for the text") - (\TEDIT.MINIMAL.WINDOW.SETUP WINDOW TSTREAM PROPS) + (FSETTOBJ TEXTOBJ PRIMARYPANE (\TEDIT.MINIMAL.WINDOW.SETUP WINDOW TSTREAM PROPS)) + (* ; "This should be PANE") (WINDOWPROP WINDOW 'TITLE TITLE) WINDOW]) (\TEDIT.WINDOW.GETREGION - [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 31-Mar-2025 22:43 by rmk") + [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 14-Apr-2025 00:05 by rmk") + (* ; "Edited 31-Mar-2025 22:43 by rmk") (* ; "Edited 24-Mar-2025 11:29 by rmk") (* ; "Edited 18-Mar-2025 21:52 by rmk") (* ; "Edited 19-Feb-2025 16:48 by rmk") @@ -473,20 +477,24 @@ (if (IGREATERP (TEXTLEN TEXTOBJ) 0) then - (* ;; "Explict user properties cover everything, otherwise allow for extra stuff") + (* ;; "Explict user properties covers content") [SETQ WIDTH (OR (GETTEXTPROP TEXTOBJ 'OPENWIDTH) (for PARALOOKS in (FGETTOBJ TEXTOBJ TXTPARALOOKSLIST) largest (GETPLOOKS PARALOOKS RIGHTMAR) finally (CL:UNLESS (AND $$EXTREME (IGREATERP $$EXTREME 0)) - (SETQ $$EXTREME (TIMES 6 PTSPERINCH))) - (* ; "36 for right margin selection") - (RETURN (IPLUS $$EXTREME \TEDIT.LINEREGION.WIDTH 36 - (ADD1 (TIMES 2 WBorder) - 1) - (CL:IF (FGETTOBJ TEXTOBJ TXTNOTSPLITTABLE) - 0 - \TEDIT.OP.WIDTH)] + (SETQ $$EXTREME (TIMES 6 PTSPERINCH))) + (RETURN $$EXTREME] + + (* ;; "Allow for extra stuff. 36 to allow for some spacing.") + + [add WIDTH (IPLUS \TEDIT.LINEREGION.WIDTH (ADD1 (TIMES 2 WBorder) + 1) + (CL:IF (FGETTOBJ TEXTOBJ TXTNOTSPLITTABLE) + 0 + (CL:IF (EQ 0 \TEDIT.OP.WIDTH) + \TEDIT.LINEREGION.WIDTH + (IPLUS \TEDIT.OP.WIDTH 36)))] [SETQ HEIGHT (if (GETTEXTPROP TEXTOBJ 'OPENHEIGHT) elseif (ZEROP (TEXTLEN TEXTOBJ)) then 50 @@ -504,11 +512,12 @@ (IMAX 100 (ADD1 (TIMES 2 WBorder]) (\TEDIT.WINDOW.SETUP - [LAMBDA (PANE TSTREAM PROPS AFTERPANE LCHAR1) (* ; "Edited 25-Nov-2024 20:10 by rmk") + [LAMBDA (PANE TSTREAM PROPS AFTERPANE LCHAR1) (* ; "Edited 6-May-2025 11:44 by rmk") + (* ; "Edited 21-Apr-2025 12:02 by rmk") + (* ; "Edited 6-Apr-2025 18:56 by rmk") + (* ; "Edited 5-Apr-2025 14:07 by rmk") + (* ; "Edited 25-Nov-2024 20:10 by rmk") (* ; "Edited 21-Nov-2024 21:12 by rmk") - (* ; "Edited 18-Nov-2024 21:14 by rmk") - (* ; "Edited 4-Nov-2024 19:47 by rmk") - (* ; "Edited 3-Nov-2024 07:49 by rmk") (* ; "Edited 5-Jul-2024 11:38 by rmk") (* ; "Edited 18-May-2024 16:50 by rmk") (* ; "Edited 15-Mar-2024 13:36 by rmk") @@ -540,17 +549,17 @@ (* ;; "") - (\TEDIT.PANE.CREATELINES TEXTOBJ PANE (AND LCHAR1 (SUB1 LCHAR1))) + (\TEDIT.PANE.CREATELINES TSTREAM PANE (AND LCHAR1 (SUB1 LCHAR1))) (CL:UNLESS (OR LCHAR1 (EQ 0 (TEXTLEN TEXTOBJ))) (LINKLD (PANEPREFIX PANE) - (\TEDIT.FORMATLINE TEXTOBJ 1))) + (\TEDIT.FORMATLINE TSTREAM 1))) (CL:WHEN (PANETOPLINE PANE) [SETYBOT (PANEPREFIX PANE) (IPLUS (FGETLD (PANETOPLINE PANE) LLEADBEFORE) (fetch (REGION HEIGHT) of (DSPCLIPPINGREGION NIL PANE]) (\TEDIT.CLEARPANE PANE) - (\TEDIT.SUFFIXLINE.CREATE PANE TEXTOBJ (\TEDIT.LINES.BELOW NIL PANE TEXTOBJ)) + (\TEDIT.SUFFIXLINE.CREATE PANE TSTREAM (\TEDIT.LINES.BELOW NIL PANE TSTREAM)) (CL:WHEN AFTERPANE (for PANE inpanes (PROGN TEXTOBJ) as L1 on (GETSEL SEL L1) as LN on (GETSEL SEL LN) when (EQ PANE AFTERPANE) do (push (CDR L1) @@ -558,13 +567,15 @@ (push (CDR LN) NIL))) (FSETSEL SEL HASCARET (NOT (FGETTOBJ TEXTOBJ TXTREADONLY))) - (\TEDIT.FIXSEL SEL TEXTOBJ NIL (AND AFTERPANE PANE)) - (\TEDIT.SHOWSEL SEL NIL TEXTOBJ (AND AFTERPANE PANE)) - (\TEDIT.SHOWSEL SEL T TEXTOBJ (AND AFTERPANE PANE)) + (\TEDIT.FIXSEL SEL TSTREAM (AND AFTERPANE PANE)) (* ; + "If not fixed, the highlight in the lower pane will disappear") + (\TEDIT.SEL.OFF TSTREAM NIL (AND AFTERPANE PANE)) + (\TEDIT.SEL.ON TSTREAM SEL (AND AFTERPANE PANE)) (\TEDIT.SET.WINDOW.EXTENT TEXTOBJ PANE]) (\TEDIT.MINIMAL.WINDOW.SETUP - [LAMBDA (PANE TSTREAM PROPS AFTERPANE) (* ; "Edited 30-Nov-2024 13:32 by rmk") + [LAMBDA (PANEWINDOW TSTREAM PROPS) (* ; "Edited 20-Apr-2025 15:19 by rmk") + (* ; "Edited 30-Nov-2024 13:32 by rmk") (* ; "Edited 4-Nov-2024 19:46 by rmk") (* ; "Edited 26-Oct-2024 11:10 by rmk") (* ; "Edited 27-Aug-2024 10:11 by rmk") @@ -583,34 +594,36 @@ (* ; "Edited 18-Sep-2023 23:44 by rmk") (* ; "Edited 30-May-91 23:33 by jds") - (* ;; "Do the minimum setup so that the window PANE becomes a pane of TSTREAM and TSTREAM and PANE know about each other. Does NOT include mouse interface or scrolling/lines") + (* ;; "Do the minimum setup so that the window PANEWINDOW becomes the window of a pane of TSTREAM and TSTREAM and PANE know about each other. Does NOT include mouse interface or scrolling/lines.") - (* ;; "If AFTERPANE is non-NIL, the new pnae will be placed after AFTERPANE in the TEXTOBJ's pane list. This maintains an ordering of panes, for splitting and unsplitting.") + (* ;; "") - (\DTEST PANE 'WINDOW) - (LET ((TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)) + (* ;; "THIS SHOULD RETURN A PANE, NOT PANEWINDOW") + + (\DTEST PANEWINDOW 'WINDOW) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM)) [PANEPROPS (create PANEPROPS - PWINDOW _ PANE + PWINDOW _ PANEWINDOW PCARET _ (create TEDITCARET TCFORCEUP _ T - TCCARETDS _ (WINDOWPROP PANE 'DSP] - DS PREG OLDPANES) (* ; "The displaystream for flashing the caret. Caret starts off, so it doesn't flash before its position is known") - (replace (TEXTWINDOW PANEPROPS) of PANE with PANEPROPS) - (SETQ DS (WINDOWPROP PANE 'DSP)) - (FSETTOBJ TEXTOBJ SELPANE PANE) - (WINDOWPROP PANE 'PROCESS NIL) (* ; + TCCARETDS _ (WINDOWPROP PANEWINDOW 'DSP] + DS PREG) (* ; "The displaystream for flashing the caret. Caret starts off, so it doesn't flash before its position is known") + (replace (TEXTWINDOW PANEPROPS) of PANEWINDOW with PANEPROPS) + (SETQ DS (WINDOWPROP PANEWINDOW 'DSP)) + (FSETTOBJ TEXTOBJ SELPANE PANEWINDOW) + (WINDOWPROP PANEWINDOW 'PROCESS NIL) (* ;  "For the moment, this pane has no process") - (replace (TEXTWINDOW WTEXTSTREAM) of PANE with TSTREAM) + (replace (TEXTWINDOW WTEXTSTREAM) of PANEWINDOW with TSTREAM) (* ; "TSTREAM is accessible from WINDOW") - (replace (TEXTWINDOW CURSORREGION) of PANE with (CREATEREGION 0 0 0 0)) + (replace (TEXTWINDOW CURSORREGION) of PANEWINDOW with (CREATEREGION 0 0 0 0)) (* ; "Used by CursorMovedFn") (DSPRIGHTMARGIN 32767 DS) (* ;  "So we don't get spurious RETURNs printed out by the system") (FSETTOBJ TEXTOBJ DISPLAYCACHE (CAR (\TEDIT.CREATE.LINECACHE 1))) (* ;  "A CACHE for creating line images for display") - [FSETTOBJ TEXTOBJ DISPLAYCACHEDS (DSPCREATE (fetch LCBITMAP of (GETTOBJ TEXTOBJ DISPLAYCACHE - ] + [FSETTOBJ TEXTOBJ DISPLAYCACHEDS (DSPCREATE (fetch LCBITMAP of (FGETTOBJ TEXTOBJ + DISPLAYCACHE] (* ;  "A displaystream for changing the image caches") (DSPOPERATION 'PAINT (FGETTOBJ TEXTOBJ DISPLAYCACHEDS)) @@ -632,51 +645,37 @@ (SETQ PANEBOTTOM (fetch (REGION BOTTOM) of PREG)) (SETQ PANETOP (fetch (REGION TOP) of PREG)) (SETQ PANEREGION PREG)) - (WITH TEXTOBJ TEXTOBJ (SETQ WTOP (fetch (REGION PTOP) of PREG)) - (SETQ WRIGHT (fetch (REGION RIGHT) of PREG)) - (SETQ WBOTTOM (fetch (REGION BOTTOM) of PREG)) - (SETQ WLEFT (fetch (REGION LEFT) of PREG))) (* ;; "") - (WINDOWPROP PANE 'CURSORMOVEDFN (FUNCTION \TEDIT.CURSORMOVEDFN)) - (WINDOWPROP PANE 'CURSOROUTFN (FUNCTION \TEDIT.CURSOROUTFN)) - (WINDOWPROP PANE 'BUTTONEVENTFN (FUNCTION \TEDIT.BUTTONEVENTFN)) - (WINDOWPROP PANE 'RIGHTBUTTONFN (FUNCTION \TEDIT.BUTTONEVENTFN)) - (WINDOWPROP PANE 'HARDCOPYFN (FUNCTION TEDIT.HARDCOPYFN)) - (WINDOWPROP PANE 'HARDCOPYFILEFN (FUNCTION \TEDIT.HARDCOPYFILEFN)) - (WINDOWPROP PANE 'COPYINSERTFN (FUNCTION \TEDIT.COPYINSERTFN)) - (WINDOWPROP PANE 'REPAINTFN (FUNCTION \TEDIT.REPAINTFN)) - (WINDOWPROP PANE 'AFTERMOVEFN (FUNCTION \TEDIT.AFTERMOVEFN)) - (WINDOWPROP PANE 'WINDOWENTRYFN (FUNCTION \TEDIT.PROCIDLEFN)) - (WINDOWPROP PANE 'OFFSCREEN (OFFSCREENP PANE)) - (WINDOWPROP PANE 'SCROLLFN (OR (WINDOWPROP PANE 'SCROLLFN) - (FUNCTION \TEDIT.SCROLLFN))) - (WINDOWPROP PANE 'ICONFN (OR (WINDOWPROP PANE 'ICONFN) - (FUNCTION \TEDIT.SHRINK.ICONCREATE))) - (WINDOWPROP PANE 'TEDIT.TITLEMENUFN (OR (WINDOWPROP PANE 'TEDIT.TITLEMENUFN) - (LISTGET PROPS 'TITLEMENUFN) - (FUNCTION TEDIT.DEFAULT.MENUFN))) - (WINDOWADDPROP PANE 'SHRINKFN (FUNCTION \TEDIT.SHRINKFN)) - (WINDOWADDPROP PANE 'EXPANDFN (FUNCTION \TEDIT.EXPANDFN)) - (WINDOWADDPROP PANE 'RESHAPEFN (FUNCTION \TEDIT.RESHAPEFN)) - (WINDOWADDPROP PANE 'NEWREGIONFN (FUNCTION \TEDIT.NEWREGIONFN)) + (WINDOWPROP PANEWINDOW 'CURSORMOVEDFN (FUNCTION \TEDIT.CURSORMOVEDFN)) + (WINDOWPROP PANEWINDOW 'CURSOROUTFN (FUNCTION \TEDIT.CURSOROUTFN)) + (WINDOWPROP PANEWINDOW 'BUTTONEVENTFN (FUNCTION \TEDIT.BUTTONEVENTFN)) + (WINDOWPROP PANEWINDOW 'RIGHTBUTTONFN (FUNCTION \TEDIT.BUTTONEVENTFN)) + (WINDOWPROP PANEWINDOW 'HARDCOPYFN (FUNCTION TEDIT.HARDCOPYFN)) + (WINDOWPROP PANEWINDOW 'HARDCOPYFILEFN (FUNCTION \TEDIT.HARDCOPYFILEFN)) + (WINDOWPROP PANEWINDOW 'COPYINSERTFN (FUNCTION \TEDIT.COPYINSERTFN)) + (WINDOWPROP PANEWINDOW 'REPAINTFN (FUNCTION \TEDIT.REPAINTFN)) + (WINDOWPROP PANEWINDOW 'AFTERMOVEFN (FUNCTION \TEDIT.AFTERMOVEFN)) + (WINDOWPROP PANEWINDOW 'WINDOWENTRYFN (FUNCTION \TEDIT.PROCIDLEFN)) + (WINDOWPROP PANEWINDOW 'OFFSCREEN (OFFSCREENP PANEWINDOW)) + (WINDOWPROP PANEWINDOW 'SCROLLFN (OR (WINDOWPROP PANEWINDOW 'SCROLLFN) + (FUNCTION \TEDIT.SCROLLFN))) + (WINDOWPROP PANEWINDOW 'ICONFN (OR (WINDOWPROP PANEWINDOW 'ICONFN) + (FUNCTION \TEDIT.SHRINK.ICONCREATE))) + (WINDOWPROP PANEWINDOW 'TEDIT.TITLEMENUFN (OR (WINDOWPROP PANEWINDOW 'TEDIT.TITLEMENUFN) + (LISTGET PROPS 'TITLEMENUFN) + (FUNCTION TEDIT.DEFAULT.MENUFN))) + (WINDOWADDPROP PANEWINDOW 'SHRINKFN (FUNCTION \TEDIT.SHRINKFN)) + (WINDOWADDPROP PANEWINDOW 'EXPANDFN (FUNCTION \TEDIT.EXPANDFN)) + (WINDOWADDPROP PANEWINDOW 'RESHAPEFN (FUNCTION \TEDIT.RESHAPEFN)) + (WINDOWADDPROP PANEWINDOW 'NEWREGIONFN (FUNCTION \TEDIT.NEWREGIONFN)) (* ;; "Our CLOSEFN must be first in order to stop closing if the stream is busy.") - (WINDOWADDPROP PANE 'CLOSEFN (CL:IF AFTERPANE - [FUNCTION (LAMBDA (P) - (PUTWINDOWPROP P 'CLOSEFN NIL) - (\TEDIT.UNSPLITW P] - (FUNCTION TEDIT.DEACTIVATE.WINDOW)) + (WINDOWADDPROP PANEWINDOW 'CLOSEFN (FUNCTION TEDIT.DEACTIVATE.WINDOW) T) - (CL:UNLESS (thereis P inpanes TEXTOBJ suchthat (EQ P PANE)) - (* ; "Don't re-add ") - (if AFTERPANE - then (* ; "Link it in after AFTERPANE ") - (\TEDIT.LINKPANES AFTERPANE PANE) - else (FSETTOBJ TEXTOBJ PRIMARYPANE PANE))) - PANE]) + PANEWINDOW]) (\TEDIT.CLEARPANE [LAMBDA (PANE PBOTTOM) (* ; "Edited 1-Dec-2024 11:43 by rmk") @@ -694,17 +693,12 @@ 'REPLACE]) (\TEDIT.FILL.PANES - [LAMBDA (TSTREAM ONLYPANE) (* ; "Edited 29-Nov-2024 13:29 by rmk") - (* ; "Edited 27-Nov-2024 13:51 by rmk") - (* ; "Edited 21-Nov-2024 21:10 by rmk") - (* ; "Edited 19-Nov-2024 23:27 by rmk") - (* ; "Edited 18-Nov-2024 21:14 by rmk") + [LAMBDA (TSTREAM ONLYPANE) (* ; "Edited 6-May-2025 11:55 by rmk") + (* ; "Edited 21-Apr-2025 20:22 by rmk") + (* ; "Edited 5-Apr-2025 13:40 by rmk") + (* ; "Edited 29-Nov-2024 13:29 by rmk") (* ; "Edited 28-Oct-2024 16:29 by rmk") - (* ; "Edited 26-Oct-2024 15:38 by rmk") (* ; "Edited 6-Jul-2024 16:57 by rmk") - (* ; "Edited 30-Jun-2024 17:12 by rmk") - (* ; "Edited 25-Jun-2024 08:53 by rmk") - (* ; "Edited 17-Jun-2024 09:36 by rmk") (* ; "Edited 12-May-2024 21:36 by rmk") (* ; "Edited 15-Mar-2024 13:36 by rmk") (* ; "Edited 30-Nov-2023 10:02 by rmk") @@ -717,7 +711,7 @@  "If called with a pane, the window system has cleared the bitmap, but we don't count on that.") (SETQ TSTREAM (TEXTSTREAM TSTREAM)) - (LET ((TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM)) SEL WASON) (CL:WHEN TEXTOBJ (SETQ SEL (FGETTOBJ TEXTOBJ SEL)) @@ -733,15 +727,17 @@ (\TEDIT.SETCARET SEL P TEXTOBJ 'OFF) (\TEDIT.CLEARPANE P) - (\TEDIT.SUFFIXLINE.CREATE P TEXTOBJ (\TEDIT.LINES.BELOW NIL P TEXTOBJ)) - (\TEDIT.FIXSEL SEL TEXTOBJ NIL P) + (\TEDIT.SUFFIXLINE.CREATE P TSTREAM (\TEDIT.LINES.BELOW NIL P TSTREAM)) (\TEDIT.SET.WINDOW.EXTENT TEXTOBJ P)) - (CL:WHEN WASON (\TEDIT.SHOWSEL SEL T TEXTOBJ ONLYPANE)))]) + (CL:WHEN WASON (\TEDIT.SEL.ON TSTREAM SEL ONLYPANE)))]) ) (DEFINEQ (\TEDIT.CURSORMOVEDFN - [LAMBDA (PANE) (* ; "Edited 1-Dec-2024 11:55 by rmk") + [LAMBDA (PANE) (* ; "Edited 27-Apr-2025 23:43 by rmk") + (* ; "Edited 24-Apr-2025 10:35 by rmk") + (* ; "Edited 19-Apr-2025 22:22 by rmk") + (* ; "Edited 1-Dec-2024 11:55 by rmk") (* ; "Edited 22-Nov-2024 23:53 by rmk") (* ; "Edited 16-Nov-2024 20:18 by rmk") (* ; "Edited 28-Jun-2024 15:07 by rmk") @@ -753,89 +749,97 @@ (* ;; "Watch the mouse and change the cursor to reflect the region of the pane it's in (line select, pane split eventually?)") - (PROG ((X (LASTMOUSEX PANE)) - (Y (LASTMOUSEY PANE)) - (TEXTOBJ (TEXTOBJ! (fetch (TEXTWINDOW WTEXTOBJ) of PANE))) - (CURSORREG (fetch (TEXTWINDOW CURSORREGION) of PANE)) - LINE LEFT) - (CL:UNLESS (INSIDE? (PANEREGION PANE) - X Y) - (CURSOR T) - (RETURN)) - (CL:UNLESS (INSIDE? CURSORREG X Y) - [if (AND (IGEQ X (SETQ LEFT (IDIFFERENCE (FGETTOBJ TEXTOBJ WRIGHT) - \TEDIT.OP.WIDTH))) - (IGEQ Y (IPLUS (PANEBOTTOM PANE) - \TEDIT.OP.BOTTOM)) - (NOT (FGETTOBJ TEXTOBJ TXTNOTSPLITTABLE))) - then - (* ;; "We're in the split region on the right") + (CL:WHEN (fetch (TEXTWINDOW WTEXTSTREAM) of (OR (WINDOWP PANE) + (PANEWINDOW PANE))) + [PROG ((X (LASTMOUSEX PANE)) + (Y (LASTMOUSEY PANE)) + (TEXTOBJ (PANETEXTOBJ PANE)) + (CURSORREG (fetch (TEXTWINDOW CURSORREGION) of (PANEWINDOW PANE))) + LINE LEFT) + (CL:UNLESS (INSIDE? (PANEREGION PANE) + X Y) + (CURSOR T) + (RETURN)) + (CL:UNLESS (INSIDE? CURSORREG X Y) + [if [AND (IGEQ X (SETQ LEFT (IDIFFERENCE (PANERIGHT PANE) + \TEDIT.OP.WIDTH))) + (IGEQ Y (IPLUS (PANEBOTTOM PANE) + \TEDIT.OP.BOTTOM)) + (NOT (OR (FGETTOBJ TEXTOBJ TXTNOTSPLITTABLE) + (EQ \TEDIT.OP.WIDTH -1] + then + (* ;; "We're in the split region on the right") - (CURSOR \TEDIT.SPLITCURSOR) - (FSETTOBJ TEXTOBJ MOUSEREGION 'PANE) (* ; + (CURSOR \TEDIT.SPLITCURSOR) + (FSETTOBJ TEXTOBJ MOUSEREGION 'PANE) + (* ;  "PANE just signals \TEDIT.BUTTONEVENTFN to do a split operation.") - (replace (REGION LEFT) of CURSORREG with LEFT) - (replace (REGION WIDTH) of CURSORREG with \TEDIT.OP.WIDTH) - else - (* ;; "Not in the split region. Are we in the line-select region on the left? Don't call PANEPREFIX, because that tests for LINEDESCRIPTOR") + (replace (REGION LEFT) of CURSORREG with LEFT) + (replace (REGION WIDTH) of CURSORREG with \TEDIT.OP.WIDTH) + else + (* ;; "Not in the split region. Are we in the line-select region on the left? Don't call PANEPREFIX, because that tests for LINEDESCRIPTOR") - (SETQ LINE (find L inlines (GETPANEPROP (PANEPROPS PANE) - PREFIXLINE) - suchthat (ILEQ (FGETLD L YBOT) - Y))) - (CL:WHEN LINE (* ; + (SETQ LINE (find L inlines (GETPANEPROP (PANEPROPS PANE) + PREFIXLINE) + suchthat (ILEQ (FGETLD L YBOT) + Y))) + (CL:WHEN LINE (* ;  "The CURSORREGION picks out just LINE") - (replace BOTTOM of CURSORREG with (FGETLD LINE YBOT)) - (replace HEIGHT of CURSORREG with (FGETLD LINE LHEIGHT))) + (replace BOTTOM of CURSORREG with (FGETLD LINE YBOT)) + (replace HEIGHT of CURSORREG with (FGETLD LINE LHEIGHT))) - (* ;; "The line region gets wider if the paragraph is indented") + (* ;; "The line region gets wider if the paragraph is indented") - (SETQ LEFT (OR (AND LINE (FGETLD LINE LEFTMARGIN)) - (IPLUS (FGETTOBJ TEXTOBJ WLEFT) - \TEDIT.LINEREGION.WIDTH))) - (if (ILESSP X LEFT) - then - (* ;; "In left margin; switch to the line-select cursor") + (SETQ LEFT (OR (AND LINE (FGETLD LINE LEFTMARGIN)) + (IPLUS (PANELEFT PANE) + \TEDIT.LINEREGION.WIDTH))) + (if (ILESSP X LEFT) + then + (* ;; "In left margin; switch to the line-select cursor") - (CURSOR \TEDIT.LINECURSOR) - (FSETTOBJ TEXTOBJ MOUSEREGION 'LINE) - (replace (REGION LEFT) of CURSORREG with 0) - (replace (REGION WIDTH) of CURSORREG with LEFT) - else - (* ;; + (CURSOR \TEDIT.LINECURSOR) + (FSETTOBJ TEXTOBJ MOUSEREGION 'LINE) + (replace (REGION LEFT) of CURSORREG with 0) + (replace (REGION WIDTH) of CURSORREG with LEFT) + else + (* ;;  "Not in the line-select region, not in the split region, must be the main text. ") - (CURSOR T) - (FSETTOBJ TEXTOBJ MOUSEREGION 'TEXT) - (replace (REGION LEFT) of CURSORREG with LEFT) - (replace (REGION WIDTH) of CURSORREG with (IDIFFERENCE (FGETTOBJ TEXTOBJ - WRIGHT) - (IPLUS LEFT + (CURSOR T) + (FSETTOBJ TEXTOBJ MOUSEREGION 'TEXT) + (replace (REGION LEFT) of CURSORREG with LEFT) + (replace (REGION WIDTH) of CURSORREG with (IDIFFERENCE (PANERIGHT + PANE) + (IPLUS LEFT \TEDIT.LINEREGION.WIDTH - ])]) + ])])]) (\TEDIT.CURSOROUTFN - [LAMBDA (PANE) (* ; "Edited 20-Jul-2023 20:32 by rmk") + [LAMBDA (PANE) (* ; "Edited 4-May-2025 14:27 by rmk") + (* ; "Edited 20-Jul-2023 20:32 by rmk") (* ; "Edited 30-May-91 23:32 by jds") (* ;; "Cursor leaves edit pane; make sure we think we're in the text region.") (CURSOR T) - (SETTOBJ (fetch (TEXTWINDOW PTEXTOBJ) of PANE) - MOUSEREGION - 'TEXT]) + (CL:WHEN (fetch (TEXTWINDOW WTEXTSTREAM) of (OR (WINDOWP PANE) + (PANEWINDOW PANE))) + (SETTOBJ (PANETEXTOBJ PANE) + MOUSEREGION + 'TEXT))]) (\TEDIT.ACTIVE.WINDOWP - [LAMBDA (W) (* ; "Edited 20-Mar-2024 09:38 by rmk") + [LAMBDA (W) (* ; "Edited 27-Apr-2025 13:07 by rmk") + (* ; "Edited 20-Mar-2024 09:38 by rmk") (* ; "Edited 15-Mar-2024 18:37 by rmk") (* ; "Edited 11-Sep-2023 00:22 by rmk") (* ; "Edited 30-May-91 23:33 by jds") - (* ;; "RMK: Not sure that TEXTOBJ is ever T. Or that windows ever have a TEXTSTREAM property (vs TEXTOBJ).") + (* ;; "This is called by TEDIT-PROCESS-KILLER.") (* ;; "Decides whether a TEdit window is really in use. The function TEDIT will set the TEXTOBJ prop of the window to T pro tem, to reserve a window. Once the TEdit has really started, the TEXTOBJ property will be a real textobj.") - (LET ((TEXTOBJ (fetch (TEXTWINDOW WTEXTOBJ) of W))) + (LET ((TEXTOBJ (TEXTOBJ W T))) (AND (type? TEXTOBJ TEXTOBJ) (NOT (fetch (TEXTOBJ EDITFINISHEDFLG) of TEXTOBJ)) (PROCESSP (WINDOWPROP W 'PROCESS]) @@ -867,10 +871,10 @@ PRIM]) (\TEDIT.MAINSTREAM - [LAMBDA (TSTREAM) (* ; "Edited 20-Oct-2024 09:31 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 18-Apr-2025 15:02 by rmk") + (* ; "Edited 20-Oct-2024 09:31 by rmk") (LET ((MAINW (\TEDIT.MAINW TSTREAM))) - (CL:WHEN MAINW - (fetch (TEXTWINDOW WTEXTSTREAM) of MAINW))]) + (CL:WHEN MAINW (PANETEXTSTREAM MAINW]) (\TEDIT.PRIMARYPANE [LAMBDA (TSTREAM) (* ; "Edited 28-Jun-2024 21:36 by rmk") @@ -1112,7 +1116,11 @@ (DEFINEQ (\TEDIT.BUTTONEVENTFN - [LAMBDA (PANE) (* ; "Edited 13-Feb-2025 11:53 by rmk") + [LAMBDA (PANE) (* ; "Edited 6-May-2025 20:35 by rmk") + (* ; "Edited 21-Apr-2025 20:19 by rmk") + (* ; "Edited 13-Apr-2025 13:33 by rmk") + (* ; "Edited 6-Apr-2025 18:59 by rmk") + (* ; "Edited 13-Feb-2025 11:53 by rmk") (* ; "Edited 6-Dec-2024 11:33 by rmk") (* ; "Edited 1-Dec-2024 12:03 by rmk") (* ; "Edited 27-Nov-2024 20:21 by rmk") @@ -1141,7 +1149,7 @@ (RESETLST (* ;  "Getting TTYPROC here allows HELP in debugging") (bind (TTYPROC _ (TTY.PROCESS)) - (TSTREAM _ (PANESTREAM PANE)) + (TSTREAM _ (PANETEXTSTREAM PANE)) (X _ (LASTMOUSEX PANE)) (Y _ (LASTMOUSEY PANE)) (DS _ (WINDOWPROP PANE 'DSP)) @@ -1181,7 +1189,7 @@ READONLY NIL)) (CL:UNLESS (SETQ CURSEL (  \TEDIT.BUTTONEVENTFN.CURSEL.INIT - NEWOPERATION TEXTOBJ)) + NEWOPERATION TSTREAM)) (RETURN)) (SETQ NEWSEL (\TEDIT.COPYSEL CURSEL)) (* ; @@ -1208,8 +1216,8 @@  "The mouse left the window: cleanup and leave. ") (CL:UNLESS (EQ CUROPERATION 'NORMAL) (* ;  "Take down the copy/delete/copylooks highlight") - (\TEDIT.SHOWSEL CURSEL NIL TEXTOBJ) - (\TEDIT.SHOWSEL NIL T TEXTOBJ)) (* ; "Go back to original selection?") + (\TEDIT.SEL.OFF TSTREAM CURSEL) + (\TEDIT.SEL.ON TSTREAM)) (* ; "Go back to original selection?") (* ;;  "Scroll if mouse moved to scroll bar (and scroll bar doesn't overlap the window)") @@ -1225,16 +1233,16 @@ (SETQ OLDX X) (SETQ OLDY Y) (CL:UNLESS (EQ NEWOPERATION CUROPERATION) (* ; "Keys changed ") - (\TEDIT.SHOWSEL CURSEL NIL TEXTOBJ) (* ; "Switch to new highlighting") + (\TEDIT.SEL.OFF TSTREAM CURSEL) (* ; "Switch to new highlighting") (\TEDIT.SET.SEL.LOOKS CURSEL NEWOPERATION) (\TEDIT.SET.SEL.LOOKS NEWSEL NEWOPERATION) (CL:WHEN (EQ NEWOPERATION 'NORMAL) (* ;; "Switching from e.g. COPY to NORMAL with button down. Since we didn't start out NORMAL, the original normal selection is still on the screen. We take it down here, and establish the current (off) CURSEL as the new restoration selection") - (\TEDIT.SHOWSEL NIL NIL TEXTOBJ) + (\TEDIT.SEL.OFF TSTREAM CURSEL) (\TEDIT.COPYSEL CURSEL (TEXTSEL TEXTOBJ))) - (\TEDIT.SHOWSEL CURSEL T TEXTOBJ) + (\TEDIT.SEL.ON TSTREAM CURSEL) (SETQ CUROPERATION NEWOPERATION)) (* ;; "Update NEWSEL each time around. Note that \TEDIT.XYTOSEL fixes but doesn't show the selection, we do that here. MOUSEREGION is set by \TEDITCURSORMOVEDFN, below.") @@ -1242,7 +1250,7 @@ (if (\TEDIT.MOUSESTATE RIGHT) then (* ;  "Right button: NEWSEL extends last CURSEL") - (\TEDIT.XYTOSEL X Y NEWSEL TEXTOBJ CUROPERATION PANE 'RIGHT CURSEL) + (\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'RIGHT CURSEL) (CL:WHEN (FGETSEL NEWSEL SET) (CL:WHEN (AND TEDIT.EXTEND.PENDING.DELETE (NOT PENDINGDEL) (EQ CUROPERATION 'NORMAL) @@ -1250,22 +1258,22 @@ (* ;; "Switch to simulation of Laurel bluependingdelete: Black, deletes on type-in. Coerce CURSEL and display for pending looks. Otherwise, CURSEL is already BPD and stays on to avoid flicker in extending") - (\TEDIT.SHOWSEL CURSEL NIL TEXTOBJ) + (\TEDIT.SEL.OFF TSTREAM CURSEL) (* ;  "Take down old looks, change, re-show") (\TEDIT.SET.SEL.LOOKS CURSEL 'PENDINGDEL) (\TEDIT.SET.SEL.LOOKS NEWSEL 'PENDINGDEL) - (\TEDIT.SHOWSEL CURSEL T TEXTOBJ) + (\TEDIT.SEL.ON TSTREAM CURSEL) (SETQ PENDINGDEL T)) - [\TEDIT.EXTEND.SEL NEWSEL CURSEL TEXTOBJ (MEMB CUROPERATION + [\TEDIT.EXTEND.SEL NEWSEL CURSEL TSTREAM (MEMB CUROPERATION '(COPY COPYLOOKS]) (* ; "No valid selection, go to cleanup") else (if (\TEDIT.MOUSESTATE LEFT) then (* ; "Left selects char/point. ") - (\TEDIT.XYTOSEL X Y NEWSEL TEXTOBJ CUROPERATION PANE 'LEFT CURSEL) + (\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'LEFT CURSEL) elseif (\TEDIT.MOUSESTATE MIDDLE) then (* ; "Middle selects word/line") - (\TEDIT.XYTOSEL X Y NEWSEL TEXTOBJ CUROPERATION PANE 'MIDDLE CURSEL + (\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'MIDDLE CURSEL )) (CL:WHEN (AND (FGETSEL NEWSEL SET) (\TEDIT.SEL.CHANGED? NEWSEL CURSEL) @@ -1274,9 +1282,9 @@ (* ;; "Selection has changed while at least one button is down. Take down current CURSEL highlighting, switch to NEWSEL. If the mouse condition is removed, the secondary selection can be lost if the mouse moves while the operation keys are still down. But if the copy isn't done when NEWSEL picks out an object, the object will be lost. ") - (\TEDIT.SHOWSEL CURSEL NIL TEXTOBJ) + (\TEDIT.SEL.OFF TSTREAM CURSEL) (\TEDIT.COPYSEL NEWSEL CURSEL) - (\TEDIT.SHOWSEL CURSEL T TEXTOBJ))) + (\TEDIT.SEL.ON TSTREAM CURSEL))) (* ;; "CURSEL now matches the display and CUROPERATION.") finally @@ -1287,15 +1295,20 @@ (* ;; ".Here to restore when no valid selection, maybe an unhappy image object?") - (\TEDIT.SHOWSEL CURSEL NIL TEXTOBJ) (* ; "Turn off CURSEL") + (\TEDIT.SEL.OFF TSTREAM CURSEL) (* ; "Turn off CURSEL") (\TEDIT.SET.SEL.LOOKS (TEXTSEL TEXTOBJ) 'NORMAL) (* ; "Restore TEXTSEL") - (\TEDIT.SHOWSEL NIL T TEXTOBJ) + (\TEDIT.SEL.ON TSTREAM) (RETURN)) (\TEDIT.BUTTONEVENTFN.DOOPERATION CURSEL CUROPERATION TSTREAM PANE PENDINGDEL TTYPROC))))]) (\TEDIT.BUTTONEVENTFN.DOOPERATION [LAMBDA (CURSEL CUROPERATION TSTREAM PANE PENDINGDEL TTYPROC) + (* ; "Edited 6-May-2025 11:54 by rmk") + (* ; "Edited 27-Apr-2025 22:26 by rmk") + (* ; "Edited 21-Apr-2025 20:32 by rmk") + (* ; "Edited 8-Apr-2025 10:03 by rmk") + (* ; "Edited 6-Apr-2025 18:02 by rmk") (* ; "Edited 25-Nov-2024 22:22 by rmk") (* ; "Edited 4-Nov-2024 13:09 by rmk") (* ; "Edited 3-Nov-2024 07:20 by rmk") @@ -1318,10 +1331,10 @@ (* ;; "On entry, CURSEL's highlighting is on the screen") (CL:WHEN (FGETSEL CURSEL SET) - (LET* ((TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)) + (LET* ((TEXTOBJ (FTEXTOBJ TSTREAM)) (TTYW (PROCESSPROP TTYPROC 'WINDOW)) (TTYSTREAM (AND TTYW (fetch (TEXTWINDOW WTEXTSTREAM) of TTYW))) - [TTYSEL (AND TTYSTREAM (TEXTSEL (GETTSTR TTYSTREAM TEXTOBJ] + [TTYSEL (AND TTYSTREAM (TEXTSEL (FTEXTOBJ TTYSTREAM] (SELFN (GETTEXTPROP TEXTOBJ 'SELFN)) (TEXTSEL (TEXTSEL TEXTOBJ))) @@ -1339,7 +1352,7 @@ (* ;; "\TEDIT.DELETE converts TTYSEL (= TEXTSEL) to a point-caret.") (\TEDIT.COPYSEL CURSEL TEXTSEL) - (CL:WHEN (\TEDIT.DELETE TEXTOBJ TEXTSEL) + (CL:WHEN (\TEDIT.DELETE TSTREAM TEXTSEL) (* ;  "Make sure the caret blinks in the position of a successful deletion") (FSETSEL TEXTSEL HASCARET T)) @@ -1347,8 +1360,8 @@ (COPY (CL:IF TTYSEL (\TEDIT.COPY CURSEL TTYSEL TSTREAM TTYSTREAM) (\TEDIT.FOREIGN.COPY TTYW CURSEL TSTREAM)) - (\TEDIT.SHOWSEL CURSEL NIL TEXTOBJ)) - (MOVE (\TEDIT.SHOWSEL CURSEL NIL TEXTOBJ) + (\TEDIT.SEL.OFF TSTREAM CURSEL)) + (MOVE (\TEDIT.SEL.OFF TSTREAM CURSEL) (if TTYSEL then (\TEDIT.MOVE CURSEL TTYSEL TSTREAM TTYSTREAM) else (\TEDIT.FOREIGN.COPY TTYW CURSEL TSTREAM) @@ -1356,9 +1369,9 @@ (\TEDIT.UPDATE.SEL TEXTSEL (FGETSEL CURSEL CH#) 0 'RIGHT) - (\TEDIT.DELETE TEXTOBJ CURSEL) - (\TEDIT.SHOWSEL TEXTSEL T TEXTOBJ))) - (COPYLOOKS (\TEDIT.SHOWSEL CURSEL NIL TEXTOBJ) + (\TEDIT.DELETE TSTREAM CURSEL) + (\TEDIT.SEL.ON TSTREAM TEXTSEL))) + (COPYLOOKS (\TEDIT.SEL.OFF TSTREAM CURSEL) (if TTYSEL then (if (EQ 'PARA (FGETSEL CURSEL SELKIND)) then (\TEDIT.CHANGE.PARALOOKS TTYSTREAM @@ -1379,6 +1392,7 @@ TEXTOBJ)) CURSEL)))) (\TEDIT.THELP "Bad selection operation" CUROPERATION)) + (FSETTOBJ TEXTOBJ SELPANE PANE) (CL:UNLESS PENDINGDEL (\TEDIT.SET.SEL.LOOKS (TEXTSEL TEXTOBJ) 'NORMAL)) @@ -1424,7 +1438,11 @@ 'NORMAL]) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT - [LAMBDA (NEWOPERATION TEXTOBJ) (* ; "Edited 30-Nov-2024 15:45 by rmk") + [LAMBDA (NEWOPERATION TSTREAM) (* ; "Edited 6-May-2025 11:45 by rmk") + (* ; "Edited 21-Apr-2025 20:01 by rmk") + (* ; "Edited 6-Apr-2025 18:57 by rmk") + (* ; "Edited 5-Apr-2025 13:20 by rmk") + (* ; "Edited 30-Nov-2024 15:45 by rmk") (* ; "Edited 27-Nov-2024 20:23 by rmk") (* ; "Edited 22-Oct-2024 23:10 by rmk") (* ; "Edited 20-Oct-2024 23:38 by rmk") @@ -1435,50 +1453,52 @@ (* ;; "NILvalue signals abort") - (PROG [(CURSEL (\TEDIT.COPYSEL (TEXTSEL TEXTOBJ] - (SELECTQ NEWOPERATION - (NORMAL - (* ;; + (PROG* [(TEXTOBJ (FTEXTOBJ TSTREAM)) + (CURSEL (\TEDIT.COPYSEL (TEXTSEL TEXTOBJ] + (SELECTQ NEWOPERATION + (NORMAL + (* ;;  "Operating in this document. Our initial CURSEL is consistent with TEXTSEL and display.") - (FSETSEL (TEXTSEL TEXTOBJ) - ONFLG NIL) (* ; + (FSETSEL (TEXTSEL TEXTOBJ) + ONFLG NIL) (* ;  "Transferred display status to CURSEL, restore later if needed") - (\TEDIT.SHOWSEL CURSEL NIL TEXTOBJ) (* ; "Take down current hilight") - (if (\TEDIT.MOUSESTATE RIGHT) - then - (* ;; "Extending the current selection: coerce to PENDINGDEL/black") + (\TEDIT.SEL.OFF TSTREAM CURSEL) (* ; "Take down current hilight") + (if (\TEDIT.MOUSESTATE RIGHT) + then + (* ;; "Extending the current selection: coerce to PENDINGDEL/black") - (\TEDIT.SET.SEL.LOOKS CURSEL 'PENDINGDEL) - elseif (FGETTOBJ TEXTOBJ BLUEPENDINGDELETE) - then - (* ;; + (\TEDIT.SET.SEL.LOOKS CURSEL 'PENDINGDEL) + elseif (FGETTOBJ TEXTOBJ BLUEPENDINGDELETE) + then + (* ;;  "Not extending: turn off BPD highlighting and reduce to a point selection at the caret.") - (FSETTOBJ TEXTOBJ BLUEPENDINGDELETE NIL) - (\TEDIT.UPDATE.SEL CURSEL (TEDIT.GETPOINT TEXTOBJ CURSEL) - 0 NIL 'NORMAL) - (\TEDIT.FIXSEL CURSEL TEXTOBJ) - (\TEDIT.SHOWSEL CURSEL T TEXTOBJ)) - (\TEDIT.SHOWSEL CURSEL T TEXTOBJ)) - (DELETE - (* ;; + (FSETTOBJ TEXTOBJ BLUEPENDINGDELETE NIL) + (\TEDIT.UPDATE.SEL CURSEL (TEDIT.GETPOINT TEXTOBJ CURSEL) + 0 NIL 'NORMAL) + (\TEDIT.SEL.ON TSTREAM CURSEL)) + (\TEDIT.SEL.ON TSTREAM CURSEL)) + (DELETE + (* ;;  "Deleting (CTRL) somewhere else. Turn off CURSEL's highlighting, which was transferred from TEXTSEL") - (\TEDIT.SHOWSEL CURSEL NIL TEXTOBJ) - (\TEDIT.SET.SEL.LOOKS CURSEL 'DELETE)) - ((MOVE COPY COPYLOOKS) - (* ;; "Source text from here, TTY target maythat be here, another Tedit, or foreign. TEXTSEL remains visible ") + (\TEDIT.SEL.OFF TSTREAM CURSEL) + (\TEDIT.SET.SEL.LOOKS CURSEL 'DELETE)) + ((MOVE COPY COPYLOOKS) + (* ;; "Source text from here, TTY target maythat be here, another Tedit, or foreign. TEXTSEL remains visible ") - (CL:WHEN (\TEDIT.MOUSESTATE RIGHT) (* ; "Funny to copy while extending") - (RETURN)) - (\TEDIT.SET.SEL.LOOKS CURSEL NEWOPERATION) - (FSETSEL CURSEL SET NIL)) - (FSETSEL CURSEL SET NIL)) - (RETURN CURSEL]) + (CL:WHEN (\TEDIT.MOUSESTATE RIGHT) (* ; "Funny to copy while extending") + (RETURN)) + (\TEDIT.SET.SEL.LOOKS CURSEL NEWOPERATION) + (FSETSEL CURSEL SET NIL)) + (FSETSEL CURSEL SET NIL)) + (RETURN CURSEL]) (\TEDIT.BUTTONEVENTFN.INACTIVE - [LAMBDA (TEXTOBJ PANE) (* ; "Edited 24-Apr-2024 09:45 by rmk") + [LAMBDA (TEXTOBJ PANE) (* ; "Edited 9-May-2025 00:13 by rmk") + (* ; "Edited 18-Apr-2025 15:14 by rmk") + (* ; "Edited 24-Apr-2024 09:45 by rmk") (* ; "Edited 16-Mar-2024 00:22 by rmk") (* ; "Edited 9-Feb-2024 00:00 by rmk") (* ; "Edited 27-Jan-2024 11:40 by rmk") @@ -1490,7 +1510,6 @@ (if [AND (NOT (FGETTOBJ TEXTOBJ EDITFINISHEDFLG)) (NOT (FGETTOBJ TEXTOBJ EDITOPACTIVE)) (OR (WINDOWPROP PANE 'PROCESS) - (GETTOBJ TEXTOBJ TXTREADONLY) (SHIFTDOWNP 'SHIFT) (SHIFTDOWNP 'CTRL) (SHIFTDOWNP 'META) @@ -1504,8 +1523,7 @@ (DOWINDOWCOM PANE) T - elseif [AND (NOT (GETTEXTPROP TEXTOBJ 'READONLY)) - (NOT (GETTEXTPROP TEXTOBJ 'SELECTONLY)) + elseif [AND (NOT (GETTEXTPROP TEXTOBJ 'SELECTONLY)) [NOT (PROCESSP (WINDOWPROP PANE 'PROCESS] (OR T (AND (\TEDIT.MOUSESTATE MIDDLE) (EQ 'NewEditProcess (MENU (CREATE MENU @@ -1514,7 +1532,7 @@ (* ;; "Why do we need a Middle-button menu to restart a dead window. If it's clicked in, just restart it.") (SETTOBJ TEXTOBJ EDITOPACTIVE NIL) - (TEDIT (fetch (TEXTWINDOW WTEXTSTREAM) of PANE) + (TEDIT (PANETEXTSTREAM PANE) PANE) NIL]) @@ -1601,7 +1619,8 @@ (DEFINEQ (\TEDIT.PANE.SPLIT - [LAMBDA (TEXTOBJ WINDOWTOSPLIT) (* ; "Edited 23-Oct-2024 09:50 by rmk") + [LAMBDA (TEXTOBJ PANE) (* ; "Edited 19-Apr-2025 22:17 by rmk") + (* ; "Edited 23-Oct-2024 09:50 by rmk") (* ; "Edited 21-Oct-2024 00:33 by rmk") (* ; "Edited 27-Jan-2024 11:39 by rmk") (* ; "Edited 1-Oct-2023 23:30 by rmk") @@ -1609,52 +1628,47 @@ (* ;; "If in the split region, determine and execute the splitting operations for PANE.") + (* ;; "This will not be called if splitting is always invoked from the menu.") + (CL:WHEN (EQ (GETTOBJ TEXTOBJ MOUSEREGION) 'PANE) (* ; "In the split/ops region") - [LET ([WINDOWOPREGION (create REGION - LEFT _ (DIFFERENCE (fetch (TEXTOBJ WRIGHT) of TEXTOBJ) + [LET ((PANEWINDOW (PANEWINDOW PANE)) + (WINDOWOPREGION (create REGION + LEFT _ (DIFFERENCE (PANERIGHT PANE) \TEDIT.OP.WIDTH) BOTTOM _ \TEDIT.OP.BOTTOM WIDTH _ \TEDIT.OP.WIDTH - HEIGHT _ (fetch (REGION HEIGHT) of (WINDOWPROP WINDOWTOSPLIT - 'REGION] + HEIGHT _ (PANEHEIGHT PANE))) Y OPERATION) [while [AND (MOUSESTATE (OR LEFT MIDDLE RIGHT)) - (INSIDE? WINDOWOPREGION (LASTMOUSEX WINDOWTOSPLIT) - (SETQ Y (LASTMOUSEY WINDOWTOSPLIT] do + (INSIDE? WINDOWOPREGION (LASTMOUSEX PANEWINDOW) + (SETQ Y (LASTMOUSEY PANEWINDOW] do (* ;;  "Wait until he lets up on a button, and signal which button was last pushed.") - (BLOCK) - (COND - ((MOUSESTATE MIDDLE) - (CURSOR - \TEDIT.MAKESPLITCURSOR - ) - (SETQ OPERATION - 'SPLIT)) - ((MOUSESTATE LEFT) - (CURSOR - \TEDIT.MOVESPLITCURSOR - ) - (SETQ OPERATION - 'MOVE)) - ((MOUSESTATE RIGHT) - (CURSOR - \TEDIT.UNSPLITCURSOR - ) - (SETQ OPERATION - 'UNSPLIT] + (BLOCK) + (COND + ((MOUSESTATE MIDDLE) + (CURSOR \TEDIT.MAKESPLITCURSOR + ) + (SETQ OPERATION 'SPLIT)) + ((MOUSESTATE LEFT) + (CURSOR \TEDIT.MOVESPLITCURSOR + ) + (SETQ OPERATION 'MOVE)) + ((MOUSESTATE RIGHT) + (CURSOR \TEDIT.UNSPLITCURSOR) + (SETQ OPERATION 'UNSPLIT] (COND - ((INSIDE? WINDOWOPREGION (LASTMOUSEX WINDOWTOSPLIT) - (SETQ Y (LASTMOUSEY WINDOWTOSPLIT))) + ((INSIDE? WINDOWOPREGION (LASTMOUSEX PANEWINDOW) + (SETQ Y (LASTMOUSEY PANEWINDOW))) (CURSOR \TEDIT.SPLITCURSOR) (SELECTQ OPERATION (SPLIT (* ; "Splitting the window") - (\TEDIT.SPLITW WINDOWTOSPLIT Y)) + (\TEDIT.SPLITW PANE Y)) (UNSPLIT (* ; "Rejoining two panes") - (\TEDIT.UNSPLITW WINDOWTOSPLIT)) + (\TEDIT.UNSPLITW PANE)) (MOVE (* ;  "Moving the divider between two panes.") (TEDIT.PROMPTPRINT TEXTOBJ "Split-point moving is not yet implemented" T T @@ -1664,19 +1678,17 @@ T)]) (\TEDIT.SPLITW - [LAMBDA (OLDPANE Y) (* ; "Edited 1-Dec-2024 11:27 by rmk") + [LAMBDA (OLDPANE Y) (* ; "Edited 9-May-2025 23:55 by rmk") + (* ; "Edited 5-May-2025 23:22 by rmk") + (* ; "Edited 21-Apr-2025 20:20 by rmk") + (* ; "Edited 20-Apr-2025 15:20 by rmk") + (* ; "Edited 13-Apr-2025 15:21 by rmk") + (* ; "Edited 5-Apr-2025 13:04 by rmk") + (* ; "Edited 1-Dec-2024 11:27 by rmk") (* ; "Edited 20-Nov-2024 12:37 by rmk") - (* ; "Edited 17-Nov-2024 18:59 by rmk") (* ; "Edited 5-Jul-2024 11:37 by rmk") - (* ; "Edited 30-Jun-2024 21:59 by rmk") - (* ; "Edited 28-Jun-2024 21:08 by rmk") - (* ; "Edited 21-Jun-2024 22:47 by rmk") - (* ; "Edited 19-Jun-2024 08:57 by rmk") - (* ; "Edited 17-Jun-2024 09:01 by rmk") - (* ; "Edited 13-Jun-2024 17:34 by rmk") (* ; "Edited 18-May-2024 16:24 by rmk") (* ; "Edited 24-Apr-2024 09:42 by rmk") - (* ; "Edited 5-May-2024 23:13 by rmk") (* ; "Edited 20-Mar-2024 11:01 by rmk") (* ; "Edited 8-Feb-2024 23:38 by rmk") (* ; "Edited 2-Jan-2024 19:21 by rmk") @@ -1690,89 +1702,102 @@ (* ;; "Original code was goofy: after carefully setting things up, attached menus and prompts would move into the main-window space. Setting and reseting the ATTACHEDWINDOWS property seems to fix that.") - (LET* ((WREG (WINDOWPROP OLDPANE 'REGION)) - (TSTREAM (fetch (TEXTWINDOW WTEXTSTREAM) of OLDPANE)) - (TEXTOBJ (GETTSTR TSTREAM TEXTOBJ)) - (SEL (TEXTSEL TEXTOBJ)) - (NEXTPANE (GETPANEPROP (PANEPROPS OLDPANE) - NEXTPANE)) - ATTACHEDWINDOWS NEWPANE PROPS NEXTCHAR1) - (CL:UNLESS Y (* ; + (SELECTQ Y + (T (SETQ Y (PANECARETY OLDPANE))) + (NIL (* ;  "Y-position of the split, either supplied or mouse.") - (SETQ Y (LASTMOUSEY OLDPANE))) - (CL:WHEN NEXTPANE (* ; + (SETQ Y (LASTMOUSEY OLDPANE))) + NIL) + (CL:WHEN (AND (FIXP Y) + (IGREATERP Y 0)) + (PROG* ((TSTREAM (PANETEXTSTREAM OLDPANE)) + (TEXTOBJ (FTEXTOBJ TSTREAM)) + (PREG (WINDOWPROP OLDPANE 'REGION)) + (SEL (TEXTSEL TEXTOBJ)) + (NEXTPANE (NEXTPANE OLDPANE)) + ATTACHEDWINDOWS NEWPANE PROPS NEXTCHAR1) + (TEDIT.PROMPTCLEAR TSTREAM) + (CL:WHEN (ZEROP (TEXTLEN TEXTOBJ)) + (RETURN)) + (CL:WHEN NEXTPANE (* ;  "If there's already a pane below this one, detach it for the moment.") - (DETACHWINDOW NEXTPANE)) - (SETQ ATTACHEDWINDOWS (WINDOWPROP OLDPANE 'ATTACHEDWINDOWS NIL)) + (DETACHWINDOW NEXTPANE)) + (SETQ ATTACHEDWINDOWS (WINDOWPROP OLDPANE 'ATTACHEDWINDOWS NIL)) - (* ;; "Reshape the original window to form the upper pane. This fixes/displays the current selection in all existing panes") + (* ;; "Reshape the original window to form the upper pane. This fixes/displays the current selection in all existing panes. ") - (SHAPEW OLDPANE (create REGION using WREG BOTTOM _ (IPLUS (fetch BOTTOM of WREG) - Y) - HEIGHT _ (IDIFFERENCE (fetch HEIGHT of WREG) - Y))) + (SHAPEW OLDPANE (create REGION using PREG BOTTOM _ (IPLUS (fetch BOTTOM of PREG) + Y) + HEIGHT _ (IDIFFERENCE (fetch HEIGHT of PREG) + Y))) - (* ;; + (* ;;  "OLDPANE has now been shrunk, redisplayed with new lines, and highlighted. The selection is on.") - (* ;; "Attach the new window, without disturbing the pre-existing attached windows") + (* ;; "Attach the new window, without disturbing the pre-existing attached windows") - (SETQ NEWPANE (CREATEW (create REGION using WREG HEIGHT _ Y))) - (ATTACHWINDOW NEWPANE OLDPANE 'BOTTOM 'JUSTIFY 'MAIN) + (SETQ NEWPANE (CREATEW (create REGION using PREG HEIGHT _ Y))) + (ATTACHWINDOW NEWPANE OLDPANE 'BOTTOM 'JUSTIFY 'MAIN) (* ; "and attach a lower pane.") - [WINDOWPROP OLDPANE 'ATTACHEDWINDOWS (APPEND ATTACHEDWINDOWS (WINDOWPROP OLDPANE - 'ATTACHEDWINDOWS] + [WINDOWPROP OLDPANE 'ATTACHEDWINDOWS (APPEND ATTACHEDWINDOWS (WINDOWPROP OLDPANE + 'ATTACHEDWINDOWS] - (* ;; "[end of attached-window hackery to prevent disturbance while short]") + (* ;; "[end of attached-window hackery to prevent disturbance while short]") - (* ;; "") + (* ;; "") - (WINDOWPROP NEWPANE 'TEDITCREATED T) - (DSPFONT (GETCLOOKS (FGETTOBJ TEXTOBJ CARETLOOKS) - CLFONT) - NEWPANE) (* ; + (WINDOWPROP NEWPANE 'TEDITCREATED T) + (DSPFONT (GETCLOOKS (FGETTOBJ TEXTOBJ CARETLOOKS) + CLFONT) + NEWPANE) (* ;  "Set the font on the display stream to be the current one from CARETLOOKS") - (* ;; - "Not sure if same PROPS as for OLDPANE (which this would inherit from primary window)") + (* ;; "Not sure if same PROPS as for OLDPANE (which this would inherit from primary window)") - [SETQ PROPS (APPEND '(NOTITLE T PROMPTWINDOW DON'T TITLEMENUFN NILL) - (COPY (FGETTOBJ TEXTOBJ EDITPROPS] - (\TEDIT.MINIMAL.WINDOW.SETUP NEWPANE TSTREAM PROPS OLDPANE) + [SETQ PROPS (APPEND '(NOTITLE T PROMPTWINDOW DON'T TITLEMENUFN NILL) + (COPY (FGETTOBJ TEXTOBJ EDITPROPS] + (\TEDIT.LINKPANES OLDPANE (\TEDIT.MINIMAL.WINDOW.SETUP NEWPANE TSTREAM PROPS OLDPANE)) - (* ;; "Insert L1 and LN cells for NEWPANEafter OLDPANE's cells in each selection. The selections were created when the original textsteam was opened.") + (* ;; "Insert L1 and LN cells for NEWPANEafter OLDPANE's cells in each selection. The selections were created when the original textsteam was opened.") - (* ;; "Create the first line of NEWPANE starting at the character just after the last line of the now-shrunken OLDPANE. ") + (* ;; "Create the first line of NEWPANE starting at the character just after the last line of the now-shrunken OLDPANE. ") - [SETQ NEXTCHAR1 (for L (BOTTOM _ (PANEBOTTOM OLDPANE)) inlines (PANEPREFIX OLDPANE) - unless (AND (FGETLD L NEXTLINE) - (IGEQ (FGETLD (FGETLD L NEXTLINE) - YBOT) - BOTTOM)) - do - (* ;; + [SETQ NEXTCHAR1 (for L (BOTTOM _ (PANEBOTTOM OLDPANE)) inlines (PANEPREFIX OLDPANE) + unless (AND (FGETLD L NEXTLINE) + (IGEQ (FGETLD (FGETLD L NEXTLINE) + YBOT) + BOTTOM)) + do + (* ;;  "If we run off the end of the text, start with at least the last line (which may just be EOL's).") - (RETURN (if (AND (IGEQ (FGETLD L LCHAR1) - (TEXTLEN TEXTOBJ)) - (FGETLD L PREVLINE)) - then (FGETLD (FGETLD L PREVLINE) - LCHAR1) - else (FGETLD L LCHARLIM] - (\TEDIT.WINDOW.SETUP NEWPANE TSTREAM PROPS OLDPANE NEXTCHAR1) + (RETURN (if (AND (IGEQ (FGETLD L LCHAR1) + (TEXTLEN TEXTOBJ)) + (FGETLD L PREVLINE)) + then (FGETLD (FGETLD L PREVLINE) + LCHAR1) + else (FGETLD L LCHARLIM] + (\TEDIT.WINDOW.SETUP NEWPANE TSTREAM PROPS OLDPANE NEXTCHAR1) (* ; " OLDPANE covers everything before") - (WINDOWPROP NEWPANE 'PROCESS (WINDOWPROP OLDPANE 'PROCESS)) - (CL:WHEN (GETSEL SEL ONFLG) - (SETSEL SEL ONFLG NIL) (* ; + (WINDOWDELPROP NEWPANE 'CLOSEFN (FUNCTION TEDIT.DEACTIVATE.WINDOW)) + (WINDOWPROP NEWPANE 'PROCESS (WINDOWPROP OLDPANE 'PROCESS)) + (CL:WHEN (GETSEL SEL ONFLG) + (SETSEL SEL ONFLG NIL) (* ;  "Turn it off, so we can turn it on for NEWPANE") - (\TEDIT.SHOWSEL SEL T TEXTOBJ NEWPANE)) (* ; + (\TEDIT.SEL.ON TSTREAM SEL NEWPANE T)) (* ;  "Tell NEWPANE about the old pane below it") - (CL:WHEN NEXTPANE (* ; + (CL:WHEN NEXTPANE (* ;  "There was already a pane below this one. Attach it to the new lower pane.") - (ATTACHWINDOW NEXTPANE NEWPANE 'BOTTOM 'JUSTIFY 'MAIN))]) + (ATTACHWINDOW NEXTPANE NEWPANE 'BOTTOM 'JUSTIFY 'MAIN)) + (RETURN NEWPANE)))]) (\TEDIT.UNSPLITW - [LAMBDA (PANE) (* ; "Edited 1-Jul-2024 08:50 by rmk") + [LAMBDA (PANE) (* ; "Edited 9-May-2025 23:54 by rmk") + (* ; "Edited 6-May-2025 15:59 by rmk") + (* ; "Edited 20-Apr-2025 15:34 by rmk") + (* ; "Edited 19-Apr-2025 11:54 by rmk") + (* ; "Edited 13-Apr-2025 13:31 by rmk") + (* ; "Edited 1-Jul-2024 08:50 by rmk") (* ; "Edited 29-Jun-2024 09:00 by rmk") (* ; "Edited 18-May-2024 16:21 by rmk") (* ; "Edited 12-May-2024 20:58 by rmk") @@ -1786,48 +1811,47 @@ (* ; "Edited 2-Sep-2023 16:18 by rmk") (* ; "Edited 18-Apr-2023 23:41 by rmk") (* ; "Edited 6-Nov-2022 00:06 by rmk") - (PROG* ((TSTREAM (fetch (TEXTWINDOW WTEXTSTREAM) of PANE)) - (TEXTOBJ (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM))) - (SEL (FGETTOBJ TEXTOBJ SEL)) - PREVPANE NEXTPANE ATTACHEDWINDOWS) + + (* ;; "Original code moved the promptwindow and attached menus down into the region of the main window, shrinking the overall footprint. This code only unsplits the target pane, leaving everything else unchanged.") + + (PROG* ((TSTREAM (TEXTSTREAM PANE T)) + (TEXTOBJ (FTEXTOBJ TSTREAM)) + (PANEREGION (WINDOWPROP (PANEWINDOW PANE) + 'REGION)) + (PREVPANE (PREVPANE PANE)) + (PREVPANEWINDOW (PANEWINDOW PREVPANE)) + (NEXTPANEWINDOW (PANEWINDOW (NEXTPANE PANE))) + ATTACHEDWINDOWS) + (CL:UNLESS TEXTOBJ (RETURN)) (CL:WHEN (EQ PANE (FGETTOBJ TEXTOBJ PRIMARYPANE)) - (RETURN)) - (SETQ PREVPANE (GETPANEPROP (PANEPROPS PANE) - PREVPANE)) - (SETQ NEXTPANE (GETPANEPROP (PANEPROPS PANE) - NEXTPANE)) + (TEDIT.PROMPTPRINT TEXTOBJ "Cannot remove the primary window-pane") + (RETURN)) + (TEDIT.PROMPTCLEAR TEXTOBJ) (FSETTOBJ TEXTOBJ SELPANE (FGETTOBJ TEXTOBJ PRIMARYPANE)) - (for P inpanes TEXTOBJ as SL1 in (GETSEL SEL L1) as SLN in (GETSEL SEL LN) - when (EQ PANE P) do (change (GETSEL SEL L1) - (DREMOVE SL1 DATUM)) - (change (GETSEL SEL LN) - (DREMOVE SLN DATUM)) - (RETURN)) - (WINDOWPROP PANE 'CURSOROUTFN NIL) - (WINDOWPROP PANE 'CURSORMOVEDFN NIL) - (\TEDIT.UNLINKPANE PANE) (* ; "Disconnect") + (* ; "Go back to the top window") + (\TEDIT.SEL.OFF TSTREAM NIL NIL PREVPANE) + (\TEDIT.CLOSEPANE PANE T) (* ; + "Leave on screen until PREVWINDOW has displayed, avoid taking down and up.") (* ;; "") - (* ;; "Done with the deleted pane, assign its region to the pane above and redisplay. ") + (* ;; "Done with the deleted PANE, assign its region to the pane above and redisplay. ") + + (SETQ ATTACHEDWINDOWS (WINDOWPROP PREVPANEWINDOW 'ATTACHEDWINDOWS NIL)) + [SHAPEW PREVPANEWINDOW (UNIONREGIONS PANEREGION (WINDOWPROP PREVPANEWINDOW 'REGION] + (WINDOWPROP PREVPANEWINDOW 'ATTACHEDWINDOWS ATTACHEDWINDOWS) (* ;;  "Now rearrange the pane window-attachment linkages. This gives PANE's region to its prior pane.") - (* ;; "Original code moved the promptwindow and attached menus down into the region of the main window, shrinking the overall footprint. This code only unsplits the target pane, leaving everything else unchanged.") - - (DETACHWINDOW PANE) - (SETQ ATTACHEDWINDOWS (WINDOWPROP PREVPANE 'ATTACHEDWINDOWS NIL)) - [SHAPEW PREVPANE (UNIONREGIONS (WINDOWPROP PANE 'REGION) - (WINDOWPROP PREVPANE 'REGION] - (WINDOWPROP PREVPANE 'ATTACHEDWINDOWS ATTACHEDWINDOWS) - (CL:WHEN NEXTPANE + (CL:WHEN NEXTPANEWINDOW (* ;;  "PANE had a yet lower pane attached to it. Promote it to PANE's position in the attachment chain") - (DETACHWINDOW NEXTPANE) - (ATTACHWINDOW NEXTPANE PREVPANE 'BOTTOM 'JUSTIFY 'MAIN)) + (DETACHWINDOW NEXTPANEWINDOW) + (ATTACHWINDOW NEXTPANEWINDOW PREVPANEWINDOW 'BOTTOM 'JUSTIFY 'MAIN)) + (\TEDIT.SEL.ON TSTREAM NIL PREVPANE) (CLOSEW PANE]) (\TEDIT.LINKPANES @@ -1870,16 +1894,15 @@ (MOVD? 'NILL 'REGISTER-TYPED-REGION) -(RPAQ? \TEDIT.OP.WIDTH 12) +(RPAQ? \TEDIT.OP.WIDTH -1) -(RPAQ? \TEDIT.OP.BOTTOM 12) +(RPAQ? \TEDIT.OP.BOTTOM 14) -(RPAQ? \TEDIT.LINEREGION.WIDTH 12) -(DECLARE%: DONTEVAL@LOAD DOCOPY +(RPAQ? \TEDIT.LINEREGION.WIDTH 16) (DECLARE%: DOEVAL@COMPILE DONTCOPY -(GLOBALVARS \TEDIT.OP.WIDTH \TEDIT.OP.BOTTOM \TEDIT.LINEREGION.WIDTH) -) +(GLOBALVARS \TEDIT.OP.WIDTH \TEDIT.OP.BOTTOM \TEDIT.LINEREGION.WIDTH \TEDIT.SPLITCURSOR + \TEDIT.LINECURSOR \TEDIT.MOVESPLITCURSOR \TEDIT.UNSPLITCURSOR \TEDIT.MAKESPLITCURSOR) ) (RPAQ BXCARET (CURSORCREATE (QUOTE #*(16 16)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@CH@@CH@@FL@@FL@@LF@@ ) (QUOTE NIL) 3 4)) @@ -2070,31 +2093,25 @@ (CLEARW PW))))]) (TEDIT.PROMPTFLASH - [LAMBDA (TEXTSTREAM) (* ; "Edited 15-Mar-2024 18:32 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 25-Apr-2025 17:58 by rmk") + (* ; "Edited 15-Mar-2024 18:32 by rmk") (* ; "Edited 30-May-91 23:34 by jds") - (* ; - "Flash the TEdit prompt window, or the global promptwindow, if TEdit has none.") - (PROG (WINDOW PWINDOW (TEXTOBJ (TEXTOBJ TEXTSTREAM)) - MAINTEXTOBJ) - (COND - [(AND TEXTOBJ (fetch (TEXTOBJ MENUFLG) of TEXTOBJ)) - (* ; - "There is a known textobj, and it's a menu. Go use the main editor's promptwindow.") - (SETQ MAINTEXTOBJ (fetch (TEXTWINDOW WTEXTOBJ) of (\TEDIT.MAINW TEXTOBJ))) - (* ; - "Find the TEXTOBJ for the main edit window, and use ITS prompting window.") - (SETQ WINDOW (AND MAINTEXTOBJ (fetch (TEXTOBJ PROMPTWINDOW) of MAINTEXTOBJ] - ((AND TEXTOBJ (SETQ WINDOW (fetch (TEXTOBJ PROMPTWINDOW) of TEXTOBJ))) - (* ; - "There IS an editor window to get to; use its prompt window") - ) - ((SETQ WINDOW (GETPROMPTWINDOW (\TEDIT.MAINW TEXTSTREAM) - NIL NIL T)) (* ; - "Failing that, try any prompt window attached to the edit window.") - )) (* ; - "Try to find an editor's prompt window for our message") - (FLASHWINDOW (OR WINDOW PROMPTWINDOW) - 2]) + + (* ;; "Flash the TEdit prompt window, or the global promptwindow, if TEdit has none.") + + (SETQ TSTREAM (TEXTSTREAM TSTREAM)) + (LET ((TEXTOBJ (FTEXTOBJ TSTREAM)) + MAINTEXTOBJ WINDOW) + (SETQ WINDOW (if (AND TEXTOBJ (FGETTOBJ TEXTOBJ MENUFLG)) + then (* ; + "Use the main editor's promptwindow.") + (CL:WHEN (SETQ MAINTEXTOBJ (\TEDIT.MAINSTREAM TSTREAM)) + (fetch (TEXTOBJ PROMPTWINDOW) of MAINTEXTOBJ)) + elseif (AND TEXTOBJ (FGETTOBJ TEXTOBJ PROMPTWINDOW)) + else (GETPROMPTWINDOW (\TEDIT.MAINW TSTREAM) + NIL NIL T))) + (FLASHWINDOW (OR WINDOW PROMPTWINDOW) + 2]) (\TEDIT.PROMPT.PAGEFULLFN [LAMBDA (PROMPT-DISPLAY-STREAM) (* ; "Edited 21-Jun-2024 23:21 by rmk") @@ -2221,7 +2238,9 @@ TITLE)))]) (\TEDIT.LIKELY.FILENAME - [LAMBDA (TSTREAM UNFORMATTED?) (* ; "Edited 14-Mar-2025 11:46 by rmk") + [LAMBDA (TSTREAM UNFORMATTED?) (* ; "Edited 29-May-2025 15:01 by rmk") + (* ; "Edited 7-Apr-2025 23:13 by rmk") + (* ; "Edited 14-Mar-2025 11:46 by rmk") (* ; "Edited 18-Jan-2024 09:03 by rmk") (* ; "Edited 29-Dec-2023 00:33 by rmk") (* ; "Edited 18-Dec-2023 14:06 by rmk") @@ -2234,20 +2253,29 @@ (* ;; "returns the name of the file associated with this stream if there is one. NIL otherwise. Version numbers suppressed.") (LET* ((TEXTOBJ (TEXTOBJ TSTREAM)) - (DEFAULTEXT (CL:IF UNFORMATTED? - 'TXT - 'TEDIT)) + [DEFAULTEXT (OR (GETTEXTPROP TSTREAM 'DEFAULTPUTEXTENSION) + (CL:IF UNFORMATTED? + 'TXT + 'TEDIT)] (TXTFILE (GETTOBJ TEXTOBJ TXTFILE)) EXT) - (CL:WHEN (type? STREAM TXTFILE) - (SETQ TXTFILE (fetch (STREAM FULLFILENAME) of TXTFILE)) + (CL:WHEN (AND (type? STREAM TXTFILE) + (SETQ TXTFILE (fetch (STREAM FULLFILENAME) of TXTFILE))) [SETQ EXT (U-CASE (FILENAMEFIELD TXTFILE 'EXTENSION] - (if (OR (NULL EXT) - (EQ EXT 'BRAVO)) - then (SETQ EXT DEFAULTEXT) - elseif (AND UNFORMATTED? (MEMB EXT *TEDIT-EXTENSIONS*) - (NEQ EXT 'TEXT)) - then (SETQ EXT 'TXT)) + (SETQ EXT (if (OR (NULL EXT) + (EQ EXT 'BRAVO)) + then (SETQ EXT DEFAULTEXT) + elseif (NOT (MEMB EXT *TEDIT-EXTENSIONS*)) + then + (* ;; "Keep idiosyncratic extension") + + EXT + elseif UNFORMATTED? + then 'TXT + else 'TEDIT)) + (CL:UNLESS (U-CASEP TXTFILE) (* ; + "Lower case the extension if the original name had any LC characters") + (SETQ EXT (L-CASE EXT))) (PACKFILENAME 'EXTENSION EXT 'VERSION NIL 'BODY TXTFILE))]) (\TEDIT.UPDATE.TITLE @@ -2294,7 +2322,13 @@ (DEFINEQ (TEDIT.DEACTIVATE.WINDOW - [LAMBDA (PANE) (* ; "Edited 14-Mar-2025 16:22 by rmk") + [LAMBDA (PANE) (* ; "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") + (* ; "Edited 28-Apr-2025 15:38 by rmk") + (* ; "Edited 20-Apr-2025 15:10 by rmk") + (* ; "Edited 14-Mar-2025 16:22 by rmk") (* ; "Edited 18-Feb-2025 23:56 by rmk") (* ; "Edited 29-Nov-2024 13:10 by rmk") (* ; "Edited 1-Jul-2024 17:42 by rmk") @@ -2312,69 +2346,63 @@ (* ;; "If the session is or can be finished, deactivate this Tedit window and process, and all attached Tedit menus. This disconnects the window and process from the textstream, which persists. This is not used to unsplit panes. The actual window-closing is done by setting the flag EDITFINISHEDFLG to T and giving control to the edit process. The flag causes the command loop to exit.") - (PROG* [(TSTREAM (TEXTSTREAM PANE T)) - (TEXTOBJ (AND TSTREAM (GETTSTR TSTREAM TEXTOBJ] + (CL:UNLESS (WINDOWP PANE) + (SETQ PANE (OR (TEDITWINDOWP PANE) + PANE))) + (PROG* ((TSTREAM (TEXTSTREAM PANE T)) + (TEXTOBJ (AND TSTREAM (FTEXTOBJ TSTREAM))) + (PANEWINDOW (PANEWINDOW PANE)) + PROC) (CL:UNLESS TEXTOBJ (* ;  "Return NIL if not an editing window (rather than error?)") (RETURN)) - (TEXTOBJ! TEXTOBJ) (* ;; "Return DON'T to signal (to CLOSEW) that the window shouldn't be closed. if previously quit, the window is closed already, and would be reopened to reclose it.") - (CL:WHEN (\TEDIT.FINISHEDIT? TSTREAM T) - (RETURN 'DON'T)) - (CL:WHEN (AND (GETTOBJ TEXTOBJ PROMPTWINDOW) - (OPENWP (GETTOBJ TEXTOBJ PROMPTWINDOW))) - (CLEARW (GETTOBJ TEXTOBJ PROMPTWINDOW))) + (CL:UNLESS (FGETTOBJ TEXTOBJ EDITFINISHEDFLG) + (CL:WHEN (EQ 'DON'T (\TEDIT.FINISHEDIT? TSTREAM T)) + (RETURN 'DON'T))) (\TEDIT.SETCARET (TEXTSEL TEXTOBJ) PANE TEXTOBJ 'OFF) (* ; - "Before the window is closed, make sure that the caret is down, or the window will reappear.") + "Before the window is closed, make sure that the caret is down, or the window might reappear.") + (\TEDIT.CLOSESPLITS TSTREAM T) + + (* ;; "It's just the primary pane now. Shut things down.") + + (CL:WHEN (AND (FGETTOBJ TEXTOBJ PROMPTWINDOW) + (OPENWP (FGETTOBJ TEXTOBJ PROMPTWINDOW))) + (CLEARW (FGETTOBJ TEXTOBJ PROMPTWINDOW))) (CL:WHEN (AND (\TEDIT.WINDOW.TITLE TEXTOBJ) - (OPENWP (GETTOBJ TEXTOBJ PROMPTWINDOW)) - (OPENWP PANE) - (EQ PANE (FGETTOBJ TEXTOBJ PRIMARYPANE))) + (OPENWP (FGETTOBJ TEXTOBJ PROMPTWINDOW)) + (OPENWP PANE)) (* ;;  "Reset the window's title to a known 'inactive' value, in case somebody else also has the window.") (\TEDIT.WINDOW.TITLE TEXTOBJ NIL "Edit Window [Inactive]")) - (for PANE backpanes TEXTOBJ do (\TEDIT.UNSPLITW PANE)) - (SETTOBJ TEXTOBJ PRIMARYPANE NIL) - (CL:WHEN (type? STREAM (GETTOBJ TEXTOBJ TXTFILE)) (* ; + (CL:WHEN (type? STREAM (FGETTOBJ TEXTOBJ TXTFILE))(* ;  "Close the file that this window was open on.") - (CL:UNLESS (fetch (TEXTWINDOW CLOSINGFILE) of PANE) - (replace (TEXTWINDOW CLOSINGFILE) of PANE with T) - (CLOSEF? (GETTOBJ TEXTOBJ TXTFILE)))) - (WINDOWPROP PANE 'PROCESS.EXITFN NIL) - (WINDOWPROP PANE 'PROCESS.IDLEFN NIL) - (WINDOWPROP PANE 'BUTTONEVENTFN (FUNCTION TOTOPW))(* ; "And the button functions") - (WINDOWPROP PANE 'RIGHTBUTTONFN (FUNCTION DOWINDOWCOM)) - (WINDOWDELPROP PANE 'CLOSEFN (FUNCTION TEDIT.DEACTIVATE.WINDOW)) - (* ; "To avoid a loop") - (WINDOWPROP PANE 'SCROLLFN NIL) - (WINDOWPROP PANE 'AFTERMOVEFN NIL) - (WINDOWDELPROP PANE 'RESHAPEFN (FUNCTION \TEDIT.RESHAPEFN)) - (\TEDIT.INTERRUPT.SETUP (WINDOWPROP PANE 'PROCESS) - T) (* ; "Restore any disarmed interrupts.") + (CL:UNLESS (fetch (TEXTWINDOW CLOSINGFILE) of PANEWINDOW) + (replace (TEXTWINDOW CLOSINGFILE) of PANEWINDOW with T) + (CLOSEF? (FGETTOBJ TEXTOBJ TXTFILE)))) (* ; "Close any open menus") (for MENUW MTEXTOBJ in (ATTACHEDWINDOWS PANE) when (AND (SETQ MTEXTOBJ (TEXTOBJ MENUW T)) (FGETTOBJ MTEXTOBJ MENUFLG)) - do (* ; "Detach all the TEDITMENU windows.") - (SETTOBJ MTEXTOBJ EDITFINISHEDFLG T) (* ; - "Mark it finished so it closes itself") - (WINDOWPROP MENUW 'TEDITMENU NIL) (* ; - "And mark it no longer a menu window") - (GIVE.TTY.PROCESS MENUW) (* ; - "Then give it a chance to kill itself off") - (DISMISS 300)) (* ; "This closes up the other menus") - (GIVE.TTY.PROCESS PANE) (* ; "Now kill this one") - (DISMISS 300) - (WINDOWPROP PANE 'CURSOROUTFN NIL) - (WINDOWPROP PANE 'CURSORMOVEDFN NIL) - (\TEDIT.UNLINKPANE PANE) (* ; "Disconnect") - (replace (TEXTWINDOW WTEXTSTREAM) of PANE with NIL]) + do + (* ;; "Close/detach all the TEDITMENU windows. Mark them finished, no longer menus, and let them kill themselves off") + + (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.RESHAPEFN - [LAMBDA (PANE BITS OLDREGION) (* ; "Edited 30-Nov-2024 13:30 by rmk") + [LAMBDA (PANE BITS OLDREGION) (* ; "Edited 20-Apr-2025 12:55 by rmk") + (* ; "Edited 18-Apr-2025 15:03 by rmk") + (* ; "Edited 30-Nov-2024 13:30 by rmk") (* ; "Edited 4-Nov-2024 17:44 by rmk") (* ; "Edited 6-Jul-2024 17:00 by rmk") (* ; "Edited 28-Jun-2024 15:14 by rmk") @@ -2382,8 +2410,7 @@ (* ;;  "This tries to display the current top line at the same position relative to the top of PANE.")  (* ; "Edited 25-Jun-2024 15:53 by rmk") - (LET* ((TEXTOBJ (GETTSTR (fetch (TEXTWINDOW WTEXTSTREAM) of PANE) - TEXTOBJ)) + (LET* ((TEXTOBJ (PANETEXTOBJ PANE)) (PREG (DSPCLIPPINGREGION NIL PANE)) (PANEPREFIX (PANEPREFIX PANE)) (PANEPROPS (PANEPROPS PANE))) @@ -2398,9 +2425,6 @@ (SETQ PANEBOTTOM (fetch (REGION BOTTOM) of PREG)) (SETQ PANETOP (fetch (REGION TOP) of PREG)) (SETQ PANEREGION PREG)) - (WITH TEXTOBJ TEXTOBJ (SETQ WRIGHT (fetch (REGION WIDTH) of PREG)) - (SETQ WLEFT (fetch (REGION LEFT) of PREG)) - (SETQ WBOTTOM (fetch (REGION BOTTOM) of PREG))) [SETYBOT PANEPREFIX (IPLUS (FGETLD PANEPREFIX YBOT) (IDIFFERENCE (PANEHEIGHT PANE) (fetch (REGION HEIGHT) of OLDREGION] @@ -2415,12 +2439,86 @@ (* ;; "Ignores REGION, repaints all the panes") (\TEDIT.FILL.PANES WINDOW]) + +(\TEDIT.CLOSESPLITS + [LAMBDA (TSTREAM RESTORESHAPE) (* ; "Edited 15-May-2025 09:44 by rmk") + (* ; "Edited 9-May-2025 15:38 by rmk") + (* ; "Edited 8-May-2025 11:50 by rmk") + (* ; "Edited 4-May-2025 23:47 by rmk") + (* ; "Edited 28-Apr-2025 15:32 by rmk") + + (* ;; "Detach and close all split panes, if any, leaving primary pane alone. This differs from unsplitting in that it doesn't do any intermediatge redisplays.") + + (* ;; "Returns the total region occupied by the primary pane (still open) and all of its the split windows. We include the primary pane's region but don't otherwise touch the primary pane.") + + (LET ((PRIMARYPANE (FGETTOBJ (FTEXTOBJ TSTREAM) + PRIMARYPANE)) + WHOLEREGION) + (CL:WHEN (AND PRIMARYPANE (PANEPROPS PRIMARYPANE) + (NEXTPANE PRIMARYPANE)) + + (* ;; "Checks to make sure there is something to do--maybe it got interrupted before") + + [SETQ WHOLEREGION (for PANE PANEWINDOW inpanes (NEXTPANE PRIMARYPANE) + eachtime (SETQ PANEWINDOW (PANEWINDOW PANE)) + collect + + (* ;; "Avoid closing loop through TEDIT.DEACTIVATE.WINDOW") + + (WINDOWDELPROP PANEWINDOW 'CLOSEFN (FUNCTION + TEDIT.DEACTIVATE.WINDOW)) + (WINDOWREGION PANEWINDOW) + finally (RETURN (APPLY (FUNCTION UNIONREGIONS) + (CONS (WINDOWREGION PRIMARYPANE) + $$VAL] + (for PANE inpanes (NEXTPANE PRIMARYPANE) do (\TEDIT.CLOSEPANE PANE)) + (if RESTORESHAPE + then (WINDOWPROP PRIMARYPANE 'SAVED-TYPED-REGION NIL) + (SHAPEW PRIMARYPANE WHOLEREGION) + else (WINDOWPROP PRIMARYPANE 'SAVED-TYPED-REGION WHOLEREGION)))]) + +(\TEDIT.CLOSEPANE + [LAMBDA (PANE DONTCLOSEW) (* ; "Edited 9-May-2025 00:22 by rmk") + (* ; "Edited 6-May-2025 16:04 by rmk") + + (* ;; "This removes all of the TEdit triggers on PANE, closes its window unless DONTCLOSEW.") + + (LET* ((TEXTOBJ (TEXTOBJ PANE)) + (PANEWINDOW (PANEWINDOW PANE)) + (SEL (TEXTSEL TEXTOBJ))) + (\TEDIT.SETCARET SEL PANE TEXTOBJ 'OFF) + (WINDOWPROP PANEWINDOW 'PROCESS.EXITFN NIL) + (WINDOWPROP PANEWINDOW 'PROCESS.IDLEFN NIL) (* ; "Restore any disarmed interrupts.") + (DETACHWINDOW PANEWINDOW) + (\TEDIT.UNLINKPANE PANE) + (for PROP in '(CURSOROUTFN CURSORMOVEDFN BUTTONEVENTFN RIGHTBUTTONFN SCROLLFN AFTERMOVEFN + REPAINTFN WINDOWENTRYFN NEWREGIONFN) + do (WINDOWPROP PANEWINDOW PROP NIL)) + (for PROP in '(CLOSEFN RESHAPEFN) do (WINDOWDELPROP PANEWINDOW 'CLOSEFN + (FUNCTION TEDIT.DEACTIVATE.WINDOW)) + (WINDOWDELPROP PANEWINDOW 'RESHAPEFN + (FUNCTION \TEDIT.RESHAPEFN))) + + (* ;; "If we are unsplitting we have to remove this pane's entry in the selection lines. (But there is no need to turn off the selection, we're going down)") + + (for P inpanes TEXTOBJ as SL1 in (GETSEL SEL L1) as SLN in (GETSEL SEL LN) + when (EQ PANE P) do (change (GETSEL SEL L1) + (DREMOVE SL1 DATUM)) + (change (GETSEL SEL LN) + (DREMOVE SLN DATUM)) + (RETURN)) + (DREMOVE (ASSOC PANE (FGETSEL SEL SELLINES)) + (FGETSEL SEL SELLINES)) + (replace (TEXTWINDOW WTEXTSTREAM) of PANEWINDOW with NIL) + (CL:UNLESS DONTCLOSEW (CLOSEW PANEWINDOW]) ) (DEFINEQ (\TEDIT.SCROLLFN [LAMBDA (PANE DX DY) + (* ;; "Edited 18-Apr-2025 15:04 by rmk") + (* ;; "Edited 29-Apr-2024 15:04 by rmk") (* ;; "Edited 27-Apr-2024 11:31 by rmk") @@ -2439,8 +2537,8 @@  "Edited 18-Feb-2022 14:53 by rmk: Repaint after scrolling for panes that are partially off-screen") (TOTOPW PANE) - (PROG* [(TSTREAM (fetch (TEXTWINDOW WTEXTSTREAM) of PANE)) - (TEXTOBJ (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM] + (PROG* ((TSTREAM (PANETEXTSTREAM PANE)) + (TEXTOBJ (FTEXTOBJ TSTREAM))) (if (ZEROP (FGETTOBJ TEXTOBJ TEXTLEN)) then (* ;; "Don't scroll a zero-length file") @@ -2564,7 +2662,8 @@ (\TEDIT.SCROLLCH.TOP TSTREAM PANE (FGETLD TOPLINE LCHARLAST]) (\TEDIT.SCROLLUP - [LAMBDA (TSTREAM PANE DY) (* ; "Edited 1-Feb-2025 10:20 by rmk") + [LAMBDA (TSTREAM PANE DY) (* ; "Edited 20-Apr-2025 23:36 by rmk") + (* ; "Edited 1-Feb-2025 10:20 by rmk") (* ; "Edited 1-Dec-2024 11:32 by rmk") (* ; "Edited 29-Nov-2024 09:14 by rmk") (* ; "Edited 22-Nov-2024 17:33 by rmk") @@ -2635,7 +2734,7 @@ (\TEDIT.SETPANE.TOPLINE PANE NEWTOPLINE NEWPANEYBOT) (\TEDIT.SHIFTLINES (PANEPREFIX PANE) - PANE TEXTOBJ (\TEDIT.BITMAPLINES PANE NEWTOPLINE) + PANE TSTREAM (\TEDIT.BITMAPLINES PANE NEWTOPLINE) T) (\TEDIT.SETCARET (TEXTSEL TEXTOBJ) PANE TEXTOBJ 'ON]) @@ -2670,7 +2769,8 @@ (RETURN (IPLUS NEWBOT (FGETLD NEWTOPLINE LHEIGHT]) (\TEDIT.SCROLLDOWN - [LAMBDA (TSTREAM PANE DY) (* ; "Edited 1-Feb-2025 10:20 by rmk") + [LAMBDA (TSTREAM PANE DY) (* ; "Edited 20-Apr-2025 23:37 by rmk") + (* ; "Edited 1-Feb-2025 10:20 by rmk") (* ; "Edited 1-Dec-2024 20:46 by rmk") (* ; "Edited 29-Nov-2024 09:14 by rmk") (* ; "Edited 22-Nov-2024 17:33 by rmk") @@ -2769,7 +2869,7 @@ (* ;; "All needed lines have been constructed and linked, although there may still be some unneeded lines at the bottom. ") (\TEDIT.SHIFTLINES (PANEPREFIX PANE) - PANE TEXTOBJ (\TEDIT.BITMAPLINES PANE OLDTOPLINE) + PANE TSTREAM (\TEDIT.BITMAPLINES PANE OLDTOPLINE) T) (\TEDIT.SETCARET (TEXTSEL TEXTOBJ) PANE TEXTOBJ 'ON]) @@ -2932,19 +3032,20 @@ ]))]) (\TEDIT.SETPANE.TOPLINE - [LAMBDA (PANE TOPLINE PREFIXYBOT) (* ; "Edited 7-Nov-2024 08:50 by rmk") + [LAMBDA (PANE TOPLINE PREFIXYBOT) (* ; "Edited 18-Apr-2025 23:38 by rmk") + (* ; "Edited 7-Nov-2024 08:50 by rmk") (* ; "Edited 4-Nov-2024 23:05 by rmk") - - (* ;; "Install TOPLINE as the PANETOPLINE of PANE, setting PANE's YBOT to PREFIXYBOT if given or the YTOP of TOPLINE. In the PREFIXYBOT case, the pane will be inconsistent until either the line or the pane is adjusted. But before that, the difference between the PANE YBOT and TOPLINE YTOP may be useful.") - - (LET ((PREFIX (PANEPREFIX PANE))) - (SETLD PREFIX YBOT (OR PREFIXYBOT (FGETLD TOPLINE YTOP))) - (LINKLD PREFIX TOPLINE) - (\TEDIT.PREFIX.LCHARLIM PANE (SUB1 (FGETLD TOPLINE LCHAR1))) - TOPLINE]) + (CL:WHEN TOPLINE + (LET ((PREFIX (PANEPREFIX PANE))) + (SETLD PREFIX YBOT (OR PREFIXYBOT (FGETLD TOPLINE YTOP))) + (LINKLD PREFIX TOPLINE) + (FSETLD PREFIX LCHARLIM (FGETLD TOPLINE LCHAR1)) + TOPLINE))]) (\TEDIT.SHIFTLINES - [LAMBDA (PREVLINE PANE TEXTOBJ BITMAPLINES SCROLLING) (* ; "Edited 1-Feb-2025 10:22 by rmk") + [LAMBDA (PREVLINE PANE TSTREAM BITMAPLINES SCROLLING) (* ; "Edited 21-Apr-2025 12:02 by rmk") + (* ; "Edited 5-Apr-2025 11:30 by rmk") + (* ; "Edited 1-Feb-2025 10:22 by rmk") (* ; "Edited 7-Jan-2025 11:54 by rmk") (* ; "Edited 17-Dec-2024 23:40 by rmk") (* ; "Edited 3-Dec-2024 16:08 by rmk") @@ -2959,123 +3060,125 @@ (* ;; "Take down the caret, but importantly, don't take down the selection--that would wipe out the bitmap-highlighting that we want to translate.") - (LET ((SEL (TEXTSEL TEXTOBJ)) - LASTVISIBLE) - (\TEDIT.SETCARET SEL PANE TEXTOBJ 'OFF) - (if BITMAPLINES - then [LET* ((NEXTLINE (FGETLD PREVLINE NEXTLINE)) - (VLEFT (\TEDIT.ONSCREEN? PANE 'LEFT)) - (PBOTTOM (PANEBOTTOM PANE)) - (BMTOPL (CAR BITMAPLINES)) - (BMTOPY (FGETLD BMTOPL YTOP)) - (BMBOTL (CDR BITMAPLINES)) - (BMBOTY (FGETLD BMBOTL YBOT)) - DELTA) + (LET* ((TEXTOBJ (FTEXTOBJ TSTREAM)) + (SEL (TEXTSEL TEXTOBJ)) + LASTVISIBLE) + (\TEDIT.SETCARET SEL PANE TEXTOBJ 'OFF) + (if BITMAPLINES + then [LET* ((NEXTLINE (FGETLD PREVLINE NEXTLINE)) + (VLEFT (\TEDIT.ONSCREEN? PANE 'LEFT)) + (PBOTTOM (PANEBOTTOM PANE)) + (BMTOPL (CAR BITMAPLINES)) + (BMTOPY (FGETLD BMTOPL YTOP)) + (BMBOTL (CDR BITMAPLINES)) + (BMBOTY (FGETLD BMBOTL YBOT)) + DELTA) (* ;;; " REPOSITION all lines in the chain properly with respect to PREVLINE. ") - [for L (Y _ (FGETLD PREVLINE YBOT)) inlines NEXTLINE - do (SETYTOP L Y) - (SETQ Y (IDIFFERENCE Y (FGETLD L LHEIGHT] + [for L (Y _ (FGETLD PREVLINE YBOT)) inlines NEXTLINE + do (SETYTOP L Y) + (SETQ Y (IDIFFERENCE Y (FGETLD L LHEIGHT] (* ;;; "TRANSLATE the bitmap to be consistent with its new line positions. This is done before any display operations, to be sure that the bitmap isn't corrupted.") - (SETQ DELTA (IDIFFERENCE (FGETLD BMTOPL YTOP) - BMTOPY)) - (BITBLT PANE VLEFT BMBOTY PANE VLEFT (IPLUS BMBOTY DELTA) - (PANEWIDTH PANE) - (IDIFFERENCE BMTOPY BMBOTY) - 'INPUT - 'REPLACE) - (SETQ BMTOPY (FGETLD BMTOPL YTOP)) + (SETQ DELTA (IDIFFERENCE (FGETLD BMTOPL YTOP) + BMTOPY)) + (BITBLT PANE VLEFT BMBOTY PANE VLEFT (IPLUS BMBOTY DELTA) + (PANEWIDTH PANE) + (IDIFFERENCE BMTOPY BMBOTY) + 'INPUT + 'REPLACE) + (SETQ BMTOPY (FGETLD BMTOPL YTOP)) (* ;;; "Display any lines ABOVE the top of the translated bitmap, presumably for scroll down and insertion. Lines exist and have been formatted and positioned, but not yet displayed.") - (for L inlines NEXTLINE while (IGEQ (FGETLD L YBOT) - BMTOPY) - do (\TEDIT.DISPLAYLINE TEXTOBJ L PANE)) + (for L inlines NEXTLINE while (IGEQ (FGETLD L YBOT) + BMTOPY) + do (\TEDIT.DISPLAYLINE TSTREAM L PANE)) (* ;;; "Deal with lines BELOW the bitmap. First. clear to the bottom--important to clear before displaying") - (for L backlines BMBOTL while (AND (ILESSP (FGETLD BMBOTL YBOT) - PBOTTOM) - (NOT (\TEDIT.SHOW.AT.BOTTOMP BMBOTL PANE)) - ) do (SETQ BMBOTL (FGETLD BMBOTL PREVLINE) - )) - (\TEDIT.CLEARPANE.BELOW.LINE BMBOTL PANE TEXTOBJ) - [SETQ LASTVISIBLE (if (EQ BMBOTL (PANESUFFIX PANE)) - then (PANEBOTTOMLINE PANE) - elseif (IGEQ (FGETLD BMBOTL YBOT) - PBOTTOM) - then - (* ;; + (for L backlines BMBOTL while (AND (ILESSP (FGETLD BMBOTL YBOT) + PBOTTOM) + (NOT (\TEDIT.SHOW.AT.BOTTOMP BMBOTL PANE) + )) do (SETQ BMBOTL (FGETLD BMBOTL + PREVLINE)) + ) + (\TEDIT.CLEARPANE.BELOW.LINE BMBOTL PANE TEXTOBJ) + [SETQ LASTVISIBLE (if (EQ BMBOTL (PANESUFFIX PANE)) + then (PANEBOTTOMLINE PANE) + elseif (IGEQ (FGETLD BMBOTL YBOT) + PBOTTOM) + then + (* ;;  "Bitmap didn't fill the pane. Maybe more lines needed below (scroll up or deletion).") - (\TEDIT.LINES.BELOW BMBOTL PANE TEXTOBJ) - else - (* ;; + (\TEDIT.LINES.BELOW BMBOTL PANE TSTREAM) + else + (* ;;  "Bit map went below the bottom, back up to the previous visible line. (scroll down or insertion)") - (find L backlines BMBOTL - suchthat (IGREATERP (FGETLD L YBOT) - PBOTTOM] - (\TEDIT.SUFFIXLINE.CREATE PANE TEXTOBJ LASTVISIBLE) + (find L backlines BMBOTL + suchthat (IGREATERP (FGETLD L YBOT) + PBOTTOM] + (\TEDIT.SUFFIXLINE.CREATE PANE TSTREAM LASTVISIBLE) - (* ;; "Lines are now properly linked, positioned, and displayed.") + (* ;; "Lines are now properly linked, positioned, and displayed.") (* ;;; "") (* ;;; "The part of the current SELECTION within the bitmap retains its correct highlighting, but highlighting has to be applied to lines above or below.") - (\TEDIT.FIXSEL SEL TEXTOBJ NIL PANE) - (CL:WHEN (AND (FGETSEL SEL ONFLG) - (NEQ 0 (FGETSEL SEL DCH))) + (\TEDIT.FIXSEL SEL TSTREAM PANE) + (CL:WHEN (AND (FGETSEL SEL ONFLG) + (NEQ 0 (FGETSEL SEL DCH))) - (* ;; "Restore the highlighting for selected lines that are above or below the bitmap. The lines within the bitmap retained their proper highlighting. Above is first.") + (* ;; "Restore the highlighting for selected lines that are above or below the bitmap. The lines within the bitmap retained their proper highlighting. Above is first.") - (for L (L1 _ (\TEDIT.SEL.L1 SEL PANE TEXTOBJ)) - (SEL1 _ (FGETSEL SEL CH#)) - (SELN _ (FGETSEL SEL CHLAST)) backlines (FGETLD BMTOPL PREVLINE) - first (CL:UNLESS (AND L1 (NEQ L1 BMTOPL) - (IGREATERP (FGETLD L1 YTOP) - BMTOPY)) + (for L (L1 _ (\TEDIT.SEL.L1 SEL PANE TEXTOBJ)) + (SEL1 _ (FGETSEL SEL CH#)) + (SELN _ (FGETSEL SEL CHLAST)) backlines (FGETLD BMTOPL PREVLINE) + first (CL:UNLESS (AND L1 (NEQ L1 BMTOPL) + (IGREATERP (FGETLD L1 YTOP) + BMTOPY)) - (* ;; "Selection's L1 is below the bitmap's new top.") + (* ;; "Selection's L1 is below the bitmap's new top.") - (RETURN)) when (FLINESELECTEDP L SEL1 SELN) - do (\TEDIT.SHOWSEL.HILIGHT TEXTOBJ L1 L PANE SEL) - (RETURN) repeatuntil (EQ L L1)) - (for L (LN _ (\TEDIT.SEL.LN SEL PANE TEXTOBJ)) - (SEL1 _ (FGETSEL SEL CH#)) - (SELN _ (FGETSEL SEL CHLAST)) inlines (FGETLD BMBOTL NEXTLINE) - first (CL:UNLESS (AND LN (ILESSP (FGETLD LN YBOT) - (IPLUS BMBOTY DELTA))) + (RETURN)) when (FLINESELECTEDP L SEL1 SELN) + do (\TEDIT.SHOWSEL.HILIGHT TEXTOBJ L1 L PANE SEL) + (RETURN) repeatuntil (EQ L L1)) + (for L (LN _ (\TEDIT.SEL.LN SEL PANE TEXTOBJ)) + (SEL1 _ (FGETSEL SEL CH#)) + (SELN _ (FGETSEL SEL CHLAST)) inlines (FGETLD BMBOTL NEXTLINE) + first (CL:UNLESS (AND LN (ILESSP (FGETLD LN YBOT) + (IPLUS BMBOTY DELTA))) - (* ;; "Selection's LN is above the bitmap's new bottom") + (* ;; "Selection's LN is above the bitmap's new bottom") - (RETURN)) when (FLINESELECTEDP L SEL1 SELN) - do (\TEDIT.SHOWSEL.HILIGHT TEXTOBJ L LN PANE SEL) - (RETURN) repeatuntil (EQ L LN)))] - else - (* ;; "No useful bitmap bits, just create/display lines below PREVLINE") + (RETURN)) when (FLINESELECTEDP L SEL1 SELN) + do (\TEDIT.SHOWSEL.HILIGHT TEXTOBJ L LN PANE SEL) + (RETURN) repeatuntil (EQ L LN)))] + else + (* ;; "No useful bitmap bits, just create/display lines below PREVLINE") - (\TEDIT.CLEARPANE.BELOW.LINE PREVLINE PANE TEXTOBJ) - (SETQ LASTVISIBLE (\TEDIT.LINES.BELOW PREVLINE PANE TEXTOBJ)) - (\TEDIT.SUFFIXLINE.CREATE PANE TEXTOBJ LASTVISIBLE) - (\TEDIT.FIXSEL NIL TEXTOBJ NIL PANE)) - (CL:WHEN SCROLLING + (\TEDIT.CLEARPANE.BELOW.LINE PREVLINE PANE TEXTOBJ) + (SETQ LASTVISIBLE (\TEDIT.LINES.BELOW PREVLINE PANE TSTREAM)) + (\TEDIT.SUFFIXLINE.CREATE PANE TSTREAM LASTVISIBLE) + (\TEDIT.FIXSEL NIL TSTREAM 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.") + (* ;; "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.") - (BLTSHADE WHITESHADE PANE (PANELEFT PANE) - (FGETLD PREVLINE YBOT) - (PANEWIDTH PANE) - (PANEHEIGHT PANE) - 'REPLACE)) + (BLTSHADE WHITESHADE PANE (PANELEFT PANE) + (FGETLD PREVLINE YBOT) + (PANEWIDTH PANE) + (PANEHEIGHT PANE) + 'REPLACE)) - (* ;; "Caller is responsible for turning the caret back on") + (* ;; "Caller is responsible for turning the caret back on") - (\TEDIT.SET.WINDOW.EXTENT TEXTOBJ PANE]) + (\TEDIT.SET.WINDOW.EXTENT TEXTOBJ PANE]) ) (DEFINEQ @@ -3249,7 +3352,8 @@ (DEFINEQ (\TEDIT.PROCIDLEFN - [LAMBDA (WINDOW) (* ; "Edited 15-Mar-2024 18:34 by rmk") + [LAMBDA (WINDOW) (* ; "Edited 25-Apr-2025 14:05 by rmk") + (* ; "Edited 15-Mar-2024 18:34 by rmk") (* ; "Edited 25-Sep-2023 10:30 by rmk") (* ; "Edited 19-Sep-2023 23:25 by rmk") (* ; "Edited 30-May-91 23:35 by jds") @@ -3268,7 +3372,7 @@ (PROCESSP (WINDOWPROP WINDOW 'PROCESS] (TTY.PROCESS (WINDOWPROP WINDOW 'PROCESS)) (* ;  "No SHIFT key down; let's regain control.") - (CL:WHEN (GETTOBJ (fetch (TEXTWINDOW WTEXTOBJ) of WINDOW) + (CL:WHEN (GETTOBJ (FTEXTOBJ (fetch (TEXTWINDOW WTEXTSTREAM) of WINDOW)) MENUFLG) (* ; "This is a MENU -- always select.") (\TEDIT.MENU.BUTTONEVENTFN WINDOW))) (T (* ; "Otherwise, let him select.") @@ -3282,16 +3386,16 @@ (\TEDIT.INTERRUPT.SETUP NEWPROCESS]) (\TEDIT.PROCEXITFN - [LAMBDA (THISP NEWP) (* ; "Edited 27-Mar-2024 15:23 by rmk") + [LAMBDA (THISP NEWP) (* ; "Edited 18-Apr-2025 15:15 by rmk") + (* ; "Edited 27-Mar-2024 15:23 by rmk") (* jds " 5-Apr-84 10:40") (* ;; "Re-arm any interrupts that TEdit turned off, so the poor user has them available in other parts of the system.") - (* Re-arm any interrupts that TEdit turned off, so the poor user has them - available in other parts of the system.) + (* ;; "Re-arm any interrupts that TEdit turned off, so the poor user has them available in other parts of the system.") - (AND (fetch (TEXTWINDOW WTEXTSTREAM) of (PROCESSPROP THISP 'WINDOW)) - (\TEDIT.INTERRUPT.SETUP THISP T]) + (CL:WHEN (PANETEXTSTREAM (PROCESSPROP THISP 'WINDOW)) + (\TEDIT.INTERRUPT.SETUP THISP T]) ) (RPAQ? \CARETRATE 333) @@ -3407,7 +3511,8 @@ TSTREAM))]) (\TEDIT.SETCARET - [LAMBDA (SEL PANE TEXTOBJ DISPOSITION) (* ; "Edited 1-Dec-2024 11:51 by rmk") + [LAMBDA (SEL PANE TEXTOBJ DISPOSITION) (* ; "Edited 10-Apr-2025 21:14 by rmk") + (* ; "Edited 1-Dec-2024 11:51 by rmk") (* ; "Edited 22-Nov-2024 11:39 by rmk") (* ; "Edited 20-Nov-2024 12:37 by rmk") (* ; "Edited 17-Nov-2024 19:01 by rmk") @@ -3458,7 +3563,7 @@ (RETURN)) (if LINE then (SETQ Y (FGETLD LINE YBASE)) - (if (AND (ILESSP Y (fetch (REGION PTOP) of (PANEREGION PANE))) + (if (AND (ILEQ Y (PANETOP PANE)) (IGEQ (FGETLD LINE YBOT) (PANEBOTTOM PANE))) then (* ; @@ -3491,214 +3596,13 @@ -(* ; "Menu interfacing") +(* ; "Background menu") -(DEFINEQ - -(TEDIT.ADD.MENUITEM - [LAMBDA (MENU ITEM) (* jds " 9-AUG-83 09:55") - (* Adds ITEM to the MENU, and updates - all the stuff.) - (PROG (OLDITM) - (COND - ((MEMBER ITEM (fetch ITEMS of MENU)) (* Do nothing--it's already in the - menu) - ) - ([AND (LISTP ITEM) - (SETQ OLDITM (SASSOC (CAR ITEM) - (fetch ITEMS of MENU] (* The menu item exists. - Make sure the thing behind it is - right.) - (RPLACD OLDITM (CDR ITEM))) - (T (* It isn't in the menu, so go ahead - and add it.) - (replace ITEMS of MENU with (NCONC1 (fetch ITEMS of MENU) - ITEM)) - (COND - ((EQ (fetch MENUCOLUMNS of MENU) - 1) (* If there is only one column, force - a re-figuring of the number of rows) - (replace MENUROWS of MENU with NIL)) - ((EQ (fetch MENUROWS of MENU) - 1) (* There's only one row, so recompute - %# of columns.) - (replace MENUCOLUMNS of MENU with NIL))) - (replace ITEMWIDTH of MENU with 10000) - (replace ITEMHEIGHT of MENU with 10000) - (replace IMAGE of MENU with NIL) (* Force it to create a new menu - image.) - (UPDATE/MENU/IMAGE MENU]) - -(TEDIT.DEFAULT.MENUFN - [LAMBDA (PANE) (* ; "Edited 17-Mar-2025 17:28 by rmk") - (* ; "Edited 14-Mar-2025 16:40 by rmk") - (* ; "Edited 12-Feb-2025 16:26 by rmk") - (* ; "Edited 9-Feb-2025 21:28 by rmk") - (* ; "Edited 7-Jan-2025 23:46 by rmk") - (* ; "Edited 27-Jul-2024 20:24 by rmk") - (* ; "Edited 30-Jun-2024 12:38 by rmk") - (* ; "Edited 25-Jun-2024 11:59 by rmk") - (* ; "Edited 18-May-2024 16:50 by rmk") - (* ; "Edited 12-May-2024 21:38 by rmk") - (* ; "Edited 20-Mar-2024 11:02 by rmk") - (* ; "Edited 24-Apr-2024 09:47 by rmk") - (* ; "Edited 15-Mar-2024 18:35 by rmk") - (* ; "Edited 9-Mar-2024 11:35 by rmk") - (* ; "Edited 29-Feb-2024 17:02 by rmk") - (* ; "Edited 27-Feb-2024 07:55 by rmk") - (* ; "Edited 22-Sep-2023 20:14 by rmk") - (* ; "Edited 19-Sep-2023 11:55 by rmk") - (* ; "Edited 16-Sep-2023 22:16 by rmk") - (* ; "Edited 6-May-2023 17:28 by rmk") - (* ; "Edited 30-May-91 23:35 by jds") - - (* ;; - "Default MENU Fn for editor windows--displays a menu of items & acts on the commands received.") - - (PROG* ((TSTREAM (TEXTSTREAM PANE)) - (TEXTOBJ (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM))) - (WMENU (WINDOWPROP PANE 'TEDIT.MENU)) - THISMENU ITEM) - (CL:WHEN (FGETTOBJ TEXTOBJ EDITOPACTIVE) - - (* ;; "We're busy doing something, tell him to wait. Unfortunately, this string will overwrite whatever may be in the Tedit promptwindow (e.g. a GETINPUT calling TTYINPROMPTFORWORD for a meta-F command), obscuring what the user has already typed. Maybe an interface that tests to see if the promptwindow is in use, and enlarges it with an extra line above the current type-in?") - - (TEDIT.PROMPTPRINT TEXTOBJ (CONCAT (CL:IF (EQ T (FGETTOBJ TEXTOBJ EDITOPACTIVE)) - "Edit" - (FGETTOBJ TEXTOBJ EDITOPACTIVE)) - " operation in progress; please wait") - T) - (RETURN NIL)) - (SETQ THISMENU (if WMENU - elseif (SETQ WMENU (WINDOWPROP PANE 'TEDIT.MENU.COMMANDS)) - then (PROG1 (SETQ WMENU (\TEDIT.CREATEMENU WMENU)) - (WINDOWPROP PANE 'TEDIT.MENU WMENU)) - else TEDIT.DEFAULT.MENU)) - (SETQ ITEM (CAR (MENU THISMENU))) - (ERSETQ (RESETLST - [SELECTQ ITEM - ((Put |Put Formatted Document|) - (TEDIT.PUT TEXTOBJ NIL NIL (GETTEXTPROP TEXTOBJ 'CLEARPUT))) - (Plain-Text (TEDIT.PUT TEXTOBJ NIL NIL T)) - ((Get |Get Formatted Document|) (* ; - "Get a new file (overwriting the one being edited.)") - (TEDIT.GET TEXTOBJ NIL (GETTEXTPROP TEXTOBJ 'CLEARGET))) - (Unformatted% Get - (TEDIT.GET TEXTOBJ NIL T)) - (Include (* ; "Insert a file where the caret is") - (TEDIT.INCLUDE TEXTOBJ)) - (Quit (* ; "OK to stop this session?") - (\TEDIT.FINISHEDIT? TEXTOBJ)) - (Substitute (* ; "Search-and-replace") - (RESETLST - (RESETSAVE (CURSOR WAITINGCURSOR)) - (TEDIT.SUBSTITUTE TEXTOBJ))) - (Find (* ; - "Case sensitive search, with * and # wildcards") - (\TEDIT.KEY.FIND TSTREAM)) - (Looks (* ; - "He wants to set the font for the current selection") - (\TEDIT.LOOKS TEXTOBJ)) - (Hardcopy (* ; "Print this document") - (TEDIT.HARDCOPY TEXTOBJ)) - (Expanded% Menu (* ; - "Open the expanded operations menu.") - (\TEDIT.EXPANDEDMENU.START TEXTOBJ)) - (Character% Looks (* ; - "Open the menu for setting character looks") - (\TEDIT.CHARMENU.START TEXTOBJ)) - (Paragraph% Formatting (* ; - "Open the paragraph formatting menu") - (\TEDIT.PARAMENU.START TEXTOBJ)) - (Page% Layout (* ; "Open the page-layout menu") - (\TEDIT.MENU.START (\TEDIT.PAGEMENU.CREATE) - TSTREAM "Page Layout Menu" 150 'PAGE)) - (Buttons (TEDIT.BUTTONS.BUILD)) - (CL:WHEN ITEM (* ; - "Apply a user-supplied function to the text stream") - [RESETSAVE (\TEDIT.MARKACTIVE TEXTOBJ T) - '(PROGN (\TEDIT.MARKINACTIVE OLDVALUE] - (APPLY* ITEM (TEXTSTREAM PANE)))])]) - -(TEDIT.REMOVE.MENUITEM - [LAMBDA (MENU ITEM) (* gbn "26-Apr-84 04:06") - (PROG (ITEMLIST) - [COND - ((OR (LITATOM ITEM) - (STRINGP ITEM)) - (for X in (fetch ITEMS of MENU) do (COND - ((AND (LISTP X) - (EQUAL (CAR X) - ITEM)) - (RETURN (SETQ ITEM X] - (RETURN (COND - ((MEMBER ITEM (SETQ ITEMLIST (fetch ITEMS of MENU))) - (replace ITEMS of MENU with (REMOVE ITEM ITEMLIST)) - (replace MENUCOLUMNS of MENU with NIL) - (replace MENUROWS of MENU with NIL) - (UPDATE/MENU/IMAGE MENU)) - (T NIL]) - -(\TEDIT.CREATEMENU - [LAMBDA (ITEMS) (* ; "Edited 3-Apr-2024 13:30 by rmk") - (* ; "Edited 16-Oct-87 14:21 by jds") - - (* ;; "Create a TEdit command menu, given a list of menu items.") - - (create MENU - ITEMS _ ITEMS - CENTERFLG _ T - MENUFONT _ (FONTCREATE 'HELVETICA 10 'BOLD) - WHENHELDFN _ (FUNCTION \TEDIT.MENU.WHENHELDFN) - WHENSELECTEDFN _ (FUNCTION \TEDIT.MENU.WHENSELECTEDFN]) - -(\TEDIT.MENU.WHENHELDFN - [LAMBDA (ITEM MENU BUTTON) (* ; "Edited 4-Oct-2022 09:17 by rmk") - (* jds "10-Apr-84 15:14") - (COND - ((ATOM ITEM) - (CLRPROMPT) - (PROMPTPRINT (SELECTQ ITEM - (Put "Sends the document to a file") - (Get "Gets a new file as the document to edit.") - (Looks "Changes the font/size/etc. of characters") - (Find "Searches for a string") - (Quit "Ends the edit session") - (Hardcopy "Formats and sends the file to a printer.") - (Hardcopy% File - "Creates a hardcopy-format file of the document.") - ""))) - (T (DEFAULTMENUHELDFN ITEM]) - -(\TEDIT.MENU.WHENSELECTEDFN - [LAMBDA (ITEM MENU BUTTON) (* ; "Edited 16-Oct-87 14:21 by jds") - - (* ;; "A Selection fn for preserving the button pressed, for special handling in PUT, e.g.") - - (CONS (DEFAULTWHENSELECTEDFN ITEM MENU BUTTON) - BUTTON]) -) -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(GLOBALVARS TEDIT.DEFAULT.MENU) -) -(DECLARE%: DONTEVAL@LOAD DOCOPY - -(RPAQ TEDIT.DEFAULT.MENU - [\TEDIT.CREATEMENU '((Put 'Put NIL (SUBITEMS |Put Formatted Document| Plain-Text)) - (Get 'Get NIL (SUBITEMS |Get Formatted Document| Unformatted% Get)) - Include Find Looks Substitute (Buttons 'Buttons "Display action buttons") - Quit - (Expanded% Menu 'Expanded% Menu NIL (SUBITEMS Expanded% Menu - Character% Looks - Paragraph% Formatting - Page% Layout]) -) (DECLARE%: DONTEVAL@LOAD DOCOPY [OR (SASSOC 'TEdit BackgroundMenuCommands) (NCONC1 BackgroundMenuCommands '(TEdit '(TEDIT) - "Opens a TEdit window for use."] + "Opens an empty TEdit window"] (SETQ BackgroundMenu NIL) ) @@ -3723,38 +3627,36 @@ (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ TEDIT.ICON.TITLE.REGION)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (18637 19533 (TEDIT.DEFER.UPDATES 18647 . 19531)) (19534 45844 (\TEDIT.WINDOW.CREATE -19544 . 26156) (\TEDIT.WINDOW.GETREGION 26158 . 29527) (\TEDIT.WINDOW.SETUP 29529 . 33642) ( -\TEDIT.MINIMAL.WINDOW.SETUP 33644 . 41846) (\TEDIT.CLEARPANE 41848 . 42565) (\TEDIT.FILL.PANES 42567 - . 45842)) (45845 68752 (\TEDIT.CURSORMOVEDFN 45855 . 50728) (\TEDIT.CURSOROUTFN 50730 . 51175) ( -\TEDIT.ACTIVE.WINDOWP 51177 . 52228) (\TEDIT.EXPANDFN 52230 . 52793) (\TEDIT.MAINW 52795 . 54075) ( -\TEDIT.MAINSTREAM 54077 . 54344) (\TEDIT.PRIMARYPANE 54346 . 55116) (\TEDIT.PANELIST 55118 . 55614) ( -\TEDIT.NEWREGIONFN 55616 . 58132) (\TEDIT.SET.WINDOW.EXTENT 58134 . 63388) (\TEDIT.SHRINK.ICONCREATE -63390 . 66123) (\TEDIT.SHRINKFN 66125 . 66534) (\TEDIT.PANEREGION 66536 . 68750)) (68784 100358 ( -\TEDIT.BUTTONEVENTFN 68794 . 81356) (\TEDIT.BUTTONEVENTFN.DOOPERATION 81358 . 88081) ( -\TEDIT.BUTTONEVENTFN.GETOPERATION 88083 . 89925) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 89927 . 93164) ( -\TEDIT.BUTTONEVENTFN.INACTIVE 93166 . 95508) (\TEDIT.BUTTONEVENTFN.INTITLE 95510 . 97345) ( -\TEDIT.COPYINSERTFN 97347 . 98479) (\TEDIT.FOREIGN.COPY 98481 . 100356)) (100359 117468 ( -\TEDIT.PANE.SPLIT 100369 . 104848) (\TEDIT.SPLITW 104850 . 112309) (\TEDIT.UNSPLITW 112311 . 116125) ( -\TEDIT.LINKPANES 116127 . 116890) (\TEDIT.UNLINKPANE 116892 . 117466)) (118825 119716 (TEDITWINDOWP -118835 . 119714)) (119753 122856 (TEDIT.GETINPUT 119763 . 122206) (\TEDIT.MAKEFILENAME 122208 . 122854 -)) (122905 131206 (TEDIT.PROMPTWINDOW 122915 . 123229) (TEDIT.PROMPTPRINT 123231 . 125858) ( -TEDIT.PROMPTCLEAR 125860 . 127579) (TEDIT.PROMPTFLASH 127581 . 129513) (\TEDIT.PROMPT.PAGEFULLFN -129515 . 131204)) (131444 141085 (\TEDIT.FILENAME 131454 . 132226) (\TEDIT.DEFAULT.TITLE 132228 . -134607) (\TEDIT.WINDOW.TITLE 134609 . 136778) (\TEDIT.LIKELY.FILENAME 136780 . 138567) ( -\TEDIT.UPDATE.TITLE 138569 . 141083)) (141128 149656 (TEDIT.DEACTIVATE.WINDOW 141138 . 147256) ( -\TEDIT.RESHAPEFN 147258 . 149428) (\TEDIT.REPAINTFN 149430 . 149654)) (149657 192036 (\TEDIT.SCROLLFN -149667 . 151912) (\TEDIT.SCROLLCH.TOP 151914 . 154025) (\TEDIT.SCROLLCH.BOTTOM 154027 . 158357) ( -\TEDIT.SCROLLUP 158359 . 163976) (\TEDIT.TOPLINE.YTOP 163978 . 165647) (\TEDIT.SCROLLDOWN 165649 . -172579) (\TEDIT.SCROLL.CARET 172581 . 175419) (\TEDIT.VISIBLECARETP 175421 . 177715) ( -\TEDIT.VISIBLECHARP 177717 . 178808) (\TEDIT.BITMAPLINES 178810 . 182730) (\TEDIT.SETPANE.TOPLINE -182732 . 183523) (\TEDIT.SHIFTLINES 183525 . 192034)) (192037 202906 (\TEDIT.ONSCREEN? 192047 . 196598 -) (\TEDIT.ONSCREEN.REGION 196600 . 200251) (\TEDIT.AFTERMOVEFN 200253 . 201150) (OFFSCREENP 201152 . -202904)) (202948 205565 (\TEDIT.PROCIDLEFN 202958 . 204495) (\TEDIT.PROCENTRYFN 204497 . 204942) ( -\TEDIT.PROCEXITFN 204944 . 205563)) (205644 218798 (\TEDIT.DOWNCARET 205654 . 206447) ( -\TEDIT.FLASHCARET 206449 . 208560) (\TEDIT.UPCARET 208562 . 209666) (TEDIT.NORMALIZECARET 209668 . -212886) (\TEDIT.SETCARET 212888 . 218168) (\TEDIT.CARET 218170 . 218796)) (218832 231159 ( -TEDIT.ADD.MENUITEM 218842 . 221133) (TEDIT.DEFAULT.MENUFN 221135 . 228371) (TEDIT.REMOVE.MENUITEM -228373 . 229370) (\TEDIT.CREATEMENU 229372 . 229937) (\TEDIT.MENU.WHENHELDFN 229939 . 230844) ( -\TEDIT.MENU.WHENSELECTEDFN 230846 . 231157))))) + (FILEMAP (NIL (17103 17999 (TEDIT.DEFER.UPDATES 17113 . 17997)) (18000 43777 (\TEDIT.WINDOW.CREATE +18010 . 25172) (\TEDIT.WINDOW.GETREGION 25174 . 28664) (\TEDIT.WINDOW.SETUP 28666 . 32996) ( +\TEDIT.MINIMAL.WINDOW.SETUP 32998 . 40409) (\TEDIT.CLEARPANE 40411 . 41128) (\TEDIT.FILL.PANES 41130 + . 43775)) (43778 67751 (\TEDIT.CURSORMOVEDFN 43788 . 49398) (\TEDIT.CURSOROUTFN 49400 . 50088) ( +\TEDIT.ACTIVE.WINDOWP 50090 . 51160) (\TEDIT.EXPANDFN 51162 . 51725) (\TEDIT.MAINW 51727 . 53007) ( +\TEDIT.MAINSTREAM 53009 . 53343) (\TEDIT.PRIMARYPANE 53345 . 54115) (\TEDIT.PANELIST 54117 . 54613) ( +\TEDIT.NEWREGIONFN 54615 . 57131) (\TEDIT.SET.WINDOW.EXTENT 57133 . 62387) (\TEDIT.SHRINK.ICONCREATE +62389 . 65122) (\TEDIT.SHRINKFN 65124 . 65533) (\TEDIT.PANEREGION 65535 . 67749)) (67783 100829 ( +\TEDIT.BUTTONEVENTFN 67793 . 80766) (\TEDIT.BUTTONEVENTFN.DOOPERATION 80768 . 88031) ( +\TEDIT.BUTTONEVENTFN.GETOPERATION 88033 . 89875) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 89877 . 93547) ( +\TEDIT.BUTTONEVENTFN.INACTIVE 93549 . 95979) (\TEDIT.BUTTONEVENTFN.INTITLE 95981 . 97816) ( +\TEDIT.COPYINSERTFN 97818 . 98950) (\TEDIT.FOREIGN.COPY 98952 . 100827)) (100830 118072 ( +\TEDIT.PANE.SPLIT 100840 . 104788) (\TEDIT.SPLITW 104790 . 112528) (\TEDIT.UNSPLITW 112530 . 116729) ( +\TEDIT.LINKPANES 116731 . 117494) (\TEDIT.UNLINKPANE 117496 . 118070)) (119506 120397 (TEDITWINDOWP +119516 . 120395)) (120434 123537 (TEDIT.GETINPUT 120444 . 122887) (\TEDIT.MAKEFILENAME 122889 . 123535 +)) (123586 131213 (TEDIT.PROMPTWINDOW 123596 . 123910) (TEDIT.PROMPTPRINT 123912 . 126539) ( +TEDIT.PROMPTCLEAR 126541 . 128260) (TEDIT.PROMPTFLASH 128262 . 129520) (\TEDIT.PROMPT.PAGEFULLFN +129522 . 131211)) (131451 141855 (\TEDIT.FILENAME 131461 . 132233) (\TEDIT.DEFAULT.TITLE 132235 . +134614) (\TEDIT.WINDOW.TITLE 134616 . 136785) (\TEDIT.LIKELY.FILENAME 136787 . 139337) ( +\TEDIT.UPDATE.TITLE 139339 . 141853)) (141898 154382 (TEDIT.DEACTIVATE.WINDOW 141908 . 147481) ( +\TEDIT.RESHAPEFN 147483 . 149568) (\TEDIT.REPAINTFN 149570 . 149794) (\TEDIT.CLOSESPLITS 149796 . +152241) (\TEDIT.CLOSEPANE 152243 . 154380)) (154383 197182 (\TEDIT.SCROLLFN 154393 . 156624) ( +\TEDIT.SCROLLCH.TOP 156626 . 158737) (\TEDIT.SCROLLCH.BOTTOM 158739 . 163069) (\TEDIT.SCROLLUP 163071 + . 168797) (\TEDIT.TOPLINE.YTOP 168799 . 170468) (\TEDIT.SCROLLDOWN 170470 . 177509) ( +\TEDIT.SCROLL.CARET 177511 . 180349) (\TEDIT.VISIBLECARETP 180351 . 182645) (\TEDIT.VISIBLECHARP +182647 . 183738) (\TEDIT.BITMAPLINES 183740 . 187660) (\TEDIT.SETPANE.TOPLINE 187662 . 188274) ( +\TEDIT.SHIFTLINES 188276 . 197180)) (197183 208052 (\TEDIT.ONSCREEN? 197193 . 201744) ( +\TEDIT.ONSCREEN.REGION 201746 . 205397) (\TEDIT.AFTERMOVEFN 205399 . 206296) (OFFSCREENP 206298 . +208050)) (208094 210908 (\TEDIT.PROCIDLEFN 208104 . 209764) (\TEDIT.PROCENTRYFN 209766 . 210211) ( +\TEDIT.PROCEXITFN 210213 . 210906)) (210987 224212 (\TEDIT.DOWNCARET 210997 . 211790) ( +\TEDIT.FLASHCARET 211792 . 213903) (\TEDIT.UPCARET 213905 . 215009) (TEDIT.NORMALIZECARET 215011 . +218229) (\TEDIT.SETCARET 218231 . 223582) (\TEDIT.CARET 223584 . 224210))))) STOP diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM index 8a517239093727a4106683b5ce42ef787fbb88a4..672179b94c229df5b289fbfad2e56cff04f1dfa6 100644 GIT binary patch literal 63156 zcmeIbdvsjKc_-N203U)W2moOkqGIUd=^b{r?0W`mfGp1rfq*>O7?XLjNwME=NlJn_js zCMUpnH=BJZ+~4%0%a30W0}8l9Re79G2LLqkJ@PWAj%bSl_wu3#iFcsMk+ zGFwe<;bk(9GWUu93JG*WHvo9>z>4<4#`LlJIAMIvL{_{u5x4&+352zt2-md zk0y>MMrdl^UVlc$4|nONrm{0bbJJ97#W_AX-gRi&If{Oqn)Nby$93XPdI|tBJ>yMR zki@IXEY`c^OyO0$DhMm|cv{3myr9{2B; z#FBpCWEx5Qpa1R8an|y?s5mko+5beWCvs>k&V8b8I3v1ySfkMqXVNRbe^y4|439dG z%z2og;iJy<+$;@4dY+6sXJy2I*y7N1x{Tq*$L&H+Jn5kDi888n62s1+LsFGh|6#`~ zPM%B`=dyY~OmEKR@CTmw8OYu6OY$T$J)bEma4eQl17ieU-@cUnt#pAs7 zu2eOd+PvP8I+K$M9(*kS^=gJ++6B*6`Qy#CY?Z;L{_f(rZqs-y7K_#n2P*zBb!xri z0{?Q|-|qSg{`M8=;o3*!_Y3l~^mwFEJ5t~h>-VJ#E(6!2(NYZm=YR4i1{mCbuBTCY z6pi9dEV|-ud~cvp$}d$jx9^}RnNC%Wf%MRQP5HJ9-YFIL5ok{$gY_Tt{+DffmXi9dS-% z3336y3dob=oTqo9lN`m~VDt^x9!*ktNzPRS%Q(s8u}~YyM1prg1&HVfZG_1qYP%%k zaYuIEyptFi*Q1ddhfudFmlz&*PRyh;!LJj^QD?%NULfSGwi$La#zdxIZ4%RD5LE|302Xvv%RcsO};taC)vdJ0#or*jS+4*qAOhQS>U=%5>44 ztvJAe{%rC3jT}=1qX3-d3=fB11Lvuk21XkmA6KYjcyw5O7Fej^5g$cLK9J;zED_GB zGU~>rJJI?bu}DWs z5tQCXcI+mk%B;bM=}D+bdVN-ntL=k@&PGhQEvNjdgdZJocXu57;0;HOWn-h1Q5_ZIACFQPMN zP+PvRqhtM{)&2`eUs&mVcemH?_5EmV%p36bZLJ;k_NTl7o~3gKngbVZoEvC(2bz1n zcW!^f>%Z{5bN#hH5lYcmP1Nr6_GfPB-p)IUQr_r0?dG|P9`)|^)o&NKUM_xO_1h}r zjn!&t>*dlXR;yAD!~@90fL!tzr!w9twMmjddS|CjXNhM?f_Kuq7P!LnY!RY{lNe+4 zL_m)H27nt0(uH`EpdEZBAPp7Zw;Truhdw$Atdh<+z-3Z^*uqn@%tV0`lss%Pc}NnH z;c7;li6XJE*ttN3$+2TCr~_Eso6eRMv?oC3)DWoiGDy%y+93&`LiNs@)_HMob^gYR zAM?p-%h&Odquh|x73VHm)G{8Y&f6JB(O2+@<#Z|QfJy{jj)%|@#EiguP=r7lVp$+P zq7V%+ykp}K%|3GZ3jShc2Az-d9(JxQesuZrr9t3xXK;40x_osIXx15=UR^x@)S~m$ zlZ#I*f8=TByaRbD$PWt#p>flQQ)Daz90h#KoHjUcJRNh2>B{U$x8jnNNxX6;OK5D& zDP_xZ=7%}n!)f>yll+Ff3E{k=M6qnss4q*IgC z=Pqn;VsdSi(9P!B2P~{4I3vbC=?lEqUR_x4_~f<7_wxMnueK@NJWyZQ=G8XY%>!qe z-GyfV#!`ygA@26Z8)vK1g`Q%mADr!t{#Zj$Ybw2zN^{5g&jhgKuX;VIuzu*y^(OD| z_MJNb+;i?=!yBmb1bqfi&Cc}$wUb=l{qDiWwVTKIIp2Q(&-W9yI@nPk^$v8@pgqD9w6SHmCgFQFVyx@O$TDsgM+bi2W!8( z^4K3Ah&0M8n@gKsPkI8<2ls!e%FlZu_|NNE=ERb4^f{RiFvug|))Wu}dNnHygp~zD zGh!sjO3s@nC>;T*)8%#6QG@&3Q&ebpIMKqECH&9krl#Cegd~QP{FprIvwoCa8Omgf z9(Y@9ebv-NF`J$tpmq{qEha0|6GeA=+AW_@s5l`!r{er*10~{&YOS0&5NME3(NhQHgQ7aa^mmEv9WQ~mZ^(VosVF9wxq(H7FqGVDDP=HWv2_WWh7DjJ+ zkRayI?_DA>)>0gZ(JBCr%SwSs4%JS4sVNXAT<+IS#4%hP5{y*ap?zG%uy$EY9c+8oy9Zu1wYO}fpysFxNE1+ zU$$3qF#q+wYU;ZYVa488UGDEzNUs^`jYV@+w|{q|@1)QKN%uGUs`K6bdm7b~{ap=w zu@ju;`&8jrqt7HFjXssVv(dLwtyUT3sH_20v(mq>fj|B9r;q;h(4TJlv!~HJxI@r) zfw7jL;%4M*KK0$ayb#JF&w`)j*>8$Jy!4;lEHc*2U*KUx`^))ivn)6?!dd;(tV75* zr@7!tb+x*B2Pxt9>nueKt6!C>9xd?atQJ96{Ztg4SBWSFqaR7Ja^vF78yKW68pWvn zXRe0}?9-Y312Pt)-1vWIT9!pti2JJ6>EQaVaMxu3Jj1ts*`sE=wN$vupD4Y|U`Se^ zF|h8kknyWrT7F;|26fqrgNynep{Iqrlsta$sEBlq2*T ztPe_nvu?REHLrRxWPRrnjTU2UED6d=TdJ^1wn_Q?tkPF!b2#^R}0_#h~*d_z1%O}^8 zGel%%B0Z5K_JJ#$AsuolJ#)gv$1QzHKr19)`s_t`A`&F71tuZ^Jz#L1;>W_QK^($K zpyIKl!sMD20u2mQ0s=G!Wunlq783~sn4^&Lpe=*CY7F9>VlK+rdFeT44?BVM2-=kT zV8qC!r}oqwV`vhX4Bcl@`4L@3sZsEB ztRm8BQW-IU4&*{GYm+434oHn zbDWW5K7R%*G2z0>h5AMy+RD}gPdu|gIbfyK_?amvc_+CbkV+s8Rj)tQ(`gtP>096# zSVnXT+=nVcN?Gjl>g*Y`OiFhRb37m1ckU!6>G7RY2W3z@MU#tw^KK%cF6eY`b~ z@E=(Nr;F(c7&vVn+7?ahslc|-wob)~0}${(5c70}t&OnZvcAPuvBVv(TwI`~;0aSp ziaGmNFo7xC?&A@W^`A>UtF^g2OTBl;a#bh`zR=viAi9O`^hZbGz!hmTH*Ed3&m=BvmS4_MbVNn1Jfun@7gG)mWm?SGZ)s# z35(hg>l?42tl94M|7vgk`t9yA^cf=VV~H&NoEGKd5T$(%gt;Oz>3(5?qk*kwT34jWrUtOj-o z$a5ya78EH2p-%55k{mhHhMOSTQJ^!<_5}#0*{N9;ujp6gh5E}oi&vBNN-tTZYyDP2?N9!(vU?|YSt(UWZ{nO7 zfxo`Y5Vh1(P#K@T7JY9{VS&e@WhKS1)VT5JTU%=dSEGn1XWl^GSe`8b^$&2)#hb7R z@RI;*o`*rQPidf0h{gETwaCBh?b+SZz1XL;ZtXyIt<-n+`kjSXu^Hj-@UUl~QLH}S z?5zHdU?SCpM{`^C;kGTV@Ry~Us58&?G$ZcT+Hb;S{k7%VS7hjoaR1c!&UHt67rs<@fOeJ8RApQkX0zrg*i>UPy8 zAe)40OMr(ls3t*TkiH!noq!*p|Z_47>&tObUAJu5&VK| z3h|p~-J+iYZ`y_hVZE0ixN#rBK>#x76#Q!-Wi(IB)M%_r_6hS*D`FHzPH`7LNAW}i zh)woXJM@;bHv8L0XNn&Tc1)?F9w0Vmp1>^!Qf6`ig;p^Dg-O|y%T90F5c8eBATLK$CZ{`C=O<`pXXLc7)36GX$ zr23K}o$DPrOaP=*9{_w!j3wd0`Dcb%KFk5+3U0B5v!-0N@`@)oDkVdF;y|c3FPh$j zy27Z}?*_Lj9cT|BG;-BXnGVYj0jqF_Sp}i?ooLQpMTmWEmXuH!9A0Pj3=@xRRr~>Z zkJ`_H`&DaPKVWTU#aJ*DK9~Asfr8$2XHK!ShZ;Gsw1b8FU;UM{ujSYO_rlWt)33DQ zRR79FZ-Kb{b>hiUZX#?kxfKN&x2+{0T?TWjZAmpK8I2xE@)t+WZIPX=DpBj5bQUJF z#o077dZ+YboJ|GBf#kk>yeU#@xU<<38DzEY5RWM8orJM!+9S!5W*G*s>?9{K$8(+J zoA`37r#ID+j;5j;r_-@iY~##Ie(QJAspzVc-+DR!&sLpZL*nB1^IOm5KXLK0ptk}OCIxMdO;&^g2v^vr8 z+e!8^8wq^s;WYEicc+@Mw0R-mxMwLXf^4++`FHj9>}e?=M(0m?;`rG-Q2lz}8I&v3 z5?sN#0kDd1ZPow1H?aOcEZ2V6+*cF-5qgn-YwMfdz*%YO!218Vx3K>2bB`A5`*OwR zz&V&Uy#B3E!zTPDSl3VH-gIF*FXuMMVq2o0m%P3U8?dRnaCfYYxnAE!?k~!vjp~K1 zmm3%UXGUUp+J-CJMwx}UjlZeK$WITrQyu_c3r!ye*U$*daE zQ9@>F0L> z0%+1TirX8>eUt(iC-~vWv{!LiMNJT{UV)%HQ?LpOH^*O2vMO^3r~`@)cydqC)?&3N zeKSNpe?Sy}&`EYa1NGZHDkh<`qp*I*UaO4qWDwy0&Nx&O^&jLJ@>V;x*8ZI9%^&z} zl@;4s`vdn&Zh;H%wpzRHemS@Hdy?~tR4f8zBliV&shSgYMeWz+)vP<0Szh8=MNuSb zi)%M8i8dk#nsL%{lkeapjd&i6h$wMoV&kN+3#i-U5S|oE?Yj!aLGXd!foX@bkIbcu zaHaAk3{wd1R8zn?C*aluy{3MI5#0x7pH~RFD`I!F7HP|4$VL!eQ&&bLo_w&#_dSjc z#=t;o6KkDiu+SU|e5Ge+$!IYt6~UP8Q*sADt|%F-He407hCWnc*e$h+db}0Zp>$;s z*C0F3$e61nN=1y`09cF;&FFm?iOA;l-NN(>Yh&|yEo|K(ke0Jn3A+ol9hELs?KAMn zlPG!M-BeP&>iW*!%#M|+8{Jwv z?8fkS(2cqz>wlPvZmsP_CenUJ{o;xn-FOvL_~raFD=T=r@ft|(%Y|o<&mY3l%inIi zzCx~q$fwUG>x~t1CVXb4xAV4Kw0r})Q?DC;W6`qLb7O<`s9v|%cVmM$O%JiFaiFn) zbqIF8fH8=?TU*gE%sbvJplp&L45|mQ0&1UL&;ZF0P6gt8;63)0_1a#VfL=d+^e9AF zULtnN<1;XGWdh72!1c3mIC%hT0R;n{o+3>urGSXD@k+n_*3IS!|uGY^03?#C#j(kdN_p#-_wF}6HvjSLfhdjd2 z!eb!4Ib80J$Wb2PU3O{&BZ4Qm<%N#=Q0_6y4+HA?%&DBqDoprce6F`MBFjHNXt4DB zAfwRWPgDGVt9C)fQ&+z>KgjsD_wzk2sg*yeUI>o@Z-eOyXoZLD7;C&#+z%8S#`jlS-g(H)%i~YYJB$u3o6V|T)ysk`_~G3koB}$w)%LW1KcasZoi$d zJF(0T)5K%$V|P$4&+~QdAO6v5=jNA!U8>#59k{SrzccuvwXbje4S8&HeP6!z*7x~4 zT6%*{Fr z9t^4!*=z~3jhmk6M#i9o(yruV#)L|Z$!W>Shn+EFe>t@<3!8rt)^uOh$*k-ob)}sgI8A?31Q^JZ1y_zuUveh_ zbc9xxnPfrKu2#ixM!J~AnvVcP*+T=4tk$@6 zhep7Lnf{Mpes%wcq1#q%3{$W4j4WVpz%Zhdr(ks<@t9|W3|mHOP6m8%$y(xnrJE;p zg8G((I{gT3bO3%}@zUJ_zEZ*rbnB)q@<;P!cjf<}$`SrCx@9aMkY2($L~ze;GmN1R z)9Jt?a12V0`tp4M#I){{4zWQoCL4-a#umPhct;8k0A>#=Q!Q(N9mFK+?88oEyd$c$ zr9#X#A;b}g_f_B~zyymaA^(v=_wJ0czJ_>lFr3^M;jJB-w9-k|(;A4;jhHoOSc4ErNcj1|pKc2!ll!=@;tX_)_agojXy}FW&)bZKU1v=#UZd~@|C4Kx-}gT%rJ6feOg9@D zF}ycQ%Nfm7UyJ-oTGe;es;@qhYHAL7Umn%ucov#H!mQUSR^A?!_ptRz#`;8jU22Y% zw@31RmAO~Z^)_-7-_1|1?GG#j_e|!$_(hx!=k#i4@eUj{XT{g`+tM;7-gqOBiWP1m z{rHKZm%*uUAB9%n)8r#BDu6eN2OKemT|UqOS2>>w3gbrn+l(-b!#H-UQDBY~=ZM@8 zE^Q9f4a4arRN8Qtt#yOkg-RRBt4dpS178G7lkc3$(M(m+nib6(8SYV$q9jnP`c9%z zFbA5%kr$N4@EAU)-uOIFs*J8LX3mh zqAVdzW>&DY0sh0macj~`kf~NQ=S0{Mtp?o42o!sYhK`U6lh2rp7+Wm}9TDl7G>$BS z$KVH2CSlG6^eDW5a104(7kTd4$(a@<0R}uw3X(w4Qdjb% zpEkd-npjf7C`>L4rfYYam~8equZ*N471ynWGh8u~%_T@cL0A&T(> zIb0Jfg6;|X1(iHk3SL`7C42!HV!>C+E2?F7hGHAZFLsx_7~z83vof~WqgWYUdcbXn zJ27fQVl-^EB>>|8iV;8vs}Kq%LyibGyTHo>UL&PBgDWc7NmJMfb_jKs(n@V5{9~x-IwQaD&HdVRRF0~bpQ{W5}@-M_rmm~A4%d91Zm^P z_EHZhmJ+>v?5EgmziPnv|H5w1&7+^b7WrDL`4E1-Bqzq3LwNoRgRYSJ?*gee1F0H= zk;(e;*lq0>-}xu52G-9>CzpE!jCljC{UhCTLAVFRd3&ku>})@w+!czdCy0!|H36lB4<}F<3M{dWCJsej3qaD=Vkl=n?ErEHPG+zNs0Xn&&a^Os zr}IsOnE|ET$L&!uJYhIej7Gy?DRQtBF&ZY5DL4w2|G+ZQZU{JtEFh-Jufa8>qxZjl zS4ufRENJ5$jB;D-B9hfG@uDn$<61Os;Baju1Z8i&QD&-Jwy18&r@AYov;Py3*QMT0 z&||=U1O6jct$!D)6h=EW^5*X(d)D8@ZK&{dTw|m5=kPYcDJh(;^!@#kP-pl|t~P@6 zk#yu*nu;Wp5d?0+M+0&IN(CS@0)`~ccvCPYwmBxiD+rQ(0Q!@Du{zE+**usE>c2K~|0u8Vd zNzu9hQV{sTX;2Wai4J1W7&f7FOD#0q>c8lzc6|BOrGFZI)s4L(E-s(Xi*}->ykNeT zr`UbzKq8nqUQ;5VHg{Deha~m6i^nDS*4?i7b$o4%#Ta4g0qS1Y?B- zDU20H2%eOpS&ZLdGILYpoC(zJ&CNha6iQE{R~cYmiA{wE_PfzL=Z)(Kj-}Kc4nYyD!Lm{HpxOmUb_EZ=v=*%s|5L1CBkSV-PMU z5VOdEkYLt`PG*^56P1%`E6?WWiwSQsi^a9n>h@9-_o2)MY959uT#!23OL|2y=L;S6 z$lXJtMv5c85*Gu&py(aw#2Mye1c!=Y6ww)R=q8s|go8MCI@iVr_xl)q|0)0FKNdoi zI`*)WUGHG0jXQSpYx{Tu*qtJnXk-uU4$#vdfsh0#4IQ#kFX?<)=p_NS41=O_g_%B- zA3Fg)_6viWsST*I^qfFW@Vlr{bpo=u2s1`^Noj6QPYF1`mJj2^rE;I*MlV=O7lL0x zDcABP7NR9@dmm1tZ}ZQ|nD&sRe2a~F+%HDlI$08Ip$IHU(iyBgxr%7ZPhMWWbk(_d z`RA7}ebiZg%DHs;s`K>XRc9GNlou~9UP7c~qefDYsu@-ci%>N@faI7h`A(O?trETi zV&VX}6w-$rmY_f2evtQc*r|`G1bwFpusH=Efeee6lM(X5q;G+dK3t#ZQ&>TM0lNQK z8eCfay>_%(!CO1!r|(&WsAWv?cr58KCj7fJXau3ezp-Q{I?^f%j@+|Kp&@>wD%dQD zNpGhdZdIC$*R8Lmt=+xp+j4@H+-B@FvCGjNc|`g{W04<~_~(CI=+1EW|#7(LP)Tk z-aZOv`0L(2DSDs^f#Q>W9CeMFfS-*hceV|Ht2`TrWH?2xh7TLB?Uw}Wmx{|duX|b5 zRa)QSb@$jc+S670A=hzkU-Q5h(Ypi9h}ZuX!bRSE45@us#<#XUeeGr*3Apjx%+POh z-?f`%967-T7T8teHb?VCd2R9>L1R6&ehUo+J1! z;Yz7VaRktSgn~s^f+J0kDk$K>jNs^|mIRQm-(O!`A_w}wq*5S8@eu`uBzI>D-~n%G zItde~oU9Nw>E!?cP(WBd%sjbq_^JdH2;^n#cSPpjqH7>?mRLuxiLZlUE98+sf;FR) zP4HDnIQhBCtUI-U&=>IJ6>LdCD~wWWgfzImVPlv=C#X|n6s=i?(Hi_@7_yZPenJuF zLR}aJu!XXcv<6sV>Ni#yQ*Na|*$H>Veqk2P^I`&Lxv=+%i;5&>f|SjB^03EI@f0>$ zFoW#nfsWahMnF0p)t0>qzS!TZ2~8SrM*D%xtHllqfCitLqQ`m6rk@|5o1ov$Y(J_GLw z-jA=NvZAUi?N?Uh%F?JTO=eGkNe}?+!#OlaV%GyD00bn(nPs6lHz^QklYlPYB(NV$ z0-~3dkm=$%rMTecjTM~;?fS-1utSNdIPnDgL9o-kBGbugS+MB2JC0V&0#4S;ai9V(q(75?QNO zw8=!3!k~ek8BhhG#l=409D)6gL9YfIh+)`BU*n&RWST+9M5Z2~HW;D3A%}w22AJ0o zUjTujl}#L5XO;s>4C0`xts}3~8MT57@_4{XKmmXZZ>*V!2XP2thOT9;Dmi9l<#hZu_6bp0#c!B-P zhDb4D2TA}=tP&tb;OUMlZv%+7t?-`*CB#Cm%ovV;2c4(i7a>X1F+@1R^?bbY^& zC!S$Jth*%#F8f6~Q~M=;b%7ZZk*&GdqrX`)-*h~>{tLL3hnr*`>)TzthFWaz?b}_Z zXmPRV=2}WBSt;*Vs#vb((*F_hGdvD0C*kGfGfS;4RbJmMzdaZ3Y}B5GClZ82wfhn< zTEHe+p2xC4sL--Fwr5Dt1}h%Q0SX98!Nd*-OqdJ4Y{AIaK8iP!?0P@5rAdhY^F%}u zo~Q+xzqW-_zUGax^7=ao1h8wAAhF#tp% zgaVVIMH_rYB8gkj@xl?o?u$Z;m>P|9M+W|8oU#f!zfj6Q9m*ekt^znpTD=2ojc{q6kg&F-UImc9xV~6=dl0ygh7CiVJ6es0NY`5a1uW(E__uV64 zLu(|xP#3a_f`nzYBk+?({Fa3yJ|_Vd=`2jBGl+nr-cc=B(8jy`lVZKlPa33y8y+v* z=#9q2a0WA5v;!tFHipr~0l;5KzF~dP8{L^JGhX5a?2Ya!i~mag!k<2|&yzb8b#1nn zTyI~O*VBQ!Wu!8>GqERnuAeJw?!@(wZ~bVk-|JuT`idJ|IsZWzfY`a7+P?;O0bTY? zwn)Zem>{r!MOp60yrCOCLZ}Dkix7IEDGDg*Xdgq@k;MsB2bO>^X@uw3OqT7{(7}W? zakh=!$5`Z!5^TXzSNNr1brLK_xCl5?kb^=Nuyk9fgrzG&Kl0WF(4Z(qG!%@<@q6#3 z(9TLIpk1%;@7jLHA2&OmWc=oX3)RyGO4ip}Eh z76c|g0KW>bf`z0RrbQyx_d&UUaL|F$!GDGc)_(>MEw`EBqBGP!SXo?by}?WtO)V@1 zs$wTxeI9Mrw!yunP8+-sO57W+|+0R9{kS#6@ zg|SwWqPDRFU=S7Ah*(7_uLwbE;W`e35Hu#ZKnqBd4+EslHfMx|Qb} zZf#(eA>if0e-WtmjQBc!t-#;B#&s0@1bV%|;z}*VjiVA!Gqth+Sidzuov~2xP3h{^ zUWFTmF*FQ`SSmWHNTXwkQ5~a)(=Kzj#B~W8V^ZfM5hENE5m$iHB3O3 zc^f83K*GQ{kIr*|#3G3mzzlxp7_kF=g^>qX!;biE*5(!EHnDYH3 znN5`mGrANZA!_~sLy8#=5@X+EMNci^4OoAnj^vYdSP}A2w36gzf!jGKAf33=^CMjA z7!JW3C@>@n1AoawSRy+AirQvorzZ|Oa4aC&R22-E`kv0I0SCkPZ z7m|YQ2msY1G=TsogH;H_P#O65j_mR!qi+g)Ai)0Pk!Q3f4(6|F{XNVqJr{CidoA_q z(klhh2K+(u=-R%V=F4!BL-0!7(HZr9 z(z%xkOAMi+B`7o>N2Nr;664LrzoEBk)$-8+jN>wEXA@%dK&=%dp8$LjZ# znFO!hRbK8t+7Nw)s;eY56=P>>Z%}+tm@eFt*&&!A{9_yBloTXfbj(^W4h2MS{lv(B z#<)*sr^4Jh-5)3pJMiNr)nI@?(xEzEd%*ZHPE?g~6{5nIaY#aM0gywb3?WT{el&N= z1WQ9bsI(}Ax^-zFQ&l&2iM=~vy@1@QvawUdS;mOFIFapE5RlQGB}ZhQ6@}fPyX21g z+@9w9uz4uxJijDh$G}z5Bh)UG;751^(HV3u6wZdtLh*sHYSFzH+aI*n=R%xy(Hp(Z>*Lp=zQfIaR+{ei^OJPDpGo+4L*RlxKQ~5K{8=ffQ{D3C=l2ibR_$h_ zrGI-eq(I!b@v6ExrrG1>aVu?}Z>2T#$sP>u!F{-;9vNrzfQRcY-h8xNk`MN5ynaUC zc3UW--lDnfmV`uO?*tHPGDSzQf*Uab!6uXgQ6-o|j)cJ+kh@?87?V~9Ot9C%Qa}>H z3|luzcmZIWWXUynD+IA+P_Eb)MZmNg&cgmSP6Kql%%mtZLa2Cxw4Dsw}Ph^!Qd zc(^$DHLC#Bw^l0P3lb-Nm|t-`;7&rPuB>-p-KF zt^|0rc^Cza;bT)avR23l_y)t4DuI4v@|gXc&v}Rir;iJf;?9?Bq$Z$8^!g1S6bSC_O-HURJF1Ghnyvxa$!F=-?z}F&EB0Q z)#lxZM$}om>oH*n+En@1d(#MQ&h-lOprQ`+NS?%f#*!skJdf$%j^Snov{JwZde0H#W8TmyB`XEVF63<) zcnt~9DoidVY?y6jze#u$-it!D7|IMhVJZlqp`c5a-A-sE{y-o}Dg@!<2OA}D^VFC& zgh0hrBsmejr9~hoVjS>4pgR(wM4IF?Hrzv5DrB3!(-sD!Gs_i|s>+uN%Gd)6tw4L4 zdPVt2Nz9GYDS=^Tu1t$1h-`zQg1K^3M*@uQse;vam#HI z0!qMt87i+}?_h!qW>}ubn#;FAmI8QM;U8r6_0_8& z^n!J#%EpP!uR(DHW@>|413(@fngiCbZ|95rEnUDOTixQT$#b@?-r!6#w!pC;UV{zd zMcFOTXa8=Y`OudNj1$y>vTKnS1=C1cDH|K2M&O+X)d6D&PN*O|nd**?I_}R&6`HXN z8yWolpBNXtTE*2bjlA3#!Z@b3e`V|QITh;f*H$tnVYhL;wGH;z1HU{;ceWwa23T8I z1VBRxA{qOt@CPOh8l~l8UM>nP1v2dm(Xs?{Q2K$01WHcihRCE!K+czokPvPfrm(Sg z!{m+~NSlUdvLw4(`;sg#D641=_*>Zp7=VA)7?fEXXQW~amte>17@2&Xvsan*0Vx5q zBJutg8A@j;I-zyNh=FdSl|AWJ+zg@w!|N5SOITK9sFLuEK#@ zki944GB0?x8arK#p2-(B>u0tFf!Eq-lKgzr z#~hl?koAhqbL8|CEM-E92EZ8{MT@2eKtMX45X`~5-hdhTxC07^g0M4~Ne~C-zj<2_ z22!Fxi;6RnTL35led>ctQ0^c@oQLQVF;+zS&W>QV_?BX1mU}7XtK{}}q=Q$Z3LllF$IETpI-FEOu}okd9t|9-qq#*p)_JPdDDR2@Ik2-LL%P5hLB(zQfMt$hm)w&aOp|7Ir)qS zb_q3W>p}xc2Db9}`!NAgKU6${DGq0~AtKkAVekPRlkq#V{b5Sr zkWe*H9ffj0WldE9U2i*D7FbW8qXOXq@xjg~RHGaT(L;q<==_$Gcp4G(G@8Ku6^^IJr*_~?kZ`|lfr<#!)*i*T!&o*+a zv5nIxa0AkJ8znf5&StFEb1SuGW?hXBejbGD1Vg5y9W8iaPj9pp@o6hZZ+v&@w}Av#B$!iPaOrPkptD$Ebow7N9B$<3 zN@fG;QZrTp1$5M&>zSREPTs!N4zXrF-)9d$? z*5B=QS4#-)F1_kUuWBD+z{msh*8YkgON2=Oj63)>^a?%1eMrrI{Oh|>%zUayJ*A9| z8*iq)ZgpI|WeR=ND&gaG1dvvU6=~cYK z3mcXSO6Y}zZld6QlI|0HqEbDa`uvJcB0f*#S9D1~GEqyVdwM%|6boCpH+)y2grC0a zv$<*-BFjq+{9W1l4E~;a26rcja9+KhtTtosq`Hp02??zN$nWx+ZQ z6K(K&Y_~R_hfUUc={4k#^g^a8pU)u22P;JyZT}tche>F?lB_2=U=mD8%J;(Ls44(X z>z(%Ll9JmpCN{O!fW;&C;Yw^EHnqiGVZU7Qn`8Ea`ilnu8zg109xq^*ceIMSdef5j zW$ou$D28=|a-VY0ws-t9%DixZ5Cj9`t0|QQwa(gqfK`F@I`s|QrSfMa_V(Y%ZLR%b zp5^4VZ{^oJC}bcuU~oyvJP?kAM|a-@OJOetGH6MG@I!kUO2JSLWb05)VCl(5>92gi zWEZq^wKxZW`86L}&-RMilu<1xdP6Hp+DC7Suh9ngjf|vo(qH3*bJFLufYAMXn+;7k z2tUQ>hOi2I<*Agg({PTv14itQG`NGjmL z$aUPk4Nl2=BZz6wR{eL=%>$3yAwuL$=Vtx+rN?89+OKo^^@0oT>Fc>d{>IkJxmSzL zSP_tt-&*sE%}4=|^hhzYzQ3jZ&fdFs6>Eq}R{MJ{_RaFSZmIvk`Yx}#Z@<9gW5iy4 zzft>JrExUSdbajCaMCR@R~+iu0Ax8W@*%7>3Om7n89vw9^23f%G@3l9{aPUzf>WS+ z00=qNg@BUd76*kk3Pm0+1siWTDV!#p&#HYXzCm9rQ zqI;$$;5(B57a8oOy(z+6pxPMtUR=mnuHr{l&@jFYn&0wx0M{!I)S zoWvG@?T_Tv_ovtQV$=mQxawu%C<}i3(Z+@)1znByMgLvi?eBbhxkY(uxpeHn4m{03@qxS zDYy>vjdz6QNLxo!fFkH9LbWO)hcw$t@oQ_?FhFJrDf~AFK(;h@O!JgQg@A(Qk!c>_ z2A8Cf$ldYb{gKFyZ7u*y>kvia2S5Q+Y}L}lm#@XXm1-X7jqb1rBhJ?uIkk891g!Fq z6nlXGdgFU0V&?{$5$Mn$wfFXRmy{%T?tr)7J0Pg3y$c?_Z|>Qk3t3gU1MC0oUQ{bp zdwme^R&?a6gX`bhiu zM0?!k9+vKRVfmOnb(=dC$BRJMy?ft{**Lgxs2l<_TcXq@b-B3l8OYwv9Abl7K|aXQLUoP`hAB%Le>5kF@fo=B}UavT(+HFu0m zywVPA$3T5JQ{!u0MZZt`en?J1!3yV#hm>6z%4Cb)JhFYA2FrkiH{{h2W2P}+X+0Xb zn`S8I7TpuMS!Wd8*RSZ-w=#rOlM^aT*HPJpAO&YCG4!Ma0%7DbQqRKW# zondh0;D8}u&byPdIq0&%#oKAJkI7YzNoXqNl@iA&aBnaJ4F5D~R_UMvZ%fi>tIrAT zOB)HC22i{^U8KWb(8UU>TDm~W?m~iYdbGO4VIY`VQfNMIhP=1}JppA5q{;gc{Q@>t z4f_t-B$gQDXFb~jl3tA=<$#0f=ynmx;LebH*BxbaNkF~%lmstWyl(T@9H z!c9}f5<(5}jU_#T=g5)>g=QO2#KNoXr6>1cKHuDu2{O?7xvfF*LuvrC<4ih|laLwh zy^E!!a0(1)q@f6a23iK7>>>aM>1)~Rg@W%k~^q(2V z{gm$k69_7*CWORh1^qN0nH&J;H(Ja)378I6a?!2NFGKojnwokTecwZ857Ez+J`N@7STQm#>?nIVFLju3#?#J{*OFOj7ea+`O84+ z-!KPZvVQ#SiKyZW@A#v&k4l%CL)?w}sX)@gIp4x|iM*{-naoe|LFBJVWv~XR2OJs# z!BO}i=on5n{iqjoSavA%w#5!iq$!|U1$GEaM&yxVpKy+o%{f4u*%Tz6@wAPB2!pSQ z;D_&UBPl1G2T-=}b%Ptfxx*24pi*2=hm*sg#rn!3zE8nVog(+PR^-a&aB~wK;SWH) zwj(A0ss1yzfOa`XiF*6=h3rRafd+)0)!X9>+BCkDUblRJbSjj%9KiT<4S{gW6Q>p>zcMN_%$gW*Q=F?{a^4`uYKYY#;pEcJr2F zpw$V2QP%qzkOT^`K@vQuo@ClMG`obY{2|zL$=&96LlVpw@goBu%LWIUsF2YCrqq+! z@{l_U47Qq|WgDi07R@+2<)RtJR;hEafRfDQvU^RFOMXs)^caWOu**WL7Y`svc{ z6nUv_T|b`rEmwKe45i$3vtQ{LJ_~P)oi%ka;b-}x#$O`*7h$GTVrx@yUWH4+k$AP2SDWu z6YofU=K!V`)_{W(Uz%VvzWH_a`%>=W-&J}3;8%UK_vp@4vj_f_8F);4eS&>HgMbY< zZ3*}3f6JcJ9rXCGqvQy;S?Ac3jn@-d1zn_JXM=x9bK_qrA=!?7H`~XLq zJ6v3c#r_Z1JH35p>p!1r#@?tsDV?hqQgjRFX-`fl&@mYLBoFg|{$${6eWKXhU%v|_ z`G5>;;K*nYpOSCgHUO_OlB5aV z5^xpLunEEdwRjpwedv}`2xnw*wJ^}z(N~195HTexiklgAber=n;b|L`9Pc8DM(EiQVy*PCgeSoj(QC))4@kZ{toS&9c3D1p5nh!7F* zk%Yi*4L?L*>{CaOa?Mg;<@7L#tvCctEx2;riVj&HMkB6Kg;Ygm1tn&t(~msT^1?ZE zXfiud#N6F?9B4aTOi>*a#EOrC6XSX)3yx-H);Tnjoq$TGVt1GNpcDyRe&-H5he~On z)`~NQY0%j;CH}MWSztzB%1W3|si>-1e^qf*8*&~G1@xH|JVGud=;J98P@vEF38r-_ z;3I86Ne2k&m58_ec^4VjDG!XOT%i^05{bX`nw2f|ptNFmVo0Yf*$?!jbrj!!p)O+k3 z9U@YHLNm%Y%BUh(Y#F?%6~hjhYjq2i95!NM$fbyuf)!LP^1@U>t@r@(fb+o*I)j;y zUA=nwlC${pxHI*s!O*k>g?LqIAaiKa!_i)K;d9#pSVmJq_c&Mw%|1-D1Z;Xff(6{N zO#F6lC9tNh++1#LMvenLh^1d1qIW?Mq&ZP{SnFA%n{nrLTmHRxx_azgb=jmUZ{iuC z=4l`#?<8Vr9+ErX`I0@II5CsX1OkxI9t#xj3Y4d{s^GGr&^P#q=ISI}+Hy#B!oNB9 z2(J6GGPOEw7`fI66c_-Y$W##@rH-5^dYN>QYYkUw(yBg{L3m66O4X#B;Gk@>tMo)t z*(M7@J!1@09d^?8`trNHkh_w!SA>=zN_&Ww^AlR-+E(AD4*9It5 zruGqb0Z@G!@bhN|6yo_ppUR;B1$b7VMnB*Z!1s@uCjSE?-?;be_1fc%GKb zIe)3@eC)~U`K!3OFF?ukluNSZa?^k?yZU0p-OO=5EWU`&LV872CnyyNVW#m1|(het)CY} zAChf|xniv3lxDDgJ_r}6O&z6Cc|o~3l*wNCD$n-o_L~rP(Ldaz+wq+_gKKTfY^tEn z&_+#NuWi3FwxQ5!VlO^{a1lp7e)-C372Mg?#Va4d)mr{ysy48Pw7Ei8Pgz<&Yn76K zFs2o=(?sV5YMq5XF-au^aZQ}Rg1gg~0NksKS3c-CPhGvd3IO{Eumnye;KXYP*o`Eq znzeL{Do2Zb3MquNI;s#@ngGJ)gy}eSZZHEj^`loVe+(NB_quMNnTiOUx+V%Sfi)-thAai^<&0bL954qz2P6HahdXbQR8bcp5{VTBHTKmo^O8n+`L)SDgHw?2MBJ#)GX@ATJRK)+LD zBe8lzgEH^TbV3Bs!@!o%b71G%Gil1&^JsFheqDN4XwiDnzQw@uS*6>zX)hl1I)1;c z#k1Rl_N?7_NLl2=m{o~s)68dAVw@m=kr|`xV5Dih3W!4iX{e3#bgSaq2v4G&dRTKl zw%pYE%1BS4cP)YsL?|iZiz7-t39_;GJOC#MlDATC^S?C8P2}X?R56vJf5oX(steHI zOPGgo1dVP6WyKphpyi-jcY&(D)jw+XgwhMfGF?zbEj| zL&xxM0{>3nAEyh*bCHK6{lgUSKlCqE49^A>yYZ25XKdN;$My!bZvUT$KIJfT?f%ib zmWeTIqb4RS`Tq3!L+#uBdwcx}irhb)-sH2Xl#3OkfAmbV_4axblCrg={}b*cdp1gd zBKoIS?$-TzSTP$)eC1maZz-CRWU3K`@G0_XK*D66PnQaDhDw{{8N z8mwIn!C-M>+ve5KmExZ{IiNe(V~&j+_QL;_WqXCQy&spKN&}1tGo^C)pP&o;wAAC# zOXTNLr92)9UC@7-lr&(K&z+D2e^4THBgH+S7Q!@KQ_=dse?(P9^|7Bv50sw{$!}lJ zJD&gT=3%@1;x_BJP5(>V^uLsQXZ_!9TtCal&Y*p<&3gTRB_Bg*3+Ipu+UIYBPe5hc zmQQ=Rw)v1VTK}Vx+t6{a25rlC1(_gLUj6i$pq8cuMYd#XCaC3w%t1@GCm*!Q=NIkr ziP`yCK4#!&^B`dGvw8U0JlF`~XYlYdc=#DS*fa1G!$UhBh3L+9`E6Jfrc>>B8mgyl zMU>y}1Iqs~Opw-}kt*mXu|8@g*)}FW=mpu^t&IsX_~rjoLnOB!wnHkzHjmA=j6wql It3}uU4N0($aR2}S literal 65925 zcmeIb3vgW5c_xT%KokYb6acko2%_n0NU}jjgwWl1kJaPj`sT>=iYN~H}pt(w{~kSo9KJaJ?Gr>_|N}7{~4IfPUXwlV^jHJ_E^3= z z@nfY6*N!EI5+hC`abh@mA~D|Y4D?^Ta_Q>I`cl=oa@py3{+oqTcCwgV{P~|PZg6n0->F`}hg*N+c>j?%G`2T97AKJ$OAHM; zCwP#VMd#Y3HK+5$L@r%EnXMd~bDe>ya%HbU9C1#}%w|vJ-TBI~Nz8R{s^bYv%85AU zrSlE;XZ-k)PMIzMLUwj=eui4DI435@I|pW*A!jaodd|%hoV*iv(o+D4nOS$Hf+Sv5 zFth2BGlf@`{D~7sXS0>;+>|?8svJGyv^^1tv_(^Qwc)?+NZb4Am;dCh&|_bpB$mws zC(}sc|NO5n$5|_Hq2kDVqVHm~t8HK`&V8b8I3uQeSfkMqXVNXddrn5+439cb%)6MN z;UQ;cevXDAJx|8X+yY{YgEQ$eh8rKZ3pw$mgTg1vXx2##I|BpKl-2$b$1P5tN*Cv| zM~-v`0Zul7nZbC%nZf_!=mq|F+*vRaI^*D*vsrwnG&6@+W6q2~ES^Ul+D&*EaTIoE zoMGw`iqa_XCaG`c7H6nn!kNp@ah13;lgs8$=BQ13`OpttIZU9g9Ic{!^oSFE{H<+m z?P*@G)$WhpB`f#En{CghcpW-v8TQeiM(_Ea+NJKUPPeDK`)>DO^`B5~?NHr4*yz}} z&+QGD-(US=&&Kid&H0;u==N^?+m(%fb3Vr3t-G;s-OjBa-78&b3~b$%;n(keSwMrk zwAGoaCR01N+EZt9(!EFCTlh*f!!PZE=c-(JXER&nkJaugoEr>FA_x=%(*QT(6($)6}7yzhKh zz4RnLiZ{{7YJU6sz4cOIxte+F9rRVSRGLn4{kqJ*+qKm$d%-=hIZ@QHoUj%r!XG|= zVDsVB-oxM~&mXAET)78gMfX7UYt{DOtbSs-FLM5XOijNlGs9nzUTBVVp`J=-I9onn zkZ0`95o}LvHvuXJ)sd0oX2X^8<$Nh!G?*F4Vjdtqf~^s(ksJ-@#K#m)u@A;a9N=`> z47y{6vH6i_Hn}rAjE%UONr#LUmwWJ9(-bG)N~OzJw0EX8x-6S9~%o4jE@XE=kn#s{A^ag8^`Fp zx#HD}gMce~n=e;piut((;Ic%h)L6J$awt?HKH~M)M%p7-IO*KT@Gy`$=>A|}Wk-B; zE%`v$C$mJwr^?Pq0)XNthcS@`yAF>N?(>@)oN~)^&hQxUq?M~nsQ7Yt6p+X`R`N|Y zCdJNnh7-qy)PS}em-Y%$z&xB*uwgg?o}1O9pa-JxPpW7d7`J zfjKe&fOP>mntS)0lMreJ(qLB6nuj<>EL9jPo%kr`h$%%J`+|rcz5{w5PX)7qewb z41x1tTA7|r7hQL{f>c7c54{JJP0r=;6e4}Pmc+%#bTHivaWR0=%#~}^rEA2}j5-S| zm#bGkFt>7JeQ9##`qlLdAFABAwshgr5hwDcd!lXaDW!(pPu#Jea5nQb@1rNCJ@xd~ zo#CudTF6FiG?ZOmk1lgNf_W_zZ?(>kjIDEx=;|&A_5WsL{rBb?r@P~KmD{(Dxn0k@ zUDegyFV)xgt>^xTE8bpz==OSa;qV`=-M*ds?unt*oy~_=H{J~bAcN{S-&1$HKIQhf zU4Q;-ZV!l6Ir`p>TT-`Y(f-mUeE%%!7pCuM-+F94wubcDYWIBy+?d<*=bK}0uX}KJ zbI9#WxxG9w=MOb{*KVKht-FUBcYptUAE^G?_s_>R{y=C?eLb;pzuTAb`nTXH?Y-S| zCSTwty0q`#T>nmS_r>Bz*1w|}-&(Jhc3&)gWW6fo+6IONJ?g$m3aZMur%lE%_`#_& zS>mdafHg&S#KorPiV%$)+Ke`SjgJJ0O&rk9d@+Cv%;L;!z8nYC4hJg%XF`5*#tD~D z0b*lM&oP?^94L9f^6~)msm+Wy6GdXVvAeN*lAsG=^fEH)xHH+Z0(fG0%nZSu0imVM zkRa~X+b{8PuLKQGra?=_L5ry|sTb#N(5DSzA);xaC2Ysz%&C^srL03}!hT7Z!cK>< zD+qJ&Jy1oUyul&Fgk#nEou{u{!(YsPzw-g!n$ESQ_pe;J-0vihJNA*X+4 zed)sWCFlCprHd<1f5^GuK!ywQ=)!s!lr!QK8My%U0PiyQ59EiZ<4!SMnLCxQ@?<-vgLX7mN;=6)1UH+4!KdX%5fsF^;1GTrCl#N7|C6P-_ zRzI<}&56m)Q9>X)n~z#}Mvy?1e{yTQm0n)lYX9iXw(l4C=O67+xN)eqxW}tKvKxoa zHV#ZTV%y6p{tmIjx4(6+DqZL*mSSLqZ^xo_L6)i9aw^9i=RXs`d%xm#X<_qlAlIF| z$31u+B1!E0;kw%^BFeAfsnM}@XyX)@&wuZ5{pPF3`MD4~gy(k=GCJH|8+8x0*Wzv; z7Nqtzps8i|P_*xUyjpe-^MeSl++X?h{;jTi-7a9#uGO8|eQO){QcH)T)Puv(^M^Nn zd-c7)f2gfqUfo&VLAm7#$SZfZ;Xk))IcFtS{6tRXgP3X%XN6w?u3?`+R8Lo>YHlwQz%CGVNk`{BoLUsr0mLICR=nD zoWyZ2d!m?4&k{T{#+5HY~f2Q$FB8|DS9sx~y2%NA#Veujs!ebK0F;o+p6N{#_ZU_va8 zFF88alr=((r!q(Q78W2oF-JG>=dbqJOb0|+eR0JnZ*Adx#=4DUfVc5Y`kXpx| zY}V>1(7YLX0`B#=lQ}(+p3Tk?CySlW&$H0%9dX((-4$)?P|_mEtC!ijcT`i~Ypd(y zO6-6l+(uh>G?J_4WBcnp3q4GjG$U5;sV>A~ch{>6J+aPubtSeBoa;OEZM5FwC)(;g zn!OKCiG4Eb(~QDp)*Ef-3aRfE0?WbLhqM&p=hbSp%2<>0F8{)-MMlAeHSSgoakXw|4 zdOcJQR57Sb8U-sJDg#2~PEA2IlFgQZ2#3O*8i8yQtkO!K81CW-*#A(iL{rP8(FhD| zxQPcCZW{bBbeF+e2@tUstj#DiLd^^hh$V6%PyzE2txrHwq+)C(gIMNCo02m~lyxFK zkpl+>js+!WNsnJj&z{Ve9ir61zQm6Ysa{e!ta#G^;#j>7K98vN$*HM zLJb0;g|nd4kWqUtP!4F$PWm!S1|~qaoIQo%p}k?~DtK>6HswHZtKSY4h59y>m(ymJnC7WiDz>JI&p&TGEvtNc2KI1#gAf{3S_KGQ!M4x;%F-eLQ zk6%v?+x&VG6KB0+MUatWk^w;=LFmwHB>_xg#5NXwu(062$C>$86qOLgEE$L6o{n1v zX7CZvBK28y!EuOk1asL6>6>jK3cdVrM>|gzbE>4AeelC%l|{DKE0YUrvlyNY-Lv^` zUkX)TAH&MHSo{)nFEUYJ{U49CwMElkH!6q7Q_=crYBg=r(TG05aGeA9%Pd+?dYh^L zTknM2&<3iGdCwH*fKev14nVgB0ce#u-dvDm3DWG(6w?z~doY%TT6I+rWbr?+3F!(5 z3MsrvmJceS;*MJ`F4DB|kd5-)X?q2xMYYI3)uxz+LGsNX%z$us%Y-#^?|U#;R*uDiQqS~;V$^=U9h^WRKAU#zBgYVWD%i=rK7CaPW( zRaP;#T(s0S^*qv2ASXO`T`Zb5Yqj;;_ZDuwCBKqOb4ilRKz(&jRaDmzAGP=x=9x%| zX$m!IOX7fLeW`j7f<#liN$U~EZq%1VoQ>8a4pCCGeRv~fsA(uWC(>8Q`Vj}A^1#{Q z{orjmQc?g-ld99~b8KZ_H2`kWPXNy~n^b~GMFD1%%_$J_vr}_`6HzbV0YsIN7q%)= zzIK8@YLNlzw6|d(M0(S}HbAM0Y>$>O>%tAfI`Xr3Mj=@9!t38K+uX~LW%2#p58a_# zE+)PlI^FRR>msJc1TbFOy(bhOxL<7#-gySHBawIcL~Zz(j6 z$_Jm!?baS$=n@e3zqHC#N*kj*%J(+f^1GW~DR2GG%EmWjR876YxJuIGcJDF(JwZ$l zPbZj0LoOUL=6Srhz&fBp%f(^#ZAL-RPJ!U&C$o<`K*m}WTgGHUo8DXrggN*bXkLOD zU|mTwUV z5QI|!00sINN+0Pg=Zm%i5KQobKXH)Zg!Ayp@B=(|JQp-y)faeKc^bFcbF}-};3&)M ziRK<0Q;X?Yrtg>DK12N(X!% z&+dTLPhaoq&%!-dvF@{+sg952J&`+9B=)dg*WCPOztgq$~>I_{c~)4QLTruX-!yV__+1$R}m-Ae}vM-k$Gk2{ON-*^~@2tOx}WAvzYaZUcPlyHfwzbS8r-%(W=&Z^tB<{sGnqI=-kwett-X2{WqdytjztRn6rt|tl2Nl+7& zfU{pSf06+G03^b<3O)n;ATAmfK?IxMTo1lv&6z@OXj9R4#O6#uXNDBnR^!;vVP*q+ zF_Z<3N+<{7a3}`~;7|?}Cq52-Fn;QX}_;^o0MIcKmBJuVj z36WB~!Rg`Hj9baGR+3;?U%?v~OuaGFam`8o;vkR%q*J(4PtoRKn;z9+w>qGLf7(I* zP(JkT@wmc(-`&wZy>-vMRvES53zUC%9P(!EhXn?)_4eJ(KjwA|hki@5qPv^_H2;PC zG#B6&H*e*?nA`jv$$3c{7BQlp`&@pxniElT<8RBWx%_-)Wtm$QVV*${_W#RZt-zoL zVK5FDl&PQ*!~GFTVS18@jl)nGD(|bYNPWe=F>#P|U~u5l!R!UJ+#KntCuPT}4Oh4_>>llv>L?xJj*Zq7!)|JIgr~C^)}bq75GR@>Qy&CXz+Eqx zh<3xuy$^}Dom=~blNRR1=H!|fw*e53b5;qv3$z`T(bs(j$~>8efKD`KR-eY4j6Ojs z(I?nvP!YudNc2FYfm%a%Yk=0se(I)5uG;l|-I+U9tNF<8=8=39fBW;1JXrM)g|j&tK=c~ z>}q$%UAaj4HuPKW0sM_d%5K-~ZPsH53LciO^h;#F4w@V9ep7kGR7|`qdIpn^Jh&_G>xK$(;9_qXJ z5S&ceXKHx|u2NhSECL*^xX}4tw@V&+wmOzY%>u>+E>rNZ$eVcpuj`m-75A(p0zOy6>$}`OPlqGQ%iRayeZtu?K=U@T;vJS2w z{tBBD?m=mN^KEX=vQ9#MdBr>}$Vd6hJVC_yy*gn!dGpn=!ndZsO>VI}o2RT6;A|@n zvS7-*Cpk2;Q+xYz)wEAexw062JXkPc-nZRe%pZTbx*pxZvVF2%m_~D5?m=C7x96=g zX>N=az0ckJtG~|`Y9+UCGjGOLdt6rr&T#%9-5wsfe%3myWA|Z&U3#gP?m_luA? zZvItayUcjecXe!omyY$O^e>%MSjKH*|Bj?w`MfpW6&6DDKeQ6h8hDE4_Aa_ zY5bgV{?L1kk3kT^(Zfm75PFTDUYvt#Q_&gq_2tZxPEz-rQTPs)vZahO3cMQn5Lxw2 zR$w$EzO^?v%n?YyriSrg1Y@sRrYFO`LDGzT7*5n$%8Y#2x4LFZ!$DJfBw4srZJuaLDQV8M+r7Q>nuy!-y zOu%UFsZLa>gIXm&2@rBdv5?L0VMk_T4O!|fE@cFBZzrL-*H4aMj|x+* zTU3h;g1O0JNk_mru(ca@Z)+r`L&J0=2sO!&OP;RUY7(2v>l{w6L0!N1kju|6vu$fBXp~QMTfhq`83q_M#m+FWla%$`|4OsHn2~^86c2k_W?$gN9Z)c zvC)x{VvD z8bSn5`gc@dRAsusl!*UGp@;TGSkpnwEjT#ti!iG=Rpy*4onqA{fuk&FU<|_QiUeov zSW;$TuP>SL^4@hu4~0i?cCx5 zO8CmlJZTI(?iTu5pYtZKR_19*#4}n967mAPH?4sn7@U-72f5vsQqCpvml@?sp-9jA zl)5_-$yY5!c6WDsq563(DnEU%SZA2JyYDbZD!!H0W5TsmJyjA$Cs&n+*l@knIQ)f7 zX@Wl`98Ki0+~g3*{MC`H6m?%sm+(m^WKM(- zD8ok|NH*cqb7C9Va;yC?U!^k&;VggNg01-;71FxzqlINuR={`0(jL<(1T%K!apUBr zC|J_32&Y8N6Xqv72&x8vfIRQL0UH8Fg`Ci=rLedS!|XsMhN6W1NHI(Y5|H%CK3F%; zh$)KWVep6urUE8l7|W<6Zy0pbkho!Tc*Q|H@QLL8L=WH)=z9Wd2~d0?)TH5-$%blz z=ZO?^W->fi5QJJm75x&9ZI};%tO}+E$e28^riP*tyWn|cfpw8VL9wYNh{z7Zi>5zw zq3T>;T3@<&1IO%~D_57UU7#obq(y)}(NTDx=Ty~Q3tVm#F`%MfCyyk9i9|EO)RJ)l zKka;NJ+Z7o2mD;v^fvGJlj6MH#ToLK>uwG+QTEGqCpz*!{NWGR@61DD+6lT>*fd`(PuLwu5!@(Q92Jzn<1v_FFUc!vWp1`eEHD3(qY-rkG@J_V%{tf;fU*vT zYJ-XLT?L7l+qyOY!8R<=(X^6fo^(+2lp({H>*f{vpXHY2K!_+gpyPPKqT?H*>F-X# zda(Iun(1*aEfj23mHixAqn=aRlUvcI%)`bkgUU{=*ZYdy_^??vGY~UsNE;b zUv%da%Uy=l=2m|{)<(+HgmtVgK!@V6TKO1^aInh#agx;)wJ8#hTRH-hnupw=f>1yw*L9y&1VU{30@z)H-7ptg&BJ(m!>T7NdN@j%P>*Sa4L8Qll8qtw zoxPN5Jcgf|oWyMm;`zVI0V>vAl6tT0KloS%um4pb^?QMoK(3$l`bY^4{>q!iWSgf9 zP<~qaz0xJ%$}HCAxSjYJGcrM&hh%WevBv~8a}C)v#Cehafx!o?K-dw9LR63*8$Q0! zb2rJ=3D7&6sH*;fR*{Kp0u&OMm7Q5|KoBGe&=$t8q@@byA>4jO;aguhJ@QNf2RCZ%8@*mOW=HVpZKf}{mZl08u1oCLZ6{>3I?WJ@Z%zzaBAGY&^L z80nI9$VeBPUOVzyz$}UlMY`Y@=5jD>un0yLKFDhTN7+ZyX>=&Fo5(~0h9X8$YCFRH%CIC`R#9&nZ}ka8e8&c>?$dx|Di21cYyi= z!oLB(2CLQo5^5D{ZBqRoh%& z52)z)$ktosR2f70`QEKN?%jBd_rVKpFaPqNk7%O4@k6`wccAmXZS9iNTOBLHf$VJl zMJ`>v6|1i7d?VSl^%fqR#y8^@>l=Rzmj_T_9QN|O%{YdTVKa?^7U6=}BhwQ46F9*@ zU?z+#xCbEBY4CTn@^nUtBIK|=jJS8<`>-FO=?UyUC~1r$G68J1dg!3WI#GpBu2r1FhZb1iUCAgqReza&EHVN~wily-H1XOB zoz()WwK5a;9lu09_aF{D7^MGRF*nAH&5oRvK|>;Nlpe z+rkX!I-(#|uCA}#ICk~Q%H-EWCW!_Fn~J#XKZUdmImAm(Vw>viX5Qmf0AMn*yG7m4u|+6X?AmB52rLcI&mOQ{t&+>C#W>N=6v4Q@2yHZ z+$H`a@i`^8Wc7ucVFXp?a-y>;G=`;J1W{DE@bJs`n=yz@-m-JMp` z(t`K`Z#*FQ=H{#Kgo6X(sQs!NllM5Z^b`WMacgdubW^&bUS@;bI|*RHhx#_(CJ9!o zOs^EmY_tF>OK7#_9wM4XQ`4t*XUKh$V*dwz__bFcmaQU?o-=#O`S5!b}=;?;}v z+cNAzFljngxvh)5s-6iTW!;*QZ4$COOKSs>^Dim2D2 zoH)33ua$Vq$P01clE4hnF-GyZgUczDw0v@X!9nHV*K7=hqga+Fs0`aWOTrl-?jaO9 zjMhWW$>ae+2Rt~!WnsQDm!De1^Dz0)(@|QAdgSpiY#X*x5MS{nK0HI_h)~l+&cazh zY=lOrf6#BS^HluRT~}OE7XgEue$X2K&d}Nvpw^f@fltP0on}pz6!JqYMMu+n1rD;W~`^4$Iv5$Mef3%=F zpcfFJnwwDvM)>3TXqBG?Ro6HEgohl3TB98O_RUv2z!pN0B}-<|CX`A6JV$;Q932Cp zi79|$5PyP=P_#j@-R40W$|5vWfH8siY(yZT+=4k!Bm`SbKwS~|K5<vn!g|4A4s0AD3=LjvayH9+8J+1g&oHJ13&O`Mm?1t9KC;L5BWl7MJ_%mXZ1^N_ zs=;930K>b1Fi%q+Bz|FVsb3VoA%X2LIdYma0S$wX8#o%Thbc%g?qf#Mh+8ROZYu== z(@H5eVO|jA#D5cLFn}q6;rwnumEkAAHv0)6dxN|%1&X|c&y<8MlA0CuE(Boe0kL;> zenzf?AQVH5#|h5>;edr?G>%;GeDVyrfbvm_G#7$p;zyje&tMV)*#1H- zAyOFcPTu?9L}Nv5EbTQ`N?Ie1rYf5W=08N`v0>&N6$Llw+`> zYX>;K=XT(WDXP?Z^Cwmtpu8boe`@CleY)!9b+9#g~>}&Kph2+v}Dc z^wu#c%S3I%*?hZ_x2jcUd51-bXY-5I&&X{H_586)wHX@IwiwupYhiS1iZ8Y#LzT6slaHZ40;6AnhTC)XIEDhfXSLOC1Np zIna3y=eZEH8PWxGhgblfD`+Mc+*$CLU^=HLbQH0zWLD>x9}5)E63Z3f>p-=TMQg+O z!6%MHiWVFpT!9*-(vYQ>BIttMf~^4HqiN<;I(dWI93_be=sQFO0C?a9Ii1)UP#oz^ zBZD}=H<_g$ z1JwH4Xm7~rj?G>chBZna!^P?jP7||<5iX;|^&?OaR9eLo(!eo5a|vn*Ny$k%RVUMt zo`DC?RjyvRxP;!wj0T47b;dt}PGDsM0Tcl`)@1AHW4j%kXD`oL$Bl^AvG?di8p;z~ z7BM$JTRt|0sip%*7&INxnVc_`7U>MnF)no!idS#?@hqpgiOQ2gmLY&`pGZPUj0Va@ z2)Iui-XxmB(p*3gCR_(1vbfY^0#{aXL1?VP z6HLsEwFu13NaveyE?TbS9tUQHcuIkf=@HH}6*=!my9H1xwk3x17!RmvAdlPizCAN{~*T0-c^XsF{x=neE|na8I*~ zkxK~8)&h>GsL=u|Mo{fvkYVjJ-_uf%BSZ!pBm&eFf=~c##^ybHa~*GLfFmBi&hGlph=CmK?rM`A)MIu~3_GY@_K3HGay^l) zK4Ebz#JXSkrEZ83uswZ&U#&4?Vnqvi@;6F;o%ScUK8Pzp_>;_IeW#PxP`tS~K>7qBc4DpW~8@@a^50xKTM0SXA}4Tv3(GrQjXMR8j&^1K+J1O=H8gyCg2 zeG)2<1tOw2FAKX}*;t107?f6gR0FKCjzBKT2a$YNONk7?PWPMd$}yDsa4hmc?^z?)6c;y~ z+^-w4VbN?BgPInfGmQFrl<5fZcNFX{Ko=M^0@Do*vyHRJ&%gr)6eOL0uzv zjX^hJCJ5||d4yQ0L>dIapAkA~twk6)YB!`o`~E4ToHdu|VV2>&m|cJuG#-7$G&!A! zLCpdn;#6P*^Q>@){#Tron%J8~D8JacPk8g;2L;AhqrxOjFUMrTQ~Grbj>L%2v3Sg5 zJHSt!gPv*@flTxrwSwiYzr{Pc)ZHDiq&8f2w|2Wb5|tGvTU`5eG=iXch&%vqFr1P> z@>^Dg?#RAenZbiswmWiXS$swcYkzq0perHxOl!7dS$9vT+trRcGo&%OKduXkUTzFd z0g=*=|9ms%##Y^);x;$Vf1n+Xp6}ZDT|f{l*0b3nDdk`v!DbhWfEU$-Zs`f(siv6K zq~Qsb!KQ~|B#YCG4!rvSZ~-uaQAzcaEi{EIg5#WG}Iq}d#6gO2R2*L>F+Mykj&-nX)^KAuI)hjdk%aVe&=T2rrvAdzb^8L>sI^z4}Qe~Md&~2;++)>hOO#*8m z%(7@C!OBx09=__wH)ESH%K>-CmSe;Ove8A=9D8C>Se-U0O@6O|M9z$^lsbj>3%2kPhrD(Sht0$tJ!(;^Wn@0Y96 z`W+nc_MTxZ^`3!W<$@;M-GtWrD@#kwmofzwmO>G+->SEgllj@XMGy^N!h+n41>J(a zP48lpV`Aiv{hP|4LI1|?*`Kn^QP16M`y~sB-TGkW^OBVFb{qF9#u`wFeyXFMPJQVCji~(L! zKIV~^mtT=>dFzZ^%+c6?#!_b2g>UCe+~h0#SB;1K zT#%R%w8ya-=)P@l60m_Ju)?S_&#DT9SYXUW2y`l+Elz@M@R<{0T{G?^)PC5gM7GEw zkhpJez`Q>(lXN{B)k7S7Co`Kq<&xO#mm-&QLBZtQBu~sj9E|LGbB3zT# z^GxkOf$>S_*V_v?jJolIz^m`ruU^5D!bIzNzOs=Ba~8~iMpk)BjMQ8~P4Y^Hj?j_V z6MzXYy221x6Xt711jm~zUOlEcNG&~&PBXPw!8lH5SSvzMVLZYXdDOf7B5)0;Hk1fiTXqKYVN13)kz;G0#$ z!00N}Z9{E35fT`!?y`Jw=FSBCpuz6z0 z`g|Z&*Hm9B&%hz>QmS2hBv2IB?{NdQ`%-!MNW73=_Mxuc-4)GS5!CxQf_lu-8;FR- z*Jh8L^WjjlH~+ZE(H_t67c`bM1F970-1;*$hA!hy8tv92%(K<>@*pk^%MG`!&JL!a zv>JHTBEdC9IU#RfKf^dx*dJ}K%b#xy%IfGHRNe2qv(&zo(Tl+Amm`n7ZYP@yEO$lT zE3KYCP)oW8M7%xf%8jQhv7x#+y=gZ^uJONBiavSs)t`rv04UlV+8hDXbuxb{I|$2* zcZ6f4nfzJ~LnCB!3=(JH2So>#?REr4r(n5ZSe`;Tp!}vQbmX|HD|CNN*r8zm)zbCrZ> zE|cCJ9Ptva+Z1bQ4PwlW!;l zos;5@9iuKl?m5PEjE+dP$_5cO%#Yq(LbkaCwvpE$^pC!q0Qmx0DePn`MG8dYp#eK4 z%n^PHi*BWOA%)YTKn3PoFrLtj5Inc?7R;M@3BJ%g!bQnE@|z|z7C7z z@JxPA#Biz#r*FDc){Yn}q^lR#+^Q2alu1GyEXpP>(A|;!)|>9gU2YH87UelE?6cBz zWuKR%OZ)r;tIqY_J});)H}_d7X;Uxn^YUZ8A|`MXv4`p=h0FQ8XS6f`uf~Q6^+{T^ z4E@=@{jy%P(&)+;aJy}RZ?|Qt*fdt$r~9}ySeYf6hQ=YdO16Fb$#O|@@816AS#xXd zbP??q{abTMDFb25!zmuunS}HnLXhIaAZSaFD5Uph&uQ%3U`6p7SeAdbfF8;Gk?dE&D&2Ab@x)lYkLWzlwJZhOFsb$6zU>rG`+Iq!r>)=i4>7Z z$33Fq$!-1xUFsP@`cyqoW)#}cu7H(p)5946B9Bu67FEF|e4fvv35q&=7Y7#dv{!^6 zAhr@_Kzvl6cW?W*6jWY#XAACqw=;1-KHG>w5eG%iD^SIKRyc5^etWv{*cYam)7Fq7 zH`_idY8Od=d0O~Fk;Zwq)nZmc!z5*@ceK}V6+mhlSJ`i8@b^D(y_c(qVqY&v40L9G zH~Ln0Ka|hkOFoYrXKmrM(oo;2$10Oy`VQ0{pG7uWCK%9RlnbFB80Fr3LW&q+BhqhovYWby#LzL_3MK^F_aJL6e>_-ptzMW zYpxA2TU!aD&wj9bh@4@SGPZ&WyX)^krJ=e@z3D|1(M@y!{;+$z0fiXJ?D_7SXVnw_ zAZ`PgM&SQ7+>-QMadSMA&M^R=`AjOU=9iSHG^1y3-JdR0m(!v(;ZhnhMU<94bop2S zFz3S|tR_H21agG00Crvw5zQJzbWwmK@V zc!z=YXd*&Q5=MXNr-th3TEz**zin$=c(E z#=%nK;7)C{B-dRGrqX#lZZl|hHE=Ni!F8??-M#fNUg02Gp>g20zMgIz`Xv6nl1fiE zdZh-GbiQ@jn^*?PQIAQIe8I8M(uN_j>3o@AGeZhpR!Jk^W(&^A7w!VE426CZmqpOp z1Ve$-QUT9#3jXoBFof--z(d6uC>BYp2Dez$r6+Sjl-ieLs!T01L8|T3w zeWrPvSCB^3GdVG;m$7hIbsq+CF(I3{2|iKU20V`&pxqHfl9AICp+wDPy?eq*_w2qr zn|i*JVO7_sGs`gC;8=JDNB_wr^!28y9R^^*l>>UZlXvI0?zq|ZEc4SGXgsrhzL%qM zYwYc>;Y=ey&F$I!q#N5g54rgJjhO+jiP>}FLWuXiR~&BJY-GY5>huDIogxZ4 zm>`ph?JQyp9DxD7aNarymZ+kR;+zx!hT*|k;18Mxsd4v*Ur6eX&Rs}eqmYR^*1o!W!^jo9s?pxjMq{kOPv zM#3+`f#=NDgQczeaIr!O;c=x`F??|2XBo{EfGs!vlpjlk{QihL_+|78J;ZekjTrv* z+%9H5UZkE<#`f)Rr`-c(ChmIaR1*UYbSMFM6&;FJ#lwd{A|{W55)s(q z2&Iq9Y$G8fqcLJAjW+ z^@h`S5tu|>mkh^1XPO#?E%n%4tWvli33#;m7ouo5Qx$t&6VNnzcfXp-i+J?6@UY(Q zkxgGH_83S-0ho8Q*sLB`$r1cv5Gr7D7aE3a3Bm}|yVf*}VH&4OX6THK=3A~A><2)O zU?Oa@2?47QStYavu*6!^ZYRL<>BL!rM)1?YRiKs`-_OVz5fA4t4`FvhJ}r&T|A4)$ zL8#WYEu9W;@y0&>p@>Y9?qM|Xyr#N1_3>4c+}-?}rkocm!#ohOY`>#8y^9-1@0>2- zr{`8FS4~4Kc%hEJtGmC3zo(x?Xlce2XR5azsp2+1(fN2+ev^FC)J}WB6MdVu97Nw1 z;m9D}da;tsl(NVQCZf3su=LHDVMfJUaRV^4+-i4`^)Ln@NqKHM1VwT;CE!Kgv3bBt z?a2+`3!VfT7=;HHe0`ERRLwj+Bzq$GJ|tM058B3{_kRbwv|S^7x7c)~qu3m^h@g3l z08X0O-DlN7=Me2|hN72Kngy-L=D$g?c!+Bfw+q$UACYhvyPezJ{O1LhCO7{{VXK{D zFkzpBHfSrP3*oKBN`+1eW72A8k~mNf7o`rx89L%9D2$=5-v!gW9QZ#%gAR~ zp$%#(*+D8S)Y2X6NF!dv2f6k)r}JP^zLJ|R+}?dL_j0j;yS!t!3%i?cvC%dS0C}RA zfzx`}{?Y-bgW|@)#-WYB;9_4dpBGPo#-Xh{-2**+0&4FiF6IaIjsL8AHXjJjZG4&( z4PjDFYD~rEa7Tj+UAByPS&%lGGFyr>ICszte<1Hc&}{{!fD4Ld6M`a&(HhQz^*Edb zdqpUV6wf~V(beQus#(q<_acQO=-(8&po8@*!5_^}kPZT{1mxENfs{ z-rz@O-I*?_BFv&oE9^HKUUp+*Y!i7ogL8KRrwHb}HI&}!Zvqq*w~14Z^`-?Xa>T^` zF@s;4nAir;OPKy+h=D~Tq|vk%I35$62j|TY_+~3w^U{)5-P1@~&w&Z|nO=kV1!({) zAv6VPh|n;efGlvJ$dMdTBautD6ahWcBH&!PD4Fz716|-BX%o^YrxG0Q5Ijnz1i;}e zfDk>Cx(c{i?>0tox)Q`P%EWby^hjj^Odi@AaZd4#I-(whPRp<{6ueEz8mf^08wHR= z$PQ-Q;4Od@RHBxSYfs7s(8J{|B+a&;zy;%XWCU~dk>x5a0cM$ZocQ9+=s!v|4h7}9 z?#LZJjqAR1f}|@E#Jb~enTVc0*ns+{4#~H>`>jP4l+O3z3b{V{%-!3soH1IZ!Zfr> z)2vm(`^Md@!qReww*J|@keH-tw`&^_XVN7%M*nc*qv-;Um36tXZQdIE=dFx*>t0R7 z+wJZ;P~3QkzkZ$qfpr0qzAfV((va%zA?etmt^eiT?yh^>gB!=BEUCg8ZDmm7!|p+e zDUEX;2OEb;ZFX2H9p3uGd+}1QKfzOYli~`ww>M{M<&6RT!f$zPY~0t~h0EwZ?mAkg zx>@LXDV@;}J-N(snimHbjT{Dvg2;SNu5mX%?8E9YyO_guC{i0iM7!@LDfIAG@5Vak zop&&%-P((;v-P!=jW0{yK;7-H72STQ2sg8CKW4oj^v>21L>Rz1{8A#s&4VNmp)?N3~e;Y&E=tezdR>nN|Gr8=|ZY5SV^Y9jKs-rYo7pfh;n`Ih9;gu{utp-o>>c4aV=ExI_&?5p%y z4kLsruLc>{j6x(gZA$e1!CbzWKbe~Yljpyp3joSEtl{T`3e#0xrX4CAN4#0Dx7vS- z=4Q$?^*`y~>1Ovoi8Dq4T7*D*;XrZ}nOfUzIYzp?#C%tkvVwp?5q#e{>m-_7H8&0H ziuL5%0-6^M&S1@%(5vc)d~3;Vg)FKDnm*2CWo; z(@K%AoJZJ`@ZJkGMbWOpSPp`7CZ%{&WEmM5m#E#*apLuT6LtGvj#V+3NcUk?qzTl;9wv zeVR$=d3f5X4p+56IA3R^0NGh2MeduM;e zVqdMtZ8IWU4hp>YI{F@(5V?)o>&M%@F}3K18Ls)nunxql{eX_5MO_&}*M6E?B0IKpMyydOso-Njjv*MOA=G5>IVs5Eh;R3(S`Q@Fq$C%V>29)+gUc z@Iej^@JY37f8d|LwZC9nD{f;#et5HC#~HvsGGT4pxzR36F5{T zd#hbNsIF+bx5q4f1WumF7)XcVt1N~+9^Xdtet`3&%>yzgQNVVpIum`i@z)H#!4~kJsDY1%zQMhn^Rd zs`Drb;|v1hZ}1!el%rlxKt(*3&vtjRgm*J97(LvSyqW+{@0nrTOL-0$f#_~JAtZ+? z^wW5Bk2q~#YqD%4pbcHkMRq^Uq^i*OvQG_EN#5bVlQIlIU$>t9x&}>yW@+txe(hBN zw4bu-w`!}4!?1yk=97$c`v*S&t;x|wMB=5pqs_w0U6JwI+aEDYN^>yY7{H)i%18VaF zZ@$W;bf_`Nov4ijk`~5c$xeN^_*B%Fr6g<~`ar>BJkcX~CL;k9p>sy(PzFP9K}mv= z1x2y5k4wd2M+}llJ{2veJh13sctfvAzzN?m15UXq4-jZyAp;WTUnm0v2=a|9xF1J6 zS3ih94$?w3WkUMnrh--|l|APD`w?i{1D_dtM*<-~)gP8Z5mL5Ef_vfc;e6FKeFdYC ztNCC_=CHTT*Tm2otN03QlCywUgXD-5_(>CUZ4M;Wi)3pQXSeM=xn99U@ zGGZf6EyoVP`6Ra9xtz{;=eEhInHw79C^k5ZhA5nsnME)B2-KlSpEhZ9le%vVZg#J^ zfk3wrWS%W{GsbO(MlzM3t<25kOX?g4sFFj`pQG442m#pNo|g#PxVIQ5PB%_SX#Yk` zfA{Nem;UyM!pn+GAy{BPZV0l1eMsiMv+{dj^MB0MzPkJmLT$#DtKrsVrZ!##TS8YR z1?CF;cn~FEiw84E1!GkiOrJ!ABZ2`OsqkkJ1i_wEI0*-n*vfWcxQkoK*NDXnHpP>h ziTCyraO|*J0N-q-0034h+!MT$1+(m_^J+xbP1PDoN3gGqm(YGj2nZm@YHPv~g&5>ExLKQI@(*g5j0l4N6!?MA8a?EW`zz z55+{W8r`5m+Ik44Qy$Du4H`8&8Dm7vZo6$? zS@O5?X}GewS1ySGkczM5BWj=@wu-H55+{wbLJ_igA+M4#fDpFT$TuZ_7ri84xI z3YBz$C2)&Hb56o{MiepA_iZ;uaBr3&tdQE%MuEQI2c+vh#cA#yi$KR#6{q6yNekDR4wFki;y#VjoG~EXHDHt})veh0zV&9^BP!JC6 z_weSpCl3ubpIo@r;T}9!`?*vj`mK$tOk;Lx(v>x?TWgBn_;;P!e|de7A+ijBV7 z11QNyAYc!Eq1ZU|8T>of==|2k!`L?8+IR=UM}6aMu7C~iD#eOhnR|;{Z}rBX>uN;b ztBUNiCPWq#>_31>+32?;u!#JNTuI#0Hh!O{1Hr2>5ftM8=3o7Y&g6Nrg-^Wb))Q>h z;O%xGFs+o@B>yWU8FZ2W(-Fj`3Ev$z49=!f3tJ@JL*=8s1dP#EiVSx_Wo81ZcvT62 zi3z&p zn+yCBO%Xy-BKded2O@cV(dSc?((w=fkvL8`4%*}#wtuUU27-m@AUM%JR{#McJ%_8( zLzE7EN30BgSWvh63CPRV@I%zaK2<^|o;{j`l{3R6+9F7rZj>ZuoNhBT&i;^Ti@@h4 zo+ExiQ$(e}zI_SIP&BP7jSdEU$Sj}i?rKZ7Z^b3wyu}@sTp(r+f9!|jr(W~69NV`s z7%?Te*y-9oh7(rw{(6^Y?_1mXtUN9wNW5ltMx&SC-PP--tmJa6&67vKPr#5aF=rm7 z&OgebRUCLMR??MPJu1t}U5)>1fB+cwB=3Oqz#yNQkbVU_G{}9lTAAoe_0U*y0 zP!94hR+xVwJo2xpioGcB`G+A=Cf-C{p|?|I4hlH~J+Y_7=_FKBi5vKBU^8iukawHG{MseI(NP~owPf89bjrYnx)?NdAy|EE5%iR}w z2ZT+AY7dDh8UonQoQ6yxml(F54PVxpLKhj7*+`&b7DdVCigw#m@D1?WCaoWBAyC5$ z?fcpybILS))z|u00ZYr{|JqGXkWyuC6^R>$=7W2wZ9m8TYG>%HqRQ-_2;=GVxCr2{-^kT z*W4|Ki&P}K3gGTk-^IHZy12h5RSfKG#u{$Toxw$;wB?MMHsK#poWVVv{7NffD{G|*xMSLHeDB-rX#mG$ zcG7+eq$_&|wI<~fFtPzio?dYdnL;xl*bh!&b3>f~#DqP~uqYcIc`y}};4K0ukAqmg z5!69ZA+>F^>qP|dL>}C}I#Ha5Nu2zwq(RUox-HC4fcPShs0E4CR@iM^Hv!>53PKZ# zb1-&6AciD{ntA5NjVqV0gQk&P@g#^FRQxj+-oNy)Q@rq@E6?13J`LpT!nF(Uzjop3 z^25&5m1~zS+_*tE6p{^PVi~V4-dMVZ@>i~`p&{5CvLC#9;c|7U`mj@4y8H~sBFW82b01wP1DK7EU%H=A1+BVH5g)V#Msp~gZZai~i3FtlHJn;;|TTn#u{N;=5 z&s3Kj7%As3KP~;CkDbI-i7;uf9h;^JMES#%r(IsEI+Ir}K125?e%K+?I9`#1{Q8BJ z%g5%HK8T@G7#hSer`ZAq{qPKi-?FlUH<&=aoM`~lezNQg=sFVMdpFU8Hgk;sBS$d7 zh?++eYvz@v23qeu!NgE_vdV%$7z_(>gNTWZ1qloLSkOblZ}I{IV($!=HpteF)(v`e z><$yBe7^gg9ebg$9)vBwn_m)ff*~ffQOKxo_KC`-xUYgQHevS0rm&b~xGb1p%Oq_`aHk0OVWGV@?Uc9y#e zTlZP@&TI`bw{VUTb%ZWh;xt_((0!-Gzw*MM>+NM{q`n-9sBio;((hnr1i~=UH7W|@ z!Uyvl_^7JI5<<=;UJbKnD~F6>1^zV#J6VARAUkOQOz2)bM%=3tlFi9IL3WVz2FS+) z7KN4;vAHE`BG~2t+|kW1ep`bRZi((tK?H}uC!p;$vJOy$C;B^3CiFWkgATmM!R@UV zt}i(sxUh1gpF)argaU8xOYGqmoIUYCOioDt3G?=AFdRj@hoWf;i})3dPTQ}XcE=)J ztQU)%Y2VtHk8b>VB>lhF{<45uR6SwfG(*s>BT_*Xq=xqg2QT?x{FO%sM8GKD%%Ov) z*4W9wsKS;L>cqTgG+Laf5eQJG8%UYcFevh`vg^E&o54%9XhS^w3O3I15$`1=M=7k znn;7o{cuM+O#(&!eelEf6i_a=uJt`_qS#?r+T-aXTtlFNsreO%2<@p~OC|T$ettim z+fvG+e!9*$W8(tP)6Vmfs)S#QJF9s;9De;^ptfQh#Y+-enGud}TOvKKA_eNIj)aWV zGMTU%!}AZe7;kzp1H|YUUIEO;$~wsWh?fJ`Kw$&m^1!SEbhpAx5V8P0hvGy@Gufp% zO6{1_KXGm8!i}Zt&IJeD3bP@{gl%x1rVm_s+PSg3{*SK*7ZC$;F+nSfI4fc1^1=syqQ(}q2a9u~Vk(Dc#`-urbT;vPaE-s@3_$n%1 zzk!vaTt}}RIeH>+p){dUkxK5Ai2*mF>Diqqw4^{@yv;3ua=8)RiKbj}@AqaXK}#<;BnX&U1A&pYwe{w1=kP{A>l98NDOaG%flQ zxhGT$ima<%%`>K15jlbXO`rI_I4hw*U>e4@FfqDK6`E0I0<;zuTL$m9igAbBsZD#8 z9B}OPV4gTC(OqgQ^1^Q-01-!>_q@mH7s=3B`Z>r;*Za-FY5kx(K&#BbNf%M2X47oD zXjuTu=$9}(4m3PS6Ah1O0yZ-r!2+J7)$$9VFC2Z^G){;D{sC}C@kb8DTQ+~P40dm3 zF}U_LCxf_s!~ZrX7EDjPK%=I4>|4Gl*8^fd@GDxL!Pa$8A(;8V6Z23FI(#*>Nt~Qb zXO0mYFo_%IC|n!uu|V<8KzS-u!PStVI;cc*b&9UoGXkkQ1K^mP%Rw`W*E&zgG(I2cb5g0B2EkX0Bbibk+39v>WV?9w}EsD3XrNiP<@f zAPt(9LhR9CU|+JVTXQf-AM)&$fj=etNOA(o7}yJxOe!5^Ac&}k>~#aew$8~IjHie~DU zf@mgu1%j5fL+X2-l0H??ou$hT_k%QR&)is9U%9ce>-ow9cBbT*+cgIW3{BoFy6?TZTp@2KApjZ>g>lpy9n0)*axm$Td#s; zf&lO|E+_RCN*lxeFn)$sj&bXCXI2$~dvW8VaAX5aEn(w-QDu|QeK8AQu~%Lw3NPWT-cgvt6| zGb<$IDELXk0RyIiXj}0oOgk2aP`IxVF&($`PTDC?c2Vgvob8J=t?-B0($osxcfKB- z6S~^magVH89aJngFhELVO^|5n5FvL4V5=jsy|TBG+1E?cB$IHft>EzpaSv7_oqOuJ z!wPb=Wz^>^K#TNjY1#*jML@r%N%Xsaa^?Ef^$QZS!vDQKn*t6DSAPz4s!3Tp$i)1JlY!Lp{%cpBxm+a}p15-9 z5_Z^i%sgA2aoV8ed$T4WUc?e;lLI2(V6OY!t4px11X%`F13Ytm2|E@4VHt53aHxG+ zUwLV>BQS=ngVwKH#O$xY^6?06TQYJM@%Rf!3C2|MmojBfmC}`Iy!Ek*Krt0i3f`OkS706)_x9L?ZoZV8`4rnb!^vO7f6h&xIK9@X7Fna1^G;Iz$vcpQSv zOx6Gg?xDkGE_<}T;or{JsX%ie-2Z^EJAzSRE|3r5wcj1s8Cqr!JLWUN;;`GbY6Tjx zR@uZcG(K-^eY}EZ z=1dpf=&!wSUT2_swR=JE?Z5M<5u%^bieN98vD>-!4Ekm5`SWwJZk=X0_@ecq^%n!n zW|eOJO?%Ngt;VfIv%d-DeXH@1E0Zq0KXHjsT47cSvG5qY!33`Y;x6zXBm>Wp&#m5c%YRkpVuYBn^^e!y7l33jtkdXJ#Pg>H8aw%R9{Iq`7Fg)Rp(F~G? z)RT}^WDZJJ4<3a(6)^9S)EoRSjdBw?`8QQerRZOADwXQ=R)EM644}hS2aIU`+FhWg zU+W)z_N4X6TqfA(P!~W*ye{ah(HyBv|Jq&Ao=o8PB>uVR82(M*-%0%A^fdDF$U~C; zVG8&k`j;w(X9J#$@sV(6ELDP0XZ$tS#zmiUn7LN}=v~vq_-kXB;E)>Rb!P{o-1|Sf zKlB_@>dSD8mODtsOK zYidhKSz>UK@L*Ckp!8t=(Ub}al8Qp4t}Oz+DKRE2fRLEe%2(#ih%tLgF`Yj-F=lTm zrt>Ez#xzMWoo`f(>0}Az|8@bTQ`k%p=QkjrbnYpj*yNn}?ga%*HQ+JJ4q^lkwc{g4 z-0**8K{nxR_x18qX>4+$8>t-rC&(N>P3^e!68X7Qseng9=Ja1CB_FWL=T1t3E0l;B zNO2d4pXdO$1aH9R|Ik!XD+gXuemamN3Cd4RNC)^c`iJwiV?WLR|JVFXwqEyAakBM1 zoXoV&pDee|PwmnE9{I(eQ2W?BE&Ef-?U6sV$G8w?&fXIIjGW@+9_2H8)xrWY~?P1&wgXpzq^TICbN_S1aKz)$Bvz~HCz@Y8v)5yDU5;ivHM zQ+Tjv;I9o2t#}loJA37~U{RP(wc=@5@zSaxwEx#-f{b>Pt+IRRHebWcY*d({tZcIF XLTk%ztu2hr!J7XMTb#+qqx1g)6tZ$- diff --git a/library/tedit/TEDIT.LCOM b/library/tedit/TEDIT.LCOM index 3b8856a03c2d5c9cb04cc8b2d497f1f4feecd204..431c7c6efcc806067e21e4929ddda2a6de5d0e2c 100644 GIT binary patch delta 10601 zcmcIqdvF`adB=edNw7?T6ey9f9xIxZNXbNThc~Q|aR3gy!|Nab6dzJVlL8a)VbT&Q z*G{a!PMVRMnWnKeNz*n>;$+gab*H8Xu@gmh(3$iRXePGPPFuS(P18pvZJL=-&2*+S zo{szN;|_pKw`pg}KX|u$yL)@Pzwh_`zHf2k9pSSdw|;t}B6&uWS64 z9+&UThZfdHS?SF3!rYbFE66^$nZ{R6dcXWKEu9B^oQMnuq0wp za2$jo7S@d!1wC#gdi|m=gf9q(D(B>U0nsVP^h{v{4JWd^T$m~pl}sGQ9zo$;UOA`f z)3uKIn!zDsxo z|8zHc@VUshE%5i5NZqxuh7a#?RpODm4$I|1C6Tr;o`|eSJGi}Q53djU@bB1yR==jC|zJc`65X@J}$$7a5 zi=-hpRMHhFpac>_3^A^_l90#KMOPwIEaa5f2ohe|FIcSd)?lPtZdbR0TF;ziH(B~_ zp(C@0-E?-lt&xq(dn%+@eOq3jTe!7brqAcBwT(Y%`>OhC`Il7TRn_{9wDCMmpWjJt z?MaoL)3-OinmYc?jW3pjZlOI*xBtcT^)%mqdg=LwwzW%zw$H1_Z(G~8{wmqieQZzU zD>p5l*1Lq6ioKTA?e&NwLa$**m|mlfD80rVaeBSzxLDJ>B6=5nz3@1h_0iJAafiKD zT6A=hf9>R-wbt#m>&}@YHT^)_R@)20%%Pg@XxlojJL|j4*#}5J7_dw4p#wc&A>Uui z(n7{A%%Hnrfcn?6OK*fNwQkg-Bl>7VqTezzpdZSXDdHdOAVbXz*7PI#pksGUAJmV$ zZi5SX^+0|1)|>lzU%kgU(^Hc-p{)09|DJwCrb|tyXq|cF0L;%i7rst;kLy10Y^SDL)>7L#;DdfdVYtD)k452u{ zP{|h*Bn5&-Pc2(e@#mwmv6EwtqJwtJ+?&rIeY1 z_*(BNF#r^y0JRr2J&XKc+MGswA!8msVxL9}uY_y8uLu#mdf>cGM5vak9(Xzn!FIx-ivOowNTB5PJI1{|!Qc>b*lx z?3x9NCy*nH|6YbKbPASsgR4vQQ@YP~M7LU3ZLXaH|JUUx#l>8EO)f_%Aa2|g9QezF zeZo2X+TeiT#y=Qz^zO*t_?^KKr%XGYFWq{!Wml%;J^0a~!-9;bhKAsOW$5TpHYwuX ziD7f3!A`lrhCEUT|IyHaBVgz62SJZ0;hXV(hsW(P+9b3|=#QYUka7%54gAIdTA+g@ zkJo5Q-;+oHqq*_-l>P=&7F8t;{ug|vmXXI4aM4s{0HN`TfUbz^+4L0h2Jp+rPgQ^l zDMBSLK-7e=oo(Sxg5P?e~i=WT+;~$^ssr*Zu#bS+6c+6Q! zY=0xy4ceh>(tXUzwrulCgn6c^%_-KU7SWcN$1F!EfNCwfPrJ*GBQ@SyZjyr4Qbb;* z&Xo}m?OwJs1-MY6v{kmtn+HiV_@mFw`uD!3eq_$N^_Ba(FD3VNRbS@Q-uQ}TSdt7; z1nZ~7@ZL3Bp9HFlnGtMxCRfaXODzJ~5HhU5qQ>-WOoj^Jz8#tYhIgt3=f}Ij9<@M9 zbQ_eJ)$K|NKb`8S!0tDj3BZ?vfEa!PWUPyRN)dU2jTeDb zBq(9XAR;%^Lc!ql8@LpM%!gA%xkDTxgxOh}DDiGU$c-MsCLlLB8;sWQz9w`DZA)%H z{^H2cl3#*|WMK`htgfTk6}0fg?1$#j>fGY|rS$<&-X1g%n_W4vjy|}sQbOzHd9?QA z{H28tE|5TvwX#7R;Dtd-tMhD_^6XRdWGoUnp$}eNxwO8px&jdw7S?+4J0o%73pjFe z${vnT z7bWy;5n{n07Q!onRDCkM(l*&^w^%x4NSYN?axKowBxt- zush=JeAK!1_WHodG~06)R>M!w)aDI@ush_X~Pj=Rp}I69s1*Ktn@vJ}*y=5{!;!$1_nSk31D1feR3AN9BS7R0L8T_`+yO zDv{)GROpEWXg`QHeP)~H(L^ANmcc|2W-Wt>UdgPWgK01tM8|xM%#RVl<2S;GkfD8G zqB)%~cF^?I-0uh6_>=O<3qFXM8rL*HYP9)2m&hufoH5T3;^MGxoZ-Un2dcQHJ_7`q;$Fym;O>8i=~&Tq-}y|2l2 z$E)S@)3;Tx3j>U;O%_1G_X=Jc)-Q;9r+E<2sZ-3(F1OhZ&wZi#B&fLB9Cu}I8|Ac*zB zYmZby?|p*=y6pa$NCC55LeDGOSk^@YO9|3TJck5`mPmq$AcG1&sbPbriZn+V&yoC^ z3x8_5vrQ61Hxm7D5%I4o&S9{EX4?kS6&tuDUjhgRZQ%p;*>?~mUZXLOwMC!zM#5Qv z0E$22ucz$CltxBBr?@hOF(6(K&_2hk1nW&cD>@ZTK~gX}4k{M{V%nX+TLes#o+!|8 z_ne01z#;j1_{=Gt#U@W&?n@C#$E0LRVs z_W=-*b%3L$3(fh3aBb*-ECRVV)`r9eVq+H@>u7FvD^NsVkOD;nKT}a3nt*lSgS7yF z$bACKRe=!UWsA05h6lF?-<&=? z3~JcG1B)GlJB{S`fJygPzy&lT5$xBjFccD4A_+1XOG#jprqxOAK$D9RgIuNY+z(?) z5&=@nZmsouQ8+*UFEq&3J9Vm7~)D7r$D%9qpP*VpXKpom!FtjXAj~ zh8K-1GqpsYX~}ZxLF#&GKXSOx$O`avm*a5=Fih>mYh8SkfZ!|B2k^1u4lBsCH#5!( zxDO5tW}uwGLErFd2=2zRN}Se%KjZ@45G=6dgn+`@3LIUn(-@;6Mj-lP0tEb!xr!u# z+9(_a!EPuSQ0T^%nvkf@XH!<+=iAK)ADH4(?-O)@>Selwr4sR*ITiAh{b!F^y+O#x z^j65p2>&X>AwgivYe;UGid;GRan2dc$t1mCA5}P%6V|!i8>oXS(#Ao|SFO56gePvhUp={?m7RYU$;k zrMKQJ|HXGL*8S7iS{R(x;27nVNZoRt8UahSRQpo2ME}v`3N@TNEJ$uVqIaw*wHc6v zWhZS4jGn^J6-Fva3L5smZlSJxqi?x$d-FiDRJX+CsKPu-X>%O<#5Sd5eec~)1YzuO z613-Q^b0d|^wQ!Rod`~7-muzh%-S7$H;!nV50QpOMGXpeUa%+a9gsr|y76f7kkuc+ zDY*FD@qVQp|oL82R81fY@kR>+H~I`fm190^*eYv8Fp5Rvbk{> z2qwnvfb{N568;>)z2A$s#?Rr)(T6ZP=Mer5`_7%++Z%~8rrmxihQE9+RTde5=x$DK zJ{)1vj)J0YiN==O)qP!!Twe7%8hy0Y79lPj4h76C8Dxw?EJPKFng>!G&nx^GSAdLk>flIV@vedq%5dk}aq z1{dLX4yITF8=wSloc@54YtVbEnrSe43x4swV+Zi*^FOEn>ym?Xa72WciG!lqIOxVq z6;}U*)nXC4k-(BdOK(q>7Vq6U5MlH(7131f?WMPEegR?=&T?8zm?&lbl!e-&8v@hu0-O$L}oN=^Ca6tZ}nG@E47uz3q4gydI6v!^KbY>P(*O!)8*XB!M$ZdLpHZ(9czg~?$ z{*yN0Z?IVUSo@f^5y5v#W4(3TXY{W6?oTjuIVs0^;e1}%=cQRJ7At@Vt5>M<6wz7ILHx@g&Um`Gx)D zbW}8(i0;Ncm}{doF!}QfeGsCWJ_$*U!zBsS5qZE=j|7(0D2Wh`G?l=$G?hS!k`n(W z*bt5#h_f24Afo35JIE;53lcriSLLv>_=33vCt(SWbqEmOmX_|lR9l*}@<_nU&_=h6 zwRvYz`1#g`2KRLN{$JLHEht+z5dy}>SCh2*|7L9}WNje(Xs!(i64NTlc^{43Xt+j= zr1ASN#3MHeutZ{1`j|*o_`R4V3=3)*CqMUT+p=raEl|r91iLWZTuf2ke>H{Esh{EW zo#buRI=S&W{PF}81pQSRWTuEh2mL{>FcbJf@*46Kej-4eA1_oNc|sBJ{8RgI?CBAF z@fn0~uSBdiRDEZqD(uV1L_DJem*)88C)IXaabyH{T~2i~0w_WvQ7&qbw6fvF%lQXM zQ?>v(sHtC`>N48p;nWVQ+*i(a$8;qhgL7Z{O9J?*oDJW&qGGAfA=vOwuju%(wS#bX zZcWAa+(+Qrd^+fBWnM(D|RAJ&tcb zb@H(tf4?_uqrdYTrXw_M?EMuZBUR@w9=7t89l$qMPEl|Qv|KE*( IPhUItU-cV5k^lez delta 9424 zcmcIqYj7Lab;g6DB#NRy65<1*q)SSaNXdk;yLij7b^$E83xZe(03|_`Oj81FP-IA1 zl5NSd26ECi`H`7qbjL|2o!Zm7Zt6#DiXhvG>;_3Y(-xZ8O6n$KWzxp&#M7kHPO0fk z`y*-9b052aWVh4)2!CMrKKI^p&i&4J&gF}rcU=Fa{VT`zO2Wv*%=r<~CkBupMt%OM zC=H;Yfip{=JvX;7TSQBX2+MYNIj<)4{G;^OdngnUhf&LbdiC z0~+|0b&F)3-4Cu434S3Qmhim2PaI9>td$I-XeO&3)s4yANCM_W17f&gH~y&Liwbl~ z*8@`um4CORjrR9(_h!`gvi#>Z_Vd2iURO2CRfR28xnm2 zQnOj3oJB&=kH*yeF+H6yj%Bh&22>k*pe7VT$40ZpL?VZR5tPt#nUqq<|40s*rogZwa*O+DN)B)~*@^?2ThCE>dfl$)k=AR!Q;^=wMe0xQyPei50~ zlHYn2#rp;btVjp=0%osp5MOQyJ0ihKrR8SRp&&}D$1=JaR}pLy))*&GKdeI1F8j2rsvEAF?3U>>>WkGUVK z8f`^7nf-Ax&-q1 zO^ic>o*qL&B!J?Yl8qY))tgYs0|{ZjRR>lQ3YcG=OzTG`_0fV?0U#5C4XeTXeJ+;} zlu!Z;P|fCGl7NU`?%4jBNC>5rTpo!&YXO4r!1CZYNj?#gO(8KNAht6>@LeD5>O=yp z_xUC#t;`oP>YnE-=Q@9ApUOMHKxL{2rr&mlouN|2t#SNd56@{^RiQ{yaqADXIIb!3 z`fIYH>8(U_6jDO?_3a0{gLR1ptkdcb;^R9*_%mIX>>B>#t|>g%+lq&~4>?}3<0rbs z@&&dOfWeZ?zXazdR+P|6Usa3EQzM~Ys`52@PB(q&_4@m@7#$X4SlXq;H|C>hz;do6XMj+1~Ha=G;C8 zH-+NLeyZh~_XK^e_9P!Cx>|oTNy|F@rIHAc)sxRAR0TG46dat1s`VR+9@G zZrhyIWQv;?{c0+@Y6!+Z7(f)(rg zb`R)ttTS<_k`OTud`>ft5lfK-0Uyb4cS=4#m{zY-jQH_)CVI3j!R7$rwl3Fuu39dpltf_v00k{MZ=UVGrW@p^!^L#6m~Y;DG`2v^}`Gw;O+V z$X)*3CJWF`+lpMh^wBOjl{KGM^AuR^E^uYZm7-GTOH;+KD)Zyp+A0$=^CK>5Ei3P7 ztaxH&9}K5;h2%W{o4#2g6%PM@7U zbJ2@`aqy)5B|Q32q2m#a%3PnP0x7|;JMOQ#Qzo9?U8RC zCuCcSeKjW69Cs@RWZo=8^WL)0ly4*cMk3&2({Uw_C@Xyso`Ih7X6rN%q6_X?$pD>T zrwa68o-pDAB7QW0<}RR_bLVD3bW4j1mq$isPIoSyhp1)%!C4x}&tAGXfWTnB7xg$K z5&t||vp;!NqLp*7zzWOHPZPE z@g|QvvS{~J-gsounQV61Y#S76(bRQbzhVCmCc!t@yZ+k>2hD0?b#sg^n80U1@Dr@;3i$k{(VGb8 z5BtFqx()`dlAfH1sac>|a84msiYYl2jxInE&^)svsYD`#KD1&Gh8m-zKpKD< z3Rb7a*@R#a|6~_B4lL80!yEz8*@KG%qcACFhNzQyY*kj&Ojl>g^5EY+P zcia2%^Xh>89)4Nf88g~6s_GM~B=-40=6wrHR+&<18NFBjD&1A|d?cQyxb+ zg8S3GNg-r?z+5qjF8Elhs!l5a?C)m`rW?Zc@h<$eQyt~HW8$9%V!-E{FpjF;iQE_f znh36no015UB=jRzh>hn8x!B|=1TlU@M^mco_aQP8h=xfAz>#n&AcPwH56C))AJ%`< z{sCUo_t-1=j_&OqX935F)qj%BkX9*;Z^53VH!;pk<_k&wQoYZ1pcgUSsxofc5U*gU z$&w-=0z!vGpQSuYXmtoNeKxTB2PGTwQ(F*%BG`h*3C4$iHQwtKB%?1TwnEzjPak41 zL3}7^ow-n+h#_8-!GdKE;7vb*nB2)Y_w^gLA8`zD$7;>7T5J2BrdWxJd#g>+lT@-R zftZeKslKvOj8PH0{Z-~#YMT8WdG+d99@{mYyjxk4l^DZ;)!FftgX}w1mfNCS!ENKE z6y!8my#|Smn4V%dQ%xoB{ti>Ho=Vju(4PYReojtcOb7mF^Qkc|*;0#)dL12d_=LT=Z4;`Tw6uu#; z1zlNGibssS!xE&t07gin3lyKBDJ^Oikinx?Lsd`s^luq^$_)l#eGyDy2`F}xyt<$; zy_#y|Pg{GZlk?>%^XMgOE$o=ZD@dt%G?t^}xKH)VGY3_r$cv@q)<>yxp|%5*K&U5f z>ex>68eI0g*2`=@93YU`9kLL*fh9o9{>_ZX;rEl|ibDe4nb{sUV{Oxg0**yM`ugI9 z+4C1s2x2A6RR&G>2q)MQ3`FwyU(a?`o;q^afj(c4LMqR3!BD!y{G|tfoYNp`^yd2= zA_1AMPN3I(9~@aD626k}b3<_Wplc7|H}icCp!T=&gJn=LO)3!aFr^0oC{3j!sgc=> ze#=-$$VGFlu+8BX{^fc?ESd#cBScYg2Bx37w2!gY}H~35`D!I zB>kq^T^q)Wf7P+LZu_|O*NfZkef+ccI;!If9rGW4zx2U-w$6fl%jPTseeWyIuUEQ@ z3y$@-iwj%UUoS3fTF2LpZW_^k|Ay^txn?^-ZHnc3Dm_VBqCYevK+W)`jC~v3y{wIz zT*>1pd1xD8PZIyb(cv;nd-3F#jgr;no`vT1l`g$lvn7<6$}*S5l}Q*AUlH|M>#b%4 zOB~YWTI;)Xw<$V%@$Btp1j*Uk4p)`KW9#xRZDj}PXjW9A;Nk_B?%Dupg+Lg8`B)#x zPJI&|khg?KS?~e11*FNVBBh{Qoe*%O3M4FqFj)jl;Bg7b8ZeifS96fN^wC73>2kw9 zZWxqn2#~HPSx~bTEQk zN@yk!VaWJ@N~NEq<>53%P|V0{@Zv{T(ndmu^lDbU3NQ#uN+sYa!ja5O!aO9A!QM#H zptCW{3Cn_1gNTELqX(E7LgWJ`Nv|A;eZuat3I$@~_n->^+%NIFg(IFlGIw%b<~!E^ zh_hWU?maPHJ}grcqS`#ZBFKz4P@|~X%#r4Zg(huVTm8CbKJPD3pZZfO#dlUg;Pp;d{?kq&~*+NE1lUy@oTg;fB-q-|bW}zP_Jy*H_sE`_o zlb8hj2>SrAOgucbV@hlY?Zw8M6G&kn)6_H=i>@ZXh=>-6<$%PQ2?6|C5jTR!f1#lhC$zS4C4ki4)sM##@I&-{5`77tF3Ng+bG{Mf&^xk4bbLI@+dct{)g zZ#_H857Xo_5BWggOcL{V3dOT`SG#1L3h{)N)RTASKcsR1G59TV#I2*AhdgFv6JEwa zz@YATbFdln-VR==i^4~z+i>gSE?6L26kQ)3&lebMTp(SiwaP+KBN?77^0UKP(=?!yEd-jas{zPin8!VG zUpP@uMdcwngDXxBD58&Sx?v?iamgWtqbfkofxQ6>VlQy|d7B@>6&7S)DZ0X~YV6E@ zM<9ad&v-lm9~w}Lb0k>>X{+?oMRaCi>B4L=iYl+2`Ddr&!%g_5IfVb@$(c>#`f{SS zY5555D~)YiTVvMbA%F;X=YQ{Y<1dwjZDE?`V2}XFRry}&MaMy)5&LL7GJp5?=3OSg zVhR_WM66-3+M7d(_sQ~vui*`l|=Zb2r`nD$VFd633B2MB>+fL;+rI-l3jyC z%BtQAE}nQ{1h^LnmxLB{a)|W^;1aVWmKrlAAscM9;@3X=MK1_!kP55_606RicKq)$ zyS!-szsZb7tyHYP7MU?Ya|r?=s7r%*|NpPdzz8gKr|rLfv-HB-3qnl#c~GWA3t4av-)M>q7Px^nIr8jaYN0<;i`xJiv)ZH zzw(T>op)sMh?(}k{;Xkd!N#-Q_{nEAd^fNgzyE9$YBpWki#?aN;^-wmlol@y+G!F3 zzjdhx%71amkAHcoAKu=|^y0wfhfEBF8wEY55t}*;pM?xs4h@n2fN8-mTpsH%Nr;kF z;#!()8~^xnzLjotgj_~IMfABSe&)OjUwp0;e|$~E-+JyqNJT@C0X>4)4j>~xr_*vM3Y@N4JyRlauhkaJ5t+JOx|w-?{N_R!Fg2j}?I N|N4;z@ZlGZ{x^LVDYXCq diff --git a/library/tedit/TOPLINE.TEDIT b/library/tedit/TOPLINE.TEDIT new file mode 100644 index 0000000000000000000000000000000000000000..ff8c340890cf8be626ff3b46779d1c874a774f1f GIT binary patch literal 1685 zcmeHHO>fgc5Ow+iQn|u?Bskbo6eS^~DL3P6Qmc-g`U5DpC7v{voVD@V4egyj#gz+4 z{31@w+EE)2QcoO^uw{F8X5O25_$kusP690w^H3?E8no_7|2ejb@)u$UV%pN$Q$PECIs38Fdk1IxGP zArS@kI|jWjOw5_>T)@m5Gv5X8HS-(ij!9%AW4j116m{gf6i_Zo z8x7!iFn|GFci51<4Qrs9tx7o=!r;XahTU#MZxGUSXcDd&-tz`(ihpImB&$E_!+^Fz ze`g+leU`WT_5ZZ)-FXHb^*`WH+tYfrwY}}Pv}e2PKiM^)^;LUB!GryS`vHpNfGR!K z9yFh_c67`8M0;pCW)Rrcj#EYV=+v}t%516I*6~A`tucKwFO%<|Y_h*-hc};p0_yvv A`~Uy| literal 0 HcmV?d00001 diff --git a/library/tedit/tedit-exports.all b/library/tedit/tedit-exports.all index c8cb362f..dcf7a26a 100644 --- a/library/tedit/tedit-exports.all +++ b/library/tedit/tedit-exports.all @@ -1,11 +1,11 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "28-Mar-2025 17:12:59"  -{DSK}kaplan>Local>medley3.5>working-medley>library>tedit>tedit-exports.all;209 53312 +(FILECREATED "21-Apr-2025 23:06:12"  +{DSK}kaplan>Local>medley3.5>working-medley>library>tedit>tedit-exports.all;228 53892 :EDIT-BY rmk - :PREVIOUS-DATE "16-Mar-2025 00:20:08" {WMEDLEY}TEDIT>tedit-exports.all;208) + :PREVIOUS-DATE "20-Apr-2025 00:13:59" {WMEDLEY}TEDIT>tedit-exports.all;227) (PRETTYCOMPRINT ((E (MAPC (MKLIST FROMFILES) (FUNCTION (LAMBDA (F) (MAPC (IMPORTFILE F FLG) (FUNCTION @@ -14,11 +14,10 @@ PRINT)))))))) (PUTPROPS TEDIT-ASSERT MACRO (ARGS (COND (CHECK-TEDIT-ASSERTIONS (BQUOTE (CL:UNLESS (\, (CAR ARGS)) ( \TEDIT.THELP "TEDIT-ASSERT FAILURE" (\, (KWOTE (CAR ARGS))))))) (T (BQUOTE (* (TEDIT-ASSERT (\,@ ARGS) ))))))) +(PUTPROPS FTEXTOBJ MACRO ((X) (TEXTOBJ! (CL:IF (type? TEXTOBJ X) X (GETTSTR X TEXTOBJ))))) (GLOBALVARS CHECK-TEDIT-ASSERTIONS) (RPAQ? CHECK-TEDIT-ASSERTIONS T) -(PUTPROPS OBJECT.ALLOWS MACRO ((PC OPERATION FROMTOBJ TOTOBJ) (OR (NOT (EQ OBJECT.PTYPE (PTYPE PC))) ( -\TEDIT.APPLY.OBJFN (PCONTENTS PC) OPERATION FROMTOBJ TOTOBJ)))) -(PUTPROP (QUOTE TEDIT) (QUOTE IMPORTDATE) (IDATE "28-Mar-2025 14:10:12")) +(PUTPROP (QUOTE TEDIT) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 22:54:33")) (RPAQQ \BTREEWORDSPERSLOT 4) (RPAQQ \BTREEMAXCOUNT 8) (CONSTANTS (\BTREEWORDSPERSLOT 4) (\BTREEMAXCOUNT 8)) @@ -98,7 +97,8 @@ FGETLD L LCHAR1) CHLAST)))) (PUTPROPS FLINESELECTEDP MACRO (OPENLAMBDA (L CH# CHLAST) (* ; "True if a CH#..CHLAST selection would include L") (AND (IGREATERP (FGETLD L LCHARLIM) CH#) (ILEQ ( FGETLD L LCHAR1) CHLAST)))) -(PUTPROPS IBETWEENP MACRO (OPENLAMBDA (X LOW HIGH) (AND (IGEQ X LOW) (ILEQ X HIGH)))) +(PUTPROPS IBETWEENP MACRO (OPENLAMBDA (X LOW HIGH) (* ; "within the closed interval") (AND (IGEQ X LOW +) (ILEQ X HIGH)))) (PUTPROPS GETSEL MACRO ((S FIELD) (fetch (SELECTION FIELD) of S))) (PUTPROPS SETSEL MACRO ((S FIELD NEWVALUE) (replace (SELECTION FIELD) of S with NEWVALUE))) (PUTPROPS FGETSEL MACRO ((S FIELD) (ffetch (SELECTION FIELD) of S))) @@ -118,7 +118,10 @@ $$SELPIECES)) REPEATUNTIL (EQ I.V. $$SPLAST) BY (\DTEST (NEXTPIECE I.V.) (QUOTE (GLOBALVARS TEDIT.EXTEND.PENDING.DELETE) (GLOBALVARS TEDIT.SELECTION TEDIT.SHIFTEDSELECTION TEDIT.MOVESELECTION TEDIT.COPYLOOKSSELECTION TEDIT.DELETESELECTION) -(PUTPROP (QUOTE TEDIT-SELECTION) (QUOTE IMPORTDATE) (IDATE "19-Mar-2025 16:27:02")) +(PUTPROPS \TEDIT.NOSEL MACRO ((TSTREAM SEL ONLYPANE) (* ; +"Takes down SEL in TSTREAM, where SEL defaults to the current selection") (\TEDIT.SHOWSEL SEL NIL +TSTREAM ONLYPANE))) +(PUTPROP (QUOTE TEDIT-SELECTION) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 22:52:26")) (RECORD TAB (TABX . TABKIND)) (RECORD TABSPEC (DEFAULTTAB . TABS)) (DATATYPE LINECACHE ((* ;; "Image cache for display lines.") LCBITMAP (* ; @@ -215,54 +218,49 @@ FULLXPOINTER) (* ; "Line descriptor for the line this describes now") TLSPACEFAC "Pointer block holdomg char/width slots MAXCHARSLOTS (with an extra slot so that there is always storage behind NEXTAVAILABLECHARSLOT" ) NEXTAVAILABLECHARSLOT) (* ; "The last used CHARSLOT is at (PREVCHARSLOT NEXTAVAILABLECHARSLOT)") CHARSLOTS _ (\ALLOCBLOCK (ITIMES (ADD1 MAXCHARSLOTS) CELLSPERCHARSLOT) PTRBLOCK.GCT)) -(BLOCKRECORD CHARSLOT (CHAR CHARW (* ; "If CHAR is NIL, then CHARW is CHARLOOKS."))) +(BLOCKRECORD CHARSLOT (CHAR CHARW (* ; "If CHAR is NIL, then CHARW is CHARLOOKS.") CHARCL)) (PUTPROPS CHAR MACRO ((CSLOT) (ffetch (CHARSLOT CHAR) of CSLOT))) (PUTPROPS CHARW MACRO ((CSLOT) (ffetch (CHARSLOT CHARW) of CSLOT))) +(PUTPROPS CHARCL MACRO ((CSLOT) (ffetch (CHARSLOT CHARCL) of CSLOT))) (PUTPROPS PREVCHARSLOT MACRO ((CSLOT) (\ADDBASE CSLOT (IMINUS WORDSPERCHARSLOT)))) -(PUTPROPS PREVCHARSLOT! MACRO ((CSLOT) (* ;; -"Backs over looks and invisibles to the last character slot") (find CS _ (PREVCHARSLOT CSLOT) by ( -PREVCHARSLOT CS) while CS suchthat (CHAR CS)))) (PUTPROPS NEXTCHARSLOT MACRO ((CSLOT) (\ADDBASE CSLOT WORDSPERCHARSLOT))) (PUTPROPS FIRSTCHARSLOT MACRO ((TLINE) (fetch (THISLINE CHARSLOTS) of TLINE))) (PUTPROPS NTHCHARSLOT MACRO ((TLINE N) (\ADDBASE (fetch (THISLINE CHARSLOTS) of TLINE) (ITIMES N WORDSPERCHARSLOT)))) (PUTPROPS LASTCHARSLOT MACRO ((TLINE) (\ADDBASE (fetch (THISLINE CHARSLOTS) of TLINE) (TIMES (SUB1 MAXCHARSLOTS) WORDSPERCHARSLOT)))) -(PUTPROPS FILLCHARSLOT MACRO ((CSLOT C W) (freplace (CHARSLOT CHAR) of CSLOT with C) (freplace ( -CHARSLOT CHARW) of CSLOT with W))) -(PUTPROPS BACKCHARS MACRO ((CSLOTVAR CHARVAR WIDTHVAR) (SETQ CSLOTVAR (PREVCHARSLOT CSLOTVAR)) (SETQ -CHARVAR (fetch (CHARSLOT CHAR) of CSLOTVAR)) (SETQ WIDTHVAR (fetch (CHARSLOT CHARW) of CSLOTVAR)))) -(PUTPROPS PUSHCHAR MACRO ((CSLOTVAR C W) (FILLCHARSLOT CSLOTVAR C W) (SETQ CSLOTVAR (NEXTCHARSLOT -CSLOTVAR)))) -(PUTPROPS POPCHAR MACRO ((CSLOTVAR CHARVAR WIDTHVAR) (SETQ CHARVAR (fetch (CHARSLOT CHAR) of CSLOTVAR) -) (SETQ WIDTHVAR (fetch (CHARSLOT CHARW) of CSLOTVAR)) (SETQ CSLOTVAR (NEXTCHARSLOT CSLOTVAR)))) +(PUTPROPS FILLCHARSLOT MACRO ((CSLOT C W R) (freplace (CHARSLOT CHAR) of CSLOT with C) (freplace ( +CHARSLOT CHARW) of CSLOT with W) (freplace (CHARSLOT CHARCL) of CSLOT with R))) +(PUTPROPS PUSHCHAR MACRO ((CSLOTVAR C W CL) (FILLCHARSLOT CSLOTVAR C W CL) (SETQ CSLOTVAR ( +NEXTCHARSLOT CSLOTVAR)))) (PUTPROPS CHARSLOTP MACRO (OPENLAMBDA (X TL) (* ;; "True if TL is a THISLINE and X is a pointer into its CHARSLOTS block. A tool for consistency assertions." ) (CL:WHEN (TYPE? THISLINE TL) (LET ((FIRSTSLOT (FIRSTCHARSLOT TL)) (LASTSLOT (LASTCHARSLOT TL))) (AND (OR (IGREATERP (\HILOC X) (\HILOC FIRSTSLOT)) (AND (EQ (\HILOC X) (\HILOC FIRSTSLOT)) (IGEQ (\LOLOC X ) (\LOLOC FIRSTSLOT)))) (OR (ILESSP (\HILOC X) (\HILOC LASTSLOT)) (AND (EQ (\HILOC X) (\HILOC LASTSLOT )) (ILEQ (\LOLOC X) (\LOLOC LASTSLOT))))))))) -(RPAQQ CELLSPERCHARSLOT 2) +(RPAQQ CELLSPERCHARSLOT 3) (RPAQ WORDSPERCHARSLOT (TIMES CELLSPERCHARSLOT WORDSPERCELL)) (RPAQQ MAXCHARSLOTS 256) -(CONSTANTS (CELLSPERCHARSLOT 2) (WORDSPERCHARSLOT (TIMES CELLSPERCHARSLOT WORDSPERCELL)) (MAXCHARSLOTS +(CONSTANTS (CELLSPERCHARSLOT 3) (WORDSPERCHARSLOT (TIMES CELLSPERCHARSLOT WORDSPERCELL)) (MAXCHARSLOTS 256)) (* ;; "incharslots can be used only if THISLINE is properly bound in the environment, to provide upperbound checking. Operand can be THISLINE (= FIRSTCHARSLOT) or a within-range slot pointer. The latter case is not current checked for validity (some \HILOC \LOLOC address calculations?). backcharslots runs backwards." ) (I.S.OPR (QUOTE incharslots) NIL (QUOTE (SUBST (GETDUMMYVAR) (QUOTE $$STARTSLOT) (QUOTE (bind -$$STARTSLOT _ BODY CHAR CHARW $$CHARSLOTLIMIT declare (LOCALVARS $$STARTSLOT $$CHARSLOTLIMIT) first ( -SETQ I.V. (COND ((TYPE? THISLINE $$STARTSLOT) (FIRSTCHARSLOT $$STARTSLOT)) (T $$STARTSLOT))) (SETQ -$$CHARSLOTLIMIT (fetch (THISLINE NEXTAVAILABLECHARSLOT) of THISLINE)) by (NEXTCHARSLOT I.V.) until (EQ - I.V. $$CHARSLOTLIMIT) eachtime (SETQ CHAR (fetch (CHARSLOT CHAR) of I.V.)) (SETQ CHARW (fetch ( -CHARSLOT CHARW) of I.V.)))))) T) +$$STARTSLOT _ BODY CHAR CHARW CHARCL $$CHARSLOTLIMIT declare (LOCALVARS $$STARTSLOT $$CHARSLOTLIMIT) +first (SETQ I.V. (COND ((TYPE? THISLINE $$STARTSLOT) (FIRSTCHARSLOT $$STARTSLOT)) (T $$STARTSLOT))) ( +SETQ $$CHARSLOTLIMIT (fetch (THISLINE NEXTAVAILABLECHARSLOT) of THISLINE)) by (NEXTCHARSLOT I.V.) +until (EQ I.V. $$CHARSLOTLIMIT) eachtime (SETQ CHAR (fetch (CHARSLOT CHAR) of I.V.)) (SETQ CHARW ( +fetch (CHARSLOT CHARW) of I.V.)) (SETQ CHARCL (fetch (CHARSLOT CHARCL) of I.V.)))))) T) (I.S.OPR (QUOTE backcharslots) NIL (QUOTE (SUBST (GETDUMMYVAR) (QUOTE $$STARTSLOT) (QUOTE (bind -$$STARTSLOT _ BODY CHAR CHARW $$CHARSLOTLIMIT declare (LOCALVARS $$STARTSLOT $$CHARSLOTLIMIT) first ( -SETQ I.V. (COND ((TYPE? THISLINE $$STARTSLOT) (PREVCHARSLOT (fetch (THISLINE NEXTAVAILABLECHARSLOT) of - THISLINE))) (T $$STARTSLOT))) (SETQ $$CHARSLOTLIMIT (FIRSTCHARSLOT THISLINE)) by (PREVCHARSLOT I.V.) -eachtime (SETQ CHAR (fetch (CHARSLOT CHAR) of I.V.)) (SETQ CHARW (fetch (CHARSLOT CHARW) of I.V.)) -repeatuntil (EQ I.V. $$CHARSLOTLIMIT))))) T) -(PUTPROP (QUOTE TEDIT-SCREEN) (QUOTE IMPORTDATE) (IDATE "28-Mar-2025 17:12:44")) +$$STARTSLOT _ BODY CHAR CHARW CHARCL $$CHARSLOTLIMIT declare (LOCALVARS $$STARTSLOT $$CHARSLOTLIMIT) +first (SETQ I.V. (COND ((TYPE? THISLINE $$STARTSLOT) (PREVCHARSLOT (fetch (THISLINE +NEXTAVAILABLECHARSLOT) of THISLINE))) (T $$STARTSLOT))) (SETQ $$CHARSLOTLIMIT (FIRSTCHARSLOT THISLINE) +) by (PREVCHARSLOT I.V.) eachtime (SETQ CHAR (fetch (CHARSLOT CHAR) of I.V.)) (SETQ CHARW (fetch ( +CHARSLOT CHARW) of I.V.)) (SETQ CHARCL (fetch (CHARSLOT CHARCL) of I.V.)) repeatuntil (EQ I.V. +$$CHARSLOTLIMIT))))) T) +(PUTPROP (QUOTE TEDIT-SCREEN) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 20:34:16")) (DATATYPE PIECE ((* ; "The piece describes either a string or part of a file. , or a generalized OBJECT.") PCONTENTS (* ; "The background source of data for this piece (stream, string, block, object, depending on the PTYPE)." @@ -305,11 +303,11 @@ HINTPC (* ; "Was: Space left in the type-in piece") HINTPCSTARTCH# (* ; SEL (* ; "The current selection within the text") LASTARROWX (* ; "X for next arrow up or arrow down. Was: Scratch space for the selection code") NIL (* ; "Was MOVESEL: Source for the next MOVE of text") NIL (* ; "Was SHIFTEDSEL: Source for the next COPY") -NIL (* ; "Was DELETESEL: Text to be deleted imminently") WRIGHT (* ; -"Right edge of the window (or subregion) where this is displayed") WTOP (* ; -"Top of the window/region") WBOTTOM (* ; "Bottom of the window/region") WLEFT (* ; -"Left edge of the window/region") TXTFILE (* ; "The original text file we're editing") (\XDIRTY FLAG) -(* ; "T => changed since last saved.") (STREAMHINT FULLXPOINTER) (* ; +NIL (* ; "Was DELETESEL: Text to be deleted imminently") NIL (* ; +"Was WRIGHT: Right edge of the window (or subregion) where this is displayed") WTOP (* ; +"Top of the window/region") NIL (* ; "Was WBOTTOM: Bottom of the window/region") NIL (* ; +"Was WLEFT: Left edge of the window/region") TXTFILE (* ; "The original text file we're editing") ( +\XDIRTY FLAG) (* ; "T => changed since last saved.") (STREAMHINT FULLXPOINTER) (* ; "-> the TEXTOFD stream which gives access to this textobj") EDITFINISHEDFLG (* ; "T => The guy has asked the editor to go way") NIL (* ; "Was CARET: Describes the flashing caret for the editing window") CARETLOOKS (* ; @@ -352,9 +350,9 @@ TXTAPPENDONLY FLAG) (* ; "Style sheet local to this document. Not currently saved as part of the file.")) (ACCESSFNS TEXTOBJ ( (\DIRTY (ffetch (TEXTOBJ \XDIRTY) of DATUM) (PROGN (FSETTOBJ DATUM LASTARROWX NIL) (CL:UNLESS (EQ NEWVALUE (ffetch (TEXTOBJ \XDIRTY) of DATUM)) (\TEDIT.WINDOW.TITLE DATUM NEWVALUE) (freplace \XDIRTY -OF DATUM WITH NEWVALUE)))))) SEL _ (create SELECTION) TEXTLEN _ 0 WRIGHT _ 0 WTOP _ 0 WLEFT _ 0 -WBOTTOM _ 0 MOUSEREGION _ (QUOTE TEXT) THISLINE _ (create THISLINE) DEFAULTPARALOOKS _ -TEDIT.DEFAULT.FMTSPEC PARABREAKCHARS _ (CHARCODE (EOL FORM LF CR))) +OF DATUM WITH NEWVALUE)))))) SEL _ (create SELECTION) TEXTLEN _ 0 WTOP _ 0 MOUSEREGION _ (QUOTE TEXT) +THISLINE _ (create THISLINE) DEFAULTPARALOOKS _ TEDIT.DEFAULT.FMTSPEC PARABREAKCHARS _ (CHARCODE (EOL +FORM LF CR))) (ACCESSFNS TEXTSTREAM ((* ;; "Overlay for the STREAM record to allow mnemonic access to stream fields for Text streams.") (* ;; "The # of characters that have already been read from the current piece") (TEXTOBJ (fetch (STREAM F3) @@ -408,7 +406,7 @@ VISIBLEPIECEP PPC)))) (PUTPROPS FGETTOBJ MACRO ((TOBJ FIELD) (ffetch (TEXTOBJ FIELD) of TOBJ))) (PUTPROPS FSETTOBJ MACRO ((TOBJ FIELD NEWVALUE) (freplace (TEXTOBJ FIELD) of TOBJ with NEWVALUE))) (PUTPROPS TEXTLEN MACRO ((TOBJ) (ffetch (TEXTOBJ TEXTLEN) of TOBJ))) -(PUTPROPS TEXTSEL MACRO ((TOBJ) (fetch (TEXTOBJ SEL) of TOBJ))) +(PUTPROPS TEXTSEL MACRO ((TEXTOBJ) (SELECTION! (GETTOBJ TEXTOBJ SEL)))) (PUTPROPS TEXTOBJ! MACRO ((TOBJ) (\DTEST TOBJ (QUOTE TEXTOBJ)))) (PUTPROPS GETTSTR MACRO ((TSTR FIELD) (fetch (TEXTSTREAM FIELD) of TSTR))) (PUTPROPS SETTSTR MACRO ((TSTR FIELD NEWVALUE) (replace (TEXTSTREAM FIELD) of TSTR with NEWVALUE))) @@ -446,7 +444,7 @@ UTF8.PTYPE UTF16BE.PTYPE UTF16LE.PTYPE)) (STRING.PTYPES (LIST THINSTRING.PTYPE F BINABLE.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE)) (THIN.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE)) (FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTYPE))) (GLOBALVARS \TEXTIMAGEOPS \TEXTFDEV) -(PUTPROP (QUOTE TEDIT-STREAM) (QUOTE IMPORTDATE) (IDATE "28-Mar-2025 14:26:47")) +(PUTPROP (QUOTE TEDIT-STREAM) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 22:45:03")) (PUTPROPS \TEDIT.MOUSESTATE MACRO (BUTTON (* ;; "Test to see if only the specified mouse button is down. DOES NOT call GETMOUSESTATE, so the mouse-button info is the same as the last time it was called." ) (SELECTQ (CAR BUTTON) (LEFT (QUOTE (EQ LASTMOUSEBUTTONS 4))) (MIDDLE (QUOTE (EQ LASTMOUSEBUTTONS 1)) @@ -460,7 +458,7 @@ I in ARGS as J on ARGS when (NOT (STRINGP I)) collect (LIST (QUOTE OR) I (LIST ( \BIN STREAM)) BITSPERWORD))) (PUTPROPS \SMALLPOUT MACRO (OPENLAMBDA (STREAM W) (* ; "Signed smallp, unlike \WOUT") (\BOUT STREAM ( LOGAND 255 (LRSH W 8))) (\BOUT STREAM (LOGAND W 255)))) -(PUTPROP (QUOTE TEDIT-FILE) (QUOTE IMPORTDATE) (IDATE "28-Mar-2025 14:24:34")) +(PUTPROP (QUOTE TEDIT-FILE) (QUOTE IMPORTDATE) (IDATE "19-Apr-2025 22:29:28")) (PUTPROP (QUOTE TEDIT-OLDFILE) (QUOTE IMPORTDATE) (IDATE "19-Feb-2025 12:09:40")) (DATATYPE CHARLOOKS ((* ;; "Describes the appearance (%"Looks%") of characters in a TEdit document.") (* ;; "NOTE: If fields change EQCLOOKS should change too.") CLFONT (* ; @@ -487,10 +485,10 @@ LOGAND 255 (LRSH W 8))) (\BOUT STREAM (LOGAND W 255)))) "For arbitrarily-places horizontal rules. List of pairs, of (widthinpts . offsetfrombaselineinpts). Should be taken account of in ascent/descent calcs." ) (CLMARK FLAG) (* ;; "Used for a mark-&-sweep of looks at PUT time -- T means this set of looks really IS in use in the document" -) (CLSELBEFORE FLAG) (* ; "T if TEDIT can put selection before this char (for menu fields).")) -CLOFFSET _ 0 (INIT (DEFPRINT (QUOTE CHARLOOKS) (FUNCTION \TEDIT.CHARLOOKS.DEFPRINT))) (ACCESSFNS ( -CLNAME (fetch (CHARLOOKS CLFONTUNPARSE) of DATUM) (replace (CHARLOOKS CLFONTUNPARSE) of DATUM with -NEWVALUE)))) +) (CLSELBEFORE FLAG) (* ; "T if TEDIT can put selection before this char (for menu fields).") CLCOLOR) + CLOFFSET _ 0 CLCOLOR _ (QUOTE BLACK) (INIT (DEFPRINT (QUOTE CHARLOOKS) (FUNCTION +\TEDIT.CHARLOOKS.DEFPRINT))) (ACCESSFNS (CLNAME (fetch (CHARLOOKS CLFONTUNPARSE) of DATUM) (replace ( +CHARLOOKS CLFONTUNPARSE) of DATUM with NEWVALUE)))) (DATATYPE PARALOOKS ((* ;; "Describe the paragraph formatting for a paragraph in a TEdit document.") 1STLEFTMAR (* ; "Left margin of the first line of the paragraph") LEFTMAR (* ; "Left margin of the rest of the lines in the paragraph") RIGHTMAR (* ; @@ -549,7 +547,7 @@ NEWVALUE))) (PUTPROPS FGETPARA MACRO ((PLOOKS FIELD) (ffetch (PARALOOKS FIELD) of PLOOKS))) (PUTPROPS GETPARA MACRO ((PLOOKS FIELD) (fetch (PARALOOKS FIELD) of PLOOKS))) (PUTPROPS SETPARA MACRO ((PLOOKS FIELD NEWVALUE) (replace (PARALOOKS FIELD) of PLOOKS with NEWVALUE))) -(PUTPROP (QUOTE TEDIT-LOOKS) (QUOTE IMPORTDATE) (IDATE "28-Mar-2025 14:24:25")) +(PUTPROP (QUOTE TEDIT-LOOKS) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 20:28:55")) (PUTPROP (QUOTE TEDIT-STYLES) (QUOTE IMPORTDATE) (IDATE "19-Feb-2025 13:31:28")) (DATATYPE TEDITCARET (TCNOWTIME (* Used to hold the current time, when checking to see if a transition is due) TCTHENTIME (* Time when the next transition is to take place) TCFORCEDDOWN (* TCFORCEDOWN = T @@ -572,22 +570,29 @@ TEXTWINDOW PTEXTOBJ) of DATUM) (QUOTE TEXTOBJ))))) (DATATYPE PANEPROPS ((PWINDOW FULLXPOINTER) (* ; "The window with these PANEPROPS") PREFIXLINE (* ; "Dummy line that covers all the characters above the first visible line") SUFFIXLINE (* ; "Dummy line that covers all the characters below the last visible line") PCARET NEXTPANE (PREVPANE -XPOINTER) PANEHEIGHT PANEWIDTH PANELEFT PANERIGHT PANEBOTTOM PANETOP PANEREGION)) +XPOINTER) PANEHEIGHT PANEWIDTH PANELEFT PANERIGHT PANEBOTTOM PANETOP PANEREGION OTHERPAMEPROPS) +PANELEFT _ 0 PANERIGHT _ 0 PANEBOTTOM _ 0 PANETOP _ 0 PANEWIDTH _ 0 PANEHEIGHT _ 0 PANEREGION _ ( +CREATEREGION 0 0 0 0)) (PUTPROPS FGETPANEPROP MACRO ((P FIELD) (ffetch (PANEPROPS FIELD) of P))) (PUTPROPS GETPANEPROP MACRO ((P FIELD) (fetch (PANEPROPS FIELD) of P))) (PUTPROPS SETPANEPROP MACRO ((P FIELD NEWVALUE) (replace (PANEPROPS FIELD) of P with NEWVALUE))) (PUTPROPS FSETPANEPROP MACRO ((P FIELD NEWVALUE) (freplace (PANEPROPS FIELD) of P with NEWVALUE))) +(PUTPROPS PANEWINDOW MACRO ((PANE) PANE)) (PUTPROPS PANEPROPS MACRO ((PANE) (fetch (TEXTWINDOW PANEPROPS) of PANE))) (PUTPROPS PANEPREFIX MACRO ((PANE) (LINEDESCRIPTOR! (GETPANEPROP (PANEPROPS PANE) PREFIXLINE)))) (PUTPROPS PANESUFFIX MACRO ((PANE) (GETPANEPROP (PANEPROPS PANE) SUFFIXLINE))) (PUTPROPS PANETOPLINE MACRO ((PANE) (FGETLD (PANEPREFIX PANE) NEXTLINE))) (PUTPROPS PANECARET MACRO ((PANE) (\DTEST (GETPANEPROP (PANEPROPS PANE) PCARET) (QUOTE TEDITCARET)))) -(PUTPROPS PANESTREAM MACRO ((PANE) (fetch (TEXTWINDOW WTEXTSTREAM) of PANE))) -(PUTPROPS PANETOBJ MACRO ((PANE) (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of (fetch (TEXTWINDOW -WTEXTSTREAM) of PANE))))) +(PUTPROPS PANECARETY MACRO ((PANE) (fetch (TEDITCARET TCCARETY) of (GETPANEPROP (PANEPROPS PANE) +PCARET)))) +(PUTPROPS PANETEXTSTREAM MACRO ((PANE) (fetch (TEXTWINDOW WTEXTSTREAM) of PANE))) +(PUTPROPS PANETEXTOBJ MACRO ((PANE) (FTEXTOBJ (PANETEXTSTREAM PANE)))) (PUTPROPS PANEBOTTOMLINE MACRO ((PANE) (GETLD (PANESUFFIX PANE) PREVLINE))) -(PUTPROPS \TEDIT.PREFIX.LCHARLIM MACRO ((PANE CHNO) (FSETLD (PANEPREFIX PANE) LCHARLAST CHNO))) +(PUTPROPS NEXTPANE MACRO ((PANE) (GETPANEPROP (PANEPROPS PANE) NEXTPANE))) +(PUTPROPS PREVPANE MACRO ((PANE) (GETPANEPROP (PANEPROPS PANE) PREVPANE))) (PUTPROPS PANETOP MACRO ((PANE PREG) (fetch (REGION TOP) of (OR PREG (DSPCLIPPINGREGION NIL PANE))))) +(PUTPROPS PANEPTOP MACRO ((PANE PREG) (fetch (REGION PTOP) of (OR PREG (DSPCLIPPINGREGION NIL PANE)))) +) (PUTPROPS PANEWIDTH MACRO ((PANE PREG) (fetch (REGION WIDTH) of (OR PREG (DSPCLIPPINGREGION NIL PANE)) ))) (PUTPROPS PANELEFT MACRO ((PANE PREG) (fetch (REGION LEFT) of (OR PREG (DSPCLIPPINGREGION NIL PANE)))) @@ -596,9 +601,9 @@ WTEXTSTREAM) of PANE))))) ))) (PUTPROPS PANEBOTTOM MACRO ((PANE PREG) (fetch (REGION BOTTOM) of (OR PREG (DSPCLIPPINGREGION NIL PANE ))))) -(PUTPROPS PANEHEIGHT MACRO ((PANE PREG) (fetch (REGION HEIGHT) of (OR PREG (DSPCLIPPINGREGION NIL PANE -))))) -(PUTPROPS PANEREGION MACRO ((PANE PREG) (OR PREG (DSPCLIPPINGREGION NIL PANE)))) +(PUTPROPS PANEHEIGHT MACRO ((PANE PREG) (GETPANEPROP (PANEPROPS PANE) PANEHEIGHT))) +(PUTPROPS PANEREGION MACRO ((PANE PREG) (OR PREG (GETPANEPROP (PANEPROPS PANE) PANEREGION) ( +DSPCLIPPINGREGION NIL (PANEWINDOW PANE))))) (I.S.OPR (QUOTE inpanes) NIL (QUOTE (bind $$BODY _ BODY declare (LOCALVARS $$BODY) first (SETQ I.V. ( OR (CL:IF (TYPENAMEP $$BODY (QUOTE TEXTOBJ)) (FGETTOBJ $$BODY PRIMARYPANE) $$BODY) (GO $$OUT))) by (OR (GETPANEPROP (PANEPROPS I.V.) NEXTPANE) (GO $$OUT))))) @@ -606,8 +611,8 @@ OR (CL:IF (TYPENAMEP $$BODY (QUOTE TEXTOBJ)) (FGETTOBJ $$BODY PRIMARYPANE) $$BOD GETPANEPROP (PANEPROPS P) NEXTPANE))) (GO $$OUT))) by (OR (GETPANEPROP (PANEPROPS I.V.) PREVPANE) (GO $$OUT))))) (PUTPROPS ALLBUTTONSUP MACRO (NIL (ZEROP (LOGAND 7 LASTMOUSEBUTTONS)))) -(PUTPROP (QUOTE TEDIT-WINDOW) (QUOTE IMPORTDATE) (IDATE "28-Mar-2025 14:07:08")) -(PUTPROP (QUOTE TEDIT-BUTTONS) (QUOTE IMPORTDATE) (IDATE "24-Mar-2025 09:26:13")) +(PUTPROP (QUOTE TEDIT-WINDOW) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 20:34:07")) +(PUTPROP (QUOTE TEDIT-BUTTONS) (QUOTE IMPORTDATE) (IDATE "14-Apr-2025 23:50:23")) (RPAQQ PTSPERPICA 12) (RPAQQ PTSPERINCH 72) (RPAQQ PICASPERINCH 6) @@ -618,15 +623,15 @@ $$OUT))))) (CONSTANTS (PTSPERPICA 12) (PTSPERINCH 72) (PICASPERINCH 6) (MICASPERINCH 2540) (PTSPERCM (FQUOTIENT PTSPERINCH 2.54)) (PTSPERMICA (FQUOTIENT PTSPERINCH MICASPERINCH)) (MICASPERPOINT (FQUOTIENT MICASPERINCH PTSPERINCH))) -(PUTPROP (QUOTE TEDIT-MENU) (QUOTE IMPORTDATE) (IDATE "23-Mar-2025 14:56:57")) -(PUTPROP (QUOTE TEDIT-FIND) (QUOTE IMPORTDATE) (IDATE "28-Mar-2025 14:07:00")) +(PUTPROP (QUOTE TEDIT-MENU) (QUOTE IMPORTDATE) (IDATE "20-Apr-2025 23:44:59")) +(PUTPROP (QUOTE TEDIT-FIND) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 22:42:57")) (RPAQQ \TEDIT.TTCCODES ((NONE 0) (CHARDELETE 1) (WORDDELETE 2) (DELETE 3) (FUNCTIONCALL 4) (REDO 5) ( UNDO 6) (CMD 7) (NEXT 8) (EXPAND 9) (CHARDELETE.FORWARD 10) (WORDDELETE.FORWARD 11) (PUNCT 20) (TEXT 21) (WHITESPACE 22))) (CONSTANTS \TEDIT.TTCCODES) (PUTPROPS \TEDIT.TTC MACRO ((CLASS) (CONSTANT (CADR (ASSOC (QUOTE CLASS) \TEDIT.TTCCODES))))) -(PUTPROP (QUOTE TEDIT-FNKEYS) (QUOTE IMPORTDATE) (IDATE "28-Mar-2025 10:13:53")) -(PUTPROP (QUOTE TEDIT-HCPY) (QUOTE IMPORTDATE) (IDATE "19-Feb-2025 13:34:37")) +(PUTPROP (QUOTE TEDIT-FNKEYS) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 22:42:44")) +(PUTPROP (QUOTE TEDIT-HCPY) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 19:07:23")) (DATATYPE TEDITHISTORYEVENT ((* ;; "Describes one event on the TEdit edit history list.") THACTION (* ; "A keyword specifying what the event was") THPOINT (* ; "Was the selection to the left or right?") THLEN (* ; "The # of chars involved") THCH# (* ; "The starting ch#") THFIRSTPIECE (* ; @@ -640,7 +645,7 @@ TEDITHISTORYEVENT THLEN) of DATUM) 0))))) (INIT (DEFPRINT (QUOTE TEDITHISTORYEVE (PUTPROPS GETTH MACRO ((EVENT FIELD) (fetch (TEDITHISTORYEVENT FIELD) of EVENT))) (PUTPROPS SETTH MACRO ((EVENT FIELD NEWVALUE) (replace (TEDITHISTORYEVENT FIELD) of EVENT with NEWVALUE))) -(PUTPROP (QUOTE TEDIT-HISTORY) (QUOTE IMPORTDATE) (IDATE "28-Mar-2025 14:23:18")) +(PUTPROP (QUOTE TEDIT-HISTORY) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 22:42:33")) (RECORD PAGEFORMATTINGSTATE ((* ;; "Contains the state for a TEdit page-formatting job.") PAGE# (* ; "The current page number. Counted from 1") FIRSTPAGE (* ;; "T if the current page is the 'first page' . Is set initially, and can be set again by the user at will. Gets reset after each page image is printed." @@ -671,8 +676,12 @@ REGIONPARENT FULLXPOINTER) (* ; "The parent node for this box, for sub-boxes") R (PUTPROPS GETPFS MACRO ((FS FIELD) (fetch (PAGEFORMATTINGSTATE FIELD) of FS))) (PUTPROPS SETPFS MACRO ((FS FIELD NEWVALUE) (replace (PAGEFORMATTINGSTATE FIELD) of FS with NEWVALUE)) ) -(PUTPROP (QUOTE TEDIT-PAGE) (QUOTE IMPORTDATE) (IDATE "23-Feb-2025 10:06:16")) -(PUTPROP (QUOTE TEDIT-ABBREV) (QUOTE IMPORTDATE) (IDATE "28-Mar-2025 10:13:36")) +(PUTPROPS TEDIT.SETQS MACRO (ARGS (BQUOTE (LET (($$VALUES (\, (CADR ARGS)))) (DECLARE (LOCALVARS +$$VALUES)) (PROG1 (CAR $$VALUES) (\,@ (FOR V IN (CAR ARGS) collect (COND (V (BQUOTE (SETQ (\, V) (POP +$$VALUES)))) (T (BQUOTE (SETQ $$VALUES (CDR $$VALUES)))))))))))) +(PUTPROPS TEDIT.VALUES MACRO (ARGS (BQUOTE (LIST (\,@ ARGS))))) +(PUTPROP (QUOTE TEDIT-PAGE) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 22:42:22")) +(PUTPROP (QUOTE TEDIT-ABBREV) (QUOTE IMPORTDATE) (IDATE "20-Apr-2025 23:30:30")) (PUTPROP (QUOTE TEDIT-TFBRAVO) (QUOTE IMPORTDATE) (IDATE "28-Mar-2025 14:23:07")) (DECLARE%: DONTCOPY (FILEMAP (NIL))) diff --git a/lispusers/EQUATIONS b/lispusers/EQUATIONS index da184426..03a76c08 100644 --- a/lispusers/EQUATIONS +++ b/lispusers/EQUATIONS @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "28-Jun-2024 22:11:21" {WMEDLEY}EQUATIONS.;2 85831 +(FILECREATED "31-May-2025 19:47:44" {WMEDLEY}EQUATIONS.;4 85964 :EDIT-BY rmk - :CHANGES-TO (FNS EQN.WindowFromText) + :CHANGES-TO (FNS EQN.EditWindow) - :PREVIOUS-DATE " 3-Mar-88 13:51:10" {WMEDLEY}EQUATIONS.;1) + :PREVIOUS-DATE "28-Jun-2024 22:11:21" {WMEDLEY}EQUATIONS.;2) (PRETTYCOMPRINT EQUATIONSCOMS) @@ -1326,12 +1326,13 @@ ]) (EQN.EditWindow - [LAMBDA window (* thh%: " 3-May-85 08:55") + [LAMBDA window (* ; "Edited 31-May-2025 19:47 by rmk") + (* thh%: " 3-May-85 08:55") (* returns or sets window of any sub  edit) (COND [(IEQP window 1) - (PROG [(w (WINDOWPROP (ARG window 1) + (PROG [(w (WINDOWPROP (TEDITWINDOWP (ARG window 1)) 'EditWindow] (* test for valid window) (RETURN (COND ((WINDOWP w) @@ -1345,7 +1346,7 @@ NIL))) (T NIL] ((IEQP window 2) - (WINDOWPROP (ARG window 1) + (WINDOWPROP (TEDITWINDOWP (ARG window 1)) 'EditWindow (ARG window 2))) (T NIL]) @@ -1797,34 +1798,34 @@ (FILESLOAD EQUATIONFORMS) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4439 19468 (EQIO.CreateFns 4449 . 4982) (EQIO.Create 4984 . 6250) (EQIO.Imagebox 6252 - . 6664) (EQIO.Display 6666 . 8277) (EQIO.ButtonEventIn 8279 . 12120) (EQIO.Copy 12122 . 12503) ( -EQIO.CopyList 12505 . 13076) (EQIO.Get 13078 . 13486) (EQIO.Put 13488 . 14043) (EQIO.WhenDeleted 14045 - . 14539) (EQIO.SelectRegion 14541 . 15688) (EQIO.Selection 15690 . 17194) (EQIO.DefaultSelectFn 17196 - . 18434) (EQIO.MakeSelectionMenu 18436 . 19466)) (19542 25544 (EQIO.EqnType 19552 . 19803) ( -EQIO.EqnDataList 19805 . 20145) (EQIO.SetDataList 20147 . 20544) (EQIO.EqnData 20546 . 20725) ( -EQIO.EqnProperty 20727 . 21655) (EQIO.AllProps 21657 . 22172) (EQIO.Specify 22174 . 22671) ( -EQIO.GetInitialProps 22673 . 23805) (EQIO.NumPieces 23807 . 25050) (EQIO.NewStructure 25052 . 25542)) -(25611 30073 (EQIO.AddType 25621 . 26134) (EQIO.GetInfo 26136 . 26486) (EQIO.SetInfo 26488 . 27129) ( -EQIO.TypeProp 27131 . 28077) (EQIO.ResetTypeProps 28079 . 28401) (EQIO.IsDefined 28403 . 28688) ( -EQIO.GetBox 28690 . 28910) (EQIO.GetDataSpec 28912 . 29245) (EQIO.GetDataSpecList 29247 . 29392) ( -EQIO.GetDataPosition 29394 . 29534) (EQIO.GetDataSelectRegion 29536 . 29680) (EQIO.MakeSpec 29682 . -29918) (EQIO.MakeDataSpec 29920 . 30071)) (31648 48752 (EQN.AbortEdit 31658 . 32170) (EQN.StopEdit -32172 . 32619) (EQN.ContinueEdit 32621 . 36273) (EQN.FinishEdit 36275 . 37008) (EQN.MakeEditWindow -37010 . 38429) (EQN.SetUpEdit 38431 . 39608) (EQN.StartEdit 39610 . 42911) (EQN.StartNextEdit 42913 . -43430) (EQN.UpdateEdit 43432 . 44829) (EQN.DefaultData 44831 . 47516) (EQN.TypeMenu 47518 . 48750)) ( -48819 56727 (EQN.Equation 48829 . 50088) (EQN.NextPiece 50090 . 50815) (EQN.FinishEqn 50817 . 51346) ( -EQN.NoUpdateAbort 51348 . 51761) (EQN.PreventUpdate 51763 . 52198) (EQN.CharFn 52200 . 54285) ( -EQN.TEditSpecialChar 54287 . 55006) (EQN.SnuggleWindows 55008 . 55599) (EQN.SnuggleMainWindow 55601 . -56725)) (56781 58520 (EQN.EquationFontNumber 56791 . 57550) (EQN.EquationFont 57552 . 57894) ( -EQN.GetEqnFont 57896 . 58077) (EQN.MakeFS 58079 . 58518)) (58549 61690 (EQN.AdjustWindow 58559 . 60519 -) (EQN.CheckWindowSize 60521 . 61688)) (61691 67455 (EQN.SubEditorP 61701 . 61934) (EQN.WindowFromText - 61936 . 62473) (EQN.EditWindow 62475 . 63553) (EQN.ResultWindow 63555 . 64105) (EQN.ResultObj 64107 - . 64575) (EQN.PieceNumber 64577 . 65126) (EQN.ContinueFlg 65128 . 65691) (EQN.ValidEditWindow 65693 - . 66127) (EQN.ObjEditWindow 66129 . 67453)) (67456 68573 (EQN.Make 67466 . 68571)) (69805 85740 ( -FS.Box 69815 . 72061) (FS.Copy 72063 . 72703) (FS.Display 72705 . 75691) (FS.Get 75693 . 76162) ( -FS.Put 76164 . 76635) (FS.ItemFont 76637 . 76998) (FS.ItemValue 77000 . 77406) (FS.ItemShift 77408 . -77788) (FS.MakeItem 77790 . 78212) (FS.Extract 78214 . 82138) (FS.ExtractFont 82140 . 82743) ( -FS.ExtractShift 82745 . 83308) (FS.Insert 83310 . 85299) (FS.AllowedChar 85301 . 85538) ( -FS.RealStringP 85540 . 85738))))) + (FILEMAP (NIL (4437 19466 (EQIO.CreateFns 4447 . 4980) (EQIO.Create 4982 . 6248) (EQIO.Imagebox 6250 + . 6662) (EQIO.Display 6664 . 8275) (EQIO.ButtonEventIn 8277 . 12118) (EQIO.Copy 12120 . 12501) ( +EQIO.CopyList 12503 . 13074) (EQIO.Get 13076 . 13484) (EQIO.Put 13486 . 14041) (EQIO.WhenDeleted 14043 + . 14537) (EQIO.SelectRegion 14539 . 15686) (EQIO.Selection 15688 . 17192) (EQIO.DefaultSelectFn 17194 + . 18432) (EQIO.MakeSelectionMenu 18434 . 19464)) (19540 25542 (EQIO.EqnType 19550 . 19801) ( +EQIO.EqnDataList 19803 . 20143) (EQIO.SetDataList 20145 . 20542) (EQIO.EqnData 20544 . 20723) ( +EQIO.EqnProperty 20725 . 21653) (EQIO.AllProps 21655 . 22170) (EQIO.Specify 22172 . 22669) ( +EQIO.GetInitialProps 22671 . 23803) (EQIO.NumPieces 23805 . 25048) (EQIO.NewStructure 25050 . 25540)) +(25609 30071 (EQIO.AddType 25619 . 26132) (EQIO.GetInfo 26134 . 26484) (EQIO.SetInfo 26486 . 27127) ( +EQIO.TypeProp 27129 . 28075) (EQIO.ResetTypeProps 28077 . 28399) (EQIO.IsDefined 28401 . 28686) ( +EQIO.GetBox 28688 . 28908) (EQIO.GetDataSpec 28910 . 29243) (EQIO.GetDataSpecList 29245 . 29390) ( +EQIO.GetDataPosition 29392 . 29532) (EQIO.GetDataSelectRegion 29534 . 29678) (EQIO.MakeSpec 29680 . +29916) (EQIO.MakeDataSpec 29918 . 30069)) (31646 48750 (EQN.AbortEdit 31656 . 32168) (EQN.StopEdit +32170 . 32617) (EQN.ContinueEdit 32619 . 36271) (EQN.FinishEdit 36273 . 37006) (EQN.MakeEditWindow +37008 . 38427) (EQN.SetUpEdit 38429 . 39606) (EQN.StartEdit 39608 . 42909) (EQN.StartNextEdit 42911 . +43428) (EQN.UpdateEdit 43430 . 44827) (EQN.DefaultData 44829 . 47514) (EQN.TypeMenu 47516 . 48748)) ( +48817 56725 (EQN.Equation 48827 . 50086) (EQN.NextPiece 50088 . 50813) (EQN.FinishEqn 50815 . 51344) ( +EQN.NoUpdateAbort 51346 . 51759) (EQN.PreventUpdate 51761 . 52196) (EQN.CharFn 52198 . 54283) ( +EQN.TEditSpecialChar 54285 . 55004) (EQN.SnuggleWindows 55006 . 55597) (EQN.SnuggleMainWindow 55599 . +56723)) (56779 58518 (EQN.EquationFontNumber 56789 . 57548) (EQN.EquationFont 57550 . 57892) ( +EQN.GetEqnFont 57894 . 58075) (EQN.MakeFS 58077 . 58516)) (58547 61688 (EQN.AdjustWindow 58557 . 60517 +) (EQN.CheckWindowSize 60519 . 61686)) (61689 67588 (EQN.SubEditorP 61699 . 61932) (EQN.WindowFromText + 61934 . 62471) (EQN.EditWindow 62473 . 63686) (EQN.ResultWindow 63688 . 64238) (EQN.ResultObj 64240 + . 64708) (EQN.PieceNumber 64710 . 65259) (EQN.ContinueFlg 65261 . 65824) (EQN.ValidEditWindow 65826 + . 66260) (EQN.ObjEditWindow 66262 . 67586)) (67589 68706 (EQN.Make 67599 . 68704)) (69938 85873 ( +FS.Box 69948 . 72194) (FS.Copy 72196 . 72836) (FS.Display 72838 . 75824) (FS.Get 75826 . 76295) ( +FS.Put 76297 . 76768) (FS.ItemFont 76770 . 77131) (FS.ItemValue 77133 . 77539) (FS.ItemShift 77541 . +77921) (FS.MakeItem 77923 . 78345) (FS.Extract 78347 . 82271) (FS.ExtractFont 82273 . 82876) ( +FS.ExtractShift 82878 . 83441) (FS.Insert 83443 . 85432) (FS.AllowedChar 85434 . 85671) ( +FS.RealStringP 85673 . 85871))))) STOP diff --git a/lispusers/EQUATIONS.LCOM b/lispusers/EQUATIONS.LCOM index b0511f102534ef5d914600977b876167070e5f31..d1c1d49471bed7a5dddcc8314598ed33277f525d 100644 GIT binary patch delta 497 zcmaEUo3ZB(tO524+eM zNkys2`MCv|IjJcMsTBo9#i~{cu7Q4ft|^%%;hA|U`Q-|kc?wEyp*}te$R_CN=_x6s zB$fcRVKds$SV@yh!_Cvj)j7yj$}z;%MFG_TFxOQpvYRMam|B{dOipA}kwRFjsbCcl zHh>F44f9uVXopkQI40CcP;Oi01p z2u*>hF*tmJQj1G-U?F5;rr;mo>K7iMU~HiPHB72 zNkys2`MCv|IjJcMsTBo9#i~{cu7Q4f;hA|U`Q>g!`MDvf6(tIpc?wEyp*}te$foG& z=_x6sB$fcRVl&>vP)Uc69W@NsvskS zM@sh1tPh)P_Gc%iGXMb>h!A9C^yCCFwpdM8a@Ux=!c(~3(oi8FG$h>9&&5AHAjm&J z!OR>@z{CRV`=Hd~(wq{A^At=B75oES{lWtjjExnbniYT{?CuIRDm2(N2xOcluZD%O lf@?}9OsAP4GS86J62zUn(L-$VeRZkH_dK#UFY?Gz1pvUnedhoG