blob: 541a5f5bdcd6f3c0a163a7c040ff609ba3d4f596 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
const std = @import("std");
const value = @import("../value.zig");
const gc = @import("../gc.zig");
const ptr = @import("ptr.zig");
const Value = value.Value;
// Zig API
pub fn check(v: Value) bool {
return ptr.checkZisp(v, .pair);
}
pub fn assert(v: Value) void {
if (!check(v)) {
v.dump();
@panic("not pair");
}
}
// Zisp API
pub fn pred(v: Value) Value {
return value.boole.pack(check(v));
}
pub fn cons(v1: Value, v2: Value) Value {
const mem = gc.alloc(2);
mem[0] = .{ .value = v1 };
mem[1] = .{ .value = v2 };
return ptr.pack(mem.ptr, .pair);
}
fn getMem(v: Value) *[2]Value {
return @ptrCast(ptr.unpack(v).@"0");
}
pub fn car(v: Value) Value {
assert(v);
return getMem(v)[0];
}
pub fn cdr(v: Value) Value {
assert(v);
return getMem(v)[1];
}
pub fn setcar(v: Value, new: Value) void {
assert(v);
getMem(v)[0] = new;
}
pub fn setcdr(v: Value, new: Value) void {
assert(v);
getMem(v)[1] = new;
}
|
