From: jsancho <devnull@localhost>
Date: Sun, 1 May 2011 15:37:31 +0000 (+0000)
Subject: Mapeo de primeras funciones SDL, falta mirar cómo se hace el mapeo de las constantes... 
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;ds=inline;h=dd2b7988d3aa135ae9247df2ca89274247ed5612;p=gacela.git

Mapeo de primeras funciones SDL, falta mirar cómo se hace el mapeo de las constantes y de las estructuras
---

diff --git a/src/gacela_SDL.c b/src/gacela_SDL.c
index b1a60e6..205092a 100644
--- a/src/gacela_SDL.c
+++ b/src/gacela_SDL.c
@@ -1,17 +1,29 @@
 #include <libguile.h>
 #include <SDL/SDL.h>
-#include <GL/gl.h>
 #include "gacela_SDL.h"
 
 SCM
 gacela_SDL_Init (SCM flags)
 {
-  return scm_make_integer (SDL_Init (scm_num2int (flags, "SDL_Init")));
+  return scm_int2num (SDL_Init (scm_num2int (flags, 0, "SDL_Init")));
+}
+
+SCM
+gacela_SDL_Quit ()
+{
+  SDL_Quit ();
+  return SCM_UNSPECIFIED;
+}
+
+SCM
+gacela_SDL_SetVideoMode (SCM width, SCM height, SCM bpp, SCM flags)
+{
 }
 
 void*
 SDL_register_functions (void* data)
 {
-  scm_c_define_gsubr ("SDL_Init", 1, 0, 0, &gacela_SDL_Init);
+  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;
 }