-# Assumes shell is Bash.
+# Assumes shell is Bash, and pipefail is set.
+
+bup_t_lib_script_home=$(cd "$(dirname $0)" && pwd) || exit $?
+
+bup-python()
+{
+ "$bup_t_lib_script_home/../cmd/bup-python" "$@"
+}
force-delete()
{
- # Try *hard* to delete $@. Among other things, some systems have
- # r-xr-xr-x for root and other system dirs.
- rm -rf "$@" # Maybe we'll get lucky.
- for f in "$@"; do
- test -e "$@" || continue
- chmod -R u+w "$@"
- if [[ $(uname) =~ Linux ]]; then
- chattr -fR = "$@"
- setfacl -Rb "$@"
- fi
- rm -r "$@"
- if test -e "$@"; then
- return 1
- fi
- done
+ "$bup_t_lib_script_home/force-delete" "$@"
}
-realpath()
-(
- set -e;
- test "$#" -eq 1
- script_home=$(cd "$(dirname $0)" && pwd)
+resolve-parent()
+{
+ test "$#" -eq 1 || return $?
echo "$1" | \
- PYTHONPATH="${script_home}/../lib" python -c \
- "import sys, bup.helpers; print bup.helpers.realpath(sys.stdin.readline())"
+ PYTHONPATH="$bup_t_lib_script_home/../lib" bup-python -c \
+ "import sys, bup.helpers; print(bup.helpers.resolve_parent(sys.stdin.readline()))" \
+ || return $?
+}
+
+current-filesystem()
+{
+ local kernel="$(uname -s)" || return $?
+ case "$kernel" in
+ NetBSD)
+ df -G . | sed -En 's/.* ([^ ]*) fstype.*/\1/p'
+ ;;
+ SunOS)
+ df -g . | sed -En 's/.* ([^ ]*) fstype.*/\1/p'
+ ;;
+ *)
+ df -T . | awk 'END{print $2}'
+ esac
+}
+
+path-filesystems()
+(
+ # Return filesystem for each dir from $1 to /.
+ # Perhaps for /foo/bar, "ext4\next4\nbtrfs\n".
+ test "$#" -eq 1 || exit $?
+ cd "$1" || exit $?
+ current-filesystem || exit $?
+ dir="$(pwd)" || exit $?
+ while test "$dir" != /; do
+ cd .. || exit $?
+ dir="$(pwd)" || exit $?
+ current-filesystem || exit $?
+ done
+ exit 0
)
+
+escape-erx()
+{
+ sed 's/[][\.|$(){?+*^]/\\&/g' <<< "$*"
+}