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

2002-12-22 03:46 UTC-0300 Walter Negro <anegro@overnet.com.ar>

Browse Source 
* source/rtl/set.c
     ! Fix, reset PRINTFILE handle when close file.
This commit is contained in:
Walter Negro
2002-12-22 06:45:19 +00:00
parent 1f7ba8f009
commit e25ce2eda8
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
harbour/source/rtl/set.c
View File

@@ -239,7 +239,7 @@ static FHANDLE open_handle( char * file_name, BOOL bAppend, char * def_ext, HB_s
if( ( bPipe = ( set_specifier == HB_SET_PRINTFILE && \
(char) *file_name == '|' ) ) ) {
file_name++;
bAppend = FALSE;
bAppend = FALSE;
}
#endif
if( ! bPipe ) {
@@ -734,6 +734,7 @@ HB_FUNC( SET )
if( args > 1 && ! HB_IS_NIL( pArg2 ) )
{
close_binary( hb_set.hb_set_printhan );
hb_set.hb_set_printhan = FS_ERROR;
if( hb_set.HB_SET_PRINTFILE && strlen( hb_set.HB_SET_PRINTFILE ) > 0 )
hb_set.hb_set_printhan = open_handle( hb_set.HB_SET_PRINTFILE, bFlag, ".prn", HB_SET_PRINTFILE );
}