Module Anthill.Trie

type node = {
mutable eow : bool;
mutable children : node option array option;
}
type t = node
val new_node : bool -> node
val new_child_array : unit -> 'a option Core.Array.t
val is_none : 'a option -> bool
val index : Core.Char.t -> int
val letter : int -> Core.Char.t
val add : node -> string -> unit
val foreach_child : node -> (int -> node -> unit) -> unit
val for_child_in_group : node -> int list -> (int -> node -> unit) -> unit
val with_child : node -> int -> (int -> node -> unit) -> unit
val char_of_int : int -> Core.Char.t
val word_of : int list -> string
val printall : node -> int list -> unit
val of_list : string list -> node
val load_from_text_file : Base.string -> node