diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 6e54ec6161..ddfe946367 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-02-15 02:30 UTC+0100 Viktor Szakats (harbour.01 syenar hu) + * utils/hbmk/hbmk.prg + ! Fix to previous commit. + * Help screen made more compact. + 2009-02-15 02:22 UTC+0100 Viktor Szakats (harbour.01 syenar hu) * utils/hbmk/hbmk.prg + Added support for parameters passed in files: diff --git a/harbour/utils/hbmk/hbmk.prg b/harbour/utils/hbmk/hbmk.prg index e1e54408d3..d7200c9b2d 100644 --- a/harbour/utils/hbmk/hbmk.prg +++ b/harbour/utils/hbmk/hbmk.prg @@ -361,7 +361,15 @@ FUNCTION Main( ... ) IF ! lNOHBP /* Process automatic control files. */ - HBP_ProcessAll( @s_aLIBUSER, @s_aOPTP, @s_lGUI, @s_lMT, @s_lNULRDD, @s_cGT ) + HBP_ProcessAll( @s_aLIBUSER,; + @s_aOPTP,; + @s_lGUI,; + @s_lMT,; + @s_lSHARED,; + @s_lDEBUG,; + @s_lNULRDD,; + @s_lSTRIP,; + @s_cGT ) ENDIF /* Process command line (2nd pass) */ @@ -1024,38 +1032,38 @@ STATIC PROCEDURE HBP_ProcessOne( cFile,; CASE Lower( Left( cLine, Len( "gui=" ) ) ) == "gui=" ; cLine := SubStr( cLine, Len( "gui=" ) + 1 ) DO CASE - CASE cLine == "yes" ; lGUI := .T. - CASE cLine == "no" ; lGUI := .F. + CASE Lower( cLine ) == "yes" ; lGUI := .T. + CASE Lower( cLine ) == "no" ; lGUI := .F. ENDCASE CASE Lower( Left( cLine, Len( "mt=" ) ) ) == "mt=" ; cLine := SubStr( cLine, Len( "mt=" ) + 1 ) DO CASE - CASE cLine == "yes" ; lMT := .T. - CASE cLine == "no" ; lMT := .F. + CASE Lower( cLine ) == "yes" ; lMT := .T. + CASE Lower( cLine ) == "no" ; lMT := .F. ENDCASE CASE Lower( Left( cLine, Len( "shared=" ) ) ) == "shared=" ; cLine := SubStr( cLine, Len( "shared=" ) + 1 ) DO CASE - CASE cLine == "yes" ; lSHARED := .T. - CASE cLine == "no" ; lSHARED := .F. + CASE Lower( cLine ) == "yes" ; lSHARED := .T. + CASE Lower( cLine ) == "no" ; lSHARED := .F. ENDCASE CASE Lower( Left( cLine, Len( "debug=" ) ) ) == "debug=" ; cLine := SubStr( cLine, Len( "debug=" ) + 1 ) DO CASE - CASE cLine == "yes" ; lDEBUG := .T. - CASE cLine == "no" ; lDEBUG := .F. + CASE Lower( cLine ) == "yes" ; lDEBUG := .T. + CASE Lower( cLine ) == "no" ; lDEBUG := .F. ENDCASE CASE Lower( Left( cLine, Len( "nulrdd=" ) ) ) == "nulrdd=" ; cLine := SubStr( cLine, Len( "nulrdd=" ) + 1 ) DO CASE - CASE cLine == "yes" ; lNULRDD := .T. - CASE cLine == "no" ; lNULRDD := .F. + CASE Lower( cLine ) == "yes" ; lNULRDD := .T. + CASE Lower( cLine ) == "no" ; lNULRDD := .F. ENDCASE CASE Lower( Left( cLine, Len( "strip=" ) ) ) == "strip=" ; cLine := SubStr( cLine, Len( "strip=" ) + 1 ) DO CASE - CASE cLine == "yes" ; lSTRIP := .T. - CASE cLine == "no" ; lSTRIP := .F. + CASE Lower( cLine ) == "yes" ; lSTRIP := .T. + CASE Lower( cLine ) == "no" ; lSTRIP := .F. ENDCASE CASE Lower( Left( cLine, Len( "gt=" ) ) ) == "gt=" ; cLine := SubStr( cLine, Len( "gt=" ) + 1 ) @@ -1104,7 +1112,7 @@ STATIC PROCEDURE PauseForKey() STATIC PROCEDURE ShowHelp() LOCAL aText := {; - "Usage: hbmk [options] [@script] [-l] [-o]" ,; + "Usage: hbmk [options] [@