From: ellson Date: Wed, 14 Nov 2007 21:57:54 +0000 (+0000) Subject: Use "swig -php5" so that we can use gv:: class methods as advertised X-Git-Tag: LAST_LIBGRAPH~32^2~5023 X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=9301738b04943b7941f63b1fa707aeeda0dd7d8a;p=graphviz Use "swig -php5" so that we can use gv:: class methods as advertised --- diff --git a/tclpkg/gv/test.php b/tclpkg/gv/test.php index f1520baeb..25fcf6b32 100644 --- a/tclpkg/gv/test.php +++ b/tclpkg/gv/test.php @@ -6,40 +6,40 @@ include("gv.php"); -$g = digraph("G"); +$g = gv::digraph("G"); -print setv($g, "aaa", "xxx"); +print gv::setv($g, "aaa", "xxx"); print "\n"; -print getv($g, "aaa"); +print gv::getv($g, "aaa"); print "\n"; -$n = node($g, "hello"); -print getv($n,"label"); +$n = gv::node($g, "hello"); +print gv::getv($n,"label"); print "\n"; -print setv($n, "aaa", "xxx"); +print gv::setv($n, "aaa", "xxx"); print "\n"; -print getv($n, "aaa"); +print gv::getv($n, "aaa"); print "\n"; -$m = node($g, "world"); -print getv($m, "aaa"); +$m = gv::node($g, "world"); +print gv::getv($m, "aaa"); print "\n"; -$e = edge($n, $m); -print setv($e, "aaa", "xxx"); +$e = gv::edge($n, $m); +print gv::setv($e, "aaa", "xxx"); print "\n"; -print getv($e, "aaa"); +print gv::getv($e, "aaa"); print "\n"; -rm($e); -rm($n); -rm($m); -rm($g); +gv::rm($e); +gv::rm($n); +gv::rm($m); +gv::rm($g); -$g = readstring("digraph G {a->b}"); -layout($g, "dot"); -render($g, "png", "ab.png"); -rm($g); +$g = gv::readstring("digraph G {a->b}"); +gv::layout($g, "dot"); +gv::render($g, "png", "ab.png"); +gv::rm($g); -$g = read("hello.dot"); -layout($g, "dot"); -render($g, "png", "hello.png"); -rm($g); +$g = gv::read("hello.dot"); +gv::layout($g, "dot"); +gv::render($g, "png", "hello.png"); +gv::rm($g); ?>