Hi, zimoun schrieb am Mittwoch der 22. Dezember 2021 um 15:23 +01: > Hi, > > Your patch is an improvement considering this old discussion [1]. > > 1: Oh, looks like this has been a problem for a while, and I suspect that it was the root cause of [1] too. [1]: > On Wed, 22 Dec 2021 at 14:42, Xinglu Chen wrote: > >> Which ‘svn-fetch’ are you referring to (there are two AFAICS)? The >> Texlive importer uses ‘download-multi-svn-to-store’, which itself uses >> ‘svn-fetch’ from (guix build svn), but it requires the ‘svn’ program to >> be in PATH. >> >> There is another ‘svn-fetch’ procedure, in (guix svn-download), but that >> one returns a fixed-output derivation, so it can only be used if we >> already know the hash (which we don’t, that’s why we are fetching the >> SVN repo). > > The one in (guix svn-download) uses under the hood (guix build svn), if > I read correctly: > > --8<---------------cut here---------------start------------->8--- > #~(begin > (use-modules (guix build svn)) > (svn-fetch '#$(svn-reference-url ref) > '#$(svn-reference-revision ref) > #$output > #:svn-command (string-append #+svn "/bin/svn") > #:recursive? #$(svn-reference-recursive? ref) > #:user-name #$(svn-reference-user-name ref) > #:password #$(svn-reference-password ref))))) > --8<---------------cut here---------------end--------------->8--- > > Anyway. :-) > >> Importers that fetch a Git repo don’t need ‘git’ to be in PATH since >> they use the Guile-Git bindings to libgit2. But we don’t have Guile >> bindings to SVN (or Hg, CVS, Bzr), so the program has to be installed on >> the host system. > > I think it is not related how the call is done, here (invoke “svn” > “export” …) and not (libsvn-export …). My point was that because we don’t have Guile bindings to any VCS except Git, the user needs to have the corresponding VCS program installed in order for the importer to fetch the repo. > In the snippet above, #+svn is transparently picked from the current > subversion package. Maybe the bit > > --8<---------------cut here---------------start------------->8--- > (define (subversion-package) > "Return the default Subversion package." > (let ((distro (resolve-interface '(gnu packages version-control)))) > (module-ref distro 'subversion))) > --8<---------------cut here---------------end--------------->8--- > > could go to ’(guix build svn)’, used overthere instead of “#:key > (svn-command "svn")”; and maybe exported if needed. > > WDYT? Sure, that sounds like a nice refactoring. It seems to apply to the other VCSs too. :-)