me/guix
Archived
1
0
Fork 0
Code Activity

import: Add package->upstream-name procedure.

Browse source 
* guix/import/cran.scm (package->upstream-name): New procedure.
This commit is contained in:
Ricardo Wurmus 2015-12-16 14:22:17 +01:00
parent fe9451c50a
commit d1c116089b
1 changed files with 23 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
guix/import/cran.scm
View file

@ -204,10 +204,13 @@ which was derived from the R package's DESCRIPTION file."
;;; Updater. ;;; Updater.
;;; ;;;
(define (latest-release package) (define (package->upstream-name package)
"Return an <upstream-source> for the latest release of PACKAGE." "Return the upstream name of the PACKAGE."
(let* ((properties (package-properties package))
(define (package->cran-name package) (upstream-name (and=> properties
(cut assoc-ref <> 'upstream-name))))
(if upstream-name
upstream-name
(match (package-source package) (match (package-source package)
((? origin? origin) ((? origin? origin)
(match (origin-uri origin) (match (origin-uri origin)
@ -218,13 +221,16 @@ which was derived from the R package's DESCRIPTION file."
;; (string-append "/" name "_" version ".tar.gz") ;; (string-append "/" name "_" version ".tar.gz")
(substring url start end))) (substring url start end)))
(_ #f))) (_ #f)))
(_ #f))) (_ #f)))))
(define cran-name (define (latest-release package)
(package->cran-name (specification->package package))) "Return an <upstream-source> for the latest release of PACKAGE."
(define upstream-name
(package->upstream-name (specification->package package)))
(define meta (define meta
(cran-fetch cran-name)) (cran-fetch upstream-name))
(and meta (and meta
(let ((version (assoc-ref meta "Version"))) (let ((version (assoc-ref meta "Version")))
@ -232,7 +238,7 @@ which was derived from the R package's DESCRIPTION file."
(upstream-source (upstream-source
(package package) (package package)
(version version) (version version)
(urls (cran-uri cran-name version)))))) (urls (cran-uri upstream-name version))))))
(define (cran-package? package) (define (cran-package? package)
"Return true if PACKAGE is an R package from CRAN." "Return true if PACKAGE is an R package from CRAN."