From c329dc74995be496c945e9f577455344670dc5ce Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Thu, 18 Jun 2009 16:18:47 +0000 Subject: [PATCH] 2009-06-18 18:18 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * utils/hbmk2/hbmk2.prg + Added -skip option support to .hbm files. --- harbour/ChangeLog | 4 ++++ harbour/utils/hbmk2/hbmk2.prg | 2 ++ 2 files changed, 6 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index ae1fa43ef1..febce1d2ea 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-06-18 18:18 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + * utils/hbmk2/hbmk2.prg + + Added -skip option support to .hbm files. + 2009-06-18 16:14 UTC+0600 April White (april@users.sourceforge.net) * source/rtl/mlcfunc.c * detect if parameter is a string vs array diff --git a/harbour/utils/hbmk2/hbmk2.prg b/harbour/utils/hbmk2/hbmk2.prg index 63e4d425f2..08672ddf81 100644 --- a/harbour/utils/hbmk2/hbmk2.prg +++ b/harbour/utils/hbmk2/hbmk2.prg @@ -5154,6 +5154,8 @@ STATIC PROCEDURE HBM_Load( hbmk, aParams, cFileName, nNestingLevel ) cParam := StrStripQuote( cParam ) IF ! Empty( cParam ) DO CASE + CASE Lower( cParam ) == "-skip" + RETURN CASE ( Len( cParam ) >= 1 .AND. Left( cParam, 1 ) == "@" ) IF nNestingLevel < _HBMK_NEST_MAX cParam := SubStr( cParam, 2 )