2
# next line is a comment in tcl \
3
exec tclsh "$0" ${1+"$@"}
9
# merge a number of digraphs into one and output to stdout
11
# John Ellson <ellson@graphviz.org>
14
# merge graph $g2 into $g
16
foreach i [$g2 listnodes] {
17
set n [$g addnode [$i showname]]
18
$n setattributes [$i queryattributevalues [$i listattributes]]
20
foreach i [$g2 listedges] {
21
foreach {t h} [$i listnodes] {break}
22
set e [$g addedge [$t showname] [$h showname]]
23
$e setattributes [$i queryattributevalues [$i listattributes]]
27
set g [dotnew digraph]
31
if {[catch {dotread $f} g2]} {
39
while {![catch {dotread stdin} g2]} {