ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: wine-staging: Enable Vulkan support.

Browse source 
* gnu/packages/wine.scm (wine-staging)[inputs]: Add vulkan-icd-loader.
[arguments]: Don't inherit phases. Add 'hardcode-libvulkan-path phase.
This commit is contained in:
Rutger Helling 2018-01-31 09:34:47 +01:00
parent 8b9dbdf36f
commit 39b4744a07
No known key found for this signature in database
GPG key ID: F3A727DB44FCCA36
1 changed files with 26 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
gnu/packages/wine.scm
View file

@ -54,6 +54,7 @@ (define-module (gnu packages wine)
#:use-module (gnu packages scanner)
#:use-module (gnu packages tls)
#:use-module (gnu packages video)
#:use-module (gnu packages vulkan)
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg)
#:use-module (ice-9 match))
@ -227,7 +228,32 @@ (define-public wine-staging
"1pjaxj7h3q6y356np908fvsx0bf7yx5crqvgl4hza6gfssdmsr5r"))))
(inputs `(("gtk+", gtk+)
("libva", libva)
("vulkan-icd-loader" ,vulkan-icd-loader)
,@(package-inputs wine)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'configure 'hardcode-libvulkan-path
(lambda* (#:key outputs #:allow-other-keys)
(let* ((libvulkan (string-append (assoc-ref %build-inputs
"vulkan-icd-loader") "/lib/libvulkan.so")))
;; Hard-code the path to libvulkan.so.
(substitute* "dlls/vulkan/vulkan_thunks.c" (("libvulkan.so")
libvulkan))
#t)))
(add-after 'configure 'patch-dlopen-paths
;; Hardcode dlopened sonames to absolute paths.
(lambda _
(let* ((library-path (search-path-as-string->list
(getenv "LIBRARY_PATH")))
(find-so (lambda (soname)
(search-path library-path soname))))
(substitute* "include/config.h"
(("(#define SONAME_.* )\"(.*)\"" _ defso soname)
(format #f "~a\"~a\"" defso (find-so soname))))
#t))))
,@(strip-keyword-arguments '(#:phases)
(package-arguments wine))))
(synopsis "Implementation of the Windows API (staging branch, 32-bit only)")
(description "Wine-Staging is the testing area of Wine. It
contains bug fixes and features, which have not been integrated into