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
|
2023-12-07 03:25:27 +00:00
|
|
|
let ast = parse "fun f() g() + 1 fun g() 5 println(f())" in
|
2023-12-02 21:12:51 +00:00
|
|
|
Logs.debug (fun m -> m "%a" Ast.pp_modl ast);
|
2023-11-30 03:24:51 +00:00
|
|
|
let prog = compile ast in
|
2023-12-02 21:12:51 +00:00
|
|
|
Logs.debug (fun m -> m "%a" Code.pp_program prog);
|
|
|
|
|
let modl = run prog in
|
|
|
|
|
Logs.debug (fun m -> m "%a" Value.pp modl)
|
2023-11-29 22:56:42 +00:00
|
|
|
with Error msg -> Logs.err (fun m -> m "%s" msg)
|
