Win32: Support removing wildcards in middle of path

Merged: https://github.com/ruby/ruby/pull/12558

win32/rm.bat

@@ -1,23 +1,64 @@
 @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" == "-r" (shift & set "recursive=1" & goto :optloop)
-if "%1" == "--debug" (shift & set PROMPT=$E[34m+$E[m$S & echo on & goto :optloop)
+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 :end
-set p=%1
-shift
-set p=%p:/=\%
-if not exist "%p%" goto :begin
-
-::- 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 :begin
-
-if "%recursive%" == "1" for /D %%I in (%p%) do (
-    rd /s /q %%I
-)
+if "%1" == "" goto :EOF
+  set p=%1
+  shift
+  set p=%p:/=\%
+  call :remove %p%
 goto :begin
-:end
+
+: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