PHB_DYNS hb_dynsymGet( const char * szName ) /* finds and creates a symbol if not found */
{
char szUprName[ HB_SYMBOL_NAME_LEN + 1 ];
HB_TRACE( HB_TR_DEBUG, ( "hb_dynsymGet(%s)", szName ) );
/* make a copy as we may get a const string, then turn it to uppercase */
/* NOTE: This block is optimized for speed [vszakats] */
{
int iLen = HB_SYMBOL_NAME_LEN;
char * pDest = szUprName;
do
{
char cChar = *szName++;
if( cChar == 0 || cChar == ' ' || cChar == '\t' )
break;
else if( cChar >= 'a' && cChar <= 'z' )
*pDest++ = cChar - ( 'a' - 'A' );
else
*pDest++ = cChar;
}
while( --iLen );
*pDest = '\0';
}
return hb_dynsymGetCase( szUprName );
}
PHB_DYNS hb_dynsymGetCase_r( const char * szName, PHB_DYNS pDest )
{
PHB_DYNS pRet;
hb_dynsymLock();
pRet = hb_dynsymGetCase( szName );
if( pRet )
{
HB_MEMCPY( pDest, pRet, sizeof( HB_DYNS ) );
hb_dynsymUnlock();
return pDest;
}
hb_dynsymUnlock();
return NULL;
}
