Make StarWar game more portable at sbcl-wise / Linux system

Now to play it's only necessary a double click in the launcher.

However the user still need have in the your system the follwing
softwares:

    + SBCL
    + Quicklisp

And the following dynamic libraries:

    + <CFFI:FOREIGN-LIBRARY SDL-MIXER "libSDL_mixer.so">
    + <CFFI:FOREIGN-LIBRARY SDL-GFX "libSDL_gfx.so">
    + <CFFI:FOREIGN-LIBRARY SDL-TTF "libSDL_ttf-2.0.so.0">
    + <CFFI:FOREIGN-LIBRARY SDL-IMAGE "libSDL_image-1.2.so.0">
    + <CFFI:FOREIGN-LIBRARY SDL "libSDL-1.2.so.0">

Author: ryukinix

.gitignore

@@ -0,0 +1 @@
+system-index.txt

StarWar.desktop

@@ -0,0 +1,9 @@
+[Desktop Entry]
+Version=1.0
+Type=Application
+Name=StarWar
+Comment=A survival and dominance starwar game
+Exec=./starwar.lisp
+Icon=gcstar
+Terminal=false
+StartupNotify=false

src/globals.lisp

@@ -104,12 +104,12 @@ generateing the map. ")
   "read one file and load all the parameters"
   ;; here, we MUST make sure that we are in the RIGHT package (that is the
   ;; starwar package. or the parameters will not be set!
-  (with-open-file (s filename)
+  (with-open-file (s (portable-pathname filename))
     (do ((form (read s) (read s nil 'eof)))
 	((eq form 'eof) nil)
       (if (not (= (length form) 2))
 	  (error "configure file format not right!"))
-      (setq form (cons 'defparameter form))
+      (setq form (cons 'defvar form))
       (format t "eval: ~a~%" form)
       (eval form))))
 

src/make-binary.lisp

@@ -3,8 +3,15 @@
 
 (in-package :starwar)
 
+(defparameter *compression* 9)
+
+(defun dump-binaries ()
+  (cffi)
+  )
+
 (defun make-binary ()
   (sb-ext:save-lisp-and-die #+unix "starwar-linux"
                             #+win32 "starwar-win32.exe"
                             :toplevel #'starwar:main
-                            :executable t))
+                            :executable t
+                            :compression compression))

src/packages.lisp

@@ -2,4 +2,4 @@
 (defpackage :starwar
   (:use :cl :starwar-lib)
   (:documentation "this is the star war game!")
-  (:export :main :run :make-binary))
+  (:export :main :run :make-binary :fullscreen))

src/path.lisp

@@ -0,0 +1,7 @@
+(in-package :starwar)
+
+(defun portable-pathname (pathname &optional (system 'starwar))
+  "PORTABLE-PATHNAME consider two possible dirnames: local and system-wide."
+  (if (probe-file pathname)
+      pathname
+      (asdf:system-relative-pathname system pathname)))

src/starwar.lisp

@@ -77,6 +77,7 @@
         (setq speed star-speed-max))
     (setq star-speed speed))
   (setq *news* (format nil "Increase speed to ~ax" star-speed)))
+
 (defun decrease-star-speed ()
   (let ((speed (- star-speed 0.5)))
     (if (< speed star-speed-min)
@@ -269,7 +270,7 @@ the outter rect. the rect is filled by VALUE/FULL-VALUE"
     (set-game-running t)
     ;; music background
     (sdl-mixer:open-audio)
-    (let ((music (sdl-mixer:load-music "background.mp3")))
+    (let ((music (sdl-mixer:load-music (portable-pathname "background.mp3"))))
       (sdl-mixer:play-music music :loop t)
       (sdl:with-events ()
         (:quit-event () (sdl-mixer:Halt-Music)

starwar-lib.asd

@@ -6,7 +6,7 @@
 (defsystem starwar-lib
   :name "starwar-lib"
   :author "Peter Xu"
-  :version "0.0.1"
+  :version "0.1.0"
   :licence "MIT"
   :description "Some basic functions related to game"
   :pathname "src/lib/"

starwar.asd

@@ -6,18 +6,20 @@
 (defsystem starwar
   :name "starwar"
   :author "xzpeter"
-  :version "0.0.1"
+  :version "0.1.0"
   :license "MIT"
   :description "A very simple starwar game."
   :depends-on (:lispbuilder-sdl
 	       	   :lispbuilder-sdl-ttf
 	           :lispbuilder-sdl-gfx
 	           :lispbuilder-sdl-mixer
+               :cffi
 	           :starwar-lib)
   :pathname "src"
   :components ((:file "packages")
+               (:file "path")
                (:file "make-binary")
-               (:file "globals" :depends-on ("packages"))
+               (:file "globals" :depends-on ("packages" "path"))
                (:file "hittable-circle" :depends-on ("packages"))
                (:file "classes" :depends-on ("packages"
                                              "hittable-circle"))
@@ -34,6 +36,7 @@
                                             "classes"
                                             "globals"))
                (:file "starwar" :depends-on ("packages"
+                                             "path"
                                              "globals"
                                              "hittable-circle"
                                              "star"

starwar.conf

@@ -1,8 +1,8 @@
 ;; configuration file for starwar game
 
-(fullscreen		    nil)
-(screen-width		1200)
-(screen-height		800)
+(fullscreen		    t)
+(screen-width		640)
+(screen-height		400)
 
 (star-speed-max		3.0)
 (star-speed-min		0.5)