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
|
import "all.hff";
extern fn xmalloc(n usize) *void {
let p = malloc(n);
assert(p != #null, "malloc");
return p;
}
extern fn xrealloc(p *void, n usize) *void {
let p = realloc(p, n);
assert(p != #null, "realloc");
return p;
}
extern fn fnv1a(h u32, d [#]const u8) u32 {
foreach(i, x, d,
h ^= x;
h *= 0x01000193;
)
return h;
}
extern fn fnv1a_s(h u32, str *const u8) u32 {
while *str != 0 {
h ^= *str++;
h *= 0x01000193;
}
return h;
}
static filepaths [64]*const u8 = {};
static nfilepaths int = 0;
extern fn addfilepath(s *const u8) int {
let i0 = fnv1a_s(FNV1A_INI, s) % filepaths.#len;
let i int = i0;
do {
if filepaths[i] == #null {
break;
} else if streq(filepaths[i], s) {
return i;
}
} while ++i != i0;
assert(nfilepaths++ < filepaths.#len, "too many files");
filepaths[i] = s;
return i;
}
fn fileid2path(id int) *const u8 {
assert(id >= 0 and id < filepaths.#len, "fileid");
let s = filepaths[id];
assert(s != #null, "fileid");
return s;
}
extern fn fatal(P *Parser, loc Loc, fmt *const u8, ...) void {
let ap va_list #?;
ap->start(fmt);
efmt("%s:%i:%i: error: ", fileid2path(loc.fileid), loc.line, loc.col);
vefmt(fmt, ap);
efmt("\n");
ap->end();
exit(1);
}
|
