simon/iter
1
0
Fork 0
mirror of https://github.com/c-cube/iter.git synced 2025-12-06 11:15:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

change name of IO functions (keep compat)

Browse source
This commit is contained in:
Simon Cruanes 2014-11-04 21:57:13 +01:00
parent 0de04d0eb8
commit 22705b24f0
4 changed files with 17 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
_tags
View file

@ -28,4 +28,3 @@
<bench/*.ml{,i}>: use_sequence
# OASIS_STOP
true: bin_annot
true: safe_string

2
bigarray/sequenceBigarray.mli
View file

@ -25,7 +25,7 @@ OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
(** {1 Interface and Helpers for bigarrays}
@since NEXT_RELEASE *)
@since 0.5.4 *)
val of_bigarray : ('a, _, _) Bigarray.Array1.t -> 'a Sequence.t
(** Iterate on the elements of a 1-D array *)

16
sequence.ml
View file

@ -770,7 +770,7 @@ module IO = struct
close_in_noerr ic;
raise e
let write_to ?(mode=0o644) ?(flags=[Open_creat;Open_wronly]) filename seq =
let write_bytes_to ?(mode=0o644) ?(flags=[Open_creat;Open_wronly]) filename seq =
let oc = open_out_gen flags mode filename in
try
seq (fun s -> output oc s 0 (Bytes.length s));
@ -779,13 +779,13 @@ module IO = struct
close_out oc;
raise e
let write_str_to ?mode ?flags filename seq =
write_to ?mode ?flags filename (map Bytes.unsafe_of_string seq)
let write_to ?mode ?flags filename seq =
write_bytes_to ?mode ?flags filename (map Bytes.unsafe_of_string seq)
let write_bytes_lines ?mode ?flags filename seq =
let ret = Bytes.unsafe_of_string "\n" in
write_bytes_to ?mode ?flags filename (snoc (intersperse ret seq) ret)
let write_lines ?mode ?flags filename seq =
let ret = Bytes.unsafe_of_string "\n" in
write_to ?mode ?flags filename (snoc (intersperse ret seq) ret)
let write_str_lines ?mode ?flags filename seq =
write_lines ?mode ?flags filename (map Bytes.unsafe_of_string seq)
write_bytes_lines ?mode ?flags filename (map Bytes.unsafe_of_string seq)
end

14
sequence.mli
View file

@ -586,19 +586,21 @@ module IO : sig
different iterations might return different results *)
val write_to : ?mode:int -> ?flags:open_flag list ->
string -> Bytes.t t -> unit
string -> string t -> unit
(** [write_to filename seq] writes all strings from [seq] into the given
file. It takes care of opening and closing the file.
@param mode default [0o644]
@param flags used by [open_out_gen]. Default: [[Open_creat;Open_wronly]]. *)
val write_str_to : ?mode:int -> ?flags:open_flag list ->
string -> string t -> unit
val write_bytes_to : ?mode:int -> ?flags:open_flag list ->
string -> Bytes.t t -> unit
(** @since 0.5.4 *)
val write_lines : ?mode:int -> ?flags:open_flag list ->
string -> Bytes.t t -> unit
string -> string t -> unit
(** Same as {!write_to}, but intercales ['\n'] between each string *)
val write_str_lines : ?mode:int -> ?flags:open_flag list ->
string -> string t -> unit
val write_bytes_lines : ?mode:int -> ?flags:open_flag list ->
string -> Bytes.t t -> unit
(** @since 0.5.4 *)
end