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

See ChangeLog entry 19990528-14:30 EST David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
1999-05-28 19:37:25 +00:00
parent f55abccb04
commit 5e40953f32
2 changed files with 28 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -1,3 +1,10 @@
19990528-14:30 EST David G. Holm <dholm@jsd-llc.com>
* source/rtl/console.c
- NIL ouptuts "NIL", just like it used to before I removed it after
running some tests with Clipper, which turned out to be flawed.
- Improved link between GT API screen position and stdout/stderr
screen position.
19990528-23:15 WIB Andi Jahja <andij@aonlippo.co.id>
* source/tools/hb_f.c
- add hb_fselect

21
harbour/source/rtl/console.c
View File

@@ -81,6 +81,7 @@ static void hb_out( WORD wParam, void_func_int * hb_out_func )
break;
case IT_NIL:
hb_out_func( "NIL", 3 );
break;
case IT_LOGICAL:
@@ -106,6 +107,13 @@ static void hb_outstd( char * fpStr, WORD uiLen )
char * fpPtr = fpStr;
while( uiCount-- )
printf( "%c", *fpPtr++ );
#ifdef USE_GTAPI
if( isatty( fileno( stdout ) ) )
{
dev_col += uiLen;
_gtSetPos( dev_row, dev_col );
}
#endif;
}
/* Output an item to STDERR */
@@ -115,6 +123,13 @@ static void hb_outerr( char * fpStr, WORD uiLen )
char * fpPtr = fpStr;
while( uiCount-- )
fprintf( stderr, "%c", *fpPtr++ );
#ifdef USE_GTAPI
if( isatty( fileno( stdout ) ) )
{
dev_col += uiLen;
_gtSetPos( dev_row, dev_col );
}
#endif;
}
/* Output an item to the screen and/or printer and/or alternate */
@@ -125,7 +140,10 @@ static void hb_altout( char * fpStr, WORD uiLen )
#ifdef USE_GTAPI
_gtWriteCon( fpStr, uiLen );
if( stricmp( hb_set.HB_SET_DEVICE, "PRINTER" ) || hb_set_printhan < 0 )
{
_gtGetPos( &dev_row, &dev_col );
_gtSetPos( dev_row, dev_col );
}
#else
WORD uiCount;
for( uiCount = 0; uiCount < uiLen; uiCount++ )
@@ -155,7 +173,10 @@ static void hb_devout( char * fpStr, WORD uiLen )
/* Otherwise, display to console */
_gtWrite( fpStr, uiLen );
if( stricmp( hb_set.HB_SET_DEVICE, "PRINTER" ) || hb_set_printhan < 0 )
{
_gtGetPos( &dev_row, &dev_col );
_gtSetPos( dev_row, dev_col );
}
#else
WORD uiCount;
for( uiCount = 0; uiCount < uiLen; uiCount++ )