From 24a0df63c1844c6f2c69f9644a3059d668fd1e6f Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Date: Sat, 7 Jun 2014 00:28:29 +0200
Subject: Adding a new Control file centralizing the control options of Coq.

---
 plugins/cc/ccalgo.ml           | 6 +++---
 plugins/firstorder/rules.ml    | 2 +-
 plugins/rtauto/proof_search.ml | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'plugins')

diff --git a/plugins/cc/ccalgo.ml b/plugins/cc/ccalgo.ml
index c726fd5de..50b647e44 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 996deb8c5..986f2bebc 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 1ed9b8269..2b49e0cf6 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
-- 
cgit v1.2.3