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

import: cran: Ignore invalid packages. 

* guix/import/cran.scm (invalid-packages): New variable.
(description->package): Use it.
This commit is contained in:
Ricardo Wurmus 2019-05-23 10:54:17 +02:00
parent 0f3794fb7c
commit e96619baf7
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/import/cran.scm
View File

@ -237,6 +237,11 @@ empty list when the FIELD cannot be found."
"translations" "translations"
"utils")) "utils"))
;; The field for system dependencies is often abused to specify non-package
;; dependencies (such as c++11). This list is used to ignore them.
(define invalid-packages
(list "c++11"))
(define cran-guix-name (cut guix-name "r-" <>)) (define cran-guix-name (cut guix-name "r-" <>))
(define (needs-fortran? tarball) (define (needs-fortran? tarball)
@ -310,7 +315,8 @@ from the alist META, which was derived from the R package's DESCRIPTION file."
(if (needs-zlib? tarball) '("zlib") '()) (if (needs-zlib? tarball) '("zlib") '())
(map string-downcase (listify meta "SystemRequirements")))) (map string-downcase (listify meta "SystemRequirements"))))
(propagate (filter (lambda (name) (propagate (filter (lambda (name)
(not (member name default-r-packages))) (not (member name (append default-r-packages
invalid-packages))))
(lset-union equal? (lset-union equal?
(listify meta "Imports") (listify meta "Imports")
(listify meta "LinkingTo") (listify meta "LinkingTo")