From 8555fe76d6bf672d3000bd7fed010116b657b73d Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Wed, 29 Sep 2010 11:16:20 +0000 Subject: [PATCH] 2010-09-29 13:15 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * utils/hbmk2/hbmk2.prg + Added HB_LEVEL macro. --- harbour/ChangeLog | 4 ++++ harbour/utils/hbmk2/hbmk2.prg | 2 ++ 2 files changed, 6 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 99cb1d7e12..528e39f9b9 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,10 @@ The license applies to all entries newer than 2009-04-28. */ +2010-09-29 13:15 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + * utils/hbmk2/hbmk2.prg + + Added HB_LEVEL macro. + 2010-09-28 22:42 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbqt/qtgui/g/QStatusBar.cpp * contrib/hbqt/qtgui/qth/QStatusBar.qth diff --git a/harbour/utils/hbmk2/hbmk2.prg b/harbour/utils/hbmk2/hbmk2.prg index 810c890c0d..a65ccaffd2 100644 --- a/harbour/utils/hbmk2/hbmk2.prg +++ b/harbour/utils/hbmk2/hbmk2.prg @@ -9487,6 +9487,8 @@ STATIC FUNCTION MacroGet( hbmk, cMacro, cFileName ) cMacro := iif( ISCHARACTER( hbmk[ _HBMK_cPROGDIR ] ), FNameDirGet( hbmk[ _HBMK_cPROGDIR ] ), "" ) ; EXIT CASE "HB_OUTPUTNAME" cMacro := iif( ISCHARACTER( hbmk[ _HBMK_cPROGNAME ] ), FNameNameGet( hbmk[ _HBMK_cPROGNAME ] ), "" ) ; EXIT + CASE "HB_LEVEL" + cMacro := hb_ntos( hbmk[ _HBMK_nLevel ] ) ; EXIT OTHERWISE /* NOTE: If macro not found, try to interpret as envvar. If it doesn't exist, empty string