[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
16/16: gnu: freeimage: Remove input labels.
From: |
guix-commits |
Subject: |
16/16: gnu: freeimage: Remove input labels. |
Date: |
Tue, 9 Aug 2022 18:29:49 -0400 (EDT) |
mbakke pushed a commit to branch master
in repository guix.
commit 02de6a59813df9dd839117669535118f1b798ed4
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Tue Aug 9 23:13:45 2022 +0200
gnu: freeimage: Remove input labels.
* gnu/packages/image.scm (freeimage): Reindent.
[arguments]: Use G-expression and SEARCH-INPUT-DIRECTORY.
[inputs]: Remove labels.
---
gnu/packages/image.scm | 161 +++++++++++++++++++++++++------------------------
1 file changed, 81 insertions(+), 80 deletions(-)
diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm
index 0a677d7835..0b0452664b 100644
--- a/gnu/packages/image.scm
+++ b/gnu/packages/image.scm
@@ -19,7 +19,7 @@
;;; Copyright © 2018 Joshua Sierles, Nextjournal <joshua@nextjournal.com>
;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com>
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
-;;; Copyright © 2018, 2019, 2020 Marius Bakke <mbakke@fastmail.com>
+;;; Copyright © 2018-2020, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr>
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2018 Rutger Helling <rhelling@mykolab.com>
@@ -98,6 +98,7 @@
#:use-module (gnu packages fonts)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
+ #:use-module (guix gexp)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix utils)
@@ -1071,89 +1072,89 @@ supplies a generic doubly-linked list and some string
functions.")
(define-public freeimage
(package
- (name "freeimage")
- (version "3.18.0")
- (source (origin
- (method url-fetch)
- (uri (string-append
- "mirror://sourceforge/freeimage/Source%20Distribution/"
- version "/FreeImage"
- (string-concatenate (string-split version #\.))
- ".zip"))
- (sha256
- (base32
- "1z9qwi9mlq69d5jipr3v2jika2g0kszqdzilggm99nls5xl7j4zl"))
- (modules '((guix build utils)))
- (snippet
- '(begin
- (for-each
- (lambda (dir)
- (delete-file-recursively (string-append "Source/" dir)))
- '("LibJPEG" "LibOpenJPEG" "LibPNG" "LibRawLite"
- "LibJXR" "LibWebP" "OpenEXR" "ZLib"))))
- (patches
- (append
- (search-patches "freeimage-unbundle.patch")
- ;; Take one patch from Arch Linux that adds LibRaw 0.20
compatibility.
- (list (origin
- (method url-fetch)
- (uri "https://raw.githubusercontent.com/archlinux\
+ (name "freeimage")
+ (version "3.18.0")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://sourceforge/freeimage/Source%20Distribution/"
+ version "/FreeImage"
+ (string-concatenate (string-split version #\.))
+ ".zip"))
+ (sha256
+ (base32
+ "1z9qwi9mlq69d5jipr3v2jika2g0kszqdzilggm99nls5xl7j4zl"))
+ (modules '((guix build utils)))
+ (snippet
+ '(begin
+ (for-each
+ (lambda (dir)
+ (delete-file-recursively (string-append "Source/" dir)))
+ '("LibJPEG" "LibOpenJPEG" "LibPNG" "LibRawLite"
+ "LibJXR" "LibWebP" "OpenEXR" "ZLib"))))
+ (patches
+ (append
+ (search-patches "freeimage-unbundle.patch")
+ ;; Take one patch from Arch Linux that adds LibRaw 0.20
compatibility.
+ (list (origin
+ (method url-fetch)
+ (uri "https://raw.githubusercontent.com/archlinux\
/svntogit-community/ca3e6a52f5a46dec87cbf85e9d84fe370e282c8c/trunk\
/freeimage-libraw-0.20.patch")
- (file-name "freeimage-libraw-compat.patch")
- (sha256
- (base32
-
"0cwjxjz0f4gs6igvwqg0p99mnrsrwzkal1l2n08yvz2xq9s5khki"))))))))
- (build-system gnu-build-system)
- (arguments
- `(#:phases
- (modify-phases %standard-phases
- ;; According to Fedora these files depend on private headers, but their
- ;; presence is required for building, so we replace them with empty
files.
- (add-after 'unpack 'delete-unbuildable-files
- (lambda _
- (for-each (lambda (file)
- (delete-file file)
- (close (open file O_CREAT)))
- '("Source/FreeImage/PluginG3.cpp"
- "Source/FreeImageToolkit/JPEGTransform.cpp"))
- #t))
- ;; These scripts generate the Makefiles.
- (replace 'configure
- (lambda _
- (invoke "sh" "gensrclist.sh")
- (invoke "sh" "genfipsrclist.sh")))
- (add-before 'build 'patch-makefile
- (lambda* (#:key outputs #:allow-other-keys)
- (substitute* "Makefile.gnu"
- (("/usr") (assoc-ref outputs "out"))
- (("-o root -g root") ""))
- #t)))
+ (file-name "freeimage-libraw-compat.patch")
+ (sha256
+ (base32
+
"0cwjxjz0f4gs6igvwqg0p99mnrsrwzkal1l2n08yvz2xq9s5khki"))))))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:phases
+ #~(modify-phases %standard-phases
+ ;; According to Fedora these files depend on private headers, but
their
+ ;; presence is required for building, so we replace them with empty
files.
+ (add-after 'unpack 'delete-unbuildable-files
+ (lambda _
+ (for-each (lambda (file)
+ (delete-file file)
+ (close (open file O_CREAT)))
+ '("Source/FreeImage/PluginG3.cpp"
+ "Source/FreeImageToolkit/JPEGTransform.cpp"))))
+ ;; These scripts generate the Makefiles.
+ (replace 'configure
+ (lambda _
+ (invoke "sh" "gensrclist.sh")
+ (invoke "sh" "genfipsrclist.sh")))
+ (add-before 'build 'patch-makefile
+ (lambda* (#:key outputs #:allow-other-keys)
+ (substitute* "Makefile.gnu"
+ (("/usr") (assoc-ref outputs "out"))
+ (("-o root -g root") "")))))
#:make-flags
- (list ,(string-append "CC=" (cc-for-target))
- ;; We need '-fpermissive' for Source/FreeImage.h.
- ;; libjxr doesn't have a pkg-config file.
- (string-append "CFLAGS+=-O2 -fPIC -fvisibility=hidden -fpermissive
"
- "-I" (assoc-ref %build-inputs "libjxr")
"/include/jxrlib"))
- #:tests? #f)) ; no check target
- (native-inputs
- (list pkg-config unzip))
- (inputs
- `(("libjpeg" ,libjpeg-turbo)
- ("libjxr" ,libjxr)
- ("libpng" ,libpng)
- ("libraw" ,libraw)
- ("libtiff" ,libtiff)
- ("libwebp" ,libwebp)
- ("openexr" ,openexr-2)
- ("openjpeg" ,openjpeg)
- ("zlib" ,zlib)))
- (synopsis "Library for handling popular graphics image formats")
- (description
- "FreeImage is a library for developers who would like to support popular
+ #~(let ((jxrlib (search-input-directory %build-inputs "include/jxrlib")))
+ (list (string-append "CC=" #$(cc-for-target))
+ ;; We need '-fpermissive' for Source/FreeImage.h.
+ ;; libjxr doesn't have a pkg-config file.
+ (string-append "CFLAGS+=-O2 -fPIC -fvisibility=hidden "
+ "-fpermissive -I" jxrlib)))
+ #:tests? #f)) ; no check target
+ (native-inputs
+ (list pkg-config unzip))
+ (inputs
+ (list libjpeg-turbo
+ libjxr
+ libpng
+ libraw
+ libtiff
+ libwebp
+ openexr-2
+ openjpeg
+ zlib))
+ (synopsis "Library for handling popular graphics image formats")
+ (description
+ "FreeImage is a library for developers who would like to support popular
graphics image formats like PNG, BMP, JPEG, TIFF and others.")
- (license license:gpl2+)
- (home-page "https://freeimage.sourceforge.io/")))
+ (license license:gpl2+)
+ (home-page "https://freeimage.sourceforge.io/")))
(define-public vigra
(let ((commit "9b514fa00a136f5fd81bb57ee9f6293c333ffc1f")
- branch master updated (4b780d002d -> 02de6a5981), guix-commits, 2022/08/09
- 02/16: gnu: cereal: List all licenses that apply., guix-commits, 2022/08/09
- 03/16: gnu: liburing: Update to 2.2., guix-commits, 2022/08/09
- 07/16: gnu: box2d: Unbundle doctest., guix-commits, 2022/08/09
- 16/16: gnu: freeimage: Remove input labels.,
guix-commits <=
- 10/16: gnu: v4l-utils: Remove input labels., guix-commits, 2022/08/09
- 12/16: gnu: spdlog: Prevent test failure on busy machines., guix-commits, 2022/08/09
- 01/16: gnu: cereal: Update to 1.3.2., guix-commits, 2022/08/09
- 04/16: gnu: libbpf: Update to 0.8.1., guix-commits, 2022/08/09
- 05/16: gnu: bcc: Update to 0.24.0., guix-commits, 2022/08/09
- 06/16: gnu: bpftrace: Update to 0.15.0., guix-commits, 2022/08/09
- 08/16: gnu: ungoogled-chromium: Install crashpad handler., guix-commits, 2022/08/09
- 09/16: gnu: v4l-utils: Update to 1.22.1., guix-commits, 2022/08/09
- 11/16: gnu: python-tlsh: Update to 4.11.2., guix-commits, 2022/08/09
- 13/16: gnu: multipath-tools: Remove input labels., guix-commits, 2022/08/09