diff options
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 |