From 6e4bb6c3d60e1afa245353201e4a5cb50ace7cbc Mon Sep 17 00:00:00 2001 From: blundellc Date: Sat, 13 Sep 2008 13:20:42 +0000 Subject: [PATCH] build: check for a previous build earlier --- removes the need to download from CRAN to check. note: requires the availability cache to be up to date. git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@77 edb9625f-4e0d-4859-8d74-9fd3b1da38cb --- pkg/trunk/exec/build | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/pkg/trunk/exec/build b/pkg/trunk/exec/build index 91a01f9..d3d40a4 100755 --- 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')) { -- 2.39.5