|
428
|
1 #! /bin/sh
|
|
|
2
|
|
|
3 # RCS to ChangeLog generator
|
|
|
4
|
|
|
5 # Generate a change log prefix from RCS files (perhaps in the CVS repository)
|
|
|
6 # and the ChangeLog (if any).
|
|
|
7 # Output the new prefix to standard output.
|
|
|
8 # You can edit this prefix by hand, and then prepend it to ChangeLog.
|
|
|
9
|
|
|
10 # Ignore log entries that start with `#'.
|
|
|
11 # Clump together log entries that start with `{topic} ',
|
|
|
12 # where `topic' contains neither white space nor `}'.
|
|
|
13
|
|
|
14 Help='The default FILEs are the files registered under the working directory.
|
|
|
15 Options:
|
|
|
16
|
|
|
17 -c CHANGELOG Output a change log prefix to CHANGELOG (default ChangeLog).
|
|
|
18 -h HOSTNAME Use HOSTNAME in change log entries (default current host).
|
|
|
19 -i INDENT Indent change log lines by INDENT spaces (default 8).
|
|
|
20 -l LENGTH Try to limit log lines to LENGTH characters (default 79).
|
|
1238
|
21 -L FILE Use rlog-format FILE for source of logs.
|
|
428
|
22 -R If no FILEs are given and RCS is used, recurse through working directory.
|
|
|
23 -r OPTION Pass OPTION to subsidiary log command.
|
|
|
24 -t TABWIDTH Tab stops are every TABWIDTH characters (default 8).
|
|
|
25 -u "LOGIN<tab>FULLNAME<tab>MAILADDR" Assume LOGIN has FULLNAME and MAILADDR.
|
|
|
26 -v Append RCS revision to file names in log lines.
|
|
|
27 --help Output help.
|
|
|
28 --version Output version number.
|
|
|
29
|
|
1238
|
30 Report bugs to <bug-gnu-emacs@gnu.org>.'
|
|
428
|
31
|
|
1238
|
32 Id='$Id: rcs2log,v 1.3 2003/01/28 03:19:04 youngs Exp $'
|
|
428
|
33
|
|
1238
|
34 # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2001, 2002
|
|
|
35 # Free Software Foundation, Inc.
|
|
428
|
36
|
|
|
37 # This program is free software; you can redistribute it and/or modify
|
|
|
38 # it under the terms of the GNU General Public License as published by
|
|
|
39 # the Free Software Foundation; either version 2, or (at your option)
|
|
|
40 # any later version.
|
|
|
41 #
|
|
|
42 # This program is distributed in the hope that it will be useful,
|
|
|
43 # but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
44 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
45 # GNU General Public License for more details.
|
|
|
46 #
|
|
|
47 # You should have received a copy of the GNU General Public License
|
|
|
48 # along with this program; see the file COPYING. If not, write to the
|
|
|
49 # Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
50 # Boston, MA 02111-1307, USA.
|
|
|
51
|
|
1238
|
52 Copyright='Copyright (C) 2002 Free Software Foundation, Inc.
|
|
428
|
53 This program comes with NO WARRANTY, to the extent permitted by law.
|
|
|
54 You may redistribute copies of this program
|
|
|
55 under the terms of the GNU General Public License.
|
|
|
56 For more information about these matters, see the files named COPYING.
|
|
|
57 Author: Paul Eggert <eggert@twinsun.com>'
|
|
|
58
|
|
1238
|
59 # Use the traditional C locale.
|
|
|
60 LANG=C
|
|
|
61 LANGUAGE=C
|
|
|
62 LC_ALL=C
|
|
|
63 LC_COLLATE=C
|
|
|
64 LC_CTYPE=C
|
|
|
65 LC_MESSAGES=C
|
|
|
66 LC_NUMERIC=C
|
|
|
67 LC_TIME=C
|
|
|
68 export LANG LANGUAGE LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES LC_NUMERIC LC_TIME
|
|
|
69
|
|
|
70 # These variables each contain a single ASCII character.
|
|
|
71 # Unfortunately, there's no portable way of writing these characters
|
|
|
72 # in older Unix implementations, other than putting them directly into
|
|
|
73 # this text file.
|
|
|
74 SOH='' # SOH, octal code 001
|
|
428
|
75 tab=' '
|
|
|
76 nl='
|
|
|
77 '
|
|
|
78
|
|
|
79 # Parse options.
|
|
|
80
|
|
|
81 # defaults
|
|
1238
|
82 AWK=${AWK-awk}
|
|
|
83 TMPDIR=${TMPDIR-/tmp}
|
|
428
|
84 changelog=ChangeLog # change log file name
|
|
|
85 datearg= # rlog date option
|
|
|
86 hostname= # name of local host (if empty, will deduce it later)
|
|
|
87 indent=8 # indent of log line
|
|
|
88 length=79 # suggested max width of log line
|
|
|
89 logins= # login names for people we know fullnames and mailaddrs of
|
|
|
90 loginFullnameMailaddrs= # login<tab>fullname<tab>mailaddr triplets
|
|
|
91 logTZ= # time zone for log dates (if empty, use local time)
|
|
|
92 recursive= # t if we want recursive rlog
|
|
|
93 revision= # t if we want revision numbers
|
|
|
94 rlog_options= # options to pass to rlog
|
|
1238
|
95 rlogfile= # log file to read from
|
|
428
|
96 tabwidth=8 # width of horizontal tab
|
|
|
97
|
|
|
98 while :
|
|
|
99 do
|
|
|
100 case $1 in
|
|
|
101 -c) changelog=${2?}; shift;;
|
|
|
102 -i) indent=${2?}; shift;;
|
|
|
103 -h) hostname=${2?}; shift;;
|
|
|
104 -l) length=${2?}; shift;;
|
|
1238
|
105 -L) rlogfile=${2?}; shift;;
|
|
428
|
106 -[nu]) # -n is obsolescent; it is replaced by -u.
|
|
|
107 case $1 in
|
|
|
108 -n) case ${2?}${3?}${4?} in
|
|
|
109 *"$tab"* | *"$nl"*)
|
|
|
110 echo >&2 "$0: -n '$2' '$3' '$4': tabs, newlines not allowed"
|
|
1238
|
111 exit 1;;
|
|
428
|
112 esac
|
|
1238
|
113 login=$2
|
|
|
114 lfm=$2$tab$3$tab$4
|
|
428
|
115 shift; shift; shift;;
|
|
|
116 -u)
|
|
|
117 # If $2 is not tab-separated, use colon for separator.
|
|
|
118 case ${2?} in
|
|
|
119 *"$nl"*)
|
|
|
120 echo >&2 "$0: -u '$2': newlines not allowed"
|
|
|
121 exit 1;;
|
|
|
122 *"$tab"*)
|
|
|
123 t=$tab;;
|
|
|
124 *)
|
|
1238
|
125 t=':';;
|
|
428
|
126 esac
|
|
|
127 case $2 in
|
|
|
128 *"$t"*"$t"*"$t"*)
|
|
|
129 echo >&2 "$0: -u '$2': too many fields"
|
|
|
130 exit 1;;
|
|
|
131 *"$t"*"$t"*)
|
|
1238
|
132 uf="[^$t]*$t" # An unselected field, followed by a separator.
|
|
|
133 sf="\\([^$t]*\\)" # The selected field.
|
|
|
134 login=`expr "X$2" : "X$sf"`
|
|
|
135 lfm="$login$tab"`
|
|
|
136 expr "X$2" : "$uf$sf"
|
|
|
137 `"$tab"`
|
|
|
138 expr "X$2" : "$uf$uf$sf"
|
|
|
139 `;;
|
|
428
|
140 *)
|
|
|
141 echo >&2 "$0: -u '$2': not enough fields"
|
|
1238
|
142 exit 1;;
|
|
428
|
143 esac
|
|
1238
|
144 shift;;
|
|
|
145 esac
|
|
|
146 case $logins in
|
|
|
147 '') logins=$login;;
|
|
|
148 ?*) logins=$logins$nl$login;;
|
|
428
|
149 esac
|
|
1238
|
150 case $loginFullnameMailaddrs in
|
|
|
151 '') loginFullnameMailaddrs=$lfm;;
|
|
|
152 ?*) loginFullnameMailaddrs=$loginFullnameMailaddrs$nl$lfm;;
|
|
|
153 esac;;
|
|
|
154 -r)
|
|
|
155 case $rlog_options in
|
|
|
156 '') rlog_options=${2?};;
|
|
|
157 ?*) rlog_options=$rlog_options$nl${2?};;
|
|
|
158 esac
|
|
|
159 shift;;
|
|
428
|
160 -R) recursive=t;;
|
|
|
161 -t) tabwidth=${2?}; shift;;
|
|
|
162 -v) revision=t;;
|
|
|
163 --version)
|
|
|
164 set $Id
|
|
|
165 rcs2logVersion=$3
|
|
|
166 echo >&2 "rcs2log (GNU Emacs) $rcs2logVersion$nl$Copyright"
|
|
|
167 exit 0;;
|
|
|
168 -*) echo >&2 "Usage: $0 [OPTION]... [FILE ...]$nl$Help"
|
|
|
169 case $1 in
|
|
|
170 --help) exit 0;;
|
|
1238
|
171 *) exit 1;;
|
|
428
|
172 esac;;
|
|
1238
|
173 *) break;;
|
|
428
|
174 esac
|
|
|
175 shift
|
|
|
176 done
|
|
|
177
|
|
|
178 month_data='
|
|
|
179 m[0]="Jan"; m[1]="Feb"; m[2]="Mar"
|
|
|
180 m[3]="Apr"; m[4]="May"; m[5]="Jun"
|
|
|
181 m[6]="Jul"; m[7]="Aug"; m[8]="Sep"
|
|
|
182 m[9]="Oct"; m[10]="Nov"; m[11]="Dec"
|
|
|
183 '
|
|
|
184
|
|
1238
|
185 logdir=$TMPDIR/rcs2log$$
|
|
|
186 llogout=$logdir/l
|
|
|
187 trap exit 1 2 13 15
|
|
|
188 trap "rm -fr $logdir 2>/dev/null" 0
|
|
|
189 (umask 077 && exec mkdir $logdir) || exit
|
|
428
|
190
|
|
1238
|
191 # If no rlog-format log file is given, generate one into $rlogfile.
|
|
|
192 case $rlogfile in
|
|
|
193 '')
|
|
|
194 rlogfile=$logdir/r
|
|
428
|
195
|
|
1238
|
196 # If no rlog options are given,
|
|
|
197 # log the revisions checked in since the first ChangeLog entry.
|
|
|
198 # Since ChangeLog is only by date, some of these revisions may be duplicates of
|
|
|
199 # what's already in ChangeLog; it's the user's responsibility to remove them.
|
|
|
200 case $rlog_options in
|
|
|
201 '')
|
|
|
202 if test -s "$changelog"
|
|
|
203 then
|
|
|
204 e='
|
|
|
205 /^[0-9]+-[0-9][0-9]-[0-9][0-9]/{
|
|
|
206 # ISO 8601 date
|
|
|
207 print $1
|
|
|
208 exit
|
|
|
209 }
|
|
|
210 /^... ... [ 0-9][0-9] [ 0-9][0-9]:[0-9][0-9]:[0-9][0-9] [0-9]+ /{
|
|
|
211 # old-fashioned date and time (Emacs 19.31 and earlier)
|
|
|
212 '"$month_data"'
|
|
|
213 year = $5
|
|
|
214 for (i=0; i<=11; i++) if (m[i] == $2) break
|
|
|
215 dd = $3
|
|
|
216 printf "%d-%02d-%02d\n", year, i+1, dd
|
|
|
217 exit
|
|
|
218 }
|
|
|
219 '
|
|
|
220 d=`$AWK "$e" <"$changelog"` || exit
|
|
|
221 case $d in
|
|
|
222 ?*) datearg="-d>$d";;
|
|
|
223 esac
|
|
|
224 fi;;
|
|
|
225 esac
|
|
|
226
|
|
|
227 # Use TZ specified by ChangeLog local variable, if any.
|
|
428
|
228 if test -s "$changelog"
|
|
|
229 then
|
|
1238
|
230 extractTZ='
|
|
|
231 /^.*change-log-time-zone-rule['"$tab"' ]*:['"$tab"' ]*"\([^"]*\)".*/{
|
|
|
232 s//\1/; p; q
|
|
428
|
233 }
|
|
1238
|
234 /^.*change-log-time-zone-rule['"$tab"' ]*:['"$tab"' ]*t.*/{
|
|
|
235 s//UTC0/; p; q
|
|
428
|
236 }
|
|
|
237 '
|
|
1238
|
238 logTZ=`tail "$changelog" | sed -n "$extractTZ"`
|
|
|
239 case $logTZ in
|
|
|
240 ?*) TZ=$logTZ; export TZ;;
|
|
428
|
241 esac
|
|
|
242 fi
|
|
1238
|
243
|
|
|
244 # If CVS is in use, examine its repository, not the normal RCS files.
|
|
|
245 if test ! -f CVS/Repository
|
|
|
246 then
|
|
|
247 rlog=rlog
|
|
|
248 repository=
|
|
|
249 else
|
|
|
250 rlog='cvs -q log'
|
|
|
251 repository=`sed 1q <CVS/Repository` || exit
|
|
|
252 test ! -f CVS/Root || CVSROOT=`cat <CVS/Root` || exit
|
|
|
253 case $CVSROOT in
|
|
|
254 *:/*:/*)
|
|
|
255 echo >&2 "$0: $CVSROOT: CVSROOT has multiple ':/'s"
|
|
|
256 exit 1;;
|
|
|
257 *:/*)
|
|
|
258 # remote repository
|
|
|
259 pository=`expr "X$repository" : '.*:\(/.*\)'`;;
|
|
|
260 *)
|
|
|
261 # local repository
|
|
|
262 case $repository in
|
|
|
263 /*) ;;
|
|
|
264 *) repository=${CVSROOT?}/$repository;;
|
|
|
265 esac
|
|
|
266 if test ! -d "$repository"
|
|
|
267 then
|
|
|
268 echo >&2 "$0: $repository: bad repository (see CVS/Repository)"
|
|
|
269 exit 1
|
|
|
270 fi
|
|
|
271 pository=$repository;;
|
|
|
272 esac
|
|
|
273
|
|
|
274 # Ensure that $pository ends in exactly one slash.
|
|
|
275 while :
|
|
|
276 do
|
|
|
277 case $pository in
|
|
|
278 *//) pository=`expr "X$pository" : 'X\(.*\)/'`;;
|
|
|
279 */) break;;
|
|
|
280 *) pository=$pository/; break;;
|
|
|
281 esac
|
|
|
282 done
|
|
|
283
|
|
|
284 fi
|
|
|
285
|
|
|
286 # Use $rlog's -zLT option, if $rlog supports it.
|
|
|
287 case `$rlog -zLT 2>&1` in
|
|
|
288 *' option'*) ;;
|
|
|
289 *)
|
|
|
290 case $rlog_options in
|
|
|
291 '') rlog_options=-zLT;;
|
|
|
292 ?*) rlog_options=-zLT$nl$rlog_options;;
|
|
|
293 esac;;
|
|
|
294 esac
|
|
|
295
|
|
|
296 # With no arguments, examine all files under the RCS directory.
|
|
|
297 case $# in
|
|
|
298 0)
|
|
|
299 case $repository in
|
|
|
300 '')
|
|
|
301 oldIFS=$IFS
|
|
|
302 IFS=$nl
|
|
|
303 case $recursive in
|
|
|
304 t)
|
|
|
305 RCSdirs=`find . -name RCS -type d -print`
|
|
|
306 filesFromRCSfiles='s|,v$||; s|/RCS/|/|; s|^\./||'
|
|
|
307 files=`
|
|
|
308 {
|
|
|
309 case $RCSdirs in
|
|
|
310 ?*) find $RCSdirs \
|
|
|
311 -type f \
|
|
|
312 ! -name '*_' \
|
|
|
313 ! -name ',*,' \
|
|
|
314 ! -name '.*_' \
|
|
|
315 ! -name .rcsfreeze.log \
|
|
|
316 ! -name .rcsfreeze.ver \
|
|
|
317 -print;;
|
|
|
318 esac
|
|
|
319 find . -name '*,v' -print
|
|
|
320 } |
|
|
|
321 sort -u |
|
|
|
322 sed "$filesFromRCSfiles"
|
|
|
323 `;;
|
|
|
324 *)
|
|
|
325 files=
|
|
|
326 for file in RCS/.* RCS/* .*,v *,v
|
|
|
327 do
|
|
|
328 case $file in
|
|
|
329 RCS/. | RCS/.. | RCS/,*, | RCS/*_) continue;;
|
|
|
330 RCS/.rcsfreeze.log | RCS/.rcsfreeze.ver) continue;;
|
|
|
331 RCS/.\* | RCS/\* | .\*,v | \*,v) test -f "$file" || continue;;
|
|
|
332 RCS/*,v | RCS/.*,v) ;;
|
|
|
333 RCS/* | RCS/.*) test -f "$file" || continue;;
|
|
|
334 esac
|
|
|
335 case $files in
|
|
|
336 '') files=$file;;
|
|
|
337 ?*) files=$files$nl$file;;
|
|
|
338 esac
|
|
|
339 done
|
|
|
340 case $files in
|
|
|
341 '') exit 0;;
|
|
|
342 esac;;
|
|
|
343 esac
|
|
|
344 set x $files
|
|
|
345 shift
|
|
|
346 IFS=$oldIFS;;
|
|
|
347 esac;;
|
|
|
348 esac
|
|
|
349
|
|
|
350 case $datearg in
|
|
|
351 ?*) $rlog $rlog_options "$datearg" ${1+"$@"} >$rlogfile;;
|
|
|
352 '') $rlog $rlog_options ${1+"$@"} >$rlogfile;;
|
|
|
353 esac || exit;;
|
|
428
|
354 esac
|
|
|
355
|
|
|
356
|
|
1238
|
357 # Prefer the POSIX-style -k options, since POSIX 1003.1-2001 prohibits
|
|
|
358 # support for the traditional-style +M -N options.
|
|
|
359 SORT_K_OPTIONS='-k 3,4r -k 5 -k 1'
|
|
|
360 sort $SORT_K_OPTIONS </dev/null 2>/dev/null || SORT_K_OPTIONS='+2 -4r +4 +0'
|
|
428
|
361
|
|
|
362
|
|
|
363 # Get the full name of each author the logs mention, and set initialize_fullname
|
|
|
364 # to awk code that initializes the `fullname' awk associative array.
|
|
|
365 # Warning: foreign authors (i.e. not known in the passwd file) are mishandled;
|
|
|
366 # you have to fix the resulting output by hand.
|
|
|
367
|
|
|
368 initialize_fullname=
|
|
|
369 initialize_mailaddr=
|
|
|
370
|
|
|
371 case $loginFullnameMailaddrs in
|
|
|
372 ?*)
|
|
|
373 case $loginFullnameMailaddrs in
|
|
|
374 *\"* | *\\*)
|
|
|
375 sed 's/["\\]/\\&/g' >$llogout <<EOF || exit
|
|
|
376 $loginFullnameMailaddrs
|
|
|
377 EOF
|
|
1238
|
378 loginFullnameMailaddrs=`cat $llogout`;;
|
|
428
|
379 esac
|
|
|
380
|
|
|
381 oldIFS=$IFS
|
|
|
382 IFS=$nl
|
|
|
383 for loginFullnameMailaddr in $loginFullnameMailaddrs
|
|
|
384 do
|
|
1238
|
385 IFS=$tab
|
|
428
|
386 set x $loginFullnameMailaddr
|
|
|
387 login=$2
|
|
|
388 fullname=$3
|
|
|
389 mailaddr=$4
|
|
|
390 initialize_fullname="$initialize_fullname
|
|
|
391 fullname[\"$login\"] = \"$fullname\""
|
|
|
392 initialize_mailaddr="$initialize_mailaddr
|
|
|
393 mailaddr[\"$login\"] = \"$mailaddr\""
|
|
|
394 done
|
|
1238
|
395 IFS=$oldIFS;;
|
|
428
|
396 esac
|
|
|
397
|
|
1238
|
398 case $logins in
|
|
|
399 ?*)
|
|
|
400 sort -u -o $llogout <<EOF
|
|
428
|
401 $logins
|
|
|
402 EOF
|
|
1238
|
403 ;;
|
|
|
404 '')
|
|
|
405 : ;;
|
|
|
406 esac >$llogout || exit
|
|
|
407
|
|
428
|
408 output_authors='/^date: / {
|
|
|
409 if ($2 ~ /^[0-9]*[-\/][0-9][0-9][-\/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9:]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) {
|
|
|
410 print substr($5, 1, length($5)-1)
|
|
|
411 }
|
|
|
412 }'
|
|
|
413 authors=`
|
|
1238
|
414 $AWK "$output_authors" <"$rlogfile" | sort -u | comm -23 - $llogout
|
|
428
|
415 `
|
|
|
416 case $authors in
|
|
|
417 ?*)
|
|
|
418 cat >$llogout <<EOF || exit
|
|
|
419 $authors
|
|
|
420 EOF
|
|
|
421 initialize_author_script='s/["\\]/\\&/g; s/.*/author[\"&\"] = 1/'
|
|
|
422 initialize_author=`sed -e "$initialize_author_script" <$llogout`
|
|
|
423 awkscript='
|
|
|
424 BEGIN {
|
|
|
425 alphabet = "abcdefghijklmnopqrstuvwxyz"
|
|
|
426 ALPHABET = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
|
|
427 '"$initialize_author"'
|
|
|
428 }
|
|
|
429 {
|
|
|
430 if (author[$1]) {
|
|
|
431 fullname = $5
|
|
|
432 if (fullname ~ /[0-9]+-[^(]*\([0-9]+\)$/) {
|
|
|
433 # Remove the junk from fullnames like "0000-Admin(0000)".
|
|
|
434 fullname = substr(fullname, index(fullname, "-") + 1)
|
|
|
435 fullname = substr(fullname, 1, index(fullname, "(") - 1)
|
|
|
436 }
|
|
|
437 if (fullname ~ /,[^ ]/) {
|
|
|
438 # Some sites put comma-separated junk after the fullname.
|
|
|
439 # Remove it, but leave "Bill Gates, Jr" alone.
|
|
|
440 fullname = substr(fullname, 1, index(fullname, ",") - 1)
|
|
|
441 }
|
|
|
442 abbr = index(fullname, "&")
|
|
|
443 if (abbr) {
|
|
|
444 a = substr($1, 1, 1)
|
|
|
445 A = a
|
|
|
446 i = index(alphabet, a)
|
|
|
447 if (i) A = substr(ALPHABET, i, 1)
|
|
|
448 fullname = substr(fullname, 1, abbr-1) A substr($1, 2) substr(fullname, abbr+1)
|
|
|
449 }
|
|
|
450
|
|
|
451 # Quote quotes and backslashes properly in full names.
|
|
|
452 # Do not use gsub; traditional awk lacks it.
|
|
|
453 quoted = ""
|
|
|
454 rest = fullname
|
|
|
455 for (;;) {
|
|
|
456 p = index(rest, "\\")
|
|
|
457 q = index(rest, "\"")
|
|
|
458 if (p) {
|
|
|
459 if (q && q<p) p = q
|
|
|
460 } else {
|
|
|
461 if (!q) break
|
|
|
462 p = q
|
|
|
463 }
|
|
|
464 quoted = quoted substr(rest, 1, p-1) "\\" substr(rest, p, 1)
|
|
|
465 rest = substr(rest, p+1)
|
|
|
466 }
|
|
|
467
|
|
|
468 printf "fullname[\"%s\"] = \"%s%s\"\n", $1, quoted, rest
|
|
|
469 author[$1] = 0
|
|
|
470 }
|
|
|
471 }
|
|
|
472 '
|
|
|
473
|
|
|
474 initialize_fullname=`
|
|
1238
|
475 {
|
|
|
476 (getent passwd $authors) ||
|
|
|
477 (
|
|
|
478 cat /etc/passwd
|
|
|
479 for author in $authors
|
|
|
480 do NIS_PATH= nismatch $author passwd.org_dir
|
|
|
481 done
|
|
|
482 ypmatch $authors passwd
|
|
|
483 )
|
|
|
484 } 2>/dev/null |
|
|
428
|
485 $AWK -F: "$awkscript"
|
|
1238
|
486 `$initialize_fullname;;
|
|
428
|
487 esac
|
|
|
488
|
|
|
489
|
|
|
490 # Function to print a single log line.
|
|
|
491 # We don't use awk functions, to stay compatible with old awk versions.
|
|
1238
|
492 # `Log' is the log message.
|
|
428
|
493 # `files' contains the affected files.
|
|
|
494 printlogline='{
|
|
|
495
|
|
|
496 # Following the GNU coding standards, rewrite
|
|
|
497 # * file: (function): comment
|
|
|
498 # to
|
|
|
499 # * file (function): comment
|
|
1238
|
500 if (Log ~ /^\([^)]*\):[\t\n ]/) {
|
|
428
|
501 i = index(Log, ")")
|
|
1238
|
502 filefunc = substr(Log, 1, i)
|
|
|
503 while ((j = index(filefunc, "\n"))) {
|
|
|
504 files = files " " substr(filefunc, 1, j-1)
|
|
|
505 filefunc = substr(filefunc, j+1)
|
|
|
506 }
|
|
|
507 files = files " " filefunc
|
|
428
|
508 Log = substr(Log, i+3)
|
|
|
509 }
|
|
|
510
|
|
|
511 # If "label: comment" is too long, break the line after the ":".
|
|
|
512 sep = " "
|
|
1238
|
513 i = index(Log, "\n")
|
|
|
514 if ('"$length"' <= '"$indent"' + 1 + length(files) + i) sep = "\n" indent_string
|
|
428
|
515
|
|
|
516 # Print the label.
|
|
|
517 printf "%s*%s:", indent_string, files
|
|
|
518
|
|
1238
|
519 # Print each line of the log.
|
|
|
520 while (i) {
|
|
428
|
521 logline = substr(Log, 1, i-1)
|
|
|
522 if (logline ~ /[^'"$tab"' ]/) {
|
|
|
523 printf "%s%s\n", sep, logline
|
|
|
524 } else {
|
|
|
525 print ""
|
|
|
526 }
|
|
|
527 sep = indent_string
|
|
|
528 Log = substr(Log, i+1)
|
|
1238
|
529 i = index(Log, "\n")
|
|
428
|
530 }
|
|
|
531 }'
|
|
|
532
|
|
|
533 # Pattern to match the `revision' line of rlog output.
|
|
|
534 rlog_revision_pattern='^revision [0-9]+\.[0-9]+(\.[0-9]+\.[0-9]+)*(['"$tab"' ]+locked by: [^'"$tab"' $,.0-9:;@]*[^'"$tab"' $,:;@][^'"$tab"' $,.0-9:;@]*;)?['"$tab"' ]*$'
|
|
|
535
|
|
|
536 case $hostname in
|
|
|
537 '')
|
|
|
538 hostname=`(
|
|
|
539 hostname || uname -n || uuname -l || cat /etc/whoami
|
|
|
540 ) 2>/dev/null` || {
|
|
|
541 echo >&2 "$0: cannot deduce hostname"
|
|
|
542 exit 1
|
|
|
543 }
|
|
|
544
|
|
|
545 case $hostname in
|
|
|
546 *.*) ;;
|
|
|
547 *)
|
|
|
548 domainname=`(domainname) 2>/dev/null` &&
|
|
|
549 case $domainname in
|
|
1238
|
550 *.*) hostname=$hostname.$domainname;;
|
|
|
551 esac;;
|
|
|
552 esac;;
|
|
428
|
553 esac
|
|
|
554
|
|
|
555
|
|
|
556 # Process the rlog output, generating ChangeLog style entries.
|
|
|
557
|
|
|
558 # First, reformat the rlog output so that each line contains one log entry.
|
|
1238
|
559 # Transliterate \n to SOH so that multiline entries fit on a single line.
|
|
428
|
560 # Discard irrelevant rlog output.
|
|
1238
|
561 $AWK '
|
|
|
562 BEGIN {
|
|
|
563 pository = "'"$pository"'"
|
|
|
564 SOH="'"$SOH"'"
|
|
|
565 }
|
|
|
566 /^RCS file: / {
|
|
|
567 if (pository != "") {
|
|
|
568 filename = substr($0, 11)
|
|
|
569 if (substr(filename, 1, length(pository)) == pository) {
|
|
|
570 filename = substr(filename, length(pository) + 1)
|
|
428
|
571 }
|
|
|
572 if (filename ~ /,v$/) {
|
|
|
573 filename = substr(filename, 1, length(filename) - 2)
|
|
|
574 }
|
|
|
575 if (filename ~ /(^|\/)Attic\/[^\/]*$/) {
|
|
|
576 i = length(filename)
|
|
|
577 while (substr(filename, i, 1) != "/") i--
|
|
|
578 filename = substr(filename, 1, i - 6) substr(filename, i + 1)
|
|
|
579 }
|
|
|
580 }
|
|
|
581 rev = "?"
|
|
|
582 }
|
|
1238
|
583 /^Working file: / { if (repository == "") filename = substr($0, 15) }
|
|
428
|
584 /'"$rlog_revision_pattern"'/, /^(-----------*|===========*)$/ {
|
|
1238
|
585 line = $0
|
|
|
586 if (line ~ /'"$rlog_revision_pattern"'/) {
|
|
428
|
587 rev = $2
|
|
|
588 next
|
|
|
589 }
|
|
1238
|
590 if (line ~ /^date: [0-9][- +\/0-9:]*;/) {
|
|
428
|
591 date = $2
|
|
|
592 if (date ~ /\//) {
|
|
|
593 # This is a traditional RCS format date YYYY/MM/DD.
|
|
|
594 # Replace "/"s with "-"s to get ISO format.
|
|
|
595 newdate = ""
|
|
|
596 while ((i = index(date, "/")) != 0) {
|
|
|
597 newdate = newdate substr(date, 1, i-1) "-"
|
|
|
598 date = substr(date, i+1)
|
|
|
599 }
|
|
|
600 date = newdate date
|
|
|
601 }
|
|
|
602 time = substr($3, 1, length($3) - 1)
|
|
|
603 author = substr($5, 1, length($5)-1)
|
|
1238
|
604 printf "%s%s%s%s%s%s%s%s%s%s", filename, SOH, rev, SOH, date, SOH, time, SOH, author, SOH
|
|
428
|
605 rev = "?"
|
|
|
606 next
|
|
|
607 }
|
|
1238
|
608 if (line ~ /^branches: /) { next }
|
|
|
609 if (line ~ /^(-----------*|===========*)$/) { print ""; next }
|
|
|
610 if (line == "Initial revision" || line ~ /^file .+ was initially added on branch .+\.$/) {
|
|
|
611 line = "New file."
|
|
|
612 }
|
|
|
613 printf "%s%s", line, SOH
|
|
428
|
614 }
|
|
1238
|
615 ' <"$rlogfile" |
|
|
428
|
616
|
|
|
617 # Now each line is of the form
|
|
1238
|
618 # FILENAME@REVISION@YYYY-MM-DD@HH:MM:SS[+-TIMEZONE]@AUTHOR@LOG
|
|
|
619 # where @ stands for an SOH (octal code 001),
|
|
|
620 # and each line of LOG is terminated by SOH instead of \n.
|
|
428
|
621 # Sort the log entries, first by date+time (in reverse order),
|
|
|
622 # then by author, then by log entry, and finally by file name and revision
|
|
|
623 # (just in case).
|
|
1238
|
624 sort -t"$SOH" $SORT_K_OPTIONS |
|
|
428
|
625
|
|
|
626 # Finally, reformat the sorted log entries.
|
|
1238
|
627 $AWK -F"$SOH" '
|
|
428
|
628 BEGIN {
|
|
|
629 logTZ = "'"$logTZ"'"
|
|
|
630 revision = "'"$revision"'"
|
|
|
631
|
|
|
632 # Initialize the fullname and mailaddr associative arrays.
|
|
|
633 '"$initialize_fullname"'
|
|
|
634 '"$initialize_mailaddr"'
|
|
|
635
|
|
|
636 # Initialize indent string.
|
|
|
637 indent_string = ""
|
|
|
638 i = '"$indent"'
|
|
|
639 if (0 < '"$tabwidth"')
|
|
|
640 for (; '"$tabwidth"' <= i; i -= '"$tabwidth"')
|
|
|
641 indent_string = indent_string "\t"
|
|
|
642 while (1 <= i--)
|
|
|
643 indent_string = indent_string " "
|
|
|
644 }
|
|
|
645
|
|
|
646 {
|
|
1238
|
647 newlog = ""
|
|
|
648 for (i = 6; i < NF; i++) newlog = newlog $i "\n"
|
|
428
|
649
|
|
|
650 # Ignore log entries prefixed by "#".
|
|
|
651 if (newlog ~ /^#/) { next }
|
|
|
652
|
|
|
653 if (Log != newlog || date != $3 || author != $5) {
|
|
|
654
|
|
|
655 # The previous log and this log differ.
|
|
|
656
|
|
|
657 # Print the old log.
|
|
|
658 if (date != "") '"$printlogline"'
|
|
|
659
|
|
|
660 # Logs that begin with "{clumpname} " should be grouped together,
|
|
|
661 # and the clumpname should be removed.
|
|
|
662 # Extract the new clumpname from the log header,
|
|
|
663 # and use it to decide whether to output a blank line.
|
|
|
664 newclumpname = ""
|
|
|
665 sep = "\n"
|
|
|
666 if (date == "") sep = ""
|
|
|
667 if (newlog ~ /^\{[^'"$tab"' }]*}['"$tab"' ]/) {
|
|
|
668 i = index(newlog, "}")
|
|
|
669 newclumpname = substr(newlog, 1, i)
|
|
|
670 while (substr(newlog, i+1) ~ /^['"$tab"' ]/) i++
|
|
|
671 newlog = substr(newlog, i+1)
|
|
1238
|
672 if (clumpname == newclumpname && date == $3 && author == $5) sep = ""
|
|
428
|
673 }
|
|
|
674 printf sep
|
|
|
675 clumpname = newclumpname
|
|
|
676
|
|
|
677 # Get ready for the next log.
|
|
|
678 Log = newlog
|
|
|
679 if (files != "")
|
|
|
680 for (i in filesknown)
|
|
|
681 filesknown[i] = 0
|
|
|
682 files = ""
|
|
|
683 }
|
|
|
684 if (date != $3 || author != $5) {
|
|
|
685 # The previous date+author and this date+author differ.
|
|
|
686 # Print the new one.
|
|
|
687 date = $3
|
|
|
688 time = $4
|
|
|
689 author = $5
|
|
|
690
|
|
|
691 zone = ""
|
|
|
692 if (logTZ && ((i = index(time, "-")) || (i = index(time, "+"))))
|
|
|
693 zone = " " substr(time, i)
|
|
|
694
|
|
|
695 # Print "date[ timezone] fullname <email address>".
|
|
|
696 # Get fullname and email address from associative arrays;
|
|
|
697 # default to author and author@hostname if not in arrays.
|
|
|
698 if (fullname[author])
|
|
|
699 auth = fullname[author]
|
|
|
700 else
|
|
|
701 auth = author
|
|
|
702 printf "%s%s %s ", date, zone, auth
|
|
|
703 if (mailaddr[author])
|
|
|
704 printf "<%s>\n\n", mailaddr[author]
|
|
|
705 else
|
|
|
706 printf "<%s@%s>\n\n", author, "'"$hostname"'"
|
|
|
707 }
|
|
|
708 if (! filesknown[$1]) {
|
|
|
709 filesknown[$1] = 1
|
|
|
710 if (files == "") files = " " $1
|
|
|
711 else files = files ", " $1
|
|
|
712 if (revision && $2 != "?") files = files " " $2
|
|
|
713 }
|
|
|
714 }
|
|
|
715 END {
|
|
|
716 # Print the last log.
|
|
|
717 if (date != "") {
|
|
|
718 '"$printlogline"'
|
|
|
719 printf "\n"
|
|
|
720 }
|
|
|
721 }
|
|
|
722 ' &&
|
|
|
723
|
|
|
724
|
|
|
725 # Exit successfully.
|
|
|
726
|
|
1238
|
727 exec rm -fr $logdir
|
|
428
|
728
|
|
|
729 # Local Variables:
|
|
|
730 # tab-width:4
|
|
|
731 # End:
|
