src/gacela.c

   1 /* Gacela, a GNU Guile extension for fast games development
   2    Copyright (C) 2009 by Javier Sancho Fernandez <jsf at jsancho dot org>
   3
   4    This program is free software: you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation, either version 3 of the License, or
   7    (at your option) any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16 */
  17
  18 #include <libguile.h>
  19 #include <libgen.h>
  20 #include "gacela_SDL.h"
  21 #include "gacela_GL.h"
  22 #include "gacela_FTGL.h"
  23
  24 static void*
  25 register_functions (void* data)
  26 {
  27   SDL_register_functions (NULL);
  28   GL_register_functions (NULL);
  29   FTGL_register_functions (NULL);
  30   return NULL;
  31 }
  32
  33 void
  34 load_scheme_file (char *path, char *filename)
  35 {
  36   char fn[strlen (path) + 1024];
  37
  38   strcpy (fn, path);
  39   strcat (fn, "/");
  40   strcat (fn, filename);
  41
  42   scm_c_primitive_load (fn);
  43 }
  44
  45 void
  46 load_scheme_files (char *path)
  47 {
  48   load_scheme_file (path, "gacela.scm");
  49   load_scheme_file (path, "gacela_events.scm");
  50   load_scheme_file (path, "gacela_ttf.scm");
  51 }
  52
  53 int
  54 main (int argc, char *argv[])
  55 {
  56   scm_with_guile (&register_functions, NULL);
  57   scm_init_guile ();
  58   scm_c_eval_string ("(set-repl-prompt! \"gacela>\")");
  59   scm_c_eval_string ("(use-modules (ice-9 readline))");
  60   scm_c_eval_string ("(activate-readline)");
  61   scm_c_eval_string ("(use-modules (ice-9 optargs))");
  62   scm_c_eval_string ("(use-modules (ice-9 receive))");
  63   load_scheme_files (dirname (argv[0]));
  64   scm_shell (argc, argv);
  65 }