diff options
| author | Paul Eggert <eggert@twinsun.com> | 1995-06-28 01:47:55 +0000 |
|---|---|---|
| committer | Paul Eggert <eggert@twinsun.com> | 1995-06-28 01:47:55 +0000 |
| commit | 8e3565cffb4e9e29843de19faa34d990839395b3 (patch) | |
| tree | 51003d1a31ba59048c538d32b92af9a17d6faaaf | |
| parent | 923a382f0553c18909755a722d109eb792396496 (diff) | |
| download | emacs-8e3565cffb4e9e29843de19faa34d990839395b3.tar.gz | |
(CVSROOT, repository): Allow remote repositories a la CVS 1.4.
| -rw-r--r-- | lib-src/=rcs2log | 26 | ||||
| -rwxr-xr-x | lib-src/rcs2log | 26 |
2 files changed, 34 insertions, 18 deletions
diff --git a/lib-src/=rcs2log b/lib-src/=rcs2log index 3bcf5e9ace9..632b6679e3a 100644 --- a/lib-src/=rcs2log +++ b/lib-src/=rcs2log @@ -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 @@ then 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. diff --git a/lib-src/rcs2log b/lib-src/rcs2log index 3bcf5e9ace9..632b6679e3a 100755 --- a/lib-src/rcs2log +++ b/lib-src/rcs2log @@ -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 @@ then 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. |