build-system: android-ndk: Improve style.

Like in other build-systems, make proper procedures to resolve the
build-system build-inputs bindings.

* guix/build-system/android-ndk.scm (default-android-build,
default-android-googletest): Add procedures.
(lower): Use them.

Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
Nicolas Graves 2025-04-25 11:26:34 +02:00 committed by Christopher Baines
parent 97a25bb484
commit ac026164be
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577

View file

@ -33,6 +33,16 @@
`((guix build android-ndk-build-system)
,@%default-gnu-imported-modules))
(define (default-android-build)
;; Lazily resolve the binding to avoid a circular dependency.
(let ((android (resolve-interface '(gnu packages android))))
(module-ref android 'android-make-stub)))
(define (default-android-googletest)
;; Lazily resolve the binding to avoid a circular dependency.
(let ((android (resolve-interface '(gnu packages android))))
(module-ref android 'android-googletest)))
(define* (android-ndk-build name inputs
#:key
source
@ -100,8 +110,8 @@
;; Keep the standard inputs of 'gnu-build-system'
,@(standard-packages)))
(build-inputs `(("android-build" ,(module-ref (resolve-interface '(gnu packages android)) 'android-make-stub))
("android-googletest" ,(module-ref (resolve-interface '(gnu packages android)) 'android-googletest))
(build-inputs `(("android-build" ,(default-android-build))
("android-googletest" ,(default-android-googletest))
,@native-inputs))
(outputs outputs)
(build android-ndk-build)