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

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.