style: use la_foo_bar instead of la.foo.bar.

[cran2deb.git] / pkg / trunk / R / version.R

diff --git a/pkg/trunk/R/version.R b/pkg/trunk/R/version.R
index 29c8c0ebce68718b4708732472240df125efc8db..8820182d0e2379dfc66e71c08573c64e6026a6b0 100644 (file)
--- a/pkg/trunk/R/version.R
+++ b/pkg/trunk/R/version.R
@@ -1,4 +1,4 @@
-version.new <- function(rver,debian_revision=1, debian_epoch=0) {
+version_new <- function(rver,debian_revision=1, debian_epoch=0) {
     # generate a string representation of the Debian version of an
     # R version of a package
     pkgver = rver
@@ -29,42 +29,42 @@ version.new <- function(rver,debian_revision=1, debian_epoch=0) {
     return(paste(pkgver,'-',debian_revision,sep=''))
 }
 
-version.epoch <- function(pkgver) {
+version_epoch <- function(pkgver) {
     # return the Debian epoch of a Debian package version
     if (!length(grep(':',pkgver)))
         return(0)
     return(as.integer(sub('^([0-9]+):.*','\\1',pkgver)))
 }
-# version.epoch . version.new(x,y) = id
-# version.epoch(version.new(x,y)) = 0
+# version_epoch . version_new(x,y) = id
+# version_epoch(version_new(x,y)) = 0
 
-version.revision <- function(pkgver) {
+version_revision <- function(pkgver) {
     # return the Debian revision of a Debian package version
     return(as.integer(sub('.*-([0-9]+)$','\\1',pkgver)))
 }
-# version.revision . version.new(x) = id
-# version.revision(version.new(x)) = 1
+# version_revision . version_new(x) = id
+# version_revision(version_new(x)) = 1
 
-version.upstream <- function(pkgver) {
+version_upstream <- function(pkgver) {
     # return the upstream version of a Debian package version
     return(sub('-[0-9]+$','',sub('^[0-9]+:','',pkgver)))
 }
-# version.upstream . version.new = id
+# version_upstream . version_new = id
 
-version.update <- function(rver, prev_pkgver) {
+version_update <- function(rver, prev_pkgver) {
     # return the next debian package version
-    prev_rver <- version.upstream(prev_pkgver)
+    prev_rver <- version_upstream(prev_pkgver)
     if (prev_rver == rver) {
         # increment the Debian revision
-        return(version.new(rver
-                          ,debian_revision = version.revision(prev_pkgver)+1
-                          ,debian_epoch    = version.epoch(prev_pkgver)
+        return(version_new(rver
+                          ,debian_revision = version_revision(prev_pkgver)+1
+                          ,debian_epoch    = version_epoch(prev_pkgver)
                           ))
     }
     # new release
     # TODO: implement Debian ordering over version and then autoincrement
     #       Debian epoch when upstream version does not increment.
-    return(version.new(rver
-                      ,debian_epoch = version.epoch(prev_pkgver)
+    return(version_new(rver
+                      ,debian_epoch = version_epoch(prev_pkgver)
                       ))
 }