X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=branch%2Fdouble_build%2FR%2Fdebiannaming.R;fp=branch%2Fdouble_build%2FR%2Fdebiannaming.R;h=0000000000000000000000000000000000000000;hb=42bff07893104a11db95c8d65fe518a336463351;hp=7e07c9e6c40f2eeac4d3e03d41f4ff629163eaac;hpb=f0817a2fbc3df0f5daad0a9e1a11d9f295218c0a;p=cran2deb.git

diff --git a/branch/double_build/R/debiannaming.R b/branch/double_build/R/debiannaming.R
deleted file mode 100644
index 7e07c9e..0000000
--- a/branch/double_build/R/debiannaming.R
+++ /dev/null
@@ -1,46 +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.
-        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)
-}
-