diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2013-10-31 15:35:11 +0100 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2013-10-31 15:35:11 +0100 |
| commit | 0b269f32dd9b8d349f94793dad44e728473e9f0a (patch) | |
| tree | 066a30fee1efe19d897f5e153d7ea9aa3d7448af /minijazz/src/main/mjc.ml | |
| download | SystDigit-Projet-0b269f32dd9b8d349f94793dad44e728473e9f0a.tar.gz SystDigit-Projet-0b269f32dd9b8d349f94793dad44e728473e9f0a.zip | |
First commit ; includes first TP and minijazz compiler
Diffstat (limited to 'minijazz/src/main/mjc.ml')
| -rw-r--r-- | minijazz/src/main/mjc.ml | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/minijazz/src/main/mjc.ml b/minijazz/src/main/mjc.ml new file mode 100644 index 0000000..ada6b34 --- /dev/null +++ b/minijazz/src/main/mjc.ml @@ -0,0 +1,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 () + + |