diff options
| author |  notin <notin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-24 11:41:12 +0000 |
|---|---|---|
| committer | notin <notin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-24 11:41:12 +0000 |
| commit | 4823449f7f3800835bfd5ebc4de5bdf407fdc2c2 (patch) | |
| tree | aea77208ed5b783f4f00c5c6679f1b1bdbbab264 /lib | |
| parent | de45178c0b684a211fa61866e82b045f12f85ffe (diff) | |
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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 4 | ||||
| -rw-r--r-- | lib/flags.mli | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index dbb8c38ab..68e287f69 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 2301d8a0d..08f9a279d 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 *) |