Archived
1
0
Fork 0

gnu: mesa-utils: Install eglinfo.

* gnu/packages/gl.scm (mesa-utils)[inputs]: Remove input labels.
[arguments]: Install eglinfo to bin.

Signed-off-by: Marius Bakke <marius@gnu.org>
This commit is contained in:
Petr Hodina 2022-09-30 21:21:15 +02:00 committed by Marius Bakke
parent 12ae7cb61a
commit 227a3a1d71
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA

View file

@ -587,30 +587,29 @@ from software emulation to complete hardware acceleration for modern GPUs.")
(source (mesa-demos-source version)) (source (mesa-demos-source version))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("mesa" ,mesa) (list mesa freeglut glew))
("glut" ,freeglut)
("glew" ,glew)))
(native-inputs (native-inputs
(list pkg-config)) (list pkg-config))
(arguments (arguments
'(#:phases (list
(modify-phases %standard-phases #:phases
(replace #~(modify-phases %standard-phases
'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out #$output))
(mkdir-p (string-append out "/bin")) (mkdir-p (string-append out "/bin"))
(for-each (for-each (lambda (file)
(lambda (file) (copy-file file
(copy-file file (string-append out "/bin/" (basename file)))) (string-append out "/bin/"
(basename file))))
'("src/xdemos/glxdemo" "src/xdemos/glxgears" '("src/xdemos/glxdemo" "src/xdemos/glxgears"
"src/xdemos/glxinfo" "src/xdemos/glxheads")) "src/egl/opengl/eglinfo"
#t)))))) "src/xdemos/glxinfo" "src/xdemos/glxheads"))))))))
(home-page "https://mesa3d.org/") (home-page "https://mesa3d.org/")
(synopsis "Utility tools for Mesa") (synopsis "Utility tools for Mesa")
(description (description
"The mesa-utils package contains several utility tools for Mesa: glxdemo, "The mesa-utils package contains several utility tools for Mesa: eglinfo,
glxgears, glxheads, and glxinfo.") glxdemo, glxgears, glxheads, and glxinfo.")
;; glxdemo is public domain; others expat. ;; glxdemo is public domain; others expat.
(license (list license:expat license:public-domain)))) (license (list license:expat license:public-domain))))