rename double_build -> split_build

[cran2deb.git] / branch / split_build / R / util.R

diff --git a/branch/split_build/R/util.R b/branch/split_build/R/util.R
new file mode 100644 (file)
index 0000000..68401fd
--- /dev/null
+++ b/branch/split_build/R/util.R
@@ -0,0 +1,20 @@
+iterate <- function(xs,z,fun) {
+    y <- z
+    for (x in xs)
+        y <- fun(y,x)
+    return(y)
+}
+
+chomp <- function(x) {
+    # remove leading and trailing spaces
+    return(sub('^[[:space:]]+','',sub('[[:space:]]+$','',x)))
+}
+
+err <- function(...) {
+    error(...)
+    exit()
+}
+
+exit <- function() {
+    q(save='no')
+}