#! /bin/bash

#  This script is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License version 2 as
#  published by the Free Software Foundation.
#
#  See the COPYING and AUTHORS files for more details.

# Read in library functions
if [ "$(type -t patch_file_name)" != function ]
then
	if ! [ -r /usr/share/quilt/scripts/patchfns ]
	then
		echo "Cannot read library /usr/share/quilt/scripts/patchfns" >&2
		exit 1
	fi
	. /usr/share/quilt/scripts/patchfns
fi

usage()
{
	echo $"Usage: quilt snapshot [-d]"
	if [ x$1 = x-h ]
	then
		echo $"

Take a snapshot of the current working state.

-d	Remove current snapshot.

"
		exit 0
	else
		exit 1
	fi
}

options=`getopt -o dh -- "$@"`

if [ $? -ne 0 ]
then
	usage
fi

eval set -- "$options"

while true
do
	case "$1" in
	-d)
		opt_remove=1
		shift ;;
	-h)
		usage -h ;;
	--)
		shift
		break ;;
	esac
done

if [ $# -ne 0 ]
then
	usage
fi

snap_subdir=.snap

# Clean up from previous snapshot
rm -rf $QUILT_PC/$snap_subdir
mkdir -p $QUILT_PC/$snap_subdir

if [ -n "$opt_remove" ]
then
	exit 0
fi

# Save current working state
for patch in $(applied_patches | tac)
do
	for file in $(files_in_patch $patch)
	do
		if ! [ -e "$QUILT_PC/$snap_subdir/$file" ]
		then
			mkdir -p "$QUILT_PC/$snap_subdir/$(dirname $file)"
			if [ -e "$file" ]
			then
				ln "$file" "$QUILT_PC/$snap_subdir/$file"
			else
				touch "$QUILT_PC/$snap_subdir/$file"
			fi
		fi
	done
done

# Now we may have some zero-size files that have no permissions
# (which represent files that the patch creates). Those may have
# been created in the meantime, but patch would refuse to touch
# them: We must remove them here.
find $QUILT_PC/$snap_subdir -type f -size 0 -exec rm -f '{}' ';'

### Local Variables:
### mode: shell-script
### End:
# vim:filetype=sh
