# HG changeset patch
# User lcp
# Date 784546869 -3600
# Node ID 3a5cd288358123f2c7d2833a2db8c74c87276dbe
# Parent  98fc1a8e832a2bbfbfeea7ee9ed9d66a538b2904
Pure/tctical/REPEAT_DETERM_N,REPEAT_DETERM1,REPEAT_DETERM_FIRST,
REPEAT_DETERM_SOME: new

diff -r 98fc1a8e832a -r 3a5cd2883581 src/Pure/tctical.ML
--- a/src/Pure/tctical.ML	Fri Nov 11 10:33:05 1994 +0100
+++ b/src/Pure/tctical.ML	Fri Nov 11 10:41:09 1994 +0100
@@ -48,9 +48,13 @@
   val ORELSE'		: ('a -> tactic) * ('a -> tactic) -> 'a -> tactic
   val pause_tac		: tactic
   val print_tac		: tactic
+  val REPEAT		: tactic -> tactic
   val REPEAT1		: tactic -> tactic
-  val REPEAT		: tactic -> tactic
+  val REPEAT_DETERM_N	: int -> tactic -> tactic
   val REPEAT_DETERM	: tactic -> tactic
+  val REPEAT_DETERM1	: tactic -> tactic
+  val REPEAT_DETERM_FIRST: (int -> tactic) -> tactic
+  val REPEAT_DETERM_SOME: (int -> tactic) -> tactic
   val REPEAT_FIRST	: (int -> tactic) -> tactic
   val REPEAT_SOME	: (int -> tactic) -> tactic
   val SELECT_GOAL	: tactic -> int -> tactic
@@ -250,14 +254,19 @@
 
 
 (*Deterministic REPEAT: only retains the first outcome; 
-  uses less space than REPEAT; tail recursive*)
-fun REPEAT_DETERM tac = 
+  uses less space than REPEAT; tail recursive.
+  If non-negative, n bounds the number of repetitions.*)
+fun REPEAT_DETERM_N n tac = 
   let val tf = tracify trace_REPEAT tac
-      fun drep st =
-        case Sequence.pull(tf st) of
-  	    None       => Some(st, Sequence.null)
-          | Some(st',_) => drep st'
-  in  traced_tac drep  end;
+      fun drep 0 st = Some(st, Sequence.null)
+	| drep n st =
+	   (case Sequence.pull(tf st) of
+		None       => Some(st, Sequence.null)
+	      | Some(st',_) => drep (n-1) st')
+  in  traced_tac (drep n)  end;
+
+(*Allows any number of repetitions*)
+val REPEAT_DETERM = REPEAT_DETERM_N ~1;
 
 (*General REPEAT: maintains a stack of alternatives; tail recursive*)
 fun REPEAT tac = 
@@ -273,6 +282,7 @@
   in  traced_tac (rep [])  end;
 
 (*Repeat 1 or more times*)
+fun REPEAT_DETERM1 tac = DETERM tac THEN REPEAT_DETERM tac;
 fun REPEAT1 tac = tac THEN REPEAT tac;
 
 
@@ -398,9 +408,11 @@
 
 (*Repeatedly solve some using tf. *)
 fun REPEAT_SOME tf = REPEAT1 (SOMEGOAL (REPEAT1 o tf));
+fun REPEAT_DETERM_SOME tf = REPEAT_DETERM1 (SOMEGOAL (REPEAT_DETERM1 o tf));
 
 (*Repeatedly solve the first possible subgoal using tf. *)
 fun REPEAT_FIRST tf = REPEAT1 (FIRSTGOAL (REPEAT1 o tf));
+fun REPEAT_DETERM_FIRST tf = REPEAT_DETERM1 (FIRSTGOAL (REPEAT_DETERM1 o tf));
 
 (*For n subgoals, tries to apply tf to n,...1  *)
 fun TRYALL tf = ALLGOALS (TRY o tf);