spice/bin/main.ml

open Spice

let () =
  Logs.set_reporter (Logs.format_reporter ());
  Logs.set_level (Some Logs.Debug);

  try
    let ast = parse "
                val two = 2
                val one = 1
                fun twice(x) {
                  fun f(x) (x - one) * two
                  fun g() if (x == one) two else (x + one)
                  f(g())
                }
                println(twice(4))
 " in
    Logs.debug (fun m -> m "[AST] %a" Ast.pp_modl ast);
    let prog = compile ast in
    Logs.debug (fun m -> Code.dump (m "[BC] %s") prog.main);
    let modl = run prog in
    Logs.debug (fun m -> m "[RET] %a" Value.pp modl)
  with Error msg -> Logs.err (fun m -> m "%s" msg)