tool/rmdirs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/bin/sh

# Script used by configure to delete directories recursively.

for dir do
    while rmdir "$dir" >/dev/null 2>&1 &&
          parent=`expr "$dir" : '\(.*\)/[^/][^/]*'`; do
        case "$parent" in
        . | .. | "$dir") break;;
        *) dir="$parent";;
        esac
    done
done
true