Files
harbour-core/harbour/src/vm/strapi.c
Przemyslaw Czerpak cb65540d4e 2009-12-11 20:42 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/src/vm/strapi.c
  * harbour/include/hbapistr.h
    + added new functions to operate on Harbour wide character strings:
         ULONG hb_wstrlen( const HB_WCHAR * szText );
         HB_WCHAR * hb_wstrdup( const HB_WCHAR * szText );
         HB_WCHAR * hb_wstrndup( const HB_WCHAR * szText, ULONG ulLen );
         int hb_wstrcmp( const HB_WCHAR * s1, const HB_WCHAR * s2 );
         int hb_wstrncmp( const HB_WCHAR * s1,
                          const HB_WCHAR * s2, ULONG count );
    + added new functions to convert NULL pointers to empty strings:
         const char * hb_strnull( const char * str );
         const HB_WCHAR * hb_wstrnull( const HB_WCHAR * str );
    + added new functions to convert string buffer returned by Harbour
      string functions to writable state:
         char * hb_strunshare( void ** phStr,
                               const char * pStr, ULONG ulLen );
         HB_WCHAR * hb_wstrunshare( void ** phStr,
                                    const HB_WCHAR * pStr, ULONG ulLen );
  * harbour/include/hbwinuni.h
    ! fixed HB_PARSTRDEF() to return empty string instead of NULL
    ! fixed HB_ARRAYSETSTR() to accept NULL as string parameter
2009-12-11 19:42:40 +00:00

713 lines
19 KiB
C

/*
* $Id$
*/
/*
* Harbour Project source code:
* string API functions
*
* Copyright 2009 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
#include "hbvmopt.h"
#include "hbapistr.h"
#include "hbapiitm.h"
#include "hbstack.h"
static const HB_WCHAR s_szConstStr[ 1 ] = { 0 };
ULONG hb_wstrlen( const HB_WCHAR * szText )
{
ULONG ulLen = 0;
HB_TRACE(HB_TR_DEBUG, ("hb_wstrlen(%p)", szText));
if( szText )
{
while( szText[ ulLen ] )
++ulLen;
}
return ulLen;
}
int hb_wstrcmp( const HB_WCHAR * s1, const HB_WCHAR * s2 )
{
int rc = 0;
HB_TRACE(HB_TR_DEBUG, ("hb_wstrcmp(%p, %p)", s1, s2));
for( ;; )
{
if( *s1 != *s2 )
{
rc = ( *s1 < *s2 ? -1 : 1 );
break;
}
else if( *s1 == 0 )
break;
s1++;
s2++;
}
return rc;
}
int hb_wstrncmp( const HB_WCHAR * s1, const HB_WCHAR * s2, ULONG count )
{
int rc = 0;
HB_TRACE(HB_TR_DEBUG, ("hb_wstrncmp(%p, %p, %lu)", s1, s2, count));
while( count-- )
{
if( *s1 != *s2 )
{
rc = ( *s1 < *s2 ? -1 : 1 );
break;
}
else if( *s1 == 0 )
break;
s1++;
s2++;
}
return rc;
}
HB_WCHAR * hb_wstrdup( const HB_WCHAR * szText )
{
HB_WCHAR * pszDest;
ULONG ulSize;
HB_TRACE(HB_TR_DEBUG, ("hb_wstrdup(%p)", szText));
ulSize = ( hb_wstrlen( szText ) + 1 ) * sizeof( HB_WCHAR );
pszDest = ( HB_WCHAR * ) hb_xgrab( ulSize );
memcpy( pszDest, szText, ulSize );
return pszDest;
}
HB_WCHAR * hb_wstrndup( const HB_WCHAR * szText, ULONG ulLen )
{
HB_WCHAR * pszDest;
ULONG ulSize;
HB_TRACE(HB_TR_DEBUG, ("hb_wstrndup(%p,%lu)", szText,ulLen));
ulSize = hb_wstrlen( szText );
if( ulSize < ulLen )
ulLen = ulSize;
ulSize = ulLen * sizeof( HB_WCHAR );
pszDest = ( HB_WCHAR * ) hb_xgrab( ulSize + sizeof( HB_WCHAR ) );
memcpy( pszDest, szText, ulSize );
pszDest[ ulLen ] = 0;
return pszDest;
}
HB_WCHAR * hb_wstrunshare( void ** phStr, const HB_WCHAR * pStr, ULONG ulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_wstrunshare(%p,%p,%lu)", phStr, pStr, ulLen));
if( pStr == NULL || phStr == NULL || *phStr == NULL )
return NULL;
if( *phStr == ( void * ) s_szConstStr && ulLen > 0 )
{
HB_WCHAR * pszDest = ( HB_WCHAR * ) hb_xgrab( ( ulLen + 1 ) *
sizeof( HB_WCHAR ) );
memcpy( pszDest, pStr, ulLen * sizeof( HB_WCHAR ) );
pszDest[ ulLen ] = 0;
* phStr = ( void * ) pszDest;
return pszDest;
}
return ( HB_WCHAR * ) pStr;
}
char * hb_strunshare( void ** phStr, const char * pStr, ULONG ulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_strunshare(%p,%p,%lu)", phStr, pStr, ulLen));
if( pStr == NULL || phStr == NULL || *phStr == NULL )
return NULL;
if( *phStr == ( void * ) s_szConstStr && ulLen > 0 )
{
char * pszDest = ( char * ) hb_xgrab( ( ulLen + 1 ) * sizeof( char ) );
memcpy( pszDest, pStr, ulLen * sizeof( char ) );
pszDest[ ulLen ] = 0;
* phStr = ( void * ) pszDest;
return pszDest;
}
return ( char * ) pStr;
}
const char * hb_strnull( const char * str )
{
HB_TRACE(HB_TR_DEBUG, ("hb_strnull(%p)", str));
return str ? str : "";
}
const HB_WCHAR * hb_wstrnull( const HB_WCHAR * str )
{
HB_TRACE(HB_TR_DEBUG, ("hb_wstrnull(%p)", str));
return str ? str : s_szConstStr;
}
void hb_strfree( void * hString )
{
HB_TRACE(HB_TR_DEBUG, ("hb_strfree(%p)", hString));
if( hString && hString != ( void * ) s_szConstStr )
hb_xRefFree( hString );
}
const char * hb_itemGetStr( PHB_ITEM pItem, void * cdp, void ** phString, ULONG * pulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetStr(%p,%p,%p,%p)", pItem, cdp, phString, pulLen));
if( HB_IS_STRING( pItem ) )
{
const char * pString;
char * pFree = NULL;
ULONG ulSize = 0;
pString = hb_cdpnDup3( pItem->item.asString.value,
pItem->item.asString.length,
NULL, pulLen, &pFree, &ulSize,
hb_vmCDP(), ( PHB_CODEPAGE ) cdp );
if( pFree != NULL )
* phString = ( void * ) pFree;
else if( pItem->item.asString.allocated == 0 )
* phString = ( void * ) s_szConstStr;
else
{
* phString = ( void * ) pItem->item.asString.value;
hb_xRefInc( pItem->item.asString.value );
}
return pString;
}
if( pulLen )
* pulLen = 0;
* phString = NULL;
return NULL;
}
const char * hb_itemGetStrUTF8( PHB_ITEM pItem, void ** phString, ULONG * pulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetStrUTF8(%p,%p,%p)", pItem, phString, pulLen));
if( HB_IS_STRING( pItem ) )
{
PHB_CODEPAGE cdp = hb_vmCDP();
ULONG ulLen = hb_cdpStrAsUTF8Len( cdp, FALSE,
pItem->item.asString.value,
pItem->item.asString.length, 0 );
if( pulLen )
*pulLen = ulLen;
if( ulLen != pItem->item.asString.length )
{
char * pszUtf8 = ( char * ) hb_xgrab( ulLen + 1 );
hb_cdpStrToUTF8( cdp, FALSE,
pItem->item.asString.value, pItem->item.asString.length,
pszUtf8, ulLen + 1 );
* phString = ( void * ) pszUtf8;
return pszUtf8;
}
if( pItem->item.asString.allocated != 0 )
{
* phString = ( void * ) pItem->item.asString.value;
hb_xRefInc( pItem->item.asString.value );
}
else
* phString = ( void * ) s_szConstStr;
return pItem->item.asString.value;
}
if( pulLen )
* pulLen = 0;
* phString = NULL;
return NULL;
}
const HB_WCHAR * hb_itemGetStrU16( PHB_ITEM pItem, int iEndian,
void ** phString, ULONG * pulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemGetStrU16(%p,%d,%p,%p)", pItem, iEndian, phString, pulLen));
if( HB_IS_STRING( pItem ) )
{
HB_WCHAR * pszU16;
PHB_CODEPAGE cdp = hb_vmCDP();
ULONG ulLen = hb_cdpStrAsU16Len( cdp, FALSE,
pItem->item.asString.value,
pItem->item.asString.length, 0 );
if( pulLen )
*pulLen = ulLen;
if( ulLen == 0 )
{
* phString = ( void * ) s_szConstStr;
return s_szConstStr;
}
pszU16 = ( HB_WCHAR * ) hb_xgrab( ( ulLen + 1 ) * sizeof( HB_WCHAR ) );
hb_cdpStrToU16( cdp, FALSE, iEndian,
pItem->item.asString.value, pItem->item.asString.length,
pszU16, ulLen + 1 );
* phString = ( void * ) pszU16;
return pszU16;
}
if( pulLen )
* pulLen = 0;
* phString = NULL;
return NULL;
}
ULONG hb_itemCopyStr( PHB_ITEM pItem, void * cdp, char * pStrBuffer, ULONG ulSize )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemCopyStr(%p,%p,%p,%lu)", pItem, cdp, pStrBuffer, ulSize));
if( HB_IS_STRING( pItem ) )
{
return hb_cdpTransTo( pItem->item.asString.value,
pItem->item.asString.length,
pStrBuffer, ulSize,
hb_vmCDP(), ( PHB_CODEPAGE ) cdp );
}
return 0;
}
ULONG hb_itemCopyStrUTF8( PHB_ITEM pItem, char * pStrBuffer, ULONG ulSize )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemCopyStrUTF8(%p,%p,%lu)", pItem, pStrBuffer, ulSize));
if( HB_IS_STRING( pItem ) )
{
if( pStrBuffer )
ulSize = hb_cdpStrToUTF8( hb_vmCDP(), FALSE,
pItem->item.asString.value,
pItem->item.asString.length,
pStrBuffer, ulSize );
else
ulSize = hb_cdpStrAsUTF8Len( hb_vmCDP(), FALSE,
pItem->item.asString.value,
pItem->item.asString.length, ulSize );
return ulSize;
}
return 0;
}
ULONG hb_itemCopyStrU16( PHB_ITEM pItem, int iEndian, HB_WCHAR * pStrBuffer, ULONG ulSize )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemCopyStrU16(%p,%d,%p,%lu)", pItem, iEndian, pStrBuffer, ulSize));
if( HB_IS_STRING( pItem ) && ulSize )
{
if( pStrBuffer )
ulSize = hb_cdpStrToU16( hb_vmCDP(), FALSE, iEndian,
pItem->item.asString.value,
pItem->item.asString.length,
pStrBuffer, ulSize );
else
ulSize = hb_cdpStrAsU16Len( hb_vmCDP(), FALSE,
pItem->item.asString.value,
pItem->item.asString.length, ulSize );
return ulSize;
}
return 0;
}
PHB_ITEM hb_itemPutStrLen( PHB_ITEM pItem, void * cdp, const char * pStr, ULONG ulLen )
{
char * pszText;
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutStrLen(%p,%p,%p,%lu)", pItem, cdp, pStr, ulLen));
pszText = hb_cdpnDup( pStr, &ulLen, ( PHB_CODEPAGE ) cdp, hb_vmCDP() );
return hb_itemPutCLPtr( pItem, pszText, ulLen );
}
PHB_ITEM hb_itemPutStrLenUTF8( PHB_ITEM pItem, const char * pStr, ULONG ulLen )
{
PHB_CODEPAGE cdp;
char * pszDest;
ULONG ulDest;
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutStrLenUTF8(%p,%p,%lu)", pItem, pStr, ulLen));
cdp = hb_vmCDP();
ulDest = hb_cdpUTF8AsStrLen( cdp, FALSE, pStr, ulLen, 0 );
pszDest = ( char * ) hb_xgrab( ulDest + 1 );
hb_cdpUTF8ToStr( hb_vmCDP(), FALSE, pStr, ulLen, pszDest, ulDest + 1 );
return hb_itemPutCLPtr( pItem, pszDest, ulDest );
}
PHB_ITEM hb_itemPutStrLenU16( PHB_ITEM pItem, int iEndian, const HB_WCHAR * pStr, ULONG ulLen )
{
PHB_CODEPAGE cdp;
char * pszDest;
ULONG ulDest;
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutStrLenU16(%p,%d,%p,%lu)", pItem, iEndian, pStr, ulLen));
cdp = hb_vmCDP();
ulDest = hb_cdpU16AsStrLen( cdp, FALSE, pStr, ulLen, 0 );
pszDest = ( char * ) hb_xgrab( ulDest + 1 );
hb_cdpU16ToStr( hb_vmCDP(), FALSE, iEndian, pStr, ulLen, pszDest, ulDest + 1 );
return hb_itemPutCLPtr( pItem, pszDest, ulDest );
}
const char * hb_parstr( int iParam, void * cdp, void ** phString, ULONG * pulLen )
{
HB_STACK_TLS_PRELOAD
HB_TRACE(HB_TR_DEBUG, ("hb_parstr(%d,%p,%p,%p)", iParam, cdp, phString, pulLen));
if( iParam >= -1 && iParam <= hb_pcount() )
{
PHB_ITEM pItem = ( iParam == -1 ) ? hb_stackReturnItem() : hb_stackItemFromBase( iParam );
if( HB_IS_BYREF( pItem ) )
pItem = hb_itemUnRef( pItem );
return hb_itemGetStr( pItem, cdp, phString, pulLen );
}
if( pulLen )
* pulLen = 0;
* phString = NULL;
return NULL;
}
const char * hb_parstr_utf8( int iParam, void ** phString, ULONG * pulLen )
{
HB_STACK_TLS_PRELOAD
HB_TRACE(HB_TR_DEBUG, ("hb_parstr_utf8(%d,%p,%p)", iParam, phString, pulLen));
if( iParam >= -1 && iParam <= hb_pcount() )
{
PHB_ITEM pItem = ( iParam == -1 ) ? hb_stackReturnItem() : hb_stackItemFromBase( iParam );
if( HB_IS_BYREF( pItem ) )
pItem = hb_itemUnRef( pItem );
return hb_itemGetStrUTF8( pItem, phString, pulLen );
}
if( pulLen )
* pulLen = 0;
* phString = NULL;
return NULL;
}
const HB_WCHAR * hb_parstr_u16( int iParam, int iEndian,
void ** phString, ULONG * pulLen )
{
HB_STACK_TLS_PRELOAD
HB_TRACE(HB_TR_DEBUG, ("hb_parstr_u16(%d,%d,%p,%p)", iParam, iEndian, phString, pulLen));
if( iParam >= -1 && iParam <= hb_pcount() )
{
PHB_ITEM pItem = ( iParam == -1 ) ? hb_stackReturnItem() : hb_stackItemFromBase( iParam );
if( HB_IS_BYREF( pItem ) )
pItem = hb_itemUnRef( pItem );
return hb_itemGetStrU16( pItem, iEndian, phString, pulLen );
}
if( pulLen )
* pulLen = 0;
* phString = NULL;
return NULL;
}
void hb_retstr( void * cdp, const char * szText )
{
HB_STACK_TLS_PRELOAD
HB_TRACE(HB_TR_DEBUG, ("hb_retstr(%p,%s)", cdp, szText));
hb_itemPutStrLen( hb_stackReturnItem(), cdp, szText,
szText ? strlen( szText ) : 0 );
}
void hb_retstr_utf8( const char * szText )
{
HB_STACK_TLS_PRELOAD
HB_TRACE(HB_TR_DEBUG, ("hb_retstr_utf8(%s)", szText));
hb_itemPutStrLenUTF8( hb_stackReturnItem(), szText,
szText ? strlen( szText ) : 0 );
}
void hb_retstr_u16( int iEndian, const HB_WCHAR * szText )
{
HB_STACK_TLS_PRELOAD
HB_TRACE(HB_TR_DEBUG, ("hb_retstr_u16(%d,%p)", iEndian, szText));
hb_itemPutStrLenU16( hb_stackReturnItem(), iEndian, szText,
hb_wstrlen( szText ) );
}
void hb_retstrlen( void * cdp, const char * szText, ULONG ulLen )
{
HB_STACK_TLS_PRELOAD
HB_TRACE(HB_TR_DEBUG, ("hb_retstrlen(%p,%s,%lu)", cdp, szText, ulLen));
hb_itemPutStrLen( hb_stackReturnItem(), cdp, szText, ulLen );
}
void hb_retstrlen_utf8( const char * szText, ULONG ulLen )
{
HB_STACK_TLS_PRELOAD
HB_TRACE(HB_TR_DEBUG, ("hb_retstrlen_utf8(%s,%lu)", szText, ulLen));
hb_itemPutStrLenUTF8( hb_stackReturnItem(), szText, ulLen );
}
void hb_retstrlen_u16( int iEndian, const HB_WCHAR * szText, ULONG ulLen )
{
HB_STACK_TLS_PRELOAD
HB_TRACE(HB_TR_DEBUG, ("hb_retstrlen_u16(%d,%p,%lu)", iEndian, szText, ulLen));
hb_itemPutStrLenU16( hb_stackReturnItem(), iEndian, szText, ulLen );
}
int hb_storstr( void * cdp, const char * szText, int iParam )
{
HB_STACK_TLS_PRELOAD
HB_TRACE(HB_TR_DEBUG, ("hb_storstr(%p,%s,%d)", cdp, szText, iParam));
if( iParam == -1 )
{
hb_itemPutStrLen( hb_stackReturnItem(), cdp, szText,
szText ? strlen( szText ) : 0 );
return 1;
}
else if( iParam >= 0 && iParam <= hb_pcount() )
{
PHB_ITEM pItem = hb_stackItemFromBase( iParam );
if( HB_IS_BYREF( pItem ) )
{
hb_itemPutStrLen( hb_itemUnRef( pItem ), cdp, szText,
szText ? strlen( szText ) : 0 );
return 1;
}
}
return 0;
}
int hb_storstr_utf8( const char * szText, int iParam )
{
HB_STACK_TLS_PRELOAD
HB_TRACE(HB_TR_DEBUG, ("hb_storstr_utf8(%s,%d)", szText, iParam));
if( iParam == -1 )
{
hb_itemPutStrLenUTF8( hb_stackReturnItem(), szText,
szText ? strlen( szText ) : 0 );
return 1;
}
else if( iParam >= 0 && iParam <= hb_pcount() )
{
PHB_ITEM pItem = hb_stackItemFromBase( iParam );
if( HB_IS_BYREF( pItem ) )
{
hb_itemPutStrLenUTF8( hb_itemUnRef( pItem ), szText,
szText ? strlen( szText ) : 0 );
return 1;
}
}
return 0;
}
int hb_storstr_u16( int iEndian, const HB_WCHAR * szText, int iParam )
{
HB_STACK_TLS_PRELOAD
HB_TRACE(HB_TR_DEBUG, ("hb_storstr_u16(%d,%p,%d)", iEndian, szText, iParam));
if( iParam == -1 )
{
hb_itemPutStrLenU16( hb_stackReturnItem(), iEndian,
szText, hb_wstrlen( szText ) );
return 1;
}
else if( iParam >= 0 && iParam <= hb_pcount() )
{
PHB_ITEM pItem = hb_stackItemFromBase( iParam );
if( HB_IS_BYREF( pItem ) )
{
hb_itemPutStrLenU16( hb_itemUnRef( pItem ), iEndian,
szText, hb_wstrlen( szText ) );
return 1;
}
}
return 0;
}
int hb_storstrlen( void * cdp, const char * szText, ULONG ulLen, int iParam )
{
HB_STACK_TLS_PRELOAD
HB_TRACE(HB_TR_DEBUG, ("hb_storstrlen(%p,%s,%lu,%d)", cdp, szText, ulLen, iParam));
if( iParam == -1 )
{
hb_itemPutStrLen( hb_stackReturnItem(), cdp, szText, ulLen );
return 1;
}
else if( iParam >= 0 && iParam <= hb_pcount() )
{
PHB_ITEM pItem = hb_stackItemFromBase( iParam );
if( HB_IS_BYREF( pItem ) )
{
hb_itemPutStrLen( hb_itemUnRef( pItem ), cdp, szText, ulLen );
return 1;
}
}
return 0;
}
int hb_storstrlen_utf8( const char * szText, ULONG ulLen, int iParam )
{
HB_STACK_TLS_PRELOAD
HB_TRACE(HB_TR_DEBUG, ("hb_storstrlen_utf8(%s,%lu,%d)", szText, ulLen, iParam));
if( iParam == -1 )
{
hb_itemPutStrLenUTF8( hb_stackReturnItem(), szText, ulLen );
return 1;
}
else if( iParam >= 0 && iParam <= hb_pcount() )
{
PHB_ITEM pItem = hb_stackItemFromBase( iParam );
if( HB_IS_BYREF( pItem ) )
{
hb_itemPutStrLenUTF8( hb_itemUnRef( pItem ), szText, ulLen );
return 1;
}
}
return 0;
}
int hb_storstrlen_u16( int iEndian, const HB_WCHAR * szText, ULONG ulLen, int iParam )
{
HB_STACK_TLS_PRELOAD
HB_TRACE(HB_TR_DEBUG, ("hb_storstrlen_u16(%d,%p,%lu,%d)", iEndian, szText, ulLen, iParam));
if( iParam == -1 )
{
hb_itemPutStrLenU16( hb_stackReturnItem(), iEndian, szText, ulLen );
return 1;
}
else if( iParam >= 0 && iParam <= hb_pcount() )
{
PHB_ITEM pItem = hb_stackItemFromBase( iParam );
if( HB_IS_BYREF( pItem ) )
{
hb_itemPutStrLenU16( hb_itemUnRef( pItem ), iEndian, szText, ulLen );
return 1;
}
}
return 0;
}