2013-03-15 11:12 UTC+0100 Viktor Szakats (harbour syenar.net)
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
This commit is contained in:
vszakats
233
bin/commit.hb
Normal file
233
bin/commit.hb
Normal file
@@ -0,0 +1,233 @@
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
|
||||
/*
|
||||
* Harbour Project source code:
|
||||
* Commit preparer
|
||||
*
|
||||
* Copyright 2012 Viktor Szakats (harbour syenar.net)
|
||||
* www - http://harbour-project.org
|
||||
*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
|
||||
* their web site at http://www.gnu.org/).
|
||||
*
|
||||
*/
|
||||
|
||||
#define _CONFIGFIL_ ".hbcommit"
|
||||
#define _CONFIGENV_ "HBCOMMIT_USER"
|
||||
|
||||
#pragma -w3
|
||||
#pragma -km+
|
||||
#pragma -ko+
|
||||
|
||||
PROCEDURE Main()
|
||||
|
||||
LOCAL cVCS := VCSDetect()
|
||||
|
||||
LOCAL aChanges := DoctorChanges( cVCS, Changes( cVCS ) )
|
||||
LOCAL cLog
|
||||
LOCAL cLogNew
|
||||
LOCAL cLine
|
||||
LOCAL nOffset
|
||||
LOCAL cHit
|
||||
LOCAL nPos
|
||||
LOCAL cMyName
|
||||
LOCAL cOldLang
|
||||
LOCAL cLogName
|
||||
|
||||
IF Empty( aChanges )
|
||||
OutStd( hb_ProgName() + ": no changes" + hb_eol() )
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
// ;
|
||||
|
||||
IF ! Empty( GetEnv( _CONFIGENV_ ) )
|
||||
cMyName := GetEnv( _CONFIGENV_ )
|
||||
ELSEIF hb_FileExists( _CONFIGFIL_ )
|
||||
cMyName := AllTrim( hb_MemoRead( _CONFIGFIL_ ) )
|
||||
ELSE
|
||||
cMyName := "Firstname Lastname (me domain.net)"
|
||||
ENDIF
|
||||
|
||||
nOffset := hb_UTCOffset()
|
||||
|
||||
cLogNew := hb_StrFormat( "%1$s UTC%2$s%3$02d%4$02d %5$s", ;
|
||||
hb_TToC( hb_DateTime(), "YYYY-MM-DD", "HH:MM" ), ;
|
||||
iif( nOffset < 0, "-", "+" ), ;
|
||||
Int( nOffset / 3600 ), ;
|
||||
Int( ( ( nOffset / 3600 ) - Int( nOffset / 3600 ) ) * 60 ), ;
|
||||
cMyName ) + hb_eol()
|
||||
|
||||
FOR EACH cLine IN aChanges
|
||||
cLogNew += cLine + hb_eol()
|
||||
NEXT
|
||||
|
||||
// ;
|
||||
|
||||
IF ! hb_FileExists( cLogName := "ChangeLog.txt" )
|
||||
IF ! hb_FileExists( cLogName := "ChangeLog" )
|
||||
OutStd( hb_ProgName() + ": can't find ChangeLog file" + hb_eol() )
|
||||
RETURN
|
||||
ENDIF
|
||||
ENDIF
|
||||
|
||||
cLog := MemoRead( cLogName )
|
||||
cOldLang := hb_cdpSelect( "EN" )
|
||||
cHit := hb_AtX( "\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] ", cLog )
|
||||
IF Empty( cHit )
|
||||
cHit := ""
|
||||
ENDIF
|
||||
hb_cdpSelect( cOldLang )
|
||||
|
||||
nPos := At( AllTrim( cHit ), cLog )
|
||||
IF nPos > 0
|
||||
cLog := Left( cLog, nPos - 1 ) + cLogNew + hb_eol() + SubStr( cLog, nPos )
|
||||
ELSE
|
||||
cLog += hb_eol() + cLogNew
|
||||
ENDIF
|
||||
|
||||
hb_MemoWrit( cLogName, cLog )
|
||||
|
||||
RETURN
|
||||
|
||||
STATIC FUNCTION VCSDetect()
|
||||
|
||||
DO CASE
|
||||
CASE hb_DirExists( ".svn" ) ; RETURN "svn"
|
||||
CASE hb_DirExists( ".git" ) ; RETURN "git"
|
||||
/* to make it work in an unmodified GIT repo. Ideally, all
|
||||
files/dirs should be moved one dir up, removing the top
|
||||
'harbour' directory. */
|
||||
CASE hb_DirExists( ".." + hb_ps() + ".git" ) ; RETURN "git"
|
||||
ENDCASE
|
||||
|
||||
RETURN ""
|
||||
|
||||
STATIC FUNCTION DoctorChanges( cVCS, aChanges )
|
||||
|
||||
LOCAL cLine
|
||||
LOCAL cStart
|
||||
LOCAL aNew := {}
|
||||
|
||||
ASort( aChanges,,, {| x, y | x < y } )
|
||||
|
||||
DO CASE
|
||||
CASE cVCS == "svn"
|
||||
|
||||
FOR EACH cLine IN aChanges
|
||||
IF ! Empty( cLine ) .AND. SubStr( cLine, 8, 1 ) == " "
|
||||
cStart := Left( cLine, 1 )
|
||||
SWITCH cStart
|
||||
CASE "M"
|
||||
CASE " " /* modified props */
|
||||
cStart := "*"
|
||||
EXIT
|
||||
CASE "A"
|
||||
cStart := "+"
|
||||
EXIT
|
||||
CASE "D"
|
||||
cStart := "-"
|
||||
EXIT
|
||||
CASE "X"
|
||||
cStart := ""
|
||||
EXIT
|
||||
OTHERWISE
|
||||
cStart := "?"
|
||||
ENDSWITCH
|
||||
IF ! Empty( cStart )
|
||||
AAdd( aNew, " " + cStart + " " + StrTran( SubStr( cLine, 8 + 1 ), "\", "/" ) )
|
||||
ENDIF
|
||||
ENDIF
|
||||
NEXT
|
||||
|
||||
CASE cVCS == "git"
|
||||
|
||||
FOR EACH cLine IN aChanges
|
||||
IF ! Empty( cLine ) .AND. SubStr( cLine, 3, 1 ) == " "
|
||||
cStart := Left( cLine, 1 )
|
||||
IF Empty( Left( cLine, 1 ) )
|
||||
cStart := SubStr( cLine, 2, 1 )
|
||||
ENDIF
|
||||
SWITCH cStart
|
||||
CASE " "
|
||||
CASE "?"
|
||||
cStart := ""
|
||||
EXIT
|
||||
CASE "M"
|
||||
CASE "R"
|
||||
CASE "T"
|
||||
CASE "U"
|
||||
cStart := "*"
|
||||
EXIT
|
||||
CASE "A"
|
||||
CASE "C"
|
||||
cStart := "+"
|
||||
EXIT
|
||||
CASE "D"
|
||||
cStart := "-"
|
||||
EXIT
|
||||
OTHERWISE
|
||||
cStart := "?"
|
||||
ENDSWITCH
|
||||
IF ! Empty( cStart )
|
||||
AAdd( aNew, " " + cStart + " " + StrTran( SubStr( cLine, 3 + 1 ), "\", "/" ) )
|
||||
ENDIF
|
||||
ENDIF
|
||||
NEXT
|
||||
|
||||
ENDCASE
|
||||
|
||||
RETURN aNew
|
||||
|
||||
STATIC FUNCTION Shell()
|
||||
|
||||
LOCAL cShell
|
||||
|
||||
#if defined( __PLATFORM__UNIX )
|
||||
cShell := GetEnv( "SHELL" )
|
||||
#else
|
||||
cShell := GetEnv( "COMSPEC" )
|
||||
#endif
|
||||
|
||||
IF ! Empty( cShell )
|
||||
#if defined( __PLATFORM__UNIX )
|
||||
cShell += " -c"
|
||||
#else
|
||||
cShell += " /c"
|
||||
#endif
|
||||
ENDIF
|
||||
|
||||
RETURN cShell
|
||||
|
||||
STATIC FUNCTION CmdEscape( cCmd )
|
||||
|
||||
#if defined( __PLATFORM__UNIX )
|
||||
cCmd := '"' + cCmd + '"'
|
||||
#endif
|
||||
|
||||
RETURN cCmd
|
||||
|
||||
STATIC FUNCTION Changes( cVCS )
|
||||
|
||||
LOCAL cStdOut := ""
|
||||
|
||||
DO CASE
|
||||
CASE cVCS == "svn" ; hb_processRun( Shell() + " " + CmdEscape( "svn status -q" ),, @cStdOut )
|
||||
CASE cVCS == "git" ; hb_processRun( Shell() + " " + CmdEscape( "git status -s" ),, @cStdOut )
|
||||
ENDCASE
|
||||
|
||||
RETURN hb_ATokens( StrTran( cStdOut, Chr( 13 ) ), Chr( 10 ) )
|
||||
Reference in New Issue
Block a user