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

2009-08-14 15:03 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rtl/run.c
  * harbour/source/rtl/hbrunfun.c
    ! do not use system() command in __run() and hb_run() functions in
      WinCE builds
This commit is contained in:
Przemyslaw Czerpak
2009-08-14 13:03:24 +00:00
parent 648b42fe95
commit 71747cd986
3 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -17,6 +17,12 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-08-14 15:03 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/run.c
* harbour/source/rtl/hbrunfun.c
! do not use system() command in __run() and hb_run() functions in
WinCE builds
2009-08-14 14:00 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/hbproces.c
! hacked hb_processRun() to work in WinCE.

6
harbour/source/rtl/hbrunfun.c
View File

@@ -54,6 +54,7 @@
#include "hbapierr.h"
#include "hbapigt.h"
#include "hbapiitm.h"
#include "hbapifs.h"
HB_FUNC( HB_RUN )
{
@@ -65,12 +66,17 @@ HB_FUNC( HB_RUN )
if( hb_gtSuspend() == HB_SUCCESS )
{
#if defined( HB_OS_WIN_CE )
iResult = hb_fsProcessRun( pszCommand,
NULL, 0, NULL, NULL, NULL, NULL, FALSE );
#else
char * pszFree;
iResult = system( hb_osEncode( pszCommand, &pszFree ) );
if( pszFree )
hb_xfree( pszFree );
#endif
hb_gtResume();
}

6
harbour/source/rtl/run.c
View File

@@ -54,6 +54,7 @@
#include "hbapierr.h"
#include "hbapigt.h"
#include "hbapiitm.h"
#include "hbapifs.h"
/* TOFIX: The screen buffer handling is not right for all platforms (Windows)
The output of the launched (DOS?) app is not visible. */
@@ -64,12 +65,17 @@ HB_FUNC( __RUN )
if( pszCommand && hb_gtSuspend() == 0 )
{
#if defined( HB_OS_WIN_CE )
iResult = hb_fsProcessRun( pszCommand,
NULL, 0, NULL, NULL, NULL, NULL, FALSE );
#else
char * pszFree;
if( system( hb_osEncode( pszCommand, &pszFree ) ) != 0 ) {}
if( pszFree )
hb_xfree( pszFree );
#endif
if( hb_gtResume() != 0 )
{