diff options
author | Akinori MUSHA <knu@FreeBSD.org> | 2003-02-18 12:42:44 +0000 |
---|---|---|
committer | Akinori MUSHA <knu@FreeBSD.org> | 2003-02-18 12:42:44 +0000 |
commit | a25c270b0eb01a2995ecd5610be404e07c24bab5 (patch) | |
tree | 1b1236bf1885a457b370c349adf576bdbf41402e /Tools/scripts/de-pkg-comment | |
parent | Don't refer to ${GMAKE} after USE_GMAKE has been removed. (diff) |
Add de-pkg-comment, a ruby script to convert pkg-comment to COMMENT.
Notes
Notes:
svn path=/head/; revision=75803
Diffstat (limited to '')
-rwxr-xr-x | Tools/scripts/de-pkg-comment | 145 |
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.") + } +} |