1. Forum
  2. Usenet
  3. COMP.LANG.XHARBOUR

  • Batch file for compiling xHarbour program 64 bit

    From reinaldohf@gmail.com@21:1/5 to All on Fri Mar 31 20:40:31 2023
    /* -------------------------------------------------------------------------------------------------------*/
    @ ECHO OFF
    SET BCC=C:\BORLAND\BCC7364
    SET XHB=c:\xhb64bit\xharbour
    SET HARBOURCMD=-a -es2 -gc0 -n -q -w0

    IF EXIST %1.prg %XHB%\bin\harbour %1 %HARBOURCMD% -i%XHB%\include
    IF EXIST %1.c %BCC%\bin\bcc64 -c -I%XHB%\include %1.c
    IF EXIST %1.o %BCC%\bin\ilink64 -L%BCC%\lib;%XHB%\lib -Gn -M -m -s -Tpe -x -ap c0x64 %1.o, %1.exe,,%XHB%\LIB\lang.a %XHB%\LIB\vm.a %XHB%\LIB\rtl.a %XHB%\LIB\rdd.a %XHB%\LIB\macro.a %XHB%\LIB\pp.a %XHB%\LIB\dbfntx.a %XHB%\LIB\dbfcdx.a %XHB%\LIB\dbffpt.a %
    XHB%\LIB\common.a %XHB%\LIB\gtwin.a %XHB%\LIB\codepage.a %XHB%\LIB\ct.a %XHB%\LIB\tip.a %XHB%\LIB\pcrepos.a %XHB%\LIB\hsx.a %XHB%\LIB\hbsix.a %XHB%\LIB\zlib.a import64.a cw64.a, ,

    IF ERRORLEVEL 1 GOTO Pause

    IF EXIST %1.c DEL %1.c
    IF EXIST %1.o DEL %1.o
    IF ERRORLEVEL 1 GOTO Pause
    IF NOT EXIST %1.exe GOTO Pause

    echo.
    %1.exe

    GOTO end

    :Pause
    ECHO ERROR
    PAUSE

    :end
    echo.
    /* -------------------------------------------------------------------------------------------------------*/

    Reynaldo Henrique

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)