}
}
if (argc == 0) {
- err('usage: cran2deb build [-d] [-D extra_dep1,extra_dep2,...] package package ...')
+ err('usage: cran2deb build [-d] [-D extra_dep1,extra_dep2,...] package1 package2 ...')
}
- build_order <- r_dependency_closure(c(extra_deps$r,argv))
- #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) {
+ # build_order <- r_dependency_closure(c(extra_deps$r,argv))
+ # 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 argv) {
#cat("Invoking build of '",pkg,"'\n",sep="")
- build(pkg,extra_deps,force=pkg %in% argv, do_cleanup)
+ build(name=pkg,
+ extra_deps=extra_deps,
+ force=TRUE,
+ do_cleanup=do_cleanup)
}
} else {
cat("exec/build: argv not existing.\n")