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

Systematically renamed internal Tedit files with \TEDIT

Browse Source 
This includes some files in lispusers that are not in the Tedit core but had references to Tedit internal functions (TMAX, DOC-OBJECTS and some others) that have been renamed. (I hope to clean out those internal references, at some point.)

A few additional changes are here to track the changes that were recently made in the unrenamed master branch.  Going forward, I want to make future changes in this branch.

Eventual plan is to introduce a Tedit package and do another systematic renaming of all \TEDIT.xxx functions to TEDIT::xxx, this is a first step.

This does not yet include a backward-compatibility mapping of oldnames to newnames, as was discussed in the technical meeting.
This commit is contained in:
rmkaplan
2024-04-01 20:49:06 -07:00
parent f6eb5d9846
commit f4fd00f8b8
58 changed files with 4072 additions and 3610 deletions
Download Patch File Download Diff File Expand all files Collapse all files

95
library/tedit/TEDIT-HISTORY
View File

@@ -1,14 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 4-Mar-2024 22:50:23" {WMEDLEY}<library>tedit>TEDIT-HISTORY.;147 32593
(FILECREATED "20-Mar-2024 11:05:20" {WMEDLEY}<library>tedit>TEDIT-HISTORY.;154 33348
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.HISTORYEVENT.DEFPRINT \TEDIT.HISTORYADD \TEDIT.CUMULATE.EVENTS
TEDIT.UNDO \TEDIT.UNDO1 TEDIT.REDO \TEDIT.UNDO.DELETION \TEDIT.UNDO.REPLACE
\TEDIT.REDO.REPLACE \TEDIT.REDO.MOVE)
:CHANGES-TO (FNS TEDIT.UNDO)
:PREVIOUS-DATE " 4-Mar-2024 21:33:56" {WMEDLEY}<library>tedit>TEDIT-HISTORY.;146)
:PREVIOUS-DATE "15-Mar-2024 13:55:42" {WMEDLEY}<library>tedit>TEDIT-HISTORY.;153)
(PRETTYCOMPRINT TEDIT-HISTORYCOMS)
@@ -208,7 +206,8 @@
EVENT])
(\TEDIT.CUMULATE.EVENTS
[LAMBDA (EVENT1 EVENT2 TEXTOBJ) (* ; "Edited 3-Mar-2024 12:15 by rmk")
[LAMBDA (EVENT1 EVENT2 TEXTOBJ) (* ; "Edited 15-Mar-2024 13:54 by rmk")
(* ; "Edited 3-Mar-2024 12:15 by rmk")
(* ; "Edited 3-Jun-2023 17:09 by rmk")
(* ; "Edited 27-May-2023 00:54 by rmk")
(* ; "Edited 25-May-2023 23:58 by rmk")
@@ -220,7 +219,7 @@
(* ;; "For now, this assumes they're events of the same type. Actually, this should be able to cumulate a delete/insert pair into a replacement, etc.")
(SETTH EVENT1 THDELETEDPIECES (\SELPIECES.CONCAT (GETTH EVENT1 THDELETEDPIECES)
(SETTH EVENT1 THDELETEDPIECES (\TEDIT.SELPIECES.CONCAT (GETTH EVENT1 THDELETEDPIECES)
(GETTH EVENT2 THDELETEDPIECES)
TEXTOBJ))
(SETTH EVENT1 THLEN (fetch (SELPIECES SPLEN) of (GETTH EVENT1 THDELETEDPIECES)))
@@ -234,7 +233,10 @@
(DEFINEQ
(TEDIT.UNDO
[LAMBDA (TEXTOBJ) (* ; "Edited 3-Mar-2024 20:02 by rmk")
[LAMBDA (TEXTOBJ) (* ; "Edited 20-Mar-2024 11:04 by rmk")
(* ; "Edited 15-Mar-2024 13:36 by rmk")
(* ; "Edited 7-Mar-2024 12:48 by rmk")
(* ; "Edited 3-Mar-2024 20:02 by rmk")
(* ; "Edited 22-Nov-2023 18:17 by rmk")
(* ; "Edited 27-Sep-2023 00:14 by rmk")
(* ; "Edited 23-Jun-2023 00:19 by rmk")
@@ -244,7 +246,7 @@
(* ;; "We push information for undoing the undo onto the TXTHISTORYUNDO list.")
(\DTEST TEXTOBJ 'TEXTOBJ)
(TEXTOBJ! TEXTOBJ)
(CL:UNLESS (FGETTOBJ TEXTOBJ TXTREADONLY)
(* ;; "Only undo things if the document is allowed to change.")
@@ -262,17 +264,12 @@
(* ;; "We can get into trouble if there is an interrupt in the middle of undoing the full set of events for a previous action, or even in the middle of a singleton event.")
(SETQ PREVEVENTS (FGETTOBJ TEXTOBJ TXTHISTORY))
(\SHOWSEL SEL NIL)
(\TEDIT.SHOWSEL SEL NIL)
(\TEDIT.UNDO1 TEXTOBJ EVENT)
(* ;;
 "Gather into a single (list) event all the events that were created as part of the undo. .")
(* ;; "Get the event that undid EVENT")
[SETQ UNDOEVENT (for ETAIL on (FGETTOBJ TEXTOBJ TXTHISTORY)
until (EQ ETAIL PREVEVENTS) collect (CAR ETAIL)
finally (RETURN (CL:IF (CDR $$VAL)
$$VAL
(CAR $$VAL))]
(SETQ UNDOEVENT (\TEDIT.POPEVENT TEXTOBJ))
(FSETTOBJ TEXTOBJ TXTHISTORY PREVEVENTS)
(CL:WHEN [OR (NULL PREVEVENTS)
(AND (type? TEDITHISTORYEVENT (CAR (LISTP PREVEVENTS)))
@@ -286,8 +283,8 @@
(push (FGETTOBJ TEXTOBJ TXTHISTORYUNDONE TEXTOBJ)
(LIST (CAR PREVEVENTS)
UNDOEVENT EVENT))
(\FIXSEL SEL TEXTOBJ)
(\SHOWSEL SEL T)))])
(\TEDIT.FIXSEL SEL TEXTOBJ)
(\TEDIT.SHOWSEL SEL T)))])
(\TEDIT.UNDO1
[LAMBDA (TEXTOBJ EVENT) (* ; "Edited 4-Mar-2024 14:55 by rmk")
@@ -337,7 +334,8 @@
T])
(TEDIT.REDO
[LAMBDA (TEXTOBJ) (* ; "Edited 4-Mar-2024 21:33 by rmk")
[LAMBDA (TEXTOBJ) (* ; "Edited 15-Mar-2024 13:36 by rmk")
(* ; "Edited 4-Mar-2024 21:33 by rmk")
(* ; "Edited 2-Mar-2024 09:41 by rmk")
(* ; "Edited 21-Dec-2023 11:57 by rmk")
(* ; "Edited 27-May-2023 11:19 by rmk")
@@ -358,7 +356,7 @@
(* ;; "There really is something to redo and something to do it to.")
(\SHOWSEL SEL NIL)
(\TEDIT.SHOWSEL SEL NIL)
(SELECTC (GETTH EVENT THACTION)
((LIST :Insert :Copy :Move) (* ; "It was an insertion")
(\TEDIT.REDO.INSERTION TEXTOBJ EVENT SEL))
@@ -384,16 +382,17 @@
 WAITINGCURSOR))) (TEDIT.PROMPTPRINT
 TEXTOBJ "Searching..." T)
 (SETQ SEL (fetch (TEXTOBJ SEL) of
 TEXTOBJ)) (\SHOWSEL SEL NIL)
 TEXTOBJ)) (\TEDIT.SHOWSEL SEL NIL)
 (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)) (\FIXSEL SEL TEXTOBJ)
 (TEDIT.NORMALIZECARET TEXTOBJ)
 (\SHOWSEL SEL T)) (T
 (TEDIT.PROMPTPRINT TEXTOBJ "[Not found]"))))
 (QUOTE RIGHT)) (\TEDIT.FIXSEL SEL
 TEXTOBJ) (TEDIT.NORMALIZECARET TEXTOBJ)
 (\TEDIT.SHOWSEL SEL T))
 (T (TEDIT.PROMPTPRINT TEXTOBJ
 "[Not found]"))))
)
(:Move (* ; "He moved some text")
(\TEDIT.REDO.MOVE TEXTOBJ EVENT (GETTH EVENT THLEN)
@@ -405,7 +404,7 @@
(TEDIT.PROMPTPRINT TEXTOBJ (CONCAT "Redoing the action " (GETTH EVENT THACTION)
" isn't implemented.")
T))
(\SHOWSEL SEL T)))])
(\TEDIT.SHOWSEL SEL T)))])
(\TEDIT.UNDO.UNDO
[LAMBDA (TEXTOBJ) (* ; "Edited 3-Mar-2024 21:27 by rmk")
@@ -458,19 +457,21 @@
EVENT])
(\TEDIT.UNDO.DELETION
[LAMBDA (TEXTOBJ EVENT) (* ; "Edited 30-May-2023 23:31 by rmk")
[LAMBDA (TEXTOBJ EVENT) (* ; "Edited 15-Mar-2024 13:54 by rmk")
(* ; "Edited 30-May-2023 23:31 by rmk")
(* ; "Edited 27-May-2023 23:39 by rmk")
(* ; "Edited 21-Apr-93 12:01 by jds")
(* ;; "UNDO a prior deletion ")
(\TEDIT.INSERT.SELPIECES (\SELPIECES.COPY (GETTH EVENT THDELETEDPIECES)
(\TEDIT.INSERT.SELPIECES (\TEDIT.SELPIECES.COPY (GETTH EVENT THDELETEDPIECES)
'INSERT TEXTOBJ)
TEXTOBJ
(GETTH EVENT THCH#])
(\TEDIT.UNDO.MOVE
[LAMBDA (TEXTOBJ EVENT) (* ; "Edited 4-Mar-2024 16:08 by rmk")
[LAMBDA (TEXTOBJ EVENT) (* ; "Edited 15-Mar-2024 13:54 by rmk")
(* ; "Edited 4-Mar-2024 16:08 by rmk")
(* ;; "If the deletion from TEDIT.MOVE was not in TEXTOBJ, the FOBJ must have been a separate document. If FOBJ is still in the state just after that deletion, it can be undone there. But if FOBJ is not in that state, undoing doesn't there make sense. The deleted string would reappear in some random place.")
@@ -481,7 +482,7 @@
(* ; "Undo the insert in this document")
(CL:WHEN (GETTH EVENT THDELETEDPIECES) (* ;
 ":Move must have started as :Replace")
(\TEDIT.INSERT.SELPIECES (\SELPIECES.COPY (GETTH EVENT THDELETEDPIECES)
(\TEDIT.INSERT.SELPIECES (\TEDIT.SELPIECES.COPY (GETTH EVENT THDELETEDPIECES)
'INSERT TEXTOBJ)
TEXTOBJ
(GETTH EVENT THCH#)))
@@ -497,13 +498,14 @@
(\TEDIT.UPDATE.SEL SEL EVENT 0 'LEFT T])
(\TEDIT.UNDO.REPLACE
[LAMBDA (TEXTOBJ EVENT ACTION) (* ; "Edited 30-May-2023 23:10 by rmk")
[LAMBDA (TEXTOBJ EVENT ACTION) (* ; "Edited 15-Mar-2024 13:54 by rmk")
(* ; "Edited 30-May-2023 23:10 by rmk")
(* ; "Edited 27-May-2023 16:49 by rmk")
(* ; "Edited 24-May-2023 22:43 by rmk")
(* ;; "This undoes the replacement, but tracks for REDO whether the action was replace, lowercase, or uppercase.")
(\TEDIT.REPLACE.SELPIECES (\SELPIECES.COPY (GETTH EVENT THDELETEDPIECES)
(\TEDIT.REPLACE.SELPIECES (\TEDIT.SELPIECES.COPY (GETTH EVENT THDELETEDPIECES)
NIL TEXTOBJ)
TEXTOBJ
(\TEDIT.UPDATE.SEL (fetch (TEXTOBJ SEL) of TEXTOBJ)
@@ -514,18 +516,20 @@
(DEFINEQ
(\TEDIT.REDO.INSERTION
[LAMBDA (TEXTOBJ EVENT SEL) (* ; "Edited 31-May-2023 10:26 by rmk")
[LAMBDA (TEXTOBJ EVENT SEL) (* ; "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")
(* ;; "Copies of the pieces inserted at the previous insertion EVENT are inserted at SEL's caret. We can extract the relevant pieces from the event's text position, because we know that either EVENT was the last event or other events after it have been undone, and the pieces are back to their original state.")
(\TEDIT.INSERT.SELPIECES (\SELPIECES.COPY (\SELPIECES EVENT NIL TEXTOBJ)
(\TEDIT.INSERT.SELPIECES (\TEDIT.SELPIECES.COPY (\TEDIT.SELPIECES EVENT NIL TEXTOBJ)
'INSERT TEXTOBJ)
TEXTOBJ SEL])
(\TEDIT.REDO.REPLACE
[LAMBDA (TEXTOBJ EVENT ACTION) (* ; "Edited 2-Oct-2023 11:43 by rmk")
[LAMBDA (TEXTOBJ EVENT ACTION) (* ; "Edited 15-Mar-2024 13:54 by rmk")
(* ; "Edited 2-Oct-2023 11:43 by rmk")
(* ; "Edited 31-May-2023 10:25 by rmk")
(* ; "Edited 27-May-2023 11:16 by rmk")
(* ; "Edited 16-May-2023 22:05 by rmk")
@@ -533,7 +537,7 @@
(* ;; "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 (\SELPIECES.COPY (\SELPIECES EVENT NIL TEXTOBJ)
(\TEDIT.REPLACE.SELPIECES (\TEDIT.SELPIECES.COPY (\TEDIT.SELPIECES EVENT NIL TEXTOBJ)
NIL TEXTOBJ)
TEXTOBJ
(\TEDIT.UPDATE.SEL (fetch (TEXTOBJ SEL) of TEXTOBJ)
@@ -542,7 +546,8 @@
THACTION ACTION])
(\TEDIT.REDO.MOVE
[LAMBDA (TEXTOBJ EVENT LEN CH# FIRSTPIECE) (* ; "Edited 16-Feb-2024 23:36 by rmk")
[LAMBDA (TEXTOBJ EVENT LEN CH# FIRSTPIECE) (* ; "Edited 15-Mar-2024 13:36 by rmk")
(* ; "Edited 16-Feb-2024 23:36 by rmk")
(* ; "Edited 7-Jun-2023 23:19 by rmk")
(* ; "Edited 27-May-2023 11:18 by rmk")
(* ; "Edited 23-May-2023 12:54 by rmk")
@@ -551,15 +556,15 @@
(\TEDIT.UPDATE.SEL SCR2 (GETTH EVENT THCH#)
LEN)
(SETSEL SCR2 SET T)
(\FIXSEL SCR2 TEXTOBJ)
(\TEDIT.FIXSEL SCR2 TEXTOBJ)
(\TEDIT.SET.SEL.LOOKS SCR2 'MOVE)
(TEDIT.MOVE SCR2 (FGETTOBJ TEXTOBJ SEL])
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (5054 6075 (\TEDIT.HISTORYEVENT.DEFPRINT 5064 . 6073)) (6841 12292 (\TEDIT.HISTORYADD
6851 . 10927) (\TEDIT.CUMULATE.EVENTS 10929 . 12290)) (12345 25970 (TEDIT.UNDO 12355 . 15592) (
\TEDIT.UNDO1 15594 . 18659) (TEDIT.REDO 18661 . 23730) (\TEDIT.UNDO.UNDO 23732 . 25968)) (25971 29764
(\TEDIT.UNDO.INSERTION 25981 . 26738) (\TEDIT.UNDO.DELETION 26740 . 27312) (\TEDIT.UNDO.MOVE 27314 .
28974) (\TEDIT.UNDO.REPLACE 28976 . 29762)) (29765 32570 (\TEDIT.REDO.INSERTION 29775 . 30604) (
\TEDIT.REDO.REPLACE 30606 . 31726) (\TEDIT.REDO.MOVE 31728 . 32568)))))
(FILEMAP (NIL (4834 5855 (\TEDIT.HISTORYEVENT.DEFPRINT 4844 . 5853)) (6621 12187 (\TEDIT.HISTORYADD
6631 . 10707) (\TEDIT.CUMULATE.EVENTS 10709 . 12185)) (12240 26023 (TEDIT.UNDO 12250 . 15439) (
\TEDIT.UNDO1 15441 . 18506) (TEDIT.REDO 18508 . 23783) (\TEDIT.UNDO.UNDO 23785 . 26021)) (26024 30162
(\TEDIT.UNDO.INSERTION 26034 . 26791) (\TEDIT.UNDO.DELETION 26793 . 27480) (\TEDIT.UNDO.MOVE 27482 .
29257) (\TEDIT.UNDO.REPLACE 29259 . 30160)) (30163 33325 (\TEDIT.REDO.INSERTION 30173 . 31123) (
\TEDIT.REDO.REPLACE 31125 . 32366) (\TEDIT.REDO.MOVE 32368 . 33323)))))
STOP