From ec19f02f81c206f54a89ef7e1f49715e90470c31 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: Sun, 3 Dec 2017 16:10:05 +0000
Subject: Separate front end (build.sh, subr/build_*) from dispatcher.

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

(limited to 'subr/build_checks.subr')

diff --git a/subr/build_checks.subr b/subr/build_checks.subr
new file mode 100644
index 00000000..08abc684
--- /dev/null
+++ b/subr/build_checks.subr
@@ -0,0 +1,40 @@
+build_checks() {
+	local __ _exit _pname;
+	for __ in ${DEFAULT_CHECK_PATH_VARS}; do
+		if [ -z "${___:=$(ex_rtl_get_var_unsafe "${__}")}" ]; then
+			ex_rtl_log_msg failexit "Error: variable \`${__}' is empty or unset.";
+		elif [ "${___#* *}" != "${___}" ]; then
+			ex_rtl_log_msg failexit "Error: variable \`${__}' contains one or more whitespace characters.";
+		fi;
+	done;
+	for __ in ${DEFAULT_CHECK_PREREQ_CMDS} $(eval echo ${DEFAULT_CHECK_PREREQ_FILES_DYNAMIC}) ${DEFAULT_CHECK_PREREQ_FILES}; do
+		if [ "${__#/}" != "${__}" ]; then
+			if [ ! -e "${__}" ]; then
+				ex_rtl_log_msg fail "Error: missing prerequisite file \`${__}'.";
+				_exit=1;
+			fi;
+		else
+			if ! ex_rtl_test_cmd "${__}"; then
+				ex_rtl_log_msg fail "Error: missing prerequisite command \`${__}'.";
+				_exit=1;
+			fi;
+		fi;
+	done;
+	for __ in ${DEFAULT_CHECK_PREREQ_PERL_MODULES}; do
+		if ! perl -M"${__}" -e "" 2>/dev/null; then
+			ex_rtl_log_msg fail "Error: missing prerequisite Perl module \`${__}'.";
+			_exit=1;
+		fi;
+	done;
+	if [ ${_exit:-0} = 1 ]; then
+		exit 1;
+	fi;
+	if [ ${ARG_CLEAN:-0} -eq 1 ]; then
+		ex_rtl_log_msg info "-c specified, cleaning prefix...";
+		for _pname in ${DEFAULT_CLEAR_PREFIX_PATHS}; do
+			ex_rtl_fileop rm ${PREFIX}/${_pname};
+		done;
+	fi;
+};
+
+# vim:filetype=sh
-- 
cgit v1.2.3