[bug#68355,7/8] gnu: Add make-crust-tools.
Commit Message
* gnu/packages/firmware.scm (make-crust-tools): New procedure.
Change-Id: Iac05ecf1796e4c10692a423c12423ea9b078d141
---
gnu/packages/firmware.scm | 42 +++++++++++++++++++++++++++++++++++++++
1 file changed, 42 insertions(+)
Comments
>
> + (replace 'configure
> + (lambda* (#:key inputs native-inputs #:allow-other-keys)
> + (copy-file (search-input-file inputs "/libexec/.config")
> + ".config")))
> + (replace 'build
> + (lambda* (#:key make-flags parallel-build? #:allow-other-keys)
> + (apply invoke "make" "tools"
> + `(,@(if parallel-build?
> + `("-j" ,(number->string (parallel-job-count)))
> + '())
> + ,@make-flags))))
Please wrap everything above the 78 columns limit.
> + (replace 'install
> + (lambda _
> + (install-file "build/tools/load"
> + (string-append #$output "/bin")))))))
> + (synopsis "System control processor firmware for Allwinner sunxi boards (tools)")
This synopsis is too long (>= 80 characters). Fixing it implies to fix
the one of make-crust-firmware I guess.
Thanks,
Mathieu
@@ -1245,6 +1245,48 @@ (define make-crust-package
;; Most files are dual-licensed "BSD-3 OR GPL2", a few are GPL2 only.
(license (list license:bsd-3 license:gpl2)))))
+(define make-crust-tools
+ (mlambda (platform firmware)
+ (package
+ (inherit firmware)
+ (name (string-append "crust-"
+ (string-replace-substring platform "_" "-")
+ "-tools"))
+ (arguments
+ (list #:make-flags
+ #~(list "V=1"
+ "LEX=flex"
+ (string-append "HOSTAR=" #$(ar-for-target))
+ (string-append "HOSTCC=" #$(cc-for-target)))
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'do-not-build-tests
+ (lambda _
+ ;; Attempting to build the tools test binary on a
+ ;; non-aarch64 architecture fails with: "No cache
+ ;; cleaning implementation available for this
+ ;; architecture". Avoid building it (see:
+ ;; https://github.com/crust-firmware/crust/issues/182).
+ (substitute* "tools/Makefile"
+ (("tools-y \\+= test") ""))))
+ (replace 'configure
+ (lambda* (#:key inputs native-inputs #:allow-other-keys)
+ (copy-file (search-input-file inputs "/libexec/.config")
+ ".config")))
+ (replace 'build
+ (lambda* (#:key make-flags parallel-build? #:allow-other-keys)
+ (apply invoke "make" "tools"
+ `(,@(if parallel-build?
+ `("-j" ,(number->string (parallel-job-count)))
+ '())
+ ,@make-flags))))
+ (replace 'install
+ (lambda _
+ (install-file "build/tools/load"
+ (string-append #$output "/bin")))))))
+ (synopsis "System control processor firmware for Allwinner sunxi boards (tools)")
+ (inputs (list firmware)))))
+
(define-public crust-pinebook
(make-crust-package "pinebook"))