From 32ad217d197203a97dfcc0076e748731d2315c0b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lucio=20Andr=C3=A9s=20Illanes=20Albornoz=20=28arab=2C=20vx?=
 =?UTF-8?q?p=29?= <lucio@lucioillanes.de>
Date: Wed, 22 Nov 2017 01:32:50 +0000
Subject: subr/*: reorganised as {ex{,_{pkg,rtl,setup}},pkg}_*.

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

(limited to 'subr/ex_setup_checks.subr')

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
-- 
cgit v1.2.3