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

2001-11-06 19:28 GMT-3 Horacio Roldan <harbour_ar@yahoo.com.ar>

Browse Source 
* source/rdd/dbfcdx/dbfcdx2.h
   * source/rdd/dbfcdx/dbfcdx1.c
     ! fixed bug in OrdListAdd from previous change (now should work!)
     + added hb_cdxGetTagByNumber helper function
This commit is contained in:
Horacio Dario Roldan Kasimatis
2001-11-06 22:27:29 +00:00
parent 84f42199a2
commit e398d39612
3 changed files with 30 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
2001-11-06 19:28 GMT-3 Horacio Roldan <harbour_ar@yahoo.com.ar>
* source/rdd/dbfcdx/dbfcdx2.h
* source/rdd/dbfcdx/dbfcdx1.c
! fixed bug in OrdListAdd from previous change (now should work!)
+ added hb_cdxGetTagByNumber helper function
2001-11-06 09:50 GMT Dave Pearson <davep@davep.org>
* tests/Makefile
* testprof.prg was missing. Added.

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

@@ -2505,6 +2505,24 @@ static LPCDXTAG hb_cdxGetActiveTag( LPCDXINDEX PIF )
return pTag;
}
static LPCDXTAG hb_cdxGetTagByNumber(CDXAREAP pArea, USHORT uiTag )
{
LPCDXTAG pTag;
if ( ! uiTag )
return NULL;
pTag = pArea->lpIndexes->TagList;
--uiTag;
while( uiTag && pTag )
{
pTag = pTag->pNext;
--uiTag;
}
return pTag;
}
/* end hb_cdxTagxxx */
@@ -4068,6 +4086,7 @@ ERRCODE hb_cdxOrderCreate( CDXAREAP pAreaCdx, LPDBORDERCREATEINFO pOrderInfo )
return SELF_GOTOP( ( AREAP ) pArea );
}
ERRCODE hb_cdxOrderListAdd( CDXAREAP pAreaCdx, LPDBORDERINFO pOrderInfo )
{
USHORT uiFlags;
@@ -4185,7 +4204,8 @@ ERRCODE hb_cdxOrderListAdd( CDXAREAP pAreaCdx, LPDBORDERINFO pOrderInfo )
{
pTagTmp = TagList;
TagList = pTag1->pNext;
pTag1->pNext = pTagTmp;
pTag1->pNext = pTag1->pNext->pNext;
TagList->pNext = pTagTmp;
}
else
{
@@ -4194,7 +4214,8 @@ ERRCODE hb_cdxOrderListAdd( CDXAREAP pAreaCdx, LPDBORDERINFO pOrderInfo )
pTag2 = pTag2->pNext;
pTagTmp = pTag2->pNext;
pTag2->pNext = pTag1->pNext;
pTag1->pNext = pTagTmp;
pTag1->pNext = pTag1->pNext->pNext;
pTag2->pNext->pNext = pTagTmp;
}
}
}

1
harbour/source/rdd/dbfcdx/dbfcdx2.h
View File

@@ -135,3 +135,4 @@ static void hb_cdxSortAddInternal( LPSORTINFO pSort, USHORT Lvl, LONG Tag, LONG
LPKEYINFO Value );
static LPCDXTAG hb_cdxGetActiveTag( LPCDXINDEX PIF );
static USHORT hb_cdxFindTag( CDXAREAP pArea, LPDBORDERINFO pOrderInfo );
static LPCDXTAG hb_cdxGetTagByNumber(CDXAREAP pArea, USHORT uiTag );