me/guix
Archived
1
0
Fork 0
Code Activity

build-system/linux-module: Configure module like the kernel.

Browse source 
* guix/build/linux-module-build-system.scm (configure): New procedure.
(%standard-phases): Add "configure" phase.
This commit is contained in:
Danny Milosavljevic 2019-04-12 00:43:36 +02:00
parent 55548cdc6a
commit 0b30a1a072
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
guix/build/linux-module-build-system.scm
View file

@ -32,6 +32,23 @@
;; ;;
;; Code: ;; Code:
;; Copied from make-linux-libre's "configure" phase.
(define* (configure #:key inputs target #:allow-other-keys)
(setenv "KCONFIG_NOTIMESTAMP" "1")
(setenv "KBUILD_BUILD_TIMESTAMP" (getenv "SOURCE_DATE_EPOCH"))
;(let ((arch ,(system->linux-architecture
; (or (%current-target-system)
; (%current-system)))))
; (setenv "ARCH" arch)
; (format #t "`ARCH' set to `~a'~%" (getenv "ARCH")))
(when target
(setenv "CROSS_COMPILE" (string-append target "-"))
(format #t "`CROSS_COMPILE' set to `~a'~%"
(getenv "CROSS_COMPILE")))
; TODO: (setenv "EXTRA_VERSION" ,extra-version)
; TODO: kernel ".config".
#t)
(define* (build #:key inputs make-flags #:allow-other-keys) (define* (build #:key inputs make-flags #:allow-other-keys)
(apply invoke "make" "-C" (apply invoke "make" "-C"
(string-append (assoc-ref inputs "linux-module-builder") (string-append (assoc-ref inputs "linux-module-builder")
@ -60,7 +77,7 @@
(define %standard-phases (define %standard-phases
(modify-phases gnu:%standard-phases (modify-phases gnu:%standard-phases
(delete 'configure) (replace 'configure configure)
(replace 'build build) (replace 'build build)
(replace 'install install))) (replace 'install install)))