From 16a280cd39645d5d3cc3a0017e02dc39d19fc413 Mon Sep 17 00:00:00 2001
From: ellson <devnull@localhost>
Date: Mon, 19 Nov 2007 05:55:27 +0000
Subject: [PATCH] improvements to php demo

---
 tclpkg/gv/demo/modgraph.php | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/tclpkg/gv/demo/modgraph.php b/tclpkg/gv/demo/modgraph.php
index e1e34c76e..c26653f93 100755
--- a/tclpkg/gv/demo/modgraph.php
+++ b/tclpkg/gv/demo/modgraph.php
@@ -28,19 +28,18 @@ $f = fopen("/proc/modules", "r");
 while ( ! feof($f)) {
 	$rec = fgets($f);
 
-#    for mod, usedbylist in string.gfind(rec, "([_%w]+) %w+ %w+ ([-,_%w]+)") do
-#       n = gv.node(G, mod)
-#       for usedby in string.gfind(usedbylist, "([-_%w]+)") do
-#          if (usedby ~= '-') and (usedby ~= '') then
-#             gv.edge(n, gv.node(G, usedby))
-#          end
-#       end
-#    end
-#
+	$matches = preg_split("/[\s]+/", $rec, -1, PREG_SPLIT_NO_EMPTY);
+	$n = gv::node($G,$matches[0]);
+	$usedbylist = preg_split("/[,]/", $matches[3], -1, PREG_SPLIT_NO_EMPTY);
+	foreach ($usedbylist as $i => $usedby) {
+		if ($usedby != "-") {
+			gv::edge($n, gv::node($G, $usedby));
+		}
+	}
 }
 fclose($f);
 
-#gv::layout($G, "dot");
-#gv::render($G, "png");
+gv::layout($G, "dot");
+gv::render($G, "png");
 
 ?>
-- 
2.50.1