github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-25 03:45:30 +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

17
library/tedit/TEDIT-ABBREV
View File

@@ -1,10 +1,14 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "12-Jun-2023 10:34:12" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;6 9257
(FILECREATED "17-Mar-2024 18:15:40" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-ABBREV.;8 9500
:EDIT-BY rmk
:PREVIOUS-DATE "17-May-2023 13:40:00" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;5)
:CHANGES-TO (FNS \TEDIT.ABBREV.EXPAND)
:PREVIOUS-DATE "17-Mar-2024 12:06:12"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-ABBREV.;7)
(PRETTYCOMPRINT TEDIT-ABBREVCOMS)
@@ -61,7 +65,8 @@
(DEFINEQ
(\TEDIT.ABBREV.EXPAND
[LAMBDA (TSTREAM) (* ; "Edited 17-May-2023 13:31 by rmk")
[LAMBDA (TSTREAM) (* ; "Edited 17-Mar-2024 12:06 by rmk")
(* ; "Edited 17-May-2023 13:31 by rmk")
(* ; "Edited 8-Sep-2022 23:53 by rmk")
(* ; "Edited 1-Aug-2022 12:04 by rmk")
(* ; "Edited 30-May-91 19:27 by jds")
@@ -76,7 +81,7 @@
(CL:WHEN (ZEROP CH#) (* ;
 "If we're off the front of the document, don't bother trying.")
(RETURN))
(\TEXTSETFILEPTR TSTREAM (SUB1 CH#)
(\TEDIT.TEXTSETFILEPTR TSTREAM (SUB1 CH#)
CH#)
[SETQ CH (MKSTRING (CHARACTER (BIN TSTREAM]
(TEDIT.SETSEL TSTREAM CH# 1 'RIGHT))
@@ -201,6 +206,6 @@
("DATE" . \TEDIT.EXPAND.DATE)
(">>DATE<<" . \TEDIT.EXPAND.DATE)))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (2866 7913 (\TEDIT.ABBREV.EXPAND 2876 . 5128) (\TEDIT.EXPAND.DATE 5130 . 5763) (
\TEDIT.TRY.ABBREV 5765 . 7911)))))
(FILEMAP (NIL (2994 8156 (\TEDIT.ABBREV.EXPAND 3004 . 5371) (\TEDIT.EXPAND.DATE 5373 . 6006) (
\TEDIT.TRY.ABBREV 6008 . 8154)))))
STOP