/*
 * This program source code file is part of KiCad, a free EDA CAD application.
 *
 * Copyright (C) 2010 SoftPLC Corporation, Dick Hollenbeck <dick@softplc.com>
 * Copyright The KiCad Developers, see AUTHORS.txt for contributors.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, you may find one here:
 * http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
 * or you may search the http://www.gnu.org website for the version 2 license,
 * or you may write to the Free Software Foundation, Inc.,
 * 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
 */

#include <fmt/format.h>

#include "xnode.h"

#include <richio.h>
#include <string_utils.h>
#include <io/kicad/kicad_io_utils.h>


XATTR::XATTR( const wxString& aName, const VALUE_TYPE& aValue ) :
        wxXmlAttribute( aName, wxEmptyString ),
        m_originalValue( aValue )
{
    std::visit( [&]<typename T0>( T0&& arg )
                {
                    using T = std::decay_t<T0>;

                    if constexpr( std::is_same_v<T, int> )
                    {
                        wxXmlAttribute::SetValue( wxString::Format( "%d", arg ) );
                    }
                    else if constexpr( std::is_same_v<T, double> )
                    {
                        std::string buf;

                        if( arg != 0.0 && std::fabs( arg ) <= 0.0001 )
                        {
                            buf = fmt::format( "{:.16f}", arg );

                            // remove trailing zeros (and the decimal marker if needed)
                            while( !buf.empty() && buf[buf.size() - 1] == '0' )
                            {
                                buf.pop_back();
                            }

                            // if the value was really small
                            // we may have just stripped all the zeros after the decimal
                            if( buf[buf.size() - 1] == '.' )
                            {
                                buf.pop_back();
                            }
                        }
                        else
                        {
                            buf = fmt::format( "{:.10g}", arg );
                        }

                        wxXmlAttribute::SetValue( buf );
                    }
                    else if constexpr( std::is_same_v<T, wxString> )
                    {
                        wxXmlAttribute::SetValue( arg );
                    }
                    else
                    {
                        static_assert( sizeof( T ) == 0, "Missing type handling in XNODE::FormatContents" );
                    }
                    }, aValue );
}


void XNODE::AddBool( const wxString& aKey, bool aValue )
{
    AddAttribute( aKey, aValue ? wxT( "yes" ) : wxT( "no" ) );
}


void XNODE::AddAttribute( const wxString& aName, const wxString& aValue )
{
    XATTR* attr = new XATTR( aName, aValue );
    wxXmlNode::AddAttribute( attr );
}


void XNODE::AddAttribute( const wxString& aName, int aValue )
{
    XATTR* attr = new XATTR( aName, aValue );
    wxXmlNode::AddAttribute( attr );
}


void XNODE::AddAttribute( const wxString& aName, double aValue )
{
    XATTR* attr = new XATTR( aName, aValue );
    wxXmlNode::AddAttribute( attr );
}


void XNODE::Format( OUTPUTFORMATTER* out ) const
{
    switch( GetType() )
    {
    case wxXML_ELEMENT_NODE:
        out->Print( "(%s", TO_UTF8( GetName() ) );
        FormatContents( out );

        if( GetNext() )
            out->Print( 0, ")\n" );
        else
            out->Print( 0, ")" );

        break;

    default:
        FormatContents( out );
    }
}


void XNODE::FormatContents( OUTPUTFORMATTER* out ) const
{
    // output attributes first if they exist
    for( wxXmlAttribute* attr = GetAttributes(); attr; attr = attr->GetNext() )
    {
        bool quote = true;

        if( auto xa = dynamic_cast<XATTR*>( attr ) )
        {
            XATTR::VALUE_TYPE value = xa->GetValue();

            std::visit( [&quote]<typename T0>( T0&& )
                    {
                        using T = std::decay_t<T0>;

                        if constexpr( std::is_same_v<T, int> || std::is_same_v<T, double> )
                        {
                            quote = false;
                        }
                    }, value );
        }

        out->Print( 0, " (%s %s)",
                    TO_UTF8( attr->GetName() ),
                    quote ? out->Quotew( attr->GetValue() ).c_str() : TO_UTF8( attr->GetValue() ) );
    }

    // we only expect to have used one of two types here:
    switch( GetType() )
    {
    case wxXML_ELEMENT_NODE:
        for( XNODE* child = GetChildren(); child; child = child->GetNext() )
        {
            if( child->GetType() != wxXML_TEXT_NODE )
            {
                if( child == GetChildren() )
                    out->Print( 0, "\n" );

                child->Format( out );
            }
            else
            {
                child->Format( out );
            }
        }

        break;

    case wxXML_TEXT_NODE:
        out->Print( 0, " %s", out->Quotew( GetContent() ).c_str() );
        break;

    default:
        ;   // not supported
    }
}


wxString XNODE::Format() const
{
    STRING_FORMATTER formatter;
    Format( &formatter );
    KICAD_FORMAT::Prettify( formatter.MutableString() );
    return formatter.GetString();
}

// EOF