117 lines
2.9 KiB
Batchfile
117 lines
2.9 KiB
Batchfile
@if "%_echo%" == "" echo off
|
|
|
|
setlocal
|
|
setlocal ENABLEEXTENSIONS
|
|
setlocal ENABLEDELAYEDEXPANSION
|
|
|
|
rem Do Args
|
|
|
|
set Build=Invalid
|
|
set Log=con:
|
|
set DoIt=FALSE
|
|
set Source=Invalid
|
|
set FileList=%tmp%\FileDiffList
|
|
set ImportList=%tmp%\ImportDiffList
|
|
|
|
:ArgsLoop
|
|
|
|
if "%1" == "" goto ArgsDone
|
|
|
|
if "%1" == "-build" set Build=%2&& shift&& shift&& goto ArgsLoop
|
|
if "%1" == "-log" set Log=%2&& shift&& shift&& goto ArgsLoop
|
|
if "%1" == "-doit" set DoIt=TRUE&& shift&& goto ArgsLoop
|
|
if "%1" == "-source" set Source=%2&& shift&& shift&& goto ArgsLoop
|
|
|
|
goto Usage
|
|
|
|
:ArgsDone
|
|
|
|
if %Source% == Invalid goto DefaultSource
|
|
goto CompFileLoop
|
|
|
|
:DefaultSource
|
|
if %Build% == Invalid goto Usage
|
|
set SourceBase=\\tdsrc\SRC%Build%
|
|
set Source=%SourceBase%\ese
|
|
goto CompFileLoop
|
|
|
|
|
|
:CompFileLoop
|
|
set SourcePath=%Source%
|
|
set DestPath=%CD%
|
|
del /f %FileList% >nul: 2>&1
|
|
del /f %ImportList% >nul: 2>&1
|
|
del %LogFile% >nul: 2>&1
|
|
|
|
|
|
|
|
for /D %%i in (%SourcePath%\*) do call :DirComp %SourcePath% . %%i
|
|
|
|
rem
|
|
rem a special path for the imported header files
|
|
rem
|
|
|
|
for %%i in (%DestPath%\eximport\*) do (
|
|
set FullFile=%%~i
|
|
set RelFile=!FullFile:%DestPath%\eximport\=!
|
|
rem echo calling 'diff -b "!FullFile!" "%SourceBase%\exc\inc\!RelFile!"'>>%Log%
|
|
diff -b "!FullFile!" "%SourceBase%\exc\inc\!RelFile!" >nul: 2>&1
|
|
if !ERRORLEVEL! == 1 echo !RelFile!>>%ImportList%
|
|
)
|
|
|
|
if exist %FileList% goto ProcessFile
|
|
if exist %ImportList% goto ProcessFile
|
|
echo No differing files in common
|
|
goto :EOF
|
|
|
|
:ProcessFile
|
|
if %DoIt% == TRUE goto CopyFiles
|
|
echo DoIt flag not specified, files not copied
|
|
goto :EOF
|
|
|
|
:CopyFiles
|
|
if not exist %FileList% goto CopyImports
|
|
for /f %%F in (%FileList%) do (
|
|
sd open %DestPath%\%%F
|
|
copy /y %DestPath%\%%F %DestPath%\%%F.prev
|
|
copy /y %SourcePath%\%%F %DestPath%\%%F
|
|
)
|
|
|
|
if not exist %ImportList% goto DoneCopy
|
|
for /f %%F in (%ImportList%) do (
|
|
sd open %DestPath%\eximport\%%F
|
|
copy /y %DestPath%\eximport\%%F %DestPath%\eximport\%%F.prev
|
|
copy /y %SourceBase%\exc\inc\%%F %DestPath%\eximport\%%F
|
|
)
|
|
|
|
:DoneCopy
|
|
goto :EOF
|
|
|
|
|
|
|
|
:Usage
|
|
echo tdcopy [-build build] [-log logfile] [-doit] [-source sourcepath]
|
|
goto :EOF
|
|
|
|
|
|
:DirComp
|
|
rem on entry, %1 is the source root, %2 is the dest root, %3 is the full path
|
|
|
|
set SourceRoot=%1
|
|
set DestRoot=%2
|
|
set SourceFileFull=%3
|
|
set SourceFileRel=!SourceFileFull:%SourceRoot%\=!
|
|
echo Processing %SourceFileRel%>>%Log%
|
|
|
|
for %%F in (%SourceFileFull%\*) do (
|
|
set FullFile=%%~fF
|
|
set RelFile=!FullFile:%SourceRoot%\=!
|
|
rem echo calling 'diff -b "!FullFile!" "%DestRoot%\!RelFile!">>%Log%
|
|
diff -b "!FullFile!" "%DestRoot%\!RelFile!" >nul: 2>&1
|
|
if !ERRORLEVEL! == 1 echo !RelFile!>> %FileList%
|
|
)
|
|
|
|
for /D %%D in (%SourceFileFull%\*) do call :DirComp %SourceRoot% %DestRoot% %%D
|
|
|
|
goto :EOF
|