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

See ChangeLog entry 2001-08-20 23:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2001-08-21 03:26:13 +00:00
parent 680c646427
commit 35d2603255
2 changed files with 33 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2001-08-20 23:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* source/rtl/set.c
! Synchronize SET CENTURY with SET DATE FORMAT.
2001-08-20 20:15 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
*utils/hbmake/hbmake.prg
*fixed some problem on library edit mode

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

@@ -338,7 +338,11 @@ HB_FUNC( __SETCENTURY )
format_len = strlen( szDateFormat );
if( y_stop < format_len ) strcat( szNewFormat, szDateFormat + y_stop );
hb_xfree( szDateFormat );
/* DATE FORMAT is under direct control of SET, so notify when it
it is changed indirectly via __SETCENTURY() */
hb_setListenerNotify( HB_SET_DATEFORMAT, HB_SET_LISTENER_BEFORE );
hb_set.HB_SET_DATEFORMAT = szNewFormat;
hb_setListenerNotify( HB_SET_DATEFORMAT, HB_SET_LISTENER_AFTER );
}
}
@@ -422,7 +426,30 @@ HB_FUNC( SET )
case HB_SET_DATEFORMAT :
if( hb_set.HB_SET_DATEFORMAT ) hb_retc( hb_set.HB_SET_DATEFORMAT );
else hb_retc( "" );
if( args > 1 ) hb_set.HB_SET_DATEFORMAT = set_string( pArg2, hb_set.HB_SET_DATEFORMAT );
if( args > 1 )
{
BOOL flag = FALSE;
int ch, i, year = 0;
hb_set.HB_SET_DATEFORMAT = set_string( pArg2, hb_set.HB_SET_DATEFORMAT );
for( i = 0; i < strlen(hb_set.HB_SET_DATEFORMAT); i++ )
{
ch = hb_set.HB_SET_DATEFORMAT[i];
if( !flag && ( ch == 'Y' || ch == 'y' ) )
year++; /* Only count the first set of consecutive "Y"s. */
else if( year )
flag = TRUE; /* Indicate non-consecutive. */
}
if( year >= 4 )
flag = TRUE;
else
flag = FALSE;
if( flag != hb_set.hb_set_century )
{
/* CENTURY is not controlled directly by SET, so there is no
notification for changing it indirectly via DATE FORMAT. */
hb_set.hb_set_century = flag;
}
}
break;
case HB_SET_DEBUG :
hb_retl( hb_set.HB_SET_DEBUG );