diff options
Diffstat (limited to 'gn')
| -rw-r--r-- | gn/packages/file-systems.scm | 114 |
1 files changed, 114 insertions, 0 deletions
diff --git a/gn/packages/file-systems.scm b/gn/packages/file-systems.scm new file mode 100644 index 0000000..0e874c2 --- /dev/null +++ b/gn/packages/file-systems.scm @@ -0,0 +1,114 @@ +(define-module (gn packages file-systems) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (gnu packages) + #:use-module (guix packages) + #:use-module (guix git-download) + #:use-module (guix utils) + #:use-module (guix build-system cmake) + #:use-module (gnu packages boost) + #:use-module (gnu packages check) + #:use-module (gnu packages compression) + #:use-module (gnu packages documentation) + #:use-module (gnu packages linux) + #:use-module (gnu packages logging) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages python)) + +(define-public lizardfs + (package + (name "lizardfs") + (version "3.12.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/lizardfs/lizardfs") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0zk73wmx82ari3m2mv0zx04x1ggsdmwcwn7k6bkl5c0jnxffc4ax")))) + (build-system cmake-build-system) + (arguments + `(#:configure-flags + (list "-DENABLE_CLIENT_LIB=YES" + ;"-DENABLE_TESTS=YES" + "-DENABLE_STATIC=NO" + "-DENABLE_VERBOSE_ASCIIDOC=YES" + "-DENABLE_TCMALLOC=NO" + ;; Some directories need to be changed + "-DRUN_SUBDIR=/var/run/lizardfs" + "-DDATA_SUBDIR=/var/lib/lizardfs" + "-DENABLE_UTILS=YES") + #:tests? #f ; Tests fail to build. + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'dont-use-lib64 + (lambda _ + (substitute* "CMakeLists.txt" + (("\"64\"") "\"\"")) + #t)) + (add-after 'unpack 'use-system-libraries + (lambda* (#:key inputs #:allow-other-keys) + (let ((gtest (assoc-ref inputs "googletest")) + (spdlog (assoc-ref inputs "spdlog"))) + (substitute* "cmake/Libraries.cmake" + (("ENABLE_TESTS") "DOWNLOAD_GTEST") + (("# Find GoogleTest" all) + (string-append "set(GTEST_NAME gtest)\n" all)) + (("GTEST_INCLUDE_DIRS.*") + (string-append "GTEST_INCLUDE_DIRS " gtest "/include)\n")) + (("download_external\\(SPDLOG" all) + (string-append "if(DOWNLOAD_SPDLOG)\n" all)) + (("\"spdlog-1\")") + (string-append "\"spdlog-1\")\n" + "endif()\n" + "find_package(spdlog CONFIG REQUIRED)")) + (("include_directories(external/spdlog-0.14.0/include)") "")) + ;; Don't include gtest vendor directory + (substitute* "external/CMakeLists.txt" + (("add_subdirectory.*") "")) + + ;; Compatability with spdlog1.2.0+ + ;; https://github.com/lizardfs/lizardfs/issues/774 + (substitute* "src/common/slogger.h" + (("spdlog/spdlog.h\"") + (string-append "spdlog/spdlog.h\"\n" + "#include \"spdlog/sinks/rotating_file_sink.h\"\n" + "#include \"spdlog/sinks/syslog_sink.h\"\n" + "#include \"spdlog/sinks/stdout_color_sinks.h\""))) + (substitute* "src/common/slogger.cc" + (("spdlog::syslog_logger\\(\"syslog\"\\);") + "spdlog::syslog_logger_mt(\"syslog\");")) + + ;; fix FTBFS with glibc-2.28; for makedev + ;; https://github.com/lizardfs/lizardfs/issues/655 + (substitute* "src/chunkserver/iostat.h" + (("sys/stat.h>") "sys/stat.h>\n#include <sys/sysmacros.h>")) + + #t)))))) + (inputs + `(("boost" ,boost) + ("fuse" ,fuse) + ("linux-pam" ,linux-pam) + ("python" ,python-2) + ("spdlog" ,spdlog) + ("zlib" ,zlib))) + (native-inputs + `(("asciidoc" ,asciidoc) + ("googletest" ,googletest-1.8) + ("pkg-config" ,pkg-config))) + (home-page "https://lizardfs.com/") + (synopsis "Distributed, scalable, fault-tolerant, highly available file system") + (description + "LizardFS makes files secure by keeping all the data in many replicas +spread over all available servers. It can be used also to build affordable +storage because it runs without any problems on commodity hardware. Disk and +server failures are handled transparently and most of all without any downtime +or loss of data. If storage requirements grow, it's possible to scale an +existing LizardFS installation just by adding new servers at any time, without +any downtime. The system will automatically move data across to the newly +added servers, as it continuously takes care of balancing disk usage across all +connected nodes.") + (license (list license:asl2.0 ; external/crcutil + license:gpl3)))) |