12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697 |
- (define-module (guix cvs-download)
- #:use-module (guix records)
- #:use-module (guix gexp)
- #:use-module (guix store)
- #:use-module (guix monads)
- #:use-module (guix modules)
- #:use-module (guix packages)
- #:use-module (ice-9 match)
- #:export (cvs-reference
- cvs-reference?
- cvs-reference-url
- cvs-reference-revision
- cvs-fetch))
- (define-record-type* <cvs-reference>
- cvs-reference make-cvs-reference
- cvs-reference?
- (root-directory cvs-reference-root-directory)
- (module cvs-reference-module)
- (revision cvs-reference-revision))
- (define (cvs-package)
- "Return the default CVS package."
- (let ((distro (resolve-interface '(gnu packages version-control))))
- (module-ref distro 'cvs)))
- (define* (cvs-fetch ref hash-algo hash
- #:optional name
- #:key (system (%current-system)) (guile (default-guile))
- (cvs (cvs-package)))
- "Return a fixed-output derivation that fetches REF, a <cvs-reference>
- object. The output is expected to have recursive hash HASH of type
- HASH-ALGO (a symbol). Use NAME as the file name, or a generic name if #f."
- (define guile-zlib
- (module-ref (resolve-interface '(gnu packages guile)) 'guile-zlib))
- (define modules
- (delete '(guix config)
- (source-module-closure '((guix build cvs)
- (guix build download-nar)))))
- (define build
- (with-imported-modules modules
- (with-extensions (list guile-zlib)
- #~(begin
- (use-modules (guix build cvs)
- (guix build download-nar))
- (or (cvs-fetch '#$(cvs-reference-root-directory ref)
- '#$(cvs-reference-module ref)
- '#$(cvs-reference-revision ref)
- #$output
- #:cvs-command (string-append #+cvs "/bin/cvs"))
- (download-nar #$output))))))
- (mlet %store-monad ((guile (package->derivation guile system)))
- (gexp->derivation (or name "cvs-checkout") build
- #:leaked-env-vars '("http_proxy" "https_proxy"
- "LC_ALL" "LC_MESSAGES" "LANG"
- "COLUMNS")
- #:system system
- #:hash-algo hash-algo
- #:hash hash
- #:recursive? #t
- #:guile-for-build guile
- #:local-build? #t)))
|