diff options
Diffstat (limited to 'bin')
-rw-r--r-- | bin/main.ml | 15 |
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 () |