mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 13:58:15 -05:00
utils: Add 'strip-for-target'.
* guix/utils.scm (strip-for-target): New procedure. Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
parent
486dcafb45
commit
dd3b9e84b9
1 changed files with 7 additions and 0 deletions
|
@ -18,6 +18,7 @@
|
|||
;;; Copyright © 2022 Antero Mejr <antero@mailbox.org>
|
||||
;;; Copyright © 2023 Philip McGrath <philip@philipmcgrath.com>
|
||||
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
|
||||
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
@ -111,6 +112,7 @@ (define-module (guix utils)
|
|||
cxx-for-target
|
||||
ld-for-target
|
||||
pkg-config-for-target
|
||||
strip-for-target
|
||||
|
||||
version-compare
|
||||
version>?
|
||||
|
@ -784,6 +786,11 @@ (define* (pkg-config-for-target #:optional (target (%current-target-system)))
|
|||
(string-append target "-pkg-config")
|
||||
"pkg-config"))
|
||||
|
||||
(define* (strip-for-target #:optional (target (%current-target-system)))
|
||||
(if target
|
||||
(string-append target "-strip")
|
||||
"strip"))
|
||||
|
||||
(define version-compare
|
||||
(let ((strverscmp
|
||||
(let ((sym (or (dynamic-func "strverscmp" (dynamic-link))
|
||||
|
|
Loading…
Reference in a new issue