amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix: Add download-multi-svn-to-store.

Browse source 
* guix/svn-download.scm (download-multi-svn-to-store): New procedure.
This commit is contained in:
Ricardo Wurmus 2021-11-15 16:37:17 +00:00
parent 4eb7ec53dd
commit 3e5749fc33
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 29 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

31
guix/svn-download.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015, 2016, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Sree Harsha Totakura <sreeharsha@totakura.in> ;;; Copyright © 2014 Sree Harsha Totakura <sreeharsha@totakura.in>
;;; Copyright © 2017, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017, 2019, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -26,7 +26,9 @@
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module ((guix build svn) #:prefix build:) #:use-module ((guix build svn) #:prefix build:)
#:use-module ((guix build utils) #:select (mkdir-p))
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (srfi srfi-1)
#:export (svn-reference #:export (svn-reference
svn-reference? svn-reference?
svn-reference-url svn-reference-url
@ -41,7 +43,8 @@
svn-multi-reference-revision svn-multi-reference-revision
svn-multi-reference-locations svn-multi-reference-locations
svn-multi-reference-recursive? svn-multi-reference-recursive?
svn-multi-fetch)) svn-multi-fetch
download-multi-svn-to-store))
;;; Commentary: ;;; Commentary:
;;; ;;;
@ -166,4 +169,28 @@ reports to LOG."
(add-to-store store name #t "sha256" (add-to-store store name #t "sha256"
(string-append temp "/svn"))))))) (string-append temp "/svn")))))))
(define* (download-multi-svn-to-store store ref
#:optional (name (basename (svn-multi-reference-url ref)))
#:key (log (current-error-port)))
"Download from REF, a <svn-multi-reference> object to STORE. Write progress
reports to LOG."
(call-with-temporary-directory
(lambda (temp)
(and (every (lambda (location)
(let ((dir (string-append temp "/" (dirname location))))
(mkdir-p dir))
(parameterize ((current-output-port log))
(build:svn-fetch (string-append (svn-multi-reference-url ref)
"/" location)
(svn-multi-reference-revision ref)
(if (string-suffix? "/" location)
(string-append temp "/" location)
(string-append temp "/" (dirname location)))
#:recursive?
(svn-multi-reference-recursive? ref)
#:user-name (svn-multi-reference-user-name ref)
#:password (svn-multi-reference-password ref))))
(svn-multi-reference-locations ref))
(add-to-store store name #t "sha256" temp)))))
;;; svn-download.scm ends here ;;; svn-download.scm ends here