1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
3 ;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org>
4 ;;; Copyright © 2016 Nicolas Goaziou <mail@nicolasgoaziou.fr>
6 ;;; This file is part of GNU Guix.
8 ;;; GNU Guix is free software; you can redistribute it and/or modify it
9 ;;; under the terms of the GNU General Public License as published by
10 ;;; the Free Software Foundation; either version 3 of the License, or (at
11 ;;; your option) any later version.
13 ;;; GNU Guix is distributed in the hope that it will be useful, but
14 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;;; GNU General Public License for more details.
18 ;;; You should have received a copy of the GNU General Public License
19 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
21 (define-module (gnu packages plotutils)
22 #:use-module ((guix licenses) #:prefix license:)
23 #:use-module (guix packages)
24 #:use-module (guix download)
25 #:use-module (guix build-system gnu)
26 #:use-module (gnu packages algebra)
27 #:use-module (gnu packages bdw-gc)
28 #:use-module (gnu packages emacs)
29 #:use-module (gnu packages xorg)
30 #:use-module (gnu packages image)
31 #:use-module (gnu packages ghostscript)
32 #:use-module (gnu packages guile)
33 #:use-module (gnu packages gl)
34 #:use-module (gnu packages gtk)
35 #:use-module (gnu packages maths)
36 #:use-module (gnu packages perl)
37 #:use-module (gnu packages pkg-config)
38 #:use-module (gnu packages python)
39 #:use-module (gnu packages readline)
40 #:use-module (gnu packages texinfo)
41 #:use-module (gnu packages tex)
42 #:use-module (gnu packages compression)
43 #:use-module (gnu packages))
45 (define-public plotutils
51 (uri (string-append "mirror://gnu/plotutils/plotutils-"
55 "1arkyizn5wbgvbh53aziv3s6lmd3wm9lqzkhxb3hijlp1y124hjg"))
56 (patches (search-patches "plotutils-libpng-jmpbuf.patch"))
57 (modules '((guix build utils)))
59 ;; Force the use of libXaw7 instead of libXaw. When not doing
60 ;; that, libplot.la ends up containing just "-lXaw" (without
61 ;; "-L/path/to/Xaw"), due to the fact that there is no
62 ;; libXaw.la, which forces us to propagate libXaw.
63 '(substitute* "configure"
66 (build-system gnu-build-system)
67 (inputs `(("libpng" ,libpng)
73 "http://www.gnu.org/software/plotutils/")
74 (synopsis "Plotting utilities and library")
76 "GNU Plotutils is a package for plotting and working with 2D graphics.
77 It includes a library, \"libplot\", for C and C++ for exporting 2D vector
78 graphics in many file formats. It also has support for 2D vector graphics
79 animations. The package also contains command-line programs for plotting
81 (license license:gpl2+)))
83 (define-public guile-charting
85 (name "guile-charting")
89 (uri (string-append "http://wingolog.org/pub/guile-charting/"
90 "guile-charting-" version ".tar.gz"))
93 "0w5qiyv9v0ip5li22x762bm48g8xnw281w66iyw094zdw611pb2m"))
94 (modules '((guix build utils)))
97 ;; Use the standard location for modules.
98 (substitute* "Makefile.in"
100 "godir = $(moddir)\n"))))))
101 (build-system gnu-build-system)
102 (native-inputs `(("pkg-config" ,pkg-config)))
103 (inputs `(("guile" ,guile-2.0)))
104 (propagated-inputs `(("guile-cairo" ,guile-cairo)))
105 (home-page "http://wingolog.org/software/guile-charting/")
106 (synopsis "Create charts and graphs in Guile")
108 "Guile-Charting is a Guile Scheme library to create bar charts and graphs
109 using the Cairo drawing library.")
110 (license license:lgpl2.1+)))
112 (define-public ploticus
118 (uri (string-append "mirror://sourceforge/ploticus/ploticus/"
119 version "/ploticus242_src.tar.gz"))
122 "1c70cvfvgjh83hj1x21130wb9qfr2rc0x47cxy9kl805yjwy8a9z"))
123 (modules '((guix build utils)))
125 ;; Install binaries in the right place.
126 '(substitute* "src/Makefile"
128 (string-append "INSTALLBIN = $(out)/bin"))))))
129 (build-system gnu-build-system)
133 (modify-phases %standard-phases
134 (replace 'configure (lambda _ (chdir "src")))
135 (add-before 'install 'make-target-directories
136 (lambda* (#:key outputs #:allow-other-keys)
137 (let ((out (assoc-ref outputs "out")))
138 (mkdir-p (string-append out "/bin"))
140 (add-after 'install 'install-prefabs
141 (lambda* (#:key outputs #:allow-other-keys)
142 (let* ((out (assoc-ref outputs "out"))
143 (dir (string-append out
144 "/share/ploticus/prefabs"))
145 (bin (string-append out "/bin")))
148 ;; Install "prefabs".
149 (for-each (lambda (file)
151 (string-append dir "/"
153 (copy-file file target)))
154 (find-files "../prefabs" "."))
156 ;; Allow them to be found.
157 (wrap-program (string-append bin "/pl")
158 `("PLOTICUS_PREFABS" ":" = (,dir)))))))))
163 (home-page "http://ploticus.sourceforge.net/")
164 (synopsis "Command-line tool for producing plots and charts")
166 "Ploticus is a non-interactive software package for producing plots,
167 charts, and graphics from data. Ploticus is good for automated or
168 just-in-time graph generation, handles date and time data nicely, and has
169 basic statistical capabilities. It allows significant user control over
170 colors, styles, options and details.")
171 (license license:gpl2+)))
173 (define-public asymptote
179 (uri (string-append "mirror://sourceforge/asymptote/"
180 version "/asymptote-" version ".src.tgz"))
183 "08hy8hgh217df9kwznr22mg8vxxh3rbmbxgx3nqhxyggc9xqy544"))))
184 (build-system gnu-build-system)
185 ;; Note: The 'asy' binary retains a reference to docdir for use with its
186 ;; "help" command in interactive mode, so adding a "doc" output is not
189 `(("gs" ,ghostscript) ;For tests
190 ("texinfo" ,texinfo) ;For generating documentation
191 ("texlive" ,texlive) ;For tests and documentation
192 ("emacs" ,emacs-minimal)
196 ("freeglut" ,freeglut)
200 ("readline" ,readline)
203 `(#:modules ((guix build emacs-utils)
204 (guix build gnu-build-system)
207 #:imported-modules (,@%gnu-build-system-modules
208 (guix build emacs-utils))
210 (list (string-append "--enable-gc=" (assoc-ref %build-inputs "libgc"))
211 (string-append "--with-latex="
212 (assoc-ref %outputs "out")
213 "/share/texmf/tex/latex")
214 (string-append "--with-context="
215 (assoc-ref %outputs "out")
216 "/share/texmf/tex/context/third"))
218 (modify-phases %standard-phases
219 (add-before 'build 'patch-pdf-viewer
221 ;; Default to a free pdf viewer.
222 (substitute* "settings.cc"
223 (("defaultPDFViewer=\"acroread\"")
224 "defaultPDFViewer=\"gv\""))
226 (add-before 'check 'set-HOME
227 ;; Some tests require write access to $HOME, otherwise leading to
228 ;; "failed to create directory /homeless-shelter/.asy" error.
230 (setenv "HOME" "/tmp")
232 (add-after 'install 'install-Emacs-data
233 (lambda* (#:key outputs #:allow-other-keys)
234 ;; Install related Emacs libraries into an appropriate location.
235 (let* ((out (assoc-ref outputs "out"))
236 (lisp-dir (string-append out "/share/emacs/site-lisp")))
237 (for-each (cut install-file <> lisp-dir)
238 (find-files "." "\\.el$"))
239 (emacs-generate-autoloads ,name lisp-dir))
241 (home-page "http://asymptote.sourceforge.net")
242 (synopsis "Script-based vector graphics language")
244 "Asymptote is a powerful descriptive vector graphics language for
245 technical drawing, inspired by MetaPost but with an improved C++-like syntax.
246 Asymptote provides for figures the same high-quality level of typesetting that
247 LaTeX does for scientific text.")
248 ;; Most source files do not contain license statements, but the README
249 ;; contains: "All source files in the Asymptote project, unless explicitly
250 ;; noted otherwise, are released under version 3 (or later) of the GNU
251 ;; Lesser General Public License"
252 (license license:lgpl3+)))