corlib_native_System_String.cpp

/MicroFrameworkPK_v4_2/CLR/Libraries/CorLib/corlib_native_System_String.cpp

https://github.com/pmfsampaio/NETMF-LPC
C++ | 1075 lines | 773 code | 283 blank | 19 comment | 106 complexity | f4334292252718df8352f7f2dd02b20e MD5 | raw file

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

// Copyright (c) Microsoft Corporation.  All rights reserved.

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////



#include "CorLib.h"





static const CLR_UINT16 c_WhiteSpaces[] =

{

    0x0009,

    0x000A,

    0x000B,

    0x000C,

    0x000D,

    0x0020,

    0x00A0,

    0x2000,

    0x2001,

    0x2002,

    0x2003,

    0x2004,

    0x2005,

    0x2006,

    0x2007,

    0x2008,

    0x2009,

    0x200A,

    0x200B,

    0x3000,

    0xFEFF,

};



//--//



HRESULT Library_corlib_native_System_String::get_Chars___CHAR__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    LPCSTR               szText;

    CLR_RT_UnicodeHelper uh;

    CLR_UINT16           buf[ 3 ];

    int                  len;

    int                  index;



    szText = stack.Arg0().RecoverString(); FAULT_ON_NULL(szText);



    uh.SetInputUTF8( szText );



    len   = uh.CountNumberOfCharacters()  ; if(len   < 0                ) TINYCLR_SET_AND_LEAVE(CLR_E_WRONG_TYPE);

    index = stack.Arg1().NumericByRef().s4; if(index < 0 || index >= len) TINYCLR_SET_AND_LEAVE(CLR_E_OUT_OF_RANGE);



    uh.m_outputUTF16      = buf;

    uh.m_outputUTF16_size = MAXSTRLEN(buf);



    //

    // First move to the character, then read it.

    //

    uh.ConvertFromUTF8( index, true  );

    uh.ConvertFromUTF8( 1    , false );



    stack.SetResult( buf[ 0 ], DATATYPE_CHAR );



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::ToCharArray___SZARRAY_CHAR( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(ToCharArray( stack, 0, -1 ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::ToCharArray___SZARRAY_CHAR__I4__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(ToCharArray( stack, stack.Arg1().NumericByRef().s4, stack.Arg2().NumericByRef().s4 ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::get_Length___I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    LPCSTR szText = stack.Arg0().RecoverString(); FAULT_ON_NULL(szText);



    CLR_RT_UnicodeHelper uh; uh.SetInputUTF8( szText );



    stack.SetResult_I4( uh.CountNumberOfCharacters() );



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::Split___SZARRAY_STRING__SZARRAY_CHAR( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(Split( stack, stack.Arg1(), 0x7FFFFFFF )); /// Sending INT_MAX instead of -1. 



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::Split___SZARRAY_STRING__SZARRAY_CHAR__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(Split( stack, stack.Arg1(), stack.Arg2().NumericByRef().s4 ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::Substring___STRING__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(Substring( stack, stack.Arg1().NumericByRef().s4, -1 ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::Substring___STRING__I4__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    CLR_INT32 length = stack.Arg2().NumericByRef().s4;



    if(length < 0) TINYCLR_SET_AND_LEAVE(CLR_E_OUT_OF_RANGE);



    TINYCLR_SET_AND_LEAVE(Substring( stack, stack.Arg1().NumericByRef().s4, length ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::Trim___STRING__SZARRAY_CHAR( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(Trim( stack, stack.Arg1().DereferenceArray(), true, true ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::TrimStart___STRING__SZARRAY_CHAR( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(Trim( stack, stack.Arg1().DereferenceArray(), true, false ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::TrimEnd___STRING__SZARRAY_CHAR( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(Trim( stack, stack.Arg1().DereferenceArray(), false, true ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::_ctor___VOID__SZARRAY_CHAR__I4__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(FromCharArray( stack, stack.Arg2().NumericByRef().s4, stack.Arg3().NumericByRef().s4 ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::_ctor___VOID__SZARRAY_CHAR( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(FromCharArray( stack, 0, -1 ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::_ctor___VOID__CHAR__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    CLR_UINT16 ch  = stack.Arg1().NumericByRef().u2;

    int        len = stack.Arg2().NumericByRef().s4; if(len < 0) TINYCLR_SET_AND_LEAVE(CLR_E_OUT_OF_RANGE);



    {

        CLR_RT_HeapBlock     tmp; tmp.SetObjectReference( NULL );

        CLR_RT_ProtectFromGC gc( tmp );



        TINYCLR_CHECK_HRESULT(CLR_RT_HeapBlock_Array::CreateInstance( tmp, len, g_CLR_RT_WellKnownTypes.m_Char ));



        {

            CLR_RT_HeapBlock_Array* tmpArray = tmp.DereferenceArray();

            CLR_UINT16*             pTmp     = (CLR_UINT16*)tmpArray->GetFirstElement();

            CLR_UINT16*             p;



            p = pTmp; while(len--) *p++ = ch;



            TINYCLR_CHECK_HRESULT(CLR_RT_HeapBlock_String::CreateInstance( stack.Arg0(), pTmp, tmpArray->m_numOfElements ));

        }

    }



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::CompareTo___I4__OBJECT( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(Library_corlib_native_System_String::CompareTo___I4__STRING( stack ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::CompareTo___I4__STRING( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    CLR_RT_HeapBlock& pThis = stack.Arg0(); // String references are special, they don't point to an object, they are the object. So use stack.Arg0() instead of stack.This()

    CLR_RT_HeapBlock& pArg  = stack.Arg1();



    stack.SetResult_I4( CLR_RT_HeapBlock::Compare_Unsigned_Values( pThis, pArg ) );



    TINYCLR_NOCLEANUP_NOLABEL();

}



HRESULT Library_corlib_native_System_String::IndexOf___I4__CHAR( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__SingleChar ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::IndexOf___I4__CHAR__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__SingleChar | c_IndexOf__StartIndex ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::IndexOf___I4__CHAR__I4__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__SingleChar | c_IndexOf__StartIndex | c_IndexOf__Count ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::IndexOfAny___I4__SZARRAY_CHAR( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__MultipleChars ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::IndexOfAny___I4__SZARRAY_CHAR__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__MultipleChars | c_IndexOf__StartIndex ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::IndexOfAny___I4__SZARRAY_CHAR__I4__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__MultipleChars | c_IndexOf__StartIndex | c_IndexOf__Count ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::IndexOf___I4__STRING( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__String ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::IndexOf___I4__STRING__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__String | c_IndexOf__StartIndex ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::IndexOf___I4__STRING__I4__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__String | c_IndexOf__StartIndex | c_IndexOf__Count ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::LastIndexOf___I4__CHAR( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__SingleChar | c_IndexOf__Last ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::LastIndexOf___I4__CHAR__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__SingleChar | c_IndexOf__Last | c_IndexOf__StartIndex ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::LastIndexOf___I4__CHAR__I4__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__SingleChar | c_IndexOf__Last | c_IndexOf__StartIndex | c_IndexOf__Count ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::LastIndexOfAny___I4__SZARRAY_CHAR( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__MultipleChars | c_IndexOf__Last ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::LastIndexOfAny___I4__SZARRAY_CHAR__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__MultipleChars | c_IndexOf__Last | c_IndexOf__StartIndex ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::LastIndexOfAny___I4__SZARRAY_CHAR__I4__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__MultipleChars | c_IndexOf__Last | c_IndexOf__StartIndex | c_IndexOf__Count ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::LastIndexOf___I4__STRING( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__String | c_IndexOf__Last ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::LastIndexOf___I4__STRING__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__String | c_IndexOf__Last | c_IndexOf__StartIndex ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::LastIndexOf___I4__STRING__I4__I4( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(IndexOf( stack, c_IndexOf__String | c_IndexOf__Last | c_IndexOf__StartIndex | c_IndexOf__Count ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::ToLower___STRING( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(ChangeCase( stack, false ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::ToUpper___STRING( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(ChangeCase( stack, true ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::Trim___STRING( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(Trim( stack, NULL, true, true ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::Equals___STATIC__BOOLEAN__STRING__STRING( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    stack.SetResult_Boolean( CLR_RT_HeapBlock::Compare_Unsigned_Values( stack.Arg0(), stack.Arg1() ) == 0 );



    TINYCLR_NOCLEANUP_NOLABEL();

}



HRESULT Library_corlib_native_System_String::op_Equality___STATIC__BOOLEAN__STRING__STRING( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(Library_corlib_native_System_String::Equals___STATIC__BOOLEAN__STRING__STRING( stack ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::op_Inequality___STATIC__BOOLEAN__STRING__STRING( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_CHECK_HRESULT(Library_corlib_native_System_String::Equals___STATIC__BOOLEAN__STRING__STRING( stack ));



    stack.NegateResult();



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::Compare___STATIC__I4__STRING__STRING( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    stack.SetResult_I4( CLR_RT_HeapBlock::Compare_Unsigned_Values( stack.Arg0(), stack.Arg1() ) );



    TINYCLR_NOCLEANUP_NOLABEL();

}



HRESULT Library_corlib_native_System_String::Concat___STATIC__STRING__STRING__STRING( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(Concat( stack, &stack.Arg0(), 2 ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::Concat___STATIC__STRING__STRING__STRING__STRING( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(Concat( stack, &stack.Arg0(), 3 ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::Concat___STATIC__STRING__STRING__STRING__STRING__STRING( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    TINYCLR_SET_AND_LEAVE(Concat( stack, &stack.Arg0(), 4 ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::Concat___STATIC__STRING__SZARRAY_STRING( CLR_RT_StackFrame& stack )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    CLR_RT_HeapBlock_Array* pArray = stack.Arg0().DereferenceArray(); FAULT_ON_NULL(pArray);



    TINYCLR_SET_AND_LEAVE(Concat( stack, (CLR_RT_HeapBlock*)pArray->GetFirstElement(), pArray->m_numOfElements ));



    TINYCLR_NOCLEANUP();

}



//--//



HRESULT Library_corlib_native_System_String::FromCharArray( CLR_RT_StackFrame& stack, int startIndex, int length )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    CLR_RT_HeapBlock_Array* array;

    CLR_UINT32              len;



    array = stack.Arg1().DereferenceArray(); if(!array) TINYCLR_SET_AND_LEAVE(S_OK);

    len   = array->m_numOfElements         ; if(!len  ) TINYCLR_SET_AND_LEAVE(S_OK);



    if(length == -1) length = len - startIndex;



    if(CLR_RT_HeapBlock_Array::CheckRange( startIndex, length, len ) == false) TINYCLR_SET_AND_LEAVE(CLR_E_OUT_OF_RANGE);



    TINYCLR_SET_AND_LEAVE(CLR_RT_HeapBlock_String::CreateInstance( stack.Arg0(), (CLR_UINT16*)array->GetElement( startIndex ), length ));



    TINYCLR_NOCLEANUP();

}





HRESULT Library_corlib_native_System_String::ToCharArray( CLR_RT_StackFrame& stack, int startIndex, int length )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    CLR_RT_HeapBlock_Array* array;



    TINYCLR_SET_AND_LEAVE(ConvertToCharArray( stack, stack.PushValueAndClear(), array, startIndex, length ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::IndexOf( CLR_RT_StackFrame& stack, int mode )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    LPCSTR               szText;

    int                  startIndex;

    int                  count;

    int                  pos;

    LPCSTR               pString;

    const CLR_UINT16*    pChars;

    int                  iChars = 0;

    CLR_RT_UnicodeHelper uh;

    int                  len;



    szText  = stack.Arg0().RecoverString(); if(!szText) szText = "";

    pos     = -1;

    pString = NULL;

    pChars  = NULL;



    if(mode & c_IndexOf__SingleChar)

    {

        pChars = (CLR_UINT16*)&stack.Arg1().NumericByRefConst().u2;

        iChars = 1;

    }

    else if(mode & c_IndexOf__MultipleChars)

    {

        CLR_RT_HeapBlock_Array* array = stack.Arg1().DereferenceArray(); FAULT_ON_NULL(array);



        pChars = (const CLR_UINT16*)array->GetFirstElement();

        iChars =                    array->m_numOfElements;

    }

    else if(mode & c_IndexOf__String)

    {

        pString = stack.Arg1().RecoverString(); FAULT_ON_NULL(pString);

    }





    uh.SetInputUTF8( szText );



    len = uh.CountNumberOfCharacters();



    //--//



    if(mode & c_IndexOf__StartIndex)

    {

        startIndex = stack.Arg2().NumericByRefConst().s4;



        if(startIndex < 0 || startIndex > len) TINYCLR_SET_AND_LEAVE(CLR_E_OUT_OF_RANGE);

    }

    else

    {

        startIndex = 0;

    }



    if(mode & c_IndexOf__Count)

    {

        count = stack.Arg3().NumericByRefConst().s4;



        if(startIndex + count > len) TINYCLR_SET_AND_LEAVE(CLR_E_OUT_OF_RANGE);

    }

    else

    {

        count = len - startIndex;

    }



    //--//



    //

    // First move to the character, then read it.

    //

    if(uh.ConvertFromUTF8( startIndex, true ))

    {

        if(pString)

        {

            while(count-- > 0)

            {

                CLR_RT_UnicodeHelper uh1; uh1.SetInputUTF8( (LPCSTR)uh.m_inputUTF8 );

                CLR_RT_UnicodeHelper uh2; uh2.SetInputUTF8(         pString        );



                while(true)

                {

                    CLR_UINT16 buf1[ 3 ];

                    CLR_UINT16 buf2[ 3 ];



                    uh1.m_outputUTF16      = buf1;

                    uh1.m_outputUTF16_size = MAXSTRLEN(buf1);



                    uh2.m_outputUTF16      = buf2;

                    uh2.m_outputUTF16_size = MAXSTRLEN(buf2);



                    if(uh2.ConvertFromUTF8( 1, false ) == false)

                    {

                        if((mode & c_IndexOf__Last) || (pos == -1))

                        {

                            pos = startIndex;

                        }



                        break;

                    }



                    if(uh1.ConvertFromUTF8( 1, false ) == false)

                    {

                        break;

                    }



                    if(buf1[ 0 ] != buf2[ 0 ])

                    {

                        break;

                    }

                }



                if(uh.ConvertFromUTF8( 1, true ) == false)

                {

                    break;

                }



                startIndex++;

            }

        }



        if(pChars)

        {

            while(count-- > 0)

            {

                CLR_UINT16 buf[ 3 ];



                uh.m_outputUTF16      = buf;

                uh.m_outputUTF16_size = MAXSTRLEN(buf);



                if(uh.ConvertFromUTF8( 1, false ) == false)

                {

                    break;

                }



                for(int i=0; i<iChars; i++)

                {

                    if(buf[ 0 ] == pChars[ i ])

                    {

                        if((mode & c_IndexOf__Last) || (pos == -1))

                        {

                            pos = startIndex;

                        }



                        break;

                    }

                }



                startIndex++;

            }

        }

    }



    stack.SetResult_I4( pos );



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::ChangeCase( CLR_RT_StackFrame& stack, bool fToUpper )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    CLR_RT_HeapBlock        refTmp; refTmp.SetObjectReference( NULL );

    CLR_RT_ProtectFromGC    gc( refTmp );

    CLR_RT_HeapBlock_Array* arrayTmp;

    CLR_UINT16*             ptr;



    TINYCLR_CHECK_HRESULT(ConvertToCharArray( stack, refTmp, arrayTmp, 0, -1 ));



    ptr = (CLR_UINT16*)arrayTmp->GetFirstElement();



    for(CLR_UINT32 i=0; i<arrayTmp->m_numOfElements; i++)

    {

        CLR_UINT16 c = *ptr;



        if(fToUpper)

        {

            if(c >= 'a' && c <= 'z') c += 'A' - 'a';

        }

        else

        {

            if(c >= 'A' && c <= 'Z') c -= 'A' - 'a';

        }



        *ptr++ = c;

    }



    TINYCLR_CHECK_HRESULT(CLR_RT_HeapBlock_String::CreateInstance( stack.PushValue(), (CLR_UINT16*)arrayTmp->GetFirstElement(), arrayTmp->m_numOfElements ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::Substring( CLR_RT_StackFrame& stack, int startIndex, int length )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    CLR_RT_HeapBlock        refTmp; refTmp.SetObjectReference( NULL );

    CLR_RT_ProtectFromGC    gc( refTmp );

    CLR_RT_HeapBlock_Array* arrayTmp;



    TINYCLR_CHECK_HRESULT(ConvertToCharArray( stack, refTmp, arrayTmp, 0, -1 ));



    if(startIndex < 0 || startIndex > (int)arrayTmp->m_numOfElements) TINYCLR_SET_AND_LEAVE(CLR_E_OUT_OF_RANGE);



    if(length == -1)

    {

        length = arrayTmp->m_numOfElements - startIndex;

    }

    else

    {

        if(length < 0 || (startIndex + length) > (int)arrayTmp->m_numOfElements) TINYCLR_SET_AND_LEAVE(CLR_E_OUT_OF_RANGE);

    }

    

    TINYCLR_CHECK_HRESULT(CLR_RT_HeapBlock_String::CreateInstance( stack.PushValue(), (CLR_UINT16*)arrayTmp->GetElement( startIndex ), length ));



    TINYCLR_NOCLEANUP();

}





HRESULT Library_corlib_native_System_String::Trim( CLR_RT_StackFrame& stack, CLR_RT_HeapBlock_Array* arrayTrimChars, bool fStart, bool fEnd )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    CLR_RT_HeapBlock        refTmp; refTmp.SetObjectReference( NULL );

    CLR_RT_ProtectFromGC    gc( refTmp );

    CLR_RT_HeapBlock_Array* arrayTmp;

    CLR_UINT16*             pSrcStart;

    CLR_UINT16*             pSrcEnd;



    TINYCLR_CHECK_HRESULT(ConvertToCharArray( stack, refTmp, arrayTmp, 0, -1 ));



    pSrcStart = (CLR_UINT16*)arrayTmp->GetFirstElement();

    pSrcEnd   = &pSrcStart[ arrayTmp->m_numOfElements ];



    const CLR_UINT16* pTrim;

    CLR_UINT32        iTrim;



    if(arrayTrimChars && arrayTrimChars->m_numOfElements)

    {

        pTrim = (const CLR_UINT16*)arrayTrimChars->GetFirstElement();

        iTrim =                    arrayTrimChars->m_numOfElements;

    }

    else

    {

       pTrim = c_WhiteSpaces;

       iTrim = ARRAYSIZE(c_WhiteSpaces);

    }



    //--//



    if(fStart)

    {

        while(pSrcStart < pSrcEnd)

        {

            const CLR_UINT16* p = pTrim;

            CLR_UINT32        i;



            for(i=0; i<iTrim; i++, p++)

            {

                if(*p == pSrcStart[ 0 ]) break;

            }



            if(i == iTrim) break;



            pSrcStart++;

        }

    }



    if(fEnd)

    {

        while(pSrcStart < pSrcEnd)

        {

            const CLR_UINT16* p = pTrim;

            CLR_UINT32        i;



            for(i=0; i<iTrim; i++, p++)

            {

                if(*p == pSrcEnd[ -1 ]) break;

            }



            if(i == iTrim) break;



            pSrcEnd--;

        }

    }





    TINYCLR_CHECK_HRESULT(CLR_RT_HeapBlock_String::CreateInstance( stack.PushValue(), pSrcStart, (CLR_UINT32)(pSrcEnd - pSrcStart) ));



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::Split( CLR_RT_StackFrame& stack, CLR_RT_HeapBlock& chars, int maxStrings )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    CLR_RT_HeapBlock_Array* arraySrc;

    CLR_RT_HeapBlock_Array* arrayChars;

    CLR_RT_HeapBlock_Array* arrayDst;

    const CLR_UINT16* pChars;

    CLR_UINT32 cChars;

    

    if (maxStrings < 0)

    {

        TINYCLR_SET_AND_LEAVE(CLR_E_OUT_OF_RANGE)

    }

    else if (maxStrings == 0)

    {

        CLR_RT_HeapBlock& refTarget = stack.PushValue();



        TINYCLR_CHECK_HRESULT(CLR_RT_HeapBlock_Array::CreateInstance( refTarget, 0, g_CLR_RT_WellKnownTypes.m_String ));



        arrayDst = refTarget.DereferenceArray();

    }

    else

    {

        arrayChars = chars.DereferenceArray(); 

        

        if(arrayChars != NULL && arrayChars->m_numOfElements > 0)

        {

            pChars = (CLR_UINT16*)arrayChars->GetFirstElement();

            cChars = arrayChars->m_numOfElements;

        }

        else

        {

            pChars = &c_WhiteSpaces[ 0 ];

            cChars = ARRAYSIZE(c_WhiteSpaces);

        }

        

        arrayDst   = NULL;



        {

            CLR_RT_HeapBlock     refSrc; refSrc.SetObjectReference( NULL );

            CLR_RT_ProtectFromGC gc( refSrc );



            TINYCLR_CHECK_HRESULT(ConvertToCharArray( stack, refSrc, arraySrc, 0, -1 ));



            for(int pass=0; pass<2; pass++)

            {

                CLR_UINT16* pSrcStart   = (CLR_UINT16*)arraySrc->GetFirstElement();

                CLR_UINT16* pSrc        = pSrcStart;

                int         count       = 0;

                bool        fFound      = false;

                bool fContinueSearching = true;



                for(CLR_UINT32 iSrc=0; iSrc <= arraySrc->m_numOfElements; iSrc++, pSrc++)

                {

                    if(iSrc == arraySrc->m_numOfElements)

                    {

                        fFound = true;

                    }

                    else if ((count + 1) >= maxStrings)

                    {

                        fContinueSearching = false;

                    }

                    else if (fContinueSearching)

                    {

                        const CLR_UINT16* pCharsT = pChars;



                        for(CLR_UINT32 iChars=0; iChars<cChars; iChars++)

                        {

                            if(pSrc[ 0 ] == *pCharsT++)

                            {

                                fFound = true;

                                break;

                            }

                        }

                    }



                    if(fFound)

                    {

                        if(pass == 1)

                        {

                            CLR_RT_HeapBlock* str = (CLR_RT_HeapBlock*)arrayDst->GetElement( count );



                            TINYCLR_CHECK_HRESULT(CLR_RT_HeapBlock_String::CreateInstance( *str, pSrcStart, (CLR_UINT32)(pSrc - pSrcStart) ));



                            pSrcStart = pSrc + 1;

                        }



                        count++;

                        fFound = false;

                    }

                }



                if(pass == 0)

                {

                    CLR_RT_HeapBlock& refTarget = stack.PushValue();



                    TINYCLR_CHECK_HRESULT(CLR_RT_HeapBlock_Array::CreateInstance( refTarget, count, g_CLR_RT_WellKnownTypes.m_String ));



                    arrayDst = refTarget.DereferenceArray();

                }

            }

        }

    }



    TINYCLR_NOCLEANUP();

}



//--//



HRESULT Library_corlib_native_System_String::Concat( CLR_RT_StackFrame& stack, CLR_RT_HeapBlock* array, int num )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();

 

    CLR_RT_HeapBlock*       ptrSrc;

    LPCSTR                  szTextSrc;

    LPSTR                   szTextDst = NULL;

    CLR_UINT32              totLen;

    CLR_UINT32              len;

 

    totLen = 0;

 

    for(int i=0; i<2; i++)

    {

        ptrSrc = array;

 

        for(int iStr=0; iStr<num; iStr++)

        {

            _ASSERTE(ptrSrc->DataType() == DATATYPE_OBJECT);

            _ASSERTE(FIMPLIES(ptrSrc->Dereference(), ptrSrc->Dereference()->DataType() == DATATYPE_STRING));

 

            szTextSrc = ptrSrc->RecoverString();

            if(szTextSrc)

            {

                len = (CLR_UINT32)hal_strlen_s( szTextSrc );

 

                if(i==0)

                {

                    totLen += len;

                }

                else

                {                    

                    memcpy( szTextDst, szTextSrc, len );

 

                    szTextDst += len;

                }                

            }

            

            ptrSrc++;

        }

 

        if(i==0)

        {

            //push return value

            CLR_RT_HeapBlock&        blkResult = stack.PushValue();

            CLR_RT_HeapBlock_String* str       = CLR_RT_HeapBlock_String::CreateInstance( blkResult, totLen ); CHECK_ALLOCATION(str);

            

            szTextDst           = (LPSTR)str->StringText();

            szTextDst[ totLen ] = 0;

        }

    }

 

    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::ConvertToCharArray( LPCSTR szText, CLR_RT_HeapBlock& ref, CLR_RT_HeapBlock_Array*& array, int startIndex, int length )

{

    NATIVE_PROFILE_CLR_CORE();

    TINYCLR_HEADER();



    CLR_RT_UnicodeHelper uh;

    int                  totLength;



    FAULT_ON_NULL(szText);



    uh.SetInputUTF8( szText );



    totLength = uh.CountNumberOfCharacters(); if(totLength < 0) TINYCLR_SET_AND_LEAVE(CLR_E_WRONG_TYPE);



    if(length == -1) length = totLength;



    if(CLR_RT_HeapBlock_Array::CheckRange( startIndex, length, totLength ) == false) TINYCLR_SET_AND_LEAVE(CLR_E_OUT_OF_RANGE);



    TINYCLR_CHECK_HRESULT(CLR_RT_HeapBlock_Array::CreateInstance( ref, length, g_CLR_RT_WellKnownTypes.m_Char ));



    array = ref.DereferenceArray();



    uh.m_outputUTF16      = (CLR_UINT16*)array->GetFirstElement();

    uh.m_outputUTF16_size =              array->m_numOfElements;



    //

    // First move to the character, then read it.

    //

    uh.ConvertFromUTF8( startIndex            , true  );

    uh.ConvertFromUTF8( array->m_numOfElements, false );



    TINYCLR_NOCLEANUP();

}



HRESULT Library_corlib_native_System_String::ConvertToCharArray( CLR_RT_StackFrame& stack, CLR_RT_HeapBlock& ref, CLR_RT_HeapBlock_Array*& array, int startIndex, int length )

{

    NATIVE_PROFILE_CLR_CORE();

    return ConvertToCharArray( stack.Arg0().RecoverString(), ref, array, startIndex, length );

}