nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: graphviz: Build the Guile bindings. 

* gnu/packages/graphviz.scm (graphviz)[inputs]: Add SWIG and GUILE-2.0.
[arguments]: Add 'move-guile-bindings' phase.

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Roel Janssen 2016-05-10 15:54:01 +02:00 committed by Ludovic Courtès
parent 22c161d0a8
commit 93d2456cfc
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gnu/packages/graphviz.scm
View File

@ -25,6 +25,7 @@
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages xml) #:use-module (gnu packages xml)
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
#:use-module (gnu packages guile)
#:use-module (gnu packages bison) #:use-module (gnu packages bison)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
@ -32,6 +33,7 @@
#:use-module (gnu packages fontutils) #:use-module (gnu packages fontutils)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages gd) #:use-module (gnu packages gd)
#:use-module (gnu packages swig)
#:use-module ((guix licenses) #:select (lgpl2.0+ epl1.0))) #:use-module ((guix licenses) #:select (lgpl2.0+ epl1.0)))
(define-public graphviz (define-public graphviz
@ -69,12 +71,26 @@
(rename-file (string-append out "/share/graphviz/doc") (rename-file (string-append out "/share/graphviz/doc")
(string-append doc "/share/graphviz/doc")) (string-append doc "/share/graphviz/doc"))
#t)) #t))
%standard-phases)))) (alist-cons-after
'move-docs 'move-guile-bindings
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib"))
(extdir (string-append lib
"/guile/2.0/extensions")))
(mkdir-p extdir)
(rename-file (string-append
lib "/graphviz/guile/libgv_guile.so")
(string-append extdir
"/libgv_guile.so"))))
%standard-phases)))))
(inputs (inputs
`(("libXrender" ,libxrender) `(("libXrender" ,libxrender)
("libX11" ,libx11) ("libX11" ,libx11)
("gts" ,gts) ("gts" ,gts)
("gd" ,gd) ; FIXME: Our GD is too old ("gd" ,gd) ; FIXME: Our GD is too old
("guile" ,guile-2.0) ;Guile bindings
("swig" ,swig)
("pango" ,pango) ("pango" ,pango)
("fontconfig" ,fontconfig) ("fontconfig" ,fontconfig)
("freetype" ,freetype) ("freetype" ,freetype)