(* $Id$ *)

val add_keyword : string -> unit

val func : char Stream.t -> (string * string) Stream.t * (int -> int * int)

val add_token : Token.pattern -> unit

val tparse : string * string -> (string * string) Stream.t -> string

val token_text : string * string -> string