sch_io_eagle.cpp

Go to the documentation of this file.

/*
 * This program source code file is part of KiCad, a free EDA CAD application.
 *
 * Copyright (C) 2017 CERN
 * Copyright The KiCad Developers, see AUTHORS.txt for contributors.
 *
 * @author Alejandro García Montoro <[email protected]>
 * @author Maciej Suminski <[email protected]>
 * @author Russell Oliver <[email protected]>
 *
 * 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 3
 * 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, see <https://www.gnu.org/licenses/>.
 */
 
#include <sch_io/eagle/sch_io_eagle.h>
 
#include <algorithm>
#include <memory>
#include <fmt/format.h>
#include <wx/filename.h>
#include <wx/string.h>
#include <wx/tokenzr.h>
#include <wx/wfstream.h>
#include <wx/txtstrm.h>
#include <wx/mstream.h>
#include <wx/xml/xml.h>
 
#include <advanced_config.h>
#include <font/fontconfig.h>
#include <reporter.h>
#include <io/eagle/eagle_parser.h>
#include <io/eagle/eagle_bin_parser.h>
#include <lib_id.h>
#include <progress_reporter.h>
#include <project.h>
#include <project/net_settings.h>
#include <project_sch.h>
#include <sch_bus_entry.h>
#include <sch_edit_frame.h>
#include <sch_io/kicad_sexpr/sch_io_kicad_sexpr.h>
#include <sch_junction.h>
#include <sch_label.h>
#include <sch_marker.h>
#include <sch_pin.h>
#include <sch_screen.h>
#include <sch_shape.h>
#include <sch_sheet.h>
#include <sch_sheet_path.h>
#include <sch_sheet_pin.h>
#include <sch_symbol.h>
#include <schematic.h>
#include <string_utils.h>
#include <wildcards_and_files_ext.h>
#include <libraries/symbol_library_adapter.h>
 
 
// Eagle schematic axes are aligned with x increasing left to right and Y increasing bottom to top
// KiCad schematic axes are aligned with x increasing left to right and Y increasing top to bottom.
 
using namespace std;

static const std::map<wxString, ELECTRICAL_PINTYPE> pinDirectionsMap = {
    { wxT( "sup" ),    ELECTRICAL_PINTYPE::PT_POWER_IN },
    { wxT( "pas" ),    ELECTRICAL_PINTYPE::PT_PASSIVE },
    { wxT( "out" ),    ELECTRICAL_PINTYPE::PT_OUTPUT },
    { wxT( "in" ),     ELECTRICAL_PINTYPE::PT_INPUT },
    { wxT( "nc" ),     ELECTRICAL_PINTYPE::PT_NC },
    { wxT( "io" ),     ELECTRICAL_PINTYPE::PT_BIDI },
    { wxT( "oc" ),     ELECTRICAL_PINTYPE::PT_OPENCOLLECTOR },
    { wxT( "hiz" ),    ELECTRICAL_PINTYPE::PT_TRISTATE },
    { wxT( "pwr" ),    ELECTRICAL_PINTYPE::PT_POWER_IN },
};
 

static BOX2I getSheetBbox( SCH_SHEET* aSheet )
{
    BOX2I bbox;
 
    for( SCH_ITEM* item : aSheet->GetScreen()->Items() )
        bbox.Merge( item->GetBoundingBox() );
 
    return bbox;
}
 

static inline wxString extractNetName( const wxString& aPinName )
{
    return aPinName.BeforeFirst( '@' );
}
 
 
SCH_SHEET* SCH_IO_EAGLE::getCurrentSheet()
{
    return m_sheetPath.Last();
}
 
 
SCH_SCREEN* SCH_IO_EAGLE::getCurrentScreen()
{
    SCH_SHEET* currentSheet = m_sheetPath.Last();
    wxCHECK( currentSheet, nullptr );
    return currentSheet->GetScreen();
}
 
 
wxString SCH_IO_EAGLE::getLibName()
{
    if( m_libName.IsEmpty() )
    {
        // Try to come up with a meaningful name
        m_libName = m_schematic->Project().GetProjectName();
 
        if( m_libName.IsEmpty() )
        {
            wxFileName fn( m_rootSheet->GetFileName() );
            m_libName = fn.GetName();
        }
 
        if( m_libName.IsEmpty() )
            m_libName = wxT( "noname" );
 
        m_libName += wxT( "-eagle-import" );
        m_libName = LIB_ID::FixIllegalChars( m_libName, true ).wx_str();
    }
 
    return m_libName;
}
 
 
wxFileName SCH_IO_EAGLE::getLibFileName()
{
    wxFileName fn;
 
    wxCHECK( m_schematic, fn );
 
    fn.Assign( m_schematic->Project().GetProjectPath(), getLibName(),
               FILEEXT::KiCadSymbolLibFileExtension );
 
    return fn;
}
 
 
void SCH_IO_EAGLE::loadLayerDefs( const std::vector<std::unique_ptr<ELAYER>>& aLayers )
{
    // match layers based on their names
    for( const std::unique_ptr<ELAYER>& elayer : aLayers )
    {
 
        switch ( elayer->number)
        {
        case 91:
            m_layerMap[elayer->number] = LAYER_WIRE;
            break;
        case 92:
            m_layerMap[elayer->number] = LAYER_BUS;
            break;
        case 97:
        case 98:
            m_layerMap[elayer->number] = LAYER_NOTES;
            break;
 
        default:
            break;
        }
    }
}
 
 
SCH_LAYER_ID SCH_IO_EAGLE::kiCadLayer( int aEagleLayer )
{
    auto it = m_layerMap.find( aEagleLayer );
    return it == m_layerMap.end() ? LAYER_NOTES : it->second;
}
 
 
// Return the KiCad symbol orientation based on eagle rotation degrees.
static SYMBOL_ORIENTATION_T kiCadComponentRotation( float eagleDegrees )
{
    int roti = int( eagleDegrees );
 
    switch( roti )
    {
    case 0:   return SYM_ORIENT_0;
    case 90:  return SYM_ORIENT_90;
    case 180: return SYM_ORIENT_180;
    case 270: return SYM_ORIENT_270;
 
    default:
        wxASSERT_MSG( false, wxString::Format( wxT( "Unhandled orientation (%d degrees)" ),
                                               roti ) );
        return SYM_ORIENT_0;
    }
}
 
 
// Calculate text alignment based on the given Eagle text alignment parameters.
static void eagleToKicadAlignment( EDA_TEXT* aText, int aEagleAlignment, int aRelDegress,
                                   bool aMirror, bool aSpin, int aAbsDegress )
{
    int align = aEagleAlignment;
 
    if( aRelDegress == 90 )
    {
        aText->SetTextAngle( ANGLE_VERTICAL );
    }
    else if( aRelDegress == 180 )
    {
        align = -align;
    }
    else if( aRelDegress == 270 )
    {
        aText->SetTextAngle( ANGLE_VERTICAL );
        align = -align;
    }
 
    if( aMirror == true )
    {
        if( aAbsDegress == 90 || aAbsDegress == 270 )
        {
            if( align == ETEXT::BOTTOM_RIGHT )
                align = ETEXT::TOP_RIGHT;
            else if( align == ETEXT::BOTTOM_LEFT )
                align = ETEXT::TOP_LEFT;
            else if( align == ETEXT::TOP_LEFT )
                align = ETEXT::BOTTOM_LEFT;
            else if( align == ETEXT::TOP_RIGHT )
                align = ETEXT::BOTTOM_RIGHT;
        }
        else if( aAbsDegress == 0 || aAbsDegress == 180 )
        {
            if( align == ETEXT::BOTTOM_RIGHT )
                align = ETEXT::BOTTOM_LEFT;
            else if( align == ETEXT::BOTTOM_LEFT )
                align = ETEXT::BOTTOM_RIGHT;
            else if( align == ETEXT::TOP_LEFT )
                align = ETEXT::TOP_RIGHT;
            else if( align == ETEXT::TOP_RIGHT )
                align = ETEXT::TOP_LEFT;
            else if( align == ETEXT::CENTER_LEFT )
                align = ETEXT::CENTER_RIGHT;
            else if( align == ETEXT::CENTER_RIGHT )
                align = ETEXT::CENTER_LEFT;
        }
    }
 
    switch( align )
    {
    case ETEXT::CENTER:
        aText->SetHorizJustify( GR_TEXT_H_ALIGN_CENTER );
        aText->SetVertJustify( GR_TEXT_V_ALIGN_CENTER );
        break;
 
    case ETEXT::CENTER_LEFT:
        aText->SetHorizJustify( GR_TEXT_H_ALIGN_LEFT );
        aText->SetVertJustify( GR_TEXT_V_ALIGN_CENTER );
        break;
 
    case ETEXT::CENTER_RIGHT:
        aText->SetHorizJustify( GR_TEXT_H_ALIGN_RIGHT );
        aText->SetVertJustify( GR_TEXT_V_ALIGN_CENTER );
        break;
 
    case ETEXT::TOP_CENTER:
        aText->SetHorizJustify( GR_TEXT_H_ALIGN_CENTER );
        aText->SetVertJustify( GR_TEXT_V_ALIGN_TOP );
        break;
 
    case ETEXT::TOP_LEFT:
        aText->SetHorizJustify( GR_TEXT_H_ALIGN_LEFT );
        aText->SetVertJustify( GR_TEXT_V_ALIGN_TOP );
        break;
 
    case ETEXT::TOP_RIGHT:
        aText->SetHorizJustify( GR_TEXT_H_ALIGN_RIGHT );
        aText->SetVertJustify( GR_TEXT_V_ALIGN_TOP );
        break;
 
    case ETEXT::BOTTOM_CENTER:
        aText->SetHorizJustify( GR_TEXT_H_ALIGN_CENTER );
        aText->SetVertJustify( GR_TEXT_V_ALIGN_BOTTOM );
        break;
 
    case ETEXT::BOTTOM_LEFT:
        aText->SetHorizJustify( GR_TEXT_H_ALIGN_LEFT );
        aText->SetVertJustify( GR_TEXT_V_ALIGN_BOTTOM );
        break;
 
    case ETEXT::BOTTOM_RIGHT:
        aText->SetHorizJustify( GR_TEXT_H_ALIGN_RIGHT );
        aText->SetVertJustify( GR_TEXT_V_ALIGN_BOTTOM );
        break;
 
    default:
        aText->SetHorizJustify( GR_TEXT_H_ALIGN_RIGHT );
        aText->SetVertJustify( GR_TEXT_V_ALIGN_BOTTOM );
        break;
    }
}
 
 
SCH_IO_EAGLE::SCH_IO_EAGLE() : SCH_IO( wxS( "EAGLE" ) ),
    m_rootSheet( nullptr ),
    m_schematic( nullptr ),
    m_sheetIndex( 1 )
{
}
 
 
SCH_IO_EAGLE::~SCH_IO_EAGLE()
{
}
 
 
int SCH_IO_EAGLE::GetModifyHash() const
{
    return 0;
}
 
 
SCH_SHEET* SCH_IO_EAGLE::LoadSchematicFile( const wxString& aFileName, SCHEMATIC* aSchematic,
                                            SCH_SHEET*             aAppendToMe,
                                            const std::map<std::string, UTF8>* aProperties )
{
    wxASSERT( !aFileName || aSchematic != nullptr );
 
    // Collect the font substitution warnings (RAII - automatically reset on scope exit)
    FONTCONFIG_REPORTER_SCOPE fontconfigScope( &LOAD_INFO_REPORTER::GetInstance() );
 
    m_filename = aFileName;
    m_schematic = aSchematic;
 
    if( m_progressReporter )
    {
        m_progressReporter->Report( wxString::Format( _( "Loading %s..." ), aFileName ) );
 
        if( !m_progressReporter->KeepRefreshing() )
            THROW_IO_CANCELLED();
    }
 
    // Load the document
    wxXmlDocument xmlDocument = loadXmlDocument( m_filename.GetFullPath() );
 
    // Retrieve the root as current node
    wxXmlNode* currentNode = xmlDocument.GetRoot();
 
    if( m_progressReporter )
        m_progressReporter->SetNumPhases( static_cast<int>( GetNodeCount( currentNode ) ) );
 
    wxFileName newFilename( m_filename );
    newFilename.SetExt( FILEEXT::KiCadSchematicFileExtension );
 
    // Owns the temporary VR for the non-append path so it is freed when this scope exits.
    // The actual schematic VR will be created by SetTopLevelSheets() inside loadSchematic().
    unique_ptr<SCH_SHEET> tempVROwner;
 
    if( aAppendToMe )
    {
        wxCHECK_MSG( aSchematic->IsValid(), nullptr,
                     wxT( "Can't append to a schematic with no root!" ) );
 
        m_rootSheet = &aSchematic->Root();
 
        // We really should be passing the SCH_SHEET_PATH object to the aAppendToMe attribute
        // instead of the SCH_SHEET.  The full path is needed to properly generate instance
        // data.
        SCH_SHEET_LIST hierarchy( m_rootSheet );
 
        for( const SCH_SHEET_PATH& sheetPath : hierarchy )
        {
            if( sheetPath.Last() == aAppendToMe )
            {
                m_sheetPath = sheetPath;
                break;
            }
        }
    }
    else
    {
        // Create a temporary local VR used only to anchor m_sheetPath during loading.
        // loadSchematic() will call SetTopLevelSheets() with the real Eagle pages, which
        // creates the actual schematic VR and re-parents the pages to it.
        tempVROwner = std::make_unique<SCH_SHEET>( aSchematic );
        m_rootSheet = tempVROwner.get();
        const_cast<KIID&>( m_rootSheet->m_Uuid ) = niluuid;
    }
 
    if( !m_rootSheet->GetScreen() )
    {
        SCH_SCREEN* screen = new SCH_SCREEN( m_schematic );
        screen->SetFileName( newFilename.GetFullPath() );
        m_rootSheet->SetScreen( screen );
 
        // Virtual root sheet UUID must be nil since all Eagle pages are loaded as subsheets.
        const_cast<KIID&>( m_rootSheet->m_Uuid ) = niluuid;
 
        // There is always at least a root sheet.
        m_sheetPath.push_back( m_rootSheet );
    }
 
    SYMBOL_LIBRARY_ADAPTER* adapter = PROJECT_SCH::SymbolLibAdapter( &aSchematic->Project() );
    LIBRARY_TABLE* table = adapter->ProjectTable().value_or( nullptr );
    wxCHECK_MSG( table, nullptr, "Could not load symbol lib table." );
 
    m_pi.reset( SCH_IO_MGR::FindPlugin( SCH_IO_MGR::SCH_KICAD ) );

    if( !table->HasRow( getLibName() ) )
    {
        // Create a new empty symbol library.
        m_pi->CreateLibrary( getLibFileName().GetFullPath() );
        wxString libTableUri = wxT( "${KIPRJMOD}/" ) + getLibFileName().GetFullName();
 
        // Add the new library to the project symbol library table.
        LIBRARY_TABLE_ROW& row = table->InsertRow();
        row.SetNickname( getLibName() );
        row.SetURI( libTableUri );
        row.SetType( "KiCad" );
 
        table->Save();
 
        adapter->LoadOne( getLibName() );
    }
 
    try
    {
        m_eagleDoc = std::make_unique<EAGLE_DOC>( currentNode, this );
    }
    catch( const XML_PARSER_ERROR& exc )
    {
        THROW_IO_ERROR( exc.what() );
    }
 
    // If the attribute is found, store the Eagle version;
    // otherwise, store the dummy "0.0" version.
    m_version = ( m_eagleDoc->version.IsEmpty() ) ? wxString( wxS( "0.0" ) ) : m_eagleDoc->version;
 
    // Load drawing
    loadDrawing( m_eagleDoc->drawing );
 
    if( !aAppendToMe )
        m_rootSheet = &aSchematic->Root();
 
    m_pi->SaveLibrary( getLibFileName().GetFullPath() );
 
    // The project library was created empty and then cached by the adapter (LoadOne above)
    // before any symbols were written to it. Reload it from disk now that SaveLibrary has
    // populated the file, otherwise UpdateSymbolLinks resolves against the stale empty cache
    // and every imported symbol is reported as missing.
    adapter->ReloadLibraryEntry( getLibName(), LIBRARY_TABLE_SCOPE::PROJECT );
 
    SCH_SCREENS allSheets( m_rootSheet );
    allSheets.UpdateSymbolLinks( &LOAD_INFO_REPORTER::GetInstance() ); // Update all symbol library links for all sheets.
 
    return m_rootSheet;
}
 
 
void SCH_IO_EAGLE::EnumerateSymbolLib( wxArrayString&         aSymbolNameList,
                                       const wxString&        aLibraryPath,
                                       const std::map<std::string, UTF8>* aProperties )
{
    m_filename = aLibraryPath;
    m_libName = m_filename.GetName();
 
    ensureLoadedLibrary( aLibraryPath );
 
    auto it = m_eagleLibs.find( m_libName );
 
    if( it != m_eagleLibs.end() )
    {
        for( const auto& [symName, libSymbol] : it->second.KiCadSymbols )
            aSymbolNameList.push_back( symName );
    }
}
 
 
void SCH_IO_EAGLE::EnumerateSymbolLib( std::vector<LIB_SYMBOL*>& aSymbolList,
                                       const wxString&           aLibraryPath,
                                       const std::map<std::string, UTF8>*    aProperties )
{
    m_filename = aLibraryPath;
    m_libName = m_filename.GetName();
 
    ensureLoadedLibrary( aLibraryPath );
 
    auto it = m_eagleLibs.find( m_libName );
 
    if( it != m_eagleLibs.end() )
    {
        for( const auto& [symName, libSymbol] : it->second.KiCadSymbols )
            aSymbolList.push_back( libSymbol.get() );
    }
}
 
 
LIB_SYMBOL* SCH_IO_EAGLE::LoadSymbol( const wxString& aLibraryPath, const wxString& aAliasName,
                                      const std::map<std::string, UTF8>* aProperties )
{
    m_filename = aLibraryPath;
    m_libName = m_filename.GetName();
 
    ensureLoadedLibrary( aLibraryPath );
 
    auto it = m_eagleLibs.find( m_libName );
 
    if( it != m_eagleLibs.end() )
    {
        auto it2 = it->second.KiCadSymbols.find( aAliasName );
 
        if( it2 != it->second.KiCadSymbols.end() )
            return it2->second.get();
    }
 
    return nullptr;
}
 
 
long long SCH_IO_EAGLE::getLibraryTimestamp( const wxString& aLibraryPath ) const
{
    wxFileName fn( aLibraryPath );
 
    if( fn.IsFileReadable() && fn.GetModificationTime().IsValid() )
        return fn.GetModificationTime().GetValue().GetValue();
    else
        return 0;
}
 
 
void SCH_IO_EAGLE::ensureLoadedLibrary( const wxString& aLibraryPath )
{
    // Suppress font substitution warnings (RAII - automatically restored on scope exit)
    FONTCONFIG_REPORTER_SCOPE fontconfigScope( nullptr );
 
    if( m_eagleLibs.find( m_libName ) != m_eagleLibs.end() )
    {
        wxCHECK( m_timestamps.count( m_libName ), /*void*/ );
 
        if( m_timestamps.at( m_libName ) == getLibraryTimestamp( aLibraryPath ) )
            return;
    }
 
    if( m_progressReporter )
    {
        m_progressReporter->Report( wxString::Format( _( "Loading %s..." ), aLibraryPath ) );
 
        if( !m_progressReporter->KeepRefreshing() )
            THROW_IO_CANCELLED();
    }
 
    // Load the document
    wxXmlDocument xmlDocument = loadXmlDocument( m_filename.GetFullPath() );
 
    // Retrieve the root as current node
    std::unique_ptr<EAGLE_DOC> doc = std::make_unique<EAGLE_DOC>( xmlDocument.GetRoot(), this );
 
    // If the attribute is found, store the Eagle version;
    // otherwise, store the dummy "0.0" version.
    m_version = ( doc->version.IsEmpty() ) ? wxString( wxS( "0.0" ) ) : doc->version;
 
    // Load drawing
    loadDrawing( doc->drawing );
 
    // Remember timestamp
    m_timestamps[m_libName] = getLibraryTimestamp( aLibraryPath );
}
 
 
wxXmlDocument SCH_IO_EAGLE::loadXmlDocument( const wxString& aFileName )
{
    wxXmlDocument      xmlDocument;
    wxFFileInputStream stream( m_filename.GetFullPath() );
 
    if( !stream.IsOk() )
        THROW_IO_ERRORF( _( "Unable to read file '%s'." ), m_filename.GetFullPath() );
 
    // Pre-v6 schematics are a binary stream identified by a two-byte magic. Decode
    // them into an XML-compatible DOM and adopt that tree, mirroring PCB_IO_EAGLE.
    bool isBinary = EAGLE_BIN_PARSER::IsBinaryEagle( stream );
 
    if( isBinary )
    {
        std::vector<uint8_t> bytes;
        bytes.resize( static_cast<size_t>( stream.GetLength() ) );
        stream.Read( bytes.data(), bytes.size() );
 
        if( stream.LastRead() != bytes.size() )
            THROW_IO_ERRORF( _( "Unable to read file '%s'." ), m_filename.GetFullPath() );
 
        EAGLE_BIN_PARSER               binParser;
        std::unique_ptr<wxXmlDocument> binDocument = binParser.Parse( bytes );
 
        xmlDocument.SetRoot( binDocument->DetachRoot() );
        return xmlDocument;
    }
 
    // read first line to check for Eagle XML format file
    wxTextInputStream text( stream );
    wxString          line = text.ReadLine();
 
    if( !line.StartsWith( wxT( "<?xml" ) ) && !line.StartsWith( wxT( "<!--" ) )
        && !line.StartsWith( wxT( "<eagle " ) ) )
    {
        THROW_IO_ERRORF( _( "'%s' is an Eagle binary-format file; only Eagle XML-format files can be imported." ),
                         m_filename.GetFullPath() );
    }
 
#if wxCHECK_VERSION( 3, 3, 0 )
    wxXmlParseError err;
 
    if( !xmlDocument.Load( stream, wxXMLDOC_NONE, &err ) )
    {
        if( err.message == wxS( "no element found" ) )
        {
            // Some files don't have the correct header, throwing off the xml parser
            // So prepend the correct header
            wxMemoryOutputStream memOutput;
 
            wxString header;
            header << "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";
            header << "<!DOCTYPE eagle SYSTEM \"eagle.dtd\">\n";
 
            wxScopedCharBuffer headerBuf = header.utf8_str();
            memOutput.Write( headerBuf.data(), headerBuf.length() );
 
            wxFFileInputStream stream2( m_filename.GetFullPath() );
            memOutput.Write( stream2 );
 
            wxMemoryInputStream memInput( memOutput );
 
            if( !xmlDocument.Load( memInput, wxXMLDOC_NONE, &err ) )
            {
                THROW_IO_ERRORF( _( "Unable to read file '%s'." ), m_filename.GetFullPath() );
            }
        }
        else
        {
            THROW_IO_ERRORF( _( "Unable to read file '%s'.\n'%s' at line %d, column %d, offset %d" ),
                             m_filename.GetFullPath(), err.message, err.line, err.column, err.offset );
        }
    }
#else
    if( !xmlDocument.Load( stream ) )
    {
        // Some files don't have the correct header, throwing off the xml parser
        // So prepend the correct header
        wxMemoryOutputStream memOutput;
 
        wxString header;
        header << "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";
        header << "<!DOCTYPE eagle SYSTEM \"eagle.dtd\">\n";
 
        wxScopedCharBuffer headerBuf = header.utf8_str();
        memOutput.Write( headerBuf.data(), headerBuf.length() );
 
        wxFFileInputStream stream2( m_filename.GetFullPath() );
        memOutput.Write( stream2 );
 
        wxMemoryInputStream memInput( memOutput );
 
        if( !xmlDocument.Load( memInput ) )
            THROW_IO_ERRORF( _( "Unable to read file '%s'." ), m_filename.GetFullPath() );
    }
#endif
 
    return xmlDocument;
}
 
 
void SCH_IO_EAGLE::loadDrawing( const std::unique_ptr<EDRAWING>& aDrawing )
{
    wxCHECK( aDrawing, /* void */ );
 
    loadLayerDefs( aDrawing->layers );
 
    if( aDrawing->library )
    {
        EAGLE_LIBRARY& elib = m_eagleLibs[m_libName];
        elib.name = m_libName;
 
        loadLibrary( &aDrawing->library.value(), &elib );
    }
 
    if( aDrawing->schematic )
        loadSchematic( *aDrawing->schematic );
}
 
 
void SCH_IO_EAGLE::countNets( const ESCHEMATIC& aSchematic )
{
    for( const std::unique_ptr<ESHEET>& esheet : aSchematic.sheets )
    {
        for( const std::unique_ptr<ENET>& enet : esheet->nets )
        {
            wxString netName = enet->netname;
 
            if( m_netCounts.count( netName ) )
                m_netCounts[netName] = m_netCounts[netName] + 1;
            else
                m_netCounts[netName] = 1;
        }
    }
 
    for( const auto& [modname, emodule] : aSchematic.modules )
    {
        for( const std::unique_ptr<ESHEET>& esheet : emodule->sheets )
        {
            for( const std::unique_ptr<ENET>& enet : esheet->nets )
            {
                wxString netName = enet->netname;
 
                if( m_netCounts.count( netName ) )
                    m_netCounts[netName] = m_netCounts[netName] + 1;
                else
                    m_netCounts[netName] = 1;
            }
        }
    }
}
 
 
void SCH_IO_EAGLE::loadSchematic( const ESCHEMATIC& aSchematic )
{
    // Map all children into a readable dictionary
    if( aSchematic.sheets.empty() )
        return;
 
    for( const auto& [name, variantDef] : aSchematic.variantdefs )
    {
        m_schematic->AddVariant( name );
 
        if( variantDef->current.value_or( false ) )
            m_schematic->SetCurrentVariant( name );
    }
 
    // N.B. Eagle parts are case-insensitive in matching but we keep the display case
    for( const auto& [name, epart] : aSchematic.parts )
        m_partlist[name.Upper()] = epart.get();
 
    for( const auto& [modName, emodule] : aSchematic.modules )
    {
        for( const auto& [partName, epart] : emodule->parts )
            m_partlist[partName.Upper()] = epart.get();
    }
 
    if( !aSchematic.libraries.empty() )
    {
        for( const auto& [libName, elibrary] : aSchematic.libraries )
        {
            EAGLE_LIBRARY* elib = &m_eagleLibs[elibrary->GetName()];
            elib->name          = elibrary->GetName();
 
            loadLibrary( elibrary.get(), &m_eagleLibs[elibrary->GetName()] );
        }
 
        m_pi->SaveLibrary( getLibFileName().GetFullPath() );
    }
 
    // Count how many sheets each named net appears on.  Used by the fallback-label path
    // in loadSegments to decide whether to add an extra label on otherwise-unlabelled
    // segments of nets that span multiple sheets.
    countNets( aSchematic );
 
    // Create all Eagle pages as top-level sheets (direct children of the virtual root).
    // Collect them first so we can atomically replace any spurious default sheet created
    // during schematic construction with exactly the set of real Eagle pages.
    std::vector<SCH_SHEET*> eaglePages;
    eaglePages.reserve( aSchematic.sheets.size() );
 
    for( const std::unique_ptr<ESHEET>& esheet : aSchematic.sheets )
    {
        // Eagle schematics are never more than one sheet deep so the parent sheet is
        // always the root sheet.
        std::unique_ptr<SCH_SHEET> sheet = std::make_unique<SCH_SHEET>( m_rootSheet );
        SCH_SCREEN* screen = new SCH_SCREEN( m_schematic );
        sheet->SetScreen( screen );
 
        wxCHECK2( sheet && screen, continue );
 
        wxString pageNo = wxString::Format( wxT( "%d" ), m_sheetIndex );
 
        m_sheetPath.push_back( sheet.get() );
        loadSheet( esheet );
 
        m_sheetPath.SetPageNumber( pageNo );
        m_sheetPath.pop_back();
 
        eaglePages.push_back( sheet.release() );
 
        m_sheetIndex++;
    }
 
    if( !eaglePages.empty() )
    {
        // In the append path m_rootSheet is already the schematic's VR.  Use
        // AddTopLevelSheet to avoid discarding sheets already in the target.
        // In the fresh-import path m_rootSheet is a temporary local VR, so we use
        // SetTopLevelSheets to atomically replace any spurious default sheet with
        // exactly the Eagle pages.
        if( m_rootSheet == &m_schematic->Root() )
        {
            for( SCH_SHEET* page : eaglePages )
                m_schematic->AddTopLevelSheet( page );
        }
        else
        {
            m_schematic->SetTopLevelSheets( eaglePages );
        }
    }
 
    // Handle the missing symbol units that need to be instantiated
    // to create the missing implicit connections
 
    // Calculate the already placed items bounding box and the page size to determine
    // placement for the new symbols
    SCH_SHEET* schematicRoot = &m_schematic->Root();
 
    struct MISSING_UNIT_PLACEMENT
    {
        VECTOR2I       pageSizeIU;
        BOX2I          sheetBbox;
        VECTOR2I       newCmpPosition;
        int            maxY;
        SCH_SHEET_PATH sheetpath;
        SCH_SCREEN*    screen;
    };
 
    std::map<SCH_SCREEN*, MISSING_UNIT_PLACEMENT> placements;
 
    for( auto& cmp : m_missingCmps )
    {
        const SCH_SYMBOL* origSymbol = cmp.second.cmp;
 
        for( auto& unitEntry : cmp.second.units )
        {
            if( unitEntry.second == false )
                continue; // unit has been already processed
 
            // Instantiate the missing symbol unit
            int            unit      = unitEntry.first;
            const wxString reference = origSymbol->GetField( FIELD_T::REFERENCE )->GetText();
            std::unique_ptr<SCH_SYMBOL> symbol( (SCH_SYMBOL*) origSymbol->Duplicate( IGNORE_PARENT_GROUP ) );
 
            SCH_SCREEN* targetScreen = cmp.second.screen;
 
            if( !targetScreen )
            {
                SCH_SHEET* fallbackSheet = m_schematic->GetTopLevelSheet( 0 );
 
                if( fallbackSheet )
                    targetScreen = fallbackSheet->GetScreen();
                else
                    targetScreen = schematicRoot->GetScreen();
            }
 
            auto placementIt = placements.find( targetScreen );
 
            if( placementIt == placements.end() )
            {
                MISSING_UNIT_PLACEMENT placement;
                placement.screen = targetScreen;
                placement.pageSizeIU = targetScreen->GetPageSettings().GetSizeIU( schIUScale.IU_PER_MILS );
                schematicRoot->LocatePathOfScreen( targetScreen, &placement.sheetpath );
 
                SCH_SHEET* targetSheet = placement.sheetpath.Last();
 
                if( targetSheet )
                    placement.sheetBbox = getSheetBbox( targetSheet );
 
                placement.newCmpPosition = VECTOR2I( placement.sheetBbox.GetLeft(),
                                                     placement.sheetBbox.GetBottom() );
                placement.maxY = placement.sheetBbox.GetY();
                placementIt = placements.emplace( targetScreen, placement ).first;
            }
 
            MISSING_UNIT_PLACEMENT& placement = placementIt->second;
 
            symbol->SetUnitSelection( &placement.sheetpath, unit );
            symbol->SetUnit( unit );
            symbol->SetOrientation( 0 );
            symbol->AddHierarchicalReference( placement.sheetpath.Path(), reference, unit );
 
            // Calculate the placement position
            BOX2I cmpBbox = symbol->GetBoundingBox();
            int   posY    = placement.newCmpPosition.y + cmpBbox.GetHeight();
            symbol->SetPosition( VECTOR2I( placement.newCmpPosition.x, posY ) );
            placement.newCmpPosition.x += cmpBbox.GetWidth();
            placement.maxY = std::max( placement.maxY, posY );
 
            if( placement.newCmpPosition.x >= placement.pageSizeIU.x )            // reached the page boundary?
                placement.newCmpPosition = VECTOR2I( placement.sheetBbox.GetLeft(),
                                                     placement.maxY ); // then start a new row
 
            // Add the global net labels to recreate the implicit connections
            addImplicitConnections( symbol.get(), placement.screen, false );
            placement.screen->Append( symbol.release() );
        }
    }
 
    m_missingCmps.clear();
}
 
 
void SCH_IO_EAGLE::loadSheet( const std::unique_ptr<ESHEET>& aSheet )
{
    SCH_SHEET* sheet = getCurrentSheet();
    SCH_SCREEN* screen = getCurrentScreen();
 
    wxCHECK( sheet && screen, /* void */ );
 
    if( m_modules.empty() )
    {
        std::string filename;
 
        filename = wxString::Format( wxT( "%s_%d" ), m_filename.GetName(), m_sheetIndex );
 
        if( aSheet->description )
            sheet->SetName( aSheet->description.value().text );
        else
            sheet->SetName( filename );
 
        ReplaceIllegalFileNameChars( filename );
        replace( filename.begin(), filename.end(), ' ', '_' );
 
        // Use the project directory so saved pages land alongside the project file,
        // not in the Eagle source directory.
        wxFileName fn;
        fn.SetPath( m_schematic->Project().GetProjectPath() );
        fn.SetName( filename );
        fn.SetExt( FILEEXT::KiCadSchematicFileExtension );
 
        sheet->SetFileName( fn.GetFullName() );
        screen->SetFileName( fn.GetFullPath() );
    }
 
    for( const auto& [name, moduleinst] : aSheet->moduleinsts )
        loadModuleInstance( moduleinst );
 
    sheet->AutoplaceFields( screen, AUTOPLACE_AUTO );
 
    if( aSheet->plain )
    {
        for( const std::unique_ptr<EPOLYGON>& epoly : aSheet->plain->polygons )
        {
            if( SCH_SHAPE* shape = loadPolyLine( epoly ) )
                screen->Append( shape );
        }
 
        for( const std::unique_ptr<EWIRE>& ewire : aSheet->plain->wires )
        {
            SEG endpoints;
            screen->Append( loadWire( ewire, endpoints ) );
        }
 
        for( const std::unique_ptr<ETEXT>& etext : aSheet->plain->texts )
            screen->Append( loadPlainText( etext ) );
 
        for( const std::unique_ptr<ECIRCLE>& ecircle : aSheet->plain->circles )
            screen->Append( loadCircle( ecircle ) );
 
        for( const std::unique_ptr<ERECT>& erectangle : aSheet->plain->rectangles )
            screen->Append( loadRectangle( erectangle ) );
 
        for( const std::unique_ptr<EFRAME>& eframe : aSheet->plain->frames )
        {
            std::vector<SCH_ITEM*> frameItems;
 
            loadFrame( eframe, frameItems );
 
            for( SCH_ITEM* item : frameItems )
                screen->Append( item );
        }
 
        // Holes and splines currently not handled.  Not sure hole has any meaning in scheamtics.
    }
 
    for( const std::unique_ptr<EINSTANCE>& einstance : aSheet->instances )
    {
        loadInstance( einstance, ( m_modules.size() ) ? m_modules.back()->parts
                                                      : m_eagleDoc->drawing->schematic->parts );
    }
 
    // Loop through all buses
    // From the DTD: "Buses receive names which determine which signals they include.
    // A bus is a drawing object. It does not create any electrical connections.
    // These are always created by means of the nets and their names."
    for( const std::unique_ptr<EBUS>& ebus : aSheet->busses )
    {
        // Get the bus name
        wxString busName = translateEagleBusName( ebus->name );
 
        // Load segments of this bus
        loadSegments( ebus->segments, busName, wxString(), /* aIsBus */ true );
    }
 
    for( const std::unique_ptr<ENET>& enet : aSheet->nets )
    {
        // Get the net name and class
        wxString netName  = enet->netname;
        wxString netClass = wxString::Format( wxS( "%i" ), enet->netcode );
 
        // Load segments of this net
        loadSegments( enet->segments, netName, netClass );
    }
 
    adjustNetLabels(); // needs to be called before addBusEntries()
    addBusEntries();
 
    // Calculate the new sheet size.
    BOX2I    sheetBoundingBox = getSheetBbox( sheet );
    VECTOR2I targetSheetSize = sheetBoundingBox.GetSize();
    targetSheetSize += VECTOR2I( schIUScale.MilsToIU( 1500 ), schIUScale.MilsToIU( 1500 ) );
 
    // Get current Eeschema sheet size.
    VECTOR2I  pageSizeIU = screen->GetPageSettings().GetSizeIU( schIUScale.IU_PER_MILS );
    PAGE_INFO pageInfo   = screen->GetPageSettings();
 
    // Increase if necessary
    if( pageSizeIU.x < targetSheetSize.x )
        pageInfo.SetWidthMils( schIUScale.IUToMils( targetSheetSize.x ) );
 
    if( pageSizeIU.y < targetSheetSize.y )
        pageInfo.SetHeightMils( schIUScale.IUToMils( targetSheetSize.y ) );
 
    // Set the new sheet size.
    screen->SetPageSettings( pageInfo );
 
    pageSizeIU = screen->GetPageSettings().GetSizeIU( schIUScale.IU_PER_MILS );
    VECTOR2I sheetcentre( pageSizeIU.x / 2, pageSizeIU.y / 2 );
    VECTOR2I itemsCentre = sheetBoundingBox.Centre();
 
    // round the translation to nearest 100mil to place it on the grid.
    VECTOR2I translation = sheetcentre - itemsCentre;
    translation.x       = translation.x - translation.x % schIUScale.MilsToIU( 100 );
    translation.y       = translation.y - translation.y % schIUScale.MilsToIU( 100 );
 
    // Add global net labels for the named power input pins in this sheet
    for( SCH_ITEM* item : screen->Items().OfType( SCH_SYMBOL_T ) )
    {
        SCH_SYMBOL* symbol = static_cast<SCH_SYMBOL*>( item );
        addImplicitConnections( symbol, screen, true );
    }
 
    m_connPoints.clear();
 
    // Translate the items.
    std::vector<SCH_ITEM*> allItems;
 
    std::copy( screen->Items().begin(), screen->Items().end(), std::back_inserter( allItems ) );
 
    for( SCH_ITEM* item : allItems )
    {
        item->SetPosition( item->GetPosition() + translation );
 
        // We don't read positions of Eagle label fields (primarily intersheet refs), so we
        // need to autoplace them after applying the translation.
        if( SCH_LABEL_BASE* label = dynamic_cast<SCH_LABEL_BASE*>( item ) )
            label->AutoplaceFields( screen, AUTOPLACE_AUTO );
 
        item->ClearFlags();
        screen->Update( item );
    }
}
 
 
void SCH_IO_EAGLE::loadModuleInstance( const std::unique_ptr<EMODULEINST>& aModuleInstance )
{
    SCH_SHEET* currentSheet = getCurrentSheet();
    SCH_SCREEN* currentScreen = getCurrentScreen();
 
    wxCHECK( currentSheet &&currentScreen, /* void */ );
 
    m_sheetIndex++;
 
    // Eagle document has already be checked for drawing and schematic nodes so this
    // should not segfault.
    auto it = m_eagleDoc->drawing->schematic->modules.find( aModuleInstance->moduleinst );
 
    // Find the module referenced by the module instance.
    if( it == m_eagleDoc->drawing->schematic->modules.end() )
    {
        THROW_IO_ERRORF( _( "No module instance '%s' found in schematic file:\n%s" ),
                         aModuleInstance->name, m_filename.GetFullPath() );
    }
 
    wxFileName fn = m_filename;
    fn.SetName( aModuleInstance->moduleinst );
    fn.SetExt( FILEEXT::KiCadSchematicFileExtension );
 
    VECTOR2I portExtWireEndpoint;
    VECTOR2I size( it->second->dx.ToSchUnits(), it->second->dy.ToSchUnits() );
 
    int halfX = KiROUND( size.x / 2.0 );
    int halfY = KiROUND( size.y / 2.0 );
    int portExtWireLength = schIUScale.mmToIU( 5.08 );
    VECTOR2I pos( aModuleInstance->x.ToSchUnits() - halfX,
                  -aModuleInstance->y.ToSchUnits() - halfY );
 
    std::unique_ptr<SCH_SHEET> newSheet = std::make_unique<SCH_SHEET>( currentSheet, pos, size );
 
    // The Eagle module for this instance (SCH_SCREEN in KiCad) may have already been loaded.
    SCH_SCREEN* newScreen = nullptr;
    SCH_SCREENS schFiles( m_rootSheet );
 
    for( SCH_SCREEN* schFile = schFiles.GetFirst(); schFile; schFile = schFiles.GetNext() )
    {
        if( schFile->GetFileName() == fn.GetFullPath() )
        {
            newScreen = schFile;
            break;
        }
    }
 
    bool isNewSchFile = ( newScreen == nullptr );
 
    if( !newScreen )
    {
        newScreen = new SCH_SCREEN( m_schematic );
        newScreen->SetFileName( fn.GetFullPath() );
    }
 
    wxCHECK( newSheet && newScreen, /* void */ );
 
    newSheet->SetScreen( newScreen );
    newSheet->SetFileName( fn.GetFullName() );
    newSheet->SetName( aModuleInstance->name );
 
    for( const auto& [portName, port] : it->second->ports )
    {
        VECTOR2I pinPos( 0, 0 );
        int pinOffset = port->coord.ToSchUnits();
        SHEET_SIDE side = SHEET_SIDE::LEFT;
 
        if( port->side == "left" )
        {
            side = SHEET_SIDE::LEFT;
            pinPos.x = pos.x;
            pinPos.y = pos.y + halfY - pinOffset;
            portExtWireEndpoint = pinPos;
            portExtWireEndpoint.x -= portExtWireLength;
        }
        else if( port->side == "right" )
        {
            side = SHEET_SIDE::RIGHT;
            pinPos.x = pos.x + size.x;
            pinPos.y = pos.y + halfY - pinOffset;
            portExtWireEndpoint = pinPos;
            portExtWireEndpoint.x += portExtWireLength;
        }
        else if( port->side == "top" )
        {
            side = SHEET_SIDE::TOP;
            pinPos.x = pos.x + halfX + pinOffset;
            pinPos.y = pos.y;
            portExtWireEndpoint = pinPos;
            portExtWireEndpoint.y -= portExtWireLength;
        }
        else if( port->side == "bottom" )
        {
            side = SHEET_SIDE::BOTTOM;
            pinPos.x = pos.x + halfX + pinOffset;
            pinPos.y = pos.y + size.y;
            portExtWireEndpoint = pinPos;
            portExtWireEndpoint.y += portExtWireLength;
        }
 
        SCH_LINE* portExtWire =  new SCH_LINE( pinPos, LAYER_WIRE );
        portExtWire->SetEndPoint( portExtWireEndpoint );
        currentScreen->Append( portExtWire );
 
        LABEL_FLAG_SHAPE pinType = LABEL_FLAG_SHAPE::L_UNSPECIFIED;
 
        if( port->direction.has_value() )
        {
            if( port->direction.value() == "in" )
                pinType = LABEL_FLAG_SHAPE::L_INPUT;
            else if( port->direction.value() == "out" )
                pinType = LABEL_FLAG_SHAPE::L_OUTPUT;
            else if( port->direction.value() == "io" )
                pinType = LABEL_FLAG_SHAPE::L_BIDI;
            else if( port->direction.value() == "hiz" )
                pinType = LABEL_FLAG_SHAPE::L_TRISTATE;
 
            // KiCad does not support passive, power, open collector, or no-connect sheet pins that
            // Eagle ports support.  They are left set to L_UNSPECIFIED to minimize ERC issues.
        }
 
        SCH_SHEET_PIN* sheetPin = new SCH_SHEET_PIN( newSheet.get(), VECTOR2I( 0, 0 ), portName );
 
        sheetPin->SetShape( pinType );
        sheetPin->SetPosition( pinPos );
        sheetPin->SetSide( side );
        newSheet->AddPin( sheetPin );
    }
 
    wxString pageNo = wxString::Format( wxT( "%d" ), m_sheetIndex );
 
    newSheet->SetParent( currentSheet );
    m_sheetPath.push_back( newSheet.get() );
    m_sheetPath.SetPageNumber( pageNo );
    currentScreen->Append( newSheet.release() );
 
    m_modules.push_back( it->second.get() );
    m_moduleInstances.push_back( aModuleInstance.get() );
 
    // Do not reload shared modules that are already loaded.
    if( isNewSchFile )
    {
        for( const std::unique_ptr<ESHEET>& esheet : it->second->sheets )
            loadSheet( esheet );
    }
    else
    {
        // Add instances for shared schematics.
        wxString refPrefix;
 
        for( const EMODULEINST* emoduleInst : m_moduleInstances )
        {
            wxCHECK2( emoduleInst, continue );
 
            refPrefix += emoduleInst->name + wxS( ":" );
        }
 
        SCH_SCREEN* sharedScreen = m_sheetPath.LastScreen();
 
        if( sharedScreen )
        {
            for( SCH_ITEM* schItem : sharedScreen->Items().OfType( SCH_SYMBOL_T ) )
            {
                SCH_SYMBOL* symbol = static_cast<SCH_SYMBOL*>( schItem );
 
                wxCHECK2( symbol && !symbol->GetInstances().empty(), continue );
 
                SCH_SYMBOL_INSTANCE inst = symbol->GetInstances().at( 0 );
                wxString newReference = refPrefix + inst.m_Reference.AfterLast( ':' );
 
                symbol->AddHierarchicalReference( m_sheetPath.Path(), newReference, inst.m_Unit );
            }
        }
    }
 
    m_moduleInstances.pop_back();
    m_modules.pop_back();
    m_sheetPath.pop_back();
}
 
 
void SCH_IO_EAGLE::loadFrame( const std::unique_ptr<EFRAME>& aFrame, std::vector<SCH_ITEM*>& aItems,
                              SCH_LAYER_ID aLayer )
{
    int xMin = aFrame->x1.ToSchUnits();
    int xMax = aFrame->x2.ToSchUnits();
    int yMin = -aFrame->y1.ToSchUnits();
    int yMax = -aFrame->y2.ToSchUnits();
 
    if( xMin > xMax )
        std::swap( xMin, xMax );
 
    if( yMin > yMax )
        std::swap( yMin, yMax );
 
    SCH_SHAPE* lines = new SCH_SHAPE( SHAPE_T::POLY, aLayer );
    lines->AddPoint( VECTOR2I( xMin, yMin ) );
    lines->AddPoint( VECTOR2I( xMax, yMin ) );
    lines->AddPoint( VECTOR2I( xMax, yMax ) );
    lines->AddPoint( VECTOR2I( xMin, yMax ) );
    lines->AddPoint( VECTOR2I( xMin, yMin ) );
    aItems.push_back( lines );
 
    if( !( aFrame->border_left == false ) )
    {
        lines = new SCH_SHAPE( SHAPE_T::POLY, aLayer );
        lines->AddPoint( VECTOR2I( xMin + schIUScale.MilsToIU( 150 ), yMin + schIUScale.MilsToIU( 150 ) ) );
        lines->AddPoint( VECTOR2I( xMin + schIUScale.MilsToIU( 150 ), yMax - schIUScale.MilsToIU( 150 ) ) );
        aItems.push_back( lines );
 
        int i;
        int height = yMax - yMin;
        int x1 = xMin;
        int x2 = x1 + schIUScale.MilsToIU( 150 );
        int legendPosX = xMin + schIUScale.MilsToIU( 75 );
        double rowSpacing = height / double( aFrame->rows );
        double legendPosY = yMin + ( rowSpacing / 2 );
 
        for( i = 1; i < aFrame->rows; i++ )
        {
            int newY = KiROUND( yMin + ( rowSpacing * (double) i ) );
            lines = new SCH_SHAPE( SHAPE_T::POLY, aLayer );
            lines->AddPoint( VECTOR2I( x1, newY ) );
            lines->AddPoint( VECTOR2I( x2, newY ) );
            aItems.push_back( lines );
        }
 
        char legendChar = 'A';
 
        for( i = 0; i < aFrame->rows; i++ )
        {
            SCH_TEXT* legendText = new SCH_TEXT();
            legendText->SetLayer( aLayer );
            legendText->SetPosition( VECTOR2I( legendPosX, KiROUND( legendPosY ) ) );
            legendText->SetHorizJustify( GR_TEXT_H_ALIGN_CENTER );
            legendText->SetVertJustify( GR_TEXT_V_ALIGN_CENTER );
            legendText->SetText( wxString( legendChar ) );
            legendText->SetTextSize( VECTOR2I( schIUScale.MilsToIU( 90 ), schIUScale.MilsToIU( 100 ) ) );
            aItems.push_back( legendText );
            legendChar++;
            legendPosY += rowSpacing;
        }
    }
 
    if( !( aFrame->border_right == false ) )
    {
        lines = new SCH_SHAPE( SHAPE_T::POLY, aLayer );
        lines->AddPoint( VECTOR2I( xMax - schIUScale.MilsToIU( 150 ), yMin + schIUScale.MilsToIU( 150 ) ) );
        lines->AddPoint( VECTOR2I( xMax - schIUScale.MilsToIU( 150 ), yMax - schIUScale.MilsToIU( 150 ) ) );
        aItems.push_back( lines );
 
        int i;
        int height = yMax - yMin;
        int x1 = xMax - schIUScale.MilsToIU( 150 );
        int x2 = xMax;
        int legendPosX = xMax - schIUScale.MilsToIU( 75 );
        double rowSpacing = height / double( aFrame->rows );
        double legendPosY = yMin + ( rowSpacing / 2 );
 
        for( i = 1; i < aFrame->rows; i++ )
        {
            int newY = KiROUND( yMin + ( rowSpacing * (double) i ) );
            lines = new SCH_SHAPE( SHAPE_T::POLY, aLayer );
            lines->AddPoint( VECTOR2I( x1, newY ) );
            lines->AddPoint( VECTOR2I( x2, newY ) );
            aItems.push_back( lines );
        }
 
        char legendChar = 'A';
 
        for( i = 0; i < aFrame->rows; i++ )
        {
            SCH_TEXT* legendText = new SCH_TEXT();
            legendText->SetLayer( aLayer );
            legendText->SetPosition( VECTOR2I( legendPosX, KiROUND( legendPosY ) ) );
            legendText->SetHorizJustify( GR_TEXT_H_ALIGN_CENTER );
            legendText->SetVertJustify( GR_TEXT_V_ALIGN_CENTER );
            legendText->SetText( wxString( legendChar ) );
            legendText->SetTextSize( VECTOR2I( schIUScale.MilsToIU( 90 ), schIUScale.MilsToIU( 100 ) ) );
            aItems.push_back( legendText );
            legendChar++;
            legendPosY += rowSpacing;
        }
    }
 
    if( !( aFrame->border_top == false ) )
    {
        lines = new SCH_SHAPE( SHAPE_T::POLY, aLayer );
        lines->AddPoint( VECTOR2I( xMax - schIUScale.MilsToIU( 150 ), yMin + schIUScale.MilsToIU( 150 ) ) );
        lines->AddPoint( VECTOR2I( xMin + schIUScale.MilsToIU( 150 ), yMin + schIUScale.MilsToIU( 150 ) ) );
        aItems.push_back( lines );
 
        int i;
        int width = xMax - xMin;
        int y1 = yMin;
        int y2 = yMin + schIUScale.MilsToIU( 150 );
        int legendPosY = yMin + schIUScale.MilsToIU( 75 );
        double columnSpacing = width / double( aFrame->columns );
        double legendPosX = xMin + ( columnSpacing / 2 );
 
        for( i = 1; i < aFrame->columns; i++ )
        {
            int newX = KiROUND( xMin + ( columnSpacing * (double) i ) );
            lines = new SCH_SHAPE( SHAPE_T::POLY, aLayer );
            lines->AddPoint( VECTOR2I( newX, y1 ) );
            lines->AddPoint( VECTOR2I( newX, y2 ) );
            aItems.push_back( lines );
        }
 
        int legendNo = 1;
 
        for( i = 0; i < aFrame->columns; i++ )
        {
            SCH_TEXT* legendText = new SCH_TEXT();
            legendText->SetLayer( aLayer );
            legendText->SetPosition( VECTOR2I( KiROUND( legendPosX ), legendPosY ) );
            legendText->SetHorizJustify( GR_TEXT_H_ALIGN_CENTER );
            legendText->SetVertJustify( GR_TEXT_V_ALIGN_CENTER );
            legendText->SetText( fmt::format( "{}", legendNo++ ) );
            legendText->SetTextSize( VECTOR2I( schIUScale.MilsToIU( 90 ), schIUScale.MilsToIU( 100 ) ) );
            aItems.push_back( legendText );
            legendPosX += columnSpacing;
        }
    }
 
    if( !( aFrame->border_bottom == false ) )
    {
        lines = new SCH_SHAPE( SHAPE_T::POLY, aLayer );
        lines->AddPoint( VECTOR2I( xMax - schIUScale.MilsToIU( 150 ), yMax - schIUScale.MilsToIU( 150 ) ) );
        lines->AddPoint( VECTOR2I( xMin + schIUScale.MilsToIU( 150 ), yMax - schIUScale.MilsToIU( 150 ) ) );
        aItems.push_back( lines );
 
        int i;
        int width = xMax - xMin;
        int y1 = yMax - schIUScale.MilsToIU( 150 );
        int y2 = yMax;
        int legendPosY = yMax - schIUScale.MilsToIU( 75 );
        double columnSpacing = width / double( aFrame->columns );
        double legendPosX = xMin + ( columnSpacing / 2 );
 
        for( i = 1; i < aFrame->columns; i++ )
        {
            int newX = KiROUND( xMin + ( columnSpacing * (double) i ) );
            lines = new SCH_SHAPE( SHAPE_T::POLY, aLayer );
            lines->AddPoint( VECTOR2I( newX, y1 ) );
            lines->AddPoint( VECTOR2I( newX, y2 ) );
            aItems.push_back( lines );
        }
 
        int legendNo = 1;
 
        for( i = 0; i < aFrame->columns; i++ )
        {
            SCH_TEXT* legendText = new SCH_TEXT();
            legendText->SetLayer( aLayer );
            legendText->SetPosition( VECTOR2I( KiROUND( legendPosX ), legendPosY ) );
            legendText->SetHorizJustify( GR_TEXT_H_ALIGN_CENTER );
            legendText->SetVertJustify( GR_TEXT_V_ALIGN_CENTER );
            legendText->SetText( fmt::format( "{}", legendNo++ ) );
            legendText->SetTextSize( VECTOR2I( schIUScale.MilsToIU( 90 ), schIUScale.MilsToIU( 100 ) ) );
            aItems.push_back( legendText );
            legendPosX += columnSpacing;
        }
    }
}
 
 
void SCH_IO_EAGLE::loadSegments( const std::vector<std::unique_ptr<ESEGMENT>>& aSegments,
                                 const wxString& netName, const wxString& aNetClass, bool aIsBus )
{
    // Loop through all segments
    SCH_SCREEN* screen = getCurrentScreen();
 
    wxCHECK( screen, /* void */ );
 
    size_t segmentCount = aSegments.size();
 
    for( const std::unique_ptr<ESEGMENT>& esegment : aSegments )
    {
        bool      labelled = false; // has a label been added to this continuously connected segment
        bool      firstWireFound  = false;
        SEG       firstWire;
 
        m_segments.emplace_back();
        SEG_DESC& segDesc = m_segments.back();
 
        for( const std::unique_ptr<EWIRE>& ewire : esegment->wires )
        {
            // TODO: Check how intersections used in adjustNetLabels should be
            // calculated - for now we pretend that all wires are line segments.
            SEG thisWire;
            SCH_ITEM* wire = loadWire( ewire, thisWire );
            m_connPoints[thisWire.A].emplace( wire );
            m_connPoints[thisWire.B].emplace( wire );
 
            if( !firstWireFound )
            {
                firstWire = thisWire;
                firstWireFound = true;
            }
 
            // Test for intersections with other wires
            for( SEG_DESC& desc : m_segments )
            {
                if( !desc.labels.empty() && desc.labels.front()->GetText() == netName )
                    continue; // no point in saving intersections of the same net
 
                for( const SEG& seg : desc.segs )
                {
                    OPT_VECTOR2I intersection = thisWire.Intersect( seg, true );
 
                    if( intersection )
                        m_wireIntersections.push_back( *intersection );
                }
            }
 
            segDesc.segs.push_back( thisWire );
            screen->Append( wire );
        }
 
        for( const std::unique_ptr<EJUNCTION>& ejunction : esegment->junctions )
            screen->Append( loadJunction( ejunction ) );
 
        for( const std::unique_ptr<ELABEL>& elabel : esegment->labels )
        {
            SCH_LABEL_BASE* label = loadLabel( elabel, netName, aIsBus );
            screen->Append( label );
 
            wxASSERT( segDesc.labels.empty() || segDesc.labels.front()->GetText() == label->GetText() );
 
            segDesc.labels.push_back( label );
            labelled = true;
        }
 
        for( const std::unique_ptr<EPINREF>& epinref : esegment->pinRefs )
        {
            wxString part = epinref->part;
            wxString pin = epinref->pin;
 
            auto powerPort = m_powerPorts.find( wxT( "#" ) + part );
 
            if( powerPort != m_powerPorts.end() && powerPort->second == EscapeString( pin, CTX_NETNAME ) )
                labelled = true;
        }
 
        // Add a small label to the net segment if it hasn't been labeled already or is not
        // connect to a power symbol with a pin on the same net.  This preserves the named net
        // feature of Eagle schematics.
        if( !labelled && firstWireFound )
        {
            std::unique_ptr<SCH_LABEL_BASE> label;
 
            // Eagle uses a flat net namespace, so a named net should retain its name across
            // every segment and every sheet.  The PCB importer carries Eagle signal names
            // through verbatim, so we must use a global label here too: a local SCH_LABEL
            // would prepend the sheet path (e.g. "/+24V_SWD") and split the net from the
            // matching PCB signal on net update.
            //
            // Two exceptions: (1) buses are conceptual groupings in Eagle, not electrical
            // signals, so a global bus label would join same-named buses project-wide where
            // Eagle only had visual grouping; (2) nets inside module instances are scoped
            // by the module's ports, so a global label would punch through the hierarchy.
            if( aIsBus || !m_modules.empty() )
            {
                if( segmentCount > 1 || m_netCounts[netName] > 1 )
                    label.reset( new SCH_LABEL );
            }
            else
            {
                label.reset( new SCH_GLOBALLABEL );
            }
 
            if( label )
            {
                label->SetPosition( firstWire.A );
                label->SetText( escapeName( netName ) );
                label->SetTextSize( VECTOR2I( schIUScale.MilsToIU( 40 ), schIUScale.MilsToIU( 40 ) ) );
 
                if( firstWire.A.y == firstWire.B.y )         // Horizontal wire.
                {
                    if( firstWire.B.x > firstWire.A.x )
                        label->SetSpinStyle( SPIN_STYLE::LEFT );
                    else
                        label->SetSpinStyle( SPIN_STYLE::RIGHT );
                }
                else if( firstWire.A.x == firstWire.B.x )    // Vertical wire.
                {
                    if( firstWire.B.y > firstWire.A.y )
                        label->SetSpinStyle( SPIN_STYLE::BOTTOM );
                    else
                        label->SetSpinStyle( SPIN_STYLE::UP );
                }
 
                // adjustNetLabels() moves the label off a crossing wire so it does not join another net
                segDesc.labels.push_back( label.get() );
                screen->Append( label.release() );
            }
        }
    }
}
 
 
SCH_SHAPE* SCH_IO_EAGLE::loadPolyLine( const std::unique_ptr<EPOLYGON>& aPolygon )
{
    if( !aPolygon->IsValidOutline() )
        return nullptr;
 
    std::unique_ptr<SCH_SHAPE> poly = std::make_unique<SCH_SHAPE>( SHAPE_T::POLY );
    VECTOR2I   pt, prev_pt;
    std::optional<double> prev_curve;
 
    for( const std::unique_ptr<EVERTEX>& evertex : aPolygon->vertices )
    {
        pt = VECTOR2I( evertex->x.ToSchUnits(), -evertex->y.ToSchUnits() );
 
        if( prev_curve.has_value() )
        {
            SHAPE_ARC arc;
            arc.ConstructFromStartEndAngle( prev_pt, pt, -EDA_ANGLE( prev_curve.value(), DEGREES_T ) );
            poly->GetPolyShape().Append( arc, -1, -1, ARC_ACCURACY );
        }
        else
        {
            poly->AddPoint( pt );
        }
 
        prev_pt = pt;
        prev_curve = evertex->curve;
    }
 
    poly->SetLayer( kiCadLayer( aPolygon->layer ) );
    poly->SetStroke( STROKE_PARAMS( aPolygon->width.ToSchUnits(), LINE_STYLE::SOLID ) );
    poly->SetFillMode( FILL_T::FILLED_SHAPE );
 
    return poly.release();
}
 
 
SCH_ITEM* SCH_IO_EAGLE::loadWire( const std::unique_ptr<EWIRE>& aWire, SEG& endpoints )
{
    VECTOR2I start, end;
 
    start.x = aWire->x1.ToSchUnits();
    start.y = -aWire->y1.ToSchUnits();
    end.x   = aWire->x2.ToSchUnits();
    end.y   = -aWire->y2.ToSchUnits();
 
    // For segment wires.
    endpoints = SEG( start, end );
 
    int kicadLayer = kiCadLayer( aWire->layer );
 
    // Don't process curved wires on an electrical layer into arcs, they aren't supported
    // in the rest of the code
    // TODO: When curved wires/buses are added, remove this restriction
    if( (kicadLayer == LAYER_NOTES) && aWire->curve )
    {
        std::unique_ptr<SCH_SHAPE> arc = std::make_unique<SCH_SHAPE>( SHAPE_T::ARC );
 
        VECTOR2I center = ConvertArcCenter( start, end, *aWire->curve );
        arc->SetCenter( center );
        arc->SetStart( start );
 
        // KiCad rotates the other way.
        arc->SetArcAngleAndEnd( -EDA_ANGLE( *aWire->curve, DEGREES_T ), true );
        arc->SetLayer( kiCadLayer( aWire->layer ) );
        arc->SetStroke( STROKE_PARAMS( aWire->width.ToSchUnits(), LINE_STYLE::SOLID ) );
 
        return arc.release();
    }
    else
    {
        std::unique_ptr<SCH_LINE> line = std::make_unique<SCH_LINE>();
 
        line->SetStartPoint( start );
        line->SetEndPoint( end );
        line->SetLayer( kiCadLayer( aWire->layer ) );
        line->SetStroke( STROKE_PARAMS( aWire->width.ToSchUnits(), LINE_STYLE::SOLID ) );
 
        return line.release();
    }
}
 
 
SCH_SHAPE* SCH_IO_EAGLE::loadCircle( const std::unique_ptr<ECIRCLE>& aCircle )
{
    std::unique_ptr<SCH_SHAPE> circle = std::make_unique<SCH_SHAPE>( SHAPE_T::CIRCLE );
    VECTOR2I center( aCircle->x.ToSchUnits(), -aCircle->y.ToSchUnits() );
 
    circle->SetLayer( kiCadLayer( aCircle->layer ) );
    circle->SetPosition( center );
    circle->SetEnd( VECTOR2I( center.x + aCircle->radius.ToSchUnits(), center.y ) );
    circle->SetStroke( STROKE_PARAMS( aCircle->width.ToSchUnits(), LINE_STYLE::SOLID ) );
 
    return circle.release();
}
 
 
SCH_SHAPE* SCH_IO_EAGLE::loadRectangle( const std::unique_ptr<ERECT>& aRectangle )
{
    std::unique_ptr<SCH_SHAPE> rectangle = std::make_unique<SCH_SHAPE>( SHAPE_T::RECTANGLE );
 
    rectangle->SetLayer( kiCadLayer( aRectangle->layer ) );
    rectangle->SetPosition( VECTOR2I( aRectangle->x1.ToSchUnits(), -aRectangle->y1.ToSchUnits() ) );
    rectangle->SetEnd( VECTOR2I( aRectangle->x2.ToSchUnits(), -aRectangle->y2.ToSchUnits() ) );
 
    if( aRectangle->rot.has_value() )
    {
        VECTOR2I pos( rectangle->GetPosition() );
        VECTOR2I end( rectangle->GetEnd() );
        VECTOR2I center( rectangle->GetCenter() );
 
        RotatePoint( pos, center, EDA_ANGLE( aRectangle->rot.value().degrees, DEGREES_T ) );
        RotatePoint( end, center, EDA_ANGLE( aRectangle->rot.value().degrees, DEGREES_T ) );
 
        rectangle->SetPosition( pos );
        rectangle->SetEnd( end );
    }
 
    // Eagle rectangles are filled by definition.
    rectangle->SetFillMode( FILL_T::FILLED_SHAPE );
 
    return rectangle.release();
}
 
 
SCH_JUNCTION* SCH_IO_EAGLE::loadJunction( const std::unique_ptr<EJUNCTION>&  aJunction )
{
    std::unique_ptr<SCH_JUNCTION> junction = std::make_unique<SCH_JUNCTION>();
 
    VECTOR2I pos( aJunction->x.ToSchUnits(), -aJunction->y.ToSchUnits() );
 
    junction->SetPosition( pos );
 
    return junction.release();
}
 
 
SCH_LABEL_BASE* SCH_IO_EAGLE::loadLabel( const std::unique_ptr<ELABEL>& aLabel,
                                         const wxString& aNetName, bool aIsBus )
{
    VECTOR2I elabelpos( aLabel->x.ToSchUnits(), -aLabel->y.ToSchUnits() );
 
    // Label-kind decision mirrors loadSegments(): SCH_HIERLABEL for module ports,
    // SCH_LABEL for buses and module-internal nets, SCH_GLOBALLABEL otherwise so the
    // Eagle flat net namespace round-trips through the matching PCB signal name.
    std::unique_ptr<SCH_LABEL_BASE> label;
 
    VECTOR2I textSize = KiROUND( aLabel->size.ToSchUnits() * 0.7, aLabel->size.ToSchUnits() * 0.7 );
 
    auto findModulePort =
            [&]() -> const EPORT*
            {
                if( m_modules.empty() )
                    return nullptr;
 
                const auto& ports = m_modules.back()->ports;
                const auto  it    = ports.find( aNetName );
                return it == ports.end() ? nullptr : it->second.get();
            };
 
    const EPORT* port = findModulePort();
 
    if( port )
    {
        std::unique_ptr<SCH_HIERLABEL> hierLabel = std::make_unique<SCH_HIERLABEL>();
        LABEL_SHAPE                    type = LABEL_SHAPE::LABEL_PASSIVE;
 
        if( port->direction.has_value() )
        {
            if( port->direction.value() == "in" )
                type = LABEL_SHAPE::LABEL_INPUT;
            else if( port->direction.value() == "out" )
                type = LABEL_SHAPE::LABEL_OUTPUT;
            else if( port->direction.value() == "io" )
                type = LABEL_SHAPE::LABEL_BIDI;
            else if( port->direction.value() == "hiz" )
                type = LABEL_SHAPE::LABEL_TRISTATE;
        }
 
        hierLabel->SetLabelShape( type );
 
        label = std::move( hierLabel );
    }
    else if( aIsBus || !m_modules.empty() )
    {
        label = std::make_unique<SCH_LABEL>();
    }
    else
    {
        label = std::make_unique<SCH_GLOBALLABEL>();
    }
 
    label->SetText( escapeName( aNetName ) );
    label->SetPosition( elabelpos );
    label->SetTextSize( textSize );
    label->SetSpinStyle( SPIN_STYLE::RIGHT );
 
    if( aLabel->rot.has_value() )
    {
        // According to the Eagle DTD, labels can only be rotated in 90 degree increments.
        int angle = KiROUND( aLabel->rot.value().degrees );
 
        switch( angle )
        {
        case 90:  label->SetSpinStyle( aLabel->rot.value().mirror ? SPIN_STYLE::BOTTOM : SPIN_STYLE::UP );     break;
        case 180: label->SetSpinStyle( aLabel->rot.value().mirror ? SPIN_STYLE::RIGHT  : SPIN_STYLE::LEFT );   break;
        case 270: label->SetSpinStyle( aLabel->rot.value().mirror ? SPIN_STYLE::UP     : SPIN_STYLE::BOTTOM ); break;
        default:  label->SetSpinStyle( aLabel->rot.value().mirror ? SPIN_STYLE::LEFT   : SPIN_STYLE::RIGHT );  break;
        }
    }
 
    return label.release();
}
 
 
std::pair<VECTOR2I, const SEG*> SCH_IO_EAGLE::findNearestLinePoint( const VECTOR2I& aPoint,
                                                                    const std::vector<SEG>& aLines ) const
{
    VECTOR2I   nearestPoint;
    const SEG* nearestLine = nullptr;
 
    double d, mindistance = std::numeric_limits<double>::max();
 
    // Project the label onto the closest wire.  Snapping to the perpendicular foot keeps a
    // detached Eagle label at its position along the wire; snapping only to the wire's
    // endpoints or midpoint would slide it far along a long wire and pile parallel labels
    // onto the same point.
    for( const SEG& line : aLines )
    {
        VECTOR2I testpoint = line.NearestPoint( aPoint );
        d = aPoint.Distance( testpoint );
 
        if( d < mindistance )
        {
            mindistance  = d;
            nearestPoint = testpoint;
            nearestLine  = &line;
        }
    }
 
    return std::make_pair( nearestPoint, nearestLine );
}
 
 
void SCH_IO_EAGLE::loadInstance( const std::unique_ptr<EINSTANCE>& aInstance,
                                 const std::map<wxString, std::unique_ptr<EPART>>& aParts )
{
    wxCHECK( aInstance, /* void */ );
 
    SCH_SCREEN* screen = getCurrentScreen();
 
    wxCHECK( screen, /* void */ );
 
    const auto partIt = aParts.find( aInstance->part );
 
    if( partIt == aParts.end() )
    {
        Report( wxString::Format( _( "Error parsing Eagle file. Could not find '%s' "
                                     "instance but it is referenced in the schematic." ),
                                  aInstance->part ),
                RPT_SEVERITY_ERROR );
 
        return;
    }
 
    const std::unique_ptr<EPART>& epart = partIt->second;
 
    wxString libName = epart->library;
 
    // Correctly handle versioned libraries.
    if( epart->libraryUrn.has_value() )
        libName += wxS( "_" ) + epart->libraryUrn.value().assetId;
 
    wxString gatename    = epart->deviceset + wxS( "_" ) + epart->device + wxS( "_" ) + aInstance->gate;
    wxString symbolname  = wxString( epart->deviceset + epart->device );
    wxString kiPackageName = epart->deviceset + epart->device;
 
    if( epart->technology.has_value() )
        symbolname += epart->technology.value();
 
    symbolname.Replace( wxT( "*" ), wxEmptyString );
    kiPackageName.Replace( wxT( "*" ), wxEmptyString );
 
    wxString kisymbolname = EscapeString( symbolname, CTX_LIBID );
 
    // Eagle schematics can have multiple libraries containing symbols with duplicate symbol
    // names.  Because this parser stores all of the symbols in a single library, the
    // loadSymbol() function, prefixed the original Eagle library name to the symbol name
    // in case of a name clash.  Check for the prefixed symbol first.  This ensures that
    // the correct library symbol gets mapped on load.
    wxString altSymbolName = libName + wxT( "_" ) + symbolname;
    altSymbolName = EscapeString( altSymbolName, CTX_LIBID );
 
    wxString libIdSymbolName = altSymbolName;
 
    const auto libIt = m_eagleLibs.find( libName );
 
    if( libIt == m_eagleLibs.end() )
    {
        Report( wxString::Format( wxS( "Eagle library '%s' not found while looking up symbol for "
                                       "deviceset '%s', device '%s', and gate '%s." ),
                                  libName, epart->deviceset, epart->device, aInstance->gate ), RPT_SEVERITY_WARNING );
        return;
    }
 
    const auto gateIt = libIt->second.GateToUnitMap.find( gatename );
 
    if( gateIt == libIt->second.GateToUnitMap.end() )
    {
        Report( wxString::Format( wxS( "Symbol not found for deviceset '%s', device '%s', and "
                                       "gate '%s in library '%s'." ),
                                  epart->deviceset, epart->device, aInstance->gate, libName ), RPT_SEVERITY_WARNING );
        return;
    }
 
    int unit = gateIt->second;
 
    wxString       package;
    EAGLE_LIBRARY* elib = &m_eagleLibs[libName];
 
    auto p = elib->package.find( kisymbolname );
 
    if( p != elib->package.end() )
    {
        package = p->second;
    }
    else
    {
        p = elib->package.find( kiPackageName );
 
        if( p != elib->package.end() )
            package = p->second;
    }
 
    // set properties to prevent save file on every symbol save
    std::map<std::string, UTF8> properties;
    properties.emplace( SCH_IO_KICAD_SEXPR::PropBuffering, wxEmptyString );
 
    LIB_SYMBOL* part = m_pi->LoadSymbol( getLibFileName().GetFullPath(), altSymbolName, &properties );
 
    if( !part )
    {
        part = m_pi->LoadSymbol( getLibFileName().GetFullPath(), kisymbolname, &properties );
        libIdSymbolName = kisymbolname;
    }
 
    if( !part )
    {
        Report( wxString::Format( _( "Could not find '%s' in the imported library." ),
                                  UnescapeString( kisymbolname ) ),
                RPT_SEVERITY_ERROR );
        return;
    }
 
    LIB_ID                      libId( getLibName(), libIdSymbolName );
    std::unique_ptr<SCH_SYMBOL> symbol = std::make_unique<SCH_SYMBOL>();
    symbol->SetLibId( libId );
    symbol->SetUnit( unit );
    symbol->SetPosition( VECTOR2I( aInstance->x.ToSchUnits(), -aInstance->y.ToSchUnits() ) );
 
    // assume that footprint library is identical to project name
    if( !package.IsEmpty() )
    {
        wxString footprint = m_schematic->Project().GetProjectName() + wxT( ":" ) + package;
        symbol->GetField( FIELD_T::FOOTPRINT )->SetText( footprint );
    }
 
    if( aInstance->rot.has_value() )
    {
        symbol->SetOrientation( kiCadComponentRotation( aInstance->rot.value().degrees ) );
 
        if( aInstance->rot.value().mirror )
            symbol->MirrorHorizontally( aInstance->x.ToSchUnits() );
    }
 
    std::vector<SCH_FIELD*> partFields;
    part->GetFields( partFields );
 
    VECTOR2I nextFieldPosition = getLastSymbolFieldPosition( part ) + symbol->GetPosition();
 
    for( const SCH_FIELD* partField : partFields )
    {
        SCH_FIELD* symbolField = nullptr;
 
        if( partField->IsMandatory() )
            symbolField = symbol->GetField( partField->GetId() );
        else
            symbolField = symbol->GetField( partField->GetName() );
 
        if( !symbolField )
        {
            SCH_FIELD newField( symbol.get(), FIELD_T::USER, partField->GetName() );
 
            newField.SetVisible( false );
            newField.SetText( partField->GetText() );
 
            nextFieldPosition.y += newField.GetTextHeight() + schIUScale.MilsToIU( 10 );
            newField.SetPosition( nextFieldPosition );
            symbol->AddField( newField );
        }
        else
        {
            symbolField->ImportValues( *partField );
            symbolField->SetTextPos( symbol->GetPosition() + partField->GetTextPos() );
        }
    }
 
    wxString reference = aInstance->part;
    bool     referenceVisible = !reference.IsEmpty();
 
    // If there is no footprint assigned, then prepend the reference value
    // with a hash character to mute netlist updater complaints
    if( package.IsEmpty() )
        reference.Prepend( '#' );
 
    // reference must end with a number but EAGLE does not enforce this
    if( reference.find_last_not_of( wxT( "0123456789" ) ) == ( reference.Length()-1 ) )
        reference.Append( wxT( "0" ) );
 
    // EAGLE allows references to be single digits.  This breaks KiCad netlisting, which requires
    // parts to have non-digit + digit annotation.  If the reference begins with a number,
    // we prepend 'UNK' (unknown) for the symbol designator
    if( reference.find_first_not_of( wxT( "0123456789" ) ) != 0 )
        reference.Prepend( wxT( "UNK" ) );
 
    // EAGLE allows designator to start with # but that is used in KiCad
    // for symbols which do not have a footprint
    if( aInstance->part.find_first_not_of( wxT( "#" ) ) != 0 )
        reference.Prepend( wxT( "UNK" ) );
 
    SCH_FIELD* referenceField = symbol->GetField( FIELD_T::REFERENCE );
    referenceField->SetVisible( referenceVisible );
    referenceField->SetText( reference );
 
    SCH_FIELD* valueField = symbol->GetField( FIELD_T::VALUE );
    bool       userValue = m_userValue.at( libIdSymbolName );
 
    if( part->GetUnitCount() > 1 )
    {
        getEagleSymbolFieldAttributes( aInstance, wxS( ">NAME" ), referenceField );
        getEagleSymbolFieldAttributes( aInstance, wxS( ">VALUE" ), valueField );
    }
 
    if( epart->value.has_value() && !epart->value.value().IsEmpty() )
    {
        valueField->SetText( epart->value.value() );
    }
    else
    {
        valueField->SetText( kisymbolname );
 
        if( userValue )
            valueField->SetVisible( false );
    }
 
    for( const auto& [ attrName, attr ] : epart->attributes )
    {
        SCH_FIELD newField( symbol.get(), FIELD_T::USER );
 
        newField.SetName( attrName );
 
        if( !symbol->GetFields().empty() )
            newField.SetTextPos( symbol->GetFields().back().GetPosition() );
 
        if( attr->value.has_value() )
            newField.SetText( attr->value.value() );
 
        if( attr->display.has_value() && attr->display.value() == EATTR::Off )
            newField.SetVisible( false );
 
        symbol->AddField( newField );
    }
 
    bool valueAttributeFound = false;
    bool nameAttributeFound  = false;
 
    // Parse attributes for the instance
    for( auto& [name, eattr] : aInstance->attributes )
    {
        SCH_FIELD* field = nullptr;
 
        if( eattr->name.Lower() == wxT( "name" ) )
        {
            field              = symbol->GetField( FIELD_T::REFERENCE );
            nameAttributeFound = true;
        }
        else if( eattr->name.Lower() == wxT( "value" ) )
        {
            field               = symbol->GetField( FIELD_T::VALUE );
            valueAttributeFound = true;
        }
        else
        {
            field = symbol->GetField( eattr->name );
        }
 
        if( field )
        {
            field->SetVisible( true );
            field->SetPosition( VECTOR2I( eattr->x->ToSchUnits(), -eattr->y->ToSchUnits() ) );
 
            if( eattr->size.has_value() )
                field->SetTextSize( ConvertEagleTextSize( eattr->font, eattr->size.value() ) );
 
            int  align      = eattr->align.value_or( ETEXT::BOTTOM_LEFT );
            int  absdegrees = eattr->rot.has_value() ? KiROUND( eattr->rot.value().degrees ) : 0;
            bool mirror     = eattr->rot.has_value() ? eattr->rot.value().mirror : false;
            bool spin       = eattr->rot.has_value() ? eattr->rot.value().spin : false;
 
            if( aInstance->rot.has_value() && aInstance->rot.value().mirror )
                mirror = !mirror;
 
            if( eattr->display.has_value() && (    eattr->display.value() == EATTR::Off
                                                || eattr->display.value() == EATTR::NAME ) )
            {
                field->SetVisible( false );
            }
 
            int rotation   = aInstance->rot.has_value() ? KiROUND( aInstance->rot.value().degrees ) : 0;
            int reldegrees = KiROUND( absdegrees - rotation + 360.0 );
            reldegrees %= 360;
 
            eagleToKicadAlignment( field, align, reldegrees, mirror, spin, absdegrees );
        }
    }
 
    // Use the instance attribute to determine the reference and value field visibility.
    if( aInstance->smashed.has_value() && aInstance->smashed.value() )
    {
        symbol->GetField( FIELD_T::VALUE )->SetVisible( valueAttributeFound );
        symbol->GetField( FIELD_T::REFERENCE )->SetVisible( nameAttributeFound );
    }
 
    // Eagle has a brain dead module reference scheme where the module names separated by colons
    // are prefixed to the symbol references.  This will get blown away in KiCad the first time
    // any annotation is performed.  It is required for the initial synchronization between the
    // schematic and the board.
    wxString refPrefix;
 
    for( const EMODULEINST* emoduleInst : m_moduleInstances )
    {
        wxCHECK2( emoduleInst, continue );
 
        refPrefix += emoduleInst->name + wxS( ":" );
    }
 
    symbol->AddHierarchicalReference( m_sheetPath.Path(), refPrefix + reference, unit );
 
    // Cache the lib symbol so pin positions are available for connection-point tracking.
    // Use the already-loaded `part` directly rather than re-fetching through the adapter,
    // because the .kicad_sym library is still buffered in m_pi and has not yet been saved to
    // disk at the time loadInstance runs.
    symbol->SetLibSymbol( part->Flatten().release() );
 
    for( const auto& [name, variant] : epart->variants )
    {
        SCH_SYMBOL_VARIANT symbolVariant( name );
 
        if( variant->populate.has_value() && variant->populate.value() == false )
            symbolVariant.m_DNP = true;
 
        if( variant->value )
            symbolVariant.m_Fields[GetDefaultFieldName( FIELD_T::VALUE, UNTRANSLATED )] = *variant->value;
 
        if( variant->technology.has_value() )
        {
            auto eLibIt = m_eagleDoc->drawing->schematic->libraries.find( epart->library );
 
            if( eLibIt == m_eagleDoc->drawing->schematic->libraries.end() )
            {
                Report( wxString::Format( wxS( "Library '%s' not found in schematic." ), epart->library ),
                        RPT_SEVERITY_WARNING );
                continue;
            }
 
            auto eDeviceSetIt = eLibIt->second->devicesets.find( epart->deviceset );
 
            if( eDeviceSetIt == eLibIt->second->devicesets.end() )
            {
                Report( wxString::Format( wxS( "Device set '%s' not found in library '%s'." ),
                                          epart->deviceset,
                                          epart->library ), RPT_SEVERITY_WARNING );
                continue;
            }
 
            auto eDeviceIt = eDeviceSetIt->second->devices.find( epart->device );
 
            if( eDeviceIt == eDeviceSetIt->second->devices.end() )
            {
                Report( wxString::Format( wxS( "Device '%s' not found in device set '%s' in library '%s'." ),
                                          epart->device,
                                          epart->deviceset,
                                          epart->library ), RPT_SEVERITY_WARNING );
                continue;
            }
 
            auto eTechnologyIt = eDeviceIt->second->technologies.find( variant->technology.value() );
 
            if( eTechnologyIt == eDeviceIt->second->technologies.end() )
            {
                Report( wxString::Format( wxS( "Technology '%s' not found in device '%s'  in device set '%s' "
                                               "in library '%s'." ),
                                          variant->technology.value(),
                                          epart->device,
                                          epart->deviceset,
                                          epart->library ), RPT_SEVERITY_WARNING );
                continue;
            }
 
            for( const std::unique_ptr<EATTR>& attr : eTechnologyIt->second->attributes )
            {
                wxString attrValue;
 
                if( attr->value.has_value() )
                    attrValue = attr->value.value();
 
                symbolVariant.m_Fields[attr->name] = attrValue;
            }
        }
 
        symbol->AddVariant( m_sheetPath, symbolVariant );
    }
 
    for( const SCH_PIN* pin : symbol->GetLibPins() )
        m_connPoints[symbol->GetPinPhysicalPosition( pin )].emplace( pin );
 
    if( part->IsGlobalPower() )
        m_powerPorts[ reference ] = symbol->GetField( FIELD_T::VALUE )->GetText();
 
    symbol->ClearFlags();
 
    screen->Append( symbol.release() );
}
 
 
EAGLE_LIBRARY* SCH_IO_EAGLE::loadLibrary( const ELIBRARY* aLibrary, EAGLE_LIBRARY* aEagleLibrary )
{
    wxCHECK( aLibrary && aEagleLibrary, nullptr );
    bool canAutoplace = ADVANCED_CFG::GetCfg().m_EagleImportFieldsCanAutoplace;
 
    // Loop through the device sets and load each of them
    for( const auto& [name, edeviceset] : aLibrary->devicesets )
    {
        // Get Device set information
        wxString prefix = edeviceset->prefix.value_or( wxEmptyString );
        wxString deviceSetDescr;
 
        if( edeviceset->description )
            deviceSetDescr = convertDescription( UnescapeHTML( edeviceset->description->text ) );
 
        // For each device in the device set:
        for( const auto& [devname, edevice] : edeviceset->devices )
        {
            std::vector<std::unique_ptr<LIB_SYMBOL>> derivedSymbols;
 
            // Create symbol name from deviceset and device names.
            wxString symbolName = edeviceset->name + edevice->name;
            symbolName.Replace( wxT( "*" ), wxEmptyString );
            wxASSERT( !symbolName.IsEmpty() );
            symbolName = EscapeString( symbolName, CTX_LIBID );
 
            if( edevice->package.has_value() )
                aEagleLibrary->package[symbolName] = edevice->package.value();
 
            // Create KiCad symbol.
            std::unique_ptr<LIB_SYMBOL> libSymbol = std::make_unique<LIB_SYMBOL>( symbolName );
 
            // Process each gate in the deviceset for this device.
            int gate_count = static_cast<int>( edeviceset->gates.size() );
 
            if( gate_count > 1 )
                libSymbol->SetUnitCount( gate_count, true );
 
            libSymbol->LockUnits( true );
 
            SCH_FIELD* reference = libSymbol->GetField( FIELD_T::REFERENCE );
 
            if( prefix.length() == 0 )
            {
                reference->SetVisible( false );
            }
            else
            {
                // If there is no footprint assigned, then prepend the reference value
                // with a hash character to mute netlist updater complaints
                reference->SetText( edevice->package.has_value() ? prefix : '#' + prefix );
            }
 
            libSymbol->GetValueField().SetVisible( true );
 
            int  gateindex = 1;
            bool ispower   = false;
 
            for( const auto& [gateName, egate] : edeviceset->gates )
            {
                const auto it = aLibrary->symbols.find( egate->symbol );
 
                if( it == aLibrary->symbols.end() )
                {
                    Report( wxString::Format( wxS( "Eagle symbol '%s' not found in library '%s'." ),
                                              egate->symbol,
                                              aLibrary->GetName() ), RPT_SEVERITY_WARNING );
                    continue;
                }
 
                wxString gateMapName = edeviceset->name + wxS( "_" ) + edevice->name + wxS( "_" ) + egate->name;
                aEagleLibrary->GateToUnitMap[gateMapName] = gateindex;
                ispower = loadSymbol( it->second, libSymbol, edevice, gateindex, egate->name );
 
                gateindex++;
            }
 
            std::vector<SCH_FIELD*> fields;
            libSymbol->GetFields( fields );
 
            for( SCH_FIELD* field : fields )
                field->SetCanAutoplace( canAutoplace );
 
            for( const auto& [techname, technology ] : edevice->technologies )
            {
                std::unique_ptr<LIB_SYMBOL> derivedSymbol;
                VECTOR2I nextFieldPosition = getLastSymbolFieldPosition( libSymbol.get() );
 
                if( !technology->name.IsEmpty() )
                {
                    derivedSymbol = std::make_unique<LIB_SYMBOL>( symbolName + technology->name, libSymbol.get() );
 
                    for( SCH_FIELD* parentField : fields )
                    {
                        SCH_FIELD* childField = derivedSymbol->GetField( parentField->GetName() );
 
                        if( childField )
                        {
                            childField->SetAttributes( *parentField );
                            childField->SetCanAutoplace( canAutoplace );
                        }
                    }
                }
 
                for( const std::unique_ptr<EATTR>& attr : technology->attributes )
                {
                    if( !attr->value.has_value() )
                        continue;
 
                    SCH_FIELD* field = nullptr;
 
                    if( !derivedSymbol )
                        field = libSymbol->FindFieldCaseInsensitive( attr->name );
                    else
                        field = derivedSymbol->FindFieldCaseInsensitive( attr->name );
 
                    if( field )
                    {
                        field->SetText( attr->value.value() );
                    }
                    else
                    {
                        SCH_FIELD* newField = new SCH_FIELD( derivedSymbol ? derivedSymbol.get() : libSymbol.get(),
                                                             FIELD_T::USER, attr->name );
 
                        if( derivedSymbol )
                        {
                            SCH_FIELD* parentField = libSymbol->FindFieldCaseInsensitive( attr->name );
 
                            if( parentField )
                                newField->SetAttributes( *parentField );
                        }
 
                        nextFieldPosition.y += newField->GetTextHeight() + schIUScale.MilsToIU( 10 );
                        newField->SetText( attr->value.value() );
                        newField->SetVisible( false );
                        newField->SetPosition( nextFieldPosition );
                        newField->SetCanAutoplace( canAutoplace );
 
                        if( !derivedSymbol )
                            libSymbol->AddField( newField );
                        else
                            derivedSymbol->AddField( newField );
                    }
                }
 
                if( derivedSymbol )
                    derivedSymbols.push_back( std::move( derivedSymbol ) );
            }
 
            if( gate_count > 1 )
                libSymbol->SetUnitCount( gate_count, true );
 
            if( gate_count == 1 && ispower )
                libSymbol->SetGlobalPower();
 
            // Don't set the footprint field if no package is defined in the Eagle schematic.
            if( edevice->package.has_value() && !edevice->package.value().IsEmpty() )
            {
                wxString libName;
 
                if( m_schematic )
                {
                    // assume that footprint library is identical to project name
                    libName = m_schematic->Project().GetProjectName();
                }
                else
                {
                    libName = m_libName;
                }
 
                wxString packageString = libName + wxT( ":" ) + aEagleLibrary->package[symbolName];
 
                libSymbol->GetFootprintField().SetText( packageString );
            }
 
            wxString libName = libSymbol->GetName();
            libSymbol->SetName( libName );
            libSymbol->SetDescription( deviceSetDescr );
 
            if( m_pi )
            {
                // If duplicate symbol names exist in multiple Eagle symbol libraries, prefix the
                // Eagle symbol library name to the symbol which should ensure that it is unique.
                try
                {
                    if( m_pi->LoadSymbol( getLibFileName().GetFullPath(), libName ) )
                    {
                        libName = aEagleLibrary->name + wxT( "_" ) + libName;
                        libName = EscapeString( libName, CTX_LIBID );
                        libSymbol->SetName( libName );
                    }
 
                    // set properties to prevent save file on every symbol save
                    std::map<std::string, UTF8> properties;
                    properties.emplace( SCH_IO_KICAD_SEXPR::PropBuffering, wxEmptyString );
 
 
                    std::unique_ptr<LIB_SYMBOL> parentSymbol = std::make_unique<LIB_SYMBOL>( *libSymbol );
 
                    m_pi->SaveSymbol( getLibFileName().GetFullPath(), std::move( parentSymbol ),
                                      &properties );
 
                    // The plugin cache owns the parent symbol after the save, we cannot use it
                    // safely after handing it to the plugin.
                    // Borrow the parent symbol from the plugin cache.
                    LIB_SYMBOL* parent = m_pi->LoadSymbol( getLibFileName().GetFullPath(), libSymbol->GetName() );
 
                    if( !parent )
                    {
                        Report( wxString::Format( _( "Could not reload saved symbol '%s'" ),
                                                  UnescapeString( libSymbol->GetName() ) ),
                                RPT_SEVERITY_ERROR );
                    }
                    else
                    {
                        for( std::unique_ptr<LIB_SYMBOL>& symbol : derivedSymbols )
                        {
                            if( m_pi->LoadSymbol( getLibFileName().GetFullPath(), symbol->GetName() ) )
                            {
                                wxString tmp = aEagleLibrary->name + wxT( "_" ) + symbol->GetName();
                                tmp = EscapeString( tmp, CTX_LIBID );
                                symbol->SetName( tmp );
                            }
 
                            std::unique_ptr<LIB_SYMBOL> derivedSymbol = std::make_unique<LIB_SYMBOL>( *symbol );
 
                            derivedSymbol->SetParent( parent );
                            m_pi->SaveSymbol( getLibFileName().GetFullPath(), std::move( derivedSymbol ), &properties );
                        }
                    }
                }
                catch(...)
                {
                    // A library symbol cannot be loaded for some reason.
                    // Just skip this symbol creating an issue.
                    // The issue will be reported later by the Reporter
                }
            }
 
            aEagleLibrary->KiCadSymbols[ libName ] = std::move( libSymbol );
 
            // Store information on whether the value of FIELD_T::VALUE for a part should be
            // part/@value or part/@deviceset + part/@device.
            m_userValue.emplace( std::make_pair( libName, edeviceset->uservalue.value_or( false ) ) );
 
            for( std::unique_ptr<LIB_SYMBOL>& symbol : derivedSymbols )
            {
                m_userValue.emplace( std::make_pair( symbol->GetName(), edeviceset->uservalue.value_or( false ) ) );
                aEagleLibrary->KiCadSymbols[symbol->GetName()] = std::move( symbol );
            }
        }
    }
 
    return aEagleLibrary;
}
 
 
bool SCH_IO_EAGLE::loadSymbol( const std::unique_ptr<ESYMBOL>& aEsymbol, std::unique_ptr<LIB_SYMBOL>& aSymbol,
                               const std::unique_ptr<EDEVICE>& aDevice, int aGateNumber, const wxString& aGateName )
{
    wxCHECK( aEsymbol && aSymbol && aDevice, false );
 
    std::vector<SCH_ITEM*> items;
 
    bool showRefDes = false;
    bool showValue  = false;
    bool ispower    = false;
    int  pincount   = 0;
 
    for( const std::unique_ptr<ECIRCLE>& ecircle : aEsymbol->circles )
        aSymbol->AddDrawItem( loadSymbolCircle( aSymbol, ecircle, aGateNumber ) );
 
    for( const std::unique_ptr<EPIN>& epin : aEsymbol->pins )
    {
        std::unique_ptr<SCH_PIN> pin( loadPin( aSymbol, epin, aGateNumber ) );
        pincount++;
 
        pin->SetType( ELECTRICAL_PINTYPE::PT_BIDI );
 
        if( epin->direction.has_value() )
        {
            for( const auto& pinDir : pinDirectionsMap )
            {
                if( epin->direction.value().Lower() == pinDir.first )
                {
                    pin->SetType( pinDir.second );
 
                    if( pinDir.first == wxT( "sup" ) ) // power supply symbol
                        ispower = true;
 
                    break;
                }
            }
        }
 
        if( aDevice->connects.size() != 0 )
        {
            for( const std::unique_ptr<ECONNECT>& connect : aDevice->connects )
            {
                // Eagle <connect> references the full pin name including any "@<tag>"
                // linking hint, so match against the raw Eagle name rather than the
                // stripped display name set on the pin.
                if( connect->gate == aGateName && epin->name == connect->pin )
                {
                    wxArrayString pads = wxSplit( wxString( connect->pad ), ' ' );
 
                    pin->SetUnit( aGateNumber );
                    pin->SetName( escapeName( pin->GetName() ) );
 
                    if( pads.GetCount() > 1 )
                    {
                        pin->SetNumberTextSize( 0 );
                    }
 
                    for( unsigned i = 0; i < pads.GetCount(); i++ )
                    {
                        SCH_PIN* apin = new SCH_PIN( *pin );
 
                        wxString padname( pads[i] );
                        apin->SetNumber( padname );
                        aSymbol->AddDrawItem( apin );
                    }
 
                    break;
                }
            }
        }
        else
        {
            pin->SetUnit( aGateNumber );
            pin->SetNumber( wxString::Format( wxT( "%i" ), pincount ) );
            aSymbol->AddDrawItem( pin.release() );
        }
    }
 
    for( const std::unique_ptr<EPOLYGON>& epolygon : aEsymbol->polygons )
    {
        if( SCH_SHAPE* shape = loadSymbolPolyLine( aSymbol, epolygon, aGateNumber ) )
            aSymbol->AddDrawItem( shape );
    }
 
    for( const std::unique_ptr<ERECT>& erectangle : aEsymbol->rectangles )
        aSymbol->AddDrawItem( loadSymbolRectangle( aSymbol, erectangle, aGateNumber ) );
 
    for( const std::unique_ptr<ETEXT>& etext : aEsymbol->texts )
    {
        std::unique_ptr<SCH_TEXT> libtext( loadSymbolText( aSymbol, etext, aGateNumber ) );
 
        if( libtext->GetText() == wxT( "${REFERENCE}" ) )
        {
            // Keep the deviceset prefix because the Eagle text is only a placeholder
            aSymbol->GetReferenceField().SetAttributes( *libtext );
 
            // Show Reference field if Eagle reference was uppercase
            showRefDes = etext->text == wxT( ">NAME" );
        }
        else if( libtext->GetText() == wxT( "${VALUE}" ) )
        {
            // Keep the field value because the Eagle text is only a placeholder
            aSymbol->GetValueField().SetAttributes( *libtext );
 
            // Show Value field if Eagle reference was uppercase
            showValue = etext->text == wxT( ">VALUE" );
        }
        else if( etext->text.StartsWith( ">" ) )
        {
            // Text values that start with '>' are place holders for fields defined later
            // in library deviceset objects.
            wxString fieldName = etext->text.Mid( 1 );
 
            if( !fieldName.IsEmpty() )
            {
                SCH_FIELD* field = new SCH_FIELD( aSymbol.get(), FIELD_T::USER, fieldName );
 
                field->SetAttributes( *libtext );
 
                // Field visibility is determined by the symbol instance attributes.
                field->SetVisible( false );
                aSymbol->AddField( field );
            }
        }
        else
        {
            aSymbol->AddDrawItem( libtext.release() );
        }
    }
 
    for( const std::unique_ptr<EWIRE>& ewire : aEsymbol->wires )
        aSymbol->AddDrawItem( loadSymbolWire( aSymbol, ewire, aGateNumber ) );
 
    for( const std::unique_ptr<EFRAME>& eframe : aEsymbol->frames )
    {
        std::vector<SCH_ITEM*> frameItems;
 
        loadFrame( eframe, frameItems );
 
        for( SCH_ITEM* item : frameItems )
        {
            item->SetParent( aSymbol.get() );
            item->SetUnit( aGateNumber );
            aSymbol->AddDrawItem( item );
        }
    }
 
    aSymbol->GetReferenceField().SetVisible( showRefDes );
    aSymbol->GetValueField().SetVisible( showValue );
 
    return pincount == 1 ? ispower : false;
}
 
 
SCH_SHAPE* SCH_IO_EAGLE::loadSymbolCircle( std::unique_ptr<LIB_SYMBOL>& aSymbol,
                                           const std::unique_ptr<ECIRCLE>& aCircle, int aGateNumber )
{
    wxCHECK( aSymbol && aCircle, nullptr );
 
    // Parse the circle properties
    SCH_SHAPE* circle = new SCH_SHAPE( SHAPE_T::CIRCLE, LAYER_DEVICE );
    VECTOR2I   center( aCircle->x.ToSchUnits(), -aCircle->y.ToSchUnits() );
 
    circle->SetParent( aSymbol.get() );
    circle->SetPosition( center );
    circle->SetEnd( VECTOR2I( center.x + aCircle->radius.ToSchUnits(), center.y ) );
 
    if( aCircle->width.ToSchUnits() == 0 )
    {
        circle->SetStroke( STROKE_PARAMS( -1, LINE_STYLE::SOLID ) );
        circle->SetFillMode( FILL_T::FILLED_SHAPE );
    }
    else
    {
        circle->SetStroke( STROKE_PARAMS( aCircle->width.ToSchUnits(), LINE_STYLE::SOLID ) );
    }
 
    if( aSymbol->IsMultiUnit() )
        circle->SetUnit( aGateNumber );
 
    return circle;
}
 
 
SCH_SHAPE* SCH_IO_EAGLE::loadSymbolRectangle( std::unique_ptr<LIB_SYMBOL>& aSymbol,
                                              const std::unique_ptr<ERECT>& aRectangle, int aGateNumber )
{
    wxCHECK( aSymbol && aRectangle, nullptr );
 
    SCH_SHAPE* rectangle = new SCH_SHAPE( SHAPE_T::RECTANGLE, LAYER_DEVICE );
 
    rectangle->SetParent( aSymbol.get() );
    rectangle->SetPosition( VECTOR2I( aRectangle->x1.ToSchUnits(), -aRectangle->y1.ToSchUnits() ) );
    rectangle->SetEnd( VECTOR2I( aRectangle->x2.ToSchUnits(), -aRectangle->y2.ToSchUnits() ) );
 
    if( aRectangle->rot.has_value() )
    {
        VECTOR2I pos( rectangle->GetPosition() );
        VECTOR2I end( rectangle->GetEnd() );
        VECTOR2I center( rectangle->GetCenter() );
 
        RotatePoint( pos, center, EDA_ANGLE( aRectangle->rot.value().degrees, DEGREES_T ) );
        RotatePoint( end, center, EDA_ANGLE( aRectangle->rot.value().degrees, DEGREES_T ) );
 
        rectangle->SetPosition( pos );
        rectangle->SetEnd( end );
    }
 
    if( aSymbol->IsMultiUnit() )
        rectangle->SetUnit( aGateNumber );
 
    // Eagle rectangles are filled and have vanishing line width by definition.
    rectangle->SetFillMode( FILL_T::FILLED_SHAPE );
    rectangle->SetWidth( -1 );
 
    return rectangle;
}
 
 
SCH_ITEM* SCH_IO_EAGLE::loadSymbolWire( std::unique_ptr<LIB_SYMBOL>& aSymbol,
                                        const std::unique_ptr<EWIRE>& aWire, int aGateNumber )
{
    wxCHECK( aSymbol && aWire, nullptr );
 
    VECTOR2I begin, end;
 
    begin.x = aWire->x1.ToSchUnits();
    begin.y = -aWire->y1.ToSchUnits();
    end.x   = aWire->x2.ToSchUnits();
    end.y   = -aWire->y2.ToSchUnits();
 
    if( begin == end )
        return nullptr;
 
    // if the wire is an arc
    if( aWire->curve )
    {
        SCH_SHAPE* arc = new SCH_SHAPE( SHAPE_T::ARC, LAYER_DEVICE );
        VECTOR2I   center = ConvertArcCenter( begin, end, *aWire->curve );
        double     radius = sqrt( ( ( center.x - begin.x ) * ( center.x - begin.x ) ) +
                                  ( ( center.y - begin.y ) * ( center.y - begin.y ) ) );
 
        arc->SetParent( aSymbol.get() );
 
        // this emulates the filled semicircles created by a thick arc with flat ends caps.
        if( aWire->cap.has_value() && aWire->cap.value() == EWIRE::FLAT && aWire->width.ToSchUnits() >= 2 * radius )
        {
            VECTOR2I centerStartVector = ( begin - center ) * ( aWire->width.ToSchUnits() / radius );
            begin = center + centerStartVector;
 
            arc->SetStroke( STROKE_PARAMS( 1, LINE_STYLE::SOLID ) );
            arc->SetFillMode( FILL_T::FILLED_SHAPE );
        }
        else
        {
            arc->SetStroke( STROKE_PARAMS( aWire->width.ToSchUnits(), LINE_STYLE::SOLID ) );
        }
 
        arc->SetCenter( center );
        arc->SetStart( begin );
 
        // KiCad rotates the other way.
        arc->SetArcAngleAndEnd( -EDA_ANGLE( *aWire->curve, DEGREES_T ), true );
 
        if( aSymbol->IsMultiUnit() )
            arc->SetUnit( aGateNumber );
 
        return arc;
    }
    else
    {
        SCH_SHAPE* poly = new SCH_SHAPE( SHAPE_T::POLY, LAYER_DEVICE );
 
        poly->AddPoint( begin );
        poly->AddPoint( end );
 
        if( aSymbol->IsMultiUnit() )
            poly->SetUnit( aGateNumber );
 
        poly->SetStroke( STROKE_PARAMS( aWire->width.ToSchUnits(), LINE_STYLE::SOLID ) );
 
        return poly;
    }
}
 
 
SCH_SHAPE* SCH_IO_EAGLE::loadSymbolPolyLine( std::unique_ptr<LIB_SYMBOL>& aSymbol,
                                             const std::unique_ptr<EPOLYGON>& aPolygon, int aGateNumber )
{
    wxCHECK( aSymbol && aPolygon, nullptr );
 
    if( !aPolygon->IsValidOutline() )
        return nullptr;
 
    SCH_SHAPE*              poly = new SCH_SHAPE( SHAPE_T::POLY, LAYER_DEVICE );
    VECTOR2I                pt;
    VECTOR2I                prev_pt;
    std::optional<double>   prev_curve;
    std::optional<VECTOR2I> first_pt;
 
    poly->SetParent( aSymbol.get() );
 
    for( const std::unique_ptr<EVERTEX>& evertex : aPolygon->vertices )
    {
        pt = VECTOR2I( evertex->x.ToSchUnits(), -evertex->y.ToSchUnits() );
 
        if( !first_pt.has_value() )
            first_pt = pt;
 
        if( prev_curve.has_value() )
        {
            SHAPE_ARC arc;
            arc.ConstructFromStartEndAngle( prev_pt, pt, -EDA_ANGLE( prev_curve.value(), DEGREES_T ) );
            poly->GetPolyShape().Append( arc, -1, -1, ARC_ACCURACY );
        }
        else
        {
            poly->AddPoint( pt );
        }
 
        prev_pt = pt;
        prev_curve = evertex->curve;
    }
 
    if( first_pt.has_value() )
        poly->AddPoint( first_pt.value() );
 
    poly->SetStroke( STROKE_PARAMS( aPolygon->width.ToSchUnits(), LINE_STYLE::SOLID ) );
    poly->SetFillMode( FILL_T::FILLED_SHAPE );
 
    if( aSymbol->IsMultiUnit() )
        poly->SetUnit( aGateNumber );
 
    return poly;
}
 
 
SCH_PIN* SCH_IO_EAGLE::loadPin( std::unique_ptr<LIB_SYMBOL>& aSymbol,
                                const std::unique_ptr<EPIN>& aPin, int aGateNumber )
{
    wxCHECK( aSymbol && aPin, nullptr );
 
    std::unique_ptr<SCH_PIN> pin = std::make_unique<SCH_PIN>( aSymbol.get() );
    pin->SetPosition( VECTOR2I( aPin->x.ToSchUnits(), -aPin->y.ToSchUnits() ) );
 
    // Eagle pin names may carry a trailing "@<tag>" linking hint that disambiguates
    // duplicate names within a symbol. It is metadata, not visible text, so strip it
    // from the displayed name. The full Eagle name is still used to match <connect>.
    pin->SetName( extractNetName( aPin->name ) );
 
    if( aSymbol->IsMultiUnit() )
        pin->SetUnit( aGateNumber );
 
    int roti = aPin->rot.has_value() ? KiROUND( aPin->rot.value().degrees ) : 0;
 
    switch( roti )
    {
    case 0:   pin->SetOrientation( PIN_ORIENTATION::PIN_RIGHT ); break;
    case 90:  pin->SetOrientation( PIN_ORIENTATION::PIN_UP );    break;
    case 180: pin->SetOrientation( PIN_ORIENTATION::PIN_LEFT );  break;
    case 270: pin->SetOrientation( PIN_ORIENTATION::PIN_DOWN );  break;
    default:  wxFAIL_MSG( wxString::Format( wxT( "Unhandled orientation (%d degrees)." ), roti ) );
    }
 
    pin->SetLength( schIUScale.MilsToIU( 300 ) );  // Default pin length when not defined.
 
    if( aPin->length.has_value() )
    {
        if( aPin->length.value() == wxT( "short" ) )
            pin->SetLength( schIUScale.MilsToIU( 100 ) );
        else if( aPin->length.value() == wxT( "middle" ) )
            pin->SetLength( schIUScale.MilsToIU( 200 ) );
        else if( aPin->length.value() == wxT( "long" ) )
            pin->SetLength( schIUScale.MilsToIU( 300 ) );
        else if( aPin->length.value() == wxT( "point" ) )
            pin->SetLength( schIUScale.MilsToIU( 0 ) );
    }
 
    // Pin names and numbers are fixed size in Eagle.
    pin->SetNumberTextSize( schIUScale.MilsToIU( 60 ) );
    pin->SetNameTextSize( schIUScale.MilsToIU( 60 ) );
 
    // emulate the visibility of pin elements
    if( aPin->visible.has_value() )
    {
        if( aPin->visible.value() == wxT( "off" ) )
        {
            pin->SetNameTextSize( 0 );
            pin->SetNumberTextSize( 0 );
        }
        else if( aPin->visible.value() == wxT( "pad" ) )
        {
            pin->SetNameTextSize( 0 );
        }
        else if( aPin->visible.value() == wxT( "pin" ) )
        {
            pin->SetNumberTextSize( 0 );
        }
 
        /*
         *  else if( visible == wxT( "both" ) )
         *  {
         *  }
         */
    }
 
    if( aPin->function.has_value() )
    {
        if( aPin->function.value() == wxT( "dot" ) )
            pin->SetShape( GRAPHIC_PINSHAPE::INVERTED );
        else if( aPin->function.value() == wxT( "clk" ) )
            pin->SetShape( GRAPHIC_PINSHAPE::CLOCK );
        else if( aPin->function.value() == wxT( "dotclk" ) )
            pin->SetShape( GRAPHIC_PINSHAPE::INVERTED_CLOCK );
    }
 
    return pin.release();
}
 
 
SCH_TEXT* SCH_IO_EAGLE::loadSymbolText( std::unique_ptr<LIB_SYMBOL>& aSymbol,
                                        const std::unique_ptr<ETEXT>& aText, int aGateNumber )
{
    wxCHECK( aSymbol && aText, nullptr );
 
    std::unique_ptr<SCH_TEXT> libtext = std::make_unique<SCH_TEXT>();
 
    libtext->SetLayer( LAYER_DEVICE );
    libtext->SetParent( aSymbol.get() );
 
    if( aSymbol->IsMultiUnit() )
        libtext->SetUnit( aGateNumber );
 
    libtext->SetPosition( VECTOR2I( aText->x.ToSchUnits(), -aText->y.ToSchUnits() ) );
 
    const wxString&   eagleText = aText->text;
    wxString          adjustedText;
    wxStringTokenizer tokenizer( eagleText, "\r\n" );
 
    // Strip the whitespace from both ends of each line.
    while( tokenizer.HasMoreTokens() )
    {
        wxString tmp = interpretText( tokenizer.GetNextToken().Trim( true ).Trim( false ) );
 
        if( tokenizer.HasMoreTokens() )
            tmp += wxT( "\n" );
 
        adjustedText += tmp;
    }
 
    libtext->SetText( adjustedText.IsEmpty() ? wxString( wxS( "~" ) ) : adjustedText );
 
    loadTextAttributes( libtext.get(), aText );
 
    return libtext.release();
}
 
 
SCH_TEXT* SCH_IO_EAGLE::loadPlainText( const std::unique_ptr<ETEXT>& aText )
{
    wxCHECK( aText, nullptr );
 
    std::unique_ptr<SCH_TEXT> schtext = std::make_unique<SCH_TEXT>();
 
    const wxString&   eagleText = aText->text;
    wxString          adjustedText;
    wxStringTokenizer tokenizer( eagleText, "\r\n" );
 
    // Strip the whitespace from both ends of each line.
    while( tokenizer.HasMoreTokens() )
    {
        wxString tmp = interpretText( tokenizer.GetNextToken().Trim( true ).Trim( false ) );
 
        if( tokenizer.HasMoreTokens() )
            tmp += wxT( "\n" );
 
        adjustedText += tmp;
    }
 
    schtext->SetText( adjustedText.IsEmpty() ? wxString( wxS( "\" \"" ) )
                                             : escapeName( adjustedText ) );
 
    schtext->SetPosition( VECTOR2I( aText->x.ToSchUnits(), -aText->y.ToSchUnits() ) );
    loadTextAttributes( schtext.get(), aText );
    schtext->SetItalic( false );
 
    return schtext.release();
}
 
 
void SCH_IO_EAGLE::loadTextAttributes( EDA_TEXT* aText, const std::unique_ptr<ETEXT>& aAttributes ) const
{
    wxCHECK( aText && aAttributes, /* void */ );
 
    aText->SetTextSize( aAttributes->ConvertSize() );
 
    // Must come after SetTextSize()
    if( aAttributes->ratio.value_or( 8 ) > 12 )
        aText->SetBold( true );
 
    int  align   = aAttributes->align.value_or( ETEXT::BOTTOM_LEFT );
    int  degrees = aAttributes->rot.has_value() ? KiROUND( aAttributes->rot.value().degrees ) : 0;
    bool mirror  = aAttributes->rot.has_value() ? aAttributes->rot.value().mirror : false;
    bool spin    = aAttributes->rot.has_value() ? aAttributes->rot.value().spin : false;
 
    eagleToKicadAlignment( aText, align, degrees, mirror, spin, 0 );
}
 
 
void SCH_IO_EAGLE::adjustNetLabels()
{
    // Eagle supports detached labels, so a label does not need to be placed on a wire
    // to be associated with it. KiCad needs to move them, so the labels actually touch the
    // corresponding wires.
 
    // Sort the intersection points to speed up the search process
    std::sort( m_wireIntersections.begin(), m_wireIntersections.end() );
 
    auto onIntersection =
            [&]( const VECTOR2I& aPos )
            {
                return std::binary_search( m_wireIntersections.begin(), m_wireIntersections.end(), aPos );
            };
 
    for( SEG_DESC& segDesc : m_segments )
    {
        for( SCH_LABEL_BASE* label : segDesc.labels )
        {
            VECTOR2I   labelPos( label->GetPosition() );
            const SEG* segAttached = segDesc.LabelAttached( label );
 
            if( segAttached && !onIntersection( labelPos ) )
                continue; // label is placed correctly
 
            // Move the label to the nearest wire
            if( !segAttached )
            {
                std::tie( labelPos, segAttached ) = findNearestLinePoint( label->GetPosition(), segDesc.segs );
 
                if( !segAttached ) // we cannot do anything
                    continue;
            }
 
            // Create a vector pointing in the direction of the wire, 50 mils long
            VECTOR2I wireDirection( segAttached->B - segAttached->A );
 
            if( ( wireDirection.x == 0 ) && (wireDirection.y == 0 ) )
                continue;
 
            wireDirection = wireDirection.Resize( schIUScale.MilsToIU( 50 ) );
            const VECTOR2I origPos( labelPos );
 
            // Flags determining the search direction
            bool checkPositive = true;
            bool checkNegative = true;
            bool move = false;
            int  trial = 0;
 
            // Be sure the label is not placed on a wire intersection
            while( ( !move || onIntersection( labelPos ) ) && ( checkPositive || checkNegative ) )
            {
                move = false;
 
                // Move along the attached wire to find the new label position
                if( trial % 2 == 1 )
                {
                    labelPos = VECTOR2I( origPos + wireDirection * trial / 2 );
                    move = checkPositive = segAttached->Contains( labelPos );
                }
                else
                {
                    labelPos = VECTOR2I( origPos - wireDirection * trial / 2 );
                    move = checkNegative = segAttached->Contains( labelPos );
                }
 
                ++trial;
            }
 
            if( move )
            {
                label->SetPosition( VECTOR2I( labelPos ) );
 
                if( wireDirection.x == 0 )        // Moved vertically
                {
                    if( wireDirection.y < 0 )
                        label->SetSpinStyle( SPIN_STYLE::UP );
                    else
                        label->SetSpinStyle( SPIN_STYLE::BOTTOM );
                }
                else if( wireDirection.y == 0 )   // Moved horizontally
                {
                    if( wireDirection.x < 0 )
                        label->SetSpinStyle( SPIN_STYLE::LEFT );
                    else
                        label->SetSpinStyle( SPIN_STYLE::RIGHT );
                }
            }
        }
    }
 
    m_segments.clear();
    m_wireIntersections.clear();
}
 
 
bool SCH_IO_EAGLE::CanReadSchematicFile( const wxString& aFileName ) const
{
    if( !SCH_IO::CanReadSchematicFile( aFileName ) )
        return false;
 
    return checkHeader( aFileName );
}
 
 
bool SCH_IO_EAGLE::CanReadLibrary( const wxString& aFileName ) const
{
    if( !SCH_IO::CanReadLibrary( aFileName ) )
        return false;
 
    return checkHeader( aFileName );
}
 
 
bool SCH_IO_EAGLE::checkHeader( const wxString& aFileName ) const
{
    wxFileInputStream input( aFileName );
 
    if( !input.IsOk() )
        return false;
 
    // Pre-v6 schematics are a binary stream identified by a two-byte magic.
    if( EAGLE_BIN_PARSER::IsBinaryEagle( input ) )
        return true;
 
    wxTextInputStream text( input );
 
    for( int i = 0; i < 8; i++ )
    {
        if( input.Eof() )
            return false;
 
        if( text.ReadLine().Contains( wxS( "<eagle" ) ) )
            return true;
    }
 
    return false;
}
 
 
void SCH_IO_EAGLE::moveLabels( SCH_LINE* aWire, const VECTOR2I& aNewEndPoint )
{
    wxCHECK( aWire, /* void */ );
 
    SCH_SCREEN* screen = getCurrentScreen();
 
    wxCHECK( screen, /* void */ );
 
    for( SCH_ITEM* item : screen->Items().Overlapping( aWire->GetBoundingBox() ) )
    {
        if( !item->IsType( { SCH_LABEL_LOCATE_ANY_T } ) )
            continue;
 
        if( TestSegmentHit( item->GetPosition(), aWire->GetStartPoint(), aWire->GetEndPoint(), 0 ) )
            item->SetPosition( aNewEndPoint );
    }
}
 
 
void SCH_IO_EAGLE::addBusEntries()
{
    // Add bus entry symbols
    // TODO: Cleanup this function and break into pieces
 
    // for each wire segment, compare each end with all busses.
    // If the wire end is found to end on a bus segment, place a bus entry symbol.
 
    std::vector<SCH_LINE*> buses;
    std::vector<SCH_LINE*> wires;
 
    SCH_SCREEN* screen = getCurrentScreen();
 
    wxCHECK( screen, /* void */ );
 
    for( SCH_ITEM* ii : screen->Items().OfType( SCH_LINE_T ) )
    {
        SCH_LINE* line = static_cast<SCH_LINE*>( ii );
 
        if( line->IsBus() )
            buses.push_back( line );
        else if( line->IsWire() )
            wires.push_back( line );
    }
 
    for( SCH_LINE* wire : wires )
    {
        VECTOR2I wireStart = wire->GetStartPoint();
        VECTOR2I wireEnd = wire->GetEndPoint();
 
        for( SCH_LINE* bus : buses )
        {
            VECTOR2I busStart = bus->GetStartPoint();
            VECTOR2I busEnd = bus->GetEndPoint();
 
            auto entrySize =
                    []( int signX, int signY ) -> VECTOR2I
                    {
                        return VECTOR2I( schIUScale.MilsToIU( DEFAULT_SCH_ENTRY_SIZE ) * signX,
                                         schIUScale.MilsToIU( DEFAULT_SCH_ENTRY_SIZE ) * signY );
                    };
 
            auto testBusHit =
                    [&]( const VECTOR2I& aPt ) -> bool
                    {
                        return TestSegmentHit( aPt, busStart, busEnd, 0 );
                    };
 
            if( wireStart.y == wireEnd.y && busStart.x == busEnd.x )
            {
                // Horizontal wire and vertical bus
 
                if( testBusHit( wireStart ) )
                {
                    // Wire start is on the vertical bus
 
                    if( wireEnd.x < busStart.x )
                    {
                        /* the end of the wire is to the left of the bus
                         *         ⎥⎢
                         *   ——————⎥⎢
                         *         ⎥⎢
                         */
                        VECTOR2I p = wireStart + entrySize( -1, 0 );
 
                        if( testBusHit( wireStart + entrySize( 0, -1 )  ) )
                        {
                            /* there is room above the wire for the bus entry
                             *         ⎥⎢
                             *   _____/⎥⎢
                             *         ⎥⎢
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 1 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, p );
                            wire->SetStartPoint( p );
                        }
                        else if( testBusHit( wireStart + entrySize( 0, 1 ) ) )
                        {
                            /* there is room below the wire for the bus entry
                             *   _____ ⎥⎢
                             *        \⎥⎢
                             *         ⎥⎢
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 2 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, p );
                            wire->SetStartPoint( p );
                        }
                        else
                        {
                            std::shared_ptr<ERC_ITEM> ercItem = ERC_ITEM::Create( ERCE_BUS_ENTRY_NEEDED );
                            screen->Append( new SCH_MARKER( std::move( ercItem ), wireStart ) );
                        }
                    }
                    else
                    {
                        /* the wire end is to the right of the bus
                         *   ⎥⎢
                         *   ⎥⎢——————
                         *   ⎥⎢
                         */
                        VECTOR2I p = wireStart + entrySize( 1, 0 );
 
                        if( testBusHit( wireStart + entrySize( 0, -1 ) ) )
                        {
                            /* There is room above the wire for the bus entry
                             *   ⎥⎢
                             *   ⎥⎢\_____
                             *   ⎥⎢
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p , 4 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, p );
                            wire->SetStartPoint( p );
                        }
                        else if( testBusHit( wireStart + entrySize( 0, 1 ) ) )
                        {
                            /* There is room below the wire for the bus entry
                             *   ⎥⎢ _____
                             *   ⎥⎢/
                             *   ⎥⎢
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 3 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, p );
                            wire->SetStartPoint( p );
                        }
                        else
                        {
                            std::shared_ptr<ERC_ITEM> ercItem = ERC_ITEM::Create( ERCE_BUS_ENTRY_NEEDED );
                            screen->Append( new SCH_MARKER( std::move( ercItem ), wireStart ) );
                        }
                    }
 
                    break;
                }
                else if( testBusHit( wireEnd ) )
                {
                    // Wire end is on the vertical bus
 
                    if( wireStart.x < busStart.x )
                    {
                        /* start of the wire is to the left of the bus
                         *        ⎥⎢
                         *  ——————⎥⎢
                         *        ⎥⎢
                         */
                        VECTOR2I p = wireEnd + entrySize( -1, 0 );
 
                        if( testBusHit( wireEnd + entrySize( 0, -1 ) ) )
                        {
                            /* there is room above the wire for the bus entry
                             *         ⎥⎢
                             *   _____/⎥⎢
                             *         ⎥⎢
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 1 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, p );
                            wire->SetEndPoint( p );
                        }
                        else if( testBusHit( wireEnd + entrySize( 0, -1 ) ) )
                        {
                            /* there is room below the wire for the bus entry
                             *   _____ ⎥⎢
                             *        \⎥⎢
                             *         ⎥⎢
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 2 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, wireEnd + entrySize( -1, 0 ) );
                            wire->SetEndPoint( wireEnd + entrySize( -1, 0 ) );
                        }
                        else
                        {
                            std::shared_ptr<ERC_ITEM> ercItem = ERC_ITEM::Create( ERCE_BUS_ENTRY_NEEDED );
                            screen->Append( new SCH_MARKER( std::move( ercItem ), wireEnd ) );
                        }
                    }
                    else
                    {
                        /* the start of the wire is to the right of the bus
                         *   ⎥⎢
                         *   ⎥⎢——————
                         *   ⎥⎢
                         */
                        VECTOR2I p = wireEnd + entrySize( 1, 0 );
 
                        if( testBusHit( wireEnd + entrySize( 0, -1 ) ) )
                        {
                            /* There is room above the wire for the bus entry
                             *   ⎥⎢
                             *   ⎥⎢\_____
                             *   ⎥⎢
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 4 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, p );
                            wire->SetEndPoint( p );
                        }
                        else if( testBusHit( wireEnd + entrySize( 0, 1 ) ) )
                        {
                            /* There is room below the wire for the bus entry
                             *   ⎥⎢ _____
                             *   ⎥⎢/
                             *   ⎥⎢
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 3 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, p );
                            wire->SetEndPoint( p );
                        }
                        else
                        {
                            std::shared_ptr<ERC_ITEM> ercItem = ERC_ITEM::Create( ERCE_BUS_ENTRY_NEEDED );
                            screen->Append( new SCH_MARKER( std::move( ercItem ), wireEnd ) );
                        }
                    }
 
                    break;
                }
            }
            else if( wireStart.x == wireEnd.x && busStart.y == busEnd.y )
            {
                // Vertical wire and horizontal bus
 
                if( testBusHit( wireStart ) )
                {
                    // Wire start is on the bus
 
                    if( wireEnd.y < busStart.y )
                    {
                        /* the end of the wire is above the bus
                         *      |
                         *      |
                         *      |
                         *   =======
                         */
                        VECTOR2I p = wireStart + entrySize( 0, -1 );
 
                        if( testBusHit( wireStart + entrySize( -1, 0 ) ) )
                        {
                            /* there is room to the left of the wire for the bus entry
                             *      |
                             *      |
                             *     /
                             *  =======
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 3 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, p );
                            wire->SetStartPoint( p );
                        }
                        else if( testBusHit( wireStart + entrySize( 1, 0 ) ) )
                        {
                            /* there is room to the right of the wire for the bus entry
                             *    |
                             *    |
                             *     \
                             *  =======
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 2 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, p );
                            wire->SetStartPoint( p );
                        }
                        else
                        {
                            std::shared_ptr<ERC_ITEM> ercItem = ERC_ITEM::Create( ERCE_BUS_ENTRY_NEEDED );
                            screen->Append( new SCH_MARKER( std::move( ercItem ), wireStart ) );
                        }
                    }
                    else
                    {
                        /* wire end is below the bus
                         *   =======
                         *      |
                         *      |
                         *      |
                         */
                        VECTOR2I p = wireStart + entrySize( 0, 1 );
 
                        if( testBusHit( wireStart + entrySize( -1, 0 ) ) )
                        {
                            /* there is room to the left of the wire for the bus entry
                             *  =======
                             *     \
                             *      |
                             *      |
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 4 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, p );
                            wire->SetStartPoint( p );
                        }
                        else if( testBusHit( wireStart + entrySize( 1, 0 ) ) )
                        {
                            /* there is room to the right of the wire for the bus entry
                             *  =======
                             *     /
                             *    |
                             *    |
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 1 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, p );
                            wire->SetStartPoint( p );
                        }
                        else
                        {
                            std::shared_ptr<ERC_ITEM> ercItem = ERC_ITEM::Create( ERCE_BUS_ENTRY_NEEDED );
                            screen->Append( new SCH_MARKER( std::move( ercItem ), wireStart ) );
                        }
                    }
 
                    break;
                }
                else if( testBusHit( wireEnd ) )
                {
                    // Wire end is on the bus
 
                    if( wireStart.y < busStart.y )
                    {
                        /* the start of the wire is above the bus
                         *      |
                         *      |
                         *      |
                         *   =======
                         */
                        VECTOR2I p = wireEnd + entrySize( 0, -1 );
 
                        if( testBusHit( wireEnd + entrySize( -1, 0 ) ) )
                        {
                            /* there is room to the left of the wire for the bus entry
                             *      |
                             *      |
                             *     /
                             *  =======
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 3 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, p );
                            wire->SetEndPoint( p );
                        }
                        else if( testBusHit( wireEnd + entrySize( 1, 0 ) ) )
                        {
                            /* there is room to the right of the wire for the bus entry
                             *    |
                             *    |
                             *     \
                             *  =======
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 2 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, p );
                            wire->SetEndPoint( p );
                        }
                        else
                        {
                            std::shared_ptr<ERC_ITEM> ercItem = ERC_ITEM::Create( ERCE_BUS_ENTRY_NEEDED );
                            screen->Append( new SCH_MARKER( std::move( ercItem ), wireEnd ) );
                        }
                    }
                    else
                    {
                        /* wire start is below the bus
                         *   =======
                         *      |
                         *      |
                         *      |
                         */
                        VECTOR2I p = wireEnd + entrySize( 0, 1 );
 
                        if( testBusHit( wireEnd + entrySize( -1, 0 ) ) )
                        {
                            /* there is room to the left of the wire for the bus entry
                             *  =======
                             *     \
                             *      |
                             *      |
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 4 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, p );
                            wire->SetEndPoint( p );
                        }
                        else if( testBusHit( wireEnd + entrySize( 1, 0 ) ) )
                        {
                            /* there is room to the right of the wire for the bus entry
                             *  =======
                             *     /
                             *    |
                             *    |
                             */
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 1 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
                            moveLabels( wire, p );
                            wire->SetEndPoint( p );
                        }
                        else
                        {
                            std::shared_ptr<ERC_ITEM> ercItem = ERC_ITEM::Create( ERCE_BUS_ENTRY_NEEDED );
                            screen->Append( new SCH_MARKER( std::move( ercItem ), wireEnd ) );
                        }
                    }
 
                    break;
                }
            }
            else
            {
                // Wire isn't horizontal or vertical
 
                if( testBusHit( wireStart ) )
                {
                    VECTOR2I wirevector = wireStart - wireEnd;
 
                    if( wirevector.x > 0 )
                    {
                        if( wirevector.y > 0 )
                        {
                            VECTOR2I            p = wireStart + entrySize( -1, -1 );
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 2 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
 
                            moveLabels( wire, p );
                            wire->SetStartPoint( p );
                        }
                        else
                        {
                            VECTOR2I            p = wireStart + entrySize( -1, 1 );
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 1 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
 
                            moveLabels( wire, p );
                            wire->SetStartPoint( p );
                        }
                    }
                    else
                    {
                        if( wirevector.y > 0 )
                        {
                            VECTOR2I            p = wireStart + entrySize( 1, -1 );
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 3 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
 
                            moveLabels( wire, p );
                            wire->SetStartPoint( p );
                        }
                        else
                        {
                            VECTOR2I            p = wireStart + entrySize( 1, 1 );
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 4 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
 
                            moveLabels( wire, p );
                            wire->SetStartPoint( p );
                        }
                    }
 
                    break;
                }
                else if( testBusHit( wireEnd ) )
                {
                    VECTOR2I wirevector = wireStart - wireEnd;
 
                    if( wirevector.x > 0 )
                    {
                        if( wirevector.y > 0 )
                        {
                            VECTOR2I            p = wireEnd + entrySize( 1, 1 );
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 4 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
 
                            moveLabels( wire, p );
                            wire->SetEndPoint( p );
                        }
                        else
                        {
                            VECTOR2I            p = wireEnd + entrySize( 1, -1 );
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 3 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
 
                            moveLabels( wire, p );
                            wire->SetEndPoint( p );
                        }
                    }
                    else
                    {
                        if( wirevector.y > 0 )
                        {
                            VECTOR2I            p = wireEnd + entrySize( -1, 1 );
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 1 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
 
                            moveLabels( wire, p );
                            wire->SetEndPoint( p );
                        }
                        else
                        {
                            VECTOR2I            p = wireEnd + entrySize( -1, -1 );
                            SCH_BUS_WIRE_ENTRY* busEntry = new SCH_BUS_WIRE_ENTRY( p, 2 );
                            busEntry->SetFlags( IS_NEW );
                            screen->Append( busEntry );
 
                            moveLabels( wire, p );
                            wire->SetEndPoint( p );
                        }
                    }
 
                    break;
                }
            }
        }
    }
}
 
 
const SEG* SCH_IO_EAGLE::SEG_DESC::LabelAttached( const SCH_LABEL_BASE* aLabel ) const
{
    wxCHECK( aLabel, nullptr );
 
    VECTOR2I labelPos( aLabel->GetPosition() );
 
    for( const SEG& seg : segs )
    {
        if( seg.Contains( labelPos ) )
            return &seg;
    }
 
    return nullptr;
}
 
 
// TODO could be used to place junctions, instead of IsJunctionNeeded()
// (see SCH_EDIT_FRAME::importFile())
bool SCH_IO_EAGLE::checkConnections( const SCH_SYMBOL* aSymbol, const SCH_PIN* aPin ) const
{
    wxCHECK( aSymbol && aPin, false );
 
    VECTOR2I pinPosition = aSymbol->GetPinPhysicalPosition( aPin );
    auto     pointIt     = m_connPoints.find( pinPosition );
 
    if( pointIt == m_connPoints.end() )
        return false;
 
    const std::set<const EDA_ITEM*>& items = pointIt->second;
 
    wxCHECK( items.find( aPin ) != items.end(), false );
 
    return items.size() > 1;
}
 
 
void SCH_IO_EAGLE::addImplicitConnections( SCH_SYMBOL* aSymbol, SCH_SCREEN* aScreen, bool aUpdateSet )
{
    wxCHECK( aSymbol && aScreen && aSymbol->GetLibSymbolRef(), /*void*/ );
 
    // Normally power parts also have power input pins,
    // but they already force net names on the attached wires
    if( aSymbol->GetLibSymbolRef()->IsGlobalPower() )
        return;
 
    int                   unit      = aSymbol->GetUnit();
    const wxString        reference = aSymbol->GetField( FIELD_T::REFERENCE )->GetText();
    std::vector<SCH_PIN*> pins      = aSymbol->GetLibSymbolRef()->GetGraphicalPins( 0, 0 );
    std::set<int>         missingUnits;
 
    // Search all units for pins creating implicit connections
    for( const SCH_PIN* pin : pins )
    {
        if( pin->GetType() == ELECTRICAL_PINTYPE::PT_POWER_IN )
        {
            bool pinInUnit = !unit || pin->GetUnit() == unit; // pin belongs to the tested unit
 
            // Create a global net label only if there are no other wires/pins attached
            if( pinInUnit )
            {
                if( !checkConnections( aSymbol, pin ) )
                {
                    // Create a net label to force the net name on the pin
                    SCH_GLOBALLABEL* netLabel = new SCH_GLOBALLABEL;
                    netLabel->SetPosition( aSymbol->GetPinPhysicalPosition( pin ) );
                    netLabel->SetText( extractNetName( pin->GetName() ) );
                    netLabel->SetTextSize( VECTOR2I( schIUScale.MilsToIU( 40 ), schIUScale.MilsToIU( 40 ) ) );
 
                    switch( pin->GetOrientation() )
                    {
                    default:
                    case PIN_ORIENTATION::PIN_RIGHT: netLabel->SetSpinStyle( SPIN_STYLE::LEFT );   break;
                    case PIN_ORIENTATION::PIN_LEFT:  netLabel->SetSpinStyle( SPIN_STYLE::RIGHT );  break;
                    case PIN_ORIENTATION::PIN_UP:    netLabel->SetSpinStyle( SPIN_STYLE::BOTTOM ); break;
                    case PIN_ORIENTATION::PIN_DOWN:  netLabel->SetSpinStyle( SPIN_STYLE::UP );     break;
                    }
 
                    aScreen->Append( netLabel );
                }
            }
            else if( aUpdateSet )
            {
                // Found a pin creating implicit connection information in another unit.
                // Such units will be instantiated if they do not appear in another sheet and
                // processed later.
                wxASSERT( pin->GetUnit() );
                missingUnits.insert( pin->GetUnit() );
            }
        }
    }
 
    if( aUpdateSet && aSymbol->GetLibSymbolRef()->GetUnitCount() > 1 )
    {
        auto cmpIt = m_missingCmps.find( reference );
 
        // The first unit found has always already been processed.
        if( cmpIt == m_missingCmps.end() )
        {
            EAGLE_MISSING_CMP& entry = m_missingCmps[reference];
            entry.cmp                = aSymbol;
            entry.screen             = aScreen;
            entry.units.emplace( unit, false );
        }
        else
        {
            // Set the flag indicating this unit has been processed.
            cmpIt->second.units[unit] = false;
        }
 
        if( !missingUnits.empty() )        // Save the units that need later processing
        {
            EAGLE_MISSING_CMP& entry = m_missingCmps[reference];
            entry.cmp                = aSymbol;
            entry.screen             = aScreen;
 
            // Add units that haven't already been processed.
            for( int i : missingUnits )
            {
                if( entry.units.find( i ) != entry.units.end() )
                    entry.units.emplace( i, true );
            }
        }
    }
}
 
 
wxString SCH_IO_EAGLE::translateEagleBusName( const wxString& aEagleName ) const
{
    if( NET_SETTINGS::ParseBusVector( aEagleName, nullptr, nullptr ) )
        return aEagleName;
 
    wxString ret = wxT( "{" );
 
    wxStringTokenizer tokenizer( aEagleName, "," );
 
    while( tokenizer.HasMoreTokens() )
    {
        wxString member = tokenizer.GetNextToken();
 
        // In Eagle, overbar text is automatically stopped at the end of the net name, even when
        // that net name is part of a bus definition.  In KiCad, we don't (currently) do that, so
        // if there is an odd number of overbar markers in this net name, we need to append one
        // to close it out before appending the space.
 
        if( member.Freq( '!' ) % 2 > 0 )
            member << wxT( "!" );
 
        ret << member << wxS( " " );
    }
 
    ret.Trim( true );
    ret << wxT( "}" );
 
    return ret;
}
 
 
const ESYMBOL* SCH_IO_EAGLE::getEagleSymbol( const std::unique_ptr<EINSTANCE>& aInstance )
{
    wxCHECK( m_eagleDoc && m_eagleDoc->drawing && m_eagleDoc->drawing->schematic && aInstance, nullptr );
 
    std::unique_ptr<EPART>& epart = m_eagleDoc->drawing->schematic->parts[aInstance->part];
 
    if( !epart || epart->deviceset.IsEmpty() )
        return nullptr;
 
    std::unique_ptr<ELIBRARY>& elibrary = m_eagleDoc->drawing->schematic->libraries[epart->library];
 
    if( !elibrary )
        return nullptr;
 
    std::unique_ptr<EDEVICE_SET>& edeviceset = elibrary->devicesets[epart->deviceset];
 
    if( !edeviceset )
        return nullptr;
 
    std::unique_ptr<EGATE>& egate = edeviceset->gates[aInstance->gate];
 
    if( !egate )
        return nullptr;
 
    std::unique_ptr<ESYMBOL>& esymbol = elibrary->symbols[egate->symbol];
 
    if( esymbol )
        return esymbol.get();
 
    return nullptr;
}
 
 
void SCH_IO_EAGLE::getEagleSymbolFieldAttributes( const std::unique_ptr<EINSTANCE>& aInstance,
                                                  const wxString& aEagleFieldName,
                                                  SCH_FIELD* aField )
{
    wxCHECK( aField && !aEagleFieldName.IsEmpty(), /* void */ );
 
    const ESYMBOL* esymbol = getEagleSymbol( aInstance );
 
    if( esymbol )
    {
        for( const std::unique_ptr<ETEXT>& text : esymbol->texts )
        {
            if( text->text == aEagleFieldName )
            {
                aField->SetVisible( true );
                VECTOR2I pos( text->x.ToSchUnits() + aInstance->x.ToSchUnits(),
                              -text->y.ToSchUnits() - aInstance->y.ToSchUnits() );
 
                bool mirror = text->rot ? text->rot->mirror : false;
 
                if( aInstance->rot.has_value() && aInstance->rot.value().mirror )
                    mirror = !mirror;
 
                if( mirror )
                    pos.y = -aInstance->y.ToSchUnits() + text->y.ToSchUnits();
 
                aField->SetPosition( pos );
            }
        }
    }
}
 
 
VECTOR2I SCH_IO_EAGLE::getLastSymbolFieldPosition( const LIB_SYMBOL* aPart )
{
    VECTOR2I retv;
 
    std::vector<SCH_FIELD*> fields;
    aPart->GetFields( fields );
 
    if( fields.size() )
    {
        retv = fields[0]->GetPosition();
 
        for( size_t i = 1; i < fields.size(); i++ )
        {
            if( fields[i]->GetPosition().x > retv.x )
                retv.x = fields[i]->GetPosition().x;
 
            if( fields[i]->GetPosition().y > retv.y )
                retv.y = fields[i]->GetPosition().y;
        }
    }
 
    return retv;
}