diff options
| author | mohring | 2000-11-21 14:13:32 +0000 |
|---|---|---|
| committer | mohring | 2000-11-21 14:13:32 +0000 |
| commit | 78fb07846e6ca303417699d19beaeaf1a97f96af (patch) | |
| tree | e9056e481fc8d36846408794aacabee70e74f76b | |
| parent | 7cb292a84437289d1e4f5a6c7a50fe5e7e763ec8 (diff) | |
Begin-End Silent deviennent Set?Unset Silent
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@899 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | CHANGES | 5 | ||||
| -rw-r--r-- | parsing/g_vernac.ml4 | 7 | ||||
| -rw-r--r-- | toplevel/vernacentries.ml | 7 |
3 files changed, 15 insertions, 4 deletions
@@ -10,6 +10,7 @@ Parsing pretty-printing rules + Syntaxe des constructions - Consecutive as in patterns are forbidden @@ -52,6 +53,10 @@ que les 3 primitives), on peut typer avec "constr", "tactic", ou - L'option [-myconst] de Cbv doit immédiatement suivre Delta +- End Silent etait interprete comme une fin de section + Begin Silent -> Set Silent + End Silent -> Unset Silent. + Tactiques - Langage de tactique diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index 0a7c0586b3..9f10f19412 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -302,7 +302,6 @@ GEXTEND Gram gallina_ext: [ [ - (* Sections *) IDENT "Section"; id = identarg; "." -> <:ast< (BeginSection $id) >> | IDENT "Chapter"; id = identarg; "." -> <:ast< (BeginSection $id) >> @@ -401,12 +400,12 @@ GEXTEND Gram <:ast< (WriteModule $id) >> | IDENT "Write"; IDENT "Module"; id = identarg; s = stringarg; "." -> <:ast< (WriteModule $id $s) >> - | IDENT "Begin"; IDENT "Silent"; "." -> <:ast< (BeginSilent) >> - | IDENT "End"; IDENT "Silent"; "." -> <:ast< (EndSilent) >> | IDENT "Declare"; IDENT "ML"; IDENT "Module"; l = ne_stringarg_list; "." -> <:ast< (DeclareMLModule ($LIST $l)) >> | IDENT "Import"; id = identarg; "." -> <:ast< (ImportModule $id) >> - ] ] + + ] +] ; END diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 780ef6dc31..f60ecbd3e4 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -30,6 +30,7 @@ open Printer open Tacinterp open Tactic_debug open Command +open Goptions (* Dans join_binders, s'il y a un "?", on perd l'info qu'il est partagé *) let join_binders binders = @@ -659,6 +660,12 @@ let _ = (fun () -> mSG(print_sec_context_typ (string_of_id id))) | _ -> bad_vernac_args "PrintSec") +let _ = declare_async_bool_option + {optasyncname = "Silent"; + optasynckey = (PrimaryTable "Silent"); + optasyncread = is_silent; + optasyncwrite = make_silent } + let _ = add "BeginSilent" (function |