1 files changed, 61 insertions, 0 deletions
diff --git a/UTF8.mli b/UTF8.mli
new file mode 100755
index 0000000..c1fa400
--- /dev/null
+++ b/UTF8.mli
@@ -0,0 +1,61 @@
+(** UTF8 is used internally for all strings
+
+  The module is intentionaly opaque.
+
+ *)
+
+(** An UTF8 encoded string *)
+type t
+
+val empty: t
+
+(** Decode a string in the current locale *)
+val decode: string -> t
+
+(** Use this to with a known UTF8 encoded string *)
+val from_utf8string: string -> t
+
+(** Encode to the string to the user locale *)
+val encode: t -> string
+
+val to_utf8string: t -> string
+
+val trim: t -> t
+
+val length: t -> int
+
+val get: t -> int -> t
+
+val rev_explode : t -> t list
+
+val split: t -> sep:t -> t
+
+val fold : (t -> 'a -> 'a) -> t -> 'a -> 'a
+
+val implode : t list -> t
+
+val rev_implode : t list -> t
+
+val compare: t -> t -> int
+
+module Buffer : sig
+
+  type buffer
+
+  val create : int -> buffer
+
+  val contents : buffer -> t
+
+  val add_string : buffer -> t -> unit
+
+  val add_char: buffer -> char -> unit
+
+end
+
+module Printf : sig
+
+  val bprintf : Buffer.buffer -> ('a, Buffer.buffer, unit) format -> 'a
+  
+  val sprintf : ('a, unit, string) format -> 'a
+
+end