Mysaa/pieuvre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Renommage

Browse Source
This commit is contained in:
Adrien Vannson 2022-05-10 14:50:13 +02:00
parent dc29a93934
commit 93e1174ff3
No known key found for this signature in database
GPG Key ID: FE2E66FD978C1A55
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
main.ml
View File

@ -7,13 +7,13 @@ let fail () =
(* Parsage des arguments*) (* Parsage des arguments*)
let filename = ref "" in let filename = ref "" in
let reduce = ref false in let reduce_option = ref false in
let alpha = ref false in let alpha_option = ref false in
let typecheck_option = ref false in let typecheck_option = ref false in
Arg.parse Arg.parse
[("-reduce", Arg.Set reduce, "Show the step-by-step reduction of a lambda-term"); [("-reduce", Arg.Set reduce_option, "Show the step-by-step reduction of a lambda-term");
("-alpha", Arg.Set alpha, "Check is two lambda-terms separated by '&' are alpha-convertible"); ("-alpha", Arg.Set alpha_option, "Check is two lambda-terms separated by '&' are alpha-convertible");
("-typecheck", Arg.Set typecheck_option, "Check if a lambda term has a given type")] ("-typecheck", Arg.Set typecheck_option, "Check if a lambda term has a given type")]
(fun s -> filename := s) (fun s -> filename := s)
"The available options are:"; "The available options are:";