changeset 4504:65ef94a9e2c4

(awkscript): Some sites put comma-separated junk after the fullname. Remove it, but leave "Bill Gates, Jr" alone. Remove the junk from fullnames like "0000-Admin(0000)".
author Paul Eggert <eggert@twinsun.com>
date Mon, 09 Aug 1993 22:06:00 +0000
parents b6215383480a
children 348f6a32d9b5
files lib-src/=rcs2log lib-src/rcs2log
diffstat 2 files changed, 22 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lib-src/=rcs2log	Mon Aug 09 06:18:02 1993 +0000
+++ b/lib-src/=rcs2log	Mon Aug 09 22:06:00 1993 +0000
@@ -12,7 +12,7 @@
 
 # Author: Paul Eggert <eggert@twinsun.com>
 
-# $Id: rcs2log,v 1.11 1993/05/03 17:55:22 eggert Exp rms $
+# $Id: rcs2log,v 1.12 1993/05/29 06:22:48 rms Exp eggert $
 
 # Copyright 1992, 1993 Free Software Foundation, Inc.
 
@@ -173,6 +173,16 @@
 		{
 			if (author[$1]) {
 				fullname = $5
+				if (fullname ~ /[0-9]+-[^(]*\([0-9]+\)$/) {
+					# Remove the junk from fullnames like "0000-Admin(0000)".
+					fullname = substr(fullname, index(fullname, "-") + 1)
+					fullname = substr(fullname, 1, index(fullname, "(") - 1)
+				}
+				if (fullname ~ /,[^ ]/) {
+					# Some sites put comma-separated junk after the fullname.
+					# Remove it, but leave "Bill Gates, Jr" alone.
+					fullname = substr(fullname, 1, index(fullname, ",") - 1)
+				}
 				abbr = index(fullname, "&")
 				if (abbr) {
 					a = substr($1, 1, 1)
--- a/lib-src/rcs2log	Mon Aug 09 06:18:02 1993 +0000
+++ b/lib-src/rcs2log	Mon Aug 09 22:06:00 1993 +0000
@@ -12,7 +12,7 @@
 
 # Author: Paul Eggert <eggert@twinsun.com>
 
-# $Id: rcs2log,v 1.11 1993/05/03 17:55:22 eggert Exp rms $
+# $Id: rcs2log,v 1.12 1993/05/29 06:22:48 rms Exp eggert $
 
 # Copyright 1992, 1993 Free Software Foundation, Inc.
 
@@ -173,6 +173,16 @@
 		{
 			if (author[$1]) {
 				fullname = $5
+				if (fullname ~ /[0-9]+-[^(]*\([0-9]+\)$/) {
+					# Remove the junk from fullnames like "0000-Admin(0000)".
+					fullname = substr(fullname, index(fullname, "-") + 1)
+					fullname = substr(fullname, 1, index(fullname, "(") - 1)
+				}
+				if (fullname ~ /,[^ ]/) {
+					# Some sites put comma-separated junk after the fullname.
+					# Remove it, but leave "Bill Gates, Jr" alone.
+					fullname = substr(fullname, 1, index(fullname, ",") - 1)
+				}
 				abbr = index(fullname, "&")
 				if (abbr) {
 					a = substr($1, 1, 1)