Mercurial > emacs
diff lib-src/rcs2log @ 12408:67f759e94c3e
(CVSROOT, repository): Allow remote repositories a la CVS 1.4.
| author | Paul Eggert <eggert@twinsun.com> |
|---|---|
| date | Wed, 28 Jun 1995 01:47:55 +0000 |
| parents | b9b0b3f96dc2 |
| children | da322c027bf0 |
line wrap: on
line diff
--- a/lib-src/rcs2log Wed Jun 28 00:26:25 1995 +0000 +++ b/lib-src/rcs2log Wed Jun 28 01:47:55 1995 +0000 @@ -12,7 +12,7 @@ # Author: Paul Eggert <eggert@twinsun.com> -# $Id: rcs2log,v 1.22 1995/04/30 15:34:52 eggert Exp $ +# $Id: rcs2log,v 1.24 1995/06/28 01:47:55 eggert Exp $ # Copyright 1992, 1993, 1994, 1995 Free Software Foundation, Inc. @@ -178,15 +178,23 @@ else rlog='cvs log' repository=`sed 1q <CVS/Repository` || exit - case $repository in - /*) ;; - *) repository=${CVSROOT?}/$repository + test ! -f CVS/Root || CVSROOT=`cat <CVS/Root` || exit + case ${CVSROOT?} in + *:/*) + # remote repository + ;; + *) + # local repository + case $repository in + /*) ;; + *) repository=$CVSROOT/$repository + esac + if test ! -d "$repository" + then + echo >&2 "$0: $repository: bad repository (see CVS/Repository)" + exit 1 + fi 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.