me
/
guix
Archived
1
0
Fork 0
Code

gnu: utf8proc: fix cross-compilation. 

* gnu/packages/textutils.scm (utf8proc): fix cross-compilation.
[arguments]<#:make-flags>: Use CC-FOR-TARGET.
<#:phases>: When cross-compilation, Get test data from native-inputs.

Change-Id: I42699e62f28585cc215a8843b5daad9c52af44c9
master
Zheng Junjie 2024-03-20 00:38:16 +08:00
parent ecfd88cbe3
commit 38598c693f
No known key found for this signature in database
GPG Key ID: 3B5AA993E1A2DFF0
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/packages/textutils.scm
View File

@ -27,7 +27,7 @@
;;; Copyright © 2022 Gabriel Wicki <gabriel@erlikon.ch>
;;; Copyright © 2023 Reza Housseini <reza@housseini.me>
;;; Copyright © 2023 Hilton Chain <hako@ultrarare.space>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2023, 2024 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2024 Timotej Lazar <timotej.lazar@araneo.si>;;
;;; Copyright © 2024 Sharlatan Hellseher <sharlatanus@gmail.com>
;;;
@ -199,15 +199,20 @@ libenca and several charset conversion libraries and tools.")
;; For tests.
("perl" ,perl))))
(arguments
'(#:make-flags (list "CC=gcc"
`(#:make-flags (list ,(string-append "CC=" (cc-for-target))
(string-append "prefix=" (assoc-ref %outputs "out")))
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-before 'check 'check-data
(lambda* (#:key inputs #:allow-other-keys)
(lambda* (#:key ,@(if (%current-target-system)
'(native-inputs)
'())
inputs #:allow-other-keys)
(for-each (lambda (i)
(copy-file (assoc-ref inputs i)
(copy-file (assoc-ref ,@(if (%current-target-system)
'((or native-inputs inputs))
'(inputs)) i)
(string-append "data/" i)))
'("NormalizationTest.txt" "GraphemeBreakTest.txt"))
(substitute* "data/GraphemeBreakTest.txt"