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

241
lispusers/TEDITTALK
View File

@@ -1,26 +1,32 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "22-Jul-88 15:38:03" |{MCS:MCS:STANFORD}<LANE>TEDITTALK.;2| 24816
previous date%: "13-Jun-88 16:35:46" |{MCS:MCS:STANFORD}<LANE>TEDITTALK.;1|)
(FILECREATED "28-Mar-2024 00:03:10" {WMEDLEY}<lispusers>TEDITTALK.;2 24401
:EDIT-BY rmk
:CHANGES-TO (VARS TEDITTALKCOMS)
(FNS TALK.TEDIT.DISPLAY TALK.TEDIT.LISTEN)
:PREVIOUS-DATE "22-Jul-88 15:38:03" {WMEDLEY}<lispusers>TEDITTALK.;1)
(PRETTYCOMPRINT TEDITTALKCOMS)
(RPAQQ TEDITTALKCOMS
[(* TALK TEdit Service)
(RPAQQ TEDITTALKCOMS
[ (* ; "TALK TEdit Service")
(LOCALVARS . T)
(FNS TALK.TEDIT.DISPLAY TALK.TEDIT.LISTEN TALK.TEDIT.CHARFN)
(* TALK TEdit hooks)
(* ; "TALK TEdit hooks")
(FNS TALK.TEDIT.USERFN TALK.TEDIT.INSERT TALK.SELFN TALK.SETSELFN TALK.IMAGEOBJFN
TALK.LOOKSFN TALK.PARAFN TALK.INSERTFN TALK.INCLUDEFN TALK.DELETEFN TALK.GETFN)
(FNS TALK.TEDIT.BACKSPACE TALK.TEDIT.INCLUDE TALK.TEDIT.DELETE.TEXT TALK.TEDIT.GET
TALK.TEDIT.INSERT.TEXT TALK.TEDIT.SETSEL TALK.TEDIT.INSERT.OBJECT TALK.TEDIT.LOOKS
TALK.TEDIT.PARALOOKS TALK.TEDIT.DELETE)
(FNS TALK.ENCODE.SEL TALK.DECODE.SEL)
(* TALK data)
(* ; "TALK data")
(VARS TALK.TEDIT.ACTIONS TALK.FROM.TEDIT.PROPS TALK.TO.TEDIT.PROPS)
(GLOBALVARS TALK.TEDIT.ACTIONS TALK.TO.TEDIT.PROPS TALK.FROM.TEDIT.PROPS)
(* etc)
(* ; "etc")
(FILES TALK TEDIT)
(APPENDVARS (GAP.SERVICETYPES (6 TEdit TALK.NS.SERVER))
(TALK.SERVICETYPES (TEdit TALK.TEDIT.DISPLAY TALK.TEDIT.LISTEN)))
@@ -28,7 +34,7 @@
TEDIT.LOOKS TEDIT.PARALOOKS OPENFILE-IN-TEDIT.INCLUDE))
(ADVISE * (PROGN TALK.TEDIT.ADVISEDFNS))
(GLOBALVARS TALK.TEDIT.ADVISEDFNS)
(DECLARE%: DONTCOPY DOEVAL@COMPILE
(DECLARE%: DONTCOPY DOEVAL@COMPILE (FILES TEDIT-EXPORTS.ALL)
(ALISTS (CHARACTERNAMES UNDO REDO NEXT MARGINS FONT SHIFT.UNDO SHIFT.REDO SHIFT.NEXT
SHIFT.MARGINS SHIFT.FONT SHIFT.DEL)
(PRINTOUTMACROS .OP .FORCE)))
@@ -38,7 +44,7 @@
(* TALK TEdit Service)
(* ; "TALK TEdit Service")
(DECLARE%: DOEVAL@COMPILE DONTCOPY
@@ -48,73 +54,70 @@
(TALK.TEDIT.DISPLAY
[LAMBDA (MAINWINDOW WINDOW INPUTSTREAM OUTPUTSTREAM PROTOCOL USER)
(* ; "Edited 27-Mar-2024 23:55 by rmk")
(* ; "Edited 2-Jun-88 16:25 by cdl")
(LET (TEXTOBJ)
(TEDIT NIL MAINWINDOW NIL TALK.TO.TEDIT.PROPS)
(TEXTPROP (SETQ TEXTOBJ (WINDOWPROP MAINWINDOW 'TEXTOBJ))
'TALK OUTPUTSTREAM)
(with TEXTOBJ TEXTOBJ (SETQ TXTFILE (CONCAT "Talk with " USER)))
(SETQ TEXTOBJ (TEXTOBJ MAINWINDOW))
(TEXTPROP TEXTOBJ 'TALK OUTPUTSTREAM)
(SETTOBJ TEXTOBJ TXTFILE (CONCAT "Talk with " USER))
(TEDIT.SETSEL (OPENTEXTSTREAM NIL WINDOW NIL NIL TALK.FROM.TEDIT.PROPS)
1 0 'LEFT)
(WINDOWPROP WINDOW 'PROMPTWINDOW (WINDOWPROP MAINWINDOW 'PROMPTWINDOW])
(TALK.TEDIT.LISTEN
[LAMBDA (MAINWINDOW WINDOW INPUTSTREAM OUTPUTSTREAM PROTOCOLTYPE)
(* ; "Edited 28-Mar-2024 00:01 by rmk")
(* ; "Edited 7-Jun-88 08:45 by cdl")
(* DECLARATIONS%: (RECORD ACTION
 (CCODES ACTIONFN TEXTOBJP)))
 (CCODES ACTIONFN TEXTOBJP)))
(DECLARE (SPECVARS INPUTSTREAM))
(PROG ((POSITION (create POSITION))
(TEXTOBJ (WINDOWPROP WINDOW 'TEXTOBJ))
(TEXTSTREAM (WINDOWPROP WINDOW 'TEXTSTREAM))
(TEXTSTREAM (TEXTSTREAM WINDOW))
(SCRATCHPTR (ALLOCSTRING 0))
(STRING (ALLOCSTRING 128))
(EVENTFN (with TALK.PROTOCOLTYPE PROTOCOLTYPE TALK.EVENTFN))
STRINGSTREAM EOFPTR BYTE ACTION CCODE)
TEXTOBJ STRINGSTREAM EOFPTR BYTE ACTION CCODE)
(SETQ TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of TEXTSTREAM))
[SETQ EOFPTR (GETEOFPTR (SETQ STRINGSTREAM (OPENSTRINGSTREAM STRING 'BOTH]
(while (OPENP TEXTSTREAM)
do (APPLY* EVENTFN INPUTSTREAM OUTPUTSTREAM)
(if (NOT (AND (OPENP INPUTSTREAM)
(OPENP OUTPUTSTREAM)))
then (RETURN))
(TALK.FLASH.CARET WINDOW POSITION 'OFF)
(while (AND (OPENP INPUTSTREAM)
(READP INPUTSTREAM))
do (SELCHARQ (SETQ BYTE (LOGAND (SETQ CCODE (READCCODE INPUTSTREAM))
(MASK.1'S 0 8)))
(BS (* Flush text buffer)
(TALK.TEDIT.INSERT TEXTSTREAM STRING STRINGSTREAM
SCRATCHPTR) (* the escape code)
(SETQ CCODE (LOGAND (SETQ CCODE (READCCODE INPUTSTREAM))
(MASK.1'S 0 10)))
(if [SETQ ACTION (for ACTION in TALK.TEDIT.ACTIONS
thereis (with ACTION ACTION
(EQMEMB CCODE CCODES
]
then (with ACTION ACTION
(APPLY* ACTIONFN
(if TEXTOBJP
then TEXTOBJ
else TEXTSTREAM)
INPUTSTREAM))))
(^G (* Flush text buffer)
(TALK.TEDIT.INSERT TEXTSTREAM STRING STRINGSTREAM
SCRATCHPTR)
(TALK.RINGBELLS WINDOW))
(if (LESSP CCODE (MASK.1'S 0 8))
then (PRINTCCODE CCODE STRINGSTREAM)
(if (LEQ EOFPTR (GETFILEPTR STRINGSTREAM))
then (TALK.TEDIT.INSERT TEXTSTREAM STRING
STRINGSTREAM SCRATCHPTR))
else (TALK.TEDIT.INSERT TEXTSTREAM STRING STRINGSTREAM
SCRATCHPTR)
(* String streams don't handle NS
 charaters so don't buffer)
(TALK.TEDIT.INSERT TEXTSTREAM CCODE)))
finally (TALK.TEDIT.INSERT TEXTSTREAM STRING STRINGSTREAM SCRATCHPTR))
(TALK.FLASH.CARET WINDOW POSITION 'ON))
(if (SETQ TEXTOBJ (WINDOWPROP MAINWINDOW 'TEXTOBJ))
then (with TEXTOBJ TEXTOBJ (SETQ TXTFILE (CONCAT TXTFILE TALK.CLOSED.STRING])
(CL:UNLESS (AND (OPENP INPUTSTREAM)
(OPENP OUTPUTSTREAM))
(RETURN))
(TALK.FLASH.CARET WINDOW POSITION 'OFF)
(while (AND (OPENP INPUTSTREAM)
(READP INPUTSTREAM))
do (SELCHARQ (SETQ BYTE (LOGAND (SETQ CCODE (READCCODE INPUTSTREAM))
(MASK.1'S 0 8)))
(BS (* ; "Flush text buffer")
(TALK.TEDIT.INSERT TEXTSTREAM STRING STRINGSTREAM SCRATCHPTR)
(* ; "the escape code")
(SETQ CCODE (LOGAND (SETQ CCODE (READCCODE INPUTSTREAM))
(MASK.1'S 0 10)))
(if [SETQ ACTION (for ACTION in TALK.TEDIT.ACTIONS
thereis (with ACTION ACTION (EQMEMB CCODE CCODES]
then (with ACTION ACTION (APPLY* ACTIONFN
(if TEXTOBJP
then TEXTOBJ
else TEXTSTREAM)
INPUTSTREAM))))
(^G (* ; "Flush text buffer")
(TALK.TEDIT.INSERT TEXTSTREAM STRING STRINGSTREAM SCRATCHPTR)
(TALK.RINGBELLS WINDOW))
(if (LESSP CCODE (MASK.1'S 0 8))
then (PRINTCCODE CCODE STRINGSTREAM)
(if (LEQ EOFPTR (GETFILEPTR STRINGSTREAM))
then (TALK.TEDIT.INSERT TEXTSTREAM STRING STRINGSTREAM
SCRATCHPTR))
else (TALK.TEDIT.INSERT TEXTSTREAM STRING STRINGSTREAM SCRATCHPTR)
(* ;
 "String streams don't handle NS charaters so don't buffer")
(TALK.TEDIT.INSERT TEXTSTREAM CCODE)))
finally (TALK.TEDIT.INSERT TEXTSTREAM STRING STRINGSTREAM SCRATCHPTR))
(TALK.FLASH.CARET WINDOW POSITION 'ON))
(CL:WHEN (SETQ TEXTOBJ (TEXTOBJ MAINWINDOW T))
(SETTOBJ TEXTOBJ TXTFILE (CONCAT TXTFILE TALK.CLOSED.STRING)))])
(TALK.TEDIT.CHARFN
[LAMBDA (TEXTOBJ CCODE) (* ; "Edited 9-Jun-88 15:06 by cdl")
@@ -144,7 +147,7 @@
(* TALK TEdit hooks)
(* ; "TALK TEdit hooks")
(DEFINEQ
@@ -380,32 +383,33 @@
(* TALK data)
(* ; "TALK data")
(RPAQQ TALK.TEDIT.ACTIONS ((8 TALK.TEDIT.BACKSPACE)
(15 TALK.TEDIT.INCLUDE)
(16 TALK.TEDIT.DELETE.TEXT)
(17 TALK.TEDIT.GET TEXTOBJ)
(18 TALK.TEDIT.INSERT.TEXT)
(19 TALK.TEDIT.SETSEL)
(20 TALK.TEDIT.INSERT.OBJECT)
(21 TALK.TEDIT.LOOKS)
(22 TALK.TEDIT.PARALOOKS)
(23 \TEDIT.WORDDELETE TEXTOBJ)
(127 TALK.TEDIT.DELETE)
(516 TEDIT.UNDO TEXTOBJ)
(520 TEDIT.REDO TEXTOBJ)
(530 TEDIT.NEXT)))
(RPAQQ TALK.TEDIT.ACTIONS
((8 TALK.TEDIT.BACKSPACE)
(15 TALK.TEDIT.INCLUDE)
(16 TALK.TEDIT.DELETE.TEXT)
(17 TALK.TEDIT.GET TEXTOBJ)
(18 TALK.TEDIT.INSERT.TEXT)
(19 TALK.TEDIT.SETSEL)
(20 TALK.TEDIT.INSERT.OBJECT)
(21 TALK.TEDIT.LOOKS)
(22 TALK.TEDIT.PARALOOKS)
(23 \TEDIT.WORDDELETE TEXTOBJ)
(127 TALK.TEDIT.DELETE)
(516 TEDIT.UNDO TEXTOBJ)
(520 TEDIT.REDO TEXTOBJ)
(530 TEDIT.NEXT)))
(RPAQQ TALK.FROM.TEDIT.PROPS (PROMPTWINDOW DON'T NOTITLE T COPYBYBKSYSBUF T MENU
((Put 'Put NIL (SUBITEMS Plain-Text Old-Format))
Find Quit)))
((Put 'Put NIL (SUBITEMS Plain-Text Old-Format))
Find Quit)))
(RPAQQ TALK.TO.TEDIT.PROPS
(CHARFN TALK.TEDIT.CHARFN SELFN TALK.SELFN GETFN TALK.GETFN IMAGEOBJFN TALK.IMAGEOBJFN LOOKSFN
TALK.LOOKSFN PARAFN TALK.PARAFN INSERTFN TALK.INSERTFN SETSELFN TALK.SETSELFN DELETEFN
TALK.DELETEFN INCLUDEFN TALK.INCLUDEFN NOTITLE T QUITFN TRUE COPYBYBKSYSBUF T))
(RPAQQ TALK.TO.TEDIT.PROPS (CHARFN TALK.TEDIT.CHARFN SELFN TALK.SELFN GETFN TALK.GETFN IMAGEOBJFN
TALK.IMAGEOBJFN LOOKSFN TALK.LOOKSFN PARAFN TALK.PARAFN INSERTFN
TALK.INSERTFN SETSELFN TALK.SETSELFN DELETEFN TALK.DELETEFN
INCLUDEFN TALK.INCLUDEFN NOTITLE T QUITFN TRUE COPYBYBKSYSBUF T))
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS TALK.TEDIT.ACTIONS TALK.TO.TEDIT.PROPS TALK.FROM.TEDIT.PROPS)
@@ -413,7 +417,7 @@
(* etc)
(* ; "etc")
(FILESLOAD TALK TEDIT)
@@ -423,26 +427,26 @@
(APPENDTOVAR TALK.SERVICETYPES (TEdit TALK.TEDIT.DISPLAY TALK.TEDIT.LISTEN))
(ADDTOVAR TALK.TEDIT.ADVISEDFNS TEDIT.SETSEL TEDIT.INSERT TEDIT.DELETE TEDIT.INSERT.OBJECT
TEDIT.LOOKS TEDIT.PARALOOKS OPENFILE-IN-TEDIT.INCLUDE)
TEDIT.LOOKS TEDIT.PARALOOKS OPENFILE-IN-TEDIT.INCLUDE)
[XCL:REINSTALL-ADVICE 'TEDIT.SETSEL :BEFORE '((:LAST (TALK.TEDIT.USERFN 'SETSELFN STREAM CH# LEN
[XCL:REINSTALL-ADVICE 'TEDIT.SETSEL :BEFORE '((:LAST (TALK.TEDIT.USERFN 'SETSELFN STREAM CH# LEN
POINT PENDINGDELFLG LEAVECARETLOOKS
OPERATION]
[XCL:REINSTALL-ADVICE 'TEDIT.INSERT :BEFORE '((:LAST (TALK.TEDIT.USERFN 'INSERTFN STREAM TEXT
CH#ORSEL LOOKS DONTSCROLL]
[XCL:REINSTALL-ADVICE 'TEDIT.DELETE :BEFORE '((:LAST (TALK.TEDIT.USERFN 'DELETEFN STREAM SEL LEN
[XCL:REINSTALL-ADVICE 'TEDIT.DELETE :BEFORE '((:LAST (TALK.TEDIT.USERFN 'DELETEFN STREAM SEL LEN
LEAVECARETLOOKS]
[XCL:REINSTALL-ADVICE 'TEDIT.INSERT.OBJECT :BEFORE '((:LAST (TALK.TEDIT.USERFN 'IMAGEOBJFN STREAM
[XCL:REINSTALL-ADVICE 'TEDIT.INSERT.OBJECT :BEFORE '((:LAST (TALK.TEDIT.USERFN 'IMAGEOBJFN STREAM
OBJECT CH#]
[XCL:REINSTALL-ADVICE 'TEDIT.LOOKS :BEFORE '((:LAST (TALK.TEDIT.USERFN 'LOOKSFN STREAM NEWLOOKS
SELORCH# LEN]
[XCL:REINSTALL-ADVICE 'TEDIT.PARALOOKS :BEFORE '((:LAST (TALK.TEDIT.USERFN 'PARAFN TEXTOBJ
NEWLOOKS SEL LEN]
[XCL:REINSTALL-ADVICE 'TEDIT.PARALOOKS :BEFORE '((:LAST (TALK.TEDIT.USERFN 'PARAFN TEXTOBJ NEWLOOKS
SEL LEN]
[XCL:REINSTALL-ADVICE '(OPENFILE :IN TEDIT.INCLUDE)
:BEFORE
@@ -456,27 +460,32 @@
)
(DECLARE%: DONTCOPY DOEVAL@COMPILE
(ADDTOVAR CHARACTERNAMES (UNDO 2,4)
(REDO 2,10)
(NEXT 2,22)
(MARGINS 2,111)
(FONT 2,112)
(SHIFT.UNDO 2,44)
(SHIFT.REDO 2,50)
(SHIFT.NEXT 2,62)
(SHIFT.MARGINS 2,151)
(SHIFT.FONT 2,152)
(SHIFT.DEL 2,27))
(FILESLOAD TEDIT-EXPORTS.ALL)
(ADDTOVAR PRINTOUTMACROS [.OP (LAMBDA (COMS)
(CONS `(PROGN (PRINTCCODE (CHARCODE BS)
NIL)
(PRINTCCODE ,(CADR COMS)
NIL))
(CDDR COMS]
[.FORCE (LAMBDA (COMS)
(CONS '(FORCEOUTPUT NIL)
(CDR COMS])
(ADDTOVAR CHARACTERNAMES
(UNDO 2,4)
(REDO 2,10)
(NEXT 2,22)
(MARGINS 2,111)
(FONT 2,112)
(SHIFT.UNDO 2,44)
(SHIFT.REDO 2,50)
(SHIFT.NEXT 2,62)
(SHIFT.MARGINS 2,151)
(SHIFT.FONT 2,152)
(SHIFT.DEL 2,27))
(ADDTOVAR PRINTOUTMACROS
[.OP (LAMBDA (COMS)
(CONS `(PROGN (PRINTCCODE (CHARCODE BS)
NIL)
(PRINTCCODE ,(CADR COMS)
NIL))
(CDDR COMS]
[.FORCE (LAMBDA (COMS)
(CONS '(FORCEOUTPUT NIL)
(CDR COMS])
)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
@@ -487,14 +496,14 @@
(ADDTOVAR LAMA TALK.TEDIT.USERFN)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (2190 8573 (TALK.TEDIT.DISPLAY 2200 . 2844) (TALK.TEDIT.LISTEN 2846 . 7122) (
TALK.TEDIT.CHARFN 7124 . 8571)) (8603 14772 (TALK.TEDIT.USERFN 8613 . 8921) (TALK.TEDIT.INSERT 8923 .
9559) (TALK.SELFN 9561 . 10339) (TALK.SETSELFN 10341 . 11199) (TALK.IMAGEOBJFN 11201 . 11779) (
TALK.LOOKSFN 11781 . 12246) (TALK.PARAFN 12248 . 12709) (TALK.INSERTFN 12711 . 13231) (TALK.INCLUDEFN
13233 . 13664) (TALK.DELETEFN 13666 . 14239) (TALK.GETFN 14241 . 14770)) (14773 18681 (
TALK.TEDIT.BACKSPACE 14783 . 15139) (TALK.TEDIT.INCLUDE 15141 . 15520) (TALK.TEDIT.DELETE.TEXT 15522
. 15943) (TALK.TEDIT.GET 15945 . 16371) (TALK.TEDIT.INSERT.TEXT 16373 . 16830) (TALK.TEDIT.SETSEL
16832 . 17218) (TALK.TEDIT.INSERT.OBJECT 17220 . 17640) (TALK.TEDIT.LOOKS 17642 . 18047) (
TALK.TEDIT.PARALOOKS 18049 . 18508) (TALK.TEDIT.DELETE 18510 . 18679)) (18682 20137 (TALK.ENCODE.SEL
18692 . 19545) (TALK.DECODE.SEL 19547 . 20135)))))
(FILEMAP (NIL (2574 8668 (TALK.TEDIT.DISPLAY 2584 . 3310) (TALK.TEDIT.LISTEN 3312 . 7217) (
TALK.TEDIT.CHARFN 7219 . 8666)) (8702 14871 (TALK.TEDIT.USERFN 8712 . 9020) (TALK.TEDIT.INSERT 9022 .
9658) (TALK.SELFN 9660 . 10438) (TALK.SETSELFN 10440 . 11298) (TALK.IMAGEOBJFN 11300 . 11878) (
TALK.LOOKSFN 11880 . 12345) (TALK.PARAFN 12347 . 12808) (TALK.INSERTFN 12810 . 13330) (TALK.INCLUDEFN
13332 . 13763) (TALK.DELETEFN 13765 . 14338) (TALK.GETFN 14340 . 14869)) (14872 18780 (
TALK.TEDIT.BACKSPACE 14882 . 15238) (TALK.TEDIT.INCLUDE 15240 . 15619) (TALK.TEDIT.DELETE.TEXT 15621
. 16042) (TALK.TEDIT.GET 16044 . 16470) (TALK.TEDIT.INSERT.TEXT 16472 . 16929) (TALK.TEDIT.SETSEL
16931 . 17317) (TALK.TEDIT.INSERT.OBJECT 17319 . 17739) (TALK.TEDIT.LOOKS 17741 . 18146) (
TALK.TEDIT.PARALOOKS 18148 . 18607) (TALK.TEDIT.DELETE 18609 . 18778)) (18781 20236 (TALK.ENCODE.SEL
18791 . 19644) (TALK.DECODE.SEL 19646 . 20234)))))
STOP