2010-09-30 10:55 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

* harbour/include/hbtrace.h
  * harbour/src/common/hbtrace.c
    + added new C function:
         int hb_tracesysout( int new_sysout )

  * harbour/src/rtl/trace.c
    + added new PRG function:
         HB_TRACESYSOUT( [ <nSysOut> | <lSysOut> ] ) -> <lPrevSysOut>

harbour/ChangeLog

@@ -16,6 +16,16 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2010-09-30 10:55 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/include/hbtrace.h
+  * harbour/src/common/hbtrace.c
+    + added new C function:
+         int hb_tracesysout( int new_sysout )
+
+  * harbour/src/rtl/trace.c
+    + added new PRG function:
+         HB_TRACESYSOUT( [ <nSysOut> | <lSysOut> ] ) -> <lPrevSysOut>
+
 2010-09-30 01:34 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
   * contrib/hbqt/qtgui/g/TQFormLayout.prg
   * contrib/hbqt/qtgui/g/TQGraphicsItem.prg
@@ -446,7 +456,7 @@
 
   * harbour/src/rtl/trace.c
     + added new PRG functions:
-         HB_TRACEFLUSH( [ <nFlush> | <lFlush> ] ) -> <lPrevFlush>
+         HB_TRACESYSOUT( [ <nFlush> | <lFlush> ] ) -> <lPrevFlush>
          HB_TRACEFILE( <cFileName> ) -> <lSetCorrectly>
     * modified PRG function HB_TRACESTATE() to accept logical value as
       parameter and return logical value as reult:

harbour/include/hbtrace.h

@@ -221,6 +221,7 @@ HB_TRACEINFO, * PHB_TRACEINFO;
 extern HB_EXPORT int       hb_tracestate( int new_state );
 extern HB_EXPORT int       hb_tracelevel( int new_level );
 extern HB_EXPORT int       hb_traceflush( int new_flush );
+extern HB_EXPORT int       hb_tracesysout( int new_sysout );
 extern HB_EXPORT HB_BOOL   hb_tracefile( const char * szFile );
 
 extern HB_EXPORT void      hb_tracelog( int level, const char * file, int line, const char * proc, const char * fmt, ... ) HB_PRINTF_FORMAT( 5, 6 );

harbour/src/common/hbtrace.c

@@ -146,6 +146,17 @@ int hb_traceflush( int new_flush )
    return old_flush;
 }
 
+int hb_tracesysout( int new_sysout )
+{
+   int old_sysout = s_sysout;
+
+   if( new_sysout == 0 ||
+       new_sysout == 1 )
+      s_sysout = new_sysout;
+
+   return old_sysout;
+}
+
 int hb_tr_level( void )
 {
    if( s_level == -1 )

harbour/src/rtl/trace.c

@@ -91,6 +91,12 @@ HB_FUNC( HB_TRACESTATE )
                                            hb_parnidef( 1, -1 ) ) );
 }
 
+HB_FUNC( HB_TRACESYSOUT )
+{
+   hb_retl( hb_tracesysout( HB_ISLOG( 1 ) ? hb_parl( 1 ) :
+                                            hb_parnidef( 1, -1 ) ) );
+}
+
 HB_FUNC( HB_TRACEFLUSH )
 {
    hb_retl( hb_traceflush( HB_ISLOG( 1 ) ? hb_parl( 1 ) :