add old lvm2 (test)

2025-06-18 02:01:47 +02:00 · 2023-09-13 16:09:55 +02:00 · 2023-09-13 16:09:55 +02:00 · 980f5444d8
commit 980f5444d8
parent 910ec0164b
2 changed files with 135 additions and 0 deletions
--- a/glicid/packages/linux.scm
+++ b/glicid/packages/linux.scm
@ -147,3 +147,102 @@
                                  (commit version)))
                           (file-name (git-file-name name version))
                           (sha256 (base32 "11jjqfgyxq6vd264r812jyilghnaw9qyamfldy5wqfwwibbncjsm"))))))
+
+(define-public lvm2-past-20311
+  (package
+    (name "lvm2")
+    (version "2.03.11")
+    (source (origin
+              (method url-fetch)
+              (uri (list (string-append "https://sourceware.org/ftp/lvm2/LVM2."
+                                        version ".tgz")
+                         (string-append "ftp://sources.redhat.com/pub/lvm2/releases/LVM2."
+                                        version ".tgz")))
+              (sha256
+               (base32
+                "1m4xpda8vbyd89ca0w8nacvnl4j34yzsa625gn990fb5sh84ab44"))
+              (modules '((guix build utils)))
+              (snippet
+               '(begin
+                  (use-modules (guix build utils))
+
+                  ;; Honor sysconfdir.
+                  (substitute* "make.tmpl.in"
+                    (("^confdir = .*$")
+                     "confdir = @sysconfdir@\n")
+                    (("DEFAULT_SYS_DIR = @DEFAULT_SYS_DIR@")
+                     "DEFAULT_SYS_DIR = @sysconfdir@"))
+                  #t))
+              (patches (search-patches "lvm2-static-link.patch"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     (list config
+           pkg-config procps))                       ;tests use 'pgrep'
+    (inputs
+     `(("libaio" ,libaio)
+       ("udev" ,eudev)))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'update-config
+           (lambda* (#:key inputs native-inputs #:allow-other-keys)
+             (install-file (search-input-file
+                             (or native-inputs inputs) "/bin/config.sub")
+                           "autoconf")
+             (install-file (search-input-file
+                             (or native-inputs inputs) "/bin/config.guess")
+                           "autoconf")))
+         (add-after 'configure 'set-makefile-shell
+           (lambda _
+             ;; Use 'sh', not 'bash', so that '. lib/utils.sh' works as
+             ;; expected.
+             (setenv "SHELL" (which "sh"))
+
+             ;; Replace /bin/sh with the right file name.
+             (patch-makefile-SHELL "make.tmpl")
+             #t)))
+
+       #:configure-flags (list (string-append "--sysconfdir="
+                                              (assoc-ref %outputs "out")
+                                              "/etc/lvm")
+                               "--enable-udev_sync"
+                               "--enable-udev_rules"
+                               "--enable-pkgconfig"
+                               "--enable-cmdlib"
+                               "--enable-dmeventd" ; Requires '--enable-cmdlib'.
+
+                               ;; Make sure programs such as 'dmsetup' can
+                               ;; find libdevmapper.so.
+                               (string-append "LDFLAGS=-Wl,-rpath="
+                                              (assoc-ref %outputs "out")
+                                              "/lib,-rpath="
+                                              (assoc-ref %outputs "out")
+                                              "/lib/device-mapper")
+                               ;; This is needed when cross-compiling.
+                               ,@(if (%current-target-system)
+                                     '("ac_cv_func_malloc_0_nonnull=yes"
+                                       "ac_cv_func_realloc_0_nonnull=yes")
+                                     '()))
+
+       ;; The tests use 'mknod', which requires root access.
+       #:tests? #f))
+    (supported-systems (delete "i586-gnu" %supported-systems))
+    (home-page "https://sourceware.org/lvm2/")
+    (synopsis "Logical volume management for Linux")
+    (description
+     "LVM2 is the logical volume management tool set for Linux-based systems.
+This package includes the user-space libraries and tools, including the device
+mapper.  Kernel components are part of Linux-libre.")
+
+    ;; Libraries (liblvm2, libdevmapper) are LGPLv2.1.
+    ;; Command-line tools are GPLv2.
+    (license (list license:gpl2 license:lgpl2.1))))
+
+
+(define-public lvm2
+ (package
+  (inherit lvm2-past-20311)
+  (version "2.03-221-really-2.03.11-for-GLiCID")
+))
+
+