2009-01-24 21:06:29 -05:00
|
|
|
::-*- batch -*-
|
|
|
|
|
@echo off
|
|
|
|
|
if "%1" == "-p" shift
|
|
|
|
|
:begin
|
|
|
|
|
if "%1" == "" goto :end
|
|
|
|
|
set dir=%1
|
|
|
|
|
shift
|
|
|
|
|
set dir=%dir:/=\%
|
|
|
|
|
:rmdirs
|
|
|
|
|
if not exist "%dir%\." goto :begin
|
|
|
|
|
if "%dir%" == "." goto :begin
|
|
|
|
|
if "%dir%" == ".." goto :begin
|
2009-01-26 21:03:54 -05:00
|
|
|
rd "%dir%" 2> nul || goto :begin
|
2009-01-24 21:06:29 -05:00
|
|
|
:trim_sep
|
|
|
|
|
if not /%dir:~-1%/ == /\/ goto :trim_base
|
|
|
|
|
set dir=%dir:~0,-1%
|
|
|
|
|
if not "%dir%" == "" goto :trim_sep
|
|
|
|
|
:trim_base
|
|
|
|
|
if /%dir:~-1%/ == /\/ goto :parent
|
|
|
|
|
set dir=%dir:~0,-1%
|
|
|
|
|
if not "%dir%" == "" goto :trim_base
|
|
|
|
|
:parent
|
|
|
|
|
set dir=%dir:~0,-1%
|
|
|
|
|
if "%dir%" == "" goto :begin
|
|
|
|
|
if "%dir:~-1%" == ":" goto :begin
|
|
|
|
|
goto :rmdirs
|
|
|
|
|
shift
|
|
|
|
|
goto :begin
|
|
|
|
|
:end
|
