sysreq = gsub('(ht|f)tps?://[[:alnum:]!?*"\'(),%$_@.&+/=-]*','',sysreq)
# squish out space
sysreq = chomp(gsub('[[:space:]]+',' ',sysreq))
+ if (nchar(sysreq) == 0) {
+ notice('part of the SystemRequirement became nothing')
+ next
+ }
alias <- db_sysreq_override(sysreq)
if (is.null(alias)) {
error('do not know what to do with SystemRequirement:',sysreq)
# construct control file
control = data.frame()
control[1,'Source'] = pkg$srcname
- control[1,'Section'] = 'math' ## to be changed to 'gnu-r' once lintian groks it
+ control[1,'Section'] = 'gnu-r'
control[1,'Priority'] = 'optional'
control[1,'Maintainer'] = maintainer
control[1,'Build-Depends'] = paste(pkg$depends$build,collapse=', ')
- control[1,'Standards-Version'] = '3.8.0'
+ control[1,'Standards-Version'] = '3.8.3'
control[2,'Package'] = pkg$debname
control[2,'Architecture'] = 'all'
long_descr <- pkg$description[1,'Description']
}
- if (length(long_descr) < 1) {
+ if (length(long_descr) < 1 || long_descr == "") {
# bypass lintian extended-description-is-empty for which we care not.
long_descr <- paste('The author/maintainer of this package'
,'did not care to enter a longer description.')
# the longer description does not begin on the synopsis line --- R's
# write.dcf does not appear to have a nicer way of doing this.
descr = paste(descr,'"\n\n', long_descr, sep='')
- if ('URL' %in% colnames(pkg$description)) {
- descr = paste(descr,'\n\nURL: ',pkg$description[1,'URL'],sep='')
+ # add some extra nice info about the original R package
+ for (r_info in c('Author','Maintainer','URL')) {
+ if (r_info %in% colnames(pkg$description)) {
+ descr = paste(descr,'\n\n',r_info,': ',pkg$description[1,r_info],sep='')
+ }
}
control[2,'Description'] = descr