guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 169d73f43cf4ffb3064a2ba6ba250e26c736295e
Author: Sharlatan Hellseher <[email protected]>
AuthorDate: Wed Sep 17 23:18:34 2025 +0100
gnu: Add fitsverify.
* gnu/packages/astronomy.scm (fitsverify): New variable.
Change-Id: I07e72835d1cf481d785c652d6fa5861b236764a9
---
gnu/packages/astronomy.scm | 53 ++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 53 insertions(+)
diff --git a/gnu/packages/astronomy.scm b/gnu/packages/astronomy.scm
index 9efb624453..79558fec90 100644
--- a/gnu/packages/astronomy.scm
+++ b/gnu/packages/astronomy.scm
@@ -919,6 +919,59 @@ applications of EyE include adaptive filtering, feature
detection and cosmetic
corrections.")
(license license:cecill)))
+(define-public fitsverify
+ (package
+ (name "fitsverify")
+ (version "4.22")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append
"https://heasarc.gsfc.nasa.gov/docs/software/ftools/";
+ name "/" name "-" version ".tar.gz"))
+ (sha256
+ (base32 "1d0qvgmrpv09qm4vi4n26frx4qb3mrdn261rs6vvrvg0lw1yhibc"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ;no tests
+ #:phases
+ #~(modify-phases %standard-phases
+ (delete 'configure) ; no configure
+ (replace 'build
+ (lambda* _
+ ;; Build steps are taken from Debian's package definition.
+ (invoke #$(cc-for-target) "-o" #$name
+ "ftverify.c"
+ "fvrf_data.c"
+ "fvrf_file.c"
+ "fvrf_head.c"
+ "fvrf_key.c"
+ "fvrf_misc.c"
+ "-DSTANDALONE"
+ "-lcfitsio"
+ "-lm")))
+ (replace 'install
+ (lambda _
+ (install-file #$name (string-append #$output "/bin")))))))
+ (inputs
+ (list cfitsio))
+ (home-page
"https://heasarc.gsfc.nasa.gov/docs/software/ftools/fitsverify/index.html";)
+ (synopsis "FITS File Format-Verification Tool")
+ (description
+ "Fitsverify is a computer program that rigorously checks whether a
+@acronym{FITS, Flexible Image Transport System} data file conforms to the
+requirements defined in Version 3.0 of the
+@url{http://fits.gsfc.nasa.gov/fits_documentation.html, FITS Standard
+document}.")
+ (properties
+ '((release-monitoring-url .
+ "https://heasarc.gsfc.nasa.gov/docs/software/ftools/fitsverify/";)))
+ ;; The license is the same as for CFITSIO, see
+ ;; URL: <https://salsa.debian.org/debian-astro-team/fitsverify>
+ ;; File: <debian/copyright>
+ (license (license:non-copyleft "file://License.txt"
+ "See License.txt in the distribution."))))
+
(define-public ginga
(package
(name "ginga")
