A first simple attempt at patching.

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

diff --git a/branch/patch/R/zzz.R b/branch/patch/R/zzz.R
new file mode 100644 (file)
index 0000000..3255fe7
--- /dev/null
+++ b/branch/patch/R/zzz.R
@@ -0,0 +1,24 @@
+.First.lib <- function(libname, pkgname) {
+    global <- function(name,value) assign(name,value,envir=.GlobalEnv)
+    global("maintainer", 'cran2deb autobuild <cran2deb@example.org>')
+    global("root", system.file(package='cran2deb'))
+    global("cache_root", '/var/cache/cran2deb')
+    global("pbuilder_results", '/var/cache/cran2deb/results')
+    global("pbuilder_config", '/etc/cran2deb/pbuilderrc')
+    global("dput_config", '/etc/cran2deb/dput.cf')
+    global("dinstall_config", '/etc/cran2deb/mini-dinstall.conf')
+    global("dinstall_archive", '/etc/cran2deb/archive')
+    global("r_depend_fields", c('Depends','Imports')) # Suggests, Enhances
+    global("scm_revision", 'svn:$Id$')
+    global("patch_dir", '/etc/cran2deb/patches')
+    global("changesfile", function(srcname,version='*') {
+        return(file.path(pbuilder_results
+                        ,paste(srcname,'_',version,'_'
+                              ,host_arch(),'.changes',sep='')))
+    })
+
+    cache <- file.path(cache_root,'cache.rda')
+    if (file.exists(cache)) {
+        load(cache,envir=.GlobalEnv)
+    }
+}