me/guix
Archived
1
0
Fork 0
Code Activity

utils: Add 'strip-for-target'.

Browse source 
* guix/utils.scm (strip-for-target): New procedure.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Zheng Junjie 2023-07-28 21:33:52 +08:00 • committed by Mathieu Othacehe
parent 486dcafb45
commit dd3b9e84b9
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/utils.scm
View file

@ -18,6 +18,7 @@
;;; Copyright © 2022 Antero Mejr <antero@mailbox.org> ;;; Copyright © 2022 Antero Mejr <antero@mailbox.org>
;;; Copyright © 2023 Philip McGrath <philip@philipmcgrath.com> ;;; Copyright © 2023 Philip McGrath <philip@philipmcgrath.com>
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -111,6 +112,7 @@
cxx-for-target cxx-for-target
ld-for-target ld-for-target
pkg-config-for-target pkg-config-for-target
strip-for-target
version-compare version-compare
version>? version>?
@ -784,6 +786,11 @@ architecture (x86_64)?"
(string-append target "-pkg-config") (string-append target "-pkg-config")
"pkg-config")) "pkg-config"))
(define* (strip-for-target #:optional (target (%current-target-system)))
(if target
(string-append target "-strip")
"strip"))
(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))