/**************************************************************
 * 
 * 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/ppt/animationspersist.hxx"

#include <rtl/ustring.hxx>
#include <com/sun/star/uno/Any.hxx>
#include <com/sun/star/drawing/XShape.hpp>
#include <com/sun/star/text/XText.hpp>
#include <com/sun/star/presentation/ParagraphTarget.hpp>
#include <com/sun/star/presentation/ShapeAnimationSubType.hpp>

#include "oox/drawingml/shape.hxx"

using rtl::OUString;
using namespace ::com::sun::star::uno;
using namespace ::com::sun::star::presentation;
using namespace ::com::sun::star::drawing;
using namespace ::com::sun::star::text;

namespace oox { namespace ppt {

	void ShapeTargetElement::convert( ::com::sun::star::uno::Any & rTarget, sal_Int16 & rSubType ) const
	{
		switch(mnType)
		{
		case XML_subSp:
			rSubType = ShapeAnimationSubType::AS_WHOLE;
			break;
		case XML_bg:
			rSubType = ShapeAnimationSubType::ONLY_BACKGROUND;
			break;
		case XML_txEl:
		{
			ParagraphTarget aParaTarget;
			Reference< XShape > xShape;
			rTarget >>= xShape;
			aParaTarget.Shape = xShape;
			rSubType = ShapeAnimationSubType::ONLY_TEXT;

			Reference< XText > xText( xShape, UNO_QUERY );
			if( xText.is() )
			{
				switch(mnRangeType)
				{
				case XML_charRg:
					// TODO calculate the corresponding paragraph for the text range....
					OSL_TRACE( "OOX: TODO calculate the corresponding paragraph for the text range..." );
					break;
				case XML_pRg:
					aParaTarget.Paragraph = static_cast< sal_Int16 >( maRange.start );
					// TODO what to do with more than one.
					OSL_TRACE( "OOX: TODO what to do with more than one" );
					break;
				}
				rTarget = makeAny( aParaTarget );
			}
			break;
		}
		default:
			break;
		}
	}


	Any AnimTargetElement::convert(const SlidePersistPtr & pSlide, sal_Int16 & nSubType) const
	{
		Any aTarget;
		// see sd/source/files/ppt/pptinanimations.cxx:3191 (in importTargetElementContainer())
		switch(mnType)
		{
		case XML_inkTgt:
			// TODO
			OSL_TRACE( "OOX: TODO inkTgt" );
			break;
		case XML_sldTgt:
			// TODO
			OSL_TRACE( "OOX: TODO sldTgt" );
			break;
		case XML_sndTgt:
			aTarget = makeAny(msValue);
			break;
		case XML_spTgt:
		{
			Any rTarget;
			::oox::drawingml::ShapePtr pShape = pSlide->getShape(msValue);
			OSL_ENSURE( pShape, "failed to locate Shape");
			if( pShape )
			{
				Reference< XShape > xShape( pShape->getXShape() );
				OSL_ENSURE( xShape.is(), "fail to get XShape from shape" );
				if( xShape.is() )
				{
					rTarget <<= xShape;
					maShapeTarget.convert(rTarget, nSubType);
					aTarget = rTarget;
				}
			}
			break;
		}
		default:
			break;
		}
		return aTarget;
	}

	
// BEGIN CUT&PASTE from sd/source/filter/ppt/pptinanimations.cxx
/** this adds an any to another any.
	if rNewValue is empty, rOldValue is returned.
	if rOldValue is empty, rNewValue is returned.
	if rOldValue contains a value, a sequence with rOldValue and rNewValue is returned.
	if rOldValue contains a sequence, a new sequence with the old sequence and rNewValue is returned.
*/
	static Any addToSequence( const Any& rOldValue, const Any& rNewValue )
	{
		if( !rNewValue.hasValue() )
		{
			return rOldValue;
		}
		else if( !rOldValue.hasValue() )
		{
			return rNewValue;
		}
		else
		{
			Sequence< Any > aNewSeq;
			if( rOldValue >>= aNewSeq )
			{
				sal_Int32 nSize = aNewSeq.getLength();
				aNewSeq.realloc(nSize+1);
				aNewSeq[nSize] = rNewValue;
			}
			else
			{
				aNewSeq.realloc(2);
				aNewSeq[0] = rOldValue;
				aNewSeq[1] = rNewValue;
			}
			return makeAny( aNewSeq );
		}
	}
// END

	Any AnimationCondition::convert(const SlidePersistPtr & pSlide) const
	{
		Any aAny;
		if( mpTarget )
		{
			sal_Int16 nSubType;
			aAny = mpTarget->convert( pSlide, nSubType );
		}
		else 
		{
			aAny = maValue;
		}
		return aAny;
	}


	Any AnimationCondition::convertList(const SlidePersistPtr & pSlide, const AnimationConditionList & l)
	{
		Any aAny;
		for( AnimationConditionList::const_iterator iter = l.begin();
			 iter != l.end(); iter++)
		{
			aAny = addToSequence( aAny, iter->convert(pSlide) );
		}
		return aAny;
	}

} }