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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
#include "objects.h"
Object
make_string(StringView sv) {
Object obj = {
.type = OBJ_TYPE_STRING,
.text = NULL,
};
array_init(obj.text, sv.n);
array_insert(obj.text, sv.start, sv.n);
return obj;
}
Object
make_symbol(StringView sv) {
Object obj = {
.type = OBJ_TYPE_SYMBOL,
.text = NULL,
};
array_init(obj.text, sv.n);
array_insert(obj.text, sv.start, sv.n);
return obj;
}
Object
make_lambda(void) {
Object obj = {
.type = OBJ_TYPE_LAMBDA,
.chunk = chunk_init(),
};
return obj;
}
void
object_display(Object obj) {
switch (obj.type) {
case OBJ_TYPE_FIXNUM: {
printf("%zd", obj.fixnum);
} break;
case OBJ_TYPE_TRUE: {
printf("true");
} break;
case OBJ_TYPE_FALSE: {
printf("false");
} break;
case OBJ_TYPE_NIL: {
printf("()");
} break;
case OBJ_TYPE_STRING: {
printf("\"%.*s\"", (int)array_size(obj.text), obj.text);
} break;
case OBJ_TYPE_SYMBOL: {
printf(":%.*s", (int)array_size(obj.text), obj.text);
} break;
case OBJ_TYPE_PAIR: {
// printf("(");
// display_pair(obj);
// printf(")");
} break;
case OBJ_TYPE_LAMBDA: {
printf("#{procedure}");
} break;
case OBJ_TYPE_ERR: {
printf("#{error}");
} break;
}
return;
}
void
object_free(Object obj) {
if (IS_STRING(obj) || IS_SYMBOL(obj)) {
array_free(obj.text);
return;
}
if (IS_LAMBDA(obj)) {
chunk_free(obj.chunk);
}
}
bool
object_equal(Object a, Object b) {
if (a.type != b.type) {
return false;
}
switch (a.type) {
case OBJ_TYPE_TRUE:
case OBJ_TYPE_FALSE: {
return true;
} break;
case OBJ_TYPE_FIXNUM: {
return a.fixnum == b.fixnum;
} break;
case OBJ_TYPE_SYMBOL:
case OBJ_TYPE_STRING: {
if (array_size(a.text) != array_size(b.text)) {
return false;
}
for (size_t i = 0; i < array_size(a.text); i++) {
if (a.text[i] != b.text[i]) {
return false;
}
}
} break;
default: {
return false;
} break;
}
return true;
}
Object
object_copy(Object src) {
switch (src.type) {
case OBJ_TYPE_SYMBOL:
case OBJ_TYPE_STRING: {
Object copy = src;
copy.text = NULL;
array_init(copy.text, array_size(src.text));
array_insert(copy.text, src.text, array_size(src.text));
return copy;
} break;
default: { break; } break;
}
return src;
}
|