#!/bin/sh

set -e

action=$(basename $0 .sh)

tar_excludes="--exclude CVSROOT --exclude .cvsignore --exclude .svn --exclude .arch-ids --exclude {arch} --exclude .hg --exclude .hgignore --exclude .hgtags"

projects=${1:-$(find -mindepth 1 -maxdepth 1 -type d -printf '%f\n')}
for project in $projects; do
	if [ -x $project/$action.sh ]; then
		echo " ** Custom updating project $project... **"
		(cd $project && ./$action.sh)
	else
		targets=${2:-$(find $project -mindepth 1 -maxdepth 1 -type d -printf '%f\n')}
		for target in $targets; do
			repository=""
			branch=""
			if [ -d "$project/$target/.hg" ]; then
				versys="Mercurial"
				versysfile="hg"
				repository="$(cat $project/$target/.hg/hgrc | perl -n -e '/^default\s+=\s+(\S+)/ && print "$1\n"')"
			elif [ -d "$project/$target/{arch}" ]; then
				versys="ARCH"
				versysfile="arch"
				repository="$(cat $project/$target/{arch}/++default-version)"
			elif [ -d "$project/$target/.svn" ]; then
				versys="SVN"
				versysfile="svn"
			elif [ -d "$project/$target/CVS" ]; then
				versys="CVS"
				versysfile="cvs"
				repository="$(cat $project/$target/CVS/Repository)"
				# Get Tag if available
				if [ -f $project/$target/CVS/Tag ]; then
					branch="$(egrep '^N' $project/$target/CVS/Tag | sed 's/^N//')"
				fi
			else
				echo "ERROR: Unknown version control system used for \"$project/$target\"."
				exit 1
			fi
			case $action in
			    update)
				echo " ** Updating $versys project \"$project\" target \"$target\"${repository:+ (repository \"$repository\"${branch:+ branch \"$branch\"})}"
				case $versys in
				    CVS)
					( cd $project/$target && cvs -z3 update -dP 2>&1 || exit 1 ) \
						| egrep -v '^cvs(pserver)? (server|update): Updating' || [ $? -lt 2 ] # catch grep failures
					;;
				    SVN)
					( cd $project/$target && svn update )
					;;
				    ARCH)
					( cd $project/$target && tla update )
					;;
				    Mercurial)
					( cd $project/$target && hg pull -u )
					;;
				    *)
					echo "ERROR: Action \"$action\" not supported for \"$project/$target\"."
					exit 1
					;;
				esac
				;;
			    archive)
				echo " ** Creating snapshot of $versys project \"$project\" target \"$target\"${repository:+ (repository \"$repository\"${branch:+ branch \"$branch\"})}"
				case $versys in
				    CVS|SVN|ARCH|Mercurial)
					( cd $project && tar chf - --exclude CVS $tar_excludes $target ) \
						| gzip -f9 > $project/$target-$versysfile$(date '+%Y%m%d').tar.gz
					;;
				    *)
					echo "ERROR: Action \"$action\" not supported for \"$project/$target\"."
					exit 1
					;;
				esac
				;;
			    mkchanges)
				echo " ** Building changelog of $versys project \"$project\" target \"$target\"${repository:+ (repository \"$repository\"${branch:+ branch \"$branch\"})}"
				case $versys in
				    CVS)
#					( cd $project/$target && cvs2cl --gmt -S --no-wrap -f ../$target.ChangeLog 2>&1 || exit 1 ) \
#					( cd $project/$target && cvs2cl --gmt -S --no-wrap ${branch:+-F $branch} -f ../$target.ChangeLog 2>&1 || exit 1 ) \
					( cd $project/$target && cvs2cl --gmt -S --no-wrap -F ${branch:-TRUNK} -f ../$target.ChangeLog 2>&1 || exit 1 ) \
						| egrep -v '^cvs(pserver)? (server|log): Logging' || [ $? -lt 2 ] # catch grep failures
					;;
				    SVN)
					( cd $project/$target && test -f ../$target.ChangeLog && mv -f ../$target.ChangeLog ../$target.ChangeLog.bak )
					( cd $project/$target && svn log -v | localsvnlog2cl > ../$target.ChangeLog )
					;;
				    ARCH)
					( cd $project/$target && test -f ../$target.ChangeLog && mv -f ../$target.ChangeLog ../$target.ChangeLog.bak )
					( cd $project/$target && tla changelog > ../$target.ChangeLog )
					;;
				    Mercurial)
					( cd $project/$target && test -f ../$target.ChangeLog && mv -f ../$target.ChangeLog ../$target.ChangeLog.bak )
					( cd $project/$target && hg log -v > ../$target.ChangeLog )
					;;
				    *)
					echo "ERROR: Action \"$action\" not supported for \"$project/$target\"."
					exit 1
					;;
				esac
				;;
			    *)
				echo "ERROR: Unknown action \"$action\" for \"$project/$target\"."
				exit 1
				;;
			esac
		done
	fi
done