From 54a8531f102cada0ed596af02913c7b6d8acc086 Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Fri, 5 Mar 2004 14:19:42 +0000 Subject: [PATCH] HelmLogger logging function connected to MathQL Interpreter logger function. --- helm/gTopLevel/regtest.ml | 3 ++- helm/gTopLevel/testlibrary.ml | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) 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 () -- 2.39.2