Add back previously removed functions

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>

lib/core.ml

@@ -1177,6 +1177,7 @@ let witness t =
     | End_of_str -> "" in
   witness (handle_case false t)
 
+type 'a seq = 'a Seq.t
 module Seq = Rseq
 module List = Rlist
 module Group = Group
@@ -1189,6 +1190,11 @@ let matches_gen    = Gen.matches
 let split_gen      = Gen.split
 let split_full_gen = Gen.split_full
 
+let all_seq        = Seq.all
+let matches_seq    = Seq.matches
+let split_seq      = Seq.split
+let split_full_seq = Seq.split_full
+
 
 type substrings = Group.t
 

lib/core.mli

@@ -125,6 +125,8 @@ type split_token =
   | `Delim of Group.t (** Delimiter *)
   ]
 
+type 'a seq = 'a Seq.t
+
 module Seq : sig
   val all :
     ?pos:int ->    (** Default: 0 *)
@@ -162,13 +164,19 @@ type 'a gen = unit -> 'a option
 val all_gen : ?pos:int -> ?len:int -> re -> string -> Group.t gen
 [@@ocaml.deprecated "Use Seq.all"]
 
+val all_seq : ?pos:int -> ?len:int -> re -> string -> Group.t seq
+[@@ocaml.deprecated "Use Seq.all"]
+
 val matches : ?pos:int -> ?len:int -> re -> string -> string list
 (** Same as {!all}, but extracts the matched substring rather than returning
     the whole group. This basically iterates over matched strings *)
 
 val matches_gen : ?pos:int -> ?len:int -> re -> string -> string gen
 [@@ocaml.deprecated "Use Seq.matches"]
 
+val matches_seq : ?pos:int -> ?len:int -> re -> string -> string seq
+[@@ocaml.deprecated "Use Seq.matches"]
+
 val split : ?pos:int -> ?len:int -> re -> string -> string list
 (** [split re s] splits [s] into chunks separated by [re]. It yields the chunks
     themselves, not the separator. For instance this can be used with a
@@ -177,6 +185,9 @@ val split : ?pos:int -> ?len:int -> re -> string -> string list
 val split_gen : ?pos:int -> ?len:int -> re -> string -> string gen
 [@@ocaml.deprecated "Use Seq.split"]
 
+val split_seq : ?pos:int -> ?len:int -> re -> string -> string seq
+[@@ocaml.deprecated "Use Seq.split"]
+
 val split_full : ?pos:int -> ?len:int -> re -> string -> split_token list
 (** [split re s] splits [s] into chunks separated by [re]. It yields the chunks
     along with the separators. For instance this can be used with a
@@ -185,6 +196,9 @@ val split_full : ?pos:int -> ?len:int -> re -> string -> split_token list
 val split_full_gen : ?pos:int -> ?len:int -> re -> string -> split_token gen
 [@@ocaml.deprecated "Use Seq.split_full"]
 
+val split_full_seq : ?pos:int -> ?len:int -> re -> string -> split_token seq
+[@@ocaml.deprecated "Use Seq.split_full"]
+
 val replace :
   ?pos:int ->    (** Default: 0 *)
   ?len:int ->