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
|
/*
Copyright (C) 2019 Leo Tenenbaum.
This file is part of toc. toc is distributed under version 3 of the GNU General Public License, without any warranty whatsoever.
You should have received a copy of the GNU General Public License along with toc. If not, see <https://www.gnu.org/licenses/>.
*/
static void exptr_create(Exporter *exptr, FILE *out) {
exptr->out = out;
exptr->export_locations = true;
}
static void export_u8(Exporter *ex, U8 u8) {
write_u8(ex->out, u8);
}
static void export_u16(Exporter *ex, U16 u16) {
write_u16(ex->out, u16);
}
static void export_u32(Exporter *ex, U32 u32) {
write_u32(ex->out, u32);
}
static void export_u64(Exporter *ex, U64 u64) {
write_u64(ex->out, u64);
}
static void export_location(Exporter *ex, Location where) {
if (ex->export_locations) {
export_u32(ex, where.line);
export_u32(ex, where.pos);
}
}
static void export_ident(Exporter *ex, Identifier i) {
assert(i->id);
export_u64(ex, i->id);
}
static bool export_decl(Exporter *ex, Declaration *d) {
if (!ex) {
err_print(d->where, "Trying to export declaration, but a package output was not specified.");
return false;
}
export_location(ex, d->where);
if (arr_len(d->idents) > 65535) {
err_print(d->where, "Too many identifiers in a declaration (the maximum is 65535).");
return false;
}
export_u16(ex, (U16)arr_len(d->idents));
arr_foreach(d->idents, Identifier, ident) {
export_ident(ex, *ident);
}
U8 constness = 0;
if (d->flags & DECL_IS_CONST) constness = 1;
else if (d->flags & DECL_SEMI_CONST) constness = 2;
export_u8(ex, constness);
U8 expr_kind = 0;
if (d->flags & DECL_HAS_EXPR) expr_kind = 1; /* export expression */
if (d->flags & DECL_FOUND_VAL) expr_kind = 2; /* export value */
export_u8(ex, expr_kind);
return true;
}
|