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

See ChangeLog entry 2002-08-02 12:05 UTC-0400 David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2002-08-02 16:07:59 +00:00
parent 4e6bbc5bff
commit 14a11b0150
2 changed files with 35 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2002-08-02 12:05 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* source/rtl/set.c
! When encountering SET ALTERNATE TO, close the file.
! When encountering SET(_SET_EXTRAFILE,NULL), close the file.
2002-07-25 13:42 UTC+0100 Ignacio Ortiz <ignacio@fivetech.com>
* source/pp/ppcore.c

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

@@ -411,10 +411,24 @@ HB_FUNC( SET )
case HB_SET_ALTFILE :
if( hb_set.HB_SET_ALTFILE ) hb_retc( hb_set.HB_SET_ALTFILE );
else hb_retc( NULL );
if( args > 1 && ! HB_IS_NIL( pArg2 ) ) hb_set.HB_SET_ALTFILE = set_string( pArg2, hb_set.HB_SET_ALTFILE );
if( args > 1 )
{
if( HB_IS_NIL( pArg2 ) )
{
if( hb_set.HB_SET_ALTFILE )
{
hb_xfree( hb_set.HB_SET_ALTFILE );
hb_set.HB_SET_ALTFILE = NULL;
}
}
else
{
hb_set.HB_SET_ALTFILE = set_string( pArg2, hb_set.HB_SET_ALTFILE );
}
}
if( args > 2 ) bFlag = set_logical( pArg3 );
else bFlag = FALSE;
if( args > 1 && ! HB_IS_NIL( pArg2 ) )
if( args > 1 )
{
close_text( hb_set.hb_set_althan );
if( hb_set.HB_SET_ALTFILE && strlen( hb_set.HB_SET_ALTFILE ) > 0 )
@@ -584,7 +598,21 @@ HB_FUNC( SET )
case HB_SET_EXTRAFILE :
if( hb_set.HB_SET_EXTRAFILE ) hb_retc( hb_set.HB_SET_EXTRAFILE );
else hb_retc( NULL );
if( args > 1 && ! HB_IS_NIL( pArg2 ) ) hb_set.HB_SET_EXTRAFILE = set_string( pArg2, hb_set.HB_SET_EXTRAFILE );
if( args > 1 )
{
if( HB_IS_NIL( pArg2 ) )
{
if( hb_set.HB_SET_EXTRAFILE )
{
hb_xfree( hb_set.HB_SET_EXTRAFILE );
hb_set.HB_SET_EXTRAFILE = NULL;
}
}
else
{
hb_set.HB_SET_EXTRAFILE = set_string( pArg2, hb_set.HB_SET_EXTRAFILE );
}
}
if( args > 2 ) bFlag = set_logical( pArg3 );
else bFlag = FALSE;
if( args > 1 && ! HB_IS_NIL( pArg2 ) )