From e761ed7384a8a086c5fed95336123a0ba6fc0cb1 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Wed, 28 Sep 2022 22:04:01 +0200 Subject: import/cran: Transform external package names to Guix names. * guix/import/cran.scm (transform-sysname): New procedure. (description->package): Use it on inputs that are derived from "sysdepends". --- guix/import/cran.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'guix') diff --git a/guix/import/cran.scm b/guix/import/cran.scm index d60e9a3b1f..ec70370863 100644 --- a/guix/import/cran.scm +++ b/guix/import/cran.scm @@ -367,6 +367,14 @@ empty list when the FIELD cannot be found." "xcode" "xquartz")) +(define (transform-sysname sysname) + "Return a Guix package name for the common package name SYSNAME." + (match sysname + ("java" "openjdk") + ("fftw3" "fftw") + ("tcl/tk" "tcl") + (_ sysname))) + (define cran-guix-name (cut guix-name "r-" <>)) (define (tarball-needs-fortran? tarball) @@ -561,7 +569,7 @@ from the alist META, which was derived from the R package's DESCRIPTION file." `((properties ,`(,'quasiquote ((,'upstream-name . ,name))))) '()) (build-system r-build-system) - ,@(maybe-inputs sysdepends) + ,@(maybe-inputs (map transform-sysname sysdepends)) ,@(maybe-inputs (map cran-guix-name propagate) 'propagated-inputs) ,@(maybe-inputs `(,@(if (needs-fortran? source (not (or git? hg?))) -- cgit v1.2.3