From de52d0739522721fc25d4eba3a3cbfa914e45595 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Thu, 28 May 2009 17:06:40 +0000 Subject: [PATCH] 2009-05-28 19:06 UTC+0200 Viktor Szakats (harbour.01 syenar hu) * utils/hbmk2/hbmk2.prg + .hbm embedding is now allowed 10 level deep (was 3). --- harbour/ChangeLog | 4 ++++ harbour/utils/hbmk2/hbmk2.prg | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 9d509766e4..34a3c1357b 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to these authors: Viktor Szakats. */ +2009-05-28 19:06 UTC+0200 Viktor Szakats (harbour.01 syenar hu) + * utils/hbmk2/hbmk2.prg + + .hbm embedding is now allowed 10 level deep (was 3). + 2009-05-28 17:30 UTC+0200 Viktor Szakats (harbour.01 syenar hu) + contrib/examples/hbsuper + contrib/examples/hbsuper/hbsuper.hbm diff --git a/harbour/utils/hbmk2/hbmk2.prg b/harbour/utils/hbmk2/hbmk2.prg index 62bb794df3..3bd138a3a1 100644 --- a/harbour/utils/hbmk2/hbmk2.prg +++ b/harbour/utils/hbmk2/hbmk2.prg @@ -4796,7 +4796,7 @@ STATIC PROCEDURE HBM_Load( hbmk, aParams, cFileName, /* @ */ nEmbedLevel ) IF ! Empty( cParam ) DO CASE CASE ( Len( cParam ) >= 1 .AND. Left( cParam, 1 ) == "@" ) - IF nEmbedLevel < 3 + IF nEmbedLevel < 10 cParam := SubStr( cParam, 2 ) IF Empty( FN_ExtGet( cParam ) ) cParam := FN_ExtSet( cParam, ".hbm" ) @@ -4805,7 +4805,7 @@ STATIC PROCEDURE HBM_Load( hbmk, aParams, cFileName, /* @ */ nEmbedLevel ) HBM_Load( hbmk, aParams, PathProc( cParam, cFileName ), @nEmbedLevel ) /* Load parameters from script file */ ENDIF CASE Lower( FN_ExtGet( cParam ) ) == ".hbm" - IF nEmbedLevel < 3 + IF nEmbedLevel < 10 nEmbedLevel++ HBM_Load( hbmk, aParams, PathProc( cParam, cFileName ), @nEmbedLevel ) /* Load parameters from script file */ ENDIF