[jackhill/guix/guix.git] / gnu / packages / file-systems.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Leo Famulari <leo@famulari.name>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages file-systems)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix build-system cmake)
  #:use-module (guix build-system gnu)
  #:use-module (guix utils)
  #:use-module (gnu packages)
  #:use-module (gnu packages acl)
  #:use-module (gnu packages attr)
  #:use-module (gnu packages autotools)
  #:use-module (gnu packages bison)
  #:use-module (gnu packages check)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages curl)
  #: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)
  #:use-module (gnu packages readline)
  #:use-module (gnu packages sqlite)
  #:use-module (gnu packages tls)
  #:use-module (gnu packages xml))

(define-public httpfs2
  (package
    (name "httpfs2")
    (version "0.1.5")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "mirror://sourceforge/httpfs/" name "/"
                           name "-" version ".tar.gz"))
       (sha256
        (base32
         "1h8ggvhw30n2r6w11n1s458ypggdqx6ldwd61ma4yd7binrlpjq1"))))
    (build-system gnu-build-system)
    (native-inputs
     `(("asciidoc" ,asciidoc)
       ("docbook-xml" ,docbook-xml)
       ("libxml2" ,libxml2)
       ("libxslt" ,libxslt)
       ("pkg-config" ,pkg-config)))
    (inputs
     `(("fuse" ,fuse)
       ("gnutls" ,gnutls)))
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (delete 'configure)            ; no configure script
         (replace 'install
           ;; There's no ‘install’ target. Install all variants manually.
           (lambda* (#:key outputs #:allow-other-keys)
             (let* ((out (assoc-ref outputs "out"))
                    (bin (string-append out "/bin"))
                    (man1 (string-append out "/share/man/man1")))
               (mkdir-p bin)
               (mkdir-p man1)
               (for-each
                (lambda (variant)
                  (let ((man1-page (string-append variant ".1")))
                    (install-file variant bin)
                    (install-file man1-page man1)))
                (list "httpfs2"
                      "httpfs2-mt"
                      "httpfs2-ssl"
                      "httpfs2-ssl-mt")))
             #t)))
       #:make-flags (list "CC=gcc")
       #:parallel-build? #f             ; can result in missing man pages
       #:tests? #f))                    ; no tests
    (home-page "https://sourceforge.net/projects/httpfs/")
    (synopsis "Mount remote files over HTTP")
    (description "httpfs2 is a @code{fuse} file system for mounting any
@dfn{HyperText} (HTTP or HTTPS) URL.  It uses HTTP/1.1 byte ranges to request
arbitrary bytes from the web server, without needing to download the entire
file.  This is particularly useful with large archives such as ZIP files and
ISO images when you only need to inspect their contents or extract specific
files.  Since the HTTP protocol itself has no notion of directories, only a
single file can be mounted.")
    (license license:gpl2+)))

(define-public disorderfs
  (package
    (name "disorderfs")
    (version "0.5.6")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://salsa.debian.org/reproducible-builds/disorderfs.git")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32
         "1zn2ydap8k9fwjl3ivgrg6l32s5p4ik6ca6j1idp7c77znlv6cpp"))))
    (build-system gnu-build-system)
    (native-inputs
     `(("pkg-config" ,pkg-config)))
    (inputs
     `(("fuse" ,fuse)
       ("attr" ,attr)))
    (arguments
     `(#:phases (modify-phases %standard-phases
                  (delete 'configure))  ; no configure script
       #:make-flags (let ((out (assoc-ref %outputs "out")))
                      (list (string-append "PREFIX=" out)))
       #:test-target "test"
       ;; FIXME: Tests require 'run-parts' which is not in Guix yet.
       #:tests? #f))
    (home-page "https://github.com/ReproducibleBuilds/disorderfs")
    (synopsis "FUSE file system that introduces non-determinism")
    (description
     "An overlay FUSE file system that introduces non-determinism
into file system metadata.  For example, it can randomize the order
in which directory entries are read.  This is useful for detecting
non-determinism in the build process.")
    (license license:gpl3+)))

(define-public glusterfs
  (package
    (name "glusterfs")
    (version "3.10.12")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "https://download.gluster.org/pub/gluster/glusterfs/"
                           (version-major+minor version) "/" version
                           "/glusterfs-" version ".tar.gz"))
       (sha256
        (base32
         "01ysvamvfv2l5pswa1rygpg8w0954h2wkh1ba97h3nx03m5n0prg"))
       (patches
        (search-patches "glusterfs-use-PATH-instead-of-hardcodes.patch"))))
    (build-system gnu-build-system)
    (arguments
     `(#:configure-flags
       (let ((out (assoc-ref %outputs "out")))
         (list (string-append "--with-initdir=" out "/etc/init.d")
               (string-append "--with-mountutildir=" out "/sbin")))
       #:phases
       (modify-phases %standard-phases
         (add-before 'configure 'replace-config.sub
           (lambda* (#:key inputs #:allow-other-keys)
             ;; The distributed config.sub is intentionally left empty and
             ;; must be replaced.
             (install-file (string-append (assoc-ref inputs "automake")
                                          "/share/automake-"
                                          ,(version-major+minor (package-version automake)) "/config.sub")
                           ".")
             #t))
         ;; Fix flex error.  This has already been fixed with upstream commit
         ;; db3fe245a9e8812829eae7d143e49d0bfdfef9a7, but is not available in
         ;; current releases.
         (add-before 'configure 'fix-lex
           (lambda _
             (substitute* "libglusterfs/src/Makefile.in"
               (("libglusterfs_la_LIBADD = @LEXLIB@")
                "libglusterfs_la_LIBADD ="))
             #t)))))
    (native-inputs
     `(("cmocka" ,cmocka)
       ("pkg-config" ,pkg-config)
       ("python-2" ,python-2) ; must be version 2
       ("flex" ,flex)
       ("bison" ,bison)
       ("automake" ,automake)))
    (inputs
     `(("acl" ,acl)
       ;; GlusterFS fails to build with libressl because HMAC_CTX_new and
       ;; HMAC_CTX_free are undefined.
       ("openssl" ,openssl)
       ("liburcu" ,liburcu)
       ("libuuid" ,util-linux)
       ("libxml2" ,libxml2)
       ("lvm2" ,lvm2)
       ("readline" ,readline)
       ("sqlite" ,sqlite) ; for tiering
       ("zlib" ,zlib)))
    (home-page "https://www.gluster.org")
    (synopsis "Distributed file system")
    (description "GlusterFS is a distributed scalable network file system
suitable for data-intensive tasks such as cloud storage and media streaming.
It allows rapid provisioning of additional storage based on your storage
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 <https://sourceforge.net/p/curlftpfs/bugs/73/>.
             (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+)))

(define-public libnfs
  (package
    (name "libnfs")
    (version "3.0.0")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/sahlberg/libnfs.git")
                    (commit (string-append "libnfs-" version))))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "115p55y2cbs92z5lmcnjx1v29lwinpgq4sha9v1kq1vd8674h404"))))
    (build-system gnu-build-system)
    (home-page "https://github.com/sahlberg/libnfs")
    (native-inputs
     `(("autoconf" ,autoconf)
       ("automake" ,automake)
       ("libtool" ,libtool)
       ("pkg-config" ,pkg-config)))
    (synopsis "Client library for accessing NFS shares")
    (description "LIBNFS is a client library for accessing NFS shares over a
network.  LIBNFS offers three different APIs, for different use :

@enumerate
@item RAW, a fully asynchronous low level RPC library for NFS protocols.  This
  API provides very flexible and precise control of the RPC issued.
@item NFS ASYNC, a fully asynchronous library for high level vfs functions
@item NFS SYNC, a synchronous library for high level vfs functions.
@end enumerate\n")
    (license (list license:lgpl2.1+ ; library
                   license:gpl3+    ; tests
                   license:bsd-3    ; copied nsf4 files
                   ))))

(define-public apfs-fuse
  (let ((commit "c7036a3030d128bcecefc1eabc47c039ccfdcec9")
        (revision "0"))
    (package
      (name "apfs-fuse")
      (version (git-version "0.0.0" revision commit))
      (source (origin
                (method git-fetch)
                (uri (git-reference
                       (url "https://github.com/sgan81/apfs-fuse")
                       (recursive? #t) ; for lzfse
                       (commit commit)))
         (sha256
          (base32
           "1akd4cx1f9cyq6sfk9ybv4chhjwjlnqi8ic4z5ajnd5x0g76nz3r"))
         (file-name (git-file-name name version))))
      (build-system cmake-build-system)
      (arguments
       `(#:tests? #f ; No test suite
         #:phases
         (modify-phases %standard-phases
           ;; No 'install' target in CMakeLists.txt
           (replace 'install
             (lambda* (#:key outputs #:allow-other-keys)
               (let* ((out (assoc-ref outputs "out"))
                      (bin (string-append out "/bin"))
                      (lib (string-append out "/lib"))
                      (doc (string-append out "/share/doc/"
                                          (string-append ,name "-" ,version))))
                 (install-file "apfs-dump" bin)
                 (install-file "apfs-dump-quick" bin)
                 (install-file "apfs-fuse" bin)
                 (install-file "libapfs.a" lib)
                 (install-file "../source/LICENSE" doc)
                 #t))))))
      (inputs
       `(("bzip2" ,bzip2)
         ("fuse" ,fuse)
         ("zlib" ,zlib)))
      (synopsis "Read-only FUSE driver for the APFS file system")
      (description "APFS-FUSE is a read-only FUSE driver for the @dfn{Apple File
System} (APFS).  It is currently in an experimental state — it may not be able
to read all files, and it does not support all the compression methods in
APFS.")
      (home-page "https://github.com/sgan81/apfs-fuse")
      (license license:gpl2+))))
Commit	Line	Data
8d5fe1f1	1	;;; GNU Guix --- Functional package management for GNU
3b68a9b6	2	;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
7c5cc400	3	;;; Copyright © 2017 Gábor Boskovits <boskovits@gmail.com>
b7238c3d	4	;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
083ce0ad	5	;;; Copyright © 2018 Leo Famulari <leo@famulari.name>
8d5fe1f1 TGR	6	;;;
	7	;;; This file is part of GNU Guix.
	8	;;;
	9	;;; GNU Guix is free software; you can redistribute it and/or modify it
	10	;;; under the terms of the GNU General Public License as published by
	11	;;; the Free Software Foundation; either version 3 of the License, or (at
	12	;;; your option) any later version.
	13	;;;
	14	;;; GNU Guix is distributed in the hope that it will be useful, but
	15	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	16	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	17	;;; GNU General Public License for more details.
	18	;;;
	19	;;; You should have received a copy of the GNU General Public License
	20	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	21
	22	(define-module (gnu packages file-systems)
	23	#:use-module ((guix licenses) #:prefix license:)
	24	#:use-module (guix packages)
	25	#:use-module (guix download)
7c5cc400	26	#:use-module (guix git-download)
083ce0ad	27	#:use-module (guix build-system cmake)
8d5fe1f1	28	#:use-module (guix build-system gnu)
12a24ee8	29	#:use-module (guix utils)
8d5fe1f1	30	#:use-module (gnu packages)
12a24ee8	31	#:use-module (gnu packages acl)
7c5cc400	32	#:use-module (gnu packages attr)
12a24ee8 RW	33	#:use-module (gnu packages autotools)
	34	#:use-module (gnu packages bison)
	35	#:use-module (gnu packages check)
	36	#:use-module (gnu packages compression)
3b1ada0d	37	#:use-module (gnu packages curl)
12a24ee8	38	#:use-module (gnu packages datastructures)
8d5fe1f1 TGR	39	#:use-module (gnu packages documentation)
8d5fe1f1 TGR	40	#:use-module (gnu packages docbook)
12a24ee8	41	#:use-module (gnu packages flex)
3b1ada0d	42	#:use-module (gnu packages glib)
8d5fe1f1 TGR	43	#:use-module (gnu packages linux)
8d5fe1f1 TGR	44	#:use-module (gnu packages pkg-config)
12a24ee8 RW	45	#:use-module (gnu packages python)
12a24ee8 RW	46	#:use-module (gnu packages readline)
cd0322a3	47	#:use-module (gnu packages sqlite)
8d5fe1f1 TGR	48	#:use-module (gnu packages tls)
	49	#:use-module (gnu packages xml))
	50
	51	(define-public httpfs2
	52	(package
	53	(name "httpfs2")
	54	(version "0.1.5")
	55	(source
	56	(origin
	57	(method url-fetch)
	58	(uri (string-append "mirror://sourceforge/httpfs/" name "/"
	59	name "-" version ".tar.gz"))
	60	(sha256
	61	(base32
	62	"1h8ggvhw30n2r6w11n1s458ypggdqx6ldwd61ma4yd7binrlpjq1"))))
	63	(build-system gnu-build-system)
	64	(native-inputs
	65	`(("asciidoc" ,asciidoc)
	66	("docbook-xml" ,docbook-xml)
	67	("libxml2" ,libxml2)
	68	("libxslt" ,libxslt)
	69	("pkg-config" ,pkg-config)))
	70	(inputs
	71	`(("fuse" ,fuse)
	72	("gnutls" ,gnutls)))
	73	(arguments
	74	`(#:phases
	75	(modify-phases %standard-phases
	76	(delete 'configure) ; no configure script
	77	(replace 'install
	78	;; There's no ‘install’ target. Install all variants manually.
	79	(lambda* (#:key outputs #:allow-other-keys)
	80	(let* ((out (assoc-ref outputs "out"))
	81	(bin (string-append out "/bin"))
	82	(man1 (string-append out "/share/man/man1")))
	83	(mkdir-p bin)
	84	(mkdir-p man1)
	85	(for-each
	86	(lambda (variant)
	87	(let ((man1-page (string-append variant ".1")))
	88	(install-file variant bin)
	89	(install-file man1-page man1)))
	90	(list "httpfs2"
	91	"httpfs2-mt"
	92	"httpfs2-ssl"
	93	"httpfs2-ssl-mt")))
	94	#t)))
	95	#:make-flags (list "CC=gcc")
	96	#:parallel-build? #f ; can result in missing man pages
	97	#:tests? #f)) ; no tests
	98	(home-page "https://sourceforge.net/projects/httpfs/")
	99	(synopsis "Mount remote files over HTTP")
	100	(description "httpfs2 is a @code{fuse} file system for mounting any
	101	@dfn{HyperText} (HTTP or HTTPS) URL. It uses HTTP/1.1 byte ranges to request
	102	arbitrary bytes from the web server, without needing to download the entire
	103	file. This is particularly useful with large archives such as ZIP files and
	104	ISO images when you only need to inspect their contents or extract specific
	105	files. Since the HTTP protocol itself has no notion of directories, only a
	106	single file can be mounted.")
	107	(license license:gpl2+)))
7c5cc400 GB	108
	109	(define-public disorderfs
	110	(package
	111	(name "disorderfs")
75d12c40	112	(version "0.5.6")
7c5cc400 GB	113	(source
	114	(origin
	115	(method git-fetch)
	116	(uri (git-reference
3b68a9b6 TGR	117	(url "https://salsa.debian.org/reproducible-builds/disorderfs.git")
3b68a9b6 TGR	118	(commit version)))
a1dc853e	119	(file-name (git-file-name name version))
7c5cc400 GB	120	(sha256
7c5cc400 GB	121	(base32
75d12c40	122	"1zn2ydap8k9fwjl3ivgrg6l32s5p4ik6ca6j1idp7c77znlv6cpp"))))
7c5cc400 GB	123	(build-system gnu-build-system)
	124	(native-inputs
	125	`(("pkg-config" ,pkg-config)))
	126	(inputs
	127	`(("fuse" ,fuse)
	128	("attr" ,attr)))
	129	(arguments
	130	`(#:phases (modify-phases %standard-phases
becee702	131	(delete 'configure)) ; no configure script
7c5cc400 GB	132	#:make-flags (let ((out (assoc-ref %outputs "out")))
	133	(list (string-append "PREFIX=" out)))
	134	#:test-target "test"
	135	;; FIXME: Tests require 'run-parts' which is not in Guix yet.
	136	#:tests? #f))
	137	(home-page "https://github.com/ReproducibleBuilds/disorderfs")
162a1374	138	(synopsis "FUSE file system that introduces non-determinism")
7c5cc400	139	(description
162a1374 TGR	140	"An overlay FUSE file system that introduces non-determinism
162a1374 TGR	141	into file system metadata. For example, it can randomize the order
7c5cc400 GB	142	in which directory entries are read. This is useful for detecting
	143	non-determinism in the build process.")
	144	(license license:gpl3+)))
	145
12a24ee8 RW	146	(define-public glusterfs
	147	(package
	148	(name "glusterfs")
b7238c3d	149	(version "3.10.12")
12a24ee8 RW	150	(source
	151	(origin
	152	(method url-fetch)
	153	(uri (string-append "https://download.gluster.org/pub/gluster/glusterfs/"
	154	(version-major+minor version) "/" version
	155	"/glusterfs-" version ".tar.gz"))
	156	(sha256
	157	(base32
b7238c3d	158	"01ysvamvfv2l5pswa1rygpg8w0954h2wkh1ba97h3nx03m5n0prg"))
b9fb70ca RW	159	(patches
b9fb70ca RW	160	(search-patches "glusterfs-use-PATH-instead-of-hardcodes.patch"))))
12a24ee8 RW	161	(build-system gnu-build-system)
	162	(arguments
	163	`(#:configure-flags
	164	(let ((out (assoc-ref %outputs "out")))
	165	(list (string-append "--with-initdir=" out "/etc/init.d")
	166	(string-append "--with-mountutildir=" out "/sbin")))
	167	#:phases
	168	(modify-phases %standard-phases
	169	(add-before 'configure 'replace-config.sub
	170	(lambda* (#:key inputs #:allow-other-keys)
	171	;; The distributed config.sub is intentionally left empty and
	172	;; must be replaced.
	173	(install-file (string-append (assoc-ref inputs "automake")
	174	"/share/automake-"
b7238c3d	175	,(version-major+minor (package-version automake)) "/config.sub")
12a24ee8 RW	176	".")
	177	#t))
	178	;; Fix flex error. This has already been fixed with upstream commit
b7238c3d RW	179	;; db3fe245a9e8812829eae7d143e49d0bfdfef9a7, but is not available in
b7238c3d RW	180	;; current releases.
12a24ee8 RW	181	(add-before 'configure 'fix-lex
	182	(lambda _
	183	(substitute* "libglusterfs/src/Makefile.in"
	184	(("libglusterfs_la_LIBADD = @LEXLIB@")
	185	"libglusterfs_la_LIBADD ="))
	186	#t)))))
	187	(native-inputs
	188	`(("cmocka" ,cmocka)
	189	("pkg-config" ,pkg-config)
	190	("python-2" ,python-2) ; must be version 2
	191	("flex" ,flex)
	192	("bison" ,bison)
	193	("automake" ,automake)))
	194	(inputs
	195	`(("acl" ,acl)
	196	;; GlusterFS fails to build with libressl because HMAC_CTX_new and
	197	;; HMAC_CTX_free are undefined.
	198	("openssl" ,openssl)
	199	("liburcu" ,liburcu)
	200	("libuuid" ,util-linux)
	201	("libxml2" ,libxml2)
	202	("lvm2" ,lvm2)
	203	("readline" ,readline)
	204	("sqlite" ,sqlite) ; for tiering
	205	("zlib" ,zlib)))
	206	(home-page "https://www.gluster.org")
	207	(synopsis "Distributed file system")
162a1374	208	(description "GlusterFS is a distributed scalable network file system
12a24ee8 RW	209	suitable for data-intensive tasks such as cloud storage and media streaming.
	210	It allows rapid provisioning of additional storage based on your storage
	211	consumption needs. It incorporates automatic failover as a primary feature.
	212	All of this is accomplished without a centralized metadata server.")
	213	;; The user may choose either LGPLv3+ or GPLv2 only.
	214	(license (list license:lgpl3+ license:gpl2+))))
3b1ada0d DM	215
	216	(define-public curlftpfs
	217	(package
	218	(name "curlftpfs")
	219	(version "0.9.2")
	220	(source
	221	(origin
	222	(method url-fetch)
	223	(uri (string-append "mirror://sourceforge/curlftpfs/curlftpfs/" version
	224	"/curlftpfs-" version ".tar.gz"))
	225	(sha256
	226	(base32
	227	"0n397hmv21jsr1j7zx3m21i7ryscdhkdsyqpvvns12q7qwwlgd2f"))))
	228	(build-system gnu-build-system)
	229	(arguments
	230	`(#:phases
	231	(modify-phases %standard-phases
	232	(add-after 'unpack 'fix-test
	233	(lambda _
	234	;; One of the 512-Byte block counts is definitely wrong.
	235	;; See <https://sourceforge.net/p/curlftpfs/bugs/73/>.
	236	(substitute* "tests/ftpfs-ls_unittest.c"
	237	(("4426192") "12814800"))
	238	#t)))))
	239	(inputs
	240	`(("curl" ,curl)
	241	("glib" ,glib)
c695fb76	242	("fuse" ,fuse)))
3b1ada0d DM	243	(native-inputs
	244	`(("pkg-config" ,pkg-config)))
	245	(home-page "http://curlftpfs.sourceforge.net/")
	246	(synopsis "Mount remote file systems over FTP")
	247	(description
	248	"This is a file system client based on the FTP File Transfer Protocol.")
	249	(license license:gpl2+)))
083ce0ad	250
3b39ae9f RW	251	(define-public libnfs
	252	(package
	253	(name "libnfs")
	254	(version "3.0.0")
	255	(source (origin
	256	(method git-fetch)
	257	(uri (git-reference
	258	(url "https://github.com/sahlberg/libnfs.git")
	259	(commit (string-append "libnfs-" version))))
	260	(file-name (git-file-name name version))
	261	(sha256
	262	(base32
	263	"115p55y2cbs92z5lmcnjx1v29lwinpgq4sha9v1kq1vd8674h404"))))
	264	(build-system gnu-build-system)
	265	(home-page "https://github.com/sahlberg/libnfs")
	266	(native-inputs
	267	`(("autoconf" ,autoconf)
	268	("automake" ,automake)
	269	("libtool" ,libtool)
	270	("pkg-config" ,pkg-config)))
	271	(synopsis "Client library for accessing NFS shares")
	272	(description "LIBNFS is a client library for accessing NFS shares over a
	273	network. LIBNFS offers three different APIs, for different use :
	274
	275	@enumerate
	276	@item RAW, a fully asynchronous low level RPC library for NFS protocols. This
	277	API provides very flexible and precise control of the RPC issued.
	278	@item NFS ASYNC, a fully asynchronous library for high level vfs functions
	279	@item NFS SYNC, a synchronous library for high level vfs functions.
	280	@end enumerate\n")
	281	(license (list license:lgpl2.1+ ; library
	282	license:gpl3+ ; tests
	283	license:bsd-3 ; copied nsf4 files
	284	))))
	285
083ce0ad LF	286	(define-public apfs-fuse
	287	(let ((commit "c7036a3030d128bcecefc1eabc47c039ccfdcec9")
	288	(revision "0"))
	289	(package
	290	(name "apfs-fuse")
	291	(version (git-version "0.0.0" revision commit))
	292	(source (origin
	293	(method git-fetch)
	294	(uri (git-reference
	295	(url "https://github.com/sgan81/apfs-fuse")
	296	(recursive? #t) ; for lzfse
	297	(commit commit)))
	298	(sha256
	299	(base32
	300	"1akd4cx1f9cyq6sfk9ybv4chhjwjlnqi8ic4z5ajnd5x0g76nz3r"))
	301	(file-name (git-file-name name version))))
	302	(build-system cmake-build-system)
	303	(arguments
	304	`(#:tests? #f ; No test suite
	305	#:phases
	306	(modify-phases %standard-phases
	307	;; No 'install' target in CMakeLists.txt
	308	(replace 'install
	309	(lambda* (#:key outputs #:allow-other-keys)
	310	(let* ((out (assoc-ref outputs "out"))
	311	(bin (string-append out "/bin"))
	312	(lib (string-append out "/lib"))
	313	(doc (string-append out "/share/doc/"
	314	(string-append ,name "-" ,version))))
	315	(install-file "apfs-dump" bin)
	316	(install-file "apfs-dump-quick" bin)
	317	(install-file "apfs-fuse" bin)
	318	(install-file "libapfs.a" lib)
	319	(install-file "../source/LICENSE" doc)
	320	#t))))))
	321	(inputs
	322	`(("bzip2" ,bzip2)
	323	("fuse" ,fuse)
	324	("zlib" ,zlib)))
c1469ab6	325	(synopsis "Read-only FUSE driver for the APFS file system")
083ce0ad LF	326	(description "APFS-FUSE is a read-only FUSE driver for the @dfn{Apple File
	327	System} (APFS). It is currently in an experimental state — it may not be able
	328	to read all files, and it does not support all the compression methods in
	329	APFS.")
	330	(home-page "https://github.com/sgan81/apfs-fuse")
	331	(license license:gpl2+))))