From mboxrd@z Thu Jan 1 00:00:00 1970 From: Andreas Enge Subject: Re: Netpbm Date: Sun, 20 Jan 2013 16:31:57 +0100 Message-ID: <201301201631.57914.andreas@enge.fr> References: <201301191803.17290.andreas@enge.fr> <201301192324.50088.andreas@enge.fr> <87y5fovtoo.fsf@gnu.org> Mime-Version: 1.0 Content-Type: Multipart/Mixed; boundary="Boundary-00=_t3A/QD+RcV4FscL" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:37427) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TwwsU-0006H4-2Q for bug-guix@gnu.org; Sun, 20 Jan 2013 10:32:13 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TwwsQ-0000nk-UP for bug-guix@gnu.org; Sun, 20 Jan 2013 10:32:10 -0500 In-Reply-To: <87y5fovtoo.fsf@gnu.org> 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: Ludovic =?utf-8?q?Court=C3=A8s?= Cc: bug-guix@gnu.org --Boundary-00=_t3A/QD+RcV4FscL Content-Type: multipart/alternative; boundary="Boundary-01=_t3A/Q+b9X69mVsX" Content-Transfer-Encoding: 7bit --Boundary-01=_t3A/Q+b9X69mVsX Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Am Sonntag, 20. Januar 2013 schrieb Ludovic Court=C3=A8s: > > $ guix-package -i netpbm > > error: build failed: build of > > `/nix/store/h2s02132641hvaqr03q96i97dydlqm4i- user-environment.drv' > > failed. > Can you run it with --verbose? Ah, so many options! I tried the daemon with --debug. Here is the result: In unknown file: ?: 0 [mkdir "/nix/store/mv7v3y702k1yfml8067gn15r3n6pzjxm-user- environment///nix/store/agjc4rdsvi4wvbz6dymgid5pb85nqcf7- netpbm-10.61.01/VERSION" ...] ERROR: In procedure mkdir: ERROR: In procedure mkdir: No such file or directory So indeed, the problem is the extraneous files, and the package can be=20 installed after deleting them. > OK, it=E2=80=99s probably a generated tarball from a checkout. Can you j= ust add > these links to the file? Yes, I just read one could also do an svn checkout from a tag. New patch attached. Andreas --Boundary-01=_t3A/Q+b9X69mVsX Content-Type: text/html; charset="utf-8" Content-Transfer-Encoding: quoted-printable

Am Sonntag,= 20. Januar 2013 schrieb Ludovic Court=C3=A8s:

> > $= guix-package -i netpbm

> > e= rror: build failed: build of

> > `= /nix/store/h2s02132641hvaqr03q96i97dydlqm4i- user-environment.drv'

> > f= ailed.

> Can yo= u run it with --verbose?

&nb= sp;

Ah, so many= options! I tried the daemon with --debug. Here is the result:

In unknown = file:

?: 0 [mk= dir "/nix/store/mv7v3y702k1yfml8067gn15r3n6pzjxm-user-environment///ni= x/store/agjc4rdsvi4wvbz6dymgid5pb85nqcf7-netpbm-10.61.01/VERSION" ...]=

ERROR: In p= rocedure mkdir:

ERROR: In p= rocedure mkdir: No such file or directory

&nb= sp;

So indeed, = the problem is the extraneous files, and the package can be installed after= deleting them.

&nb= sp;

> OK, it= =E2=80=99s probably a generated tarball from a checkout. Can you just add<= /p>

> these = links to the file?

&nb= sp;

Yes, I just= read one could also do an svn checkout from a tag.

&nb= sp;

New patch a= ttached.

&nb= sp;

Andreas

&nb= sp;

&nb= sp;

&nb= sp;

--Boundary-01=_t3A/Q+b9X69mVsX-- --Boundary-00=_t3A/QD+RcV4FscL 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 b26a654bd3e98c79e1196e3297601c65376648b4 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 | 115 +++++++++++++++++++++++++++++++++++++++++++= ++++ 2 files changed, 116 insertions(+) create mode 100644 gnu/packages/netpbm.scm diff --git a/Makefile.am b/Makefile.am index 9edfd99..5b08de8 100644 =2D-- a/Makefile.am +++ b/Makefile.am @@ -104,6 +104,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..176cff5 =2D-- /dev/null +++ b/gnu/packages/netpbm.scm @@ -0,0 +1,115 @@ +;;; 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. The tar= ball + ;; on the server is generated by sourceforge from the "advanc= ed" + ;; branch of the subversion repository: + ;; svn checkout http://netpbm.svn.sourceforge.net/svnroot/net= pbm/advanced netpbm-version + (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"))) + (apply system* "make" "package" + (string-append "pkgdir=3D" out) make-flags) + (copy-file (string-append out "/link/libnetpbm.a") + (string-append out "/lib/libnetpbm.a")) + ;; copy static library + (system* "rm" "-r" (string-append out "/link")) + (system* "rm" "-r" (string-append out "/misc")) + (delete-file (string-append out "/config_template")) + (delete-file (string-append out "/pkginfo")) + (delete-file (string-append out "/README")) + (delete-file (string-append out "/VERSION")))) + ;; remove superfluous folders and files + %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=_t3A/QD+RcV4FscL--