ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

derivations: Add 'offloadable-derivation?' and 'substitutable-derivation?'.

Browse source 
* guix/derivations.scm (offloadable-derivation?,
  substitutable-derivation?): New procedures.
* tests/derivations.scm ("offloadable-derivation?"): New test.
This commit is contained in:
Ludovic Courtès 2014-10-28 18:05:17 +01:00
parent 31a123fe00
commit fc93e30919
2 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
guix/derivations.scm
View file

@ -57,6 +57,8 @@ (define-module (guix derivations)
derivation-input-output-paths
fixed-output-derivation?
offloadable-derivation?
substitutable-derivation?
derivation-hash
read-derivation
@ -156,6 +158,18 @@ (define (derivation-prerequisites drv)
read-derivation))
inputs)))))
(define (offloadable-derivation? drv)
"Return true if DRV can be offloaded, false otherwise."
(match (assoc "preferLocalBuild"
(derivation-builder-environment-vars drv))
(("preferLocalBuild" . "1") #f)
(_ #t)))
(define substitutable-derivation?
;; Return #t if the derivation can be substituted. Currently the two are
;; synonymous, see <http://bugs.gnu.org/18747>.
offloadable-derivation?)
(define* (derivation-prerequisites-to-build store drv
#:key
(outputs

6
tests/derivations.scm
View file

@ -173,6 +173,12 @@ (define prefix-len (string-length dir))
(= (stat:ino (lstat file1))
(stat:ino (lstat file2))))))))
(test-assert "offloadable-derivation?"
(and (offloadable-derivation? (derivation %store "foo" %bash '()))
(not (offloadable-derivation?
(derivation %store "foo" %bash '()
#:local-build? #t)))))
(test-assert "fixed-output-derivation?"
(let* ((builder (add-text-to-store %store "my-fixed-builder.sh"
"echo -n hello > $out" '()))