Structure UTF8

signature UTF8 =
sig

  exception BadUTF8 of string
  datatype safecp = CP of int (* UTF8-encoded code-point *)
                  | RB of int (* raw byte *)
  val safecp_to_char : safecp -> string
  val safe_explode : string -> safecp list

  val getChar : string -> ((string * int) * string) option
  val firstChar : string -> (string * int) option
  val lastChar : string -> (string * int) option
  val size : string -> int
  val chr : int -> string (* May raise Chr *)
  val padRight : char -> int -> string -> string
  val substring : string * int * int -> string

  val translate : (string -> string) -> string -> string
  val all : (string -> bool) -> string -> bool
  val explode : string -> string list (* invert with String.concat *)
  val explodei : string -> int list (* invert with String.concat o map chr *)
end

HOL 4, Trindemossen-1