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
|
/* Copyright (C) 2025 Aryadev Chavali
* This program is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
* FOR A PARTICULAR PURPOSE. See the GNU General Public License Version 2 for
* details.
* You may distribute and modify this code under the terms of the GNU General
* Public License Version 2, which you should have received a copy of along with
* this program. If not, please go to <https://www.gnu.org/licenses/>.
* Created: 2025-04-06
* Description:
*/
#include <lisp/tag.h>
#include <string.h>
lisp_t *tag_int(i64 i)
{
return TAG((u64)i, INT);
}
lisp_t *tag_cons(void *ptr)
{
return TAG((u64)ptr, CONS);
}
lisp_t *tag_sym(void *ptr)
{
return TAG((u64)ptr, SYM);
}
lisp_t *tag_ssym(const char *data, size_t size)
{
assert(size <= 7);
u8 buffer[sizeof(u64)];
memset(buffer, 0, sizeof(buffer));
// in 8 bits we have:
// size - 3 bits (up to 7)
// tag - 5 bits
buffer[0] = size;
buffer[0] <<= SHIFT_SSYM;
buffer[0] |= TAG_SSYM;
memcpy(buffer + 1, data, size);
u64 word = 0;
memcpy(&word, buffer, sizeof(u64));
return (lisp_t *)word;
}
lisp_t *tag_bool(bool b)
{
return TAG((u64)b, BOOL);
}
lisp_t *tag_vec(void *ptr)
{
return TAG((u64)ptr, VEC);
}
lisp_t *tag_str(void *ptr)
{
return TAG((u64)ptr, STR);
}
lisp_t *tag_char(u32 codepoint)
{
u64 w = codepoint;
return TAG(w, CHAR);
}
enum Tag tag_get(lisp_t *ptr)
{
static_assert(NUM_TAGS == 9);
if (!ptr)
return TAG_NIL;
else if (IS_TAG(ptr, INT))
return TAG_INT;
else if (IS_TAG(ptr, CHAR))
return TAG_CHAR;
else if (IS_TAG(ptr, SYM))
return TAG_SYM;
else if (IS_TAG(ptr, SSYM))
return TAG_SSYM;
else if (IS_TAG(ptr, BOOL))
return TAG_BOOL;
else if (IS_TAG(ptr, VEC))
return TAG_VEC;
else if (IS_TAG(ptr, STR))
return TAG_STR;
else if (IS_TAG(ptr, CONS))
return TAG_CONS;
return 0;
}
|
