2012-11-20 02:09 UTC+0100 Firstname Lastname (me domain.net)

* bin/commit.hb
    ! fixed for *nix systems

  * contrib/hbodbc/tests/testodbc.prg
    + added test for double opening

  * ChangeLog
    % moved copyright notice to end of file
    + added change markup quick reference to header

  * doc/howtorep.txt
    * synced wording with above

  * extras/hbxlsxml/tests/example.prg
    * do not use WITH OBJECT in its current form

  * src/rtl/gtsln/Makefile
    + added option needed for AIX. Reported by Luiz.

  * utils/hbmk2/hbmk2.prg
    * minor change in wording in help
    + added help note about incompatibility of Clipper binary objects/libs

  * tests/fixcase.hb
    % one exception removed
    + some others documented

  * contrib/gtwvg/tests/_activex.prg
  * contrib/gtwvg/tests/_tbrowse.prg
  * contrib/gtwvg/tests/_utils.prg
  * contrib/gtwvg/tests/demowvg.prg
  * contrib/gtwvg/tests/demowvg1.prg
  * contrib/xhb/trpccli.prg
  * utils/hbtest/rt_math.prg
    * rerun after removing one exception permanently,
      another temporarily.
This commit is contained in:
Viktor Szakats
2012-11-20 01:15:47 +00:00
parent e6cac4e8a3
commit fcb0529a28
15 changed files with 254 additions and 203 deletions

View File

@@ -126,9 +126,8 @@ STATIC PROCEDURE ProcFile( hAll, cFileName )
IF Len( a[ 2 ] ) != 2 .OR. !( Left( a[ 2 ], 1 ) $ "Dd" )
cProper := ProperCase( hAll, hb_StrShrink( a[ 3 ], 1 ) ) + "("
IF !( cProper == a[ 3 ] ) .AND. ;
!( Upper( cProper ) == "FILE(" ) .AND. ;
!( Upper( cProper ) == "RGB(" ) .AND. ;
!( Upper( cProper ) == "INT(" )
!( Upper( cProper ) == "FILE(" ) .AND. ; /* interacts with "file(s)" text */
!( Upper( cProper ) == "INT(" ) /* interacts with SQL statements */
cLog := StrTran( cLog, a[ 1 ], StrTran( a[ 1 ], a[ 3 ], cProper ) )
? cFileName, a[ 3 ], cProper, "|" + a[ 1 ] + "|"
nChanged++