gacela_make.lisp

   1 ;;; Gacela, a GNU Common Lisp 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 (defmacro compile-gfile (file-name &key include)
  18   `(progn
  19      (setq compiler::*cc* (concatenate 'string compiler::*cc* ,include " "))
  20      (compile-file ,file-name :system-p t)))
  21
  22 (defun compile-gacela ()
  23   (compile-gfile "gacela.lisp")
  24   (compile-gfile "gacela_misc.lisp")
  25   (compile-gfile "gacela_SDL.lisp")
  26   (compile-gfile "gacela_GL.lisp")
  27   (compile-gfile "gacela_FTGL.lisp")
  28   (compile-gfile "gacela_draw.lisp")
  29   (compile-gfile "gacela_ttf.lisp")
  30   (compile-gfile "gacela_events.lisp")
  31   (compile-gfile "gacela_mobs.lisp")
  32   (compile-gfile "gacela_widgets.lisp"))
  33
  34 (defun link-gacela ()
  35   (compiler::link
  36    '("gacela.o" "gacela_misc.o" "gacela_SDL.o" "gacela_GL.o" "gacela_FTGL.o" "gacela_draw.o" "gacela_ttf.o" "gacela_events.o" "gacela_mobs.o" "gacela_widgets.o")
  37    "gacela"
  38    ""
  39    "-lSDL -lSDL_image -lSDL_ttf -lSDL_mixer -lSDL_gfx -lGL -lGLU -lftgl"))
  40
  41 (defun build-gacela ()
  42   (compile-gacela)
  43   (link-gacela))