1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00

doc/ref/hierarchy.png: conform to hierarchy.txt and manual

hierarchy.png (and .pdf, .eps) were changed to add one node
to the graph, getting them in sync with hierarchy.txt
(and the GOOPS section of the manual).

Also added hierarchy.dot, a file to generate said figure
using graphviz.
This commit is contained in:
Greg Benison 2011-12-24 11:27:12 -08:00 committed by Andy Wingo
parent e211d69d9d
commit 5156f4d745
4 changed files with 620 additions and 125 deletions

21
doc/ref/hierarchy.dot Normal file
View file

@ -0,0 +1,21 @@
/*
* Process this file with graphviz to produce hierarchy.[png,eps]
* e.g. dot hierarchy.dot -Tpng > hierarchy.png
*/
digraph hierarchy {
graph [rankdir="BT"];
node [shape="none"];
F -> D
F -> E
D -> A
E -> A
D -> B
E -> C
A -> "<object>"
B -> "<object>"
C -> "<object>"
"<object>" -> "<top>"
"<pair>" -> "<top>"
"<procedure>" -> "<top>"
"<integer>" -> "<real>" -> "<complex>" -> "<number>" -> "<top>"
}

View file

@ -1,127 +1,601 @@
%!PS-Adobe-2.0 EPSF
%%Title: /tmp/xfig-fig016295
%%Creator: fig2dev
%%CreationDate: Fri Jun 10 23:18:16 1994
%%For: eg@kaolin (Erick Gallesio)
%%BoundingBox: 0 0 361 217
%%Pages: 0
%!PS-Adobe-3.0
%%Creator: graphviz version 2.26.3 (20100126.1600)
%%Title: hierarchy
%%Pages: (atend)
%%BoundingBox: (atend)
%%EndComments
/$F2psDict 200 dict def
$F2psDict begin
$F2psDict /mtrx matrix put
/l {lineto} bind def
/m {moveto} bind def
/s {stroke} bind def
/n {newpath} bind def
/gs {gsave} bind def
/gr {grestore} bind def
/clp {closepath} bind def
/graycol {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
4 -2 roll mul setrgbcolor} bind def
/col-1 {} def
/col0 {0 0 0 setrgbcolor} bind def
/col1 {0 0 1 setrgbcolor} bind def
/col2 {0 1 0 setrgbcolor} bind def
/col3 {0 1 1 setrgbcolor} bind def
/col4 {1 0 0 setrgbcolor} bind def
/col5 {1 0 1 setrgbcolor} bind def
/col6 {1 1 0 setrgbcolor} bind def
/col7 {1 1 1 setrgbcolor} bind def
end
/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
/$F2psEnd {$F2psEnteredState restore end} def
%%EndProlog
save
%%BeginProlog
/DotDict 200 dict def
DotDict begin
$F2psBegin
0 setlinecap 0 setlinejoin
-216.0 288.0 translate 0.900 -0.900 scale
0.500 setlinewidth
n 309 159 m 309 159 l gs col-1 s gr
n 246.401 216.889 m 244.000 209.000 l 249.831 214.831 l gs 2 setlinejoin col-1 s gr
% Polyline
n 244 209 m 274 259 l gs col-1 s gr
n 298.169 214.831 m 304.000 209.000 l 301.599 216.889 l gs 2 setlinejoin col-1 s gr
% Polyline
n 304 209 m 274 259 l gs col-1 s gr
n 255.721 213.778 m 249.000 209.000 l 257.179 210.053 l gs 2 setlinejoin col-1 s gr
% Polyline
n 249 209 m 364 254 l gs col-1 s gr
n 370.312 216.376 m 374.000 209.000 l 374.217 217.243 l gs 2 setlinejoin col-1 s gr
% Polyline
n 374 209 m 364 254 l gs col-1 s gr
n 283.772 280.725 m 279.000 274.000 l 286.376 277.688 l gs 2 setlinejoin col-1 s gr
% Polyline
n 279 274 m 314 304 l gs col-1 s gr
n 351.457 272.333 m 359.000 269.000 l 353.913 275.490 l gs 2 setlinejoin col-1 s gr
% Polyline
n 359 269 m 314 304 l gs col-1 s gr
n 300.950 165.789 m 309.000 164.000 l 302.739 169.367 l gs 2 setlinejoin col-1 s gr
% Polyline
n 309 164 m 249 194 l gs col-1 s gr
n 307.000 172.000 m 309.000 164.000 l 311.000 172.000 l gs 2 setlinejoin col-1 s gr
% Polyline
n 309 164 m 309 199 l gs col-1 s gr
n 315.261 169.367 m 309.000 164.000 l 317.050 165.789 l gs 2 setlinejoin col-1 s gr
% Polyline
n 309 164 m 379 199 l gs col-1 s gr
n 406.949 101.701 m 404.000 94.000 l 410.226 99.407 l gs 2 setlinejoin col-1 s gr
% Polyline
n 404 94 m 439 144 l gs col-1 s gr
n 410.363 99.245 m 404.000 94.000 l 412.083 95.634 l gs 2 setlinejoin col-1 s gr
% Polyline
n 404 94 m 509 144 l gs col-1 s gr
n 411.173 98.068 m 404.000 94.000 l 412.243 94.214 l gs 2 setlinejoin col-1 s gr
% Polyline
n 404 94 m 584 144 l gs col-1 s gr
n 396.075 96.277 m 404.000 94.000 l 398.079 99.739 l gs 2 setlinejoin col-1 s gr
% Polyline
n 404 94 m 309 149 l gs col-1 s gr
% Polyline
n 584 229 m 584 204 l gs col-1 s gr
n 582.000 212.000 m 584.000 204.000 l 586.000 212.000 l gs 2 setlinejoin col-1 s gr
% Polyline
n 584 189 m 584 159 l gs col-1 s gr
n 582.000 167.000 m 584.000 159.000 l 586.000 167.000 l gs 2 setlinejoin col-1 s gr
/Times-Bold findfont 12.00 scalefont setfont
239 209 m
gs 1 -1 scale (A) col-1 show gr
/Times-Bold findfont 12.00 scalefont setfont
274 274 m
gs 1 -1 scale (D) col-1 show gr
/Times-Bold findfont 12.00 scalefont setfont
359 269 m
gs 1 -1 scale (E) col-1 show gr
/Times-Bold findfont 12.00 scalefont setfont
304 209 m
gs 1 -1 scale (B) col-1 show gr
/Times-Bold findfont 12.00 scalefont setfont
374 209 m
gs 1 -1 scale (C) col-1 show gr
/Times-Bold findfont 12.00 scalefont setfont
314 319 m
gs 1 -1 scale (F) col-1 show gr
/Times-Bold findfont 12.00 scalefont setfont
289 159 m
gs 1 -1 scale (<object>) col-1 show gr
/Times-Bold findfont 12.00 scalefont setfont
389 89 m
gs 1 -1 scale (<top>) col-1 show gr
/Times-Bold findfont 12.00 scalefont setfont
424 154 m
gs 1 -1 scale (<pair>) col-1 show gr
/Times-Bold findfont 12.00 scalefont setfont
474 154 m
gs 1 -1 scale (<procedure>) col-1 show gr
/Times-Bold findfont 12.00 scalefont setfont
559 154 m
gs 1 -1 scale (<number>) col-1 show gr
/Times-Bold findfont 12.00 scalefont setfont
629 154 m
gs 1 -1 scale (...) col-1 show gr
/Times-Bold findfont 12.00 scalefont setfont
569 199 m
gs 1 -1 scale (<real>) col-1 show gr
/Times-Bold findfont 12.00 scalefont setfont
559 239 m
gs 1 -1 scale (<integer>) col-1 show gr
$F2psEnd
/setupLatin1 {
mark
/EncodingVector 256 array def
EncodingVector 0
ISOLatin1Encoding 0 255 getinterval putinterval
EncodingVector 45 /hyphen put
% Set up ISO Latin 1 character encoding
/starnetISO {
dup dup findfont dup length dict begin
{ 1 index /FID ne { def }{ pop pop } ifelse
} forall
/Encoding EncodingVector def
currentdict end definefont
} def
/Times-Roman starnetISO def
/Times-Italic starnetISO def
/Times-Bold starnetISO def
/Times-BoldItalic starnetISO def
/Helvetica starnetISO def
/Helvetica-Oblique starnetISO def
/Helvetica-Bold starnetISO def
/Helvetica-BoldOblique starnetISO def
/Courier starnetISO def
/Courier-Oblique starnetISO def
/Courier-Bold starnetISO def
/Courier-BoldOblique starnetISO def
cleartomark
} bind def
%%BeginResource: procset graphviz 0 0
/coord-font-family /Times-Roman def
/default-font-family /Times-Roman def
/coordfont coord-font-family findfont 8 scalefont def
/InvScaleFactor 1.0 def
/set_scale {
dup 1 exch div /InvScaleFactor exch def
scale
} bind def
% styles
/solid { [] 0 setdash } bind def
/dashed { [9 InvScaleFactor mul dup ] 0 setdash } bind def
/dotted { [1 InvScaleFactor mul 6 InvScaleFactor mul] 0 setdash } bind def
/invis {/fill {newpath} def /stroke {newpath} def /show {pop newpath} def} bind def
/bold { 2 setlinewidth } bind def
/filled { } bind def
/unfilled { } bind def
/rounded { } bind def
/diagonals { } bind def
% hooks for setting color
/nodecolor { sethsbcolor } bind def
/edgecolor { sethsbcolor } bind def
/graphcolor { sethsbcolor } bind def
/nopcolor {pop pop pop} bind def
/beginpage { % i j npages
/npages exch def
/j exch def
/i exch def
/str 10 string def
npages 1 gt {
gsave
coordfont setfont
0 0 moveto
(\() show i str cvs show (,) show j str cvs show (\)) show
grestore
} if
} bind def
/set_font {
findfont exch
scalefont setfont
} def
% draw text fitted to its expected width
/alignedtext { % width text
/text exch def
/width exch def
gsave
width 0 gt {
[] 0 setdash
text stringwidth pop width exch sub text length div 0 text ashow
} if
grestore
} def
/boxprim { % xcorner ycorner xsize ysize
4 2 roll
moveto
2 copy
exch 0 rlineto
0 exch rlineto
pop neg 0 rlineto
closepath
} bind def
/ellipse_path {
/ry exch def
/rx exch def
/y exch def
/x exch def
matrix currentmatrix
newpath
x y translate
rx ry scale
0 0 1 0 360 arc
setmatrix
} bind def
/endpage { showpage } bind def
/showpage { } def
/layercolorseq
[ % layer color sequence - darkest to lightest
[0 0 0]
[.2 .8 .8]
[.4 .8 .8]
[.6 .8 .8]
[.8 .8 .8]
]
def
/layerlen layercolorseq length def
/setlayer {/maxlayer exch def /curlayer exch def
layercolorseq curlayer 1 sub layerlen mod get
aload pop sethsbcolor
/nodecolor {nopcolor} def
/edgecolor {nopcolor} def
/graphcolor {nopcolor} def
} bind def
/onlayer { curlayer ne {invis} if } def
/onlayers {
/myupper exch def
/mylower exch def
curlayer mylower lt
curlayer myupper gt
or
{invis} if
} def
/curlayer 0 def
%%EndResource
%%EndProlog
%%BeginSetup
14 default-font-family set_font
1 setmiterlimit
% /arrowlength 10 def
% /arrowwidth 5 def
% make sure pdfmark is harmless for PS-interpreters other than Distiller
/pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse
% make '<<' and '>>' safe on PS Level 1 devices
/languagelevel where {pop languagelevel}{1} ifelse
2 lt {
userdict (<<) cvn ([) cvn load put
userdict (>>) cvn ([) cvn load put
} if
%%EndSetup
setupLatin1
%%Page: 1 1
%%PageBoundingBox: 36 36 452 368
%%PageOrientation: Portrait
0 0 1 beginpage
gsave
36 36 416 332 boxprim clip newpath
1 1 set_scale 0 rotate 40 41 translate
% F
gsave
0 0 0 nodecolor
14 /Times-Roman set_font
94.5 13.4 moveto 9 (F) alignedtext
grestore
% D
gsave
0 0 0 nodecolor
14 /Times-Roman set_font
57.5 85.4 moveto 11 (D) alignedtext
grestore
% F->D
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 89.92 36.17 moveto
85.94 44.12 81.18 53.63 76.79 62.43 curveto
stroke
0 0 0 edgecolor
newpath 73.55 61.08 moveto
72.21 71.59 lineto
79.81 64.21 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 73.55 61.08 moveto
72.21 71.59 lineto
79.81 64.21 lineto
closepath stroke
grestore
% E
gsave
0 0 0 nodecolor
14 /Times-Roman set_font
130 85.4 moveto 10 (E) alignedtext
grestore
% F->E
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 108.08 36.17 moveto
112.06 44.12 116.82 53.63 121.21 62.43 curveto
stroke
0 0 0 edgecolor
newpath 118.19 64.21 moveto
125.79 71.59 lineto
124.45 61.08 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 118.19 64.21 moveto
125.79 71.59 lineto
124.45 61.08 lineto
closepath stroke
grestore
% A
gsave
0 0 0 nodecolor
14 /Times-Roman set_font
93.5 157.4 moveto 11 (A) alignedtext
grestore
% D->A
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 72.08 108.17 moveto
76.06 116.12 80.82 125.63 85.21 134.43 curveto
stroke
0 0 0 edgecolor
newpath 82.19 136.21 moveto
89.79 143.59 lineto
88.45 133.08 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 82.19 136.21 moveto
89.79 143.59 lineto
88.45 133.08 lineto
closepath stroke
grestore
% B
gsave
0 0 0 nodecolor
14 /Times-Roman set_font
22 157.4 moveto 10 (B) alignedtext
grestore
% D->B
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 53.92 108.17 moveto
49.94 116.12 45.18 125.63 40.79 134.43 curveto
stroke
0 0 0 edgecolor
newpath 37.55 133.08 moveto
36.21 143.59 lineto
43.81 136.21 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 37.55 133.08 moveto
36.21 143.59 lineto
43.81 136.21 lineto
closepath stroke
grestore
% E->A
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 125.92 108.17 moveto
121.94 116.12 117.18 125.63 112.79 134.43 curveto
stroke
0 0 0 edgecolor
newpath 109.55 133.08 moveto
108.21 143.59 lineto
115.81 136.21 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 109.55 133.08 moveto
108.21 143.59 lineto
115.81 136.21 lineto
closepath stroke
grestore
% C
gsave
0 0 0 nodecolor
14 /Times-Roman set_font
166 157.4 moveto 10 (C) alignedtext
grestore
% E->C
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 144.08 108.17 moveto
148.06 116.12 152.82 125.63 157.21 134.43 curveto
stroke
0 0 0 edgecolor
newpath 154.19 136.21 moveto
161.79 143.59 lineto
160.45 133.08 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 154.19 136.21 moveto
161.79 143.59 lineto
160.45 133.08 lineto
closepath stroke
grestore
% <object>
gsave
0 0 0 nodecolor
14 /Times-Roman set_font
73.5 229.4 moveto 51 (<object>) alignedtext
grestore
% A-><object>
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 99 180.17 moveto
99 187.87 99 197.03 99 205.58 curveto
stroke
0 0 0 edgecolor
newpath 95.5 205.59 moveto
99 215.59 lineto
102.5 205.59 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 95.5 205.59 moveto
99 215.59 lineto
102.5 205.59 lineto
closepath stroke
grestore
% B-><object>
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 45.17 180.17 moveto
53.72 188.72 64.06 199.06 73.38 208.38 curveto
stroke
0 0 0 edgecolor
newpath 71.04 210.99 moveto
80.59 215.59 lineto
75.99 206.04 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 71.04 210.99 moveto
80.59 215.59 lineto
75.99 206.04 lineto
closepath stroke
grestore
% C-><object>
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 152.83 180.17 moveto
144.28 188.72 133.94 199.06 124.62 208.38 curveto
stroke
0 0 0 edgecolor
newpath 122.01 206.04 moveto
117.41 215.59 lineto
126.96 210.99 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 122.01 206.04 moveto
117.41 215.59 lineto
126.96 210.99 lineto
closepath stroke
grestore
% <top>
gsave
0 0 0 nodecolor
14 /Times-Roman set_font
205.5 301.4 moveto 35 (<top>) alignedtext
grestore
% <object>-><top>
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 130.29 252.17 moveto
147.52 262.17 168.98 274.63 186.92 285.05 curveto
stroke
0 0 0 edgecolor
newpath 185.53 288.29 moveto
195.93 290.28 lineto
189.04 282.23 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 185.53 288.29 moveto
195.93 290.28 lineto
189.04 282.23 lineto
closepath stroke
grestore
% <pair>
gsave
0 0 0 nodecolor
14 /Times-Roman set_font
158 229.4 moveto 40 (<pair>) alignedtext
grestore
% <pair>-><top>
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 189.36 252.17 moveto
194.43 260.29 200.52 270.04 206.12 278.99 curveto
stroke
0 0 0 edgecolor
newpath 203.22 280.96 moveto
211.49 287.59 lineto
209.16 277.25 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 203.22 280.96 moveto
211.49 287.59 lineto
209.16 277.25 lineto
closepath stroke
grestore
% <procedure>
gsave
0 0 0 nodecolor
14 /Times-Roman set_font
231.5 229.4 moveto 73 (<procedure>) alignedtext
grestore
% <procedure>-><top>
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 256.64 252.17 moveto
251.57 260.29 245.48 270.04 239.88 278.99 curveto
stroke
0 0 0 edgecolor
newpath 236.84 277.25 moveto
234.51 287.59 lineto
242.78 280.96 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 236.84 277.25 moveto
234.51 287.59 lineto
242.78 280.96 lineto
closepath stroke
grestore
% <integer>
gsave
0 0 0 nodecolor
14 /Times-Roman set_font
339.5 13.4 moveto 57 (<integer>) alignedtext
grestore
% <real>
gsave
0 0 0 nodecolor
14 /Times-Roman set_font
348.5 85.4 moveto 39 (<real>) alignedtext
grestore
% <integer>-><real>
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 368 36.17 moveto
368 43.87 368 53.03 368 61.58 curveto
stroke
0 0 0 edgecolor
newpath 364.5 61.59 moveto
368 71.59 lineto
371.5 61.59 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 364.5 61.59 moveto
368 71.59 lineto
371.5 61.59 lineto
closepath stroke
grestore
% <complex>
gsave
0 0 0 nodecolor
14 /Times-Roman set_font
336 157.4 moveto 64 (<complex>) alignedtext
grestore
% <real>-><complex>
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 368 108.17 moveto
368 115.87 368 125.03 368 133.58 curveto
stroke
0 0 0 edgecolor
newpath 364.5 133.59 moveto
368 143.59 lineto
371.5 133.59 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 364.5 133.59 moveto
368 143.59 lineto
371.5 133.59 lineto
closepath stroke
grestore
% <number>
gsave
0 0 0 nodecolor
14 /Times-Roman set_font
337.5 229.4 moveto 61 (<number>) alignedtext
grestore
% <complex>-><number>
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 368 180.17 moveto
368 187.87 368 197.03 368 205.58 curveto
stroke
0 0 0 edgecolor
newpath 364.5 205.59 moveto
368 215.59 lineto
371.5 205.59 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 364.5 205.59 moveto
368 215.59 lineto
371.5 205.59 lineto
closepath stroke
grestore
% <number>-><top>
gsave
1 setlinewidth
0 0 0 edgecolor
newpath 331.41 252.17 moveto
309.39 263.1 281.45 276.98 259.45 287.9 curveto
stroke
0 0 0 edgecolor
newpath 257.82 284.8 moveto
250.42 292.38 lineto
260.94 291.07 lineto
closepath fill
1 setlinewidth
solid
0 0 0 edgecolor
newpath 257.82 284.8 moveto
250.42 292.38 lineto
260.94 291.07 lineto
closepath stroke
grestore
endpage
showpage
grestore
%%PageTrailer
%%EndPage: 1
%%Trailer
%%Pages: 1
%%BoundingBox: 36 36 452 368
end
restore
%%EOF

Binary file not shown.

Binary file not shown.

Before

Width:  |  Height:  |  Size: 6.1 KiB

After

Width:  |  Height:  |  Size: 12 KiB

Before After
Before After