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

2012-04-11 13:53 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* utils/hbmk2/hbmk2.prg
    * do not consider ".C" (uppercase c) as C++ source file.
      it might have caused confusion when bringing .c source 
      files from legacy filesystems like MS-DOS, it may also 
      be an advantage when doing multiplatform development 
      between MS-DOS and newer systems.
This commit is contained in:
Viktor Szakats
2012-04-11 11:55:20 +00:00
parent 8c26334ae9
commit d2d521c8e1
2 changed files with 11 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -16,6 +16,14 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-04-11 13:53 UTC+0200 Viktor Szakats (harbour syenar.net)
* utils/hbmk2/hbmk2.prg
* do not consider ".C" (uppercase c) as C++ source file.
it might have caused confusion when bringing .c source
files from legacy filesystems like MS-DOS, it may also
be an advantage when doing multiplatform development
between MS-DOS and newer systems.
2012-04-10 17:57 UTC+0200 Viktor Szakats (harbour syenar.net)
* src/rtl/tget.prg
! ignore custom picture mask characters for date var type

16
harbour/utils/hbmk2/hbmk2.prg
View File

@@ -271,13 +271,6 @@ REQUEST hbmk_KEYW
#define _BCC_BIN_DETECT() FindInPath( "bcc32.exe" )
/* Macro to check for uppercase extension on case-sensitive filesystems */
#if defined( __PLATFORM__DOS )
#define _EXT_IS_UPPER( f, e ) ( .F. )
#else
#define _EXT_IS_UPPER( f, e ) ( hb_FNameExt( f ) == e )
#endif
#define HB_ISALPHA( c ) ( Upper( c ) >= "A" .AND. Upper( c ) <= "Z" )
#define HB_ISFIRSTIDCHAR( c ) ( HB_ISALPHA( c ) .OR. ( c ) == '_' )
#define HB_ISNEXTIDCHAR( c ) ( HB_ISFIRSTIDCHAR(c) .OR. IsDigit( c ) )
@@ -3082,8 +3075,7 @@ FUNCTION hbmk2( aArgs, nArgTarget, /* @ */ lPause, nLevel )
CASE hb_FNameExt( cParamL ) == ".cpp" .OR. ;
hb_FNameExt( cParamL ) == ".cc" .OR. ;
hb_FNameExt( cParamL ) == ".cxx" .OR. ;
hb_FNameExt( cParamL ) == ".cx" .OR. ;
_EXT_IS_UPPER( cParam, ".C" )
hb_FNameExt( cParamL ) == ".cx"
FOR EACH cParam IN FN_Expand( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ), Empty( aParam[ _PAR_cFileName ] ) )
AAdd( hbmk[ _HBMK_aCPP ], cParam )
@@ -9250,8 +9242,7 @@ STATIC FUNCTION HBC_ProcessOne( hbmk, cFileName, nNestingLevel )
CASE hb_FNameExt( cItemL ) == ".cpp" .OR. ;
hb_FNameExt( cItemL ) == ".cc" .OR. ;
hb_FNameExt( cItemL ) == ".cxx" .OR. ;
hb_FNameExt( cItemL ) == ".cx" .OR. ;
_EXT_IS_UPPER( cItem, ".C" )
hb_FNameExt( cItemL ) == ".cx"
AAddNew( hbmk[ _HBMK_aCPP ], cItem )
CASE hb_FNameExt( cItemL ) == ".c" .OR. ;
hb_FNameExt( cItemL ) == ".m"
@@ -10225,8 +10216,7 @@ STATIC FUNCTION getFirstFunc( hbmk, cFile )
ELSEIF Lower( cExt ) == ".cpp" .OR. ;
Lower( cExt ) == ".cc" .OR. ;
Lower( cExt ) == ".cxx" .OR. ;
Lower( cExt ) == ".cx" .OR. ;
_EXT_IS_UPPER( cExt, ".C" )
Lower( cExt ) == ".cx"
/* do nothing */
ELSEIF ! Empty( cExecNM := FindInPath( hbmk[ _HBMK_cCCPREFIX ] + "nm" ) )
cFuncList := ""