From mboxrd@z Thu Jan 1 00:00:00 1970 From: Eric Bavier Subject: Re: [PATCH] gnu: Add Glulxe. Date: Tue, 18 Nov 2014 10:45:42 -0600 Message-ID: <874mtwv4nd.fsf@gmail.com> References: <1416326481-2572-1-git-send-email-iyzsong@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:49519) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xqltb-0001Bs-AO for guix-devel@gnu.org; Tue, 18 Nov 2014 11:44:55 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XqltV-0007uG-5t for guix-devel@gnu.org; Tue, 18 Nov 2014 11:44:51 -0500 Received: from mail-ie0-x22c.google.com ([2607:f8b0:4001:c03::22c]:48417) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XqltV-0007tk-0j for guix-devel@gnu.org; Tue, 18 Nov 2014 11:44:45 -0500 Received: by mail-ie0-f172.google.com with SMTP id ar1so9738804iec.17 for ; Tue, 18 Nov 2014 08:44:43 -0800 (PST) In-reply-to: <1416326481-2572-1-git-send-email-iyzsong@gmail.com> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: =?utf-8?B?5a6L5paH5q2m?= Cc: guix-devel@gnu.org 宋文武 writes: > * gnu/packages/games.scm (glkterm, glulxe): New variables. > --- > gnu/packages/games.scm | 79 ++++++++++++++++++++++++++++++++++++++++++++++++++ > 1 file changed, 79 insertions(+) > > diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm > index c9bb678..5859cbc 100644 > --- a/gnu/packages/games.scm > +++ b/gnu/packages/games.scm > @@ -733,3 +733,82 @@ single player. Mods and texture packs allow players to personalize the game > in different ways.") > (home-page "http://minetest.net") > (license license:lgpl2.1+))) > + > +(define glkterm > + (package > + (name "glkterm") > + (version "1.0.4") > + (source > + (origin > + (method url-fetch) > + (uri (string-append "http://www.ifarchive.org/if-archive/programming/" > + "glk/implementations/glkterm-104.tar.gz")) > + (sha256 > + (base32 > + "0zlj9nlnkdlvgbiliczinirqygiq8ikg5hzh5vgcmnpg9pvnwga7")))) > + (build-system gnu-build-system) > + (propagated-inputs `(("ncurses" ,ncurses))) Could you add a comment saying why ncurses needs to be propagated? > + (arguments > + '(#:tests? #f ; no check target > + #:phases > + (alist-replace > + 'install > + (lambda* (#:key outputs #:allow-other-keys) > + (let ((out (assoc-ref outputs "out"))) > + (mkdir out) > + (mkdir (string-append out "/include")) > + (copy-file "glk.h" (string-append out "/include/glk.h")) > + (copy-file "glkstart.h" (string-append out "/include/glkstart.h")) > + (copy-file "gi_blorb.h" (string-append out "/include/gi_blorb.h")) > + (copy-file "gi_dispa.h" (string-append out "/include/gi_dispa.h")) > + (copy-file "Make.glkterm" (string-append out "/include/Make.glkterm")) > + (mkdir (string-append out "/lib")) > + (copy-file "libglkterm.a" (string-append out "/lib/libglkterm.a")))) This is a bit terse, IMHO. Perhaps something like: (let* ((out (assoc-ref outputs "out")) (inc (string-append out "/include"))) (begin (mkdir-p inc) (for-each (lambda (f) (copy-file f (string-append inc "/" f))) '("glk.h" "glkstart.h" "gi_blorb.h" "gi_dispa.h" "Make.glkterm")) (mkdir-p lib) (copy-file "libglkterm.a" (string-append out "/lib/libglkterm.a")))) > + (alist-delete 'configure %standard-phases)))) > + (home-page "http://www.eblong.com/zarf/glk/") > + (synopsis "Curses.h Implementation of the Glk API") "Curses implementation of the Glk API"? Thanks! -- Eric Bavier Please avoid sending me Word or PowerPoint attachments. See http://www.gnu.org/philosophy/no-word-attachments.html