utils: Add pkg-config-for-target.
* guix/utils.scm (pkg-config-for-target): New procedure.
This commit is contained in:
parent
646233094e
commit
3d395e3d83
1 changed files with 6 additions and 0 deletions
|
@ -79,6 +79,7 @@
|
||||||
target-64bit?
|
target-64bit?
|
||||||
cc-for-target
|
cc-for-target
|
||||||
cxx-for-target
|
cxx-for-target
|
||||||
|
pkg-config-for-target
|
||||||
|
|
||||||
version-compare
|
version-compare
|
||||||
version>?
|
version>?
|
||||||
|
@ -548,6 +549,11 @@ a character other than '@'."
|
||||||
(string-append target "-g++")
|
(string-append target "-g++")
|
||||||
"g++"))
|
"g++"))
|
||||||
|
|
||||||
|
(define* (pkg-config-for-target #:optional (target (%current-target-system)))
|
||||||
|
(if target
|
||||||
|
(string-append target "-pkg-config")
|
||||||
|
"pkg-config"))
|
||||||
|
|
||||||
(define version-compare
|
(define version-compare
|
||||||
(let ((strverscmp
|
(let ((strverscmp
|
||||||
(let ((sym (or (dynamic-func "strverscmp" (dynamic-link))
|
(let ((sym (or (dynamic-func "strverscmp" (dynamic-link))
|
||||||
|
|
Reference in a new issue