17 lines
398 B
OCaml
17 lines
398 B
OCaml
let ( let* ) = Result.bind;;
|
|
|
|
|
|
|
|
(* I don't have any built-in functions at all rn, so we just use a dummy function *)
|
|
|
|
|
|
let rec interpret_loop () =
|
|
let l = read_line () in
|
|
let* vm = Compiler.Emit.compile_src l in
|
|
print_endline "=== PROGRAM DISASSEMBLY";
|
|
Vm.Types.print_instrs vm.instrs;
|
|
print_endline "=== PROGRAM OUTPUT";
|
|
Vm.interpret vm;
|
|
interpret_loop ()
|
|
let _ = interpret_loop ()
|