rcs2log

rcs2log

[Thomas Dickey]

[-- Attachment #1: Type: text/plain, Size: 288 bytes --]

Two bugs noted (patch attached):

	The script doesn't handle symbolic links to RCS directories.

	A bogus hostname is applied to userid's that are not found on
	the current system.

-- 
Thomas E. Dickey <dickey@invisible-island.net>
http://invisible-island.net
ftp://invisible-island.net

[-- Attachment #2: rcs2log.diff --]
[-- Type: text/plain, Size: 1567 bytes --]

--- rcs2log	2003/04/25 20:16:12	1.1
+++ rcs2log	2003/04/26 14:47:00
@@ -31,6 +31,9 @@
 
 Id='$Id: rcs2log,v 1.50 2002/02/03 17:31:31 eggert Exp $'
 
+# modified to allow for symbolic links to RCS directories -T.Dickey
+# modified to avoid using bogus hostname for authors -T.Dickey
+
 # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2001, 2002
 #  Free Software Foundation, Inc.
 
@@ -302,21 +305,21 @@
 			IFS=$nl
 			case $recursive in
 			t)
-				RCSdirs=`find . -name RCS -type d -print`
+				RCSdirs=`find . -name RCS -print`
 				filesFromRCSfiles='s|,v$||; s|/RCS/|/|; s|^\./||'
 				files=`
 					{
-						case $RCSdirs in
-						?*) find $RCSdirs \
-								-type f \
+					for dir in $RCSdirs
+					do
+						( cd $dir && \
+							find . -type f \
 								! -name '*_' \
 								! -name ',*,' \
 								! -name '.*_' \
 								! -name .rcsfreeze.log \
 								! -name .rcsfreeze.ver \
-								-print;;
-						esac
-						find . -name '*,v' -print
+								-print | sed -e 's|^\./|'$dir/'|' )
+					done
 					} |
 					sort -u |
 					sed "$filesFromRCSfiles"
@@ -699,11 +702,12 @@
 				auth = fullname[author]
 			else
 				auth = author
-			printf "%s%s  %s  ", date, zone, auth
+			printf "%s%s  %s", date, zone, auth
 			if (mailaddr[author])
-				printf "<%s>\n\n", mailaddr[author]
-			else
-				printf "<%s@%s>\n\n", author, "'"$hostname"'"
+				printf "  <%s>", mailaddr[author]
+			else if (fullname[author])
+				printf "  <%s@%s>", author, "'"$hostname"'"
+			printf "\n\n"
 		}
 		if (! filesknown[$1]) {
 			filesknown[$1] = 1

[-- Attachment #3: Type: text/plain, Size: 148 bytes --]

_______________________________________________
Bug-gnu-emacs mailing list
Bug-gnu-emacs@gnu.org
http://mail.gnu.org/mailman/listinfo/bug-gnu-emacs