Benjamin_Loison/Synchronous_reactive_systems
1
0
Fork 0
Code Issues 7 Pull Requests Packages Projects Releases Wiki Activity

[parser] functions other that main → args required

Browse Source
This commit is contained in:
dsac
2022-12-15 22:14:59 +01:00
parent 0d5e045671
commit 74f8a3c3e1
3 changed files with 19 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/main.ml
View File

@@ -36,7 +36,6 @@ let _ =
let nopopt = ref false in
let simopt = ref false in
let passes = ref [] in
let main_fn = ref "main" in
let source_file = ref "" in
let testopt = ref false in
let output_file = ref "out.c" in
@@ -53,8 +52,6 @@ let _ =
("-p", Arg.String (fun s -> passes := s :: !passes),
"Add a pass to the compilation process");
("-sim", Arg.Set simopt, "Simulate the main node");
("-m", Arg.String (fun s -> main_fn := s),
"Defines what the main function is (defaults to main).");
("-o", Arg.Set_string output_file, "Output file (defaults to [out.c])");
] in
Arg.parse speclist anon_fun usage_msg ;
@@ -62,7 +59,7 @@ let _ =
if !passes = [] then passes := default_passes;
let print_verbose = print_verbose !verbose in
let print_debug = print_debug !debug in
let main_fn = !main_fn in
let main_fn = "main" in
(** Definition of the passes table *)
let passes_table = Hashtbl.create 100 in