Subversion Repositories Kolibri OS

Rev

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 .