github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-30 13:42:16 +00:00
Code Issues Projects Releases Wiki Activity

Tedit PLOOKS cleanup plus default paralooks (#2259)

Browse Source
This commit is contained in:
rmkaplan
2025-08-16 13:45:28 -07:00
committed by GitHub
parent 8fa61304a3
commit 74f518ca02
32 changed files with 752 additions and 777 deletions
Download Patch File Download Diff File Expand all files Collapse all files

147
library/tedit/TEDIT
View File

@@ -1,13 +1,14 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "28-May-2025 16:07:21" {WMEDLEY}<library>tedit>TEDIT.;830 146159
(FILECREATED " 1-Aug-2025 14:50:15" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT.;835 145114
:EDIT-BY rmk
:CHANGES-TO (VARS TEDITCOMS)
(FNS TEDITSYSTEMDATE)
:CHANGES-TO (FNS \TEDIT.PARA.FIRST \TEDIT.PARA.LAST)
:PREVIOUS-DATE " 7-May-2025 00:13:12" {WMEDLEY}<library>tedit>TEDIT.;829)
:PREVIOUS-DATE "28-Jul-2025 23:49:50"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT.;834)
(PRETTYCOMPRINT TEDITCOMS)
@@ -206,6 +207,10 @@
(TEDIT
[LAMBDA (TEXT WINDOW DONTSPAWN PROPS)
(* ;; "Edited 25-Jul-2025 20:48 by rmk")
(* ;; "Edited 17-Jul-2025 00:24 by rmk")
(* ;; "Edited 25-Jun-2024 11:59 by rmk")
(* ;; "Edited 9-Mar-2024 22:47 by rmk")
@@ -232,33 +237,32 @@
(LET (TSTREAM PROC) (* ;
 "Make sure the file exists before trying to open the window.")
(push PROPS 'BEING-EDITED T) (* ;
 "Mark the document as actively in edit, so caret flashes when the window first opens.")
(SETQ TSTREAM (OPENTEXTSTREAM TEXT (OR WINDOW 'Tedit)
NIL NIL PROPS))
(SETQ WINDOW (\TEDIT.PRIMARYPANE TSTREAM))
(COND
(DONTSPAWN (* ;
(replace (TEXTOBJ UNDERTEDIT) of (FTEXTOBJ TSTREAM) with T)
(if DONTSPAWN
then (* ;
 "Either no processes running, or specifically not to spawn one.")
(\TEDIT1 TSTREAM WINDOW T))
(T (* ; "Spawn a process to do the edit.")
[SETQ PROC (ADD.PROCESS (LIST (FUNCTION \TEDIT1)
(KWOTE TSTREAM)
WINDOW NIL)
'NAME
'TEdit
'RESTARTABLE
'HARDRESET
'RESTARTFORM
(LIST (FUNCTION \TEDIT.RESTARTFN)
(KWOTE TSTREAM)
WINDOW
(KWOTE PROPS]
(PROCESSPROP PROC 'WINDOW WINDOW)
(CL:UNLESS (LISTGET PROPS 'LEAVETTY) (* ;
(\TEDIT1 TSTREAM WINDOW T)
else (* ; "Spawn a process to do the edit.")
[SETQ PROC (ADD.PROCESS (LIST (FUNCTION \TEDIT1)
(KWOTE TSTREAM)
WINDOW NIL)
'NAME
'TEdit
'RESTARTABLE
'HARDRESET
'RESTARTFORM
(LIST (FUNCTION \TEDIT.RESTARTFN)
(KWOTE TSTREAM)
WINDOW
(KWOTE PROPS]
(PROCESSPROP PROC 'WINDOW WINDOW)
(CL:UNLESS (LISTGET PROPS 'LEAVETTY) (* ;
 "Unless he asked us to leave the tty where it is, TEdit should get it.")
(TTY.PROCESS PROC))
PROC])
(TTY.PROCESS PROC))
PROC])
(TEXTSTREAM
[LAMBDA (TSTREAM? NOERROR) (* ; "Edited 25-Apr-2025 18:07 by rmk")
@@ -758,26 +762,12 @@
(DEFINEQ
(TEDIT.INSERT.OBJECT
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 7-May-2025 00:10 by rmk")
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 28-Jul-2025 23:48 by rmk")
(* ; "Edited 7-May-2025 00:10 by rmk")
(* ; "Edited 21-Apr-2025 22:17 by rmk")
(* ; "Edited 6-Apr-2025 14:10 by rmk")
(* ; "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")
(* ; "Edited 2-Aug-2024 08:46 by rmk")
(* ; "Edited 30-Jul-2024 22:19 by rmk")
(* ; "Edited 23-Jul-2024 22:20 by rmk")
(* ; "Edited 7-Jul-2024 12:32 by rmk")
(* ; "Edited 22-May-2024 13:56 by rmk")
(* ; "Edited 18-May-2024 16:20 by rmk")
(* ; "Edited 12-May-2024 20:53 by rmk")
(* ; "Edited 3-Mar-2024 13:01 by rmk")
(* ; "Edited 16-Mar-2024 00:08 by rmk")
(* ; "Edited 9-Feb-2024 10:52 by rmk")
(* ; "Edited 28-Jan-2024 23:29 by rmk")
(* ; "Edited 11-Dec-2023 08:21 by rmk")
(* ; "Edited 12-Nov-2023 12:16 by rmk")
(* ; "Edited 19-May-2023 00:18 by rmk")
(* ; "Edited 21-Apr-93 00:52 by jds")
@@ -799,7 +789,7 @@
PTYPE _ OBJECT.PTYPE
PCONTENTS _ OBJECT
PLEN _ 1
PLOOKS _ (FGETTOBJ TEXTOBJ CARETLOOKS)))
PCHARLOOKS _ (FGETTOBJ TEXTOBJ CARETLOOKS)))
(* ; "The new piece we're inserting")
(CL:WHEN (SETQ SUBSTREAM (IMAGEOBJPROP OBJECT 'SUBSTREAM))
(* ;
@@ -1725,6 +1715,7 @@
(\TEDIT.COPYPIECE
[LAMBDA (PC FROMTSTREAM TOTSTREAM UNPROTECT OPERATION PROMPTTEXTOBJ)
(* ; "Edited 28-Jul-2025 23:49 by rmk")
(* ; "Edited 22-Apr-2025 00:12 by rmk")
(* ; "Edited 3-Aug-2024 12:40 by rmk")
(* ; "Edited 15-Oct-2023 20:14 by rmk")
@@ -1781,16 +1772,16 @@
(* ;; "If moving from one text to another, we have to register the looks.")
(if (AND UNPROTECT (FGETCLOOKS (PLOOKS NEWPC)
(if (AND UNPROTECT (FGETCLOOKS (PCHARLOOKS NEWPC)
CLPROTECTED))
then (FSETPC NEWPC PLOOKS (\TEDIT.UNIQUIFY.CHARLOOKS (create CHARLOOKS
using (PLOOKS PC)
CLPROTECTED _ NIL
CLSELAFTER _ NIL)
TOOBJ))
then (FSETPC NEWPC PCHARLOOKS (\TEDIT.UNIQUIFY.CHARLOOKS (create CHARLOOKS
using (PCHARLOOKS PC)
CLPROTECTED _ NIL
CLSELAFTER _ NIL)
TOOBJ))
elseif CROSSCOPY
then (FSETPC NEWPC PLOOKS (\TEDIT.UNIQUIFY.CHARLOOKS (PLOOKS PC)
TOOBJ))
then (FSETPC NEWPC PCHARLOOKS (\TEDIT.UNIQUIFY.CHARLOOKS (PCHARLOOKS PC)
TOOBJ))
(FSETPC NEWPC PPARALOOKS (\TEDIT.UNIQUIFY.PARALOOKS (PPARALOOKS PC)
TOOBJ)))
(RETURN NEWPC])
@@ -2115,7 +2106,8 @@
when (PPARALAST PC) collect CHNO repeatuntil (EQ PC LASTPARAPC])
(\TEDIT.PARA.FIRST
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 26-Apr-2025 11:33 by rmk")
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 1-Aug-2025 14:49 by rmk")
(* ; "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")
@@ -2147,7 +2139,7 @@
(for PC (PLENTOT _ 0) backpieces (AND CHPIECE (PREVPIECE CHPIECE))
when (VISIBLEPIECEP PC) until (PPARALAST PC)
until (AND PROTECTEDNOTOK (GETCLOOKS (PLOOKS PC)
until (AND PROTECTEDNOTOK (GETCLOOKS (PCHARLOOKS PC)
CLPROTECTED)) do (add PLENTOT (PLEN PC))
finally
@@ -2159,7 +2151,8 @@
(\TEDIT.FIRSTPIECE TEXTOBJ))])
(\TEDIT.PARA.LAST
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 7-Feb-2025 08:32 by rmk")
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 1-Aug-2025 14:49 by rmk")
(* ; "Edited 7-Feb-2025 08:32 by rmk")
(* ; "Edited 31-Jan-2025 09:33 by rmk")
(* ; "Edited 17-Mar-2024 00:27 by rmk")
(* ; "Edited 19-Jan-2024 10:37 by rmk")
@@ -2192,7 +2185,7 @@
(for PC (PLENTOT _ 0) inpieces CHPIECE when (VISIBLEPIECEP PC)
do (add PLENTOT (PLEN PC)) repeatuntil (PPARALAST PC)
repeatuntil (AND PROTECTEDNOTOK (FGETCLOOKS (PLOOKS PC)
repeatuntil (AND PROTECTEDNOTOK (FGETCLOOKS (PCHARLOOKS PC)
CLPROTECTED))
finally (RETURN (CONS (IMIN (IPLUS END PLENTOT -1)
(FGETTOBJ TEXTOBJ TEXTLEN))
@@ -2332,26 +2325,26 @@
(ADDTOVAR PRINTFILETYPES (TEDIT (TEST \TEDIT.GET.TRAILER)
(EXTENSION (TEDIT))))
(DECLARE%: DONTCOPY
(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)))))
(FILEMAP (NIL (4922 7316 (MAKE-TEDIT-EXPORTS.ALL 4932 . 5478) (UPDATE-TEDIT 5480 . 6409) (EDIT-TEDIT
6411 . 7314)) (8746 36804 (TEDIT 8756 . 11370) (TEXTSTREAM 11372 . 13261) (TEXTSTREAMP 13263 . 13647)
(COERCETEXTSTREAM 13649 . 17860) (TEDIT.CONCAT 17862 . 21164) (TEDITSTRING 21166 . 22080) (TEDIT-SEE
22082 . 22641) (TEDIT.COPY 22643 . 24788) (TEDIT.DELETE 24790 . 26151) (TEDIT.INSERT 26153 . 29527) (
TEDIT.TERPRI 29529 . 30643) (TEDIT.KILL 30645 . 31627) (TEDIT.QUIT 31629 . 32995) (TEDIT.MOVE 32997 .
33885) (TEDIT.STRINGWIDTH 33887 . 34558) (TEDIT.CHARWIDTH 34560 . 36802)) (36805 38746 (TEXTOBJ 36815
. 37280) (COERCETEXTOBJ 37282 . 38744)) (40146 41796 (TDRIBBLE 40156 . 41794)) (41837 53624 (
TEDIT.INSERT.OBJECT 41847 . 45445) (TEDIT.EDIT.OBJECT 45447 . 48387) (TEDIT.OBJECT.CHANGED 48389 .
51579) (TEDIT.MAP.OBJECTS 51581 . 53152) (\TEDIT.FIRST.OBJPIECE 53154 . 53387) (\TEDIT.NEXT.OBJPIECE
53389 . 53622)) (53647 61090 (\TEDIT.CONCAT.PAGEFRAMES 53657 . 58724) (\TEDIT.GET.PAGE.HEADINGS 58726
. 59755) (\TEDIT.CONCAT.INSTALL.HEADINGS 59757 . 61088)) (61091 64698 (\TEDIT.MOVE.MSG 61101 . 63182)
(\TEDIT.READONLY 63184 . 64696)) (64699 70474 (TEDIT.NCHARS 64709 . 65082) (TEDIT.RPLCHARCODE 65084
. 68074) (TEDIT.NTHCHARCODE 68076 . 70003) (TEDIT.NTHCHAR 70005 . 70472)) (70520 127440 (\TEDIT1
70530 . 72607) (\TEDIT.INSERT 72609 . 78974) (\TEDIT.MOVE 78976 . 86882) (\TEDIT.COPY 86884 . 91415) (
\TEDIT.REPLACE.SELPIECES 91417 . 95844) (\TEDIT.INSERT.SELPIECES 95846 . 98843) (\TEDIT.RESTARTFN
98845 . 101350) (\TEDIT.CHARDELETE 101352 . 104281) (\TEDIT.COPYPIECE 104283 . 109445) (
\TEDIT.APPLY.OBJFN 109447 . 112533) (\TEDIT.DELETE 112535 . 116903) (\TEDIT.DIFFUSE.PARALOOKS 116905
. 119176) (\TEDIT.WORDDELETE 119178 . 120793) (\TEDIT.WORDDELETE.FORWARD 120795 . 122584) (
\TEDIT.FINISHEDIT? 122586 . 127438)) (127441 128100 (\TEDIT.THELP 127451 . 128098)) (128134 137265 (
\TEDIT.PARAPIECES 128144 . 130118) (\TEDIT.PARACHNOS 130120 . 131012) (\TEDIT.PARA.FIRST 131014 .
134115) (\TEDIT.PARA.LAST 134117 . 137263)) (137266 144361 (\TEDIT.WORD.FIRST 137276 . 141280) (
\TEDIT.WORD.LAST 141282 . 144359)) (144562 144839 (TEDITSYSTEMDATE 144572 . 144837)))))
STOP