X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=branch%2Fmultisys%2FR%2Fdebiannaming.R;fp=branch%2Fmultisys%2FR%2Fdebiannaming.R;h=0000000000000000000000000000000000000000;hb=f0787374aaeaade22d5f67f4ce317b64d670d829;hp=83c0ab58cf430782c2bb1e9c5b289832c4bd227e;hpb=cba40064eef115e4aec5b1d089963d402a6b0965;p=cran2deb.git

diff --git a/branch/multisys/R/debiannaming.R b/branch/multisys/R/debiannaming.R
deleted file mode 100644
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)
-}
-