diff options
| author | Pierre-Marie Pédrot | 2014-06-07 00:28:29 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-06-07 01:20:25 +0200 |
| commit | 24a0df63c1844c6f2c69f9644a3059d668fd1e6f (patch) | |
| tree | 950372175994d0f5211b984a63bfee039cac4ebe /plugins | |
| parent | e6a7182526a47f4010274128c30407ed57e51339 (diff) | |
Adding a new Control file centralizing the control options of Coq.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/cc/ccalgo.ml | 6 | ||||
| -rw-r--r-- | plugins/firstorder/rules.ml | 2 | ||||
| -rw-r--r-- | plugins/rtauto/proof_search.ml | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/plugins/cc/ccalgo.ml b/plugins/cc/ccalgo.ml index c726fd5dea..50b647e44a 100644 --- a/plugins/cc/ccalgo.ml +++ b/plugins/cc/ccalgo.ml @@ -574,7 +574,7 @@ let is_redundant state id args = with Not_found -> false let add_inst state (inst,int_subst) = - check_for_interrupt (); + Control.check_for_interrupt (); if state.rew_depth > 0 then if is_redundant state inst.qe_hyp_id int_subst then debug (str "discarding redundant (dis)equality") @@ -955,7 +955,7 @@ let find_instances state = debug (str "Running E-matching algorithm ... "); try while true do - check_for_interrupt (); + Control.check_for_interrupt (); do_match state res pb_stack done; anomaly (Pp.str "get out of here !") @@ -966,7 +966,7 @@ let rec execute first_run state = debug (str "Executing ... "); try while - check_for_interrupt (); + Control.check_for_interrupt (); one_step state do () done; match check_disequalities state with diff --git a/plugins/firstorder/rules.ml b/plugins/firstorder/rules.ml index 996deb8c5d..986f2bebca 100644 --- a/plugins/firstorder/rules.ml +++ b/plugins/firstorder/rules.ml @@ -27,7 +27,7 @@ type lseqtac= global_reference -> seqtac type 'a with_backtracking = tactic -> 'a let wrap n b continue seq gls= - check_for_interrupt (); + Control.check_for_interrupt (); let nc=pf_hyps gls in let env=pf_env gls in let rec aux i nc ctx= diff --git a/plugins/rtauto/proof_search.ml b/plugins/rtauto/proof_search.ml index 1ed9b82695..2b49e0cf66 100644 --- a/plugins/rtauto/proof_search.ml +++ b/plugins/rtauto/proof_search.ml @@ -457,7 +457,7 @@ let success= function let branching = function Incomplete (seq,stack) -> - check_for_interrupt (); + Control.check_for_interrupt (); let successors = search_all seq in let _ = match successors with |