haxala1r
d846046c4a
Compiler and VM are now working well enough to support larger programs. A test program is included and executed immediately upon running the executable. A more feature complete read-eval-print loop is planned.
75 lines
1.8 KiB
OCaml
75 lines
1.8 KiB
OCaml
|
|
type value =
|
|
| Int of int
|
|
| Double of float
|
|
| String of string
|
|
| Nil
|
|
| Cons of value * value
|
|
| Symbol of string
|
|
| Closure of int * value ref list
|
|
| Native of int (* This is basically a syscall, each ID represents a primitive operation
|
|
that should have a well-defined effect. These will be further detailed
|
|
in the language documentation
|
|
*)
|
|
|
|
type instr =
|
|
| Constant of int
|
|
| LoadLocal of int
|
|
| LoadGlobal of int
|
|
| StoreLocal of int
|
|
| StoreGlobal of int
|
|
| MakeCons
|
|
| Pop (* discards top of stack *)
|
|
| Apply
|
|
| MakeClosure of int
|
|
| Jump of int
|
|
| JumpF of int (* jump if false. *)
|
|
| End
|
|
| NOOP
|
|
|
|
type vm_state = {
|
|
mutable i : int;
|
|
instrs : instr array;
|
|
globals : value array;
|
|
constants : value array;
|
|
mutable env : value ref list;
|
|
mutable stack : value list;
|
|
mutable call_stack : (int * (value ref list)) list;
|
|
}
|
|
|
|
|
|
let p = Printf.sprintf
|
|
|
|
let rec print_value = function
|
|
| Int x -> p "%d" x
|
|
| Double x -> p "%f" x
|
|
| String x -> p "\"%s\"" x
|
|
| Nil -> p "'()"
|
|
| Cons (a, b) -> p "(%s . %s)" (print_value a) (print_value b)
|
|
| Symbol x -> p "'%s" x
|
|
| Closure (i, _) -> p "<closure %d>" i
|
|
| Native i -> p "<native %d>" i
|
|
|
|
|
|
let print_one = function
|
|
| Constant i -> p "CONSTANT %d\n" i
|
|
| LoadLocal i -> p "LOCAL %d\n" i
|
|
| LoadGlobal i -> p "GLOBAL %d\n" i
|
|
| StoreLocal i -> p "STORE_LOCAL %d\n" i
|
|
| StoreGlobal i -> p "STORE_GLOBAL %d\n" i
|
|
| MakeCons -> p "CONS\n"
|
|
| Pop -> p "POP\n"
|
|
| Apply -> p "APPLY\n"
|
|
| MakeClosure i -> p "MKCLOSURE %d\n" i
|
|
| Jump i -> p "JMP %d\n" i
|
|
| JumpF i -> p "JMPF %d\n" i
|
|
| End -> p "END\n"
|
|
| NOOP -> p "NOOP\n"
|
|
|
|
let print_instrs instrs =
|
|
Array.mapi_inplace
|
|
(fun i ins ->
|
|
print_string (p "%d: %s" i (print_one ins));
|
|
ins)
|
|
instrs
|