--- /dev/null
+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)
+ }
+}
+