guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

gnu: Add guile-opengl.

Browse source 
* gnu/packages/gl.scm (guile-opengl): New variable.
This commit is contained in:
David Thompson 2014-06-24 21:59:47 -04:00
parent d0ed39be55
commit 7025a035df
1 changed files with 43 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
gnu/packages/gl.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2013 Guy Grant <gzg@riseup.net> ;;; Copyright © 2013 Guy Grant <gzg@riseup.net>
;;; Copyright © 2014 David Thompson <davet@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -30,7 +31,8 @@
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages xorg) #:use-module (gnu packages xorg)
#:use-module (gnu packages xml) #:use-module (gnu packages xml)
#:use-module (gnu packages fontutils)) #:use-module (gnu packages fontutils)
#:use-module (gnu packages guile))
(define-public glu (define-public glu
(package (package
@ -170,3 +172,43 @@ a system for rendering interactive 3D graphics. A variety of device drivers
allows Mesa to be used in many different environments ranging from software allows Mesa to be used in many different environments ranging from software
emulation to complete hardware acceleration for modern GPUs.") emulation to complete hardware acceleration for modern GPUs.")
(license l:x11))) (license l:x11)))
(define-public guile-opengl
(package
(name "guile-opengl")
(version "0.1.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/guile-opengl/guile-opengl-"
version ".tar.gz"))
(sha256
(base32
"13qfx4xh8baryxqrv986l848ygd0piqwm6s2s90pxk9c0m9vklim"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("guile" ,guile-2.0)
("mesa" ,mesa)
("freeglut" ,freeglut)))
(arguments
'(#:phases (alist-cons-before
'build 'patch-dynamic-link
(lambda* (#:key inputs outputs #:allow-other-keys)
(define (dynamic-link-substitute file lib input)
(substitute* file
(("dynamic-link \"lib([a-zA-Z]+)\"" _ lib)
(string-append "dynamic-link \""
(assoc-ref inputs input)
"/lib/lib" lib "\""))))
;; Replace dynamic-link calls for libGL, libGLU, and
;; libglut with absolute paths to the store.
(dynamic-link-substitute "glx/runtime.scm" "GL" "mesa")
(dynamic-link-substitute "glu/runtime.scm" "GLU" "mesa")
(dynamic-link-substitute "glut/runtime.scm" "glut"
"freeglut"))
%standard-phases)))
(home-page "http://gnu.org/s/guile-opengl")
(synopsis "OpenGL bindings for Guile")
(description
"GNU Guile-OpenGL is a library providing access to the OpenGL graphics
API from GNU Guile.")
(license l:lgpl3+)))