bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 12:05:19 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system: cargo: Pass features to manifest-targets.

Browse source 
* guix/build/cargo-build-system.scm (manifest-targets): Pass features to
manifest-targets.

Change-Id: Id1a11d75d16389b92124fc49d2102d6aec935f64
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>
This commit is contained in:
Nicolas Graves 2025-09-14 16:20:43 +02:00 • committed by Sharlatan Hellseher
parent 32f9304e0d
commit b2ffcdf224
No known key found for this signature in database
GPG key ID: 76D727BFF62CD2B5
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
guix/build/cargo-build-system.scm
View file

@ -48,10 +48,13 @@
;;
;; Code:
(define (manifest-targets)
(define* (manifest-targets #:optional features)
"Extract all targets from the Cargo.toml manifest"
(let* ((command (string-join (list "cargo" "metadata" "--no-deps"
"--format-version" "1")))
(let* ((command (string-join (cons* "cargo" "metadata" "--no-deps"
"--format-version" "1"
(if (or (not features) (null? features))
'()
(cons* "--features" features)))))
(port (open-input-pipe command))
(data (json->scm port))
(packages (vector-ref (assoc-ref data "packages") 0))
@ -59,12 +62,12 @@
(close-port port)
targets))
(define (has-executable-target?)
(define (has-executable-target? features)
"Check if the current cargo project declares any binary targets."
(let* ((bin? (lambda (kind) (string=? kind "bin")))
(get-kinds (lambda (dep) (assoc-ref dep "kind")))
(bin-dep? (lambda (dep) (vector-any bin? (get-kinds dep)))))
(vector-any bin-dep? (manifest-targets))))
(vector-any bin-dep? (manifest-targets features))))
(define (cargo-package? dir)
"Check if directory DIR contains a single package, or a Cargo workspace with
@ -431,7 +434,7 @@ directory = '" vendor-dir "'") port)
;; NOTE: Cargo workspace installation support:
;; #:skip-build? #f + #:cargo-install-paths.
(and (null? cargo-install-paths)
(not (has-executable-target?)))
(not (has-executable-target? features)))
(for-each
(lambda (path)
(invoke "cargo" "install" "--offline" "--no-track"