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

42
main.ml
View File

@ -54,23 +54,31 @@ let rec interactive ((g, gs) : proof) : proof =
| Some g' -> print_goal g'
in
match parse_cmd (Lexing.from_string ((read_line ())^"\n")) with
Goal ty -> fresh_proof ty |> interactive
| Tact t ->
begin match t with
Exact_term e ->
tact_exact_term (g, gs) e |> interactive
| Exact_proof s ->
tact_exact_proof (g, gs) s |> interactive
| Assumption ->
tact_assumption (g, gs) |> interactive
| Intro ->
tact_intro (g, gs) |> interactive
| Cut ty ->
tact_cut (g, gs) ty |> interactive
| Apply id ->
tact_apply (g, gs) id |> interactive
end
try
match parse_cmd (Lexing.from_string ((read_line ())^"\n")) with
Goal ty -> fresh_proof ty |> interactive
| Tact t ->
begin match t with
Exact_term e ->
tact_exact_term (g, gs) e |> interactive
| Exact_proof s ->
tact_exact_proof (g, gs) s |> interactive
| Assumption ->
tact_assumption (g, gs) |> interactive
| Intro ->
tact_intro (g, gs) |> interactive
| Cut ty ->
tact_cut (g, gs) ty |> interactive
| Apply id ->
tact_apply (g, gs) id |> interactive
end
with
Parser.Error ->
print_string "Invalid input.\n";
interactive (g, gs)
| End_of_file ->
print_string "Bye!\n";
(g, gs)
end
let interpret e =