diff options
| author | Mark H Weaver <mhw@netris.org> | 2018-06-27 20:42:35 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2018-11-14 23:43:54 -0500 |
| commit | fccacffbf46ca51e76f67e4c51eb0fb081e12576 (patch) | |
| tree | 6c56b45590ece4aaf83b510f2feeaf03be2473bf /gnu/packages/image.scm | |
| parent | cb8ba848d2d0fc1ccd7b64a70858fdcc3e1b084a (diff) | |
| download | gnu-guix-fccacffbf46ca51e76f67e4c51eb0fb081e12576.tar gnu-guix-fccacffbf46ca51e76f67e4c51eb0fb081e12576.tar.gz | |
gnu: image: Return #t from all phases.
* gnu/packages/image.scm (libpng-apng, pngcrush, leptonica, zimg)
(perceptualdiff): Return #t from all phases.
Diffstat (limited to 'gnu/packages/image.scm')
| -rw-r--r-- | gnu/packages/image.scm | 25 |
1 files changed, 14 insertions, 11 deletions
diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm index 6436d7e404..11e1b1539b 100644 --- a/gnu/packages/image.scm +++ b/gnu/packages/image.scm @@ -136,15 +136,15 @@ library. It supports almost all PNG features and is extensible.") (add-after 'unpack 'patch-apng (lambda* (#:key inputs #:allow-other-keys) (define (apply-patch file) - (zero? (system* "patch" "-p1" "--force" - "--input" file))) + (invoke "patch" "-p1" "--force" + "--input" file)) (let ((apng.gz (assoc-ref inputs "apng"))) (format #t "Applying APNG patch '~a'...~%" apng.gz) - (and - (zero? - (system (string-append "gunzip < " apng.gz " > the-patch"))) - (apply-patch "the-patch"))))) + (invoke "sh" "-c" + (string-append "gunzip < " apng.gz " > the-patch")) + (apply-patch "the-patch") + #t))) (add-before 'configure 'no-checks (lambda _ (substitute* "Makefile.in" @@ -239,7 +239,8 @@ in-memory raw vectors.") (string-append vardef (assoc-ref inputs "zlib") "/")) ;; The Makefile is written by hand and not using $PREFIX (("\\$\\(DESTDIR\\)/usr/") - (string-append (assoc-ref outputs "out") "/")))))))) + (string-append (assoc-ref outputs "out") "/"))) + #t))))) (inputs `(("libpng" ,libpng) ("zlib" , zlib))) @@ -473,14 +474,15 @@ collection of tools for doing simple manipulations of TIFF images.") (modify-phases %standard-phases (add-after 'unpack 'autogen (lambda _ - (zero? (system* "sh" "autobuild")))) + (invoke "sh" "autobuild"))) (add-after 'unpack 'patch-reg-wrapper (lambda _ (substitute* "prog/reg_wrapper.sh" ((" /bin/sh ") (string-append " " (which "sh") " ")) (("which gnuplot") - "true"))))))) + "true")) + #t))))) (home-page "http://www.leptonica.com/") (synopsis "Library and tools for image processing and analysis") (description @@ -1083,7 +1085,7 @@ ISO/IEC 15444-1).") (modify-phases %standard-phases (add-after 'unpack 'autogen (lambda _ - (zero? (system* "sh" "autogen.sh"))))))) + (invoke "sh" "autogen.sh")))))) (synopsis "Scaling, colorspace conversion, and dithering library") (description "Zimg implements the commonly required image processing basics of scaling, colorspace conversion, and depth conversion. A simple API enables @@ -1116,7 +1118,8 @@ the programmer.") ;; of the source tree, one level higher than expected (lambda _ (substitute* "test/run_tests.bash" - (("../build") "../../build"))))))) + (("../build") "../../build")) + #t))))) (home-page "https://github.com/myint/perceptualdiff") (synopsis "Perceptual image comparison utility") (description "PerceptualDiff visually compares two images to determine |