blob: 36fcbd288d52c53fc8069492b0ac063721f45b86 (
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
64
65
66
67
68
69
70
71
72
73
74
75
|
; returns a string of null character-separated preprocessing tokens
; this corresponds to translation phases 1-3 in the C89 standard
function split_into_preprocessing_tokens
argument filename
local fd
local file_contents
local pptokens
local p
local c
local in
local out
local n
fd = open_r(filename)
file_contents = malloc(2000000)
pptokens = malloc(2000000)
p = file_contents
:pptokens_read_loop
n = syscall(0, fd, p, 4096)
if n == 0 goto pptokens_read_loop_end
p += n
:pptokens_read_loop_end
; okay we read the file. first, delete every backslash-newline sequence (phase 2)
local newlines ; we add more newlines to keep line numbers right
newlines = 1
in = file_contents
out = file_contents
:backslashnewline_loop
c = *1in
if c == 0 goto backslashnewline_loop_end
if c == 10 goto proper_newline_loop
if c != '\ goto not_backslashnewline
p = in + 1
c = *1p
if c != 10 goto not_backslashnewline
in += 2 ; skip backlash and newline
newlines += 1 ; add one additional newline the next time around to compensate
goto backslashnewline_loop
:not_backslashnewline
*1out = *1in
out += 1
in += 1
goto backslashnewline_loop
:proper_newline_loop
if newlines == 0 goto proper_newline_loop_end
; output a newline
*1out = 10
out += 1
newlines -= 1
goto proper_newline_loop
:proper_newline_loop_end
newlines = 1
in += 1
goto backslashnewline_loop
:backslashnewline_loop_end
*1out = 0
in = file_contents
fputs(1, file_contents)
free(file_contents)
close(fd)
return
:unterminated_comment
fputs(2, .str_unterminated_comment)
fputs(2, filename)
fputc(2, 10)
exit(1)
:str_unterminated_comment
string Unterminated comment in file
byte 32
byte 0
|
