blob: 1744420b04c777533b23ee3cacd12c448350503d (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
;; Datastructures module
(define-module (gn packages datastructures)
#:use-module (guix packages)
#:use-module (guix gexp)
#:use-module (guix utils)
#:use-module (gnu packages datastructures))
(define sdsl-lite-x86-64-v2
(package/inherit sdsl-lite
(name "sdsl-lite-x86-64-v2")
(arguments
(substitute-keyword-arguments (package-arguments sdsl-lite)
((#:configure-flags flags #~'())
#~(append (list "-DCMAKE_CXX_FLAGS=-march=x86-64-v2"
"-DCMAKE_INSTALL_LIBDIR=lib/glibc-hwcaps/x86-64-v2"
(string-append "-DCMAKE_INSTALL_RPATH=" #$output
"/lib/glibc-hwcaps/x86-64-v2"))
#$flags))
;; The building machine can't necessarily run the code produced.
((#:tests? _ #t) #f)
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(add-after 'install 'remove-extra-files
(lambda _
(delete-file-recursively (string-append #$output "/include"))))
(replace 'install-static-library
(lambda* (#:key outputs #:allow-other-keys)
(let ((lib "/lib/glibc-hwcaps/x86-64-v2/libsdsl.a"))
(mkdir-p (dirname (string-append #$output:static lib)))
(copy-file "lib/libsdsl_static.a"
(string-append #$output:static lib)))))))))
(supported-systems '("x86_64-linux"))
(properties `((hidden? . #t)))))
(define sdsl-lite-x86-64-v3
(package/inherit sdsl-lite
(name "sdsl-lite-x86-64-v3")
(arguments
(substitute-keyword-arguments (package-arguments sdsl-lite)
((#:configure-flags flags #~'())
#~(append (list "-DCMAKE_CXX_FLAGS=-march=x86-64-v3"
"-DCMAKE_INSTALL_LIBDIR=lib/glibc-hwcaps/x86-64-v3"
(string-append "-DCMAKE_INSTALL_RPATH=" #$output
"/lib/glibc-hwcaps/x86-64-v3"))
#$flags))
;; The building machine can't necessarily run the code produced.
((#:tests? _ #t) #f)
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(add-after 'install 'remove-extra-files
(lambda _
(delete-file-recursively (string-append #$output "/include"))))
(replace 'install-static-library
(lambda* (#:key outputs #:allow-other-keys)
(let ((lib "/lib/glibc-hwcaps/x86-64-v3/libsdsl.a"))
(mkdir-p (dirname (string-append #$output:static lib)))
(copy-file "lib/libsdsl_static.a"
(string-append #$output:static lib)))))))))
(supported-systems '("x86_64-linux"))
(properties `((hidden? . #t)))))
(define sdsl-lite-x86-64-v4
(package/inherit sdsl-lite
(name "sdsl-lite-x86-64-v4")
(arguments
(substitute-keyword-arguments (package-arguments sdsl-lite)
((#:configure-flags flags #~'())
#~(append (list "-DCMAKE_CXX_FLAGS=-march=x86-64-v4"
"-DCMAKE_INSTALL_LIBDIR=lib/glibc-hwcaps/x86-64-v4"
(string-append "-DCMAKE_INSTALL_RPATH=" #$output
"/lib/glibc-hwcaps/x86-64-v4"))
#$flags))
;; The building machine can't necessarily run the code produced.
((#:tests? _ #t) #f)
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(add-after 'install 'remove-extra-files
(lambda _
(delete-file-recursively (string-append #$output "/include"))))
(replace 'install-static-library
(lambda* (#:key outputs #:allow-other-keys)
(let ((lib "/lib/glibc-hwcaps/x86-64-v4/libsdsl.a"))
(mkdir-p (dirname (string-append #$output:static lib)))
(copy-file "lib/libsdsl_static.a"
(string-append #$output:static lib)))))))))
(supported-systems '("x86_64-linux"))
(properties `((hidden? . #t)))))
(define-public sdsl-lite-hwcaps
(package/inherit sdsl-lite
(name "sdsl-lite-hwcaps")
(arguments
(substitute-keyword-arguments (package-arguments sdsl-lite)
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(add-after 'install 'install-optimized-libraries
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((hwcaps "/lib/glibc-hwcaps"))
(copy-recursively
(string-append (assoc-ref inputs "sdsl-lite-x86-64-v2")
hwcaps "/x86-64-v2")
(string-append #$output hwcaps "/x86-64-v2"))
(copy-recursively
(string-append (assoc-ref inputs "sdsl-lite-x86-64-v3")
hwcaps "/x86-64-v3")
(string-append #$output hwcaps "/x86-64-v3"))
(copy-recursively
(string-append (assoc-ref inputs "sdsl-lite-x86-64-v4")
hwcaps "/x86-64-v4")
(string-append #$output hwcaps "/x86-64-v4")))))))))
(native-inputs
(modify-inputs (package-native-inputs sdsl-lite)
(append sdsl-lite-x86-64-v2
sdsl-lite-x86-64-v3
sdsl-lite-x86-64-v4)))
(properties `((tunable? . #f)))))
|
