# Copyright 1999-2023 Gentoo Authors
# Distributed under the terms of the GNU General Public License v2

# @ECLASS: db.eclass
# @MAINTAINER:
# base-system@gentoo.org
# @SUPPORTED_EAPIS: 7 8
# @BLURB: Internal eclass used by sys-libs/db ebuilds

case ${EAPI} in
	7|8) ;;
	*) die "${ECLASS}: EAPI ${EAPI:-0} not supported" ;;
esac

if [[ -z ${_DB_ECLASS} ]]; then
_DB_ECLASS=1

inherit multilib multiprocessing

IUSE="doc tcl test examples"
REQUIRED_USE="test? ( tcl )"

BDEPEND="test? ( >=dev-lang/tcl-8.4 )"

db_fix_so() {
	local LIB="${EROOT}"/usr/$(get_libdir)

	cd "${LIB}" || die

	# first clean up old symlinks
	local soext=$(get_libname)
	find "${LIB}" -maxdepth 1 -type l -name 'libdb[1._-]*'"${soext#.}" -delete || die
	soext=$(get_libname "[23]")
	find "${LIB}" -maxdepth 1 -type l -name 'libdb[1._-]*'"${soext#.}" -delete || die
	find "${LIB}" -maxdepth 1 -type l -name 'libdb[1._-]*a' -delete || die

	# now rebuild all the correct ones
	local ext
	for ext in so dylib a; do
		local name
		for name in libdb libdb_{cxx,tcl,java,sql,stl}; do
			target="$(find . -maxdepth 1 -type f -name "${name}-*.${ext}" | sort -V | tail -n 1)"
			[[ -n ${target} ]] && ln -sf ${target//.\//} ${name}.${ext}
		done
	done

	# do the same for headers now
	# but since there are only two of them, just overwrite them
	cd "${EROOT}"/usr/include || die
	target="$(find . -maxdepth 1 -type d -name 'db[0-9]*' | sort -V | cut -d/ -f2- | tail -n1)"
	if [[ -n ${target} && -e ${target}/db.h ]] && ( ! [[ -e db.h ]] || [[ -h db.h ]] ); then
		einfo "Creating db.h symlinks to ${target}"
		ln -sf "${target}"/db.h .
		ln -sf "${target}"/db_185.h .
	elif [[ ! -e ${target}/db.h ]]; then
		if [[ -n ${target} ]]; then
			ewarn "Could not find ${target}/db.h"
		elif [[ -h db.h ]]; then
			einfo "Apparently you just removed the last instance of $PN. Removing the symlinks"
			rm -f db.h db_185.h || die
		fi
	fi
}

db_src_install_doc() {
	# not everybody wants this wad of documentation as it is primarily API docs
	if use doc; then
		dodir /usr/share/doc/${PF}/html
		mv "${ED}"/usr/docs/* "${ED}"/usr/share/doc/${PF}/html/ || die
		rm -rf "${ED}"/usr/docs || die
	else
		rm -rf "${ED}"/usr/docs || die
	fi

	db_src_install_examples
}

db_src_install_examples() {
	if use examples; then
		local langs=( c cxx stl )
		in_iuse java && use java && langs+=( java )
		local i
		for i in ${langs[@]}; do
			local destdir="/usr/share/doc/${PF}/"
			local src="${S}/../examples_${i}/"
			if [[ -f ${src} ]]; then
				dodir "${destdir}"
				cp -ra "${src}" "${ED}${destdir}/" || die
			fi
		done
	fi
}

db_src_install_usrbinslot() {
	# slot all program names to avoid overwriting
	local fname

	for fname in "${ED}"/usr/bin/db*; do
		local dn="$(dirname "${fname}")"
		local bn="$(basename "${fname}")"
		bn="${bn/db/db${SLOT}}"
		mv "${fname}" "${dn}/${bn}" || \
			die "Failed to rename ${fname} to ${dn}/${bn}"
	done
}

db_src_install_headerslot() {
	# install all headers in a slotted location
	dodir /usr/include/db${SLOT}
	mv "${ED}"/usr/include/*.h "${ED}"/usr/include/db${SLOT}/ || die
}

db_src_install_usrlibcleanup() {
	local LIB="${ED}"/usr/$(get_libdir)
	# Clean out the symlinks so that they will not be recorded in the
	# contents (bug #60732)

	if [[ -z ${ED} ]]; then
		die "Calling clean_links while \${ED} not defined"
	fi

	if [[ -e "${LIB}"/libdb.a && ! -e "${LIB}"/libdb-${SLOT}.a ]]; then
		einfo "Moving libdb.a to a versioned name"
		mv "${LIB}"/libdb.a "${LIB}"/libdb-${SLOT}.a || die
	fi

	if [[ -e "${LIB}"/libdb_cxx.a && ! -e "${LIB}"/libdb_cxx-${SLOT}.a ]]; then
		einfo "Moving libdb_cxx.a to a versioned name"
		mv "${LIB}"/libdb_cxx.a "${LIB}"/libdb_cxx-${SLOT}.a || die
	fi

	local soext=$(get_libname)
	find "${LIB}" -maxdepth 1 -type l -name 'libdb[1._-]*'"${soext#.}" -delete || die
	soext=$(get_libname "[23]")
	find "${LIB}" -maxdepth 1 -type l -name 'libdb[1._-]*'"${soext#.}" -delete || die
	einfo "removing unversioned static archives"
	find "${LIB}" -maxdepth 1 -type l -name 'libdb[1._-]*a' -delete || die

	rm -f \
		"${ED}"/usr/include/{db,db_185}.h \
		"${LIB}"/libdb{,_{cxx,sql,stl,java,tcl}}.a || die
}

db_src_test() {
	if [[ ${UID} -eq 0 ]]; then
		M="You must run the testsuite as non-root, skipping"
		ewarn "${M}"
		elog "${M}"
		return 0
	fi

	if use tcl; then
		einfo "Running sys-libs/db testsuite"
		ewarn "This can take 6+ hours on modern machines"
		# Fix stuff that fails with relative paths, and upstream moving files
		# around...
		local t test_parallel
		for t in \
			"${S}"/test/parallel.tcl \
			"${S}"/../test/parallel.tcl \
			"${S}"/test/tcl/parallel.tcl \
			"${S}"/../test/tcl/parallel.tcl \
			; do
			[[ -f ${t} ]] && test_parallel="${t}" && break
		done

		sed -ri \
			-e '/regsub .test_path ./s,(regsub),#\1,g' \
			-e '/regsub .src_root ./s,(regsub),#\1,g' \
			-e '/regsub .tcl_utils ./s,(regsub),#\1,g' \
			"${test_parallel}" || die
		cd "${S}" || die
		for t in \
			../test/test.tcl \
			../test/tcl/test.tcl \
			; do
			[[ -f ${t} ]] && testbase="${t}" && break
		done

		cat > testrunner.tcl <<-EOF || die
			source ${t}
			run_parallel $(makeopts_jobs) run_std
		EOF

		tclsh testrunner.tcl || die
		grep -Eqs '^FAIL' ALL.OUT* && die "Some tests failed, please see ${S}/ALL.OUT*"
	fi
}

fi

EXPORT_FUNCTIONS src_test