mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 08:11:05 -08:00
Code Issues Projects Releases Wiki Activity

(datearg): If rlog options are specified explicitly,

Browse source 
omit the implicit '-d>DATE' option.
(repository, rlog): Allow absolute paths to CVS repositories.
Look only at the first line of CVS/Repository.
This commit is contained in:
Paul Eggert 1995-04-30 15:34:52 +00:00
parent 5949c48ae0
commit 64736f55e1
1 changed files with 71 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

50
lib-src/rcs2log
View file

@ -12,7 +12,7 @@
# Author: Paul Eggert <eggert@twinsun.com>
# $Id: rcs2log,v 1.20 1995/03/21 23:14:41 eggert Exp eggert $
# $Id: rcs2log,v 1.22 1995/04/30 15:34:52 eggert Exp $
# Copyright 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
@ -42,7 +42,7 @@ nl='
hostname= # name of local host (if empty, will deduce it later)
indent=8 # indent of log line
length=79 # suggested max width of log line
logins= # login names for people we know fullnames and mailaddresses of
logins= # login names for people we know fullnames and mailaddrs of
loginFullnameMailaddrs= # login<tab>fullname<tab>mailaddr triplets
recursive= # t if we want recursive rlog
rlog_options= # options to pass to rlog
@ -116,8 +116,12 @@ month_data='
'
# Log into $rlogout the revisions checked in since the first ChangeLog entry.
# Put rlog output into $rlogout.
# If no rlog options are given,
# log the revisions checked in since the first ChangeLog entry.
case $rlog_options in
'')
date=1970
if test -s ChangeLog
then
@ -164,22 +168,27 @@ then
esac
fi
datearg="-d>$date"
repository=
rlog=rlog
case $CVSROOT in
?*)
if test -d "$CVSROOT" && test -f CVS/Repository
then
r=`cat <CVS/Repository` || exit
if test -d "$CVSROOT/$r"
then
repository=$CVSROOT/$r
rlog='cvs log'
fi
fi
esac
# If CVS is in use, examine its repository, not the normal RCS files.
if test ! -f CVS/Repository
then
rlog=rlog
repository=
else
rlog='cvs log'
repository=`sed 1q <CVS/Repository` || exit
case $repository in
/*) ;;
*) repository=${CVSROOT?}/$repository
esac
if test ! -d "$repository"
then
echo >&2 "$0: $repository: bad repository (see CVS/Repository)"
exit 1
fi
fi
# With no arguments, examine all files under the RCS directory.
case $# in
0)
@ -226,7 +235,10 @@ rlogout=$TMPDIR/rcs2log$$r
trap exit 1 2 13 15
trap "rm -f $llogout $rlogout; exit 1" 0
$rlog "$datearg" $rlog_options ${1+"$@"} >$rlogout || exit
case $rlog_options in
?*) $rlog $rlog_options ${1+"$@"} >$rlogout;;
'') $rlog "$datearg" ${1+"$@"} >$rlogout
esac || exit
# Get the full name of each author the logs mention, and set initialize_fullname
@ -450,7 +462,7 @@ sort +1 -3r +3 +0 |
# Finally, reformat the sorted log entries.
$AWK '
BEGIN {
# Some awks do not understand "\r" or "\013", so we have to
# Some awk variants 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.