X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fcontent_pres%2FcicNotationLexer.mli;h=3bb42f5cbb9f602a6beedda6e2be96bbaf3f4c76;hb=cc6fcb70ca4f3cf01205ed722d75a2fdb2aaf779;hp=1edacd96097139dcfee979838ef9781d949414a0;hpb=2c01ff6094173915e7023076ea48b5804dca7778;p=helm.git

diff --git a/matita/components/content_pres/cicNotationLexer.mli b/matita/components/content_pres/cicNotationLexer.mli
index 1edacd960..3bb42f5cb 100644
--- a/matita/components/content_pres/cicNotationLexer.mli
+++ b/matita/components/content_pres/cicNotationLexer.mli
@@ -28,20 +28,12 @@
    * 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 *)
+type lexers = {
+        level1_pattern_lexer : (string * string) Token.glexer;
+        level2_ast_lexer : (string * string) Token.glexer;
+        level2_meta_lexer : (string * string) Token.glexer
+}
 
-val level1_pattern_lexer: unit -> (string * string) Token.glexer
-val level2_ast_lexer: unit -> (string * string) Token.glexer
-val level2_meta_lexer: unit -> (string * string) Token.glexer
+val mk_lexers : string list -> lexers
 
-  (** XXX ZACK DEFCON 4 END *)
 
-val add_level2_ast_keyword: string -> unit    (** non idempotent *)
-val remove_level2_ast_keyword: string -> unit (** non idempotent *)
-
-(** {2 Ligatures} *)
-
-val push: unit -> unit
-val pop: unit -> unit