From: blundellc <blundellc@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Sat, 13 Sep 2008 13:22:36 +0000 (+0000)
Subject: version: use base epoch
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=49294375168dcbac632a00e1a9fe0b1e9e1b3b05;p=cran2deb.git

version: use base epoch

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@92 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---

diff --git a/pkg/trunk/R/db.R b/pkg/trunk/R/db.R
index baad105..a4dedd0 100644
--- a/pkg/trunk/R/db.R
+++ b/pkg/trunk/R/db.R
@@ -91,6 +91,13 @@ db_base_epoch <- function(con) {
              ,'WHERE version IN (SELECT max(version) FROM database_versions)'))[[1]]))
 }
 
+db_get_base_epoch <- function() {
+    con <- db_start()
+    v <- db_base_epoch(con)
+    db_stop(con)
+    return(v)
+}
+
 db_add_version <- function(con, version, epoch) {
     dbGetQuery(con,paste('INSERT INTO database_versions (version,version_date,base_epoch)'
               ,'VALUES (',as.integer(version),',',db_now(),',',as.integer(epoch),')'))
diff --git a/pkg/trunk/R/version.R b/pkg/trunk/R/version.R
index 6ac7601..4ea1333 100644
--- 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=db_get_base_epoch()) {
     # generate a string representation of the Debian version of an
     # R version of a package
     pkgver = rver
@@ -36,7 +36,7 @@ version_epoch <- function(pkgver) {
     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)) = base_epoch
 
 version_revision <- function(pkgver) {
     # return the Debian revision of a Debian package version