db.eclass

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

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

inherit eutils multilib multiprocessing

IUSE="doc test examples"

EXPORT_FUNCTIONS src_test

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

RDEPEND=""

db_fix_so() {
	has "${EAPI:-0}" 0 1 2 && ! use prefix && EROOT="${ROOT}"
	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
		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;

	# db[23] gets some extra-special stuff
	if [[ -f libdb1$(get_libname 2) ]]; then
		ln -sf libdb1$(get_libname 2) libdb$(get_libname 2)
		ln -sf libdb1$(get_libname 2) libdb1$(get_libname)
		ln -sf libdb1$(get_libname 2) libdb-1$(get_libname)
	fi
	# what do we do if we ever get 3.3 ?
	local i
	for i in libdb libdb_{cxx,tcl,java,sql,stl}; do
		if [[ -f $i-3.2$(get_libname) ]]; then
			ln -sf $i-3.2$(get_libname) $i-3$(get_libname)
			ln -sf $i-3.2$(get_libname) $i$(get_libname 3)
		fi
	done

	# do the same for headers now
	# but since there are only two of them, just overwrite them
	cd "${EROOT}"/usr/include
	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
		fi
	fi
}

db_src_install_doc() {
	has "${EAPI:-0}" 0 1 2 && ! use prefix && ED="${D}"
	# 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
	else
		rm -rf "${ED}"/usr/docs
	fi

	db_src_install_examples
}

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

db_src_install_usrbinslot() {
	has "${EAPI:-0}" 0 1 2 && ! use prefix && ED="${D}"
	# slot all program names to avoid overwriting
	local fname
	for fname in "${ED}"/usr/bin/db*
	do
		dn="$(dirname "${fname}")"
		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() {
	has "${EAPI:-0}" 0 1 2 && ! use prefix && ED="${D}"
	# 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() {
	has "${EAPI:-0}" 0 1 2 && ! use prefix && ED="${D}"
	LIB="${ED}/usr/$(get_libdir)"
	# Clean out the symlinks so that they will not be recorded in the
	# contents (bug #60732)

	if [[ "${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
}

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 test_parallel='' t
		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}"
		cd "${S}"
		for t in \
			../test/test.tcl \
			../test/tcl/test.tcl \
			; do
			[[ -f "${t}" ]] && testbase="${t}" && break
		done
		echo "source ${t}" > testrunner.tcl
		echo "run_parallel $(makeopts_jobs) run_std" >> testrunner.tcl

		tclsh testrunner.tcl
		grep -Eqs '^FAIL' ALL.OUT* && die "Some tests failed, please see ${S}/ALL.OUT*"
	else
		eerror "You must have USE=tcl to run the sys-libs/db testsuite."
	fi
}