#include "FiveWin.ch"
FUNCTION MAIN()
PRIVATE cHarbPath := "C:\XHARBOUR"
PRIVATE cFWHPath := "C:\FWH1306"
AddHarbourLibs()
RETURN NIL
//METHOD AddHarbourLibs() CLASS TFivedit
FUNCTION AddHarbourLibs()
local lHarbour := .F. //AllTrim( ::cHarbComp ) == "Harbour"
local cLibs, cFWHExtraLibs := "", cHarbExtraLibs := ""
LOCAL cLib
if ! Empty( cFWHExtraLibs )
AEval( hb_aTokens( StrTran( AllTrim( cFWHExtraLibs ), ",", "" ) ),;
{ | cLib | cFWHExtraLibs += AllTrim( cFWHPath ) + "\lib\" + ;
cLib + " " } )
endif
if ! Empty( cHarbExtraLibs )
AEval( hb_aTokens( StrTran( AllTrim( cHarbExtraLibs ), ",", "" ) ),;
{ | cLib | cHarbExtraLibs += AllTrim( cHarbPath ) + "\lib\" + ;
cLib + " " } )
endif
cLibs = AllTrim( cFWHPath ) + "\lib\" + ;
If( lHarbour, "fiveh.lib ", "fivehx.lib " ) + ;
AllTrim( cFWHPath ) + "\lib\" + "fivehc.lib " + ;
cFWHExtraLibs + ;
If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + "hbwin.lib ", "" ) + ;
AllTrim( cHarbPath ) + "\lib\" + "gtgui.lib " + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, "hbrtl.lib ", "rtl.lib " ) + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, "hbvm.lib ", "vm.lib " ) + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, "hblang.lib ", "lang.lib " ) + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, "hbmacro.lib ", "macro.lib " ) + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, "hbrdd.lib ", "rdd.lib " ) + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, "rddntx.lib ", "dbfntx.lib " ) + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, "rddcdx.lib ", "dbfcdx.lib " ) + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, "rddfpt.lib ", "dbffpt.lib " ) + ;
AllTrim( cHarbPath ) + "\lib\" + "hbsix.lib " + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, "hbdebug.lib ", "debug.lib " ) + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, "hbcommon.lib ", "common.lib " ) + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + ;
"hbpp.lib ", "pp.lib " ) + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + ;
"hbcpage.lib ", "CODEPAGE.lib " ) + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + ;
"hbcplr.lib ", "" ) + ;
If( lHarbour, "hbct.lib ", "ct.lib " ) + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, "hbpcre.lib ", "pcrepos.lib " ) + ;
If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + ;
"xhb.lib ", "" ) + ;
If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + ;
"hbziparc.lib ", "" ) + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, "hbmzip.lib ", "hbzip.lib " ) + ;
AllTrim( cHarbPath ) + "\lib\" + ;
If( lHarbour, "hbzlib.lib ", "zlib.lib " ) + ;
If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + ;
"minizip.lib ", "" ) + ;
AllTrim( cHarbPath ) + "\lib\" + "png.lib " + ;
If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + "hbcurl.lib ", "" ) + ;
If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + "hbusrrdd.lib ", "" ) + ;
cHarbExtraLibs
? cLibs
return cLibs