gnu: alex4: Remove non-free package.

Its readme.txt goes out of its way to licence only ‘source code’ under
the GPL2+, a reading supposedly confirmed by the author:

https://libregamewiki.org/Talk:Alex_the_Allegator_4

However, we don't need to rely on the authenticity of that claim: the
game data is clearly not licenced, and is required to run the binary.
Without it, the game segfaults.

* gnu/packages/games.scm (alex4): Remove variable.

Fixes <https://issues.guix.gnu.org/65881>.
This commit is contained in:
Tobias Geerinckx-Rice 2023-09-24 02:00:00 +02:00
parent 06dc36ffb7
commit 15fdeaeb2d
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -413,48 +413,6 @@ (define-public adanaxisgpl
mouse and joystick control, and original music.")
(license license:gpl2))))
(define-public alex4
(package
(name "alex4")
(version "1.2.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/carstene1ns/alex4")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "098wy72mh4lsvq3gm0rhamjssf9l1hp6hhkpzrv7klpb97cwwc3h"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no check target
#:make-flags
(list "CC=gcc"
"CFLAGS=-D_FILE_OFFSET_BITS=64 -fcommon"
(string-append "PREFIX=" (assoc-ref %outputs "out")))
#:phases
(modify-phases %standard-phases
(delete 'configure) ; no configure script
(add-after 'install 'install-data
(lambda* (#:key outputs #:allow-other-keys)
(let ((share (string-append (assoc-ref outputs "out")
"/share/" ,name)))
(install-file "alex4.ini" share)
#t))))))
(inputs
`(("allegro" ,allegro-4)
("dumb" ,dumb-allegro4)))
(home-page "https://allegator.sourceforge.net/")
(synopsis "Retro platform game")
(description
"Guide Alex the Allegator through the jungle in order to save his
girlfriend Lola from evil humans who want to make a pair of shoes out of her.
Plenty of classic platforming in four nice colors guaranteed!
The game includes a built-in editor so you can design and share your own maps.")
(license license:gpl2+)))
(define-public anarch
(let ((commit "2d78d0c69a3aac14dbd8f8aca62d0cbd9d27c860")
(revision "1"))