1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
3 ;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org>
4 ;;; Copyright © 2016, 2017, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
5 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
7 ;;; This file is part of GNU Guix.
9 ;;; GNU Guix is free software; you can redistribute it and/or modify it
10 ;;; under the terms of the GNU General Public License as published by
11 ;;; the Free Software Foundation; either version 3 of the License, or (at
12 ;;; your option) any later version.
14 ;;; GNU Guix is distributed in the hope that it will be useful, but
15 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;;; GNU General Public License for more details.
19 ;;; You should have received a copy of the GNU General Public License
20 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
22 (define-module (gnu packages plotutils)
23 #:use-module ((guix licenses) #:prefix license:)
24 #:use-module (guix packages)
25 #:use-module (guix download)
26 #:use-module (guix build-system gnu)
27 #:use-module (gnu packages algebra)
28 #:use-module (gnu packages bdw-gc)
29 #:use-module (gnu packages emacs)
30 #:use-module (gnu packages xorg)
31 #:use-module (gnu packages image)
32 #:use-module (gnu packages ghostscript)
33 #:use-module (gnu packages guile)
34 #:use-module (gnu packages gl)
35 #:use-module (gnu packages gtk)
36 #:use-module (gnu packages maths)
37 #:use-module (gnu packages perl)
38 #:use-module (gnu packages pkg-config)
39 #:use-module (gnu packages python)
40 #:use-module (gnu packages python-xyz)
41 #:use-module (gnu packages readline)
42 #:use-module (gnu packages qt)
43 #:use-module (gnu packages texinfo)
44 #:use-module (gnu packages tex)
45 #:use-module (gnu packages compression)
46 #:use-module (gnu packages))
48 (define-public plotutils
54 (uri (string-append "mirror://gnu/plotutils/plotutils-"
58 "1arkyizn5wbgvbh53aziv3s6lmd3wm9lqzkhxb3hijlp1y124hjg"))
59 (patches (search-patches "plotutils-libpng-jmpbuf.patch"))
60 (modules '((guix build utils)))
62 ;; Force the use of libXaw7 instead of libXaw. When not doing
63 ;; that, libplot.la ends up containing just "-lXaw" (without
64 ;; "-L/path/to/Xaw"), due to the fact that there is no
65 ;; libXaw.la, which forces us to propagate libXaw.
67 (substitute* "configure"
71 (build-system gnu-build-system)
72 (inputs `(("libpng" ,libpng)
78 "http://www.gnu.org/software/plotutils/")
79 (synopsis "Plotting utilities and library")
81 "GNU Plotutils is a package for plotting and working with 2D graphics.
82 It includes a library, \"libplot\", for C and C++ for exporting 2D vector
83 graphics in many file formats. It also has support for 2D vector graphics
84 animations. The package also contains command-line programs for plotting
86 (license license:gpl2+)))
88 (define-public guile-charting
90 (name "guile-charting")
94 (uri (string-append "http://wingolog.org/pub/guile-charting/"
95 "guile-charting-" version ".tar.gz"))
98 "0w5qiyv9v0ip5li22x762bm48g8xnw281w66iyw094zdw611pb2m"))
99 (modules '((guix build utils)))
102 ;; By default, .go files would be installed to
103 ;; $libdir/…/ccache instead of $libdir/…/site-ccache. Fix
105 (substitute* (find-files "." "^Makefile\\.in$")
106 (("/ccache") "/site-ccache"))
108 (build-system gnu-build-system)
109 (native-inputs `(("pkg-config" ,pkg-config)))
110 (inputs `(("guile" ,guile-2.2)))
111 (propagated-inputs `(("guile-cairo" ,guile-cairo)))
112 (home-page "http://wingolog.org/software/guile-charting/")
113 (synopsis "Create charts and graphs in Guile")
115 "Guile-Charting is a Guile Scheme library to create bar charts and graphs
116 using the Cairo drawing library.")
117 (license license:lgpl2.1+)))
119 (define-public ploticus
125 (uri (string-append "mirror://sourceforge/ploticus/ploticus/"
126 version "/ploticus242_src.tar.gz"))
129 "1c70cvfvgjh83hj1x21130wb9qfr2rc0x47cxy9kl805yjwy8a9z"))
130 (modules '((guix build utils)))
132 ;; Install binaries in the right place.
134 (substitute* "src/Makefile"
136 (string-append "INSTALLBIN = $(out)/bin")))
138 (build-system gnu-build-system)
142 (modify-phases %standard-phases
143 (replace 'configure (lambda _ (chdir "src")))
144 (add-before 'install 'make-target-directories
145 (lambda* (#:key outputs #:allow-other-keys)
146 (let ((out (assoc-ref outputs "out")))
147 (mkdir-p (string-append out "/bin"))
149 (add-after 'install 'install-prefabs
150 (lambda* (#:key outputs #:allow-other-keys)
151 (let* ((out (assoc-ref outputs "out"))
152 (dir (string-append out
153 "/share/ploticus/prefabs"))
154 (bin (string-append out "/bin")))
157 ;; Install "prefabs".
158 (for-each (lambda (file)
160 (string-append dir "/"
162 (copy-file file target)))
163 (find-files "../prefabs" "."))
165 ;; Allow them to be found.
166 (wrap-program (string-append bin "/pl")
167 `("PLOTICUS_PREFABS" ":" = (,dir)))))))))
172 (home-page "http://ploticus.sourceforge.net/")
173 (synopsis "Command-line tool for producing plots and charts")
175 "Ploticus is a non-interactive software package for producing plots,
176 charts, and graphics from data. Ploticus is good for automated or
177 just-in-time graph generation, handles date and time data nicely, and has
178 basic statistical capabilities. It allows significant user control over
179 colors, styles, options and details.")
180 (license license:gpl2+)))
182 (define-public asymptote
188 (uri (string-append "mirror://sourceforge/asymptote/"
189 version "/asymptote-" version ".src.tgz"))
192 "0510vnlpfyrvshsxr5lh3klwyhmn2cf4ba1ja476mbv5dcqqbc30"))))
193 (build-system gnu-build-system)
194 ;; Note: The 'asy' binary retains a reference to docdir for use with its
195 ;; "help" command in interactive mode, so adding a "doc" output is not
198 `(("emacs" ,emacs-minimal)
199 ("gs" ,ghostscript) ;For tests
201 ("texinfo" ,texinfo) ;For generating documentation
202 ;; For the manual and the tests.
203 ("texlive" ,(texlive-union (list texlive-amsfonts
206 texlive-latex-geometry
207 texlive-latex-graphics
208 texlive-latex-oberdiek ; for ifluatex
209 texlive-latex-parskip
210 texlive-tex-texinfo)))))
213 ("freeglut" ,freeglut)
219 ("python-cson" ,python-cson)
220 ("python-numpy" ,python-numpy)
221 ("python-pyqt" ,python-pyqt)
222 ("readline" ,readline)
225 `(#:modules ((guix build emacs-utils)
226 (guix build gnu-build-system)
229 #:imported-modules (,@%gnu-build-system-modules
230 (guix build emacs-utils))
232 (list (string-append "--enable-gc=" (assoc-ref %build-inputs "libgc"))
233 (string-append "--with-latex="
234 (assoc-ref %outputs "out")
235 "/share/texmf/tex/latex")
236 (string-append "--with-context="
237 (assoc-ref %outputs "out")
238 "/share/texmf/tex/context/third"))
240 (modify-phases %standard-phases
241 (add-after 'unpack 'fix-build
242 ;; XXX: Build process complains about missing "config.h"
243 ;; and "primitives.h" files.
245 (substitute* (find-files "." "\\.in$")
246 (("#include <primitives.h>") "#include \"primitives.h\""))
247 (invoke "touch" "prc/config.h")))
248 (add-after 'unpack 'move-info-location
249 ;; Build process installs info file in the unusual
250 ;; "%out/share/info/asymptote/" location. Move it to
251 ;; "%out/share/info/" so it appears in the top-level directory.
253 (substitute* "doc/png/Makefile.in"
254 (("(\\$\\(infodir\\))/asymptote" _ infodir) infodir))
255 (substitute* "doc/asymptote.texi"
256 (("asymptote/asymptote") "asymptote"))
258 (add-before 'build 'patch-pdf-viewer
260 ;; Default to a free pdf viewer.
261 (substitute* "settings.cc"
262 (("defaultPDFViewer=\"acroread\"")
263 "defaultPDFViewer=\"gv\""))
265 (add-before 'check 'set-HOME
266 ;; Some tests require write access to $HOME, otherwise leading to
267 ;; "failed to create directory /homeless-shelter/.asy" error.
269 (setenv "HOME" "/tmp")
271 (add-after 'install 'install-Emacs-data
272 (lambda* (#:key outputs #:allow-other-keys)
273 ;; Install related Emacs libraries into an appropriate location.
274 (let* ((out (assoc-ref outputs "out"))
275 (lisp-dir (string-append out "/share/emacs/site-lisp")))
276 (for-each (cut install-file <> lisp-dir)
277 (find-files "." "\\.el$"))
278 (emacs-generate-autoloads ,name lisp-dir))
280 (add-after 'install-Emacs-data 'wrap-python-script
281 (lambda* (#:key inputs outputs #:allow-other-keys)
282 ;; Make sure 'xasy' runs with the correct PYTHONPATH.
283 (let* ((out (assoc-ref outputs "out"))
284 (path (getenv "PYTHONPATH")))
285 (wrap-program (string-append out "/share/asymptote/GUI/xasy.py")
286 `("PYTHONPATH" ":" prefix (,path))))
288 (home-page "http://asymptote.sourceforge.net")
289 (synopsis "Script-based vector graphics language")
291 "Asymptote is a powerful descriptive vector graphics language for
292 technical drawing, inspired by MetaPost but with an improved C++-like syntax.
293 Asymptote provides for figures the same high-quality level of typesetting that
294 LaTeX does for scientific text.")
295 ;; Most source files do not contain license statements, but the README
296 ;; contains: "All source files in the Asymptote project, unless explicitly
297 ;; noted otherwise, are released under version 3 (or later) of the GNU
298 ;; Lesser General Public License"
299 (license license:lgpl3+)))