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 ("SDL_INIT_EVERYTHING", scm_int2num(SDL_INIT_EVERYTHING));
  27   scm_c_define_gsubr ("SDL_Init", 1, 0, 0, gacela_SDL_Init);
  28   scm_c_define_gsubr ("SDL_Quit", 0, 0, 0, gacela_SDL_Quit);
  29   return NULL;
  30 }