Rev 4851 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4851 | Rev 9026 | ||
---|---|---|---|
Line 91... | Line 91... | ||
91 | end virtual \} |
91 | end virtual \} |
92 | match any, sub@struct \{ fields@struct equ fields@struct> \} |
92 | match any, sub@struct \{ fields@struct equ fields@struct> \} |
93 | restore sub@struct } |
93 | restore sub@struct } |
94 | 94 | ||
Line -... | Line 95... | ||
- | 95 | ; @dont_give_a_doxygen |
|
95 | macro make@struct name,[field,type,def] |
96 | macro make@struct name,[field,type,def] |
96 | { common |
97 | { common |
97 | local define |
98 | local define |
98 | define equ name |
99 | define equ name |
99 | forward |
100 | forward |
Line 103... | Line 104... | ||
103 | match any, field \{ define equ define,.#field,type, |
104 | match any, field \{ define equ define,.#field,type, |
104 | common |
105 | common |
105 | match fields, define \{ define@struct fields \} } |
106 | match fields, define \{ define@struct fields \} } |
106 | 107 | ||
Line -... | Line 108... | ||
- | 108 | ; @dont_give_a_doxygen |
|
107 | macro define@struct name,[field,type,def] |
109 | macro define@struct name,[field,type,def] |
108 | { common |
110 | { common |
109 | virtual |
111 | virtual |
110 | db `name |
112 | db `name |
111 | load initial@struct byte from 0 |
113 | load initial@struct byte from 0 |
Line 155... | Line 157... | ||
155 | rb sizeof.#name#field - ($-..field) |
157 | rb sizeof.#name#field - ($-..field) |
156 | end if \\\\} |
158 | end if \\\\} |
157 | common \\\} \\} \} } |
159 | common \\\} \\} \} } |
158 | 160 | ||
Line -... | Line 161... | ||
- | 161 | ; @dont_give_a_doxygen |
|
159 | macro enable@substruct |
162 | macro enable@substruct |
160 | { macro make@substruct substruct,parent,name,[field,type,def] |
163 | { macro make@substruct substruct,parent,name,[field,type,def] |
161 | \{ \common |
164 | \{ \common |
162 | \local define |
165 | \local define |
163 | define equ parent,name |
166 | define equ parent,name |
Line 170... | Line 173... | ||
170 | match any, field \\{ define equ define,.\#field,type, |
173 | match any, field \\{ define equ define,.\#field,type, |
171 | \common |
174 | \common |
172 | match fields, define \\{ define@\#substruct fields \\} \} } |
175 | match fields, define \\{ define@\#substruct fields \\} \} } |
173 | 176 | ||
Line -... | Line 177... | ||
- | 177 | ; @dont_give_a_doxygen |
|
174 | enable@substruct |
178 | enable@substruct |
Line -... | Line 179... | ||
- | 179 | ||
175 | 180 | ; @dont_give_a_doxygen |
|
176 | macro define@union parent,name,[field,type,def] |
181 | macro define@union parent,name,[field,type,def] |
177 | { common |
182 | { common |
178 | virtual at parent#.#name |
183 | virtual at parent#.#name |
179 | forward |
184 | forward |
Line 211... | Line 216... | ||
211 | common rb sizeof.#name - ($ - .\#name) \} |
216 | common rb sizeof.#name - ($ - .\#name) \} |
212 | macro name [value] \{ \common \local ..anonymous |
217 | macro name [value] \{ \common \local ..anonymous |
213 | ..anonymous name value \} } |
218 | ..anonymous name value \} } |
214 | 219 | ||
Line -... | Line 220... | ||
- | 220 | ; @dont_give_a_doxygen |
|
215 | macro define@substruct parent,name,[field,type,def] |
221 | macro define@substruct parent,name,[field,type,def] |
216 | { common |
222 | { common |
217 | virtual at parent#.#name |
223 | virtual at parent#.#name |
218 | forward |
224 | forward |
219 | if ~ field eq . |
225 | if ~ field eq . |