init commit

bin/dune

@@ -0,0 +1,4 @@
+(executable
+ (public_name MlLox)
+ (libraries Lox)
+ (name main))

bin/main.ml

@@ -0,0 +1,16 @@
+let printUsage () =
+  print_endline "Usage: jlox [script]";
+  exit 64
+
+let () =
+  let argc = Array.length Sys.argv in
+  match argc - 1 with
+  | 0 -> Lox.runRepl ()
+  | 1 ->
+      let path = Sys.argv.(1) in
+      Printf.printf "Running script %s\n" path;
+      let ic = open_in path in
+      let source = In_channel.input_all ic in
+      let result = Lox.run source in
+      Result.iter_error Lox.Error.print_error result
+  | _ -> printUsage ()