blob: 1607ec4d1cbaa6391b37d9a0a3c72e03639bb63c (
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.dump_expr ast;
repl ()
let () = repl ()
|