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
127
128
129
130
131
132
133
|
#ifndef APLWC_INTERNAL_H
#define APLWC_INTERNAL_H
#include <aplwc.h>
#include <aplwc_macros.h>
#include <assert.h>
#include <stdalign.h>
#include <stdbool.h>
#include <string.h>
struct aplwc {
struct aplwc_fns fns;
enum aplwc_rc last_error;
struct aplwc_module *modules;
/* Memory management */
uint8_t *data;
uint8_t *unaligned_data;
size_t size;
struct memory_ptr_frame *memptrs;
struct root_ptr *rootptrs;
unsigned int reachable_bit:1;
};
struct memory_ptr_frame {
struct memory_ptr_frame *link;
void ***ptrs;
size_t count;
};
struct root_ptr {
int id;
void *ptr;
struct root_ptr *link;
};
struct aplwc_line {
struct string *text;
struct token_list *tokens;
};
struct string {
size_t bytes;
size_t chars;
uint8_t utf8[1];
};
enum token_tag {
TOKEN_TAG_IDENTIFIER,
TOKEN_TAG_NEWLINE,
TOKEN_TAG_NUMBER,
TOKEN_TAG_LEFT_ARROW,
TOKEN_TAG_DIAMOND,
TOKEN_TAG_KEYWORD,
TOKEN_TAG_TEXT,
TOKEN_TAG_DEL,
TOKEN_TAG_LEFT_PAREN,
TOKEN_TAG_RIGHT_PAREN,
TOKEN_TAG_IBEAM,
TOKEN_TAG_QUAD,
TOKEN_TAG_UNKNOWN_SYM
};
struct token {
enum token_tag tag;
size_t start;
size_t end;
};
struct token_list {
struct string *text;
size_t length;
struct token tokens[1];
};
enum value_tag {
VALUE_NULL,
VALUE_NUMBER
};
struct aplwc_value {
enum value_tag tag;
};
struct aplwc_module {
struct string *name;
struct token_list *tokens;
struct aplwc_module *link;
};
/* eval.c */
struct aplwc_value *eval_line(struct aplwc *, struct aplwc_line *);
/* memory.c */
void memory_init(struct aplwc *);
void memory_destroy(struct aplwc *);
struct aplwc_line *memory_alloc_aplwc_line(struct aplwc *);
struct string *memory_alloc_string(struct aplwc *, size_t);
struct token_list *memory_alloc_token_list(struct aplwc *, size_t);
struct aplwc_value *memory_alloc_aplwc_value(struct aplwc *);
struct aplwc_module *memory_alloc_aplwc_module(struct aplwc *);
struct module_imports *memory_alloc_module_imports(struct aplwc *, size_t);
struct aplwc_ref memory_root_new(struct aplwc *, void *);
void *memory_root_get(struct aplwc_ref);
void memory_root_free(struct aplwc_ref);
void memptrs_add(struct aplwc *, struct memory_ptr_frame *, void ***, size_t);
void memptrs_remove(struct aplwc *, struct memory_ptr_frame *);
void clear_ref(struct aplwc_ref *);
int valid_ref(struct aplwc_ref);
#define MEMPTRS(aplwc, n) \
void **memptrs[n]; \
struct memory_ptr_frame memptrs_frame; \
memptrs_add(aplwc, &memptrs_frame, memptrs, n);
#define MEMPTR(n, ptr) memptrs[n] = (void **)&ptr
#define MEMPTRS_EXIT(aplwc) memptrs_remove(aplwc, &memptrs_frame)
/* string.c */
struct string *chars_to_string(struct aplwc *, const char *, int len);
uint32_t string_char(struct string *, size_t);
size_t char_length(struct string *, size_t);
int string_compare(struct string *, struct string *);
/* syntax.c */
struct token_list *scan_string(struct aplwc *, struct string *, int);
enum aplwc_rc check_tokens(struct token_list *);
/* module.c */
enum aplwc_rc load_module(struct aplwc *, struct string *, struct token_list *);
struct aplwc_module *module_lookup(struct aplwc *, struct string *);
struct string *module_imports_syms(struct module_imports *);
#endif /* APLWC_INTERNAL_H */
|