bin/main.ml


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 ()