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

2012-10-10 19:10 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* bin/commit.hb
    ! fixed finding last changelog entry in ChangeLogs which
      have non-ASCII, non-UTF8 chars (f.e. any 8-bit high
      chars, f.e. legacy accented or drawing chars, like
      it is the case with hwgui's ChangeLog file, where one
      such char caused the problem.)
This commit is contained in:
Viktor Szakats
2012-10-10 17:17:21 +00:00
parent 8eab8937f8
commit 7750da9e9f
2 changed files with 11 additions and 0 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-10-10 19:10 UTC+0200 Viktor Szakats (harbour syenar.net)
* bin/commit.hb
! fixed finding last changelog entry in ChangeLogs which
have non-ASCII, non-UTF8 chars (f.e. any 8-bit high
chars, f.e. legacy accented or drawing chars, like
it is the case with hwgui's ChangeLog file, where one
such char caused the problem.)
2012-10-10 15:49 UTC+0200 Viktor Szakats (harbour syenar.net)
* bin/commit.hb
! fixed GMT sign in inserted header when offset is negative

3
harbour/bin/commit.hb
View File

@@ -45,6 +45,7 @@ PROCEDURE Main()
LOCAL cHit
LOCAL nPos
LOCAL cMyName
LOCAL cOldLang
IF Empty( aChanges )
OutStd( hb_progname() + ": no changes" + hb_eol() )
@@ -75,10 +76,12 @@ PROCEDURE Main()
// ;
cLog := MemoRead( "ChangeLog" )
cOldLang := hb_cdpSelect( "EN" )
cHit := hb_AtX( "\n[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9] [0-9][0-9]:[0-9][0-9] UTC[\-+][0-9][0-9][0-9][0-9] ", cLog )
IF Empty( cHit )
cHit := ""
ENDIF
hb_cdpSelect( cOldLang )
nPos := At( AllTrim( cHit ), cLog )
IF nPos > 0