diff options
| author | Emilio Jesus Gallego Arias | 2018-04-19 19:12:17 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2018-04-19 19:12:17 +0200 |
| commit | 350ee43d73ee4d6c9b6c3fd24cae3aca8a2b5ce4 (patch) | |
| tree | 7432a2c50e7d682dec05e01fc3260347ce47c487 /toplevel | |
| parent | 9a4ca53a3a021cb16de7706ec79a26e49f54de49 (diff) | |
| parent | 2cf58e18f01fa379c5be3d3dddf41d8051fcc1cc (diff) | |
Merge PR #7282: [toplevel] allow toploop_init change Coq options
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/coqtop.ml | 4 | ||||
| -rw-r--r-- | toplevel/coqtop.mli | 3 |
2 files changed, 4 insertions, 3 deletions
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 0dabed6b71..668f9b8935 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -368,7 +368,7 @@ let init_color color_mode = let toploop_init = ref begin fun opts x -> let () = init_color opts.color in let () = CoqworkmgrApi.init !WorkerLoop.async_proofs_worker_priority in - x + opts, x end let print_style_tags opts = @@ -442,7 +442,7 @@ let init_toplevel arglist = let top_lp = Coqinit.toplevel_init_load_path () in List.iter Mltop.add_coq_path top_lp; Option.iter Mltop.load_ml_object_raw opts.toploop; - let extras = !toploop_init opts extras in + let opts, extras = !toploop_init opts extras in if not (CList.is_empty extras) then begin prerr_endline ("Don't know what to do with "^String.concat " " extras); prerr_endline "See -help for the list of supported options"; diff --git a/toplevel/coqtop.mli b/toplevel/coqtop.mli index 056279bbd0..fcc569ca07 100644 --- a/toplevel/coqtop.mli +++ b/toplevel/coqtop.mli @@ -18,5 +18,6 @@ val init_toplevel : string list -> Vernac.State.t option * Coqargs.coq_cmdopts val start : unit -> unit (* For other toploops *) -val toploop_init : (Coqargs.coq_cmdopts -> string list -> string list) ref +val toploop_init : + (Coqargs.coq_cmdopts -> string list -> Coqargs.coq_cmdopts * string list) ref val toploop_run : (Coqargs.coq_cmdopts -> state:Vernac.State.t -> unit) ref |