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
|
int NT_MODULE = 0
int NT_BLOCK = 1
int NT_FUNC = 2
int NT_PARAM = 3
int NT_RESULT = 4
int NT_DATA = 5
int NT_TYPE = 6
int NT_STRUCT = 7
struct Node {
int _type,
~uint8 data,
utils.Vector sub
}
/; method Node
/; init (int typ, ~uint8 dat)
self._type = typ
self.data = dat
Node sub
self.sub.init(len sub)
;/
/; end
_delete(self.data)
~Node n
/; loop (int i = 0; i < self.sub.count) [i++]
n = self.sub.get(i)
n`.end()
;/
self.sub.end()
;/
;/
/; build_struct (~utils.Iterator it, ~Node mod, ~utils.File fin)
;/
/; build_module (~utils.Iterator it, ~Node mod, ~utils.File fin)
;/
/; build_block (~utils.Iterator it, ~Node mod, ~utils.File fin)
it`.next()
/; if (it`.at_end() == true)
return
;/
~Token cur = it`.get()
;/
/; build_preproc (~utils.Iterator it, ~Node mod, ~utils.File fin)
it`.next()
/; if (it`.at_end() == true)
return
;/
~Token cur = it`.get()
/; if (utils.strcmp(cur`.data, "import\0") == true)
# get file path
it`.next()
cur = it`.get()
# gen new file struct
~uint8 frel = utils.unquote_str(cur`.data)
_printf("\nReading file: \0")
_printf(frel)
_printf("\n\0")
utils.File fnew = fin`.relative(frel)
# file import
build_file(~fnew, mod)
# cleanup
_delete(frel)
fnew.end()
;; else
# unknown preproc
return
;/
;/
/; build_vardef (~utils.Iterator it, ~Node mod, ~utils.File fin)
;/
/; at_defn (~utils.Iterator it) [bool]
return false
;/
~uint8 TOKEN_COUNT = "Token count: %d\n\0"
/; build_file (~utils.File fin, ~Node mod)
utils.Vector tokens = tokenize(fin)
_print_num(TOKEN_COUNT, tokens.count)
utils.Iterator tokit
tokit.init(~tokens)
/; loop (tokit.at_end() == false)
~Token t = tokit.get()
/; if (utils.strcmp(t`.data, "/;\0") || utils.strcmp(t`.data, ";;\0"))
_printf("Block detected!\n\0")
build_block(~tokit, mod, fin)
;; else if (utils.strcmp(t`.data, "struct\0") == true)
_printf("Struct detected!\n\0")
build_struct(~tokit, mod, fin)
;; else if (utils.strcmp(t`.data, ":\0") == true)
_printf("Preproc detected!\n\0")
build_preproc(~tokit, mod, fin)
;; else if (at_defn(tokit) == true)
_printf("Defn detected!\n\0")
build_vardef(~tokit, mod, fin)
;; else
# _printf("Error detected!\n\0")
# TODO: ERROR
;/
tokit.next()
;/
free_token_list(~tokens)
;/
|
