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

2013-04-08 18:53 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/hbnetio/tests/netiotst.prg
    * minor fmt
This commit is contained in:
Viktor Szakats
2013-04-08 18:59:41 +02:00
parent 7bceeeea67
commit 9eb5f5b7bb
3 changed files with 34 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
bin/commit.hb
View File

@@ -34,20 +34,29 @@
#define _COMMIT_HBROOT_ hb_PathNormalize( hb_DirSepToOS( hb_DirBase() + "../" ) ) /* must end with dirsep */
PROCEDURE Main()
PROCEDURE Main( cParam1 )
LOCAL cVCS := VCSDetect()
LOCAL aFiles := {}
LOCAL aChanges := DoctorChanges( cVCS, Changes( cVCS ), aFiles )
LOCAL cVCS
LOCAL aFiles
LOCAL aChanges
LOCAL cLog
LOCAL nStart, nEnd
LOCAL cMyName
LOCAL cLogName
LOCAL lWasChangeLog
IF "--prepare-commit" $ hb_CmdLine()
hb_MemoWrit( cParam1, GetLastEntry( MemoRead( FindChangeLog() ) ) + hb_eol() + hb_MemoRead( cParam1 ) )
ErrorLevel( 0 )
RETURN
ENDIF
InstallPreCommitHook()
cVCS := VCSDetect()
aFiles := {}
aChanges := DoctorChanges( cVCS, Changes( cVCS ), aFiles )
IF Empty( aChanges )
OutStd( hb_ProgName() + ": " + "no changes" + hb_eol() )
ErrorLevel( 0 )
@@ -56,12 +65,10 @@ PROCEDURE Main()
IF CheckFileList( aFiles )
IF ! hb_FileExists( cLogName := _COMMIT_HBROOT_ + "ChangeLog.txt" )
IF ! hb_FileExists( cLogName := _COMMIT_HBROOT_ + "ChangeLog" )
OutStd( hb_ProgName() + ": " + "cannot find ChangeLog file" + hb_eol() )
ErrorLevel( 2 )
RETURN
ENDIF
cLogName := FindChangeLog()
IF Empty( cLogName )
OutStd( hb_ProgName() + ": " + "cannot find ChangeLog file" + hb_eol() )
ErrorLevel( 2 )
ENDIF
IF "--check-only" $ hb_CmdLine()
@@ -142,6 +149,17 @@ STATIC FUNCTION InstallPreCommitHook()
RETURN hb_MemoWrit( cName, cFile + hb_eol() + cLine + hb_eol() )
STATIC FUNCTION FindChangeLog()
LOCAL cLogName
IF ! hb_FileExists( cLogName := _COMMIT_HBROOT_ + "ChangeLog.txt" ) .AND. ;
! hb_FileExists( cLogName := _COMMIT_HBROOT_ + "ChangeLog" )
RETURN ""
ENDIF
RETURN cLogName
STATIC FUNCTION GetLastEntry( cLog, /* @ */ nStart, /* @ */ nEnd )
LOCAL cLogHeaderExp := "\n[1-2][0-9][0-9][0-9]-[0-1][0-9]-[0-3][0-9] [0-2][0-9]:[0-5][0-9] UTC[\-+][0-1][0-9][0-5][0-9] [\S ]*" + hb_eol()