Merged branch/multisys into trunk.

[cran2deb.git] / branch / multisys / R / debiannaming.R

diff --git a/branch/multisys/R/debiannaming.R b/branch/multisys/R/debiannaming.R
deleted file mode 100644 (file)
index 83c0ab5..0000000
--- a/branch/multisys/R/debiannaming.R
+++ /dev/null
@@ -1,52 +0,0 @@
-repourl_as_debian <- function(url) {
-    # map the url to a repository onto its name in debian package naming
-    if (length(grep('cran',url))) {
-        return('cran')
-    }
-    if (length(grep('bioc',url))) {
-        return('bioc')
-    }
-    fail('unknown repository',url)
-}
-
-pkgname_as_debian <- function(name,repopref=NULL,version=NULL,binary=T,build=F) {
-    # generate the debian package name corresponding to the R package name
-    if (name %in% base_pkgs) {
-        name = 'R'
-    }
-    if (name == 'R') {
-        # R is special.
-        if (binary) {
-            if (build) {
-                debname='r-base-dev'
-            } else {
-                debname='r-base-core'
-            }
-        } else {
-            debname='R'
-        }
-    } else {
-        # XXX: data.frame rownames are unique, so always override repopref for
-        #      now.
-        if (!(name %in% rownames(available))) {
-            bundle <- r_bundle_of(name)
-            if (!is.null(bundle)) {
-                name <- bundle
-            }
-        }
-        debname = tolower(name)
-        if (binary) {
-            if (name %in% rownames(available)) {
-                repopref <- tolower(repourl_as_debian(available[name,'Repository']))
-            } else if (is.null(repopref)) {
-                repopref <- 'unknown'
-            }
-            debname = paste('r',repopref,debname,sep='-')
-        }
-    }
-    if (!is.null(version) && length(version) > 1) {
-        debname = paste(debname,' (',version,')',sep='')
-    }
-    return(debname)
-}
-