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

//------------------------------------------------------------------------
// includes
//------------------------------------------------------------------------
#include "DataFmtTransl.hxx"
#include <rtl/string.hxx>
#include <osl/diagnose.h>
#include <rtl/tencinfo.h>
#include "..\misc\ImplHelper.hxx"
#include "..\misc\WinClip.hxx"
#include "MimeAttrib.hxx"
#include "DTransHelper.hxx"
#include <rtl/string.h>
#include "Fetc.hxx"

#if defined _MSC_VER
#pragma warning(push,1)
#pragma warning(disable:4917)
#endif
#include <windows.h>
#if (_MSC_VER < 1300) && !defined(__MINGW32__)
#include <olestd.h>
#endif
#include <shlobj.h>
#if defined _MSC_VER
#pragma warning(pop)
#endif
 

//------------------------------------------------------------------------
// namespace directives
//------------------------------------------------------------------------

using namespace rtl;
using namespace std;
using namespace com::sun::star::uno;
using namespace com::sun::star::datatransfer;
using namespace com::sun::star::lang;

//------------------------------------------------------------------------
// const
//------------------------------------------------------------------------

const Type       CPPUTYPE_SALINT32   = getCppuType((sal_Int32*)0);
const Type       CPPUTYPE_SALINT8    = getCppuType((sal_Int8*)0);
const Type       CPPUTYPE_OUSTRING   = getCppuType((OUString*)0);
const Type       CPPUTYPE_SEQSALINT8 = getCppuType((Sequence< sal_Int8>*)0);
const sal_Int32  MAX_CLIPFORMAT_NAME = 256;

const OUString TEXT_PLAIN_CHARSET   = OUString::createFromAscii( "text/plain;charset=" );
const OUString HPNAME_OEM_ANSI_TEXT = OUString::createFromAscii( "OEM/ANSI Text" );

const OUString HTML_FORMAT_NAME_WINDOWS = OUString::createFromAscii( "HTML Format" );
const OUString HTML_FORMAT_NAME_SOFFICE = OUString::createFromAscii( "HTML (HyperText Markup Language)" );

//------------------------------------------------------------------------
// 
//------------------------------------------------------------------------

CDataFormatTranslator::CDataFormatTranslator( const Reference< XMultiServiceFactory >& aServiceManager ) :
	m_SrvMgr( aServiceManager )
{
	m_XDataFormatTranslator = Reference< XDataFormatTranslator >(
		m_SrvMgr->createInstance( OUString::createFromAscii( "com.sun.star.datatransfer.DataFormatTranslator" ) ), UNO_QUERY );	
}

//------------------------------------------------------------------------
// 
//------------------------------------------------------------------------

CFormatEtc CDataFormatTranslator::getFormatEtcFromDataFlavor( const DataFlavor& aDataFlavor ) const
{	
	sal_Int32 cf = CF_INVALID;

	try
	{
        if( m_XDataFormatTranslator.is( ) )
        {
		    Any aFormat = m_XDataFormatTranslator->getSystemDataTypeFromDataFlavor( aDataFlavor );
		    
		    if ( aFormat.hasValue( ) )
		    {
			    if ( aFormat.getValueType( ) == CPPUTYPE_SALINT32 )
			    {
				    aFormat >>= cf;	
				    OSL_ENSURE( CF_INVALID != cf, "Invalid Clipboard format delivered" );
			    }
			    else if ( aFormat.getValueType( ) == CPPUTYPE_OUSTRING )
			    {
				    OUString aClipFmtName;
				    aFormat >>= aClipFmtName;
		    
				    OSL_ASSERT( aClipFmtName.getLength( ) );
				    cf = RegisterClipboardFormatW( reinterpret_cast<LPCWSTR>(aClipFmtName.getStr( )) );			

				    OSL_ENSURE( CF_INVALID != cf, "RegisterClipboardFormat failed" );
			    }
			    else
				    OSL_ENSURE( sal_False, "Wrong Any-Type detected" );
		    }
        }
    }
	catch( ... )
	{
		OSL_ENSURE( sal_False, "Unexpected error" );
	}

	return sal::static_int_cast<CFormatEtc>(getFormatEtcForClipformat( sal::static_int_cast<CLIPFORMAT>(cf) ));
}

//------------------------------------------------------------------------
// 
//------------------------------------------------------------------------

DataFlavor CDataFormatTranslator::getDataFlavorFromFormatEtc( const FORMATETC& aFormatEtc, LCID lcid ) const
{
	DataFlavor aFlavor;
   
	try
	{
		CLIPFORMAT aClipformat = aFormatEtc.cfFormat;

		Any aAny;
		aAny <<= static_cast< sal_Int32 >( aClipformat );

		if ( isOemOrAnsiTextFormat( aClipformat ) )
		{	
			aFlavor.MimeType             = TEXT_PLAIN_CHARSET;
			aFlavor.MimeType            += getTextCharsetFromLCID( lcid, aClipformat );

			aFlavor.HumanPresentableName = HPNAME_OEM_ANSI_TEXT;
			aFlavor.DataType             = CPPUTYPE_SEQSALINT8;			
		}
		else if ( CF_INVALID != aClipformat )
		{
            if ( m_XDataFormatTranslator.is( ) )
            {
			    aFlavor = m_XDataFormatTranslator->getDataFlavorFromSystemDataType( aAny );

			    if ( !aFlavor.MimeType.getLength( ) )
			    {
				    // lookup of DataFlavor from clipboard format id
				    // failed, so we try to resolve via clipboard
				    // format name
				    OUString clipFormatName = getClipboardFormatName( aClipformat );
				    
				    // if we could not get a clipboard format name an
				    // error must have occurred or it is a standard
				    // clipboard format that we don't translate, e.g.
				    // CF_BITMAP (the office only uses CF_DIB)
				    if ( clipFormatName.getLength( ) )
				    {
					    aAny <<= clipFormatName;
					    aFlavor = m_XDataFormatTranslator->getDataFlavorFromSystemDataType( aAny );
				    }
			    }
            }
		}
	}
	catch( ... )
	{
		OSL_ENSURE( sal_False, "Unexpected error" );
	}

	return aFlavor;
}

//------------------------------------------------------------------------
// 
//------------------------------------------------------------------------

CFormatEtc SAL_CALL CDataFormatTranslator::getFormatEtcForClipformatName( const OUString& aClipFmtName ) const
{
	// check parameter
	if ( !aClipFmtName.getLength( ) )
		return CFormatEtc( CF_INVALID );

	CLIPFORMAT cf = sal::static_int_cast<CLIPFORMAT>(RegisterClipboardFormatW( reinterpret_cast<LPCWSTR>(aClipFmtName.getStr( )) ));
	return getFormatEtcForClipformat( cf );
}

//------------------------------------------------------------------------
// 
//------------------------------------------------------------------------

OUString CDataFormatTranslator::getClipboardFormatName( CLIPFORMAT aClipformat ) const
{
	OSL_PRECOND( CF_INVALID != aClipformat, "Invalid clipboard format" );

	sal_Unicode wBuff[ MAX_CLIPFORMAT_NAME ];
	sal_Int32   nLen = GetClipboardFormatNameW( aClipformat, reinterpret_cast<LPWSTR>(wBuff), MAX_CLIPFORMAT_NAME );

	return OUString( wBuff, nLen );
}

//------------------------------------------------------------------------
// 
//------------------------------------------------------------------------

CFormatEtc SAL_CALL CDataFormatTranslator::getFormatEtcForClipformat( CLIPFORMAT cf ) const
{
	CFormatEtc fetc( cf, TYMED_NULL, NULL, DVASPECT_CONTENT );

	switch( cf )
	{
	case CF_METAFILEPICT:
		fetc.setTymed( TYMED_MFPICT );
		break;

	case CF_ENHMETAFILE:
		fetc.setTymed( TYMED_ENHMF );
		break;

	default:
		fetc.setTymed( TYMED_HGLOBAL /*| TYMED_ISTREAM*/ );
	}

    /*
        hack: in order to paste urls copied by Internet Explorer
        with "copy link" we set the lindex member to 0 
        but if we really want to support CFSTR_FILECONTENT and
        the accompany format CFSTR_FILEDESCRIPTOR (FileGroupDescriptor)
        the client of the clipboard service has to provide a id 
        of which FileContents it wants to paste
        see MSDN: "Handling Shell Data Transfer Scenarios"
    */
    if ( cf == RegisterClipboardFormatA( CFSTR_FILECONTENTS ) )
         fetc.setLindex( 0 );

	return fetc;
}

//------------------------------------------------------------------------
// 
//------------------------------------------------------------------------

sal_Bool SAL_CALL CDataFormatTranslator::isOemOrAnsiTextFormat( CLIPFORMAT cf ) const
{
	return ( (cf == CF_TEXT) || (cf == CF_OEMTEXT) );
}

//------------------------------------------------------------------------
// 
//------------------------------------------------------------------------

sal_Bool SAL_CALL CDataFormatTranslator::isUnicodeTextFormat( CLIPFORMAT cf ) const
{
	return ( cf == CF_UNICODETEXT );
}

//------------------------------------------------------------------------
// 
//------------------------------------------------------------------------

sal_Bool SAL_CALL CDataFormatTranslator::isTextFormat( CLIPFORMAT cf ) const 
{
	return ( isOemOrAnsiTextFormat( cf ) || isUnicodeTextFormat( cf ) );
}

//------------------------------------------------------------------------
// 
//------------------------------------------------------------------------

sal_Bool SAL_CALL CDataFormatTranslator::isHTMLFormat( CLIPFORMAT cf ) const
{
	OUString clipFormatName = getClipboardFormatName( cf );
	return ( clipFormatName == HTML_FORMAT_NAME_WINDOWS );
}

//------------------------------------------------------------------------
// 
//------------------------------------------------------------------------

sal_Bool SAL_CALL CDataFormatTranslator::isTextHtmlFormat( CLIPFORMAT cf ) const
{
	OUString clipFormatName = getClipboardFormatName( cf );	
	return ( clipFormatName.equalsIgnoreAsciiCase( HTML_FORMAT_NAME_SOFFICE ) );
}

//------------------------------------------------------------------------
// 
//------------------------------------------------------------------------

OUString SAL_CALL CDataFormatTranslator::getTextCharsetFromLCID( LCID lcid, CLIPFORMAT aClipformat ) const
{
	OSL_ASSERT( isOemOrAnsiTextFormat( aClipformat ) );

	OUString charset;
	if ( CF_TEXT == aClipformat )
	{							
		charset = getMimeCharsetFromLocaleId( 
					lcid, 
					LOCALE_IDEFAULTANSICODEPAGE, 
					PRE_WINDOWS_CODEPAGE );
	}
	else if ( CF_OEMTEXT == aClipformat )
	{						
		charset = getMimeCharsetFromLocaleId( 
					lcid, 
					LOCALE_IDEFAULTCODEPAGE, 
					PRE_OEM_CODEPAGE );					
	}
	else // CF_UNICODE
		OSL_ASSERT( sal_False );
	
	return charset;
}