]> git.jsancho.org Git - gacela.git/blob - src/gacela_SDL.c
Mapeo de primeras funciones SDL, falta mirar cómo se hace el mapeo de las constantes...
[gacela.git] / src / gacela_SDL.c
1 #include <libguile.h>
2 #include <SDL/SDL.h>
3 #include "gacela_SDL.h"
4
5 SCM
6 gacela_SDL_Init (SCM flags)
7 {
8   return scm_int2num (SDL_Init (scm_num2int (flags, 0, "SDL_Init")));
9 }
10
11 SCM
12 gacela_SDL_Quit ()
13 {
14   SDL_Quit ();
15   return SCM_UNSPECIFIED;
16 }
17
18 SCM
19 gacela_SDL_SetVideoMode (SCM width, SCM height, SCM bpp, SCM flags)
20 {
21 }
22
23 void*
24 SDL_register_functions (void* data)
25 {
26   scm_c_define_gsubr ("SDL_Init", 1, 0, 0, gacela_SDL_Init);
27   scm_c_define_gsubr ("SDL_Quit", 0, 0, 0, gacela_SDL_Quit);
28   return NULL;
29 }