]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/components/content_pres/test_lexer.ml
parameter sintax added to axiom statement
[helm.git] / helm / software / components / content_pres / test_lexer.ml
index 393017a443416d9086949863f068a88ef11e69a6..587d87bd898fd63bc3823ac32e19e3929c47b56f 100644 (file)
@@ -37,9 +37,9 @@ let _ =
   Arg.parse arg_spec open_file usage;
   let lexer =
     match !level with
-       "1" -> CicNotationLexer.level1_pattern_lexer
-      | "2@" -> CicNotationLexer.level2_ast_lexer
-      | "2$" -> CicNotationLexer.level2_meta_lexer
+       "1" -> CicNotationLexer.level1_pattern_lexer ()
+      | "2@" -> CicNotationLexer.level2_ast_lexer ()
+      | "2$" -> CicNotationLexer.level2_meta_lexer ()
       | l ->
          prerr_endline (Printf.sprintf "Unsupported level %s" l);
          exit 2
@@ -53,7 +53,7 @@ let _ =
     if a = "EOI" then raise Stream.Failure;
     let pos = loc_func !tok_count in
     print_endline (Printf.sprintf "%s '%s' (@ %d-%d)" a b
-      (Ploc.first_pos pos) (Ploc.last_pos pos));
+      (Stdpp.first_pos pos) (Stdpp.last_pos pos));
     incr tok_count;
     dump ()
   in