From 0b269f32dd9b8d349f94793dad44e728473e9f0a Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Thu, 31 Oct 2013 15:35:11 +0100
Subject: First commit ; includes first TP and minijazz compiler

---
 minijazz/src/main/mjc.ml | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 minijazz/src/main/mjc.ml

(limited to 'minijazz/src/main/mjc.ml')

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 ()
+
+
-- 
cgit v1.2.3