Catch lexer error and print a nicer error message.

TokTok · Apr 15, 2020 · dc2ff9c · dc2ff9c
1 parent 4a6b4b2
commit dc2ff9c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/Makefile b/Makefile
@@ -1,13 +1,11 @@
 apigen.native: $(wildcard *.ml* src/*.ml*)
-	dune clean
 	dune build --profile release
 	cp _build/default/apigen.exe $@
 
 test/%/dune: test/dune-template Makefile
 	sed -e 's/%NAME%/$*/g' $< > $@
 
 check: $(patsubst %,%dune,$(dir $(wildcard test/*/*.api.h)))
-	dune clean
 	BISECT_ENABLE=yes dune runtest
 
 coverage: check

diff --git a/apigen.ml b/apigen.ml
@@ -27,5 +27,8 @@ let () =
     | [|_; "-ast"        ; input|] -> main input Ast
     | [|_; "-api"        ; input|] -> main input Api
     | _ -> print_endline "Usage: apigen <file>"
-  with Failure (msg) ->
-    print_endline ("Failure: " ^ msg)
+  with
+  | Failure msg -> print_endline ("Failure: " ^ msg)
+  | ApiLexer.Lexing_error (start_p, token) ->
+      let error = ApiPasses.format_lex_error start_p token in
+      print_endline ("Lexing_error: " ^ error)