blob: ada6b34928e835daa5f5d344a0e4b2ce89893a8c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
open Cli_options
open Mj_compiler
let main () =
try
Arg.parse
[
"-v",Arg.Set verbose, doc_verbose;
"-version", Arg.Unit show_version, doc_version;
"-m", Arg.Set_string main_node, doc_main_node;
"-print-types", Arg.Set print_types, doc_full_type_info;
]
compile_impl
errmsg;
with
| Errors.Error -> exit 2;;
main ()
|
