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