blob: 6c62764ffb45b8c8d71f1286cfdbd171491dfebe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
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.pp_expr ast;
repl ()
let () = repl ()
|