1 files changed, 0 insertions(+), 91 deletions(-)

M gnu/packages/backup.scm

@@ 571,97 571,6 @@ remote machines over SSH.  To reduce the disk space required for each backup,
 rsnapshot uses hard links to deduplicate identical files.")
     (license license:gpl2+)))
 
-(define-public libchop
-  (package
-    (name "libchop")
-    (version "0.5.2")
-    (source (origin
-              (method url-fetch)
-              (uri (string-append "mirror://savannah/libchop/libchop-"
-                                  version ".tar.gz"))
-              (sha256
-               (base32
-                "0fpdyxww41ba52d98blvnf543xvirq1v9xz1i3x1gm9lzlzpmc2g"))
-              (modules '((guix build utils)))
-              (snippet
-               '(begin
-                  ;; Gnulib's <stdio.h> refers to 'gets' for the purposes of
-                  ;; warning against its use, but 'gets' is no longer declared
-                  ;; in glibc's <stdio.h>.  Remove that warning.
-                  (substitute* "lib/stdio.in.h"
-                    (("_GL_WARN_ON_USE \\(gets,.*")
-                     "\n/* 'gets' is gone, rejoice! */\n"))
-
-                  ;; Include all the libtirpc headers necessary to get the
-                  ;; definitions of 'u_int', etc.
-                  (substitute* '("src/block-server.c"
-                                 "include/chop/block-server.h"
-                                 "utils/chop-block-server.c")
-                    (("#include <rpc/(.*)\\.h>" _ header)
-                     (string-append "#include <rpc/types.h>\n"
-                                    "#include <rpc/rpc.h>\n"
-                                    "#include <rpc/" header ".h>\n")))))))
-    (build-system gnu-build-system)
-    (arguments
-     '(;; Link against libtirpc.
-       #:configure-flags '("LDFLAGS=-ltirpc -Wl,--as-needed")
-
-       #:phases (modify-phases %standard-phases
-                  (add-before 'configure 'adjust-configure-script
-                    (lambda _
-                      ;; Mimic upstream commit
-                      ;; 25750ab5ef82fd3cfce5205d5f1ef07b47098091.
-                      (substitute* "configure"
-                        (("GUILE=(.*)--variable bindir`" _ middle)
-                         (string-append "GUILE=" middle
-                                        "--variable bindir`/guile")))))
-                  (add-before 'build 'set-libtirpc-include-path
-                    (lambda* (#:key inputs #:allow-other-keys)
-                      ;; Allow <rpc/rpc.h> & co. to be found.
-                      (let ((tirpc (string-append (assoc-ref inputs "libtirpc")
-                                                  "/include/tirpc")))
-                        (if (getenv "CPATH")
-                          (setenv "CPATH"
-                                  (string-append (getenv "CPATH")
-                                                 ":" tirpc))
-                          (setenv "CPATH" tirpc)))))
-                  (add-before 'check 'adjust-test
-                    (lambda _
-                      ;; This test uses a weird construct to spawn
-                      ;; 'chop-block-server' in the background.  Replace it
-                      ;; with something that actually works.
-                      (substitute* "tests/utils/block-server"
-                        (("chop_fail_if ! chop-block-server")
-                         "chop-block-server")
-                        (("'&'")
-                         "&")))))))
-    (native-inputs
-     (list guile-2.0 gperf-3.0 ;see <https://bugs.gnu.org/32382>
-           pkg-config rpcsvc-proto))           ;for 'rpcgen'
-    (inputs
-     (list guile-2.0
-           util-linux
-           libtirpc
-           gnutls
-           tdb
-           bdb
-           gdbm
-           libgcrypt
-           lzo
-           bzip2
-           zlib))
-    (home-page "https://nongnu.org/libchop/")
-    (synopsis "Tools & library for data backup and distributed storage")
-    (description
-     "Libchop is a set of utilities and library for data backup and
-distributed storage.  Its main application is @command{chop-backup}, an
-encrypted backup program that supports data integrity checks, versioning,
-distribution among several sites, selective sharing of stored data, adaptive
-compression, and more.  The library itself implements storage techniques such
-as content-addressable storage, content hash keys, Merkle trees, similarity
-detection, and lossless compression.")
-    (license license:gpl3+)))
-
 (define-public borg
   (package
     (name "borg")