l3-ENSL/pieuvre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

gracefully ignore invalid input

Browse Source
This commit is contained in:
augustin64 2024-05-01 10:35:12 +02:00
parent 486a788757
commit 7c4def6e1e
1 changed files with 25 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
main.ml
View File

@ -54,6 +54,7 @@ let rec interactive ((g, gs) : proof) : proof =
| Some g' -> print_goal g' | Some g' -> print_goal g'
in in
try
match parse_cmd (Lexing.from_string ((read_line ())^"\n")) with match parse_cmd (Lexing.from_string ((read_line ())^"\n")) with
Goal ty -> fresh_proof ty |> interactive Goal ty -> fresh_proof ty |> interactive
| Tact t -> | Tact t ->
@ -71,6 +72,13 @@ let rec interactive ((g, gs) : proof) : proof =
| Apply id -> | Apply id ->
tact_apply (g, gs) id |> interactive tact_apply (g, gs) id |> interactive
end end
with
Parser.Error ->
print_string "Invalid input.\n";
interactive (g, gs)
| End_of_file ->
print_string "Bye!\n";
(g, gs)
end end
let interpret e = let interpret e =