Package: guix-patches;
Reported by: Grigory Shepelev <shegeley <at> gmail.com>
Date: Wed, 9 Apr 2025 06:40:02 UTC
Severity: normal
Tags: patch
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.