/**************************************************************
 * 
 * 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.
 * 
 *************************************************************/



#include "oox/drawingml/customshapeproperties.hxx"
#include "oox/helper/helper.hxx"
#include "oox/helper/propertymap.hxx"
#include "oox/helper/propertyset.hxx"
#include <com/sun/star/awt/Rectangle.hpp>
#include <com/sun/star/beans/XMultiPropertySet.hpp>
#include <com/sun/star/lang/XMultiServiceFactory.hpp>
#include <com/sun/star/graphic/XGraphicTransformer.hpp>
#include <com/sun/star/drawing/XShape.hpp>
#include <com/sun/star/drawing/XEnhancedCustomShapeDefaulter.hpp>

using rtl::OUString;
using namespace ::oox::core;
using namespace ::com::sun::star;
using namespace ::com::sun::star::uno;
using namespace ::com::sun::star::beans;
using namespace ::com::sun::star::graphic;
using namespace ::com::sun::star::drawing;

namespace oox { namespace drawingml {

CustomShapeProperties::CustomShapeProperties()
: mbMirroredX	( sal_False )
, mbMirroredY	( sal_False )
{
}
CustomShapeProperties::~CustomShapeProperties()
{
}

sal_Int32 CustomShapeProperties::SetCustomShapeGuideValue( std::vector< CustomShapeGuide >& rGuideList, const CustomShapeGuide& rGuide )
{
	sal_uInt32 nIndex = 0;
	for( ; nIndex < rGuideList.size(); nIndex++ )
	{
		if ( rGuideList[ nIndex ].maName == rGuide.maName )
			break;
	}
	if ( nIndex == rGuideList.size() )
		rGuideList.push_back( rGuide );
	return static_cast< sal_Int32 >( nIndex );
}

// returns the index into the guidelist for a given formula name,
// if the return value is < 0 then the guide value could not be found
sal_Int32 CustomShapeProperties::GetCustomShapeGuideValue( const std::vector< CustomShapeGuide >& rGuideList, const rtl::OUString& rFormulaName )
{
	sal_Int32 nIndex = 0;
	for( ; nIndex < static_cast< sal_Int32 >( rGuideList.size() ); nIndex++ )
	{
		if ( rGuideList[ nIndex ].maName == rFormulaName )
			break;
	}
	if ( nIndex == static_cast< sal_Int32 >( rGuideList.size() ) )
		nIndex = -1;
	return nIndex;
}

void CustomShapeProperties::apply( const CustomShapePropertiesPtr& /* rSourceCustomShapeProperties */ )
{
	// not sure if this needs to be implemented
}

void CustomShapeProperties::pushToPropSet( const ::oox::core::FilterBase& /* rFilterBase */,
	const Reference < XPropertySet >& xPropSet, const Reference < XShape > & xShape ) const
{
	if ( maShapePresetType.getLength() )
	{
		//const uno::Reference < drawing::XShape > xShape( xPropSet, UNO_QUERY );
        Reference< drawing::XEnhancedCustomShapeDefaulter > xDefaulter( xShape, UNO_QUERY );
        if( xDefaulter.is() )
            xDefaulter->createCustomShapeDefaults( maShapePresetType );

		if ( maAdjustmentGuideList.size() )
		{
			const OUString sType = CREATE_OUSTRING( "Type" );
			const OUString sCustomShapeGeometry( RTL_CONSTASCII_USTRINGPARAM( "CustomShapeGeometry" ) );
			uno::Any aGeoPropSet = xPropSet->getPropertyValue( sCustomShapeGeometry );
			uno::Sequence< beans::PropertyValue > aGeoPropSeq;
			if ( aGeoPropSet >>= aGeoPropSeq )
			{
				sal_Int32 i, nCount = aGeoPropSeq.getLength();
				for ( i = 0; i < nCount; i++ )
				{
					const rtl::OUString sAdjustmentValues( RTL_CONSTASCII_USTRINGPARAM( "AdjustmentValues" ) );
					if ( aGeoPropSeq[ i ].Name.equals( sAdjustmentValues ) )
					{
						uno::Sequence< com::sun::star::drawing::EnhancedCustomShapeAdjustmentValue > aAdjustmentSeq;
						if ( aGeoPropSeq[ i ].Value >>= aAdjustmentSeq )
						{
							std::vector< CustomShapeGuide >::const_iterator aIter( maAdjustmentGuideList.begin() );
							while( aIter != maAdjustmentGuideList.end() )
							{
								if ( (*aIter).maName.getLength() > 3 )
								{
									sal_Int32 nAdjustmentIndex = (*aIter).maName.copy( 3 ).toInt32() - 1;
									if ( ( nAdjustmentIndex >= 0 ) && ( nAdjustmentIndex < aAdjustmentSeq.getLength() ) )
									{
										EnhancedCustomShapeAdjustmentValue aAdjustmentVal;
										aAdjustmentVal.Value <<= (*aIter).maFormula.toInt32();
										aAdjustmentVal.State = PropertyState_DIRECT_VALUE;
										aAdjustmentSeq[ nAdjustmentIndex ] = aAdjustmentVal;
									}
								}
								aIter++;
							}
							aGeoPropSeq[ i ].Value <<= aAdjustmentSeq;
							xPropSet->setPropertyValue( sCustomShapeGeometry, Any( aGeoPropSeq ) );
						}
					}
					else if ( aGeoPropSeq[ i ].Name.equals( sType ) )
					{
						aGeoPropSeq[ i ].Value <<= maShapePresetType;
					}
				}
			}
		}
	}
	else
	{
		sal_uInt32 i;
		PropertyMap aPropertyMap;
        aPropertyMap[ PROP_Type ] <<= CREATE_OUSTRING( "non-primitive" );
		aPropertyMap[ PROP_MirroredX ] <<= Any( mbMirroredX );
		aPropertyMap[ PROP_MirroredY ] <<= Any( mbMirroredY );
		awt::Size aSize( xShape->getSize() );
		awt::Rectangle aViewBox( 0, 0, aSize.Width * 360, aSize.Height * 360 );
		if ( maPath2DList.size() )
		{	// TODO: each polygon may have its own size, but I think it is rather been used
			// so we are only taking care of the first
			if ( maPath2DList[ 0 ].w )
				aViewBox.Width = static_cast< sal_Int32 >( maPath2DList[ 0 ].w );
			if ( maPath2DList[ 0 ].h )
				aViewBox.Height = static_cast< sal_Int32 >( maPath2DList[ 0 ].h );
		}
		aPropertyMap[ PROP_ViewBox ] <<= aViewBox;

		Sequence< EnhancedCustomShapeAdjustmentValue > aAdjustmentValues( maAdjustmentGuideList.size() );
		for ( i = 0; i < maAdjustmentGuideList.size(); i++ )
		{
			EnhancedCustomShapeAdjustmentValue aAdjustmentVal;
			aAdjustmentVal.Value <<= maAdjustmentGuideList[ i ].maFormula.toInt32();
			aAdjustmentVal.State = PropertyState_DIRECT_VALUE;
			aAdjustmentValues[ i ] = aAdjustmentVal;
		}
		aPropertyMap[ PROP_AdjustmentValues ] <<= aAdjustmentValues;

		Sequence< rtl::OUString > aEquations( maGuideList.size() );
		for ( i = 0; i < maGuideList.size(); i++ )
			aEquations[ i ] = maGuideList[ i ].maFormula;
		aPropertyMap[ PROP_Equations ] <<= aEquations;

		PropertyMap aPath;
		Sequence< EnhancedCustomShapeSegment > aSegments( maSegments.size() );
		for ( i = 0; i < maSegments.size(); i++ )
			aSegments[ i ] = maSegments[ i ];
		aPath[ PROP_Segments ] <<= aSegments;
		sal_uInt32 j, k, nParameterPairs = 0;
		for ( i = 0; i < maPath2DList.size(); i++ )
			nParameterPairs += maPath2DList[ i ].parameter.size();
		Sequence< EnhancedCustomShapeParameterPair > aParameterPairs( nParameterPairs );
		for ( i = 0, k = 0; i < maPath2DList.size(); i++ )
			for ( j = 0; j < maPath2DList[ i ].parameter.size(); j++ )
				aParameterPairs[ k++ ] = maPath2DList[ i ].parameter[ j ];
		aPath[ PROP_Coordinates ] <<= aParameterPairs;
		Sequence< PropertyValue > aPathSequence = aPath.makePropertyValueSequence();
		aPropertyMap[ PROP_Path ] <<= aPathSequence;

		Sequence< PropertyValues > aHandles( maAdjustHandleList.size() );
		for ( i = 0; i < maAdjustHandleList.size(); i++ )
		{
			PropertyMap aHandle;
			// maAdjustmentHandle[ i ].gdRef1 ... maAdjustmentHandle[ i ].gdRef2 ... :(
			// gdRef1 && gdRef2 -> we do not offer such reference, so it is difficult
			// to determine the correct adjustment handle that should be updated with the adjustment
			// position. here is the solution: the adjustment value that is used within the position
			// has to be updated, in case the position is a formula the first usage of a
			// adjument value is decisive
			if ( maAdjustHandleList[ i ].polar )
			{
				aHandle[ PROP_Position ] <<= maAdjustHandleList[ i ].pos;
				if ( maAdjustHandleList[ i ].min1.has() )
					aHandle[ PROP_RadiusRangeMinimum ] <<= maAdjustHandleList[ i ].min1.get();
				if ( maAdjustHandleList[ i ].max1.has() )
					aHandle[ PROP_RadiusRangeMaximum ] <<= maAdjustHandleList[ i ].max1.get();

				/* TODO: AngleMin & AngleMax
				if ( maAdjustHandleList[ i ].min2.has() )
					aHandle[ PROP_ ] = maAdjustHandleList[ i ].min2.get();
				if ( maAdjustHandleList[ i ].max2.has() )
					aHandle[ PROP_ ] = maAdjustHandleList[ i ].max2.get();
				*/
			}
			else
			{
				aHandle[ PROP_Position ] <<= maAdjustHandleList[ i ].pos;
				if ( maAdjustHandleList[ i ].gdRef1.has() )
				{
					// TODO: PROP_RefX and PROP_RefY are not yet part of our file format,
					// so the handles will not work after save/reload
					sal_Int32 nIndex = GetCustomShapeGuideValue( maAdjustmentGuideList, maAdjustHandleList[ i ].gdRef1.get() );
					if ( nIndex >= 0 )
						aHandle[ PROP_RefX ] <<= nIndex; 
				}
				if ( maAdjustHandleList[ i ].gdRef2.has() )
				{
					sal_Int32 nIndex = GetCustomShapeGuideValue( maAdjustmentGuideList, maAdjustHandleList[ i ].gdRef2.get() );
					if ( nIndex >= 0 )
						aHandle[ PROP_RefY ] <<= nIndex; 
				}
				if ( maAdjustHandleList[ i ].min1.has() )
					aHandle[ PROP_RangeXMinimum ] <<= maAdjustHandleList[ i ].min1.get();
				if ( maAdjustHandleList[ i ].max1.has() )
					aHandle[ PROP_RangeXMaximum ] <<= maAdjustHandleList[ i ].max1.get();
				if ( maAdjustHandleList[ i ].min2.has() )
					aHandle[ PROP_RangeYMinimum ] <<= maAdjustHandleList[ i ].min2.get();
				if ( maAdjustHandleList[ i ].max2.has() )
					aHandle[ PROP_RangeYMaximum ] <<= maAdjustHandleList[ i ].max2.get();
			}
			aHandles[ i ] = aHandle.makePropertyValueSequence();
		}
		aPropertyMap[ PROP_Handles ] <<= aHandles;

		// converting the vector to a sequence
        Sequence< PropertyValue > aSeq = aPropertyMap.makePropertyValueSequence();
        PropertySet aPropSet( xPropSet );
        aPropSet.setProperty( PROP_CustomShapeGeometry, aSeq );
	}
}

double CustomShapeProperties::getValue( const std::vector< CustomShapeGuide >& rGuideList, sal_uInt32 nIndex ) const
{
	double fRet = 0.0;
	if ( nIndex < rGuideList.size() )
	{

	}
	return fRet;
}

} }