gacela_core.c

   1 #include <SDL/SDL.h>
   2 #include <GL/gl.h>
   3 #include <libguile.h>
   4
   5 static void*
   6 register_functions (void* data)
   7 {
   8         scm_c_define_gsubr ("prueba", 0, 0, 0, &prueba);
   9 //      scm_c_define_gsubr ("ver-contador", 0, 0, 0, &ver_contador);
  10         scm_c_define_gsubr ("lanzar-bucle", 0, 0, 0, &lanzar_bucle);
  11         return NULL;
  12 }
  13
  14
  15 int main (int argc, char *argv[]) {
  16         scm_with_guile (&register_functions, NULL);
  17         scm_c_eval_string("(set-repl-prompt! \"gacela>\")");
  18         scm_c_eval_string("(use-modules (ice-9 readline))");
  19         scm_c_eval_string("(activate-readline)");
  20 //      scm_shell (argc, argv);
  21         while (1) {}
  22 }
  23