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:18:47 +00:00
parent 1050cd8fb2
commit c329dc7499
2 changed files with 6 additions and 0 deletions
--- 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
--- 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 )