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

2009-12-17 16:04 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* contrib/hbide/hbide.prg
    ! Some more info capturing in project building phase with QProcess().
This commit is contained in:
Pritpal Bedi
2009-12-18 02:12:49 +00:00
parent 550559695b
commit 113e55769d
2 changed files with 24 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -17,6 +17,10 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-12-17 16:04 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbide/hbide.prg
! Some more info capturing in project building phase with QProcess().
2009-12-18 03:02 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/src/rtl/gtxwc/gtxwc.c
! fixed holders for properties format 32 to be long - it's important

27
harbour/contrib/hbide/hbide.prg
View File

@@ -1895,8 +1895,9 @@ METHOD HbIde:buildProjectViaQt( cProject )
::qProcess:setReadChannelMode( 0 )
::qProcess:setReadChannel( 0 )
Qt_Connect_Signal( QT_PTROF( ::qProcess ), "readyReadStandardOutput()", {|o,i| ::readProcessInfo( 3, i, o ) } )
Qt_Connect_Signal( QT_PTROF( ::qProcess ), "finished(int,int)" , {|o,i| ::readProcessInfo( 2, i, o ) } )
Qt_Connect_Signal( QT_PTROF( ::qProcess ), "readyReadStandardOutput()", {|o,i| ::readProcessInfo( 2, i, o ) } )
Qt_Connect_Signal( QT_PTROF( ::qProcess ), "readyReadStandardError()" , {|o,i| ::readProcessInfo( 3, i, o ) } )
Qt_Connect_Signal( QT_PTROF( ::qProcess ), "finished(int,int)" , {|o,i| ::readProcessInfo( 4, i, o ) } )
::qProcess:start( "hbmk2.exe", qStringList )
@@ -1912,7 +1913,8 @@ METHOD HbIde:readProcessInfo( nMode, iBytes )
::cProcessInfo += ::qProcess:read( iBytes )
::oOutputResult:setData( ::cProcessInfo )
CASE nMode == 3
CASE nMode == 2
::qProcess:setReadChannel( 0 ) // QProcess_StandardOutput )
cLine := space( 1024 )
::qProcess:readLine( @cLine, 1024 )
IF !empty( cLine )
@@ -1920,12 +1922,23 @@ METHOD HbIde:readProcessInfo( nMode, iBytes )
::oOutputResult:oWidget:appendPlainText( cLine )
ENDIF
CASE nMode == 2
::qProcess:kill()
Qt_DisConnect_Signal( QT_PTROF( ::qProcess ), "finished(int,int)" )
Qt_DisConnect_Signal( QT_PTROF( ::qProcess ), "bytesWritten(int)" )
CASE nMode == 3
::qProcess:setReadChannel( 1 ) // QProcess_StandardError )
cLine := space( 1024 )
::qProcess:readLine( @cLine, 1024 )
IF !empty( cLine )
::cProcessInfo += CRLF + trim( cLine )
::oOutputResult:oWidget:appendPlainText( cLine )
ENDIF
CASE nMode == 4
HBXBP_DEBUG( Qt_DisConnect_Signal( QT_PTROF( ::qProcess ), "finished(int,int)" ) )
HBXBP_DEBUG( Qt_DisConnect_Signal( QT_PTROF( ::qProcess ), "readyReadStandardOutput()" ) )
HBXBP_DEBUG( Qt_DisConnect_Signal( QT_PTROF( ::qProcess ), "readyReadStandardError()" ) )
::qProcess:kill()
::qProcess:pPtr := 0
::qProcess := NIL
ENDCASE