From mboxrd@z Thu Jan 1 00:00:00 1970 From: Andreas Enge Subject: Netpbm Date: Sat, 19 Jan 2013 18:03:17 +0100 Message-ID: <201301191803.17290.andreas@enge.fr> Mime-Version: 1.0 Content-Type: Multipart/Mixed; boundary="Boundary-00=_VHt+QNdEop3L8iH" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:39659) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TwbpG-0007fB-JY for bug-guix@gnu.org; Sat, 19 Jan 2013 12:03:29 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TwbpD-00042L-CU for bug-guix@gnu.org; Sat, 19 Jan 2013 12:03:26 -0500 Received: from moutng.kundenserver.de ([212.227.17.10]:63272) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TwbpD-00042D-2V for bug-guix@gnu.org; Sat, 19 Jan 2013 12:03:23 -0500 List-Id: Bug reports for GNU Guix List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org Sender: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org To: bug-guix@gnu.org --Boundary-00=_VHt+QNdEop3L8iH Content-Type: multipart/alternative; boundary="Boundary-01=_VHt+QMYAEKVk2Y9" Content-Transfer-Encoding: 7bit --Boundary-01=_VHt+QMYAEKVk2Y9 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Hello, the attached patch is a first attempt at adding netpbm. I disabled four tests for which I do not know why they failed. Now the package builds, but "guix-package -i netpbm" results in an error message that a user environment in the nix store could not be created. Could someone else please test the package? Andreas --Boundary-01=_VHt+QMYAEKVk2Y9 Content-Type: text/html; charset="us-ascii" Content-Transfer-Encoding: 7bit

Hello,

the attached patch is a first attempt at adding netpbm. I disabled four tests for which I do not know why they failed.

Now the package builds, but "guix-package -i netpbm" results in an error message that a user environment in the nix store could not be created.

Could someone else please test the package?

Andreas

--Boundary-01=_VHt+QMYAEKVk2Y9-- --Boundary-00=_VHt+QNdEop3L8iH Content-Type: text/x-patch; charset="UTF-8"; name="0001-gnu-Add-netpbm.patch" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="0001-gnu-Add-netpbm.patch" =46rom 2542c6f1107f271643bfc6da177d2c94f48b2d1f Mon Sep 17 00:00:00 2001 =46rom: Andreas Enge Date: Sat, 19 Jan 2013 17:59:46 +0100 Subject: [PATCH] gnu: Add netpbm. * gnu/packages/netpbm.scm: New file. * Makefile.am (MODULES): Add it. =2D-- Makefile.am | 1 + gnu/packages/netpbm.scm | 103 +++++++++++++++++++++++++++++++++++++++++++= ++++ 2 files changed, 104 insertions(+) create mode 100644 gnu/packages/netpbm.scm diff --git a/Makefile.am b/Makefile.am index 4df699a..a8b278b 100644 =2D-- a/Makefile.am +++ b/Makefile.am @@ -103,6 +103,7 @@ MODULES =3D \ gnu/packages/mysql.scm \ gnu/packages/nano.scm \ gnu/packages/ncurses.scm \ + gnu/packages/netpbm.scm \ gnu/packages/nettle.scm \ gnu/packages/openssl.scm \ gnu/packages/oggvorbis.scm \ diff --git a/gnu/packages/netpbm.scm b/gnu/packages/netpbm.scm new file mode 100644 index 0000000..2670f30 =2D-- /dev/null +++ b/gnu/packages/netpbm.scm @@ -0,0 +1,103 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright =C2=A9 2013 Andreas Enge +;;; +;;; 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 netpbm) + #:use-module (gnu packages) + #:use-module (gnu packages compression) + #:use-module (gnu packages flex) + #:use-module (gnu packages ghostscript) + #:use-module (gnu packages libjpeg) + #:use-module (gnu packages libpng) + #:use-module (gnu packages libtiff) + #:use-module (gnu packages perl) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages python) + #:use-module (gnu packages xml) + #:use-module ((guix licenses) #:select (gpl2)) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu)) + +(define-public netpbm + (package + (name "netpbm") + (version "10.61.01") + (source (origin + (method url-fetch) + (uri (string-append "http://www.multiprecision.org/guix/netpbm= =2D" + version ".tar.xz")) + ;; The "super-stable" and "stable" versions do not compile + ;; with newer libpng; we need the "advanced" version, which is + ;; not available as a tarball with a fixed hash. So we put it + ;; onto an unrelated server. + (sha256 (base32 + "10nwvxc85kr6vhlhhahagy7s9848bbixl54b0p4ppim4g0dl10jz= ")))) + (build-system gnu-build-system) + (inputs `(("flex" ,flex) + ("ghostscript" ,ghostscript) + ("libjpeg" ,libjpeg) + ("libpng" ,libpng) + ("libtiff" ,libtiff) + ("libxml2" ,libxml2) + ("perl" ,perl) + ("pkg-config" ,pkg-config) + ("python" ,python) + ("zlib" ,zlib))) + (arguments + `(#:phases + (alist-replace + 'configure + (lambda* (#:key #:allow-other-keys #:rest args) + (copy-file "config.mk.in" "config.mk") + (let ((f (open-file "config.mk" "a"))) + (display "CC=3Dgcc\n" f) + (display "CFLAGS_SHLIB +=3D -fPIC\n" f) + (display "TIFFLIB =3D libtiff.so\n" f) + (display "JPEGLIB =3D libjpeg.so\n" f) + (display "ZLIB =3D libz.so\n" f) + (close-port f))) + (alist-replace + 'check + (lambda* (#:key #:allow-other-keys #:rest args) + (let ((check (assoc-ref %standard-phases 'check))) + (system* "make" "package") + ;; install temporarily into /tmp/netpbm + (substitute* "test/all-in-place.test" (("pamx") "")) + ;; remove test requiring X + (substitute* "test/all-in-place.test" (("^rm ") "rm -f ")) + ;; do not worry about non-existing file + (substitute* "test/Test-Order" (("all-in-place.test") "")) + (substitute* "test/Test-Order" (("pnmpsnr.test") "")) + (substitute* "test/Test-Order" (("pnmremap1.test") "")) + (substitute* "test/Test-Order" (("gif-roundtrip.test") "")) + ;; remove four tests that fail for unknown reasons + (apply check args))) + (alist-replace + 'install + (lambda* (#:key outputs make-flags #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (zero? (apply system* "make" "package" (string-append "pkgdir=3D"= out) make-flags)))) + %standard-phases))))) + (synopsis "Netpbm, a toolkit for manipulation of images") + (description + "Netpbm is a toolkit for the manipulation of graphic images, including +the conversion of images between a variety of different formats. +There are over 300 separate tools in the package including converters for +about 100 graphics formats.") + (license gpl2) + (home-page "http://netpbm.sourceforge.net/"))) =2D-=20 1.7.10.4 --Boundary-00=_VHt+QNdEop3L8iH--