]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/ocaml/logger/helmLogger.mli
- split away gtk logger
[helm.git] / helm / ocaml / logger / helmLogger.mli
diff --git a/helm/ocaml/logger/helmLogger.mli b/helm/ocaml/logger/helmLogger.mli
new file mode 100644 (file)
index 0000000..e31019e
--- /dev/null
@@ -0,0 +1,18 @@
+
+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 ]
+
+val string_of_html_msg: html_msg -> string
+val html_of_html_msg: html_msg -> string
+
+type logger_fun = ?append_NL:bool -> html_msg -> unit
+
+val register_log_callback: logger_fun -> unit
+
+val log: logger_fun
+