sig
type item = Biocaml_internal_utils.Line.t
module MakeIO :
functor (Future : Future.S) ->
sig
val read : Future.Reader.t -> item Future.Pipe.Reader.t
val write :
Future.Writer.t ->
item Future.Pipe.Reader.t -> unit Future.Deferred.t
val write_file :
?perm:int ->
?append:bool ->
string -> item Future.Pipe.Reader.t -> unit Future.Deferred.t
end
val read : Future_std.Reader.t -> item Future_std.Pipe.Reader.t
val write :
Future_std.Writer.t ->
item Future_std.Pipe.Reader.t -> unit Future_std.Deferred.t
val write_file :
?perm:int ->
?append:bool ->
string -> item Future_std.Pipe.Reader.t -> unit Future_std.Deferred.t
val of_char_stream :
char Biocaml_internal_utils.Stream.t ->
item Biocaml_internal_utils.Stream.t
val of_channel : in_channel -> item Biocaml_internal_utils.Stream.t
val of_string : string -> item Biocaml_internal_utils.Stream.t
val to_channel :
item Biocaml_internal_utils.Stream.t -> out_channel -> unit
module Buffer :
sig
type t = Biocaml_lines.Buffer.t
exception No_next_line
val make : ?filename:string -> unit -> t
val feed_line : t -> item -> unit
val feed_string : t -> string -> unit
val queued_lines : t -> int
val is_empty : t -> bool
val peek_line : t -> item option
val next_line : t -> item option
val next_line_exn : t -> item
val current_position : t -> Biocaml_internal_utils.Pos.t
val contents : t -> item list * string option
val empty : t -> unit
end
module Transform :
sig
val string_to_item : unit -> (string, item) Biocaml_transform.t
val group2 :
unit ->
(item,
(item * item, [> `premature_end_of_input ])
Biocaml_internal_utils.Result.t)
Biocaml_transform.t
val item_to_string :
?buffer:[ `clear of int | `reset of int ] ->
unit -> (item, string) Biocaml_transform.t
val make :
?name:string ->
?filename:string ->
next:(Buffer.t ->
[ `not_ready
| `output of ('b, 'errnext) Biocaml_internal_utils.Result.t ]) ->
on_error:([ `incomplete_input of
Biocaml_internal_utils.Pos.t * string list *
string option
| `next of 'errnext ] -> 'err) ->
unit ->
(string, ('b, 'err) Biocaml_internal_utils.Result.t)
Biocaml_transform.t
val make_merge_error :
?name:string ->
?filename:string ->
next:(Buffer.t ->
[ `not_ready
| `output of
('a,
[> `incomplete_input of
Biocaml_internal_utils.Pos.t * string list *
string option ]
as 'b)
Biocaml_internal_utils.Result.t ]) ->
unit ->
(string, ('a, 'b) Biocaml_internal_utils.Result.t)
Biocaml_transform.t
end
val item_of_sexp : Sexplib.Sexp.t -> item
val sexp_of_item : item -> Sexplib.Sexp.t
end