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

2016-06-22 23:58 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* include/dbinfo.ch
    * updated few comments

  * src/rdd/dbf1.c
  * src/rdd/delim1.c
    ! fixed dbInfo( DBI_SETHEADER ) and hb_rddInfo( RDDI_SETHEADER )
      to not changer previous settings
    ! set DB_SETHEADER_APPENDSYNC as default update header mode
This commit is contained in:
Przemysław Czerpak
2016-06-22 23:58:12 +02:00
parent 6df7fc6132
commit 7bc80aaf1d
4 changed files with 41 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/rdd/dbf1.c
View File

@@ -3780,10 +3780,15 @@ static HB_ERRCODE hb_dbfInfo( DBFAREAP pArea, HB_USHORT uiIndex, PHB_ITEM pItem
}
case DBI_SETHEADER:
{
int iMode = hb_itemGetNI( pItem );
hb_itemPutNI( pItem, pArea->uiSetHeader );
if( ( iMode & ~0xFF ) == 0 )
pArea->uiSetHeader = iMode;
HB_UINT uiSetHeader = pArea->uiSetHeader;
if( HB_IS_NUMERIC( pItem ) )
{
int iMode = hb_itemGetNI( pItem );
if( ( iMode & ~0xFF ) == 0 )
pArea->uiSetHeader = iMode;
}
hb_itemPutNI( pItem, uiSetHeader );
break;
}
case DBI_ROLLBACK:
@@ -6536,6 +6541,7 @@ static void hb_dbfInitTSD( void * Cargo )
( ( LPDBFDATA ) Cargo )->bTableType = DB_DBF_STD;
( ( LPDBFDATA ) Cargo )->bCryptType = DB_CRYPT_NONE;
( ( LPDBFDATA ) Cargo )->uiDirtyRead = HB_IDXREAD_CLEANMASK;
( ( LPDBFDATA ) Cargo )->uiSetHeader = DB_SETHEADER_APPENDSYNC;
}
static void hb_dbfDestroyTSD( void * Cargo )
@@ -6654,11 +6660,15 @@ static HB_ERRCODE hb_dbfRddInfo( LPRDDNODE pRDD, HB_USHORT uiIndex, HB_ULONG ulC
}
case RDDI_SETHEADER:
{
int iMode = hb_itemGetNI( pItem );
HB_USHORT uiSetHeader = pData->uiSetHeader;
hb_itemPutNI( pItem, pData->uiSetHeader );
if( ( iMode & ~0xFF ) == 0 )
pData->uiSetHeader = ( HB_USHORT ) iMode;
if( HB_IS_NUMERIC( pItem ) )
{
int iMode = hb_itemGetNI( pItem );
if( ( iMode & ~0xFF ) == 0 )
pData->uiSetHeader = ( HB_USHORT ) iMode;
}
hb_itemPutNI( pItem, uiSetHeader );
break;
}
case RDDI_DIRTYREAD:

13
src/rdd/delim1.c
View File

@@ -1649,11 +1649,14 @@ static HB_ERRCODE hb_delimRddInfo( LPRDDNODE pRDD, HB_USHORT uiIndex, HB_ULONG u
case RDDI_SETHEADER:
{
LPDELIMDATA pData = DELIMNODE_DATA( pRDD );
int iMode = hb_itemGetNI( pItem );
hb_itemPutNI( pItem, pData->uiSetHeader );
if( iMode == 0 || iMode == 1 )
pData->uiSetHeader = ( HB_USHORT ) iMode;
HB_USHORT uiSetHeader = pData->uiSetHeader;
if( HB_IS_NUMERIC( pItem ) )
{
int iMode = hb_itemGetNI( pItem );
if( iMode == 0 || iMode == 1 )
pData->uiSetHeader = ( HB_USHORT ) iMode;
}
hb_itemPutNI( pItem, uiSetHeader );
break;
}
default: