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

2000-09-02 10:19 GMT+1 Bruno Cantero <bruno@issnet.net>

Browse Source
This commit is contained in:
Bruno Cantero
2000-09-02 08:25:12 +00:00
parent 42ac66d90d
commit d801e352af
4 changed files with 20 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -1,3 +1,12 @@
2000-09-02 10:19 GMT+1 Bruno Cantero <bruno@issnet.net>
* include/hbset.h
* source/rtl/set.c
* source/rdd/dbfcdx/dbfcdx1.c
! Changed SET_AUTOSHARE, now accept three values:
0: AUTOSHARE disabled.
1: AUTOSHARE enabled.
2: force exclusive mode.
2000-09-02 09:37 GMT+1 Bruno Cantero <bruno@issnet.net>
* contrib/rdd_ads/rddads.h
* contrib/rdd_ads/ads1.c

4
harbour/include/hbset.h
View File

@@ -159,7 +159,7 @@ typedef struct
BOOL HB_SET_OPTIMIZE;
BOOL HB_SET_AUTOPEN;
BOOL HB_SET_AUTORDER;
BOOL HB_SET_AUTOSHARE;
int HB_SET_AUTOSHARE;
int HB_SET_VIDEOMODE;
} HB_SET_STRUCT;
@@ -172,4 +172,4 @@ extern void hb_setRelease( void );
}
#endif
#endif /* HB_SET_H_ */
#endif /* HB_SET_H_ */

1
harbour/source/rdd/dbfcdx/dbfcdx1.c
View File

@@ -713,7 +713,6 @@ ERRCODE hb_cdxOpen( CDXAREAP pArea, LPDBOPENINFO pOpenInfo )
{
HB_TRACE(HB_TR_DEBUG, ("hb_cdxOpen(%p, %p)", pArea, pOpenInfo));
/* Force exclusive mode */
if( hb_set.HB_SET_AUTOSHARE == 2 )
pOpenInfo->fShared = FALSE;

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

@@ -355,8 +355,14 @@ HB_FUNC( SET )
if( args > 1 ) hb_set.HB_SET_AUTORDER = set_logical( pArg2 );
break;
case HB_SET_AUTOSHARE :
hb_retl( hb_set.HB_SET_AUTOSHARE );
if( args > 1 ) hb_set.HB_SET_AUTOSHARE = set_logical( pArg2 );
hb_retni( hb_set.HB_SET_AUTOSHARE );
if( args > 1 )
{
if( set_number( pArg2, hb_set.HB_SET_AUTOSHARE ) < 0 )
hb_errRT_BASE( EG_ARG, 2020, NULL, "SET" );
else
hb_set.HB_SET_MARGIN = set_number( pArg2, hb_set.HB_SET_AUTOSHARE );
}
break;
case HB_SET_BELL :
hb_retl( hb_set.HB_SET_BELL );
@@ -626,7 +632,7 @@ void hb_setInitialize( void )
hb_set.hb_set_althan = FS_ERROR;
hb_set.HB_SET_AUTOPEN = FALSE;
hb_set.HB_SET_AUTORDER = FALSE;
hb_set.HB_SET_AUTOSHARE = FALSE;
hb_set.HB_SET_AUTOSHARE = 0;
hb_set.HB_SET_BELL = FALSE;
hb_set.HB_SET_CANCEL = TRUE;
hb_set.hb_set_century = FALSE;