From 6e9c7b398b002d4af97a7484626e76595e58c2a6 Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Mon, 18 May 2026 12:25:57 -0700 Subject: [PATCH] Initialize the TMAX Ngroups menu (#2615) * Make sure the Ngroups menu is initialized * Fix index and table of contents --- lispusers/tmax/TMAX | 37 +++++++-------- lispusers/tmax/TMAX-INDEX | 70 +++++++++++++++------------- lispusers/tmax/TMAX-INDEX.LCOM | Bin 17497 -> 17612 bytes lispusers/tmax/TMAX-NGRAPH | 41 ++++++++-------- lispusers/tmax/TMAX-NGRAPH.LCOM | Bin 9646 -> 9552 bytes lispusers/tmax/TMAX-NGROUP | 80 ++++++++++++++++---------------- lispusers/tmax/TMAX-NGROUP.LCOM | Bin 17453 -> 17138 bytes lispusers/tmax/TMAX.LCOM | Bin 14580 -> 14414 bytes 8 files changed, 117 insertions(+), 111 deletions(-) diff --git a/lispusers/tmax/TMAX b/lispusers/tmax/TMAX index ce2a929d..39b34575 100644 --- a/lispusers/tmax/TMAX +++ b/lispusers/tmax/TMAX @@ -1,14 +1,12 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "12-Aug-2025 08:27:53"  -{DSK}kaplan>Local>medley3.5>working-medley>lispusers>tmax>TMAX.;46 28244 +(FILECREATED "15-May-2026 22:31:17" {MEDLEY}tmax>TMAX.;47 28263 :EDIT-BY rmk - :CHANGES-TO (VARS TMAXCOMS TSP.FM.DESC) + :CHANGES-TO (FNS NGROUPMENU.ENABLED?) - :PREVIOUS-DATE "30-Mar-2025 21:51:58" -{DSK}kaplan>Local>medley3.5>working-medley>lispusers>TMAX>TMAX.;44) + :PREVIOUS-DATE "12-Aug-2025 08:27:53" {MEDLEY}tmax>TMAX.;46) (PRETTYCOMPRINT TMAXCOMS) @@ -377,9 +375,10 @@ (T (CLOSE.NGROUP.GRAPH TSTREAM]) (NGROUPMENU.ENABLED? - [LAMBDA (TSTREAM) (* ; "Edited 21-Feb-2025 10:17 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 15-May-2026 22:29 by rmk") + (* ; "Edited 21-Feb-2025 10:17 by rmk") (* ; "Edited 29-Sep-87 11:42 by fsg") - (FM.ITEMPROP (FM.GETITEM 'NGROUP.MENU NIL (TMAXPROP TSTREAM 'IMAGEOBJ.MENUW)) + (FM.ITEMPROP (FM.GETITEM 'NGROUP.MENU NIL (TSP.SETUP.FMMENU TSTREAM)) 'STATE]) (NGROUP.Text-Before.TOGGLE @@ -577,15 +576,15 @@ (TSP.FUNCTION.HOOKS) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3307 4191 (EDIT-TMAX 3317 . 4189)) (8202 16445 (TSP.DISPLAY.FMMENU 8212 . 8886) ( -TSP.SETUP.FILENAMES 8888 . 10219) (TSP.SETUP.FMMENU 10221 . 10772) (TSP.FMMENU 10774 . 11878) ( -TSP.FM.APPLY 11880 . 12468) (UPDATE.ALL 12470 . 13346) (DOWNDATE.ALL 13348 . 13975) ( -TSP.FUNCTION.HOOKS 13977 . 15407) (TSP.GETFN 15409 . 15984) (TSP.PUTFN 15986 . 16443)) (16491 20425 ( -AutoUpdate.TOGGLE 16501 . 16958) (UPDATE? 16960 . 17325) (NGROUP.Menu.TOGGLE 17327 . 17872) ( -NGROUPMENU.ENABLED? 17874 . 18216) (NGROUP.Text-Before.TOGGLE 18218 . 18689) (TEXTBEFORE.ENABLED? -18691 . 18958) (NGROUP.Text-After.TOGGLE 18960 . 19429) (TEXTAFTER.ENABLED? 19431 . 19696) ( -Manual.Index.TOGGLE 19698 . 20158) (MANUALINDEX.ENABLED? 20160 . 20423)) (20459 26121 (GET.TSP.FONT -20469 . 21743) (GET.TSP.FONT.FAMILY 21745 . 22365) (GET.TSP.FONT.SIZE 22367 . 22855) ( -GET.TSP.FONT.FACE 22857 . 23749) (ABBREVIATE.FONT 23751 . 25365) (TMAX.SHADEOBJ 25367 . 26119)) (26161 - 27529 (TSP.LIST.OF.OBJECTS 26171 . 27527))))) + (FILEMAP (NIL (3221 4105 (EDIT-TMAX 3231 . 4103)) (8116 16359 (TSP.DISPLAY.FMMENU 8126 . 8800) ( +TSP.SETUP.FILENAMES 8802 . 10133) (TSP.SETUP.FMMENU 10135 . 10686) (TSP.FMMENU 10688 . 11792) ( +TSP.FM.APPLY 11794 . 12382) (UPDATE.ALL 12384 . 13260) (DOWNDATE.ALL 13262 . 13889) ( +TSP.FUNCTION.HOOKS 13891 . 15321) (TSP.GETFN 15323 . 15898) (TSP.PUTFN 15900 . 16357)) (16405 20444 ( +AutoUpdate.TOGGLE 16415 . 16872) (UPDATE? 16874 . 17239) (NGROUP.Menu.TOGGLE 17241 . 17786) ( +NGROUPMENU.ENABLED? 17788 . 18235) (NGROUP.Text-Before.TOGGLE 18237 . 18708) (TEXTBEFORE.ENABLED? +18710 . 18977) (NGROUP.Text-After.TOGGLE 18979 . 19448) (TEXTAFTER.ENABLED? 19450 . 19715) ( +Manual.Index.TOGGLE 19717 . 20177) (MANUALINDEX.ENABLED? 20179 . 20442)) (20478 26140 (GET.TSP.FONT +20488 . 21762) (GET.TSP.FONT.FAMILY 21764 . 22384) (GET.TSP.FONT.SIZE 22386 . 22874) ( +GET.TSP.FONT.FACE 22876 . 23768) (ABBREVIATE.FONT 23770 . 25384) (TMAX.SHADEOBJ 25386 . 26138)) (26180 + 27548 (TSP.LIST.OF.OBJECTS 26190 . 27546))))) STOP diff --git a/lispusers/tmax/TMAX-INDEX b/lispusers/tmax/TMAX-INDEX index e92d6c60..9908a2d2 100644 --- a/lispusers/tmax/TMAX-INDEX +++ b/lispusers/tmax/TMAX-INDEX @@ -1,12 +1,12 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) +(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10) -(FILECREATED "28-Feb-2025 23:36:19" |{WMEDLEY}tmax>TMAX-INDEX.;22| 46719 +(FILECREATED "16-May-2026 09:19:48" |{MEDLEY}tmax>TMAX-INDEX.;24| 46972 :EDIT-BY |rmk| - :CHANGES-TO (FNS INDEX.MANUAL.DELIMITER RESET.INDEX.PAGENUMBERS) + :CHANGES-TO (FNS CREATE.INDEX.FILE GET.INDEX.FILE) - :PREVIOUS-DATE "23-Feb-2025 11:55:07" |{WMEDLEY}tmax>TMAX-INDEX.;20|) + :PREVIOUS-DATE "28-Feb-2025 23:36:19" |{MEDLEY}tmax>TMAX-INDEX.;22|) (PRETTYCOMPRINT TMAX-INDEXCOMS) @@ -587,24 +587,26 @@ (DEFINEQ (CREATE.INDEX.FILE - (LAMBDA (TSTREAM INDEX.FILE INDEX.FONT NOTITLE) (* \; "Edited 23-Feb-2025 11:55 by rmk") + (LAMBDA (TSTREAM INDEX.FILE INDEX.FONT NOTITLE) (* \; "Edited 16-May-2026 09:18 by rmk") + (* \; "Edited 23-Feb-2025 11:55 by rmk") (* \; "Edited 21-Feb-2025 10:17 by rmk") (* \; "Edited 14-Feb-97 11:10 by rmk:") (* |fsg| "13-Aug-87 09:05") (SETQ INDEX.FILE (OR (OUTFILEP (OR INDEX.FILE (GET.INDEX.FILE (TMAXPROP TSTREAM 'IMAGEOBJ.MENUW)) )) - (ERROR (CONCAT "Can't open " INDEX.FILE " as a index file")))) - (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Writing index on " INDEX.FILE) + (ERROR (CONCAT "Can't open index file" INDEX.FILE)))) + (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Writing index on " INDEX.FILE "...") T) - (LET ((IMAGESTREAM (OPENIMAGESTREAM '{NULL})) + (LET ((DUMMYSTREAM (OPENIMAGESTREAM (UNIX-TMP-FILE-NAME '|tmax-index| '|pdf|) + 'PDF)) INDEX.ARRAY INDEX.LIST INDEX.STREAM) - (* |;;| - "Make sure we have the page numbers, written in the image stream. Why not in TSTREAM?") + (* |;;| "Collect the index-term page numbers in the array") - (TEDIT.FORMAT.HARDCOPY TSTREAM IMAGESTREAM NIL NIL NIL NIL NIL NIL NIL NIL T) - (SETQ INDEX.ARRAY (TMAXPROP IMAGESTREAM 'TSP.INDEX.ARRAY)) - (SETQ INDEX.LIST (INDEX.LIST.REFS IMAGESTREAM)) + (TEDIT.TO.IMAGEFILE TSTREAM DUMMYSTREAM) + (SETQ INDEX.ARRAY (TMAXPROP DUMMYSTREAM 'TSP.INDEX.ARRAY)) + (SETQ INDEX.LIST (INDEX.LIST.REFS DUMMYSTREAM)) + (DELFILE (CLOSEF? DUMMYSTREAM)) (COND ((AND INDEX.LIST INDEX.FILE) (SETQ INDEX.STREAM (OPENTEXTSTREAM)) @@ -614,6 +616,7 @@ (PRINTOUT INDEX.STREAM "Index" T T)) (WRITE.INDEX.FILE INDEX.STREAM INDEX.LIST INDEX.ARRAY INDEX.FONT) (CLOSEF? (TEDIT.PUT INDEX.STREAM INDEX.FILE)) + (TEDIT.PROMPTPRINT TSTREAM "done") INDEX.FILE) (INDEX.LIST (TEDIT.PROMPTPRINT TSTREAM "Please specify a name for the index file" T) NIL) @@ -664,15 +667,16 @@ )) INDEX.FILE))) -(get.index.file - (lambda (menuw) (* \; "Edited 29-Sep-87 14:34 by fsg") +(GET.INDEX.FILE + (LAMBDA (MENUW) (* \; "Edited 16-May-2026 09:17 by rmk") + (* \; "Edited 29-Sep-87 14:34 by fsg") - (* * |Return| |the| |user| |specified| |index| |file| |name.|) +(* |;;;| "Return the user specified index file name.") - (let ((filename (fm.itemprop (fm.getitem 'index.file nil menuw) - 'label))) - (and (not (strequal filename "")) - (mkatom filename))))) + (LET ((FILENAME (FM.ITEMPROP (FM.GETITEM 'INDEX.FILE NIL MENUW) + 'LABEL))) + (CL:UNLESS (STREQUAL FILENAME "") + (MKATOM FILENAME))))) (WRITE.INDEX.FILE (LAMBDA (INDEX.STREAM INDEX.LIST INDEX.ARRAY INDEX.FONT PAGE.FONT) @@ -865,17 +869,17 @@ (* |;;;| "IMAGE OBJECT for causing the index to be written, without using the menu") (DECLARE\: DONTCOPY - (FILEMAP (NIL (3107 11080 (INDEXOBJ 3117 . 4140) (INDEXOBJP 4142 . 4590) (INDEX.DISPLAYFN 4592 . 6451) - (INDEX.IMAGEBOXFN 6453 . 7999) (INDEX.PUTFN 8001 . 8431) (INDEX.GETFN 8433 . 8824) (INDEX.COPYFN 8826 - . 9469) (INDEX.BUTTONEVENTINFN 9471 . 11078)) (11119 19220 (INSERT.INDEX 11129 . 11716) ( -INSERT.INDEXENTRY 11718 . 14501) (INSERT.KNOWN.INDEX 14503 . 16687) (SUBITEM.SELECTFN 16689 . 17683) ( -ADD.NEW.INDEX 17685 . 19218)) (19286 23217 (CHANGE.INDEX 19296 . 19864) (CHANGE.INDEXENTRY 19866 . -20616) (CHANGE.XINDEX.KEY 20618 . 21176) (CHANGE.XINDEX.ENTRY 21178 . 21811) (CHANGE.XINDEX.FONT 21813 - . 22682) (CHANGE.XINDEX.NUMBER 22684 . 23215)) (23259 31132 (GETHASH.INDEX 23269 . 24045) ( -INDEX.PAGE.NUMBER 24047 . 25700) (INDEX.MANUAL.DELIMITER 25702 . 26334) (INDEX.STRING 26336 . 27346) ( -GET.INDEXENTRY.NUMBER 27348 . 28368) (INDEX.LIST.REFS 28370 . 29888) (LIST.OF.INDEXENTRIES 29890 . -31130)) (31174 40965 (CREATE.INDEX.FILE 31184 . 33079) (DUMP.INDEX 33081 . 34931) (VIEW.INDEX.FILE -34933 . 35993) (GET.INDEX.FILE 35995 . 36385) (WRITE.INDEX.FILE 36387 . 38788) ( -WRITE.INDEX.PAGENUMBERS 38790 . 39990) (RESET.INDEX.PAGENUMBERS 39992 . 40963)) (41163 45188 ( -SELECTION.TO.STRING 41173 . 44005) (SELECTION.TO.INDEX 44007 . 45186))))) + (FILEMAP (NIL (3091 11064 (INDEXOBJ 3101 . 4124) (INDEXOBJP 4126 . 4574) (INDEX.DISPLAYFN 4576 . 6435) + (INDEX.IMAGEBOXFN 6437 . 7983) (INDEX.PUTFN 7985 . 8415) (INDEX.GETFN 8417 . 8808) (INDEX.COPYFN 8810 + . 9453) (INDEX.BUTTONEVENTINFN 9455 . 11062)) (11103 19204 (INSERT.INDEX 11113 . 11700) ( +INSERT.INDEXENTRY 11702 . 14485) (INSERT.KNOWN.INDEX 14487 . 16671) (SUBITEM.SELECTFN 16673 . 17667) ( +ADD.NEW.INDEX 17669 . 19202)) (19270 23201 (CHANGE.INDEX 19280 . 19848) (CHANGE.INDEXENTRY 19850 . +20600) (CHANGE.XINDEX.KEY 20602 . 21160) (CHANGE.XINDEX.ENTRY 21162 . 21795) (CHANGE.XINDEX.FONT 21797 + . 22666) (CHANGE.XINDEX.NUMBER 22668 . 23199)) (23243 31116 (GETHASH.INDEX 23253 . 24029) ( +INDEX.PAGE.NUMBER 24031 . 25684) (INDEX.MANUAL.DELIMITER 25686 . 26318) (INDEX.STRING 26320 . 27330) ( +GET.INDEXENTRY.NUMBER 27332 . 28352) (INDEX.LIST.REFS 28354 . 29872) (LIST.OF.INDEXENTRIES 29874 . +31114)) (31158 41218 (CREATE.INDEX.FILE 31168 . 33239) (DUMP.INDEX 33241 . 35091) (VIEW.INDEX.FILE +35093 . 36153) (GET.INDEX.FILE 36155 . 36638) (WRITE.INDEX.FILE 36640 . 39041) ( +WRITE.INDEX.PAGENUMBERS 39043 . 40243) (RESET.INDEX.PAGENUMBERS 40245 . 41216)) (41416 45441 ( +SELECTION.TO.STRING 41426 . 44258) (SELECTION.TO.INDEX 44260 . 45439))))) STOP diff --git a/lispusers/tmax/TMAX-INDEX.LCOM b/lispusers/tmax/TMAX-INDEX.LCOM index 1f2b9c17b4c7bb9495f6b6e2dcb11051c7372a25..e48ab4d74c043345f2568408ce56d3d92e916f21 100644 GIT binary patch delta 1097 zcma)5zi-n}5KhwaD@CZS)PjnHPF5i?!d9MRJ5B~#H-07tJGN}6O)4>@OW+!&X4S;Rj_Oe$1vZ<_N7yPB_*4Ui$eh)F z!wCgJhC;bQ$`w&zAkQ2QPKLc#-3|=;z(8hcFLps>*#GK1I1A16 z=5;XuQ7)H+aGYkY{?^}EW^rOJ-8Jln$7wi&kfiS{WMj~Si;c|p%_~~NvRdJ4Zfo*$ zF_l_WFITsZQ}|`0O6gr*-ldNxfI>@;xmTNIp)y{S=g?{1hsjxRf|RT zYs+)7r{^!#^Je%ZXIx7(vf)}j$4dn8FB(4YxVGi^j*A`up;-D?Rv_Wy{Ow8Av^}bC zfl!cURSh3VS%E#*@F{Q9HQMAOj{s2=EOC()!$>I!OCm%<1c)qv<~h2JqC}D*3X(|! z5e2XvijHjho{wg;fD{R6bYdpdXt!A>gp?ssMf3W+OLY$j5g@_g%N#WB?4iER8y4C< zW+{_cBu-3Ku+K)_XmY;gBui3PEef(cduzDAva}`_pla8vst+Oo>bkZIMLB%VDg-Cz zInx=auB)~{k-^b)D9I2EJ4XSO2n3^(_L%GSJKb>*eq`4(q7;5&Nv24`AMB%vK;$ei zok73L;D{7l%%~D${9E}NHFv3RR8<@i?6@uqk_1d_ez6S9-f3^t>mNf*p6p(+08F*r z&y8R(?DnTON4T4~4`|hCw@}fPY~FzaT)cl+T1fAPUpf2Mhr~+DFP2kzg4qaPPlk0oK|e=xB;y>u19Nb;DoRc zS2bxH6;r@+RTL{(Y?C`A)CNS1n$zE@5t(Q} z6jRYnA|t4v=c8BqgO~jtjD~<ifp ztpYdltkW;TlX+0}I&P$I1XTJ*E@`BcmaAY!jBdJNJFeNhJN$9wZ< zxQl{3xl{PDc-8fJ`_p21MfjXFHVH zUi!XT6m_7Cg$z`jPO65&la8ZV9TsC2kH&BkaMrvA19FIPZC&zd(C%k-vNOl18R1Mtmax>TMAX-NGRAPH.;14| 27479 +(FILECREATED "12-Apr-2026 23:42:38" |{WMEDLEY}tmax>TMAX-NGRAPH.;15| 27461 :EDIT-BY |rmk| - :CHANGES-TO (FNS NGROUP.CHARTYPE.CONVERT UPDATE.NUMBEROBJS DOWNDATE.NUMBEROBJS NGROUP.CHARTYPE - INITIAL.NGROUP.GRAPH RESET.DEPENDENT.CLASSES GET.NCOUNTER GRAPHMENU - CREATE.NGROUP.NODE FLATTEN.TREE.TO.STRING) - (VARS TMAX-NGRAPHCOMS) + :CHANGES-TO (FNS TSP.GET.NGROUP.ARRAY) - :PREVIOUS-DATE "23-Feb-2025 22:59:05" |{WMEDLEY}tmax>TMAX-NGRAPH.;11|) + :PREVIOUS-DATE "28-Feb-2025 23:52:01" |{WMEDLEY}tmax>TMAX-NGRAPH.;14|) (PRETTYCOMPRINT TMAX-NGRAPHCOMS) @@ -197,9 +194,13 @@ (CADR (GETHASH NGID (TSP.GET.NGROUP.ARRAY TSTREAM))))) (TSP.GET.NGROUP.ARRAY - (LAMBDA (TSTREAM) (* \; "Edited 21-Feb-2025 10:17 by rmk") + (LAMBDA (TSTREAM) (* \; "Edited 12-Apr-2026 23:40 by rmk") + (* \; "Edited 21-Feb-2025 10:17 by rmk") (* |ss:| "27-Jun-87 16:21") - (TMAXPROP TSTREAM 'TSP.NGROUP.ARRAY))) + (OR (TMAXPROP TSTREAM 'TSP.NGROUP.ARRAY) + (LET ((ARRAY (HASHARRAY 30))) + (TMAXPROP TSTREAM 'TSP.NGROUP.ARRAY (HASHARRAY 30)) + ARRAY)))) (tsp.legalid (lambda (prev.ngroups stream) (* |fsg| " 3-Aug-87 17:04") @@ -485,15 +486,15 @@ |finally| (TMAXPROP TSTREAM 'COUNTERS NIL)))) ) (DECLARE\: DONTCOPY - (FILEMAP (NIL (1692 12881 (GRAPHMENU 1702 . 2983) (INITIAL.NGROUP.GRAPH 2985 . 3763) ( -NGROUP.MAKE.ROOTNODE 3765 . 3986) (TSPGRAPHREGION 3988 . 4639) (CLOSE.NGROUP.GRAPH 4641 . 5245) ( -NGROUP.GRAPH.CLOSEFN 5247 . 5904) (ADD.NGROUP.TO.MOTHER.NODE 5906 . 6411) (ADD.NODE.TO.GRAPH 6413 . -7624) (COLLECT.HASHARRAY 7626 . 7912) (CREATE.NGROUP.NODE 7914 . 8749) (GET.FROMNODES 8751 . 9057) ( -GET.TONODES 9059 . 9646) (FIND.NODE 9648 . 9927) (TSP.GET.NGROUP.ARRAY 9929 . 10199) (TSP.LEGALID -10201 . 11362) (LIST.ANCESTORS 11364 . 11893) (TOPLEVEL.SISTERS 11895 . 12333) (GET.NGROUP.MOTHER -12335 . 12879)) (12928 27456 (DOWNDATE.NUMBEROBJS 12938 . 14887) (UPDATE.NUMBEROBJS 14889 . 16686) ( -RESET.DEPENDENT.CLASSES 16688 . 17263) (RESET.NCOUNTER 17265 . 18156) (GET.NCOUNTER 18158 . 19417) ( -NCOUNTER? 19419 . 21229) (FLATTEN.TREE.TO.STRING 21231 . 23129) (NGROUP.CHARTYPE 23131 . 24689) ( -NGROUP.CHARTYPE.CONVERT 24691 . 26076) (NUMBER.TO.LETTER 26078 . 27068) (REMOVE.ALL.COUNTERS 27070 . -27454))))) + (FILEMAP (NIL (1437 12863 (GRAPHMENU 1447 . 2728) (INITIAL.NGROUP.GRAPH 2730 . 3508) ( +NGROUP.MAKE.ROOTNODE 3510 . 3731) (TSPGRAPHREGION 3733 . 4384) (CLOSE.NGROUP.GRAPH 4386 . 4990) ( +NGROUP.GRAPH.CLOSEFN 4992 . 5649) (ADD.NGROUP.TO.MOTHER.NODE 5651 . 6156) (ADD.NODE.TO.GRAPH 6158 . +7369) (COLLECT.HASHARRAY 7371 . 7657) (CREATE.NGROUP.NODE 7659 . 8494) (GET.FROMNODES 8496 . 8802) ( +GET.TONODES 8804 . 9391) (FIND.NODE 9393 . 9672) (TSP.GET.NGROUP.ARRAY 9674 . 10181) (TSP.LEGALID +10183 . 11344) (LIST.ANCESTORS 11346 . 11875) (TOPLEVEL.SISTERS 11877 . 12315) (GET.NGROUP.MOTHER +12317 . 12861)) (12910 27438 (DOWNDATE.NUMBEROBJS 12920 . 14869) (UPDATE.NUMBEROBJS 14871 . 16668) ( +RESET.DEPENDENT.CLASSES 16670 . 17245) (RESET.NCOUNTER 17247 . 18138) (GET.NCOUNTER 18140 . 19399) ( +NCOUNTER? 19401 . 21211) (FLATTEN.TREE.TO.STRING 21213 . 23111) (NGROUP.CHARTYPE 23113 . 24671) ( +NGROUP.CHARTYPE.CONVERT 24673 . 26058) (NUMBER.TO.LETTER 26060 . 27050) (REMOVE.ALL.COUNTERS 27052 . +27436))))) STOP diff --git a/lispusers/tmax/TMAX-NGRAPH.LCOM b/lispusers/tmax/TMAX-NGRAPH.LCOM index 3bd75f89c0710f29eddf70b621b4911d3fe4e8d4..bea7ab256d6ec3e191a17c0e7bcee0d7a400388b 100644 GIT binary patch delta 517 zcma)2%T9wp6a`m`CTe``^k!Dj2mwlK%gSjPS}dgmXtX;YC8kMjYjt7LN%)3_|8Udz z2Y!H`&ts7O@?V$hPAW+41ZSm_DwzaDxDHyody@6Z#0u zfM6@aHJ8B`b(aA(91_q}Nf5-0TW13iu>fhhj3-lBSM@UJMbpsDVg-SSZpL?$!7%Q_ zcmxRO?7U4Zm&_ALN>l;?Y1%hWQ%y}b4VBGZPvb8p1sXq1rVl2CDD;&Ei4?C9bh^HR zg8=t{4n`D^-F0197E=_3>GZE2<31Ibzu$XA)2JfpA6KLfUsx?s&`*rAmd<#z`t>aK}8y@u#;OdqVcT91RcGvSOR(a`>}f r&%ovuCmJf`Y(MDuP%J?chs|7Ct1dUoa|i4=z4DRSkGvM%=H>o7?tXr9 delta 506 zcmZvYy-wUf6oqZlL{<{f5N#85HI-d>WP5kD;EGxM+B;y+jK*U^QYC~HLdp*!DJVwD zGa$bK4?scsJVPFZ2S~wKq(DiUTb#MynRCyt{hI?BmRNCtam5>qxu_&;D^?t^8i8)Xzo_)4Js=jI9F-$2X5ZIIV-$vwr zz6%ol6J%KV;nSIgY%yEx4wpU|zgYCDbV;e`+a+qb-0z^2uf^Y*sI}}BEmlmMHwqyb z?w)K7*ISeCH5w`k*^lKwt(jW2D0+A(fd1ixEFDud%or5ZXhdox?TqH4jvzc_x&za) zquA{`heEbp1i8|9$YtNfV;Xnn^ih3TKHtrgIoWVg++BWpyYco}${_*cY>~AQc+Wl0 c^Y>2O^n!70dSRNt!?V&-xr%<=y?FQX9;M!cf&c&j diff --git a/lispusers/tmax/TMAX-NGROUP b/lispusers/tmax/TMAX-NGROUP index a047f81c..794a157d 100644 --- a/lispusers/tmax/TMAX-NGROUP +++ b/lispusers/tmax/TMAX-NGROUP @@ -1,19 +1,12 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) +(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10) -(FILECREATED "28-Feb-2025 23:58:44" |{WMEDLEY}tmax>TMAX-NGROUP.;54| 51157 +(FILECREATED "16-May-2026 09:27:29" |{MEDLEY}tmax>TMAX-NGROUP.;58| 51129 :EDIT-BY |rmk| - :CHANGES-TO (FNS CHANGE.NGROUP.FORMAT CHANGE.NGROUP.FORMAT.ABBREV CHANGE.NGROUP.FORMAT.START - WRITE.TOC.ENTRY MAP.NGROUP.LOOKS GET.PREVIOUS.NGROUPS NGROUP.TOC.ENTRIES - CHANGE.NGROUP CHANGE.NGROUP.FONT CHANGE.NGROUP.FORMAT.TXTBEFORE - CHANGE.NGROUP.FORMAT.DELIMBEFORE CHANGE.NGROUP.FORMAT.DELIMAFTER - GET.NGROUP.TEMPLATE ADD.NUMBER.GROUP CHANGE.NGROUP.FORMAT.TOC - CHANGE.NGROUP.FORMAT.MANINDEX CHANGE.NGROUP.FORMAT.DISPLAY - UPDATE.NGROUP.MANINDEX GET.NGROUP.START SHOW.NGROUP.FONT NGROUP.GETFONT - NGROUP.FIXUP.RECORDS) + :CHANGES-TO (FNS WRITE.TOC.ENTRY CREATE.TOC.FILE WRITE.TOC.FILE) - :PREVIOUS-DATE "24-Feb-2025 09:25:39" |{WMEDLEY}tmax>TMAX-NGROUP.;49|) + :PREVIOUS-DATE "28-Feb-2025 23:58:44" |{MEDLEY}tmax>TMAX-NGROUP.;54|) (PRETTYCOMPRINT TMAX-NGROUPCOMS) @@ -704,25 +697,27 @@ CHAR))))))) (CREATE.TOC.FILE - (LAMBDA (TSTREAM TOC.FILE) (* \; "Edited 23-Feb-2025 11:49 by rmk") + (LAMBDA (TSTREAM TOC.FILE) (* \; "Edited 16-May-2026 09:18 by rmk") + (* \; "Edited 23-Feb-2025 11:49 by rmk") (* \; "Edited 21-Feb-2025 10:17 by rmk") (* |fsg| "16-Jul-87 11:46") (* |;;;| "Here to print the Table Of Contents. Each Line of the TOC consists of the NGroup, the corresponding text, followed by the current listing page number.") - (SETQ TOC.FILE (OR (OUTFILEP (OR TOC.FILE (GET.INDEX.FILE (TMAXPROP TSTREAM 'IMAGEOBJ.MENUW)))) - (ERROR (CONCAT "Can't open " TOC.FILE " as a index file")))) - (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Writing table of contents on " TOC.FILE) + (SETQ TOC.FILE (OR (OUTFILEP (OR TOC.FILE (GET.TOC.FILE (TMAXPROP TSTREAM 'IMAGEOBJ.MENUW)))) + (ERROR (CONCAT "Can't open table of contents file " TOC.FILE)))) + (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Writing contents on " TOC.FILE "...") T) - (LET ((IMAGESTREAM (OPENIMAGESTREAM '{NULL})) + (LET ((DUMMYSTREAM (OPENIMAGESTREAM (UNIX-TMP-FILE-NAME '|tmax-toc| '|pdf|) + 'PDF)) (TOC.LIST (TSP.LIST.OF.OBJECTS TSTREAM (FUNCTION NGROUP.TOC.ENTRIES))) (TOC.TABSTOP `(PARALOOKS (TABS ((,(FIXR (TIMES 72.27 6.125)) . DOTTEDLEFT))))) TOC.STREAM) - (* |;;| - "Make sure we have the page numbers, written in the image stream. Why not in TSTREAM?") + (* |;;| "Collect page numbers in the image objects") - (TEDIT.FORMAT.HARDCOPY TSTREAM IMAGESTREAM NIL NIL NIL NIL NIL NIL NIL NIL T) + (TEDIT.TO.IMAGEFILE TSTREAM DUMMYSTREAM) + (DELFILE DUMMYSTREAM) (COND ((AND TOC.LIST TOC.FILE) (SETQ TOC.STREAM (OPENTEXTSTREAM NIL NIL NIL NIL TOC.TABSTOP)) @@ -730,6 +725,7 @@ (SETQ TOC.FILE (TEDIT.PUT TOC.STREAM TOC.FILE NIL NIL NIL T)) (CLOSEF? TOC.FILE) (SETQ TOC.FILE (FULLNAME TOC.FILE)) + (TEDIT.PROMPTPRINT TSTREAM "done") TOC.FILE) (TOC.LIST (TEDIT.PROMPTPRINT TSTREAM "Please specify a file name for the table of contents" T) @@ -777,7 +773,8 @@ (MKATOM FILENAME))))) (WRITE.TOC.FILE - (LAMBDA (TOC.STREAM TOC.LIST TSTREAM) (* \; "Edited 21-Feb-2025 00:55 by rmk") + (LAMBDA (TOC.STREAM TOC.LIST TSTREAM) (* \; "Edited 16-May-2026 07:58 by rmk") + (* \; "Edited 21-Feb-2025 00:55 by rmk") (* |fsg| "26-Aug-87 15:37") (* |;;;| "Here to speficy the order of the Table-Of-Contents. The TOC is ordered by the top-level sister nodes.") @@ -788,20 +785,21 @@ (|for| TOC.MOTHER |in| (TOPLEVEL.SISTERS TSTREAM) |do| (DSPFONT |GP.DefaultFont| TOC.STREAM) (PRINTOUT TOC.STREAM T) - (|for| TOC.ITEM |in| TOC.LIST |when| (|with| NUMBEROBJ (|fetch| OBJECTDATUM - |of| (CAR TOC.ITEM)) + (|for| TOC.ITEM |in| TOC.LIST |when| (|with| NUMBEROBJ (|fetch| OBJECTDATUM |of| TOC.ITEM + ) (EQ (GET.NGROUP.MOTHER REF.TYPE TSTREAM) TOC.MOTHER)) |do| (WRITE.TOC.ENTRY TOC.ITEM TOC.STREAM TSTREAM))))) (WRITE.TOC.ENTRY - (LAMBDA (TOC.ITEM TOC.STREAM TSTREAM) (* \; "Edited 25-Feb-2025 10:35 by rmk") + (LAMBDA (TOC.ITEM TOC.STREAM TSTREAM) (* \; "Edited 16-May-2026 09:27 by rmk") + (* \; "Edited 25-Feb-2025 10:35 by rmk") (* \; "Edited 21-Feb-2025 00:55 by rmk") (* |fsg| "27-Jul-87 14:55") (* |;;;| "Write one line to the Table-Of-Contents file.") - (LET* ((DATUM (|fetch| OBJECTDATUM |of| (CAR TOC.ITEM))) + (LET* ((DATUM (|fetch| OBJECTDATUM |of| TOC.ITEM)) (ITEM.LEVEL (LENGTH (LIST.ANCESTORS (|fetch| (NUMBEROBJ REF.TYPE) |of| DATUM) NIL TSTREAM)))) (DSPFONT |GP.DefaultFont| TOC.STREAM) @@ -811,25 +809,29 @@ (T (RPTQ ITEM.LEVEL (PRINTOUT TOC.STREAM " ")))) (DSPFONT (|fetch| (NUMBEROBJ FONT) |of| DATUM) TOC.STREAM) - (PRINTOUT TOC.STREAM (|fetch| (NUMBEROBJ NUMSTRING) |of| DATUM)) + (PRINTOUT TOC.STREAM (OR (|fetch| (NUMBEROBJ TEXT.BEFORE#) |of| DATUM) + "") + (|fetch| (NUMBEROBJ NUMSTRING) |of| DATUM) + (OR (|fetch| (NUMBEROBJ TEXT.AFTER#) |of| DATUM) + "")) (DSPFONT |GP.DefaultFont| TOC.STREAM) (PRINTOUT TOC.STREAM (CHARACTER (CHARCODE TAB)) (|fetch| (NUMBEROBJ PAGE.NUMBER) |of| DATUM) T)))) ) (DECLARE\: DONTCOPY - (FILEMAP (NIL (2291 42669 (INSERT.NGROUP 2301 . 3781) (VERIFY.NGROUP.ORDER 3783 . 5571) ( -GET.PREVIOUS.NGROUPS 5573 . 6114) (ADD.NUMBER.GROUP 6116 . 8217) (ADD.NGROUP.TO.DBASE 8219 . 9128) ( -COLLECT.NGROUPS 9130 . 9830) (LIST.FONT.PROPS 9832 . 10096) (MAP.NGROUP.LOOKS 10098 . 12009) ( -NGROUP.GETFONT 12011 . 13286) (CHANGE.NGROUP 13288 . 14515) (CHANGE.NGROUP.FONT 14517 . 16876) ( -SHOW.NGROUP.FONT 16878 . 17607) (CHANGE.NGROUP.FORMAT 17609 . 20941) (SHOW.NGROUP.FORMAT 20943 . 21516 -) (GET.NGROUP.TEMPLATE 21518 . 22978) (CHANGE.NGROUP.FORMAT.DELIMBEFORE 22980 . 23962) ( -CHANGE.NGROUP.FORMAT.DISPLAY 23964 . 25654) (CHANGE.NGROUP.FORMAT.DELIMAFTER 25656 . 26634) ( -GET.NGROUP.DELIMITER 26636 . 28370) (CHANGE.NGROUP.FORMAT.ABBREV 28372 . 30663) ( -CHANGE.NGROUP.FORMAT.START 30665 . 31546) (GET.NGROUP.START 31548 . 33364) (CHANGE.NGROUP.FORMAT.TOC -33366 . 35382) (CHANGE.NGROUP.FORMAT.MANINDEX 35384 . 37819) (UPDATE.NGROUP.MANINDEX 37821 . 39359) ( -NGROUP.FIXUP.RECORDS 39361 . 42667)) (42718 51134 (GET.NGROUP.TEXTSTRING 42728 . 44110) ( -CONVERT.TABS.TO.SPACES 44112 . 44910) (CREATE.TOC.FILE 44912 . 46827) (NGROUP.TOC.ENTRIES 46829 . -47478) (VIEW.TOC.FILE 47480 . 48379) (GET.TOC.FILE 48381 . 48875) (WRITE.TOC.FILE 48877 . 49939) ( -WRITE.TOC.ENTRY 49941 . 51132))))) + (FILEMAP (NIL (1676 42054 (INSERT.NGROUP 1686 . 3166) (VERIFY.NGROUP.ORDER 3168 . 4956) ( +GET.PREVIOUS.NGROUPS 4958 . 5499) (ADD.NUMBER.GROUP 5501 . 7602) (ADD.NGROUP.TO.DBASE 7604 . 8513) ( +COLLECT.NGROUPS 8515 . 9215) (LIST.FONT.PROPS 9217 . 9481) (MAP.NGROUP.LOOKS 9483 . 11394) ( +NGROUP.GETFONT 11396 . 12671) (CHANGE.NGROUP 12673 . 13900) (CHANGE.NGROUP.FONT 13902 . 16261) ( +SHOW.NGROUP.FONT 16263 . 16992) (CHANGE.NGROUP.FORMAT 16994 . 20326) (SHOW.NGROUP.FORMAT 20328 . 20901 +) (GET.NGROUP.TEMPLATE 20903 . 22363) (CHANGE.NGROUP.FORMAT.DELIMBEFORE 22365 . 23347) ( +CHANGE.NGROUP.FORMAT.DISPLAY 23349 . 25039) (CHANGE.NGROUP.FORMAT.DELIMAFTER 25041 . 26019) ( +GET.NGROUP.DELIMITER 26021 . 27755) (CHANGE.NGROUP.FORMAT.ABBREV 27757 . 30048) ( +CHANGE.NGROUP.FORMAT.START 30050 . 30931) (GET.NGROUP.START 30933 . 32749) (CHANGE.NGROUP.FORMAT.TOC +32751 . 34767) (CHANGE.NGROUP.FORMAT.MANINDEX 34769 . 37204) (UPDATE.NGROUP.MANINDEX 37206 . 38744) ( +NGROUP.FIXUP.RECORDS 38746 . 42052)) (42103 51106 (GET.NGROUP.TEXTSTRING 42113 . 43495) ( +CONVERT.TABS.TO.SPACES 43497 . 44295) (CREATE.TOC.FILE 44297 . 46375) (NGROUP.TOC.ENTRIES 46377 . +47026) (VIEW.TOC.FILE 47028 . 47927) (GET.TOC.FILE 47929 . 48423) (WRITE.TOC.FILE 48425 . 49595) ( +WRITE.TOC.ENTRY 49597 . 51104))))) STOP diff --git a/lispusers/tmax/TMAX-NGROUP.LCOM b/lispusers/tmax/TMAX-NGROUP.LCOM index b7be2687a598ebf5b455e9426c52a2d5379e9228..8b3f54a5ac9a861ed4394b2240a6ea9b86fd3994 100644 GIT binary patch delta 1429 zcmai!-HY5*6u{@Bt#rgiJ60>A9D~qVbV6>vGt%y6GB>l?W|EL(*jeez>`rza-OeoA z5h@187exdgc8h z6+K;r8b_3emPBsJMvEw@xpR~(ZBs~-TZczCTPbXXPE7gOw|MHs;Wnh>NeZ0ZcU?H` zhv#{8F&fU2QTm@ph%(n${ogByMiw$VslIp~g9U{U(O_Sexu^aaMv(^gmvxDKTdjW- zK6$3LFsvx@asA9s;@M8W*V|?%>I;=}nLVyOXIz+;aG14hKA%lHmGwfD&yQxJaX#;7 z%Y4d}8LV7n2U_!q{A(k(b?$`boi+A_#;+{hT|SlZtlmI01^fV$PX}=nWA%HOcpW;_Ew&YL zVITXv(?gyLv8aRX3_>Ia_oIM+1^J43-{$@HCbi-S43fLeO%{H20)5XJG~-@SaGFP} zs@WYbssdQPXPGg`1ZWugAxJ7a(Vwj%9PBaU>A569$B*$cF17J01P?ab5k{avV1}ma z``7ST4ZLpX_k#yaIWz)Yg`i`Drb2o++Dkzrkj`!lZ#8Gr-4t}lqr}Mh9`*WL$PtLL z23-7Fa+JUjpUD*1heop^N$eZL*cXWo+-N#UI3S`3Do;cOBho+sr9t_hYqGs;;v?uCCUP z>zkvq)la`FeUQV3i+9*dYtIOk#VCLM$SIibZdA$z*0{>Ya-Y#PWB%T0Rp*UgZvR?p z;BNzh(D6u)9R7ar15wkLLRDI>6b-BmET4r+NS*+lD6oAG3oIE+9Zc-PSyt=Zt&T7h zigQpi#Pbsr6|P^mU!|cRfP@e)T!}Kc)a%9@*bb0`YI+upVn2+q);s9U;89+2Sdfi6aXSDzT delta 1479 zcmZuwPi)&{6pvH3(M*idt*yee@@A0MPO8ag$FbeDTEEzzQ+J7N*$z!%2hzn|!%EV% znKWrZJt1-bE*y}!aRO;-K|)Mo;s!?!J8(ltNFen9h#ME4os?!8pX5K^d%y3!_r2fm z{q>>n#YciSYcbn#*}Uyk*}UW09?baEyh$qzM8}O-P<29IgqeU*E28Bpnj2;n4P_cK zAceVHZZgB?8H-n3&@3YD8c=FoFE)VRvWY*)z`#7T9D*T(PXjv8oG$;L!ZZR8U2MSzphKD;Ym#crt*>ENkYyRfXe-{0p~-*O zlx#ugGrI8(DQHlV2u>s^$e_uRtbtktac#HVYj^HIueq@uLw6HycRRhf)7u+NwNk>- zZtg)7+MQPX05);pMNkSLn$6DD9&~r&&f&NEKUv{E|K@r_7fvU{{*V#MDcLK3e7w3` zPI-OeWY-@(&CHU5F+$B?+6R7M9r z|70mI2>jP2WB;oWMLluu{`BYwBdY}bz;Ou>ML}W%+yKFQ4vhqRJ8&0D$rJ|EL=d2& ztk6&ALDz=}?Zj4+k3(U*Zr!rqW=P-`C?^Q)X_dK^Xa(c~q)MT#$->ABLSzIr+OPPM j6>m20Z})8MZXd9`=WM0_$V_M?MHL$laCq&;_hbJ8a)E`= diff --git a/lispusers/tmax/TMAX.LCOM b/lispusers/tmax/TMAX.LCOM index 99851726b3c5fb9b9a21c1109c7f69d7e5077595..5addc9be56d2592c8cd041c94a8391fc9a751096 100644 GIT binary patch delta 640 zcmZvY&u-d45XPZ5=q-hYs%kWGFL3aRU5pJ@B5LrMZsLEn*OfR%p=wb|AXTNPs!*Q+ z`9)BX+6TxXx4c8%fd{BvrRuhDnbm&t&G#G4=IU>bw8R%ic56R=u+?Dr+(w7&BYcq=o`@<$N}sPd>gI!|W0i`0AnU z;%ITSTs?hmG@z_dX^v{9)-`Ecf#rRL`@<+mLJ$3fpr14C9!#?dB*OouTSQP=(%Z?wzjvK1hN$% z;NF?h;rplKby}>od6F-ZmF8rp$wFJElSTSg5@hX7R?KIsDSw^O7PEDJzOCOZlM5|& z^%ueuqI4MB;CD;0Br29wNoGAxiu704^dc|Tk5yP@n=?iVGp52CI}X$@3xa@Pl5CjD zCh3-w5Y*w?)yo*neoRe3;-6+q=Jx-&1Kh`ifJ#j}=7%q#Sk8e{jRV~q(TIjum^3mvpavm5vi)(yn@letsmr@baXlL>sxn*se^gs_{y7WM;i!4_ zb?4h%=T)oK+L^M@I(xR=xaxen3ZJX+>EYkOk0`6)26%br-fr0^K*P`vp*H~LZ$x7| zrY`gdL@}F&8-#uUa<`5VxsGA6j)_VQV^i%j){s({dgCpxG636Uzuq4{7pmm+7!(ZN pDD=m{HUXsDtT+ZqY7}6lNhyjqFOYgY69IDXGT41|b?g2C`T-_m_0#|W