gnu: retroarch: Enable Vulkan support.

* gnu/packages/games.scm (retroarch)[arguments]: Hard-code the path to
libvulkan.so.
[inputs]: Add vulkan-icd-loader.

Signed-off-by: Marius Bakke <mbakke@fastmail.com>
This commit is contained in:
Rutger Helling 2017-12-10 11:15:03 +01:00 committed by Marius Bakke
parent 9286e0ec81
commit 01564e5ab5
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 8 additions and 2 deletions

View File

@ -134,6 +134,7 @@
#:use-module (gnu packages gnuzilla) #:use-module (gnu packages gnuzilla)
#:use-module (gnu packages icu4c) #:use-module (gnu packages icu4c)
#:use-module (gnu packages networking) #:use-module (gnu packages networking)
#:use-module (gnu packages vulkan)
#:use-module (gnu packages web) #:use-module (gnu packages web)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system haskell) #:use-module (guix build-system haskell)
@ -1443,9 +1444,13 @@ either by Infocom or created using the Inform compiler.")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(etc (string-append out "/etc"))) (etc (string-append out "/etc"))
(vulkan (assoc-ref inputs "vulkan-icd-loader")))
;; Hard-code the path to libvulkan.so.
(substitute* "gfx/common/vulkan_common.c"
(("libvulkan.so") (string-append vulkan "/lib/libvulkan.so")))
(substitute* "qb/qb.libs.sh" (substitute* "qb/qb.libs.sh"
(("/bin/true") (which "true"))) (("/bin/true") (which "true")))
;; The configure script does not yet accept the extra arguments ;; The configure script does not yet accept the extra arguments
@ -1468,6 +1473,7 @@ either by Infocom or created using the Inform compiler.")
("python" ,python) ("python" ,python)
("sdl" ,sdl2) ("sdl" ,sdl2)
("udev" ,eudev) ("udev" ,eudev)
("vulkan-icd-loader" ,vulkan-icd-loader)
("wayland", wayland) ("wayland", wayland)
("zlib" ,zlib))) ("zlib" ,zlib)))
(native-inputs (native-inputs