diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 92ffdbcb8b..32f677a6da 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,12 @@ The license applies to all entries newer than 2009-04-28. */ +2012-10-19 01:06 UTC+0200 Viktor Szakats (harbour syenar.net) + * contrib/xhb/xhbhash.c + * use HB_FUNC_TRANSLATE() on two extra functions which + were reimplemented but the same implementations also exist + in core so they can be used: HB_HSETAUTOADD()/HB_SETCASEMATCH() + 2012-10-19 00:55 UTC+0200 Viktor Szakats (harbour syenar.net) * contrib/hbct/ctwfunc.c * contrib/hbct/files.c diff --git a/harbour/contrib/xhb/xhbhash.c b/harbour/contrib/xhb/xhbhash.c index 6dfe3eeecc..9634cbc8e3 100644 --- a/harbour/contrib/xhb/xhbhash.c +++ b/harbour/contrib/xhb/xhbhash.c @@ -52,29 +52,29 @@ #include "hbapiitm.h" -HB_FUNC_TRANSLATE( HASH , HB_HASH ) -HB_FUNC_TRANSLATE( HHASKEY , HB_HHASKEY ) -HB_FUNC_TRANSLATE( HGETPOS , HB_HPOS ) -HB_FUNC_TRANSLATE( HGET , HB_HGET ) -HB_FUNC_TRANSLATE( HSET , HB_HSET ) -HB_FUNC_TRANSLATE( HDEL , HB_HDEL ) -HB_FUNC_TRANSLATE( HGETKEYAT , HB_HKEYAT ) -HB_FUNC_TRANSLATE( HGETVALUEAT , HB_HVALUEAT ) -HB_FUNC_TRANSLATE( HSETVALUEAT , HB_HVALUEAT ) -HB_FUNC_TRANSLATE( HGETPAIRAT , HB_HPAIRAT ) -HB_FUNC_TRANSLATE( HDELAT , HB_HDELAT ) -HB_FUNC_TRANSLATE( HGETKEYS , HB_HKEYS ) -HB_FUNC_TRANSLATE( HGETVALUES , HB_HVALUES ) -HB_FUNC_TRANSLATE( HFILL , HB_HFILL ) -HB_FUNC_TRANSLATE( HCLONE , HB_HCLONE ) -HB_FUNC_TRANSLATE( HCOPY , HB_HCOPY ) -HB_FUNC_TRANSLATE( HMERGE , HB_HMERGE ) -HB_FUNC_TRANSLATE( HEVAL , HB_HEVAL ) -HB_FUNC_TRANSLATE( HSCAN , HB_HSCAN ) -HB_FUNC_TRANSLATE( HALLOCATE , HB_HALLOCATE ) -HB_FUNC_TRANSLATE( HDEFAULT , HB_HDEFAULT ) -HB_FUNC_TRANSLATE( HGETCASEMATCH , HB_HCASEMATCH ) +HB_FUNC_TRANSLATE( HASH , HB_HASH ) +HB_FUNC_TRANSLATE( HHASKEY , HB_HHASKEY ) +HB_FUNC_TRANSLATE( HGETPOS , HB_HPOS ) +HB_FUNC_TRANSLATE( HGET , HB_HGET ) +HB_FUNC_TRANSLATE( HSET , HB_HSET ) +HB_FUNC_TRANSLATE( HDEL , HB_HDEL ) +HB_FUNC_TRANSLATE( HGETKEYAT , HB_HKEYAT ) +HB_FUNC_TRANSLATE( HGETVALUEAT , HB_HVALUEAT ) +HB_FUNC_TRANSLATE( HSETVALUEAT , HB_HVALUEAT ) +HB_FUNC_TRANSLATE( HGETPAIRAT , HB_HPAIRAT ) +HB_FUNC_TRANSLATE( HDELAT , HB_HDELAT ) +HB_FUNC_TRANSLATE( HGETKEYS , HB_HKEYS ) +HB_FUNC_TRANSLATE( HGETVALUES , HB_HVALUES ) +HB_FUNC_TRANSLATE( HFILL , HB_HFILL ) +HB_FUNC_TRANSLATE( HCLONE , HB_HCLONE ) +HB_FUNC_TRANSLATE( HCOPY , HB_HCOPY ) +HB_FUNC_TRANSLATE( HMERGE , HB_HMERGE ) +HB_FUNC_TRANSLATE( HEVAL , HB_HEVAL ) +HB_FUNC_TRANSLATE( HSCAN , HB_HSCAN ) +HB_FUNC_TRANSLATE( HALLOCATE , HB_HALLOCATE ) +HB_FUNC_TRANSLATE( HDEFAULT , HB_HDEFAULT ) +HB_FUNC_TRANSLATE( HGETCASEMATCH , HB_HCASEMATCH ) +HB_FUNC_TRANSLATE( HSETCASEMATCH , HB_HSETCASEMATCH ) +HB_FUNC_TRANSLATE( HSETAUTOADD , HB_SETAUTOADD ) -HB_FUNC_EXTERN( HB_HCASEMATCH ) ; HB_FUNC( HSETCASEMATCH ) { HB_FUNC_EXEC( HB_HCASEMATCH ); hb_itemReturn( hb_param( 1, HB_IT_HASH ) ); } -HB_FUNC_EXTERN( HB_HAUTOADD ) ; HB_FUNC( HSETAUTOADD ) { HB_FUNC_EXEC( HB_HAUTOADD ); hb_itemReturn( hb_param( 1, HB_IT_HASH ) ); } HB_FUNC_EXTERN( HB_HAUTOADD ) ; HB_FUNC( HGETAUTOADD ) { HB_FUNC_EXEC( HB_HAUTOADD ); hb_retl( hb_parni( -1 ) == HB_HASH_AUTOADD_ALWAYS ); }