/*************************************************************************
 *
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
 * 
 * Copyright 2008 by Sun Microsystems, Inc.
 *
 * OpenOffice.org - a multi-platform office productivity suite
 *
 * $RCSfile: xmloff_xmlehelp.cxx,v $
 * $Revision: 1.7 $
 *
 * This file is part of OpenOffice.org.
 *
 * OpenOffice.org is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License version 3
 * only, as published by the Free Software Foundation.
 *
 * OpenOffice.org 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 Lesser General Public License version 3 for more details
 * (a copy is included in the LICENSE file that accompanied this code).
 *
 * You should have received a copy of the GNU Lesser General Public License
 * version 3 along with OpenOffice.org.  If not, see
 * <http://www.openoffice.org/license.html>
 * for a copy of the LGPLv3 License.
 *
 ************************************************************************/
#include <limits.h>
#ifndef _BIGINT_HXX //autogen wg. BigInt
#include <tools/bigint.hxx>
#endif
#ifndef _RTL_USTRBUF_HXX_
#include <rtl/ustrbuf.hxx>
#endif
#ifndef _SV_OUTDEV_HXX
#include <vcl/outdev.hxx>
#endif

#ifndef _XMLOFF_XMLEHELP_HXX
#include "xmlehelp.hxx"
#endif

#ifndef _XMLOFF_XMTOKEN_HXX
#include "xmltoken.hxx"
#endif
namespace binfilter {

using namespace ::rtl;
using namespace ::binfilter::xmloff::token;

void SvXMLExportHelper::AddLength( sal_Int32 nValue, MapUnit eValueUnit,
		   			  	   		   OUStringBuffer& rOut,
								   MapUnit eOutUnit )
{
	// the sign is processed seperatly
	if( nValue < 0 )
	{
		nValue = -nValue;
		rOut.append( sal_Unicode('-') );
	}
	
	// The new length is (nVal * nMul)/(nDiv*nFac*10)
	sal_Int32 nMul = 1000;
	sal_Int32 nDiv = 1;
	sal_Int32 nFac = 100;
	enum XMLTokenEnum eUnit = XML_TOKEN_INVALID;
	switch( eValueUnit )
	{
	case MAP_TWIP:
		switch( eOutUnit )
		{
		case MAP_100TH_MM:
		case MAP_10TH_MM:
			DBG_ASSERT( MAP_INCH == eOutUnit,
						"output unit not supported for twip values" );
		case MAP_MM:
			// 0.01mm = 0.57twip (exactly)
			nMul = 25400;	// 25.4 * 1000
			nDiv = 1440;	// 72 * 20;
			nFac = 100;
			eUnit = XML_UNIT_MM;
			break;

		case MAP_CM:
			// 0.001cm = 0.57twip (exactly)
			nMul = 25400;	// 2.54 * 10000
			nDiv = 1440;	// 72 * 20;
			nFac = 1000;
			eUnit = XML_UNIT_CM;
			break;

		case MAP_POINT:
			// 0.01pt = 0.2twip (exactly)
			nMul = 1000;
			nDiv = 20;
			nFac = 100;
			eUnit = XML_UNIT_PT;
			break;

		case MAP_INCH:
		default:
			DBG_ASSERT( MAP_INCH == eOutUnit,
						"output unit not supported for twip values" );
			// 0.0001in = 0.144twip (exactly)
			nMul = 100000;
			nDiv = 1440;	// 72 * 20;
			nFac = 10000;
			eUnit = XML_UNIT_INCH;
			break;
		}
		break;

	case MAP_POINT:
		// 1pt = 1pt (exactly)
		DBG_ASSERT( MAP_POINT == eOutUnit,
					"output unit not supported for pt values" );
		nMul = 10;
		nDiv = 1;
		nFac = 1;
		eUnit = XML_UNIT_PT;
		break;

	case MAP_100TH_MM:
		switch( eOutUnit )
		{
		case MAP_100TH_MM:
		case MAP_10TH_MM:
			DBG_ASSERT( MAP_INCH == eOutUnit,
						"output unit not supported for 1/100mm values" );
		case MAP_MM:
			// 0.01mm = 1 mm/100 (exactly)
			nMul = 10;	
			nDiv = 1;	
			nFac = 100;
			eUnit = XML_UNIT_MM;
			break;

		case MAP_CM:
			// 0.001mm = 1 mm/100 (exactly)
			nMul = 10;
			nDiv = 1;	// 72 * 20;
			nFac = 1000;
			eUnit = XML_UNIT_CM;
			break;

		case MAP_POINT:
			// 0.01pt = 0.35 mm/100 (exactly)
			nMul = 72000;
			nDiv = 2540;
			nFac = 100;
			eUnit = XML_UNIT_PT;
			break;

		case MAP_INCH:
		default:
			DBG_ASSERT( MAP_INCH == eOutUnit,
						"output unit not supported for 1/100mm values" );
			// 0.0001in = 0.254 mm/100 (exactly)
			nMul = 100000;
			nDiv = 2540;
			nFac = 10000;
			eUnit = XML_UNIT_INCH;
			break;
		}
		break;
	}


	sal_Int32 nLongVal;
	BOOL bOutLongVal = TRUE;
	if( nValue > SAL_MAX_INT32 / nMul )
	{
		// A big int is required for calculation
		BigInt nBigVal( nValue );
		BigInt nBigFac( nFac );
		nBigVal *= nMul;
		nBigVal /= nDiv;
		nBigVal += 5;
		nBigVal /= 10;

		if( nBigVal.IsLong() )
		{
			// To convert the value into a string a sal_Int32 is sufficient
			nLongVal = (sal_Int32)nBigVal;
		}
		else
		{
			BigInt nBigFac( nFac );
			BigInt nBig10( 10 );
			rOut.append( (sal_Int32)(nBigVal / nBigFac) );
			if( !(nBigVal % nBigFac).IsZero() )
			{
				rOut.append( sal_Unicode('.') );
				while( nFac > 1 && !(nBigVal % nBigFac).IsZero() )
				{
					nFac /= 10;
					nBigFac = nFac;
					rOut.append( (sal_Int32)((nBigVal / nBigFac) % nBig10 ) );
				}
			}
			bOutLongVal = FALSE;
		}
	}
	else
	{
		nLongVal = nValue * nMul;
		nLongVal /= nDiv;
		nLongVal += 5;
		nLongVal /= 10;
	}

	if( bOutLongVal )
	{
		rOut.append( (sal_Int32)(nLongVal / nFac) );
		if( nFac > 1 && (nLongVal % nFac) != 0 )
		{
			rOut.append( sal_Unicode('.') );
			while( nFac > 1 && (nLongVal % nFac) != 0 )
			{
				nFac /= 10;
				rOut.append( (sal_Int32)((nLongVal / nFac) % 10) );
			}
		}
	}

	if( eUnit != XML_TOKEN_INVALID )
		rOut.append( GetXMLToken(eUnit) );
#if 0
	enum XMLTokenEnum eUnit;
	long nFac = 1;
	switch( eOutUnit )
	{
	case MAP_100TH_MM:
		nFac *= 10L;
	case MAP_10TH_MM:
		nFac *= 10L;
		eOutUnit = MAP_MM;
	case MAP_MM:
		// 0.01mm
		nFac *= 100L;
		eUnit = XML_UNIT_MM;
		break;

	case MAP_CM:
#ifdef EXACT_VALUES
		// 0.001cm
		nFac *= 1000L;
#else
		// 0.01cm
		nFac *= 100L;
#endif
		eUnit = XML_UNIT_CM;
		break;

	case MAP_TWIP:
	case MAP_POINT:
#ifdef EXACT_VALUES
		// 0.01pt
		nFac *= 100L;
#else
		// 0.1pt
		nFac *= 10L;
#endif
		eUnit = XML_UNIT_PT;
		break;

	case MAP_1000TH_INCH:
		nFac *= 10L;
	case MAP_100TH_INCH:
		nFac *= 10L;
	case MAP_10TH_INCH:
		nFac *= 10L;
	case MAP_INCH:
	default:
		eOutUnit = MAP_INCH;
#ifdef EXACT_VALUES
		// 0.0001in
		nFac *= 10000L;
#else
		// 0.01in
		nFac *= 100L;
#endif
		eUnit = XML_UNIT_INCH;
		break;
	}

	if( eValueUnit != eOutUnit )
		nValue = OutputDevice::LogicToLogic( nValue, eValueUnit, eOutUnit );

	rOut.append( nValue / nFac );
	if( nFac > 1 && (nValue % nFac) != 0 )
	{
		rOut.append( sal_Unicode('.') );
		while( nFac > 1 && (nValue % nFac) != 0 )
		{
			nFac /= 10L;
			rOut.append( (nValue / nFac) % 10L );
		}
	}

	rOut.append( GetXMLToken(eUnit) );
#endif

}

double SvXMLExportHelper::GetConversionFactor(::rtl::OUStringBuffer& rUnit, 
	const MapUnit eCoreUnit, const MapUnit eDestUnit)
{
	double fRetval(1.0);
	rUnit.setLength(0L);

	if(eCoreUnit != eDestUnit)
	{
		enum XMLTokenEnum eUnit = XML_TOKEN_INVALID;

		switch(eCoreUnit)
		{
			case MAP_TWIP:
			{
				switch(eDestUnit)
				{
					case MAP_100TH_MM:
					case MAP_10TH_MM:
					{
						DBG_ASSERT(MAP_INCH == eDestUnit, "output unit not supported for twip values");
					}
					case MAP_MM:
					{
						// 0.01mm = 0.57twip (exactly)
						fRetval = ((25400.0 / 1440.0) / 1000.0);
						eUnit = XML_UNIT_MM;
						break;
					}
					case MAP_CM:
					{
						// 0.001cm = 0.57twip (exactly)
						fRetval = ((25400.0 / 1440.0) / 10000.0);
						eUnit = XML_UNIT_CM;
						break;
					}
					case MAP_POINT:
					{
						// 0.01pt = 0.2twip (exactly)
						fRetval = ((1000.0 / 20.0) / 1000.0);
						eUnit = XML_UNIT_PT;
						break;
					}
					case MAP_INCH:
					default:
					{
						DBG_ASSERT(MAP_INCH == eDestUnit, "output unit not supported for twip values");
						// 0.0001in = 0.144twip (exactly)
						fRetval = ((100000.0 / 1440.0) / 100000.0);
						eUnit = XML_UNIT_INCH;
						break;
					}
				}
				break;
			}
			case MAP_POINT:
			{
                switch(eDestUnit)
                {
                    case MAP_MM:
                        // 1mm = 72 / 25.4 pt (exactly)
                        fRetval = ( 25.4 / 72.0 );
                        eUnit = XML_UNIT_MM;
                        break;
                        
                    case MAP_CM:
                        // 1cm = 72 / 2.54 pt (exactly)
                        fRetval = ( 2.54 / 72.0 );
                        eUnit = XML_UNIT_CM;
                        break;

                    case MAP_TWIP:
                        // 1twip = 72 / 1440 pt (exactly)
                        fRetval = 20.0;     // 1440.0 / 72.0
                        eUnit = XML_UNIT_PC;
                        break;

                    case MAP_INCH:
                    default:
                        DBG_ASSERT(MAP_INCH == eDestUnit, "output unit not supported for pt values");
                        // 1in = 72 pt (exactly)
                        fRetval = ( 1.0 / 72.0 );
                        eUnit = XML_UNIT_INCH;
                        break;
                }
                break;
			}
			case MAP_100TH_MM:
			{
				switch(eDestUnit)
				{
					case MAP_100TH_MM:
					case MAP_10TH_MM:
					{
						DBG_ASSERT(MAP_INCH == eDestUnit, "output unit not supported for 1/100mm values");
					}
					case MAP_MM:
					{
						// 0.01mm = 1 mm/100 (exactly)
						fRetval = ((10.0 / 1.0) / 1000.0);
						eUnit = XML_UNIT_MM;
						break;
					}
					case MAP_CM:
					{
						// 0.001mm = 1 mm/100 (exactly)
						fRetval = ((10.0 / 1.0) / 10000.0);
						eUnit = XML_UNIT_CM;
						break;
					}
					case MAP_POINT:
					{
						// 0.01pt = 0.35 mm/100 (exactly)
						fRetval = ((72000.0 / 2540.0) / 1000.0);
						eUnit = XML_UNIT_PT;
						break;
					}
					case MAP_INCH:
					default:
					{
						DBG_ASSERT(MAP_INCH == eDestUnit, "output unit not supported for 1/100mm values");
						// 0.0001in = 0.254 mm/100 (exactly)
						fRetval = ((100000.0 / 2540.0) / 100000.0);
						eUnit = XML_UNIT_INCH;
						break;
					}
				}
				break;
			}
		}

		if(eUnit != XML_TOKEN_INVALID)
			rUnit.append(GetXMLToken(eUnit));
	}

	return fRetval;
}

MapUnit SvXMLExportHelper::GetUnitFromString(const ::rtl::OUString& rString, MapUnit eDefaultUnit)
{
	sal_Int32 nPos = 0L;
	sal_Int32 nLen = rString.getLength();
	MapUnit eRetUnit = eDefaultUnit;

	// skip white space
	while( nPos < nLen && sal_Unicode(' ') == rString[nPos] )
		nPos++;

	// skip negative
	if( nPos < nLen && sal_Unicode('-') == rString[nPos] )
		nPos++;

	// skip number
	while( nPos < nLen && sal_Unicode('0') <= rString[nPos] && sal_Unicode('9') >= rString[nPos] )
		nPos++;

	if( nPos < nLen && sal_Unicode('.') == rString[nPos] )
	{
		nPos++;
		while( nPos < nLen && sal_Unicode('0') <= rString[nPos] && sal_Unicode('9') >= rString[nPos] )
			nPos++;
	}

	// skip white space
	while( nPos < nLen && sal_Unicode(' ') == rString[nPos] )
		nPos++;

	if( nPos < nLen )
	{
		switch(rString[nPos])
		{
			case sal_Unicode('%') :
			{
				eRetUnit = MAP_RELATIVE;
				break;
			}
			case sal_Unicode('c'):
			case sal_Unicode('C'):
			{
				if(nPos+1 < nLen && (rString[nPos+1] == sal_Unicode('m') 
					|| rString[nPos+1] == sal_Unicode('M')))
					eRetUnit = MAP_CM;
				break;
			}
			case sal_Unicode('e'):
			case sal_Unicode('E'):
			{
				// CSS1_EMS or CSS1_EMX later
				break;
			}
			case sal_Unicode('i'):
			case sal_Unicode('I'):
			{
				if(nPos+3 < nLen)
				{
					if(rString[nPos+1] == sal_Unicode('n') || rString[nPos+1] == sal_Unicode('N'))
					{
						if(rString[nPos+2] == sal_Unicode('c') || rString[nPos+2] == sal_Unicode('C'))
						{
							if(rString[nPos+3] == sal_Unicode('h') || rString[nPos+3] == sal_Unicode('H'))
							{
								eRetUnit = MAP_INCH;
							}
						}
					}
				}
				break;
			}
			case sal_Unicode('m'):
			case sal_Unicode('M'):
			{
				if(nPos+1 < nLen && (rString[nPos+1] == sal_Unicode('m') 
					|| rString[nPos+1] == sal_Unicode('M')))
					eRetUnit = MAP_MM;
				break;
			}
			case sal_Unicode('p'):
			case sal_Unicode('P'):
			{
				if(nPos+1 < nLen && (rString[nPos+1] == sal_Unicode('t') 
					|| rString[nPos+1] == sal_Unicode('T')))
					eRetUnit = MAP_POINT;
				if(nPos+1 < nLen && (rString[nPos+1] == sal_Unicode('c') 
					|| rString[nPos+1] == sal_Unicode('C')))
					eRetUnit = MAP_TWIP;
				break;
			}
		}
	}

	return eRetUnit;
}
}//end of namespace binfilter
