[Gd-chatter] r11508 - trunk/libraries/graphviz-renderer

[hannes at gwydiondylan.org]

Author: hannes
Date: Fri Nov 30 21:01:40 2007
New Revision: 11508

Modified:
   trunk/libraries/graphviz-renderer/graphviz.dylan
   trunk/libraries/graphviz-renderer/library.dylan
Log:
Job: minor
minor API tweaks (some more keyword args, export nodes and edges)


Modified: trunk/libraries/graphviz-renderer/graphviz.dylan
==============================================================================
--- trunk/libraries/graphviz-renderer/graphviz.dylan	(original)
+++ trunk/libraries/graphviz-renderer/graphviz.dylan	Fri Nov 30 21:01:40 2007
@@ -3,7 +3,7 @@
 copyright: (C) 2007,  All rights reversed.
 
 
-define function generate-graph (graph :: <graph>, top :: <node>, #key format = "svg")
+define function generate-graph (graph :: <graph>, top :: <node>, #key format = "svg", args = "", program = "dot")
  => (result-filename :: <string>)
   let file-prefix = concatenate("foo", integer-to-string(random(10000)));
   let dot = concatenate(file-prefix, ".dot");
@@ -11,7 +11,7 @@
   with-open-file (stream = dot, direction: #"output")
     generate-dot(graph, stream, top-node: top);
   end;
-  run-application(concatenate("dot -T", format, " -o ", output, " ", dot));
+  run-application(concatenate(program, " -T", format, " -o ", output, " ", args, " ", dot));
   output;
 end;
 

Modified: trunk/libraries/graphviz-renderer/library.dylan
==============================================================================
--- trunk/libraries/graphviz-renderer/library.dylan	(original)
+++ trunk/libraries/graphviz-renderer/library.dylan	Fri Nov 30 21:01:40 2007
@@ -24,5 +24,6 @@
     create-node, create-edge,
     generate-dot, generate-graph,
     find-node, add-successors,
-    add-predecessors, attributes;
+    add-predecessors, attributes,
+    nodes, edges;
 end;