CVS commit: pkgsrc/pkgtools/R2pkg/files

["Roland Illig" <rillig%netbsd.org@localhost>]

Module Name:    pkgsrc
Committed By:   rillig
Date:           Tue Oct 15 18:44:21 UTC 2019

Modified Files:
        pkgsrc/pkgtools/R2pkg/files: R2pkg.R

Log Message:
pkgtools/R2pkg: remove unused code


To generate a diff of this commit:
cvs rdiff -u -r1.7 -r1.8 pkgsrc/pkgtools/R2pkg/files/R2pkg.R

Please note that diffs are not public domain; they are subject to the
copyright notices on the relevant files.

Modified files:

Index: pkgsrc/pkgtools/R2pkg/files/R2pkg.R
diff -u pkgsrc/pkgtools/R2pkg/files/R2pkg.R:1.7 pkgsrc/pkgtools/R2pkg/files/R2pkg.R:1.8
--- pkgsrc/pkgtools/R2pkg/files/R2pkg.R:1.7     Sun Oct 13 19:34:13 2019
+++ pkgsrc/pkgtools/R2pkg/files/R2pkg.R Tue Oct 15 18:44:21 2019
@@ -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 <- function(email)
   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)