basic lexer and parser

1 files changed, 14 insertions, 1 deletions

diff --git a/bin/main.ml b/bin/main.ml
index 732b852..1607ec4 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -1 +1,14 @@
-let () = print_ndline "Hello, World!"
+open Toytt
+
+let parse (s : string) : Ast.expr =
+  let lexbuf = Lexing.from_string s in
+  let ast = Parser.parse Lexer.lex lexbuf in
+  ast
+
+let rec repl () =
+  let input = read_line () in
+  let ast = parse input in
+  Format.printf "%a\n%!" Ast.dump_expr ast;
+  repl ()
+
+let () = repl ()