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:
@@ -193,20 +193,28 @@ STATIC FUNCTION Shell()
|
||||
#endif
|
||||
|
||||
IF ! Empty( cShell )
|
||||
#if ! defined( __PLATFORM__UNIX )
|
||||
cShell := cShell + " /c"
|
||||
#if defined( __PLATFORM__UNIX )
|
||||
cShell += " -c"
|
||||
#else
|
||||
cShell += " /c"
|
||||
#endif
|
||||
ENDIF
|
||||
|
||||
RETURN cShell
|
||||
|
||||
STATIC FUNCTION CmdEscape( cCmd )
|
||||
#if defined( __PLATFORM__UNIX )
|
||||
cCmd := Chr( 34 ) + cCmd + Chr( 34 )
|
||||
#endif
|
||||
RETURN cCmd
|
||||
|
||||
STATIC FUNCTION Changes( cVCS )
|
||||
|
||||
LOCAL cStdOut := ""
|
||||
|
||||
DO CASE
|
||||
CASE cVCS == "svn" ; hb_processRun( Shell() + " " + "svn status -q",, @cStdOut )
|
||||
CASE cVCS == "git" ; hb_processRun( Shell() + " " + "git status -s",, @cStdOut )
|
||||
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