gnu: mesa: Use 'modify-phases'.

* gnu/packages/gl.scm (mesa)[arguments]: Use 'modify-phases' syntax.
This commit is contained in:
Efraim Flashner 2016-08-23 21:18:39 +03:00
parent 5c6d027306
commit e8a7a180e8
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 38 additions and 37 deletions

View File

@ -252,14 +252,16 @@ also known as DXTn or DXTC) for Mesa.")
'()) '())
(_ (_
'("--with-dri-drivers=nouveau,r200,radeon,swrast")))) '("--with-dri-drivers=nouveau,r200,radeon,swrast"))))
#:phases (alist-cons-after #:phases
(modify-phases %standard-phases
(add-after
'unpack 'patch-create_test_cases 'unpack 'patch-create_test_cases
(lambda _ (lambda _
(substitute* "src/compiler/glsl/tests/lower_jumps/create_test_cases.py" (substitute* "src/compiler/glsl/tests/lower_jumps/create_test_cases.py"
(("/usr/bin/env bash") (which "bash"))) (("/usr/bin/env bash") (which "bash")))
(substitute* "src/intel/genxml/gen_pack_header.py" (substitute* "src/intel/genxml/gen_pack_header.py"
(("/usr/bin/env python2") (which "python")))) (("/usr/bin/env python2") (which "python")))))
(alist-cons-before (add-before
'build 'fix-dlopen-libnames 'build 'fix-dlopen-libnames
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((s2tc (assoc-ref inputs "s2tc")) (let ((s2tc (assoc-ref inputs "s2tc"))
@ -287,8 +289,7 @@ also known as DXTn or DXTC) for Mesa.")
;; it's never installed since Mesa removed its ;; it's never installed since Mesa removed its
;; egl_gallium support. ;; egl_gallium support.
(("\"gbm_dri\\.so") (("\"gbm_dri\\.so")
(string-append "\"" out "/lib/dri/gbm_dri.so"))))) (string-append "\"" out "/lib/dri/gbm_dri.so")))))))))
%standard-phases))))
(home-page "http://mesa3d.org/") (home-page "http://mesa3d.org/")
(synopsis "OpenGL implementation") (synopsis "OpenGL implementation")
(description "Mesa is a free implementation of the OpenGL specification - (description "Mesa is a free implementation of the OpenGL specification -