scripts/svn-keywords.sh

   1 #!/bin/bash
   2 # $Id$
   3 # $URL$
   4
   5 COMMAND=$(basename $0)
   6
   7 usage () {
   8
   9    echo "Usage: $COMMAND keywords -- files or directories"
  10    exit 1
  11
  12 }
  13
  14 [[ -z "$@" ]] && usage
  15
  16 mode=keywords
  17
  18 while [[ "$@" ]] ; do
  19
  20   case "$1" in
  21     --)
  22       mode=dirs ; shift ;;
  23     *)
  24       case $mode in
  25         keywords)
  26           keywords="$keywords $1" ; shift ;;
  27         dirs)
  28           dirs="$dirs $1" ; shift ;;
  29         *)
  30           usage ;;
  31       esac
  32       ;;
  33   esac
  34 done
  35
  36 if [ "$mode" == keywords -o -z "$dirs" -o -z "$keywords" ] ; then
  37   usage
  38 fi
  39
  40 function run_keyword_on_file () {
  41     keyword=$1; shift
  42     file=$1; shift
  43     echo -n "$file "
  44     if [ ! -f $file ] ; then
  45         echo "NOT FOUND - skipped"
  46         continue
  47     fi
  48     current_keywords=$(svn propget svn:keywords $file)
  49     has_keyword=$(echo $current_keywords | grep $keyword)
  50     if [ -z "$has_keyword" ] ; then
  51         echo "+$keyword"
  52         svn propset svn:keywords "$current_keywords $keyword" $file
  53     else
  54         echo "="
  55     fi
  56 }
  57
  58 # figures what files need to have the svn:keywords set, and adds it when missing
  59 function run_keywords () {
  60     for dir in $dirs; do
  61         cd $here
  62         if [ -d $dir ] ; then
  63             cd $dir
  64             echo "xxxxxxxxxxxxxxxxxxxx Fixing keywords props in $(pwd)"
  65             echo -n "xxxxxxxxxx Gathering files under subversion "
  66             svnfiles=$(svn list -R)
  67             echo $(ls -1 $svnfiles | wc -l) files found
  68
  69             for keyword in $keywords ; do
  70
  71                 files=$(grep -l '$'"$keyword" $svnfiles)
  72                 nbfiles=$(ls -1 $files | wc -l)
  73                 echo Found $nbfiles with \$$keyword
  74
  75                 for file in $files ; do
  76                     run_keyword_on_file $keyword $file
  77                 done
  78             done
  79         else
  80             for keyword in $keywords ; do
  81                 grep '$'"$keyword" $dir > /dev/null && run_keyword_on_file $keyword $dir
  82             done
  83         fi
  84     done
  85 }
  86
  87 # removes expansion of the specified keywords for diff
  88 # useful when comparing with another codebase
  89 function run_normalize_on_files () {
  90     for keyword in $keywords ; do
  91         echo "Deflating \$$keyword on $# files"
  92         for file in "$@" ; do
  93             sed -e 's,$'"$keyword"'.*\$,\$'"$keyword"'$,' $file > $file.new
  94             mv $file.new $file
  95         done
  96     done
  97 }
  98
  99 function run_normalize () {
 100     for dir in $dirs; do
 101         cd $here
 102         if [ -d $dir ] ; then
 103             cd $dir
 104             echo "xxxxxxxxxxxxxxxxxxxx Normalizing keywords $keywords in $(pwd) "
 105             echo -n "xxxxxxxxxx Gathering actual files under subversion "
 106             svnfiles=$(svn list -R)
 107
 108             files=""
 109             for scan in $svnfiles; do
 110                 if [ -d $scan ] ; then continue
 111                 elif [ -L $scan ] ; then continue
 112                 else files="$files $scan"
 113                 fi
 114             done
 115             echo $(ls -1 $files |wc -l) files found
 116             run_normalize_on_files $files
 117             echo Done
 118         else
 119             run_normalize_on_files $dir
 120         fi
 121     done
 122 }
 123
 124 here=$(pwd -P)
 125
 126 case $0 in
 127     *keywords*)
 128         run_keywords ;;
 129     *normalize*)
 130         run_normalize ;;
 131     *)
 132         echo Unsupported command $0 ;;
 133 esac