X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=trunk%2Fexec%2Fbuild;h=6feaf5d7d49cd9a4a1a8b03407b288a113228409;hb=01d5d539cb2ccb4840ee1f2d88beeb0381740e72;hp=4744987e065a8e747fd0380c757c44e6ab8511b2;hpb=b927c8876e7714e24547fd229f291891023aa170;p=cran2deb.git

diff --git a/trunk/exec/build b/trunk/exec/build
index 4744987..6feaf5d 100755
--- a/trunk/exec/build
+++ b/trunk/exec/build
@@ -1,6 +1,7 @@
 #!/usr/bin/env r
-## DOC: cran2deb build [-D extra_dep1,extra_dep2,...] package1 package2 ...
+## DOC: cran2deb build [-d] [-D extra_dep1,extra_dep2,...] package1 package2 ...
 ## DOC:     builds a particular package.
+## DOC:		-d   leave the staging directory around for debugging.
 ## DOC:
 suppressPackageStartupMessages(library(cran2deb))
 
@@ -9,7 +10,8 @@ if (exists('argv')) { # check for littler
     extra_deps = list()
     extra_deps$deb = c()
     extra_deps$r = c()
-    opts = c('-D','-R')
+    do_cleanup = T
+    opts = c('-D','-R','-d')
     # first argument is the root --- this is dealt with elsewhere.
     for (i in 2:argc) {
         if (!(argv[i] %in% opts)) {
@@ -31,13 +33,16 @@ if (exists('argv')) { # check for littler
             extra_deps$r = c(extra_deps$r,strsplit(chomp(argv[i+1]),',')[[1]])
             extra_deps$deb = c(extra_deps$deb,lapply(extra_deps$r,pkgname_as_debian))
         }
+        if (argv[i] == '-d') { #debug
+            do_cleanup = F
+        }
     }
     if (argc == 0) {
-        err('usage: cran2deb build [-D extra_dep1,extra_dep2,...] package package ...')
+        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=', '))
     for (pkg in build_order) {
-        build(pkg,extra_deps,force=pkg %in% argv)
+        build(pkg,extra_deps,force=pkg %in% argv, do_cleanup)
     }
 }