Interlisp.medley/lispusers/tmax/TMAX-NGRAPH.LCOM

(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10)

(FILECREATED "12-Apr-2026 23:42:38" ("compiled on " |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;15|) 
"11-Apr-2026 10:12:40" |brecompiled| |exprs:| TSP.GET.NGROUP.ARRAY |in| "FULL 11-Apr-2026 ..." |dated|
 "11-Apr-2026 10:12:49")
(FILECREATED "12-Apr-2026 23:42:38" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;15| 27461 :EDIT-BY |rmk| 
:CHANGES-TO (FNS TSP.GET.NGROUP.ARRAY) :PREVIOUS-DATE "28-Feb-2025 23:52:01" 
|{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;14|)
GRAPHMENU :D8
(P 2 GRAPHW P 1 REGION P 0 GRAPH I 0 TSTREAM) Å
@g
¬@g
µ@	
Hi


Iohi
@	–@	¿JghJ@	ggg
HJgg@gh@gJ@gHJggJg@(194 PUTWINDOWPROP 182 PUTWINDOWPROP 166 STREAMPROP 154 STREAMPROP 142 STREAMPROP 130 SHOWGRAPH 113 ATTACHWINDOW 92 \\TEDIT.PRIMARYPANE 85 PUTWINDOWPROP 72 CLOSE.NGROUP.GRAPH 65 NGROUPMENU.ENABLED? 56 CREATEW 40 TSPGRAPHREGION 30 INITIAL.NGROUP.GRAPH 22 STREAMPROP 10 STREAMPROP)
(188 TSTREAM 177 NGROUP.GRAPH.CLOSEFN 172 CLOSEFN 160 NGROUP.GRAPH 148 NGROUPW 136 REBUILD.GRAPHFLG 125 CHANGE.NGROUP 120 INSERT.NGROUP 107 LOCALCLOSE 102 JUSTIFY 97 TOP 79 REPAINTFN 17 NGROUP.GRAPH 5 REBUILD.GRAPHFLG)
( 49 "Number Group Graph")
INITIAL.NGROUP.GRAPH :D8
(P 4 NODELST P 0 ROOTNODE I 0 TSTREAM) `

0@		°d

¹JµIh[<5B>I&ºµîK
g@
³HL¼ghddH@
¿Lo
(93 LAYOUTGRAPH 81 ADD.NGROUP.TO.DBASE 59 FIND.NODE 21 COLLECT.HASHARRAY 16 TSP.GET.NGROUP.ARRAY 4 NGROUP.MAKE.ROOTNODE)
(70 NEW.NGROUP 53 NEW.NGROUP)
( 88 (NEW.NGROUP))
NGROUP.MAKE.ROOTNODE :D8
NIL 'gghddgl
gk
(36 NODECREATE 29 FONTCREATE)
(24 BRR 17 HELVETICA 9 |NGroups| 4 NEW.NGROUP)
()
TSPGRAPHREGION :D8
(P 0 R I 2 BORDER I 1 TITLEFLG I 0 GRAPH) *
@	
HH
	HH
ABH(37 HEIGHTIFWINDOW 20 WIDTHIFWINDOW 5 GRAPHREGION)
NIL
()
CLOSE.NGROUP.GRAPH :D8
(P 0 GRAPH.WINDOW I 0 TSTREAM) (

@g

HgiH	H	(37 CLOSEW 31 FREEATTACHEDWINDOW 25 PUTWINDOWPROP 10 STREAMPROP)
(19 PROGRAM.CLOSE 5 NGROUPW)
()
NGROUP.GRAPH.CLOSEFN :D8
(P 0 FMWINDOW I 0 GRAPH.WINDOW) B

@g
³4@g
g

ghHhH@	h(61 FREEATTACHEDWINDOW 55 FM.CHANGESTATE 48 FM.GETITEM 33 STREAMPROP 23 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP)
(41 NGROUP.MENU 28 IMAGEOBJ.MENUW 18 TSTREAM 5 PROGRAM.CLOSE)
()
ADD.NGROUP.TO.MOTHER.NODE :D8
(P 1 TONODES P 0 MOTHER.NODE I 2 TSTREAM I 1 MOTHERID I 0 ID) ,AB

H
¹@I
µH@I
(26 MEMBER 6 FIND.NODE)
NIL
()
ADD.NODE.TO.GRAPH :D8
(P 1 TONODES P 0 PARENT.NODE I 2 TSTREAM I 1 GRAPH I 0 NODE) S@

B

@
¹@
I
³H@
H
¿A@A
¿A
o
(80 LAYOUTGRAPH 37 MEMBER 16 FIND.NODE)
NIL
( 75 (NEW.NGROUP))
COLLECT.HASHARRAYA0001 :D8
(L (1 KY 0 VAL) F 0 RESULT) 
@PcNIL
NIL
()
COLLECT.HASHARRAY :D8
(P 0 RESULT I 0 HARRAY) 

@g
H(13 MAPHASH)
(8 COLLECT.HASHARRAYA0001)
()
CREATE.NGROUP.NODE :D8
(P 1 NODE P 0 NGROUP.HARRAY I 3 TSTREAM I 2 USERDATA I 1 MOTHER I 0 ID) HC	
@H
Yµ.@B@dgð–¿ŒdhdAh
YhH¿Id–
£IBh(58 PUTHASH 48 NODECREATE 35 NGROUP.MAKE.ROOTNODE 15 GETHASH 5 TSP.GET.NGROUP.ARRAY)
(27 NEW.NGROUP)
()
GET.FROMNODES :D8
(I 1 TSTREAM I 0 NGID) @A


(6 FIND.NODE)
NIL
()
GET.TONODES :D8
(P 0 TONODES I 1 WINDOW I 0 NGID) 
@A


Hd•	
(26 REVERSE 6 FIND.NODE)
NIL
()
FIND.NODE :D8
(I 1 TSTREAM I 0 NGID) @A	

(11 GETHASH 6 TSP.GET.NGROUP.ARRAY)
NIL
()
TSP.GET.NGROUP.ARRAY :D8
(P 0 ARRAY I 0 TSTREAM) ,

@g
µl	
@gl	H(40 STREAMPROP 35 HASHARRAY 19 HASHARRAY 10 STREAMPROP)
(28 TSP.NGROUP.ARRAY 5 TSP.NGROUP.ARRAY)
()
TSP.LEGALID :D8
(P 0 NGROUP.ID I 1 STREAM I 0 PREV.NGROUPS) E
Ao
	
H@
¡HAHdgð•o„o

	X°Ò(64 MKATOM 59 TEDIT.GETINPUT 54 CONCAT 25 MEMBER 15 MKATOM 10 TEDIT.GETINPUT)
(36 NEW.NGROUP)
( 49 " already exists...Group name:" 43 " is a reserved name...Group name:" 5 "Group name:")
LIST.ANCESTORS :D8
(P 0 MOTHER I 2 TSTREAM I 1 ANCESTORS I 0 NID) #
@B

HµAgð³øHdAB(32 LIST.ANCESTORS 6 GET.FROMNODES)
(19 NEW.NGROUP)
()
TOPLEVEL.SISTERS :D8
(I 0 TSTREAM) 
g@

	(23 REVERSE 10 FIND.NODE)
(4 NEW.NGROUP)
()
GET.NGROUP.MOTHER :D8
(P 0 ANCESTORS I 1 TSTREAM I 0 NGID) 
@hA
Hµ
@A
´@
(20 FIND.NODE 7 LIST.ANCESTORS)
NIL
()
DOWNDATE.NUMBEROBJS :D8
(P 2 NBROBJ P 0 NBROBJ.LIST I 1 OBJSELECTFN I 0 TSTREAM) Ñ@A

H´‚±Á@oAdgð—¿o°gð•o„ooiH°vd

J
ÉYh¿I
²RIh¿I
h¿II
dgð²¿oI
oŒgð´o¿@J

¿µ‹@o
(206 TEDIT.PROMPTPRINT 189 TEDIT.OBJECT.CHANGED 165 CONCAT 73 TEDIT.PROMPTPRINT 67 CONCAT 6 TSP.LIST.OF.OBJECTS)
(171 NOTE 144 NGROUP 88 IMAGEOBJ 44 ENDNOTEP 29 NGROUPP)
( 201 "done" 179 "[Note#]" 160 "]" 153 "[" 62 "..." 57 "Number Groups and Endnotes" 51 "Endnotes" 37 "Number Groups"
 22 "Undoing Update of ")
UPDATE.NUMBEROBJS :D8
(P 4 DATUM P 3 NEW.COUNT P 2 NBROBJ P 0 NBROBJ.LIST I 1 OBJSELECTFN I 0 TSTREAM) ²@A

H´U@oAdgð—¿o°gð•o„ooiH1Iµ@	@o

Zɼ@L
L
¿@L
L
L
L
L
»LK
²Li¿@J
¿IY°œ(170 TEDIT.OBJECT.CHANGED 152 NUMBER.NUMSTRING 144 GET.NCOUNTER 118 RESET.DEPENDENT.CLASSES 95 TEDIT.PROMPTPRINT 84 REMOVE.ALL.COUNTERS 69 TEDIT.PROMPTPRINT 63 CONCAT 6 TSP.LIST.OF.OBJECTS)
(103 IMAGEOBJ 40 ENDNOTEP 25 NGROUPP)
( 90 "done" 58 "..." 53 "Number Groups and Endnotes" 47 "Endnotes" 33 "Number Groups" 18 "Updating ")
RESET.DEPENDENT.CLASSES :D8
(P 0 DEPENDENT I 2 REF.TYPE I 1 USE I 0 TSTREAM) /
B@

°d

@AH¿@AHµçh(38 RESET.DEPENDENT.CLASSES 29 RESET.NCOUNTER 6 FIND.NODE)
NIL
()
RESET.NCOUNTER :D8
(P 0 TEMPLATE I 2 REF.TYPE I 1 USE I 0 TSTREAM) 6
Agð´B@	



@ABHHµj

kÙ°ø(38 NCOUNTER? 20 GETHASH 15 TSP.GET.NGROUP.ARRAY)
(5 NGROUP)
()
GET.NCOUNTER :D8
(P 0 COUNTER I 5 NBR.DATUM I 4 TEMPLATE I 3 MOTHER.CLASS I 2 REF.TYPE I 1 USE I 0 TSTREAM) =
@ABD
Hd²-d
kÔAgðšD˜DH
¿C™@ABEH
	(58 MKSTRING 50 FLATTEN.TREE.TO.STRING 8 NCOUNTER?)
(26 NGROUP)
()
NCOUNTER? :D8
(P 0 COUNTER.ID I 3 TEMPLATE I 2 REF.TYPE I 1 USE I 0 TSTREAM) ‘
Adgð²¿oBo°gð•oŠoA
o
	
@H
µ:@HAgð’Cµ.jAgð´
Bh@@gH@H

kÙ°Ð(135 STREAMPROP 128 STREAMADDPROP 116 STREAMPROP 110 LIST.ANCESTORS 77 STREAMPROP 67 MKATOM 62 CONCAT 52 ERROR 26 CONCAT)
(122 COUNTERS 99 NGROUP 87 NGROUP 33 NOTE 6 NGROUP)
( 57 "COUNTER" 46 "Unknown NUMBER type" 40 "ENDNOTE." 21 "." 15 "NGROUP.")
FLATTEN.TREE.TO.STRING :D8
(P 4 ANCESTOR P 3 FLAT.TREE P 2 ABBREVVAL P 1 NGROUP.LIST P 0 NGROUP.COUNTER I 3 NBR.DATUM I 2 REF.TYPE I 1 USE I 0 TSTREAM) †@AB
Hh


C
´C
h@!o»I²3I
I¹\²+J˜LJ
³ïK@L@AL
I
µB
»°ÑK@BH
h
(131 CONCAT 126 NGROUP.CHARTYPE 112 CONCAT 107 NGROUP.CHARTYPE 96 NCOUNTER? 83 MEMB 54 LIST.ANCESTORS 18 \\APPEND2 7 NCOUNTER?)
NIL
( 62 "")
NGROUP.CHARTYPE :D8
(P 1 DELIMITFLG P 0 TEMPLATE I 3 NEXT.NGROUP I 2 NCOUNT I 1 REF.TYPE I 0 TSTREAM) `A@	


Cd²@	




H
µoHB
I•o‰H
µo(93 CONCAT 70 NGROUP.CHARTYPE.CONVERT 32 GETHASH 27 TSP.GET.NGROUP.ARRAY 11 GETHASH 6 TSP.GET.NGROUP.ARRAY)
NIL
( 88 "" 77 "" 63 "")
NGROUP.CHARTYPE.CONVERT :D8
(P 0 CHARTYPE I 1 NCOUNT I 0 TEMPLATE) ²
AjثoA
¿@

kAñ²Ho
«oA
¿kAñœHdo
•ogð—Ai
Hdgð—¿A	gð—Ai
Hdgð—¿A	gð•oHgð–A	oH
(175 ERROR 163 MKSTRING 135 ROMANNUMERALS 118 ROMANNUMERALS 103 NUMBER.TO.LETTER 86 NUMBER.TO.LETTER 65 MEMB 48 ERROR 36 MEMB 14 ERROR)
(155 |Number| 141 |Null String| 126 |lowercase roman| 109 UPPERCASE\ ROMAN 94 |lowercase letter| 77 UPPERCASE\ LETTER)
( 169 "Unknown display type" 148 "" 71 "Number out of order?" 60 (|Number| |Null String|) 42 "Invalid integer"
 31 (|Number| |Null String|) 8 "Invalid integer")
NUMBER.TO.LETTER :D8
(P 1 LTRNBR P 0 LTRLST I 1 UCFLG I 0 NUMBER) ZlA@kÙlÜØ		@kÙlÛ
Ijð³*IµlAIlÜØkÙ	H
¸IlÛY°Ý	²ßA–H	H	(87 L-CASE 80 U-CASE 70 \\FZEROP 57 CONCAT 51 CHARACTER 18 MKSTRING 13 CHARACTER)
NIL
()
REMOVE.ALL.COUNTERS :D8
(P 1 COUNTER I 0 TSTREAM) 1
@g

Hµ@ghh
¹@Ih¿HX°á(41 STREAMPROP 29 STREAMPROP 10 STREAMPROP)
(23 COUNTERS 5 COUNTERS)
()
(PRETTYCOMPRINT TMAX-NGRAPHCOMS)
(RPAQQ TMAX-NGRAPHCOMS ((* |;;| "Developed under support from NIH grant RR-00785.") (* |;;| 
"Written by Frank Gilmurray and Sami Shaio.") (* |;;| "Number Group GRAPH functions") (FNS GRAPHMENU 
INITIAL.NGROUP.GRAPH NGROUP.MAKE.ROOTNODE TSPGRAPHREGION CLOSE.NGROUP.GRAPH NGROUP.GRAPH.CLOSEFN 
ADD.NGROUP.TO.MOTHER.NODE ADD.NODE.TO.GRAPH COLLECT.HASHARRAY CREATE.NGROUP.NODE GET.FROMNODES 
GET.TONODES FIND.NODE TSP.GET.NGROUP.ARRAY TSP.LEGALID LIST.ANCESTORS TOPLEVEL.SISTERS 
GET.NGROUP.MOTHER) (* |;;;| "Number counting functions") (FNS DOWNDATE.NUMBEROBJS UPDATE.NUMBEROBJS 
RESET.DEPENDENT.CLASSES RESET.NCOUNTER GET.NCOUNTER NCOUNTER? FLATTEN.TREE.TO.STRING NGROUP.CHARTYPE 
NGROUP.CHARTYPE.CONVERT NUMBER.TO.LETTER REMOVE.ALL.COUNTERS)))
NIL