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

127
lispusers/tedit-process-killer
View File

@@ -1,18 +1,14 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "20-Oct-2023 00:11:10" {WMEDLEY}<lispusers>tedit-process-killer.;2 16210
(FILECREATED "27-Mar-2024 23:52:57" {WMEDLEY}<lispusers>tedit-process-killer.;4 16479
:EDIT-BY rmk
:CHANGES-TO (FNS TEDIT-PROCESS-P)
:CHANGES-TO (FNS KILL-TEDIT-PROCESS MAKE-NEW-TEDIT-PROCESS TEDIT-KILLER-CLEANUP)
:PREVIOUS-DATE " 9-Mar-89 15:01:15" {WMEDLEY}<lispusers>tedit-process-killer.;1)
:PREVIOUS-DATE "20-Oct-2023 00:11:10" {WMEDLEY}<lispusers>tedit-process-killer.;2)
(* ; "
Copyright (c) 1987-1989 by Xerox Corporation.
")
(PRETTYCOMPRINT TEDIT-PROCESS-KILLERCOMS)
(RPAQQ TEDIT-PROCESS-KILLERCOMS
@@ -233,75 +229,77 @@ Copyright (c) 1987-1989 by Xerox Corporation.
(for W in (ATTACHEDWINDOWS WINDOW) do (KILL-PROCESS-OF-TEDIT-WINDOW1 W])
(KILL-TEDIT-PROCESS
[LAMBDA (PROCESS) (* ; "Edited 11-Dec-87 20:06 by Randy.Gobbel")
(* ;; "Save the state that TEdit bashes, and then kill the process. Only TEdits have TEXTOBJs, so this won't go killing other kinds of processes. Won't kill if the TEdit is in the middle of an operation.")
(* ;; "rrp 10/19/87: Now also saves TXTFILE property.")
[LAMBDA (PROCESS) (* ; "Edited 27-Mar-2024 23:52 by rmk")
(* ;
 "Edited 11-Dec-87 20:06 by Randy.Gobbel")
(LET* [(WINDOW (PROCESSPROP PROCESS 'WINDOW))
(TEXTOBJ (WINDOWPROP WINDOW 'TEXTOBJ]
(COND
((AND (WINDOWP WINDOW)
TEXTOBJ
(NOT (fetch (TEXTOBJ EDITOPACTIVE) of TEXTOBJ)))
(* ;; "Save the state that TEdit bashes, and then kill the process. Only TEdits have TEXTOBJs, so this won't go killing other kinds of processes. Won't kill if the TEdit is in the middle of an operation.")
(* ;; "rrp 10/19/87: Now also saves TXTFILE property.")
(LET* ((WINDOW (PROCESSPROP PROCESS 'WINDOW))
(TEXTOBJ (TEXTOBJ WINDOW T)))
(CL:WHEN (AND (WINDOWP WINDOW)
TEXTOBJ
(NOT (fetch (TEXTOBJ EDITOPACTIVE) of TEXTOBJ)))
(WINDOWPROP WINDOW 'TXTHISTORY (fetch (TEXTOBJ TXTHISTORY) of TEXTOBJ))
(WINDOWPROP WINDOW 'TXTFILE (fetch (TEXTOBJ TXTFILE) of TEXTOBJ))
(WINDOWPROP WINDOW 'SELWINDOW (fetch (TEXTOBJ SELWINDOW) of TEXTOBJ))
(WINDOWPROP WINDOW 'SELPANE (fetch (TEXTOBJ SELPANE) of TEXTOBJ))
(WINDOWPROP WINDOW 'SAVEDPROCFORM (PROCESSPROP PROCESS 'FORM))
(WINDOWPROP WINDOW 'SAVEDRESTARTFORM (PROCESSPROP PROCESS 'RESTARTFORM))
(WINDOWPROP WINDOW 'SAVEDRESTARTABLE (PROCESSPROP PROCESS 'RESTARTABLE))
(WINDOWPROP WINDOW 'SAVEDPROCNAME (PROCESSPROP PROCESS 'NAME))
(* ;;
"Mark the window so we know we can restart the process. Atomic action to turn off the process.")
(* ;;
 "Mark the window so we know we can restart the process. Atomic action to turn off the process.")
(UNINTERRUPTABLY
(MARK-AS-WITHOUT-PROCESS WINDOW 'TEDIT)
(DEL.PROCESS PROCESS))])
(DEL.PROCESS PROCESS)))])
(MAKE-NEW-TEDIT-PROCESS
[LAMBDA (WINDOW) (* ; "Edited 9-Mar-89 14:58 by Randy.Gobbel")
[LAMBDA (WINDOW) (* ; "Edited 27-Mar-2024 23:52 by rmk")
(* ;
 "Edited 9-Mar-89 14:58 by Randy.Gobbel")
(* ;; "This assumes that WINDOW really is the window of a restartable TEdit.")
(* ;; "This assumes that WINDOW really is the window of a restartable TEdit.")
(* ;; "Build a new TEdit process recovering saved PROCESSPROPs from the window.")
(* ;; "Build a new TEdit process recovering saved PROCESSPROPs from the window.")
(* ;;
"rht 2/9/87: Added a check that SAVEDPROCFORM of WINDOW is non-nil in case WINDOW just got smashed.")
(* ;;
 "rht 2/9/87: Added a check that SAVEDPROCFORM of WINDOW is non-nil in case WINDOW just got smashed.")
(* ;;
"rht&sb 4/24/87: Now smashes windowprops after reading them by calling TEDIT-KILLER-CLEANUP.")
(* ;;
 "rht&sb 4/24/87: Now smashes windowprops after reading them by calling TEDIT-KILLER-CLEANUP.")
(* ;; "rrp 10/19/87: Now restores TXTFILE property as well.")
(* ;; "rrp 10/19/87: Now restores TXTFILE property as well.")
(LET ((TEXTOBJ (TEXTOBJ WINDOW))
(TXTFILE (WINDOWPROP WINDOW 'TXTFILE))
PROCESS SAVEDPROCFORM)
(replace (TEXTOBJ TXTHISTORY) of TEXTOBJ with (WINDOWPROP WINDOW 'TXTHISTORY))
(replace (TEXTOBJ SELWINDOW) of TEXTOBJ with (WINDOWPROP WINDOW 'SELWINDOW))
(replace (TEXTOBJ SELPANE) of TEXTOBJ with (WINDOWPROP WINDOW 'SELPANE))
[if (AND TXTFILE (NOT (STREQUAL TXTFILE "")))
then (replace (TEXTOBJ TXTFILE) of TEXTOBJ with (OPENSTREAM (FULLNAME
TXTFILE)
'INPUT
'OLD]
then (replace (TEXTOBJ TXTFILE) of TEXTOBJ with (OPENSTREAM (FULLNAME TXTFILE)
'INPUT
'OLD]
(* ;; "Atomic action to restore the process.")
(* ;; "Atomic action to restore the process.")
(if (SETQ SAVEDPROCFORM (WINDOWPROP WINDOW 'SAVEDPROCFORM))
then (UNINTERRUPTABLY
[SETQ PROCESS (ADD.PROCESS SAVEDPROCFORM 'NAME
(LET* ((PROCNAME (WINDOWPROP WINDOW 'SAVEDPROCNAME))
(POS (STRPOS "#" PROCNAME)))
(OR (SUBSTRING PROCNAME 1 (AND POS (SUB1 POS)))
PROCNAME))
'RESTARTABLE
(WINDOWPROP WINDOW 'SAVEDRESTARTABLE)
'RESTARTFORM
(WINDOWPROP WINDOW 'SAVEDRESTARTFORM]
(TEDIT-KILLER-CLEANUP WINDOW)
(PROCESSPROP PROCESS 'WINDOW WINDOW)
(WINDOWPROP WINDOW 'PROCESS PROCESS)))
[SETQ PROCESS (ADD.PROCESS SAVEDPROCFORM 'NAME
(LET* ((PROCNAME (WINDOWPROP WINDOW 'SAVEDPROCNAME))
(POS (STRPOS "#" PROCNAME)))
(OR (SUBSTRING PROCNAME 1 (AND POS (SUB1 POS)))
PROCNAME))
'RESTARTABLE
(WINDOWPROP WINDOW 'SAVEDRESTARTABLE)
'RESTARTFORM
(WINDOWPROP WINDOW 'SAVEDRESTARTFORM]
(TEDIT-KILLER-CLEANUP WINDOW)
(PROCESSPROP PROCESS 'WINDOW WINDOW)
(WINDOWPROP WINDOW 'PROCESS PROCESS)))
PROCESS])
(RESTART-PROCESS-OF-TEDIT-WINDOW1
@@ -314,15 +312,17 @@ Copyright (c) 1987-1989 by Xerox Corporation.
(for W in (ATTACHEDWINDOWS WINDOW) do (RESTART-PROCESS-OF-TEDIT-WINDOW1 W])
(TEDIT-KILLER-CLEANUP
[LAMBDA (WINDOW) (* ; "Edited 11-Dec-87 20:13 by Randy.Gobbel")
(* ;; "This unmarks the window and also throws away any cruft we left on windowprops.")
(* ;; "rrp 10/19/87: Now trashes TXTFILE property as well.")
[LAMBDA (WINDOW) (* ; "Edited 27-Mar-2024 23:52 by rmk")
(* ;
 "Edited 11-Dec-87 20:13 by Randy.Gobbel")
(* ;; "This unmarks the window and also throws away any cruft we left on windowprops.")
(* ;; "rrp 10/19/87: Now trashes TXTFILE property as well.")
(WINDOWPROP WINDOW 'TXTHISTORY NIL)
(WINDOWPROP WINDOW 'TXTFILE NIL)
(WINDOWPROP WINDOW 'SELWINDOW NIL)
(WINDOWPROP WINDOW 'SELPANE NIL)
(WINDOWPROP WINDOW 'SAVEDPROCFORM NIL)
(WINDOWPROP WINDOW 'SAVEDPROCNAME NIL)
(WINDOWPROP WINDOW 'SAVEDRESTARTABLE NIL)
@@ -364,14 +364,13 @@ Copyright (c) 1987-1989 by Xerox Corporation.
(START-TEDIT-KILLER)
)
(PUTPROPS TEDIT-PROCESS-KILLER COPYRIGHT ("Xerox Corporation" 1987 1988 1989))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3081 4855 (START-TEDIT-KILLER 3091 . 3581) (STOP-TEDIT-KILLER 3583 . 3974) (
KILL-PROCESS-OF-TEDIT-WINDOW 3976 . 4283) (RESTART-PROCESS-OF-TEDIT-WINDOW 4285 . 4691) (
WITHOUT-TEDIT-PROCESS 4693 . 4853)) (4906 7831 (TEDIT-KILLER 4916 . 6732) (
\TEDIT.BUTTONEVENTFN-BEFORE-ADVICE 6734 . 7829)) (7832 8336 (MARK-AS-WITHOUT-PROCESS 7842 . 8014) (
UNMARK-AS-WITHOUT-PROCESS 8016 . 8181) (WITHOUT-PROCESS 8183 . 8334)) (8337 14869 (ALL-TEDIT-PROCESSES
8347 . 8651) (TEDIT-PROCESS-P 8653 . 9449) (KILL-PROCESS-OF-TEDIT-WINDOW1 9451 . 9812) (
KILL-TEDIT-PROCESS 9814 . 11369) (MAKE-NEW-TEDIT-PROCESS 11371 . 13811) (
RESTART-PROCESS-OF-TEDIT-WINDOW1 13813 . 14209) (TEDIT-KILLER-CLEANUP 14211 . 14867)))))
(FILEMAP (NIL (3073 4847 (START-TEDIT-KILLER 3083 . 3573) (STOP-TEDIT-KILLER 3575 . 3966) (
KILL-PROCESS-OF-TEDIT-WINDOW 3968 . 4275) (RESTART-PROCESS-OF-TEDIT-WINDOW 4277 . 4683) (
WITHOUT-TEDIT-PROCESS 4685 . 4845)) (4898 7823 (TEDIT-KILLER 4908 . 6724) (
\TEDIT.BUTTONEVENTFN-BEFORE-ADVICE 6726 . 7821)) (7824 8328 (MARK-AS-WITHOUT-PROCESS 7834 . 8006) (
UNMARK-AS-WITHOUT-PROCESS 8008 . 8173) (WITHOUT-PROCESS 8175 . 8326)) (8329 15217 (ALL-TEDIT-PROCESSES
8339 . 8643) (TEDIT-PROCESS-P 8645 . 9441) (KILL-PROCESS-OF-TEDIT-WINDOW1 9443 . 9804) (
KILL-TEDIT-PROCESS 9806 . 11513) (MAKE-NEW-TEDIT-PROCESS 11515 . 13999) (
RESTART-PROCESS-OF-TEDIT-WINDOW1 14001 . 14397) (TEDIT-KILLER-CLEANUP 14399 . 15215)))))
STOP