diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2013-11-27 19:02:14 +0100 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2013-11-27 19:02:14 +0100 |
| commit | f4a7c3a1aa4190c277865a345b3766c09a39fb2f (patch) | |
| tree | b13c0d280533de98f241333906199908d0e6eec1 /src/main.ml | |
| parent | c493781bfc4c3c35e536d337e1cbb14c93623733 (diff) | |
| download | LPC-Projet-f4a7c3a1aa4190c277865a345b3766c09a39fb2f.tar.gz LPC-Projet-f4a7c3a1aa4190c277865a345b3766c09a39fb2f.zip | |
Conform to specification
Diffstat (limited to 'src/main.ml')
| -rw-r--r-- | src/main.ml | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/src/main.ml b/src/main.ml index 4ebcbb3..c64381c 100644 --- a/src/main.ml +++ b/src/main.ml @@ -17,8 +17,8 @@ let localisation pos = !ifile l (c-1) c let options = [ - "-parse-only", Arg.Set parse_only, "Stops after parsing of the input file."; - "-dump", Arg.Set dump, "Dump the AST after parsing." + "--parse-only", Arg.Set parse_only, "Stops after parsing of the input file."; + "--dump", Arg.Set dump, "Dump the AST after parsing." ] let localisation pos = @@ -52,6 +52,9 @@ let () = eprintf "Lexical analysis error: %s@." s; exit 1 | Parser.Error -> - localisation (Lexing.lexeme_start_p buf); - eprintf "Parsing error.@."; - exit 1 + localisation (Lexing.lexeme_start_p buf); + eprintf "Parsing error.@."; + exit 1 + | _ -> + eprintf "Unexpected error...@."; + exit 2 |