nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

import: Add package->upstream-name procedure. 

* guix/import/cran.scm (package->upstream-name): New procedure.
master
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

40
guix/import/cran.scm
View File

@ -204,27 +204,33 @@ which was derived from the R package's DESCRIPTION file."
;;; Updater. ;;; Updater.
;;; ;;;
(define (package->upstream-name package)
"Return the upstream name of the PACKAGE."
(let* ((properties (package-properties package))
(upstream-name (and=> properties
(cut assoc-ref <> 'upstream-name))))
(if upstream-name
upstream-name
(match (package-source package)
((? origin? origin)
(match (origin-uri origin)
((url rest ...)
(let ((end (string-rindex url #\_))
(start (string-rindex url #\/)))
;; The URL ends on
;; (string-append "/" name "_" version ".tar.gz")
(substring url start end)))
(_ #f)))
(_ #f)))))
(define (latest-release package) (define (latest-release package)
"Return an <upstream-source> for the latest release of PACKAGE." "Return an <upstream-source> for the latest release of PACKAGE."
(define (package->cran-name package) (define upstream-name
(match (package-source package) (package->upstream-name (specification->package package)))
((? origin? origin)
(match (origin-uri origin)
((url rest ...)
(let ((end (string-rindex url #\_))
(start (string-rindex url #\/)))
;; The URL ends on
;; (string-append "/" name "_" version ".tar.gz")
(substring url start end)))
(_ #f)))
(_ #f)))
(define cran-name
(package->cran-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."