/**************************************************************
 *
 * Licensed to the Apache Software Foundation (ASF) under one
 * or more contributor license agreements.  See the NOTICE file
 * distributed with this work for additional information
 * regarding copyright ownership.  The ASF licenses this file
 * to you under the Apache License, Version 2.0 (the
 * "License"); you may not use this file except in compliance
 * with the License.  You may obtain a copy of the License at
 *
 *   http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing,
 * software distributed under the License is distributed on an
 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
 * KIND, either express or implied.  See the License for the
 * specific language governing permissions and limitations
 * under the License.
 *
 *************************************************************/



// MARKER(update_precomp.py): autogen include statement, do not remove
#include "precompiled_rsc.hxx"
/****************** I N C L U D E S **************************************/
#include <stdio.h>
#include <string.h>
#include <ctype.h>

#ifndef _TABLE_HXX //autogen
#include <tools/table.hxx>
#endif

// Solar Definitionen
#include <tools/solar.h>
#include <rsctools.hxx>

#include <rtl/textcvt.h>
#include <rtl/textenc.h>
#include <rtl/alloc.h>

/*************************************************************************
|*
|*    RscChar::MakeChar()
|*
|*    Beschreibung      Der String wird nach C-Konvention umgesetzt
|*    Ersterstellung    MM 20.03.91
|*    Letzte Aenderung  MM 20.03.91
|*
*************************************************************************/
char * RscChar::MakeUTF8( char * pStr, sal_uInt16 nTextEncoding )
{
	sal_Size nMaxUniCodeBuf = strlen( pStr ) + 1;
	if( nMaxUniCodeBuf * 6 > 0x0FFFFF )
        RscExit( 10 );

	char *			pOrgStr = new char[ nMaxUniCodeBuf ];
	sal_uInt32		nOrgLen = 0;

	char cOld = '1';
	while( cOld != 0 )
	{
		char c;

		if( *pStr == '\\' )
		{
			++pStr;
			switch( *pStr )
			{
				case 'a':
					c = '\a';
					break;
				case 'b':
					c = '\b';
					break;
				case 'f':
					c = '\f';
					break;
				case 'n':
					c = '\n';
					break;
				case 'r':
					c = '\r';
					break;
				case 't':
					c = '\t';
					break;
				case 'v':
					c = '\v';
					break;
				case '\\':
					c = '\\';
					break;
				case '?':
					c = '\?';
					break;
				case '\'':
					c = '\'';
					break;
				case '\"':
					c = '\"';
					break;
				default:
				{
					if( '0' <= *pStr && '7' >= *pStr )
					{
						sal_uInt16  nChar = 0;
						int  i = 0;
						while( '0' <= *pStr && '7' >= *pStr && i != 3 )
						{
							nChar = nChar * 8 + (sal_uInt8)*pStr - (sal_uInt8)'0';
							++pStr;
							i++;
						}
						if( nChar > 255 )
						{
							// Wert zu gross, oder kein 3 Ziffern
							delete [] pOrgStr;
							return( NULL );
						}
						c = (char)nChar;
						pStr--;
					}
					else if( 'x' == *pStr )
					{
						sal_uInt16  nChar = 0;
						int  i = 0;
						++pStr;
						while( isxdigit( *pStr ) && i != 2 )
						{
							if( isdigit( *pStr ) )
								nChar = nChar * 16 + (sal_uInt8)*pStr - (sal_uInt8)'0';
							else if( isupper( *pStr ) )
								nChar = nChar * 16 + (sal_uInt8)*pStr - (sal_uInt8)'A' +10;
							else
								nChar = nChar * 16 + (sal_uInt8)*pStr - (sal_uInt8)'a' +10;
							++pStr;
							i++;
						}
						c = (char)nChar;
						pStr--;
					}
					else
						c = *pStr;
				};
			}
		}
		else
			c = *pStr;
		pOrgStr[ nOrgLen++ ] = c;
		cOld = *pStr;
		pStr++;
	}

	sal_Unicode *	pUniCode = new sal_Unicode[ nMaxUniCodeBuf ];
	rtl_TextToUnicodeConverter hConv = rtl_createTextToUnicodeConverter( nTextEncoding );

	sal_uInt32 nInfo;
	sal_Size   nSrcCvtBytes;
	sal_Size nUniSize = rtl_convertTextToUnicode( hConv, 0,
												pOrgStr, nOrgLen,
												pUniCode, nMaxUniCodeBuf,
												RTL_TEXTTOUNICODE_FLAGS_UNDEFINED_DEFAULT
												| RTL_TEXTTOUNICODE_FLAGS_MBUNDEFINED_DEFAULT
												| RTL_TEXTTOUNICODE_FLAGS_INVALID_DEFAULT
												| RTL_TEXTTOUNICODE_FLAGS_FLUSH,
												&nInfo,
												&nSrcCvtBytes );

	rtl_destroyTextToUnicodeConverter( hConv );
	delete[] pOrgStr, pOrgStr = 0;

	hConv = rtl_createUnicodeToTextConverter( RTL_TEXTENCODING_UTF8 );
	// factor fo 6 is the maximum size of an UNICODE character as utf8
    char * pUtf8 = (char *)rtl_allocateMemory( nUniSize * 6 );
	rtl_convertUnicodeToText( hConv, 0,
							pUniCode, nUniSize,
							pUtf8, nUniSize * 6,
							RTL_UNICODETOTEXT_FLAGS_UNDEFINED_DEFAULT
							| RTL_UNICODETOTEXT_FLAGS_INVALID_DEFAULT
							| RTL_UNICODETOTEXT_FLAGS_FLUSH,
							&nInfo,
							&nSrcCvtBytes );

	rtl_destroyTextToUnicodeConverter( hConv );
	delete[] pUniCode, pUniCode = 0;

	return pUtf8;
};