On 2024-12-19, Herman Rimm wrote:
> * gnu/packages/firmware.scm (arm-trusted-firmware)[source]: Use modules.

What is this referring to? What modules that were not used before?

> [synopsis]: Mention supported architectures.
> [description]: Fix "ARMv7A" typo.  Remove newline.

These are good, thanks!

What I do not see mentioned is that it reworks how "native-build?" is
used a bit. Could that be split in a separate patch?

live well,
  vagrant

> Change-Id: I52d1a02f27e1c8ebbe5b48ea9a69e4c008ff5b9c
> ---
>  gnu/packages/firmware.scm | 104 ++++++++++++++++++--------------------
>  1 file changed, 49 insertions(+), 55 deletions(-)
>
> diff --git a/gnu/packages/firmware.scm b/gnu/packages/firmware.scm
> index 8b1873be38..758a10d7d2 100644
> --- a/gnu/packages/firmware.scm
> +++ b/gnu/packages/firmware.scm
> @@ -1101,68 +1101,62 @@ (define-public ovmf
>  
>  (define* (make-arm-trusted-firmware platform
>                                      #:key (triplet "aarch64-linux-gnu"))
> -  (let ((native-build? (lambda ()
> -                         ;; Note: %current-system is a *triplet*, unlike its
> -                         ;; name would suggest.
> -                         (or (not triplet) ;disable cross-compilation
> -                             (string=? (%current-system)
> -                                       (gnu-triplet->nix-system triplet))))))
> -    (package
> -      (name (string-append "arm-trusted-firmware-" platform))
> -      (version "2.9")
> -      (source
> -       (origin
> -         (method git-fetch)
> -         (uri (git-reference
> -               ;; There are only GitHub generated release snapshots.
> -               (url "https://git.trustedfirmware.org/TF-A/trusted-firmware-a.git/")
> -               (commit (string-append "v" version))))
> -         (file-name (git-file-name "arm-trusted-firmware" version))
> -         (sha256
> -          (base32
> -           "16fjbn1zck0d8b554h8lk1svqqn0zlawvrlkjxry9l71s9h4vd0p"))
> -         (snippet
> -          #~(begin
> -              (use-modules (guix build utils))
> -              ;; Remove binary blobs which do not contain source or proper
> -              ;; license.
> +  (define (native-build?)
> +    "Return #t if the host and target platforms differ."
> +    (or (not triplet)
> +        ;;%current-system is a *triplet*, unlike its name would suggest.
> +        (string=? (%current-system) (gnu-triplet->nix-system triplet))))
> +  (package
> +    (name (string-append "arm-trusted-firmware-" platform))
> +    (version "2.9")
> +    (source
> +     (origin
> +       (method git-fetch)
> +       (uri (git-reference
> +              (url (string-append "https://git.trustedfirmware.org"
> +                                  "/TF-A/trusted-firmware-a.git/"))
> +              (commit (string-append "v" version))))
> +       (file-name (git-file-name "arm-trusted-firmware" version))
> +       (sha256
> +        (base32 "16fjbn1zck0d8b554h8lk1svqqn0zlawvrlkjxry9l71s9h4vd0p"))
> +       (modules '((guix build utils)))
> +       ;; Remove binary blobs: they don't reference a source or license.
> +       (snippet #~(for-each delete-file (find-files "." "\\.bin$")))))
> +    (build-system gnu-build-system)
> +    (arguments
> +     (list
> +      #:target (and (not (native-build?)) triplet)
> +      #:phases
> +      #~(modify-phases %standard-phases
> +          (delete 'configure)         ;no configure script
> +          (replace 'install
> +            (lambda _
>                (for-each (lambda (file)
> -                          (delete-file file))
> -                        (find-files "." "\\.bin$"))))))
> -      (build-system gnu-build-system)
> -      (arguments
> -       (list
> -        #:target (and (not (native-build?)) triplet)
> -        #:phases
> -        #~(modify-phases %standard-phases
> -            (delete 'configure)         ;no configure script
> -            (replace 'install
> -              (lambda _
> -                (for-each (lambda (file)
> -                            (install-file file #$output))
> -                          (find-files "." "\\.(bin|elf)$")))))
> -        #:make-flags #~(list (string-append "PLAT=" #$platform)
> -                             #$@(if (not (native-build?))
> -                                    (list (string-append "CROSS_COMPILE=" triplet "-"))
> -                                    '())
> -                             "DEBUG=1")
> -        #:tests? #f))                   ;no test suite
> -      (home-page "https://www.trustedfirmware.org/")
> -      (synopsis "Implementation of \"secure world software\"")
> -      (description
> -       "ARM Trusted Firmware provides a reference implementation of secure world
> -software for ARMv7A and ARMv8-A, including a Secure Monitor executing at
> -@dfn{Exception Level 3} (EL3).  It implements various ARM interface standards,
> -such as:
> +                          (install-file file #$output))
> +                        (find-files "." "\\.(bin|elf)$")))))
> +      #:make-flags
> +      #~(list (string-append "PLAT=" #$platform)
> +              #$@(if (not (native-build?))
> +                     (list (string-append "CROSS_COMPILE=" triplet "-"))
> +                     '())
> +              "DEBUG=1")
> +      #:tests? #f))                   ;no test suite
> +    (home-page "https://www.trustedfirmware.org/")
> +    (synopsis "Secure world software for ARMv7-A and ARMv8-A")
> +    (description
> +     "ARM Trusted Firmware provides a reference implementation of secure
> +world software for ARMv7-A and ARMv8-A, including a Secure Monitor
> +executing at @dfn{Exception Level 3} (EL3).  It implements various ARM
> +interface standards, such as:
>  @enumerate
>  @item The Power State Coordination Interface (PSCI)
>  @item Trusted Board Boot Requirements (TBBR, ARM DEN0006C-1)
>  @item SMC Calling Convention
>  @item System Control and Management Interface
>  @item Software Delegated Exception Interface (SDEI)
> -@end enumerate\n")
> -      (license (list license:bsd-3
> -                     license:bsd-2))))) ; libfdt
> +@end enumerate")
> +    (license (list license:bsd-3
> +                   license:bsd-2)))) ; libfdt
>  
>  (define-public arm-trusted-firmware-sun50i-a64
>    (let ((base (make-arm-trusted-firmware "sun50i_a64")))
> -- 
> 2.45.2