Borland 64 bits makefile for FWH 64

[Antonio Linares]

This is buildx64.bat

buildx64.bat

Code: Select all  Expand view  RUN

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin 17.03 for xHarbour 64 bits - Mar. 2017  Harbour development power  ³Ü
ECHO ³ (c) FiveTech 1993-2017 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

if "%FWDIR%" == "" set FWDIR=.\..
if "%HBDIR%" == "" set HBDIR=c:\xharbour64
rem if "%2" == "/b" set GT=gtwin
rem if not "%2" == "/b" set GT=gtgui
set GT=gtgui
ECHO Compiling...

set hdir=%HBDIR%
set hdirl=%hdir%\lib
set fwh=%FWDIR%
set bcdir=c:\bcc7164

echo %hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /w /p %2 %3
%hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /w /p %2 %3 > comp.log 2> warnings.log
if errorlevel 1 goto COMPILEERROR
@type comp.log
@type warnings.log

echo -O2 -e%1.exe -I%hdir%\include -I%bcdir%\include %1.c > b64.bc
%bcdir%\bin\bcc64 -c -I%hdir%\include -I%bcdir%\include\windows\sdk -I%bcdir%\include\windows\crtl -o%1.obj %1.c
:ENDCOMPILE

if EXIST %1.rc %bcdir%\bin\brc32 -r -D__64__ -I%bcdir%\include -I%bcdir%\include\windows\sdk %1

echo %bcdir%\lib\c0w64.o + > b64.bc
echo %1.obj, + >> b64.bc
echo %1.exe, + >> b64.bc
echo %1.map, + >> b64.bc

echo %fwh%\lib\Fivehx64.a %fwh%\lib\FiveC64.a %fwh%\lib\libmariadb64.a + >> b64.bc

echo %hdirl%\rtl.a + >> b64.bc
echo %hdirl%\gtgui.a + >> b64.bc
echo %hdirl%\vm.a + >> b64.bc
echo %hdirl%\lang.a + >> b64.bc
echo %hdirl%\macro.a + >> b64.bc
echo %hdirl%\rdd.a + >> b64.bc
echo %hdirl%\dbfntx.a + >> b64.bc
echo %hdirl%\dbfcdx.a + >> b64.bc
echo %hdirl%\dbffpt.a + >> b64.bc
echo %hdirl%\sixapi.a + >> b64.bc
echo %hdirl%\debug.a + >> b64.bc
echo %hdirl%\common.a + >> b64.bc
echo %hdirl%\pp.a + >> b64.bc
echo %hdirl%\codepage.a + >> b64.bc
echo %hdirl%\ct.a + >> b64.bc
echo %hdirl%\zlib.a + >> b64.bc
echo %hdirl%\png.a + >> b64.bc
echo %hdirl%\tip.a + >> b64.bc
echo %hdirl%\rdd.a + >> b64.bc
echo %hdirl%\hbsix.a + >> b64.bc
echo %hdirl%\pcrepos.a + >> b64.bc
echo %hdirl%\hbmzip.a + >> b64.bc

echo %bcdir%\lib\cw64.a + >> b64.bc
echo %bcdir%\lib\psdk\kernel32.a + >> b64.bc
echo %bcdir%\lib\psdk\user32.a + >> b64.bc
echo %bcdir%\lib\psdk\iphlpapi.a + >> b64.bc
echo %bcdir%\lib\import64.a, >> b64.bc

if EXIST %1.res echo %1.res >> b64.bc
if %GT% == gtwin %bcdir%\bin\ilink64 -Gn -Tpe -s @b64.bc
if ERRORLEVEL 1 GOTO LINKERROR
if %GT% == gtgui %bcdir%\bin\ilink64 -Gn -aa -Tpe -s @b64.bc
if ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built *
rem signtool.exe sign /fd sha256 %1.exe
%1
GOTO EXIT
ECHO

:COMPILEERROR
@type comp.log
@type warnings.log
ECHO * Compiling errors *
GOTO EXIT

:LINKERROR
ECHO * Linking errors *
GOTO EXIT

:SINTAX
ECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG
ECHO                                {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist

:EXIT

[Antonio Linares]

[Mulyadi]

Mr Antonio,

I use OS windows 10 64 bit,
This example just adopted at the top i built for 32 bit xharbour version.
But i found error like this :

clinica.res(1):'Invalid character in .DEF file'
Fatal: Error processing .DEF file

go.bat :

Code: Select all  Expand view  RUN

if not exist ob md obj
d:\compiler\x32\bcc70\bin\make -ftest.mak

test.mak :

Code: Select all  Expand view  RUN

#
# (c) FiveTech 1993-2017 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10
#

XHDIR=d:\compiler\x32\xhb70
BCDIR=d:\compiler\x32\bcc70
FWDIR=d:\compiler\x32\fwh1703

.path.OBJ = .\obj
.path.PRG = .\
.path.CH  = $(FWDIR)\include;$(XHDIR)\include
.path.C   = .\
.path.rc  = .\

PRG = \
clinica.prg \
another.prg


PROJECT : test.exe

test.exe  : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) clinica.res
   echo off
   echo $(BCDIR)\lib\c0w32.obj + > b32.bc
   echo obj\clinica.obj \
    obj\another.obj, + >> b32.bc

  echo test.exe, + >> b32.bc
  echo test.map, + >> b32.bc

  echo $(FWDIR)\lib\Fivehx.lib + >> b32.bc
  echo $(FWDIR)\lib\FiveHC.lib + >> b32.bc
  echo $(FWDIR)\lib\libmysql.lib + >> b32.bc
 
  echo $(XHDIR)\lib\rtl.lib + >> b32.bc
  echo $(XHDIR)\lib\vm.lib + >> b32.bc
  echo $(XHDIR)\lib\gtgui.lib + >> b32.bc
  echo $(XHDIR)\lib\lang.lib + >> b32.bc
  echo $(XHDIR)\lib\macro.lib + >> b32.bc
  echo $(XHDIR)\lib\rdd.lib + >> b32.bc
  echo $(XHDIR)\lib\dbfntx.lib + >> b32.bc
  echo $(XHDIR)\lib\dbfcdx.lib + >> b32.bc
  echo $(XHDIR)\lib\dbffpt.lib + >> b32.bc
  echo $(XHDIR)\lib\hbsix.lib + >> b32.bc
  echo $(XHDIR)\lib\debug.lib + >> b32.bc
  echo $(XHDIR)\lib\common.lib + >> b32.bc
  echo $(XHDIR)\lib\codepage.lib + >> b32.bc
  echo $(XHDIR)\lib\pp.lib + >> b32.bc
  echo $(XHDIR)\lib\pcrepos.lib + >> b32.bc
  echo $(XHDIR)\lib\ct.lib + >> b32.bc
  echo $(XHDIR)\lib\zlib.lib + >> b32.bc
  echo $(XHDIR)\lib\hbzip.lib + >> b32.bc
  echo $(XHDIR)\lib\libmisc.lib + >> b32.bc
  echo $(XHDIR)\lib\tip.lib + >> b32.bc

  echo $(BCDIR)\lib\cw32.lib + >> b32.bc
  echo $(BCDIR)\lib\import32.lib + >> b32.bc
  echo $(BCDIR)\lib\uuid.lib + >> b32.bc
  echo $(BCDIR)\lib\ws2_32.lib + >> b32.bc

  echo $(BCDIR)\lib\psdk\odbc32.lib + >> b32.bc
  echo $(BCDIR)\lib\psdk\rasapi32.lib + >> b32.bc
  echo $(BCDIR)\lib\psdk\nddeapi.lib + >> b32.bc
  echo $(BCDIR)\lib\psdk\msimg32.lib + >> b32.bc
  echo $(BCDIR)\lib\psdk\psapi.lib + >> b32.bc
  echo $(BCDIR)\lib\psdk\gdiplus.lib + >> b32.bc
  echo $(BCDIR)\lib\psdk\iphlpapi.lib + >> b32.bc
  echo $(BCDIR)\lib\psdk\shell32.lib, + >> b32.bc

  IF EXIST clinica.res echo clinica.res >> b32.bc
#  $(BCDIR)\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
  $(BCDIR)\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc
     
  if ERRORLEVEL 0 test.exe
#  del b32.bc

.PRG.OBJ:
  $(XHDIR)\bin\harbour $< /L /N /W /Oobj\ /I$(FWDIR)\include;$(XHDIR)\include > warning.log
  $(BCDIR)\bin\bcc32 -c -tWM -I$(XHDIR)\include -oobj\$& obj\$&.c

.C.OBJ:
  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS > tmp
  echo -I$(XHDIR)\include;$(FWDIR)\include >> tmp
  $(BCDIR)\bin\bcc32 -oobj\$& @tmp $&.c
  del tmp

clinica.res : clinica.rc
#  $(BCDIR)\bin\brc32.exe -r clinica.rc
 $(BCDIR)\bin\brc32.exe -r -I$(BCDIR)\include  clinica.rc
 

clinica.prg :

Code: Select all  Expand view  RUN

    #include "FiveWin.ch"

    function Main()

       local oWnd
       
       DEFINE WINDOW oWnd
       
       Test()
       
       ACTIVATE WINDOW oWnd

    return nil
 

another.prg

Code: Select all  Expand view  RUN

    #include "FiveWin.ch"

    function Test()

       MsgInfo( "ok" )

    return nil
 

clinica.rc :

Code: Select all  Expand view  RUN

open  BITMAP "d:\compiler\x32\fwh1703\bitmaps\16x16\open.bmp"
 

Please to be fixed script i wrote in a file test.mak

Thanks

Mulyadi

[Antonio Linares]

Mulyadi,

Please modify this line this way:

IF EXIST clinica.res echo ,clinica.res >> b32.bc

and also change this line this way:

test.exe : $(PRG:.prg=.obj) $(C:.c=.obj) clinica.res

Please notice the use of lowercase

[Mulyadi]

Mr Antonio,

Adaptation my problem version 32 bits have reduced and thanks.

Specific to the issue of building apps 64 bits with the xharbour,
There are obstacles, example not all files exe can on the run,
on the occasion of the next may I will ask you.

Best regards

Mulyadi

[Antonio Linares]

Mulyadi,

Whatever issue may appear please let us know it, many thanks

[Mulyadi]

Mr Antonio, Specifically to xharbour course.

Just a sample little from \samples folder, i try to build file xbrttl.prg or xbrxls.prg
and I found the results the program did not can displayed.

If only example a simple small such as this:

Code: Select all  Expand view  RUN

// test xharbour 64-bits

#include "fivewin.ch"
#include "xbrowse.ch"


function main()
    msginfo("Hello world")  // run oke
    dialog1()               // run oke
    dialog2()               // unworkable
   
return nil

function hb_getfilesinzip()
return nil

function hb_unzipfile()
return nil

function dialog1()
    local oDlg, oFont
    DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
  DEFINE DIALOG oDlg SIZE 700,500 PIXEL FONT oFont
    ACTIVATE DIALOG oDlg CENTERED
    RELEASE FONT oFont
return nil

//
// just add from xbrxls.prg
//
function dialog2()

   local oWnd, oBrw, oBar, oFont
   local oRange,  u

   SET DATE ITALIAN
   SET CENTURY ON

   fwNumFormat( 'E', .t. )

   msgRun( "Reading from Excel File",  "PLEASE WAIT", { || ;
   oRange   := GetExcelRange( ExePath() + "xbrtest.xls", "CUSTOMERS", "A1:E12" ) ;
   } )

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12
   DEFINE WINDOW oWnd TITLE "XBrowse Excel Sheet: FWH 11.07"
   oWnd:SetFont( oFont )
   DEFINE BUTTONBAR oBar OF oWnd 2007
   SET MESSAGE OF oWnd TO '' 2007

   @ 0,0 XBROWSE oBrw OF oWnd AUTOCOLS ;
      PICTURES nil, nil, nil, 'dd-mmm-yyyy', NumPict( 12,2 ) ;
      DATASOURCE oRange CELL LINES FOOTERS

   oBrw:Sales:bFooter   := { || oRange:Application:WorkSheetFunction:Sum(oRange:Columns(5)) }
   oBrw:nStretchCol     := 1
   oBrw:CreateFromCode()
   oWnd:oClient   := oBrw

   ACTIVATE WINDOW oWnd
   RELEASE FONT oFont
   oRange:WorkSheet:Parent:Close()

return nil

function ExePath()
return cFilePath( GetModuleFileName() )
 

In the short run i have to adaptation with harbor that is not why, because my projects also not to be finished on this time,
I hope team xharbour can evaluate specifically to 64 bit platform, the progress of us together.

Best Regards

Mulyadi

[nageswaragunupudi]

This works if built in fwh\samples folder
Or ensure existence of the file xbrtest.xls in the exepath

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#include "xbrowse.ch"

function Main()

   local oWnd, oBrw, oBar, oFont
   local oRange,  u

   SET DATE ITALIAN
   SET CENTURY ON

   fwNumFormat( 'E', .t. )

   msgRun( "Reading from Excel File",  "PLEASE WAIT", { || ;
   oRange   := GetExcelRange( ExePath() + "xbrtest.xls", "Customers", "A1:E12" ) ;
   } )

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12
   DEFINE WINDOW oWnd TITLE "XBrowse Excel Sheet: FWH 11.07"
   oWnd:SetFont( oFont )
   DEFINE BUTTONBAR oBar OF oWnd 2007
   SET MESSAGE OF oWnd TO '' 2007

   @ 0,0 XBROWSE oBrw OF oWnd AUTOCOLS ;
      PICTURES nil, nil, nil, 'dd-mmm-yyyy', NumPict( 12,2 ) ;
      DATASOURCE oRange CELL LINES FOOTERS

   oBrw:Sales:bFooter   := { || oRange:Application:WorkSheetFunction:Sum(oRange:Columns(5)) }
   oBrw:nStretchCol     := 1
   oBrw:CreateFromCode()
   oWnd:oClient   := oBrw

   ACTIVATE WINDOW oWnd
   RELEASE FONT oFont
   oRange:WorkSheet:Parent:Close()

return nil

function ExePath()
return cFilePath( GetModuleFileName() )

function hb_getfilesinzip()
return nil

function hb_unzipfile()
return nil
 

Tested on Windows 10 and Office 365

[Mulyadi]

Mr Nages,

Thank you for reply.
Now i concentrate build an 64 bits, migration all application of old written in fwh 1307 32 bits with compiler xharbour.

Code examples of you at the top was successfully run if in compile use Harbour and xHarbour,
but if in a complex code, it cannot be run although only copy paste.

I did try to many examples code, focus to built in 64 bits platform.
If i compile with harbor it does not matter, but if in compile use xharbour sometimes it cannot be run.

xbsubtot.prg this code from samples folder, If i compile with Harbour can be , but if in compile using xHarbour it cannot be run.

Code: Select all  Expand view  RUN

/*
* Inserting Subtotals
* Automatically recalculated
* When individual items are edited
*
*/

#include "fivewin.ch"

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

function Main()

   local aData, n
   local aHead

   FWNumFormat( 'A', .t. )

   /*
      This works only with Arrays. We are using test data aData
      Instead it can be any Array of real Data. Conditions are that
      a) First column should be serial number
      b) second column should be some description
      Other columns can be of any datatype
   */

   aData    := {}
   for n := 1 to 10
      AAdd( aData, { n, "Item-" + StrZero( n, 2 ), ;
         HB_RandomInt( 1, 999 ), HB_RandomInt( 1, 9999 ), ;
         Space( 5 ), ;
         HB_RandomInt( 1, 9999 ) } )
   next

   /*
      Call function BrowseWithSubTotals( aData, [aHead], [aSumCols] )
      Optionally we can provide an array of column headers in the 2nd param
      Optionally we can specify which columns are to be sub-totalled and totalled.
      If ommitted all numeric columns are totalled.
   */

   BrowseWithSubTotals( aData ) //, aHead, { 3, 4, 6 } )

return nil

function hb_getfilesinzip()
return nil

function hb_unzipfile()
return nil

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

function BrowseWithSubTotals( aData, aHead, aSumCols )

   local oDlg, oBrw, oFont
   local nCol

   if Empty( aSumCols )
      aSumCols := {}
      AEval( aData[ 1 ], { |u,i| If( ValType( u ) == 'N', AAdd( aSumCols, i ), nil ) }, 3 )
   endif

   DEFAULT aHead := { "SlNo", "Item" }

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 700,500 PIXEL FONT oFont

   @ 30,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
      DATASOURCE aData ;
      AUTOCOLS HEADERS aHead ;
      COLSIZES 40 ;
      CELL LINES FOOTERS NOBORDER FASTEDIT

   for Each nCol in aSumCols
      if ValType( aData[ 1, nCol ] ) == 'N'
         WITH OBJECT oBrw:aCols[ nCol ]
            :bEditValue    := { |x,o| If( x == nil .or. ValType( oBrw:aRow[ o:nArrayCol ] ) == 'B', ;
                                     XEval( oBrw:aRow[ o:nArrayCol ] ), ;
                                     oBrw:aRow[ o:nArrayCol ] := x ) }

            :nEditType     := EDIT_GET
            :cEditPicture  := NumPict( 10, 2 )
            :bEditWhen     := { || ! IsTotalRow(  oBrw:aRow )  }
            :bOnChange     := { || oBrw:Refresh() }
            :nFooterType   := AGGR_SUM
            :bSumCondition := { |n,o| ! IsTotalRow( o:oBrw:aRow ) }
         END
      endif
   next

   WITH OBJECT oBrw
      :nStretchCol   := STRETCHCOL_WIDEST
      :bClrStd       := { || { CLR_BLACK, If( IsTotalRow( oBrw:aRow ), CLR_YELLOW, CLR_WHITE ) } }
      :bChange       := { || oDlg:AEvalWhen() }
      :MakeTotals()
      //
      :CreateFromCode()
   END

   @ 10, 10 BUTTON "Insert SubTotal" SIZE 70,14 PIXEL OF oDlg ;
      ACTION InsertSubTotal( oBrw ) ;
      WHEN ! IsTotalRow( oBrw:aRow )
   @ 10, 90 BUTTON "Remove SubTotal" SIZE 70,14 PIXEL OF oDlg ;
      ACTION oBrw:Delete() ;
      WHEN IsTotalRow( oBrw:aRow )

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

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

static function InsertSubTotal( oBrw )

   local n, oCol, nRowFrom := 0, nRowLast

   if .not. IsTotalRow( oBrw:aRow )
      nRowLast    := oBrw:nArrayAt
      for n := nRowLast  to 1 step -1
         if IsTotalRow( oBrw:aArrayData[ n ] )
            EXIT
         else
            nRowFrom    := n
         endif
      next
      if nRowFrom > 0
         if nRowLast == Len( oBrw:aArrayData )
            AAdd( oBrw:aArrayData, Array( Len( oBrw:aRow ) ) )
         else
            AIns( oBrw:aArrayData, nRowLast + 1, Array( Len( oBrw:aRow ) ), .t. )
         endif
         oBrw:aArrayData[ nRowLast + 1, 2 ]   := "Sum : " + ;
               cValToChar( oBrw:aArrayData[ nRowFrom, 1 ] ) + "-" + ;
               cValToChar( oBrw:aArrayData[ nRowLast, 1 ] )

         for each oCol in oBrw:aCols
            if oCol:nFooterType == AGGR_SUM .and. ! Empty( oCol:nArrayCol )
               oBrw:aArrayData[ nRowLast + 1, oCol:nArrayCol ] := ;
                  MakeSumBlock( oBrw:aArrayData, oCol:nArrayCol, nRowFrom, nRowLast )
            endif
         next
         oBrw:nArrayAt  := nRowLast + 1
         oBrw:nRowSel   := oBrw:nArrayAt
         oBrw:oWnd:AEvalWhen()
         oBrw:Refresh()
         oBrw:SetFocus()
      endif
   endif

return nil

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

static function MakeSumBlock( aData, nCol, nRowFrom, nRowLast )

   local nRows := nRowLast - nRowFrom + 1
   local aRows := {}
   local n

   for n := nRowFrom to nRowLast
      AAdd( aRows, aData[ n ] )
   next

return { || FW_ArrSum( aRows, nCol ) }

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

static function IsTotalRow( aRow )
return Empty( aRow[ 1 ] )

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

As an example that i wrote above,

Code: Select all  Expand view  RUN

function main()
    msginfo("Hello world")  // run oke
    dialog1()               // run oke
    dialog2()               // unworkable, just copy paste and rename function
                                   
return nil
function dialog1()
 // create a dialog
return nil
function dialog2()
 // copy paste from xbrxls.prg
return nil
 

What is this problem OS windows 10 x64 or library of xharbour 64 bits that i use?
Please the solution and thank you.

Best regards

Mulyadi

[Antonio Linares]

Mulyadi,

I added the dummy functions:

function hb_getfilesinzip()
return nil

function hb_unzipfile()
return nil

and then:

buildx64.bat xbsubtot

and it worked fine

[Antonio Linares]

Please provide the complete modified PRG that you have tested, thanks

[Mulyadi]

Mr Antonio,

thank you for reply

I will try again at other times and right now i was finishing migration to platform 64 bit for small module app with Harbor

Could be a problem there are also in the os W10 which currently not all 64 bits driver.
I also have gotten to the vendor hardware about driver version of all notebook have to buy.

I hope also specifically to FWH with 64 bits version to come always be ready for use and the progressed.

Best regards.


Mulyadi