mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-07 19:39:34 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Use 'search-input-directory' when looking for C/C++ library headers.

Browse source 
* gnu/packages/arcan.scm (arcan)[arguments]: Use
'search-input-directory' for "include/libdrm" and "include/apr-1".
* gnu/packages/bioinformatics.scm (sailfish): Likewise for jellyfish.
* gnu/packages/boost.scm (boost-for-irods): Likewise for libcxx headers.
* gnu/packages/cedille.scm (cedille): Likewise for IAL headers.
* gnu/packages/compression.scm (snappy-with-clang6): Likewise for libcxx
headers.
* gnu/packages/cups.scm (hplip): Likewise for libusb headers.
* gnu/packages/emulators.scm (pcsxr): Likewise for libcdio headers.
* gnu/packages/game-development.scm (python2-renpy): Likewise for
fribidi headers.
* gnu/packages/games.scm (pokerth): Likewise for libircclient.
* gnu/packages/guile-xyz.scm (guile-persist): Likewise for Guile.
* gnu/packages/hurd.scm (hurd): Likewise for libtirpc.
* gnu/packages/irods.scm (irods, irods-client-icommands): Likewise for
libcxx, catch2, and nlohmann-json-cpp.
* gnu/packages/julia.scm (julia): Use 'search-input-file' for libuv's
errno.h.
* gnu/packages/kde-pim.scm (kdepim-runtime): Use
'search-input-directory' for "include/KF5".
(kmessagelib): Likewise.
* gnu/packages/kde.scm (kdeconnect): Likewise.
* gnu/packages/llvm.scm (clang-runtime-3.5): Likewise for libtirpc.
* gnu/packages/mpi.scm (openmpi): Likewise for "include/infiniband".
* gnu/packages/pumpio.scm (pumpa): Use 'search-input-file' for "tidy.h"
and "aspell.h".
* gnu/packages/radio.scm (dream): Use 'search-input-file' and
'search-input-directory' for pulseaudio, sndfile, etc.
* gnu/packages/selinux.scm (policycoreutils): Likewise for PAM and
libaudit.
* gnu/packages/serialization.scm (avro-cpp-1.9-for-irods): Likewise for
libcxx.
* gnu/packages/sync.scm (nextcloud-client): Likewise for "include/KF5".
* gnu/packages/video.scm (mkvtoolnix): Likewise for "include/gtest".
(libopenshot): Likewise for "include/UnitTest++".
* gnu/packages/virtualization.scm (criu): Likewise for libnl3 and for
protobuf file.
This commit is contained in:
Ludovic Courtès 2021-07-16 16:01:49 +02:00
parent d76b2f82af
commit 425ccde6ae
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
25 changed files with 73 additions and 105 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/packages/arcan.scm
View file

@ -75,12 +75,10 @@
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/platform/cmake/modules/FindGBMKMS.cmake" (substitute* "src/platform/cmake/modules/FindGBMKMS.cmake"
(("/usr/local/include/libdrm") (("/usr/local/include/libdrm")
(string-append (assoc-ref inputs "libdrm") (search-input-directory inputs "include/libdrm")))
"/include/libdrm")))
(substitute* "src/platform/cmake/modules/FindAPR.cmake" (substitute* "src/platform/cmake/modules/FindAPR.cmake"
(("/usr/local/apr/include/apr-1") (("/usr/local/apr/include/apr-1")
(string-append (assoc-ref inputs "apr") (search-input-directory inputs "include/apr-1")))
"/include/apr-1")))
#t)) #t))
;; Normally, it tries to fetch patched openal with git ;; Normally, it tries to fetch patched openal with git
;; but copying files manually in the right place seems to work too. ;; but copying files manually in the right place seems to work too.

5
gnu/packages/bioinformatics.scm
View file

@ -9477,8 +9477,9 @@ dependency like SeqAn.")
(("#include \"jellyfish/config.h\"") "")) (("#include \"jellyfish/config.h\"") ""))
(substitute* "src/CMakeLists.txt" (substitute* "src/CMakeLists.txt"
(("\\$\\{GAT_SOURCE_DIR\\}/external/install/include/jellyfish-2.2..") (("\\$\\{GAT_SOURCE_DIR\\}/external/install/include/jellyfish-2.2..")
(string-append (assoc-ref inputs "jellyfish") (search-input-directory
"/include/jellyfish-" ,(package-version jellyfish))) inputs
(string-append "/include/jellyfish-" ,(package-version jellyfish))))
(("\\$\\{GAT_SOURCE_DIR\\}/external/install/lib/libjellyfish-2.0.a") (("\\$\\{GAT_SOURCE_DIR\\}/external/install/lib/libjellyfish-2.0.a")
(string-append (assoc-ref inputs "jellyfish") (string-append (assoc-ref inputs "jellyfish")
"/lib/libjellyfish-2.0.a")) "/lib/libjellyfish-2.0.a"))

3
gnu/packages/boost.scm
View file

@ -238,8 +238,7 @@ across a broad spectrum of applications.")
(let ((gcc (assoc-ref (or native-inputs inputs) "gcc"))) (let ((gcc (assoc-ref (or native-inputs inputs) "gcc")))
(setenv "CPLUS_INCLUDE_PATH" (setenv "CPLUS_INCLUDE_PATH"
(string-join (string-join
(cons (string-append (assoc-ref inputs "libcxx") (cons (search-input-directory inputs "/include/c++/v1")
"/include/c++/v1")
;; Hide GCC's C++ headers so that they do not interfere with ;; Hide GCC's C++ headers so that they do not interfere with
;; the Clang headers. ;; the Clang headers.
(delete (string-append gcc "/include/c++") (delete (string-append gcc "/include/c++")

3
gnu/packages/cedille.scm
View file

@ -89,8 +89,7 @@
(add-after 'unpack 'copy-ial (add-after 'unpack 'copy-ial
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(copy-recursively (copy-recursively
(string-append (assoc-ref inputs "agda-ial") (search-input-directory inputs "/include/agda/ial")
"/include/agda/ial")
"ial") "ial")
;; Ambiguous module if main is included from ial ;; Ambiguous module if main is included from ial
(delete-file "ial/main.agda") (delete-file "ial/main.agda")

2
gnu/packages/compression.scm
View file

@ -1277,7 +1277,7 @@ for most inputs, but the resulting compressed files are anywhere from 20% to
(let ((gcc (assoc-ref (or native-inputs inputs) "gcc"))) (let ((gcc (assoc-ref (or native-inputs inputs) "gcc")))
(setenv "CPLUS_INCLUDE_PATH" (setenv "CPLUS_INCLUDE_PATH"
(string-join (string-join
(cons* (string-append (assoc-ref inputs "libcxx+libcxxabi") (cons* (search-input-directory inputs
"/include/c++/v1") "/include/c++/v1")
;; Hide GCC's C++ headers so that they do not interfere with ;; Hide GCC's C++ headers so that they do not interfere with
;; the Clang headers. ;; the Clang headers.

5
gnu/packages/cups.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2019, 2021 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015, 2019, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2016, 2017, 2019, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org> ;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org>
;;; Copyright © 2017 Leo Famulari <leo@famulari.name> ;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
@ -600,8 +600,7 @@ should only be used as part of the Guix cups-pk-helper service.")
;; FIXME Use beginning-of-word in regexp. ;; FIXME Use beginning-of-word in regexp.
(("[[:blank:]]plugin\\.py[[:blank:]]") " ") (("[[:blank:]]plugin\\.py[[:blank:]]") " ")
(("/usr/include/libusb-1.0") (("/usr/include/libusb-1.0")
(string-append (assoc-ref inputs "libusb") (search-input-directory inputs "/include/libusb-1.0"))
"/include/libusb-1.0"))
(("hplip_statedir =.*$") (("hplip_statedir =.*$")
;; Don't bail out while trying to create ;; Don't bail out while trying to create
;; /var/lib/hplip. We can safely change its value ;; /var/lib/hplip. We can safely change its value

3
gnu/packages/emulators.scm
View file

@ -2053,8 +2053,7 @@ emulator.")
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "cmake/FindCdio.cmake" (substitute* "cmake/FindCdio.cmake"
(("/usr/include/cdio") (("/usr/include/cdio")
(string-append (assoc-ref inputs "libcdio") "/include/cdio"))) (search-input-directory inputs "/include/cdio")))))
#t))
(add-after 'install 'wrap-program (add-after 'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(wrap-program (string-append (assoc-ref outputs "out") (wrap-program (string-append (assoc-ref outputs "out")

4
gnu/packages/game-development.scm
View file

@ -1199,9 +1199,7 @@ developed mainly for Ren'py.")
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "module/setup.py" (substitute* "module/setup.py"
(("/usr/include/fribidi") (("/usr/include/fribidi")
(string-append (assoc-ref inputs "fribidi") (search-input-directory inputs "include/fribidi")))))
"/include/fribidi")))
#t))
(add-after 'set-paths 'set-build-vars (add-after 'set-paths 'set-build-vars
(lambda* (#:key inputs native-inputs #:allow-other-keys) (lambda* (#:key inputs native-inputs #:allow-other-keys)
(setenv "RENPY_CYTHON" (setenv "RENPY_CYTHON"

3
gnu/packages/games.scm
View file

@ -12256,8 +12256,7 @@ game.") ;thanks to Debian for description
(("/opt/gsasl") (("/opt/gsasl")
(assoc-ref inputs "gsasl")) (assoc-ref inputs "gsasl"))
(("\\$\\$\\{PREFIX\\}/include/libircclient") (("\\$\\$\\{PREFIX\\}/include/libircclient")
(string-append (assoc-ref inputs "libircclient") (search-input-directory inputs "/include/libircclient"))
"/include/libircclient"))
(("LIB_DIRS =") (("LIB_DIRS =")
(string-append "LIB_DIRS = " (string-append "LIB_DIRS = "
(assoc-ref inputs "boost") "/lib"))) (assoc-ref inputs "boost") "/lib")))

2
gnu/packages/guile-xyz.scm
View file

@ -2912,7 +2912,7 @@ chunks can be expressions as well as simple tokens.")
(("/usr/local/lib/guile") (("/usr/local/lib/guile")
(string-append (assoc-ref outputs "out") "/lib/guile")) (string-append (assoc-ref outputs "out") "/lib/guile"))
(("/usr/local/include/guile") (("/usr/local/include/guile")
(string-append (assoc-ref inputs "guile") "/include/guile")) (search-input-directory inputs "/include/guile"))
(("-L/usr/local/lib") (("-L/usr/local/lib")
(string-append "-L" (assoc-ref inputs "guile") "/lib"))) (string-append "-L" (assoc-ref inputs "guile") "/lib")))
#t)) #t))

9
gnu/packages/hurd.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016, 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com> ;;; Copyright © 2014, 2015, 2016, 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2018, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
@ -374,9 +374,10 @@ Hurd-minimal package which are needed for both glibc and GCC.")
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(for-each (lambda (var) (for-each (lambda (var)
(setenv var (setenv var
(string-append (assoc-ref inputs "libtirpc") (string-append
"/include/tirpc:" (search-input-directory inputs
(or (getenv var) "")))) "include/tirpc")
":" (or (getenv var) ""))))
'("CROSS_C_INCLUDE_PATH" "C_INCLUDE_PATH" '("CROSS_C_INCLUDE_PATH" "C_INCLUDE_PATH"
"CROSS_CPATH" "CPATH")) "CROSS_CPATH" "CPATH"))
#t)) #t))

17
gnu/packages/irods.scm
View file

@ -126,12 +126,9 @@
(let ((gcc (assoc-ref inputs "gcc"))) (let ((gcc (assoc-ref inputs "gcc")))
(setenv "CPLUS_INCLUDE_PATH" (setenv "CPLUS_INCLUDE_PATH"
(string-join (string-join
(cons* (string-append (assoc-ref inputs "libcxx+libcxxabi") (cons* (search-input-directory inputs "/include/c++/v1")
"/include/c++/v1") (search-input-directory inputs "/include/catch2")
(string-append (assoc-ref inputs "catch2") (search-input-directory inputs "/include/nlohmann")
"/include/catch2")
(string-append (assoc-ref inputs "json")
"/include/nlohmann")
;; Hide GCC's C++ headers so that they do not interfere with ;; Hide GCC's C++ headers so that they do not interfere with
;; the Clang headers. ;; the Clang headers.
(delete (string-append gcc "/include/c++") (delete (string-append gcc "/include/c++")
@ -231,10 +228,10 @@ stored.")
(let ((gcc (assoc-ref inputs "gcc"))) (let ((gcc (assoc-ref inputs "gcc")))
(setenv "CPLUS_INCLUDE_PATH" (setenv "CPLUS_INCLUDE_PATH"
(string-join (string-join
(cons* (string-append (assoc-ref inputs "libcxx+libcxxabi") (cons* (search-input-directory inputs
"/include/c++/v1") "include/c++/v1")
(string-append (assoc-ref inputs "json") (search-input-directory inputs
"/include/nlohmann") "include/nlohmann")
;; Hide GCC's C++ headers so that they do not interfere with ;; Hide GCC's C++ headers so that they do not interfere with
;; the Clang headers. ;; the Clang headers.
(delete (string-append gcc "/include/c++") (delete (string-append gcc "/include/c++")

4
gnu/packages/julia.scm
View file

@ -312,9 +312,7 @@ libraries. It is also a bit like @code{ldd} and @code{otool -L}.")
(substitute* "base/Makefile" (substitute* "base/Makefile"
(("\\$\\(build_includedir\\)/uv/errno.h") (("\\$\\(build_includedir\\)/uv/errno.h")
(string-append (assoc-ref inputs "libuv") (search-input-file inputs "/include/uv/errno.h")))))
"/include/uv/errno.h")))
#t))
(add-before 'build 'replace-default-shell (add-before 'build 'replace-default-shell
(lambda _ (lambda _
(substitute* "base/client.jl" (substitute* "base/client.jl"

14
gnu/packages/kde-pim.scm
View file

@ -757,10 +757,9 @@ for KDE PIM.")
;; found during one of the compilation steps without ;; found during one of the compilation steps without
;; this hack. ;; this hack.
(setenv "CPLUS_INCLUDE_PATH" (setenv "CPLUS_INCLUDE_PATH"
(string-append (assoc-ref inputs "akonadi-mime") (string-append
"/include/KF5:" (search-input-directory inputs "include/KF5")
(or (getenv "CPLUS_INCLUDE_PATH") ""))) ":" (or (getenv "CPLUS_INCLUDE_PATH") ""))))))))
#t)))))
(home-page "https://invent.kde.org/pim/kdepim-runtime") (home-page "https://invent.kde.org/pim/kdepim-runtime")
(synopsis "Runtime components for Akonadi KDE") (synopsis "Runtime components for Akonadi KDE")
(description "This package contains Akonadi agents written using KDE (description "This package contains Akonadi agents written using KDE
@ -1369,10 +1368,9 @@ using a Qt/KMime C++ API.")
;; FIXME: One of the compilation steps fail to find ;; FIXME: One of the compilation steps fail to find
;; <Libkdepim/MultiplyingLine> without this hack. ;; <Libkdepim/MultiplyingLine> without this hack.
(setenv "CPLUS_INCLUDE_PATH" (setenv "CPLUS_INCLUDE_PATH"
(string-append (assoc-ref inputs "libkdepim") (string-append
"/include/KF5:" (search-input-directory inputs "include/KF5")
(or (getenv "CPLUS_INCLUDE_PATH") ""))) ":" (or (getenv "CPLUS_INCLUDE_PATH") ""))))))))
#t)))))
(home-page "https://invent.kde.org/pim/messagelib") (home-page "https://invent.kde.org/pim/messagelib")
(synopsis "KDE PIM messaging libraries") (synopsis "KDE PIM messaging libraries")
(description "This package provides several libraries for messages, (description "This package provides several libraries for messages,

10
gnu/packages/kde.scm
View file

@ -7,7 +7,7 @@
;;; Copyright © 2018 Gábor Boskovits <boskovits@gmail.com> ;;; Copyright © 2018 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018, 2019, 2020 Hartmut Goebel <h.goebel@crazy-compilers.com> ;;; Copyright © 2018, 2019, 2020 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Marius Bakke <marius@gnu.org> ;;; Copyright © 2020 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de> ;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020 Prafulla Giri <pratheblackdiamond@gmail.com> ;;; Copyright © 2020 Prafulla Giri <pratheblackdiamond@gmail.com>
@ -721,11 +721,9 @@ different notification systems.")
;; FIXME: <kcmutils_version.h> is not found during one ;; FIXME: <kcmutils_version.h> is not found during one
;; of the compilation steps without this hack. ;; of the compilation steps without this hack.
(setenv "CPLUS_INCLUDE_PATH" (setenv "CPLUS_INCLUDE_PATH"
(string-append (assoc-ref inputs "kcmutils") (string-append
"/include/KF5:" (search-input-directory inputs "include/KF5")
(or (getenv "CPLUS_INCLUDE_PATH") ":" (or (getenv "CPLUS_INCLUDE_PATH") ""))))))
"")))
#t)))
#:tests? #f)) ; tests fail hard in our build environment #:tests? #f)) ; tests fail hard in our build environment
(native-inputs (native-inputs
`(("extra-cmake-modules" ,extra-cmake-modules) `(("extra-cmake-modules" ,extra-cmake-modules)

13
gnu/packages/llvm.scm
View file

@ -855,14 +855,13 @@ of programming tools as well as libraries with equivalent functionality.")
(add-after 'unpack 'find-rpc-includes (add-after 'unpack 'find-rpc-includes
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(setenv "CPATH" (setenv "CPATH"
(string-append (assoc-ref inputs "libtirpc") (string-append
"/include/tirpc/:" (search-input-directory inputs "/include/tirpc")
(or (getenv "CPATH") ""))) ":" (or (getenv "CPATH") "")))
(setenv "CPLUS_INCLUDE_PATH" (setenv "CPLUS_INCLUDE_PATH"
(string-append (assoc-ref inputs "libtirpc") (string-append
"/include/tirpc/:" (search-input-directory inputs "/include/tirpc")
(or (getenv "CPLUS_INCLUDE_PATH") ""))) ":" (or (getenv "CPLUS_INCLUDE_PATH") "")))))))))
#t))))))
(inputs (inputs
`(("libtirpc" ,libtirpc) `(("libtirpc" ,libtirpc)
("llvm" ,llvm-3.5)))))) ("llvm" ,llvm-3.5))))))

7
gnu/packages/mpi.scm
View file

@ -263,12 +263,11 @@ bind processes, and much more.")
(add-after 'unpack 'find-opensm-headers (add-after 'unpack 'find-opensm-headers
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(setenv "C_INCLUDE_PATH" (setenv "C_INCLUDE_PATH"
(string-append (assoc-ref inputs "opensm") (search-input-directory inputs
"/include/infiniband")) "/include/infiniband"))
(setenv "CPLUS_INCLUDE_PATH" (setenv "CPLUS_INCLUDE_PATH"
(string-append (assoc-ref inputs "opensm") (search-input-directory inputs
"/include/infiniband")) "/include/infiniband"))))
#t))
(add-before 'build 'remove-absolute (add-before 'build 'remove-absolute
(lambda _ (lambda _
;; Remove compiler absolute file names (OPAL_FC_ABSOLUTE ;; Remove compiler absolute file names (OPAL_FC_ABSOLUTE

5
gnu/packages/pretty-print.scm
View file

@ -2,7 +2,7 @@
;;; Copyright © 2016, 2019, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2021 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Meiyo Peng <meiyo@riseup.net> ;;; Copyright © 2019 Meiyo Peng <meiyo@riseup.net>
;;; Copyright © 2020 Paul Garlick <pgarlick@tourbillion-technology.com> ;;; Copyright © 2020 Paul Garlick <pgarlick@tourbillion-technology.com>
@ -217,8 +217,7 @@ to @code{IOStreams}.")
(let ((gcc (assoc-ref inputs "gcc"))) (let ((gcc (assoc-ref inputs "gcc")))
(setenv "CPLUS_INCLUDE_PATH" (setenv "CPLUS_INCLUDE_PATH"
(string-join (string-join
(cons (string-append (assoc-ref inputs "libcxx") (cons (search-input-directory inputs "/include/c++/v1")
"/include/c++/v1")
;; Hide GCC's C++ headers so that they do not interfere with ;; Hide GCC's C++ headers so that they do not interfere with
;; the Clang headers. ;; the Clang headers.
(delete (string-append gcc "/include/c++") (delete (string-append gcc "/include/c++")

6
gnu/packages/pumpio.scm
View file

@ -50,11 +50,9 @@
;; Fix dependency tests. ;; Fix dependency tests.
(substitute* "pumpa.pro" (substitute* "pumpa.pro"
(("/usr/include/tidy\\.h") (("/usr/include/tidy\\.h")
(string-append (assoc-ref inputs "tidy") (search-input-file inputs "/include/tidy.h"))
"/include/tidy.h"))
(("/usr/include/aspell.h") (("/usr/include/aspell.h")
(string-append (assoc-ref inputs "aspell") (search-input-file inputs "/include/aspell.h")))
"/include/aspell.h")))
;; Run qmake with proper installation prefix. ;; Run qmake with proper installation prefix.
(let ((prefix (string-append "PREFIX=" (let ((prefix (string-append "PREFIX="
(assoc-ref outputs "out")))) (assoc-ref outputs "out"))))

18
gnu/packages/radio.scm
View file

@ -1786,23 +1786,17 @@ Compatible hardware/software:
(assoc-ref outputs "out") (assoc-ref outputs "out")
"/share/man/man1")) "/share/man/man1"))
(("/usr/include/pulse/") (("/usr/include/pulse/")
(string-append (assoc-ref inputs "pulseaudio") (search-input-directory inputs "include/pulse"))
"/include/pulse/"))
(("/usr/include/sndfile\\.h") (("/usr/include/sndfile\\.h")
(string-append (assoc-ref inputs "libsndfile") (search-input-file inputs "/include/sndfile.h"))
"/include/sndfile.h"))
(("/usr/include/opus/") (("/usr/include/opus/")
(string-append (assoc-ref inputs "opus") (search-input-directory inputs "include/opus"))
"/include/opus/"))
(("/usr/include/speex/") (("/usr/include/speex/")
(string-append (assoc-ref inputs "speexdsp") (search-input-directory inputs "include/speex"))
"/include/speex/"))
(("/usr/include/qwt/") (("/usr/include/qwt/")
(string-append (assoc-ref inputs "qwt") (search-input-directory inputs "include/qwt"))
"/include/qwt/"))
(("\\$\\$OUT_PWD/include/neaacdec\\.h") (("\\$\\$OUT_PWD/include/neaacdec\\.h")
(string-append (assoc-ref inputs "faad2") (search-input-file inputs "/include/neaacdec.h")))))
"/include/neaacdec.h")))))
(replace 'configure (replace 'configure
(lambda _ (lambda _
(invoke "qmake")))))) (invoke "qmake"))))))

4
gnu/packages/selinux.scm
View file

@ -397,9 +397,9 @@ tools, and libraries designed to facilitate SELinux policy analysis.")
"setfiles/Makefile" "setfiles/Makefile"
"run_init/Makefile") "run_init/Makefile")
(("/usr(/include/security/pam_appl.h)" _ file) (("/usr(/include/security/pam_appl.h)" _ file)
(string-append (assoc-ref inputs "pam") file)) (search-input-file inputs file))
(("/usr(/include/libaudit.h)" _ file) (("/usr(/include/libaudit.h)" _ file)
(string-append (assoc-ref inputs "audit") file)))))))) (search-input-file inputs file))))))))
(inputs (inputs
`(("audit" ,audit) `(("audit" ,audit)
("pam" ,linux-pam) ("pam" ,linux-pam)

3
gnu/packages/serialization.scm
View file

@ -107,8 +107,7 @@ implement RPC protocols.")
(let ((gcc (assoc-ref inputs "gcc"))) (let ((gcc (assoc-ref inputs "gcc")))
(setenv "CPLUS_INCLUDE_PATH" (setenv "CPLUS_INCLUDE_PATH"
(string-join (string-join
(cons* (string-append (assoc-ref inputs "libcxx+libcxxabi") (cons* (search-input-directory inputs "include/c++/v1")
"/include/c++/v1")
;; Hide GCC's C++ headers so that they do not interfere with ;; Hide GCC's C++ headers so that they do not interfere with
;; the Clang headers. ;; the Clang headers.
(delete (string-append gcc "/include/c++") (delete (string-append gcc "/include/c++")

5
gnu/packages/sync.scm
View file

@ -156,9 +156,8 @@
(("ON CACHE") "OFF CACHE")) (("ON CACHE") "OFF CACHE"))
(substitute* "src/gui/CMakeLists.txt" (substitute* "src/gui/CMakeLists.txt"
(("@kwidgetsaddons@") (("@kwidgetsaddons@")
(string-append (assoc-ref inputs "kwidgetsaddons") (search-input-directory inputs
"/include/KF5/KWidgetsAddons/"))) "/include/KF5/KWidgetsAddons/")))))
#t))
(add-before 'check 'pre-check (add-before 'check 'pre-check
(lambda _ (lambda _
;; Tests write to $HOME. ;; Tests write to $HOME.

11
gnu/packages/video.scm
View file

@ -977,10 +977,8 @@ H.264 (MPEG-4 AVC) video streams.")
#t))) #t)))
(add-before 'configure 'add-googletest (add-before 'configure 'add-googletest
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(symlink (symlink (search-input-file inputs "/include/gtest")
(string-append (assoc-ref inputs "googletest") "lib/gtest")))
"/include/gtest") "lib/gtest")
#t))
(replace 'build (replace 'build
(lambda _ (lambda _
(let ((-j (list "-j" (number->string (parallel-job-count))))) (let ((-j (list "-j" (number->string (parallel-job-count)))))
@ -4597,9 +4595,8 @@ create smoother and stable videos.")
(setenv "ZMQDIR" (setenv "ZMQDIR"
(assoc-ref inputs "zeromq")) (assoc-ref inputs "zeromq"))
(setenv "UNITTEST_DIR" (setenv "UNITTEST_DIR"
(string-append (assoc-ref inputs "unittest++") (search-input-directory inputs
"/include/UnitTest++")) "include/UnitTest++")))))))
#t)))))
(home-page "https://openshot.org") (home-page "https://openshot.org")
(synopsis "Video-editing, animation, and playback library") (synopsis "Video-editing, animation, and playback library")
(description "OpenShot Library (libopenshot) is a powerful C++ video (description "OpenShot Library (libopenshot) is a powerful C++ video

12
gnu/packages/virtualization.scm
View file

@ -1347,10 +1347,9 @@ domains, their live performance and resource utilization statistics.")
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; The includes for libnl are located in a sub-directory. ;; The includes for libnl are located in a sub-directory.
(setenv "C_INCLUDE_PATH" (setenv "C_INCLUDE_PATH"
(string-append (assoc-ref inputs "libnl") (string-append
"/include/libnl3:" (search-input-directory inputs "/include/libnl3")
(or (getenv "C_INCLUDE_PATH") ""))) ":" (or (getenv "C_INCLUDE_PATH") "")))))
#t))
(add-after 'configure 'fix-documentation (add-after 'configure 'fix-documentation
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(substitute* "Documentation/Makefile" (substitute* "Documentation/Makefile"
@ -1381,8 +1380,9 @@ domains, their live performance and resource utilization statistics.")
;; /usr/include/..., which obviously does not exist. ;; /usr/include/..., which obviously does not exist.
(let* ((file "google/protobuf/descriptor.proto") (let* ((file "google/protobuf/descriptor.proto")
(target (string-append "images/" file)) (target (string-append "images/" file))
(source (string-append (assoc-ref inputs "protobuf") (source (search-input-file
"/include/" file))) inputs
(string-append "include/" file))))
(delete-file target) (delete-file target)
(symlink source target) (symlink source target)
#t))) #t)))