From 821b25bc3f24133c6540e5a51c81fbc5ee67704f Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Thu, 17 Dec 2020 22:41:18 +0200
Subject: gn: lizardfs: Update package

---
 gn/packages/file-systems.scm | 62 +++++++++++++++++++++++++++++++++++++-------
 1 file changed, 52 insertions(+), 10 deletions(-)

diff --git a/gn/packages/file-systems.scm b/gn/packages/file-systems.scm
index f5fb2fb..709754a 100644
--- a/gn/packages/file-systems.scm
+++ b/gn/packages/file-systems.scm
@@ -8,6 +8,7 @@
   #:use-module (gnu packages boost)
   #:use-module (gnu packages check)
   #:use-module (gnu packages compression)
+  #:use-module (gnu packages dbm)
   #:use-module (gnu packages documentation)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages logging)
@@ -32,7 +33,7 @@
     (arguments
      `(#:configure-flags
        (list "-DENABLE_CLIENT_LIB=YES"
-             ;"-DENABLE_TESTS=YES"
+             "-DENABLE_TESTS=YES"
              "-DENABLE_STATIC=NO"
              "-DENABLE_VERBOSE_ASCIIDOC=YES"
              "-DENABLE_TCMALLOC=NO"
@@ -42,7 +43,9 @@
              ;"-DDATA_SUBDIR=/var/lib/lizardfs"
              ;"-DETC_SUBDIR=/etc/lizardfs"
              "-DENABLE_UTILS=YES")
-       #:tests? #f  ; Tests fail to build.
+       ;; Tests involve setting up a lizardfs instance and run as root.
+       ;; We will make do with just building the tests.
+       #:tests? #f
        #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'configure-through-cmakelists.txt
@@ -53,15 +56,15 @@
                (("var/run/mfs") "/var/run/lizardfs")
                (("var/lib/mfs") "/var/lib/lizardfs")
                (("etc/mfs") "/etc/lizardfs"))
-             ;; Then adjust the install directories back.
+             ;; Then adjust the install instructions.
              (substitute* "src/data/CMakeLists.txt"
-               (("\\$\\{ETC_SUBDIR\\}") "etc/lizardfs")
-               (("\\$\\{DATA_SUBDIR\\}") "var/lib/lizardfs"))
+               (("^install.*") ""))
              #t))
          (add-after 'unpack 'use-system-libraries
            (lambda* (#:key inputs #:allow-other-keys)
              (let ((gtest  (assoc-ref inputs "googletest"))
                    (spdlog (assoc-ref inputs "spdlog")))
+               ;; Don't attempt to download any sources.
                (substitute* "cmake/Libraries.cmake"
                  (("ENABLE_TESTS") "DOWNLOAD_GTEST")
                  (("# Find GoogleTest" all)
@@ -75,9 +78,11 @@
                                  "endif()\n"
                                  "find_package(spdlog CONFIG REQUIRED)"))
                  (("include_directories(external/spdlog-0.14.0/include)") ""))
-               ;; Don't include gtest vendor directory
+
+               ;; Configure the location of the googletest sources.
+               (copy-recursively gtest "external/googletest")
                (substitute* "external/CMakeLists.txt"
-                 (("add_subdirectory.*") ""))
+                 (("add_subdirectory.*") "add_subdirectory(googletest)\n"))
 
                ;; Compatability with spdlog1.2.0+
                ;; https://github.com/lizardfs/lizardfs/issues/774
@@ -96,9 +101,30 @@
                (substitute* "src/chunkserver/iostat.h"
                  (("sys/stat.h>") "sys/stat.h>\n#include <sys/sysmacros.h>"))
 
-               #t))))))
+               #t)))
+         (add-after 'install 'install-extras
+           ;; This got broken by changing the directories above.
+           (lambda* (#:key outputs #:allow-other-keys)
+             (with-directory-excursion "../source"
+             (let* ((out  (assoc-ref outputs "out"))
+                    (etc  (string-append out "/etc"))
+                    (var  (string-append out "/var/lib/lizardfs"))
+                    (data "src/data"))
+               (mkdir-p (string-append etc "/bash_completion.d"))
+               (mkdir-p var)
+               (copy-file (string-append data "/lizardfs.completion")
+                          (string-append etc "/bash_completion.d/lizardfs"))
+               (copy-file (string-append data "/metadata.mfs")
+                          (string-append var "/metadata.mfs.empty"))
+               (for-each
+                 (lambda (file)
+                   (copy-file file
+                              (string-append etc "/" (basename file) ".dist")))
+                 (find-files data "\\.cfg(\\.in)?$"))
+               #t)))))))
     (inputs
-     `(("boost" ,boost)
+     `(("bdb" ,bdb)
+       ("boost" ,boost)
        ("fuse" ,fuse)
        ("linux-pam" ,linux-pam)
        ("python" ,python-2)
@@ -106,7 +132,7 @@
        ("zlib" ,zlib)))
     (native-inputs
      `(("asciidoc" ,asciidoc)
-       ("googletest" ,googletest-1.8)
+       ("googletest" ,(package-source googletest-1.7))
        ("pkg-config" ,pkg-config)))
     (home-page "https://lizardfs.com/")
     (synopsis "Distributed, scalable, fault-tolerant, highly available file system")
@@ -122,3 +148,19 @@ added servers, as it continuously takes care of balancing disk usage across all
 connected nodes.")
     (license (list license:asl2.0   ; external/crcutil
                    license:gpl3))))
+
+(define-public googletest-1.7
+  ;; Source only package
+  (hidden-package
+    (package
+      (inherit googletest)
+      (version "1.7.0")
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                       (url "https://github.com/google/googletest")
+                       (commit (string-append "release-" version))))
+                (file-name (git-file-name "googletest" version))
+                (sha256
+                 (base32
+                  "1yqnzrr7bgnnnwq02c5gy559mmb52pap7m1h7zd6w58dj9yvg72n")))))))
-- 
cgit v1.2.3