me/guix
Archived
1
0
Fork 0
Code Activity

gnu: libepoxy: Use new style.

Browse source 
* gnu/packages/gl.scm (libepoxy)[arguments]: Use gexp and remove labels.
While at it, remove obsolete substitution.
This commit is contained in:
Marius Bakke 2022-06-23 19:10:12 +02:00
parent 32c676bbcd
commit 2692624ecf
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 10 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
gnu/packages/gl.scm
View file

@ -68,6 +68,7 @@
#:use-module (guix build-system waf) #:use-module (guix build-system waf)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix gexp)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module ((srfi srfi-1) #:hide (zip))) #:use-module ((srfi srfi-1) #:hide (zip)))
@ -727,17 +728,15 @@ OpenGL graphics API.")
(base32 (base32
"0jw02bzdwynyrwsn5rhcacv92h9xx928j3xp436f8gdnwlyb5641")))) "0jw02bzdwynyrwsn5rhcacv92h9xx928j3xp436f8gdnwlyb5641"))))
(arguments (arguments
'(#:phases (list
(modify-phases %standard-phases #:phases
(add-before 'configure 'patch-paths #~(modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-before 'configure 'patch-paths
(let ((python (assoc-ref inputs "python")) (lambda* (#:key inputs #:allow-other-keys)
(mesa (assoc-ref inputs "mesa"))) (let ((mesa (dirname (search-input-file inputs "lib/libGL.so"))))
(substitute* "src/gen_dispatch.py" (substitute* (find-files "." "\\.[ch]$")
(("/usr/bin/env python") python)) (("libGL.so.1") (string-append mesa "/libGL.so.1"))
(substitute* (find-files "." "\\.[ch]$") (("libEGL.so.1") (string-append mesa "/libEGL.so.1")))))))))
(("libGL.so.1") (string-append mesa "/lib/libGL.so.1"))
(("libEGL.so.1") (string-append mesa "/lib/libEGL.so.1")))))))))
(build-system meson-build-system) (build-system meson-build-system)
(native-inputs (native-inputs
(list pkg-config python)) (list pkg-config python))