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_init_guile();
  18   scm_c_eval_string("(set-repl-prompt! \"gacela>\")");
  19   scm_c_eval_string("(use-modules (ice-9 readline))");
  20   scm_c_eval_string("(activate-readline)");
  21   scm_c_eval_string("(format #t \"eo~%\")");
  22 //      scm_shell (argc, argv);
  23 }
  24