blob: fca2449809943d0e7692b86418ca8fe362e2e903 (
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
|
//
// Environment.
//
typedef struct EnvSymbol {
Object *symbol;
Object *value;
} EnvSymbol;
typedef struct Environment {
struct Environment *parent;
EnvSymbol *memory;
size_t size;
size_t capacity;
} Environment;
#define ENV_SIZE 256
static EnvSymbol environment[ENV_SIZE];
static size_t env_n = 0;
Object *
env_find_symbol(Object *symbol) {
for (size_t i = 0; i < env_n; i++) {
if (symbol_eq(environment[i].symbol, symbol)) {
return environment[i].value;
}
}
return obj_nil;
}
Environment *
env_create(Environment *parent) {
// TODO: calloc env and assign parent.
return NULL;
}
void
env_add_symbol(EnvSymbol symbol, Environment *env) {
// TODO: If empty allocate enough for one object.
// TODO: If full double the capacity and realloc.
// TODO: Put the symbol on the next slot available.
}
|