sig
val adaptor :
?comment:string ->
?delim:char ->
?end_section:string ->
string ->
(< delim : 'a; fstab : 'b; group : 'c; key_value : Line.absent;
mailcap : 'd; passwd : 'e; ps : 'f; seq : 'g; source : 'h; stat : 'i > ->
< delim : 'a; fstab : 'b; group : 'c;
key_value : < section : Line.present >; mailcap : 'd; passwd : 'e;
ps : 'f; seq : 'g; source : 'h; stat : 'i >)
Adaptor.adaptor
val fitting :
?comment:string ->
?delim:char ->
?end_section:string ->
string ->
(< delim : 'a; fstab : 'b; group : 'c; key_value : Line.absent;
mailcap : 'd; passwd : 'e; ps : 'f; seq : 'g; source : 'h; stat : 'i > ->
< delim : 'a; fstab : 'b; group : 'c;
key_value : < section : Line.present >; mailcap : 'd; passwd : 'e;
ps : 'f; seq : 'g; source : 'h; stat : 'i >)
Adaptor.fitting_adaptor
val reader : ?comment:string -> Reader.t
val splitter :
?delim:char ->
?end_section:string ->
string ->
(< delim : 'a; fstab : 'b; group : 'c; key_value : Line.absent;
mailcap : 'd; passwd : 'e; ps : 'f; seq : 'g; source : 'h; stat : 'i > ->
< delim : 'a; fstab : 'b; group : 'c;
key_value : < section : Line.present >; mailcap : 'd; passwd : 'e;
ps : 'f; seq : 'g; source : 'h; stat : 'i >)
Adaptor.splitter
module type SPEC =
sig
val section : string
val delim : char
val comment : string
val end_section : string option
end
module type S =
sig
val section : string
val delim : char
val comment : string
val end_section : string option
val adaptor :
(< delim : 'a; fstab : 'b; group : 'c; key_value : Line.absent;
mailcap : 'd; passwd : 'e; ps : 'f; seq : 'g; source : 'h;
stat : 'i > ->
< delim : 'a; fstab : 'b; group : 'c;
key_value : < section : Line.present >; mailcap : 'd; passwd : 'e;
ps : 'f; seq : 'g; source : 'h; stat : 'i >)
Adaptor.adaptor
val fitting :
(< delim : 'a; fstab : 'b; group : 'c; key_value : Line.absent;
mailcap : 'd; passwd : 'e; ps : 'f; seq : 'g; source : 'h;
stat : 'i > ->
< delim : 'a; fstab : 'b; group : 'c;
key_value : < section : Line.present >; mailcap : 'd; passwd : 'e;
ps : 'f; seq : 'g; source : 'h; stat : 'i >)
Adaptor.fitting_adaptor
val reader : Reader.t
val new_splitter :
unit ->
(< delim : 'a; fstab : 'b; group : 'c; key_value : Line.absent;
mailcap : 'd; passwd : 'e; ps : 'f; seq : 'g; source : 'h;
stat : 'i > ->
< delim : 'a; fstab : 'b; group : 'c;
key_value : < section : Line.present >; mailcap : 'd; passwd : 'e;
ps : 'f; seq : 'g; source : 'h; stat : 'i >)
Adaptor.splitter
end
module Make : functor (Spec : SPEC) -> S
end