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

packages: Pass `system' around.

Browse source 
* guix/packages.scm (package-source-derivation): Add `system'
  parameter.  Pass it to METHOD.
  (package-derivation)[expand-input]: Pass SYSTEM to
  `package-derivation' and `package-source-derivation'.

* distro/packages/base.scm (package-with-bootstrap-guile)[boot]: Pass
  SYSTEM to FETCH.
This commit is contained in:
Ludovic Courtès 2012-10-25 23:41:15 +02:00
parent ae39d1b233
commit b642e4b853
2 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
distro/packages/base.scm
View file

@ -1424,9 +1424,11 @@ (define (bootstrap-origin source)
"Return a variant of SOURCE, an <origin> instance, whose method uses
%BOOTSTRAP-GUILE to do its job."
(define (boot fetch)
(lambda* (store url hash-algo hash #:optional name)
(lambda* (store url hash-algo hash
#:optional name #:key system)
(fetch store url hash-algo hash
#:guile %bootstrap-guile)))
#:guile %bootstrap-guile
#:system system)))
(let ((orig-method (origin-method source)))
(origin (inherit source)

17
guix/packages.scm
View file

@ -164,11 +164,13 @@ (define (package-full-name package)
"Return the full name of PACKAGE--i.e., `NAME-VERSION'."
(string-append (package-name package) "-" (package-version package)))
(define (package-source-derivation store source)
"Return the derivation path for SOURCE, a package source."
(define* (package-source-derivation store source
#:optional (system (%current-system)))
"Return the derivation path for SOURCE, a package source, for SYSTEM."
(match source
(($ <origin> uri method sha256 name)
(method store uri 'sha256 sha256 name))))
(method store uri 'sha256 sha256 name
#:system system))))
(define (transitive-inputs inputs)
(let loop ((inputs inputs)
@ -238,10 +240,10 @@ (define expand-input
;; references to derivation paths or store paths.
(match-lambda
(((? string? name) (? package? package))
(list name (package-derivation store package)))
(list name (package-derivation store package system)))
(((? string? name) (? package? package)
(? string? sub-drv))
(list name (package-derivation store package)
(list name (package-derivation store package system)
sub-drv))
(((? string? name)
(and (? string?) (? derivation-path?) drv))
@ -253,7 +255,7 @@ (define expand-input
;; source.
(list name (intern file)))
(((? string? name) (? origin? source))
(list name (package-source-derivation store source)))
(list name (package-source-derivation store source system)))
((and i ((? string? name) (? procedure? proc) sub-drv ...))
;; This form allows PROC to make a SYSTEM-dependent choice.
@ -291,7 +293,8 @@ (define expand-input
(apply builder
store (package-full-name package)
(and source (package-source-derivation store source))
(and source
(package-source-derivation store source system))
inputs
#:outputs outputs #:system system
(if (procedure? args)