From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Thu, 4 Sep 2003 16:41:38 +0000 (+0000)
Subject: added methods to start/stop web services
X-Git-Tag: v0_0_1~49
X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=commitdiff_plain;h=46939d82c0fe0dbd6b2519845875bf48b5454856

added methods to start/stop web services
---

diff --git a/helm/gTopLevel/hbugs.ml b/helm/gTopLevel/hbugs.ml
index 753f3fc78..19722a1d2 100644
--- a/helm/gTopLevel/hbugs.ml
+++ b/helm/gTopLevel/hbugs.ml
@@ -54,7 +54,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
@@ -131,3 +130,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")
+
diff --git a/helm/gTopLevel/hbugs.mli b/helm/gTopLevel/hbugs.mli
index 022bbf43a..b98a641af 100644
--- a/helm/gTopLevel/hbugs.mli
+++ b/helm/gTopLevel/hbugs.mli
@@ -32,9 +32,19 @@ val toggle: bool -> unit
 
 val quit: unit -> unit
 
+	(** send current proof assistant state to hbugs broker *)
 val notify: unit -> unit
+
 val clear: unit -> unit
 
 module type Unit = sig end
 
 module Initialize (Tactics: InvokeTactics.Tactics) : Unit
+
+(*
+  External Web Services controls. TEMPORARY(?)
+*)
+
+val start_web_services: unit -> unit
+val stop_web_services: unit -> unit
+