From c6d6e08feab839a9dc5792071fb803494cc51a69 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lucio=20Andr=C3=A9s=20Illanes=20Albornoz?=
 <lucio@lucioillanes.de>
Date: Wed, 26 Feb 2020 21:54:12 +0000
Subject: General cleanup, pt. II.

---
 subr/ex_pkg.subr | 75 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 75 insertions(+)
 create mode 100644 subr/ex_pkg.subr

(limited to 'subr/ex_pkg.subr')

diff --git a/subr/ex_pkg.subr b/subr/ex_pkg.subr
new file mode 100644
index 00000000..fd2df524
--- /dev/null
+++ b/subr/ex_pkg.subr
@@ -0,0 +1,75 @@
+#
+# set +o errexit -o noglob is assumed.
+#
+
+#
+# ex_pkg_check_depends() - check single named package for unsatisfied dependencies
+# @_pkg_complete:	list of completed packages
+# @_pkg_name:		single package name
+# @_pkg_wait:		list of in-progress packages
+# @_restart_recursive:	optional flag specifiying either no dependency expansion (0,) dependency expansion (1,) dependency expansion and forcibly rebuild (2.)
+#
+# Return:		zero (0) given no outstanding dependencies, non-zero (>0) otherwise
+#
+ex_pkg_check_depends() {
+	local	_pkg_complete="${1}" _pkg_name="${2}" _pkg_wait="${3}" _restart_recursive="${4}"	\
+		_pkg_depends="" _pkg_name_depend="" _dependfl=0;
+	if _pkg_depends="$(rtl_lunfold_depends 'PKG_${_name}_DEPENDS' $(rtl_get_var_unsafe -u "PKG_"${_pkg_name}"_DEPENDS"))"\
+	&& [ -n "${_pkg_depends}" ]\
+	&& ! [ -n "${_restart}" ] || [ "${_restart_recursive:-0}" -ge 1 ]; then
+		for _pkg_name_depend in $(rtl_uniq ${_pkg_depends}); do
+			if ! rtl_lmatch "${_pkg_complete}" "${_pkg_name_depend}"\
+			|| rtl_lmatch "${_pkg_wait}" "${_pkg_name_depend}"; then
+				_dependfl=1; break;
+			fi;
+		done;
+	fi;
+	return "${_dependfl}";
+};
+
+#
+# ex_pkg_expand_packages() - expand build group name to list of packages ordered and filtered according to dependency and restart constraints
+# @_group_name:		build group name
+# @_restart:		optional comma-separated list of package names to rebuild
+# @_restart_recursive:	optional flag specifiying either no dependency expansion (0,) dependency expansion (1,) dependency expansion and forcibly rebuild (2.)
+#
+# Return:		zero (0) on success, non-zero (>0) on failure, ${EXP_PKG_COMPLETE}, ${EXP_PKG_DISABLED}, ${EXP_PKG_FINISHED}, and ${EXP_PKG_NAMES} set post-return.
+#
+ex_pkg_expand_packages() {
+	local	_group_name="${1}" _restart="${2}" _restart_recursive="${3}"	\
+		_pkg_name="" _pkg_names="" _restart_check=0;
+	EXP_PKG_COMPLETE=""; EXP_PKG_DISABLED=""; EXP_PKG_FINISHED=""; EXP_PKG_NAMES="";
+	if _pkg_names="$(rtl_get_var_unsafe -u "${_group_name}_PACKAGES")"\
+	&& [ -n "${_pkg_names}" ]; then
+		if [ -n "${_restart}" ] && ! rtl_lmatch "${_restart}" "ALL LAST"; then
+			_pkg_names="$(rtl_lsearch "${_pkg_names}" "${_restart}")";
+		fi;
+		if ! [ -n "${_restart}" ] || [ "${_restart_recursive:-0}" -ge 1 ]; then
+			_pkg_names="$(rtl_uniq $(rtl_lunfold_depends 'PKG_${_name}_DEPENDS' ${_pkg_names}))";
+		fi;
+		for _pkg_name in ${_pkg_names}; do
+			if [ "${_restart}" = "ALL" ]\
+			|| rtl_lmatch "${_restart}" "${_pkg_name}"; then
+				_restart_check=1;
+			else
+				_restart_check=0;
+			fi;
+			if [ -n "$(rtl_get_var_unsafe -u "PKG_${_pkg_name}_DISABLED")" ]; then
+				EXP_PKG_COMPLETE="$(rtl_lconcat "${EXP_PKG_COMPLETE}" "${_pkg_name}")";
+				EXP_PKG_DISABLED="$(rtl_lconcat "${EXP_PKG_DISABLED}" "${_pkg_name}")";
+				_pkg_names="$(rtl_lfilter "${_pkg_names}" "${_pkg_name}")";
+			elif ex_pkg_state_test "${_pkg_name}" finish\
+			&& [ "${_restart_check:-0}" -eq 0 ]\
+			&& [ "${_restart_recursive:-0}" -ne 2 ]\
+			&& [ "x$(rtl_get_var_unsafe -u "${_group_name}_FORCE")" != "x1" ]; then
+				EXP_PKG_COMPLETE="$(rtl_lconcat "${EXP_PKG_COMPLETE}" "${_pkg_name}")";
+				EXP_PKG_FINISHED="$(rtl_lconcat "${EXP_PKG_FINISHED}" "${_pkg_name}")";
+				_pkg_names="$(rtl_lfilter "${_pkg_names}" "${_pkg_name}")";
+			fi;
+		done;
+		EXP_PKG_NAMES="${_pkg_names}";
+	fi;
+	return 0;
+};
+
+# vim:filetype=sh textwidth=0
-- 
cgit v1.2.3