build-aux/vc-list-files

   1 #!/bin/sh
   2 # List version-controlled file names.
   3
   4 # Print a version string.
   5 scriptversion=2009-04-24.14
   6
   7 # Copyright (C) 2006-2009 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
  30 postprocess=
  31 case $1 in
  32   --help) cat <<EOF
  33 Usage: $0 [-C SRCDIR] [DIR]
  34
  35 Output a list of version-controlled files in DIR (default .), relative to
  36 SRCDIR (default .).  SRCDIR must be the top directory of a checkout.
  37
  38 Options:
  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
  43 Report bugs and patches to <bug-gnulib@gnu.org>.
  44 EOF
  45     exit ;;
  46
  47   --version)
  48     year=`echo "$scriptversion" | sed 's/[^0-9].*//'`
  49     cat <<EOF
  50 vc-list-files $scriptversion
  51 Copyright (C) $year Free Software Foundation, Inc,
  52 License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
  53 This is free software: you are free to change and redistribute it.
  54 There is NO WARRANTY, to the extent permitted by law.
  55 EOF
  56     exit ;;
  57
  58   -C)
  59     test "$2" = . || postprocess="| sed 's|^|$2/|'"
  60     cd "$2" || exit 1
  61     shift; shift ;;
  62 esac
  63
  64 dir=
  65 case $# in
  66   0) ;;
  67   1) dir=$1 ;;
  68   *) echo "$0: too many arguments" 1>&2
  69      echo "Usage: $0 [-C srcdir] [DIR]" 1>&2; exit 1;;
  70 esac
  71
  72 test "x$dir" = x && dir=.
  73
  74 if test -d .git; then
  75   if test "x$dir" = x. ; then
  76     dir=HEAD
  77   else
  78     dir=HEAD:$dir
  79   fi
  80   # Ignore git symlinks - either they point into the tree, in which case
  81   # we don't need to visit the target twice, or they point somewhere
  82   # else (often into a submodule), in which case the content does not
  83   # belong to this package.
  84   eval exec git ls-tree -r '"$dir"' \| sed -n '"s/^100[^        ]*.//p"' \
  85     $postprocess
  86 elif test -d .hg; then
  87   eval exec hg locate '"$dir/*"' $postprocess
  88 elif test -d .bzr; then
  89   test "$postprocess" = '' && postprocess="| sed 's|^\./||'"
  90   eval exec bzr ls --versioned '"$dir"' $postprocess
  91 elif test -d CVS; then
  92   test "$postprocess" = '' && postprocess="| sed 's|^\./||'"
  93   if test -x build-aux/cvsu; then
  94     eval build-aux/cvsu --find --types=AFGM '"$dir"' $postprocess
  95   elif (cvsu --help) >/dev/null 2>&1; then
  96     eval cvsu --find --types=AFGM '"$dir"' $postprocess
  97   else
  98     eval awk -F/ \''{                   \
  99         if (!$1 && $3 !~ /^-/) {        \
 100           f=FILENAME;                   \
 101           if (f ~ /CVS\/Entries$/)      \
 102             f = substr(f, 1, length(f)-11); \
 103           print f $2;                   \
 104         }}'\''                          \
 105       `find "$dir" -name Entries -print` /dev/null' $postprocess
 106   fi
 107 else
 108   echo "$0: Failed to determine type of version control used in `pwd`" 1>&2
 109   exit 1
 110 fi
 111
 112 # Local variables:
 113 # eval: (add-hook 'write-file-hooks 'time-stamp)
 114 # time-stamp-start: "scriptversion="
 115 # time-stamp-format: "%:y-%02m-%02d.%02H"
 116 # time-stamp-end: "$"
 117 # End: