build: check for a previous build earlier --- removes the need to download from CRAN...

[cran2deb.git] / pkg / trunk / exec / build

diff --git a/pkg/trunk/exec/build b/pkg/trunk/exec/build
index 91a01f9674579b839d29e9ea8717cea2d65e8e15..d3d40a4ad00af2d955123f2ae991989aa586ddeb 100755 (executable)
--- a/pkg/trunk/exec/build
+++ b/pkg/trunk/exec/build
@@ -4,16 +4,21 @@ suppressMessages(library(cran2deb))
 go <- function(name,extra_deps) {
     dir <- setup()
     pkg <- try((function() {
+        # see if it has already been built
+        srcname <- pkgname_as_debian(name,binary=F)
+        version <- version_new(available[name,'Version'])
+        if (file.exists(changesfile(srcname, version))) {
+            message(paste('N: already built',srcname,'version',version))
+            return(pkg)
+        }
+        rm(srcname,version)
+
         pkg <- prepare_new_debian(prepare_pkg(dir,name),extra_deps)
         # XXX: what about building newer versions?
         if (pkg$debname %in% debian_pkgs) {
             message(paste('N:',pkg$srcname,' exists in Debian (perhaps a different version)'))
             return(pkg)
         }
-        if (file.exists(changesfile(pkg$srcname,pkg$debversion))) {
-            message(paste('N: already built',pkg$srcname,'version',pkg$debversion))
-            return(pkg)
-        }
 
         # delete the current archive (XXX: assumes mini-dinstall)
         for (subdir in c('mini-dinstall','unstable')) {