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

2001-06-18 15:50 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2001-06-18 11:54:36 +00:00
parent 661adc8642
commit 8ed63dc26e
2 changed files with 26 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
2001-06-18 15:50 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/dbfntx/dbfntx1.c
! Bug fixed, related to Bof, Eof flags after seeking
! Seek "" works now as in CA-Clipper
* Added processing of DBOI_NAME to ntxOrderInfo, so Ordname() works now.
2001-06-17 22:50 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
*utils/hbmake/hbmake.prg
* Fixed an small bug regading the file existence

20
harbour/source/rdd/dbfntx/dbfntx1.c
View File

@@ -2025,6 +2025,13 @@ static ERRCODE ntxSeek( NTXAREAP pArea, BOOL bSoftSeek, PHB_ITEM pKey, BOOL bFin
switch( hb_itemType( pKey ) )
{
case HB_IT_STRING:
if( pKey->item.asString.length == 0 )
{
hb_ntxKeyFree( pKey2 );
retvalue = SELF_GOTOP( ( AREAP ) pArea );
pArea->fFound = TRUE;
return retvalue;
}
hb_itemCopy( pKey2->pItem, pKey );
break;
case HB_IT_INTEGER:
@@ -2075,6 +2082,7 @@ static ERRCODE ntxSeek( NTXAREAP pArea, BOOL bSoftSeek, PHB_ITEM pKey, BOOL bFin
pArea->lpCurIndex = NULL;
SELF_GOBOTTOM( ( AREAP ) pArea );
retvalue = SELF_SKIPRAW( ( AREAP ) pArea, 1 );
pArea->fBof = FALSE;
pArea->lpCurIndex = lpCurIndex;
return retvalue;
}
@@ -2601,6 +2609,18 @@ static ERRCODE ntxOrderInfo( NTXAREAP pArea, USHORT uiIndex, LPDBORDERINFO pInfo
}
hb_itemPutC( pInfo->itmResult, "" );
break;
case DBOI_NAME:
if( pArea->lpNtxIndex )
{
pIndex = ntxFindIndex( pArea , pInfo->itmOrder );
if( pIndex )
{
hb_itemPutC( pInfo->itmResult, pIndex->CompoundTag->TagName );
return SUCCESS;
}
}
hb_itemPutC( pInfo->itmResult, "" );
break;
case DBOI_BAGEXT:
hb_itemPutC( pInfo->itmResult, ".ntx" );
break;