2008-01-29 17:42:39 +00:00
|
|
|
#!/bin/sh
|
2008-02-01 19:47:07 +00:00
|
|
|
# List version-controlled file names.
|
2008-01-29 17:42:39 +00:00
|
|
|
|
2008-04-29 19:52:26 +00:00
|
|
|
# Print a version string.
|
2008-04-30 16:11:08 +00:00
|
|
|
scriptversion=2008-04-30.12
|
2008-04-29 19:52:26 +00:00
|
|
|
|
2008-02-01 19:47:07 +00:00
|
|
|
# Copyright (C) 2006-2008 Free Software Foundation, Inc.
|
2008-01-29 17:42:39 +00:00
|
|
|
|
|
|
|
# This program is free software: you can redistribute it and/or modify
|
|
|
|
# it under the terms of the GNU General Public License as published by
|
|
|
|
# the Free Software Foundation, either version 3 of the License, or
|
|
|
|
# (at your option) any later version.
|
|
|
|
|
|
|
|
# This program is distributed in the hope that it will be useful,
|
|
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
# GNU General Public License for more details.
|
|
|
|
|
|
|
|
# You should have received a copy of the GNU General Public License
|
|
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
|
|
|
|
# List the specified version-controlled files.
|
2008-02-01 19:47:07 +00:00
|
|
|
# With no argument, list them all. With a single DIRECTORY argument,
|
|
|
|
# list the version-controlled files in that directory.
|
2008-01-29 17:42:39 +00:00
|
|
|
|
|
|
|
# If there's an argument, it must be a single, "."-relative directory name.
|
|
|
|
# cvsu is part of the cvsutils package: http://www.red-bean.com/cvsutils/
|
|
|
|
|
2008-04-29 19:52:26 +00:00
|
|
|
postprocess=
|
|
|
|
case $1 in
|
|
|
|
--help) cat <<EOF
|
|
|
|
Usage: $0 [-C SRCDIR] [DIR]
|
|
|
|
|
|
|
|
Output a list of version-controlled files in DIR (default .), relative to
|
|
|
|
SRCDIR (default .). SRCDIR must be the top directory of a checkout.
|
|
|
|
|
|
|
|
Options:
|
|
|
|
--help print this help, then exit
|
|
|
|
--version print version number, then exit
|
|
|
|
-C SRCDIR change directory to SRCDIR before generating list
|
|
|
|
|
|
|
|
Report bugs and patches to <bug-gnulib@gnu.org>.
|
|
|
|
EOF
|
|
|
|
exit ;;
|
|
|
|
|
|
|
|
--version)
|
|
|
|
year=`echo "$scriptversion" | sed 's/[^0-9].*//'`
|
|
|
|
cat <<EOF
|
|
|
|
vc-list-files $scriptversion
|
|
|
|
Copyright (C) $year Free Software Foundation, Inc,
|
|
|
|
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
|
|
|
|
This is free software: you are free to change and redistribute it.
|
|
|
|
There is NO WARRANTY, to the extent permitted by law.
|
|
|
|
EOF
|
|
|
|
exit ;;
|
|
|
|
|
|
|
|
-C)
|
|
|
|
test "$2" = . || postprocess="| sed 's|^|$2/|'"
|
|
|
|
cd "$2" || exit 1
|
|
|
|
shift; shift ;;
|
|
|
|
esac
|
|
|
|
|
2008-01-29 17:42:39 +00:00
|
|
|
dir=
|
|
|
|
case $# in
|
|
|
|
0) ;;
|
|
|
|
1) dir=$1 ;;
|
2008-02-01 19:47:07 +00:00
|
|
|
*) echo "$0: too many arguments" 1>&2
|
2008-04-29 19:52:26 +00:00
|
|
|
echo "Usage: $0 [-C srcdir] [DIR]" 1>&2; exit 1;;
|
2008-01-29 17:42:39 +00:00
|
|
|
esac
|
|
|
|
|
|
|
|
test "x$dir" = x && dir=.
|
|
|
|
|
2008-02-01 19:47:07 +00:00
|
|
|
if test -d .git; then
|
2008-04-29 19:52:26 +00:00
|
|
|
eval exec git ls-files '"$dir"' $postprocess
|
2008-02-01 19:47:07 +00:00
|
|
|
elif test -d .hg; then
|
2008-04-29 19:52:26 +00:00
|
|
|
eval exec hg locate '"$dir/*"' $postprocess
|
2008-02-01 19:47:07 +00:00
|
|
|
elif test -d CVS; then
|
2008-04-30 16:11:08 +00:00
|
|
|
test "$postprocess" = '' && postprocess="| sed 's|^\./||'"
|
2008-01-29 17:42:39 +00:00
|
|
|
if test -x build-aux/cvsu; then
|
2008-04-29 19:52:26 +00:00
|
|
|
eval build-aux/cvsu --find --types=AFGM '"$dir"' $postprocess
|
|
|
|
elif (cvsu --help) >/dev/null 2>&1; then
|
|
|
|
eval cvsu --find --types=AFGM '"$dir"' $postprocess
|
2008-01-29 17:42:39 +00:00
|
|
|
else
|
2008-04-29 19:52:26 +00:00
|
|
|
eval awk -F/ \''{ \
|
2008-01-29 17:42:39 +00:00
|
|
|
if (!$1 && $3 !~ /^-/) { \
|
|
|
|
f=FILENAME; \
|
|
|
|
sub(/CVS\/Entries/, "", f); \
|
|
|
|
print f $2; \
|
2008-04-29 19:52:26 +00:00
|
|
|
}}'\'' \
|
2008-04-30 16:11:08 +00:00
|
|
|
$(find "$dir" -name Entries -print) /dev/null' $postprocess
|
2008-01-29 17:42:39 +00:00
|
|
|
fi
|
|
|
|
else
|
2008-04-29 19:52:26 +00:00
|
|
|
echo "$0: Failed to determine type of version control used in `pwd`" 1>&2
|
2008-02-01 19:47:07 +00:00
|
|
|
exit 1
|
2008-01-29 17:42:39 +00:00
|
|
|
fi
|
2008-04-29 19:52:26 +00:00
|
|
|
|
|
|
|
# Local variables:
|
|
|
|
# eval: (add-hook 'write-file-hooks 'time-stamp)
|
|
|
|
# time-stamp-start: "scriptversion="
|
|
|
|
# time-stamp-format: "%:y-%02m-%02d.%02H"
|
|
|
|
# time-stamp-end: "$"
|
|
|
|
# End:
|