1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 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 ;; Allow builds with Guile 3.0.
103 (substitute* "configure"
107 ;; By default, .go files would be installed to
108 ;; $libdir/…/ccache instead of $libdir/…/site-ccache. Fix
110 (substitute* (find-files "." "^Makefile\\.in$")
111 (("/ccache") "/site-ccache"))
113 (build-system gnu-build-system)
114 (native-inputs `(("pkg-config" ,pkg-config)))
115 (inputs `(("guile" ,guile-2.2)))
116 (propagated-inputs `(("guile-cairo" ,guile-cairo)))
117 (home-page "http://wingolog.org/software/guile-charting/")
118 (synopsis "Create charts and graphs in Guile")
120 "Guile-Charting is a Guile Scheme library to create bar charts and graphs
121 using the Cairo drawing library.")
122 (license license:lgpl2.1+)))
124 (define-public guile3.0-charting
126 (inherit guile-charting)
127 (name "guile3.0-charting")
128 (inputs `(("guile" ,guile-3.0)))
129 (propagated-inputs `(("guile-cairo" ,guile3.0-cairo)))))
131 (define-public ploticus
137 (uri (string-append "mirror://sourceforge/ploticus/ploticus/"
138 version "/ploticus242_src.tar.gz"))
141 "1c70cvfvgjh83hj1x21130wb9qfr2rc0x47cxy9kl805yjwy8a9z"))
142 (modules '((guix build utils)))
144 ;; Install binaries in the right place.
146 (substitute* "src/Makefile"
148 (string-append "INSTALLBIN = $(out)/bin")))
150 (build-system gnu-build-system)
154 (modify-phases %standard-phases
155 (replace 'configure (lambda _ (chdir "src")))
156 (add-before 'install 'make-target-directories
157 (lambda* (#:key outputs #:allow-other-keys)
158 (let ((out (assoc-ref outputs "out")))
159 (mkdir-p (string-append out "/bin"))
161 (add-after 'install 'install-prefabs
162 (lambda* (#:key outputs #:allow-other-keys)
163 (let* ((out (assoc-ref outputs "out"))
164 (dir (string-append out
165 "/share/ploticus/prefabs"))
166 (bin (string-append out "/bin")))
169 ;; Install "prefabs".
170 (for-each (lambda (file)
172 (string-append dir "/"
174 (copy-file file target)))
175 (find-files "../prefabs" "."))
177 ;; Allow them to be found.
178 (wrap-program (string-append bin "/pl")
179 `("PLOTICUS_PREFABS" ":" = (,dir)))))))))
184 (home-page "http://ploticus.sourceforge.net/")
185 (synopsis "Command-line tool for producing plots and charts")
187 "Ploticus is a non-interactive software package for producing plots,
188 charts, and graphics from data. Ploticus is good for automated or
189 just-in-time graph generation, handles date and time data nicely, and has
190 basic statistical capabilities. It allows significant user control over
191 colors, styles, options and details.")
192 (license license:gpl2+)))
194 (define-public asymptote
200 (uri (string-append "mirror://sourceforge/asymptote/"
201 version "/asymptote-" version ".src.tgz"))
204 "0510vnlpfyrvshsxr5lh3klwyhmn2cf4ba1ja476mbv5dcqqbc30"))))
205 (build-system gnu-build-system)
206 ;; Note: The 'asy' binary retains a reference to docdir for use with its
207 ;; "help" command in interactive mode, so adding a "doc" output is not
210 `(("emacs" ,emacs-minimal)
211 ("gs" ,ghostscript) ;For tests
213 ("texinfo" ,texinfo) ;For generating documentation
214 ;; For the manual and the tests.
215 ("texlive" ,(texlive-union (list texlive-amsfonts
218 texlive-latex-geometry
219 texlive-latex-graphics
220 texlive-latex-oberdiek ; for ifluatex
221 texlive-latex-parskip
222 texlive-tex-texinfo)))))
225 ("freeglut" ,freeglut)
231 ("python-cson" ,python-cson)
232 ("python-numpy" ,python-numpy)
233 ("python-pyqt" ,python-pyqt)
234 ("readline" ,readline)
237 `(#:modules ((guix build emacs-utils)
238 (guix build gnu-build-system)
241 #:imported-modules (,@%gnu-build-system-modules
242 (guix build emacs-utils))
244 (list (string-append "--enable-gc=" (assoc-ref %build-inputs "libgc"))
245 (string-append "--with-latex="
246 (assoc-ref %outputs "out")
247 "/share/texmf/tex/latex")
248 (string-append "--with-context="
249 (assoc-ref %outputs "out")
250 "/share/texmf/tex/context/third"))
252 (modify-phases %standard-phases
253 (add-after 'unpack 'fix-build
254 ;; XXX: Build process complains about missing "config.h"
255 ;; and "primitives.h" files.
257 (substitute* (find-files "." "\\.in$")
258 (("#include <primitives.h>") "#include \"primitives.h\""))
259 (invoke "touch" "prc/config.h")))
260 (add-after 'unpack 'move-info-location
261 ;; Build process installs info file in the unusual
262 ;; "%out/share/info/asymptote/" location. Move it to
263 ;; "%out/share/info/" so it appears in the top-level directory.
265 (substitute* "doc/png/Makefile.in"
266 (("(\\$\\(infodir\\))/asymptote" _ infodir) infodir))
267 (substitute* "doc/asymptote.texi"
268 (("asymptote/asymptote") "asymptote"))
270 (add-before 'build 'patch-pdf-viewer
272 ;; Default to a free pdf viewer.
273 (substitute* "settings.cc"
274 (("defaultPDFViewer=\"acroread\"")
275 "defaultPDFViewer=\"gv\""))
277 (add-before 'check 'set-HOME
278 ;; Some tests require write access to $HOME, otherwise leading to
279 ;; "failed to create directory /homeless-shelter/.asy" error.
281 (setenv "HOME" "/tmp")
283 (add-after 'install 'install-Emacs-data
284 (lambda* (#:key outputs #:allow-other-keys)
285 ;; Install related Emacs libraries into an appropriate location.
286 (let* ((out (assoc-ref outputs "out"))
287 (lisp-dir (string-append out "/share/emacs/site-lisp")))
288 (for-each (cut install-file <> lisp-dir)
289 (find-files "." "\\.el$"))
290 (emacs-generate-autoloads ,name lisp-dir))
292 (add-after 'install-Emacs-data 'wrap-python-script
293 (lambda* (#:key inputs outputs #:allow-other-keys)
294 ;; Make sure 'xasy' runs with the correct PYTHONPATH.
295 (let* ((out (assoc-ref outputs "out"))
296 (path (getenv "PYTHONPATH")))
297 (wrap-program (string-append out "/share/asymptote/GUI/xasy.py")
298 `("PYTHONPATH" ":" prefix (,path))))
300 (home-page "http://asymptote.sourceforge.net")
301 (synopsis "Script-based vector graphics language")
303 "Asymptote is a powerful descriptive vector graphics language for
304 technical drawing, inspired by MetaPost but with an improved C++-like syntax.
305 Asymptote provides for figures the same high-quality level of typesetting that
306 LaTeX does for scientific text.")
307 ;; Most source files do not contain license statements, but the README
308 ;; contains: "All source files in the Asymptote project, unless explicitly
309 ;; noted otherwise, are released under version 3 (or later) of the GNU
310 ;; Lesser General Public License"
311 (license license:lgpl3+)))