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

2002-01-18 17:45 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2002-01-18 14:44:55 +00:00
parent 98c68cf419
commit fc22b231b1
2 changed files with 22 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -7,6 +7,10 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2002-01-19 13:39 UTC-0300 Horacio Roldan <harbour_ar@yahoo.com.ar>
* source/rdd/dbfcdx1.c
! fixed a bug in descending skipping
+ added support for ordKeyNo() and ordKeyCount()
2002-01-19 08:00 UTC+0700 Andi Jahja <harbour@cbn.net.id>
* source/rtl/typefile.prg

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

@@ -1723,7 +1723,7 @@ static BOOL hb_ntxReadBuf( NTXAREAP pArea, BYTE* readBuffer, USHORT* numRecinBuf
static ERRCODE hb_ntxIndexCreate( LPNTXINDEX pIndex )
{
ULONG ulRecNo, ulRecCount, ulKeyNo = 0;
ULONG ulRecNo, ulRecCount, ulKeyNo = 0, lStep = 0;
USHORT uiCurLen;
char szBuffer[ HB_MAX_DOUBLE_LENGTH + 1 ];
NTXAREAP pArea;
@@ -1826,8 +1826,23 @@ static ERRCODE hb_ntxIndexCreate( LPNTXINDEX pIndex )
printf( "ntxCreateOrder" );
}
}
if( pArea->lpdbOrdCondInfo && !pArea->lpdbOrdCondInfo->fAll )
SELF_SKIP( ( AREAP ) pArea, 1 );
if( pArea->lpdbOrdCondInfo )
{
if( !pArea->lpdbOrdCondInfo->fAll )
SELF_SKIP( ( AREAP ) pArea, 1 );
if( pArea->lpdbOrdCondInfo->lStep )
{
lStep ++;
if( lStep == (ULONG) pArea->lpdbOrdCondInfo->lStep )
lStep = 0;
}
if( pArea->lpdbOrdCondInfo->itmCobEval && !lStep )
{
hb_vmPushSymbol( &hb_symEval );
hb_vmPush( pArea->lpdbOrdCondInfo->itmCobEval );
hb_vmDo( 0 );
}
}
}
if( ulKeyNo < ulRecCount && ulKeyNo%2 )
hb_ntxSortKeyAdd( pTag, &sortInfo, NULL, ulKeyNo );