From 2acb2cb6d006a4799ae9f477c22177824fcc8f52 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 13 Jun 2012 17:21:27 +0200
Subject: Change `build-expression->derivation' to support sub-derivation
 inputs.

* guix/derivations.scm (build-expression->derivation): Change to expect
  INPUTS to have the form (NAME DRV-PATH SUB-DRV) or (NAME DRV-PATH),
  instead of (NAME . DRV-PATH).  Update callers accordingly.

* guix/gnu-build-system.scm, tests/builders.scm, tests/derivations.scm:
  Update accordingly.
---
 guix/derivations.scm | 34 +++++++++++++++++++---------------
 1 file changed, 19 insertions(+), 15 deletions(-)

(limited to 'guix/derivations.scm')

diff --git a/guix/derivations.scm b/guix/derivations.scm
index c709aabc78..ffdf570fc2 100644
--- a/guix/derivations.scm
+++ b/guix/derivations.scm
@@ -397,7 +397,7 @@ system, imported, and appears under FINAL-PATH in the resulting store path."
 
   (let* ((files   (map (match-lambda
                         ((final-path . file-name)
-                         (cons final-path
+                         (list final-path
                                (add-to-store store (basename final-path) #t #f
                                              "sha256" file-name))))
                        files))
@@ -405,7 +405,7 @@ system, imported, and appears under FINAL-PATH in the resulting store path."
           `(begin
              (mkdir %output) (chdir %output)
              ,@(append-map (match-lambda
-                            ((final-path . store-path)
+                            ((final-path store-path)
                              (append (match (parent-dirs final-path)
                                        (() '())
                                        ((head ... tail)
@@ -442,11 +442,11 @@ search path."
                                        hash hash-algo
                                        (modules '()))
   "Return a derivation that executes Scheme expression EXP as a builder for
-derivation NAME.  INPUTS must be a list of string/derivation-path pairs.  EXP
-is evaluated in an environment where %OUTPUT is bound to the main output
-path, %OUTPUTS is bound to a list of output/path pairs, and where
-%BUILD-INPUTS is bound to an alist of string/output-path pairs made from
-INPUTS."
+derivation NAME.  INPUTS must be a list of (NAME DRV-PATH SUB-DRV) tuples;
+when SUB-DRV is omitted, \"out\" is assumed.  EXP is evaluated in an
+environment where %OUTPUT is bound to the main output path, %OUTPUTS is bound
+to a list of output/path pairs, and where %BUILD-INPUTS is bound to an alist
+of string/output-path pairs made from INPUTS."
   (define guile
     (string-append (derivation-path->output-path (%guile-for-build))
                    "/bin/guile"))
@@ -459,17 +459,21 @@ INPUTS."
                              ',outputs))
                       (define %build-inputs
                         ',(map (match-lambda
-                                ((name . drv)
-                                 (cons name
-                                       (if (derivation-path? drv)
-                                           (derivation-path->output-path drv)
-                                           drv))))
-                               inputs))) )
+                                ((name drv . rest)
+                                 (let ((sub (match rest
+                                              (() "out")
+                                              ((x) x))))
+                                   (cons name
+                                         (if (derivation-path? drv)
+                                             (derivation-path->output-path drv
+                                                                           sub)
+                                             drv)))))
+                               inputs))))
          (builder  (add-text-to-store store
                                       (string-append name "-guile-builder")
                                       (string-append (object->string prologue)
                                                      (object->string exp))
-                                      (map cdr inputs)))
+                                      (map second inputs)))
          (mod-drv  (if (null? modules)
                        #f
                        (imported-modules store modules)))
@@ -482,7 +486,7 @@ INPUTS."
                 '(("HOME" . "/homeless"))
                 `((,(%guile-for-build))
                   (,builder)
-                  ,@(map (compose list cdr) inputs)
+                  ,@(map cdr inputs)
                   ,@(if mod-drv `((,mod-drv)) '()))
                 #:hash hash #:hash-algo hash-algo
                 #:outputs outputs)))
-- 
cgit v1.2.3