diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d625e499e1..0204eb2800 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,21 @@ The license applies to all entries newer than 2009-04-28. */ +2012-06-18 12:49 UTC+0200 Viktor Szakats (harbour syenar.net) + * utils/hbmk2/hbmk2.prg + * made --hbinfo to return information only for the top project + (not nested ones) + This should fix regression of not generating .hbx files for + the hbqt special case since 2012-06-06 16:02 UTC+0200 + + added --hbinfo=nested to return information also on nested + projects + + --hbinfo will now append an 0x0A byte after each JSON + block, so multiple JSON blocks can be parsed by the caller + + * contrib/hbqt/hbqt_commons.hbm + * changed to be friendly with '--hbinfo=nested' hbmk2 option + (not used in Harbour make process) + 2012-06-18 11:29 UTC+0200 Viktor Szakats (harbour syenar.net) * contrib/make.hb * deleted few old TODOs diff --git a/harbour/contrib/hbqt/hbqt_commons.hbm b/harbour/contrib/hbqt/hbqt_commons.hbm index cc0815d194..d9c533cebc 100644 --- a/harbour/contrib/hbqt/hbqt_commons.hbm +++ b/harbour/contrib/hbqt/hbqt_commons.hbm @@ -9,8 +9,9 @@ # Common settings for all hbqt subcomponents (static mode) --stop{!HB_QT_BUILD_STATIC|!allwin} - hbqt_common.hbm -cflag=-DQT_NODLL + +# moved to the end to make --hbinfo=nested' return complete information +-stop{!HB_QT_BUILD_STATIC|!allwin} diff --git a/harbour/utils/hbmk2/hbmk2.prg b/harbour/utils/hbmk2/hbmk2.prg index f3132ea757..3af40d566a 100644 --- a/harbour/utils/hbmk2/hbmk2.prg +++ b/harbour/utils/hbmk2/hbmk2.prg @@ -1244,6 +1244,7 @@ FUNCTION hbmk( aArgs, nArgTarget, /* @ */ lPause, nLevel ) LOCAL lAcceptIFlag := .F. LOCAL lHarbourInfo := .F. LOCAL lDumpInfo := .F. + LOCAL lDumpInfoNested := .F. LOCAL nHarbourPPO := 0 LOCAL cHarbourOutputExt @@ -1338,7 +1339,10 @@ FUNCTION hbmk( aArgs, nArgTarget, /* @ */ lPause, nLevel ) cParamL == "--hbdirdyn" .OR. ; cParamL == "--hbdirlib" .OR. ; cParamL == "--hbdirinc" .OR. ; - cParamL == "--hbinfo" ; hbmk[ _HBMK_lQuiet ] := .T. ; hbmk[ _HBMK_lInfo ] := .F. + Left( cParamL, Len( "--hbinfo" ) ) == "--hbinfo" + + hbmk[ _HBMK_lQuiet ] := .T. ; hbmk[ _HBMK_lInfo ] := .F. + CASE cParamL == "-quiet-" ; hbmk[ _HBMK_lQuiet ] := .F. CASE Left( cParamL, 6 ) == "-comp=" ; ParseCOMPPLATCPU( hbmk, SubStr( cParam, 7 ), _TARG_COMP ) CASE Left( cParamL, 10 ) == "-compiler=" ; ParseCOMPPLATCPU( hbmk, SubStr( cParam, 11 ), _TARG_COMP ) @@ -2497,9 +2501,10 @@ FUNCTION hbmk( aArgs, nArgTarget, /* @ */ lPause, nLevel ) OutStd( hbmk[ _HBMK_cHB_INSTALL_INC ] ) - CASE cParamL == "--hbinfo" + CASE Left( cParamL, Len( "--hbinfo" ) ) == "--hbinfo" lDumpInfo := .T. + lDumpInfoNested := ( SubStr( cParamL, Len( "--hbinfo" ) + 1 ) == "=nested" ) hbmk[ _HBMK_lQuiet ] := .T. hbmk[ _HBMK_lInfo ] := .F. @@ -5340,6 +5345,10 @@ FUNCTION hbmk( aArgs, nArgTarget, /* @ */ lPause, nLevel ) IF lDumpInfo + IF ! lDumpInfoNested .AND. nLevel > 1 + RETURN _ERRLEV_OK + ENDIF + tmp := { "platform" => hbmk[ _HBMK_cPLAT ],; "compiler" => hbmk[ _HBMK_cCOMP ],; "cpu" => hbmk[ _HBMK_cCPU ],; @@ -5359,7 +5368,7 @@ FUNCTION hbmk( aArgs, nArgTarget, /* @ */ lPause, nLevel ) tmp[ "hbctree" ] += Replicate( Chr( 9 ), tmp1[ 2 ] ) + PathSepToForward( hb_PathNormalize( tmp1[ 1 ] ) ) + Chr( 10 ) NEXT - OutStd( hb_jsonEncode( tmp ) ) + OutStd( hb_jsonEncode( tmp ) + Chr( 10 ) ) RETURN _ERRLEV_OK ENDIF @@ -13755,7 +13764,7 @@ STATIC PROCEDURE ShowHelp( hbmk, lLong ) { "--hbdirdyn" , I_( "output Harbour dynamic library directory" ) },; { "--hbdirlib" , I_( "output Harbour static library directory" ) },; { "--hbdirinc" , I_( "output Harbour header directory" ) },; - { "--hbinfo" , I_( "output Harbour build information. Output is in JSON format. The included paths always contain forward slashes." ) },; + { "--hbinfo[=nested]" , I_( "output Harbour build information. Output is in JSON format. The included paths always contain forward slashes. Each JSON block is followed by an 0x0A byte." ) },; NIL,; { "-plat[form]=" , I_( "select target platform." ) },; { "-comp[iler]=" , I_( "select C compiler.\nSpecial value:\n - bld: use original build settings (default on *nix)" ) },;