X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fextlib%2FgraphvizPp.mli;h=79037df7283cc717d8282d465db3f17c56980d75;hb=72cd94b68037956a70b98cfa54f316fd54e52bae;hp=fa635a9719a9d18111a62cfd93b10443aa0e822b;hpb=68e83da0f741009b8fdcc89934a251eafabc9012;p=helm.git

diff --git a/helm/software/components/extlib/graphvizPp.mli b/helm/software/components/extlib/graphvizPp.mli
index fa635a971..79037df72 100644
--- a/helm/software/components/extlib/graphvizPp.mli
+++ b/helm/software/components/extlib/graphvizPp.mli
@@ -31,7 +31,18 @@ type attribute = string * string  (* <key, value> pair *)
 
 module type GraphvizFormatter =
   sig
-    val header: ?name:string -> Format.formatter -> unit
+    (** @param name graph name
+     * @param graph_type type of dot graph, default value "digraph"
+     *        interesting options: "strict digraph"
+     * @param graph_attrs graph attributes
+     * @param node_attrs graph-wide node attributes
+     * @param edge_attrs graph-wide edge attributes *)
+    val header:
+      ?graph_type:string -> 
+      ?name:string -> ?graph_attrs:(attribute list) ->
+      ?node_attrs:(attribute list) -> ?edge_attrs:(attribute list) ->
+      Format.formatter ->
+        unit
     val node: string -> ?attrs:(attribute list) -> Format.formatter -> unit
     val edge:
       string -> string -> ?attrs:(attribute list) -> Format.formatter ->