HMGforum.com

Code: Select all

#pragma -w2

PROCEDURE Main()
    LOCAL aValues := { .F., 'string 1', .T., .F., 5689, 6.593, 'text', 126, 0.3,9 }
    CLS
    
    TestArray( aValues ) 
 
RETURN

#pragma BEGINDUMP
#include "hbapi.h"

HB_FUNC_STATIC( TESTARRAY ) 
{
    #define btoa(x) ((x)?"true":"false")

    PHB_ITEM aValues = hb_param( 1, HB_IT_ARRAY );
    HB_ULONG size = hb_arrayLen( aValues );
    HB_ULONG i;
    int *tmpInt; 
    long *tmpLong;
    float *tmpFloat;    
    char *tmpString;
    HB_BOOL *tmpBool;     
     
    for( i = 1; i <= size; ++i ) 
    {
        switch ( hb_arrayGetType( aValues, i ) )
        {
            case HB_IT_STRING:
                tmpString = ( char* ) malloc( sizeof( char ) );
                
                *tmpString = hb_arrayGetC( aValues, i );      // hb_arrayGetC - Retrieves the string contained on an array element
                                                              // hb_arrayGetCPtr - Retrieves the string pointer on an array element
                printf( "valor cadena %c\n", *tmpString );
                //printf( "valor cadena \n" );
                break;
            
            case HB_IT_INTEGER:             
                tmpInt = ( int* ) malloc( sizeof( int ) ); 
                *tmpInt = hb_arrayGetNI( aValues, i ); 
                printf( "valor entero %d\n", *tmpInt );
                free( ( int* ) *tmpInt );
                break;
            case HB_IT_LONG:
                tmpLong = ( long* ) malloc( sizeof( long ) ); 
                *tmpLong = hb_arrayGetNL( aValues, i );
                printf( "valor entero largo");
                break;
            
            case HB_IT_DOUBLE:
                tmpFloat = ( float* ) malloc( sizeof( float ) );
                *tmpFloat = ( float ) hb_arrayGetND( aValues, i ); 
                printf( "valor double %f\n", *tmpFloat );  // decimal
                break;
            case HB_IT_LOGICAL: 
                tmpBool = ( HB_BOOL* ) malloc( sizeof( HB_BOOL ) );
                *tmpBool = hb_arrayGetL( aValues, i );                
                free( ( HB_BOOL* ) *tmpBool );
                //printf("%s\n", btoa( *tmpBool ));             // it works
                printf("%s\n", *tmpBool ? "verdadero" : "falso");
                break;             
            default: break; 
            } 
        } 
        
} 
#pragma ENDDUMP

Code: Select all

...
        switch ( hb_arrayGetType( aValues, i ) )
        {
            case HB_IT_STRING:
                printf( "valor cadena: \"%s\", length: %i\n", hb_arrayGetCPtr(aValues, i), (int) hb_arrayGetCLen(aValues, i) );
                break;
...