From ff9e616a86fa77076ac27f9374888606b41c635d Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sat, 7 Mar 2009 21:21:54 +0000 Subject: [PATCH] 2009-03-07 22:14 UTC+0100 Viktor Szakats (harbour.01 syenar hu) * utils/hbmk2/hbmk2.prg ! Fixed to recognize GT libs in dynlibhas= lines, and add them to core GT list. --- harbour/ChangeLog | 5 +++++ harbour/utils/hbmk2/hbmk2.prg | 10 ++++++++-- 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d65db76649..e618b2b26c 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,11 @@ 2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org) */ +2009-03-07 22:14 UTC+0100 Viktor Szakats (harbour.01 syenar hu) + * utils/hbmk2/hbmk2.prg + ! Fixed to recognize GT libs in dynlibhas= lines, + and add them to core GT list. + 2009-03-07 19:56 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/common/hbgete.c * added suport for BSD systems diff --git a/harbour/utils/hbmk2/hbmk2.prg b/harbour/utils/hbmk2/hbmk2.prg index 6f154e810c..ae9f901994 100644 --- a/harbour/utils/hbmk2/hbmk2.prg +++ b/harbour/utils/hbmk2/hbmk2.prg @@ -2391,8 +2391,14 @@ STATIC PROCEDURE HBP_ProcessOne( cFileName,; CASE Lower( Left( cLine, Len( "libdynhas=" ) ) ) == "libdynhas=" ; cLine := SubStr( cLine, Len( "libdynhas=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) cItem := PathSepToTarget( StrStripQuote( cItem ) ) - IF AScan( aLIBDYNHAS, {|tmp| tmp == cItem } ) == 0 - AAddNotEmpty( aLIBDYNHAS, cItem ) + IF ! Empty( cItem ) + IF AScan( aLIBDYNHAS, {|tmp| tmp == cItem } ) == 0 + AAdd( aLIBDYNHAS, cItem ) + ENDIF + IF Lower( Left( cItem, 2 ) ) == "gt" .AND. ; + AScan( t_aLIBCOREGT, {|tmp| Lower( tmp ) == Lower( cItem ) } ) == 0 + AAdd( t_aLIBCOREGT, cItem ) + ENDIF ENDIF NEXT