jlisp/binding.cpp at master · jwthomp/jlisp · GitHub

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
#include "value.h"
#include "value_helpers.h"

#include "binding.h"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>


value_t * binding_find(vm_t *p_vm, value_t * p_bindings, value_t *p_key)
{
//	if (p_key == p_vm->nil || is_fixnum(p_key) || p_key->m_type != VT_SYMBOL) {
//		return NULL;
//	}

	value_t *cur_bindings = p_bindings;
	while(cur_bindings) {
		if (cur_bindings == NULL || cur_bindings == p_vm->nil || is_fixnum(cur_bindings)) {
			return NULL;
		}

		if (cur_bindings->m_type != VT_BINDING) {
			return NULL;
		}

		binding_t *bind = (binding_t *)cur_bindings->m_data;

		if (bind->m_key == p_key) {
			return cur_bindings;
		}

		cur_bindings = bind->m_next;
	}
}

value_t *binding_get_value(value_t *p_binding)
{
	binding_t *bind = (binding_t *)p_binding->m_data;
	return bind->m_value;
}

value_t *binding_get_key(value_t *p_binding)
{
	binding_t *bind = (binding_t *)p_binding->m_data;
	return bind->m_key;
}

value_t *binding_get_next(value_t *p_binding)
{
	binding_t *bind = (binding_t *)p_binding->m_data;
	return bind->m_next;
}