`sig
type t = (int32, Bigarray.int32_elt, Bigarray.c_layout) Bigarray.Array1.t
exception Malformed_code
val validate : CamomileLibrary.UCS4.t -> unit
val get : CamomileLibrary.UCS4.t -> int -> CamomileLibrary.UChar.t
val init :
int -> (int -> CamomileLibrary.UChar.t) -> CamomileLibrary.UCS4.t
val length : CamomileLibrary.UCS4.t -> int
type index = int
val nth : CamomileLibrary.UCS4.t -> int -> CamomileLibrary.UCS4.index
val first : CamomileLibrary.UCS4.t -> CamomileLibrary.UCS4.index
val last : CamomileLibrary.UCS4.t -> CamomileLibrary.UCS4.index
val look :
CamomileLibrary.UCS4.t ->
CamomileLibrary.UCS4.index -> CamomileLibrary.UChar.t
val out_of_range :
CamomileLibrary.UCS4.t -> CamomileLibrary.UCS4.index -> bool
val compare_index :
CamomileLibrary.UCS4.t ->
CamomileLibrary.UCS4.index -> CamomileLibrary.UCS4.index -> int
val next :
CamomileLibrary.UCS4.t ->
CamomileLibrary.UCS4.index -> CamomileLibrary.UCS4.index
val prev :
CamomileLibrary.UCS4.t ->
CamomileLibrary.UCS4.index -> CamomileLibrary.UCS4.index
val move :
CamomileLibrary.UCS4.t ->
CamomileLibrary.UCS4.index -> int -> CamomileLibrary.UCS4.index
val iter :
(CamomileLibrary.UChar.t -> unit) -> CamomileLibrary.UCS4.t -> unit
val compare : CamomileLibrary.UCS4.t -> CamomileLibrary.UCS4.t -> int
module Buf :
sig
type buf
val create : int -> CamomileLibrary.UCS4.Buf.buf
val contents : CamomileLibrary.UCS4.Buf.buf -> CamomileLibrary.UCS4.t
val clear : CamomileLibrary.UCS4.Buf.buf -> unit
val reset : CamomileLibrary.UCS4.Buf.buf -> unit
val add_char :
CamomileLibrary.UCS4.Buf.buf -> CamomileLibrary.UChar.t -> unit
val add_string :
CamomileLibrary.UCS4.Buf.buf -> CamomileLibrary.UCS4.t -> unit
val add_buffer :
CamomileLibrary.UCS4.Buf.buf -> CamomileLibrary.UCS4.Buf.buf -> unit
end
end`