* error message *)
exception Error of int * int * string
+ (** XXX ZACK DEFCON 4 BEGIN: never use the tok_func field of the glexers below
+ * passing values of type char Stream.t, they should be in fact Ulexing.lexbuf
+ * casted with Obj.magic :-/ Read the comment in the .ml for the rationale *)
+
val level1_pattern_lexer: (string * string) Token.glexer
val level2_ast_lexer: (string * string) Token.glexer
val level2_meta_lexer: (string * string) Token.glexer
+ (** XXX ZACK DEFCON 4 END *)
+
val add_level2_ast_keyword: string -> unit (** non idempotent *)
val remove_level2_ast_keyword: string -> unit (** non idempotent *)
+(* val lookup_ligatures: string -> string list *)
+