FiveTech Software tech support forums

ruben Dario wrote:Gracias.
Tu has llegado a crear la libreria de Eagle

cnavarro wrote:

ruben Dario wrote:Gracias.
Tu has llegado a crear la libreria de Eagle

Rubén, como puedes comprobar, por el texto de mi post, y la fecha del libro, yo lo usé cuando empezaba Eagle, allá por el 2004-2005, y funcionaba muy bien, pero luego he estado algunos años sin tocar este tema. Desde entonces no he vuelto a utilizar Eagle y no dispongo de la versión actual para poder ayudarte a crear la lib.
Si tengo un rato, puedo buscar en el "baúl de los recuerdos" la versión que utilizaba e intentar crear la lib con las herramientas actuales, aunque no sé lo que me encontraré.
Por el foro, suele conectarse su autor

cnavarro wrote:Si lo vas intentando, quizás pueda echarte una mano, a ver si lo conseguimos
Vete poniendo los errores que te da
Recuerdo que habia un fichero .bat para Harbour, otro para xHarbour y para C3 que llamaba a un .mak ( Eagle.mak )

Code: Select all  Expand view

MAKE Version 5.41  Copyright (c) 1987, 2014 Embarcadero Technologies, Inc.
    k:\bcc582\BIN\bcc32 -X -w -g50 -j1 -tWM -d -a8 -OS -O2 -5 -c -DHB_OS_WIN_32_USED -DHB_GUI -DHB_API_MACROS -DHB_STACK_MACROS -DHB_FM_STATISTICS_OFF -Iinclude;.\msinc;k:\Harbour\include;k:\bcc582\include /nobj source\MSCTypes.c
Embarcadero C++ 7.00 for Win32 Copyright (c) 1993-2015 Embarcadero Technologies, Inc.
source\MSCTypes.c:
Warning W8004 k:\bcc582\include\windows\sdk\Ws2tcpip.h 626: 'dwMsgLen' is assigned a value that is never used in function gai_strerrorA
Warning W8004 k:\bcc582\include\windows\sdk\Ws2tcpip.h 648: 'dwMsgLen' is assigned a value that is never used in function gai_strerrorW
Warning W8027 k:\bcc582\include\windows\sdk\wspiapi.h 159: Functions containing for are not expanded inline
Warning W8027 k:\bcc582\include\windows\sdk\wspiapi.h 277: Functions containing for are not expanded inline
Warning W8012 k:\bcc582\include\windows\sdk\wspiapi.h 275: Comparing signed and unsigned values in function WspiapiQueryDNS
Warning W8027 k:\bcc582\include\windows\sdk\wspiapi.h 355: Functions containing for are not expanded inline
Warning W8027 k:\bcc582\include\windows\sdk\wspiapi.h 421: Functions containing for are not expanded inline
Warning W8027 k:\bcc582\include\windows\sdk\wspiapi.h 464: Functions containing for are not expanded inline
Warning W8027 k:\bcc582\include\windows\sdk\wspiapi.h 570: Functions containing some if statements are not expanded inline in function WspiapiLegacyGetAddrInfo
Warning W8027 k:\bcc582\include\windows\sdk\wspiapi.h 831: Functions containing switch are not expanded inline
Warning W8012 k:\bcc582\include\windows\sdk\wspiapi.h 741: Comparing signed and unsigned values in function WspiapiLegacyGetNameInfo
Warning W8012 k:\bcc582\include\windows\sdk\wspiapi.h 747: Comparing signed and unsigned values in function WspiapiLegacyGetNameInfo
Warning W8027 k:\bcc582\include\windows\sdk\wspiapi.h 916: Functions containing for are not expanded inline
Warning W8061 k:\bcc582\include\windows\sdk\wspiapi.h 903: Initialization is only partially bracketed in function WspiapiLoad
Warning W8061 k:\bcc582\include\windows\sdk\wspiapi.h 903: Initialization is only partially bracketed in function WspiapiLoad
Warning W8061 k:\bcc582\include\windows\sdk\wspiapi.h 903: Initialization is only partially bracketed in function WspiapiLoad
Warning W8061 k:\bcc582\include\windows\sdk\wspiapi.h 908: Initialization is only partially bracketed in function WspiapiLoad
Warning W8061 k:\bcc582\include\windows\sdk\wspiapi.h 908: Initialization is only partially bracketed in function WspiapiLoad
Warning W8061 k:\bcc582\include\windows\sdk\wspiapi.h 908: Initialization is only partially bracketed in function WspiapiLoad
Warning W8027 k:\bcc582\include\windows\sdk\wspiapi.h 1006: Functions containing static variables are not expanded inline in function WspiapiGetAddrInfo
Warning W8027 k:\bcc582\include\windows\sdk\wspiapi.h 1031: Functions containing static variables are not expanded inline in function WspiapiGetNameInfo
Warning W8027 k:\bcc582\include\windows\sdk\wspiapi.h 1049: Functions containing static variables are not expanded inline in function WspiapiFreeAddrInfo
Error E2238 k:\Harbour\include\clipdefs.h 80: Multiple declaration for 'WORD'
Error E2228 k:\Harbour\include\clipdefs.h 80: Too many error or warning messages
*** 2 errors in Compile ***

** error 2 ** deleting obj\MSCTypes.obj

 

Code: Select all  Expand view

MAKE Version 5.2  Copyright (c) 1987, 2000 Borland
    k:\bcc582\BIN\bcc32 -X -w -g50 -j1 -tWM -d -a8 -OS -O2 -5 -c -DHB_OS_WIN_32_USED -DHB_GUI -DHB_API_MACROS -DHB_STACK_MACROS -DHB_FM_STATISTICS_OFF -Iinclude;.\msinc;k:\Harbour\include;k:\bcc582\include /nobj source\MSCTypes.c
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
source\msctypes.c:
Warning W8061 k:\bcc582\include\wspiapi.h 898: Initialization is only partially bracketed in function WspiapiLoad
Warning W8061 k:\bcc582\include\wspiapi.h 903: Initialization is only partially bracketed in function WspiapiLoad
Error E2238 k:\Harbour\include\clipdefs.h 80: Multiple declaration for 'WORD'
Error E2228 k:\Harbour\include\clipdefs.h 80: Too many error or warning messages
*** 2 errors in Compile ***

** error 1 ** deleting obj\MSCTypes.obj
 

Por el foro, suele conectarse su autor

Code: Select all  Expand view

//---------------------------------------------------------------------------//
// Asigna los codeblock de movimiento a un Browse

function MySetBrowse( oBrw, oDataSource )

    local lRet := .t.
    local bGoTop, bGoBottom, bSkipper
    local cClsName

    if !( ValType( oBrw ) == "O" ) .or. !( ValType( oDataSource ) == "O" )
        lRet := .f.
    else
        bGoTop := { || oDataSource:GoTop() }
        bGoBottom := { || oDataSource:GoBottom() }
        bSkipper := { | n | oDataSource:Skipper( n ) }

        cClsName := upper( oBrw:ClassName() )

        if cClsName == "TBROWSE" // El nativo de Harbour y xHarbour
            oBrw:goTopBlock := bGoTop
            oBrw:goBottomBlock := bGoBottom
            oBrw:SkipBlock := bSkipper
        elseif cClsName $ "TWBROWSE TCBROWSE TSBROWSE TGRID TXBROWSE" // Para windows
            oBrw:bGoTop := bGoTop
            oBrw:bGoBottom := bGoBottom
            oBrw:bSkip := bSkipper
            if cClsName == "TXBROWSE"
                oBrw:bBof := { || oDataSource:Bof() }
                oBrw:bEof := { || oDataSource:Eof() }
                oBrw:bBookMark :={ | n | if( n == nil, oDataSource:RecNo(), ;
                                                       oDataSource:GoTo( n ) ) }
                oBrw:bKeyNo :=  { || oDataSource:RecNo() }
                oBrw:bKeyCount := { || oDataSource:RecCount() }
                oBRw:nDataType := 4096 // DATATYPE_USER // 64  DATATYPE_MYSQL
            else
                oBrw:bLogicLen := { || oDataSource:RecCount() }
            endif
            if !( oBrw:oVScroll() == nil )
                oBrw:oVscroll():SetRange( 1, oDataSource:RecCount() )
            endif
            oBrw:Refresh()
        else
            oDataSource:oError:Say( "Browse no implementado en SetBrowse", .f. )
        endif
    endif

return( lRet )

//----------------------------------------------------------------------------//