From 3b1ada0d715202de644af0e8978b29e9b5e33de7 Mon Sep 17 00:00:00 2001 From: Danny Milosavljevic Date: Tue, 16 Jan 2018 17:34:22 +0100 Subject: gnu: Add curlftpfs. * gnu/packages/file-systems.scm (curlftpfs): New variable. --- gnu/packages/file-systems.scm | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) (limited to 'gnu') diff --git a/gnu/packages/file-systems.scm b/gnu/packages/file-systems.scm index 621c70b0d5..4a8058b520 100644 --- a/gnu/packages/file-systems.scm +++ b/gnu/packages/file-systems.scm @@ -32,11 +32,13 @@ #:use-module (gnu packages bison) #:use-module (gnu packages check) #:use-module (gnu packages compression) + #:use-module (gnu packages curl) #:use-module (gnu packages databases) #:use-module (gnu packages datastructures) #:use-module (gnu packages documentation) #:use-module (gnu packages docbook) #:use-module (gnu packages flex) + #:use-module (gnu packages glib) #:use-module (gnu packages linux) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) @@ -206,3 +208,38 @@ consumption needs. It incorporates automatic failover as a primary feature. All of this is accomplished without a centralized metadata server.") ;; The user may choose either LGPLv3+ or GPLv2 only. (license (list license:lgpl3+ license:gpl2+)))) + +(define-public curlftpfs + (package + (name "curlftpfs") + (version "0.9.2") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/curlftpfs/curlftpfs/" version + "/curlftpfs-" version ".tar.gz")) + (sha256 + (base32 + "0n397hmv21jsr1j7zx3m21i7ryscdhkdsyqpvvns12q7qwwlgd2f")))) + (build-system gnu-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-test + (lambda _ + ;; One of the 512-Byte block counts is definitely wrong. + ;; See . + (substitute* "tests/ftpfs-ls_unittest.c" + (("4426192") "12814800")) + #t))))) + (inputs + `(("curl" ,curl) + ("glib" ,glib) + ("fuse", fuse))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (home-page "http://curlftpfs.sourceforge.net/") + (synopsis "Mount remote file systems over FTP") + (description + "This is a file system client based on the FTP File Transfer Protocol.") + (license license:gpl2+))) -- cgit v1.2.3