#! @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 @SCRIPTS@/patchfns ]
	then
		echo "Cannot read library @SCRIPTS@/patchfns" >&2
		exit 1
	fi
	. @SCRIPTS@/patchfns
fi

usage()
{
	echo $"Usage: $0 [-fqv] patchname"
	exit 1
}

rollback_patch()
{
	local patch=$1 pc_file=$(pc_file_name $patch)
	@LIB@/backup-files $silent_unless_verbose \
			   -f $pc_file -B .pc/$patch/ -r
	if [ -z "$opt_leave_rejects" ]
	then
		rm -f $(files_in_patch $patch | @SED@ -e 's/$/\.rej/')
	fi
}

interrupt()
{
	rollback_patch $1
	echo $"Interrupted by user; patch $patch was not applied."
	exit 1
}

apply_patch()
{
	local patch=$1
	local patch_file=$(patch_file_name $patch)

	if ! [ -s $patch_file ]
	then
		echo $"Patch file $patch_file appears to be empty"
		return 0
	fi
	
	if [ "x${patch_file:(-3)}" = "x.gz" ]
	then
		gzip -cd $patch_file \
		| @PATCH@ $(patch_args $patch) --no-backup-if-mismatch \
			-E $silent $force_apply
	elif [ "x${patch_file:(-4)}" = "x.bz2" ]
	then
		bzip2 -cd $patch_file \
		| @PATCH@ $(patch_args $patch) --no-backup-if-mismatch \
			-E $silent $force_apply
	else
		@PATCH@ $(patch_args $patch) --no-backup-if-mismatch \
			-E $silent -i $patch_file $force_apply
	fi
}

apatch()
{
	local patch=$(stripit $1)
	local pc_file=$(pc_file_name $patch)
	local file status

	trap "" SIGINT
	if ! refresh_file_list $patch
	then
		echo $"refresh_file_list failed"
		return 1
	fi

	echo $"Applying $patch"
	if ! [ -e $pc_file ]
	then
		echo $"Patch $patch appears to be empty, applied"
		add_to_db $patch
		return 0
	fi
	
	status=$?
	if [ $status -eq 2 ]
	then
		[ -z "$opt_quiet" ] && echo $"Recreated file list for $patch"
	elif [ $status -ne 0 ]
	then
		return 1
	fi

	if ! @LIB@/backup-files $silent_unless_verbose \
				-f $pc_file -B .pc/$patch/
	then
		exit 1
	fi
	
	trap "interrupt $patch" SIGINT

	apply_patch $patch
	status=$?

	trap "" SIGINT

	# Remember date/time of applying so that pop can
	# avoid reverse applying the patch in the usual cases.
	touch $pc_file

	if [ $status -eq 0 -o -n "$opt_force" ]
	then
		add_to_db $patch
		if [ $status -eq 0 ]
		then
			rm -f $pc_file~refresh
		else
			touch $pc_file~refresh
			echo $"Applied $patch (forced; needs refresh)"
		fi
	else
		rollback_patch $patch
		echo $"Patch $patch does not apply (enforce with -f)"
		status=1
	fi
	trap - SIGINT
	return $status
}

options=`getopt -o fqvh --long leave-rejects,interactive -- "$@"`

if [ $? -ne 0 ]
then
	usage
fi

eval set -- "$options"

while true
do
	case "$1" in
	-f)
		opt_force=1
		shift ;;
	-q)
		opt_quiet=1
		shift ;;
	-v)
		opt_verbose=1
		shift ;;
	--leave-rejects)
		opt_leave_rejects=1
		shift ;;
	--interactive)
		opt_interactive=1
		shift ;;
	-h)
		usage -h ;;
	--)
		shift
		break ;;
	esac
done

if [ $# -ne 1 ]
then
	usage
fi

[ -n "$opt_quiet" ] && silent=-s
[ -z "$opt_verbose" ] && silent_unless_verbose=-s
[ -z "$opt_interactive" ] && force_apply=-f

patch=$(stripit $1)

top=$(top_patch)
if [ -n "$top" -a -e $(pc_file_name $top)~refresh ]
then
	echo $"The topmost patch $top needs to be refreshed first."
	exit 1
fi

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