summaryrefslogtreecommitdiffhomepage
path: root/subr/ex_setup_checks.subr
diff options
context:
space:
mode:
Diffstat (limited to 'subr/ex_setup_checks.subr')
-rw-r--r--subr/ex_setup_checks.subr38
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