sig
type char_seq = string
type int_seq = int list
type 'a item = { header : string; sequence : 'a; }
module Error :
sig
type string_to_raw_item =
[ `empty_line of Biocaml_pos.t
| `incomplete_input of Biocaml_pos.t * string list * string option
| `malformed_partial_sequence of string ]
type t =
[ `empty_line of Biocaml_pos.t
| `incomplete_input of Biocaml_pos.t * string list * string option
| `malformed_partial_sequence of string
| `unnamed_char_seq of Biocaml_fasta.char_seq
| `unnamed_int_seq of Biocaml_fasta.int_seq ]
val sexp_of_string_to_raw_item :
Biocaml_fasta.Error.string_to_raw_item -> Sexplib.Sexp.t
val string_to_raw_item_of_sexp :
Sexplib.Sexp.t -> Biocaml_fasta.Error.string_to_raw_item
val string_to_raw_item_of_sexp__ :
Sexplib.Sexp.t -> Biocaml_fasta.Error.string_to_raw_item
val sexp_of_t : Biocaml_fasta.Error.t -> Sexplib.Sexp.t
val t_of_sexp : Sexplib.Sexp.t -> Biocaml_fasta.Error.t
val t_of_sexp__ : Sexplib.Sexp.t -> Biocaml_fasta.Error.t
end
exception Error of Biocaml_fasta.Error.t
val in_channel_to_char_seq_item_stream :
?buffer_size:int ->
?filename:string ->
?pedantic:bool ->
?sharp_comments:bool ->
?semicolon_comments:bool ->
Pervasives.in_channel ->
Biocaml_fasta.char_seq Biocaml_fasta.item Stream.t
val in_channel_to_int_seq_item_stream :
?buffer_size:int ->
?filename:string ->
?pedantic:bool ->
?sharp_comments:bool ->
?semicolon_comments:bool ->
Pervasives.in_channel ->
Biocaml_fasta.int_seq Biocaml_fasta.item Stream.t
module Result :
sig
val in_channel_to_char_seq_item_stream :
?buffer_size:int ->
?filename:string ->
?pedantic:bool ->
?sharp_comments:bool ->
?semicolon_comments:bool ->
Pervasives.in_channel ->
(Biocaml_fasta.char_seq Biocaml_fasta.item, Biocaml_fasta.Error.t)
Core.Result.t Stream.t
val in_channel_to_int_seq_item_stream :
?buffer_size:int ->
?filename:string ->
?pedantic:bool ->
?sharp_comments:bool ->
?semicolon_comments:bool ->
Pervasives.in_channel ->
(Biocaml_fasta.int_seq Biocaml_fasta.item, Biocaml_fasta.Error.t)
Core.Result.t Stream.t
end
module Transform :
sig
type 'a raw_item =
[ `comment of string | `header of string | `partial_sequence of 'a ]
val string_to_char_seq_raw_item :
?filename:string ->
?pedantic:bool ->
?sharp_comments:bool ->
?semicolon_comments:bool ->
unit ->
(string,
(Biocaml_fasta.char_seq Biocaml_fasta.Transform.raw_item,
Biocaml_fasta.Error.t)
Core.Result.t)
Biocaml_transform.t
val char_seq_raw_item_to_item :
unit ->
(Biocaml_fasta.char_seq Biocaml_fasta.Transform.raw_item,
(Biocaml_fasta.char_seq Biocaml_fasta.item,
[ `unnamed_char_seq of Biocaml_fasta.char_seq ])
Core.Result.t)
Biocaml_transform.t
val char_seq_item_to_raw_item :
?items_per_line:int ->
unit ->
(Biocaml_fasta.char_seq Biocaml_fasta.item,
Biocaml_fasta.char_seq Biocaml_fasta.Transform.raw_item)
Biocaml_transform.t
val char_seq_raw_item_to_string :
?comment_char:char ->
unit ->
(Biocaml_fasta.char_seq Biocaml_fasta.Transform.raw_item, string)
Biocaml_transform.t
val string_to_int_seq_raw_item :
?filename:string ->
?pedantic:bool ->
?sharp_comments:bool ->
?semicolon_comments:bool ->
unit ->
(string,
(Biocaml_fasta.int_seq Biocaml_fasta.Transform.raw_item,
Biocaml_fasta.Error.t)
Core.Result.t)
Biocaml_transform.t
val int_seq_raw_item_to_item :
unit ->
(Biocaml_fasta.int_seq Biocaml_fasta.Transform.raw_item,
(Biocaml_fasta.int_seq Biocaml_fasta.item,
[ `unnamed_int_seq of Biocaml_fasta.int_seq ])
Core.Result.t)
Biocaml_transform.t
val int_seq_item_to_raw_item :
?items_per_line:int ->
unit ->
(Biocaml_fasta.int_seq Biocaml_fasta.item,
Biocaml_fasta.int_seq Biocaml_fasta.Transform.raw_item)
Biocaml_transform.t
val int_seq_raw_item_to_string :
?comment_char:char ->
unit ->
(Biocaml_fasta.int_seq Biocaml_fasta.Transform.raw_item, string)
Biocaml_transform.t
val sexp_of_raw_item :
('a -> Sexplib.Sexp.t) ->
'a Biocaml_fasta.Transform.raw_item -> Sexplib.Sexp.t
val raw_item_of_sexp :
(Sexplib.Sexp.t -> 'a) ->
Sexplib.Sexp.t -> 'a Biocaml_fasta.Transform.raw_item
val raw_item_of_sexp__ :
(Sexplib.Sexp.t -> 'a) ->
Sexplib.Sexp.t -> 'a Biocaml_fasta.Transform.raw_item
end
val sexp_of_char_seq : Biocaml_fasta.char_seq -> Sexplib.Sexp.t
val char_seq_of_sexp : Sexplib.Sexp.t -> Biocaml_fasta.char_seq
val sexp_of_int_seq : Biocaml_fasta.int_seq -> Sexplib.Sexp.t
val int_seq_of_sexp : Sexplib.Sexp.t -> Biocaml_fasta.int_seq
val sexp_of_item :
('a -> Sexplib.Sexp.t) -> 'a Biocaml_fasta.item -> Sexplib.Sexp.t
val item_of_sexp :
(Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a Biocaml_fasta.item
end