[bug#29808] [PATCH] gnu: Add Pioneer.

[bug#29808] [PATCH] gnu: Add Pioneer.

[ericbavier]

From: Eric Bavier <bavier@member.fsf.org>

* gnu/packages/games.scm (pioneer): New variable.
---
 gnu/packages/games.scm | 57 +++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 56 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index c494d0beb..9a0ad161f 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -2,7 +2,7 @@
 ;;; Copyright © 2013 John Darrington <jmd@gnu.org>
 ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
 ;;; Copyright © 2014, 2015, 2016 David Thompson <dthompson2@worcester.edu>
-;;; Copyright © 2014, 2015, 2016 Eric Bavier <bavier@member.fsf.org>
+;;; Copyright © 2014, 2015, 2016, 2017 Eric Bavier <bavier@member.fsf.org>
 ;;; Copyright © 2014 Cyrill Schenkel <cyrill.schenkel@gmail.com>
 ;;; Copyright © 2014 Sylvain Beucler <beuc@beuc.net>
 ;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org>
@@ -80,6 +80,7 @@
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnome)
   #:use-module (gnu packages gperf)
+  #:use-module (gnu packages graphics)
   #:use-module (gnu packages gtk)
   #:use-module (gnu packages guile)
   #:use-module (gnu packages imagemagick)
@@ -5185,3 +5186,57 @@ It includes support for 64 bit CPUs, custom music playback, a new sound driver,
 some graphical niceities, and numerous bug-fixes and other improvements.")
     (home-page "http://quakespasm.sourceforge.net/")
     (license license:gpl2+)))
+
+(define-public pioneer
+  (package
+    (name "pioneer")
+    (version "20171001")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://github.com/pioneerspacesim/pioneer/"
+                                  "archive/" version ".tar.gz"))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "1nxhx22swfqq6lfvcnpfm31wig3sjv5pp0rslj79nbxc7nyihh8m"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("autoconf" ,autoconf)
+       ("automake" ,automake)
+       ("pkg-config" ,pkg-config)))
+    (inputs
+     `(("assimp" ,assimp)
+       ("curl" ,curl)
+       ("freetype" ,freetype)
+       ("glu" ,glu)
+       ("libpng" ,libpng)
+       ("libsigc++" ,libsigc++)
+       ("libvorbis" ,libvorbis)
+       ("lua" ,lua-5.2)                 ;not compatible with 5.3
+       ("mesa" ,mesa)
+       ("sdl" ,(sdl-union (list sdl2 sdl2-image)))))
+    (arguments
+     `(#:tests? #f                      ;tests are broken
+       #:configure-flags (list "--with-external-liblua"
+                               (string-append "PIONEER_DATA_DIR="
+                                              %output "/share/games/pioneer"))
+       #:phases (modify-phases %standard-phases
+                  (add-before 'configure 'bootstrap
+                    (lambda _ (zero? (system "./bootstrap"))))
+                  (add-before 'bootstrap 'fix-lua-check
+                    (lambda _
+                      (substitute* "configure.ac"
+                        (("lua5.2")
+                         (string-append "lua-" ,(version-major+minor
+                                                 (package-version lua-5.2))))))))))
+    (home-page "http://pioneerspacesim.net")
+    (synopsis "Game of lonely space adventure")
+    (description
+     "Pioneer is a space adventure game set in our galaxy at the turn of the
+31st century.  The game is open-ended, and you are free to eke out whatever
+kind of space-faring existence you can think of.  Look for fame or fortune by
+exploring the millions of star systems.  Turn to a life of crime as a pirate,
+smuggler or bounty hunter.  Forge and break alliances with the various
+factions fighting for power, freedom or self-determination.  The universe is
+whatever you make of it.")
+    (license license:gpl3)))
--
2.15.0

[bug#29808] [PATCH] gnu: Add Pioneer.

[Leo Famulari]

[-- Attachment #1: Type: text/plain, Size: 963 bytes --]

On Thu, Dec 21, 2017 at 05:42:50PM -0600, ericbavier@centurylink.net wrote:
> From: Eric Bavier <bavier@member.fsf.org>
> 
> * gnu/packages/games.scm (pioneer): New variable.

Cool, I love this type of game :)

> +    (arguments
> +     `(#:tests? #f                      ;tests are broken
> +       #:configure-flags (list "--with-external-liblua"
> +                               (string-append "PIONEER_DATA_DIR="
> +                                              %output "/share/games/pioneer"))

This is just for the game's "assets", right? That is, it doesn't need to
be written to for things like saving the game?

> +       #:phases (modify-phases %standard-phases
> +                  (add-before 'configure 'bootstrap
> +                    (lambda _ (zero? (system "./bootstrap"))))

Lately we have been doing these bootstrap phases directly after
unpacking:

https://lists.gnu.org/archive/html/guix-devel/2017-07/msg00101.html

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]

bug#29808: [PATCH] gnu: Add Pioneer.

[Eric Bavier]

[-- Attachment #1: Type: text/plain, Size: 1270 bytes --]

On Tue, 26 Dec 2017 14:20:02 -0500
Leo Famulari <leo@famulari.name> wrote:

> On Thu, Dec 21, 2017 at 05:42:50PM -0600, ericbavier@centurylink.net wrote:
> > From: Eric Bavier <bavier@member.fsf.org>
> > 
> > * gnu/packages/games.scm (pioneer): New variable.  
> 
> Cool, I love this type of game :)

Me too :)

> 
> > +    (arguments
> > +     `(#:tests? #f                      ;tests are broken
> > +       #:configure-flags (list "--with-external-liblua"
> > +                               (string-append "PIONEER_DATA_DIR="
> > +                                              %output "/share/games/pioneer"))  
> 
> This is just for the game's "assets", right? That is, it doesn't need to
> be written to for things like saving the game?

Right, afaict nothing is written there during gameplay.

> 
> > +       #:phases (modify-phases %standard-phases
> > +                  (add-before 'configure 'bootstrap
> > +                    (lambda _ (zero? (system "./bootstrap"))))  
> 
> Lately we have been doing these bootstrap phases directly after
> unpacking:
> 
> https://lists.gnu.org/archive/html/guix-devel/2017-07/msg00101.html

Good catch.  Thanks.

Fixed and pushed in aac1aa75f4fede7db9fb5be1af344c985fd526f4

`~Eric

[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 833 bytes --]