Looks like we're starting to resemble xhb.
Brgds,
Viktor
On 2010 Mar 29, at 21:43, Rossine wrote:
>
> Hi Vailton,
>
> Great :)
>
> Many, many thanks :)
>
> Rossine.
>
>
> Vailton Renato wrote:
>>
>> Hi!
>>
>> To support MT need this:
>>
>> [GETADDRESS.C]
>> #include "hbvmopt.h"
>> #include "hbapi.h"
>> #include "hbapiitm.h"
>> #include "hbstack.h"
>>
>> HB_FUNC( _GETADDRESS )
>> {
>> PHB_ITEM pItem = hb_param( 1, HB_IT_ANY );
>> PHB_ITEM pResult = hb_itemNew( NULL );
>> char buffer[ 16 ];
>>
>> memset( buffer, 0, sizeof( buffer ) );
>>
>> switch( hb_itemType( pItem ) )
>> {
>> case HB_IT_ARRAY:
>> hb_snprintf( buffer, sizeof( buffer ), "%p", ( pItem
>> )->item.asArray.value );
>> break;
>>
>> case HB_IT_STRING:
>> case HB_IT_MEMO:
>> hb_snprintf( buffer, sizeof( buffer ), "%p", ( pItem
>> )->item.asString.value );
>> break;
>>
>> case HB_IT_SYMBOL:
>> hb_snprintf( buffer, sizeof( buffer ), "%p", ( pItem
>> )->item.asSymbol.value->value.pFunPtr );
>> break;
>>
>> case HB_IT_POINTER:
>> hb_snprintf( buffer, sizeof( buffer ), "%p", ( pItem
>> )->item.asPointer.value );
>> break;
>>
>> default:
>> hb_snprintf( buffer, sizeof( buffer ), "%p", 0 );
>> break;
>> }
>>
>> hb_itemPutC( pResult, buffer );
>> hb_itemReturnRelease( pResult );
>> }
>> // end of file
>> _______________________________________________
>> Harbour mailing list (attachment size limit: 40KB)
>> [email protected]
>> http://lists.harbour-project.org/mailman/listinfo/harbour
>>
>>
>
> --
> View this message in context:
> http://old.nabble.com/Ask-Str2Poniter%28%29-and-Pointer2Str%28%29-function-pair-....-tp28042446p28074185.html
> Sent from the Harbour - Dev mailing list archive at Nabble.com.
>
> _______________________________________________
> Harbour mailing list (attachment size limit: 40KB)
> [email protected]
> http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
