Module Parser_util

module Parser_util: sig .. end

exception Error of string

val error : string -> unit

val next_lex : Lexing.lexbuf -> string * (string * int * int)

val get_current_token : unit -> string

val parse_channel : Pervasives.in_channel -> string -> 'a -> ('a -> Lexing.lexbuf -> 'b) -> 'b