amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: bootloaders: u-boot-sandbox: Reformat.

Browse source 
* gnu/packages/bootloaders.scm (u-boot-sandbox): Wrap at 72 columns.

Change-Id: I440c05b369c0be1437a3174e055efeeda8e5fe01
Signed-off-by: Vagrant Cascadian <vagrant@debian.org>
This commit is contained in:
Herman Rimm 2024-12-13 20:58:33 +01:00 • committed by Vagrant Cascadian
parent 56c6466887
commit 1a62f687e5
No known key found for this signature in database
GPG key ID: DC518FC87F9716AA
1 changed files with 28 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

55
gnu/packages/bootloaders.scm
View file

@ -1319,34 +1319,35 @@ partition."))
(make-u-boot-package "qemu-riscv64_smode" "riscv64-linux-gnu")) (make-u-boot-package "qemu-riscv64_smode" "riscv64-linux-gnu"))
(define-public u-boot-sandbox (define-public u-boot-sandbox
(let ((base (make-u-boot-package (define base
"sandbox" #f ;build for the native system (make-u-boot-package
;; These disabled features require OpenSSL, which is "sandbox" #f ;build for the native system
;; incompatible with the GPLv2-only parts of U-boot. ;; These disabled features require OpenSSL, which is
#:configs (map (cut string-append "# CONFIG_" <> " is not set") ;; incompatible with the GPLv2-only parts of U-boot.
'("FIT_CIPHER")) #:configs (map (cut string-append "# CONFIG_" <> " is not set")
#:append-description '("FIT_CIPHER"))
"The sandbox configuration of U-Boot provides a #:append-description
@command{u-boot} command that runs as a normal user space application. It can "The sandbox configuration of U-Boot provides a @command{u-boot}
be used to test the functionality of U-Boot interactively without having to command that runs as a normal user space application. It can be used to
deploy to an actual target device. @xref{Sandbox<6>,,,u-boot, The U-Boot test the functionality of U-Boot interactively without having to deploy
to an actual target device. @xref{Sandbox<6>,,,u-boot, The U-Boot
Documentation} for more information (for example by running @samp{info Documentation} for more information (for example by running @samp{info
\"(u-boot) Sandbox<6>\"})."))) \"(u-boot) Sandbox<6>\"})."))
(package (package
(inherit base) (inherit base)
(arguments (arguments
(substitute-keyword-arguments (package-arguments base) (substitute-keyword-arguments (package-arguments base)
((#:phases phases '%standard-phases) ((#:phases phases '%standard-phases)
#~(modify-phases #$phases #~(modify-phases #$phases
(add-after 'install 'symlink-u-boot-command (add-after 'install 'symlink-u-boot-command
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; For ease of discovery. ;; For ease of discovery.
(mkdir (string-append #$output "/bin")) (mkdir (string-append #$output "/bin"))
(symlink (search-input-file outputs "libexec/u-boot") (symlink (search-input-file outputs "libexec/u-boot")
(string-append #$output "/bin/u-boot")))))))) (string-append #$output "/bin/u-boot"))))))))
;; cert-to-efi-sig-list from efitools creates the EFI capsule ESL. ;; cert-to-efi-sig-list from efitools creates the EFI capsule ESL.
(inputs (modify-inputs (package-inputs base) (inputs (modify-inputs (package-inputs base)
(append efitools sdl2)))))) (append efitools sdl2)))))
(define-public u-boot-sifive-unleashed (define-public u-boot-sifive-unleashed
(let ((base (make-u-boot-package "sifive_unleashed" "riscv64-linux-gnu"))) (let ((base (make-u-boot-package "sifive_unleashed" "riscv64-linux-gnu")))