fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-06-06 10:55 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbide/idetools.prg
    ! Changed: macro notation for "Tools and Utilities" to confirm 
      to hbMK2 standards. 
        {source_fullname} => ${source_fullname}
        {source_name}     => ${source_name}
        {source_path}     => ${source_path}
                          => ${source_ext}  [Added]
        {%MY_ENV_VAR%}    => ${MY_ENV_VAR}

      If marco keywords are not recognized, they are assumed to be 
      environment variables and return value of hb_GetEnv( cMacro )
      is substituted.
This commit is contained in:
Pritpal Bedi
2010-06-06 18:03:10 +00:00
parent 077fc4398e
commit 9ecc338c5e
2 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
harbour/ChangeLog
View File

@@ -17,6 +17,20 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-06-06 10:55 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbide/idetools.prg
! Changed: macro notation for "Tools and Utilities" to confirm
to hbMK2 standards.
{source_fullname} => ${source_fullname}
{source_name} => ${source_name}
{source_path} => ${source_path}
=> ${source_ext} [Added]
{%MY_ENV_VAR%} => ${MY_ENV_VAR}
If marco keywords are not recognized, they are assumed to be
environment variables and return value of hb_GetEnv( cMacro )
is substituted.
2010-06-06 19:16 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* src/rtl/gtdos/gtdos.c
! Fixed C++ compilation (caused by BYTE -> HB_BYTE change)

11
harbour/contrib/hbide/idetools.prg
View File

@@ -492,10 +492,11 @@ METHOD IdeToolsManager:parseParams( cP )
IF !empty( cP )
DO WHILE .t.
lHas := .f.
IF ( n := at( "{" , cP ) ) > 0
IF ( n := at( "${" , cP ) ) > 0
IF ( n1 := at( "}" , cP ) ) > 0
lHas := .t.
cMacro := substr( cP, n + 1, n1 - n - 1 )
cMacro := substr( cP, n + 2, n1 - n - 2 )
cP := substr( cP, 1, n - 1 ) + ::macro2value( cMacro ) + substr( cP, n1 + 1 )
ENDIF
ENDIF
@@ -532,11 +533,11 @@ METHOD IdeToolsManager:macro2value( cMacro )
CASE cMacroL == "source_path"
cVal := hbide_pathToOSPath( cPath )
CASE "%" $ cMacro
cVal := hb_GetEnv( strtran( cMacro, "%", "" ) )
CASE cMacroL == "source_ext"
cVal := cExt
OTHERWISE
cVal := cMacro
cVal := hb_GetEnv( cMacro )
ENDCASE