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