From b69e4693287d481ee75f948227a2c508391ef055 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Thu, 23 Mar 2006 16:43:07 +0000
Subject: [PATCH] * In `nix-env', look for derivations inside attribute sets
 that have   the `recurseForDerivations' attribute set to `true'.

---
 src/libexpr/eval.hh     |  1 +
 src/libexpr/get-drvs.cc | 16 +++++++++++++++-
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/src/libexpr/eval.hh b/src/libexpr/eval.hh
index cbdcb274e..8070f4884 100644
--- a/src/libexpr/eval.hh
+++ b/src/libexpr/eval.hh
@@ -55,6 +55,7 @@ Expr evalFile(EvalState & state, const Path & path);
 /* Specific results. */
 string evalString(EvalState & state, Expr e);
 Path evalPath(EvalState & state, Expr e);
+bool evalBool(EvalState & state, Expr e);
 ATermList evalList(EvalState & state, Expr e);
 ATerm coerceToString(Expr e);
 
diff --git a/src/libexpr/get-drvs.cc b/src/libexpr/get-drvs.cc
index ff38ff794..78edbd392 100644
--- a/src/libexpr/get-drvs.cc
+++ b/src/libexpr/get-drvs.cc
@@ -171,7 +171,21 @@ static void getDerivations(EvalState & state, Expr e,
             for (ATermIterator i(drvMap.keys()); i; ++i) {
                 startNest(nest, lvlDebug,
                     format("evaluating attribute `%1%'") % aterm2String(*i));
-                getDerivation(state, drvMap.get(*i), drvs, doneExprs);
+                if (getDerivation(state, drvMap.get(*i), drvs, doneExprs)) {
+                    /* If the value of this attribute is itself an
+                       attribute self, should we recurse into it?
+                       => Only if it has a `recurseForDerivations = true'
+                       attribute. */
+                    ATermList es;
+                    Expr e = evalExpr(state, drvMap.get(*i));
+                    if (matchAttrs(e, es)) {
+                        ATermMap attrs;
+                        queryAllAttrs(e, attrs, false);
+                        if (attrs.get("recurseForDerivations") &&
+                            evalBool(state, attrs.get("recurseForDerivations")))
+                            getDerivations(state, e, drvs, doneExprs, attrPathRest);
+                    }
+                }
             }
         } else {
             Expr e2 = drvMap.get(attr);