Re: [PATCH] gnu: Add moreutils.

[David Thompson]

"Taylan Ulrich Bayırlı/Kammer" <address@hidden> writes:

> Never mind the previous patch, just saw your comment re. 2015. :-)
>
> (Too much copy-paste again.)
>
> From dc3070321f3923780d75906d0b73b60fcd166bb0 Mon Sep 17 00:00:00 2001
> From: =?UTF-8?q?Taylan=20Ulrich=20Bay=C4=B1rl=C4=B1/Kammer?=
>  <address@hidden>
> 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 | 70 
> ++++++++++++++++++++++++++++++++++++++++++++++
>  2 files changed, 71 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 =                              \
>    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..700e3e1
> --- /dev/null
> +++ b/gnu/packages/moreutils.scm
> @@ -0,0 +1,70 @@
> +;;; GNU Guix --- Functional package management for GNU
> +;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <address@hidden>
> +;;;
> +;;; 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 <http://www.gnu.org/licenses/>.
> +
> +(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"
> +              (("/usr/share/xml/.*/docbook.xsl")
> +               (string-append
> +                docbook-xsl
> +                "/xml/xsl/docbook-xsl-1.78.1/manpages/docbook.xsl")))
> +            (setenv
> +             "XML_CATALOG_FILES"
> +             (string-append docbook-xml "/xml/dtd/docbook/catalog.xml"))
> +            (setenv "PREFIX" out)
> +            (setenv "CC" "gcc")))

Mark made a good point about using #:make-flags earlier.  I think it's
better to use the build system argument that is specifically for this
purpose rather than adding 'setenv' calls into the configure phase.

Sorry for leading you in the wrong direction.

> +        %standard-phases)))
> +    (home-page "http://joeyh.name/code/moreutils/";)
> +    (synopsis "Miscellaneous general-purpose command-line tools")
> +    (description
> +     "Moreutils is a collection of general-purpose command-line tools to
> +augment the traditional Unix toolbox.")
> +    (license l:gpl2+)))
> -- 
> 2.2.1
>

-- 
David Thompson
Web Developer - Free Software Foundation - http://fsf.org
GPG Key: 0FF1D807
Support the FSF: https://fsf.org/donate