# -*-eselect-*-  vim: ft=eselect
# Copyright 1999-2011 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
# $Id: $

# This is a portage-only module.
inherit package-manager

DESCRIPTION="Manage the /etc/make.profile symlink"
MAINTAINER="eselect@gentoo.org"
SVN_DATE='$Date: 2010-07-27 16:25:05 +0200 (Tue, 27 Jul 2010) $'
VERSION=$(svn_date_to_version "${SVN_DATE}")

# get a list of valid profiles
find_targets() {
	local arch=$( arch ) repo repos=$( portageq get_repos "/" ) repo_path
	[[ -z ${arch} ]] && [[ -z ${repos} ]] && return 1
	for repo in ${repos}; do
		repo_path=$( portageq get_repo_path "/" ${repo} )
		[[ -r ${ROOT}/${repo_path}/profiles/profiles.desc ]] && \
		for p in $(sed -n -e \
		"s|^${arch}[[:space:]]\+\([^[:space:]]\+\).*$|${repo}:\1|p" "${ROOT}${repo_path}/profiles/profiles.desc" );
		do echo ${p}; done
	done
}

# remove make.profile symlink
remove_symlink() {
	rm "${EROOT}/etc/make.profile"
}

# set the make.profile symlink
set_symlink() {
	local portdir=$(portageq portdir) target=${1} targets arch=$( arch ) parch repo repo_path
	targets=( $(find_targets ) )
	[[ -z ${targets} ]] && die -q "Failed to get a list of valid profiles"
	if is_number "${target}" ; then target=${targets[target - 1]}; fi
	repo=${target%:*}
	repo_path=$( portageq get_repo_path / ${repo} )
	target=${target#*:}
	if [[ -n ${target} && -d ${ROOT}${repo_path}/profiles/${target} ]]
	then
		# if the profile was explicitly specified (rather than a number)
		# double check and make sure it's valid
		[[ -z ${arch} && ${2} != "--force" ]] && return 1
		# do a reverse lookup and find the arch associated with ${target}
		parch=$(sed -n -e \
			"s|^\([[:alnum:]]\+\)[[:space:]].*${target}[[:space:]].*$|\1|p" \
			"${ROOT}${repo_path}/profiles/profiles.desc")
		if [[ ${arch} != ${parch} && ${2} != "--force" ]] ; then
			die -q "${target} is not a valid profile for ${arch}"
		fi
	fi
	if [[ -z ${target} ]] ; then
		die -q "Target \"${1}\" doesn't appear to be valid!"
	elif [[ -d ${ROOT}${repo_path}/profiles/${target} ]] ; then
		# we must call remove_symlink() here instead of calling
		# it from do_set(), since if the link is removed, we
		# cannot determine $ARCH in find_targets()
		if [[ -L ${EROOT}/etc/make.profile ]] ; then
			remove_symlink || die -q "Couldn't remove current make.profile symlink"
		fi
		ln -s "$(relative_name "${EROOT}${repo_path}/profiles/${target}" "${EROOT}/etc")" "${EROOT}/etc/make.profile"
		# check if the resulting symlink is sane
		if [[ $(canonicalise "${EROOT}/etc/make.profile") \
			!= "$(canonicalise "${EROOT}")"/* ]]; then
			write_warning_msg "Strange path. Check ${EROOT}/etc/make.profile symlink"
		fi
	else
		die -q "Target \"${1}\" doesn't appear to be valid at all!"
	fi
}

### show action ###

describe_show() {
	echo "Show the current make.profile symlink"
}

do_show() {
	write_list_start "Current make.profile symlink:"
	if [[ -L ${EROOT}/etc/make.profile ]] ; then
		local link=$(canonicalise "${EROOT}/etc/make.profile")
		local portdir=$(portageq portdir)
		local profiledir=$(canonicalise "${ROOT}${portdir}/profiles")
		link=${link##${profiledir}/}
		write_kv_list_entry "${link}" ""
	else
		write_kv_list_entry "(unset)" ""
	fi
}

### list action ###

describe_list() {
	echo "List available profile symlink targets"
}

do_list() {
	local portdir profiledir active targets
	targets=( $(find_targets) )
	[[ -z ${targets} ]] && die -q "Failed to get a list of valid profiles"
	active=$(canonicalise "${EROOT}/etc/make.profile")
	if [[ -n ${targets[@]} ]] ; then
		local i
		for (( i = 0 ; i < ${#targets[@]} ; i = i + 1 )) ; do
			[[ ${targets[i]} == ${active} ]] \
				&& targets[i]=$(highlight_marker "${targets[i]}")
		done
	fi
	write_list_start "Available profile symlink targets:"
	write_numbered_list "${targets[@]}"
}

### set action ###

describe_set() {
	echo "Set a new profile symlink target"
}

describe_set_parameters() {
	echo "<target>"
}

describe_set_options() {
	echo "target : Target name or number (from 'list' action)"
	echo "--force : Forcibly set the symlink"
}

do_set() {
	local force
	if [[ ${1} == "--force" ]] ; then
		force=${1}
		shift
	fi
	if [[ -z ${1} ]] ; then
		die -q "You didn't tell me what to set the symlink to"
	elif [[ -e ${EROOT}/etc/make.profile ]] &&
		[[ ! -L ${EROOT}/etc/make.profile ]] ; then
		die -q "${EROOT}/etc/make.profile isn't a symlink"
	else
		set_symlink "${1}" ${force} || die -q "Couldn't set a new symlink"
	fi
}