3 #include "gacela_SDL.h"
6 gacela_SDL_Init (SCM flags)
8 return scm_int2num (SDL_Init (scm_num2int (flags, 0, "SDL_Init")));
15 return SCM_UNSPECIFIED;
19 gacela_SDL_SetVideoMode (SCM width, SCM height, SCM bpp, SCM flags)
21 return scm_int2num (SDL_SetVideoMode (scm_num2int (width, 0, "SDL_SetVideoMode"), \
22 scm_num2int (height, 0, "SDL_SetVideoMde"), \
23 scm_num2int (bpp, 0, "SDL_SetVideoMde"), \
24 scm_num2int (flags, 0, "SDL_SetVideoMde")));
28 SDL_register_functions (void* data)
30 scm_c_define ("SDL_INIT_TIMER", scm_int2num(SDL_INIT_TIMER));
31 scm_c_define ("SDL_INIT_AUDIO", scm_int2num(SDL_INIT_AUDIO));
32 scm_c_define ("SDL_INIT_VIDEO", scm_int2num(SDL_INIT_VIDEO));
33 scm_c_define ("SDL_INIT_CDROM", scm_int2num(SDL_INIT_CDROM));
34 scm_c_define ("SDL_INIT_JOYSTICK", scm_int2num(SDL_INIT_JOYSTICK));
35 scm_c_define ("SDL_INIT_NOPARACHUTE", scm_int2num(SDL_INIT_NOPARACHUTE));
36 scm_c_define ("SDL_INIT_EVENTTHREAD", scm_int2num(SDL_INIT_EVENTTHREAD));
37 scm_c_define ("SDL_INIT_EVERYTHING", scm_int2num(SDL_INIT_EVERYTHING));
39 scm_c_define ("SDL_SWSURFACE", scm_int2num(SDL_SWSURFACE));
40 scm_c_define ("SDL_HWSURFACE", scm_int2num(SDL_HWSURFACE));
41 scm_c_define ("SDL_ASYNCBLIT", scm_int2num(SDL_ASYNCBLIT));
43 scm_c_define ("SDL_ANYFORMAT", scm_int2num(SDL_ANYFORMAT));
44 scm_c_define ("SDL_HWPALETTE", scm_int2num(SDL_HWPALETTE));
45 scm_c_define ("SDL_DOUBLEBUF", scm_int2num(SDL_DOUBLEBUF));
46 scm_c_define ("SDL_FULLSCREEN", scm_int2num(SDL_FULLSCREEN));
47 scm_c_define ("SDL_OPENGL", scm_int2num(SDL_OPENGL));
48 scm_c_define ("SDL_OPENGLBLIT", scm_int2num(SDL_OPENGLBLIT));
49 scm_c_define ("SDL_RESIZABLE", scm_int2num(SDL_RESIZABLE));
51 scm_c_define_gsubr ("SDL_Init", 1, 0, 0, gacela_SDL_Init);
52 scm_c_define_gsubr ("SDL_Quit", 0, 0, 0, gacela_SDL_Quit);
53 scm_c_define_gsubr ("SDL_SetVideoMode", 4, 0, 0, gacela_SDL_SetVideoMode);