spice/bin/main.ml

13 lines
372 B
OCaml
Raw Normal View History

2023-11-29 22:56:42 +00:00
open Spice
2023-11-30 18:16:04 +00:00
let () =
2023-11-29 18:43:14 +00:00
Logs.set_reporter (Logs.format_reporter ());
Logs.set_level (Some Logs.Debug);
2023-11-24 04:06:13 +00:00
try
let ast = parse "obj pos { val x = 3 val y = 4 } val result = pos.x" in
let prog = compile ast in
2023-11-29 22:56:42 +00:00
let ret = run prog in
Fmt.pr "{\"program\":%a,\"output\":%a}" Code.pp_program prog Value.pp ret
with Error msg -> Logs.err (fun m -> m "%s" msg)