1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
4 ;;; This file is part of GNU Guix.
6 ;;; GNU Guix is free software; you can redistribute it and/or modify it
7 ;;; under the terms of the GNU General Public License as published by
8 ;;; the Free Software Foundation; either version 3 of the License, or (at
9 ;;; your option) any later version.
11 ;;; GNU Guix is distributed in the hope that it will be useful, but
12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;;; GNU General Public License for more details.
16 ;;; You should have received a copy of the GNU General Public License
17 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
19 (define-module (gnu packages grue-hunter)
20 #:use-module (guix licenses)
21 #:use-module (guix packages)
22 #:use-module (guix download)
23 #:use-module (guix build-system trivial)
24 #:use-module (gnu packages base)
25 #:use-module (gnu packages compression)
26 #:use-module (gnu packages perl))
28 (define-public grue-hunter
35 (uri (string-append "http://jxself.org/" name ".tar.gz"))
38 "1hjcpy5439qs3v2zykis7hsi0i17zjs62gks3zd8mnfw9ni4i2h3"))))
39 (build-system trivial-build-system) ; no Makefile.PL
40 (arguments `(#:modules ((guix build utils))
43 (use-modules (guix build utils))
44 (use-modules (srfi srfi-1))
46 (let* ((tarball (assoc-ref %build-inputs "tarball"))
47 (perl (string-append (assoc-ref %build-inputs
50 (gunzip (string-append (assoc-ref %build-inputs
53 (tar (string-append (assoc-ref %build-inputs
56 (out (assoc-ref %outputs "out"))
57 (bin (string-append out "/bin"))
58 (doc (string-append out "/share/doc")))
61 (copy-file tarball "grue-hunter.tar.gz")
62 (zero? (system* gunzip "grue-hunter.tar.gz"))
63 (zero? (system* tar "xvf" "grue-hunter.tar"))
66 (copy-file "grue-hunter/gh.pl"
67 (string-append bin "/grue-hunter"))
68 (patch-shebang (string-append bin "/grue-hunter")
72 (copy-file "grue-hunter/AGPLv3.txt"
73 (string-append doc "/grue-hunter")))))))
74 (inputs `(("perl" ,perl)
78 (home-page "http://jxself.org/grue-hunter.shtml")
79 (synopsis "Text adventure game")
81 "Grue Hunter is a text adventure game written in Perl. You must make
82 your way through an underground cave system in search of the Grue. Can you
83 capture it and get out alive?")