From 08c2fb8fe96db4fffca70b130c84d6651fc155cb Mon Sep 17 00:00:00 2001 From: Jesse Gibbons Date: Wed, 5 Jun 2019 14:03:19 -0600 Subject: [PATCH] gnu: Add gnurobots. * gnu/packages/games.scm (gnurobots): New variable. Signed-off-by: Ricardo Wurmus Co-authored-by: Ricardo Wurmus --- gnu/packages/games.scm | 49 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 4fdc9b01e6..7a433a0bfd 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -40,6 +40,7 @@ ;;; Copyright © 2019 Oleg Pykhalov ;;; Copyright © 2019 Pierre Langlois ;;; Copyright © 2019 Julien Lepiller +;;; Copyright © 2019 Jesse Gibbons ;;; ;;; This file is part of GNU Guix. ;;; @@ -7336,3 +7337,51 @@ Unfortunately, Hacker is not aware of Drascula's real ambitions: DOMINATING the World and demonstrating that he is even more evil than his brother Vlad.") ;; Drascula uses a BSD-like license. (license (license:non-copyleft "file:///readme.txt")))) + +(define-public gnurobots + (package + (name "gnurobots") + (version "1.2.0") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://gnu/gnurobots/gnurobots-" + version ".tar.gz")) + (sha256 + (base32 + "07gi3lsmbzzsjambgixj6xy79lh22km84z7bnzgwzxdy806lyvwb")))) + (build-system gnu-build-system) + (inputs + `(("glib" ,glib) + ("gtk+" ,gtk+-2) + ("vte" ,vte/gtk+-2) + ("readline" ,readline) + ("guile" ,guile-1.8))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (arguments + `(#:make-flags + (list + ;; Do not abort build on "deprecated-declarations" warnings. + "CFLAGS=-Wno-error=deprecated-declarations" + ;; Find readline headers in sub-directory. + (string-append "READLINE_CFLAGS=-I" + (assoc-ref %build-inputs "readline") + "/include/readline/")) + #:phases + (modify-phases %standard-phases + (add-after 'install 'install-doc + (lambda* (#:key outputs #:allow-other-keys) + (install-file "doc/Robots-HOWTO" + (string-append (assoc-ref outputs "out") + "/share/doc/gnurobots-" + ,version)) + #t))))) + (home-page "https://www.gnu.org/software/gnurobots/") + (synopsis "Program a little robot and watch it explore a world") + (description + "GNU Robots is a game in which you program a robot to explore a world +full of enemies that can hurt it, obstacles and food to be eaten. The goal of +the game is to stay alive and collect prizes. The robot program conveniently +may be written in a plain text file in the Scheme programming language.") + (license license:gpl3+)))