diff options
| -rw-r--r-- | gnu/packages/games.scm | 150 |
1 files changed, 56 insertions, 94 deletions
diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 60ce0167a6..0bf36fa620 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -5892,101 +5892,63 @@ throwing people around in pseudo-randomly generated buildings.") (define-public hyperrogue (package (name "hyperrogue") - (version "11.3a") - ;; When updating this package, be sure to update the "hyperrogue-data" - ;; origin in native-inputs. - (source (origin - (method url-fetch) - (uri (string-append - "https://www.roguetemple.com/z/hyper/hyperrogue" - (string-join (string-split version #\.) "") - "-src.tgz")) - (sha256 - (base32 - "1yxabbswq02fc5frigvs43f83m5vlxybc7n5mynkwzj2c70lfp2k")))) + (version "12.1a") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/zenorogue/hyperrogue") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1l09d1r3jdwp54zq071fk09hpggif5phjn0gsapzrjy3i289jran")))) (build-system gnu-build-system) (arguments - `(#:tests? #f ; no check target - #:make-flags '("HYPERROGUE_USE_GLEW=1" - "HYPERROGUE_USE_PNG=1") - #:phases - (modify-phases %standard-phases - (add-after 'set-paths 'set-sdl-paths - (lambda* (#:key inputs #:allow-other-keys) - (setenv "CPATH" - (string-append (or (getenv "CPATH") "") ":" - (assoc-ref inputs "sdl-union") - "/include/SDL")))) - (replace 'configure - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (share-dir (string-append out "/share/hyperrogue")) - (dejavu-dir (string-append - (assoc-ref inputs "font-dejavu") - "/share/fonts/truetype")) - (dejavu-font "DejaVuSans-Bold.ttf") - (music-file "hyperrogue-music.txt")) - ;; Fix font and music paths. - (substitute* "basegraph.cpp" - ((dejavu-font) - (string-append dejavu-dir "/" dejavu-font))) - (substitute* music-file - (("\\*/") - (string-append share-dir "/sounds/"))) - (substitute* "sound.cpp" - (("musicfile = \"\"") - (string-append "musicfile = \"" - share-dir "/" music-file "\""))) - ;; Disable build machine CPU optimizations and warnings treated - ;; as errors. - (substitute* "Makefile" - (("-march=native") "") - (("-Werror") ""))) - #t)) - (replace 'install - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (share-dir (string-append out "/share/hyperrogue"))) - (mkdir-p bin) - (install-file "hyperrogue" bin) - (install-file "hyperrogue-music.txt" share-dir)) - #t)) - (add-after 'install 'install-data - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((data (assoc-ref inputs "hyperrogue-data")) - (out (assoc-ref outputs "out")) - (sounds (string-append out "/share/hyperrogue/sounds")) - (unzip (search-input-file inputs "/bin/unzip"))) - ;; Extract media license information into sounds directory. - (invoke unzip "-j" data - (string-append - "hyperrogue" - (string-join (string-split ,version #\.) "") - "/sounds/credits.txt") "-d" sounds) - ;; Extract sounds and music into sounds directory. - (invoke "unzip" "-j" data - (string-append - "hyperrogue" - (string-join (string-split ,version #\.) "") - "/*.ogg") "-d" sounds))))))) - (native-inputs - `(("hyperrogue-data" - ,(origin - (method url-fetch) - (uri - (string-append - "https://www.roguetemple.com/z/hyper/hyperrogue" - (string-join (string-split version #\.) "") - "-win.zip")) - (sha256 - (base32 - "11yhbia45f1w9z0j67h9nynwjqmvakr9l6rnrmdrdkzin6lvzzj4")))) - ("unzip" ,unzip))) + (list + #:tests? #f ; no check target + #:make-flags #~(list "HYPERROGUE_USE_GLEW=1" + "HYPERROGUE_USE_PNG=1") + #:phases + #~(modify-phases %standard-phases + (add-after 'set-paths 'set-sdl-paths + (lambda* (#:key inputs #:allow-other-keys) + (setenv "CPATH" + (string-append (or (getenv "CPATH") "") ":" + (search-input-directory inputs + "/include/SDL"))))) + (replace 'configure + (lambda* (#:key inputs #:allow-other-keys) + (let ((share-dir (string-append #$output "/share/hyperrogue/")) + (fonts-dir (dirname + (search-input-file inputs + "DejaVuSans-Bold.ttf")))) + ;; Set fonts and music path. + (substitute* "sysconfig.h" + (("(#define HYPERPATH ).*" _ lead) + (string-append lead "\"" share-dir "\"\n")) + (("(#define HYPERFONTPATH ).*" _ lead) + (string-append lead "\"" fonts-dir "/\"\n"))) + ;; Disable build machine CPU optimizations and warnings treated + ;; as errors. + (substitute* "Makefile" + (("-march=native") "") + (("-Werror") ""))))) + (replace 'install + (lambda _ + (install-file "hyperrogue" (string-append #$output "/bin")) + (let ((share-dir (string-append #$output "/share/hyperrogue/"))) + (install-file "hyperrogue-music.txt" share-dir) + (for-each (lambda (dir) + (copy-recursively dir + (string-append share-dir dir))) + '("music" "sounds")))))))) (inputs - (list font-dejavu glew libpng + (list font-dejavu + glew + libpng (sdl-union (list sdl sdl-gfx sdl-mixer sdl-ttf)))) - (home-page "https://www.roguetemple.com/z/hyper/") + (home-page "https://roguetemple.com/z/hyper") (synopsis "Non-euclidean graphical rogue-like game") (description "HyperRogue is a game in which the player collects treasures and fights @@ -5999,9 +5961,9 @@ are home to particular creatures and may be subject to their own rules of While the game can use ASCII characters to display the the classical rogue symbols, it still needs graphics to render the non-euclidean world.") - (license (list license:bsd-3 ; glew.c, mtrand.* - license:cc-by-sa3.0 ; music - license:cc-by-sa4.0 ; sounds + (license (list license:bsd-3 ; glew.c, mtrand.* + license:cc-by-sa3.0 ; music + license:cc-by-sa4.0 ; sounds license:cc0 license:public-domain ; direntx.*, some sounds license:zlib ; savepng.* |