1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
#!/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.strip
quoted_comment = comment.gsub(/#/, '\\#').gsub(/\$/, '$$')
contents << "COMMENT#{assign}\t#{quoted_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.")
}
}
|
