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

gexp: 'compiled-modules' can cross-compile.

Browse source 
* guix/gexp.scm (compiled-modules): Add #:target and honor it.
This commit is contained in:
Ludovic Courtès 2019-07-26 23:22:28 +02:00
parent 548e0af4da
commit 2cc5ec7f0d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 22 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
guix/gexp.scm
View file

@ -1345,6 +1345,7 @@ (define* (imported-modules modules
(define* (compiled-modules modules
#:key (name "module-import-compiled")
(system (%current-system))
target
(guile (%guile-for-build))
(module-path %load-path)
(extensions '())
@ -1355,7 +1356,8 @@ (define* (compiled-modules modules
(pre-load-modules? #t))
"Return a derivation that builds a tree containing the `.go' files
corresponding to MODULES. All the MODULES are built in a context where
they can refer to each other."
they can refer to each other. When TARGET is true, cross-compile MODULES for
TARGET, a GNU triplet."
(define total (length modules))
(mlet %store-monad ((modules (imported-modules modules
@ -1374,6 +1376,12 @@ (define build
(srfi srfi-26)
(system base compile))
;; TODO: Inline this on the next rebuild cycle.
(ungexp-splicing
(if target
(gexp ((use-modules (system base target))))
(gexp ())))
(define (regular? file)
(not (member file '("." ".."))))
@ -1391,9 +1399,19 @@ (define (process-entry entry output processed)
(gexp ()))))
(ungexp (* total (if pre-load-modules? 2 1)))
entry)
(compile-file entry
#:output-file output
#:opts %auto-compilation-options)
(ungexp-splicing
(if target
(gexp ((with-target (ungexp target)
(lambda ()
(compile-file entry
#:output-file output
#:opts
%auto-compilation-options)))))
(gexp ((compile-file entry
#:output-file output
#:opts %auto-compilation-options)))))
(+ 1 processed))))
(define (process-directory directory output processed)