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

125
lispusers/DOC-OBJECTS
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "16-Feb-2024 23:54:59" {WMEDLEY}<lispusers>DOC-OBJECTS.;28 52405
(FILECREATED "27-Mar-2024 23:42:37" {WMEDLEY}<lispusers>DOC-OBJECTS.;36 52788
:EDIT-BY rmk
:CHANGES-TO (FNS DOCOBJ-INCLUDE-BEFOREHARDCOPYFN)
:CHANGES-TO (FNS DOCOBJ-INCLUDE-EDIT-WINDOWP)
:PREVIOUS-DATE "11-Dec-2023 11:32:46" {WMEDLEY}<lispusers>DOC-OBJECTS.;27)
:PREVIOUS-DATE "19-Mar-2024 19:36:25" {WMEDLEY}<lispusers>DOC-OBJECTS.;35)
(PRETTYCOMPRINT DOC-OBJECTSCOMS)
@@ -167,7 +167,8 @@
(GET.OBJ.FROM.USER TEXTSTREAM (TEXTOBJ TEXTSTREAM])
(DOCOBJ-GET-LOOKS
[LAMBDA (TEXTOBJ CH#ORCHARLOOKS) (* ; "Edited 29-Oct-2022 21:30 by rmk")
[LAMBDA (TEXTOBJ CH#ORCHARLOOKS) (* ; "Edited 19-Mar-2024 19:36 by rmk")
(* ; "Edited 29-Oct-2022 21:30 by rmk")
(* Koomen " 4-Feb-87 23:37")
(* ;;; "Adapted from {ERIS}<TEDIT>TEDITLOOKS.;30 dated '15-Oct-85 16:51:10' to return looks itself, rather than a proplist.")
@@ -179,23 +180,24 @@
((type? CHARLOOKS CH#ORCHARLOOKS) (* ;
 "He handed us a CHARLOOKS. Unparse it for him.")
(SETQ LOOKS CH#ORCHARLOOKS))
((ZEROP (fetch TEXTLEN of TEXTOBJ)) (* ;
((ZEROP (FGETTOBJ TEXTOBJ TEXTLEN)) (* ;
 "There's no text in the document. Use the extant caret looks.")
(SETQ LOOKS (fetch CARETLOOKS of TEXTOBJ)))
(SETQ LOOKS (FGETTOBJ TEXTOBJ CARETLOOKS)))
[(FIXP CH#ORCHARLOOKS) (* ;
 "He gave us a CH# to get the looks of. Grab it.")
(SETQ LOOKS (PLOOKS (\CHTOPC (IMIN (fetch TEXTLEN of TEXTOBJ)
CH#ORCHARLOOKS)
(SETQ LOOKS (PLOOKS (\TEDIT.CHTOPC (IMIN (FGETTOBJ TEXTOBJ TEXTLEN)
CH#ORCHARLOOKS)
TEXTOBJ]
[(type? SELECTION CH#ORCHARLOOKS) (* ;
 "Get the looks of the selected text")
(SETQ LOOKS (PLOOKS (\CHTOPC (IMIN (fetch TEXTLEN of TEXTOBJ)
(fetch (SELECTION CH#) of CH#ORCHARLOOKS))
(SETQ LOOKS (PLOOKS (\TEDIT.CHTOPC (IMIN (FGETTOBJ TEXTOBJ TEXTLEN)
(GETSEL CH#ORCHARLOOKS CH#))
TEXTOBJ]
((NULL CH#ORCHARLOOKS) (* ;
 "Get the looks of the selected text")
(SETQ LOOKS (PLOOKS (\CHTOPC (IMIN (fetch TEXTLEN of TEXTOBJ)
(fetch (SELECTION CH#) of (fetch SEL of TEXTOBJ)))
(SETQ LOOKS (PLOOKS (\TEDIT.CHTOPC (IMIN (FGETTOBJ TEXTOBJ TEXTLEN)
(GETSEL (FGETTOBJ TEXTOBJ SEL)
CH#))
TEXTOBJ]
(RETURN LOOKS)
@@ -261,7 +263,8 @@
(APPLY* IMAGEOBJFN IMAGEOBJ CH# PIECE))))])
(DOCOBJ-BEFOREHARDCOPYFN
[LAMBDA (TEXTSTREAM TEXTOBJ) (* ; "Edited 16-Jul-2023 16:53 by rmk")
[LAMBDA (TEXTSTREAM TEXTOBJ) (* ; "Edited 16-Mar-2024 10:05 by rmk")
(* ; "Edited 16-Jul-2023 16:53 by rmk")
(* ; "Edited 10-Jul-2023 22:29 by rmk")
(* ;
 "Edited 25-May-93 13:07 by sybalsky:mv:envos")
@@ -276,13 +279,13 @@
`(TEXTPROP ,TEXTOBJ 'DON'TUPDATE OLDVALUE))
(LET ((PREVEVENTS (GETTOBJ TEXTOBJ TXTHISTORY))
(OLDDIRTY (GETTOBJ TEXTOBJ \DIRTY))
(PREVSEL (\COPYSEL (TEXTSEL TEXTOBJ)))
(PREVSEL (\TEDIT.COPYSEL (TEXTSEL TEXTOBJ)))
FAILED)
(* ;; "This is a little tricky because the imageobj function may screw around with the piece containining the object, delete it or replace it with something else. But presumably it links into the previous saved piece, and we continue from there.")
[bind OBJ FN PREVPC (CH# _ 1)
(PC _ (\FIRSTPIECE TEXTOBJ)) while PC
(PC _ (\TEDIT.FIRSTPIECE TEXTOBJ)) while PC
do (SETQ PC (if (AND (EQ OBJECT.PTYPE (PTYPE PC))
(SETQ OBJ (PCONTENTS PC))
(SETQ FN (IMAGEOBJPROP OBJ 'BEFOREHARDCOPYFN))
@@ -304,14 +307,14 @@
 "Otherwise investigate its replacement")
PREVPC))
elseif (EQ PC (\FIRSTPIECE TEXTOBJ))
elseif (EQ PC (\TEDIT.FIRSTPIECE TEXTOBJ))
then (add CH# (PLEN PC))
(NEXTPIECE PC)
else
(* ;;
 "Investigate the replacement of the previous first piece.")
(\FIRSTPIECE TEXTOBJ))
(\TEDIT.FIRSTPIECE TEXTOBJ))
else (add CH# (PLEN PC))
(NEXTPIECE PC] (* ; "Restore previous settings")
(* ;
@@ -326,14 +329,14 @@
(* ;; "In case something screws up, at least redisplaying will show something correctly (even if we aren't \DIRTY)")
(\TEDIT.MARK.LINES.DIRTY TEXTOBJ 1 (TEXTLEN TEXTOBJ))
(if FAILED
then (DOCOBJ-AFTERHARDCOPYFN TEXTSTREAM TEXTOBJ)
(* ; "UNDO whatever was saved")
(SETTOBJ TEXTOBJ SEL PREVSEL)
'DON'T)))])
(CL:WHEN FAILED
(DOCOBJ-AFTERHARDCOPYFN TEXTSTREAM TEXTOBJ) (* ; "UNDO whatever was saved")
(SETTOBJ TEXTOBJ SEL PREVSEL)
'DON'T)))])
(DOCOBJ-AFTERHARDCOPYFN
[LAMBDA (TEXTSTREAM TEXTOBJ) (* ; "Edited 15-Jul-2023 15:57 by rmk")
[LAMBDA (TEXTSTREAM TEXTOBJ) (* ; "Edited 15-Mar-2024 14:24 by rmk")
(* ; "Edited 15-Jul-2023 15:57 by rmk")
(* ;
 "Edited 25-May-93 13:08 by sybalsky:mv:envos")
(RESETLST
@@ -343,7 +346,7 @@
(TEDIT.UNDO TEXTOBJ)
(SETTOBJ TEXTOBJ TXTHISTORYUNDONE PREVUNDONE)
(\TEDIT.MARK.LINES.DIRTY TEXTOBJ 1 (TEXTLEN TEXTOBJ))
(TEDIT.UPDATE.SCREEN TEXTOBJ)))])
(\TEDIT.UPDATE.SCREEN TEXTOBJ)))])
)
@@ -806,20 +809,19 @@
NIL])
(DOCOBJ-INCLUDE-EDIT-WINDOWP
[LAMBDA (FILENAME WINDOW) (* ; "Edited 26-Oct-87 19:53 by Koomen")
(if (WINDOWP WINDOW)
then (OR (LET (TEXTOBJ TXTFILE)
(if (AND (SETQ TEXTOBJ (WINDOWPROP WINDOW 'TEXTOBJ))
(type? TEXTOBJ TEXTOBJ)
(SETQ TXTFILE (fetch (TEXTOBJ TXTFILE) of TEXTOBJ))
[LAMBDA (FILENAME WINDOW) (* ; "Edited 27-Mar-2024 23:42 by rmk")
(* ; "Edited 26-Oct-87 19:53 by Koomen")
(CL:WHEN (WINDOWP WINDOW)
[OR (LET (TEXTOBJ TXTFILE)
(CL:WHEN (AND (SETQ TEXTOBJ (TEXTOBJ WINDOW T))
(SETQ TXTFILE (GETTOBJ TEXTOBJ TXTFILE))
(STREAMP TXTFILE)
(SETQ TXTFILE (FULLNAME TXTFILE))
(OR (STRINGP TXTFILE)
(LITATOM TXTFILE))
(STRING-EQUAL FILENAME TXTFILE))
then WINDOW))
(DOCOBJ-INCLUDE-EDIT-WINDOWP FILENAME (WINDOWPROP WINDOW 'ICONFOR])
WINDOW))
(DOCOBJ-INCLUDE-EDIT-WINDOWP FILENAME (WINDOWPROP WINDOW 'ICONFOR])])
(DOCOBJ-INCLUDE-RESET-OBJ
[LAMBDA (IMAGEOBJ) (* ; "Edited 16-Jul-2023 10:02 by rmk")
@@ -892,7 +894,8 @@
T])
(DOCOBJ-INCLUDE-CLEANUPFN
[LAMBDA (TEXTSTREAM STARTPOS LEN) (* ; "Edited 11-Dec-2023 11:32 by rmk")
[LAMBDA (TEXTSTREAM STARTPOS LEN) (* ; "Edited 15-Mar-2024 14:08 by rmk")
(* ; "Edited 11-Dec-2023 11:32 by rmk")
(* ; "Edited 22-Jun-2023 16:53 by rmk")
(* ; "Edited 6-Sep-2022 10:08 by rmk")
(* ;
@@ -902,7 +905,7 @@
(HELP "NOTUSED?" 'DOCOBJ-INCLUDE-CLEANUPFN)
(LET ((TEXTOBJ (TEXTOBJ TEXTSTREAM)))
(for PC inselpieces (\SELPIECES STARTPOS (SUB1 (IPLUS STARTPOS LEN))
(for PC inselpieces (\TEDIT.SELPIECES STARTPOS (SUB1 (IPLUS STARTPOS LEN))
TEXTOBJ) when (MEMB (PTYPE PC)
FILE.PTYPES) do (CLOSEF? (PCONTENTS PC)))
@@ -1008,30 +1011,30 @@
(PUTPROPS DOC-OBJECTS MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10))
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (7686 20755 (DOCOBJ-ACQUIRE-OBJECT 7696 . 8697) (DOCOBJ-INIT 8699 . 9327) (
DOCOBJ-TEDIT-MENU-ENTRY 9329 . 9751) (DOCOBJ-GET-LOOKS 9753 . 12253) (DOCOBJ-REGISTER-OBJECT 12255 .
12909) (DOCOBJ-STRING-IMAGEBOX 12911 . 13859) (DOCOBJ-WAIT-MOUSE 13861 . 14321) (
DOCOBJ-INVOKE-IMAGEOBJFN 14323 . 15446) (DOCOBJ-BEFOREHARDCOPYFN 15448 . 20041) (
DOCOBJ-AFTERHARDCOPYFN 20043 . 20753)) (20785 21052 (DOCOBJ-ACQUIRE-EVALED-OBJECT 20795 . 21050)) (
21252 21394 (DOCOBJ-ACQUIRE-SNAPPED-OBJECT 21262 . 21392)) (21733 26529 (DOCOBJ-EDIT-TIMESTAMP 21743
. 22272) (DOCOBJ-MAKE-TIMESTAMP 22274 . 22685) (DOCOBJ-MAKE-TIMESTAMP-IMAGEFNS 22687 . 23757) (
DOCOBJ-TIMESTAMP-BUTTONEVENTINFN 23759 . 24290) (DOCOBJ-TIMESTAMP-COPYFN 24292 . 24617) (
DOCOBJ-TIMESTAMP-DISPLAYFN 24619 . 24912) (DOCOBJ-TIMESTAMP-GETFN 24914 . 25154) (
DOCOBJ-TIMESTAMP-IMAGEBOXFN 25156 . 25512) (DOCOBJ-TIMESTAMP-PREPRINTFN 25514 . 25745) (
DOCOBJ-TIMESTAMP-PUTFN 25747 . 26116) (DOCOBJ-TIMESTAMP-TO-STRING 26118 . 26527)) (26823 31130 (
DOCOBJ-MAKE-FILESTAMP 26833 . 27174) (DOCOBJ-MAKE-FILESTAMP-IMAGEFNS 27176 . 28218) (
DOCOBJ-FILESTAMP-COPYFN 28220 . 28535) (DOCOBJ-FILESTAMP-DISPLAYFN 28537 . 28825) (
DOCOBJ-FILESTAMP-GETFN 28827 . 29180) (DOCOBJ-FILESTAMP-IMAGEBOXFN 29182 . 29520) (
DOCOBJ-FILESTAMP-GET-FULLNAME 29522 . 30140) (DOCOBJ-FILESTAMP-NEW-FULLNAME 30142 . 30615) (
DOCOBJ-FILESTAMP-PREPRINTFN 30617 . 30826) (DOCOBJ-FILESTAMP-PUTFN 30828 . 31128)) (31453 33950 (
DOCOBJ-MAKE-HRULE 31463 . 31877) (DOCOBJ-EDIT-HRULE 31879 . 32351) (DOCOBJ-HRULE-INIT 32353 . 32685) (
DOCOBJ-HRULE-GET-WIDTH 32687 . 33498) (DOCOBJ-HRULE-BUTTONEVENTINFN 33500 . 33948)) (34369 43047 (
DOCOBJ-MAKE-INCLUDE 34379 . 34780) (DOCOBJ-MAKE-INCLUDE-IMAGEFNS 34782 . 35787) (
DOCOBJ-INCLUDE-CREATE-OBJ 35789 . 36557) (DOCOBJ-INCLUDE-EDIT 36559 . 41158) (
DOCOBJ-INCLUDE-EDIT-WINDOWP 41160 . 42022) (DOCOBJ-INCLUDE-RESET-OBJ 42024 . 43045)) (43048 51864 (
DOCOBJ-INCLUDE-BEFOREHARDCOPYFN 43058 . 46780) (DOCOBJ-INCLUDE-CLEANUPFN 46782 . 48186) (
DOCOBJ-INCLUDE-BUTTONEVENTINFN 48188 . 48722) (DOCOBJ-INCLUDE-COPYFN 48724 . 48942) (
DOCOBJ-INCLUDE-DISPLAYFN 48944 . 49696) (DOCOBJ-INCLUDE-GETFN 49698 . 50421) (
DOCOBJ-INCLUDE-IMAGEBOXFN 50423 . 51432) (DOCOBJ-INCLUDE-PREPRINTFN 51434 . 51653) (
DOCOBJ-INCLUDE-PUTFN 51655 . 51862)))))
(FILEMAP (NIL (7682 21029 (DOCOBJ-ACQUIRE-OBJECT 7692 . 8693) (DOCOBJ-INIT 8695 . 9323) (
DOCOBJ-TEDIT-MENU-ENTRY 9325 . 9747) (DOCOBJ-GET-LOOKS 9749 . 12364) (DOCOBJ-REGISTER-OBJECT 12366 .
13020) (DOCOBJ-STRING-IMAGEBOX 13022 . 13970) (DOCOBJ-WAIT-MOUSE 13972 . 14432) (
DOCOBJ-INVOKE-IMAGEOBJFN 14434 . 15557) (DOCOBJ-BEFOREHARDCOPYFN 15559 . 20205) (
DOCOBJ-AFTERHARDCOPYFN 20207 . 21027)) (21059 21326 (DOCOBJ-ACQUIRE-EVALED-OBJECT 21069 . 21324)) (
21526 21668 (DOCOBJ-ACQUIRE-SNAPPED-OBJECT 21536 . 21666)) (22007 26803 (DOCOBJ-EDIT-TIMESTAMP 22017
. 22546) (DOCOBJ-MAKE-TIMESTAMP 22548 . 22959) (DOCOBJ-MAKE-TIMESTAMP-IMAGEFNS 22961 . 24031) (
DOCOBJ-TIMESTAMP-BUTTONEVENTINFN 24033 . 24564) (DOCOBJ-TIMESTAMP-COPYFN 24566 . 24891) (
DOCOBJ-TIMESTAMP-DISPLAYFN 24893 . 25186) (DOCOBJ-TIMESTAMP-GETFN 25188 . 25428) (
DOCOBJ-TIMESTAMP-IMAGEBOXFN 25430 . 25786) (DOCOBJ-TIMESTAMP-PREPRINTFN 25788 . 26019) (
DOCOBJ-TIMESTAMP-PUTFN 26021 . 26390) (DOCOBJ-TIMESTAMP-TO-STRING 26392 . 26801)) (27097 31404 (
DOCOBJ-MAKE-FILESTAMP 27107 . 27448) (DOCOBJ-MAKE-FILESTAMP-IMAGEFNS 27450 . 28492) (
DOCOBJ-FILESTAMP-COPYFN 28494 . 28809) (DOCOBJ-FILESTAMP-DISPLAYFN 28811 . 29099) (
DOCOBJ-FILESTAMP-GETFN 29101 . 29454) (DOCOBJ-FILESTAMP-IMAGEBOXFN 29456 . 29794) (
DOCOBJ-FILESTAMP-GET-FULLNAME 29796 . 30414) (DOCOBJ-FILESTAMP-NEW-FULLNAME 30416 . 30889) (
DOCOBJ-FILESTAMP-PREPRINTFN 30891 . 31100) (DOCOBJ-FILESTAMP-PUTFN 31102 . 31402)) (31727 34224 (
DOCOBJ-MAKE-HRULE 31737 . 32151) (DOCOBJ-EDIT-HRULE 32153 . 32625) (DOCOBJ-HRULE-INIT 32627 . 32959) (
DOCOBJ-HRULE-GET-WIDTH 32961 . 33772) (DOCOBJ-HRULE-BUTTONEVENTINFN 33774 . 34222)) (34643 43315 (
DOCOBJ-MAKE-INCLUDE 34653 . 35054) (DOCOBJ-MAKE-INCLUDE-IMAGEFNS 35056 . 36061) (
DOCOBJ-INCLUDE-CREATE-OBJ 36063 . 36831) (DOCOBJ-INCLUDE-EDIT 36833 . 41432) (
DOCOBJ-INCLUDE-EDIT-WINDOWP 41434 . 42290) (DOCOBJ-INCLUDE-RESET-OBJ 42292 . 43313)) (43316 52247 (
DOCOBJ-INCLUDE-BEFOREHARDCOPYFN 43326 . 47048) (DOCOBJ-INCLUDE-CLEANUPFN 47050 . 48569) (
DOCOBJ-INCLUDE-BUTTONEVENTINFN 48571 . 49105) (DOCOBJ-INCLUDE-COPYFN 49107 . 49325) (
DOCOBJ-INCLUDE-DISPLAYFN 49327 . 50079) (DOCOBJ-INCLUDE-GETFN 50081 . 50804) (
DOCOBJ-INCLUDE-IMAGEBOXFN 50806 . 51815) (DOCOBJ-INCLUDE-PREPRINTFN 51817 . 52036) (
DOCOBJ-INCLUDE-PUTFN 52038 . 52245)))))
STOP

BIN
lispusers/DOC-OBJECTS.LCOM
View File

Binary file not shown.

11
lispusers/TEDIT-PF-SEE
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "25-Dec-2023 12:29:39" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;118 8191
(FILECREATED "27-Mar-2024 23:45:38" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;119 8322
:EDIT-BY rmk
:CHANGES-TO (FNS PF-TEDIT)
:PREVIOUS-DATE " 5-Dec-2023 23:52:07" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;117)
:PREVIOUS-DATE "25-Dec-2023 12:29:39" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;118)
(PRETTYCOMPRINT TEDIT-PF-SEECOMS)
@@ -23,7 +23,8 @@
(DEFINEQ
(PF-TEDIT
[LAMBDA (FN IFILES REPRINT) (* ; "Edited 25-Dec-2023 12:24 by rmk")
[LAMBDA (FN IFILES REPRINT) (* ; "Edited 27-Mar-2024 23:45 by rmk")
(* ; "Edited 25-Dec-2023 12:24 by rmk")
(* ; "Edited 5-Dec-2023 23:50 by rmk")
(* ; "Edited 12-Oct-2023 00:19 by rmk")
(* ; "Edited 14-Sep-2023 22:33 by rmk")
@@ -65,7 +66,7 @@
THEN (SETQ TFPROP (LIST FN (CAR LOC)))
[SETQ WINDOW (FIND W IN (OPENWINDOWS)
SUCHTHAT (AND (EQUAL TFPROP (WINDOWPROP W 'TF))
(WINDOWPROP W 'TEXTOBJ]
(fetch (TEXTWINDOW WTEXTSTREAM) of W]
(IF (AND WINDOW (NOT REPRINT))
THEN
(* ;;
@@ -148,5 +149,5 @@
(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (782 7671 (PF-TEDIT 792 . 7669)))))
(FILEMAP (NIL (782 7802 (PF-TEDIT 792 . 7800)))))
STOP

BIN
lispusers/TEDIT-PF-SEE.LCOM
View File

Binary file not shown.

BIN
lispusers/TEDIT-PROCESS-KILLER.LCOM
View File

Binary file not shown.

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

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

36
lispusers/tmax/TMAX-DATE
View File

@@ -1,16 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "17-Mar-2022 23:03:32" 
|{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX-DATE.;3| 14993
(FILECREATED "16-Mar-2024 07:49:47" |{WMEDLEY}<lispusers>tmax>TMAX-DATE.;4| 14846
:CHANGES-TO (VARS TMAX-DATECOMS)
(FNS MAKE.DATEOBJ.IMAGEFNS)
:EDIT-BY |rmk|
:PREVIOUS-DATE "24-Oct-2021 13:52:22"
|{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX-DATE.;2|)
:CHANGES-TO (FNS DATE.GETFN)
:PREVIOUS-DATE "17-Mar-2022 23:03:32" |{WMEDLEY}<lispusers>tmax>TMAX-DATE.;3|)
; Copyright (c) 1987-1988 by Xerox Corporation.
(PRETTYCOMPRINT TMAX-DATECOMS)
@@ -104,12 +101,12 @@
(prin2 (list '|Date| (|fetch| objectdatum |of| obj))
stream)))
(date.getfn
(lambda (stream copy.object) (* |fsg| "20-Aug-87 14:56")
(let ((window (|with| textobj textobj (car \\window))))
(tsp.setup.fmmenu window))
(apply (function dateobj)
(or copy.object (cadr (read stream))))))
(DATE.GETFN
(LAMBDA (STREAM COPY.OBJECT) (* \; "Edited 16-Mar-2024 07:45 by rmk")
(* |fsg| "20-Aug-87 14:56")
(TSP.SETUP.FMMENU (\\TEDIT.PRIMARYW TEXTOBJ))
(APPLY (FUNCTION DATEOBJ)
(OR COPY.OBJECT (CADR (READ STREAM))))))
(date.copyfn
(lambda (image.obj source.stream target.stream) (* |fsg| "23-Jul-87 11:34")
@@ -352,12 +349,11 @@
(RECORD DATERECORD (DATESTRING DISPLAY.DATE TEMPLATE.DATE))
)
)
(PUTPROPS TMAX-DATE COPYRIGHT ("Xerox Corporation" 1987 1988))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (1517 6251 (DATEOBJ 1527 . 2294) (DATEOBJP 2296 . 2730) (DATE.DISPLAYFN 2732 . 3054) (
DATE.IMAGEBOXFN 3056 . 3683) (DATE.PUTFN 3685 . 3883) (DATE.GETFN 3885 . 4179) (DATE.COPYFN 4181 .
4713) (DATE.BUTTONEVENTINFN 4715 . 6249)) (6295 8948 (CURRENT.DISPLAY.FONT 6305 . 7011) (
CHANGE.DATE.FORMAT 7013 . 8946)) (9001 13400 (FINDTIME 9011 . 10790) (FINDHOUR 10792 . 11153) (AMPM
11155 . 11454) (FINDDAY 11456 . 11727) (NUMP 11729 . 11958) (FINDMONTH 11960 . 13076) (FINDYEAR 13078
. 13398)) (14112 14678 (MAKE.DATEOBJ.IMAGEFNS 14122 . 14676)))))
(FILEMAP (NIL (1378 6167 (DATEOBJ 1388 . 2155) (DATEOBJP 2157 . 2591) (DATE.DISPLAYFN 2593 . 2915) (
DATE.IMAGEBOXFN 2917 . 3544) (DATE.PUTFN 3546 . 3744) (DATE.GETFN 3746 . 4095) (DATE.COPYFN 4097 .
4629) (DATE.BUTTONEVENTINFN 4631 . 6165)) (6211 8864 (CURRENT.DISPLAY.FONT 6221 . 6927) (
CHANGE.DATE.FORMAT 6929 . 8862)) (8917 13316 (FINDTIME 8927 . 10706) (FINDHOUR 10708 . 11069) (AMPM
11071 . 11370) (FINDDAY 11372 . 11643) (NUMP 11645 . 11874) (FINDMONTH 11876 . 12992) (FINDYEAR 12994
. 13314)) (14028 14594 (MAKE.DATEOBJ.IMAGEFNS 14038 . 14592)))))
STOP

BIN
lispusers/tmax/TMAX-DATE.LCOM
View File

Binary file not shown.

41
lispusers/tmax/TMAX-ENDNOTE
View File

@@ -1,15 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "26-Jun-2022 18:15:33" 
|{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>TMAX>TMAX-ENDNOTE.;3| 23863
(FILECREATED "16-Mar-2024 07:49:47" |{WMEDLEY}<lispusers>tmax>TMAX-ENDNOTE.;4| 23729
:CHANGES-TO (FNS REGMARK.PUTFN REGMARK.BUTTONEVENTINFN)
:EDIT-BY |rmk|
:PREVIOUS-DATE "18-Mar-2022 07:12:34"
|{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>TMAX>TMAX-ENDNOTE.;2|)
:CHANGES-TO (FNS REGMARK.GETFN)
:PREVIOUS-DATE "26-Jun-2022 18:15:33" |{WMEDLEY}<lispusers>tmax>TMAX-ENDNOTE.;3|)
; Copyright (c) 1987 by Xerox Corporation.
(PRETTYCOMPRINT TMAX-ENDNOTECOMS)
@@ -388,12 +386,12 @@
(|fetch| (REGMARKOBJ MARKING) |of| (|fetch| OBJECTDATUM |of| MARKOBJ)))
STREAM)))
(regmark.getfn
(lambda (stream copy.object) (* |fsg| "20-Aug-87 14:58")
(let ((window (|with| textobj textobj (car \\window))))
(tsp.setup.fmmenu window))
(apply (function regmarkobj)
(or copy.object (cdr (read stream))))))
(REGMARK.GETFN
(LAMBDA (STREAM COPY.OBJECT) (* \; "Edited 16-Mar-2024 07:45 by rmk")
(* |fsg| "20-Aug-87 14:58")
(TSP.SETUP.FMMENU (\\TEDIT.PRIMARYW TEXTOBJ))
(APPLY (FUNCTION REGMARKOBJ)
(OR COPY.OBJECT (CDR (READ STREAM))))))
(regmark.copyfn
(lambda (image.obj source.stream target.stream) (* |fsg| "23-Jul-87 14:09")
@@ -447,15 +445,14 @@
(RECORD REGMARKOBJ (REGION.USE MARKING))
)
)
(PUTPROPS TMAX-ENDNOTE COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (2529 12156 (ADD.ENDNOTE 2539 . 3207) (INSERT.ENDNOTES 3209 . 5412) (
INSERT.ENDNOTES.TEXT 5414 . 6843) (DELETE.ENDNOTES 6845 . 7836) (NOTESREGIONP 7838 . 8100) (
SET.ENDNOTE.STYLE 8102 . 10775) (MAP.ENDNOTE.LOOKS 10777 . 11544) (GET.ENDNOTE.FONTS 11546 . 12154)) (
12157 16072 (ENDNOTEP 12167 . 12508) (NOTE.PUTFN 12510 . 13162) (NOTE.GETFN 13164 . 13744) (
NOTE.BUTTONEVENTINFN 13746 . 14526) (NOTE.WHENSELECTEDFN 14528 . 16070)) (16830 19234 (AUX.TEDIT 16840
. 17802) (AUX.TEDIT.AFTERQUITFN 17804 . 18247) (AUX.TEDIT.TITLEMENUFN 18249 . 19232)) (19319 23162 (
REGMARKOBJ 19329 . 19736) (REGMARKOBJP 19738 . 19932) (REGMARK.DISPLAYFN 19934 . 20180) (
REGMARK.IMAGEBOXFN 20182 . 20533) (REGMARK.PUTFN 20535 . 21006) (REGMARK.GETFN 21008 . 21307) (
REGMARK.COPYFN 21309 . 21847) (REGMARK.BUTTONEVENTINFN 21849 . 23160)))))
(FILEMAP (NIL (2401 12028 (ADD.ENDNOTE 2411 . 3079) (INSERT.ENDNOTES 3081 . 5284) (
INSERT.ENDNOTES.TEXT 5286 . 6715) (DELETE.ENDNOTES 6717 . 7708) (NOTESREGIONP 7710 . 7972) (
SET.ENDNOTE.STYLE 7974 . 10647) (MAP.ENDNOTE.LOOKS 10649 . 11416) (GET.ENDNOTE.FONTS 11418 . 12026)) (
12029 15944 (ENDNOTEP 12039 . 12380) (NOTE.PUTFN 12382 . 13034) (NOTE.GETFN 13036 . 13616) (
NOTE.BUTTONEVENTINFN 13618 . 14398) (NOTE.WHENSELECTEDFN 14400 . 15942)) (16702 19106 (AUX.TEDIT 16712
. 17674) (AUX.TEDIT.AFTERQUITFN 17676 . 18119) (AUX.TEDIT.TITLEMENUFN 18121 . 19104)) (19191 23089 (
REGMARKOBJ 19201 . 19608) (REGMARKOBJP 19610 . 19804) (REGMARK.DISPLAYFN 19806 . 20052) (
REGMARK.IMAGEBOXFN 20054 . 20405) (REGMARK.PUTFN 20407 . 20878) (REGMARK.GETFN 20880 . 21234) (
REGMARK.COPYFN 21236 . 21774) (REGMARK.BUTTONEVENTINFN 21776 . 23087)))))
STOP

BIN
lispusers/tmax/TMAX-ENDNOTE.LCOM
View File

Binary file not shown.

111
lispusers/tmax/TMAX-INDEX
View File

@@ -1,72 +1,74 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "20-Feb-97 17:58:09" |{DSK}<project>medley2.0>lispusers>TMAX-INDEX.;38| 46100
|changes| |to:| (FNS WRITE.INDEX.FILE INDEX.BUTTONEVENTINFN)
(FILECREATED "16-Mar-2024 07:51:29" |{WMEDLEY}<lispusers>tmax>TMAX-INDEX.;4| 46587
|previous| |date:| "19-Feb-97 21:51:43" |{DSK}<project>medley2.0>lispusers>TMAX-INDEX.;36|)
:EDIT-BY |rmk|
:CHANGES-TO (VARS TMAX-INDEXCOMS)
(FNS INDEX.DISPLAYFN)
:PREVIOUS-DATE "20-Feb-97 17:58:09" |{WMEDLEY}<lispusers>tmax>TMAX-INDEX.;1|)
; Copyright (c) 1987, 1997 by Xerox Corporation. All rights reserved.
(PRETTYCOMPRINT TMAX-INDEXCOMS)
(RPAQQ TMAX-INDEXCOMS
(
(* |;;| "Developed under support from NIH grant RR-00785.")
(* |;;| "Developed under support from NIH grant RR-00785.")
(* |;;| "Written by Frank Gilmurray and Sami Shaio. Modified by Ron Kaplan")
(* |;;| "Written by Frank Gilmurray and Sami Shaio. Modified by Ron Kaplan")
(* |;;| "INDEX objects are simply inserted into the text stream. Information about them is accumulated only when the displayfn is applied to a hardcopy imagestream, and it is accumulated as a property of the imagestream.")
(* |;;| "INDEX objects are simply inserted into the text stream. Information about them is accumulated only when the displayfn is applied to a hardcopy imagestream, and it is accumulated as a property of the imagestream.")
(* |;;;| "TMAX-INDEX ImageObject functions")
(* |;;;| "TMAX-INDEX ImageObject functions")
(INITVARS (INDEXDISPLAYAPPEARANCE 'BOX))
(FNS INDEXOBJ INDEXOBJP INDEX.DISPLAYFN INDEX.IMAGEBOXFN INDEX.PUTFN INDEX.GETFN INDEX.COPYFN
INDEX.BUTTONEVENTINFN)
(* |;;;| "Inserting indices")
(* |;;;| "Inserting indices")
(FNS INSERT.INDEX INSERT.INDEXENTRY INSERT.KNOWN.INDEX SUBITEM.SELECTFN ADD.NEW.INDEX)
(* |;;;| "Functions to change the Index/Extended Index")
(* |;;;| "Functions to change the Index/Extended Index")
(FNS CHANGE.INDEX CHANGE.INDEXENTRY CHANGE.XINDEX.KEY CHANGE.XINDEX.ENTRY CHANGE.XINDEX.FONT
CHANGE.XINDEX.NUMBER)
(* |;;;| "Other misc functions")
(* |;;;| "Other misc functions")
(FNS GETHASH.INDEX INDEX.PAGE.NUMBER INDEX.MANUAL.DELIMITER INDEX.STRING
GET.INDEXENTRY.NUMBER INDEX.LIST.REFS LIST.OF.INDEXENTRIES)
(* |;;;| "Index file functions")
(* |;;;| "Index file functions")
(FNS CREATE.INDEX.FILE DUMP.INDEX VIEW.INDEX.FILE GET.INDEX.FILE WRITE.INDEX.FILE
WRITE.INDEX.PAGENUMBERS RESET.INDEX.PAGENUMBERS)
(RECORDS INDEX.ENTRY.RECORD)
(* |;;;| "Convenient interface--depress the props key to index the current selection")
(* |;;;| "Convenient interface--depress the props key to index the current selection")
(FNS SELECTION.TO.STRING SELECTION.TO.INDEX)
(MACROS MAKE.INDEXOBJ.IMAGEFNS)
(VARS (\\INDEXOBJ.IMAGEFNS (MAKE.INDEXOBJ.IMAGEFNS)))
(ADDVARS (IMAGEOBJGETFNS (INDEX.GETFN)))
(P (* \;
 "533 is the PROPS key on Sun keyboards")
(TEDIT.SETSYNTAX 533 'FN TEDIT.READTABLE)
(TEDIT.SETFUNCTION 533 (FUNCTION SELECTION.TO.INDEX)
(P (* \;
 "533 is the PROPS key on Sun keyboards")
(TEDIT.SETSYNTAX "Function,^U" 'FN TEDIT.READTABLE)
(TEDIT.SETFUNCTION "Function,^U" (FUNCTION SELECTION.TO.INDEX)
TEDIT.READTABLE))
(* |;;;| "IMAGE OBJECT for causing the index to be written, without using the menu")
(* |;;;| "IMAGE OBJECT for causing the index to be written, without using the menu")
))
@@ -121,10 +123,11 @@
'indexobj))))
(INDEX.DISPLAYFN
(LAMBDA (OBJ IMAGESTREAM) (* \; "Edited 14-Feb-97 09:30 by rmk:")
(* |fsg| "17-Sep-87 11:14")
(LAMBDA (OBJ IMAGESTREAM) (* \; "Edited 16-Mar-2024 07:46 by rmk")
(* \; "Edited 14-Feb-97 09:30 by rmk:")
(* |fsg| "17-Sep-87 11:14")
(* |;;| "Display an Index imageobject. If the stream-type is display, then just type Index or Extended Index followed by their args. Otherwise the stream-type is hardcopy. In this case, type nothing and replace the CAR of the hash array entry with a list of page numbers in which this index appears.")
(* |;;| "Display an Index imageobject. If the stream-type is display, then just type Index or Extended Index followed by their args. Otherwise the stream-type is hardcopy. In this case, type nothing and replace the CAR of the hash array entry with a list of page numbers in which this index appears.")
(SELECTQ (IMAGESTREAMTYPE IMAGESTREAM)
(DISPLAY (CL:UNLESS (EQ 'INVISIBLE INDEXDISPLAYAPPEARANCE)
@@ -136,7 +139,7 @@
(PRIN3 (INDEX.STRING OBJ)
IMAGESTREAM)))))
(LET ((PGS/IMOBJS (GETHASH.INDEX OBJ IMAGESTREAM))
(CURRENT.PAGE (INDEX.PAGE.NUMBER (WITH TEXTOBJ TEXTOBJ (CAR \\WINDOW)))))
(CURRENT.PAGE (INDEX.PAGE.NUMBER (\\TEDIT.PRIMARYW TEXTOBJ))))
(COND
((LISTP (CAR PGS/IMOBJS))
(OR (MEMB CURRENT.PAGE (CAR PGS/IMOBJS))
@@ -830,52 +833,50 @@
)
(DECLARE\: EVAL@COMPILE
(PUTPROPS MAKE.INDEXOBJ.IMAGEFNS MACRO
(LAMBDA NIL
(IMAGEFNSCREATE (FUNCTION INDEX.DISPLAYFN)
(FUNCTION INDEX.IMAGEBOXFN)
(FUNCTION INDEX.PUTFN)
(FUNCTION INDEX.GETFN)
(FUNCTION INDEX.COPYFN)
(FUNCTION INDEX.BUTTONEVENTINFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL))))
(PUTPROPS MAKE.INDEXOBJ.IMAGEFNS MACRO (LAMBDA NIL
(IMAGEFNSCREATE (FUNCTION INDEX.DISPLAYFN)
(FUNCTION INDEX.IMAGEBOXFN)
(FUNCTION INDEX.PUTFN)
(FUNCTION INDEX.GETFN)
(FUNCTION INDEX.COPYFN)
(FUNCTION INDEX.BUTTONEVENTINFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL))))
)
(RPAQ \\INDEXOBJ.IMAGEFNS (MAKE.INDEXOBJ.IMAGEFNS))
(ADDTOVAR IMAGEOBJGETFNS (INDEX.GETFN))
(* \;
 "533 is the PROPS key on Sun keyboards")
(* \;
 "533 is the PROPS key on Sun keyboards")
(TEDIT.SETSYNTAX 533 'FN TEDIT.READTABLE)
(TEDIT.SETSYNTAX "Function,^U" 'FN TEDIT.READTABLE)
(TEDIT.SETFUNCTION 533 (FUNCTION SELECTION.TO.INDEX)
(TEDIT.SETFUNCTION "Function,^U" (FUNCTION SELECTION.TO.INDEX)
TEDIT.READTABLE)
(* |;;;| "IMAGE OBJECT for causing the index to be written, without using the menu")
(PUTPROPS TMAX-INDEX COPYRIGHT ("Xerox Corporation" 1987 1997))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (3149 10825 (INDEXOBJ 3159 . 4182) (INDEXOBJP 4184 . 4632) (INDEX.DISPLAYFN 4634 . 6204)
(INDEX.IMAGEBOXFN 6206 . 7752) (INDEX.PUTFN 7754 . 8184) (INDEX.GETFN 8186 . 8577) (INDEX.COPYFN 8579
. 9214) (INDEX.BUTTONEVENTINFN 9216 . 10823)) (10864 18737 (INSERT.INDEX 10874 . 11461) (
INSERT.INDEXENTRY 11463 . 14230) (INSERT.KNOWN.INDEX 14232 . 16309) (SUBITEM.SELECTFN 16311 . 17305) (
ADD.NEW.INDEX 17307 . 18735)) (18803 22734 (CHANGE.INDEX 18813 . 19381) (CHANGE.INDEXENTRY 19383 .
20133) (CHANGE.XINDEX.KEY 20135 . 20693) (CHANGE.XINDEX.ENTRY 20695 . 21328) (CHANGE.XINDEX.FONT 21330
. 22199) (CHANGE.XINDEX.NUMBER 22201 . 22732)) (22776 30497 (GETHASH.INDEX 22786 . 23453) (
INDEX.PAGE.NUMBER 23455 . 25034) (INDEX.MANUAL.DELIMITER 25036 . 25727) (INDEX.STRING 25729 . 26739) (
GET.INDEXENTRY.NUMBER 26741 . 27761) (INDEX.LIST.REFS 27763 . 29253) (LIST.OF.INDEXENTRIES 29255 .
30495)) (30539 40743 (CREATE.INDEX.FILE 30549 . 32428) (DUMP.INDEX 32430 . 34850) (VIEW.INDEX.FILE
34852 . 36116) (GET.INDEX.FILE 36118 . 36508) (WRITE.INDEX.FILE 36510 . 38911) (
WRITE.INDEX.PAGENUMBERS 38913 . 40113) (RESET.INDEX.PAGENUMBERS 40115 . 40741)) (40941 44995 (
SELECTION.TO.STRING 40951 . 43783) (SELECTION.TO.INDEX 43785 . 44993)))))
(FILEMAP (NIL (3112 10886 (INDEXOBJ 3122 . 4145) (INDEXOBJP 4147 . 4595) (INDEX.DISPLAYFN 4597 . 6265)
(INDEX.IMAGEBOXFN 6267 . 7813) (INDEX.PUTFN 7815 . 8245) (INDEX.GETFN 8247 . 8638) (INDEX.COPYFN 8640
. 9275) (INDEX.BUTTONEVENTINFN 9277 . 10884)) (10925 18798 (INSERT.INDEX 10935 . 11522) (
INSERT.INDEXENTRY 11524 . 14291) (INSERT.KNOWN.INDEX 14293 . 16370) (SUBITEM.SELECTFN 16372 . 17366) (
ADD.NEW.INDEX 17368 . 18796)) (18864 22795 (CHANGE.INDEX 18874 . 19442) (CHANGE.INDEXENTRY 19444 .
20194) (CHANGE.XINDEX.KEY 20196 . 20754) (CHANGE.XINDEX.ENTRY 20756 . 21389) (CHANGE.XINDEX.FONT 21391
. 22260) (CHANGE.XINDEX.NUMBER 22262 . 22793)) (22837 30558 (GETHASH.INDEX 22847 . 23514) (
INDEX.PAGE.NUMBER 23516 . 25095) (INDEX.MANUAL.DELIMITER 25097 . 25788) (INDEX.STRING 25790 . 26800) (
GET.INDEXENTRY.NUMBER 26802 . 27822) (INDEX.LIST.REFS 27824 . 29314) (LIST.OF.INDEXENTRIES 29316 .
30556)) (30600 40804 (CREATE.INDEX.FILE 30610 . 32489) (DUMP.INDEX 32491 . 34911) (VIEW.INDEX.FILE
34913 . 36177) (GET.INDEX.FILE 36179 . 36569) (WRITE.INDEX.FILE 36571 . 38972) (
WRITE.INDEX.PAGENUMBERS 38974 . 40174) (RESET.INDEX.PAGENUMBERS 40176 . 40802)) (41002 45056 (
SELECTION.TO.STRING 41012 . 43844) (SELECTION.TO.INDEX 43846 . 45054)))))
STOP

BIN
lispusers/tmax/TMAX-INDEX.LCOM
View File

Binary file not shown.

371
lispusers/tmax/TMAX-NUMBER
View File

@@ -1,15 +1,14 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "18-Mar-2022 07:06:06" 
|{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX-NUMBER.;8| 33934
(FILECREATED "16-Mar-2024 07:49:47" |{WMEDLEY}<lispusers>tmax>TMAX-NUMBER.;3| 33943
:CHANGES-TO (VARS TMAX-NUMBERCOMS)
:EDIT-BY |rmk|
:PREVIOUS-DATE "17-Mar-2022 23:33:32"
|{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX-NUMBER.;7|)
:CHANGES-TO (FNS NUMBER.DISPLAYFN NUMBER.PREPRINTFN NUMBER.IMAGEBOXFN NUMBER.PUTFN NUMBER.GETFN
NUMBER.COPYFN)
:PREVIOUS-DATE "18-Mar-2022 07:06:06" |{WMEDLEY}<lispusers>tmax>TMAX-NUMBER.;2|)
; Copyright (c) 1987, 1999-2000 by Xerox Corporation.
(PRETTYCOMPRINT TMAX-NUMBERCOMS)
@@ -94,193 +93,190 @@
(eq (|fetch| (numberobj use) |of| (|fetch| objectdatum |of| imobj))
'ngroup))))
(number.displayfn
(lambda (image.obj stream) (* |fsg| "24-Sep-87 14:56")
(* |Display| |function| |for| |numberobjs.|
 |Allows| |different| |formats| |for| |display| |according| |to| |the| |use|
 |to| |which| |the| |numberobj| |is| |being| |put.|
 i\f |no| |specific| |action| |is| |specified,| |displaying| |defaults| |to|
 |printing| |out| |as| \a |plain| |number.*|)
(NUMBER.DISPLAYFN
(LAMBDA (IMAGE.OBJ STREAM) (* \; "Edited 16-Mar-2024 07:46 by rmk")
(* |fsg| "24-Sep-87 14:56")
(|with| numberobj (|fetch| objectdatum |of| image.obj)
(let* ((main.window (|with| textobj textobj (car \\window)))
(image.tag (imageobjprop image.obj 'tag))
(old.font (dspfont nil stream))
(nbr.font (selectq use
(note (|fetch| (endnotefonts number.font) |of| (get.endnote.fonts
main.window)))
(ngroup font)
(error "Undefined USE field" use))))
(and image.tag (or (tsp.getcodeval image.tag main.window)
(tsp.putcode image.tag image.obj main.window)))
(and (fontp nbr.font)
(dspfont (fontcreate (fontprop nbr.font 'family)
(fontprop nbr.font 'size)
(fontprop nbr.font 'face))
stream))
(or (imagestreamtypep stream 'display)
(setq page.number (car formattingstate)))
(tmax.shadeobj image.obj stream)
(selectq use
(ngroup (prin1 (concat (or text.before# "")
(mkstring numstring)
(or text.after# ""))
stream)
(or (imagestreamtypep stream 'display)
(update.ngroup.manindex template ref.type main.window)))
(note (let ((current.ypos (dspyposition nil stream))
(imagebox (listget (|fetch| imageobjplist |of| image.obj)
'boundbox)))
(dspyposition (iplus current.ypos (idifference (|fetch| ysize
|of| imagebox)
(fontprop stream
'height)))
stream)
(prin1 (mkstring numstring)
stream)
(dspyposition current.ypos stream)))
nil)
(dspfont old.font stream)))))
(* |;;| "Display function for numberobjs. Allows different formats for display according to the use to which the numberobj is being put. If no specific action is specified, displaying defaults to printing out as a plain number.*")
(NUMBER.PREPRINTFN
(LAMBDA (IMAGE.OBJ) (* \; "Edited 18-May-99 22:51 by rmk:")
(* |fsg| "24-Sep-87 14:56")
(* |;;| "Returns string that represents the number object, for plaintext put. If no specific action is specified, displaying defaults to printing out as a plain number.*")
(WITH NUMBEROBJ (FETCH OBJECTDATUM OF IMAGE.OBJ)
(LET* ((MAIN.WINDOW (WITH TEXTOBJ TEXTOBJ (CAR \\WINDOW)))
(IMAGE.TAG (IMAGEOBJPROP IMAGE.OBJ 'TAG)))
(|with| NUMBEROBJ (|fetch| OBJECTDATUM |of| IMAGE.OBJ)
(LET* ((MAIN.WINDOW (\\TEDIT.PRIMARYW TEXTOBJ))
(IMAGE.TAG (IMAGEOBJPROP IMAGE.OBJ 'TAG))
(OLD.FONT (DSPFONT NIL STREAM))
(NBR.FONT (SELECTQ USE
(NOTE (|fetch| (ENDNOTEFONTS NUMBER.FONT) |of| (GET.ENDNOTE.FONTS
MAIN.WINDOW)))
(NGROUP FONT)
(ERROR "Undefined USE field" USE))))
(AND IMAGE.TAG (OR (TSP.GETCODEVAL IMAGE.TAG MAIN.WINDOW)
(TSP.PUTCODE IMAGE.TAG IMAGE.OBJ MAIN.WINDOW)))
(AND (FONTP NBR.FONT)
(DSPFONT (FONTCREATE (FONTPROP NBR.FONT 'FAMILY)
(FONTPROP NBR.FONT 'SIZE)
(FONTPROP NBR.FONT 'FACE))
STREAM))
(OR (IMAGESTREAMTYPEP STREAM 'DISPLAY)
(SETQ PAGE.NUMBER (CAR FORMATTINGSTATE)))
(TMAX.SHADEOBJ IMAGE.OBJ STREAM)
(SELECTQ USE
(NGROUP (CONCAT (OR TEXT.BEFORE# "")
(MKSTRING NUMSTRING)
(OR TEXT.AFTER# "")))
(NOTE (MKSTRING NUMSTRING))
NIL)))))
(NGROUP (PRIN1 (CONCAT (OR TEXT.BEFORE# "")
(MKSTRING NUMSTRING)
(OR TEXT.AFTER# ""))
STREAM)
(OR (IMAGESTREAMTYPEP STREAM 'DISPLAY)
(UPDATE.NGROUP.MANINDEX TEMPLATE REF.TYPE MAIN.WINDOW)))
(NOTE (LET ((CURRENT.YPOS (DSPYPOSITION NIL STREAM))
(IMAGEBOX (LISTGET (|fetch| IMAGEOBJPLIST |of| IMAGE.OBJ)
'BOUNDBOX)))
(DSPYPOSITION (IPLUS CURRENT.YPOS (IDIFFERENCE (|fetch| YSIZE
|of| IMAGEBOX)
(FONTPROP STREAM
'HEIGHT)))
STREAM)
(PRIN1 (MKSTRING NUMSTRING)
STREAM)
(DSPYPOSITION CURRENT.YPOS STREAM)))
NIL)
(DSPFONT OLD.FONT STREAM)))))
(number.imageboxfn
(lambda (obj stream currentx rightmargin) (* |fsg| " 4-Aug-87 14:56")
(* * |For| |Endnote| |numbers,| |the| |YSize| |is| |the| |current| |font|
 |height| |plus| 0.25 |times| |the| |Endnote| |number| |font| |height.|
 w\e |do| |this| |so| |the| |the| |Endnote| |number| |will| |be| |superscripted|
 |but| |not| |too| |much.|)
(NUMBER.PREPRINTFN
(LAMBDA (IMAGE.OBJ) (* \; "Edited 16-Mar-2024 07:47 by rmk")
(* \; "Edited 18-May-99 22:51 by rmk:")
(* |fsg| "24-Sep-87 14:56")
(* * |The| |YSize| |is| |computed| |as| |the| |current| |font| |height| |plus|
 |half| |of| |the| note |or| |NGroup| |font.|
 |The| |reason| |is| |weird.| |Ask| |Sami| |for| |more| |details.|)
(* |;;| "Returns string that represents the number object, for plaintext put. If no specific action is specified, displaying defaults to printing out as a plain number.*")
(|with| numberobj (|fetch| objectdatum |of| obj)
(let* ((main.window (|with| textobj textobj (car \\window)))
(imobj.string (mkstring numstring))
(nbr.font (selectq use
(note (|fetch| (endnotefonts number.font) |of| (get.endnote.fonts
main.window)))
(ngroup font)
(error "Undefined USE field" use))))
(and (eq use 'ngroup)
(progn (and (stringp text.before#)
(setq imobj.string (concat text.before# imobj.string)))
(and (stringp text.after#)
(setq imobj.string (concat imobj.string text.after#)))))
(and (fontp nbr.font)
(dspfont (fontcreate (fontprop nbr.font 'family)
(fontprop nbr.font 'size)
(fontprop nbr.font 'face))
stream))
(|create| imagebox
xsize _ (stringwidth imobj.string stream)
ysize _ (selectq use
(note (fix (plus (times (dspscale nil stream)
(fontprop (current.display.font stream)
'height))
(times 0.25 (fontprop stream 'height)))))
(fontprop stream 'height))
ydesc _ (fontprop stream 'descent)
xkern _ 0)))))
(WITH NUMBEROBJ (FETCH OBJECTDATUM OF IMAGE.OBJ)
(LET* ((MAIN.WINDOW (\\TEDIT.PRIMARYW TEXTOBJ))
(IMAGE.TAG (IMAGEOBJPROP IMAGE.OBJ 'TAG)))
(AND IMAGE.TAG (OR (TSP.GETCODEVAL IMAGE.TAG MAIN.WINDOW)
(TSP.PUTCODE IMAGE.TAG IMAGE.OBJ MAIN.WINDOW)))
(SELECTQ USE
(NGROUP (CONCAT (OR TEXT.BEFORE# "")
(MKSTRING NUMSTRING)
(OR TEXT.AFTER# "")))
(NOTE (MKSTRING NUMSTRING))
NIL)))))
(number.putfn
(lambda (obj stream) (* |fsg| " 5-Aug-87 08:24")
(let ((window (|with| textobj textobj (car \\window)))
(use (|with| numberobj (|fetch| objectdatum |of| obj)
use))
(old.font (|with| numberobj (|fetch| objectdatum |of| obj)
font)))
(selectq use
(note (note.putfn obj stream window))
(ngroup (let ((ngroup.rec (copy (|fetch| objectdatum |of| obj))))
(|with| numberobj ngroup.rec (setq font (list.font.props font))
(prin4 (list '|NGroup| (and (windowprop window 'dumpngroupgraph)
(dump.ngroup.graph window))
(imageobjprop obj 'tag)
ngroup.rec)
stream))))
(error "Unknown NUMBER ImageObject type" use)))))
(NUMBER.IMAGEBOXFN
(LAMBDA (OBJ STREAM CURRENTX RIGHTMARGIN) (* \; "Edited 16-Mar-2024 07:47 by rmk")
(* |fsg| " 4-Aug-87 14:56")
(number.getfn
(lambda (stream copy.object) (* |fsg| " 3-Sep-87 15:17")
(* * i\f copy.object |is| |non-NIL| |then| |we| |are| |COPYing| |it| |to|
 |this| |window.|)
(* |;;;| "For Endnote numbers, the YSize is the current font height plus 0.25 times the Endnote number font height. We do this so the the Endnote number will be superscripted but not too much.")
(let ((nbrobj.datum (or copy.object (cdr (read stream))))
(newobj (numberobj))
(window (|with| textobj textobj (car \\window))))
(tsp.setup.fmmenu window)
(and (ilessp (length nbrobj.datum)
(* |;;;| "The YSize is computed as the current font height plus half of the NOTE or NGroup font. The reason is weird. Ask Sami for more details.")
(|with| NUMBEROBJ (|fetch| OBJECTDATUM |of| OBJ)
(LET* ((MAIN.WINDOW (\\TEDIT.PRIMARYW TEXTOBJ))
(IMOBJ.STRING (MKSTRING NUMSTRING))
(NBR.FONT (SELECTQ USE
(NOTE (|fetch| (ENDNOTEFONTS NUMBER.FONT) |of| (GET.ENDNOTE.FONTS
MAIN.WINDOW)))
(NGROUP FONT)
(ERROR "Undefined USE field" USE))))
(AND (EQ USE 'NGROUP)
(PROGN (AND (STRINGP TEXT.BEFORE#)
(SETQ IMOBJ.STRING (CONCAT TEXT.BEFORE# IMOBJ.STRING)))
(AND (STRINGP TEXT.AFTER#)
(SETQ IMOBJ.STRING (CONCAT IMOBJ.STRING TEXT.AFTER#)))))
(AND (FONTP NBR.FONT)
(DSPFONT (FONTCREATE (FONTPROP NBR.FONT 'FAMILY)
(FONTPROP NBR.FONT 'SIZE)
(FONTPROP NBR.FONT 'FACE))
STREAM))
(|create| IMAGEBOX
XSIZE _ (STRINGWIDTH IMOBJ.STRING STREAM)
YSIZE _ (SELECTQ USE
(NOTE (FIX (PLUS (TIMES (DSPSCALE NIL STREAM)
(FONTPROP (CURRENT.DISPLAY.FONT STREAM)
'HEIGHT))
(TIMES 0.25 (FONTPROP STREAM 'HEIGHT)))))
(FONTPROP STREAM 'HEIGHT))
YDESC _ (FONTPROP STREAM 'DESCENT)
XKERN _ 0)))))
(NUMBER.PUTFN
(LAMBDA (OBJ STREAM) (* \; "Edited 16-Mar-2024 07:48 by rmk")
(* |fsg| " 5-Aug-87 08:24")
(LET ((WINDOW (\\TEDIT.PRIMARYW TEXTOBJ))
(USE (|with| NUMBEROBJ (|fetch| OBJECTDATUM |of| OBJ)
USE))
(OLD.FONT (|with| NUMBEROBJ (|fetch| OBJECTDATUM |of| OBJ)
FONT)))
(SELECTQ USE
(NOTE (NOTE.PUTFN OBJ STREAM WINDOW))
(NGROUP (LET ((NGROUP.REC (COPY (|fetch| OBJECTDATUM |of| OBJ))))
(|with| NUMBEROBJ NGROUP.REC (SETQ FONT (LIST.FONT.PROPS FONT))
(PRIN4 (LIST '|NGroup| (AND (WINDOWPROP WINDOW 'DUMPNGROUPGRAPH)
(DUMP.NGROUP.GRAPH WINDOW))
(IMAGEOBJPROP OBJ 'TAG)
NGROUP.REC)
STREAM))))
(ERROR "Unknown NUMBER ImageObject type" USE)))))
(NUMBER.GETFN
(LAMBDA (STREAM COPY.OBJECT) (* \; "Edited 16-Mar-2024 07:48 by rmk")
(* |fsg| " 3-Sep-87 15:17")
(* |;;;| "If COPY.OBJECT is non-NIL then we are COPYing it to this window.")
(LET ((NBROBJ.DATUM (OR COPY.OBJECT (CDR (READ STREAM))))
(NEWOBJ (NUMBEROBJ))
(WINDOW (\\TEDIT.PRIMARYW TEXTOBJ)))
(TSP.SETUP.FMMENU WINDOW)
(AND (ILESSP (LENGTH NBROBJ.DATUM)
3)
(setq nbrobj.datum (cons nil nbrobj.datum)))
(and (car nbrobj.datum)
(not (and (boundp 'tmax.prune.ngraph)
tmax.prune.ngraph))
(copy.ngroup.branch (car nbrobj.datum)
window))
(and (cadr nbrobj.datum)
(not (gethash (cadr nbrobj.datum)
(windowprop window 'tsp.code.array)))
(progn (tsp.putcode (cadr nbrobj.datum)
newobj window)
(imageobjprop newobj 'tag (cadr nbrobj.datum))))
(|with| numberobj (setq nbrobj.datum (ngroup.fixup.records (caddr nbrobj.datum)
copy.object))
(selectq use
(note (note.getfn newobj nbrobj.datum window))
(ngroup (and (listp font)
(setq font (fontcreate font)))
(create.ngroup.node ref.type ngroup.mother nbrobj.datum window)
(create.ngroup.node ngroup.mother nil nil window)
(add.ngroup.to.mother.node ref.type ngroup.mother window)
(windowprop window 'rebuild.graphflg t)
(and (|fetch| (ngtemplate ng.manualindex) |of| template)
(windowaddprop window 'manualgroups ref.type))
(|replace| objectdatum |of| newobj |with| nbrobj.datum))
(error "Unknown USE type in NUMBER.GETFN" use)))
newobj)))
(SETQ NBROBJ.DATUM (CONS NIL NBROBJ.DATUM)))
(AND (CAR NBROBJ.DATUM)
(NOT (AND (BOUNDP 'TMAX.PRUNE.NGRAPH)
TMAX.PRUNE.NGRAPH))
(COPY.NGROUP.BRANCH (CAR NBROBJ.DATUM)
WINDOW))
(AND (CADR NBROBJ.DATUM)
(NOT (GETHASH (CADR NBROBJ.DATUM)
(WINDOWPROP WINDOW 'TSP.CODE.ARRAY)))
(PROGN (TSP.PUTCODE (CADR NBROBJ.DATUM)
NEWOBJ WINDOW)
(IMAGEOBJPROP NEWOBJ 'TAG (CADR NBROBJ.DATUM))))
(|with| NUMBEROBJ (SETQ NBROBJ.DATUM (NGROUP.FIXUP.RECORDS (CADDR NBROBJ.DATUM)
COPY.OBJECT))
(SELECTQ USE
(NOTE (NOTE.GETFN NEWOBJ NBROBJ.DATUM WINDOW))
(NGROUP (AND (LISTP FONT)
(SETQ FONT (FONTCREATE FONT)))
(CREATE.NGROUP.NODE REF.TYPE NGROUP.MOTHER NBROBJ.DATUM WINDOW)
(CREATE.NGROUP.NODE NGROUP.MOTHER NIL NIL WINDOW)
(ADD.NGROUP.TO.MOTHER.NODE REF.TYPE NGROUP.MOTHER WINDOW)
(WINDOWPROP WINDOW 'REBUILD.GRAPHFLG T)
(AND (|fetch| (NGTEMPLATE NG.MANUALINDEX) |of| TEMPLATE)
(WINDOWADDPROP WINDOW 'MANUALGROUPS REF.TYPE))
(|replace| OBJECTDATUM |of| NEWOBJ |with| NBROBJ.DATUM))
(ERROR "Unknown USE type in NUMBER.GETFN" USE)))
NEWOBJ)))
(number.copyfn
(lambda (image.obj source.stream target.stream) (* |fsg| " 4-Aug-87 09:46")
(* * |Here| |to| copy \a |Number| |Image| |Object.|
 i\f |we| |are| |copying| |to| |our| |own| |window,| |we| |delete| |the| tag
 |if| |any| |so| |we| |don't| |get| |two| |ImageObjs| |with| |the| |same| tag
 |name.|)
(NUMBER.COPYFN
(LAMBDA (IMAGE.OBJ SOURCE.STREAM TARGET.STREAM) (* \; "Edited 16-Mar-2024 07:48 by rmk")
(* |fsg| " 4-Aug-87 09:46")
(selectq (imagestreamtype target.stream)
(text (let ((source.window (|with| textobj textobj (car \\window)))
(textobj (textobj target.stream)))
(apply* (imageobjprop image.obj 'getfn)
target.stream
(list (|with| numberobj (|fetch| objectdatum |of| image.obj)
(and (eq use 'ngroup)
(neq source.stream target.stream)
(|for| parent |in| (append (list.ancestors ref.type nil
source.window)
(list ref.type))
|collect| (car (gethash parent (tsp.get.ngroup.array
source.window))))))
(and (neq source.stream target.stream)
(imageobjprop image.obj 'tag))
(|fetch| objectdatum |of| image.obj)))))
(error "Unknown TARGET stream type" (imagestreamtype target.stream)))))
(* |;;;| "Here to COPY a Number Image Object. If we are copying to our own window, we delete the TAG if any so we don't get two ImageObjs with the same TAG name.")
(SELECTQ (IMAGESTREAMTYPE TARGET.STREAM)
(TEXT (LET ((SOURCE.WINDOW (\\TEDIT.PRIMARYW TEXTOBJ))
(TEXTOBJ (TEXTOBJ TARGET.STREAM)))
(APPLY* (IMAGEOBJPROP IMAGE.OBJ 'GETFN)
TARGET.STREAM
(LIST (|with| NUMBEROBJ (|fetch| OBJECTDATUM |of| IMAGE.OBJ)
(AND (EQ USE 'NGROUP)
(NEQ SOURCE.STREAM TARGET.STREAM)
(|for| PARENT |in| (APPEND (LIST.ANCESTORS REF.TYPE NIL
SOURCE.WINDOW)
(LIST REF.TYPE))
|collect| (CAR (GETHASH PARENT (TSP.GET.NGROUP.ARRAY
SOURCE.WINDOW))))))
(AND (NEQ SOURCE.STREAM TARGET.STREAM)
(IMAGEOBJPROP IMAGE.OBJ 'TAG))
(|fetch| OBJECTDATUM |of| IMAGE.OBJ)))))
(ERROR "Unknown TARGET stream type" (IMAGESTREAMTYPE TARGET.STREAM)))))
(number.buttoneventinfn
(lambda (obj stream sel relx rely window hoststream button)(* |fsg| " 2-Sep-87 11:09")
@@ -588,14 +584,13 @@
FONT TEXT.BEFORE# ABBREV-VAL))
)
)
(PUTPROPS TMAX-NUMBER COPYRIGHT ("Xerox Corporation" 1987 1999 2000))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (2558 18256 (NUMBEROBJ 2568 . 3674) (NUMBEROBJP 3676 . 4216) (NGROUPP 4218 . 4572) (
NUMBER.DISPLAYFN 4574 . 7613) (NUMBER.PREPRINTFN 7615 . 8659) (NUMBER.IMAGEBOXFN 8661 . 11154) (
NUMBER.PUTFN 11156 . 12240) (NUMBER.GETFN 12242 . 14378) (NUMBER.COPYFN 14380 . 16077) (
NUMBER.BUTTONEVENTINFN 16079 . 17984) (NUMBEROBJ.TEDIT-TO-TEX-FN 17986 . 18254)) (18257 27428 (
COPY.NGROUP.BRANCH 18267 . 19723) (DUMP.NGROUP.GRAPH 19725 . 20601) (NGROUP.BUTTONEVENTINFN 20603 .
21303) (NGROUP.DEFINE.TAG 21305 . 21908) (NUMBER.DELETE.TAG 21910 . 22169) (NGROUP.SHOW.TAG 22171 .
22493) (CHANGE.INSERTED.NGROUP.FORMAT 22495 . 24290) (CHANGE.NGROUP.FORMAT.#TEXT 24292 . 25878) (
SHOW.INSERTED.NGROUP.FORMAT 25880 . 27426)))))
(FILEMAP (NIL (2562 18335 (NUMBEROBJ 2572 . 3678) (NUMBEROBJP 3680 . 4220) (NGROUPP 4222 . 4576) (
NUMBER.DISPLAYFN 4578 . 7583) (NUMBER.PREPRINTFN 7585 . 8717) (NUMBER.IMAGEBOXFN 8719 . 11110) (
NUMBER.PUTFN 11112 . 12284) (NUMBER.GETFN 12286 . 14471) (NUMBER.COPYFN 14473 . 16156) (
NUMBER.BUTTONEVENTINFN 16158 . 18063) (NUMBEROBJ.TEDIT-TO-TEX-FN 18065 . 18333)) (18336 27507 (
COPY.NGROUP.BRANCH 18346 . 19802) (DUMP.NGROUP.GRAPH 19804 . 20680) (NGROUP.BUTTONEVENTINFN 20682 .
21382) (NGROUP.DEFINE.TAG 21384 . 21987) (NUMBER.DELETE.TAG 21989 . 22248) (NGROUP.SHOW.TAG 22250 .
22572) (CHANGE.INSERTED.NGROUP.FORMAT 22574 . 24369) (CHANGE.NGROUP.FORMAT.#TEXT 24371 . 25957) (
SHOW.INSERTED.NGROUP.FORMAT 25959 . 27505)))))
STOP

BIN
lispusers/tmax/TMAX-NUMBER.LCOM
View File

Binary file not shown.

62
lispusers/tmax/TMAX-XREF
View File

@@ -1,13 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "26-Dec-2023 11:56:52" |{WMEDLEY}<lispusers>TMAX>TMAX-XREF.;4| 23618
(FILECREATED "16-Mar-2024 07:55:53" |{WMEDLEY}<lispusers>tmax>TMAX-XREF.;7| 23813
:EDIT-BY |rmk|
:CHANGES-TO (FILES TMAX)
(FNS XREF.BUTTONEVENTINFN)
:CHANGES-TO (VARS XREF.DISPLAY.METHODS)
(FNS XREF.BUTTONEVENTINFN XREF.GETFN XREF.GET.TOOBJ)
:PREVIOUS-DATE "15-Jul-2023 10:49:41" |{WMEDLEY}<lispusers>TMAX>TMAX-XREF.;3|)
:PREVIOUS-DATE "16-Mar-2024 07:52:25" |{WMEDLEY}<lispusers>tmax>TMAX-XREF.;6|)
(PRETTYCOMPRINT TMAX-XREFCOMS)
@@ -131,15 +131,15 @@
(imageobjprop obj 'reference.by))
stream)))
(xref.getfn
(lambda (stream copy.object) (* |fsg| "20-Aug-87 14:59")
(let ((window (|with| textobj textobj (car \\window))))
(tsp.setup.fmmenu window))
(let* ((xref.args (or copy.object (cdr (read stream))))
(xref.obj (xref (car xref.args))))
(imageobjprop xref.obj 'reference.by (or (cadr xref.args)
(XREF.GETFN
(LAMBDA (STREAM COPY.OBJECT) (* \; "Edited 16-Mar-2024 07:49 by rmk")
(* |fsg| "20-Aug-87 14:59")
(TSP.SETUP.FMMENU (\\TEDIT.PRIMARYW TEXTOBJ))
(LET* ((XREF.ARGS (OR COPY.OBJECT (CDR (READ STREAM))))
(XREF.OBJ (XREF (CAR XREF.ARGS))))
(IMAGEOBJPROP XREF.OBJ 'REFERENCE.BY (OR (CADR XREF.ARGS)
'|Value|))
xref.obj)))
XREF.OBJ)))
(xref.copyfn
(lambda (image.obj source.stream target.stream) (* |fsg| "12-Aug-87 11:07")
@@ -155,6 +155,7 @@
(XREF.BUTTONEVENTINFN
(LAMBDA (XREFOBJ STREAM SELECTION RELX RELY WINDOW HOSTSTREAM BUTTON)
(* \; "Edited 16-Mar-2024 07:55 by rmk")
(* \; "Edited 26-Dec-2023 11:56 by rmk")
(* \; "Edited 9-Nov-97 08:09 by rmk:")
(* |fsg| "29-Jul-87 16:43")
@@ -187,7 +188,7 @@
(TEDIT.NORMALIZECARET HOSTSTREAM))
(RETFROM (FUNCTION \\TEDIT.SELECT.LINE.SCANNER)
(TEDIT.GETSEL HOSTSTREAM))
ELSE (TEDIT.PROMPTPRINT STREAM "Reference has not definition!" T))
ELSE (TEDIT.PROMPTPRINT STREAM "Reference has no definition!" T))
NIL))
(|Change Reference|
(LET ((NEW.REFERENCE (GET.REF WINDOW STREAM)))
@@ -250,15 +251,14 @@
(t (concat "<Reference " (|fetch| objectdatum |of| obj)
"/" reference.by ">"))))))
(xref.get.toobj
(lambda (tag) (* |fsg| "13-Jul-87 11:13")
(* |This| |function| |is| |called| |in| \a |specific| |context| |where| \a
 |reference| |must| |be| |displayed.| i\t |is| |called| |by| |an| xref |object|
 |and| |should| |return| |the| imageobject |that| |the| xref |object| |is|
 |referencing.|)
(XREF.GET.TOOBJ
(LAMBDA (TAG) (* \; "Edited 16-Mar-2024 07:49 by rmk")
(* |fsg| "13-Jul-87 11:13")
(gethash tag (windowprop (|with| textobj textobj (car \\window))
'tsp.code.array))))
(* |;;| "This function is called in a specific context where a reference must be displayed. It is called by an XREF object and should return the IMAGEOBJECT that the XREF object is referencing.")
(GETHASH TAG (WINDOWPROP (\\TEDIT.PRIMARYW TEXTOBJ)
'TSP.CODE.ARRAY))))
(tspobj.gettype
(lambda (obj) (* |ss:| "27-Jun-87 16:36")
@@ -476,14 +476,14 @@
(FILESLOAD (COMPILED SYSLOAD)
TMAX)
(DECLARE\: DONTCOPY
(FILEMAP (NIL (3650 11069 (XREF 3660 . 4227) (XREFP 4229 . 4616) (XREF.DISPLAYFN 4618 . 5052) (
XREF.IMAGEBOXFN 5054 . 5706) (XREF.PUTFN 5708 . 5954) (XREF.GETFN 5956 . 6430) (XREF.COPYFN 6432 .
7042) (XREF.BUTTONEVENTINFN 7044 . 10042) (XREF.WHENDELETEDFN 10044 . 10618) (XREF.TEDIT-TO-TEX-FN
10620 . 11067)) (11070 13054 (XREF.GET.DISPLAY.TEXT 11080 . 12364) (XREF.GET.TOOBJ 12366 . 12903) (
TSPOBJ.GETTYPE 12905 . 13052)) (13055 19429 (UPDATE.XREFS 13065 . 15448) (INSERT.REF 15450 . 15862) (
GET.REF 15864 . 16919) (GET.REFERENCE.BY 16921 . 17908) (TSP.LIST.REFS 17910 . 18362) (TSP.GET.INCODE
18364 . 19018) (TSP.GETCODEVAL 19020 . 19242) (TSP.PUTCODE 19244 . 19427)) (19521 20492 (
XREF.ADD.DISPLAYFN 19531 . 20045) (XREF.GET.DISPLAYFN 20047 . 20490)) (20552 22914 (
NGROUP.XREF.DISPLAYFN 20562 . 21522) (NGROUP.XREF.DISPLAY.TEXT 21524 . 22160) (NOTE.XREF.DISPLAYFN
22162 . 22912)))))
(FILEMAP (NIL (3691 11273 (XREF 3701 . 4268) (XREFP 4270 . 4657) (XREF.DISPLAYFN 4659 . 5093) (
XREF.IMAGEBOXFN 5095 . 5747) (XREF.PUTFN 5749 . 5995) (XREF.GETFN 5997 . 6526) (XREF.COPYFN 6528 .
7138) (XREF.BUTTONEVENTINFN 7140 . 10246) (XREF.WHENDELETEDFN 10248 . 10822) (XREF.TEDIT-TO-TEX-FN
10824 . 11271)) (11274 13249 (XREF.GET.DISPLAY.TEXT 11284 . 12568) (XREF.GET.TOOBJ 12570 . 13098) (
TSPOBJ.GETTYPE 13100 . 13247)) (13250 19624 (UPDATE.XREFS 13260 . 15643) (INSERT.REF 15645 . 16057) (
GET.REF 16059 . 17114) (GET.REFERENCE.BY 17116 . 18103) (TSP.LIST.REFS 18105 . 18557) (TSP.GET.INCODE
18559 . 19213) (TSP.GETCODEVAL 19215 . 19437) (TSP.PUTCODE 19439 . 19622)) (19716 20687 (
XREF.ADD.DISPLAYFN 19726 . 20240) (XREF.GET.DISPLAYFN 20242 . 20685)) (20747 23109 (
NGROUP.XREF.DISPLAYFN 20757 . 21717) (NGROUP.XREF.DISPLAY.TEXT 21719 . 22355) (NOTE.XREF.DISPLAYFN
22357 . 23107)))))
STOP

BIN
lispusers/tmax/TMAX-XREF.LCOM
View File

Binary file not shown.