From mboxrd@z Thu Jan 1 00:00:00 1970 From: Mark H Weaver Subject: Re: [PATCH] gnu: Add moreutils. Date: Sun, 01 Feb 2015 00:48:07 -0500 Message-ID: <87oapefai0.fsf@netris.org> References: <87a90yqvb6.fsf@taylan.uni.cx> <87386ql819.fsf@izanagi.i-did-not-set--mail-host-address--so-tickle-me> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:57068) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YHnOc-0001oR-T1 for guix-devel@gnu.org; Sun, 01 Feb 2015 00:48:51 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YHnOJ-00076Q-4O for guix-devel@gnu.org; Sun, 01 Feb 2015 00:48:34 -0500 Received: from world.peace.net ([50.252.239.5]:57665) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YHnOI-00076I-T0 for guix-devel@gnu.org; Sun, 01 Feb 2015 00:48:15 -0500 In-Reply-To: <87386ql819.fsf@izanagi.i-did-not-set--mail-host-address--so-tickle-me> (David Thompson's message of "Sat, 31 Jan 2015 20:44:50 -0500") 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: David Thompson Cc: guix-devel@gnu.org David Thompson writes: > "Taylan Ulrich Bay=C4=B1rl=C4=B1/Kammer" writes: > >> From c770ed88c66c10de47e8fe7f84c3df6cf7b14aa4 Mon Sep 17 00:00:00 2001 >> From: =3D?UTF-8?q?Taylan=3D20Ulrich=3D20Bay=3DC4=3DB1rl=3DC4=3DB1/Kammer= ?=3D >> >> Date: Sun, 1 Feb 2015 02:21:11 +0100 >> Subject: [PATCH] gnu: Add moreutils. >> >> * gnu-system.am (GNU_SYSTEM_MODULES): Add moreutils.scm. >> * gnu/packages/moreutils.scm: New file. >> --- >> gnu-system.am | 1 + >> gnu/packages/moreutils.scm | 71 +++++++++++++++++++++++++++++++++++++++= +++++++ >> 2 files changed, 72 insertions(+) >> create mode 100644 gnu/packages/moreutils.scm >> >> diff --git a/gnu-system.am b/gnu-system.am >> index 706ad57..8ae5b79 100644 >> --- a/gnu-system.am >> +++ b/gnu-system.am >> @@ -187,6 +187,7 @@ GNU_SYSTEM_MODULES =3D \ >> gnu/packages/miscfiles.scm \ >> gnu/packages/mit-krb5.scm \ >> gnu/packages/moe.scm \ >> + gnu/packages/moreutils.scm \ >> gnu/packages/mpd.scm \ >> gnu/packages/mp3.scm \ >> gnu/packages/mpi.scm \ >> diff --git a/gnu/packages/moreutils.scm b/gnu/packages/moreutils.scm >> new file mode 100644 >> index 0000000..da3df89 >> --- /dev/null >> +++ b/gnu/packages/moreutils.scm >> @@ -0,0 +1,71 @@ >> +;;; GNU Guix --- Functional package management for GNU >> +;;; Copyright =C2=A9 2014 Taylan Ulrich Bay=C4=B1rl=C4=B1/Kammer >> +;;; >> +;;; This file is part of GNU Guix. >> +;;; >> +;;; GNU Guix is free software; you can redistribute it and/or modify it >> +;;; under the terms of the GNU General Public License as published by >> +;;; the Free Software Foundation; either version 3 of the License, or (= at >> +;;; your option) any later version. >> +;;; >> +;;; GNU Guix is distributed in the hope that it will be useful, but >> +;;; WITHOUT ANY WARRANTY; without even the implied warranty of >> +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the >> +;;; GNU General Public License for more details. >> +;;; >> +;;; You should have received a copy of the GNU General Public License >> +;;; along with GNU Guix. If not, see . >> + >> +(define-module (gnu packages moreutils) >> + #:use-module ((guix licenses) #:prefix l:) >> + #:use-module (guix packages) >> + #:use-module (guix download) >> + #:use-module (guix build-system gnu) >> + #:use-module (gnu packages perl) >> + #:use-module (gnu packages xml) >> + #:use-module (gnu packages docbook)) >> + >> +(define-public moreutils >> + (package >> + (name "moreutils") >> + (version "0.55") >> + (source (origin >> + (method url-fetch) >> + (uri (string-append >> + "http://ftp.debian.org/debian/pool/main/m/moreutils= /moreutils_" >> + version ".orig.tar.gz")) >> + (sha256 >> + (base32 >> + "1dcah2jx8dbznn8966xl7sf1jrld2qfh6l6xcmx9dsnf8p8mr7fs")= ))) >> + (build-system gnu-build-system) >> + (inputs `(("perl" ,perl) >> + ("libxml2" ,libxml2) >> + ("libxslt" ,libxslt) >> + ("docbook-xml" ,docbook-xml-4.4) >> + ("docbook-xsl" ,docbook-xsl))) >> + (arguments >> + `(#:phases >> + (alist-replace >> + 'configure >> + (lambda* (#:key inputs outputs #:allow-other-keys) >> + (let ((out (assoc-ref outputs "out")) >> + (docbook-xml (assoc-ref inputs "docbook-xml")) >> + (docbook-xsl (assoc-ref inputs "docbook-xsl"))) >> + (substitute* "Makefile" >> + (("PREFIX\\?=3D/usr") >> + (string-append "PREFIX?=3D" out)) > > In GNU Make, the '?=3D' operator for variable assignment means "assign if > the variable isn't already defined"[1]. So, rather than a substitution, > how about just setting an environment variable? > > (setenv "PREFIX" out) Another way is to add "PREFIX=3D..." to #:make-flags like this: #:make-flags (list (string-append "PREFIX=3D" (assoc-ref %outputs "out"))) See 'freedink-data' in gnu/packages/games.scm for an example of this. Mark