1::-*- batch -*-
2@echo off
3if "%1" == "-p" shift
4:begin
5if "%1" == "" goto :end
6    set dir=%1
7    shift
8    set dir=%dir:/=\%
9    :rmdirs
10        if not exist "%dir%\." goto :begin
11        if "%dir%" == "." goto :begin
12        if "%dir%" == ".." goto :begin
13        rd "%dir%" 2> nul || goto :begin
14        :trim_sep
15            if not /%dir:~-1%/ == /\/ goto :trim_base
16            set dir=%dir:~0,-1%
17        if not "%dir%" == "" goto :trim_sep
18        :trim_base
19            if /%dir:~-1%/ == /\/ goto :parent
20            set dir=%dir:~0,-1%
21        if not "%dir%" == "" goto :trim_base
22        :parent
23        set dir=%dir:~0,-1%
24        if "%dir%" == "" goto :begin
25        if "%dir:~-1%" == ":" goto :begin
26    goto :rmdirs
27shift
28goto :begin
29:end
30