guix_mirror_bot pushed a commit to branch master
in repository guix.
commit d8ec0c6ce4a6b247fed5fb232449631d8d18e6d2
Author: Andreas Enge <andr...@enge.fr>
AuthorDate: Thu Sep 18 18:29:58 2025 +0200
gnu: Remove libchop.
* gnu/packages/backup.scm (libchop): Delete variable.
Change-Id: I19ec27717e4f13a149f62e5a0a025c0f0f84c74d
---
gnu/packages/backup.scm | 91 -------------------------------------------------
1 file changed, 91 deletions(-)
diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm
index 063eb67837..80cf7a8bd2 100644
--- a/gnu/packages/backup.scm
+++ b/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")
