From: ellson <devnull@localhost>
Date: Wed, 14 Nov 2007 21:18:35 +0000 (+0000)
Subject: start at a php demo
X-Git-Tag: LAST_LIBGRAPH~32^2~5025
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=cdc1acf5b50725e2374491a8d09c81e9bc693f71;p=graphviz

start at a php demo
---

diff --git a/tclpkg/gv/demo/modgraph.php b/tclpkg/gv/demo/modgraph.php
new file mode 100755
index 000000000..8055baba9
--- /dev/null
+++ b/tclpkg/gv/demo/modgraph.php
@@ -0,0 +1,46 @@
+#!/usr/bin/php
+<?
+#FIXME  - I don't know how to extend php's paths.  Needs:
+#   ln -s /usr/lib64/graphviz/php/libgv_php.so /usr/lib64/php/modules/gv.so
+#   ln -s /usr/lib64/graphviz/php/php/gv.php /usr/share/php/gv.php
+
+include("gv.php");
+
+# display the kernel module dependencies
+
+# author: John Ellson <ellson@research.att.com>
+
+$G = digraph("G");
+$N = protonode($G);
+$E = protoedge($G);
+
+setv($G, "rankdir", "LR");
+setv($G, "nodesep", "0.05");
+setv($N, "shape", "box");
+setv($N, "width", "0");
+setv($N, "height", "0");
+setv($N, "margin", ".03");
+setv($N, "fontsize", "8");
+setv($N, "fontname", "helvetica");
+setv($E, "arrowsize", ".4");
+
+$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
+#
+}
+fclose($f);
+
+#layout($G, "dot");
+#render($G, "png");
+
+?>