1
0
mirror of synced 2026-05-16 19:44:55 +00:00
Files
Interlisp.medley/lispusers/tmax/TMAX.LCOM
2026-05-15 22:34:05 -07:00

229 lines
14 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "15-May-2026 22:31:17" ("compiled on " {MEDLEY}<lispusers>tmax>TMAX.;47)
"15-May-2026 14:49:15" brecompiled exprs%: NGROUPMENU.ENABLED? in "FULL 15-May-2026 ..." dated
"15-May-2026 14:49:24")
(FILECREATED "15-May-2026 22:31:17" {MEDLEY}<lispusers>tmax>TMAX.;47 28263 :EDIT-BY rmk :CHANGES-TO (
FNS NGROUPMENU.ENABLED?) :PREVIOUS-DATE "12-Aug-2025 08:27:53" {MEDLEY}<lispusers>tmax>TMAX.;46)
EDIT-TMAXA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 0 F I 0 SI::*CLEANUP-FORMS* F 1 SI::*RESETFORMS* F 2 TMAXFILES) =gd gg
¿QcdH ¿H µëh(52 LOADCOMP 45 LOADFROM 26 SETTOPVAL 10 GETTOPVAL)
(21 YES 16 LOADDBFLG 4 LOADDBFLG)
()
EDIT-TMAX :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST F 3 LISPXHIST) 3o S!g ¿$o (48 %. 33 SI::RESETUNWIND 28 \MVLIST 23 EDIT-TMAXA0001 9 BKSYSBUF)
(18 SI::RESETUNWIND)
( 43 (ANALYZE ON IN TMAXFILES) 4 " ")
TSP.DISPLAY.FMMENU :D8
(P 0 IMAGEOBJ.MENUW I 0 TSTREAM) B@ H ³0H@
H@ gg Hgo h(61 PUTWINDOWPROP 45 ATTACHWINDOW 30 \TEDIT.PRIMARYPANE 23 TSP.SETUP.FILENAMES 14 OPENWP 5 TSP.FMMENU)
(51 PASSTOMAINCOMS 40 JUSTIFY 35 TOP)
( 56 (MOVEW SHAPEW SHRINKW BURYW))
TSP.SETUP.FILENAMES :D8
(P 4 FM.ITEM P 3 EXTENSION P 1 FILE.BASE P 0 FILE.NAME I 1 TSTREAM I 0 OBJMENUW) ¬Ag
H´FgHg
gHg
gHg
Yo!Jµh[o
h@ LŠoL
É jð²LIoK @ ¿JZ°¨(164 FM.CHANGESTATE 158 CONCAT 141 NCHARS 129 ERROR 109 FM.GETITEM 102 MKATOM 97 CONCAT 70 PACKFILENAME 64 FILENAMEFIELD 48 FILENAMEFIELD 32 FILENAMEFIELD 10 GETTEXTPROP)
(134 FREEMENUITEM 115 FREEMENUITEM 59 NAME 53 NAME 43 DIRECTORY 37 DIRECTORY 27 HOST 21 HOST 5 FILENAME)
( 152 "." 123 "Arg must be FreeMenuItem" 92 ".FILE" 76 (TOC INDEX))
TSP.SETUP.FMMENU :D8
(I 0 TSTREAM) @g
µ@ (18 TSP.FMMENU 10 STREAMPROP)
(5 MAGEOBJ.MENUW)
()
TSP.FMMENU :D8
(P 0 IMAGEOBJ.MENUW I 0 TSTREAM F 1 TSP.FM.DESC) @g
µu@g
³@gld ¿@g
³@gld ¿Qo
Xdgg @gH H(129 STREAMPROP 117 WINDOWADDPROP 100 FREEMENU 88 STREAMPROP 83 HASHARRAY 68 HASHARRAYP 63 STREAMPROP 51 STREAMPROP 46 HASHARRAY 31 HASHARRAYP 26 STREAMPROP 13 STREAMPROP)
(123 IMAGEOBJ.MENUW 112 FREEATTACHEDWINDOW 107 CLOSEFN 76 TSP.CODE.ARRAY 58 TSP.CODE.ARRAY 39 TSP.NGROUP.ARRAY 21 TSP.NGROUP.ARRAY 8 IMAGEOBJ.MENUW)
( 95 "TMAX (Tedit Macros And eXtensions)")
TSP.FM.APPLY :D8
(P 1 TSTREAM P 0 LABEL I 2 BUTTON I 1 FMWINDOW I 0 ITEM F 2 IMAGEOBJ.MENU.ITEMS) 5@Šo@
ÉA HR (50 EVAL 37 TEXTSTREAM 32 MAINWINDOW 19 ERROR)
(24 FREEMENUITEM 5 FREEMENUITEM)
( 13 "Arg must be FreeMenuItem")
UPDATE.ALL :D8
(I 0 TSTREAM) ,@g
@ @ghg ´@ (41 INSERT.ENDNOTES 33 TSP.LIST.OF.OBJECTS 16 UPDATE.XREFS 10 UPDATE.NUMBEROBJS)
(28 FIRST 22 REGMARKOBJP 5 NUMBEROBJP)
()
DOWNDATE.ALL :D8
(I 1 WINDOW I 0 TSTREAM) .@g
@i
@ghg ´ @A
(43 INSERT.ENDNOTES 34 TSP.LIST.OF.OBJECTS 17 UPDATE.XREFS 10 DOWNDATE.NUMBEROBJS)
(29 FIRST 23 REGMARKOBJP 5 NUMBEROBJP)
()
TSP.FUNCTION.HOOKS :D8
(P 0 FUNCTION.HOOK F 1 TEDIT.DEFAULT.PROPS) þQg'X²NHgð³E` ¿joHo jhi`
¿` ¿`l
¿Qµ‚±<00>gghc¿Qg'X²NHgð³E` ¿joHo jhi`
¿` ¿`l
¿Qµgghcgg gg ±ÿv(249 LISTPUT 233 LISTPUT 197 FLASHWINDOW 184 TERPRI 173 FLUSHRIGHT 159 CONCAT 141 TERPRI 87 FLASHWINDOW 74 TERPRI 63 FLUSHRIGHT 49 CONCAT 31 TERPRI)
(244 TSP.GETFN 239 GETFN 228 TSP.PUTFN 223 PUTFN 212 TSP.PUTFN 207 PUTFN 190 PROMPTWINDOW 179 PROMPTWINDOW 167 PROMPTWINDOW 136 PROMPTWINDOW 128 TSP.PUTFN 118 PUTFN 106 TSP.GETFN 101 GETFN 80 PROMPTWINDOW 69 PROMPTWINDOW 57 PROMPTWINDOW 26 PROMPTWINDOW 18 TSP.GETFN 8 GETFN)
( 154 " replaced by TMAX PUTFN hook." 148 "TEdit PUTFN hook " 44 " replaced by TMAX GETFN hook." 38 "TEdit GETFN hook ")
TSP.GETFN :D8
(I 2 FLAVOR I 1 FILENAME I 0 TSTREAM) ;Bgð´2@g
@g
@g
(56 CLRHASH 51 GETWINDOWUSERPROP 40 CLRHASH 35 GETWINDOWUSERPROP 24 CLRHASH 19 STREAMPROP)
(46 TSP.NGROUP.ARRAY 30 TSP.INDEX.ARRAY 14 TSP.CODE.ARRAY 5 BEFORE)
()
TSP.PUTFN :D8
(P 0 WINDOW I 2 FLAVOR I 1 FILENAME I 0 TSTREAM) ,@ Bgðœ@gi Hgh (41 STREAMPROP 28 STREAMPROP 5 \TEDIT.MAINW)
(35 DUMPNGROUPGRAPH 22 DUMPNGROUPGRAPH 14 BEFORE)
()
AutoUpdate.TOGGLE :D8
(I 2 BUTTON I 1 FMWINDOW I 0 ITEM) 2A g@Šo@
É (47 STREAMPROP 35 ERROR 10 TEXTSTREAM 5 MAINWINDOW)
(40 FREEMENUITEM 21 FREEMENUITEM 15 AUTOUPDATE)
( 29 "Arg must be FreeMenuItem")
UPDATE? :D8
(I 0 TSTREAM) @g
i(10 STREAMPROP)
(5 AUTOUPDATE)
()
NGROUP.Menu.TOGGLE :D8
(P 1 TOGGLE.STATE P 0 TSTREAM I 2 BUTTON I 1 FMWINDOW I 0 ITEM) :A @Šo@
ÉIH H (55 CLOSE.NGROUP.GRAPH 48 GRAPHMENU 30 ERROR 10 TEXTSTREAM 5 MAINWINDOW)
(35 FREEMENUITEM 16 FREEMENUITEM)
( 24 "Arg must be FreeMenuItem")
NGROUPMENU.ENABLED? :D8
(I 0 TSTREAM) Ogh@ ògh@ °ogh@
É(69 ERROR 64 FM.GETITEM 59 TSP.SETUP.FMMENU 40 FM.GETITEM 35 TSP.SETUP.FMMENU 16 FM.GETITEM 11 TSP.SETUP.FMMENU)
(74 FREEMENUITEM 52 NGROUP.MENU 28 NGROUP.MENU 21 FREEMENUITEM 4 NGROUP.MENU)
( 47 "Arg must be FreeMenuItem")
NGROUP.Text-Before.TOGGLE :D8
(I 2 BUTTON I 1 FMWINDOW I 0 ITEM) 2A g@Šo@
É (47 STREAMPROP 35 ERROR 10 TEXTSTREAM 5 MAINWINDOW)
(40 FREEMENUITEM 21 FREEMENUITEM 15 NGROUPTEXTBEFORE)
( 29 "Arg must be FreeMenuItem")
TEXTBEFORE.ENABLED? :D8
(I 0 TSTREAM)
@g
(10 STREAMPROP)
(5 NGROUPTEXTBEFORE)
()
NGROUP.Text-After.TOGGLE :D8
(I 2 BUTTON I 1 FMWINDOW I 0 ITEM) 2A g@Šo@
É (47 STREAMPROP 35 ERROR 10 TEXTSTREAM 5 MAINWINDOW)
(40 FREEMENUITEM 21 FREEMENUITEM 15 NGROUPTEXTAFTER)
( 29 "Arg must be FreeMenuItem")
TEXTAFTER.ENABLED? :D8
(I 0 TSTREAM)
@g
(10 STREAMPROP)
(5 NGROUPTEXTAFTER)
()
Manual.Index.TOGGLE :D8
(I 2 BUTTON I 1 FMWINDOW I 0 ITEM) 2A g@Šo@
É (47 STREAMPROP 35 ERROR 10 TEXTSTREAM 5 MAINWINDOW)
(40 FREEMENUITEM 21 FREEMENUITEM 15 MANUALINDEX)
( 29 "Arg must be FreeMenuItem")
MANUALINDEX.ENABLED? :D8
(I 0 TSTREAM)
@g
(10 STREAMPROP)
(5 MANUALINDEX)
()
GET.TSP.FONT :D8
(P 3 NEWENTRY.FONT P 2 FACE P 1 SIZE P 0 FAMILY I 1 FONT.FIELD I 0 DEFAULT.FONT) Aµh@ AµJ@ Aµ,@ HIJhdi
[´HIKg
hgð³Ð@g
°Égð³²@g
°«gð³”@g
°<>(123 FONTPROP 102 FONTPROP 81 FONTPROP 57 FONTPROP 41 FONTCREATE 26 GET.TSP.FONT.FACE 17 GET.TSP.FONT.SIZE 8 GET.TSP.FONT.FAMILY)
(118 FAMILY 109 FAMILY 97 SIZE 88 SIZE 76 FACE 67 FACE 52 FACE)
()
GET.TSP.FONT.FAMILY :D8
(I 0 DEFAULT.FONT) b`do¿di ¿do¿dg ¿dg¿jdnÿdhHdI
¿ µ
@g
(95 U-CASE 90 FONTPROP 77 MKATOM 72 MENU)
(85 FAMILY 43 DEFAULTMENUHELDFN 34 CLRPROMPT 4 |MENUTYPE#|)
( 25 (Classic Gacha Terminal Helvetica Modern TimesRoman) 11 "Font Family")
GET.TSP.FONT.SIZE :D8
(I 0 DEFAULT.FONT) c`do¿di ¿dl¿do¿dg ¿dg¿jdnÿdhHdI
¿ µ
@g
(96 FONTPROP 83 MKATOM 78 MENU)
(91 SIZE 49 DEFAULTMENUHELDFN 40 CLRPROMPT 4 |MENUTYPE#|)
( 31 (6 8 10 12 14 18 24 36) 11 "Font Size")
GET.TSP.FONT.FACE :D8
(I 0 DEFAULT.FONT) ]`do¿di ¿do¿dg ¿dg¿jdnÿdhHdI
¿ µ
@g
(90 FONTPROP 77 MKATOM 72 MENU)
(85 FACE 43 DEFAULTMENUHELDFN 34 CLRPROMPT 4 |MENUTYPE#|)
( 25 ((Standard (QUOTE MRR) "(MEDIUM REGULAR REGULAR)") (Italic (QUOTE MIR) "(MEDIUM ITALIC REGULAR)") (Bold (QUOTE BRR) "(BOLD REGULAR REGULAR)") (BoldItalic (QUOTE BIR) "(BOLD ITALIC REGULAR)"))
11 "Font Face")
ABBREVIATE.FONT :D8
(P 2 FONT.FACE P 0 FONT.LIST I 0 FONT) Á@ @g
€@!HH¸Ydgð—¿g°Mgðg°?Idgð—¿g°.gðg° Idgð¿g<00>gð•g€IHHXH¸Zoôo°/JJºgð´ ghJJºgð´ gh
(188 \APPEND2 17 FONTPROP 5 FONTP)
(181 Italic 173 ITALIC 161 Bold 153 BOLD 117 TimesRoman 110 TIMESROMAN 104 Modern 96 MODERN 87 Helvetica 80 HELVETICA 73 Gacha 65 GACHA 56 Terminal 49 TERMINAL 42 Classic 34 CLASSIC 12 SPEC)
( 141 (Standard) 134 (MEDIUM REGULAR REGULAR))
TMAX.SHADEOBJ :D8
(P 0 BOUNDBOX I 2 SHADE I 1 STREAM I 0 OBJ) DAg
´7@g
`AhA
hA
HÙHH
(65 BLTSHADE 49 DSPYPOSITION 42 DSPXPOSITION 23 IMAGEOBJPROP 10 IMAGESTREAMTYPEP)
(34 GP.DefaultShade 18 BOUNDBOX 5 DISPLAY)
()
TSP.LIST.OF.OBJECTSA0001 :D8
(I 2 FNARG I 1 OBJ I 0 CH# F 0 TESTFN)
A@BlPNIL
NIL
()
TSP.LIST.OF.OBJECTS :D8
(I 3 COLLECT I 2 TESTFNARG I 1 TESTFN I 0 TSTREAM) A´@gBCµg (22 TEDIT.MAP.OBJECTS)
(17 OBJECT 8 TSP.LIST.OF.OBJECTSA0001)
()
(PRETTYCOMPRINT TMAXCOMS)
(RPAQQ TMAXCOMS ((* ; "Developed under support from NIH grant RR-00785.") (* ;
"Written by Frank Gilmurray and Sami Shaio.") (FILES (COMPILED SYSLOAD) TEDIT FREEMENU GRAPHER) (FILES
* TMAXFILES) (FNS EDIT-TMAX) (DECLARE%: DONTCOPY (P (DOFILESLOAD (LIST* (QUOTE (SOURCE)) TMAXFILES)))
(DECLARE%: EVAL@COMPILE (FILES TEDIT-EXPORTS.ALL))) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS TMAXPROP
TMAXADDPROP)) (* ;;; "Free Menu data structures") (VARS TSP.FM.DESC IMAGEOBJ.MENU.ITEMS) (* ;;;
"Free Menu functions") (FNS TSP.DISPLAY.FMMENU TSP.SETUP.FILENAMES TSP.SETUP.FMMENU TSP.FMMENU
TSP.FM.APPLY UPDATE.ALL DOWNDATE.ALL TSP.FUNCTION.HOOKS TSP.GETFN TSP.PUTFN) (* ;;;
"Free Menu toggle functions") (FNS AutoUpdate.TOGGLE UPDATE? NGROUP.Menu.TOGGLE NGROUPMENU.ENABLED?
NGROUP.Text-Before.TOGGLE TEXTBEFORE.ENABLED? NGROUP.Text-After.TOGGLE TEXTAFTER.ENABLED?
Manual.Index.TOGGLE MANUALINDEX.ENABLED?) (* ;;; "TSP font stuff") (FNS GET.TSP.FONT
GET.TSP.FONT.FAMILY GET.TSP.FONT.SIZE GET.TSP.FONT.FACE ABBREVIATE.FONT TMAX.SHADEOBJ) (* ;;;
"Collect ImageObjects") (FNS TSP.LIST.OF.OBJECTS) (GLOBALVARS GP.DefaultFont GP.DefaultShade) (VARS (
GP.DefaultFont (FONTCREATE (QUOTE TERMINAL) 10)) (GP.DefaultShade 1024)) (P (TEDIT.ADD.MENUITEM
TEDIT.DEFAULT.MENU (QUOTE (TMAX% Menu (FUNCTION TSP.DISPLAY.FMMENU) NIL (SUBITEMS (Update (FUNCTION
UPDATE.ALL) "Updates all cross-references") (NGroup% Menu (FUNCTION GRAPHMENU)
"Displays number-group menu"))))) (TSP.FUNCTION.HOOKS))))
(FILESLOAD (COMPILED SYSLOAD) TEDIT FREEMENU GRAPHER)
(RPAQQ TMAXFILES (TMAX-DATE TMAX-ENDNOTE TMAX-INDEX TMAX-NUMBER TMAX-NGRAPH TMAX-NGROUP TMAX-XREF))
(FILESLOAD TMAX-DATE TMAX-ENDNOTE TMAX-INDEX TMAX-NUMBER TMAX-NGRAPH TMAX-NGROUP TMAX-XREF)
(RPAQQ TSP.FM.DESC ((PROPS FORMAT TABLE TYPE MOMENTARY FONT (HELVETICA 10 BRR)) ((LABEL "Miscellany:"
TYPE DISPLAY FONT (TERMINAL 10 MRR)) (LABEL "Update" ID UPDATE SELECTEDFN TSP.FM.APPLY) (LABEL
"Undo Update" ID UNDOUPDATE SELECTEDFN TSP.FM.APPLY) (LABEL "Set AutoUpdate" TYPE TOGGLE SELECTEDFN
AutoUpdate.TOGGLE FONT (TERMINAL 10 BIR)) (LABEL "Date/Time" ID DATE/TIME SELECTEDFN TSP.FM.APPLY)) ((
LABEL "References:" TYPE DISPLAY FONT (TERMINAL 10 MRR)) (LABEL "Reference" ID REFERENCE SELECTEDFN
TSP.FM.APPLY) (LABEL "Known References" ID KNOWNREF SELECTEDFN TSP.FM.APPLY) (LABEL "Reference By"
TYPE STATE MENUITEMS (Ask Value Page) INITSTATE Value LINKS (DISPLAY DEFAULTREF)) (LABEL "" TYPE
DISPLAY ID DEFAULTREF FONT (TERMINAL 10 MRR))) ((LABEL "Endnotes:" TYPE DISPLAY FONT (TERMINAL 10 MRR)
) (LABEL "Endnote" ID ENDNOTE SELECTEDFN TSP.FM.APPLY) (LABEL "Insert Endnotes" ID INSERTNOTE
SELECTEDFN TSP.FM.APPLY) (LABEL "Delete Endnotes" ID DELETENOTE SELECTEDFN TSP.FM.APPLY) (LABEL
"Set Style" ID SETSTYLE SELECTEDFN TSP.FM.APPLY)) ((LABEL "Numbering:" TYPE DISPLAY FONT (TERMINAL 10
MRR)) (LABEL "NGroup Menu" TYPE TOGGLE ID NGROUP.MENU SELECTEDFN NGROUP.Menu.TOGGLE FONT (TERMINAL 10
BIR)) (LABEL "New Ngroup" ID NEWNGROUP SELECTEDFN TSP.FM.APPLY) (LABEL "Text Before" TYPE TOGGLE
SELECTEDFN NGROUP.Text-Before.TOGGLE FONT (TERMINAL 10 BIR)) (LABEL "Text After" TYPE TOGGLE
SELECTEDFN NGROUP.Text-After.TOGGLE FONT (TERMINAL 10 BIR))) ((LABEL "Contents File:" TYPE DISPLAY
FONT (TERMINAL 10 MRR)) (LABEL "Create TOC" ID CREATETOC SELECTEDFN TSP.FM.APPLY) (LABEL "View TOC" ID
VIEWTOC SELECTEDFN TSP.FM.APPLY) (LABEL "TOC Filename:" TYPE EDITSTART LINKS (EDIT TOC.FILE)) (LABEL
"" TYPE EDIT ID TOC.FILE FONT (TERMINAL 10 MRR))) ((LABEL "Indices:" TYPE DISPLAY FONT (TERMINAL 10
MRR)) (LABEL "Index" ID INDEX SELECTEDFN TSP.FM.APPLY) (LABEL "Extended Index" ID XTNDINDEX SELECTEDFN
TSP.FM.APPLY) (LABEL "Known Indices" ID KNOWNINDEX SELECTEDFN TSP.FM.APPLY) (LABEL "Manual Index"
TYPE TOGGLE SELECTEDFN Manual.Index.TOGGLE FONT (TERMINAL 10 BIR))) ((LABEL "Indices File:" TYPE
DISPLAY FONT (TERMINAL 10 MRR)) (LABEL "Create Index" ID CREATEINDEX SELECTEDFN TSP.FM.APPLY) (LABEL
"View Index" ID VIEWINDEX SELECTEDFN TSP.FM.APPLY) (LABEL "Index Filename:" TYPE EDITSTART LINKS (EDIT
INDEX.FILE)) (LABEL "" TYPE EDIT ID INDEX.FILE FONT (TERMINAL 10 MRR)))))
(RPAQQ IMAGEOBJ.MENU.ITEMS ((UPDATE (UPDATE.ALL TSTREAM)) (UNDOUPDATE (DOWNDATE.ALL TSTREAM)) (
DATE/TIME (TEDIT.INSERT.OBJECT (DATEOBJ) TSTREAM)) (REFERENCE (INSERT.REF TSTREAM)) (KNOWNREF (
INSERT.REF TSTREAM T)) (ENDNOTE (ADD.ENDNOTE TSTREAM)) (INSERTNOTE (INSERT.ENDNOTES TSTREAM)) (
DELETENOTE (DELETE.ENDNOTES TSTREAM)) (SETSTYLE (SET.ENDNOTE.STYLE TSTREAM)) (NEWNGROUP (AND (
ADD.NUMBER.GROUP TSTREAM) (GRAPHMENU TSTREAM))) (CREATETOC (CREATE.TOC.FILE TSTREAM)) (VIEWTOC (
VIEW.TOC.FILE TSTREAM)) (INDEX (INSERT.INDEX TSTREAM)) (XTNDINDEX (INSERT.INDEXENTRY TSTREAM)) (
KNOWNINDEX (INSERT.KNOWN.INDEX TSTREAM)) (CREATEINDEX (CREATE.INDEX.FILE TSTREAM)) (VIEWINDEX (
VIEW.INDEX.FILE TSTREAM))))
(RPAQ GP.DefaultFont (FONTCREATE (QUOTE TERMINAL) 10))
(RPAQQ GP.DefaultShade 1024)
(TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENU (QUOTE (TMAX% Menu (FUNCTION TSP.DISPLAY.FMMENU) NIL (SUBITEMS
(Update (FUNCTION UPDATE.ALL) "Updates all cross-references") (NGroup% Menu (FUNCTION GRAPHMENU)
"Displays number-group menu")))))
(TSP.FUNCTION.HOOKS)
NIL