|
0
|
1 # struct tests:
|
|
|
2
|
|
|
3
|
|
|
4 # test embedded structures and inline assignments
|
|
|
5
|
|
|
6 parseStructInfos("
|
|
|
7 SDL_Rect{ssSS}x y w h ;
|
|
|
8 Test{II<SDL_Rect>II}a b rect c d;
|
|
|
9 ")
|
|
|
10 x <- new.struct("Test")
|
|
|
11 print(x)
|
|
|
12
|
|
|
13 r <- new.struct("SDL_Rect")
|
|
|
14 r$x <- 1
|
|
|
15 r$y <- 2
|
|
|
16 r$w <- 3
|
|
|
17 r$h <- 4
|
|
|
18 x$rect <- r
|
|
|
19
|
|
|
20 #
|
|
|
21
|
|
|
22 parseStructInfos("
|
|
|
23 SDL_ActiveEvent{CCC}type gain state ;
|
|
|
24 SDL_keysym{CiiS}scancode sym mod unicode ;
|
|
|
25 SDL_KeyboardEvent{CCC<SDL_keysym>}type which state keysym ;
|
|
|
26 SDL_MouseMotionEvent{CCCSSss}type which state x y xrel yrel ;
|
|
|
27 SDL_MouseButtonEvent{CCCCSS}type which button state x y ;
|
|
|
28 ")
|
|
|
29
|
|
|
30 g
|
|
|
31
|
|
|
32 new <- function()
|
|
|
33 {
|
|
|
34 x <- list()
|
|
|
35 class(x) <- "test"
|
|
|
36 return(x)
|
|
|
37 }
|
|
|
38
|
|
|
39 "$<-.test" <- function(x, index, value)
|
|
|
40 {
|
|
|
41 cat("$<-\n")
|
|
|
42 cat("nargs:", nargs(), "\n" )
|
|
|
43 x[index] <- value
|
|
|
44 return(x)
|
|
|
45 }
|
|
|
46
|
|
|
47 "$.test" <- function(x, index)
|
|
|
48 {
|
|
|
49 cat("$\n")
|
|
|
50 x[index]
|
|
|
51 }
|
|
|
52
|
|
|
53 x <- new()
|
|
|
54 x$a <- 23
|
|
|
55
|
|
|
56 x$a$b <- 23
|
|
|
57
|
|
|
58
|
|
|
59
|
|
|
60
|
|
|
61 str(x)
|
|
|
62
|
|
|
63 x$rect
|
|
|
64
|
|
|
65 registerStructInfos("
|
|
|
66 SDL_Rect{ssSS}x y w h ;
|
|
|
67 SDL_Surface{I*<SDL_PixelFormat>iiS*vi*<private_hwdata><SDL_Rect>II*<SDL_BlitMap>Ii}flags format w h pitch pixels offset hwdata clip_rect unused1 locked map format_version refcount ;
|
|
|
68 ")
|
|
|
69
|
|
|
70
|
|
|
71 x <- new.struct("SDL_Rect")
|
|
|
72 x$x <- 10
|
|
|
73 x$y <- 10
|
|
|
74 x$w <- 100
|
|
|
75 x$h <- 100
|
|
|
76 str(x)
|
|
|
77
|
|
|
78 # ----------------------------------------------------------------------------
|
|
|
79 # tests
|
|
|
80
|
|
|
81
|
|
|
82 registerStructInfos("SDL_SysWMmsg{};
|
|
|
83 SDL_SysWMEvent{C*<SDL_SysWMmsg>}type msg ;
|
|
|
84 ")
|
|
|
85
|
|
|
86 registerStructInfos(sdlStructs)
|
|
|
87 parseStructInfos("SDL_UserEvent{Ci*v*v}type code data1 data2 ;SDL_QuitEvent{C}type ;")
|
|
|
88 sigs <- "SDL_UserEvent{Ci*v*v}type code data1 data2 ;SDL_QuitEvent{C}type ;"
|
|
|
89
|
|
|
90 for (i in seq(along=sigs))
|
|
|
91 {
|
|
|
92 if ( length(sigs[[i]]) < 2 ) next
|
|
|
93 name <- sigs[[i]][[1]]
|
|
|
94 # eat white spaces
|
|
|
95 name <- gsub("[ \n\t]*","",name)
|
|
|
96 tail <- unlist( strsplit(sigs[[i]][[2]], "\\}") )
|
|
|
97 sig <- tail[[1]]
|
|
|
98 fields <- unlist( strsplit( tail[[2]], "[ \n\t]+" ) )
|
|
|
99 infos[[name]] <- list(sig, fields)
|
|
|
100 infos[[name]] <- makeStructInfo(sig, fields)
|
|
|
101 }
|
|
|
102 return(infos)
|
|
|
103 }
|
|
|
104
|
|
|
105
|
|
|
106
|
|
|
107
|
|
|
108 registerStructInfos("SDL_version{CCC}major minor patch ;
|
|
|
109 _SDL_TimerID{};
|
|
|
110 SDL_SysWMmsg{};
|
|
|
111 SDL_SysWMEvent{C*<SDL_SysWMmsg>}type msg ;
|
|
|
112 SDL_UserEvent{Ci*v*v}type code data1 data2 ;
|
|
|
113 SDL_QuitEvent{C}type ;
|
|
|
114 SDL_ExposeEvent{C}type ;
|
|
|
115 SDL_ResizeEvent{Cii}type w h ;
|
|
|
116 SDL_JoyButtonEvent{CCCC}type which button state ;
|
|
|
117 SDL_JoyHatEvent{CCCC}type which hat value ;
|
|
|
118 SDL_JoyBallEvent{CCCss}type which ball xrel yrel ;
|
|
|
119 SDL_JoyAxisEvent{CCCs}type which axis value ;
|
|
|
120 SDL_MouseButtonEvent{CCCCSS}type which button state x y ;
|
|
|
121 SDL_MouseMotionEvent{CCCSSss}type which state x y xrel yrel ;
|
|
|
122 SDL_keysym{CiiS}scancode sym mod unicode ;
|
|
|
123 SDL_KeyboardEvent{CCC<SDL_keysym>}type which state keysym ;
|
|
|
124 SDL_ActiveEvent{CCC}type gain state ;
|
|
|
125 SDL_Rect{ssSS}x y w h ;
|
|
|
126 SDL_Surface{I*<SDL_PixelFormat>iiS*vi*<private_hwdata><SDL_Rect>II*<SDL_BlitMap>Ii}flags format w h pitch pixels offset hwdata clip_rect unused1 locked map format_version refcount ;
|
|
|
127 ")
|
|
|
128
|
|
|
129
|
|
|
130
|
|
|
131 sigs <- "SDL_ActiveEvent{CCC}type gain state ;SDL_AudioCVT{iSSd*Ciiidi}needed src_format dst_format rate_incr buf len len_cvt len_mult len_ratio filters filter_index ;"
|
|
|
132 sigs <- "SDL_AudioCVT{iSSd*Ciiidi}needed src_format dst_format rate_incr buf len len_cvt len_mult len_ratio filters filter_index ;"
|
|
|
133 parseStructInfos(sigs)
|
|
|
134 dsadsigs <- sdlStructs
|
|
|
135 sdlStructs <- "
|
|
|
136 SDL_version{CCC}major minor patch ;
|
|
|
137 _SDL_TimerID{};
|
|
|
138 SDL_SysWMmsg{};
|
|
|
139 SDL_SysWMEvent{C*<SDL_SysWMmsg>}type msg ;
|
|
|
140 SDL_UserEvent{Ci*v*v}type code data1 data2 ;
|
|
|
141 SDL_QuitEvent{C}type ;
|
|
|
142 SDL_ExposeEvent{C}type ;
|
|
|
143 SDL_ResizeEvent{Cii}type w h ;
|
|
|
144 SDL_JoyButtonEvent{CCCC}type which button state ;
|
|
|
145 SDL_JoyHatEvent{CCCC}type which hat value ;
|
|
|
146 SDL_JoyBallEvent{CCCss}type which ball xrel yrel ;
|
|
|
147 SDL_JoyAxisEvent{CCCs}type which axis value ;
|
|
|
148 SDL_MouseButtonEvent{CCCCSS}type which button state x y ;
|
|
|
149 SDL_MouseMotionEvent{CCCSSss}type which state x y xrel yrel ;
|
|
|
150 SDL_keysym{CiiS}scancode sym mod unicode ;
|
|
|
151 SDL_KeyboardEvent{CCC<SDL_keysym>}type which state keysym ;
|
|
|
152 SDL_ActiveEvent{CCC}type gain state ;
|
|
|
153 _SDL_Joystick{};
|
|
|
154 SDL_Rect{ssSS}x y w h ;
|
|
|
155 WMcursor{};
|
|
|
156 SDL_Cursor{<SDL_Rect>ss*C*C*<WMcursor>}area hot_x hot_y data mask save wm_cursor ;
|
|
|
157 SDL_Overlay{Iiii*S**<private_yuvhwfuncs>*<private_yuvhwdata>II}format w h planes pitches pixels hwfuncs hwdata hw_overlay UnusedBits ;
|
|
|
158 private_yuvhwdata{};
|
|
|
159 private_yuvhwfuncs{};
|
|
|
160 SDL_VideoInfo{IIIIIIIIIIIII*<SDL_PixelFormat>ii}hw_available wm_available UnusedBits1 UnusedBits2 blit_hw blit_hw_CC blit_hw_A blit_sw blit_sw_CC blit_sw_A blit_fill UnusedBits3 video_mem vfmt current_w current_h ;
|
|
|
161 SDL_BlitMap{};
|
|
|
162 private_hwdata{};
|
|
|
163 SDL_Color{CCCC}r g b unused ;
|
|
|
164 SDL_Palette{i*<SDL_Color>}ncolors colors ;
|
|
|
165 SDL_PixelFormat{*<SDL_Palette>CCCCCCCCCCIIIIIC}palette BitsPerPixel BytesPerPixel Rloss Gloss Bloss Aloss Rshift Gshift Bshift Ashift Rmask Gmask Bmask Amask colorkey alpha ;
|
|
|
166 SDL_CD{iiiii}id status numtracks cur_track cur_frame track ;
|
|
|
167 SDL_CDtrack{CCSII}id type unused length offset ;
|
|
|
168 SDL_AudioCVT{iSSd*Ciiidi}needed src_format dst_format rate_incr buf len len_cvt len_mult len_ratio filters filter_index ;
|
|
|
169 SDL_AudioSpec{iSCCSSI*p*v}freq format channels silence samples padding size callback userdata ;
|
|
|
170 "
|
|
|
171
|
|
|
172
|
|
|
173
|
|
|
174 old <- "SDL_version{CCC}major minor patch ;
|
|
|
175 _SDL_TimerID{};
|
|
|
176 SDL_SysWMEvent{C*<SDL_SysWMmsg>}type msg ;
|
|
|
177 SDL_SysWMmsg{};
|
|
|
178 SDL_UserEvent{Ci*v*v}type code data1 data2 ;
|
|
|
179 SDL_QuitEvent{C}type ;
|
|
|
180 SDL_ExposeEvent{C}type ;
|
|
|
181 SDL_ResizeEvent{Cii}type w h ;
|
|
|
182 SDL_JoyButtonEvent{CCCC}type which button state ;
|
|
|
183 SDL_JoyHatEvent{CCCC}type which hat value ;
|
|
|
184 SDL_JoyBallEvent{CCCss}type which ball xrel yrel ;
|
|
|
185 SDL_JoyAxisEvent{CCCs}type which axis value ;
|
|
|
186 SDL_MouseButtonEvent{CCCCSS}type which button state x y ;
|
|
|
187 SDL_MouseMotionEvent{CCCSSss}type which state x y xrel yrel ;
|
|
|
188 SDL_KeyboardEvent{CCC<SDL_keysym>}type which state keysym ;
|
|
|
189 SDL_ActiveEvent{CCC}type gain state ;
|
|
|
190 _SDL_Joystick{};
|
|
|
191 SDL_Cursor{<SDL_Rect>ss*C*C*<WMcursor>}area hot_x hot_y data mask save wm_cursor ;
|
|
|
192 WMcursor{};
|
|
|
193 SDL_Overlay{Iiii*S**<private_yuvhwfuncs>*<private_yuvhwdata>II}format w h planes pitches pixels hwfuncs hwdata hw_overlay UnusedBits ;
|
|
|
194 private_yuvhwdata{};
|
|
|
195 private_yuvhwfuncs{};
|
|
|
196 SDL_VideoInfo{IIIIIIIIIIIII*<SDL_PixelFormat>ii}hw_available wm_available UnusedBits1 UnusedBits2 blit_hw blit_hw_CC blit_hw_A blit_sw blit_sw_CC blit_sw_A blit_fill UnusedBits3 video_mem vfmt current_w current_h ;
|
|
|
197 SDL_Surface{I*<SDL_PixelFormat>iiS*vi*<private_hwdata><SDL_Rect>II*<SDL_BlitMap>Ii}flags format w h pitch pixels offset hwdata clip_rect unused1 locked map format_version refcount ;
|
|
|
198 SDL_BlitMap{};
|
|
|
199 private_hwdata{};
|
|
|
200 SDL_PixelFormat{*<SDL_Palette>CCCCCCCCCCIIIIIC}palette BitsPerPixel BytesPerPixel Rloss Gloss Bloss Aloss Rshift Gshift Bshift Ashift Rmask Gmask Bmask Amask colorkey alpha ;
|
|
|
201 SDL_Palette{i*<SDL_Color>}ncolors colors ;
|
|
|
202 SDL_Color{CCCC}r g b unused ;
|
|
|
203 SDL_Rect{ssSS}x y w h ;
|
|
|
204 SDL_keysym{CiiS}scancode sym mod unicode ;
|
|
|
205 SDL_CD{iiiii}id status numtracks cur_track cur_frame track ;
|
|
|
206 SDL_CDtrack{CCSII}id type unused length offset ;
|
|
|
207 SDL_AudioCVT{iSSd*Ciiidi}needed src_format dst_format rate_incr buf len len_cvt len_mult len_ratio filters filter_index ;
|
|
|
208 SDL_AudioSpec{iSCCSSI*p*v}freq format channels silence samples padding size callback userdata ;
|
|
|
209 SDL_RWops{*p*p*p*pI<$_7>}seek read write close type hidden ;
|
|
|
210 SDL_Thread{};
|
|
|
211 SDL_cond{};
|
|
|
212 SDL_semaphore{};
|
|
|
213 SDL_mutex{};
|
|
|
214 _SDL_iconv_t{};
|
|
|
215 lldiv_t{ll}quot rem ;
|
|
|
216 ldiv_t{jj}quot rem ;
|
|
|
217 div_t{ii}quot rem ;
|
|
|
218 _iobuf{*ci*ciiii*c}_ptr _cnt _base _flag _file _charbuf _bufsiz _tmpfname ;
|
|
|
219 $_8{i*v<$_9>}append h buffer ;
|
|
|
220 $_10{i*<_iobuf>}autoclose fp ;
|
|
|
221 $_11{*C*C*C}base here stop ;
|
|
|
222 $_12{*v}data1 ;
|
|
|
223 $_9{*vii}data size left ;
|
|
|
224 "
|
|
|
225
|
|
|
226
|
|
|
227 .types <- list()
|
|
|
228
|
|
|
229 setStruct <- function(name, ...)
|
|
|
230 {
|
|
|
231 x <- list(...)
|
|
|
232 class(x) <- c("struct","type")
|
|
|
233 .types[[name]] <<- x
|
|
|
234 }
|
|
|
235
|
|
|
236 setUnion <- function(name, ...)
|
|
|
237 {
|
|
|
238 x <- list(...)
|
|
|
239 class(x) <- c("union","type")
|
|
|
240 .types[[name]] <<- x
|
|
|
241 }
|
|
|
242
|
|
|
243 getType <- function(name)
|
|
|
244 {
|
|
|
245 .types[[name]]
|
|
|
246 }
|
|
|
247
|
|
|
248
|
|
|
249 setStruct("SDL_keysym", scancode="C", sym="i", mod="i", unicode="S" )
|
|
|
250 setStruct("SDL_KeyboardEvent", type="C", which="C", state="C", keysym="{SDL_keysym}")
|
|
|
251
|
|
|
252 parseTypeSignature("SDL_Event|C<SDL_ActiveEvent><SDL_KeyboardEvent><SDL_MouseMotionEvent><SDL_MouseButtonEvent><SDL_JoyAxisEvent><SDL_JoyBallEvent><SDL_JoyHatEvent><SDL_JoyButtonEvent><SDL_ResizeEvent><SDL_ExposeEvent><SDL_QuitEvent><SDL_UserEvent><SDL_SysWMEvent>|type active key motion button jaxis jball jhat jbutton resize expose quit user syswm ;")
|
|
|
253
|
|
|
254 setUnion("SDL_Event",
|
|
|
255 type="uchar",
|
|
|
256 action="SDL_ActiveEvent",
|
|
|
257 key="SDL_KeyboardEvent",
|
|
|
258 motion="SDL_MouseMotionEvent",
|
|
|
259 button="SDL_MouseButtonEvent",
|
|
|
260 jaxis="SDL_JoyAxisEvent",
|
|
|
261 jball="SDL_JoyBallEvent",
|
|
|
262 jbutton="SDL_JoyButtonEvent",
|
|
|
263 resize="SDL_ResizeEvent",
|
|
|
264 expose="SDL_ExposeEvent",
|
|
|
265 quit="SDL_QuitEvent",
|
|
|
266 user="SDL_UserEvent",
|
|
|
267 syswm="SDL_SysWMEvent")
|
|
|
268
|
|
|
269 .sizeof <- c(
|
|
|
270 B=.Machine$sizeof.long,
|
|
|
271 c=1L,
|
|
|
272 C=1L,
|
|
|
273 s=2L,
|
|
|
274 S=2L,
|
|
|
275 i=.Machine$sizeof.long,
|
|
|
276 I=.Machine$sizeof.long,
|
|
|
277 j=.Machine$sizeof.long,
|
|
|
278 J=.Machine$sizeof.long,
|
|
|
279 l=.Machine$sizeof.longlong,
|
|
|
280 L=.Machine$sizeof.longlong,
|
|
|
281 f=4L,
|
|
|
282 d=8L,
|
|
|
283 "*"=.Machine$sizeof.pointer,
|
|
|
284 p=.Machine$sizeof.pointer,
|
|
|
285 x=.Machine$sizeof.pointer,
|
|
|
286 Z=.Machine$sizeof.pointer,
|
|
|
287 v=0L
|
|
|
288 )
|
|
|
289
|
|
|
290 align <- function(start, type)
|
|
|
291 {
|
|
|
292 start %% sizeof(x)
|
|
|
293 }
|
|
|
294
|
|
|
295 sizeof <- function(x)
|
|
|
296 {
|
|
|
297 first <- substr(x,1,1)
|
|
|
298 if (first == "<") {
|
|
|
299 if ( substr(x, nchar(x), nchar(x) ) != ">" ) stop("invalid signature")
|
|
|
300 typeName <- substr(x,2,nchar(x)-2)
|
|
|
301 sizeof(getType(typeName))
|
|
|
302 } else {
|
|
|
303 .sizeof[[substr(x, 1,1)]]
|
|
|
304 }
|
|
|
305 }
|
|
|
306
|
|
|
307 sizeof.struct <- function(x)
|
|
|
308 {
|
|
|
309 total <- 0L
|
|
|
310 for(i in x)
|
|
|
311 {
|
|
|
312 size <- sizeof(i)
|
|
|
313 total <- total + total %% size + size
|
|
|
314 }
|
|
|
315 return(total)
|
|
|
316 }
|
|
|
317
|
|
|
318
|
|
|
319 sizeof(struct("iii"))
|
|
|
320 sizeof(union("iii"))
|
|
|
321
|
