Export a variable from C to Clipper

[jgayoso]

Hearing, as I can export a variable from a routine application of C to Clipper

I want to do the same thing:

            USE MYTABLE
            ? MYCAMPO1

but:
            fMyFunc_C ()
            ? MYCAMPO1

where:

# Pragma BEGINDUMP

          HB_FUNC (fMyFunc_C)
                  {
                       char MYCAMPO1 = 'HELLO';
                  }
# Pragma ENDDUMP




That fMyFunc to invoke () function is initialized and recognize the variable MYCAMPO1

[bpd2000]

Code: Select all | Expand

/* Código Harbour */REQUEST HB_GT_WIN_DEFAULTFunction Main()? Hola()WAITRETURN NIL/* Código C */#pragma BEGINDUMP#include <windows.h>#include "hbapi.h"HB_FUNC( HOLA ){hb_retc( "Hola Mundo" );}#pragma ENDDUMP

[jgayoso]

That's not what I want to do:

The idea is to simulate:

use mitabla
?micampo

how come:

fMiFuntion()
?myvar

where myvar is defined in fmifunction public or static

Code: Select all | Expand

/* Código Harbour */REQUEST HB_GT_WIN_DEFAULTFunction Main()? Hola()WAITRETURN NIL/* Código C */#pragma BEGINDUMP#include <windows.h>#include "hbapi.h"HB_FUNC( HOLA ){hb_retc( "Hola Mundo" );}#pragma ENDDUMP

[Antonio Linares]

Jorge,

As I answered you by email that this code is what you need:

Code: Select all | Expand

# pragma BEGINDUMP #include <hbapi.h>char * pszChar = "";HB_FUNC (FMI_C) {   if( hb_pcount() > 0 ) // cambiar el contenido de la variable   {      if( pszChar )         hb_xfree( pszChar )      pszChar = ( char * ) hb_xgrab( strlen( hb_parc( 1 ) ) + 1 );      strcpy( pszChar, hb_parc( 1 ) );   }   else   // obtener el valor de la variable      hb_retc( pszChar );} # pragma ENDDUMP