branch for universe

[helm.git] / components / logger / helmLogger.mli

diff --git a/components/logger/helmLogger.mli b/components/logger/helmLogger.mli
new file mode 100644 (file)
index 0000000..633b5c3
--- /dev/null
+++ b/components/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
+