[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/09: gnu: games: Use INSTALL-FILE.
From: |
Tobias Geerinckx-Rice |
Subject: |
04/09: gnu: games: Use INSTALL-FILE. |
Date: |
Wed, 29 Mar 2017 16:05:14 -0400 (EDT) |
nckx pushed a commit to branch master
in repository guix.
commit ddce090306023c7cf08eda81545b702f5fc1496d
Author: Tobias Geerinckx-Rice <address@hidden>
Date: Wed Mar 29 18:46:31 2017 +0200
gnu: games: Use INSTALL-FILE.
* gnu/packages/games.scm (glkterm, glulxe): Use INSTALL-FILE, return #t
instead of an undefined value, and prefer using let bindings.
---
gnu/packages/games.scm | 17 +++++++++++------
1 file changed, 11 insertions(+), 6 deletions(-)
diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 0dcb15f..80c5cc3 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -26,6 +26,7 @@
;;; Copyright © 2016 Steve Webber <address@hidden>
;;; Copyright © 2017 Adonay "adfeno" Felipe Nogueira
<https://libreplanet.org/wiki/User:Adfeno> <address@hidden>
;;; Copyright © 2017 Arun Isaac <address@hidden>
+;;; Copyright © 2017 Tobias Geerinckx-Rice <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -982,14 +983,16 @@ in different ways.")
'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
- (inc (string-append out "/include")))
+ (inc (string-append out "/include"))
+ (lib (string-append out "/lib")))
(mkdir-p inc)
(for-each
(lambda (file)
- (copy-file file (string-append inc "/" file)))
+ (install-file file inc))
'("glk.h" "glkstart.h" "gi_blorb.h" "gi_dispa.h" "Make.glkterm"))
- (mkdir (string-append out "/lib"))
- (copy-file "libglkterm.a" (string-append out "/lib/libglkterm.a"))))
+ (mkdir-p lib)
+ (install-file "libglkterm.a" lib))
+ #t)
(alist-delete 'configure %standard-phases))))
(home-page "http://www.eblong.com/zarf/glk/")
(synopsis "Curses Implementation of the Glk API")
@@ -1026,9 +1029,11 @@ using the curses.h library for screen control.")
(alist-replace
'install
(lambda* (#:key outputs #:allow-other-keys)
- (let ((bin (string-append (assoc-ref outputs "out") "/bin")))
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out "/bin")))
(mkdir-p bin)
- (copy-file "glulxe" (string-append bin "/glulxe"))))
+ (install-file "glulxe" bin))
+ #t)
(alist-delete 'configure %standard-phases))))
(home-page "http://www.eblong.com/zarf/glulx/")
(synopsis "Interpreter for Glulx VM")
- branch master updated (8615da9 -> a29d329), Tobias Geerinckx-Rice, 2017/03/29
- 06/09: gnu: glulxe: Fix typo., Tobias Geerinckx-Rice, 2017/03/29
- 09/09: gnu: games: Don't MKDIR before INSTALL-FILE., Tobias Geerinckx-Rice, 2017/03/29
- 01/09: gnu: Add httpfs2., Tobias Geerinckx-Rice, 2017/03/29
- 05/09: gnu: glkterm: Use @code in description., Tobias Geerinckx-Rice, 2017/03/29
- 02/09: gnu: hyperrogue: Improve description., Tobias Geerinckx-Rice, 2017/03/29
- 03/09: gnu: zstd: Update to 1.1.4., Tobias Geerinckx-Rice, 2017/03/29
- 04/09: gnu: games: Use INSTALL-FILE.,
Tobias Geerinckx-Rice <=
- 08/09: gnu: retroarch: Don't use %OUTPUT., Tobias Geerinckx-Rice, 2017/03/29
- 07/09: gnu: games: Use ‘modify-phases’., Tobias Geerinckx-Rice, 2017/03/29