1#!/bin/sh
2# List version-controlled file names.
3
4# Print a version string.
5scriptversion=2011-05-16.22; # UTC
6
7# Copyright (C) 2006-2012 Free Software Foundation, Inc.
8
9# This program is free software: you can redistribute it and/or modify
10# it under the terms of the GNU General Public License as published by
11# the Free Software Foundation, either version 3 of the License, or
12# (at your option) any later version.
13
14# This program is distributed in the hope that it will be useful,
15# but WITHOUT ANY WARRANTY; without even the implied warranty of
16# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17# GNU General Public License for more details.
18
19# You should have received a copy of the GNU General Public License
20# along with this program.  If not, see <http://www.gnu.org/licenses/>.
21
22
23# List the specified version-controlled files.
24# With no argument, list them all.  With a single DIRECTORY argument,
25# list the version-controlled files in that directory.
26
27# If there's an argument, it must be a single, "."-relative directory name.
28# cvsu is part of the cvsutils package: http://www.red-bean.com/cvsutils/
29
30postprocess=
31case $1 in
32  --help) cat <<EOF
33Usage: $0 [-C SRCDIR] [DIR...]
34
35Output a list of version-controlled files in DIR (default .), relative to
36SRCDIR (default .).  SRCDIR must be the top directory of a checkout.
37
38Options:
39  --help     print this help, then exit
40  --version  print version number, then exit
41  -C SRCDIR  change directory to SRCDIR before generating list
42
43Report bugs and patches to <bug-gnulib@gnu.org>.
44EOF
45    exit ;;
46
47  --version)
48    year=`echo "$scriptversion" | sed 's/[^0-9].*//'`
49    cat <<EOF
50vc-list-files $scriptversion
51Copyright (C) $year Free Software Foundation, Inc,
52License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
53This is free software: you are free to change and redistribute it.
54There is NO WARRANTY, to the extent permitted by law.
55EOF
56    exit ;;
57
58  -C)
59    test "$2" = . || postprocess="| sed 's|^|$2/|'"
60    cd "$2" || exit 1
61    shift; shift ;;
62esac
63
64test $# = 0 && set .
65
66for dir
67do
68  if test -d .git; then
69    test "x$dir" = x. \
70      && dir= sed_esc= \
71      || { dir="$dir/"; sed_esc=`echo "$dir"|env sed 's,\([\\/]\),\\\\\1,g'`; }
72    # Ignore git symlinks - either they point into the tree, in which case
73    # we don't need to visit the target twice, or they point somewhere
74    # else (often into a submodule), in which case the content does not
75    # belong to this package.
76    eval exec git ls-tree -r 'HEAD:"$dir"' \
77      \| sed -n '"s/^100[^	]*./$sed_esc/p"' $postprocess
78  elif test -d .hg; then
79    eval exec hg locate '"$dir/*"' $postprocess
80  elif test -d .bzr; then
81    test "$postprocess" = '' && postprocess="| sed 's|^\./||'"
82    eval exec bzr ls -R --versioned '"$dir"' $postprocess
83  elif test -d CVS; then
84    test "$postprocess" = '' && postprocess="| sed 's|^\./||'"
85    if test -x build-aux/cvsu; then
86      eval build-aux/cvsu --find --types=AFGM '"$dir"' $postprocess
87    elif (cvsu --help) >/dev/null 2>&1; then
88      eval cvsu --find --types=AFGM '"$dir"' $postprocess
89    else
90      eval awk -F/ \''{			\
91          if (!$1 && $3 !~ /^-/) {	\
92            f=FILENAME;			\
93            if (f ~ /CVS\/Entries$/)	\
94              f = substr(f, 1, length(f)-11); \
95            print f $2;			\
96          }}'\''				\
97        `find "$dir" -name Entries -print` /dev/null' $postprocess
98    fi
99  elif test -d .svn; then
100    eval exec svn list -R '"$dir"' $postprocess
101  else
102    echo "$0: Failed to determine type of version control used in `pwd`" 1>&2
103    exit 1
104  fi
105done
106
107# Local variables:
108# eval: (add-hook 'write-file-hooks 'time-stamp)
109# time-stamp-start: "scriptversion="
110# time-stamp-format: "%:y-%02m-%02d.%02H"
111# time-stamp-time-zone: "UTC"
112# time-stamp-end: "; # UTC"
113# End:
114