From c6d6e08feab839a9dc5792071fb803494cc51a69 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lucio=20Andr=C3=A9s=20Illanes=20Albornoz?=
 <lucio@lucioillanes.de>
Date: Wed, 26 Feb 2020 21:54:12 +0000
Subject: General cleanup, pt. II.

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

(limited to 'subr/rtl_install.subr')

diff --git a/subr/rtl_install.subr b/subr/rtl_install.subr
new file mode 100644
index 00000000..a1c70a01
--- /dev/null
+++ b/subr/rtl_install.subr
@@ -0,0 +1,47 @@
+#
+# set +o errexit -o noglob is assumed.
+#
+
+rtl_install() {
+	local _verbose="" _prefix="" _ln_target="" _ln_fname=""	\
+		_mkdir_fname="" _file_fname_src="" _file_fname_dst="";
+	if [ "${1}" = "-v" ]; then
+		_verbose=1; shift;
+	fi; _prefix="${1}"; shift;
+	while [ ${#} -gt 0 ]; do
+	case "${1}" in
+	@*=*)
+		_ln_target="${1%=*}";
+		_ln_target="${_ln_target#@}";
+		_ln_fname="${1#*=}";
+		if [ "${_ln_fname#/}" = "${_ln_fname}" ]; then
+			_ln_fname="${_prefix:+${_prefix}/}${_ln_fname}";
+		fi;
+		if [ -e "${_ln_fname}" ]; then
+			rtl_fileop rm "${_ln_fname}";
+		fi;
+		rtl_fileop ln_symbolic "${_ln_target}" "${_ln_fname}";
+		;;
+	/=*)
+		_mkdir_fname="${1#/=}";
+		if [ "${_mkdir_fname#/}" = "${_mkdir_fname}" ]; then
+			_mkdir_fname="${_prefix:+${_prefix}/}${_mkdir_fname}";
+		fi;
+		rtl_fileop mkdir "${_mkdir_fname}";
+		;;
+	*)
+		_file_fname_src="${1%=*}";
+		_file_fname_dst="${1#*=}";
+		if [ "${_file_fname_src#/}" = "${_file_fname_src}" ]; then
+			_file_fname_src="${_prefix:+${_prefix}/}${_file_fname_src}";
+		fi;
+		if [ "${_file_fname_dst#/}" = "${_file_fname_dst}" ]; then
+			_file_fname_dst="${_prefix:+${_prefix}/}${_file_fname_dst}";
+		fi;
+		rtl_fileop cp "${_file_fname_src}" "${_file_fname_dst}";
+		;;
+	esac; shift;
+	done;
+};
+
+# vim:filetype=sh
-- 
cgit v1.2.3