From 06d52c8ba30b1bd6e1174ebffbd6cc5ba668ecc2 Mon Sep 17 00:00:00 2001 From: Malte Voos Date: Fri, 16 Feb 2024 00:43:04 +0100 Subject: basic lexer and parser --- bin/main.ml | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'bin') 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 () -- cgit 1.4.1