Calling a PRG function from C code

[Antonio Linares]

A working example:

Code: Select all  Expand view

function Main()

   Test()

return nil

function Another( cText )

   MsgInfo( cText, "From Another()" )

return "a string"

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>
#include <hbvm.h>

HB_FUNC( TEST )
{
  hb_vmPushSymbol( hb_dynsymGetSymbol( "ANOTHER" ) );
  hb_vmPushNil();
  hb_vmPushString( "PRG level from C", strlen( "PRG level from C" ) );
  hb_vmFunction( 1 );  
 
  MessageBox( 0, "return code from PRG", hb_parc( -1 ), 0 );
}

#pragma ENDDUMP