#
# set +o errexit -o noglob -o nounset is assumed.
#

rtl_install() {
	local	_ri_verbose="" _ri_prefix=""							\
		_ri_chmod_mode="" _ri_dname="" _ri_file_fname_dst="" _ri_file_fname_src=""	\
		_ri_fname="" _ri_ln_fname="" _ri_ln_target="" _ri_owner_spec="" _ri_pname="";

	if [ "${1}" = "-v" ]; then
	       _ri_verbose=1; shift;
	fi;
	_ri_prefix="${1}"; shift;

	while [ ${#} -gt 0 ]; do
	case "${1}" in

	-*)
		_ri_pname="${1#-}";
		if [ "${_ri_pname#/}" = "${_ri_pname}" ]; then
			_ri_pname="${_ri_prefix:+${_ri_prefix}/}${_ri_pname}";
		fi;
		if ! rtl_fileop rm "${_ri_pname}"; then
			return 1;
		fi; ;;

	!*=*)
		_ri_file_fname_src="${1#!}"; _ri_file_fname_src="${_ri_file_fname_src%=*}";
	       	_ri_file_fname_dst="${1#!}"; _ri_file_fname_dst="${_ri_file_fname_dst#*=}";
		if [ "${_ri_file_fname_src#/}" = "${_ri_file_fname_src}" ]; then
			_ri_file_fname_src="${_ri_prefix:+${_ri_prefix}/}${_ri_file_fname_src}";
		fi;
		if [ "${_ri_file_fname_dst#/}" = "${_ri_file_fname_dst}" ]; then
			_ri_file_fname_dst="${_ri_prefix:+${_ri_prefix}/}${_ri_file_fname_dst}";
		fi;
		if ! rtl_fileop mv "${_ri_file_fname_src}" "${_ri_file_fname_dst}"; then
			return 1;
		fi; ;;

	/=*)
		_ri_dname="${1#/=}";
		if [ "${_ri_dname#/}" = "${_ri_dname}" ]; then
			_ri_dname="${_ri_prefix:+${_ri_prefix}/}${_ri_dname}";
		fi;
		if ! rtl_fileop mkdir "${_ri_dname}"; then
			return 1;
		fi; ;;

	@*=*)
		_ri_ln_target="${1%=*}"; _ri_ln_target="${_ri_ln_target#@}"; _ri_ln_fname="${1#*=}";
		if [ "${_ri_ln_fname#/}" = "${_ri_ln_fname}" ]; then
			_ri_ln_fname="${_ri_prefix:+${_ri_prefix}/}${_ri_ln_fname}";
		fi;
		if [ -e "${_ri_ln_fname}" ]; then
			rtl_fileop rm "${_ri_ln_fname}";
		fi;
		if ! rtl_fileop ln_symbolic "${_ri_ln_target}" "${_ri_ln_fname}"; then
			return 1;
		fi; ;;

	m[0-7][0-7][0-7][0-7]=*)
		_ri_fname="${1#m[0-7][0-7][0-7][0-7]=}"; _ri_chmod_mode="${1%%=*}"; _ri_chmod_mode="${_ri_chmod_mode#m}";
		if ! rtl_fileop chmod "${_ri_chmod_mode}" "${_ri_fname}"; then
			return 1;
		fi; ;;

	o*=*)
		_ri_fname="${1#o*=}"; _ri_owner_spec="${1%%=*}"; _ri_owner_spec="${_ri_owner_spec#o}";
		if ! rtl_fileop chown "${_ri_owner_spec}" "${_ri_fname}"; then
			return 1;
		fi; ;;

	*=*)
		_ri_file_fname_src="${1%=*}"; _ri_file_fname_dst="${1#*=}";
		if [ "${_ri_file_fname_src#/}" = "${_ri_file_fname_src}" ]; then
			_ri_file_fname_src="${_ri_prefix:+${_ri_prefix}/}${_ri_file_fname_src}";
		fi;
		if [ "${_ri_file_fname_dst#/}" = "${_ri_file_fname_dst}" ]; then
			_ri_file_fname_dst="${_ri_prefix:+${_ri_prefix}/}${_ri_file_fname_dst}";
		fi;
		if ! rtl_fileop cp "${_ri_file_fname_src}" "${_ri_file_fname_dst}"; then
			return 1;
		fi; ;;

	esac; shift;
	done;

	return 0;
};

# vim:filetype=sh textwidth=0