From 4823449f7f3800835bfd5ebc4de5bdf407fdc2c2 Mon Sep 17 00:00:00 2001
From: notin
Date: Tue, 24 Jun 2008 11:41:12 +0000
Subject: Suppression de l'option -dump-glob et ajout d'une option -no-glob

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11167 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/flags.ml  | 4 +++-
 lib/flags.mli | 2 ++
 2 files changed, 5 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/flags.ml b/lib/flags.ml
index dbb8c38abf..68e287f693 100644
--- a/lib/flags.ml
+++ b/lib/flags.ml
@@ -84,6 +84,7 @@ let is_unsafe s = Stringset.mem s !unsafe_set
 
 (* Dump of globalization (to be used by coqdoc) *)
 
+let noglob = ref false
 let dump = ref false
 let dump_file = ref ""
 let dump_into_file f = dump := true; dump_file := f
@@ -94,9 +95,10 @@ let dump_string = Buffer.add_string dump_buffer
 
 let dump_it () = 
   if !dump then begin
-    let mode = [Open_wronly; Open_append; Open_creat] in
+    let mode = [Open_wronly; Open_creat] in
     let c = open_out_gen mode 0o666 !dump_file in
     output_string c (Buffer.contents dump_buffer);
+    Buffer.clear dump_buffer;
     close_out c
   end
 
diff --git a/lib/flags.mli b/lib/flags.mli
index 2301d8a0d8..08f9a279d1 100644
--- a/lib/flags.mli
+++ b/lib/flags.mli
@@ -59,9 +59,11 @@ val is_unsafe : string -> bool
 
 (* Dump of globalization (to be used by coqdoc) *)
 
+val noglob : bool ref
 val dump : bool ref
 val dump_into_file : string -> unit
 val dump_string : string -> unit
+val dump_it : unit -> unit
 
 (* Options for the virtual machine *)
 
-- 
cgit v1.2.3