From cc1e10db513d1a6da66556934f583270604b3973 Mon Sep 17 00:00:00 2001
From: Karen Arutyunov <karen@codesynthesis.com>
Date: Wed, 11 Nov 2020 15:35:59 +0300
Subject: Retry periodically failing rmdir in bootstrapt scripts for Windows

---
 etc/bootstrap/bbot-bootstrap-mingw.bat | 57 +++++++++++++++++++++++++++-------
 1 file changed, 46 insertions(+), 11 deletions(-)

(limited to 'etc/bootstrap/bbot-bootstrap-mingw.bat')

diff --git a/etc/bootstrap/bbot-bootstrap-mingw.bat b/etc/bootstrap/bbot-bootstrap-mingw.bat
index a8bfc80..bea22d9 100644
--- a/etc/bootstrap/bbot-bootstrap-mingw.bat
+++ b/etc/bootstrap/bbot-bootstrap-mingw.bat
@@ -5,6 +5,45 @@ rem license   : TBC; see accompanying LICENSE file
 
 setlocal EnableExtensions EnableDelayedExpansion
 
+goto start
+
+@rem Remove a directory recursively. Noop for non-existent directory.
+@rem
+@rem Note that the underlying rmdir call periodically fails with the
+@rem 'directory not empty' diagnostics, in which case we make up to 100
+@rem removal attempts.
+@rem
+:rmdir_S
+
+  @if not exist %1\ goto :eof
+
+  @setlocal EnableDelayedExpansion
+
+  @set /A "i=0"
+
+  :rmdir_S_try
+
+  @rem Note that rmdir doesn't properly set errorlevel, so we check for the
+  @rem directory existence to detect the failure.
+  @rem
+  rmdir /S /Q %1\
+
+  @if exist %1\ (
+    if %i% neq 99 (
+      set /A "i=%i%+1"
+      goto rmdir_S_try
+    )
+
+    echo error: unable to remove %1\
+    endlocal
+    exit /b 1
+  )
+
+  @endlocal
+@goto :eof
+
+:start
+
 set "BUILD=C:\tmp"
 set "INSTALL=C:\build2"
 set "BOOTSTRAP=C:\bootstrap"
@@ -35,18 +74,14 @@ rem
 @rem
 @rem Bootstrap the toolchain and then build bbot.
 @rem
-@if exist %BUILD%\bootstrap\ (
-  rmdir /S /Q %BUILD%\bootstrap
-  @if errorlevel 1 goto error
-)
+@call :rmdir_S %BUILD%\bootstrap
+@if errorlevel 1 goto error
 
 mkdir %BUILD%\bootstrap
 @if errorlevel 1 goto error
 
-@if exist %INSTALL% (
-  rmdir /S /Q %INSTALL%
-  @if errorlevel 1 goto error
-)
+@call :rmdir_S %INSTALL%
+@if errorlevel 1 goto error
 
 cd %BUILD%\bootstrap
 
@@ -127,7 +162,7 @@ del trust
 @rem
 @rem Bootstrap and install the toolchain.
 @rem
-@for /D %%d in (build2-toolchain-*) do set "bstrap=%%d"
+@for /D %%d in (build2-toolchain-*) do @set "bstrap=%%d"
 cd %bstrap%
 
 @rem Bootstrap in parallel using GNU make (which is part of baseutils).
@@ -139,7 +174,7 @@ cmd /C build-mingw.bat --make mingw32-make --make -j%NUMBER_OF_PROCESSORS%^
 @if errorlevel 1 goto error
 
 cd ..
-rmdir /S /Q %bstrap%
+@call :rmdir_S %bstrap%
 @if errorlevel 1 goto error
 
 
@@ -156,7 +191,7 @@ bpkg install bbot
 @if errorlevel 1 goto error
 
 cd ..
-rmdir /S /Q %config%
+@call :rmdir_S %config%
 @if errorlevel 1 goto error
 
 @rem
-- 
cgit v1.1