#notice(paste("Now in path ",wd,"\n",sep=""))
setwd(pkg$path)
- notice('building Debian package'
- ,pkg$debname
- ,paste('(',pkg$debversion,')',sep='')
- ,'in',getwd(),
- ,'...')
+ notice('building Debian package',pkg$debname,paste('(',pkg$debversion,')',sep=''),'in',getwd(),'...')
cmd = paste('pdebuild --configfile',shQuote(pbuilder_config))
if (version_revision(pkg$debversion) > 2) {
cmd = paste(cmd,'--debbuildopts','-sd')
notice('build should exclude original source')
}
- notice(paste("Executing '",cmd,"' from directory '",getwd(),"'.\n",sep=""))
+ notice(paste("Executing ",'"',cmd,'"'," from directory '",getwd(),"'.\n",sep=""))
ret = log_system(cmd)
setwd(wd)
if (ret != 0) {
err('usage: cran2deb build [-d] [-D extra_dep1,extra_dep2,...] package package ...')
}
build_order <- r_dependency_closure(c(extra_deps$r,argv))
- notice('build order',paste(build_order,collapse=', '))
+ #cat("build_order: "); print(build_order);
+ notice('build order',ifelse(0<length(build_order),paste(build_order,collapse=', ',sep="")," nothing to be built"))
for (pkg in build_order) {
#cat("Invoking build of '",pkg,"'\n",sep="")
build(pkg,extra_deps,force=pkg %in% argv, do_cleanup)