#
# rrmdir
#
# Remove a directory and recursively its parents. Quietly stops
# at an unremovable directory.
#
set -ue
myname=${0}
root=/
while [ $# -ne 0 ]
do
case "${1}" in
-r)
root="${2}" ; shift 2 ;;
-*)
echo "${myname}: \"${1}\": Unknown option" >&2 ; exit 1 ;;
*)
break ;;
esac
done
for dir
do
while rmdir ${root}/${dir} 2>/dev/null
do
dir="`ignore expr \
${dir-.}'/' : '\(/\)[^/]*/$' \
\| ${dir-.}'/' : '\(.*[^/]\)//*[^/][^/]*//*$' \
\| .`"
case ${dir} in
. | /) break ;;
esac
done
done