# HG changeset patch
# User wenzelm
# Date 897049331 -7200
# Node ID c63a93b8577c8f8fa5dd32fef0a0871b39fda6af
# Parent  d7d525466221db876932a3eecdd52749351f0cdf
added THEN: ('a -> 'b seq) * ('b -> 'c seq) -> 'a -> 'c seq;
added ORELSE: ('a -> 'b seq) * ('a -> 'b seq) -> 'a -> 'b seq;
added APPEND: ('a -> 'b seq) * ('a -> 'b seq) -> 'a -> 'b seq;
added EVERY: ('a -> 'a seq) list -> 'a -> 'a seq;
added FIRST: ('a -> 'b seq) list -> 'a -> 'b seq;
added TRY: ('a -> 'a seq) -> 'a -> 'a seq;
added REPEAT: ('a -> 'a seq) -> 'a -> 'a seq;

diff -r d7d525466221 -r c63a93b8577c src/Pure/seq.ML
--- a/src/Pure/seq.ML	Fri Jun 05 14:21:11 1998 +0200
+++ b/src/Pure/seq.ML	Fri Jun 05 14:22:11 1998 +0200
@@ -28,12 +28,23 @@
   val interleave: 'a seq * 'a seq -> 'a seq
   val print: (int -> 'a -> unit) -> int -> 'a seq -> unit
   val it_right : ('a * 'b seq -> 'b seq) -> 'a seq * 'b seq -> 'b seq
+  val succeed: 'a -> 'a seq
+  val fail: 'a -> 'b seq
+  val THEN: ('a -> 'b seq) * ('b -> 'c seq) -> 'a -> 'c seq
+  val ORELSE: ('a -> 'b seq) * ('a -> 'b seq) -> 'a -> 'b seq
+  val APPEND: ('a -> 'b seq) * ('a -> 'b seq) -> 'a -> 'b seq
+  val EVERY: ('a -> 'a seq) list -> 'a -> 'a seq
+  val FIRST: ('a -> 'b seq) list -> 'a -> 'b seq
+  val TRY: ('a -> 'a seq) -> 'a -> 'a seq
+  val REPEAT: ('a -> 'a seq) -> 'a -> 'a seq
 end;
 
 structure Seq: SEQ =
 struct
 
 
+(** lazy sequences **)
+
 datatype 'a seq = Seq of unit -> ('a * 'a seq) option;
 
 (*the abstraction for making a sequence*)
@@ -152,4 +163,42 @@
   in its xq end;
 
 
+
+(** sequence functions **)      (*some code duplicated from Pure/tctical.ML*)
+
+fun succeed x = single x;
+fun fail _ = empty;
+
+
+fun THEN (f, g) x = flat (map g (f x));
+
+fun ORELSE (f, g) x =
+  (case pull (f x) of
+    None => g x
+  | some => make (fn () => some));
+
+fun APPEND (f, g) x =
+  append (f x, make (fn () => pull (g x)));
+
+
+fun EVERY fs = foldr THEN (fs, succeed);
+fun FIRST fs = foldr ORELSE (fs, fail);
+
+
+fun TRY f = ORELSE (f, succeed);
+
+fun REPEAT f =
+  let
+    fun rep qs x =
+      (case pull (f x) of
+        None => Some (x, make (fn () => repq qs))
+      | Some (x', q) => rep (q :: qs) x')
+    and repq [] = None
+      | repq (q :: qs) =
+          (case pull q of
+            None => repq qs
+          | Some (x, q) => rep (q :: qs) x);
+  in fn x => make (fn () => rep [] x) end;
+
+
 end;