aboutsummaryrefslogtreecommitdiffstats
path: root/lib-src/rcs2log
diff options
context:
space:
mode:
authorPaul Eggert1995-03-21 23:14:41 +0000
committerPaul Eggert1995-03-21 23:14:41 +0000
commit0a4e59d934e2324661cdf9745d9f43f2b02549f2 (patch)
treedf3fd5da0d97f3c09e4021c891790c8f36138b46 /lib-src/rcs2log
parentc0a7db8434499de9362a94ea620f2a95b98fdd49 (diff)
downloademacs-0a4e59d934e2324661cdf9745d9f43f2b02549f2.tar.gz
emacs-0a4e59d934e2324661cdf9745d9f43f2b02549f2.zip
Treat -u 'LOGIN:FULLNAME:MAILADDR' as if it were
-u 'LOGIN<tab>FULLNAME<tab>MAILADDR'.
Diffstat (limited to 'lib-src/rcs2log')
-rwxr-xr-xlib-src/rcs2log18
1 files changed, 14 insertions, 4 deletions
diff --git a/lib-src/rcs2log b/lib-src/rcs2log
index 5760a41b8c1..d5b8186e97e 100755
--- a/lib-src/rcs2log
+++ b/lib-src/rcs2log
@@ -12,7 +12,7 @@
12 12
13# Author: Paul Eggert <eggert@twinsun.com> 13# Author: Paul Eggert <eggert@twinsun.com>
14 14
15# $Id: rcs2log,v 1.19 1995/03/21 05:11:06 eggert Exp $ 15# $Id: rcs2log,v 1.19 1995/03/21 05:37:42 eggert Exp eggert $
16 16
17# Copyright 1992, 1993, 1994, 1995 Free Software Foundation, Inc. 17# Copyright 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
18 18
@@ -64,14 +64,21 @@ do
64 loginFullnameMailaddrs=$loginFullnameMailaddrs$nl$2$tab$3$tab$4 64 loginFullnameMailaddrs=$loginFullnameMailaddrs$nl$2$tab$3$tab$4
65 shift; shift; shift;; 65 shift; shift; shift;;
66 -u) 66 -u)
67 # If $2 is not tab-separated, use colon for separator.
67 case ${2?} in 68 case ${2?} in
68 *"$nl"*) 69 *"$nl"*)
69 echo >&2 "$0: -u '$2': newlines not allowed" 70 echo >&2 "$0: -u '$2': newlines not allowed"
70 exit 1;; 71 exit 1;;
71 *"$tab"*"$tab"*"$tab"*) 72 *"$tab"*)
73 t=$tab;;
74 *)
75 t=:
76 esac
77 case $2 in
78 *"$t"*"$t"*"$t"*)
72 echo >&2 "$0: -u '$2': too many fields" 79 echo >&2 "$0: -u '$2': too many fields"
73 exit 1;; 80 exit 1;;
74 *"$tab"*"$tab"*) 81 *"$t"*"$t"*)
75 ;; 82 ;;
76 *) 83 *)
77 echo >&2 "$0: -u '$2': not enough fields" 84 echo >&2 "$0: -u '$2': not enough fields"
@@ -244,7 +251,10 @@ EOF
244 IFS=$nl 251 IFS=$nl
245 for loginFullnameMailaddr in $loginFullnameMailaddrs 252 for loginFullnameMailaddr in $loginFullnameMailaddrs
246 do 253 do
247 IFS=$tab 254 case $loginFullnameMailaddr in
255 *"$tab"*) IFS=$tab;;
256 *) IFS=:
257 esac
248 set x $loginFullnameMailaddr 258 set x $loginFullnameMailaddr
249 login=$2 259 login=$2
250 fullname=$3 260 fullname=$3