mirror of
https://github.com/ruby/ruby.git
synced 2026-01-26 20:19:19 +00:00
65 lines
1.8 KiB
Batchfile
Executable File
65 lines
1.8 KiB
Batchfile
Executable File
@echo off
|
|
@setlocal EnableExtensions DisableDelayedExpansion || exit /b -1
|
|
|
|
set prog=%~n0
|
|
set dryrun=
|
|
set recursive=
|
|
set debug=
|
|
set error=0
|
|
set parent=
|
|
|
|
:optloop
|
|
if "%1" == "-f" shift
|
|
if "%1" == "-n" (shift & set "dryrun=%1" & goto :optloop)
|
|
if "%1" == "-r" (shift & set "recursive=%1" & goto :optloop)
|
|
if "%1" == "--debug" (shift & set "debug=%1" & set PROMPT=$E[34m+$E[m$S & echo on & goto :optloop)
|
|
:begin
|
|
if "%1" == "" goto :EOF
|
|
set p=%1
|
|
shift
|
|
set p=%p:/=\%
|
|
call :remove %p%
|
|
goto :begin
|
|
|
|
:remove
|
|
setlocal
|
|
|
|
::- Split %1 by '?' and '*', wildcard characters
|
|
for /f "usebackq delims=?* tokens=1*" %%I in ('%1') do (set "par=%%I" & set "sub=%%J")
|
|
if "%sub%" == "" goto :remove_plain
|
|
if "%sub:\=%" == "%sub%" goto :remove_plain
|
|
::- Extract the first wildcard
|
|
set "q=%1"
|
|
call set "q=%%q:%par%=%%"
|
|
set q=%q:~0,1%
|
|
|
|
::- `delims` chars at the beginning are removed in `for`
|
|
if "%sub:~0,1%" == "\" (
|
|
set "sub=%sub:~1%"
|
|
set "par=%par%%q%"
|
|
) else (
|
|
for /f "usebackq delims=\\ tokens=1*" %%I in ('%sub%') do (set "par=%par%%q%%%I" & set "sub=%%J")
|
|
)
|
|
|
|
::- Recursive search
|
|
for /d %%D in (%par%) do (
|
|
call :remove %sub% %2%%D\
|
|
)
|
|
goto :remove_end
|
|
:remove_plain
|
|
set p=%2%1
|
|
if not exist "%1" goto :remove_end
|
|
if not "%dryrun%" == "" (
|
|
echo Removing %p:\=/%
|
|
goto :remove_end
|
|
)
|
|
::- Try `rd` first for symlink to a directory; `del` attemps to remove all
|
|
::- files under the target directory, instead of the symlink itself.
|
|
(rd /q "%p%" || del /q "%p%") 2> nul && goto :remove_end
|
|
|
|
if "%recursive%" == "-r" for /D %%I in (%p%) do (
|
|
rd /s /q %%I || call set error=%%ERRORLEVEL%%
|
|
)
|
|
:remove_end
|
|
endlocal & set "error=%error%" & goto :EOF
|