emacs: lib-src/rcs2log annotate

annotate lib-src/rcs2log @ 16899:04ad9edd12b3

--help, --version: New options, for conformance to GNU coding standards. (Copyright, Help, Id): New variables, for above. (rlog): Use -q option with cvs log, to avoid useless chatter. Treat logs of "Initial revision" (RCS) or "file F was initially added on branch B." (CVS) as if they said "New file.", for consistency with change log entries.

author	Paul Eggert <eggert@twinsun.com>
date	Mon, 20 Jan 1997 09:03:05 +0000 (1997-01-20)
parents	08855b88e955
children	9555c074333c

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

Mercurial > emacs

annotate lib-src/rcs2log @ 16899:04ad9edd12b3