87 строки
2.9 KiB
Batchfile
87 строки
2.9 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
|
|
setlocal
|
|
|
|
rem Display the help
|
|
if /i "%~1" == "-?" goto syntax
|
|
if /i "%~1" == "-h" goto syntax
|
|
if /i "%~1" == "-help" goto syntax
|
|
|
|
: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 "%1" == "" set SRC_DIR=..
|
|
if not "%1" == "" set SRC_DIR=%~1%
|
|
if not exist "%SRC_DIR%" goto nosrc
|
|
|
|
:start
|
|
for /f "delims=" %%i in ('dir %SRC_DIR%\src\*.c.* /b') 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') do @perl %SRC_DIR%\lib\checksrc.pl -D%SRC_DIR%\src "%%i"
|
|
for /f "delims=" %%i in ('dir %SRC_DIR%\lib\*.c.* /b') do @perl %SRC_DIR%\lib\checksrc.pl -D%SRC_DIR%\lib "%%i"
|
|
for /f "delims=" %%i in ('dir %SRC_DIR%\lib\*.h.* /b') do @perl %SRC_DIR%\lib\checksrc.pl -D%SRC_DIR%\lib -Wcurl_config.h.cmake "%%i"
|
|
for /f "delims=" %%i in ('dir %SRC_DIR%\lib\vtls\*.c.* /b') 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') 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
|
|
|
|
: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
|