X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_notation%2FcicNotationLexer.mli;h=765a554f4172292d4881daf932034353925418bf;hb=28ac70d3f475442cda4ef30e0e9c0e6d012b2527;hp=82731d904a44623a89e41cb8d3789b1bcc4f6b64;hpb=31d7f139796d6597915cd430baf37552dc26511c;p=helm.git

diff --git a/helm/ocaml/cic_notation/cicNotationLexer.mli b/helm/ocaml/cic_notation/cicNotationLexer.mli
index 82731d904..765a554f4 100644
--- a/helm/ocaml/cic_notation/cicNotationLexer.mli
+++ b/helm/ocaml/cic_notation/cicNotationLexer.mli
@@ -28,9 +28,18 @@
    * error message *)
 exception Error of int * int * string
 
-  (** lexer for concrete syntax patterns (notation level 1) *)
-val syntax_pattern_lexer: (string * string) Token.glexer
+  (** 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 *)
 
-  (** lexer for ast patterns (notation level 2) *)
-val ast_pattern_lexer: (string * string) Token.glexer
+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 *)