/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */

/*

 * This file is part of the LibreOffice project.

 *

 * This Source Code Form is subject to the terms of the Mozilla Public

 * License, v. 2.0. If a copy of the MPL was not distributed with this

 * file, You can obtain one at http://mozilla.org/MPL/2.0/.

 *

 * This file incorporates work covered by the following license notice:

 *

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

 */

#include <comphelper/anytostring.hxx>

#include <rtl/ustrbuf.hxx>

#include <typelib/typedescription.hxx>

#include <com/sun/star/lang/XServiceInfo.hpp>

#include "typedescriptionref.hxx"

using namespace ::com::sun::star;

using ::com::sun::star::uno::TypeDescription;

using ::comphelper::detail::TypeDescriptionRef;

namespace comphelper {

namespace {

void appendTypeError(

    OUStringBuffer & buf, const typelib_TypeDescriptionReference * typeRef )

{

    buf.append( "<cannot get type description of type " );

    buf.append( OUString::unacquired( &typeRef->pTypeName ) );

    buf.append( '>' );

}

void appendChar( OUStringBuffer & buf, sal_Unicode c )

{

    if (c < ' ' || c > '~') {

        buf.append( "\\X" );

        OUString const s(

            OUString::number( static_cast< sal_Int32 >(c), 16 ) );

        for ( sal_Int32 f = 4 - s.getLength(); f > 0; --f )

            buf.append( '0' );

        buf.append( s );

    }

    else {

        buf.append( c );

    }

}

void appendValue( OUStringBuffer & buf,

                  void const * val, typelib_TypeDescriptionReference * typeRef,

                  bool prependType )

{

    if (typeRef->eTypeClass == typelib_TypeClass_VOID) {

        buf.append( "void" );

        return;

    }

    assert(val != nullptr);

    if (prependType &&

        typeRef->eTypeClass != typelib_TypeClass_STRING &&

        typeRef->eTypeClass != typelib_TypeClass_CHAR &&

        typeRef->eTypeClass != typelib_TypeClass_BOOLEAN)

    {

        buf.append( '(' );

        buf.append( OUString::unacquired( &typeRef->pTypeName ) );

        buf.append( ") " );

    }

    switch (typeRef->eTypeClass) {

    case typelib_TypeClass_INTERFACE: {

        buf.append( '@' );

        buf.append( reinterpret_cast< sal_Int64 >(

                        *static_cast< void * const * >(val) ), 16 );

        uno::Reference< lang::XServiceInfo > xServiceInfo(

            *static_cast< uno::XInterface * const * >(val),

            uno::UNO_QUERY );

        if (xServiceInfo.is()) {

            buf.append( " (ImplementationName = \"" );

            buf.append( xServiceInfo->getImplementationName() );

            buf.append( "\")" );

        }

        break;

    }

    case typelib_TypeClass_STRUCT:

    case typelib_TypeClass_EXCEPTION: {

        buf.append( "{ " );

        TypeDescription typeDescr( typeRef );

        if (!typeDescr.is())

            typeDescr.makeComplete();

        if (!typeDescr.is()) {

            appendTypeError( buf, typeRef );

        }

        else {

            typelib_CompoundTypeDescription * compType =

                reinterpret_cast< typelib_CompoundTypeDescription * >(

                    typeDescr.get() );

            sal_Int32 nDescr = compType->nMembers;

            if (compType->pBaseTypeDescription) {

                appendValue(

                    buf, val, reinterpret_cast<

                    typelib_TypeDescription * >(

                        compType->pBaseTypeDescription)->pWeakRef, false );

                if (nDescr > 0)

                    buf.append( ", " );

            }

            typelib_TypeDescriptionReference ** ppTypeRefs =

                compType->ppTypeRefs;

            sal_Int32 * memberOffsets = compType->pMemberOffsets;

            rtl_uString ** ppMemberNames = compType->ppMemberNames;

            for ( sal_Int32 nPos = 0; nPos < nDescr; ++nPos )

            {

                buf.append( ppMemberNames[ nPos ] );

                buf.append( " = " );

                TypeDescriptionRef memberType( ppTypeRefs[ nPos ] );

                if (!memberType.is()) {

                    appendTypeError( buf, ppTypeRefs[ nPos ] );

                }

                else {

                    appendValue( buf,

                                 static_cast< char const * >(

                                     val ) + memberOffsets[ nPos ],

                                 memberType->pWeakRef, true );

                }

                if (nPos < (nDescr - 1))

                    buf.append( ", " );

            }

        }

        buf.append( " }" );

        break;

    }

    case typelib_TypeClass_SEQUENCE: {

        TypeDescriptionRef typeDescr( typeRef );

        if (!typeDescr.is()) {

            appendTypeError( buf,typeRef );

        }

        else {

            typelib_TypeDescriptionReference * elementTypeRef =

                reinterpret_cast<

                typelib_IndirectTypeDescription * >(typeDescr.get())->pType;

            TypeDescriptionRef elementTypeDescr( elementTypeRef );

            if (!elementTypeDescr.is())

            {

                appendTypeError( buf, elementTypeRef );

            }

            else

            {

                sal_Int32 nElementSize = elementTypeDescr->nSize;

                uno_Sequence * seq =

                    *static_cast< uno_Sequence * const * >(val);

                sal_Int32 nElements = seq->nElements;

                if (nElements > 0)

                {

                    buf.append( "{ " );

                    char const * pElements = seq->elements;

                    for ( sal_Int32 nPos = 0; nPos < nElements; ++nPos )

                    {

                        appendValue(

                            buf, pElements + (nElementSize * nPos),

                            elementTypeDescr->pWeakRef, false );

                        if (nPos < (nElements - 1))

                            buf.append( ", " );

                    }

                    buf.append( " }" );

                }

                else

                {

                    buf.append( "{}" );

                }

            }

        }

        break;

    }

    case typelib_TypeClass_ANY: {

        buf.append( "{ " );

        uno_Any const * pAny = static_cast< uno_Any const * >(val);

        appendValue( buf, pAny->pData, pAny->pType, true );

        buf.append( " }" );

        break;

    }

    case typelib_TypeClass_TYPE:

        buf.append( (*static_cast<

                     typelib_TypeDescriptionReference * const * >(val)

                        )->pTypeName );

        break;

    case typelib_TypeClass_STRING: {

        buf.append( '\"' );

        OUString const & str = OUString::unacquired(

            static_cast< rtl_uString * const * >(val) );

        sal_Int32 len = str.getLength();

        for ( sal_Int32 pos = 0; pos < len; ++pos )

        {

            sal_Unicode c = str[ pos ];

            if (c == '\"')

                buf.append( "\\\"" );

            else if (c == '\\')

                buf.append( "\\\\" );

            else

                appendChar( buf, c );

        }

        buf.append( '\"' );

        break;

    }

    case typelib_TypeClass_ENUM: {

        TypeDescription typeDescr( typeRef );

        if (!typeDescr.is())

            typeDescr.makeComplete();

        if (!typeDescr.is()) {

            appendTypeError( buf, typeRef );

        }

        else

        {

            sal_Int32 * pValues =

                reinterpret_cast< typelib_EnumTypeDescription * >(

                    typeDescr.get() )->pEnumValues;

            sal_Int32 nPos = reinterpret_cast< typelib_EnumTypeDescription * >(

                typeDescr.get() )->nEnumValues;

            while (nPos--)

            {

                if (pValues[ nPos ] == *static_cast< int const * >(val))

                    break;

            }

            if (nPos >= 0)

            {

                buf.append( reinterpret_cast< typelib_EnumTypeDescription * >(

                                typeDescr.get() )->ppEnumNames[ nPos ] );

            }

            else

            {

                buf.append( "?unknown enum value?" );

            }

        }

        break;

    }

    case typelib_TypeClass_BOOLEAN:

        if (*static_cast< sal_Bool const * >(val))

            buf.append( "true" );

        else

            buf.append( "false" );

        break;

    case typelib_TypeClass_CHAR: {

        buf.append( '\'' );

        sal_Unicode c = *static_cast< sal_Unicode const * >(val);

        if (c == '\'')

            buf.append( "\\\'" );

        else if (c == '\\')

            buf.append( "\\\\" );

        else

            appendChar( buf, c );

        buf.append( '\'' );

        break;

    }

    case typelib_TypeClass_FLOAT:

        buf.append( *static_cast< float const * >(val) );

        break;

    case typelib_TypeClass_DOUBLE:

        buf.append( *static_cast< double const * >(val) );

        break;

    case typelib_TypeClass_BYTE:

        buf.append( static_cast< sal_Int32 >(

                        *static_cast< sal_Int8 const * >(val) ) );

        break;

    case typelib_TypeClass_SHORT:

        buf.append( static_cast< sal_Int32 >(

                        *static_cast< sal_Int16 const * >(val) ) );

        break;

    case typelib_TypeClass_UNSIGNED_SHORT:

        buf.append( static_cast< sal_Int32 >(

                        *static_cast< sal_uInt16 const * >(val) ) );

        break;

    case typelib_TypeClass_LONG:

        buf.append( *static_cast< sal_Int32 const * >(val) );

        break;

    case typelib_TypeClass_UNSIGNED_LONG:

        buf.append( static_cast< sal_Int64 >(

                        *static_cast< sal_uInt32 const * >(val) ) );

        break;

    case typelib_TypeClass_HYPER:

    case typelib_TypeClass_UNSIGNED_HYPER:

        buf.append( *static_cast< sal_Int64 const * >(val) );

        break;

//     case typelib_TypeClass_UNKNOWN:

//     case typelib_TypeClass_SERVICE:

//     case typelib_TypeClass_MODULE:

    default:

        buf.append( '?' );

        break;

    }

}

} // anon namespace

OUString anyToString( uno::Any const & value )

{

    OUStringBuffer buf;

    appendValue( buf, value.getValue(), value.getValueTypeRef(), true );

    return buf.makeStringAndClear();

}

} // namespace comphelper

/* vim:set shiftwidth=4 softtabstop=4 expandtab: */