github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-26 04:12:03 +00:00
Code Issues Projects Releases Wiki Activity

Rmk31 Move all TMAX* files to TMAX>TMAX* (#750)

Browse Source 
* MACHINEINDEPENDENT: better searching for foo-fie

FINDFILE-WITH-EXTENSIONS, DOFILESLOAD

* MEDLEY-UTILS, PRINTFN:  WHEREIS/PF know about foo>foo-fie

* WHERE-IS:  Just MAKEFILE-NEW to get FUNCTIONS into the filemap

* ACE does LOADCOMP itself

* MACHINEINDEPENDENT:  FINDFILE-WITH-EXTENSIONS recognized SUBDIRECTORY

* SPELLFILE:  Calls FINDFILE-WITH-EXTENSIONS at the top

So FINDFILE and FILE-NOT-FOUND will consider FOO>FOO-FIE for file FOO-FIE

* WINDOWOBJ:  Missing GETFN does WHEREIS #748

* TMAX*:  Localize IMAGEFNS

The various IMAGEFNS were defined on TMAX itself, not on the file where the functions were (esp GETFN).

Also fixed some dependencies.  With new WINDOWOBJ, TMAX.TEDIT finds its image objects.

* Move TMAX files to TMAX>

Given the WHEREIS change for GETFN and the FINDFILE-WITH-EXTENSIONS in SPELLFILE, TEDIT(TMAX.TEDIT) opens and all of its imageobjects are found and loaded from the TMAX> files.

* Push relocated files again:  (COPYFILES screwed up)

* Delete TMAX.INDEX   garbage file
This commit is contained in:
rmkaplan
2022-04-23 21:36:23 -07:00
committed by GitHub
parent f9f1038efb
commit 1eccc2e59b
37 changed files with 821 additions and 773 deletions
Download Patch File Download Diff File Expand all files Collapse all files

258
lispusers/ACE/ACE
View File

@@ -1,33 +1,28 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "16-Nov-93 14:13:50" {DSK}<king>export>lispcore>lispusers>ACE.;3 148254
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
changes to%: (VARS ACE.BITMAP.MASK ACE-EDITCOMS ACELOGOMAP)
(FNS ACE ACE.ANIMATE ACE.RUN ACEGETFRAME# ACERUNLOOP ACE.NEW.SEQUENCE
ACE.NEW.FRAME ACE.QUIT.ACE ACE.RESET.SEQ ACE.RUN.CURRENT.SEQ ACE.DELAY
ACE.DELAY.FRAME ACE.DELAY.SEQ ACE.DECREMENT.FRAME ACE.INCREMENT.FRAME
ACE.DELETE.FRAME ACE.SET.DEVICE ACE.QUICKDRAW&UPD ACE.RECONSTRUCT.FRAME
SUBLIST ACE.TRILLIUM ACE.TRILLIUM.LOOP ACE.RUN.TRILLIUM ACE.QUIT.TRILLIUM
ACE.CREATE.EDITING.BORDER ACE.GET.SEQ.FILE ACE.PUT.SEQ.FILE
ACE.GET.A.FILE.NAME ACE.ASKEM ACE.TELLEM ACE.CONFIRMIT ACE.DEFINE.SEQ.WINDOW
ACE.FIGURE.OUT.WINDOW ACE.RETURN.CLOSEST.VERTEX ACE.NEW.SEQ.ASST
ACE.DELAY.FRAME.ASST ACE.SETUP.CW.CLIPPING.REGIONS ACE.CHECKSTUFF
ACE.UPD.CONTROL.WINDOW ACE.UPD.CW.MULE ACE.UPD.CLEAR.SET.LINE
ACE.CREATE.CONTROL.MENU ACE.SEQ.FETCH.WIDTH ACE.SEQ.FETCH.HEIGHT
ACE.SET.SEQ.CLIP.REGION ACE.ASKEM2 ACE.TELLEM2 ACE.UPD.CONTROL.WINDOW2
ACE.COMPILE.FRAME ACE.EXTRACT ACESETTHRESHOLD ACE.MAX.REGIONS
ACE.PICK.BEST.REGION ACE.COMPUTE.AREA ACE.SCAN.BITMAPS ACE.SCAN.PRIMBLOCKS
ACE.FETCH.BLOCK)
(FILECREATED "16-Mar-2022 08:06:56" {DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>ACE>ACE.;2 146646
previous date%: "16-Nov-93 13:52:56" {DSK}<king>export>lispcore>lispusers>ACE.;2)
:CHANGES-TO (VARS ACECOMS ACE-MAINCOMS ACE-PRIMCOMS ACE.PIXPERWORD ACE.BITMAP.MASK ACE-EDITCOMS
)
(RECORDS ACE.FRAME ACE.BLIT)
(MACROS ACE.MT.SCRX.SEQX ACE.MT.SCRY.SEQY ACE.MT.SCRX.AWX ACE.MT.SCRY.AWY
ACE.MT.SEQ.SCR.REGION ACE.MT.SEQ.AW.REGION ACE.MT.AW.SCR.POINT
ACE.MT.AWX.SCRX ACE.MT.AWY.SCRY ACE.MT.AWX.SEQX ACE.MT.AWY.SEQY
ACE.MT.SEQX.SCRX ACE.MT.SEQY.SCRY ACE.MT.SEQX.AWX ACE.MT.SEQY.AWY
ACE.MAC.CW.INFO.CLIP ACE.MAC.CW.PROMPT.CLIP ACE.MAC.SEQ.CLIP
ACE.MAC.FETCH.WIDTH ACE.MAC.FETCH.HEIGHT)
:PREVIOUS-DATE "16-Nov-93 14:13:50"
{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>ACE>ACE.;1)
(* ; "
Copyright (c) 1988, 1993 by Michel Denber. All rights reserved.
Copyright (c) 1988, 1993 by Michel Denber.
")
(PRETTYCOMPRINT ACECOMS)
(RPAQQ ACECOMS
(RPAQQ ACECOMS
(
(* ;; "Animation Compiler and Environment")
@@ -65,63 +60,63 @@ Copyright (c) 1988, 1993 by Michel Denber. All rights reserved.
(DECLARE%: EVAL@COMPILE
(PUTPROPS ACE.MT.SCRX.SEQX MACRO ((SCREENXCOOR)
(PUTPROPS ACE.MT.SCRX.SEQX MACRO ((SCREENXCOOR)
(IDIFFERENCE [IDIFFERENCE SCREENXCOOR (DSPXOFFSET
NIL
(WINDOWPROP ACE.SEQ.WINDOW
'DSP]
ACE.SEQ.WINDOW.XOFF)))
(PUTPROPS ACE.MT.SCRY.SEQY MACRO ((SCREENYCOOR)
(PUTPROPS ACE.MT.SCRY.SEQY MACRO ((SCREENYCOOR)
(IDIFFERENCE [IDIFFERENCE SCREENYCOOR (DSPYOFFSET
NIL
(WINDOWPROP ACE.SEQ.WINDOW
'DSP]
ACE.SEQ.WINDOW.YOFF)))
[PUTPROPS ACE.MT.SCRX.AWX MACRO ((SCREENXCOOR)
(PUTPROPS ACE.MT.SCRX.AWX MACRO [(SCREENXCOOR)
(IDIFFERENCE SCREENXCOOR (DSPXOFFSET NIL (WINDOWPROP ACE.SEQ.WINDOW
'DSP]
'DSP])
[PUTPROPS ACE.MT.SCRY.AWY MACRO ((SCREENYCOOR)
(PUTPROPS ACE.MT.SCRY.AWY MACRO [(SCREENYCOOR)
(IDIFFERENCE SCREENYCOOR (DSPYOFFSET NIL (WINDOWPROP ACE.SEQ.WINDOW
'DSP]
'DSP])
(PUTPROPS ACE.MT.SEQ.SCR.REGION MACRO (NIL (CREATEREGION (ACE.MT.SEQX.SCRX 0)
(PUTPROPS ACE.MT.SEQ.SCR.REGION MACRO (NIL (CREATEREGION (ACE.MT.SEQX.SCRX 0)
(ACE.MT.SEQY.SCRY 0)
ACE.SEQ.WIDTH ACE.SEQ.HEIGHT)))
(PUTPROPS ACE.MT.SEQ.AW.REGION MACRO (NIL (CREATEREGION ACE.SEQ.WINDOW.XOFF ACE.SEQ.WINDOW.YOFF
(PUTPROPS ACE.MT.SEQ.AW.REGION MACRO (NIL (CREATEREGION ACE.SEQ.WINDOW.XOFF ACE.SEQ.WINDOW.YOFF
ACE.SEQ.WIDTH ACE.SEQ.HEIGHT)))
[PUTPROPS ACE.MT.AW.SCR.POINT MACRO ((POINT)
(PUTPROPS ACE.MT.AW.SCR.POINT MACRO [(POINT)
(CONS (ACE.MT.AWX.SCRX (CAR POINT))
(ACE.MT.AWY.SCRY (CDR POINT]
(ACE.MT.AWY.SCRY (CDR POINT])
[PUTPROPS ACE.MT.AWX.SCRX MACRO ((WINDOWXCOOR)
(PUTPROPS ACE.MT.AWX.SCRX MACRO [(WINDOWXCOOR)
(IPLUS WINDOWXCOOR (DSPXOFFSET NIL (WINDOWPROP ACE.SEQ.WINDOW
'DSP]
'DSP])
[PUTPROPS ACE.MT.AWY.SCRY MACRO ((WINDOWYCOOR)
(PUTPROPS ACE.MT.AWY.SCRY MACRO [(WINDOWYCOOR)
(IPLUS WINDOWYCOOR (DSPYOFFSET NIL (WINDOWPROP ACE.SEQ.WINDOW
'DSP]
'DSP])
(PUTPROPS ACE.MT.AWX.SEQX MACRO ((WINDOWX)
(PUTPROPS ACE.MT.AWX.SEQX MACRO ((WINDOWX)
(IDIFFERENCE WINDOWX ACE.SEQ.WINDOW.XOFF)))
(PUTPROPS ACE.MT.AWY.SEQY MACRO ((WINDOWY)
(PUTPROPS ACE.MT.AWY.SEQY MACRO ((WINDOWY)
(IDIFFERENCE WINDOWY ACE.SEQ.WINDOW.YOFF)))
[PUTPROPS ACE.MT.SEQX.SCRX MACRO ((SEQXCOOR)
(IPLUS ACE.SEQ.WINDOW.XOFF (ACE.MT.AWX.SCRX SEQXCOOR]
(PUTPROPS ACE.MT.SEQX.SCRX MACRO ((SEQXCOOR)
(IPLUS ACE.SEQ.WINDOW.XOFF (ACE.MT.AWX.SCRX SEQXCOOR))))
[PUTPROPS ACE.MT.SEQY.SCRY MACRO ((SEQYCOOR)
(IPLUS ACE.SEQ.WINDOW.YOFF (ACE.MT.AWY.SCRY SEQYCOOR]
(PUTPROPS ACE.MT.SEQY.SCRY MACRO ((SEQYCOOR)
(IPLUS ACE.SEQ.WINDOW.YOFF (ACE.MT.AWY.SCRY SEQYCOOR))))
(PUTPROPS ACE.MT.SEQX.AWX MACRO ((SEQXCOOR)
(PUTPROPS ACE.MT.SEQX.AWX MACRO ((SEQXCOOR)
(IPLUS SEQXCOOR ACE.SEQ.WINDOW.XOFF)))
(PUTPROPS ACE.MT.SEQY.AWY MACRO ((SEQYCOOR)
(PUTPROPS ACE.MT.SEQY.AWY MACRO ((SEQYCOOR)
(IPLUS SEQYCOOR ACE.SEQ.WINDOW.YOFF)))
)
)
@@ -131,7 +126,7 @@ Copyright (c) 1988, 1993 by Michel Denber. All rights reserved.
(* ;; "ANIMATION FILES")
(RPAQQ ACE-MAINCOMS
(RPAQQ ACE-MAINCOMS
[(* MAIN TOP LEVEL STUFF)
(FNS ACE ACE.ANIMATE ACE.RUN ACEGETFRAME# ACERUNLOOP ACE.NEW.SEQUENCE ACE.NEW.FRAME
ACE.QUIT.ACE ACE.RESET.SEQ ACE.RUN.CURRENT.SEQ ACE.DELAY ACE.DELAY.FRAME ACE.DELAY.SEQ
@@ -1293,17 +1288,16 @@ Copyright (c) 1988, 1993 by Michel Denber. All rights reserved.
(DECLARE%: EVAL@COMPILE
(PUTPROPS ACE.MAC.CW.INFO.CLIP MACRO ((FORM)
(PUTPROPS ACE.MAC.CW.INFO.CLIP MACRO ((FORM)
(RESETLST
[RESETSAVE (PROGN (DSPCLIPPINGREGION (WINDOWPROP
ACE.CONTROL.WINDOW
'INFO.CLIP.REGION)
ACE.CONTROL.WINDOW)
(DSPLEFTMARGIN (fetch (REGION LEFT)
of
(WINDOWPROP
ACE.CONTROL.WINDOW
'INFO.CLIP.REGION))
of (WINDOWPROP
ACE.CONTROL.WINDOW
'INFO.CLIP.REGION))
ACE.CONTROL.WINDOW))
'(PROGN (DSPCLIPPINGREGION (WINDOWPROP
ACE.CONTROL.WINDOW
@@ -1314,36 +1308,29 @@ Copyright (c) 1988, 1993 by Michel Denber. All rights reserved.
ACE.CONTROL.WINDOW)
(DSPLEFTMARGIN (fetch (REGION LEFT)
of (WINDOWPROP
ACE.CONTROL.WINDOW
'
NORMAL.CLIP.REGION
))
ACE.CONTROL.WINDOW
'NORMAL.CLIP.REGION))
ACE.CONTROL.WINDOW]
FORM)))
(PUTPROPS ACE.MAC.CW.PROMPT.CLIP MACRO
((FORM)
(RESETLST
[RESETSAVE (PROGN (DSPCLIPPINGREGION (WINDOWPROP ACE.CONTROL.WINDOW 'PROMPT.CLIP.REGION)
(PUTPROPS ACE.MAC.CW.PROMPT.CLIP MACRO
((FORM)
(RESETLST
[RESETSAVE (PROGN (DSPCLIPPINGREGION (WINDOWPROP ACE.CONTROL.WINDOW
'PROMPT.CLIP.REGION)
ACE.CONTROL.WINDOW)
(DSPLEFTMARGIN (fetch (REGION LEFT) of (WINDOWPROP
ACE.CONTROL.WINDOW
'PROMPT.CLIP.REGION))
ACE.CONTROL.WINDOW))
'(PROGN (DSPCLIPPINGREGION (WINDOWPROP ACE.CONTROL.WINDOW 'NORMAL.CLIP.REGION)
ACE.CONTROL.WINDOW)
(DSPLEFTMARGIN (fetch (REGION LEFT) of (WINDOWPROP
ACE.CONTROL.WINDOW
'
PROMPT.CLIP.REGION
))
ACE.CONTROL.WINDOW))
'(PROGN (DSPCLIPPINGREGION (WINDOWPROP ACE.CONTROL.WINDOW 'NORMAL.CLIP.REGION)
ACE.CONTROL.WINDOW)
(DSPLEFTMARGIN (fetch (REGION LEFT) of (WINDOWPROP
ACE.CONTROL.WINDOW
'NORMAL.CLIP.REGION)
)
ACE.CONTROL.WINDOW]
FORM)))
(DSPLEFTMARGIN (fetch (REGION LEFT) of (WINDOWPROP ACE.CONTROL.WINDOW
'NORMAL.CLIP.REGION))
ACE.CONTROL.WINDOW]
FORM)))
[PUTPROPS ACE.MAC.SEQ.CLIP MACRO ((FORM)
(PUTPROPS ACE.MAC.SEQ.CLIP MACRO ((FORM)
(COND
((WINDOWPROP ACE.CONTROL.WINDOW 'SEQUENCE.CLIPPING.REGION)
(RESETLST
@@ -1358,22 +1345,19 @@ Copyright (c) 1988, 1993 by Michel Denber. All rights reserved.
ACE.SEQ.WINDOW)
ACE.SEQ.WINDOW))
FORM))
(T FORM]
(T FORM))))
)
(DECLARE%: EVAL@COMPILE
[PUTPROPS ACE.MAC.FETCH.WIDTH MACRO (NIL (fetch (BITMAP BITMAPWIDTH)
(PUTPROPS ACE.MAC.FETCH.WIDTH MACRO [NIL (fetch (BITMAP BITMAPWIDTH)
of (fetch (ACE.BLIT BITMAP)
of (CAR (fetch (ACE.FRAME BLITS)
of (CAR ACE.CURRENT.SEQUENCE
]
of (CAR (fetch (ACE.FRAME BLITS)
of (CAR ACE.CURRENT.SEQUENCE])
[PUTPROPS ACE.MAC.FETCH.HEIGHT MACRO (NIL (fetch (BITMAP BITMAPHEIGHT)
(PUTPROPS ACE.MAC.FETCH.HEIGHT MACRO [NIL (fetch (BITMAP BITMAPHEIGHT)
of (fetch (ACE.BLIT BITMAP)
of (CAR (fetch (ACE.FRAME BLITS)
of (CAR
ACE.CURRENT.SEQUENCE
]
of (CAR (fetch (ACE.FRAME BLITS)
of (CAR ACE.CURRENT.SEQUENCE])
)
(RPAQ ACE.LEFTMOUSE.CURSOR (CURSORCREATE (QUOTE #*(16 16)GOOLD@@DELIDELIDELIDELIDELIDELIDELIDD@@DD@@DD@@DD@@DD@@DD@@DGOOL
) (QUOTE NIL) 8 8))
@@ -1417,14 +1401,15 @@ Copyright (c) 1988, 1993 by Michel Denber. All rights reserved.
(ADDTOVAR LAMA )
)
(RPAQQ ACE-PRIMCOMS ((* COMPILER STUFF)
(VARS ACE.PIXPERWORD ACE.BITMAP.MASK)
(* LOW LEVEL COMPILER FNS)
(FNS ACE.COMPILE.FRAME ACE.EXTRACT ACESETTHRESHOLD)
(* REGION MAXING ROUTINES)
(FNS ACE.MAX.REGIONS ACE.PICK.BEST.REGION ACE.COMPUTE.AREA)
(* LOW LEVEL BITMAP COMPARISON)
(FNS ACE.SCAN.BITMAPS ACE.SCAN.PRIMBLOCKS ACE.FETCH.BLOCK)))
(RPAQQ ACE-PRIMCOMS
((* COMPILER STUFF)
(VARS ACE.PIXPERWORD ACE.BITMAP.MASK)
(* LOW LEVEL COMPILER FNS)
(FNS ACE.COMPILE.FRAME ACE.EXTRACT ACESETTHRESHOLD)
(* REGION MAXING ROUTINES)
(FNS ACE.MAX.REGIONS ACE.PICK.BEST.REGION ACE.COMPUTE.AREA)
(* LOW LEVEL BITMAP COMPARISON)
(FNS ACE.SCAN.BITMAPS ACE.SCAN.PRIMBLOCKS ACE.FETCH.BLOCK)))
@@ -1687,10 +1672,8 @@ Copyright (c) 1988, 1993 by Michel Denber. All rights reserved.
WORDOFFSET])
)
(RPAQQ ACE-EDITCOMS
[(FILES (LOADCOMP)
ACE)
(* TOP LEVEL EDITING STUFF)
(RPAQQ ACE-EDITCOMS
[(* TOP LEVEL EDITING STUFF)
(FNS ACE.EDIT ACE.EDIT.FRAME ACE.EDIT.SETUP.EDIT.MENU ACEGETREGIONFACTOR ACEROTATEREGION
ACESCALEREGION)
(* LINEART FNS)
@@ -1715,9 +1698,6 @@ Copyright (c) 1988, 1993 by Michel Denber. All rights reserved.
ACE.EDIT.TEXT.FACE.MENU ACE.EDIT.TEXTURE.MENU ACE.EDIT.PUTDOWN.MENU)
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (ACE.EDIT.CLEAR.ALL.MENUS])
(FILESLOAD (LOADCOMP)
ACE)
(* TOP LEVEL EDITING STUFF)
@@ -1822,13 +1802,13 @@ Copyright (c) 1988, 1993 by Michel Denber. All rights reserved.
(SETQ WINDOW ACE.SEQ.WINDOW)
(SETQ WINDOW (\INSUREWINDOW WINDOW))
(RESETLST
(RESETSAVE NIL (LIST 'CURSOR (CURSOR)))
(RESETSAVE NIL (LIST 'CURSOR (CURSOR)))
(PROG (DS HOTX HOTY)
(TOTOPW WINDOW) (* look for a previously stored
 brush.)
 brush.)
[COND
((SETQ BRUSH (WINDOWPROP WINDOW 'PAINTBRUSH))
(SETQ PAINTCOMMANDMODE (CAR BRUSH))
((SETQ BRUSH (WINDOWPROP WINDOW 'PAINTBRUSH))
(SETQ PAINTCOMMANDMODE (CAR BRUSH))
(SETQ PAINTCOMMANDSHADE (CADR BRUSH))
(SETQ PAINTCOMMANDBRUSH (CADDR BRUSH]
(SETQ DS (WINDOWPROP WINDOW 'DSP))
@@ -1854,40 +1834,40 @@ Copyright (c) 1988, 1993 by Michel Denber. All rights reserved.
[CURSORHOTSPOT (create POSITION
XCOORD _ (SETQ HOTX (IDIFFERENCE (IMIN (fetch
BITMAPWIDTH
of BRUSH)
16)
2))
YCOORD _ (SETQ HOTY (IDIFFERENCE (IMIN (fetch
BITMAPHEIGHT
of BRUSH)
16)
2]
PAINTLP
(ACE.GET.DEVICE.STATE&CURSOR)
[COND
((KEYDOWNP 'RSHIFT)
(RETURN))
((OR (LASTMOUSESTATE RIGHT)
(KEYDOWNP 'LSHIFT))
(COND
((OR (INSIDE? (DSPCLIPPINGREGION NIL DS)
(LASTMOUSEX DS)
(LASTMOUSEY DS))
(NOT (WHICHW LASTMOUSEX LASTMOUSEY)))
(* inside the interior, give command
 menu)
(SELECTQ [MENU (COND
((type? MENU PAINTCOMMANDMENU)
PAINTCOMMANDMENU)
(T (SETQ PAINTCOMMANDMENU
(create MENU
ITEMS _ '((HardCopy 'HARDCOPY
"Makes a press file of the window and prints it"
)
(SetMode 'MODE
"Allows specification of how new bits are merged"
)
(SetShade 'SHADE
"Allows specification of new shade."
)
of BRUSH)
16)
2))
YCOORD _ (SETQ HOTY (IDIFFERENCE (IMIN (fetch
BITMAPHEIGHT
of BRUSH)
16)
2]
PAINTLP
(ACE.GET.DEVICE.STATE&CURSOR)
[COND
((KEYDOWNP 'RSHIFT)
(RETURN))
((OR (LASTMOUSESTATE RIGHT)
(KEYDOWNP 'LSHIFT))
(COND
((OR (INSIDE? (DSPCLIPPINGREGION NIL DS)
(LASTMOUSEX DS)
(LASTMOUSEY DS))
(NOT (WHICHW LASTMOUSEX LASTMOUSEY)))
(* inside the interior, give command
 menu)
(SELECTQ [MENU (COND
((type? MENU PAINTCOMMANDMENU)
PAINTCOMMANDMENU)
(T (SETQ PAINTCOMMANDMENU
(create MENU
ITEMS _ '((HardCopy 'HARDCOPY
"Makes a press file of the window and prints it"
)
(SetMode 'MODE
"Allows specification of how new bits are merged"
)
(SetShade 'SHADE
"Allows specification of new shade."
)
(SetShape 'SHAPE

BIN
lispusers/ACE/ACE.LCOM
View File

Binary file not shown.

BIN
lispusers/TMAX-ENDNOTE.LCOM
View File

Binary file not shown.

BIN
lispusers/TMAX-NUMBER.LCOM
View File

Binary file not shown.

BIN
lispusers/TMAX-XREF.LCOM
View File

Binary file not shown.

BIN
lispusers/TMAX.INDEX
View File

Binary file not shown.

128
lispusers/TMAX → lispusers/TMAX/TMAX
View File

@@ -1,13 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "24-Oct-2021 23:45:20" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX.;4 31402
(FILECREATED "17-Mar-2022 23:12:47" {DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX.;3 25981
changes to%: (VARS TMAXCOMS)
(FNS GET.TSP.FONT.FAMILY)
:CHANGES-TO (VARS TMAXCOMS)
previous date%: "24-Oct-2021 22:06:32"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX.;2)
:PREVIOUS-DATE "24-Oct-2021 23:45:20"
{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX.;2)
(* ; "
@@ -18,9 +16,9 @@ Copyright (c) 1987, 1997, 1999 by Stanford University.
(RPAQQ TMAXCOMS
( (* ;
 "Developed under support from NIH grant RR-00785.")
 "Developed under support from NIH grant RR-00785.")
(* ;
 "Written by Frank Gilmurray and Sami Shaio.")
 "Written by Frank Gilmurray and Sami Shaio.")
(FILES (COMPILED SYSLOAD)
TEDIT FREEMENU)
(VARS TMAX.FILE.LIST)
@@ -59,18 +57,8 @@ Copyright (c) 1987, 1997, 1999 by Stanford University.
(FNS TSP.LIST.OF.OBJECTS)
(GLOBALVARS GP.DefaultFont GP.DefaultShade)
(MACROS MAKE.DATEOBJ.IMAGEFNS MAKE.NUMBEROBJ.IMAGEFNS MAKE.REGMARKOBJ.IMAGEFNS
MAKE.XREFOBJ.IMAGEFNS)
(VARS (GP.DefaultFont (FONTCREATE 'TERMINAL 10))
(GP.DefaultShade 1024)
(\NUMBEROBJ.IMAGEFNS (MAKE.NUMBEROBJ.IMAGEFNS))
(\DATEOBJ.IMAGEFNS (MAKE.DATEOBJ.IMAGEFNS))
(\REGMARKOBJ.IMAGEFNS (MAKE.REGMARKOBJ.IMAGEFNS))
(\XREFOBJ.IMAGEFNS (MAKE.XREFOBJ.IMAGEFNS)))
(ADDVARS (IMAGEOBJGETFNS (DATE.GETFN)
(NUMBER.GETFN)
(REGMARK.GETFN)
(XREF.GETFN)))
(GP.DefaultShade 1024))
(P [TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENU '(TMAX% Menu (FUNCTION TSP.DISPLAY.FMMENU)
NIL
(SUBITEMS (Update [FUNCTION
@@ -106,7 +94,7 @@ Copyright (c) 1987, 1997, 1999 by Stanford University.
TEDIT FREEMENU)
(RPAQQ TMAX.FILE.LIST (TMAX-DATE TMAX-ENDNOTE TMAX-INDEX TMAX-NUMBER TMAX-NGRAPH TMAX-NGROUP
TMAX-XREF))
TMAX-XREF))
(DECLARE%: DONTCOPY
(DOFILESLOAD (LIST* '(SOURCE)
@@ -552,92 +540,16 @@ Copyright (c) 1987, 1997, 1999 by Stanford University.
(GLOBALVARS GP.DefaultFont GP.DefaultShade)
)
(DECLARE%: EVAL@COMPILE
(PUTPROPS MAKE.DATEOBJ.IMAGEFNS MACRO [LAMBDA NIL
(IMAGEFNSCREATE (FUNCTION DATE.DISPLAYFN)
(FUNCTION DATE.IMAGEBOXFN)
(FUNCTION DATE.PUTFN)
(FUNCTION DATE.GETFN)
(FUNCTION DATE.COPYFN)
(FUNCTION DATE.BUTTONEVENTINFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL])
(PUTPROPS MAKE.NUMBEROBJ.IMAGEFNS MACRO [LAMBDA NIL
(IMAGEFNSCREATE (FUNCTION NUMBER.DISPLAYFN)
(FUNCTION NUMBER.IMAGEBOXFN)
(FUNCTION NUMBER.PUTFN)
(FUNCTION NUMBER.GETFN)
(FUNCTION NUMBER.COPYFN)
(FUNCTION NUMBER.BUTTONEVENTINFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION XREF.WHENDELETEDFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NUMBER.PREPRINTFN])
(PUTPROPS MAKE.REGMARKOBJ.IMAGEFNS MACRO [LAMBDA NIL
(IMAGEFNSCREATE (FUNCTION REGMARK.DISPLAYFN)
(FUNCTION REGMARK.IMAGEBOXFN)
(FUNCTION REGMARK.PUTFN)
(FUNCTION REGMARK.GETFN)
(FUNCTION REGMARK.COPYFN)
(FUNCTION REGMARK.BUTTONEVENTINFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL])
(PUTPROPS MAKE.XREFOBJ.IMAGEFNS MACRO [LAMBDA NIL
(IMAGEFNSCREATE (FUNCTION XREF.DISPLAYFN)
(FUNCTION XREF.IMAGEBOXFN)
(FUNCTION XREF.PUTFN)
(FUNCTION XREF.GETFN)
(FUNCTION XREF.COPYFN)
(FUNCTION XREF.BUTTONEVENTINFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION XREF.GET.DISPLAY.TEXT])
)
(RPAQ GP.DefaultFont (FONTCREATE 'TERMINAL 10))
(RPAQQ GP.DefaultShade 1024)
(RPAQ \NUMBEROBJ.IMAGEFNS (MAKE.NUMBEROBJ.IMAGEFNS))
(RPAQ \DATEOBJ.IMAGEFNS (MAKE.DATEOBJ.IMAGEFNS))
(RPAQ \REGMARKOBJ.IMAGEFNS (MAKE.REGMARKOBJ.IMAGEFNS))
(RPAQ \XREFOBJ.IMAGEFNS (MAKE.XREFOBJ.IMAGEFNS))
(ADDTOVAR IMAGEOBJGETFNS (DATE.GETFN)
(NUMBER.GETFN)
(REGMARK.GETFN)
(XREF.GETFN))
[TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENU '(TMAX% Menu (FUNCTION TSP.DISPLAY.FMMENU)
NIL
(SUBITEMS (Update [FUNCTION (LAMBDA (TEXTSTREAM)
(UPDATE.ALL
TEXTSTREAM
(\TEDIT.MAINW
(UPDATE.ALL TEXTSTREAM
(\TEDIT.MAINW
TEXTSTREAM]
"Updates all cross-references")
(NGroup% Menu [FUNCTION (LAMBDA (TEXTSTREAM)
@@ -650,14 +562,14 @@ Copyright (c) 1987, 1997, 1999 by Stanford University.
(TSP.FUNCTION.HOOKS)
(PUTPROPS TMAX COPYRIGHT ("Stanford University" 1987 1997 1999))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (8815 16030 (TSP.DISPLAY.FMMENU 8825 . 9390) (TSP.SETUP.FILENAMES 9392 . 10643) (
TSP.SETUP.FMMENU 10645 . 11105) (TSP.FMMENU 11107 . 12293) (TSP.FM.APPLY 12295 . 12614) (UPDATE.ALL
12616 . 13288) (DOWNDATE.ALL 13290 . 13660) (TSP.FUNCTION.HOOKS 13662 . 15092) (TSP.GETFN 15094 .
15654) (TSP.PUTFN 15656 . 16028)) (16076 18325 (AutoUpdate.TOGGLE 16086 . 16322) (UPDATE? 16324 .
16469) (NGROUP.Menu.TOGGLE 16471 . 16853) (NGROUPMENU.ENABLED? 16855 . 17091) (
NGROUP.Text-Before.TOGGLE 17093 . 17343) (TEXTBEFORE.ENABLED? 17345 . 17508) (NGROUP.Text-After.TOGGLE
17510 . 17758) (TEXTAFTER.ENABLED? 17760 . 17921) (Manual.Index.TOGGLE 17923 . 18162) (
MANUALINDEX.ENABLED? 18164 . 18323)) (18359 23832 (GET.TSP.FONT 18369 . 19533) (GET.TSP.FONT.FAMILY
19535 . 20383) (GET.TSP.FONT.SIZE 20385 . 20873) (GET.TSP.FONT.FACE 20875 . 21574) (ABBREVIATE.FONT
21576 . 23076) (TMAX.SHADEOBJ 23078 . 23830)) (23872 25088 (TSP.LIST.OF.OBJECTS 23882 . 25086)))))
(FILEMAP (NIL (8231 15446 (TSP.DISPLAY.FMMENU 8241 . 8806) (TSP.SETUP.FILENAMES 8808 . 10059) (
TSP.SETUP.FMMENU 10061 . 10521) (TSP.FMMENU 10523 . 11709) (TSP.FM.APPLY 11711 . 12030) (UPDATE.ALL
12032 . 12704) (DOWNDATE.ALL 12706 . 13076) (TSP.FUNCTION.HOOKS 13078 . 14508) (TSP.GETFN 14510 .
15070) (TSP.PUTFN 15072 . 15444)) (15492 17741 (AutoUpdate.TOGGLE 15502 . 15738) (UPDATE? 15740 .
15885) (NGROUP.Menu.TOGGLE 15887 . 16269) (NGROUPMENU.ENABLED? 16271 . 16507) (
NGROUP.Text-Before.TOGGLE 16509 . 16759) (TEXTBEFORE.ENABLED? 16761 . 16924) (NGROUP.Text-After.TOGGLE
16926 . 17174) (TEXTAFTER.ENABLED? 17176 . 17337) (Manual.Index.TOGGLE 17339 . 17578) (
MANUALINDEX.ENABLED? 17580 . 17739)) (17775 23248 (GET.TSP.FONT 17785 . 18949) (GET.TSP.FONT.FAMILY
18951 . 19799) (GET.TSP.FONT.SIZE 19801 . 20289) (GET.TSP.FONT.FACE 20291 . 20990) (ABBREVIATE.FONT
20992 . 22492) (TMAX.SHADEOBJ 22494 . 23246)) (23288 24504 (TSP.LIST.OF.OBJECTS 23298 . 24502)))))
STOP

49
lispusers/TMAX-DATE → lispusers/TMAX/TMAX-DATE
View File

@@ -1,13 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "24-Oct-2021 13:52:22" 
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-DATE.;4| 14231
(FILECREATED "17-Mar-2022 23:03:32" 
|{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX-DATE.;3| 14993
|changes| |to:| (FNS FINDMONTH FINDTIME FINDHOUR AMPM CHANGE.DATE.FORMAT FINDYEAR)
(VARS TMAX-DATECOMS)
:CHANGES-TO (VARS TMAX-DATECOMS)
(FNS MAKE.DATEOBJ.IMAGEFNS)
|previous| |date:| "12-Mar-88 15:42:46"
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-DATE.;1|)
:PREVIOUS-DATE "24-Oct-2021 13:52:22"
|{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX-DATE.;2|)
; Copyright (c) 1987-1988 by Xerox Corporation.
@@ -35,6 +35,9 @@
(FNS FINDTIME FINDHOUR AMPM FINDDAY NUMP FINDMONTH FINDYEAR)
(VARS DATE.FORMAT.ITEMS)
(FNS MAKE.DATEOBJ.IMAGEFNS)
(INITVARS (\\DATEOBJ.IMAGEFNS (MAKE.DATEOBJ.IMAGEFNS)))
(ADDVARS (IMAGEOBJGETFNS (DATE.GETFN)))
(DECLARE\: DOEVAL@COMPILE DONTCOPY (RECORDS DATERECORD))))
@@ -321,6 +324,28 @@
(|Military Time| '(T E)
"Insert current time as \"16:30\"")
(|Update| T "Convert to current date/time")))
(DEFINEQ
(MAKE.DATEOBJ.IMAGEFNS
(LAMBDA NIL (* \; "Edited 17-Mar-2022 23:03 by rmk")
(IMAGEFNSCREATE (FUNCTION DATE.DISPLAYFN)
(FUNCTION DATE.IMAGEBOXFN)
(FUNCTION DATE.PUTFN)
(FUNCTION DATE.GETFN)
(FUNCTION DATE.COPYFN)
(FUNCTION DATE.BUTTONEVENTINFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL))))
)
(RPAQ? \\DATEOBJ.IMAGEFNS (MAKE.DATEOBJ.IMAGEFNS))
(ADDTOVAR IMAGEOBJGETFNS (DATE.GETFN))
(DECLARE\: DOEVAL@COMPILE DONTCOPY
(DECLARE\: EVAL@COMPILE
@@ -329,10 +354,10 @@
)
(PUTPROPS TMAX-DATE COPYRIGHT ("Xerox Corporation" 1987 1988))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (1422 6156 (DATEOBJ 1432 . 2199) (DATEOBJP 2201 . 2635) (DATE.DISPLAYFN 2637 . 2959) (
DATE.IMAGEBOXFN 2961 . 3588) (DATE.PUTFN 3590 . 3788) (DATE.GETFN 3790 . 4084) (DATE.COPYFN 4086 .
4618) (DATE.BUTTONEVENTINFN 4620 . 6154)) (6200 8853 (CURRENT.DISPLAY.FONT 6210 . 6916) (
CHANGE.DATE.FORMAT 6918 . 8851)) (8906 13305 (FINDTIME 8916 . 10695) (FINDHOUR 10697 . 11058) (AMPM
11060 . 11359) (FINDDAY 11361 . 11632) (NUMP 11634 . 11863) (FINDMONTH 11865 . 12981) (FINDYEAR 12983
. 13303)))))
(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)))))
STOP

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

Binary file not shown.

123
lispusers/TMAX-ENDNOTE → lispusers/TMAX/TMAX-ENDNOTE
View File

@@ -1,40 +1,56 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(filecreated "30-Dec-87 11:38:37" |{POGO:AISNORTH:XEROX}<CUTTING>TMAX>TMAX-ENDNOTE.;2| 22100
|previous| |date:| "11-Nov-87 11:49:07" |{POGO:AISNORTH:XEROX}<CUTTING>TMAX>TMAX-ENDNOTE.;1|)
(FILECREATED "18-Mar-2022 07:12:34" 
|{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX-ENDNOTE.;4| 23444
:CHANGES-TO (VARS TMAX-ENDNOTECOMS)
:PREVIOUS-DATE "17-Mar-2022 23:10:26"
|{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX-ENDNOTE.;2|)
; Copyright (c) 1987 by Xerox Corporation. All rights reserved.
; Copyright (c) 1987 by Xerox Corporation.
(prettycomprint tmax-endnotecoms)
(PRETTYCOMPRINT TMAX-ENDNOTECOMS)
(rpaqq tmax-endnotecoms ((* |Developed| |under| |support| |from| nih |grant| rr-00785.)
(* |Written| |by| |Frank| |Gilmurray| |and| |Sami| |Shaio.|)
(fns add.endnote insert.endnotes insert.endnotes.text delete.endnotes
notesregionp set.endnote.style map.endnote.looks get.endnote.fonts)
(fns endnotep note.putfn note.getfn note.buttoneventinfn note.whenselectedfn
)
(vars endnote.notag.items endnote.tag.items)
(records endnotefonts)
(* * |Allow| |user| |to| |edit| |Endnote| |text| |in| |another| |TEdit|
|window.|)
(fns aux.tedit aux.tedit.afterquitfn aux.tedit.titlemenufn)
(* * |Delimit| |text| |between| |two| |markers| |known| |as| region markers.
)
(fns regmarkobj regmarkobjp regmark.displayfn regmark.imageboxfn
regmark.putfn regmark.getfn regmark.copyfn regmark.buttoneventinfn)
(records regmarkobj)))
(RPAQQ TMAX-ENDNOTECOMS
((* |Developed| |under| |support| |from| NIH |grant| RR-00785.)
(* |Written| |by| |Frank| |Gilmurray| |and| |Sami| |Shaio.|)
(FNS ADD.ENDNOTE INSERT.ENDNOTES INSERT.ENDNOTES.TEXT DELETE.ENDNOTES NOTESREGIONP
SET.ENDNOTE.STYLE MAP.ENDNOTE.LOOKS GET.ENDNOTE.FONTS)
(FNS ENDNOTEP NOTE.PUTFN NOTE.GETFN NOTE.BUTTONEVENTINFN NOTE.WHENSELECTEDFN)
(VARS ENDNOTE.NOTAG.ITEMS ENDNOTE.TAG.ITEMS)
(DECLARE\: EVAL@COMPILE DONTCOPY (RECORDS ENDNOTEFONTS))
(* * |Allow| |user| |to| |edit| |Endnote| |text| |in| |another| |TEdit| |window.|)
(FNS AUX.TEDIT AUX.TEDIT.AFTERQUITFN AUX.TEDIT.TITLEMENUFN)
(* * |Delimit| |text| |between| |two| |markers| |known| |as| REGION MARKERS.)
(FNS REGMARKOBJ REGMARKOBJP REGMARK.DISPLAYFN REGMARK.IMAGEBOXFN REGMARK.PUTFN REGMARK.GETFN
REGMARK.COPYFN REGMARK.BUTTONEVENTINFN)
(INITVARS (\\REGMARKOBJ.IMAGEFNS (IMAGEFNSCREATE (FUNCTION REGMARK.DISPLAYFN)
(FUNCTION REGMARK.IMAGEBOXFN)
(FUNCTION REGMARK.PUTFN)
(FUNCTION REGMARK.GETFN)
(FUNCTION REGMARK.COPYFN)
(FUNCTION REGMARK.BUTTONEVENTINFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL))))
(DECLARE\: EVAL@COMPILE DONTCOPY (RECORDS REGMARKOBJ))))
(* |Developed| |under| |support| |from| nih |grant| rr-00785.)
(* |Developed| |under| |support| |from| NIH |grant| RR-00785.)
(* |Written| |by| |Frank| |Gilmurray| |and| |Sami| |Shaio.|)
(defineq
(DEFINEQ
(add.endnote
(lambda (stream window) (* |fsg| "13-Jul-87 10:44")
@@ -192,7 +208,7 @@
text.font _ |GP.DefaultFont|))
(windowprop window 'endnote.fonts)))))
)
(defineq
(DEFINEQ
(endnotep
(lambda (imobj) (* |ss:| "27-Jun-87 15:23")
@@ -269,20 +285,22 @@
nil)))
)
(rpaqq endnote.notag.items ((|Edit Text| |Edit Text| "Edit the text associated with this EndNote.")
(RPAQQ ENDNOTE.NOTAG.ITEMS ((|Edit Text| |Edit Text| "Edit the text associated with this EndNote.")
(|Define Tag| |Define Tag| "Define a TAG for this EndNote.")))
(rpaqq endnote.tag.items ((|Edit Text| |Edit Text| "Edit the text associated with this EndNote.")
(RPAQQ ENDNOTE.TAG.ITEMS ((|Edit Text| |Edit Text| "Edit the text associated with this EndNote.")
(|Change Tag| |Change Tag| "Change this EndNote's TAG.")
(|Delete Tag| |Delete Tag| "Delete this EndNote's TAG.")
(|Show Tag| |Show Tag| "Show this EndNote's TAG.")))
(declare\: eval@compile
(DECLARE\: EVAL@COMPILE DONTCOPY
(DECLARE\: EVAL@COMPILE
(record endnotefonts (number.font title.font text.font))
(RECORD ENDNOTEFONTS (NUMBER.FONT TITLE.FONT TEXT.FONT))
)
)
(* * |Allow| |user| |to| |edit| |Endnote| |text| |in| |another| |TEdit| |window.|)
(defineq
(DEFINEQ
(aux.tedit
(lambda (imobj title stream) (* |ss:| "27-Jun-87 15:22")
@@ -327,9 +345,9 @@
nil)
(tedit.quit (textstream auxwindow)))))))
)
(* * |Delimit| |text| |between| |two| |markers| |known| |as| region markers.)
(* * |Delimit| |text| |between| |two| |markers| |known| |as| REGION MARKERS.)
(defineq
(DEFINEQ
(regmarkobj
(lambda (use marking) (* |fsg| "10-Jul-87 15:58")
@@ -404,19 +422,36 @@
(t "")))
t)))))
)
(declare\: eval@compile
(record regmarkobj (region.use marking))
(RPAQ? \\REGMARKOBJ.IMAGEFNS
(IMAGEFNSCREATE (FUNCTION REGMARK.DISPLAYFN)
(FUNCTION REGMARK.IMAGEBOXFN)
(FUNCTION REGMARK.PUTFN)
(FUNCTION REGMARK.GETFN)
(FUNCTION REGMARK.COPYFN)
(FUNCTION REGMARK.BUTTONEVENTINFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)))
(DECLARE\: EVAL@COMPILE DONTCOPY
(DECLARE\: EVAL@COMPILE
(RECORD REGMARKOBJ (REGION.USE MARKING))
)
(putprops tmax-endnote copyright ("Xerox Corporation" 1987))
(declare\: dontcopy
(filemap (nil (1726 11353 (add.endnote 1736 . 2404) (insert.endnotes 2406 . 4609) (
insert.endnotes.text 4611 . 6040) (delete.endnotes 6042 . 7033) (notesregionp 7035 . 7297) (
set.endnote.style 7299 . 9972) (map.endnote.looks 9974 . 10741) (get.endnote.fonts 10743 . 11351)) (
11354 15269 (endnotep 11364 . 11705) (note.putfn 11707 . 12359) (note.getfn 12361 . 12941) (
note.buttoneventinfn 12943 . 13723) (note.whenselectedfn 13725 . 15267)) (15991 18395 (aux.tedit 16001
. 16963) (aux.tedit.afterquitfn 16965 . 17408) (aux.tedit.titlemenufn 17410 . 18393)) (18480 21944 (
regmarkobj 18490 . 18897) (regmarkobjp 18899 . 19093) (regmark.displayfn 19095 . 19341) (
regmark.imageboxfn 19343 . 19694) (regmark.putfn 19696 . 20028) (regmark.getfn 20030 . 20329) (
regmark.copyfn 20331 . 20869) (regmark.buttoneventinfn 20871 . 21942)))))
stop
)
(PUTPROPS TMAX-ENDNOTE COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (2489 12116 (ADD.ENDNOTE 2499 . 3167) (INSERT.ENDNOTES 3169 . 5372) (
INSERT.ENDNOTES.TEXT 5374 . 6803) (DELETE.ENDNOTES 6805 . 7796) (NOTESREGIONP 7798 . 8060) (
SET.ENDNOTE.STYLE 8062 . 10735) (MAP.ENDNOTE.LOOKS 10737 . 11504) (GET.ENDNOTE.FONTS 11506 . 12114)) (
12117 16032 (ENDNOTEP 12127 . 12468) (NOTE.PUTFN 12470 . 13122) (NOTE.GETFN 13124 . 13704) (
NOTE.BUTTONEVENTINFN 13706 . 14486) (NOTE.WHENSELECTEDFN 14488 . 16030)) (16790 19194 (AUX.TEDIT 16800
. 17762) (AUX.TEDIT.AFTERQUITFN 17764 . 18207) (AUX.TEDIT.TITLEMENUFN 18209 . 19192)) (19279 22743 (
REGMARKOBJ 19289 . 19696) (REGMARKOBJP 19698 . 19892) (REGMARK.DISPLAYFN 19894 . 20140) (
REGMARK.IMAGEBOXFN 20142 . 20493) (REGMARK.PUTFN 20495 . 20827) (REGMARK.GETFN 20829 . 21128) (
REGMARK.COPYFN 21130 . 21668) (REGMARK.BUTTONEVENTINFN 21670 . 22741)))))
STOP

BIN
lispusers/TMAX/TMAX-ENDNOTE.LCOM Normal file
View File

Binary file not shown.

0
lispusers/TMAX-INDEX → lispusers/TMAX/TMAX-INDEX
View File

0
lispusers/TMAX-INDEX.LCOM → lispusers/TMAX/TMAX-INDEX.LCOM
View File

0
lispusers/TMAX-INTRO.TXT → lispusers/TMAX/TMAX-INTRO.TXT
View File

0
lispusers/TMAX-NGRAPH → lispusers/TMAX/TMAX-NGRAPH
View File

0
lispusers/TMAX-NGRAPH.LCOM → lispusers/TMAX/TMAX-NGRAPH.LCOM
View File

0
lispusers/TMAX-NGROUP → lispusers/TMAX/TMAX-NGROUP
View File

0
lispusers/TMAX-NGROUP.LCOM → lispusers/TMAX/TMAX-NGROUP.LCOM
View File

87
lispusers/TMAX-NUMBER → lispusers/TMAX/TMAX-NUMBER
View File

@@ -1,20 +1,22 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED " 6-May-2000 10:37:14" |{DSK}<project>medley3.5>lispusers>TMAX-NUMBER.;4| 32399
|changes| |to:| (FNS NUMBEROBJ.TEDIT-TO-TEX-FN NUMBEROBJ)
(VARS TMAX-NUMBERCOMS)
(FILECREATED "18-Mar-2022 07:06:06" 
|{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX-NUMBER.;8| 33934
|previous| |date:| "18-May-99 22:54:30" |{DSK}<project>medley3.5>lispusers>TMAX-NUMBER.;2|)
:CHANGES-TO (VARS TMAX-NUMBERCOMS)
:PREVIOUS-DATE "17-Mar-2022 23:33:32"
|{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX-NUMBER.;7|)
; Copyright (c) 1987, 1999, 2000 by Xerox Corporation. All rights reserved.
; Copyright (c) 1987, 1999-2000 by Xerox Corporation.
(PRETTYCOMPRINT TMAX-NUMBERCOMS)
(RPAQQ TMAX-NUMBERCOMS
((* |Developed| |under| |support| |from| NIH |grant| RR-00785.)
(* |Written| |by| |Frank| |Gilmurray| |and| |Sami| |Shaio.|)
(* * TMAX-NUMBERNIL |ImageObject| |functions|)
(* * TMAX-NUMBER |ImageObject| |functions|)
(FNS NUMBEROBJ NUMBEROBJP NGROUPP NUMBER.DISPLAYFN NUMBER.PREPRINTFN NUMBER.IMAGEBOXFN
NUMBER.PUTFN NUMBER.GETFN NUMBER.COPYFN NUMBER.BUTTONEVENTINFN NUMBEROBJ.TEDIT-TO-TEX-FN
)
@@ -24,7 +26,22 @@
(* * |Variable| |and| |Record| |definitions|)
(VARS NGROUP.GRAPH.MENU.ITEMS NGROUP.INSERTED.MENU.ITEMS NGROUP.INSERTED.NOTAG.ITEMS
NGROUP.INSERTED.TAG.ITEMS)
(RECORDS NGCOUNTER NGTEMPLATE NUMBEROBJ)))
(FILES (COMPILED SYSLOAD)
TMAX)
(INITVARS (\\NUMBEROBJ.IMAGEFNS (IMAGEFNSCREATE (FUNCTION NUMBER.DISPLAYFN)
(FUNCTION NUMBER.IMAGEBOXFN)
(FUNCTION NUMBER.PUTFN)
(FUNCTION NUMBER.GETFN)
(FUNCTION NUMBER.COPYFN)
(FUNCTION NUMBER.BUTTONEVENTINFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION XREF.WHENDELETEDFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NUMBER.PREPRINTFN))))
(DECLARE\: EVAL@COMPILE DONTCOPY (RECORDS NGCOUNTER NGTEMPLATE NUMBEROBJ))))
@@ -35,7 +52,7 @@
(* |Written| |by| |Frank| |Gilmurray| |and| |Sami| |Shaio.|)
(* * TMAX-NUMBERNIL |ImageObject| |functions|)
(* * TMAX-NUMBER |ImageObject| |functions|)
(DEFINEQ
@@ -533,32 +550,52 @@
"Show this NGroup's FORMAT.")))
(RPAQQ NGROUP.INSERTED.NOTAG.ITEMS ((|Define Tag| (NGROUP.DEFINE.TAG REF.TYPE WINDOW NGROUP.OBJ)
"Define a TAG for this NGroup.")))
"Define a TAG for this NGroup.")))
(RPAQQ NGROUP.INSERTED.TAG.ITEMS ((|Change Tag| (NGROUP.DEFINE.TAG REF.TYPE WINDOW NGROUP.OBJ)
"Change this NGroup's TAG.")
(|Delete Tag| (NUMBER.DELETE.TAG WINDOW NGROUP.OBJ)
"Delete this NGroup's TAG.")
(|Show Tag| (NGROUP.SHOW.TAG REF.TYPE WINDOW NGROUP.OBJ)
"Show this NGroup's TAG.")))
"Change this NGroup's TAG.")
(|Delete Tag| (NUMBER.DELETE.TAG WINDOW NGROUP.OBJ)
"Delete this NGroup's TAG.")
(|Show Tag| (NGROUP.SHOW.TAG REF.TYPE WINDOW NGROUP.OBJ)
"Show this NGroup's TAG.")))
(FILESLOAD (COMPILED SYSLOAD)
TMAX)
(RPAQ? \\NUMBEROBJ.IMAGEFNS
(IMAGEFNSCREATE (FUNCTION NUMBER.DISPLAYFN)
(FUNCTION NUMBER.IMAGEBOXFN)
(FUNCTION NUMBER.PUTFN)
(FUNCTION NUMBER.GETFN)
(FUNCTION NUMBER.COPYFN)
(FUNCTION NUMBER.BUTTONEVENTINFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION XREF.WHENDELETEDFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NUMBER.PREPRINTFN)))
(DECLARE\: EVAL@COMPILE DONTCOPY
(DECLARE\: EVAL@COMPILE
(RECORD NGCOUNTER (NCOUNT . ANCESTRY))
(RECORD NGTEMPLATE (NG.CHARTYPE NG.TEXT-AFTER NG.START NG.ADDTOTOC NG.CURRENTVAL NG.MANUALINDEX
NG.TEXT-BEFORE))
NG.TEXT-BEFORE))
(RECORD NUMBEROBJ (REF.TYPE NUMSTRING USE NGROUP.MOTHER TEMPLATE UPDATED.OBJ TEXT.AFTER#
PAGE.NUMBER FONT TEXT.BEFORE# ABBREV-VAL))
(RECORD NUMBEROBJ (REF.TYPE NUMSTRING USE NGROUP.MOTHER TEMPLATE UPDATED.OBJ TEXT.AFTER# PAGE.NUMBER
FONT TEXT.BEFORE# ABBREV-VAL))
)
)
(PUTPROPS TMAX-NUMBER COPYRIGHT ("Xerox Corporation" 1987 1999 2000))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (1599 17297 (NUMBEROBJ 1609 . 2715) (NUMBEROBJP 2717 . 3257) (NGROUPP 3259 . 3613) (
NUMBER.DISPLAYFN 3615 . 6654) (NUMBER.PREPRINTFN 6656 . 7700) (NUMBER.IMAGEBOXFN 7702 . 10195) (
NUMBER.PUTFN 10197 . 11281) (NUMBER.GETFN 11283 . 13419) (NUMBER.COPYFN 13421 . 15118) (
NUMBER.BUTTONEVENTINFN 15120 . 17025) (NUMBEROBJ.TEDIT-TO-TEX-FN 17027 . 17295)) (17298 26469 (
COPY.NGROUP.BRANCH 17308 . 18764) (DUMP.NGROUP.GRAPH 18766 . 19642) (NGROUP.BUTTONEVENTINFN 19644 .
20344) (NGROUP.DEFINE.TAG 20346 . 20949) (NUMBER.DELETE.TAG 20951 . 21210) (NGROUP.SHOW.TAG 21212 .
21534) (CHANGE.INSERTED.NGROUP.FORMAT 21536 . 23331) (CHANGE.NGROUP.FORMAT.#TEXT 23333 . 24919) (
SHOW.INSERTED.NGROUP.FORMAT 24921 . 26467)))))
(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)))))
STOP

BIN
lispusers/TMAX/TMAX-NUMBER.LCOM Normal file
View File

Binary file not shown.

84
lispusers/TMAX-XREF → lispusers/TMAX/TMAX-XREF
View File

@@ -1,26 +1,29 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED " 6-May-2000 14:26:45" |{DSK}<project>medley3.5>lispusers>TMAX-XREF.;3| 22168
|changes| |to:| (FNS XREF.TEDIT-TO-TEX-FN)
(FILECREATED "18-Mar-2022 07:07:27" 
|{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX-XREF.;5| 23662
|previous| |date:| " 6-May-2000 10:40:07" |{DSK}<project>medley3.5>lispusers>TMAX-XREF.;2|)
:CHANGES-TO (VARS TMAX-XREFCOMS)
:PREVIOUS-DATE "17-Mar-2022 23:36:37"
|{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX-XREF.;4|)
; Copyright (c) 1987, 1997, 2000 by Xerox Corporation. All rights reserved.
; Copyright (c) 1987, 1997, 2000 by Xerox Corporation.
(PRETTYCOMPRINT TMAX-XREFCOMS)
(RPAQQ TMAX-XREFCOMS
( (* \;
 "Developed under support from NIH grant RR-00785.")
(* \;
 "Written by Frank Gilmurray and Sami Shaio.")
( (* \;
 "Developed under support from NIH grant RR-00785.")
(* \;
 "Written by Frank Gilmurray and Sami Shaio.")
(* |;;| "An XREF is a general-purpose cross-referencing imageobject. In order to create an instance of an XREF one simply calls the function XREF with a TAG that is supposed to link it with some imageobject that it is referencing. In order to add to the class of imageobjects that can be referenced with XREF one uses the function XREF.ADD.DISPLAYFN with the type of the imageobject and a function that operates on it to return some string that XREF will then display in the document.")
(* |;;| "An XREF is a general-purpose cross-referencing imageobject. In order to create an instance of an XREF one simply calls the function XREF with a TAG that is supposed to link it with some imageobject that it is referencing. In order to add to the class of imageobjects that can be referenced with XREF one uses the function XREF.ADD.DISPLAYFN with the type of the imageobject and a function that operates on it to return some string that XREF will then display in the document.")
(* |;;;| "TMAX-XREFNIL Image Object functions")
(* |;;;| "TMAX-XREFNIL Image Object functions")
(FNS XREF XREFP XREF.DISPLAYFN XREF.IMAGEBOXFN XREF.PUTFN XREF.GETFN XREF.COPYFN
XREF.BUTTONEVENTINFN XREF.WHENDELETEDFN XREF.TEDIT-TO-TEX-FN)
@@ -29,15 +32,30 @@
TSP.GETCODEVAL TSP.PUTCODE)
(* |;;;| "Functions for adding and retrieving the method for a gven imageobject.")
(* |;;;| "Functions for adding and retrieving the method for a gven imageobject.")
(FNS XREF.ADD.DISPLAYFN XREF.GET.DISPLAYFN)
(* |;;;| "Examples of some XREF display methods.")
(* |;;;| "Examples of some XREF display methods.")
(FNS NGROUP.XREF.DISPLAYFN NGROUP.XREF.DISPLAY.TEXT NOTE.XREF.DISPLAYFN)
(UGLYVARS XREF.DISPLAY.METHODS)))
(INITVARS (\\XREFOBJ.IMAGEFNS (IMAGEFNSCREATE (FUNCTION XREF.DISPLAYFN)
(FUNCTION XREF.IMAGEBOXFN)
(FUNCTION XREF.PUTFN)
(FUNCTION XREF.GETFN)
(FUNCTION XREF.COPYFN)
(FUNCTION XREF.BUTTONEVENTINFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION XREF.GET.DISPLAY.TEXT))))
(UGLYVARS XREF.DISPLAY.METHODS)
(FILES (COMPILED SYSLOAD)
TMAX)))
@@ -437,19 +455,37 @@
(t (concat "<" numstring "/" reference.by ">"))))))
)
(RPAQ? \\XREFOBJ.IMAGEFNS
(IMAGEFNSCREATE (FUNCTION XREF.DISPLAYFN)
(FUNCTION XREF.IMAGEBOXFN)
(FUNCTION XREF.PUTFN)
(FUNCTION XREF.GETFN)
(FUNCTION XREF.COPYFN)
(FUNCTION XREF.BUTTONEVENTINFN)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION XREF.GET.DISPLAY.TEXT)))
(READVARS-FROM-STRINGS '(XREF.DISPLAY.METHODS)
"({H(24 ERROR) 2 NOTE.XREF.DISPLAYFN NOTE NGROUP.XREF.DISPLAYFN NGROUP })
"({H(24 ERROR) 2 NGROUP.XREF.DISPLAYFN NGROUP NOTE.XREF.DISPLAYFN NOTE })
")
(FILESLOAD (COMPILED SYSLOAD)
TMAX)
(PUTPROPS TMAX-XREF COPYRIGHT ("Xerox Corporation" 1987 1997 2000))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (2764 10100 (XREF 2774 . 3341) (XREFP 3343 . 3730) (XREF.DISPLAYFN 3732 . 4166) (
XREF.IMAGEBOXFN 4168 . 4820) (XREF.PUTFN 4822 . 5068) (XREF.GETFN 5070 . 5544) (XREF.COPYFN 5546 .
6156) (XREF.BUTTONEVENTINFN 6158 . 9150) (XREF.WHENDELETEDFN 9152 . 9649) (XREF.TEDIT-TO-TEX-FN 9651
. 10098)) (10101 12085 (XREF.GET.DISPLAY.TEXT 10111 . 11395) (XREF.GET.TOOBJ 11397 . 11934) (
TSPOBJ.GETTYPE 11936 . 12083)) (12086 18460 (UPDATE.XREFS 12096 . 14479) (INSERT.REF 14481 . 14893) (
GET.REF 14895 . 15950) (GET.REFERENCE.BY 15952 . 16939) (TSP.LIST.REFS 16941 . 17393) (TSP.GET.INCODE
17395 . 18049) (TSP.GETCODEVAL 18051 . 18273) (TSP.PUTCODE 18275 . 18458)) (18552 19523 (
XREF.ADD.DISPLAYFN 18562 . 19076) (XREF.GET.DISPLAYFN 19078 . 19521)) (19583 21945 (
NGROUP.XREF.DISPLAYFN 19593 . 20553) (NGROUP.XREF.DISPLAY.TEXT 20555 . 21191) (NOTE.XREF.DISPLAYFN
21193 . 21943)))))
(FILEMAP (NIL (3709 11045 (XREF 3719 . 4286) (XREFP 4288 . 4675) (XREF.DISPLAYFN 4677 . 5111) (
XREF.IMAGEBOXFN 5113 . 5765) (XREF.PUTFN 5767 . 6013) (XREF.GETFN 6015 . 6489) (XREF.COPYFN 6491 .
7101) (XREF.BUTTONEVENTINFN 7103 . 10095) (XREF.WHENDELETEDFN 10097 . 10594) (XREF.TEDIT-TO-TEX-FN
10596 . 11043)) (11046 13030 (XREF.GET.DISPLAY.TEXT 11056 . 12340) (XREF.GET.TOOBJ 12342 . 12879) (
TSPOBJ.GETTYPE 12881 . 13028)) (13031 19405 (UPDATE.XREFS 13041 . 15424) (INSERT.REF 15426 . 15838) (
GET.REF 15840 . 16895) (GET.REFERENCE.BY 16897 . 17884) (TSP.LIST.REFS 17886 . 18338) (TSP.GET.INCODE
18340 . 18994) (TSP.GETCODEVAL 18996 . 19218) (TSP.PUTCODE 19220 . 19403)) (19497 20468 (
XREF.ADD.DISPLAYFN 19507 . 20021) (XREF.GET.DISPLAYFN 20023 . 20466)) (20528 22890 (
NGROUP.XREF.DISPLAYFN 20538 . 21498) (NGROUP.XREF.DISPLAY.TEXT 21500 . 22136) (NOTE.XREF.DISPLAYFN
22138 . 22888)))))
STOP

BIN
lispusers/TMAX/TMAX-XREF.LCOM Normal file
View File

Binary file not shown.

BIN
lispusers/TMAX.LCOM → lispusers/TMAX/TMAX.LCOM
View File

Binary file not shown.

0
lispusers/TMAX.TEDIT → lispusers/TMAX/TMAX.TEDIT
View File

0
lispusers/TMAX.TOC → lispusers/TMAX/TMAX.TOC
View File