#

# set -o noglob is assumed.

#

exp_rtl_fileop_check() {

	local _prefix="${1}" _pname="" _rname=""; shift;

	while [ ${#} -gt 0 ]; do

		return 0;

	shift; done;

};

ex_rtl_fileop() {

	local _op="${1}" _src="" _dst=""; shift;

	case "${_op}" in

	cd)	if [ \( -z "${1}" \) -o ! \( -L "${1}" -o -e "${1}" \) ]; then

			ex_rtl_log_msg failexit "Invalid or non-existent directory \`${1}'.";

		else

			ex_rtl_log_msg vvvv "Changing working directory to \`${1}'.";

			exp_rtl_fileop_check "${PREFIX}" "${1}";

			cd -- "${1}";

		fi; ;;

	cp_follow)

		if [ ${#} -lt 2 ]; then

			ex_rtl_log_msg failexit "Missing parameters (in: cp_follow ${*}.)";

		else

			_src="${*}"; _src="${_src% *}";

			_dst="${*}"; _dst="${_dst##* }";

			ex_rtl_log_msg vvvv "Copying \`${_src}' into \`${_dst}' w/ -pLR.";

			exp_rtl_fileop_check "${PREFIX}" "${*}";

			cp -pLR -- "${@}";

		fi; ;;

	cp)	if [ ${#} -lt 2 ]; then

			ex_rtl_log_msg failexit "Missing parameters (in: cp ${*}.)";

		else

			_src="${*}"; _src="${_src% *}";

			_dst="${*}"; _dst="${_dst##* }";

			ex_rtl_log_msg vvvv "Copying \`${_src}' into \`${_dst}' w/ -pPR.";

			exp_rtl_fileop_check "${PREFIX}" "${*}";

			cp -pPR -- "${@}";

		fi; ;;

	ln_symbolic)

		if [ \( -z "${1}" \) -o \( -z "${2}" \) ]; then

			ex_rtl_log_msg failexit "Missing parameters (in: ln_symbolic ${*}.)";

		else

			exp_rtl_fileop_check "${PREFIX}" "${2}";

			if ex_rtl_fileop test "${2}"; then

				ex_rtl_fileop rm "${2}";

			fi;

			ex_rtl_log_msg vvvv "Linking \`${1}' to \`${2}' w/ -fs";

			ln -fs -- "${1}" "${2}";

		fi; ;;

	mv)	if [ \( -z "${1}" \) -o \( -z "${2}" \) ]; then

			ex_rtl_log_msg failexit "Missing parameters (in: mv ${*}.)";

		else

			ex_rtl_log_msg vvvv "Moving \`${1}' to \`${2}' w/ -fs";

			exp_rtl_fileop_check "${PREFIX}" "${1}" "${2}";

			mv -f -- "${1}" "${2}";

		fi; ;;

	mkdir|mkfifo|rm|source_opt|test|touch)

		while [ ${#} -gt 0 ]; do

			if [ -z "${1}" ]; then

				ex_rtl_log_msg failexit "Missing parameters (in: ${_op} ${*}.)";

			elif [ "${_op}" = mkdir ]\

			&& [ ! -d "${1}" ]; then

				exp_rtl_fileop_check "${PREFIX}" "${1}";

				if ex_rtl_fileop test "${1}"; then

					ex_rtl_fileop rm "${1}";

				fi;

				ex_rtl_log_msg vvvv "Making directory \`${1}'.";

				mkdir -p -- "${1}";

			elif [ "${_op}" = mkfifo ]; then

				exp_rtl_fileop_check "${PREFIX}" "${1}";

				if ex_rtl_fileop test "${1}"; then

					ex_rtl_fileop rm "${1}";

				fi;

				ex_rtl_log_msg vvvv "Creating FIFO \`${1}'.";

				exp_rtl_fileop_check "${PREFIX}" "${1}";

				mkfifo -- "${1}";

			elif [ "${_op}" = rm ]\

			&& ex_rtl_fileop test "${1}"; then

				ex_rtl_log_msg vvvv "Removing directory or file \`${1}'.";

				exp_rtl_fileop_check "${PREFIX}" "${1}";

				rm -rf -- "${1}";

			elif [ "${_op}" = source_opt ]\

			&& ex_rtl_fileop test "${1}"; then

				ex_rtl_log_msg vvvv "Sourcing file \`${1}'.";

				exp_rtl_fileop_check "${PREFIX}" "${1}";

				. "${1}";

			elif [ "${_op}" = test ]\

			&& ! [ \( -L "${1}" \) -o \( -e "${1}" \) ]; then

				return 1;

			elif [ "${_op}" = touch ]; then

				ex_rtl_log_msg vvvv "Touching file \`${1}'.";

				exp_rtl_fileop_check "${PREFIX}" "${1}";

				touch -- "${1}";

			fi; shift;

		done; ;;

	*)	ex_rtl_log_msg failexit "Error: ex_rtl_fileop() called w/ invalid parameter(s): ${*}"; ;;

	esac; return 0;

};

# vim:filetype=sh