X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fhtml.mli;h=a6cd2121c6a78b92190bd1219a46462abe48adba;hb=35abea737ead2d4fd121d0cb8bdbda38cfcaa8d3;hp=a1506c946718a775564b6b651b0e82de64313f5e;hpb=556c8805fcfd27f485bdd63cd704e4df7eac8a06;p=tatoo.git

diff --git a/src/html.mli b/src/html.mli
index a1506c9..a6cd212 100644
--- a/src/html.mli
+++ b/src/html.mli
@@ -1,2 +1,6 @@
-val trace : int -> int -> int -> ('a, Format.formatter, unit, unit) format4 -> 'a
-val gen_trace : (module Tree.S with type t = 'a) -> 'a -> unit
+val trace : ?msg:string -> int -> int -> StateSet.t -> StateSet.t  -> unit
+(** [trace nid round d t msg] records the message [msg] together
+    with the a node preorder [nid], the [round], the [d]one set and
+    the [t]odo set *)
+val finalize_node : int -> int -> bool -> unit
+val gen_trace : Ata.t -> (module Tree.S with type t = 'a) -> 'a -> unit