comparison lib-src/rcs2log @ 4783:7c75802f5a8b

Add -h, -n, -r options. By default, look for *,v files as well as RCS/*,v files. Use $TMPDIR (default /tmp) instead of /tmp.

4782:73203b90eb26

#!/bin/sh

# RCS to ChangeLog generator

# Generate a change log prefix from RCS/* and the existing ChangeLog (if any).
# Output the new prefix to standard output.
# You can edit this prefix by hand, and then prepend it to ChangeLog.

# Ignore log entries that start with `#'.
# Clump together log entries that start with `{topic} ',
# where `topic' contains neither white space nor `}'.

# Author: Paul Eggert <[e-mail]>

# $Id: rcs2log,v 1.13 1993/08/09 22:06:00 eggert Exp eggert $

# Copyright 1992, 1993 Free Software Foundation, Inc.

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

'

# Parse options.

# defaults
indent=8 # indent of log line
length=79 # suggested max width of log line
tabwidth=8 # width of horizontal tab

while :
do
	case $1 in
	-i)	indent=${2?};;
	-l)	length=${2?};;
	-t)	tabwidth=${2?};;
	-*)	echo >&2 "$0: usage: $0 [-i indent] [-l length] [-t tabwidth] [file ...]"
		exit 1;;
	*)	break
	esac
	shift; shift
done

# With no arguments, examine all files under the RCS directory.
case $# in
0)
	files=
	for file in RCS/.* RCS/*
	do
		case $file in
		RCS/. | RCS/..) ;;
		RCS/.\* | RCS/\*) test -f "$file" && files=$files$nl$file;;
		*) files=$files$nl$file
		esac
	done
	case $files in
	'') exit 0
	esac
	oldIFS=$IFS
	IFS=$nl
	set $files
	IFS=$oldIFS
esac

rlogout=/tmp/chg$$
trap exit 1 2 13 15
trap 'rm -f $rlogout; exit 1' 0

rlog "$datearg" "$@" >$rlogout || exit


# Get the full name of each author the logs mention, and set initialize_fullname
# to awk code that initializes the `fullname' awk associative array.
# Warning: foreign authors (i.e. not known in the passwd file) are mishandled;
# you have to fix the resulting output by hand.

initialize_fullname=
authors=`
	sed -n 's|^date: *[0-9]*/[0-9][0-9]/[0-9][0-9] [0-9][0-9]:[0-9][0-9]:[0-9][0-9]; *author: *\([^; ]*\).*|\1|p' <$rlogout |
	sort -u
`
case $authors in
?*)
	initialize_author=
	for author in $authors
	do
		initialize_author="$initialize_author
			author[\"$author\"] = 1
		"
	done

	awkscript='
		BEGIN {
			alphabet = "abcdefghijklmnopqrstuvwxyz"
			ALPHABET = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
			'"$initialize_author"'

	'

	initialize_fullname=`
		(cat /etc/passwd; ypmatch $authors passwd) 2>/dev/null |
		awk -F: "$awkscript"
	`
esac


# Function to print a single log line.
# We don't use awk functions, to stay compatible with old awk versions.

		sep = indent_string
		Log = substr(Log, i+1)
	}
}'

hostname=`(
	hostname || cat /etc/whoami || uuname -l || uname -n
) 2>/dev/null` || {
	echo >&2 "$0: cannot deduce hostname"
	exit 1
}


# Process the rlog output, generating ChangeLog style entries.

# First, reformat the rlog output so that each line contains one log entry.

		# Some awks do not understand "\r" or "\013", so we have to
		# put a carriage return directly in the file.
		CR="
" # <-- There is a single CR between the " chars here.

		# Initialize the fullname associative array.
		'"$initialize_fullname"'

		# Initialize indent string.
		indent_string = ""
		i = '"$indent"'
		if (0 < '"$tabwidth"')

			day = substr(monthday, i+1) + 0
			leap = 0
			if (2 < month && year%4 == 0 && (year%100 != 0 || year%400 == 0)) leap = 1
			days_since_Sunday_before_epoch = EPOCH_WEEKDAY + year * 365 + int((year + 3) / 4) - int((year + 99) / 100) + int((year + 399) / 400) + mo[month-1] + leap + day - 1

			# Print "date  fullname  (email address)" if the fullname is known;
			# print "date  author" otherwise.
			# Get the fullname from the associative array.
			# The email address is just author@thishostname.
			printf "%s %s %2d %s %d  ", w[days_since_Sunday_before_epoch%7], m[month-1], day, $3, year
			if (fullname[author])
				printf "%s  (%s@%s)\n\n", fullname[author], author, "'"$hostname"'"
			else
				printf "%s\n\n", author
		}
		if (! filesknown[$1]) {
			filesknown[$1] = 1
			if (files == "") files = " " $1
			else files = files ", " $1

' &&


# Exit successfully.

exec rm -f $rlogout

4783:7c75802f5a8b

#!/bin/sh

# RCS to ChangeLog generator

# Generate a change log prefix from RCS files and the ChangeLog (if any).
# Output the new prefix to standard output.
# You can edit this prefix by hand, and then prepend it to ChangeLog.

# Ignore log entries that start with `#'.
# Clump together log entries that start with `{topic} ',
# where `topic' contains neither white space nor `}'.

# Author: Paul Eggert <[e-mail]>

# $Id: rcs2log,v 1.13.1.1 1993/09/24 00:54:33 eggert Exp $

# Copyright 1992, 1993 Free Software Foundation, Inc.

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

'

# Parse options.

# defaults
: ${TMPDIR=/tmp}
hostname= # name of local host (if empty, will deduce it later)
indent=8 # indent of log line
initialize_fullname= # awk assignments to set up fullname array
initialize_mailaddr= # awk assignments to set up mailaddr array
length=79 # suggested max width of log line
logins= # login names for people we know fullnames and mailaddresses of
loginsout= # temporary file holding sorted logins
rlog_options= # options to pass to rlog
tabwidth=8 # width of horizontal tab

while :
do
	case $1 in
	-i)	indent=${2?};;
	-h)	hostname=${2?};;
	-l)	length=${2?};;
	-n)	logins=$logins$nl${2?}
		loginsout=$TMPDIR/rcs2log$$l
		case $2${3?}${4?} in
		*\"* | *\\* | *"$nl"*)
			echo >&2 "$0: -n '$2' '$3' '$4': special characters not allowed"
			exit 1
		esac
		initialize_fullname="$initialize_fullname
			fullname[\"$2\"] = \"$3\""
		initialize_mailaddr="$initialize_mailaddr
			mailaddr[\"$2\"] = \"$4\""
		shift; shift;;
	-r)	rlog_options=$rlog_options$nl${2?};;
	-t)	tabwidth=${2?};;
	-*)	echo >&2 "$0: usage: $0 [options] [file ...]
Options:
	[-h hostname] [-i indent] [-l length] [-n login fullname mailaddr]...
	[-r rlog_option]... [-t tabwidth]"
		exit 1;;
	*)	break
	esac
	shift; shift
done

# With no arguments, examine all files under the RCS directory.
case $# in
0)
	files=
	for file in RCS/.* RCS/* .*,v *,v
	do
		case $file in
		RCS/. | RCS/..) continue;;
		RCS/.\* | RCS/\* | .\*,v | \*,v) test -f "$file" || continue
		esac
		files=$files$nl$file
	done
	case $files in
	'') exit 0
	esac
	oldIFS=$IFS
	IFS=$nl
	set $files
	IFS=$oldIFS
esac

rlogout=$TMPDIR/rcs2log$$r
trap exit 1 2 13 15
trap "rm -f $loginsout $rlogout; exit 1" 0

rlog "$datearg" $rlog_options "$@" >$rlogout || exit


# Get the full name of each author the logs mention, and set initialize_fullname
# to awk code that initializes the `fullname' awk associative array.
# Warning: foreign authors (i.e. not known in the passwd file) are mishandled;
# you have to fix the resulting output by hand.

case $loginsout in
?*) sort -u -o $loginsout <<EOF || exit
$logins
EOF
esac
authors=`
	sed -n 's|^date: *[0-9]*/[0-9][0-9]/[0-9][0-9] [0-9][0-9]:[0-9][0-9]:[0-9][0-9]; *author: *\([^; ]*\).*|\1|p' <$rlogout |
	case $loginsout in
	'') sort -u;;
	?*) sort -u | comm -23 - $loginsout
	esac
`
case $authors in
?*)
	initialize_author=
	for author in $authors
	do
		initialize_author="$initialize_author
			author[\"$author\"] = 1
		"
	done
	awkscript='
		BEGIN {
			alphabet = "abcdefghijklmnopqrstuvwxyz"
			ALPHABET = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
			'"$initialize_author"'

	'

	initialize_fullname=`
		(cat /etc/passwd; ypmatch $authors passwd) 2>/dev/null |
		awk -F: "$awkscript"
	`$initialize_fullname
esac


# Function to print a single log line.
# We don't use awk functions, to stay compatible with old awk versions.

		sep = indent_string
		Log = substr(Log, i+1)
	}
}'

case $hostname in
'')
	hostname=`(
		hostname || uname -n || uuname -l || cat /etc/whoami
	) 2>/dev/null` || {
		echo >&2 "$0: cannot deduce hostname"
		exit 1
	}
esac


# Process the rlog output, generating ChangeLog style entries.

# First, reformat the rlog output so that each line contains one log entry.

		# Some awks do not understand "\r" or "\013", so we have to
		# put a carriage return directly in the file.
		CR="
" # <-- There is a single CR between the " chars here.

		# Initialize the fullname and mailaddr associative arrays.
		'"$initialize_fullname"'
		'"$initialize_mailaddr"'

		# Initialize indent string.
		indent_string = ""
		i = '"$indent"'
		if (0 < '"$tabwidth"')

			day = substr(monthday, i+1) + 0
			leap = 0
			if (2 < month && year%4 == 0 && (year%100 != 0 || year%400 == 0)) leap = 1
			days_since_Sunday_before_epoch = EPOCH_WEEKDAY + year * 365 + int((year + 3) / 4) - int((year + 99) / 100) + int((year + 399) / 400) + mo[month-1] + leap + day - 1

			# Print "date  fullname  (email address)".
			# Get fullname and email address from associative arrays;
			# default to author and author@hostname if not in arrays.
			if (fullname[author])
				auth = fullname[author]
			else
				auth = author
			printf "%s %s %2d %s %d  %s  ", w[days_since_Sunday_before_epoch%7], m[month-1], day, $3, year, auth
			if (mailaddr[author])
				printf "(%s)\n\n", mailaddr[author]
			else
				printf "(%s@%s)\n\n", author, "'"$hostname"'"
		}
		if (! filesknown[$1]) {
			filesknown[$1] = 1
			if (files == "") files = " " $1
			else files = files ", " $1

' &&


# Exit successfully.

exec rm -f $loginsout $rlogout