X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matitaB%2Fcomponents%2Fcontent_pres%2FcicNotationLexer.mli;h=ee96b552cb661a09552b4bcdc2f83a303804f9da;hb=48c011f52853dd106dbf9cbbd1b9da61277fba3b;hp=3bb42f5cbb9f602a6beedda6e2be96bbaf3f4c76;hpb=cacbe3c6493ddce76c4c13379ade271d8dd172e8;p=helm.git diff --git a/matitaB/components/content_pres/cicNotationLexer.mli b/matitaB/components/content_pres/cicNotationLexer.mli index 3bb42f5cb..ee96b552c 100644 --- a/matitaB/components/content_pres/cicNotationLexer.mli +++ b/matitaB/components/content_pres/cicNotationLexer.mli @@ -28,12 +28,20 @@ * error message *) exception Error of int * int * string +module LocalizeEnv : +sig + include Map.S with type key = Stdpp.location +end + type lexers = { - level1_pattern_lexer : (string * string) Token.glexer; - level2_ast_lexer : (string * string) Token.glexer; - level2_meta_lexer : (string * string) Token.glexer + level1_pattern_lexer : (string * string) Token.glexer; + level2_ast_lexer : (string * string) Token.glexer; + level2_meta_lexer : (string * string) Token.glexer } -val mk_lexers : string list -> lexers +val initial_keywords : string list + +val mk_lexers : + (string option * string option) LocalizeEnv.t ref -> string list -> lexers