/*
 * This program source code file is part of KICAD, a free EDA CAD application.
 *
 * Copyright (C) 2012 Marco Mattila <marcom99@gmail.com>
 * Copyright (C) 2018 Jean-Pierre Charras jp.charras at wanadoo.fr
 * Copyright (C) 1992-2018 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 <class_board.h>
#include <class_marker_pcb.h>
#include <class_module.h>
#include <class_pcb_text.h>
#include <class_text_mod.h>
#include <confirm.h>
#include <dialog_find.h>
#include <fctsys.h>
#include <kicad_string.h>
#include <pcb_edit_frame.h>
#include <pcbnew.h>
#include <pcbnew_id.h>
#include <string>
#include <tool/tool_manager.h>
#include <tools/pcb_actions.h>
#include <wx/fdrepdlg.h>

//Defined as global because these values have to survive the destructor

bool FindOptionCase = false;
bool FindOptionWords = false;
bool FindOptionWildcards = false;
bool FindOptionWrap = true;

bool FindIncludeTexts = true;
bool FindIncludeValues = true;
bool FindIncludeReferences = true;
bool FindIncludeMarkers = true;
//bool findIncludeVias = false;

DIALOG_FIND::DIALOG_FIND( PCB_BASE_FRAME* aFrame ) : DIALOG_FIND_BASE( aFrame )
{
    m_frame = aFrame;
    m_foundItem = NULL;
    GetSizer()->SetSizeHints( this );

    m_searchCombo->Append( m_frame->GetFindHistoryList() );

    while( m_searchCombo->GetCount() > 10 )
    {
        m_frame->GetFindHistoryList().pop_back();
        m_searchCombo->Delete( 9 );
    }

    if( m_searchCombo->GetCount() )
    {
        m_searchCombo->SetSelection( 0 );
        m_searchCombo->SelectAll();
    }

    m_matchCase->SetValue( FindOptionCase );
    m_matchWords->SetValue( FindOptionWords );
    m_wildcards->SetValue( FindOptionWildcards );
    m_wrap->SetValue( FindOptionWrap );

    m_includeTexts->SetValue( FindIncludeTexts );
    m_includeValues->SetValue( FindIncludeValues );
    m_includeReferences->SetValue( FindIncludeReferences );
    m_includeMarkers->SetValue( FindIncludeMarkers );

    m_status->SetLabel( wxEmptyString);
    m_hitList = new DLIST<BOARD_ITEM>;
    m_hitList->SetOwnership( false );
    m_itemCount = 0;
    isUpToDate = false;

    m_findNext->SetDefault();
    SetInitialFocus( m_searchCombo );

    Center();
}

void DIALOG_FIND::onTextEnter( wxCommandEvent& aEvent )
{
    search( true );
}

void DIALOG_FIND::onFindNextClick( wxCommandEvent& aEvent )
{
    search( true );
}

void DIALOG_FIND::onFindPreviousClick( wxCommandEvent& aEvent )
{
    search( false );
}

void DIALOG_FIND::onSearchAgainClick( wxCommandEvent& aEvent )
{
    isUpToDate = false;
    search( true );
}

void DIALOG_FIND::search( bool aDirection )
{
    PCB_SCREEN* screen = m_frame->GetScreen();
    int         flags;
    int         index;
    wxString    msg;
    wxString    searchString;

    // Add/move the search string to the top of the list if it isn't already there
    searchString = m_searchCombo->GetValue();
    index = m_searchCombo->FindString( searchString, true );

    if( index == wxNOT_FOUND )
    {
        m_searchCombo->Insert( searchString, 0 );
        m_searchCombo->SetSelection( 0 );
        isUpToDate = false;
        m_frame->GetFindHistoryList().Insert( searchString, 0 );

        if( m_searchCombo->GetCount() > 10 )
        {
            m_frame->GetFindHistoryList().pop_back();
            m_searchCombo->Delete( 10 );
        }
    }
    else if( index != 0 )
    {
        m_searchCombo->Delete( index );
        m_searchCombo->Insert( searchString, 0 );
        m_searchCombo->SetSelection( 0 );
        isUpToDate = false;

        if( m_frame->GetFindHistoryList().Index( searchString ) )
            m_frame->GetFindHistoryList().Remove( searchString );

        m_frame->GetFindHistoryList().Insert( searchString, 0 );
    }

    // Update search flags
    flags = 0;

    if( FindOptionCase != m_matchCase->GetValue() )
    {
        FindOptionCase = m_matchCase->GetValue();
        isUpToDate = false;
    }

    if( FindOptionWords != m_matchWords->GetValue() )
    {
        FindOptionWords = m_matchWords->GetValue();
        isUpToDate = false;
    }

    if( FindOptionWildcards != m_wildcards->GetValue() )
    {
        FindOptionWildcards = m_wildcards->GetValue();
        isUpToDate = false;
    }

    FindOptionWrap = m_wrap->GetValue();

    if( FindIncludeTexts != m_includeTexts->GetValue() )
    {
        FindIncludeTexts = m_includeTexts->GetValue();
        isUpToDate = false;
    }

    if( FindIncludeValues != m_includeValues->GetValue() )
    {
        FindIncludeValues = m_includeValues->GetValue();
        isUpToDate = false;
    }

    if( FindIncludeReferences != m_includeReferences->GetValue() )
    {
        FindIncludeReferences = m_includeReferences->GetValue();
        isUpToDate = false;
    }

    if( FindIncludeMarkers != m_includeMarkers->GetValue() )
    {
        FindIncludeMarkers = m_includeMarkers->GetValue();
        isUpToDate = false;
    }

    if( FindOptionCase )
        flags |= wxFR_MATCHCASE;

    if( FindOptionWords )
        flags |= wxFR_WHOLEWORD;

    if( FindOptionWildcards )
        flags |= FR_MATCH_WILDCARD;

    // Search parameters
    m_frame->GetFindReplaceData().SetFindString( searchString );
    m_frame->GetFindReplaceData().SetFlags( flags );

    m_frame->GetToolManager()->RunAction( PCB_ACTIONS::selectionClear, true );
    m_frame->GetCanvas()->GetViewStart( &screen->m_StartVisu.x, &screen->m_StartVisu.y );

    // Refresh the list of results
    if( !isUpToDate )
    {
        m_status->SetLabel( _( "Searching..." ) );

        while( m_hitList->GetCount() > 0 )
            m_hitList->PopBack();

        m_foundItem = NULL;

        if( FindIncludeTexts || FindIncludeValues || FindIncludeReferences )
        {
            for( MODULE* module : m_frame->GetBoard()->Modules() )
            {
                if( ( module->Reference().Matches( m_frame->GetFindReplaceData(), nullptr )
                            && FindIncludeReferences )
                        || ( module->Value().Matches( m_frame->GetFindReplaceData(), nullptr )
                                   && FindIncludeValues ) )
                {
                    m_hitList->Append( module );
                }

                if( m_includeTexts->GetValue() )
                {
                    for( BOARD_ITEM* item : module->GraphicalItems() )
                    {
                        TEXTE_MODULE* textItem = dynamic_cast<TEXTE_MODULE*>( item );

                        if( textItem
                                && textItem->Matches( m_frame->GetFindReplaceData(), nullptr ) )
                        {
                            m_hitList->Append( module );
                        }
                    }
                }
            }

            if( FindIncludeTexts )
            {
                for( BOARD_ITEM* item : m_frame->GetBoard()->Drawings() )
                {
                    TEXTE_PCB* textItem = dynamic_cast<TEXTE_PCB*>( item );

                    if( textItem && textItem->Matches( m_frame->GetFindReplaceData(), nullptr ) )
                    {
                        m_hitList->Append( textItem );
                    }
                }
            }
        }

        if( FindIncludeMarkers )
        {
            for( int i = 0; i < m_frame->GetBoard()->GetMARKERCount(); ++i )
            {
                MARKER_PCB* marker = m_frame->GetBoard()->GetMARKER( i );

                if( marker->Matches( m_frame->GetFindReplaceData(), nullptr ) )
                    m_hitList->Append( marker );
            }
        }

        m_itemCount = -1;
    }

    // Do we want a sorting algorithm ? If so, implement it here.

    // Get the item to display
    if( m_hitList->begin() == NULL )
    {
        m_frame->SetStatusText( wxEmptyString );
        m_itemCount = 0;
        m_foundItem = NULL;
    }
    else if( m_itemCount == -1 )
    {
        m_foundItem = aDirection ? m_hitList->begin() : m_hitList->end();
        m_itemCount = aDirection ? 0 : (int) m_hitList->GetCount() - 1;
        isUpToDate = true;
    }
    else
    {
        if( aDirection )
        {
            if( m_itemCount >= static_cast<int>( m_hitList->GetCount() - 1 ) )
            {
                if( m_wrap->GetValue() )
                {
                    m_itemCount = 0;
                    m_foundItem = m_hitList->begin();
                }
                else
                {
                    m_frame->SetStatusText( wxEmptyString );
                    DisplayError( this, _( "No more item to show" ), 10 );
                    return;
                }
            }
            else
            {
                m_itemCount++;
                m_foundItem = dynamic_cast<BOARD_ITEM*>( m_foundItem->Next() );
            }
        }
        else
        {
            if( m_itemCount <= 0 )
            {
                if( m_wrap->GetValue() )
                {
                    m_itemCount = (int) m_hitList->GetCount() - 1;
                    m_foundItem = m_hitList->end();
                }
                else
                {
                    m_frame->SetStatusText( wxEmptyString );
                    DisplayError( this, _( "No more item to show" ), 10 );
                    return;
                }
            }
            else
            {
                m_itemCount--;
                m_foundItem = dynamic_cast<BOARD_ITEM*>( m_foundItem->Back() );
            }
        }
    }

    // Display the item
    if( m_foundItem )
    {
        m_frame->GetToolManager()->RunAction( PCB_ACTIONS::selectItem, true, m_foundItem );
        m_frame->FocusOnLocation( m_foundItem->GetPosition(), true );

        msg.Printf( _( "\"%s\" found" ), searchString );
        m_frame->SetStatusText( msg );

        msg.Printf( _( "Hit(s): %i / %i" ), m_itemCount + 1, m_hitList->GetCount() );
        m_status->SetLabel( msg );
    }
    else
    {
        m_frame->SetStatusText( wxEmptyString );

        msg.Printf( _( "\"%s\" not found" ), searchString );
        DisplayError( this, msg, 10 );

        m_itemCount = 0;
        m_status->SetLabel( _( "No hits" ) );
    }

    if( m_highlightCallback )
        m_highlightCallback( m_foundItem );
}

void DIALOG_FIND::onClose( wxCommandEvent& aEvent )
{
    FindOptionCase = m_matchCase->GetValue();
    FindOptionWords = m_matchWords->GetValue();
    FindOptionWildcards = m_wildcards->GetValue();
    FindOptionWrap = m_wrap->GetValue();

    FindIncludeTexts = m_includeTexts->GetValue();
    FindIncludeValues = m_includeValues->GetValue();
    FindIncludeMarkers = m_includeMarkers->GetValue();
    FindIncludeReferences = m_includeReferences->GetValue();

    while( m_hitList->GetCount() > 0 )
        m_hitList->PopBack();

    delete m_hitList;
    EndModal( 1 );
}