sig
val current_time : unit -> string
val trim : string -> string
val string_hash : string -> int
val read_lines : string -> string list
val write_lines : string list -> string -> unit
val parse_file : string -> (Lexing.lexbuf -> 'a) -> 'a
val xml_header : string
val escape_xml : string -> string
type xml_tree = {
tag_name : string;
tag_attributes : (string * string) list;
tag_data : Utils.xml_data list;
}
and xml_data = Text of string | Data of string | Child of Utils.xml_tree
val string_of_xml_tree : Utils.xml_tree -> string
val binary_magic_number : string
val binary_current_version : int * int
end