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

181
library/TEXEC
View File

@@ -1,16 +1,14 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "18-Jun-2023 09:48:54" |{WMEDLEY}<library>TEXEC.;5| 185935
(FILECREATED "28-Mar-2024 00:09:16" |{WMEDLEY}<library>TEXEC.;6| 185248
:EDIT-BY |rmk|
:CHANGES-TO (VARS TEXECCOMS)
:CHANGES-TO (FNS TEXEC.DEFAULT.MENUFN TEXEC.SHRINK.ICONCREATE)
:PREVIOUS-DATE "16-Jul-2022 23:42:20" |{WMEDLEY}<library>TEXEC.;3|)
:PREVIOUS-DATE "18-Jun-2023 09:48:54" |{WMEDLEY}<library>TEXEC.;5|)
; Copyright (c) 1985, 1900, 1986-1991 by Venue & Xerox Corporation.
(PRETTYCOMPRINT TEXECCOMS)
(RPAQQ TEXECCOMS
@@ -186,28 +184,24 @@
TEXSTREAM)))
(TEXEC.DEFAULT.MENUFN
(LAMBDA (W) (* \; "Edited 13-Jun-90 00:16 by mitani")
(LAMBDA (W) (* \; "Edited 28-Mar-2024 00:06 by rmk")
(* \; "Edited 13-Jun-90 00:16 by mitani")
(* |Default| |User| F\n |for| TEXEC |windows--displays| \a |menu| |of| |items|
 & |acts| |on| |the| |commands| |received.|)
(* |;;|
 "Default User Fn for TEXEC windows--displays a menu of items & acts on the commands received.")
(PROG ((TEXTOBJ (WINDOWPROP W 'TEXTOBJ))
(PROG ((TEXTOBJ (TEXTOBJ W))
(WMENU (WINDOWPROP W 'TEDIT.MENU))
THISMENU CH OFILE OCURSOR PCTB LINES SEL ITEM)
(COND
((EQ (|fetch| (TEXTOBJ EDITOPACTIVE) |of| TEXTOBJ)
T) (* |We're| |busy| |doing|
 |something,| |but| |not| |sure|
 |what.| |Give| \a |general|
 "please wait" |msg|)
T) (* \;
 "We're busy doing something, but not sure what. Give a general 'please wait' msg")
(TEDIT.PROMPTPRINT TEXTOBJ "Edit operation in progress; please wait." T)
(RETURN))
((|fetch| (TEXTOBJ EDITOPACTIVE) |of| TEXTOBJ)
(* W\e |know| |specifically|
 |what's| |happening.|
 |Tell| |him|)
(TEDIT.PROMPTPRINT TEXTOBJ (CONCAT (|fetch| (TEXTOBJ EDITOPACTIVE) |of| TEXTOBJ
)
((|fetch| (TEXTOBJ EDITOPACTIVE) |of| TEXTOBJ) (* \;
 "We know specifically what's happening. Tell him")
(TEDIT.PROMPTPRINT TEXTOBJ (CONCAT (|fetch| (TEXTOBJ EDITOPACTIVE) |of| TEXTOBJ)
" in progress; please wait.")
T)
(RETURN)))
@@ -222,37 +216,31 @@
(ERSETQ (RESETLST
(RESETSAVE (\\TEDIT.MARKACTIVE TEXTOBJ)
'(AND (\\TEDIT.MARKINACTIVE OLDVALUE)))
(|replace| (TEXTOBJ EDITOPACTIVE) |of| TEXTOBJ
|with| (OR (CAR ITEM)
T)) (* S\o |we| |ca| |ntell| |the| |guy|
 WHAT |op| |is| |active.|)
(|replace| (TEXTOBJ EDITOPACTIVE) |of| TEXTOBJ |with| (OR (CAR ITEM)
T))
(* \;
 "So we ca ntell the guy WHAT op is active.")
(SELECTQ (CAR ITEM)
(|Put| (TEDIT.PUT TEXTOBJ NIL NIL (TEXTPROP TEXTOBJ 'CLEARPUT)))
(|Plain-Text| (TEDIT.PUT TEXTOBJ NIL NIL T))
(|Old-Format| (* |Write| |out| |the| |file| |in|
 |the| OLD |TEdit| |format.|)
(|Old-Format| (* \;
 "Write out the file in the OLD TEdit format.")
(TEDIT.PUT TEXTOBJ NIL NIL NIL T))
(|Get| (* |Get| \a |new| |file|
 (|overwriting| |the| |one| |being|
 |edited.|))
(|Get| (* \;
 "Get a new file (overwriting the one being edited.)")
(TEXEC.GET TEXTOBJ NIL (TEXTPROP TEXTOBJ 'CLEARGET)))
(|Unformatted Get|
(TEXEC.GET TEXTOBJ NIL T))
(|Include| (* |Insert| \a |file| |where| |the|
 |caret| |is|)
(|Include| (* \; "Insert a file where the caret is")
(TEXEC.INCLUDE TEXTOBJ))
(|ForwardFind| (* |Normal| |forward| |search|
 |Find|)
(|ForwardFind| (* \; "Normal forward search Find")
(TEXEC.FIND.FORWARD TEXTOBJ))
(|BackwardFind| (* |Backward| |search| |Find|)
(|BackwardFind| (* \; "Backward search Find")
(TEXEC.FIND.BACKWARD TEXTOBJ))
(|Limit| (SETQ TEXEC.BUFFERLIMIT (RNUMBER)))
(COND
((CAR ITEM)
(* |This| |is| \a |user-supplied| |entry.|
 |Get| |the| |function,| |and| |apply| |it| |to| |the| TEXTSTREAM |for| |him|)
((CAR ITEM) (* \;
 "This is a user-supplied entry. Get the function, and apply it to the TEXTSTREAM for him")
(APPLY* (CAR ITEM)
(|fetch| (TEXTOBJ STREAMHINT) |of| TEXTOBJ))))))))))
@@ -1009,58 +997,44 @@
""))))
(TEXEC.SHRINK.ICONCREATE
(LAMBDA (W ICON ICONW) (* AJB " 7-Jan-86 16:37")
(* |Create| |the| |icon| |that|
 |represents| |this| |window.|)
(PROG ((ICON (WINDOWPROP W 'ICON))
(ICONTITLE (WINDOWPROP W 'TEDIT.ICON.TITLE))
(SHRINKFN (WINDOWPROP W 'SHRINKFN)))
(COND
((NOT (WINDOWPROP W 'TEXTOBJ))
(* |This| |isn't| |really| \a |TEdit| |window| |any| |more.|
 |Don't| |do| |anything|)
NIL)
((WINDOWPROP W 'TEDITMENU) (* |This| |is| \a |text| |menu,| |and|
 |shrinks| |without| |trace.|)
NIL)
((OR (IGREATERP (FLENGTH SHRINKFN)
3)
(AND (NOT (FMEMB 'SHRINKATTACHEDWINDOWS SHRINKFN))
(IGREATERP (FLENGTH SHRINKFN)
2)))
(* |There| |are| |other| |functions| |that| |expect| |to| |handle| |this.|
 |Don't| |bother.|)
NIL)
((OR (AND ICONTITLE (EQUAL ICONTITLE (PROCESSPROP (WINDOWPROP W 'PROCESS)
'NAME)))
(AND (NOT ICONTITLE)
ICON))
(* |we| |built| |this| |and| |the| |title| |is| |the| |same,| |or| |he| |has|
 |already| |put| |an| |icon| |on| |this.|
 D\o |nothing|)
NIL)
(ICON
(* |There's| |an| |existing| |icon| |window;|
 |change| |the| |title| |in| |it|)
(LAMBDA (W ICON ICONW) (* \; "Edited 28-Mar-2024 00:08 by rmk")
(* AJB " 7-Jan-86 16:37")
(* \;
 "Create the icon that represents this window.")
(CL:WHEN (TEXTSTREAM W T)
(LET ((ICON (WINDOWPROP W 'ICON))
(ICONTITLE (WINDOWPROP W 'TEDIT.ICON.TITLE))
(SHRINKFN (WINDOWPROP W 'SHRINKFN)))
(COND
((WINDOWPROP W 'TEDITMENU) (* \;
 "This is a text menu, and shrinks without trace.")
)
((OR (IGREATERP (FLENGTH SHRINKFN)
3)
(AND (NOT (FMEMB 'SHRINKATTACHEDWINDOWS SHRINKFN))
(IGREATERP (FLENGTH SHRINKFN)
2))) (* \;
 "There are other functions that expect to handle this. Don't bother.")
)
((OR (AND ICONTITLE (EQUAL ICONTITLE (PROCESSPROP (WINDOWPROP W 'PROCESS)
'NAME)))
(AND (NOT ICONTITLE)
ICON)) (* \;
 "we built this and the title is the same, or he has already put an icon on this. Do nothing")
)
(ICON (* \;
 "There's an existing icon window; change the title in it")
(WINDOWPROP W 'TEDIT.ICON.TITLE (SETQ ICONTITLE (PROCESSPROP
(WINDOWPROP W 'PROCESS)
'NAME)))
(ICONTITLE ICONTITLE NIL NIL ICON))
(T (* \; "install a new icon")
(WINDOWPROP W 'TEDIT.ICON.TITLE (SETQ ICONTITLE (PROCESSPROP (WINDOWPROP
W
'PROCESS)
'NAME)))
(ICONTITLE ICONTITLE NIL NIL ICON))
(T (* |install| \a |new| |icon|)
(WINDOWPROP W 'TEDIT.ICON.TITLE (SETQ ICONTITLE (PROCESSPROP (WINDOWPROP W
'PROCESS)
'NAME)))
(WINDOWPROP W 'ICON (TITLEDICONW TEXEC.TITLED.ICON.TEMPLATE ICONTITLE TEXEC.ICON.FONT
NIL T '(BOTTOM LEFT))))))
(WINDOWPROP W 'ICON (TITLEDICONW TEXEC.TITLED.ICON.TEMPLATE ICONTITLE
TEXEC.ICON.FONT NIL T '(BOTTOM LEFT)))))))
(WINDOWPROP W 'ICON)))
(TEXEC.FILLBUFFER
@@ -3009,23 +2983,22 @@
(RPAQQ |BackgroundMenu| NIL)
(RPAQ? TEXEC.BUFFERLIMIT 10000)
(PUTPROPS TEXEC COPYRIGHT ("Venue & Xerox Corporation" 1985 1900 1986 1987 1988 1989 1990 1991))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (3083 171708 (TEXEC.BACKSKREAD 3093 . 7717) (TEXEC.OPENTEXTSTREAM 7719 . 9777) (
TEXEC.DEFAULT.MENUFN 9779 . 14333) (TEXEC.DO?CMD 14335 . 19653) (TEXEC.CREATEMENU 19655 . 20113) (
TEXEC.GET 20115 . 28950) (TEXEC.INCLUDE 28952 . 42337) (TEXEC.FIND.FORWARD 42339 . 55227) (
TEXEC.FIND.BACKWARD 55229 . 68731) (TEXEC.MENU.WHENHELDFN 68733 . 69392) (TEXEC.SHRINK.ICONCREATE
69394 . 72197) (TEXEC.FILLBUFFER 72199 . 88633) (TEXEC.FILLBUFFER.TCLASS 88635 . 94975) (
TEXEC.CHSELPENDING 94977 . 103467) (TEXEC.FILLBUFFER.CHARDELETE 103469 . 105524) (
TEXEC.FILLBUFFER.WORDDELETE 105526 . 110654) (TEXEC.FILLBUFFER.LINEDELETE 110656 . 113538) (
TEXEC.PARENCOUNT 113540 . 114929) (TEXEC.PARENMATCH 114931 . 116471) (TEXEC.FLASHCARET 116473 . 119132
) (TEXEC.TEXTSTREAM.TO.LINEBUF 119134 . 121821) (TEXEC.FIX 121823 . 124992) (TEXEC.NTHBUFCHARBACK
124994 . 126057) (TEXEC.NTHBACKCHNUM 126059 . 127344) (TEXEC.EOTP 127346 . 128079) (TEXEC.GETKEY
128081 . 130997) (TEXEC.INSERTCHAR 130999 . 133300) (TEXEC.DELETE 133302 . 134077) (TEXEC.\\CHDEL1
134079 . 137204) (TEXEC.?EQUAL 137206 . 138255) (TEDIT.SCROLL? 138257 . 143220) (TEXEC.DISPLAYTEXT
143222 . 149997) (\\TEXEC.TEXTBOUT 149999 . 153007) (\\TEXEC.TEXTBOUT1 153009 . 158643) (
\\TEXEC.TEXTBOUT2 158645 . 160976) (\\TEXEC.TEXTBOUT3 160978 . 162368) (\\TEXEC.TEXTBOUT4 162370 .
164413) (\\TEXEC.SELFN 164415 . 165790) (TEXEC.PRINTARGS 165792 . 170755) (TEXEC.PROCENTRYFN 170757 .
171298) (TEXEC.PROCEXITFN 171300 . 171706)) (171768 178143 (TEXEC 171778 . 176200) (TTEXEC 176202 .
178141)))))
(FILEMAP (NIL (3048 171118 (TEXEC.BACKSKREAD 3058 . 7682) (TEXEC.OPENTEXTSTREAM 7684 . 9742) (
TEXEC.DEFAULT.MENUFN 9744 . 13790) (TEXEC.DO?CMD 13792 . 19110) (TEXEC.CREATEMENU 19112 . 19570) (
TEXEC.GET 19572 . 28407) (TEXEC.INCLUDE 28409 . 41794) (TEXEC.FIND.FORWARD 41796 . 54684) (
TEXEC.FIND.BACKWARD 54686 . 68188) (TEXEC.MENU.WHENHELDFN 68190 . 68849) (TEXEC.SHRINK.ICONCREATE
68851 . 71607) (TEXEC.FILLBUFFER 71609 . 88043) (TEXEC.FILLBUFFER.TCLASS 88045 . 94385) (
TEXEC.CHSELPENDING 94387 . 102877) (TEXEC.FILLBUFFER.CHARDELETE 102879 . 104934) (
TEXEC.FILLBUFFER.WORDDELETE 104936 . 110064) (TEXEC.FILLBUFFER.LINEDELETE 110066 . 112948) (
TEXEC.PARENCOUNT 112950 . 114339) (TEXEC.PARENMATCH 114341 . 115881) (TEXEC.FLASHCARET 115883 . 118542
) (TEXEC.TEXTSTREAM.TO.LINEBUF 118544 . 121231) (TEXEC.FIX 121233 . 124402) (TEXEC.NTHBUFCHARBACK
124404 . 125467) (TEXEC.NTHBACKCHNUM 125469 . 126754) (TEXEC.EOTP 126756 . 127489) (TEXEC.GETKEY
127491 . 130407) (TEXEC.INSERTCHAR 130409 . 132710) (TEXEC.DELETE 132712 . 133487) (TEXEC.\\CHDEL1
133489 . 136614) (TEXEC.?EQUAL 136616 . 137665) (TEDIT.SCROLL? 137667 . 142630) (TEXEC.DISPLAYTEXT
142632 . 149407) (\\TEXEC.TEXTBOUT 149409 . 152417) (\\TEXEC.TEXTBOUT1 152419 . 158053) (
\\TEXEC.TEXTBOUT2 158055 . 160386) (\\TEXEC.TEXTBOUT3 160388 . 161778) (\\TEXEC.TEXTBOUT4 161780 .
163823) (\\TEXEC.SELFN 163825 . 165200) (TEXEC.PRINTARGS 165202 . 170165) (TEXEC.PROCENTRYFN 170167 .
170708) (TEXEC.PROCEXITFN 170710 . 171116)) (171178 177553 (TEXEC 171188 . 175610) (TTEXEC 175612 .
177551)))))
STOP