01/02: gnu: Read 'C_INCLUDE_PATH' instead of 'CPATH'.

[Ludovic Courtès]

civodul pushed a commit to branch core-updates
in repository guix.

commit e8e2e18b84eb8842a59be9bf7d49bb672260ae3a
Author: Ludovic Courtès <address@hidden>
Date:   Tue Jan 5 13:58:36 2016 +0100

    gnu: Read 'C_INCLUDE_PATH' instead of 'CPATH'.
    
    This is a followup to 009b53fd.
    
    * gnu/packages/cmake.scm (cmake)[arguments]: Use (getenv
    "C_INCLUDE_PATH") instead of (getenv "CPATH").
    * gnu/packages/package-management.scm (rpm)[arguments]: Likewise.
    * gnu/packages/video.scm (avidemux)[arguments]: Likewise.
    * gnu/packages/webkit.scm (webkitgtk)[arguments]: Likewise.
    * gnu/packages/cross-base.scm (cross-gcc-arguments): Likewise, and unset
    'C_INCLUDE_PATH' and 'CPLUS_INCLUDE_PATH'.
---
 gnu/packages/cmake.scm              |    2 +-
 gnu/packages/cross-base.scm         |    6 ++++--
 gnu/packages/package-management.scm |    4 ++--
 gnu/packages/video.scm              |    2 +-
 gnu/packages/webkit.scm             |    2 +-
 5 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/cmake.scm b/gnu/packages/cmake.scm
index 2efce6f..d75b9f6 100644
--- a/gnu/packages/cmake.scm
+++ b/gnu/packages/cmake.scm
@@ -77,7 +77,7 @@ archive_write_set_format_shar.c"
                     ;; Help cmake's bootstrap process to find system libraries
                     (begin
                       (setenv "CMAKE_LIBRARY_PATH" (getenv "LIBRARY_PATH"))
-                      (setenv "CMAKE_INCLUDE_PATH" (getenv "CPATH"))
+                      (setenv "CMAKE_INCLUDE_PATH" (getenv "C_INCLUDE_PATH"))
                       ;; Get verbose output from failed tests
                       (setenv "CTEST_OUTPUT_ON_FAILURE" "TRUE")))
                   (alist-replace
diff --git a/gnu/packages/cross-base.scm b/gnu/packages/cross-base.scm
index d64cdd1..cefe2f9 100644
--- a/gnu/packages/cross-base.scm
+++ b/gnu/packages/cross-base.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <address@hidden>
+;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2014, 2015 Mark H Weaver <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -181,12 +181,14 @@ may be either a libc package or #f.)"
                             (string-append libc "/lib"))
 
                     (let ((cpath   (search-path-as-string->list
-                                    (getenv "CPATH")))
+                                    (getenv "C_INCLUDE_PATH")))
                           (libpath (search-path-as-string->list
                                     (getenv "LIBRARY_PATH"))))
                       (setenv "CPATH"
                               (list->search-path-as-string
                                (remove cross? cpath) ":"))
+                      (for-each unsetenv
+                                '("C_INCLUDE_PATH" "CPLUS_INCLUDE_PATH"))
                       (setenv "LIBRARY_PATH"
                               (list->search-path-as-string
                                (remove cross? libpath) ":"))
diff --git a/gnu/packages/package-management.scm 
b/gnu/packages/package-management.scm
index 9174645..b8d0c9c 100644
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <address@hidden>
+;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2015 Ricardo Wurmus <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -340,7 +340,7 @@ symlinks to the files in a common directory such as 
/usr/local.")
                       (let ((nspr (assoc-ref inputs "nspr"))
                             (nss  (assoc-ref inputs "nss")))
                         (setenv "CPATH"
-                                (string-append (getenv "CPATH") ":"
+                                (string-append (getenv "C_INCLUDE_PATH") ":"
                                                nspr "/include/nspr:"
                                                nss "/include/nss"))
                         (setenv "LIBRARY_PATH"
diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index f1089f7..63a623d 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -1057,7 +1057,7 @@ for use with HTML5 video.")
           (lambda _
             ;; Copy-paste settings from the cmake build system.
             (setenv "CMAKE_LIBRARY_PATH" (getenv "LIBRARY_PATH"))
-            (setenv "CMAKE_INCLUDE_PATH" (getenv "CPATH")))
+            (setenv "CMAKE_INCLUDE_PATH" (getenv "C_INCLUDE_PATH")))
           (alist-replace 'build
             (lambda* (#:key inputs outputs #:allow-other-keys)
               (let*
diff --git a/gnu/packages/webkit.scm b/gnu/packages/webkit.scm
index bb041b1..d22aacd 100644
--- a/gnu/packages/webkit.scm
+++ b/gnu/packages/webkit.scm
@@ -80,7 +80,7 @@
             ;; that it will be in the same directory as gstreamer's header
             ;; files.
             (setenv "CPATH"
-                    (string-append (getenv "CPATH")
+                    (string-append (getenv "C_INCLUDE_PATH")
                                    ":"
                                    (assoc-ref inputs "gst-plugins-base")
                                    "/include/gstreamer-1.0")))))))