Crear librerias de Harbour BCC74 Me genera error

[ruben Dario]

Gracias Enrico
No ha sido posible descargarlo, he desabiliado el Antivirus, genera este error
te agradeseria que me lo enviaras empaquetado al correo rubendariogd@hotmail.com
¡Lo sentimos! Ha habido un problema con la transferencia de archivos
Security error when calling GetDirectory

It has not been possible to download it, I have desabiliado the Antivirus, generates this error
would be grateful if you would send it to me packaged to the email rubendariogd-hotmail.com
Sorry! There was a problem with transferring
files security error when calling GetDirectory

[Enrico Maria Giordano]

Done.

[ruben Dario]

Muchas gracias Enrrico
Funciono

Saludos

[sygecom]

Here it is:

https://wormhole.app/Yx3Km#8rzfLimdrtHNVssygTChQA

Please, can you share your HRBFIX again?
I'm trying to use HBMK2 to compile xHarbour projects.

[Enrico Maria Giordano]

Here it is, but please note that it lasts 24 hours;

https://wormhole.app/Z9oQ1#LYUwPmrm938BEt1Oe1Cr2w

[Antonio Linares]

Dear Enrico,

Here it is so it will last. How to use it to have hbmk2.exe working with xHarbour ? thanks

hrbfix.prg

Code: Select all  Expand view

#include "Directry.ch"

#define NTRIM( nNumber ) LTrim( Str( nNumber ) )

#define LF Chr( 10 )


FUNCTION MAIN()

    LOCAL cTxt, aDir

    LOCAL i

    cTxt = MEMOREAD( "contrib\hbcurl\hbcurl.hbp" )

    cTxt = STRTRAN( cTxt, "libcurl-4.dll", "libcurl-x64.dll" )

    MEMOWRIT( "contrib\hbcurl\hbcurl.hbp", cTxt, .F. )

    cTxt = MEMOREAD( "config\win\bcc.mk" )

    cTxt = STRTRAN( cTxt, " -CP437", "" )
    cTxt = STRTRAN( cTxt, "-w-aus -w-ccc -w-csu -w-ovf -w-par -w-rch -w-spa", "" )
    cTxt = STRTRAN( cTxt, " -OS -Ov -Oc", "" )
    cTxt = STRTRAN( cTxt, " -w-sig", "" )
    cTxt = STRTRAN( cTxt, "c0x64.obj", "c0x64.o" )

    MEMOWRIT( "config\win\bcc.mk", cTxt, .F. )

    cTxt = MEMOREAD( "src\compiler\hbgenerr.c" )

    cTxt = STRTRAN( cTxt, "2Codeblock parameter", "4Codeblock parameter" )

    MEMOWRIT( "src\compiler\hbgenerr.c", cTxt, .F. )

    aDir = DIRECTORY( "src\codepage\*.*" )

    FOR i = 1 TO LEN( aDir )
        cTxt = MEMOREAD( "src\codepage\" + aDir[ i, F_NAME ] )

        cTxt = TOOCTAL( cTxt )

        IF cTxt != NIL
            MEMOWRIT( "src\codepage\" + aDir[ i, F_NAME ], cTxt, .F. )
        ENDIF
    NEXT

    aDir = DIRECTORY( "src\lang\*.*" )

    FOR i = 1 TO LEN( aDir )
        cTxt = MEMOREAD( "src\lang\" + aDir[ i, F_NAME ] )

        cTxt = TOOCTAL( cTxt )

        IF cTxt != NIL
            MEMOWRIT( "src\lang\" + aDir[ i, F_NAME ], cTxt, .F. )
        ENDIF
    NEXT

    cTxt = MEMOREAD( "utils\hbmk2\hbmk2.prg" )

    cTxt = STRTRAN( cTxt, " -CP437", "" )
    cTxt = STRTRAN( cTxt, "-w-sig -w-aus -w-ccc -w-csu -w-ovf -w-par -w-rch -w-spa -w-sus -w-pia", "" )
    cTxt = STRTRAN( cTxt, ["-n" + ], 'IF( hbmk[ _HBMK_cCOMP ] == "bcc64", "-output-dir", "-n" ) + ' )
    cTxt = STRTRAN( cTxt, [ -OS -Ov -Oc"], ["] )
    cTxt = STRTRAN( cTxt, " -w-sig", "" )
    cTxt = STRTRAN( cTxt, "c0x64.obj", "c0x64.o" )
    cTxt = STRTRAN( cTxt, "cw64mt.lib", "cw64mt.a" )
    cTxt = STRTRAN( cTxt, "import64.lib", "import64.a" )
    cTxt = STRTRAN( cTxt, [         cLibPathPrefix := ""], 'IF hbmk[ _HBMK_cCOMP ] == "bcc64"' + LF + [bBlk_ImpLib := {| cSourceDLL, cTargetLib, cFlags | win_implib_command_bcc( hbmk, "mkexp.exe {FI} {OL} {ID}", cSourceDLL, cTargetLib, cFlags ) }] + LF + "ENDIF" + LF + [         cLibPathPrefix := ""] )

    MEMOWRIT( "utils\hbmk2\hbmk2.prg", cTxt, .F. )

    RETURN NIL


STATIC FUNCTION TOOCTAL( cTxt )

    LOCAL cRes := ""

    LOCAL nVal, cVal

    LOCAL lUtf := .F.

    LOCAL i

    FOR i = 1 TO LEN( cTxt )
        IF ASC( SUBSTR( cTxt, i, 1 ) ) <= 127
            cRes += SUBSTR( cTxt, i, 1 )
        ELSE
            nVal = ASC( SUBSTR( cTxt, i, 1 ) )

            cVal = ""

            WHILE nVal / 8 > 0
                cVal = NTRIM( INT( nVal % 8 ) ) + cVal
                nVal = INT( nVal / 8 )
            ENDDO

            cRes += "\" + cVal

            lUtf = .T.
        ENDIF
    NEXT

    RETURN IF( lUtf, cRes, NIL )

[Enrico Maria Giordano]

Thank you. Just compile and run it and then build Harbour.

[sygecom]

I still have some errors when compiling Harbor 3.2 (latest git commit) with BCC 7.70 - 64bits, even running hrbfix.exe

The following error follows:

Code: Select all  Expand view

ilink64.exe  -L"..\..\..\..\..\lib\win\bcc64" -Gn -Tpe  -LD:\devel\bcc77_64\LIB -Ld:\devel\harbour_bcc77_64\lib\win\bcc64  c0x64.o hbpp.o, "..\..\..\..\..\bin\win\bcc64\hbpp.exe", nul, hbnortl hbcommon winmm kernel32 user32 ws2_32 iphlpapi advapi32 gdi32 cw64mt import64,,
Turbo Incremental Link64 6.98 Copyright (c) 1997-2023 Embarcadero Technologies, Inc.
Fatal: Expected an option: Gn
../../../../../config/rules.mk:142: recipe for target 'hbpp.exe' failed
win-make.exe[3]: *** [hbpp.exe] Error 2
rm hbpp.o
../../config/lib.mk:68: recipe for target 'descend' failed
win-make.exe[2]: *** [descend] Error 2
../config/dir.mk:68: recipe for target 'pp.inst' failed
win-make.exe[1]: *** [pp.inst] Error 2
config/dir.mk:68: recipe for target 'src.inst' failed
win-make.exe: *** [src.inst] Error 2

Here is my compilation PATH:

Code: Select all  Expand view

SET PATH=d:\devel\bcc77_64\BIN
SET HB_INSTALL_PREFIX=d:\devel\harbour_bcc77_64
REM SET HB_WITH_PCRE=D:\devel\pcre
SET HB_WITH_CURL=D:\devel\curl-8.6.0_1-win64-mingw\include
SET HB_WITH_PGSQL=D:\pg13\include
SET HB_WITH_FREEIMAGE=D:\devel\FreeImage\Dist\x64
SET HB_WITH_GD=D:\devel\gd-2.3.3_64bits\include
REM SET HB_WITH_ZLIB=D:\devel\zlib
SET HB_WITH_MINIZIP=D:\devel\zlib\contrib\minizip
SET HB_WITH_OPENSSL=D:\devel\OpenSSLWin64\include
REM SET HB_WITH_PNG=d:\devel\libpng-1.6.40
SET HB_WITH_LIBHARU=D:\devel\libharu-2-4-4-0\include
SET HB_STATIC_CURL=yes
SET HB_BUILD_VERBOSE=yes
SET HB_BUILD_DYN=yes
SET HB_BUILD_CONTRIB_DYN=yes
SET HB_COMPILER=bcc64
SET HB_CPU=x86_64
SET HB_BUILD_MODE=c
SET HB_USER_PRGFLAGS=-l-
SET HB_BUILD_OPTIM=no
SET HB_USER_CFLAGS=-O2
SET HB_USER_RESFLAGS=-ID:\devel\bcc77_64\include\windows\sdk\
REM SET HB_TRACE=yes
SET HB_USER_LDFLAGS=-LD:\devel\bcc77_64\LIB -Ld:\devel\harbour_bcc77_64\lib\win\bcc64
REM SET HB_USER_LIBS=-LD:\devel\bcc77_64\LIB xmath

SET INCLUDE=%INCLUDE%;d:\devel\harbour_bcc77_64\include;d:\devel\bcc77_64\include;d:\devel\bcc77_64\include\sys
SET LIB=%LIB%;d:\devel\bcc77_64\lib;d:\devel\harbour_bcc77_64\lib
SET HB_PATH=d:\devel\harbour_bcc77_64
SET HRB_DIR=d:\devel\harbour_bcc77_64
SET HB_INC_PGSQL=d:\pg13\include
 

If anyone has any tips or help, it's welcome.

[Antonio Linares]

You may use this one, already built:

https://github.com/FiveTechSoft/harbour_and_xharbour_builds/blob/master/harbour_bcc770_64_20240210.zip

[Enrico Maria Giordano]

No, it is not updated with all the required LIBs and DLLs. I can create new updated builds if you want. Please confirm.

[Enrico Maria Giordano]

Here they are:

https://github.com/FiveTechSoft/harbour_and_xharbour_builds/blob/master/harbour_bcc770_32_20240326.zip
https://github.com/FiveTechSoft/harbour_and_xharbour_builds/blob/master/harbour_bcc770_64_20240326.zip

[sygecom]

Thank you very much.
Curious, how did you compile it?

[Enrico Maria Giordano]

It is still a problem to fix inside hbmk2.prg. I'm updating my hrbfix. Anyway, this is the batch I'm using to build Harbour:

Code: Select all  Expand view

@ ECHO OFF

SET BCC=*** PUT YOUR BCC PATH HERE! ***

SET PATH=%BCC%\bin
SET HB_INSTALL_PREFIX=%cd%\harbour

SET HB_USER_LDFLAGS=-ap

SET HB_WITH_CURL=e:\hrbbld\curl\x86\include
SET HB_STATIC_CURL=yes

SET HB_WITH_OPENSSL=e:\hrbbld\openssl\x86\include
SET HB_WITH_ADS=e:\hrbbld\ads\x86
SET HB_WITH_MYSQL=e:\hrbbld\mysql\include

SET HB_BUILD_DYN=no
SET HB_BUILD_CONTRIB_DYN=no

IF EXIST lib\3rd\win\bcc REN lib\3rd\win\bcc bccx

win-make clean install HB_USER_CFLAGS="-w!-"

IF EXIST lib\3rd\win\bccx REN lib\3rd\win\bccx bcc

PAUSE

[sygecom]

Understood and thank you very much.