| @echo off |
| rem *************************************************************************** |
| rem * _ _ ____ _ |
| rem * Project ___| | | | _ \| | |
| rem * / __| | | | |_) | | |
| rem * | (__| |_| | _ <| |___ |
| rem * \___|\___/|_| \_\_____| |
| rem * |
| rem * Copyright (C) 2014 - 2015, Steve Holme, <steve_holme@hotmail.com>. |
| rem * |
| rem * This software is licensed as described in the file COPYING, which |
| rem * you should have received as part of this distribution. The terms |
| rem * are also available at http://curl.haxx.se/docs/copyright.html. |
| rem * |
| rem * You may opt to use, copy, modify, merge, publish, distribute and/or sell |
| rem * copies of the Software, and permit persons to whom the Software is |
| rem * furnished to do so, under the terms of the COPYING file. |
| rem * |
| rem * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY |
| rem * KIND, either express or implied. |
| rem * |
| rem *************************************************************************** |
| |
| :begin |
| rem Check we are running on a Windows NT derived OS |
| if not "%OS%" == "Windows_NT" goto nodos |
| |
| rem Set our variables |
| setlocal |
| |
| :parseArgs |
| if "%~1" == "" goto prerequisites |
| |
| if /i "%~1" == "-?" ( |
| goto syntax |
| ) else if /i "%~1" == "-h" ( |
| goto syntax |
| ) else if /i "%~1" == "-help" ( |
| goto syntax |
| ) else ( |
| if not defined SRC_DIR ( |
| set SRC_DIR=%~1% |
| ) else ( |
| goto unknown |
| ) |
| ) |
| |
| shift & goto parseArgs |
| |
| :prerequisites |
| rem Check we have Perl installed |
| echo %PATH% | findstr /I /C:"\Perl" 1>nul |
| if errorlevel 1 ( |
| if not exist "%SystemDrive%\Perl" ( |
| if not exist "%SystemDrive%\Perl64" goto noperl |
| ) |
| ) |
| |
| :configure |
| if "%SRC_DIR%" == "" set SRC_DIR=.. |
| if not exist "%SRC_DIR%" goto nosrc |
| |
| :start |
| rem Check the src directory |
| if exist %SRC_DIR%\src ( |
| for /f "delims=" %%i in ('dir "%SRC_DIR%\src\*.c.*" /b 2^>NUL') do @perl "%SRC_DIR%\lib\checksrc.pl" "-D%SRC_DIR%\src" -Wtool_hugehelp.c "%%i" |
| for /f "delims=" %%i in ('dir "%SRC_DIR%\src\*.h.*" /b 2^>NUL') do @perl "%SRC_DIR%\lib\checksrc.pl" "-D%SRC_DIR%\src" "%%i" |
| ) |
| |
| rem Check the lib directory |
| if exist %SRC_DIR%\lib ( |
| for /f "delims=" %%i in ('dir "%SRC_DIR%\lib\*.c.*" /b 2^>NUL') do @perl "%SRC_DIR%\lib\checksrc.pl" "-D%SRC_DIR%\lib" "%%i" |
| for /f "delims=" %%i in ('dir "%SRC_DIR%\lib\*.h.*" /b 2^>NUL') do @perl "%SRC_DIR%\lib\checksrc.pl" "-D%SRC_DIR%\lib" -Wcurl_config.h.cmake "%%i" |
| ) |
| |
| rem Check the lib\vtls directory |
| if exist %SRC_DIR%\lib\vtls ( |
| for /f "delims=" %%i in ('dir "%SRC_DIR%\lib\vtls\*.c.*" /b 2^>NUL') do @perl "%SRC_DIR%\lib\checksrc.pl" "-D%SRC_DIR%\lib\vtls" "%%i" |
| for /f "delims=" %%i in ('dir "%SRC_DIR%\lib\vtls\*.h.*" /b 2^>NUL') do @perl "%SRC_DIR%\lib\checksrc.pl" "-D%SRC_DIR%\lib\vtls" "%%i" |
| ) |
| |
| goto success |
| |
| :syntax |
| rem Display the help |
| echo. |
| echo Usage: checksrc [directory] |
| echo. |
| echo directory - Specifies the curl source directory |
| goto success |
| |
| :unknown |
| echo. |
| echo Error: Unknown argument '%1' |
| goto error |
| |
| :nodos |
| echo. |
| echo Error: Only a Windows NT based Operating System is supported |
| goto error |
| |
| :noperl |
| echo. |
| echo Error: Perl is not installed |
| goto error |
| |
| :nosrc |
| echo. |
| echo Error: "%SRC_DIR%" does not exist |
| goto error |
| |
| :error |
| if "%OS%" == "Windows_NT" endlocal |
| exit /B 1 |
| |
| :success |
| endlocal |
| exit /B 0 |