From 11c38cbe0dab636e5ae8de71a9a05dea7de6bb1f Mon Sep 17 00:00:00 2001 From: John Darrington Date: Mon, 13 Oct 2014 12:33:39 +0200 Subject: gnu: Add xboing * gnu/packages/games.scm (xboing): New variable. --- gnu/packages/games.scm | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 54 insertions(+) (limited to 'gnu/packages/games.scm') diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 1a911b76a9..e7868af6c0 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -24,6 +24,7 @@ #:use-module (guix packages) #:use-module (guix download) #:use-module (gnu packages) + #:use-module (gnu packages admin) #:use-module (gnu packages boost) #:use-module (gnu packages gettext) #:use-module (gnu packages gl) @@ -321,3 +322,56 @@ and Makruk. Several lesser-known variants are also supported. It presents a fully interactive graphical interface and it can load and save games in the Portable Game Notation.") (license gpl3+))) + + +(define-public xboing + (package + (name "xboing") + (version "2.4") + (source + (origin + (method url-fetch) + (uri (string-append "http://www.techrescue.org/xboing/xboing" + version ".tar.gz")) + (sha256 + (base32 "16m2si8wmshxpifk861vhpqviqxgcg8bxj6wfw8hpnm4r2w9q0b7")))) + (arguments + `(#:tests? #f + #:phases + (alist-replace + 'configure + (lambda* (#:key outputs #:allow-other-keys) + + (substitute* "Imakefile" + (("XPMINCLUDE[\t ]*= -I/usr/X11/include/X11") + (string-append "XPMINCLUDE = -I" (assoc-ref %build-inputs "libxpm") + "/include/X11"))) + + (substitute* "Imakefile" + (("XBOING_DIR = \\.") "XBOING_DIR=$(PROJECTROOT)")) + + ;; FIXME: HIGH_SCORE_FILE should be set to somewhere writeable + + (zero? (system* "xmkmf" "-a" + (string-append "-DProjectRoot=" + (assoc-ref outputs "out"))))) + (alist-replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (and + (zero? (system* "make" "install.man")) + (zero? (system* "make" "install")))) + %standard-phases)))) + (inputs `(("libx11" ,libx11) + ("libxext" ,libxext) + ("libxpm" ,libxpm))) + (native-inputs `(("imake" ,imake) + ("inetutils" ,inetutils) + ("makedepend" ,makedepend))) + (build-system gnu-build-system) + (home-page "http://www.techrescue.org/xboing") + (synopsis "Ball and paddle game") + (description "XBoing is a blockout type game where you have a paddle which +you control to bounce a ball around the game zone destroying blocks with a +proton ball. Each block carries a different point value. The more blocks you +destroy, the better your score. The person with the highest score wins.") + (license (x11-style "file://COPYING" "Very similar to the X11 licence.")))) -- cgit v1.2.3