diff options
| author | Paul Eggert | 1995-03-21 23:14:41 +0000 |
|---|---|---|
| committer | Paul Eggert | 1995-03-21 23:14:41 +0000 |
| commit | 0a4e59d934e2324661cdf9745d9f43f2b02549f2 (patch) | |
| tree | df3fd5da0d97f3c09e4021c891790c8f36138b46 /lib-src/rcs2log | |
| parent | c0a7db8434499de9362a94ea620f2a95b98fdd49 (diff) | |
| download | emacs-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-x | lib-src/rcs2log | 18 |
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 |