aboutsummaryrefslogtreecommitdiffstats
path: root/lib-src/rcs2log
diff options
context:
space:
mode:
authorKen Raeburn2001-07-06 08:41:36 +0000
committerKen Raeburn2001-07-06 08:41:36 +0000
commitad782551325b7c694ee234b5ff4c5688d90e561c (patch)
treef4355f141142b6018183518fa1761b53e295ede2 /lib-src/rcs2log
parentf25cfe53951f57e1b2c3972877297df3d86bb980 (diff)
downloademacs-ad782551325b7c694ee234b5ff4c5688d90e561c.tar.gz
emacs-ad782551325b7c694ee234b5ff4c5688d90e561c.zip
properly mark Attic files as deleted
Diffstat (limited to 'lib-src/rcs2log')
-rwxr-xr-xlib-src/rcs2log679
1 files changed, 0 insertions, 679 deletions
diff --git a/lib-src/rcs2log b/lib-src/rcs2log
deleted file mode 100755
index dd49a04f3c2..00000000000
--- a/lib-src/rcs2log
+++ /dev/null
@@ -1,679 +0,0 @@
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
14Help='The default FILEs are the files registered under the working directory.
15Options:
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
29Report bugs to <bug-gnu-emacs@gnu.org>.'
30
31Id='$Id: rcs2log,v 1.46 2001/01/02 18:50:14 eggert Exp $'
32
33# Copyright 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.
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.
39#
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.
44#
45# You should have received a copy of the GNU General Public License
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.
49
50Copyright='Copyright 1998 Free Software Foundation, Inc.
51This program comes with NO WARRANTY, to the extent permitted by law.
52You may redistribute copies of this program
53under the terms of the GNU General Public License.
54For more information about these matters, see the files named COPYING.
55Author: Paul Eggert <eggert@twinsun.com>'
56
57tab=' '
58nl='
59'
60
61# Parse options.
62
63# defaults
64: ${AWK=awk}
65: ${TMPDIR=/tmp}
66changelog=ChangeLog # change log file name
67datearg= # rlog date option
68hostname= # name of local host (if empty, will deduce it later)
69indent=8 # indent of log line
70length=79 # suggested max width of log line
71logins= # login names for people we know fullnames and mailaddrs of
72loginFullnameMailaddrs= # login<tab>fullname<tab>mailaddr triplets
73logTZ= # time zone for log dates (if empty, use local time)
74recursive= # t if we want recursive rlog
75revision= # t if we want revision numbers
76rlog_options= # options to pass to rlog
77tabwidth=8 # width of horizontal tab
78
79while :
80do
81 case $1 in
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 case $loginFullnameMailaddrs in
94 '') loginFullnameMailaddrs=$2$tab$3$tab$4;;
95 ?*) loginFullnameMailaddrs=$loginFullnameMailaddrs$nl$2$tab$3$tab$4
96 esac
97 shift; shift; shift;;
98 -u)
99 # If $2 is not tab-separated, use colon for separator.
100 case ${2?} in
101 *"$nl"*)
102 echo >&2 "$0: -u '$2': newlines not allowed"
103 exit 1;;
104 *"$tab"*)
105 t=$tab;;
106 *)
107 t=:
108 esac
109 case $2 in
110 *"$t"*"$t"*"$t"*)
111 echo >&2 "$0: -u '$2': too many fields"
112 exit 1;;
113 *"$t"*"$t"*)
114 ;;
115 *)
116 echo >&2 "$0: -u '$2': not enough fields"
117 exit 1
118 esac
119 case $loginFullnameMailaddrs in
120 '') loginFullnameMailaddrs=$2;;
121 ?*) loginFullnameMailaddrs=$loginFullnameMailaddrs$nl$2
122 esac
123 shift
124 esac
125 case $logins in
126 '') logins=$login;;
127 ?*) logins=$logins$nl$login
128 esac
129 ;;
130 -r)
131 case $rlog_options in
132 '') rlog_options=${2?};;
133 ?*) rlog_options=$rlog_options$nl${2?}
134 esac
135 shift;;
136 -R) recursive=t;;
137 -t) tabwidth=${2?}; shift;;
138 -v) revision=t;;
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;;
149 *) break
150 esac
151 shift
152done
153
154month_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"
159'
160
161
162# Put rlog output into $rlogout.
163
164# If no rlog options are given,
165# log the revisions checked in since the first ChangeLog entry.
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.
168case $rlog_options in
169'')
170 if test -s "$changelog"
171 then
172 e='
173 /^[0-9]+-[0-9][0-9]-[0-9][0-9]/{
174 # ISO 8601 date
175 print $1
176 exit
177 }
178 /^... ... [ 0-9][0-9] [ 0-9][0-9]:[0-9][0-9]:[0-9][0-9] [0-9]+ /{
179 # old-fashioned date and time (Emacs 19.31 and earlier)
180 '"$month_data"'
181 year = $5
182 for (i=0; i<=11; i++) if (m[i] == $2) break
183 dd = $3
184 printf "%d-%02d-%02d\n", year, i+1, dd
185 exit
186 }
187 '
188 d=`$AWK "$e" <"$changelog"` || exit
189 case $d in
190 ?*) datearg="-d>$d"
191 esac
192 fi
193esac
194
195# Use TZ specified by ChangeLog local variable, if any.
196if test -s "$changelog"
197then
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
210fi
211
212# If CVS is in use, examine its repository, not the normal RCS files.
213if test ! -f CVS/Repository
214then
215 rlog=rlog
216 repository=
217else
218 rlog='cvs -q log'
219 repository=`sed 1q <CVS/Repository` || exit
220 test ! -f CVS/Root || CVSROOT=`cat <CVS/Root` || exit
221 case $CVSROOT in
222 *:/*)
223 # remote repository
224 ;;
225 *)
226 # local repository
227 case $repository in
228 /*) ;;
229 *) repository=${CVSROOT?}/$repository
230 esac
231 if test ! -d "$repository"
232 then
233 echo >&2 "$0: $repository: bad repository (see CVS/Repository)"
234 exit 1
235 fi
236 esac
237fi
238
239# Use $rlog's -zLT option, if $rlog supports it.
240case `$rlog -zLT 2>&1` in
241*' option'*) ;;
242*)
243 case $rlog_options in
244 '') rlog_options=-zLT;;
245 ?*) rlog_options=-zLT$nl$rlog_options
246 esac
247esac
248
249# With no arguments, examine all files under the RCS directory.
250case $# in
2510)
252 case $repository in
253 '')
254 oldIFS=$IFS
255 IFS=$nl
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
263 ?*) find $RCSdirs \
264 -type f \
265 ! -name '*_' \
266 ! -name ',*,' \
267 ! -name '.*_' \
268 ! -name .rcsfreeze.log \
269 ! -name .rcsfreeze.ver \
270 -print
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
282 RCS/. | RCS/.. | RCS/,*, | RCS/*_) continue;;
283 RCS/.rcsfreeze.log | RCS/.rcsfreeze.ver) continue;;
284 RCS/.\* | RCS/\* | .\*,v | \*,v) test -f "$file" || continue;;
285 RCS/*,v | RCS/.*,v) ;;
286 RCS/* | RCS/.*) test -f "$file" || continue
287 esac
288 case $files in
289 '') files=$file;;
290 ?*) files=$files$nl$file
291 esac
292 done
293 case $files in
294 '') exit 0
295 esac
296 esac
297 set x $files
298 shift
299 IFS=$oldIFS
300 esac
301esac
302
303logdir=$TMPDIR/rcs2log$$
304llogout=$logdir/l
305rlogout=$logdir/r
306trap exit 1 2 13 15
307trap "rm -fr $logdir 2>/dev/null" 0
308(umask 077 && exec mkdir $logdir) || exit
309
310case $datearg in
311?*) $rlog $rlog_options "$datearg" ${1+"$@"} >$rlogout;;
312'') $rlog $rlog_options ${1+"$@"} >$rlogout
313esac || exit
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
321initialize_fullname=
322initialize_mailaddr=
323
324case $loginFullnameMailaddrs in
325?*)
326 case $loginFullnameMailaddrs in
327 *\"* | *\\*)
328 sed 's/["\\]/\\&/g' >$llogout <<EOF || exit
329$loginFullnameMailaddrs
330EOF
331 loginFullnameMailaddrs=`cat $llogout`
332 esac
333
334 oldIFS=$IFS
335 IFS=$nl
336 for loginFullnameMailaddr in $loginFullnameMailaddrs
337 do
338 case $loginFullnameMailaddr in
339 *"$tab"*) IFS=$tab;;
340 *) IFS=:
341 esac
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
352esac
353
354case $llogout in
355?*) sort -u -o $llogout <<EOF || exit
356$logins
357EOF
358esac
359output_authors='/^date: / {
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 ~ /^[^;]*;$/) {
361 print substr($5, 1, length($5)-1)
362 }
363}'
364authors=`
365 $AWK "$output_authors" <$rlogout |
366 case $llogout in
367 '') sort -u;;
368 ?*) sort -u | comm -23 - $llogout
369 esac
370`
371case $authors in
372?*)
373 cat >$llogout <<EOF || exit
374$authors
375EOF
376 initialize_author_script='s/["\\]/\\&/g; s/.*/author[\"&\"] = 1/'
377 initialize_author=`sed -e "$initialize_author_script" <$llogout`
378 awkscript='
379 BEGIN {
380 alphabet = "abcdefghijklmnopqrstuvwxyz"
381 ALPHABET = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
382 '"$initialize_author"'
383 }
384 {
385 if (author[$1]) {
386 fullname = $5
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 }
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 }
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
424 author[$1] = 0
425 }
426 }
427 '
428
429 initialize_fullname=`
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 |
440 $AWK -F: "$awkscript"
441 `$initialize_fullname
442esac
443
444
445# Function to print a single log line.
446# We don't use awk functions, to stay compatible with old awk versions.
447# `Log' is the log message (with \n replaced by \001).
448# `files' contains the affected files.
449printlogline='{
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 = " "
463 if ('"$length"' <= '"$indent"' + 1 + length(files) + index(Log, SOH)) sep = "\n" indent_string
464
465 # Print the label.
466 printf "%s*%s:", indent_string, files
467
468 # Print each line of the log, transliterating \001 to \n.
469 while ((i = index(Log, SOH)) != 0) {
470 logline = substr(Log, 1, i-1)
471 if (logline ~ /[^'"$tab"' ]/) {
472 printf "%s%s\n", sep, logline
473 } else {
474 print ""
475 }
476 sep = indent_string
477 Log = substr(Log, i+1)
478 }
479}'
480
481# Pattern to match the `revision' line of rlog output.
482rlog_revision_pattern='^revision [0-9]+\.[0-9]+(\.[0-9]+\.[0-9]+)*(['"$tab"' ]+locked by: [^'"$tab"' $,.0-9:;@]*[^'"$tab"' $,:;@][^'"$tab"' $,.0-9:;@]*;)?['"$tab"' ]*$'
483
484case $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 }
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
501esac
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.
507# Transliterate \n to \001 so that multiline entries fit on a single line.
508# Discard irrelevant rlog output.
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 }
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 }
525 }
526 rev = "?"
527 }
528 /^Working file:/ { if (repository == "") filename = $3 }
529 /'"$rlog_revision_pattern"'/, /^(-----------*|===========*)$/ {
530 line = $0
531 if (line ~ /'"$rlog_revision_pattern"'/) {
532 rev = $2
533 next
534 }
535 if (line ~ /^date: [0-9][- +\/0-9:]*;/) {
536 date = $2
537 if (date ~ /\//) {
538 # This is a traditional RCS format date YYYY/MM/DD.
539 # Replace "/"s with "-"s to get ISO format.
540 newdate = ""
541 while ((i = index(date, "/")) != 0) {
542 newdate = newdate substr(date, 1, i-1) "-"
543 date = substr(date, i+1)
544 }
545 date = newdate date
546 }
547 time = substr($3, 1, length($3) - 1)
548 author = substr($5, 1, length($5)-1)
549 printf "%s %s %s %s %s %c", filename, rev, date, time, author, 1
550 rev = "?"
551 next
552 }
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
559 }
560' |
561
562# Now each line is of the form
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.
566# Sort the log entries, first by date+time (in reverse order),
567# then by author, then by log entry, and finally by file name and revision
568# (just in case).
569sort +2 -4r +4 +0 |
570
571# Finally, reformat the sorted log entries.
572$AWK '
573 BEGIN {
574 logTZ = "'"$logTZ"'"
575 revision = "'"$revision"'"
576
577 # Some awk variants do not understand "\001", so we have to
578 # put the char directly in the file.
579 SOH="" # <-- There is a single SOH (octal code 001) here.
580
581 # Initialize the fullname and mailaddr associative arrays.
582 '"$initialize_fullname"'
583 '"$initialize_mailaddr"'
584
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 " "
593 }
594
595 {
596 newlog = substr($0, 1 + index($0, SOH))
597
598 # Ignore log entries prefixed by "#".
599 if (newlog ~ /^#/) { next }
600
601 if (Log != newlog || date != $3 || author != $5) {
602
603 # The previous log and this log differ.
604
605 # Print the old log.
606 if (date != "") '"$printlogline"'
607
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"
614 if (date == "") sep = ""
615 if (newlog ~ /^\{[^'"$tab"' }]*}['"$tab"' ]/) {
616 i = index(newlog, "}")
617 newclumpname = substr(newlog, 1, i)
618 while (substr(newlog, i+1) ~ /^['"$tab"' ]/) i++
619 newlog = substr(newlog, i+1)
620 if (clumpname == newclumpname) sep = ""
621 }
622 printf sep
623 clumpname = newclumpname
624
625 # Get ready for the next log.
626 Log = newlog
627 if (files != "")
628 for (i in filesknown)
629 filesknown[i] = 0
630 files = ""
631 }
632 if (date != $3 || author != $5) {
633 # The previous date+author and this date+author differ.
634 # Print the new one.
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>".
644 # Get fullname and email address from associative arrays;
645 # default to author and author@hostname if not in arrays.
646 if (fullname[author])
647 auth = fullname[author]
648 else
649 auth = author
650 printf "%s%s %s ", date, zone, auth
651 if (mailaddr[author])
652 printf "<%s>\n\n", mailaddr[author]
653 else
654 printf "<%s@%s>\n\n", author, "'"$hostname"'"
655 }
656 if (! filesknown[$1]) {
657 filesknown[$1] = 1
658 if (files == "") files = " " $1
659 else files = files ", " $1
660 if (revision && $2 != "?") files = files " " $2
661 }
662 }
663 END {
664 # Print the last log.
665 if (date != "") {
666 '"$printlogline"'
667 printf "\n"
668 }
669 }
670' &&
671
672
673# Exit successfully.
674
675exec rm -fr $logdir
676
677# Local Variables:
678# tab-width:4
679# End:
generated by cgit v1.2.1 (git 2.18.0) at 2026-04-23 11:16:40 +0000