/******************************/
/* PCBNEW: echange de modules */
/******************************/

/* Fichier xchmod.cpp */

#include "fctsys.h"
#include "gr_basic.h"
#include "common.h"
#include "confirm.h"
#include "kicad_string.h"
#include "gestfich.h"
#include "pcbnew.h"
#include "autorout.h"

#include "protos.h"

/* variables locales */

enum id_ExchangeModule {
    ID_EXEC_EXCHANGE_MODULE = 1900,
    ID_EXEC_EXCHANGE_ID_MODULES,
    ID_EXEC_EXCHANGE_ID_MODULE_AND_VALUE,
    ID_EXEC_EXCHANGE_ALL_MODULES,
    ID_CLOSE_EXCHANGE_MODULE,
    ID_BROWSE_LIB_MODULES
};

/************************************/
/* class WinEDA_ExchangeModuleFrame */
/************************************/

class WinEDA_ExchangeModuleFrame : public wxDialog
{
private:

    WinEDA_BasePcbFrame* m_Parent;
    wxDC* m_DC;
    MODULE* m_CurrentModule;
    WinEDA_EnterText*    m_OldModule;
    WinEDA_EnterText*    m_OldValue;
    WinEDA_EnterText*    m_NewModule;
    wxTextCtrl*          m_WinMsg;

public:

    // Constructor and destructor
    WinEDA_ExchangeModuleFrame( WinEDA_BasePcbFrame* parent,
                                MODULE* Module, wxDC* DC, const wxPoint& pos );
    ~WinEDA_ExchangeModuleFrame()
    {
    }


private:
    void    OnQuit( wxCommandEvent& event );
    void    Change_Module( wxCommandEvent& event );
    void    Change_ModuleId( wxCommandEvent& event );
    void    Change_ModuleAll( wxCommandEvent& event );
    int     Maj_ListeCmp( const wxString& reference, const wxString& old_name,
                          const wxString& new_name, bool ShowError );
    MODULE* Change_1_Module( MODULE*         Module,
                             const wxString& new_module,
                             bool            ShowError );
    void    Sel_NewMod_By_Liste( wxCommandEvent& event );


    DECLARE_EVENT_TABLE()
};

BEGIN_EVENT_TABLE( WinEDA_ExchangeModuleFrame, wxDialog )
    EVT_BUTTON( ID_EXEC_EXCHANGE_MODULE,
                WinEDA_ExchangeModuleFrame::Change_Module )
    EVT_BUTTON( ID_EXEC_EXCHANGE_ID_MODULES,
                WinEDA_ExchangeModuleFrame::Change_ModuleId )
    EVT_BUTTON( ID_EXEC_EXCHANGE_ID_MODULE_AND_VALUE,
                WinEDA_ExchangeModuleFrame::Change_ModuleId )
    EVT_BUTTON( ID_EXEC_EXCHANGE_ALL_MODULES,
                WinEDA_ExchangeModuleFrame::Change_ModuleAll )
    EVT_BUTTON( ID_CLOSE_EXCHANGE_MODULE,
                WinEDA_ExchangeModuleFrame::OnQuit )
    EVT_BUTTON( ID_BROWSE_LIB_MODULES,
                WinEDA_ExchangeModuleFrame::Sel_NewMod_By_Liste )
END_EVENT_TABLE()


WinEDA_ExchangeModuleFrame::WinEDA_ExchangeModuleFrame(
    WinEDA_BasePcbFrame* parent,
    MODULE*              Module,
    wxDC*                DC,
    const wxPoint&
                         framepos ) :
    wxDialog( parent, -1, _( "Exchange Modules" ), framepos, wxSize( 360, 460 ),
              DIALOG_STYLE )
{
    wxButton* Button;

    m_Parent = parent;
    m_DC     = DC;
    Centre();

    m_CurrentModule = Module;

    wxBoxSizer* MainBoxSizer = new  wxBoxSizer( wxVERTICAL );

    SetSizer( MainBoxSizer );
    wxBoxSizer* UpperBoxSizer = new wxBoxSizer( wxHORIZONTAL );

    MainBoxSizer->Add( UpperBoxSizer, 0, wxGROW | wxALL, 5 );
    wxBoxSizer* LeftBoxSizer = new  wxBoxSizer( wxVERTICAL );

    wxBoxSizer* RightBoxSizer = new wxBoxSizer( wxVERTICAL );

    UpperBoxSizer->Add( LeftBoxSizer, 0, wxGROW | wxALL, 5 );
    UpperBoxSizer->Add( RightBoxSizer, 0, wxALIGN_CENTER_VERTICAL | wxALL, 5 );

    /* Creation des boutons de commande */
    Button = new wxButton( this, ID_EXEC_EXCHANGE_MODULE,
                           _( "Change module" ) );

    RightBoxSizer->Add( Button, 0, wxGROW | wxLEFT | wxRIGHT | wxTOP, 5 );

    Button = new wxButton( this, ID_EXEC_EXCHANGE_ID_MODULES,
                           _( "Change same modules" ) );

    RightBoxSizer->Add( Button, 0, wxGROW | wxLEFT | wxRIGHT, 5 );

    Button = new wxButton( this, ID_EXEC_EXCHANGE_ID_MODULE_AND_VALUE,
                           _( "Ch. same module+value" ) );

    RightBoxSizer->Add( Button, 0, wxGROW | wxLEFT | wxRIGHT, 5 );

    Button = new wxButton( this, ID_EXEC_EXCHANGE_ALL_MODULES,
                           _( "Change all" ) );

    RightBoxSizer->Add( Button, 0, wxGROW | wxLEFT | wxRIGHT, 5 );

    Button = new wxButton( this, ID_BROWSE_LIB_MODULES,
                           _( "Browse Libs modules" ) );

    RightBoxSizer->Add( Button, 0, wxGROW | wxLEFT | wxRIGHT, 5 );

    Button = new wxButton( this, ID_CLOSE_EXCHANGE_MODULE,
                           _( "Close" ) );

    RightBoxSizer->Add( Button, 0, wxGROW | wxLEFT | wxRIGHT | wxBOTTOM, 5 );

    m_OldModule = new WinEDA_EnterText( this, _( "Current Module" ),
                                        m_CurrentModule ?
                                        m_CurrentModule->m_LibRef.GetData() :
                                        wxEmptyString,
                                        LeftBoxSizer, wxSize( 150, -1 ) );

    m_OldModule->Enable( FALSE );

    m_OldValue = new WinEDA_EnterText( this, _( "Current Value" ),
                                       m_CurrentModule ?
                                       m_CurrentModule->m_Value->m_Text.GetData() :
                                       wxEmptyString,
                                       LeftBoxSizer, wxSize( 150, -1 ) );

    m_OldValue->Enable( FALSE );

    m_NewModule = new WinEDA_EnterText( this, _( "New Module" ),
                                        m_OldModule->GetValue(),
                                        LeftBoxSizer, wxSize( 150, -1 ) );

    m_WinMsg = new wxTextCtrl( this, -1, wxEmptyString, wxDefaultPosition,
                               wxSize( 340, 230 ),
                               wxTE_READONLY | wxTE_MULTILINE );

    MainBoxSizer->Add( m_WinMsg, 0, wxGROW | wxALL, 5 );

    GetSizer()->Fit( this );
    GetSizer()->SetSizeHints( this );
}


void WinEDA_BasePcbFrame::InstallExchangeModuleFrame( MODULE*        Module,
                                                      wxDC*          DC,
                                                      const wxPoint& pos )
{
    WinEDA_ExchangeModuleFrame* frame =
        new WinEDA_ExchangeModuleFrame( this, Module, DC, pos );

    frame->ShowModal();
    frame->Destroy();
}


void WinEDA_ExchangeModuleFrame::OnQuit( wxCommandEvent& WXUNUSED( event ) )
{
    Close( true );    // true is to force the frame to close
}


/************************************************************************/
/*
 *  Met a jour le fichier name.CMP (s'il existe) apres un echange de module
 *  (par la commande changeMod), si les modules sont geres par ce fichier
 *
 *  Si ShowError != 0 affiche message d'erreur si le fichier .cmp n'est pas
 *  trouve.
 *  Retoure 1 si erreur
 */
int WinEDA_ExchangeModuleFrame::Maj_ListeCmp( const wxString& reference,
                                              const wxString& old_name,
                                              const wxString& new_name,
                                              bool ShowError )
{
    wxFileName fn;
    wxFileName tmpFileName;
    FILE*      FichCmp, * NewFile;
    char       Line[1024];
    wxString   msg;

    if( old_name == new_name )
        return 0;                           /* pas de changement de nom */

    /* Calcul nom fichier CMP par changement de l'extension du nom netliste */
    fn = m_Parent->GetScreen()->m_FileName;
    fn.SetExt( NetCmpExtBuffer );

    // Modification du fichier .cmp correcpondant
    FichCmp = wxFopen( fn.GetFullPath(), wxT( "rt" ) );
    if( FichCmp == NULL )
    {
        if( ShowError )
        {
            msg.Printf( _( "file %s not found" ), fn.GetFullPath().c_str() );
            m_WinMsg->WriteText( msg );
        }
        return 1;
    }

    /* Analyse du fichier et modif */
    tmpFileName = fn;
    tmpFileName.SetExt( wxT( "$$$" ) );
    NewFile = wxFopen( tmpFileName.GetFullPath(), wxT( "wt" ) );
    if( NewFile == NULL )
    {
        if( ShowError )
        {
            msg.Printf( _( "Unable to create file %s" ),
                        tmpFileName.GetFullPath().c_str() );
            m_WinMsg->WriteText( msg );
        }
        return 1;
    }

    fgets( Line, sizeof(Line), FichCmp );
    fprintf( NewFile, "Cmp-Mod V01 Genere par PcbNew le %s\n",
             DateAndTime( Line ) );

    bool start_descr = FALSE;
    while( fgets( Line, sizeof(Line), FichCmp ) != NULL )
    {
        if( strnicmp( Line, "Reference = ", 9 ) == 0 )
        {
            char buf[1024];
            strcpy( buf, Line + 12 );
            strtok( buf, ";\n\r" );
            if( stricmp( buf, CONV_TO_UTF8( reference ) ) == 0 )
            {
                start_descr = TRUE;
            }
        }

        if( (strnicmp( Line, "Begin", 5 ) == 0)
            || (strnicmp( Line, "End", 3 ) == 0) )
        {
            start_descr = FALSE;
        }

        if( start_descr && strnicmp( Line, "IdModule", 8 ) == 0 )
        {
            sprintf( Line + 8, "  = %s;\n", CONV_TO_UTF8( new_name ) );

            msg = wxT( " * in <" ) + fn.GetFullPath() + wxT( ">.\n" );
            m_WinMsg->WriteText( msg );

            start_descr = FALSE;
        }
        fputs( Line, NewFile );
    }

    fclose( FichCmp );
    fclose( NewFile );
    wxRemoveFile( fn.GetFullPath() );
    wxRenameFile( tmpFileName.GetFullPath(), fn.GetFullPath() );
    return 0;
}


/*
 * Routine de changement d'un module:
 *  Change le module pointe par la souris, par un autre en conservant
 *      - meme orientation
 *      - meme position
 *      - memes textes valeur et ref
 *      - memes netnames pour pads de meme nom
 */
void WinEDA_ExchangeModuleFrame::Change_Module( wxCommandEvent& event )
{
    wxString newmodulename = m_NewModule->GetValue();

    if( newmodulename == wxEmptyString )
        return;

    if( Change_1_Module( m_CurrentModule, newmodulename, TRUE ) )
    {
        m_Parent->Compile_Ratsnest( m_DC, true );
    }
}


/*
 * Routine de changement de tous les modules de meme nom lib que celui
 *  selectionne, en conservant
 *      - meme orientation
 *      - meme position
 *      - memes textes valeur et ref
 *      - memes netnames pour pads de meme nom
 *  et en remplacant l'ancien module par le noveau module
 *  Attention: m_CurrentModule ne pointe plus sur le module de reference
 *  puisque celui ci a ete change!!
 */
void WinEDA_ExchangeModuleFrame::Change_ModuleId( wxCommandEvent& event )
{
    wxString msg;
    MODULE*  Module, * PtBack;
    bool     change = FALSE;
    wxString newmodulename = m_NewModule->GetValue();
    wxString value, lib_reference;  // pour memo Reflib et value de reference
    bool     check_module_value = FALSE;
    int      ShowErr = 5;           // Affiche 5 messages d'err maxi

    if( m_Parent->GetBoard()->m_Modules == NULL )
        return;
    if( newmodulename == wxEmptyString )
        return;

    lib_reference = m_CurrentModule->m_LibRef;
    if( event.GetId() == ID_EXEC_EXCHANGE_ID_MODULE_AND_VALUE )
    {
        check_module_value = TRUE;
        value = m_CurrentModule->m_Value->m_Text;
        msg.Printf( _( "Change modules <%s> -> <%s> (val = %s)?" ),
                    m_CurrentModule->m_LibRef.GetData(),
                    newmodulename.GetData(),
                    m_CurrentModule->m_Value->m_Text.GetData() );
    }
    else
    {
        msg.Printf( _( "Change modules <%s> -> <%s> ?" ),
                    lib_reference.GetData(), newmodulename.GetData() );
    }

    if( !IsOK( this, msg ) )
        return;

    /* Le changement s'effectue a partir du dernier module car la routine
     *  Change_1_Module() modifie le dernier module de la liste
     */

    Module = m_Parent->GetBoard()->m_Modules;
    for( ; Module != NULL; Module = Module->Next() )
    {
        if( Module->Next() == NULL )
            break;
    }

    /* Ici Module pointe le dernier module de la liste */
    for( ;
         Module && ( (BOARD*) Module != m_Parent->GetBoard() );
         Module = PtBack )
    {
        MODULE* module;
        PtBack = Module->Back();
        if( lib_reference.CmpNoCase( Module->m_LibRef ) != 0 )
            continue;
        if( check_module_value )
        {
            if( value.CmpNoCase( Module->m_Value->m_Text ) != 0 )
                continue;
        }
        module = Change_1_Module( Module, newmodulename.GetData(), ShowErr );
        if( module )
            change = TRUE;
        else if( ShowErr )
            ShowErr--;
    }

    if( change )
    {
        m_Parent->Compile_Ratsnest( m_DC, true );
    }
}


/*
 * Routine de changement de tous les modules par les modules de meme nom lib:
 *  en conservant
 *      - meme orientation
 *      - meme position
 *      - memes textes valeur et ref
 *      - memes netnames pour pads de meme nom
 */
void WinEDA_ExchangeModuleFrame::Change_ModuleAll( wxCommandEvent& event )
{
    MODULE* Module, * PtBack;
    bool    change  = FALSE;
    int     ShowErr = 5; // Affiche 5 messages d'err maxi

    if( m_Parent->GetBoard()->m_Modules == NULL )
        return;

    if( !IsOK( this, _( "Change ALL modules ?" ) ) )
        return;

    /* Le changement s'effectue a partir du dernier module car la routine
     *  Change_1_Module() modifie le dernier module de la liste
     */

    Module = m_Parent->GetBoard()->m_Modules;
    for( ; Module != NULL; Module = Module->Next() )
    {
        if( Module->Next() == NULL )
            break;
    }

    /* Ici Module pointe le dernier module de la liste */
    for( ;
         Module && ( (BOARD*) Module != m_Parent->GetBoard() );
         Module = PtBack )
    {
        PtBack = Module->Back();
        if( Change_1_Module( Module, Module->m_LibRef.GetData(), ShowErr ) )
            change = TRUE;
        else if( ShowErr )
            ShowErr--;
    }

    if( change )
    {
        m_Parent->Compile_Ratsnest( m_DC, true );
    }
}


/*
 * Routine de changement d'un module:
 *  Change le module de numero empr, avec le module de nom new_module
 *      - meme orientation
 *      - meme position
 *      - memes textes valeur et ref
 *      - memes netnames pour pads de meme nom
 *  Retourne :
 *      0 si pas de changement ( si le nouveau module n'est pas en libr)
 *      1 si OK
 */
MODULE* WinEDA_ExchangeModuleFrame::Change_1_Module( MODULE* Module,
                                                     const wxString& new_module,
                                                     bool ShowError )
{
    wxString namecmp, oldnamecmp;
    MODULE*  NewModule;
    wxString Line;

    if( Module == NULL )
        return NULL;

    wxBusyCursor dummy;

    /* Memorisation des parametres utiles de l'ancien module */
    oldnamecmp = Module->m_LibRef;
    namecmp    = new_module;

    /* Chargement du module */
    Line.Printf( _( "Change module %s (%s)  " ),
                Module->m_Reference->m_Text.GetData(), oldnamecmp.GetData() );
    m_WinMsg->WriteText( Line );

    namecmp.Trim( TRUE );
    namecmp.Trim( FALSE );
    NewModule = m_Parent->Get_Librairie_Module( wxEmptyString,
                                                namecmp,
                                                ShowError );
    if( NewModule == NULL )  /* Nouveau module NON trouve, reaffichage de l'ancien */
    {
        m_WinMsg->WriteText( wxT( "No\n" ) );
        return NULL;
    }

    if( Module == m_CurrentModule )
        m_CurrentModule = NewModule;
    m_WinMsg->WriteText( wxT( "Ok\n" ) );

    /* Effacement a l'ecran de l'ancien module */
    if ( m_DC )
        Module->Draw( m_Parent->DrawPanel, m_DC, GR_XOR );

    m_Parent->Exchange_Module( this, Module, NewModule );

    /* Affichage du nouveau module */
    if ( m_DC )
        NewModule->Draw( m_Parent->DrawPanel, m_DC, GR_OR );

    Maj_ListeCmp( NewModule->m_Reference->m_Text,
                  oldnamecmp,
                  namecmp,
                  ShowError );

    return NewModule;
}


/*
 * Remplace le module OldModule par le module NewModule (en conservant
 * position, orientation..)
 * OldModule est supprim� de la memoire.
 */
MODULE* WinEDA_BasePcbFrame::Exchange_Module( wxWindow* winaff,
                                              MODULE*   OldModule,
                                              MODULE*   NewModule )
{
    wxPoint oldpos; /* memorisation temporaire pos curseur */
    D_PAD*  pad, * old_pad;


    if( (OldModule->Type() != TYPE_MODULE)
       || (NewModule->Type() != TYPE_MODULE) )
    {
        DisplayError( winaff,
                      wxT( "WinEDA_BasePcbFrame::Exchange_Module() StuctType error" ) );
    }

    NewModule->SetParent( GetBoard() );

    GetBoard()->m_Status_Pcb = 0;
    oldpos = GetScreen()->m_Curseur;
    GetScreen()->m_Curseur = OldModule->m_Pos;
    Place_Module( NewModule, NULL );
    GetScreen()->m_Curseur = oldpos;

    /* Changement eventuel de couche */
    if( OldModule->GetLayer() != NewModule->GetLayer() )
    {
        GetBoard()->Change_Side_Module( NewModule, NULL );
    }

    /* Rotation eventuelle du module */
    if( OldModule->m_Orient != NewModule->m_Orient )
    {
        Rotate_Module( NULL, NewModule, OldModule->m_Orient, FALSE );
    }

    /* Mise a jour des textes ref et val */
    NewModule->m_Reference->m_Text = OldModule->m_Reference->m_Text;
    NewModule->m_Value->m_Text     = OldModule->m_Value->m_Text;

    /* Mise a jour des autres parametres */
    NewModule->m_TimeStamp = OldModule->m_TimeStamp;
    NewModule->m_Path = OldModule->m_Path;

    /* mise a jour des netnames ( lorsque c'est possible) */
    pad = NewModule->m_Pads;
    for( ; pad != NULL; pad = pad->Next() )
    {
        pad->SetNetname( wxEmptyString );
        pad->SetNet( 0 );
        old_pad = OldModule->m_Pads;
        for( ; old_pad != NULL; old_pad = old_pad->Next() )
        {
            if( strnicmp( pad->m_Padname, old_pad->m_Padname,
                          sizeof(pad->m_Padname) ) == 0 )
            {
                pad->SetNetname( old_pad->GetNetname() );
                pad->SetNet( old_pad->GetNet() );
            }
        }
    }

    /* Effacement de l'ancien module */
    OldModule->DeleteStructure();

    GetBoard()->m_Status_Pcb = 0;
    NewModule->m_Flags = 0;
    GetScreen()->SetModify();

    return NewModule;
}


/*
 * affiche la liste des modules en librairie et selectione 1 nom
 */
void WinEDA_ExchangeModuleFrame::Sel_NewMod_By_Liste( wxCommandEvent& event )
{
    wxString newname;

    newname = m_Parent->Select_1_Module_From_List( m_Parent,
                                                   wxEmptyString,
                                                   wxEmptyString,
                                                   wxEmptyString );
    if( newname != wxEmptyString )
        m_NewModule->SetValue( newname );
}


/**
 * Function RecreateBOMFileFromBoard
 * Recreates a .cmp file from the current loaded board
 * this is the same as created by cvpcb.
 * can be used if this file is lost
 */
void WinEDA_PcbFrame::RecreateCmpFileFromBoard( wxCommandEvent& aEvent )
{
    wxFileName fn;
    FILE*      FichCmp;
    char       Line[1024];
    MODULE*    Module = GetBoard()->m_Modules;
    wxString   msg;
    wxString   wildcard;

    if( Module == NULL )
    {
        DisplayError( this, _( "No Modules!" ) );
        return;
    }

    /* Calcul nom fichier CMP par changement de l'extension du nom netliste */
    fn = GetScreen()->m_FileName;
    fn.SetExt( NetCmpExtBuffer );
    wildcard = _( "Component files (." ) + NetCmpExtBuffer + wxT( ")|*." ) +
               NetCmpExtBuffer;

    wxFileDialog dlg( this, _( "Save Component Files" ), wxEmptyString,
                      fn.GetFullName(), wildcard,
                      wxFD_SAVE | wxFD_OVERWRITE_PROMPT );

    if( dlg.ShowModal() == wxID_CANCEL )
        return;

    fn = dlg.GetPath();

    FichCmp = wxFopen( fn.GetFullPath(), wxT( "wt" ) );
    if( FichCmp == NULL )
    {
        msg = _( "Unable to create file " ) + fn.GetFullPath();
        DisplayError( this, msg );
        return;
    }

    fgets( Line, sizeof(Line), FichCmp );
    fprintf( FichCmp, "Cmp-Mod V01 Genere par PcbNew le %s\n",
             DateAndTime( Line ) );

    for( ; Module != NULL; Module = Module->Next() )
    {
        fprintf( FichCmp, "\nBeginCmp\n" );
        fprintf( FichCmp, "TimeStamp = %8.8lX\n", Module->m_TimeStamp );
        fprintf( FichCmp, "Path = %s\n", CONV_TO_UTF8( Module->m_Path ) );
        fprintf( FichCmp, "Reference = %s;\n",
                 !Module->m_Reference->m_Text.IsEmpty() ?
                 CONV_TO_UTF8( Module->m_Reference->m_Text ) : "[NoRef]" );
        fprintf( FichCmp, "ValeurCmp = %s;\n",
                 !Module->m_Value->m_Text.IsEmpty() ?
                 CONV_TO_UTF8( Module->m_Value->m_Text ) : "[NoVal]" );
        fprintf( FichCmp, "IdModule  = %s;\n",
                 CONV_TO_UTF8( Module->m_LibRef ) );
        fprintf( FichCmp, "EndCmp\n" );
    }

    fprintf( FichCmp, "\nEndListe\n" );
    fclose( FichCmp );
}