X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2Fhbugs.ml;h=833d11bfd9968e21ebba6db6021f97167e50763f;hb=6bfd11a764024577d1a427d9b6e3074d66ff09fa;hp=753f3fc787e89d8cdc3690de376700ef16fb8c68;hpb=bac72fcaa876137ab7a5630e0c1badc2a627dce8;p=helm.git

diff --git a/helm/gTopLevel/hbugs.ml b/helm/gTopLevel/hbugs.ml
index 753f3fc78..833d11bfd 100644
--- a/helm/gTopLevel/hbugs.ml
+++ b/helm/gTopLevel/hbugs.ml
@@ -31,13 +31,16 @@ open Printf;;
 
 let debug_print = 
   let debug = true in
-  fun s -> prerr_endline (sprintf "DEBUG: %s" s)
+  fun s -> prerr_endline (sprintf "HBUGS DEBUG: %s" s)
 ;;
 
 exception NoProofInProgress;;
 
 let hbugs_client = ref None
 let use_hint_callback = ref ignore
+let describe_hint_callback = ref ignore
+
+let set_describe_hint_callback c = describe_hint_callback := c
 
 let quit () =
 	match !hbugs_client with
@@ -54,7 +57,6 @@ let get_hbugs_client () =
 let disable () =
 	match !hbugs_client with None -> () | Some c -> c#hide ()
 
-	(** send current proof assistant state to hbugs broker *)
 let notify () =
 	try
 		if !hbugs_enabled then begin
@@ -90,7 +92,9 @@ let rec enable () =
 			hbugs_client :=
 				(try
 					Some (new Hbugs_client.hbugsClient
-            ~use_hint_callback:!use_hint_callback ())
+            ~use_hint_callback:!use_hint_callback
+            ~describe_hint_callback:!describe_hint_callback
+              ())
 				with e ->
 					prerr_endline (sprintf "Can't start HBugs client: %s"
 						(Printexc.to_string e));
@@ -131,3 +135,7 @@ module Initialize (Tactics: InvokeTactics.Tactics) : Unit =
 
     let _ = use_hint_callback := use_hint
   end
+
+let start_web_services () = ignore (Unix.system "make -C ../hbugs/ start")
+let stop_web_services () = ignore (Unix.system "make -C ../hbugs/ stop")
+