aboutsummaryrefslogtreecommitdiff
path: root/Tools
diff options
context:
space:
mode:
authorAkinori MUSHA <knu@FreeBSD.org>2003-02-18 12:42:44 +0000
committerAkinori MUSHA <knu@FreeBSD.org>2003-02-18 12:42:44 +0000
commita25c270b0eb01a2995ecd5610be404e07c24bab5 (patch)
tree1b1236bf1885a457b370c349adf576bdbf41402e /Tools
parent8912fe218afccfd4bde79d1e117563c5b65d25bf (diff)
downloadports-a25c270b0eb01a2995ecd5610be404e07c24bab5.tar.gz
ports-a25c270b0eb01a2995ecd5610be404e07c24bab5.zip
Notes
Diffstat (limited to 'Tools')
-rwxr-xr-xTools/scripts/de-pkg-comment145
1 files changed, 145 insertions, 0 deletions
diff --git a/Tools/scripts/de-pkg-comment b/Tools/scripts/de-pkg-comment
new file mode 100755
index 000000000000..fcd031ff8ceb
--- /dev/null
+++ b/Tools/scripts/de-pkg-comment
@@ -0,0 +1,145 @@
+#!/usr/bin/env ruby
+#
+# de-pkg-comment - converts pkg-comment to COMMENT
+# (public domain)
+#
+# Usage:
+# de-pkg-comment portdir ...
+#
+# Notes:
+# - Local changes may be backed out and the previous file is renamed
+# to .#* if conversion fails.
+# - It requires a port have a MAINTAINER line.
+# - It does not touch master/slave ports automatically; just shows
+# some hints.
+# - Do not commit resulted files without checking the diffs.
+#
+# MAINTAINER= knu@FreeBSD.org
+#
+# $FreeBSD$
+#
+
+begin
+ require 'features/ruby18'
+rescue LoadError; end
+
+if ARGV.empty?
+ STDERR.puts "usage: #{$0} portdir ..."
+ exit 64
+end
+
+def error(message)
+ STDERR.puts("#{$dir}: #{message}")
+end
+
+def info(message)
+ STDOUT.puts("#{$dir}: #{message}")
+end
+
+def backout(message)
+ error(message)
+ info("Backing out all modifications.")
+ system 'cvs', '-Q', 'up', '-CdP'
+end
+
+def cvs_up(*files)
+ system *['cvs', '-q', 'up', '-dP', *files]
+end
+
+def cvs_rm(*files)
+ system *['cvs', '-Q', 'rm', '-f', *files]
+end
+
+ARGV.each { |$dir|
+ if !File.directory?($dir)
+ error("Not a directory.")
+ next
+ end
+
+ Dir.chdir($dir) {
+ if !File.directory?('CVS')
+ error("Not a CVS working directory.")
+ next
+ end
+
+ info("Running cvs update")
+ cvs_up()
+
+ makefile = 'Makefile'
+
+ if !File.exist?(makefile)
+ error("No Makefile is found.")
+ next
+ end
+
+ commentfile = `make -V COMMENTFILE`.chomp
+
+ if !File.exist?(commentfile)
+ error("No need to convert.")
+ next
+ end
+
+ comment = nil
+ commentfile_defined = false
+ maintainer_defined = false
+
+ info("Modifying #{makefile}")
+
+ open(makefile, 'r+') { |rw|
+ contents = []
+
+ rw.each { |line|
+ contents << line
+
+ case line
+ when /^MAINTAINER\s*(\??=)/
+ maintainer_defined = true
+
+ assign = $1
+
+ if assign == '?='
+ info("Looks like a master port. Please check for slave ports.")
+ end
+
+ open(commentfile) { |f|
+ comment = f.gets.chomp
+ contents << "COMMENT#{assign}\t#{comment}\n"
+ }
+ when /^COMMENTFILE\s*([?!:]?=)/
+ info("COMMENTFILE is defined. Please check out and edit manually.")
+ commentfile_defined = true
+ when /^MASTERDIR\s*([?!:]?=)/
+ masterport = File.expand_path(`make -V MASTERDIR`.chomp)
+ masterport.sub!(%r".*(?:^|/)([^/]+/[^/]+)$", '\1')
+
+ info("Looks like a slave port. Please look into the master port (#{masterport}) also.")
+ end
+ }
+
+ rw.rewind
+ rw.puts contents
+ }
+
+ if !maintainer_defined
+ backout("No MAINTAINER line is found!")
+ next
+ end
+
+ newcomment = `make -V COMMENT`.chomp
+
+ if newcomment != comment
+ backout("Failed to convert!")
+ next
+ end
+
+ unless commentfile_defined
+ info("Removing #{commentfile}")
+ cvs_rm(commentfile)
+ end
+
+ info("Running cvs update again")
+ cvs_up()
+
+ info("Done.")
+ }
+}