[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#68741] [PATCH 3/6] swh: Add ‘swh-download-directory-by-nar-hash’.
From: |
Ludovic Courtès |
Subject: |
[bug#68741] [PATCH 3/6] swh: Add ‘swh-download-directory-by-nar-hash’. |
Date: |
Fri, 26 Jan 2024 18:25:03 +0100 |
This allows us to take advantage of content addressing by giving SWH the
expected nar hash.
* guix/swh.scm (swh-download-directory-by-nar-hash): New procedure.
Change-Id: I0494ee15a3cde390a22552de7c2246e0314ba7b5
---
guix/swh.scm | 24 ++++++++++++++++++++++++
1 file changed, 24 insertions(+)
diff --git a/guix/swh.scm b/guix/swh.scm
index 60e97c6d38..be1eb7d151 100644
--- a/guix/swh.scm
+++ b/guix/swh.scm
@@ -123,6 +123,7 @@ (define-module (guix swh)
commit-id?
swh-download-directory
+ swh-download-directory-by-nar-hash
swh-download))
;;; Commentary:
@@ -805,3 +806,26 @@ (define* (swh-download url reference output
"SWH: revision ~s originating from ~a could not be found~%"
reference url)
#f)))
+
+(define* (swh-download-directory-by-nar-hash hash algorithm output
+ #:key
+ (log-port (current-error-port)))
+ "Download from Software Heritage the directory with the given nar HASH for
+ALGORITHM (a symbol such as 'sha256), and unpack it in OUTPUT. Return #t on
+success and #f on failure.
+
+This procedure uses the \"vault\", which contains \"cooked\" directories in
+the form of tarballs. If the requested directory is not cooked yet, it will
+wait until it becomes available, which could take several minutes."
+ (match (lookup-directory-by-nar-hash hash algorithm)
+ (#f
+ (format log-port
+ "SWH: directory with nar-~a hash ~a not found~%"
+ algorithm (bytevector->base16-string hash))
+ #f)
+ (swhid
+ (format log-port "SWH: found directory with nar-~a hash ~a at '~a'~%"
+ algorithm (bytevector->base16-string hash) swhid)
+ (swh-download-archive swhid output
+ #:archive-type 'flat ;SWHID denotes a directory
+ #:log-port log-port))))
--
2.41.0
- [bug#68741] [PATCH 0/6] Content-addressed downloads from Software Heritage, Ludovic Courtès, 2024/01/26
- [bug#68741] [PATCH 1/6] swh: ‘vault-fetch’ follows redirects., Ludovic Courtès, 2024/01/26
- [bug#68741] [PATCH 2/6] swh: Add bindings for the “ExtID” API., Ludovic Courtès, 2024/01/26
- [bug#68741] [PATCH 3/6] swh: Add ‘swh-download-directory-by-nar-hash’.,
Ludovic Courtès <=
- [bug#68741] [PATCH 5/6] git-download: Download from SWH by nar hash when possible., Ludovic Courtès, 2024/01/26
- [bug#68741] [PATCH 4/6] lint: archival: Check with ‘lookup-directory-by-nar-hash’., Ludovic Courtès, 2024/01/26
- [bug#68741] [PATCH 6/6] swh: Fix docstring of ‘lookup-directory’., Ludovic Courtès, 2024/01/26
- [bug#68741] [PATCH 0/6] Content-addressed downloads from Software Heritage, Ludovic Courtès, 2024/01/26