# -*-eselect-*-  vim: ft=eselect
# Copyright 2009-2022 Gentoo Authors
# Distributed under the terms of the GNU GPL version 2 or later

DESCRIPTION="Manage {,/usr}/bin/awk implementations"
MAINTAINER="junghans@gentoo.org"
VERSION="0.3"

## Functions ##

# find a list of awk symlink targets, best first
find_targets() {
	local t
	for t in \
			"${EROOT}/usr/bin/gawk" \
			"${EROOT}/usr/bin/mawk" \
			"${EROOT}/usr/bin/nawk" \
			"${EROOT}/bin/busybox" \
		; do
		if [[ -x ${t} ]]; then
			echo ${t##*/}
		fi
	done
}

# set the awk symlink
set_symlinks() {
	local target=${1} targets extension dir i rel_target

	[[ ! -L ${EROOT}/bin/awk && -e ${EROOT}/bin/awk ]] && \
		die -q "/bin/awk is not a symlink!"

	[[ ! -L ${EROOT}/usr/bin/awk && -e ${EROOT}/usr/bin/awk ]] && \
		die -q "/usr/bin/awk is not a symlink!"

	if is_number "${target}" && [[ ${target} -ge 1 ]]; then
		targets=( $(find_targets) )
		target=${targets[target-1]}
	fi
	
	if [[ ${target} == "busybox" ]]; then
		dir="${EROOT}/bin"
	else
		dir="${EROOT}/usr/bin"
	fi

	[[ -x ${dir}/${target} ]] || die -q "Target '${target}' doesn't appear to be valid!"
	
	for i in /bin /usr/bin; do
		rel_target=$(relative_name "${dir}/${target}" "${EROOT}${i}")
		ln -sf "${rel_target}" "${EROOT}${i}/awk" || \
			die -q "Couldn't set ${target} ${i}/awk symlink"
	done

	rm -f "${EROOT}"/usr/share/man/man1/awk.1{,.bz2,.gz,.lzma,.xz,.lz,.zst}
	for x in .1{,.gz,.bz2,.lzma,.xz,.lz,.zst}; do
		if [[ -e ${EROOT}/usr/share/man/man1/${target}${x} ]] ; then
			extension="${x}"
			break
		fi
	done

	#busybox has no man page
	if [[ -z "${extension}" ]] ; then
		echo "Couldn't find a man page for ${target}; skipping." 1>&2
		return 1
	fi

	if ! ln -s "${target}${extension}" "${EROOT}/usr/share/man/man1/awk${extension}"; then
		echo "Couldn't create man page symlink for ${target}; skipping." 1>&2
                return 1
        fi
}

### show action ###

describe_show() {
	echo "Show the current awk implementation"
}

do_show() {
	[[ -z ${@} ]] || die -q "Too many parameters"

	write_list_start "Current awk implementation:"
	if [[ -L ${EROOT}/usr/bin/awk ]]; then
		write_kv_list_entry "$(basename $(readlink ${ROOT}/usr/bin/awk))" ""
	elif [[ -e ${EROOT}/usr/bin/awk ]]; then
		write_kv_list_entry "(not a symlink)" ""
	else
		write_kv_list_entry "(unset)" ""
	fi
}

### list action ###

describe_list() {
	echo "List available awk implementations"
}

do_list() {
	[[ -z ${@} ]] || die -q "Too many parameters"

	local i targets

	targets=( $(find_targets) )
	for (( i = 0; i < ${#targets[@]}; i++ )) ; do
		[[ ${targets[${i}]} == $(basename $(readlink "${EROOT}"/usr/bin/awk)) ]] && \
			targets[${i}]=$(highlight_marker "${targets[${i}]}")
	done
	write_list_start "Available awk implementations:"
	write_numbered_list -m '(none found)' "${targets[@]}"
}

### set action ###

describe_set() {
	echo "Set a new awk implementation"
}

describe_set_options() {
	echo "target : Target name or number (from 'list' action)"
}

describe_set_parameters() {
	echo "<target>"
}

do_set() {
	if [[ -z ${1} ]]; then
		die -q "Not enough parameters"
	elif [[ -n ${2} ]]; then
		die -q "Too many parameters"
	else
		set_symlinks "${1}"
	fi
}

### update action ###

describe_update() {
	echo "Automatically update the awk implementation"
}

describe_update_options() {
	echo "ifunset : Do not override existing implementation"
}

do_update() {
	[[ -z ${1} || ( -z ${2} && ( ${1} == ifunset || ${1} == '--if-unset' ) ) ]] || \
		die -q "Usage error"

	[[ ( ${1} == ifunset || ${1} == '--if-unset' ) \
			&& -L ${EROOT}/usr/bin/awk && -x ${EROOT}/usr/bin/awk ]] && \
		return

	set_symlinks 1
}

# vim: set syn=sh :