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/rtl_complex.subr | 114 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 114 insertions(+)
 create mode 100644 subr/rtl_complex.subr

(limited to 'subr/rtl_complex.subr')

diff --git a/subr/rtl_complex.subr b/subr/rtl_complex.subr
new file mode 100644
index 00000000..6d9750dc
--- /dev/null
+++ b/subr/rtl_complex.subr
@@ -0,0 +1,114 @@
+#
+# set +o errexit -o noglob is assumed.
+#
+
+rtl_check_path_vars() {
+	local _vnames="${1}" _rc=0 _vname="" _vname_val=""; _status="";
+	for _vname in ${_vnames}; do
+		_vname_val="$(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}";
+};
+
+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;
+	rtl_unset_vars $(rtl_lfilter "${_env_vars}" "${_env_vars_except}");
+};
+
+rtl_exists_any() {
+	local _subdir="${1}"; shift;
+	while [ "${#}" -gt 0 ]; do
+		if [ -e "${_subdir}/${1}" ]; then
+			return 0;
+		else
+			shift;
+		fi;
+	done; return 1;
+};
+
+rtl_export_vars() {
+	local _unsetfl=0; [ "x${1}" = "x-u" ] && { _unsetfl=1; shift; };
+	while [ "${#}" -ge 2 ]; do
+		if [ -n "${2}" ]; then
+			if [ "${_unsetfl:-0}" -eq 0 ]; then
+				rtl_set_var_unsafe "${1}" "${2}"; export "${1}";
+			else
+				unset "${1}";
+			fi;
+		fi;
+		shift 2;
+	done;
+};
+
+rtl_get_var_unsafe() {
+	local _vname="";
+	if [ "x${1}" = "x-u" ]; then
+		shift; _vname="$(rtl_toupper "${1}")";
+	else
+		_vname="${1}";
+	fi;
+	eval echo \${${_vname}};
+};
+
+rtl_head() {
+	local _pattern="${1}" _s="${2}";
+	while true; do
+		if [ "${_s%%${_pattern}}" = "${_s}" ]; then
+			break;
+		else
+			_s="${_s%%${_pattern}}";
+		fi;
+	done;
+	echo "${_s}";
+};
+
+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;
+};
+
+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};
+};
+
+rtl_set_vars() {
+	local	_vars_set_vname="${1}" _vname_dst="${2}" _vname_src_tmpls="${3}"	\
+		_vars_set_old="" _vars_set_tmp="" _vname_src="";
+	for _vname_src in $(rtl_toupper "${_vname_src_tmpls}"); do
+		_vname_src="${_vname_src}_${_vname_dst}";
+		_vval_src="$(rtl_get_var_unsafe "${_vname_src}")";
+		if [ -n "${_vval_src}" ]; then
+			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="$(rtl_get_var_unsafe "${_vars_set_vname}")";
+	rtl_set_var_unsafe "${_vars_set_vname}"					\
+		"${_vars_set_old:+${_vars_set_old} }${_vars_set_tmp}";
+};
+
+# vim:filetype=sh
-- 
cgit v1.2.3