blob: a8abebd383905152067c6568c36ccc0a0b638091 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
@echo off
@setlocal EnableExtensions DisableDelayedExpansion || exit /b -1
set parents=1
:optloop
if "%1" == "--debug" (shift & set PROMPT=$E[34m+$E[m$S & echo on & goto :optloop)
if "%1" == "-p" (shift & (set parents=1) & goto :optloop)
:begin
if "%1" == "" goto :end
set dir=%1
shift
set dir=%dir:/=\%
:rmdirs
if /%dir:~-2%/ == /\./ set dir=%dir:~0,-2%
if not exist "%dir%\." goto :begin
if "%dir%" == "." goto :begin
if "%dir%" == ".." goto :begin
rd "%dir%" 2> nul || goto :begin
if "%parents%" == "" goto :begin
: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
|
