[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/10: derivations: Add #:skip-dependencies? parameter to 'derivation-in
From: |
guix-commits |
Subject: |
04/10: derivations: Add #:skip-dependencies? parameter to 'derivation-input-fold'. |
Date: |
Sun, 5 Jan 2020 05:51:32 -0500 (EST) |
civodul pushed a commit to branch wip-system-bootstrap
in repository guix.
commit 09763444ce748487640c95d4e1a2cf9645c4e250
Author: Ludovic Courtès <address@hidden>
Date: Thu Dec 12 12:56:55 2019 +0100
derivations: Add #:skip-dependencies? parameter to 'derivation-input-fold'.
* guix/derivations.scm (derivation-input-fold): Add #:skip-dependencies?.
---
guix/derivations.scm | 13 +++++++++----
1 file changed, 9 insertions(+), 4 deletions(-)
diff --git a/guix/derivations.scm b/guix/derivations.scm
index 480a65c..0ee325d 100644
--- a/guix/derivations.scm
+++ b/guix/derivations.scm
@@ -305,10 +305,13 @@ result is the set of prerequisites of DRV not already in
valid."
sub-drvs))))
(define* (derivation-input-fold proc seed inputs
- #:key (cut? (const #f)))
+ #:key
+ (cut? (const #f))
+ (skip-dependencies? (const #f)))
"Perform a breadth-first traversal of INPUTS, calling PROC on each input
-with the current result, starting from SEED. Skip recursion on inputs that
-match CUT?."
+with the current result, starting from SEED. Skip inputs that match CUT? as
+well as all their dependencies; skip the dependencies of inputs that match
+SKIP-DEPENDENCIES?, but not the input itself."
(let loop ((inputs inputs)
(result seed)
(visited (set)))
@@ -323,7 +326,9 @@ match CUT?."
(loop rest result (set-insert key visited)))
(else
(let ((drv (derivation-input-derivation input)))
- (loop (append (derivation-inputs drv) rest)
+ (loop (if (skip-dependencies? input)
+ rest
+ (append (derivation-inputs drv) rest))
(proc input result)
(set-insert key visited))))))))))
- branch wip-system-bootstrap created (now 3bccc5e), guix-commits, 2020/01/05
- 03/10: store: Add #:cut? parameter to 'topologically-sorted'., guix-commits, 2020/01/05
- 01/10: utils: 'version-compare' delays 'dynamic-link' code., guix-commits, 2020/01/05
- 04/10: derivations: Add #:skip-dependencies? parameter to 'derivation-input-fold'.,
guix-commits <=
- 05/10: DRAFT gexp: Add 'raw-derivation-closure'., guix-commits, 2020/01/05
- 02/10: monads: Add portability to Guile 2.0., guix-commits, 2020/01/05
- 06/10: DRAFT gexp: Add 'object-sources'., guix-commits, 2020/01/05
- 09/10: DRAFT serialization: Avoid 'define-values', for the sake of Guile 2.0., guix-commits, 2020/01/05
- 08/10: bootstrap: Add %bootstrap-guile+guild., guix-commits, 2020/01/05
- 10/10: system: bootstrap: Compute and print the result's hash., guix-commits, 2020/01/05
- 07/10: DRAFT system: Add (gnu system bootstrap)., guix-commits, 2020/01/05