CCIO.Seq for io streams

core/CCIO.ml

@@ -152,7 +152,6 @@ let flush oc = Wrap (fun () -> Pervasives.flush oc)
 
 (** {2 Seq} *)
 
-(* TODO: WIP
 module Seq = struct
   type 'a step_result =
     | Yield of 'a
@@ -160,23 +159,92 @@ module Seq = struct
 
   type 'a gen = unit -> 'a step_result io
 
-  type _ iter =
+  type 'a t = 'a gen
-    | Gen : 'a gen -> 'a iter
-    | Pure : ('a -> 'b step_result) * 'a iter -> 'b iter
-    | General :
-      ('b -> 'a -> [`Stop | `Continue of ('b * 'c option)])
-        * 'b * 'a iter -> 'c iter
 
-  type 'a t = 'a iter io
+  let _stop () = return Stop
-  (** Gen = restartable iterator *)
+  let _yield x = return (Yield x)
 
-  let _map f x = Yield (f x)
+  let map_pure f gen () =
+    gen() >>= function
+    | Stop -> _stop ()
+    | Yield x -> _yield (f x)
 
-  let map f seq = Pure (_map f, seq)
+  let map f g () =
+    g() >>= function
+    | Stop -> _stop ()
+    | Yield x -> f x >>= _yield
 
-  let rec _next : type a. a iter -> 'a step_result
+  let rec filter_map f g () =
+    g() >>= function
+    | Stop -> _stop()
+    | Yield x ->
+        match f x with
+        | None -> filter_map f g()
+        | Some y -> _yield y
+
+  let rec flat_map f g () =
+    g() >>= function
+    | Stop -> _stop ()
+    | Yield x ->
+        f x >>= fun g' -> _flat_map_aux f g g' ()
+  and _flat_map_aux f g g' () =
+    g'() >>= function
+    | Stop -> flat_map f g ()
+    | Yield x -> _yield x
+
+  let general_iter f acc g =
+    let acc = ref acc in
+    let rec _next () =
+      g() >>= function
+      | Stop -> _stop()
+      | Yield x ->
+          f !acc x >>= function
+          | `Stop -> _stop()
+          | `Continue (acc', ret) ->
+              acc := acc';
+              match ret with
+              | None -> _next()
+              | Some y -> _yield y
+    in
+    _next
+
+  (** {6 Consume} *)
+
+  let rec fold_pure f acc g =
+    g() >>= function
+    | Stop -> return acc
+    | Yield x -> fold_pure f (f acc x) g
+
+  let length g = fold_pure (fun acc _ -> acc+1) 0 g
+
+  let rec fold f acc g =
+    g() >>= function
+    | Stop -> return acc
+    | Yield x ->
+        f acc x >>= fun acc' -> fold f acc' g
+
+  let rec iter f g =
+    g() >>= function
+    | Stop -> return ()
+    | Yield x -> f x >>= fun _ -> iter f g
+
+  let of_fun g = g
+
+  let lines ic () =
+    try _yield (input_line ic)
+    with End_of_file -> _stop()
+
+  let output ?(sep="\n") oc seq =
+    let first = ref true in
+    iter
+      (fun s ->
+        ( if !first
+          then (first:=false; return ())
+          else write_str oc sep
+        ) >>= fun () ->
+        write_str oc s
+      ) seq
 end
-*)
 
 (** {2 Raw} *)
 

core/CCIO.mli

@@ -93,9 +93,9 @@ val flush : out_channel -> unit t
 
 (** {2 Streams} *)
 
-(* XXX: WIP
 module Seq : sig
-  type +'a t
+  type 'a t
+  (** An IO stream of values of type 'a, consumable (iterable only once) *)
 
   val map : ('a -> 'b io) -> 'a t -> 'b t
   (** Map values with actions *)
@@ -105,10 +105,10 @@ module Seq : sig
 
   val filter_map : ('a -> 'b option) -> 'a t -> 'b t
 
-  val flat_map : ('a -> 'b t) -> 'a t -> 'b t
+  val flat_map : ('a -> 'b t io) -> 'a t -> 'b t
   (** Map each value to a sub sequence of values *)
 
-  val general_iter : ('b -> 'a -> [`Stop | `Continue of ('b * 'c option)]) ->
+  val general_iter : ('b -> 'a -> [`Stop | `Continue of ('b * 'c option)] io) ->
                       'b -> 'a t -> 'c t
   (** [general_iter f acc seq] performs a [filter_map] over [seq],
       using [f]. [f] is given a state and the current value, and
@@ -122,6 +122,16 @@ module Seq : sig
   val iter : ('a -> _ io) -> 'a t -> unit io
   (** Iterate on the stream, with an action for each element *)
 
+  val length : _ t -> int io
+  (** Length of the stream *)
+
+  val fold : ('b -> 'a -> 'b io) -> 'b -> 'a t -> 'b io
+  (** [fold f acc seq] folds over [seq], consuming it. Every call to [f]
+      has the right to return an IO value. *)
+
+  val fold_pure : ('b -> 'a -> 'b) -> 'b -> 'a t -> 'b io
+  (** [fold f acc seq] folds over [seq], consuming it. [f] is pure. *)
+
   (** {6 Standard Wrappers} *)
 
   type 'a step_result =
@@ -130,26 +140,16 @@ module Seq : sig
 
   type 'a gen = unit -> 'a step_result io
 
-  val of_fun : 'a gen io -> 'a t
+  val of_fun : 'a gen -> 'a t
   (** Create a stream from a function that yields an element or stops *)
 
-  val with_in : ?flags:open_flag list -> string -> 'a t
+  val lines : in_channel -> string t
-
-  val lines : in_channel io -> string t
   (** Lines of an input channel *)
 
   val output : ?sep:string -> out_channel -> string t -> unit io
   (** [output oc seq] outputs every value of [seq] into [oc], separated
       with the optional argument [sep] (default: ["\n"]) *)
-
-  val length : _ t -> int io
-  (** Length of the stream *)
-
-  val fold : ('b -> 'a -> 'b io) -> 'b -> 'a t -> 'b io
-  (** [fold f acc seq] folds over [seq], consuming it. Every call to [f]
-      has the right to return an IO value. *)
 end
-*)
 
 (** {2 Low level access} *)
 module Raw : sig