src/gacela_SDL.c

   1 #include <libguile.h>
   2 #include <SDL/SDL.h>
   3 #include <GL/gl.h>
   4 #include "gacela_SDL.h"
   5
   6 SCM
   7 gacela_SDL_Init (SCM flags)
   8 {
   9   return scm_make_integer (SDL_Init (scm_num2int (flags, "SDL_Init")));
  10 }
  11
  12 void*
  13 SDL_register_functions (void* data)
  14 {
  15   scm_c_define_gsubr ("SDL_Init", 1, 0, 0, &gacela_SDL_Init);
  16   return NULL;
  17 }