From c8a3b1997dba4ff7a51b42f1e24b1afdae0e6d8e Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Wed, 17 Sep 2025 23:18:34 +0100
Subject: [PATCH] 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 9efb6244537..79558fec908 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")