# pro-archman
# lib/include.sh
# Functions for including changes
#
# Copyright (C) 2013  Patrick "P. J." McDermott
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

[ "x${_INCLUDE_SM+set}" = 'xset' ] && return 0
_INCLUDE_SM=1

use control
use db
use locale
use output

_INCLUDE_CHANGES_FIELDS='Format Source Binary Version Architecture Platform
Distribution Maintainer Changed-By Date Description Changes Files'

_include_format=
_include_source=
_include_version=
_include_distribution=
_include_files=

include_changes()
{
	local changes="${1}"
	local chan=
	local dist=
	local source=
	local srcver=
	local script=
	local bvaps=
	local binver=
	local arch=
	local plat=
	local old_ver=
	local files=
	local size=
	local sect=
	local file=
	local pkg=
	local pool_file=

	parse_control "${changes}" _include_changes_field \
		"${_INCLUDE_CHANGES_FIELDS}" ''
	if [ "x${_include_format}" != 'x1.0' ]; then
		error 2 "$(get_msg 'include_unknown_changes_format')" \
			"${changes}" "${_include_format}"
	fi
	chan="${conf_incoming_channel}"
	dist="${_include_distribution}"
	source="${_include_source}"
	srcver="${_include_version}"

	info "$(get_msg 'include_including')" "${source}" "${srcver}" \
		"${chan}" "${dist}"

	# Make sure the (binver, arch, plat) tuples ("bvaps" for short) are new.
	# Remove old binary packages of the same arch and plat from the suite.
	# Set the new binary version of packages of the arch and plat in the
	# suite.
	# Set the reference count for the (source, binver, arch, plat) tuple to
	# 1.
	script='s/[0-9][0-9]* [^ ][^ ]* [^_]*_\([^_]*\)_\([^_]*\)_\([^_]*\)'
	script="${script}"'\.opk/\1 \2 \3/p'
	bvaps="$(printf '%s\n' "${_include_files}" | sed -n "${script}" | \
		LC_COLLATE='C' sort | uniq)"
	while read -r binver arch plat; do
		old_ver="$(db_get_binver "${chan}" "${dist}" \
			"${arch}" "${plat}" "${source}")"
		if [ "x${old_ver}" != 'x' ]; then
			if [ "x${old_ver}" = "x${binver}" ]; then
				error 2 "$(get_msg 'include_bvap_exists')" \
					"${binver}" "${arch}" "${plat}"
			fi
			remove_packages_from_suite_archplat "${chan}" \
				"${dist}" "${arch}" "${plat}" "${source}"
		fi
		db_set_binver "${chan}" "${dist}" "${arch}" "${plat}" \
			"${source}" "${binver}"
		db_inc_references "${arch}" "${plat}" "${source}" "${binver}" \
			>/dev/null
	done <<-EOF
		${bvaps}
		EOF

	# Remove the source package from the suite if the version is new.
	# Update the source package version in the suite.
	old_ver="$(db_get_srcver "${chan}" "${dist}" "${source}")"
	if [ "x${old_ver}" = 'x' ]; then
		db_set_srcver "${chan}" "${dist}" "${source}" "${srcver}"
	else
		if [ "x${old_ver}" != "x${_include_version}" ]; then
			remove_source_from_suite "${chan}" "${dist}" "${source}"
			db_set_srcver "${chan}" "${dist}" \
				"${source}" "${srcver}"
		fi
	fi

	# Include each binary package.
	files=''
	while read -r size sect file; do
		if [ "x${file##[ 	]}" = 'x' ]; then
			continue
		fi
		IFS='_' read -r pkg binver arch plat <<-EOF
			${file%.opk}
			EOF
		db_add_package "${arch}" "${plat}" "${source}" "${binver}" \
			"${size}" "${sect}" "${pkg}"
		pool_file="pool/$(hash_name "${source}")/${source}"
		pool_file="${pool_file}/${pkg}_${binver}_${arch}_${plat}.opk"
		file="$(dirname "${changes}")/${file}"
		files="${files} ${file}"
		cp -p "${file}" "${base_dir}/${pool_file}"
		feed_add_package "${chan}" "${dist}" "${arch}" "${plat}" \
			"${sect}" "${pkg}" "${size}" "${pool_file}"
	done <<-EOF
		${_include_files}
		EOF

	printf '%s\n' ${files}
	return 0
}

_include_changes_field()
{
	local name="${1}"
	local value="${2}"

	case "${name}" in
		'Format')
			_include_format="${value}"
			;;
		'Source')
			_include_source="${value}"
			;;
		'Version')
			_include_version="${value}"
			;;
		'Distribution')
			_include_distribution="${value}"
			;;
		'Files')
			_include_files="${value}"
			;;
	esac
}