diff options
| author | letouzey | 2012-04-26 09:54:13 +0000 |
|---|---|---|
| committer | letouzey | 2012-04-26 09:54:13 +0000 |
| commit | 47c1c7976a6830227edd8e125f6993ae4e15f6a6 (patch) | |
| tree | 8019ec3e42bb9cdcfd95d89b621d616921fcfdc5 /lib | |
| parent | 0204cf4237622468df313d77873020e924247395 (diff) | |
Program: avoid staying in program mode after a failed Program command
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15247 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 5 | ||||
| -rw-r--r-- | lib/flags.mli | 5 |
2 files changed, 10 insertions, 0 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 29e01bac39..2f41c772ab 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -66,6 +66,11 @@ let auto_intros = ref true let make_auto_intros flag = auto_intros := flag let is_auto_intros () = version_strictly_greater V8_2 && !auto_intros +(** [program_cmd] indicates that the current command is a Program one. + [program_mode] tells that Program mode has been activated, either + globally via [Set Program] or locally via the Program command prefix. *) + +let program_cmd = ref false let program_mode = ref false let is_program_mode () = !program_mode diff --git a/lib/flags.mli b/lib/flags.mli index 94c8795d45..b96bd402d4 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -47,6 +47,11 @@ val if_verbose : ('a -> unit) -> 'a -> unit val make_auto_intros : bool -> unit val is_auto_intros : unit -> bool +(** [program_cmd] indicates that the current command is a Program one. + [program_mode] tells that Program mode has been activated, either + globally via [Set Program] or locally via the Program command prefix. *) + +val program_cmd : bool ref val program_mode : bool ref val is_program_mode : unit -> bool |