X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_notation%2FcicNotationLexer.mli;h=cd5f0876dd2fe4d715a5791c27f7f6ffeb7fb5ff;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=5eb22a99c7efbcb05215733c4e024521a2a86d64;hpb=ba2dfe6409e95bf9e558dc0d4be382b068671409;p=helm.git

diff --git a/helm/ocaml/cic_notation/cicNotationLexer.mli b/helm/ocaml/cic_notation/cicNotationLexer.mli
index 5eb22a99c..cd5f0876d 100644
--- a/helm/ocaml/cic_notation/cicNotationLexer.mli
+++ b/helm/ocaml/cic_notation/cicNotationLexer.mli
@@ -28,10 +28,21 @@
    * 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 *)
 
+(** {2 Ligatures} *)
+
+val is_ligature_char: char -> bool
+val lookup_ligatures: string -> string list
+