From: John Ellson <ellson@research.att.com>
Date: Wed, 21 Nov 2012 17:38:33 +0000 (-0500)
Subject: collect all root nodes into first rank
X-Git-Tag: LAST_LIBGRAPH~32^2~270
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=65ca212fec70f197b92a10288c6cf6ce15d76e6a;p=graphviz

collect all root nodes into first rank
---

diff --git a/tclpkg/gv/demo/modgraph.tcl b/tclpkg/gv/demo/modgraph.tcl
index 75504cec7..beed3d166 100755
--- a/tclpkg/gv/demo/modgraph.tcl
+++ b/tclpkg/gv/demo/modgraph.tcl
@@ -24,6 +24,11 @@ gv::setv $N fontsize 8
 gv::setv $N fontname helvetica
 gv::setv $E arrowsize .4
 
+# prepare a subraph for rootnodes - populated later
+set sg [gv::graph $G rootnodes]
+gv::setv $sg rank same
+
+# extract graph from /proc/modules
 foreach rec [split $modules \n] {
   set n [gv::node $G [lindex $rec 0]]
   foreach usedby [split [lindex $rec 3] ,] {
@@ -32,5 +37,12 @@ foreach rec [split $modules \n] {
   }
 }
 
+# add all rootnodes to subgraph with rank=same
+for { set n [gv::firstnode $G] } { [ gv::ok $n] } { set n [gv::nextnode $G $n] } {
+  if { ! [ gv::ok [ gv::firstin $n ] ] } {
+    gv::node $sg [gv::nameof $n]
+  }
+}
+
 gv::layout $G dot
 gv::render $G xlib