Skip to content

Commit

Permalink
Patch from DelphiUdIT:
Browse files Browse the repository at this point in the history 
- Fix for bug in Clean_IDE.cmd where the REN command was not being used correctly.
- Adding removal of additional files for Windows 64-bit (Modern) and iOS Simulator.
  • Loading branch information
@rlebeau
rlebeau committed Apr 8, 2024
1 parent f26fd03 commit e67eb35
Showing 1 changed file with 69 additions and 10 deletions.
79 changes: 69 additions & 10 deletions Lib/Clean_IDE.cmd
View file
Original file line number Diff line number Diff line change
Expand Up @@ -34,14 +34,14 @@ for %%a in ("%BDSworkdir%\dclIndy*.jdbg") do (del "%%a") && (if not exist "%%a"
set BDSworkdir=%BDS%\lib\win32\debug
for %%a in (idoc,idispids) do (
if exist "%BDSworkdir%\%%a.dcu" (
ren "%BDSworkdir%\%%a.dcu" "%BDSworkdir%\%%a.bak"
ren "%BDSworkdir%\%%a.dcu" "%%a.bak"
if exist "%BDSworkdir%\%%a.dcu" echo Cannot backup "%BDSworkdir%\%%a.dcu"!
)
)
for %%a in ("%BDSworkdir%\Id*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in (idoc,idispids) do (
if exist "%BDSworkdir%\%%a.bak" (
ren "%BDSworkdir%\%%a.bak" "%BDSworkdir%\%%a.dcu"
ren "%BDSworkdir%\%%a.bak" "%%a.dcu"
if exist "%BDSworkdir%\%%a.bak" echo Cannot restore "%BDSworkdir%\%%a.dcu"!
)
)
Expand All @@ -59,14 +59,14 @@ for %%a in ("%BDSworkdir%\Indy*.res") do (del "%%a") && (if not exist "%%a" echo
set BDSworkdir=%BDS%\lib\win32\release
for %%a in (idoc,idispids) do (
if exist "%BDSworkdir%\%%a.dcu" (
ren "%BDSworkdir%\%%a.dcu" "%BDSworkdir%\%%a.bak"
ren "%BDSworkdir%\%%a.dcu" "%%a.bak"
if exist "%BDSworkdir%\%%a.dcu" echo Cannot backup "%BDSworkdir%\%%a.dcu"!
)
)
for %%a in ("%BDSworkdir%\Id*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in (idoc,idispids) do (
if exist "%BDSworkdir%\%%a.bak" (
ren "%BDSworkdir%\%%a.bak" "%BDSworkdir%\%%a.dcu"
ren "%BDSworkdir%\%%a.bak" "%%a.dcu"
if exist "%BDSworkdir%\%%a.bak" echo Cannot restore "%BDSworkdir%\%%a.dcu"!
)
)
Expand All @@ -83,22 +83,23 @@ for %%a in ("%BDSworkdir%\Vcl.Id*.obj") do (del "%%a") && (if not exist "%%a" ec
for %%a in ("%BDSworkdir%\Fmx.Id*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Fmx.Id*.obj") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)

echo Removing Windows 64-bit files
echo Removing Windows 64-bit files (Legacy)

set BDSworkdir=%BDS%\bin64
for %%a in ("%BDSworkdir%\Indy*.bpl") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Indy*.jdbg") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)

set BDSworkdir=%BDS%\lib\win64\debug
for %%a in (idoc,idispids) do (
if exist "%BDSworkdir%\%%a.dcu" (
ren "%BDSworkdir%\%%a.dcu" "%BDSworkdir%\%%a.bak"
ren "%BDSworkdir%\%%a.dcu" "%%a.bak"
if exist "%BDSworkdir%\%%a.dcu" echo Cannot backup "%BDSworkdir%\%%a.dcu"!
)
)
for %%a in ("%BDSworkdir%\Id*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in (idoc,idispids) do (
if exist "%BDSworkdir%\%%a.bak" (
ren "%BDSworkdir%\%%a.bak" "%BDSworkdir%\%%a.dcu"
ren "%BDSworkdir%\%%a.bak" "%%a.dcu"
if exist "%BDSworkdir%\%%a.bak" echo Cannot restore "%BDSworkdir%\%%a.dcu"!
)
)
Expand All @@ -117,14 +118,14 @@ for %%a in ("%BDSworkdir%\Fmx.Id*.o") do (del "%%a") && (if not exist "%%a" echo
set BDSworkdir=%BDS%\lib\win64\release
for %%a in (idoc,idispids) do (
if exist "%BDSworkdir%\%%a.dcu" (
ren "%BDSworkdir%\%%a.dcu" "%BDSworkdir%\%%a.bak"
ren "%BDSworkdir%\%%a.dcu" "%%a.bak"
if exist "%BDSworkdir%\%%a.dcu" echo Cannot backup "%BDSworkdir%\%%a.dcu"!
)
)
for %%a in ("%BDSworkdir%\Id*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in (idoc,idispids) do (
if exist "%BDSworkdir%\%%a.bak" (
ren "%BDSworkdir%\%%a.bak" "%BDSworkdir%\%%a.dcu"
ren "%BDSworkdir%\%%a.bak" "%%a.dcu"
if exist "%BDSworkdir%\%%a.bak" echo Cannot restore "%BDSworkdir%\%%a.dcu"!
)
)
Expand All @@ -141,6 +142,44 @@ for %%a in ("%BDSworkdir%\Vcl.Id*.o") do (del "%%a") && (if not exist "%%a" echo
for %%a in ("%BDSworkdir%\Fmx.Id*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Fmx.Id*.o") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)

echo Removing Windows 64-bit files (Modern)

set BDSworkdir=%BDS%\lib\win64x\debug
for %%a in (idoc,idispids) do (
if exist "%BDSworkdir%\%%a.dcu" (
ren "%BDSworkdir%\%%a.dcu" "%%a.bak"
if exist "%BDSworkdir%\%%a.dcu" echo Cannot backup "%BDSworkdir%\%%a.dcu"!
)
)
for %%a in ("%BDSworkdir%\Id*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in (idoc,idispids) do (
if exist "%BDSworkdir%\%%a.bak" (
ren "%BDSworkdir%\%%a.bak" "%%a.dcu"
if exist "%BDSworkdir%\%%a.bak" echo Cannot restore "%BDSworkdir%\%%a.dcu"!
)
)
for %%a in ("%BDSworkdir%\Indy*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Indy*.dcp") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Indy*.lib") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)

set BDSworkdir=%BDS%\lib\win64x\release
for %%a in (idoc,idispids) do (
if exist "%BDSworkdir%\%%a.dcu" (
ren "%BDSworkdir%\%%a.dcu" "%%a.bak"
if exist "%BDSworkdir%\%%a.dcu" echo Cannot backup "%BDSworkdir%\%%a.dcu"!
)
)
for %%a in ("%BDSworkdir%\Id*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in (idoc,idispids) do (
if exist "%BDSworkdir%\%%a.bak" (
ren "%BDSworkdir%\%%a.bak" "%%a.dcu"
if exist "%BDSworkdir%\%%a.bak" echo Cannot restore "%BDSworkdir%\%%a.dcu"!
)
)
for %%a in ("%BDSworkdir%\Indy*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Indy*.dcp") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Indy*.lib") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)

echo Removing Linux 64-bit files

set BDSworkdir=%BDS%\binlinux64
Expand Down Expand Up @@ -203,7 +242,7 @@ for %%a in ("%BDSworkdir%\Indy*.dcp") do (del "%%a") && (if not exist "%%a" echo
for %%a in ("%BDSworkdir%\Indy*.bpi") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Indy*.o") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)

echo Removing iOS 64-bit files
echo Removing iOS Device 64-bit files

set BDSworkdir=%BDS%\lib\iosDevice64\debug
for %%a in ("%BDSworkdir%\Id*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
Expand All @@ -223,6 +262,26 @@ for %%a in ("%BDSworkdir%\Indy*.dcu") do (del "%%a") && (if not exist "%%a" echo
for %%a in ("%BDSworkdir%\Indy*.dcp") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Indy*.o") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)

echo Removing iOS Simulator 64-bit files

set BDSworkdir=%BDS%\lib\iossimarm64\release
for %%a in ("%BDSworkdir%\Id*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Id*.o") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Fmx.Id*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Fmx.Id*.o") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Indy*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Indy*.dcp") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Indy*.o") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)

set BDSworkdir=%BDS%\lib\iossimarm64\debug
for %%a in ("%BDSworkdir%\Id*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Id*.o") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Fmx.Id*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Fmx.Id*.o") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Indy*.dcu") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Indy*.dcp") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)
for %%a in ("%BDSworkdir%\Indy*.o") do (del "%%a") && (if not exist "%%a" echo Deleted "%%a" >> %logfn%)

echo Removing Android 32-bit files

set BDSworkdir=%BDS%\lib\android\debug
Expand Down

0 comments on commit e67eb35

Please sign in to comment.