open Camlp4.Sig type token = | KEYWORD of string | IDENT of string | ANY_IN_NS of string | INT of string | STRING1 of string | STRING2 of string | PVAR of string | EOI exception Error of int * int * string module Loc : Loc with type t = int * int module Token : Token with module Loc = Loc and type t = token module Error : Error val mk : unit -> (Loc.t -> char Stream.t -> (Token.t * Loc.t) Stream.t) val in_comment: bool ref val lexbuf: Ulexing.lexbuf option ref val enc: Ulexing.enc ref val sync: Ulexing.lexbuf -> unit val dump_file: string -> unit