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

See ChangeLog entry 2000-05-04 18:00 GMT-4 David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2000-05-04 21:11:05 +00:00
parent afd8141942
commit 91127d11b9
2 changed files with 15 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -1,3 +1,10 @@
2000-05-04 18:00 GMT-4 David G. Holm <dholm@jsd-llc.com>
* contrib/rdd_ads/ads1.c
! The adsGoBottom() function was not using the current index order.
% Minor formatting changes (added missing space in front of ? and on
both sides of : in several ?: expressions)
20000504-17:10 GMT+1 Ryszard Glab <rglab@imid.med.pl>
*include/hbvm.h

16
harbour/contrib/rdd_ads/ads1.c
View File

@@ -201,7 +201,7 @@ static ERRCODE hb_adsCheckBofEof( ADSAREAP pArea )
AdsAtEOF( pArea->hTable, (UNSIGNED16 *)&(pArea->fEof) );
if( pArea->fBof && !pArea->fEof )
AdsSkip ( (pArea->hOrdCurrent)? pArea->hOrdCurrent:pArea->hTable, 1 );
AdsSkip ( (pArea->hOrdCurrent) ? pArea->hOrdCurrent:pArea->hTable, 1 );
return SUPER_SKIPFILTER( (AREAP)pArea, 1 );
}
@@ -237,7 +237,7 @@ static ERRCODE adsGoBottom( ADSAREAP pArea )
{
HB_TRACE(HB_TR_DEBUG, ("adsGoBottom(%p)", pArea));
AdsGotoBottom ( pArea->hTable );
AdsGotoBottom ( (pArea->hOrdCurrent) ? pArea->hOrdCurrent : pArea->hTable );
hb_adsCheckBofEof( pArea );
return SUPER_SKIPFILTER( (AREAP)pArea, -1 );
}
@@ -286,14 +286,14 @@ static ERRCODE adsGoTop( ADSAREAP pArea )
{
HB_TRACE(HB_TR_DEBUG, ("adsGoTop(%p)", pArea));
AdsGotoTop ( (pArea->hOrdCurrent)? pArea->hOrdCurrent:pArea->hTable );
AdsGotoTop ( (pArea->hOrdCurrent) ? pArea->hOrdCurrent : pArea->hTable );
hb_adsCheckBofEof( pArea );
return SUPER_SKIPFILTER( (AREAP)pArea, 1 );
}
static ERRCODE adsSeek( ADSAREAP pArea, BOOL bSoftSeek, PHB_ITEM pKey, BOOL bFindLast )
{
UNSIGNED16 usSeekType = ( bSoftSeek )? ADS_SOFTSEEK:ADS_HARDSEEK;
UNSIGNED16 usSeekType = ( bSoftSeek ) ? ADS_SOFTSEEK : ADS_HARDSEEK;
HB_TRACE(HB_TR_DEBUG, ("adsSeek(%p, %d, %p, %d)", pArea, bSoftSeek, pKey, bFindLast));
if( bFindLast )
@@ -323,7 +323,7 @@ static ERRCODE adsSkipRaw( ADSAREAP pArea, LONG toSkip )
HB_TRACE(HB_TR_DEBUG, ("adsSkipRaw(%p)", pArea));
ulRetVal = AdsSkip ( (pArea->hOrdCurrent)? pArea->hOrdCurrent:pArea->hTable, toSkip );
ulRetVal = AdsSkip ( (pArea->hOrdCurrent) ? pArea->hOrdCurrent : pArea->hTable, toSkip );
hb_adsCheckBofEof( pArea );
if ( ulRetVal == AE_SUCCESS )
return SUCCESS;
@@ -802,8 +802,8 @@ static ERRCODE adsOpen( ADSAREAP pArea, LPDBOPENINFO pOpenInfo )
ulRetVal = AdsOpenTable ( 0, pOpenInfo->abName, NULL,
adsFileType, adsCharType, adsLockType, adsRights,
( (pOpenInfo->fShared)? ADS_SHARED:ADS_EXCLUSIVE ) |
( (pOpenInfo->fReadonly)? ADS_READONLY:ADS_DEFAULT ),
( (pOpenInfo->fShared) ? ADS_SHARED : ADS_EXCLUSIVE ) |
( (pOpenInfo->fReadonly) ? ADS_READONLY : ADS_DEFAULT ),
&hTable);
if( ulRetVal != AE_SUCCESS )
{
@@ -1004,7 +1004,7 @@ static ERRCODE adsOrderInfo( ADSAREAP pArea, USHORT uiIndex, LPDBORDERINFO pOrde
{
case DBOI_BAGEXT:
hb_itemPutC( pOrderInfo->itmResult,
((adsFileType==ADS_ADT) ? ".adi" : (adsFileType==ADS_CDX)? ".cdx" : ".ntx") );
((adsFileType==ADS_ADT) ? ".adi" : (adsFileType==ADS_CDX) ? ".cdx" : ".ntx") );
break;
case DBOI_EXPRESSION:
AdsGetIndexExpr( phIndex, aucBuffer, &pusLen);