]> git.jsancho.org Git - gacela.git/blob - src/gacela_SDL.c
(no commit message)
[gacela.git] / src / gacela_SDL.c
1 /* Gacela, a GNU Guile extension for fast games development
2    Copyright (C) 2009 by Javier Sancho Fernandez <jsf at jsancho dot org>
3
4    This program is free software: you can redistribute it and/or modify
5    it under the terms of the GNU General Public License as published by
6    the Free Software Foundation, either version 3 of the License, or
7    (at your option) any later version.
8
9    This program is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12    GNU General Public License for more details.
13
14    You should have received a copy of the GNU General Public License
15    along with this program.  If not, see <http://www.gnu.org/licenses/>.
16 */
17
18 #include <libguile.h>
19 #include <SDL/SDL.h>
20 #include <SDL/SDL_events.h>
21 #include <SDL/SDL_image.h>
22 #include <SDL/SDL_mixer.h>
23 #include "gacela_SDL.h"
24
25 struct surface
26 {
27   SCM filename;
28   SDL_Surface *surface_address;
29 };
30
31 static scm_t_bits surface_tag;
32
33 SCM
34 make_surface (SCM file, SDL_Surface *surface_address)
35 {
36   SCM smob;
37   struct surface *surface;
38
39   surface = (struct surface *) scm_gc_malloc (sizeof (struct surface), "surface");
40
41   surface->filename = SCM_BOOL_F;
42   surface->surface_address = NULL;
43
44   SCM_NEWSMOB (smob, surface_tag, surface);
45
46   surface->filename = file;
47   surface->surface_address = surface_address;
48
49   return smob;
50 }
51
52 SDL_Surface *
53 get_surface_address (SCM surface_smob)
54 {
55   struct surface *surface;
56
57   scm_assert_smob_type (surface_tag, surface_smob);
58   surface = (struct surface *) SCM_SMOB_DATA (surface_smob);
59   return surface->surface_address;
60 }
61
62 SCM
63 get_surface_width (SCM surface_smob)
64 {
65   SDL_Surface *surface = get_surface_address (surface_smob);
66
67   return scm_from_int (surface->w);
68 }
69
70 SCM
71 get_surface_height (SCM surface_smob)
72 {
73   SDL_Surface *surface = get_surface_address (surface_smob);
74
75   return scm_from_int (surface->h);
76 }
77
78 SCM
79 mark_surface (SCM surface_smob)
80 {
81   struct surface *surface = (struct surface *) SCM_SMOB_DATA (surface_smob);
82
83   scm_gc_mark (surface->filename);
84      
85   return SCM_BOOL_F;
86 }
87
88 size_t
89 free_surface (SCM surface_smob)
90 {
91   struct surface *surface = (struct surface *) SCM_SMOB_DATA (surface_smob);
92
93   SDL_FreeSurface (surface->surface_address);
94   scm_gc_free (surface, sizeof (struct surface), "surface");
95
96   return 0;
97 }
98
99 static int
100 print_surface (SCM surface_smob, SCM port, scm_print_state *pstate)
101 {
102   struct surface *surface = (struct surface *) SCM_SMOB_DATA (surface_smob);
103
104   scm_puts ("#<surface \"", port);
105   scm_display (surface->filename, port);
106   scm_puts ("\">", port);
107
108   /* non-zero means success */
109   return 1;
110 }
111
112
113 SCM
114 gacela_SDL_Init (SCM flags)
115 {
116   return scm_from_int (SDL_Init (scm_to_int (flags)));
117 }
118
119 SCM
120 gacela_SDL_Quit (void)
121 {
122   SDL_Quit ();
123   return SCM_UNSPECIFIED;
124 }
125
126 SCM
127 gacela_SDL_SetVideoMode (SCM width, SCM height, SCM bpp, SCM flags)
128 {
129   SDL_Surface *screen = SDL_SetVideoMode (scm_to_int (width), scm_to_int (height), \
130                                           scm_to_int (bpp), scm_to_int (flags));
131
132   if (screen) {
133     return make_surface (scm_from_locale_string ("screen"), screen);
134   }
135   else {
136     return SCM_BOOL_F;
137   }
138 }
139
140 SCM
141 gacela_SDL_WM_SetCaption (SCM title, SCM icon)
142 {
143   SDL_WM_SetCaption (scm_to_locale_string(title), scm_to_locale_string(icon));
144   return SCM_UNSPECIFIED;
145 }
146
147 SCM
148 gacela_SDL_Flip (SCM screen)
149 {
150   return scm_from_int (SDL_Flip (get_surface_address (screen)));
151 }
152
153 SCM
154 gacela_SDL_Delay (SCM ms)
155 {
156   SDL_Delay ((int)scm_to_double (ms));
157   return SCM_UNSPECIFIED;
158 }
159
160 SCM
161 gacela_SDL_GetTicks (void)
162 {
163   return scm_from_int (SDL_GetTicks ());
164 }
165
166 SCM
167 gacela_SDL_DisplayFormat (SCM surface)
168 {
169   return scm_from_int ((int)SDL_DisplayFormat (get_surface_address (surface)));
170 }
171
172 SCM
173 gacela_SDL_MapRGB (SCM format, SCM r, SCM g, SCM b)
174 {
175   return scm_from_int (SDL_MapRGB ((SDL_PixelFormat *)scm_to_int (format), scm_to_int (r), scm_to_int (g), scm_to_int (b)));
176 }
177
178 SCM
179 gacela_SDL_SetColorKey (SCM surface, SCM flag, SCM key)
180 {
181   return scm_from_int (SDL_SetColorKey (get_surface_address (surface), scm_to_int (flag), scm_to_int (key)));
182 }
183
184 SCM
185 gacela_SDL_LoadBMP (SCM file)
186 {
187   SDL_Surface *image = SDL_LoadBMP (scm_to_locale_string (file));
188
189   if (image) {
190     return make_surface (file, image);
191   }
192   else {
193     return SCM_BOOL_F;
194   }
195 }
196
197 SCM
198 gacela_IMG_Load (SCM filename)
199 {
200   SDL_Surface *image = IMG_Load (scm_to_locale_string (filename));
201
202   if (image) {
203     return make_surface (filename, image);
204   }
205   else {
206     return SCM_BOOL_F;
207   }
208 }
209
210 SCM
211 gacela_SDL_GetVideoInfo (void)
212 {
213   const SDL_VideoInfo *info;
214   SCM vi;
215
216   info = SDL_GetVideoInfo ();
217   vi = scm_list_n (SCM_UNDEFINED);
218
219   vi = scm_cons (scm_cons (scm_from_locale_symbol ("blit_hw"), scm_from_int (info->blit_hw)), vi);
220   vi = scm_cons (scm_cons (scm_from_locale_symbol ("hw_available"), scm_from_int (info->hw_available)), vi);
221
222   return vi;
223 }
224
225 SCM
226 gacela_SDL_GL_SetAttribute (SCM attr, SCM value)
227 {
228   return scm_from_int (SDL_GL_SetAttribute (scm_to_int (attr), scm_to_int (value)));
229 }
230
231 SCM
232 gacela_SDL_PollEvent (void)
233 {
234   SDL_Event sdl_event;
235   SCM event;
236
237   event = scm_list_n (SCM_UNDEFINED);
238
239   if (SDL_PollEvent (&sdl_event)) {
240     switch (sdl_event.type) {
241     case SDL_KEYDOWN:
242     case SDL_KEYUP:
243       event = scm_cons (scm_cons (scm_from_locale_symbol ("key.keysym.sym"), scm_from_int (sdl_event.key.keysym.sym)), event);
244       break;
245     }
246     event = scm_cons (scm_cons (scm_from_locale_symbol ("type"), scm_from_int (sdl_event.type)), event);
247   }
248
249   return event;
250 }
251
252 SCM
253 gacela_SDL_GL_SwapBuffers (void)
254 {
255   SDL_GL_SwapBuffers ();
256   return SCM_UNSPECIFIED;
257 }
258
259 SCM
260 gacela_SDL_EnableKeyRepeat (SCM delay, SCM interval)
261 {
262   return scm_from_int (SDL_EnableKeyRepeat (scm_to_int (delay), scm_to_int (interval)));
263 }
264
265 SCM
266 gacela_Mix_OpenAudio (SCM frequency, SCM format, SCM channels, SCM chunksize)
267 {
268   return scm_from_int (Mix_OpenAudio (scm_to_int (frequency), scm_to_int (format), scm_to_int (channels), scm_to_int (chunksize)));
269 }
270
271 SCM
272 gacela_Mix_LoadMUS (SCM file)
273 {
274   return scm_from_int ((int)Mix_LoadMUS (scm_to_locale_string (file)));
275 }
276
277 SCM
278 gacela_Mix_LoadWAV (SCM file)
279 {
280   return scm_from_int ((int)Mix_LoadWAV (scm_to_locale_string (file)));
281 }
282
283 SCM
284 gacela_Mix_PlayChannel (SCM channel, SCM chunk, SCM loops)
285 {
286   return scm_from_int (Mix_PlayChannel (scm_to_int (channel), (Mix_Chunk *)scm_to_int (chunk), scm_to_int (loops)));
287 }
288
289 SCM
290 gacela_Mix_PlayMusic (SCM music, SCM loops)
291 {
292   return scm_from_int (Mix_PlayMusic ((Mix_Music *)scm_to_int (music), scm_to_int (loops)));
293 }
294
295 SCM
296 gacela_Mix_PlayingMusic (void)
297 {
298   return scm_from_int (Mix_PlayingMusic ());
299 }
300
301 SCM
302 gacela_Mix_PausedMusic (void)
303 {
304   return scm_from_int (Mix_PausedMusic ());
305 }
306
307 SCM
308 gacela_Mix_PauseMusic (void)
309 {
310   Mix_PauseMusic ();
311   return SCM_UNSPECIFIED;
312 }
313
314 SCM
315 gacela_Mix_ResumeMusic (void)
316 {
317   Mix_ResumeMusic ();
318   return SCM_UNSPECIFIED;
319 }
320
321 SCM
322 gacela_Mix_HaltMusic (void)
323 {
324   return scm_from_int (Mix_HaltMusic ());
325 }
326
327 SCM
328 gacela_Mix_FreeMusic (SCM music)
329 {
330   Mix_FreeMusic ((Mix_Music *)scm_to_int (music));
331   return SCM_UNSPECIFIED;
332 }
333
334 SCM
335 gacela_Mix_FreeChunk (SCM chunk)
336 {
337   Mix_FreeChunk ((Mix_Chunk *)scm_to_int (chunk));
338   return SCM_UNSPECIFIED;
339 }
340
341 SCM
342 gacela_Mix_CloseAudio (void)
343 {
344   Mix_CloseAudio ();
345   return SCM_UNSPECIFIED;
346 }
347
348
349 void*
350 SDL_register_functions (void* data)
351 {
352   surface_tag = scm_make_smob_type ("surface", sizeof (struct surface));
353   scm_set_smob_mark (surface_tag, mark_surface);
354   scm_set_smob_free (surface_tag, free_surface);
355   scm_set_smob_print (surface_tag, print_surface);
356   scm_c_define_gsubr ("surface-w", 1, 0, 0, get_surface_width);
357   scm_c_define_gsubr ("surface-h", 1, 0, 0, get_surface_height);
358
359   scm_c_define ("SDL_INIT_TIMER", scm_from_int (SDL_INIT_TIMER));
360   scm_c_define ("SDL_INIT_AUDIO", scm_from_int (SDL_INIT_AUDIO));
361   scm_c_define ("SDL_INIT_VIDEO", scm_from_int (SDL_INIT_VIDEO));
362   scm_c_define ("SDL_INIT_CDROM", scm_from_int (SDL_INIT_CDROM));
363   scm_c_define ("SDL_INIT_JOYSTICK", scm_from_int (SDL_INIT_JOYSTICK));
364   scm_c_define ("SDL_INIT_NOPARACHUTE", scm_from_int (SDL_INIT_NOPARACHUTE));
365   scm_c_define ("SDL_INIT_EVENTTHREAD", scm_from_int (SDL_INIT_EVENTTHREAD));
366   scm_c_define ("SDL_INIT_EVERYTHING", scm_from_int (SDL_INIT_EVERYTHING));
367
368   scm_c_define ("SDL_SWSURFACE", scm_from_int (SDL_SWSURFACE));
369   scm_c_define ("SDL_HWSURFACE", scm_from_int (SDL_HWSURFACE));
370   scm_c_define ("SDL_ASYNCBLIT", scm_from_int (SDL_ASYNCBLIT));
371
372   scm_c_define ("SDL_ANYFORMAT", scm_from_int (SDL_ANYFORMAT));
373   scm_c_define ("SDL_HWPALETTE", scm_from_int (SDL_HWPALETTE));
374   scm_c_define ("SDL_DOUBLEBUF", scm_from_int (SDL_DOUBLEBUF));
375   scm_c_define ("SDL_FULLSCREEN", scm_from_int (SDL_FULLSCREEN));
376   scm_c_define ("SDL_OPENGL", scm_from_int (SDL_OPENGL));
377   scm_c_define ("SDL_OPENGLBLIT", scm_from_int (SDL_OPENGLBLIT));
378   scm_c_define ("SDL_RESIZABLE", scm_from_int (SDL_RESIZABLE));
379   scm_c_define ("SDL_NOFRAME", scm_from_int (SDL_NOFRAME));
380
381   scm_c_define ("SDL_HWACCEL", scm_from_int (SDL_HWACCEL));
382   scm_c_define ("SDL_SRCCOLORKEY", scm_from_int (SDL_SRCCOLORKEY));
383
384   scm_c_define ("SDL_GL_DOUBLEBUFFER", scm_from_int (SDL_GL_DOUBLEBUFFER));
385
386   scm_c_define ("SDL_DEFAULT_REPEAT_DELAY", scm_from_int (SDL_DEFAULT_REPEAT_DELAY));
387   scm_c_define ("SDL_DEFAULT_REPEAT_INTERVAL", scm_from_int (SDL_DEFAULT_REPEAT_INTERVAL));
388
389   scm_c_define ("SDL_LIL_ENDIAN", scm_from_int (SDL_LIL_ENDIAN));
390   scm_c_define ("SDL_BIG_ENDIAN", scm_from_int (SDL_BIG_ENDIAN));
391   scm_c_define ("SDL_BYTEORDER", scm_from_int (SDL_BYTEORDER));
392
393   scm_c_define ("MIX_DEFAULT_FORMAT", scm_from_int (MIX_DEFAULT_FORMAT));
394
395   scm_c_define ("SDL_NOEVENT", scm_from_int (SDL_NOEVENT));
396   scm_c_define ("SDL_ACTIVEEVENT", scm_from_int (SDL_ACTIVEEVENT));
397   scm_c_define ("SDL_KEYDOWN", scm_from_int (SDL_KEYDOWN));
398   scm_c_define ("SDL_KEYUP", scm_from_int (SDL_KEYUP));
399   scm_c_define ("SDL_MOUSEMOTION", scm_from_int (SDL_MOUSEMOTION));
400   scm_c_define ("SDL_MOUSEBUTTONDOWN", scm_from_int (SDL_MOUSEBUTTONDOWN));
401   scm_c_define ("SDL_MOUSEBUTTONUP", scm_from_int (SDL_MOUSEBUTTONUP));
402   scm_c_define ("SDL_JOYAXISMOTION", scm_from_int (SDL_JOYAXISMOTION));
403   scm_c_define ("SDL_JOYBALLMOTION", scm_from_int (SDL_JOYBALLMOTION));
404   scm_c_define ("SDL_JOYHATMOTION", scm_from_int (SDL_JOYHATMOTION));
405   scm_c_define ("SDL_JOYBUTTONDOWN", scm_from_int (SDL_JOYBUTTONDOWN));
406   scm_c_define ("SDL_JOYBUTTONUP", scm_from_int (SDL_JOYBUTTONUP));
407   scm_c_define ("SDL_QUIT", scm_from_int (SDL_QUIT));
408   scm_c_define ("SDL_SYSWMEVENT", scm_from_int (SDL_SYSWMEVENT));
409   scm_c_define ("SDL_EVENT_RESERVEDA", scm_from_int (SDL_EVENT_RESERVEDA));
410   scm_c_define ("SDL_EVENT_RESERVEDB", scm_from_int (SDL_EVENT_RESERVEDB));
411   scm_c_define ("SDL_VIDEORESIZE", scm_from_int (SDL_VIDEORESIZE));
412   scm_c_define ("SDL_VIDEOEXPOSE", scm_from_int (SDL_VIDEOEXPOSE));
413   scm_c_define ("SDL_EVENT_RESERVED2", scm_from_int (SDL_EVENT_RESERVED2));
414   scm_c_define ("SDL_EVENT_RESERVED3", scm_from_int (SDL_EVENT_RESERVED3));
415   scm_c_define ("SDL_EVENT_RESERVED4", scm_from_int (SDL_EVENT_RESERVED4));
416   scm_c_define ("SDL_EVENT_RESERVED5", scm_from_int (SDL_EVENT_RESERVED5));
417   scm_c_define ("SDL_EVENT_RESERVED6", scm_from_int (SDL_EVENT_RESERVED6));
418   scm_c_define ("SDL_EVENT_RESERVED7", scm_from_int (SDL_EVENT_RESERVED7));
419   scm_c_define ("SDL_USEREVENT", scm_from_int (SDL_USEREVENT));
420   scm_c_define ("SDL_NUMEVENTS", scm_from_int (SDL_NUMEVENTS));
421
422   scm_c_define_gsubr ("SDL_Init", 1, 0, 0, gacela_SDL_Init);
423   scm_c_define_gsubr ("SDL_Quit", 0, 0, 0, gacela_SDL_Quit);
424   scm_c_define_gsubr ("SDL_SetVideoMode", 4, 0, 0, gacela_SDL_SetVideoMode);
425   scm_c_define_gsubr ("SDL_WM_SetCaption", 2, 0, 0, gacela_SDL_WM_SetCaption);
426   scm_c_define_gsubr ("SDL_Flip", 1, 0, 0, gacela_SDL_Flip);
427   scm_c_define_gsubr ("SDL_Delay", 1, 0, 0, gacela_SDL_Delay);
428   scm_c_define_gsubr ("SDL_GetTicks", 0, 0, 0, gacela_SDL_GetTicks);
429   scm_c_define_gsubr ("SDL_DisplayFormat", 1, 0, 0, gacela_SDL_DisplayFormat);
430   scm_c_define_gsubr ("SDL_MapRGB", 4, 0, 0, gacela_SDL_MapRGB);
431   scm_c_define_gsubr ("SDL_SetColorKey", 3, 0, 0, gacela_SDL_SetColorKey);
432   scm_c_define_gsubr ("SDL_LoadBMP", 1, 0, 0, gacela_SDL_LoadBMP);
433   scm_c_define_gsubr ("IMG_Load", 1, 0, 0, gacela_IMG_Load);
434   scm_c_define_gsubr ("SDL_GetVideoInfo", 0, 0, 0, gacela_SDL_GetVideoInfo);
435   scm_c_define_gsubr ("SDL_GL_SetAttribute", 2, 0, 0, gacela_SDL_GL_SetAttribute);
436   scm_c_define_gsubr ("SDL_PollEvent", 0, 0, 0, gacela_SDL_PollEvent);
437   scm_c_define_gsubr ("SDL_GL_SwapBuffers", 0, 0, 0, gacela_SDL_GL_SwapBuffers);
438   scm_c_define_gsubr ("SDL_EnableKeyRepeat", 2, 0, 0, gacela_SDL_EnableKeyRepeat);
439   scm_c_define_gsubr ("Mix_OpenAudio", 4, 0, 0, gacela_Mix_OpenAudio);
440   scm_c_define_gsubr ("Mix_LoadMUS", 1, 0, 0, gacela_Mix_LoadMUS);
441   scm_c_define_gsubr ("Mix_LoadWAV", 1, 0, 0, gacela_Mix_LoadWAV);
442   scm_c_define_gsubr ("Mix_PlayChannel", 3, 0, 0, gacela_Mix_PlayChannel);
443   scm_c_define_gsubr ("Mix_PlayMusic", 2, 0, 0, gacela_Mix_PlayMusic);
444   scm_c_define_gsubr ("Mix_PlayingMusic", 0, 0, 0, gacela_Mix_PlayingMusic);
445   scm_c_define_gsubr ("Mix_PausedMusic", 0, 0, 0, gacela_Mix_PausedMusic);
446   scm_c_define_gsubr ("Mix_PauseMusic", 0, 0, 0, gacela_Mix_PauseMusic);
447   scm_c_define_gsubr ("Mix_ResumeMusic", 0, 0, 0, gacela_Mix_ResumeMusic);
448   scm_c_define_gsubr ("Mix_HaltMusic", 0, 0, 0, gacela_Mix_HaltMusic);
449   scm_c_define_gsubr ("Mix_FreeMusic", 1, 0, 0, gacela_Mix_FreeMusic);
450   scm_c_define_gsubr ("Mix_FreeChunk", 1, 0, 0, gacela_Mix_FreeChunk);
451   scm_c_define_gsubr ("Mix_CloseAudio", 0, 0, 0, gacela_Mix_CloseAudio);
452
453   return NULL;
454 }