diff options
author | 2018-03-09 17:16:53 +0100 | |
---|---|---|
committer | 2018-03-09 17:16:53 +0100 | |
commit | 3b4bae6246b780961aa49b81a074e77189252bb3 (patch) | |
tree | 1fe0006899d6e09f54b960e42c576f13747f5d77 /library/goptions.mli | |
parent | 5542ffe43dde333cec6d118fd4b0424313330c33 (diff) | |
parent | a8297dd69f840a23740e7b36f852522d7c3471f9 (diff) |
Merge PR #6923: Export options
Diffstat (limited to 'library/goptions.mli')
-rw-r--r-- | library/goptions.mli | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/library/goptions.mli b/library/goptions.mli index 31920b832..6c14d19ee 100644 --- a/library/goptions.mli +++ b/library/goptions.mli @@ -50,6 +50,8 @@ open Mod_subst type option_name = string list +type option_locality = OptDefault | OptLocal | OptExport | OptGlobal + (** {6 Tables. } *) (** The functor [MakeStringTable] declares a table containing objects @@ -150,13 +152,12 @@ val get_ref_table : mem : reference -> unit; print : unit > -(** The first argument is a locality flag. - [Some true] = "Local", [Some false]="Global". *) -val set_int_option_value_gen : bool option -> option_name -> int option -> unit -val set_bool_option_value_gen : bool option -> option_name -> bool -> unit -val set_string_option_value_gen : bool option -> option_name -> string -> unit -val set_string_option_append_value_gen : bool option -> option_name -> string -> unit -val unset_option_value_gen : bool option -> option_name -> unit +(** The first argument is a locality flag. *) +val set_int_option_value_gen : ?locality:option_locality -> option_name -> int option -> unit +val set_bool_option_value_gen : ?locality:option_locality -> option_name -> bool -> unit +val set_string_option_value_gen : ?locality:option_locality -> option_name -> string -> unit +val set_string_option_append_value_gen : ?locality:option_locality -> option_name -> string -> unit +val unset_option_value_gen : ?locality:option_locality -> option_name -> unit val set_int_option_value : option_name -> int option -> unit val set_bool_option_value : option_name -> bool -> unit |