X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Flogger%2FhelmLogger.mli;fp=helm%2Focaml%2Flogger%2FhelmLogger.mli;h=633b5c3eca5895aa3da30fbe2183ac1361b76875;hb=792b5d29ebae8f917043d9dd226692919b5d6ca1;hp=0000000000000000000000000000000000000000;hpb=a14a8c7637fd0b95e9d4deccb20c6abc98e8f953;p=helm.git

diff --git a/helm/ocaml/logger/helmLogger.mli b/helm/ocaml/logger/helmLogger.mli
new file mode 100644
index 000000000..633b5c3ec
--- /dev/null
+++ b/helm/ocaml/logger/helmLogger.mli
@@ -0,0 +1,27 @@
+
+type html_tag =
+  [ `BR
+  | `L of html_tag list
+  | `T of string
+  | `DIV of int * string option * html_tag  (* indentation, color, tag *)
+  ]
+type html_msg = [ `Error of html_tag | `Msg of html_tag ]
+
+  (** html_msg to plain text converter *)
+val string_of_html_msg: html_msg -> string
+
+  (** html_tag to plain text converter *)
+val string_of_html_tag: html_tag -> string
+
+  (** html_msg to html text converter *)
+val html_of_html_msg: html_msg -> string
+
+  (** html_tag to html text converter *)
+val html_of_html_tag: html_tag -> string
+
+type logger_fun = ?append_NL:bool -> html_msg -> unit
+
+val register_log_callback: logger_fun -> unit
+
+val log: logger_fun
+