gnu: retroarch: Fix wayland backend.

* gnu/packages/emulators.scm (retroarch): Fix wayland backend.
[arguments]: Hard-code wayland-protocols.
[native-inputs]: Add wayland-protocols.
This commit is contained in:
Rutger Helling 2019-02-05 11:36:22 +01:00
parent fd9a6d83c2
commit 12a3abc6cc
No known key found for this signature in database
GPG Key ID: F3A727DB44FCCA36
1 changed files with 6 additions and 1 deletions

View File

@ -1072,10 +1072,14 @@ emulation community. It provides highly accurate emulation.")
(lambda* (#:key inputs 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-loader"))) (vulkan (assoc-ref inputs "vulkan-loader"))
(wayland-protocols (assoc-ref inputs "wayland-protocols")))
;; Hard-code the path to libvulkan.so. ;; Hard-code the path to libvulkan.so.
(substitute* "gfx/common/vulkan_common.c" (substitute* "gfx/common/vulkan_common.c"
(("libvulkan.so") (string-append vulkan "/lib/libvulkan.so"))) (("libvulkan.so") (string-append vulkan "/lib/libvulkan.so")))
(substitute* "gfx/common/wayland/generate_wayland_protos.sh"
(("/usr/local/share/wayland-protocols")
(string-append wayland-protocols "/share/wayland-protocols")))
(substitute* "qb/qb.libs.sh" (substitute* "qb/qb.libs.sh"
(("/bin/true") (which "true"))) (("/bin/true") (which "true")))
;; Use shared zlib. ;; Use shared zlib.
@ -1114,6 +1118,7 @@ emulation community. It provides highly accurate emulation.")
("zlib" ,zlib))) ("zlib" ,zlib)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("wayland-protocols" ,wayland-protocols)
("which" ,which))) ("which" ,which)))
(home-page "https://www.libretro.com/") (home-page "https://www.libretro.com/")
(synopsis "Reference frontend for the libretro API") (synopsis "Reference frontend for the libretro API")