From 3a310cc017c4bffbee8a6f37569145a593ac2912 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 17 Aug 2012 10:41:27 +0200
Subject: build: Add `--with-libgcrypt-prefix'; capture the path to libgcrypt.

* configure.ac: Add `--with-libgcrypt-prefix'.  Substitute `LIBGCRYPT'.

* Makefile.am (.scm.go): Pass $(LIBGCRYPT).

* guix/utils.scm (%libgcrypt): New variable.
  (sha256): Use it.
---
 guix/utils.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'guix')

diff --git a/guix/utils.scm b/guix/utils.scm
index cbd51fae73..686175947e 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -384,14 +384,18 @@ starting from the right of S."
 ;;; Hash.
 ;;;
 
+(define %libgcrypt
+  ;; Name of the libgcrypt shared library.
+  (compile-time-value (or (getenv "LIBGCRYPT") "libgcrypt")))
+
 (define sha256
   (cond
    ((compile-time-value
-     (false-if-exception (dynamic-link "libgcrypt")))
+     (false-if-exception (dynamic-link %libgcrypt)))
     ;; Using libgcrypt.
     (let ((hash   (pointer->procedure void
                                       (dynamic-func "gcry_md_hash_buffer"
-                                                    (dynamic-link "libgcrypt"))
+                                                    (dynamic-link %libgcrypt))
                                       `(,int * * ,size_t)))
           (sha256 8))                           ; GCRY_MD_SHA256, as of 1.5.0
       (lambda (bv)
-- 
cgit v1.2.3