119 строки
3.4 KiB
Batchfile
119 строки
3.4 KiB
Batchfile
@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
|