futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: xxhash: Use G-expressions.

Browse Source 
* gnu/packages/digest.scm (xxhash)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-01-06 01:52:43 +01:00
parent 7608d2d05d
commit f9fe99b4cd
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
gnu/packages/digest.scm
View File

@ -19,6 +19,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages digest) (define-module (gnu packages digest)
#:use-module (guix gexp)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
@ -79,24 +80,24 @@ Zig, V, and Nim programming language standard libraries.")
(base32 "1h6080lvcr5mpbvy4fhb4i7wvhpy72nrixk3djmpai4hxq41hsnr")))) (base32 "1h6080lvcr5mpbvy4fhb4i7wvhpy72nrixk3djmpai4hxq41hsnr"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags (list #:make-flags
(list ,(string-append "CC=" (cc-for-target)) #~(list #$(string-append "CC=" (cc-for-target))
,(match (or (%current-target-system) #$(match (or (%current-target-system)
(%current-system)) (%current-system))
;; Detect vector instruction set at run time. ;; Detect vector instruction set at run time.
((or "i686-linux" "x86_64-linux") "DISPATCH=1") ((or "i686-linux" "x86_64-linux") "DISPATCH=1")
(_ "DISPATCH=0")) (_ "DISPATCH=0"))
"XXH_FORCE_MEMORY_ACCESS=1" ; improved performance with GCC "XXH_FORCE_MEMORY_ACCESS=1" ; improved performance with GCC
(string-append "prefix=" (assoc-ref %outputs "out"))) (string-append "prefix=" (assoc-ref %outputs "out")))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'fix-man-page-links (add-after 'unpack 'fix-man-page-links
;; https://github.com/Cyan4973/xxHash/issues/647 ;; https://github.com/Cyan4973/xxHash/issues/647
(lambda _ (lambda _
(substitute* "Makefile" (substitute* "Makefile"
(("ln -sf \\$\\(MAN\\)") (("ln -sf \\$\\(MAN\\)")
"ln -sf xxhsum.1")))) "ln -sf xxhsum.1"))))
(delete 'configure)))) ; no configure script (delete 'configure)))) ; no configure script
(home-page "https://cyan4973.github.io/xxHash/") (home-page "https://cyan4973.github.io/xxHash/")
(synopsis "Extremely fast hash algorithm") (synopsis "Extremely fast hash algorithm")
(description (description