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

2001-10-27 20:15 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2001-10-27 16:15:08 +00:00
parent 920f3afcb1
commit a28c708abc
3 changed files with 31 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-10-27 20:15 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/dbfntx1.c
* logical index support added ( code posted by Matteo Baccan )
! source/pp/pplib.c
! bug fixed in __pp_free() function
2001-10-27 06:50 GMT -3 Luiz Rafael Culik<culik@sl.conex.net>
* hb_slex.vc
* Make file sincronized with makefile.vc thanks to Ron Pinkas <ron@profit-master.com>forn this file update

3
harbour/source/pp/pplib.c
View File

@@ -186,7 +186,10 @@ HB_FUNC( __PP_FREE )
hb_pp_Free();
if( hb_pp_aCondCompile )
{
hb_xfree( hb_pp_aCondCompile );
hb_pp_aCondCompile = NULL;
}
}
HB_FUNC( __PPADDRULE )

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

@@ -380,6 +380,11 @@ static void hb_ntxGetCurrentKey( LPTAGINFO pTag, LPKEYINFO pKey )
hb_itemGetDS( &hb_stack.Return, szBuffer );
hb_itemPutC( pKey->pItem,szBuffer );
break;
case HB_IT_LOGICAL:
szBuffer[0] = ( hb_itemGetL( &hb_stack.Return ) ? 'T':'F' );
szBuffer[1] = 0;
hb_itemPutC( pKey->pItem, szBuffer );
break;
}
}
else
@@ -401,6 +406,11 @@ static void hb_ntxGetCurrentKey( LPTAGINFO pTag, LPKEYINFO pKey )
hb_itemGetDS( hb_stackItemFromTop( - 1 ), szBuffer );
hb_itemPutC( pKey->pItem,szBuffer );
break;
case HB_IT_LOGICAL:
szBuffer[0] = ( hb_itemGetL( hb_stackItemFromTop( - 1 ) ) ? 'T' : 'F' );
szBuffer[1] = 0;
hb_itemPutC( pKey->pItem, szBuffer );
break;
}
hb_stackPop();
}
@@ -873,6 +883,8 @@ static int hb_ntxItemCompare( PHB_ITEM pKey1, PHB_ITEM pKey2, BOOL Exact )
case HB_IT_DATE:
iResult = hb_itemGetDL( pKey1 ) - hb_itemGetDL( pKey2 );
break;
case HB_IT_LOGICAL:
break;
*/
default:
iResult = 0;
@@ -1794,6 +1806,11 @@ static ERRCODE hb_ntxIndexCreate( LPNTXINDEX pIndex )
hb_itemGetDS( pItem, szBuffer );
hb_ntxSortKeyAdd( pTag, &sortInfo, szBuffer );
break;
case HB_IT_LOGICAL:
szBuffer[0] = ( hb_itemGetL( pItem ) ? 'T' : 'F' );
szBuffer[1] = 0;
hb_ntxSortKeyAdd( pTag, &sortInfo, szBuffer );
break;
default:
printf( "ntxCreateOrder" );
}
@@ -2114,6 +2131,11 @@ static ERRCODE ntxSeek( NTXAREAP pArea, BOOL bSoftSeek, PHB_ITEM pKey, BOOL bFin
hb_itemGetDS( pKey, szBuffer );
hb_itemPutC( pKey2->pItem,szBuffer );
break;
case HB_IT_LOGICAL:
szBuffer[0] = ( hb_itemGetL( pKey ) ? 'T' : 'F' );
szBuffer[1] = 0;
hb_itemPutC( pKey2->pItem, szBuffer );
break;
}
/* hb_itemCopy( pKey2->pItem, pKey ); */
if ( bFindLast )