module Lexerhack:sig
..end
val add_identifier : (string -> unit) Pervasives.ref
val add_type : (string -> unit) Pervasives.ref
val push_context : (unit -> unit) Pervasives.ref
val pop_context : (unit -> unit) Pervasives.ref
val currentPattern : string Pervasives.ref