first commit

1 files changed, 11 insertions, 0 deletions

diff --git a/bin/main.ml b/bin/main.ml
new file mode 100644
index 0000000..1e8ff45
--- /dev/null
+++ b/bin/main.ml
@@ -0,0 +1,11 @@
+let () =
+  let file_name = Sys.argv.(1) in
+  let ic = Stdlib.open_in file_name in
+  let lexer = Lexing.from_channel ~with_positions:true ic in
+  let result = Qsp_parser.Analyzer.parse (module Qsp_syntax.Tree) lexer in
+  match result with
+  | Ok _ -> exit 0
+  | Error e ->
+      Format.fprintf Format.std_formatter "\nError in location %s\n%a" file_name
+        Qsp_parser.Analyzer.format_error e;
+      exit 1