subr/*: reorganised as {ex{,_{pkg,rtl,setup}},pkg}_*.

1 files changed, 38 insertions, 0 deletions

diff --git a/subr/ex_setup_checks.subr b/subr/ex_setup_checks.subr
new file mode 100644
index 00000000..803810d2
--- /dev/null
+++ b/subr/ex_setup_checks.subr
@@ -0,0 +1,38 @@
+#
+# set -o errexit -o noglob are assumed.
+#
+
+ex_setup_checks() {
+	local __ _exit;
+	for __ in ${CHECK_PATH_VARS}; do
+		if [ -z "${___:=$(ex_get_var_unsafe "${__}")}" ]; then
+			ex_log_msg failexit "Error: variable \`${__}' is empty or unset.";
+		elif [ "${___#* *}" != "${___}" ]; then
+			ex_log_msg failexit "Error: variable \`${__}' contains one or more whitespace characters.";
+		fi;
+	done;
+	for __ in ${CHECK_PREREQ_CMDS} $(eval echo ${CHECK_PREREQ_FILES_DYNAMIC}) ${CHECK_PREREQ_FILES}; do
+		if [ "${__#/}" != "${__}" ]; then
+			if [ ! -e "${__}" ]; then
+				ex_log_msg fail "Error: missing prerequisite file \`${__}'.";
+				_exit=1;
+			fi;
+		else
+			if ! ex_test_cmd "${__}"; then
+				ex_log_msg fail "Error: missing prerequisite command \`${__}'.";
+				_exit=1;
+			fi;
+		fi;
+	done;
+	for __ in ${CHECK_PREREQ_PERL_MODULES}; do
+		if ! perl -M"${__}" -e "" 2>/dev/null; then
+			ex_log_msg fail "Error: missing prerequisite Perl module \`${__}'.";
+			_exit=1;
+		fi;
+	done;
+	if [ ${_exit:-0} = 1 ]; then
+		exit 1;
+	fi;
+};
+
+# vim:filetype=sh