int hb_storvnd( double dNumber, int iParam, ... )
{
static HB_STORVND s_storvnd = NULL;
if( ! s_storvnd )
{
s_storvnd = ( HB_STORVND ) hb_dllGetProcAddress( "hb_storvnd" );
if( ! s_storvnd )
HB_DLL_MSG_NO_FUNC( "hb_storvnd" );
}
if( s_storvnd )
{
HB_SIZE nArrayIndex = 0;
if( hb_extIsArray( iParam ) )
{
va_list va;
va_start( va, iParam );
nArrayIndex = va_arg( va, HB_SIZE );
va_end( va );
}
return s_storvnd( dNumber, iParam, nArrayIndex );
}
return 0;
}
PHB_FUNC hb_dllGetProcAddress( const char * szProcName )
{
static HB_PROC_GET s_pProcGet = NULL;
static HMODULE s_hModule = NULL;
if( s_hModule == NULL )
{
s_hModule = GetModuleHandle( HB_DLL_NAME );
if( s_hModule == NULL )
s_hModule = GetModuleHandle( HB_DLL_NAME2 );
if( s_hModule == NULL )
s_hModule = GetModuleHandle( NULL );
if( s_hModule != NULL )
{
static const char * s_szGetProcAddr = "_dll_hb_vmProcAddress";
int i = 6;
do
{
i -= i == 4 ? 3 : 1;
s_pProcGet = ( HB_PROC_GET ) GetProcAddress( s_hModule, s_szGetProcAddr + i );
}
while( s_pProcGet == NULL && i > 0 );
if( s_pProcGet == NULL )
HB_DLL_MSG_NO_FUNC( "hb_vmProcAddress" );
}
}
return s_pProcGet ? s_pProcGet( szProcName ) : NULL;
}
char * hb_parvdsbuff( char * szDate, int iParam, ... )
{
static HB_PARVDSBUFF s_parvdsbuff = NULL;
if( ! s_parvdsbuff )
{
s_parvdsbuff = ( HB_PARVDSBUFF ) hb_dllGetProcAddress( "hb_parvdsbuff" );
if( ! s_parvdsbuff )
HB_DLL_MSG_NO_FUNC( "hb_parvdsbuff" );
}
if( s_parvdsbuff )
{
HB_SIZE nArrayIndex = 0;
if( hb_extIsArray( iParam ) )
{
va_list va;
va_start( va, iParam );
nArrayIndex = va_arg( va, HB_SIZE );
va_end( va );
}
return s_parvdsbuff( szDate, iParam, nArrayIndex );
}
return szDate;
}
int hb_storvclen( const char * szText, HB_SIZE nLen, int iParam, ... )
{
static HB_STORVCLEN s_storvclen = NULL;
if( ! s_storvclen )
{
s_storvclen = ( HB_STORVCLEN ) hb_dllGetProcAddress( "hb_storvclen" );
if( ! s_storvclen )
HB_DLL_MSG_NO_FUNC( "hb_storvclen" );
}
if( s_storvclen )
{
HB_SIZE nArrayIndex = 0;
if( hb_extIsArray( iParam ) )
{
va_list va;
va_start( va, iParam );
nArrayIndex = va_arg( va, HB_SIZE );
va_end( va );
}
return s_storvclen( szText, nLen, iParam, nArrayIndex );
}
return 0;
}
const char * hb_parvc( int iParam, ... )
{
static HB_PARVC s_parvc = NULL;
if( ! s_parvc )
{
s_parvc = ( HB_PARVC ) hb_dllGetProcAddress( "hb_parvc" );
if( ! s_parvc )
HB_DLL_MSG_NO_FUNC( "hb_parvc" );
}
if( s_parvc )
{
HB_SIZE nArrayIndex = 0;
if( hb_extIsArray( iParam ) )
{
va_list va;
va_start( va, iParam );
nArrayIndex = va_arg( va, HB_SIZE );
va_end( va );
}
return s_parvc( iParam, nArrayIndex );
}
return NULL;
}
int hb_storvds( const char * szDate, int iParam, ... )
{
static HB_STORVDS s_storvds = NULL;
if( ! s_storvds )
{
s_storvds = ( HB_STORVDS ) hb_dllGetProcAddress( "hb_storvds" );
if( ! s_storvds )
HB_DLL_MSG_NO_FUNC( "hb_storvds" );
}
if( s_storvds )
{
HB_SIZE nArrayIndex = 0;
if( hb_extIsArray( iParam ) )
{
va_list va;
va_start( va, iParam );
nArrayIndex = va_arg( va, HB_SIZE );
va_end( va );
}
return s_storvds( szDate, iParam, nArrayIndex );
}
return 0;
}
int hb_storvnl( long lValue, int iParam, ... )
{
static HB_STORVNL s_storvnl = NULL;
if( ! s_storvnl )
{
s_storvnl = ( HB_STORVNL ) hb_dllGetProcAddress( "hb_storvnl" );
if( ! s_storvnl )
HB_DLL_MSG_NO_FUNC( "hb_storvnl" );
}
if( s_storvnl )
{
HB_SIZE nArrayIndex = 0;
if( hb_extIsArray( iParam ) )
{
va_list va;
va_start( va, iParam );
nArrayIndex = va_arg( va, HB_SIZE );
va_end( va );
}
return s_storvnl( lValue, iParam, nArrayIndex );
}
return 0;
}
PHB_FUNC hb_dllGetProcAddress( const char * szProcName )
{
static HB_PROC_GET s_pProcGet = NULL;
static HMODULE s_hModule = NULL;
if( s_hModule == NULL )
{
s_hModule = GetModuleHandle( HB_DLL_NAME );
if( s_hModule == NULL )
s_hModule = GetModuleHandle( HB_DLL_NAME2 );
if( s_hModule == NULL )
s_hModule = GetModuleHandle( NULL );
if( s_hModule != NULL )
{
int i = 5;
do
{
#if defined( HB_OS_WIN_CE )
LPCTSTR s_lpGetProcAddr = TEXT( "_dll_hb_vmProcAddress" );
s_pProcGet = ( HB_PROC_GET ) GetProcAddress( s_hModule, s_lpGetProcAddr + i );
#else
static const char * s_szGetProcAddr = "_dll_hb_vmProcAddress";
s_pProcGet = ( HB_PROC_GET ) GetProcAddress( s_hModule, s_szGetProcAddr + i );
#endif
}
while( s_pProcGet == NULL && ( i -= i == 4 ? 3 : 1 ) >= 0 );
if( s_pProcGet == NULL )
HB_DLL_MSG_NO_FUNC( "hb_vmProcAddress" );
}
}
return s_pProcGet ? s_pProcGet( szProcName ) : NULL;
}
int hb_parvni( int iParam, ... )
{
static HB_PARVNI s_parvni = NULL;
if( ! s_parvni )
{
s_parvni = ( HB_PARVNI ) hb_dllGetProcAddress( "hb_parvni" );
if( ! s_parvni )
HB_DLL_MSG_NO_FUNC( "hb_parvni" );
}
if( s_parvni )
{
HB_SIZE nArrayIndex = 0;
if( hb_extIsArray( iParam ) )
{
va_list va;
va_start( va, iParam );
nArrayIndex = va_arg( va, HB_SIZE );
va_end( va );
}
return s_parvni( iParam, nArrayIndex );
}
return 0;
}
HB_BOOL hb_arrayNew( PHB_ITEM pItem, HB_SIZE nLen )
{
static HB_ARRAYNEW s_arrayNew = NULL;
if( ! s_arrayNew )
{
s_arrayNew = ( HB_ARRAYNEW ) hb_dllGetProcAddress( "hb_arrayNew" );
if( ! s_arrayNew )
HB_DLL_MSG_NO_FUNC( "hb_arrayNew" );
}
return s_arrayNew ? s_arrayNew( pItem, nLen ) : HB_FALSE;
}
HB_SIZE hb_parinfa( int iParam, HB_SIZE nArrayIndex )
{
static HB_PARINFA s_parinfa = NULL;
if( ! s_parinfa )
{
s_parinfa = ( HB_PARINFA ) hb_dllGetProcAddress( "hb_parinfa" );
if( ! s_parinfa )
HB_DLL_MSG_NO_FUNC( "hb_parinfa" );
}
return s_parinfa ? s_parinfa( iParam, nArrayIndex ) : 0;
}
HB_BOOL hb_arrayDel( PHB_ITEM pArray, HB_SIZE nIndex )
{
static HB_ARRAYDEL s_arrayDel = NULL;
if( ! s_arrayDel )
{
s_arrayDel = ( HB_ARRAYDEL ) hb_dllGetProcAddress( "hb_arrayDel" );
if( ! s_arrayDel )
HB_DLL_MSG_NO_FUNC( "hb_arrayDel" );
}
return s_arrayDel ? s_arrayDel( pArray, nIndex ) : HB_FALSE;
}
HB_BOOL hb_arrayLast( PHB_ITEM pArray, PHB_ITEM pResult )
{
static HB_ARRAYLAST s_arrayLast = NULL;
if( ! s_arrayLast )
{
s_arrayLast = ( HB_ARRAYLAST ) hb_dllGetProcAddress( "hb_arrayLast" );
if( ! s_arrayLast )
HB_DLL_MSG_NO_FUNC( "hb_arrayLast" );
}
return s_arrayLast ? s_arrayLast( pArray, pResult ) : HB_FALSE;
}
HB_BOOL hb_arrayIns( PHB_ITEM pArray, HB_SIZE nIndex )
{
static HB_ARRAYINS s_arrayIns = NULL;
if( ! s_arrayIns )
{
s_arrayIns = ( HB_ARRAYINS ) hb_dllGetProcAddress( "hb_arrayIns" );
if( ! s_arrayIns )
HB_DLL_MSG_NO_FUNC( "hb_arrayIns" );
}
return s_arrayIns ? s_arrayIns( pArray, nIndex ) : HB_FALSE;
}
HB_BOOL hb_arrayIsObject( PHB_ITEM pArray )
{
static HB_ARRAYISOBJECT s_arrayIsObject = NULL;
if( ! s_arrayIsObject )
{
s_arrayIsObject = ( HB_ARRAYISOBJECT ) hb_dllGetProcAddress( "hb_arrayIsObject" );
if( ! s_arrayIsObject )
HB_DLL_MSG_NO_FUNC( "hb_arrayIsObject" );
}
return s_arrayIsObject ? s_arrayIsObject( pArray ) : HB_FALSE;
}
HB_BOOL hb_arrayAdd( PHB_ITEM pArray, PHB_ITEM pItem )
{
static HB_ARRAYADD s_arrayAdd = NULL;
if( ! s_arrayAdd )
{
s_arrayAdd = ( HB_ARRAYADD ) hb_dllGetProcAddress( "hb_arrayAdd" );
if( ! s_arrayAdd )
HB_DLL_MSG_NO_FUNC( "hb_arrayAdd" );
}
return s_arrayAdd ? s_arrayAdd( pArray, pItem ) : HB_FALSE;
}
HB_BOOL hb_arrayGet( PHB_ITEM pArray, HB_SIZE nIndex, PHB_ITEM pItem )
{
static HB_ARRAYGET s_arrayGet = NULL;
if( ! s_arrayGet )
{
s_arrayGet = ( HB_ARRAYGET ) hb_dllGetProcAddress( "hb_arrayGet" );
if( ! s_arrayGet )
HB_DLL_MSG_NO_FUNC( "hb_arrayGet" );
}
return s_arrayGet ? s_arrayGet( pArray, nIndex, pItem ) : HB_FALSE;
}
HB_SIZE hb_arrayLen( PHB_ITEM pArray )
{
static HB_ARRAYLEN s_arrayLen = NULL;
if( ! s_arrayLen )
{
s_arrayLen = ( HB_ARRAYLEN ) hb_dllGetProcAddress( "hb_arrayLen" );
if( ! s_arrayLen )
HB_DLL_MSG_NO_FUNC( "hb_arrayLen" );
}
return s_arrayLen ? s_arrayLen( pArray ) : 0;
}
HB_BOOL hb_arraySize( PHB_ITEM pArray, HB_SIZE nLen )
{
static HB_ARRAYSIZE s_arraySize = NULL;
if( ! s_arraySize )
{
s_arraySize = ( HB_ARRAYSIZE ) hb_dllGetProcAddress( "hb_arraySize" );
if( ! s_arraySize )
HB_DLL_MSG_NO_FUNC( "hb_arraySize" );
}
return s_arraySize ? s_arraySize( pArray, nLen ) : HB_FALSE;
}
HB_ULONG hb_parinfo( int iParam )
{
static HB_PARINFO s_parinfo = NULL;
if( ! s_parinfo )
{
s_parinfo = ( HB_PARINFO ) hb_dllGetProcAddress( "hb_parinfo" );
if( ! s_parinfo )
HB_DLL_MSG_NO_FUNC( "hb_parinfo" );
}
return s_parinfo ? s_parinfo( iParam ) : 0;
}
HB_BOOL hb_extIsArray( int iParam )
{
static HB_EXTISARRAY s_extIsArray = NULL;
if( ! s_extIsArray )
{
s_extIsArray = ( HB_EXTISARRAY ) hb_dllGetProcAddress( "hb_extIsArray" );
if( ! s_extIsArray )
HB_DLL_MSG_NO_FUNC( "hb_extIsArray" );
}
return s_extIsArray ? s_extIsArray( iParam ) : FALSE;
}
PHB_ITEM hb_param( int iParam, long lMask )
{
static HB_PARAM s_param = NULL;
if( ! s_param )
{
s_param = ( HB_PARAM ) hb_dllGetProcAddress( "hb_param" );
if( ! s_param )
HB_DLL_MSG_NO_FUNC( "hb_param" );
}
return s_param ? s_param( iParam, lMask ) : NULL;
}
int hb_pcount( void )
{
static HB_PCOUNT s_pcount = NULL;
if( ! s_pcount )
{
s_pcount = ( HB_PCOUNT ) hb_dllGetProcAddress( "hb_pcount" );
if( ! s_pcount )
HB_DLL_MSG_NO_FUNC( "hb_pcount" );
}
return s_pcount ? s_pcount() : 0;
}
PHB_ITEM hb_paramError( int iParam )
{
static HB_PARAMERROR s_paramError = NULL;
if( ! s_paramError )
{
s_paramError = ( HB_PARAMERROR ) hb_dllGetProcAddress( "hb_paramError" );
if( ! s_paramError )
HB_DLL_MSG_NO_FUNC( "hb_paramError" );
}
return s_paramError ? s_paramError( iParam ) : NULL;
}
void * hb_xgrab( HB_SIZE nSize )
{
static HB_XGRAB s_xgrab = NULL;
if( ! s_xgrab )
{
s_xgrab = ( HB_XGRAB ) hb_dllGetProcAddress( "hb_xgrab" );
if( ! s_xgrab )
HB_DLL_MSG_NO_FUNC( "hb_xgrab" );
}
return s_xgrab ? s_xgrab( nSize ) : NULL;
}
void * hb_xalloc( HB_SIZE nSize )
{
static HB_XALLOC s_xalloc = NULL;
if( ! s_xalloc )
{
s_xalloc = ( HB_XALLOC ) hb_dllGetProcAddress( "hb_xalloc" );
if( ! s_xalloc )
HB_DLL_MSG_NO_FUNC( "hb_xalloc" );
}
return s_xalloc ? s_xalloc( nSize ) : NULL;
}
void hb_reta( HB_SIZE nLen )
{
static HB_RETA s_reta = NULL;
if( ! s_reta )
{
s_reta = ( HB_RETA ) hb_dllGetProcAddress( "hb_reta" );
if( ! s_reta )
HB_DLL_MSG_NO_FUNC( "hb_reta" );
}
if( s_reta )
s_reta( nLen );
}
void hb_retnl( long lNumber )
{
static HB_RETNL s_retnl = NULL;
if( ! s_retnl )
{
s_retnl = ( HB_RETNL ) hb_dllGetProcAddress( "hb_retnl" );
if( ! s_retnl )
HB_DLL_MSG_NO_FUNC( "hb_retnl" );
}
if( s_retnl )
s_retnl( lNumber );
}
void hb_retndlen( double dNumber, int iWidth, int iDec )
{
static HB_RETNDLEN s_retndlen = NULL;
if( ! s_retndlen )
{
s_retndlen = ( HB_RETNDLEN ) hb_dllGetProcAddress( "hb_retndlen" );
if( ! s_retndlen )
HB_DLL_MSG_NO_FUNC( "hb_retndlen" );
}
if( s_retndlen )
s_retndlen( dNumber, iWidth, iDec );
}
void hb_retnllen( long lNumber, int iWidth )
{
static HB_RETNLLEN s_retnllen = NULL;
if( ! s_retnllen )
{
s_retnllen = ( HB_RETNLLEN ) hb_dllGetProcAddress( "hb_retnllen" );
if( ! s_retnllen )
HB_DLL_MSG_NO_FUNC( "hb_retnllen" );
}
if( s_retnllen )
s_retnllen( lNumber, iWidth );
}
