HCoop / jackhill / guix / guix.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
gnu: emacs-helm: Update to 3.8.7.
[jackhill/guix/guix.git] / gnu / packages / wine.scm
CommitLineData
8f9580ca 1;;; GNU Guix --- Functional package management for GNU
d43ba6f8 2;;; Copyright © 2014, 2015 Sou Bunnbu <iyzsong@gmail.com>
eeabe5a1 3;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
7ba2a1af 4;;; Copyright © 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
a51ac7af 5;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
4b506a3f 6;;; Copyright © 2017, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
ab4cdfe7 7;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
76dbadac 8;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
98e9cabd 9;;; Copyright © 2022 Liliana Marie Prikler <liliana.prikler@gmail.com>
8f9580ca
SB		 10;;;
11;;; This file is part of GNU Guix.
12;;;
13;;; GNU Guix is free software; you can redistribute it and/or modify it
14;;; under the terms of the GNU General Public License as published by
15;;; the Free Software Foundation; either version 3 of the License, or (at
16;;; your option) any later version.
17;;;
18;;; GNU Guix is distributed in the hope that it will be useful, but
19;;; WITHOUT ANY WARRANTY; without even the implied warranty of
20;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21;;; GNU General Public License for more details.
22;;;
23;;; You should have received a copy of the GNU General Public License
24;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
25
26(define-module (gnu packages wine)
27 #:use-module ((guix licenses) #:prefix license:)
28 #:use-module (guix packages)
98e9cabd 29 #:use-module (guix gexp)
8f9580ca 30 #:use-module (guix download)
f868276b 31 #:use-module (guix git-download)
eeabe5a1 32 #:use-module (guix utils)
8f9580ca 33 #:use-module (guix build-system gnu)
76dbadac 34 #:use-module (guix build-system meson)
f6246195 35 #:use-module (guix build-system trivial)
8f9580ca 36 #:use-module (gnu packages)
1aa6582e 37 #:use-module (gnu packages admin)
025cc9a1 38 #:use-module (gnu packages audio)
b53b9c8d 39 #:use-module (gnu packages autotools)
f6246195
RH		 40 #:use-module (gnu packages base)
41 #:use-module (gnu packages bash)
8f9580ca 42 #:use-module (gnu packages bison)
025cc9a1 43 #:use-module (gnu packages cups)
8f9580ca
SB		 44 #:use-module (gnu packages databases)
45 #:use-module (gnu packages fontutils)
46 #:use-module (gnu packages flex)
47 #:use-module (gnu packages image)
48 #:use-module (gnu packages gettext)
49 #:use-module (gnu packages ghostscript)
50 #:use-module (gnu packages gl)
51 #:use-module (gnu packages glib)
1aa6582e 52 #:use-module (gnu packages gstreamer)
141708ed 53 #:use-module (gnu packages gtk)
d95e4864 54 #:use-module (gnu packages kerberos)
6a77596c 55 #:use-module (gnu packages libusb)
8f9580ca 56 #:use-module (gnu packages linux)
76dbadac 57 #:use-module (gnu packages mingw)
8f9580ca
SB		 58 #:use-module (gnu packages openldap)
59 #:use-module (gnu packages perl)
05740895 60 #:use-module (gnu packages pulseaudio)
8f9580ca 61 #:use-module (gnu packages pkg-config)
b53b9c8d 62 #:use-module (gnu packages python)
8f9580ca 63 #:use-module (gnu packages mp3)
8f9580ca
SB		 64 #:use-module (gnu packages photo)
65 #:use-module (gnu packages samba)
66 #:use-module (gnu packages scanner)
51158d83 67 #:use-module (gnu packages sdl)
a7fd7b68 68 #:use-module (gnu packages tls)
1aa6582e 69 #:use-module (gnu packages video)
39b4744a 70 #:use-module (gnu packages vulkan)
8f9580ca 71 #:use-module (gnu packages xml)
b4a330ac 72 #:use-module (gnu packages xorg)
a5466f38
RH		 73 #:use-module (ice-9 match)
74 #:use-module (srfi srfi-1))
8f9580ca
SB		 75
76(define-public wine
77 (package
78 (name "wine")
b03f7b59 79 (version "7.8")
4b506a3f
NG		 80 (source
81 (origin
82 (method url-fetch)
d8104034
NG		 83 (uri (let ((dir (string-append
84 (version-major version)
85 (if (string-suffix? ".0" (version-major+minor version))
86 ".0/"
53b48447
NG		 87 ".x/"))))
88 (string-append "https://dl.winehq.org/wine/source/" dir
89 "wine-" version ".tar.xz")))
4b506a3f 90 (sha256
b03f7b59 91 (base32 "1f0r00b6lk59cmpj42b7f2jrd58d7vxfvpp54j7arwjhdg4yjxlg"))))
8f9580ca 92 (build-system gnu-build-system)
d8104034 93 (native-inputs
98e9cabd 94 (list bison flex gettext-minimal perl pkg-config))
8f9580ca 95 (inputs
ab4cdfe7
TGR		 96 ;; Some libraries like libjpeg are now compiled into native PE objects.
97 ;; The ELF objects provided by Guix packages are of no use. Whilst this
98 ;; is technically bundling, it's quite defensible. It might be possible
99 ;; to build some of these from Guix PACKAGE-SOURCE but attempts were not
100 ;; fruitful so far. See <https://www.winehq.org/announce/7.0>.
98e9cabd
LMP		 101 (list alsa-lib
102 cups
103 dbus
104 eudev
105 fontconfig
106 freetype
107 gnutls
108 gst-plugins-base
109 libgphoto2
110 openldap
111 samba
112 sane-backends
113 libpcap
114 libusb
115 libice
116 libx11
117 libxi
118 libxext
119 libxcursor
120 libxrender
121 libxrandr
122 libxinerama
123 libxxf86vm
124 libxcomposite
125 mit-krb5
126 openal
127 pulseaudio
128 sdl2
129 unixodbc
130 v4l-utils
131 vkd3d
132 vulkan-loader))
8f9580ca 133 (arguments
98e9cabd
LMP		 134 (list
135 ;; Force a 32-bit build targeting a similar architecture, i.e.:
136 ;; armhf for armhf/aarch64, i686 for i686/x86_64.
137 #:system (match (%current-system)
138 ((or "armhf-linux" "aarch64-linux") "armhf-linux")
139 (_ "i686-linux"))
8f9580ca
SB		 140
141 ;; XXX: There's a test suite, but it's unclear whether it's supposed to
142 ;; pass.
143 #:tests? #f
144
6c0dfb19 145 #:configure-flags
98e9cabd 146 #~(list (string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib/wine32"))
6c0dfb19 147
eeabe5a1 148 #:make-flags
98e9cabd
LMP		 149 #~(list "SHELL=bash"
150 (string-append "libdir=" #$output "/lib/wine32"))
eeabe5a1 151
8f9580ca 152 #:phases
98e9cabd
LMP		 153 #~(modify-phases %standard-phases
154 ;; Explicitly set the 32-bit version of vulkan-loader when installing
155 ;; to i686-linux or x86_64-linux.
156 ;; TODO: Add more JSON files as they become available in Mesa.
157 #$@(match (%current-system)
158 ((or "i686-linux" "x86_64-linux")
159 `((add-after 'install 'wrap-executable
160 (lambda* (#:key inputs outputs #:allow-other-keys)
161 (let* ((out (assoc-ref outputs "out"))
162 (icd (string-append out "/share/vulkan/icd.d")))
163 (mkdir-p icd)
164 (copy-file (search-input-file
165 inputs
166 "/share/vulkan/icd.d/radeon_icd.i686.json")
167 (string-append icd "/radeon_icd.i686.json"))
168 (copy-file (search-input-file
169 inputs
170 "/share/vulkan/icd.d/intel_icd.i686.json")
171 (string-append icd "/intel_icd.i686.json"))
172 (wrap-program (string-append out "/bin/wine-preloader")
173 `("VK_ICD_FILENAMES" ":" =
174 (,(string-append icd
175 "/radeon_icd.i686.json" ":"
176 icd "/intel_icd.i686.json")))))))))
177 (_
178 `()))
179 (add-after 'unpack 'patch-SHELL
180 (lambda _
181 (substitute* "configure"
182 ;; configure first respects CONFIG_SHELL, clobbers SHELL later.
183 (("/bin/sh")
184 (which "bash")))))
185 (add-after 'configure 'patch-dlopen-paths
186 ;; Hardcode dlopened sonames to absolute paths.
187 (lambda _
188 (let* ((library-path (search-path-as-string->list
189 (getenv "LIBRARY_PATH")))
190 (find-so (lambda (soname)
191 (search-path library-path soname))))
192 (substitute* "include/config.h"
193 (("(#define SONAME_.* )\"(.*)\"" _ defso soname)
194 (format #f "~a\"~a\"" defso (find-so soname)))))))
195 (add-after 'patch-generated-file-shebangs 'patch-makedep
196 (lambda* (#:key outputs #:allow-other-keys)
197 (substitute* "tools/makedep.c"
198 (("output_filenames\\( unix_libs \\);" all)
199 (string-append all
200 "output ( \" -Wl,-rpath=%s \", so_dir );"))))))))
658c987f 201 (home-page "https://www.winehq.org/")
06e57331 202 (synopsis "Implementation of the Windows API (32-bit only)")
8f9580ca
SB		 203 (description
204 "Wine (originally an acronym for \"Wine Is Not an Emulator\") is a
205compatibility layer capable of running Windows applications. Instead of
206simulating internal Windows logic like a virtual machine or emulator, Wine
207translates Windows API calls into POSIX calls on-the-fly, eliminating the
208performance and memory penalties of other methods and allowing you to cleanly
209integrate Windows applications into your desktop.")
7ba2a1af
EF		 210 ;; Any platform should be able to build wine, but based on '#:system' these
211 ;; are thr ones we currently support.
212 (supported-systems '("i686-linux" "x86_64-linux" "armhf-linux"))
cac274aa 213 (license license:lgpl2.1+)))
b3ebd241
RH		 214
215(define-public wine64
216 (package
217 (inherit wine)
218 (name "wine64")
8394619b
LC		 219 (inputs (modify-inputs (package-inputs wine)
220 (prepend wine)))
b3ebd241 221 (arguments
14384d95
LMP		 222 (cons*
223 #:make-flags
224 #~(list "SHELL=bash"
225 (string-append "libdir=" #$output "/lib/wine64"))
226 #:phases
227 #~(modify-phases %standard-phases
228 ;; Explicitly set both the 64-bit and 32-bit versions of vulkan-loader
229 ;; when installing to x86_64-linux so both are available.
230 ;; TODO: Add more JSON files as they become available in Mesa.
231 #$@(match (%current-system)
232 ((or "x86_64-linux")
233 `((add-after 'copy-wine32-binaries 'wrap-executable
234 (lambda* (#:key inputs outputs #:allow-other-keys)
235 (let* ((out (assoc-ref outputs "out"))
236 (icd-files (map
237 (lambda (basename)
238 (search-input-file
239 inputs
240 (string-append "/share/vulkan/icd.d/"
241 basename)))
242 '("radeon_icd.x86_64.json"
243 "intel_icd.x86_64.json"
244 "radeon_icd.i686.json"
245 "intel_icd.i686.json"))))
246 (wrap-program (string-append out "/bin/wine-preloader")
247 `("VK_ICD_FILENAMES" ":" = ,icd-files))
248 (wrap-program (string-append out "/bin/wine64-preloader")
249 `("VK_ICD_FILENAMES" ":" = ,icd-files)))))))
250 (_
251 `()))
252 (add-after 'unpack 'patch-SHELL
253 (lambda _
254 (substitute* "configure"
255 ;; configure first respects CONFIG_SHELL, clobbers SHELL later.
256 (("/bin/sh")
257 (which "bash")))))
258 (add-after 'patch-generated-file-shebangs 'patch-makedep
259 (lambda* (#:key outputs #:allow-other-keys)
260 (substitute* "tools/makedep.c"
261 (("output_filenames\\( unix_libs \\);" all)
262 (string-append all
263 "output ( \" -Wl,-rpath=%s \", so_dir );")))))
264 (add-after 'install 'copy-wine32-binaries
265 (lambda* (#:key inputs outputs #:allow-other-keys)
266 (let ((out (assoc-ref %outputs "out")))
267 ;; Copy the 32-bit binaries needed for WoW64.
268 (copy-file (search-input-file inputs "/bin/wine")
269 (string-append out "/bin/wine"))
270 ;; Copy the real 32-bit wine-preloader instead of the wrapped
271 ;; version.
272 (copy-file (search-input-file inputs "/bin/.wine-preloader-real")
273 (string-append out "/bin/wine-preloader")))))
274 (add-after 'install 'copy-wine32-libraries
275 (lambda* (#:key inputs outputs #:allow-other-keys)
276 (let* ((out (assoc-ref %outputs "out")))
277 (copy-recursively (search-input-directory inputs "/lib/wine32")
278 (string-append out "/lib/wine32")))))
279 (add-after 'compress-documentation 'copy-wine32-manpage
280 (lambda* (#:key inputs outputs #:allow-other-keys)
281 (let* ((out (assoc-ref %outputs "out")))
282 ;; Copy the missing man file for the wine binary from wine.
283 (copy-file (search-input-file inputs "/share/man/man1/wine.1.gz")
284 (string-append out "/share/man/man1/wine.1.gz")))))
285 (add-after 'configure 'patch-dlopen-paths
286 ;; Hardcode dlopened sonames to absolute paths.
287 (lambda _
288 (let* ((library-path (search-path-as-string->list
289 (getenv "LIBRARY_PATH")))
290 (find-so (lambda (soname)
291 (search-path library-path soname))))
292 (substitute* "include/config.h"
293 (("(#define SONAME_.* )\"(.*)\"" _ defso soname)
294 (format #f "~a\"~a\"" defso (find-so soname))))))))
295 #:configure-flags
296 #~(list "--enable-win64"
297 (string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib/wine64"))
298 (strip-keyword-arguments '(#:configure-flags #:make-flags #:phases
299 #:system)
300 (package-arguments wine))))
68e49211 301 (synopsis "Implementation of the Windows API (WoW64 version)")
5010d0e3 302 (supported-systems '("x86_64-linux" "aarch64-linux"))))
f6444059 303
a5466f38
RH		 304;; This minimal build of Wine is needed to prevent a circular dependency with
305;; vkd3d.
306(define-public wine-minimal
307 (package
308 (inherit wine)
309 (name "wine-minimal")
8394619b
LC		 310 (native-inputs (modify-inputs (package-native-inputs wine)
311 (delete "gettext" "perl" "pkg-config")))
a5466f38
RH		 312 (inputs `())
313 (arguments
314 `(#:validate-runpath? #f
d39a54ff
RH		 315 #:phases
316 (modify-phases %standard-phases
ab4cdfe7
TGR		 317 (add-after 'unpack 'patch-SHELL
318 (lambda _
319 (substitute* "configure"
320 ;; configure first respects CONFIG_SHELL, clobbers SHELL later.
321 (("/bin/sh")
322 (which "bash")))))
d39a54ff
RH		 323 (add-after 'configure 'patch-dlopen-paths
324 ;; Hardcode dlopened sonames to absolute paths.
325 (lambda _
326 (let* ((library-path (search-path-as-string->list
327 (getenv "LIBRARY_PATH")))
328 (find-so (lambda (soname)
329 (search-path library-path soname))))
330 (substitute* "include/config.h"
331 (("(#define SONAME_.* )\"(.*)\"" _ defso soname)
ab4cdfe7 332 (format #f "~a\"~a\"" defso (find-so soname))))))))
a5466f38
RH		 333 #:configure-flags
334 (list "--without-freetype"
335 "--without-x")
d39a54ff 336 ,@(strip-keyword-arguments '(#:configure-flags #:phases)
a5466f38
RH		 337 (package-arguments wine))))))
338
f6246195
RH		 339(define-public wine-staging-patchset-data
340 (package
cb2ad4f5 341 (name "wine-staging-patchset-data")
fc49a68f 342 (version "7.8")
cb2ad4f5
RH		 343 (source
344 (origin
345 (method git-fetch)
346 (uri (git-reference
347 (url "https://github.com/wine-staging/wine-staging")
348 (commit (string-append "v" version))))
349 (file-name (git-file-name name version))
350 (sha256
fc49a68f 351 (base32 "02rgpymhqrdr3aamvv6yvpgh82rj1n4adr36mi26cs3zbkx8zb55"))))
cb2ad4f5
RH		 352 (build-system trivial-build-system)
353 (native-inputs
8394619b 354 (list bash coreutils))
cb2ad4f5
RH		 355 (arguments
356 `(#:modules ((guix build utils))
357 #:builder
358 (begin
359 (use-modules (guix build utils))
360 (let* ((build-directory ,(string-append name "-" version))
361 (source (assoc-ref %build-inputs "source"))
362 (bash (assoc-ref %build-inputs "bash"))
363 (coreutils (assoc-ref %build-inputs "coreutils"))
364 (out (assoc-ref %outputs "out"))
365 (wine-staging (string-append out "/share/wine-staging")))
366 (copy-recursively source build-directory)
367 (with-directory-excursion build-directory
368 (substitute* "patches/patchinstall.sh"
369 (("/bin/sh")
370 (string-append bash "/bin/sh")))
371 (substitute* "patches/gitapply.sh"
372 (("/usr/bin/env")
373 (string-append coreutils "/bin/env"))))
374 (copy-recursively build-directory wine-staging)
375 #t))))
376 (home-page "https://github.com/wine-staging")
377 (synopsis "Patchset for Wine")
378 (description
379 "wine-staging-patchset-data contains the patchset to build Wine-Staging.")
380 (license license:lgpl2.1+)))
f6246195 381
7866d8c8
NG		 382(define-public wine-staging
383 (package
384 (inherit wine)
385 (name "wine-staging")
b53b9c8d 386 (version (package-version wine-staging-patchset-data))
b8088be0 387 (source
8252d77f
TGR		 388 (let* ((wine-version (version-major+minor version))
389 (subdirectory (string-append
390 (version-major version)
391 (if (string-suffix? ".0" wine-version)
392 ".0"
393 ".x"))))
394 (origin
395 (method url-fetch)
396 (uri (string-append "https://dl.winehq.org/wine/source/"
397 subdirectory "/"
398 "wine-" wine-version ".tar.xz"))
399 (file-name (string-append name "-" wine-version ".tar.xz"))
400 (sha256
fc49a68f 401 (base32 "1f0r00b6lk59cmpj42b7f2jrd58d7vxfvpp54j7arwjhdg4yjxlg")))))
8394619b
LC		 402 (inputs (modify-inputs (package-inputs wine)
403 (prepend autoconf ; for autoreconf
404 ffmpeg
405 gtk+
406 libva
407 mesa
408 python
409 util-linux ; for hexdump
410 wine-staging-patchset-data)))
39b4744a 411 (arguments
fc49a68f
LMP		 412 (substitute-keyword-arguments (package-arguments wine)
413 ((#:phases phases)
414 #~(modify-phases #$phases
415 (delete 'patch-SHELL)
416 (add-before 'configure 'apply-wine-staging-patches
417 (lambda* (#:key inputs #:allow-other-keys)
418 (invoke (search-input-file
419 inputs
420 "/share/wine-staging/patches/patchinstall.sh")
421 "DESTDIR=."
422 "--all")))
423 (add-after 'apply-wine-staging-patches 'patch-SHELL
424 (assoc-ref #$phases 'patch-SHELL))))))
95c45e53 425 (synopsis "Implementation of the Windows API (staging branch, 32-bit only)")
7866d8c8
NG		 426 (description "Wine-Staging is the testing area of Wine. It
427contains bug fixes and features, which have not been integrated into
428the development branch yet. The idea of Wine-Staging is to provide
429experimental features faster to end users and to give developers the
430possibility to discuss and improve their patches before they are
431integrated into the main branch.")
b53b9c8d 432 (home-page "https://github.com/wine-staging")
7866d8c8
NG		 433 ;; In addition to the regular Wine license (lgpl2.1+), Wine-Staging
434 ;; provides Liberation and WenQuanYi Micro Hei fonts. Those use
435 ;; different licenses. In particular, the latter is licensed under
436 ;; both GPL3+ and Apache 2 License.
437 (license
438 (list license:lgpl2.1+ license:silofl1.1 license:gpl3+ license:asl2.0))))
6cd46747
RH		 439
440(define-public wine64-staging
441 (package
442 (inherit wine-staging)
443 (name "wine64-staging")
8394619b
LC		 444 (inputs (modify-inputs (package-inputs wine-staging)
445 (prepend wine-staging)))
6cd46747 446 (arguments
fc49a68f
LMP		 447 (substitute-keyword-arguments (package-arguments wine64)
448 ((#:phases phases)
449 #~(modify-phases #$phases
450 (delete 'patch-SHELL)
451 (add-before 'configure 'apply-wine-staging-patches
452 (lambda* (#:key inputs #:allow-other-keys)
453 (invoke (search-input-file
454 inputs
455 "/share/wine-staging/patches/patchinstall.sh")
456 "DESTDIR=."
457 "--all")))
458 (add-after 'apply-wine-staging-patches 'patch-SHELL
459 (assoc-ref #$phases 'patch-SHELL))))))
1adc6013 460 (synopsis "Implementation of the Windows API (staging branch, WoW64
6cd46747
RH		 461version)")
462 (supported-systems '("x86_64-linux" "aarch64-linux"))))
76dbadac
PN		 463
464(define dxvk32
465 ;; This package provides 32-bit dxvk libraries on 64-bit systems.
466 (package
467 (name "dxvk32")
adb1e3b6 468 (version "1.5.5")
76dbadac
PN		 469 (home-page "https://github.com/doitsujin/dxvk/")
470 (source (origin
471 (method git-fetch)
472 (uri (git-reference
473 (url home-page)
474 (commit (string-append "v" version))))
475 (file-name (git-file-name name version))
476 (sha256
477 (base32
adb1e3b6 478 "1inl0qswgvbp0fs76md86ilqf9mbshkpjm8ga81khn9zd6v3fvan"))))
76dbadac
PN		 479 (build-system meson-build-system)
480 (arguments
481 `(#:system "i686-linux"
482 #:configure-flags (list "--cross-file"
483 (string-append (assoc-ref %build-inputs "source")
484 "/build-wine32.txt"))))
485 (native-inputs
e661f4ef 486 `(("glslang" ,glslang)))
f2c71f62
PN		 487 (inputs
488 `(("wine" ,wine-staging)))
489 (synopsis "Vulkan-based D3D9, D3D10 and D3D11 implementation for Wine")
490 (description "A Vulkan-based translation layer for Direct3D 9/10/11 which
76dbadac
PN		 491allows running complex 3D applications with high performance using Wine.
492
493Use @command{setup_dxvk} to install the required libraries to a Wine prefix.")
494 (supported-systems '("x86_64-linux"))
495 (license license:zlib)))
496
497(define-public dxvk
498 (package
499 (inherit dxvk32)
500 (name "dxvk")
501 (arguments
502 `(#:configure-flags (list "--cross-file"
503 (string-append (assoc-ref %build-inputs "source")
504 "/build-wine"
223492f3
PN		 505 ,(match (%current-system)
506 ("x86_64-linux" "64")
507 (_ "32"))
76dbadac
PN		 508 ".txt"))
509 #:phases
510 (modify-phases %standard-phases
511 ,@(if (string=? (%current-system) "x86_64-linux")
512 `((add-after 'unpack 'install-32
513 (lambda* (#:key inputs outputs #:allow-other-keys)
514 (let* ((out (assoc-ref outputs "out"))
515 (dxvk32 (assoc-ref inputs "dxvk32")))
516 (mkdir-p (string-append out "/lib32"))
517 (copy-recursively (string-append dxvk32 "/lib")
3842baa0
PN		 518 (string-append out "/lib32"))
519 #t))))
76dbadac
PN		 520 '())
521 (add-after 'install 'install-setup
522 (lambda* (#:key inputs outputs #:allow-other-keys)
523 (let* ((out (assoc-ref outputs "out"))
524 (bin (string-append out "/bin/setup_dxvk")))
525 (mkdir-p (string-append out "/bin"))
526 (copy-file "../source/setup_dxvk.sh"
527 bin)
528 (chmod bin #o755)
529 (substitute* bin
530 (("wine=\"wine\"")
531 (string-append "wine=" (assoc-ref inputs "wine") "/bin/wine"))
532 (("x32") ,(match (%current-system)
533 ("x86_64-linux" "../lib32")
534 (_ "../lib")))
535 (("x64") "../lib"))))))))
223492f3
PN		 536 (inputs
537 `(("wine" ,(match (%current-system)
f2c71f62
PN		 538 ;; ("x86_64-linux" wine64)
539 ("x86_64-linux" wine64-staging)
540 ;; ("x86_64-linux" mingw-w64-x86_64)
76dbadac
PN		 541 (_ wine)))
542 ,@(match (%current-system)
543 ("x86_64-linux"
544 `(("dxvk32" ,dxvk32)))
98e3953e 545 (_ '()))))
76dbadac 546 (supported-systems '("i686-linux" "x86_64-linux"))))
jackhill's copy of GNU Guix: https://guix.gnu.org/