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:
parent
9286e0ec81
commit
01564e5ab5
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue