blob: 62f567a052c0c212d2e8d7562a9444187134383f (
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
58
59
60
61
62
63
|
#ifndef ATOM_H
#define ATOM_H
#define LIST_GET_ATOM(LIST) ((struct atom *) (LIST)->data)
#define ATOM_TYPE(LIST) ((LIST_GET_ATOM(LIST))->type)
#define IS_INT(LIST) ((ATOM_TYPE(LIST)) == ATOM_INT)
#define IS_STR(LIST) ((ATOM_TYPE(LIST)) == ATOM_STR)
#define IS_SYM(LIST) ((ATOM_TYPE(LIST)) == ATOM_SYMBOL)
#define IS_LIST(LIST) ((ATOM_TYPE(LIST)) == ATOM_LIST)
#define IS_ATOM(LIST) (!(IS_LIST(LIST)))
#define IS_TRUE(LIST) (LIST_GET_ATOM(LIST) == &true_atom)
#define IS_FALSE(LIST) (LIST_GET_ATOM(LIST) == &false_atom)
#define IS_NIL(LIST) (LIST_GET_ATOM(LIST) == &nil_atom)
#define CAR(LIST) LIST
#define CDR(LIST) ((LIST) != NULL ? (LIST)->next : NULL)
#define CDDR(LIST) CDR(CDR(LIST))
enum
{
ATOM_NIL,
ATOM_INT,
ATOM_STR,
ATOM_SYMBOL,
ATOM_LIST,
ATOM_TRUE,
ATOM_FALSE
};
struct list;
struct atom
{
char type;
union
{
long l;
struct
{
char *str;
int len;
} str;
struct list *list;
};
};
struct atom *atom_new(char type);
struct atom *atom_new_int(long l);
struct atom *atom_new_str(const char *str, int len);
struct atom *atom_new_sym(const char *sym, int len);
struct atom *atom_new_list(struct list *list);
struct atom *atom_clone();
extern struct atom true_atom;
extern struct atom false_atom;
extern struct atom nil_atom;
#endif
|
