@@ -9428,7 +9428,9 @@ Build Systems
evaluate to a path to a gzipped tarball which includes a @code{Cargo.toml}
file at its root, or it will be ignored. Similarly, cargo dev-dependencies
should be added to the package definition via the
-@code{#:cargo-development-inputs} parameter.
+@code{#:cargo-development-inputs} parameter. Additionally, if some
+native dependencies are required during a build of a dependent package,
+you can use @code{#:cargo-native-inputs} to specify such packages.
In its @code{configure} phase, this build system will make any source inputs
specified in the @code{#:cargo-inputs} and @code{#:cargo-development-inputs}
@@ -207,6 +207,12 @@ (define (package-cargo-development-inputs p)
cargo-development-inputs)
(package-arguments p)))
+(define (package-cargo-native-inputs p)
+ (apply
+ (lambda* (#:key (cargo-native-inputs '()) #:allow-other-keys)
+ cargo-native-inputs)
+ (package-arguments p)))
+
(define (crate-closure inputs)
"Return the closure of INPUTS when considering the 'cargo-inputs' and
'cargod-dev-deps' edges. Omit duplicate inputs, except for those
@@ -308,13 +314,14 @@ (define* (lower name
(rust-sysroot (default-rust-sysroot target))
(cargo-inputs '())
(cargo-development-inputs '())
+ (cargo-native-inputs '())
#:allow-other-keys
#:rest arguments)
"Return a bag for NAME."
(define private-keywords
`(#:rust #:inputs #:native-inputs #:outputs
- #:cargo-inputs #:cargo-development-inputs
+ #:cargo-inputs #:cargo-development-inputs #:cargo-native-inputs
#:rust-sysroot
,@(if target '() '(#:target))))
@@ -338,6 +345,14 @@ (define* (lower name
,@(if target '() inputs)
;,@inputs
+ ,@(apply append
+ cargo-native-inputs
+ (map (match-lambda
+ ((tag pkg)
+ (package-cargo-native-inputs pkg)))
+ (crate-closure (append cargo-inputs
+ cargo-development-inputs))))
+
,@(if target
;; Use the standard cross inputs of
;; 'gnu-build-system'.