ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: guile-opengl: Fix linking with libGL.so.

Browse source 
* gnu/packages/gl.scm (guile-opengl)[arguments]: Fix reference to libGL.so.
This commit is contained in:
Ricardo Wurmus 2021-03-15 11:57:56 +01:00
parent 6e0ed09e68
commit 21bc326b9a
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/packages/gl.scm
View file

@ -4,7 +4,7 @@
;;; Copyright © 2014, 2016 David Thompson <davet@gnu.org> ;;; Copyright © 2014, 2016 David Thompson <davet@gnu.org>
;;; Copyright © 2014, 2015, 2016, 2017 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2015, 2016, 2017 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Nikita <nikita@n0.is> ;;; Copyright © 2016 Nikita <nikita@n0.is>
;;; Copyright © 2016, 2017, 2018, 2020 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016, 2017, 2018, 2020, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 David Thompson <davet@gnu.org> ;;; Copyright © 2016 David Thompson <davet@gnu.org>
;;; Copyright © 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
@ -600,6 +600,11 @@ (define-public guile-opengl
"godir = $(moddir)\n")))) "godir = $(moddir)\n"))))
(add-before 'build 'patch-dynamic-link (add-before 'build 'patch-dynamic-link
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(substitute* "gl/runtime.scm"
(("\\(dynamic-link\\)")
(string-append "(dynamic-link \""
(assoc-ref inputs "mesa")
"/lib/libGL.so" "\")")))
(define (dynamic-link-substitute file lib input) (define (dynamic-link-substitute file lib input)
(substitute* file (substitute* file
(("dynamic-link \"lib([a-zA-Z]+)\"" _ lib) (("dynamic-link \"lib([a-zA-Z]+)\"" _ lib)