3 #include <SDL/SDL_image.h>
4 #include <SDL/SDL_mixer.h>
5 #include "gacela_SDL.h"
8 gacela_SDL_Init (SCM flags)
10 return scm_from_int (SDL_Init (scm_to_int (flags)));
17 return SCM_UNSPECIFIED;
21 gacela_SDL_SetVideoMode (SCM width, SCM height, SCM bpp, SCM flags)
23 return scm_from_int ((int)SDL_SetVideoMode (scm_to_int (width), scm_to_int (height), \
24 scm_to_int (bpp), scm_to_int (flags)));
28 gacela_SDL_WM_SetCaption (SCM title, SCM icon)
30 SDL_WM_SetCaption (scm_to_locale_string(title), scm_to_locale_string(icon));
31 return SCM_UNSPECIFIED;
35 SDL_register_functions (void* data)
37 scm_c_define ("SDL_INIT_TIMER", scm_from_int(SDL_INIT_TIMER));
38 scm_c_define ("SDL_INIT_AUDIO", scm_from_int(SDL_INIT_AUDIO));
39 scm_c_define ("SDL_INIT_VIDEO", scm_from_int(SDL_INIT_VIDEO));
40 scm_c_define ("SDL_INIT_CDROM", scm_from_int(SDL_INIT_CDROM));
41 scm_c_define ("SDL_INIT_JOYSTICK", scm_from_int(SDL_INIT_JOYSTICK));
42 scm_c_define ("SDL_INIT_NOPARACHUTE", scm_from_int(SDL_INIT_NOPARACHUTE));
43 scm_c_define ("SDL_INIT_EVENTTHREAD", scm_from_int(SDL_INIT_EVENTTHREAD));
44 scm_c_define ("SDL_INIT_EVERYTHING", scm_from_int(SDL_INIT_EVERYTHING));
46 scm_c_define ("SDL_SWSURFACE", scm_from_int(SDL_SWSURFACE));
47 scm_c_define ("SDL_HWSURFACE", scm_from_int(SDL_HWSURFACE));
48 scm_c_define ("SDL_ASYNCBLIT", scm_from_int(SDL_ASYNCBLIT));
50 scm_c_define ("SDL_ANYFORMAT", scm_from_int(SDL_ANYFORMAT));
51 scm_c_define ("SDL_HWPALETTE", scm_from_int(SDL_HWPALETTE));
52 scm_c_define ("SDL_DOUBLEBUF", scm_from_int(SDL_DOUBLEBUF));
53 scm_c_define ("SDL_FULLSCREEN", scm_from_int(SDL_FULLSCREEN));
54 scm_c_define ("SDL_OPENGL", scm_from_int(SDL_OPENGL));
55 scm_c_define ("SDL_OPENGLBLIT", scm_from_int(SDL_OPENGLBLIT));
56 scm_c_define ("SDL_RESIZABLE", scm_from_int(SDL_RESIZABLE));
57 scm_c_define ("SDL_NOFRAME", scm_from_int(SDL_NOFRAME));
59 scm_c_define ("SDL_HWACCEL", scm_from_int(SDL_HWACCEL));
60 scm_c_define ("SDL_SRCCOLORKEY", scm_from_int(SDL_SRCCOLORKEY));
62 scm_c_define ("SDL_GL_DOUBLEBUFFER", scm_from_int(SDL_GL_DOUBLEBUFFER));
64 scm_c_define ("SDL_DEFAULT_REPEAT_DELAY", scm_from_int(SDL_DEFAULT_REPEAT_DELAY));
65 scm_c_define ("SDL_DEFAULT_REPEAT_INTERVAL", scm_from_int(SDL_DEFAULT_REPEAT_INTERVAL));
67 scm_c_define ("SDL_LIL_ENDIAN", scm_from_int(SDL_LIL_ENDIAN));
68 scm_c_define ("SDL_BIG_ENDIAN", scm_from_int(SDL_BIG_ENDIAN));
70 scm_c_define ("MIX_DEFAULT_FORMAT", scm_from_int(MIX_DEFAULT_FORMAT));
72 scm_c_define_gsubr ("SDL_Init", 1, 0, 0, gacela_SDL_Init);
73 scm_c_define_gsubr ("SDL_Quit", 0, 0, 0, gacela_SDL_Quit);
74 scm_c_define_gsubr ("SDL_SetVideoMode", 4, 0, 0, gacela_SDL_SetVideoMode);
75 scm_c_define_gsubr ("SDL_WM_SetCaption", 2, 0, 0, gacela_SDL_WM_SetCaption);