From da624386221f12fd6a500c10b8c5f8152c0dcd0e Mon Sep 17 00:00:00 2001 From: jsancho Date: Mon, 2 May 2011 16:14:05 +0000 Subject: [PATCH] --- src/gacela_SDL.c | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/src/gacela_SDL.c b/src/gacela_SDL.c index 5641144..d75af2c 100644 --- a/src/gacela_SDL.c +++ b/src/gacela_SDL.c @@ -23,7 +23,27 @@ gacela_SDL_SetVideoMode (SCM width, SCM height, SCM bpp, SCM flags) void* SDL_register_functions (void* data) { + scm_c_define ("SDL_INIT_TIMER", scm_int2num(SDL_INIT_TIMER)); + scm_c_define ("SDL_INIT_AUDIO", scm_int2num(SDL_INIT_AUDIO)); + scm_c_define ("SDL_INIT_VIDEO", scm_int2num(SDL_INIT_VIDEO)); + scm_c_define ("SDL_INIT_CDROM", scm_int2num(SDL_INIT_CDROM)); + scm_c_define ("SDL_INIT_JOYSTICK", scm_int2num(SDL_INIT_JOYSTICK)); + scm_c_define ("SDL_INIT_NOPARACHUTE", scm_int2num(SDL_INIT_NOPARACHUTE)); + scm_c_define ("SDL_INIT_EVENTTHREAD", scm_int2num(SDL_INIT_EVENTTHREAD)); scm_c_define ("SDL_INIT_EVERYTHING", scm_int2num(SDL_INIT_EVERYTHING)); + + scm_c_define ("SDL_SWSURFACE", scm_int2num(SDL_SWSURFACE)); + scm_c_define ("SDL_HWSURFACE", scm_int2num(SDL_HWSURFACE)); + scm_c_define ("SDL_ASYNCBLIT", scm_int2num(SDL_ASYNCBLIT)); + + scm_c_define ("SDL_ANYFORMAT", scm_int2num(SDL_ANYFORMAT)); + scm_c_define ("SDL_HWPALETTE", scm_int2num(SDL_HWPALETTE)); + scm_c_define ("SDL_DOUBLEBUF", scm_int2num(SDL_DOUBLEBUF)); + scm_c_define ("SDL_FULLSCREEN", scm_int2num(SDL_FULLSCREEN)); + scm_c_define ("SDL_OPENGL", scm_int2num(SDL_OPENGL)); + scm_c_define ("SDL_OPENGLBLIT", scm_int2num(SDL_OPENGLBLIT)); + scm_c_define ("SDL_RESIZABLE", scm_int2num(SDL_RESIZABLE)); + scm_c_define_gsubr ("SDL_Init", 1, 0, 0, gacela_SDL_Init); scm_c_define_gsubr ("SDL_Quit", 0, 0, 0, gacela_SDL_Quit); return NULL; -- 2.39.2