A first simple attempt at patching.

[cran2deb.git] / branch / patch / R / patch.R

diff --git a/branch/patch/R/patch.R b/branch/patch/R/patch.R
new file mode 100644 (file)
index 0000000..b9dc8ce
--- /dev/null
+++ b/branch/patch/R/patch.R
@@ -0,0 +1,20 @@
+apply_patches <- function(pkg) {
+    patch_path = file.path(patch_dir, pkg$name)
+    if (!file.exists(patch_path)) {
+        notice('no patches in',patch_path)
+        return()
+    }
+
+    # make debian/patches for simple-patchsys
+    deb_patch = pkg$debfile('patches')
+    if (!dir.create(deb_patch)) {
+        fail('could not create patches directory', deb_patch)
+    }
+
+    # now just copy the contents of patch_path into debian/patches
+    for (patch in list.files(patch_path)) {
+        notice('including patch', patch)
+        file.copy(file.path(patch_path, patch), deb_patch)
+    }
+}
+