Package: guix-patches;
Reported by: Grigory Shepelev <shegeley <at> gmail.com>
Date: Wed, 9 Apr 2025 06:40:02 UTC
Severity: normal
Tags: patch
To reply to this bug, email your comments to 77664 AT debbugs.gnu.org.
Toggle the display of automated, internal messages from the tracker.
View this report as an mbox folder, status mbox, maintainer mbox
guix-patches <at> gnu.org:bug#77664; Package guix-patches.
(Wed, 09 Apr 2025 06:40:02 GMT) Full text and rfc822 format available.Grigory Shepelev <shegeley <at> gmail.com>:guix-patches <at> gnu.org.
(Wed, 09 Apr 2025 06:40:03 GMT) Full text and rfc822 format available.Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):
From: Grigory Shepelev <shegeley <at> gmail.com> To: guix-patches <at> gnu.org Cc: Grigory Shepelev <shegeley <at> gmail.com> Subject: [PATCH 2/3] gnu: Add spdk. Date: Wed, 9 Apr 2025 09:35:49 +0300
Line 132 of this patch was advised by @wigust in Russian-speaking telegram guix community.
#$(this-package-input package derivation) won't work cause: guix/packages.scm:964
#+begin_src scheme
(define (lookup-input inputs name)
"Lookup NAME among INPUTS, an input list."
;; Note: Currently INPUTS is assumed to be an input list that contains input
;; labels. In the future, input labels will be gone and this procedure will
;; check package names.
(match (assoc-ref inputs name)
((obj) obj)
((obj _) obj)
(#f #f)))
#+end_src
---
gnu/packages/storage.scm | 173 +++++++++++++++++++++++++++++++++++++++
1 file changed, 173 insertions(+)
diff --git a/gnu/packages/storage.scm b/gnu/packages/storage.scm
index 919b72736b..252012a506 100644
--- a/gnu/packages/storage.scm
+++ b/gnu/packages/storage.scm
@@ -21,7 +21,28 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages storage)
+ #:use-module (gnu packages autotools)
+ #:use-module (gnu packages commencement)
+ #:use-module (gnu packages llvm)
+ #:use-module (gnu packages backup)
+ #:use-module (gnu packages elf)
+ #:use-module (gnu packages bootstrap)
+ #:use-module (gnu packages maths)
+ #:use-module (gnu packages gcc)
+ #:use-module (gnu packages base)
+ #:use-module (gnu packages compression)
+ #:use-module (guix build-system python)
+
+ #:use-module (guix build-system gnu)
+ #:use-module (guix gexp)
+ #:use-module (gnu packages python-build)
+ #:use-module (gnu packages elf)
+ #:use-module (gnu packages libbsd)
+ #:use-module (gnu packages linux)
+ #:use-module (gnu packages dpdk)
+ #:use-module (gnu packages check)
#:use-module (guix download)
+ #:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix utils)
@@ -271,3 +292,155 @@ (define-public ceph
license:cc-by-sa3.0 ;documentation
license:bsd-3 ;isa-l,jerasure,++
license:expat)))) ;civetweb,java bindings
+
+(define-public spdk
+ (package
+ (name "spdk")
+ (version "24.09")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/spdk/spdk")
+ (commit (string-append "v" version))))
+ (sha256
+ (base32 "1cx0yj3ibmbngqsjdlnh7qg7as9mzpbiw0zscraw07b4rs6g0s6q"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f
+ ;; XXX: Issue with dpdk: error: depends on 'libspdk_env_dpdk_rpc.so.6.0',
+ ;; which cannot be found in RUNPATH
+ #:imported-modules
+ (append %default-gnu-imported-modules
+ %python-build-system-modules)
+ #:validate-runpath? #f
+ #:modules '((guix build gnu-build-system)
+ (guix build utils)
+ ((guix build python-build-system) #:prefix python:)
+ (ice-9 rdelim)
+ (ice-9 popen))
+ #:configure-flags
+ #~(list "--with-shared"
+ (string-append "--prefix=" #$output)
+ (string-append "--with-dpdk=" #$(this-package-input "dpdk")))
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'substitute-git-submodules
+ (lambda _
+ (rmdir "isa-l")
+ (symlink #$(package-source (this-package-input "isa-l")) "isa-l")))
+ (replace 'configure
+ (lambda* (#:key configure-flags #:allow-other-keys)
+ (substitute* "configure"
+ (("#! /bin/sh") (string-append "#!" (which "sh"))))
+ (setenv "CC" #$(cc-for-target))
+ (setenv "CFLAGS" "-mssse3")
+ (setenv "CONFIG_SHELL" (which "bash"))
+ (setenv "LDFLAGS" "-lbsd")
+ (setenv "SHELL" (which "bash"))
+ (apply invoke "./configure" configure-flags)))
+ (add-before 'install 'set-install-environment
+ ;; same as ceph
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (py3sitedir
+ (string-append out "/lib/python"
+ #$(version-major+minor
+ (package-version python))
+ "/site-packages")))
+ (setenv "PYTHONPATH" py3sitedir))))
+ (add-after 'install 'patchelf
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let* [(binaries '("iscsi_tgt" "nvmf_tgt"
+ "spdk_dd" "spdk_lspci" "spdk_nvme_discover"
+ "spdk_tgt" "spdk_top" "spdk_trace"
+ "spdk_nvme_identify" "spdk_nvme_perf"
+ "spdk_trace_record" "vhost"))
+ (ld-so (search-input-file inputs #$(glibc-dynamic-linker)))
+ (libs
+ (list
+ (string-append #$(this-package-input "libbsd") "/lib")
+ (string-append #$(this-package-input "libarchive") "/lib")
+ (string-append #$(this-package-input "numactl") "/lib")
+ (string-append #$(gexp-input util-linux "lib") "/lib")
+ (string-append #$(this-package-input "openssl") "/lib")
+ (string-append #$(this-package-input "openlibm") "/lib")
+ (string-append #$(this-package-input "libaio") "/lib")
+ (string-append #$(this-package-input "dpdk") "/lib")
+ (string-append #$(this-package-input "fuse") "/lib")
+ (string-append #$(this-package-input "gcc") "/lib")
+ (string-append #$(this-package-input "glibc") "/lib")))
+ (rpath* (apply string-append (map (lambda (l) (string-append l ":")) libs)))]
+ (for-each
+ (lambda (b)
+ (let [(file (string-append #$output "/bin/" b))]
+ (invoke "patchelf" "--set-interpreter" ld-so file)
+
+ (let* ((pipe (open-pipe* OPEN_READ "patchelf" "--print-rpath" file))
+ (line (read-line pipe)))
+ (and (zero? (close-pipe pipe))
+ (invoke "patchelf" "--set-rpath" (string-append rpath* line)
+ file)))
+ (wrap-program file
+ `("LD_LIBRARY_PATH" ":" prefix (,(string-append #$output "/lib"))))))
+ binaries))))
+ (add-after 'patchelf 'python:wrap
+ (assoc-ref python:%standard-phases 'wrap))
+ (add-after 'python:wrap 'wrap-python-scripts
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (scripts '("bin/spdk_cli" "bin/spdk_rpc" ))
+ (dependencies (map (lambda (input)
+ (assoc-ref inputs input))
+ '("python-configshell-fb")))
+ (python-version #$(version-major+minor (package-version python)))
+ (sitedir (lambda (package)
+ (string-append package "/lib/python"
+ python-version "/site-packages")))
+ (PYTHONPATH (string-join (map sitedir (cons out dependencies)) ":")))
+ (for-each (lambda (executable)
+ (wrap-program (string-append out "/" executable)
+ `("GUIX_PYTHONPATH" ":" prefix (,PYTHONPATH))))
+ scripts)))))))
+ (native-inputs
+ (list autoconf
+ automake
+ patchelf
+ pkg-config
+ python-pip
+ python-setuptools
+ python-wheel
+ python-configshell-fb
+ python-wrapper))
+ (inputs
+ (list
+ ;; ↓ those are copied from NixPkgs
+ cunit
+ dpdk
+ fuse
+ jansson
+ libaio
+ libbsd
+ elfutils
+ libpcap
+ libnl
+ numactl
+ openssl
+ ncurses
+ zlib
+ zstd
+ glibc
+ (list gcc "lib")
+
+ ;; ↓ had to add those
+ isa-l
+ openlibm
+ (list util-linux "lib") ;; ↓ <uuid.h>
+ libarchive))
+ (home-page "https://spdk.io/")
+ (synopsis "The Storage Performance Development Kit")
+ (description
+ "SPDK provides a set of tools and libraries for writing high
+performance,scalable, user-mode storage applications.")
+ (license license:bsd-3)))
--
2.48.1
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.