etc/README: updated.

groups/231.native_packages_etc.group:apr_util:${PKG_MAKEFLAGS_BUILD}: build w/ -j1.
subr/{build_{args,init},ex_rtl{,_complex}}.subr: minor cleanup.
subr/{build_args,ex_rtl}.subr: purge leading whitespaces.

4 files changed, 297 insertions, 219 deletions

diff --git a/subr/build_args.subr b/subr/build_args.subr
deleted file mode 100644
index c41a16f3..00000000
--- a/subr/build_args.subr
+++ /dev/null
@@ -1,53 +0,0 @@
-#
-# set -o noglob is assumed.
-#
-
-build_args() {
-	local _opt="" _shiftfl=0;
-	while [ "${#}" -gt 0 ]; do
-		case "${1}" in
-		--as-needed)	ARG_AS_NEEDED=1; _shiftfl=1; ;;
-		--debug-minipx)	ARG_DEBUG_MINIPIX=1; _shiftfl=1; ;;
-		-v*)		_opt="${1#-}"; while [ -n "${_opt}" ]; do
-					: $((ARG_VERBOSE+=1)); _opt="${_opt#?}";
-				done; _shiftfl=1; ;;
-		*)		_shiftfl=0; ;;
-		esac;
-		if [ "${_shiftfl}" -gt 0 ]; then
-			shift "${_shiftfl}"; continue;
-		elif getopts a:b:C:D:FhPr:R _opt; then
-			case "${_opt}" in
-			a)	ARCH="${OPTARG}"; ;;
-			b)	BUILD="${OPTARG}"; ;;	
-			C)	ARG_CLEAN_BUILDS="${OPTARG}"; ;;
-			D)	ARG_DIST="${OPTARG}"; ;;
-			F)	ARG_FETCH_FORCE=1; ;;
-			h)	cat etc/build.usage; exit 0; ;;
-			P)	ARG_PARALLEL="${OPTARG:-auto}"; ;;
-			r)	ARG_RESTART="${OPTARG}"; ;;
-			R)	ARG_RELAXED=1; ;;
-			*)	cat etc/build.usage; exit 1; ;;
-			esac; shift $((${OPTIND}-1));
-		else
-			break;
-		fi;
-	done;
-	if [ -n "${ARG_RESTART}" ]\
-	&& [ "${ARG_RESTART#\*}" != "${ARG_RESTART}" ]; then
-		ARG_RESTART="${ARG_RESTART#\*}"; ARG_RESTART_RECURSIVE=1;
-	fi;
-	case "${ARG_RESTART}" in
-	ALL)	ARG_RESTART_AT=ALL; ;;
-	LAST)	ARG_RESTART_AT=""; ;;
-	"")	;;
-	*:*)	ARG_RESTART_AT="${ARG_RESTART#*:}"; ARG_RESTART="${ARG_RESTART%:*}"; ;;
-	*)	ARG_RESTART="$(echo "${ARG_RESTART}" | sed "s/,/ /g")"; ARG_RESTART_AT=ALL; ;;
-	esac;
-	while [ ${#} -gt 0 ]; do
-	case "${1}" in
-	*=*)	ex_rtl_set_var_unsafe "${1%%=*}" "${1#*=}"; ;;
-	*)	BUILD_GROUPS="${BUILD_GROUPS:+${BUILD_GROUPS} }${1}"; ;;
-	esac; shift; done;
-};
-
-# vim:filetype=sh
diff --git a/subr/build_init.subr b/subr/build_init.subr
index ee70bc2f..0a4e9cfc 100644
--- a/subr/build_init.subr
+++ b/subr/build_init.subr
@@ -1,4 +1,4 @@
-build_ast() {
+buildp_ast() {
 	local _param="${1}" _pids_killed="";
 	rm -f "${DEFAULT_BUILD_STATUS_IN_PROGRESS_FNAME}";
 	case "${_param}" in
@@ -10,32 +10,162 @@ build_ast() {
 	fi;
 };
 
-build_fini() {
-	: $((BUILD_TIMES_SECS=$(ex_rtl_date %s)-${BUILD_TIMES_SECS}));
-	: $((BUILD_TIMES_HOURS=${BUILD_TIMES_SECS}/3600));
-	: $((BUILD_TIMES_MINUTES=(${BUILD_TIMES_SECS}%3600)/60));
-	: $((BUILD_TIMES_SECS=(${BUILD_TIMES_SECS}%3600)%60));
-	if [ -f "${DEFAULT_BUILD_STATUS_IN_PROGRESS_FNAME}" ]; then
-		ex_rtl_fileop rm ${DEFAULT_BUILD_STATUS_IN_PROGRESS_FNAME};
+buildp_init_args() {
+	_status="";
+	if [ "${ARG_AS_NEEDED:-0}" -eq 1 ]\
+	&& [ -e "${PREFIX}/build.gitref" ]\
+	&& [ "$(git rev-parse HEAD)" = "$(cat "${PREFIX}/build.gitref")" ]; then
+		_status="Git repository has not changed since last build and --as-needed was specified.";
+	fi;
+	if [ -n "${ARG_RESTART}" ]\
+	&& [ "${ARG_RESTART#\*}" != "${ARG_RESTART}" ]; then
+		ARG_RESTART="${ARG_RESTART#\*}"; ARG_RESTART_RECURSIVE=1;
 	fi;
+	case "${ARG_RESTART}" in
+	ALL)	ARG_RESTART_AT=ALL; ;;
+	LAST)	ARG_RESTART_AT=""; ;;
+	"")	;;
+	*:*)	ARG_RESTART_AT="${ARG_RESTART#*:}"; ARG_RESTART="${ARG_RESTART%:*}"; ;;
+	*)	ARG_RESTART="$(echo "${ARG_RESTART}" | sed "s/,/ /g")"; ARG_RESTART_AT=ALL; ;;
+	esac;
+	if [ "${ARG_RESTART}" = "LAST" ]; then
+		if [ -n "${DEFAULT_BUILD_LAST_FAILED_PKG_FNAME}" ]\
+		&& [ -e "${DEFAULT_BUILD_LAST_FAILED_PKG_FNAME}" ]; then
+			_last_pkg="$(cat "${DEFAULT_BUILD_LAST_FAILED_PKG_FNAME}")";
+			ex_rtl_fileop rm "${DEFAULT_BUILD_LAST_FAILED_PKG_FNAME}";
+			ex_rtl_state_clear "${BUILD_WORKDIR}" "${_last_pkg}";
+		fi;
+	fi;
+	ex_rtl_log_set_vnfo_lvl "${ARG_VERBOSE:-0}";
+	BUILD_IS_PARENT=1;
+	BUILD_DATE_START="$(ex_rtl_date %Y-%m-%d-%H-%M-%S)";
+	BUILD_NFINI="${BUILD_NSKIP:=${BUILD_NFAIL:=${BUILD_NBUILT:=0}}}";
+	BUILD_PKGS_FAILED="";
+	BUILD_TIMES_SECS="$(ex_rtl_date %s)";
+	if [ "${ARG_FETCH_FORCE}" = "ipv4" ]; then
+		DEFAULT_GIT_ARGS="-4${DEFAULT_GIT_ARGS:+ ${DEFAULT_GIT_ARGS}}";
+		DEFAULT_WGET_ARGS="-4${DEFAULT_WGET_ARGS:+ ${DEFAULT_WGET_ARGS}}";
+	elif [ "${ARG_FETCH_FORCE}" = "ipv6" ]; then
+		DEFAULT_GIT_ARGS="-6${DEFAULT_GIT_ARGS:+ ${DEFAULT_GIT_ARGS}}";
+		DEFAULT_WGET_ARGS="-6${DEFAULT_WGET_ARGS:+ ${DEFAULT_WGET_ARGS}}";
+	fi;
+	return 0;
 };
 
-build_init() {
-	local __="" _env_vars="" _env_vars_except="" _env_var="" _log_last_fname="" _log_last_ts="" _vname="" _vname_val="";
-	umask 022;
-	if ! awk -V 2>/dev/null | grep -q "^GNU Awk "; then
-		ex_rtl_log_msg failexit "Error: awk(1) in \$PATH must be GNU Awk.";
-	fi;
-	if ! which pgrep >/dev/null 2>&1; then
-		ex_rtl_log_msg failexit "Error: missing pgrep.";
+buildp_init_clean_prefix() {
+	if ex_rtl_lmatch "${ARG_CLEAN_BUILDS}" , prefix; then
+		ex_rtl_log_msg info "-C prefix specified, cleaning prefix...";
+		for _pname in ${DEFAULT_CLEAR_PREFIX_PATHS}; do
+			ex_rtl_fileop rm "${PREFIX}/${_pname}";
+		done;
 	fi;
-	if [ -z "${DEFAULT_BUILD_CPUS}" ]\
-	&& [ -e /proc/cpuinfo ]; then
-		DEFAULT_BUILD_CPUS=$(awk '/^processor/{cpus++} END{print cpus}' /proc/cpuinfo);
+	return 0;
+};
+
+buildp_init_env() {
+	local _rc=0 _vname="" _vname_val=""; _status="";
+	if [ -z "${DEFAULT_BUILD_CPUS}" ]; then
+		if [ -e /proc/cpuinfo ]; then
+			DEFAULT_BUILD_CPUS="$(awk '/^processor/{cpus++} END{print cpus}' /proc/cpuinfo)";
+		else
+			DEFAULT_BUILD_CPUS=1;
+		fi;
 	fi;
 	if [ "${ARG_PARALLEL}" = auto ]; then
 		ARG_PARALLEL="${DEFAULT_BUILD_CPUS}";
 	fi;
+	ex_rtl_clean_env "${DEFAULT_CLEAR_ENV_VARS_EXCEPT}";
+	if ex_rtl_check_path_vars "${DEFAULT_CHECK_PATH_VARS}"; then
+		export PATH="${PREFIX}/bin${PATH:+:${PATH}}";
+	else
+		: $((_rc+=(6-1)));
+	fi;
+	return "${_rc}";
+};
+
+buildp_init_exec() {
+	_status=""
+	trap "buildp_ast abort" HUP INT TERM USR1 USR2; trap "buildp_ast exit" EXIT; umask 022;
+	return 0;
+};
+
+buildp_init_files() {
+	local _log_last_fname="" _log_last_ts="" _rc=0; _status=""
+	ex_rtl_fileop mkdir "${BUILD_DLCACHEDIR}" "${BUILD_WORKDIR}";
+	if ex_rtl_lmatch "${ARG_DIST}" , rpm; then
+		ex_rtl_fileop mkdir "${PREFIX_RPM}";
+	fi;
+	if [ -e "${DEFAULT_BUILD_STATUS_IN_PROGRESS_FNAME}" ]; then
+		_rc=8; _status="Error: another build targeting this architecture and build type is currently in progress.";
+	else
+		touch "${DEFAULT_BUILD_STATUS_IN_PROGRESS_FNAME}";
+		if [ -e "${DEFAULT_BUILD_LOG_FNAME}" ]; then
+			_log_last_ts="$(stat -c %Y "${DEFAULT_BUILD_LOG_FNAME}")";
+			_log_last_ts="$(awk 'BEGIN {printf(strftime("%Y-%m-%d-%H-%M-%S", '"${_log_last_ts}"'))}')";
+			_log_last_fname="${DEFAULT_BUILD_LOG_FNAME}.${_log_last_ts}";
+			ex_rtl_fileop mv "${DEFAULT_BUILD_LOG_FNAME}" "${_log_last_fname}";
+			ex_rtl_fileop ln_symbolic "${_log_last_fname}" "${DEFAULT_BUILD_LOG_LAST_FNAME}";
+		fi;
+		ex_rtl_fileop touch "${DEFAULT_BUILD_LOG_FNAME}";
+	fi;
+	return "${_rc}";
+};
+
+buildp_init_getopts() {
+	local _opt="" _shiftfl=0; _status="";
+	while [ "${#}" -gt 0 ]; do
+		case "${1}" in
+		--as-needed)	ARG_AS_NEEDED=1; _shiftfl=1; ;;
+		--debug-minipx)	ARG_DEBUG_MINIPIX=1; _shiftfl=1; ;;
+		-v*)		_opt="${1#-}"; while [ -n "${_opt}" ]; do
+					: $((ARG_VERBOSE+=1)); _opt="${_opt#?}";
+				done; _shiftfl=1; ;;
+		*)		_shiftfl=0; ;;
+		esac;
+		if [ "${_shiftfl}" -gt 0 ]; then
+			shift "${_shiftfl}"; continue;
+		elif getopts a:b:C:D:FhPr:R _opt; then
+			case "${_opt}" in
+			a)	ARCH="${OPTARG}"; ;;
+			b)	BUILD="${OPTARG}"; ;;
+			C)	ARG_CLEAN_BUILDS="${OPTARG}"; ;;
+			D)	ARG_DIST="${OPTARG}"; ;;
+			F)	ARG_FETCH_FORCE=1; ;;
+			h)	cat etc/build.usage; exit 0; ;;
+			P)	ARG_PARALLEL="${OPTARG:-auto}"; ;;
+			r)	ARG_RESTART="${OPTARG}"; ;;
+			R)	ARG_RELAXED=1; ;;
+			*)	cat etc/build.usage; exit 1; ;;
+			esac; shift $((${OPTIND}-1));
+		else
+			break;
+		fi;
+	done;
+	while [ ${#} -gt 0 ]; do
+	case "${1}" in
+	*=*)	ex_rtl_set_var_unsafe "${1%%=*}" "${1#*=}"; ;;
+	*)	BUILD_GROUPS="${BUILD_GROUPS:+${BUILD_GROUPS} }${1}"; ;;
+	esac; shift; done;
+	return 0;
+};
+
+buildp_init_prereqs() {
+	local _rc=0; _status="";
+	if ! which	\
+			awk bunzip2 cat chmod cp date find git grep		\
+			gunzip gzip hostname install kill ln lzip make		\
+			mkdir mkfifo mv openssl paste patch pgrep pkill		\
+			printf readlink rm sed seq shuf sort stat tail		\
+			tar test touch tr wget xz >/dev/null; then
+		_rc=1; _status="Error: missing prerequisite package(s).";
+	elif ! awk -V 2>/dev/null | grep -q "^GNU Awk "; then
+		_rc=2; _status="Error: awk(1) in \$PATH must be GNU Awk.";
+	fi;
+	return "${_rc}";
+};
+
+buildp_init_type() {
+	local _rc=0; _status="";
 	: ${ARCH:=nt64}; : ${BUILD:=debug};
 	if [ "${ARCH}" = nt32 ]; then
 		DEFAULT_TARGET="i686-nt32-midipix";
@@ -44,80 +174,62 @@ build_init() {
 	else
 		if [ "${BUILD}" != debug ]\
 		&& [ "${BUILD}" != release ]; then
-			ex_rtl_log_msg failexit "Error: unknown build type \`${BUILD}'.";
+			_rc=3; _status="Error: unknown build type \`${BUILD}'.";
 		fi;
-		ex_rtl_log_msg failexit "Error: invalid architecture \`${ARCH}'.";
+		_rc=4; _status="Error: invalid architecture \`${ARCH}'.";
 	fi;
-	for __ in ${HOME}/midipix_build.vars ${HOME}/.midipix_build.vars ../midipix_build.vars ./vars/env.vars; do
-		[ -e ${__} ] && . ${__};
+	return "${_rc}";
+};
+
+buildp_init_vars() {
+	local _fname="" _rc=0; _status="";
+	for _fname in	\
+			${HOME}/midipix_build.vars		\
+			${HOME}/.midipix_build.vars		\
+			../midipix_build.vars			\
+			./vars/env.vars; do
+		[ -e ${_fname} ] && . ${_fname};
 	done;
-	for __ in $(find ./groups -name *.group | sort); do
-		. "${__}"; __="${__##*/}"; __="${__%.group}";
-		if [ "${__#[0-9][0-9][0-9].*}" != "${__}" ]\
-		&& [ "${__#*[1-9].*}" = "${__}" ]\
-		&& [ "${__}" != "999.invariants.group" ]; then
-			GROUPS_DEFAULT="${GROUPS_DEFAULT:+${GROUPS_DEFAULT} }${__#*.}";
+	for _fname in $(find ./groups -name *.group | sort); do
+		. "${_fname}"; _fname="${_fname##*/}"; _fname="${_fname%.group}";
+		if [ "${_fname#[0-9][0-9][0-9].*}" != "${_fname}" ]\
+		&& [ "${_fname#*[1-9].*}" = "${_fname}" ]\
+		&& [ "${_fname}" != "999.invariants.group" ]; then
+			GROUPS_DEFAULT="${GROUPS_DEFAULT:+${GROUPS_DEFAULT} }${_fname#*.}";
 		fi;
 	done;
-	if [ "${ARG_AS_NEEDED:-0}" -eq 1 ]\
-	&& [ -e "${PREFIX}/build.gitref" ]\
-	&& [ "$(git rev-parse HEAD)" = "$(cat "${PREFIX}/build.gitref")" ]; then
-		ex_rtl_log_msg info "Git repository has not changed since last build and --as-needed was specified.";
-		exit 0;
+	if [ -z "${PREFIX}" ]; then
+		_rc=5; _status="Error: \${PREFIX} empty or unset.";
 	fi;
-	export PATH="${PREFIX}/bin${PATH:+:${PATH}}";
-	if [ "${ARG_FETCH_FORCE}" = "ipv4" ]; then
-		DEFAULT_GIT_ARGS="-4${DEFAULT_GIT_ARGS:+ ${DEFAULT_GIT_ARGS}}";
-		DEFAULT_WGET_ARGS="-4${DEFAULT_WGET_ARGS:+ ${DEFAULT_WGET_ARGS}}";
-	elif [ "${ARG_FETCH_FORCE}" = "ipv6" ]; then
-		DEFAULT_GIT_ARGS="-6${DEFAULT_GIT_ARGS:+ ${DEFAULT_GIT_ARGS}}";
-		DEFAULT_WGET_ARGS="-6${DEFAULT_WGET_ARGS:+ ${DEFAULT_WGET_ARGS}}";
-	fi;
-	_env_vars="$(export | sed -ne '/^export/{s/^export //;s/=.*$//p}')";
-	_env_vars_except="${DEFAULT_CLEAR_ENV_VARS_EXCEPT}";
-	for _env_var in ${_env_vars}; do
-		if [ "${_env_var#DEFAULT_}" != "${_env_var}" ]\
-		|| [ "${_env_var#PKG_}" != "${_env_var}" ]; then
-			_env_vars_except="${_env_vars_except:+${_env_vars_except} }${_env_var}";
-		fi;
-	done;
-	ex_rtl_unset_vars $(ex_rtl_lfilter "${_env_vars}" "${_env_vars_except}");
-	ex_rtl_fileop mkdir "${BUILD_DLCACHEDIR}" "${BUILD_WORKDIR}";
-	if ex_rtl_lmatch "${ARG_DIST}" , rpm; then
-		ex_rtl_fileop mkdir "${PREFIX_RPM}";
+	return "${_rc}";
+};
+
+build_fini() {
+	: $((BUILD_TIMES_SECS="$(ex_rtl_date %s)"-"${BUILD_TIMES_SECS}"));
+	: $((BUILD_TIMES_HOURS="${BUILD_TIMES_SECS}"/3600));
+	: $((BUILD_TIMES_MINUTES=("${BUILD_TIMES_SECS}"%3600)/60));
+	: $((BUILD_TIMES_SECS=("${BUILD_TIMES_SECS}"%3600)%60));
+	if [ -f "${DEFAULT_BUILD_STATUS_IN_PROGRESS_FNAME}" ]; then
+		ex_rtl_fileop rm ${DEFAULT_BUILD_STATUS_IN_PROGRESS_FNAME};
 	fi;
-	if [ -e "${DEFAULT_BUILD_STATUS_IN_PROGRESS_FNAME}" ]; then
-		ex_rtl_log_msg failexit "Error: another build targeting this architecture and build type is currently in progress.";
+};
+
+build_init() {
+	local _rc=0 _status="";
+	if ! buildp_init_exec		\
+	|| ! buildp_init_getopts "${@}"	\
+	|| ! buildp_init_prereqs	\
+	|| ! buildp_init_type		\
+	|| ! buildp_init_vars		\
+	|| ! buildp_init_env		\
+	|| ! buildp_init_args		\
+	|| ! buildp_init_files		\
+	|| ! buildp_init_clean_prefix; then
+		_rc="${?}"; ex_rtl_log_msg fail "${_status}"; exit "${_rc}";
+	elif [ -n "${_status}" ]; then
+		ex_rtl_log_msg info "${_status}"; exit 0;
 	else
-		touch "${DEFAULT_BUILD_STATUS_IN_PROGRESS_FNAME}";
-	fi;
-	if [ -e "${DEFAULT_BUILD_LOG_FNAME}" ]; then
-		_log_last_ts="$(stat -c %Y "${DEFAULT_BUILD_LOG_FNAME}")";
-		_log_last_ts="$(awk 'BEGIN {printf(strftime("%Y-%m-%d-%H-%M-%S", '"${_log_last_ts}"'))}')";
-		_log_last_fname="${DEFAULT_BUILD_LOG_FNAME}.${_log_last_ts}";
-		ex_rtl_fileop mv "${DEFAULT_BUILD_LOG_FNAME}" "${_log_last_fname}";
-		ex_rtl_fileop ln_symbolic "${_log_last_fname}" "${DEFAULT_BUILD_LOG_LAST_FNAME}";
-	fi;
-	ex_rtl_fileop touch "${DEFAULT_BUILD_LOG_FNAME}";
-	BUILD_IS_PARENT=1;
-	BUILD_DATE_START="$(ex_rtl_date %Y-%m-%d-%H-%M-%S)";
-	BUILD_NFINI="${BUILD_NSKIP:=${BUILD_NFAIL:=${BUILD_NBUILT:=0}}}";
-	BUILD_TIMES_SECS="$(ex_rtl_date %s)";
-	BUILD_PKGS_FAILED="";
-	trap "build_ast abort" HUP INT TERM USR1 USR2; trap "build_ast exit" EXIT;
-	for _vname in ${DEFAULT_CHECK_PATH_VARS}; do
-		_vname_val="$(ex_rtl_get_var_unsafe "${_vname}")";
-		if [ -z "${_vname_val}" ]; then
-			ex_rtl_log_msg failexit "Error: variable \`${_vname}' is empty or unset.";
-		elif [ "${_vname_val#* *}" != "${_vname_val}" ]; then
-			ex_rtl_log_msg failexit "Error: variable \`${_vname}' contains one or more whitespace characters.";
-		fi;
-	done;
-	if ex_rtl_lmatch "${ARG_CLEAN_BUILDS}" , prefix; then
-		ex_rtl_log_msg info "-C prefix specified, cleaning prefix...";
-		for _pname in ${DEFAULT_CLEAR_PREFIX_PATHS}; do
-			ex_rtl_fileop rm "${PREFIX}/${_pname}";
-		done;
+		return "${_rc}";
 	fi;
 };
 
diff --git a/subr/ex_rtl.subr b/subr/ex_rtl.subr
index d61eb0c7..e751759b 100644
--- a/subr/ex_rtl.subr
+++ b/subr/ex_rtl.subr
@@ -17,85 +17,4 @@ ex_rtl_toupper() { echo "${1}" | tr a-z A-Z; };
 ex_rtl_uniq() { echo "${@}" | sed 's/ /\n/g' | awk '!x[$0]++' | paste -s -d" "; };
 ex_rtl_unset_vars() { while [ ${#} -gt 0 ]; do unset "${1}"; shift; done; };
 
-ex_rtl_kill_tree() {
-	local _pid="${1}" _signal="TERM" _pid_child="" _pid_top="";
-	for _pid_top in $(pgrep -P "${_pid}"); do
-		for _pid_child in $(pgrep -P "${_pid_top}" 2>/dev/null); do
-			_pids_killed="${_pids_killed:+${_pids_killed} }${_pid_child}"; kill "-${_signal}" "${_pid_child}" 2>/dev/null;
-		done;
-		_pids_killed="${_pids_killed:+${_pids_killed} }${_pid_top}"; kill "-${_signal}" "${_pid_top}" 2>/dev/null;
-	done;
-};
-
-ex_rtl_lfilter() {
-	local _list="${1}" _filter="${2}" _lnew="" _litem="" _litem_filter="" _filterfl="";
-	if [ -z "${_filter}" ]; then
-		echo "${_list}"; return 0;
-	else for _litem in ${_list}; do
-		_filterfl=0;
-		for _litem_filter in ${_filter}; do
-			if [ "${_litem_filter}" = "${_litem}" ]; then
-				_filterfl=1; break;
-			fi;
-		done;
-		if [ "${_filterfl:-0}" -eq 0 ]; then
-			_lnew="${_lnew:+${_lnew} }${_litem}";
-		fi;
-	done; fi;
-	echo "${_lnew}";
-};
-
-ex_rtl_lmatch() {
-	local _cmp="${3}" IFS="${2}"; set -- ${1};
-	while [ ${#} -gt 0 ]; do
-		if [ "${1}" = "${_cmp}" ]; then
-			return 0;
-		fi; shift;
-	done; return 1;
-};
-
-
-ex_rtl_lsearch() {
-	local _list="${1}" _filter="${2}" _lnew="" _litem="" _litem_filter="";
-	if [ -z "${_filter}" ]; then
-		echo "${_list}"; return 0;
-	else for _litem in ${_list}; do
-		for _litem_filter in ${_filter}; do
-			if [ "${_litem_filter}" = "${_litem}" ]; then
-				_lnew="${_lnew:+${_lnew} }${_litem}";
-				break;
-			fi;
-		done;
-	done; fi;
-	echo "${_lnew}";
-};
-
-ex_rtl_run_cmd_unsplit() {
-	local _cmd="${1}" _cmdline="" _rc="" IFS; shift;
-	while [ ${#} -gt 0 ]; do
-		[ -n "${1}" ] &&\
-			_cmdline="${_cmdline:+${_cmdline}:}${1}";
-		shift;
-	done;
-	IFS=:; ${_cmd} ${_cmdline}; _rc=$?;
-	return ${_rc};
-};
-
-ex_rtl_set_vars() {
-	local _vname_dst="${1}" _vname_src_tmpls="${2}"			\
-		_vars_set_vname="${3}" _vname_src _vars_set_tmp=""	\
-		_vars_set_old="";
-	for _vname_src in ${_vname_src_tmpls}; do
-		_vname_src="${_vname_src}_${_vname_dst}";
-		_vval_src="$(ex_rtl_get_var_unsafe "${_vname_src}")";
-		if [ -n "${_vval_src}" ]; then
-			ex_rtl_set_var_unsafe "PKG_${_vname_dst}" "${_vval_src}";
-			_vars_set_tmp="${_vars_set_tmp:+${_vars_set_tmp} }PKG_${_vname_dst}";
-		fi;
-	done;
-	_vars_set_old="$(ex_rtl_get_var_unsafe "${_vars_set_vname}")";
-	ex_rtl_set_var_unsafe "${_vars_set_vname}"			\
-		"${_vars_set_old:+${_vars_set_old} }${_vars_set_tmp}";
-};
-
 # vim:filetype=sh
diff --git a/subr/ex_rtl_complex.subr b/subr/ex_rtl_complex.subr
new file mode 100644
index 00000000..560b35bb
--- /dev/null
+++ b/subr/ex_rtl_complex.subr
@@ -0,0 +1,100 @@
+#
+# set -o noglob is assumed.
+#
+
+ex_rtl_check_path_vars() {
+	local _vnames="${1}" _rc=0 _vname="" _vname_val=""; _status="";
+	for _vname in ${_vnames}; do
+		_vname_val="$(ex_rtl_get_var_unsafe "${_vname}")";
+		if [ -z "${_vname_val}" ]; then
+			_rc=1; _status="Error: variable \`${_vname}' is empty or unset."; break;
+		elif [ "${_vname_val#* *}" != "${_vname_val}" ]; then
+			_rc=2; _status="Error: variable \`${_vname}' contains one or more whitespace characters."; break;
+		fi;
+	done;
+	return "${_rc}";
+};
+
+ex_rtl_clean_env() {
+	local _env_vars_except="${1}" _env_var="" _env_vars="";
+	_env_vars="$(export | sed -ne '/^export/{s/^export //;s/=.*$//p}')";
+	for _env_var in ${_env_vars}; do
+		if [ "${_env_var#DEFAULT_}" != "${_env_var}" ]\
+		|| [ "${_env_var#PKG_}" != "${_env_var}" ]; then
+			_env_vars_except="${_env_vars_except:+${_env_vars_except} }${_env_var}";
+		fi;
+	done;
+	ex_rtl_unset_vars $(ex_rtl_lfilter "${_env_vars}" "${_env_vars_except}");
+};
+
+ex_rtl_lfilter() {
+	local _list="${1}" _filter="${2}" _lnew="" _litem="" _litem_filter="" _filterfl="";
+	if [ -z "${_filter}" ]; then
+		echo "${_list}"; return 0;
+	else for _litem in ${_list}; do
+		_filterfl=0;
+		for _litem_filter in ${_filter}; do
+			if [ "${_litem_filter}" = "${_litem}" ]; then
+				_filterfl=1; break;
+			fi;
+		done;
+		if [ "${_filterfl:-0}" -eq 0 ]; then
+			_lnew="${_lnew:+${_lnew} }${_litem}";
+		fi;
+	done; fi;
+	echo "${_lnew}";
+};
+
+ex_rtl_lmatch() {
+	local _cmp="${3}" IFS="${2}"; set -- ${1};
+	while [ ${#} -gt 0 ]; do
+		if [ "${1}" = "${_cmp}" ]; then
+			return 0;
+		fi; shift;
+	done; return 1;
+};
+
+ex_rtl_lsearch() {
+	local _list="${1}" _filter="${2}" _lnew="" _litem="" _litem_filter="";
+	if [ -z "${_filter}" ]; then
+		echo "${_list}"; return 0;
+	else for _litem in ${_list}; do
+		for _litem_filter in ${_filter}; do
+			if [ "${_litem_filter}" = "${_litem}" ]; then
+				_lnew="${_lnew:+${_lnew} }${_litem}";
+				break;
+			fi;
+		done;
+	done; fi;
+	echo "${_lnew}";
+};
+
+ex_rtl_run_cmd_unsplit() {
+	local _cmd="${1}" _cmdline="" _rc="" IFS; shift;
+	while [ ${#} -gt 0 ]; do
+		[ -n "${1}" ] &&\
+			_cmdline="${_cmdline:+${_cmdline}:}${1}";
+		shift;
+	done;
+	IFS=:; ${_cmd} ${_cmdline}; _rc=$?;
+	return ${_rc};
+};
+
+ex_rtl_set_vars() {
+	local _vname_dst="${1}" _vname_src_tmpls="${2}"			\
+		_vars_set_vname="${3}" _vname_src _vars_set_tmp=""	\
+		_vars_set_old="";
+	for _vname_src in ${_vname_src_tmpls}; do
+		_vname_src="${_vname_src}_${_vname_dst}";
+		_vval_src="$(ex_rtl_get_var_unsafe "${_vname_src}")";
+		if [ -n "${_vval_src}" ]; then
+			ex_rtl_set_var_unsafe "PKG_${_vname_dst}" "${_vval_src}";
+			_vars_set_tmp="${_vars_set_tmp:+${_vars_set_tmp} }PKG_${_vname_dst}";
+		fi;
+	done;
+	_vars_set_old="$(ex_rtl_get_var_unsafe "${_vars_set_vname}")";
+	ex_rtl_set_var_unsafe "${_vars_set_vname}"			\
+		"${_vars_set_old:+${_vars_set_old} }${_vars_set_tmp}";
+};
+
+# vim:filetype=sh