From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Fri, 5 Mar 2004 14:19:42 +0000 (+0000)
Subject: HelmLogger logging function connected to MathQL Interpreter logger function.
X-Git-Tag: v0_0_4~45
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=54a8531f102cada0ed596af02913c7b6d8acc086;hp=e61bf3a95901c62c7b891fb58b176ac38fb7d8e4;p=helm.git

HelmLogger logging function connected to MathQL Interpreter logger function.
---

diff --git a/helm/gTopLevel/regtest.ml b/helm/gTopLevel/regtest.ml
index d90371759..c6b598151 100644
--- a/helm/gTopLevel/regtest.ml
+++ b/helm/gTopLevel/regtest.ml
@@ -339,7 +339,8 @@ let _ =
     (if append_NL then prerr_endline else prerr_string)
       (HelmLogger.string_of_html_msg msg));
  
- let mqi_debug_fun = ignore in
+ let mqi_debug_fun s =
+  HelmLogger.log ~append_NL:true (`Msg (`T s)) in
  let mqi_handle = MQIConn.init ~log:mqi_debug_fun () in
  
  let fnames = ref [] in
diff --git a/helm/gTopLevel/testlibrary.ml b/helm/gTopLevel/testlibrary.ml
index af459000a..107cc3c54 100644
--- a/helm/gTopLevel/testlibrary.ml
+++ b/helm/gTopLevel/testlibrary.ml
@@ -3,7 +3,8 @@ open Printf
 
 Helm_registry.load_from "gTopLevel.conf.xml";;
 
-let mqi_debug_fun = ignore
+let mqi_debug_fun s =
+ HelmLogger.log ~append_NL:true (`Msg (`T s))
 let mqi_flags = []
 let mqi_handle = MQIConn.init ~flags:mqi_flags ~log:mqi_debug_fun ()