Commit | Line | Data |
---|---|---|
82e4557d JD |
1 | ;;; GNU Guix --- Functional package management for GNU |
2 | ;;; Copyright © 2016 John Darrington <jmd@gnu.org> | |
3 | ;;; | |
4 | ;;; This file is part of GNU Guix. | |
5 | ;;; | |
6 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | |
7 | ;;; under the terms of the GNU General Public License as published by | |
8 | ;;; the Free Software Foundation; either version 3 of the License, or (at | |
9 | ;;; your option) any later version. | |
10 | ;;; | |
11 | ;;; GNU Guix is distributed in the hope that it will be useful, but | |
12 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | ;;; GNU General Public License for more details. | |
15 | ;;; | |
16 | ;;; You should have received a copy of the GNU General Public License | |
17 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | |
18 | ||
19 | (define-module (gnu packages astronomy) | |
20 | #:use-module (guix packages) | |
c9bd15c1 | 21 | #:use-module ((guix licenses) #:prefix license:) |
82e4557d | 22 | #:use-module (guix download) |
c9bd15c1 | 23 | #:use-module (gnu packages image) |
0558e968 JD |
24 | #:use-module (gnu packages compression) |
25 | #:use-module (gnu packages gettext) | |
26 | #:use-module (gnu packages perl) | |
27 | #:use-module (gnu packages gl) | |
28 | #:use-module (gnu packages qt) | |
c9bd15c1 | 29 | #:use-module (gnu packages maths) |
0558e968 | 30 | #:use-module (guix build-system cmake) |
82e4557d JD |
31 | #:use-module (guix build-system gnu)) |
32 | ||
33 | (define-public cfitsio | |
34 | (package | |
35 | (name "cfitsio") | |
36 | (version "3390") | |
37 | (source | |
38 | (origin | |
39 | (method url-fetch) | |
40 | (uri (string-append | |
41 | "http://heasarc.gsfc.nasa.gov/FTP/software/fitsio/c/" name version | |
42 | ".tar.gz")) | |
43 | (sha256 | |
44 | (base32 "02gllydm63irwbqqisa3mrskw1fphm5rlplglz3mq9whi3rxilv2")))) | |
45 | (build-system gnu-build-system) | |
46 | (arguments | |
47 | `(#:tests? #f ; no tests | |
48 | #:phases | |
49 | (modify-phases %standard-phases | |
50 | (add-after 'unpack 'patch-paths | |
51 | (lambda _ | |
39fb6295 JD |
52 | (substitute* "Makefile.in" (("/bin/") "")) |
53 | #t))))) | |
82e4557d JD |
54 | (home-page "http://heasarc.gsfc.nasa.gov/fitsio/fitsio.html") |
55 | (synopsis "Library for reading and writing FITS files") | |
56 | (description "CFITSIO provides simple high-level routines for reading and | |
57 | writing FITS (Flexible Image Transport System) files that insulate the | |
58 | programmer from the internal complexities of the FITS format. CFITSIO also | |
59 | provides many advanced features for manipulating and filtering the information | |
60 | in FITS files.") | |
61 | (license (license:non-copyleft "file://License.txt" | |
62 | "See License.txt in the distribution.")))) | |
2be83f6e JD |
63 | |
64 | (define-public wcslib | |
65 | (package | |
66 | (name "wcslib") | |
3e129a77 | 67 | (version "5.16") |
2be83f6e JD |
68 | (source |
69 | (origin | |
70 | (method url-fetch) | |
71 | (uri (string-append | |
39fb6295 JD |
72 | "ftp://ftp.atnf.csiro.au/pub/software/wcslib/" name "-" version |
73 | ".tar.bz2")) | |
2be83f6e | 74 | (sha256 |
3e129a77 | 75 | (base32 "1vwrzkznpig2q40m11j12hsfqvsjz8z44l66pz5fkh6fy461w0zd")))) |
2be83f6e JD |
76 | (inputs |
77 | `(("cfitsio" ,cfitsio))) | |
78 | (build-system gnu-build-system) | |
79 | (arguments | |
80 | `(#:phases (modify-phases %standard-phases | |
81 | (add-before 'configure 'patch-/bin/sh | |
82 | (lambda _ | |
83 | (substitute* "makedefs.in" | |
39fb6295 JD |
84 | (("/bin/sh") "sh")) |
85 | #t))))) | |
2be83f6e | 86 | (home-page "http://www.atnf.csiro.au/people/mcalabre/WCS") |
a7074f47 | 87 | (synopsis "Library which implements the FITS WCS standard") |
2be83f6e JD |
88 | (description "The FITS \"World Coordinate System\" (WCS) standard defines |
89 | keywords and usage that provide for the description of astronomical coordinate | |
a7074f47 | 90 | systems in a FITS image header.") |
2be83f6e | 91 | (license license:lgpl3+))) |
c9bd15c1 JD |
92 | |
93 | (define-public gnuastro | |
94 | (package | |
95 | (name "gnuastro") | |
80bc3773 | 96 | (version "0.2") |
c9bd15c1 JD |
97 | (source |
98 | (origin | |
99 | (method url-fetch) | |
100 | (uri (string-append "mirror://gnu/gnuastro/gnuastro-" | |
101 | version ".tar.gz")) | |
102 | (sha256 | |
103 | (base32 | |
80bc3773 | 104 | "0099g7zqg1gr9y94ybhyjgx9pkn9zv4rj1xb00fkybfw8w6ij9iv")))) |
c9bd15c1 JD |
105 | (inputs |
106 | `(("cfitsio" ,cfitsio) | |
107 | ("gsl" ,gsl) | |
108 | ("libjpeg" ,libjpeg-8) | |
109 | ("wcslib" ,wcslib))) | |
110 | (build-system gnu-build-system) | |
80bc3773 | 111 | (home-page "https://www.gnu.org/software/gnuastro") |
c9bd15c1 JD |
112 | (synopsis "Astronomical data manipulation programs") |
113 | (description "The GNU Astronomy Utilities (Gnuastro) is a suite of | |
114 | programs for the manipulation and analysis of astronomical data.") | |
115 | (license license:gpl3+))) | |
0558e968 JD |
116 | |
117 | (define-public stellarium | |
118 | (package | |
119 | (name "stellarium") | |
120 | (version "0.15.1") | |
f1021afb JD |
121 | (source (origin |
122 | (method url-fetch) | |
123 | (uri (string-append "mirror://sourceforge/stellarium/" | |
124 | "Stellarium-sources/" | |
125 | version "/stellarium-" version ".tar.gz")) | |
126 | (sha256 | |
127 | (base32 | |
128 | "04avigz8i8mi2x6x71bqr9np85n1p9qnvbj2hxr947f1jv22zr8g")))) | |
0558e968 | 129 | (build-system cmake-build-system) |
6b2afac9 | 130 | (inputs |
5bbf31cc DM |
131 | `(("qtbase" ,qtbase) |
132 | ("qtmultimedia" ,qtmultimedia) | |
133 | ("qtscript" ,qtscript) | |
134 | ("qtserialport" ,qtserialport) | |
6b2afac9 DM |
135 | ("zlib" ,zlib))) |
136 | (native-inputs | |
137 | `(("gettext" ,gettext-minimal) ; xgettext is used at compile time | |
5bbf31cc DM |
138 | ("perl" ,perl) ; For pod2man |
139 | ("qtbase" ,qtbase) ; Qt MOC is needed at compile time | |
140 | ("qttools" ,qttools))) | |
f1021afb JD |
141 | (arguments |
142 | `(#:test-target "tests" | |
143 | #:phases (modify-phases %standard-phases | |
144 | (add-before 'check 'set-offscreen-display | |
145 | (lambda _ | |
146 | (setenv "QT_QPA_PLATFORM" "offscreen") | |
147 | (setenv "HOME" "/tmp") | |
148 | #t))))) | |
149 | (home-page "http://www.stellarium.org/") | |
150 | (synopsis "3D sky viewer") | |
151 | (description "Stellarium is a planetarium. It shows a realistic sky in | |
152 | 3D, just like what you see with the naked eye, binoculars, or a telescope. It | |
153 | can be used to control telescopes over a serial port for tracking celestial | |
154 | objects.") | |
0558e968 | 155 | (license license:gpl2+))) |