sig
val encoding_guess : string -> [ `UTF_16BE | `UTF_16LE | `UTF_8 ] * bool
type 'a folder =
'a -> int -> [ `Malformed of string | `Uchar of Uchar.t ] -> 'a
val fold_utf_8 :
?pos:int -> ?len:int -> 'a Uutf.String.folder -> 'a -> string -> 'a
val fold_utf_16be :
?pos:int -> ?len:int -> 'a Uutf.String.folder -> 'a -> string -> 'a
val fold_utf_16le :
?pos:int -> ?len:int -> 'a Uutf.String.folder -> 'a -> string -> 'a
end