;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2015, 2016 Ludovic Courtès <ludo@gnu.org> ;;; ;;; 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 netpbm) #:use-module (gnu packages) #:use-module (gnu packages compression) #:use-module (gnu packages flex) #:use-module (gnu packages ghostscript) #:use-module (gnu packages image) #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages xml) #:use-module (gnu packages xorg) #:use-module (guix build-system gnu) #:use-module ((guix licenses) #:select (gpl2)) #:use-module (guix packages) #:use-module (guix svn-download)) (define-public netpbm (package (name "netpbm") (version "10.78.3") (source (origin (method svn-fetch) ;; At the time of first packaging, the "super-stable" and ;; "stable" versions did not compile with newer libpng; ;; we needed the "advanced" version. ;; The currently highest stable version is 10.47.53, ;; the currently highest advanced version is 10.69.4, ;; svn release 2397. ;; To determine the correct release: "svn log version.mk". (uri (svn-reference (url "http://svn.code.sf.net/p/netpbm/code/advanced") (revision 2965))) (sha256 (base32 "1k7as9qi1942wyjxpvbf02wg0h4braw44m3m3vvi8sm9y5z1m967")) (file-name (string-append name "-" version "-checkout")) (modules '((guix build utils))) (snippet '(begin ;; Remove non-FSDG-compliant code. (define-syntax drop (syntax-rules (in) ;; Remove PROGRAM from DIRECTORY/Makefile, and remove ;; DIRECTORY/PROGRAM and DIRECTORY/PROGRAM.c. ((_ program ... in directory) (begin (substitute* (string-append directory "/Makefile") ((program) "") ...) (let* ((subdir (string-append directory "/" program)) (dot-c (string-append subdir ".c"))) (when (file-exists? subdir) (delete-file-recursively subdir)) (when (file-exists? dot-c) (delete-file dot-c))) ...)))) ;; Drop advertisement for non-free program. (drop "hpcdtoppm" in "converter/ppm") ;; Drop programs without a license, see ;; <http://packages.debian.org/changelogs/pool/main/n/netpbm-free/netpbm-free_10.0-12.2/libnetpbm10.copyright>. (drop "pbmto4425" "pbmtoln03" "pbmtolps" "pbmtopk" "pktopbm" in "converter/pbm") (drop "spottopgm" in "converter/pgm") (drop "ppmtopjxl" in "converter/ppm") ;; Remove timestamps from the generated code. (substitute* "buildtools/makepointerman" (("gmctime[(][)]") "\"Thu Jan 1 00:00:00 1970\"")) (substitute* "buildtools/stamp-date" (("^DATE=.*") "DATE=\"Thu Jan 01 00:00:00+0000 1970\"\n") (("^USER=.*") "USER=Guix\n")) #t)))) (build-system gnu-build-system) (inputs `(("ghostscript" ,ghostscript) ("libjpeg" ,libjpeg) ("libpng" ,libpng) ("libtiff" ,libtiff) ("libxml2" ,libxml2) ("xorg-rgb" ,xorg-rgb) ("zlib" ,zlib))) (native-inputs `(("flex" ,flex) ("perl" ,perl) ("pkg-config" ,pkg-config) ("python" ,python-wrapper))) (arguments `(#:phases (modify-phases %standard-phases (replace 'configure (lambda* (#:key inputs outputs #:allow-other-keys) (copy-file "config.mk.in" "config.mk") (chmod "config.mk" #o664) (let ((f (open-file "config.mk" "a"))) (display "CC=gcc\n" f) (display "CFLAGS_SHLIB += -fPIC\n" f) (display "TIFFLIB = libtiff.so\n" f) (display "JPEGLIB = libjpeg.so\n" f) (display "ZLIB = libz.so\n" f) (display (string-append "LDFLAGS += -Wl,-rpath=" %output "/lib") f) (close-port f)) (let ((rgb (string-append (assoc-ref inputs "xorg-rgb") "/share/X11/rgb.txt"))) (substitute* "config.mk" (("/usr/share/netpbm/rgb.txt") rgb)) ;; Our Ghostscript no longer provides the 'gs' command, only ;; 'gsc', so look for that instead. (substitute* "converter/other/pstopnm.c" (("\"%s/gs\"") "\"%s/gsc\""))) #t)) (add-before 'check 'setup-check (lambda _ ;; install temporarily into /tmp/netpbm (system* "make" "package") ;; remove test requiring X (substitute* "test/all-in-place.test" (("pamx") "")) ;; do not worry about non-existing file (substitute* "test/all-in-place.test" (("^rm ") "rm -f ")) ;; remove four tests that fail for unknown reasons (substitute* "test/Test-Order" (("all-in-place.test") "") (("pnmpsnr.test") "") (("pnmremap1.test") "") (("gif-roundtrip.test") "") ;; These two tests started failing in netpbm-10.78.3. (("jpeg-roundtrip.test") "") (("pbmtext.test") "") ;; Skip tests that use nonfree programs that we don't build. (("ps-alt-roundtrip.test") "" ) (("pbm-misc-converters.test") "")) #t)) (replace 'install (lambda* (#:key outputs make-flags #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (apply system* "make" "package" (string-append "pkgdir=" out) make-flags) ;; copy static library (copy-file (string-append out "/link/libnetpbm.a") (string-append out "/lib/libnetpbm.a")) ;; remove superfluous folders and files (system* "rm" "-r" (string-append out "/link")) (system* "rm" "-r" (string-append out "/misc")) (with-directory-excursion out (for-each delete-file '("config_template" "pkginfo" "README" "VERSION"))) #t)))))) (synopsis "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/")))