guix_mirror_bot pushed a commit to branch next-master
in repository guix.

commit 169652f7f433cace214c96285e4f9cf4de30bd85
Author: Andreas Enge <[email protected]>
AuthorDate: Sun Jan 11 12:54:04 2026 +0100

    gnu: Remove hdf4.
    
    * gnu/packages/maths.scm (hdf4): Delete variable.
    
    Fixes: guix/guix#4770
    Change-Id: I26e22639b2e19cdf8542262c52b24e394b7263ef
---
 gnu/packages/maths.scm | 71 --------------------------------------------------
 1 file changed, 71 deletions(-)

diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index 7f2af70781..86000f2f3d 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -1678,77 +1678,6 @@ structures for meshing and parallelism, as well as more 
environment-related aspe
 such as dataset configuration.")
     (license license:asl2.0)))
 
-(define-public hdf4
-  (package
-    (name "hdf4")
-    (version "4.2.16-2")
-    (source
-     (origin
-       (method url-fetch)
-       (uri (string-append "https://support.hdfgroup.org/ftp/HDF/releases/HDF";
-                           version "/src/hdf-" version ".tar.bz2"))
-       (sha256
-        (base32 "0b395czhqr43mmbiifmg2mhb488wnd4zccj45vpql98ja15j7hy5"))
-       (patches (search-patches "hdf4-reproducibility.patch"
-                                "hdf4-shared-fortran.patch"))))
-    (build-system gnu-build-system)
-    (native-inputs
-     (list gfortran bison flex))
-    (inputs
-     `(("zlib" ,zlib)
-       ("libjpeg" ,libjpeg-turbo)
-       ("libtirpc" ,libtirpc)))
-    (arguments
-     `(#:parallel-tests? #f
-       #:configure-flags (list "--enable-shared"
-                               "FCFLAGS=-fallow-argument-mismatch"
-                               "FFLAGS=-fallow-argument-mismatch"
-                               "--enable-hdf4-xdr")
-       #:phases
-       (modify-phases %standard-phases
-         ;; This is inspired by two of Debian's patches.
-         (add-before 'configure 'add-more-architecture-support
-           (lambda _
-             (substitute* '("mfhdf/ncgen/ncgen.l"
-                            "mfhdf/ncgen/ncgenyy.c"
-                            "mfhdf/libsrc/netcdf.h.in")
-               (("AIX5L64") "__aarch64__ || ( __riscv && __riscv_xlen == 
64)"))))
-         (add-before 'configure 'patchbuild
-           (lambda _
-             (substitute*
-                 '("mfhdf/hdfimport/testutil.sh.in" "hdf/util/testutil.sh.in")
-               (("/bin/rm") "rm")
-               (("/bin/mkdir") "mkdir"))))
-         (add-after 'configure 'patch-settings
-           (lambda _
-             ;; libhdf4.settings contains the full path of the
-             ;; compilers used, and its contents are included in
-             ;; .so-files.  We truncate the hashes to avoid
-             ;; unnecessary store references to those compilers:
-             (substitute* "libhdf4.settings"
-               (("(/gnu/store/)([0-9A-Za-z]*)" all prefix hash)
-                (string-append prefix (string-take hash 10) "...")))
-             #t))
-         (add-after 'install 'provide-absolute-libjpeg-reference
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out"))
-                   (libjpeg (assoc-ref inputs "libjpeg")))
-               ;; libjpeg-turbo does not provide a .la file, so libtool is
-               ;; unable to add an absolute reference for -ljpeg in the .la
-               ;; files.  Fix it manually to avoid having to propagate it.
-               (substitute* (find-files (string-append out "/lib") "\\.la$")
-                 (("-ljpeg")
-                  (string-append "-L" libjpeg "/lib -ljpeg")))))))))
-    (home-page "https://www.hdfgroup.org/products/hdf4/";)
-    (synopsis
-     "Library and multi-object file format for storing and managing data")
-    (description "HDF4 is a library and multi-object file format for storing
-and managing data between machines.  HDF4 is an older hierarchical data format,
-incompatible with HDF5.")
-    (license
-     (license:non-copyleft
-      "https://www.hdfgroup.org/ftp/HDF/HDF_Current/src/unpacked/COPYING";))))
-
 (define-public hdf4-alt
   (package
     (name "hdf4-alt")

Reply via email to