@echo off
REM Script de compilação para Free Pascal (FPC) no Windows

REM Caminho do compilador Free Pascal
set FPC_PATH=C:\FPC\3.2.2\bin\i386-win32
 set FPC_CFG=C:\wv\fontes\fpc.cfg

REM Verifica se o nome do projeto foi passado
if "%1"=="" (
    echo.
    echo Uso: compilar.bat nome_do_projeto
    echo Exemplo: compilar.bat atuvox
    goto :fim
)

REM Caminho do projeto
set PROJETO=%1
set FONTE_DIR=%cd%\%PROJETO%
set LOG=%FONTE_DIR%\%PROJETO%.log

REM Verifica se o arquivo .dpr existe
if not exist %FONTE_DIR%\%PROJETO%.dpr (
    echo Arquivo %PROJETO%.dpr não encontrado em %FONTE_DIR%
    goto :fim
)

REM Apaga versão antiga convertida se existir
if exist %FONTE_DIR%\%PROJETO%.pas del %FONTE_DIR%\%PROJETO%.pas

REM Compila usando FPC com modo Delphi
%FPC_PATH%\fpc.exe @%FPC_CFG% -Mdelphi -Twin32 -dRELEASE ^
  -FuC:\wv\fontes\tradutor ^
  -FuC:\wv\fontes\lianetts ^
  %FONTE_DIR%\%PROJETO%.dpr > %LOG%

REM Verifica resultado da compilação
if errorlevel 1 (
    echo.
    echo Houve erro(s) na compilação. Veja o log.
) else (
    echo.
    echo Compilado com sucesso!
)

REM Move o .exe gerado para \winvox
if exist %FONTE_DIR%\%PROJETO%.exe move /Y %FONTE_DIR%\%PROJETO%.exe C:\winvox\

REM Abre o log no Edivox
if exist %LOG% (
    start C:\winvox\edivox.exe /l %LOG%
)

:fim
