severe bug found in parallel zeta

[helm.git] / helm / software / matita / matitaMisc.mli

diff --git a/helm/software/matita/matitaMisc.mli b/helm/software/matita/matitaMisc.mli
index 170a87c9b1c03ae54fb6e8e7942ef82811025c10..eec60932d69a0db08a5083c95543fcfa59c73d38 100644 (file)
--- a/helm/software/matita/matitaMisc.mli
+++ b/helm/software/matita/matitaMisc.mli
@@ -73,3 +73,9 @@ val singleton: (unit -> 'a) -> (unit -> 'a)
 
   (** given the base name of an image, returns its full path *)
 val image_path: string -> string
+
+  (** 2>/dev/null, HLog = (fun _ -> ()) *)
+val shutup: unit -> unit
+
+  (** outputs the preamble of a generated .ma file *)
+val out_preamble: out_channel -> unit