module Utils:sig
..end
val current_time : unit -> string
val trim : string -> string
val string_hash : string -> int
val read_lines : string -> string list
read_lines file
returns the lines of file file
("-"
being interpreted as the standard input).
Raises an exception if an i/o error occurs.
val write_lines : string list -> string -> unit
write_lines lines file
writes the strings lines
to the file file
.
Raises an exception if an i/o error occurs.
val parse_file : string -> (Lexing.lexbuf -> 'a) -> 'a
parse_file file f
parses the file file
through function f
.val xml_header : string
val escape_xml : string -> string
escape_xml s
escapes s
in such a way it can be used in XML.type
xml_tree = {
|
tag_name : |
(* |
XML node tag name.
| *) |
|
tag_attributes : |
(* |
XML node attributes, as an association list.
| *) |
|
tag_data : |
type
xml_data =
| |
Text of |
(* |
Embedded text data (will be escaped).
| *) |
| |
Data of |
(* |
Embedded text data (will not be escaped).
| *) |
| |
Child of |
(* |
Embedded XML node.
| *) |
The type of data elements embedded into an XML node.
val string_of_xml_tree : xml_tree -> string
val binary_magic_number : string
val binary_current_version : int * int