[pkgsrc/trunk]: pkgsrc/pkgtools/R2pkg/files pkgtools/R2pkg: remove unused code

[rillig <rillig%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/51291bdcf769
branches:  trunk
changeset: 341171:51291bdcf769
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Tue Oct 15 18:44:21 2019 +0000

description:
pkgtools/R2pkg: remove unused code

diffstat:

 pkgtools/R2pkg/files/R2pkg.R |  29 +----------------------------
 1 files changed, 1 insertions(+), 28 deletions(-)

diffs (43 lines):

diff -r df13a775bb7d -r 51291bdcf769 pkgtools/R2pkg/files/R2pkg.R
--- a/pkgtools/R2pkg/files/R2pkg.R      Tue Oct 15 18:12:53 2019 +0000
+++ b/pkgtools/R2pkg/files/R2pkg.R      Tue Oct 15 18:44:21 2019 +0000
@@ -1,4 +1,4 @@
-# $NetBSD: R2pkg.R,v 1.7 2019/10/13 19:34:13 rillig Exp $
+# $NetBSD: R2pkg.R,v 1.8 2019/10/15 18:44:21 rillig Exp $
 #
 # Copyright (c) 2014,2015,2016,2017,2018,2019
 #      Brook Milligan.  All rights reserved.
@@ -444,33 +444,6 @@
   MAINTAINER
 }
 
-make.sed.command <- function(key,value)
-{
-  address <- paste0('/^[[:blank:]]*',key,'/')
-  match <- paste0('(',key,'[[:blank:]]*=[[:blank:]]*).*$')
-  replacement <- paste0('\\1',value)
-  command <- paste0(' -e "',address,'s/',match,'/',replacement,'/"')
-  command
-}
-
-sed.categories <- function(categories) make.sed.command('CATEGORIES',categories)
-sed.comment <- function(comment)
-{
-  old.comment <- read.file.as.value('COMMENT')
-  if (weakly.equals(old.comment,comment))
-    comment <- old.comment
-  make.sed.command('COMMENT',comment)
-}
-sed.maintainer <- function(email)
-{
-  make.sed.command('MAINTAINER',maintainer(email))
-}
-sed.license <- function(license)
-{
-  make.sed.command('LICENSE',license)
-}
-sed.r_pkgver <- function(r_pkgver) make.sed.command('R_PKGVER',r_pkgver)
-
 find.Rcpp <- function(imps, deps) grepl('Rcpp', paste(imps, deps))
 
 buildlink3.mk <- function(imps,deps)