invisible()
}
-download_pkg <- function(dir, pkgname) {
+download_pkg <- function(dir, pkgname, repacking=0) {
# download pkgname into dir, and construct some metadata
# record some basic information
,archive))
pkg$archive = archive
# this is not a Debian conformant archive
- pkg$need_repack = TRUE
+ ## we basically should never repack
+ ## pkg$need_repack = TRUE
}
return(pkg)
}
# if necessary, repack the archive into Debian-conformant format
if (pkg$need_repack) {
pkg <- repack_pkg(pkg)
+ } else {
+ log_system('ln','-sf',shQuote(pkg$archive),
+ shQuote(file.path(dirname(pkg$archive)
+ ,paste(pkg$srcname,'_'
+ ,pkg$version,'.orig.tar.gz'
+ ,sep=''))))
}
if (!file.info(pkg$path)[,'isdir']) {
fail(pkg$path,'is not a directory and should be.')