#! /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()
{
	printf $"Usage: quilt pop [-afRqv] [num|patch]\n"
	if [ x$1 = x-h ]
	then
		printf $"
Remove patch(es) from the series file.  Without options, the topmost
patch is removed.  When a number is specified, remove the specified
number of patches.  When a patch name is specified, remove all patches
up to and including the specified patch.  Patch names may include the
patches/ prefix, which means that filename completion can be used.

-a	Remove all applied patches.

-f	Force remove. The state before the patch(es) were applied will
	be restored from backup files.

-R	Remove the patch with \`patch -R' and check if the patch reverts
	all changes properly.

-q	Quiet operation.

-v	Verbose operation.
"
		exit 0
	else
		exit 1
	fi
}

list_patches()
{
	local n=0 patch
	applied_patches \
	| tac \
	| if [ -n "$opt_all" ]
	then
		cat
	else
		while read patch
		do
			if [ -n "$number" ]
			then
				if [ $n -eq $number ]
				then
					break
				fi
				n=$[$n+1]
			fi
			if [ $patch = "$stop_at_patch" ]
			then
				break
			fi
			echo $patch
		done
	fi
}

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

if [ $? -ne 0 ]
then
        usage
fi

eval set -- "$options"

while true
do
        case "$1" in
        -f)
                opt_force=1
		unset opt_remove
		shift ;;
	-R)
		opt_remove=1	# remove with patch -R; no tricks
		unset opt_force
		shift ;;
        -q)
                opt_quiet=1
		shift ;;
        -v)
                opt_verbose=1
		shift ;;
	-a)
		opt_all=1
		shift ;;
	-h)
		usage -h ;;
        --)
                shift
		break ;;
        esac
done

if [ $# -gt 1 -o \( -n "$opt_all" -a $# -ne 0 \) ]
then
        usage
fi

if [ $# -eq 1 ]
then
	if is_numeric $1
	then
		number=$1
	else
		if ! stop_at_patch=$(find_patch $1)
		then
			printf $"Patch %s is not in series\n" "$1" >&2
			exit 1
		fi
	fi
else
	[ -n "$opt_all" ] || number=1
fi

[ -n "$opt_force" ] &&
	rpatch_options="$rpatch_options -f"
[ -n "$opt_remove" ] &&
	rpatch_options="$rpatch_options -R"
[ -n "$opt_quiet" ] &&
	rpatch_options="$rpatch_options -q"
[ -n "$opt_verbose" ] &&
	rpatch_options="$rpatch_options -v"

if [ -n "$stop_at_patch" ]
then
	if ! is_applied $stop_at_patch
	then
		printf $"Patch %s is not applied\n" "$(print_patch $2)" >&2
		exit 1
	fi
fi

if ! patches=$(list_patches) 2>&1
then
	exit 1
elif [ -z "$patches" ]
then
        printf $"No patch removed\n" >&2
	exit 2
fi

trap "interrupted=1" SIGINT

for patch in $patches
do
	[ -n "$SUBDIR" ] && pushd $SUBDIR > /dev/null
	if ! /usr/share/quilt/scripts/rpatch $rpatch_options $patch
	then
		exit 1
	fi
	[ -n "$SUBDIR" ] && popd > /dev/null
	if [ -n "$interrupted" ]
	then
		printf $"Interrupted by user\n" >&2
		exit 1
	fi
	[ -z "$opt_quiet" ] && echo
done

patch="$(top_patch)"
if [ -z "$patch" ]
then
	printf $"No patches applied\n"
else
	# Ensure that the files in the topmost patch have a link count
	# of one: This will automatically be the case in the usual
	# situations, but we don't want to risk file corruption in weird
	# corner cases such as files added to a patch but not modified.
	/usr/lib/quilt/backup-files -L -s -B $QUILT_PC/$patch/ -
	printf $"Now at patch %s\n" "$(print_patch $patch)"
fi
### Local Variables:
### mode: shell-script
### End:
# vim:filetype=sh
