sch_sexpr_plugin.cpp

Go to the documentation of this file.

/*
 * This program source code file is part of KiCad, a free EDA CAD application.
 *
 * Copyright (C) 2020 CERN
 * Copyright (C) 2021-2023 KiCad Developers, see AUTHORS.txt for contributors.
 *
 * @author Wayne Stambaugh <[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 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License along
 * with this program. If not, see <http://www.gnu.org/licenses/>.
 */
 
#include <algorithm>
 
// For some reason wxWidgets is built with wxUSE_BASE64 unset so expose the wxWidgets
// base64 code.
#define wxUSE_BASE64 1
#include <wx/base64.h>
#include <wx/log.h>
#include <wx/mstream.h>
#include <advanced_config.h>
#include <base_units.h>
#include <trace_helpers.h>
#include <locale_io.h>
#include <sch_bitmap.h>
#include <sch_bus_entry.h>
#include <sch_symbol.h>
#include <sch_edit_frame.h> // SYMBOL_ORIENTATION_T
#include <sch_junction.h>
#include <sch_line.h>
#include <sch_shape.h>
#include <sch_no_connect.h>
#include <sch_text.h>
#include <sch_textbox.h>
#include <sch_sheet.h>
#include <sch_sheet_pin.h>
#include <schematic.h>
#include <sch_plugins/kicad/sch_sexpr_plugin.h>
#include <sch_screen.h>
#include <lib_shape.h>
#include <lib_pin.h>
#include <lib_text.h>
#include <lib_textbox.h>
#include <eeschema_id.h> // for MAX_UNIT_COUNT_PER_PACKAGE definition
#include <sch_file_versions.h>
#include <schematic_lexer.h>
#include <sch_plugins/kicad/sch_sexpr_parser.h>
#include "sch_sexpr_lib_plugin_cache.h"
#include "sch_sexpr_plugin_common.h"
#include <symbol_lib_table.h> // for PropPowerSymsOnly definition.
#include <ee_selection.h>
#include <string_utils.h>
#include <wx_filename.h> // for ::ResolvePossibleSymlinks()
#include <progress_reporter.h>
#include <boost/algorithm/string/join.hpp>
 
using namespace TSCHEMATIC_T;
 
 
#define SCH_PARSE_ERROR( text, reader, pos ) \
 THROW_PARSE_ERROR( text, reader.GetSource(), reader.Line(), \
 reader.LineNumber(), pos - reader.Line() )
 
 
SCH_SEXPR_PLUGIN::SCH_SEXPR_PLUGIN() :
 m_progressReporter( nullptr )
{
 init( nullptr );
}
 
 
SCH_SEXPR_PLUGIN::~SCH_SEXPR_PLUGIN()
{
 delete m_cache;
}
 
 
void SCH_SEXPR_PLUGIN::init( SCHEMATIC* aSchematic, const STRING_UTF8_MAP* aProperties )
{
 m_version = 0;
 m_appending = false;
 m_rootSheet = nullptr;
 m_schematic = aSchematic;
 m_cache = nullptr;
 m_out = nullptr;
 m_nextFreeFieldId = 100; // number arbitrarily > MANDATORY_FIELDS or SHEET_MANDATORY_FIELDS
}
 
 
SCH_SHEET* SCH_SEXPR_PLUGIN::Load( const wxString& aFileName, SCHEMATIC* aSchematic,
 SCH_SHEET* aAppendToMe, const STRING_UTF8_MAP* aProperties )
{
 wxASSERT( !aFileName || aSchematic != nullptr );
 
 LOCALE_IO toggle; // toggles on, then off, the C locale.
 SCH_SHEET* sheet;
 
 wxFileName fn = aFileName;
 
 // Unfortunately child sheet file names the legacy schematic file format are not fully
 // qualified and are always appended to the project path. The aFileName attribute must
 // always be an absolute path so the project path can be used for load child sheet files.
 wxASSERT( fn.IsAbsolute() );
 
 if( aAppendToMe )
 {
 m_appending = true;
 wxLogTrace( traceSchPlugin, "Append \"%s\" to sheet \"%s\".",
 aFileName, aAppendToMe->GetFileName() );
 
 wxFileName normedFn = aAppendToMe->GetFileName();
 
 if( !normedFn.IsAbsolute() )
 {
 if( aFileName.Right( normedFn.GetFullPath().Length() ) == normedFn.GetFullPath() )
 m_path = aFileName.Left( aFileName.Length() - normedFn.GetFullPath().Length() );
 }
 
 if( m_path.IsEmpty() )
 m_path = aSchematic->Prj().GetProjectPath();
 
 wxLogTrace( traceSchPlugin, "Normalized append path \"%s\".", m_path );
 }
 else
 {
 m_path = aSchematic->Prj().GetProjectPath();
 }
 
 m_currentPath.push( m_path );
 init( aSchematic, aProperties );
 
 if( aAppendToMe == nullptr )
 {
 // Clean up any allocated memory if an exception occurs loading the schematic.
 std::unique_ptr<SCH_SHEET> newSheet = std::make_unique<SCH_SHEET>( aSchematic );
 
 wxFileName relPath( aFileName );
 
 // Do not use wxPATH_UNIX as option in MakeRelativeTo(). It can create incorrect
 // relative paths on Windows, because paths have a disk identifier (C:, D: ...)
 relPath.MakeRelativeTo( aSchematic->Prj().GetProjectPath() );
 
 newSheet->SetFileName( relPath.GetFullPath() );
 m_rootSheet = newSheet.get();
 loadHierarchy( SCH_SHEET_PATH(), newSheet.get() );
 
 // If we got here, the schematic loaded successfully.
 sheet = newSheet.release();
 m_rootSheet = nullptr; // Quiet Coverity warning.
 }
 else
 {
 wxCHECK_MSG( aSchematic->IsValid(), nullptr, "Can't append to a schematic with no root!" );
 m_rootSheet = &aSchematic->Root();
 sheet = aAppendToMe;
 loadHierarchy( SCH_SHEET_PATH(), sheet );
 }
 
 wxASSERT( m_currentPath.size() == 1 ); // only the project path should remain
 
 m_currentPath.pop(); // Clear the path stack for next call to Load
 
 return sheet;
}
 
 
// Everything below this comment is recursive. Modify with care.
 
void SCH_SEXPR_PLUGIN::loadHierarchy( const SCH_SHEET_PATH& aParentSheetPath, SCH_SHEET* aSheet )
{
 m_currentSheetPath.push_back( aSheet );
 
 SCH_SCREEN* screen = nullptr;
 
 if( !aSheet->GetScreen() )
 {
 // SCH_SCREEN objects store the full path and file name where the SCH_SHEET object only
 // stores the file name and extension. Add the project path to the file name and
 // extension to compare when calling SCH_SHEET::SearchHierarchy().
 wxFileName fileName = aSheet->GetFileName();
 
 if( !fileName.IsAbsolute() )
 fileName.MakeAbsolute( m_currentPath.top() );
 
 // Save the current path so that it gets restored when descending and ascending the
 // sheet hierarchy which allows for sheet schematic files to be nested in folders
 // relative to the last path a schematic was loaded from.
 wxLogTrace( traceSchPlugin, "Saving path '%s'", m_currentPath.top() );
 m_currentPath.push( fileName.GetPath() );
 wxLogTrace( traceSchPlugin, "Current path '%s'", m_currentPath.top() );
 wxLogTrace( traceSchPlugin, "Loading '%s'", fileName.GetFullPath() );
 
 SCH_SHEET_PATH ancestorSheetPath = aParentSheetPath;
 
 while( !ancestorSheetPath.empty() )
 {
 if( ancestorSheetPath.LastScreen()->GetFileName() == fileName.GetFullPath() )
 {
 if( !m_error.IsEmpty() )
 m_error += "\n";
 
 m_error += wxString::Format( _( "Could not load sheet '%s' because it already "
 "appears as a direct ancestor in the schematic "
 "hierarchy." ),
  fileName.GetFullPath() );
 
 fileName = wxEmptyString;
 
 break;
 }
 
 ancestorSheetPath.pop_back();
 }
 
 if( ancestorSheetPath.empty() )
 {
 // Existing schematics could be either in the root sheet path or the current sheet
 // load path so we have to check both.
 if( !m_rootSheet->SearchHierarchy( fileName.GetFullPath(), &screen ) )
 m_currentSheetPath.at( 0 )->SearchHierarchy( fileName.GetFullPath(), &screen );
 }
 
 if( screen )
 {
 aSheet->SetScreen( screen );
 aSheet->GetScreen()->SetParent( m_schematic );
 // Do not need to load the sub-sheets - this has already been done.
 }
 else
 {
 aSheet->SetScreen( new SCH_SCREEN( m_schematic ) );
 aSheet->GetScreen()->SetFileName( fileName.GetFullPath() );
 
 try
 {
 loadFile( fileName.GetFullPath(), aSheet );
 }
 catch( const IO_ERROR& ioe )
 {
 // If there is a problem loading the root sheet, there is no recovery.
 if( aSheet == m_rootSheet )
 throw;
 
 // For all subsheets, queue up the error message for the caller.
 if( !m_error.IsEmpty() )
 m_error += "\n";
 
 m_error += ioe.What();
 }
 
 if( fileName.FileExists() )
 {
 aSheet->GetScreen()->SetFileReadOnly( !fileName.IsFileWritable() );
 aSheet->GetScreen()->SetFileExists( true );
 }
 else
 {
 aSheet->GetScreen()->SetFileReadOnly( !fileName.IsDirWritable() );
 aSheet->GetScreen()->SetFileExists( false );
 }
 
 SCH_SHEET_PATH currentSheetPath = aParentSheetPath;
 currentSheetPath.push_back( aSheet );
 
 // This was moved out of the try{} block so that any sheet definitions that
 // the plugin fully parsed before the exception was raised will be loaded.
 for( SCH_ITEM* aItem : aSheet->GetScreen()->Items().OfType( SCH_SHEET_T ) )
 {
 wxCHECK2( aItem->Type() == SCH_SHEET_T, /* do nothing */ );
 SCH_SHEET* sheet = static_cast<SCH_SHEET*>( aItem );
 
 // Recursion starts here.
 loadHierarchy( currentSheetPath, sheet );
 }
 }
 
 m_currentPath.pop();
 wxLogTrace( traceSchPlugin, "Restoring path \"%s\"", m_currentPath.top() );
 }
 
 m_currentSheetPath.pop_back();
}
 
 
void SCH_SEXPR_PLUGIN::loadFile( const wxString& aFileName, SCH_SHEET* aSheet )
{
 FILE_LINE_READER reader( aFileName );
 
 size_t lineCount = 0;
 
 if( m_progressReporter )
 {
 m_progressReporter->Report( wxString::Format( _( "Loading %s..." ), aFileName ) );
 
 if( !m_progressReporter->KeepRefreshing() )
 THROW_IO_ERROR( ( "Open cancelled by user." ) );
 
 while( reader.ReadLine() )
 lineCount++;
 
 reader.Rewind();
 }
 
 SCH_SEXPR_PARSER parser( &reader, m_progressReporter, lineCount, m_rootSheet, m_appending );
 
 parser.ParseSchematic( aSheet );
}
 
 
void SCH_SEXPR_PLUGIN::LoadContent( LINE_READER& aReader, SCH_SHEET* aSheet, int aFileVersion )
{
 wxCHECK( aSheet, /* void */ );
 
 LOCALE_IO toggle;
 SCH_SEXPR_PARSER parser( &aReader );
 
 parser.ParseSchematic( aSheet, true, aFileVersion );
}
 
 
void SCH_SEXPR_PLUGIN::Save( const wxString& aFileName, SCH_SHEET* aSheet, SCHEMATIC* aSchematic,
 const STRING_UTF8_MAP* aProperties )
{
 wxCHECK_RET( aSheet != nullptr, "NULL SCH_SHEET object." );
 wxCHECK_RET( !aFileName.IsEmpty(), "No schematic file name defined." );
 
 LOCALE_IO toggle; // toggles on, then off, the C locale, to write floating point values.
 
 init( aSchematic, aProperties );
 
 wxFileName fn = aFileName;
 
 // File names should be absolute. Don't assume everything relative to the project path
 // works properly.
 wxASSERT( fn.IsAbsolute() );
 
 FILE_OUTPUTFORMATTER formatter( fn.GetFullPath() );
 
 m_out = &formatter; // no ownership
 
 Format( aSheet );
 
 if( aSheet->GetScreen() )
 aSheet->GetScreen()->SetFileExists( true );
}
 
 
void SCH_SEXPR_PLUGIN::Format( SCH_SHEET* aSheet )
{
 wxCHECK_RET( aSheet != nullptr, "NULL SCH_SHEET* object." );
 wxCHECK_RET( m_schematic != nullptr, "NULL SCHEMATIC* object." );
 
 SCH_SCREEN* screen = aSheet->GetScreen();
 
 wxCHECK( screen, /* void */ );
 
 m_out->Print( 0, "(kicad_sch (version %d) (generator eeschema)\n\n",
 SEXPR_SCHEMATIC_FILE_VERSION );
 
 m_out->Print( 1, "(uuid %s)\n\n", TO_UTF8( screen->m_uuid.AsString() ) );
 
 screen->GetPageSettings().Format( m_out, 1, 0 );
 m_out->Print( 0, "\n" );
 screen->GetTitleBlock().Format( m_out, 1, 0 );
 
 // Save cache library.
 m_out->Print( 1, "(lib_symbols\n" );
 
 for( std::pair<const wxString, LIB_SYMBOL*>& libSymbol : screen->GetLibSymbols() )
 SCH_SEXPR_PLUGIN_CACHE::SaveSymbol( libSymbol.second, *m_out, 2, libSymbol.first );
 
 m_out->Print( 1, ")\n\n" );
 
 for( const std::shared_ptr<BUS_ALIAS>& alias : screen->GetBusAliases() )
 saveBusAlias( alias, 1 );
 
 // Enforce item ordering
 auto cmp =
 []( const SCH_ITEM* a, const SCH_ITEM* b )
 {
 if( a->Type() != b->Type() )
 return a->Type() < b->Type();
 
 return a->m_Uuid < b->m_Uuid;
 };
 
 std::multiset<SCH_ITEM*, decltype( cmp )> save_map( cmp );
 
 for( SCH_ITEM* item : screen->Items() )
 {
 // Markers are not saved, so keep them from being considered below
 if( item->Type() != SCH_MARKER_T )
 save_map.insert( item );
 }
 
 KICAD_T itemType = TYPE_NOT_INIT;
 SCH_LAYER_ID layer = SCH_LAYER_ID_START;
 
 for( SCH_ITEM* item : save_map )
 {
 if( itemType != item->Type() )
 {
 itemType = item->Type();
 
 if( itemType != SCH_SYMBOL_T
 && itemType != SCH_JUNCTION_T
 && itemType != SCH_SHEET_T )
 {
 m_out->Print( 0, "\n" );
 }
 }
 
 switch( item->Type() )
 {
  case SCH_SYMBOL_T:
 m_out->Print( 0, "\n" );
 saveSymbol( static_cast<SCH_SYMBOL*>( item ), *m_schematic, 1, false );
 break;
 
 case SCH_BITMAP_T:
 saveBitmap( static_cast<SCH_BITMAP*>( item ), 1 );
 break;
 
 case SCH_SHEET_T:
 m_out->Print( 0, "\n" );
 saveSheet( static_cast<SCH_SHEET*>( item ), 1 );
 break;
 
 case SCH_JUNCTION_T:
 saveJunction( static_cast<SCH_JUNCTION*>( item ), 1 );
 break;
 
 case SCH_NO_CONNECT_T:
 saveNoConnect( static_cast<SCH_NO_CONNECT*>( item ), 1 );
 break;
 
 case SCH_BUS_WIRE_ENTRY_T:
 case SCH_BUS_BUS_ENTRY_T:
 saveBusEntry( static_cast<SCH_BUS_ENTRY_BASE*>( item ), 1 );
 break;
 
 case SCH_LINE_T:
 if( layer != item->GetLayer() )
 {
 if( layer == SCH_LAYER_ID_START )
 {
 layer = item->GetLayer();
 }
 else
 {
 layer = item->GetLayer();
 m_out->Print( 0, "\n" );
 }
 }
 
 saveLine( static_cast<SCH_LINE*>( item ), 1 );
 break;
 
 case SCH_SHAPE_T:
 saveShape( static_cast<SCH_SHAPE*>( item ), 1 );
 break;
 
 case SCH_TEXT_T:
 case SCH_LABEL_T:
 case SCH_GLOBAL_LABEL_T:
 case SCH_HIER_LABEL_T:
 case SCH_DIRECTIVE_LABEL_T:
 saveText( static_cast<SCH_TEXT*>( item ), 1 );
 break;
 
 case SCH_TEXTBOX_T:
 saveTextBox( static_cast<SCH_TEXTBOX*>( item ), 1 );
 break;
 
 default:
 wxASSERT( "Unexpected schematic object type in SCH_SEXPR_PLUGIN::Format()" );
 }
 }
 
 if( aSheet->HasRootInstance() )
 {
 std::vector< SCH_SHEET_INSTANCE> instances;
 
 instances.emplace_back( aSheet->GetRootInstance() );
 saveInstances( instances, 1 );
 }
 
 m_out->Print( 0, ")\n" );
}
 
 
void SCH_SEXPR_PLUGIN::Format( EE_SELECTION* aSelection, SCH_SHEET_PATH* aSelectionPath,
 SCHEMATIC& aSchematic, OUTPUTFORMATTER* aFormatter,
 bool aForClipboard )
{
 wxCHECK( aSelection && aSelectionPath && aFormatter, /* void */ );
 
 LOCALE_IO toggle;
 SCH_SHEET_LIST fullHierarchy = aSchematic.GetSheets();
 
 m_schematic = &aSchematic;
 m_out = aFormatter;
 
 size_t i;
 SCH_ITEM* item;
 std::map<wxString, LIB_SYMBOL*> libSymbols;
 SCH_SCREEN* screen = aSelection->GetScreen();
 
 for( i = 0; i < aSelection->GetSize(); ++i )
 {
 item = dynamic_cast<SCH_ITEM*>( aSelection->GetItem( i ) );
 
 wxCHECK2( item, continue );
 
 if( item->Type() != SCH_SYMBOL_T )
 continue;
 
 SCH_SYMBOL* symbol = dynamic_cast<SCH_SYMBOL*>( item );
 
 wxCHECK2( symbol, continue );
 
 wxString libSymbolLookup = symbol->GetLibId().Format().wx_str();
 
 if( !symbol->UseLibIdLookup() )
 libSymbolLookup = symbol->GetSchSymbolLibraryName();
 
 auto it = screen->GetLibSymbols().find( libSymbolLookup );
 
 if( it != screen->GetLibSymbols().end() )
 libSymbols[ libSymbolLookup ] = it->second;
 }
 
 if( !libSymbols.empty() )
 {
 m_out->Print( 0, "(lib_symbols\n" );
 
 for( const std::pair<const wxString, LIB_SYMBOL*>& libSymbol : libSymbols )
 SCH_SEXPR_PLUGIN_CACHE::SaveSymbol( libSymbol.second, *m_out, 1, libSymbol.first );
 
 m_out->Print( 0, ")\n\n" );
 }
 
 // Store the selected sheets instance information
 SCH_SHEET_LIST selectedSheets;
 SCH_REFERENCE_LIST selectedSymbols;
 
 for( i = 0; i < aSelection->GetSize(); ++i )
 {
 item = (SCH_ITEM*) aSelection->GetItem( i );
 
 switch( item->Type() )
 {
 case SCH_SYMBOL_T:
 saveSymbol( static_cast<SCH_SYMBOL*>( item ), aSchematic, 0, aForClipboard );
 
 aSelectionPath->AppendSymbol( selectedSymbols, static_cast<SCH_SYMBOL*>( item ),
 true, true );
 break;
 
 case SCH_BITMAP_T:
 saveBitmap( static_cast< SCH_BITMAP* >( item ), 0 );
 break;
 
 case SCH_SHEET_T:
 saveSheet( static_cast< SCH_SHEET* >( item ), 0 );
 
 {
 SCH_SHEET_PATH subSheetPath = *aSelectionPath;
 subSheetPath.push_back( static_cast<SCH_SHEET*>( item ) );
 
 fullHierarchy.GetSheetsWithinPath( selectedSheets, subSheetPath );
 fullHierarchy.GetSymbolsWithinPath( selectedSymbols, subSheetPath, true, true );
 }
 
 break;
 
 case SCH_JUNCTION_T:
 saveJunction( static_cast< SCH_JUNCTION* >( item ), 0 );
 break;
 
 case SCH_NO_CONNECT_T:
 saveNoConnect( static_cast< SCH_NO_CONNECT* >( item ), 0 );
 break;
 
 case SCH_BUS_WIRE_ENTRY_T:
 case SCH_BUS_BUS_ENTRY_T:
 saveBusEntry( static_cast< SCH_BUS_ENTRY_BASE* >( item ), 0 );
 break;
 
 case SCH_LINE_T:
 saveLine( static_cast< SCH_LINE* >( item ), 0 );
 break;
 
 case SCH_SHAPE_T:
 saveShape( static_cast<SCH_SHAPE*>( item ), 0 );
 break;
 
 case SCH_TEXT_T:
 case SCH_LABEL_T:
 case SCH_GLOBAL_LABEL_T:
 case SCH_HIER_LABEL_T:
 case SCH_DIRECTIVE_LABEL_T:
 saveText( static_cast<SCH_TEXT*>( item ), 0 );
 break;
 
 case SCH_TEXTBOX_T:
 saveTextBox( static_cast<SCH_TEXTBOX*>( item ), 0 );
 break;
 
 default:
 wxASSERT( "Unexpected schematic object type in SCH_SEXPR_PLUGIN::Format()" );
 }
 }
 
 // Make all instance information relative to the selection path
 KIID_PATH selectionPath = aSelectionPath->Path();
 
 selectedSheets.SortByPageNumbers();
 std::vector<SCH_SHEET_INSTANCE> sheetinstances = selectedSheets.GetSheetInstances();
 
 for( SCH_SHEET_INSTANCE& sheetInstance : sheetinstances )
 {
 wxASSERT_MSG( sheetInstance.m_Path.MakeRelativeTo( selectionPath ),
 "Sheet is not inside the selection path?" );
 }
 
 selectionPath = aSelectionPath->Path();
 selectedSymbols.SortByReferenceOnly();
 std::vector<SCH_SYMBOL_INSTANCE> symbolInstances = selectedSymbols.GetSymbolInstances();
 
 for( SCH_SYMBOL_INSTANCE& symbolInstance : symbolInstances )
 {
 wxASSERT_MSG( symbolInstance.m_Path.MakeRelativeTo( selectionPath ),
 "Symbol is not inside the selection path?" );
 }
}
 
 
void SCH_SEXPR_PLUGIN::saveSymbol( SCH_SYMBOL* aSymbol, const SCHEMATIC& aSchematic,
 int aNestLevel, bool aForClipboard )
{
 wxCHECK_RET( aSymbol != nullptr && m_out != nullptr, "" );
 
 // Sort symbol instance data to minimize file churn.
 aSymbol->SortInstances( SortSymbolInstancesByProjectUuid );
 
 std::string libName;
 
 wxString symbol_name = aSymbol->GetLibId().Format();
 
 if( symbol_name.size() )
 {
 libName = toUTFTildaText( symbol_name );
 }
 else
 {
 libName = "_NONAME_";
 }
 
 EDA_ANGLE angle;
 int orientation = aSymbol->GetOrientation() & ~( SYM_MIRROR_X | SYM_MIRROR_Y );
 
 if( orientation == SYM_ORIENT_90 )
 angle = ANGLE_90;
 else if( orientation == SYM_ORIENT_180 )
 angle = ANGLE_180;
 else if( orientation == SYM_ORIENT_270 )
 angle = ANGLE_270;
 else
 angle = ANGLE_0;
 
 m_out->Print( aNestLevel, "(symbol" );
 
 if( !aSymbol->UseLibIdLookup() )
 {
 m_out->Print( 0, " (lib_name %s)",
 m_out->Quotew( aSymbol->GetSchSymbolLibraryName() ).c_str() );
 }
 
 m_out->Print( 0, " (lib_id %s) (at %s %s %s)",
 m_out->Quotew( aSymbol->GetLibId().Format().wx_str() ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aSymbol->GetPosition().x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aSymbol->GetPosition().y ).c_str(),
 EDA_UNIT_UTILS::FormatAngle( angle ).c_str() );
 
 bool mirrorX = aSymbol->GetOrientation() & SYM_MIRROR_X;
 bool mirrorY = aSymbol->GetOrientation() & SYM_MIRROR_Y;
 
 if( mirrorX || mirrorY )
 {
 m_out->Print( 0, " (mirror" );
 
 if( mirrorX )
 m_out->Print( 0, " x" );
 
 if( mirrorY )
 m_out->Print( 0, " y" );
 
 m_out->Print( 0, ")" );
 }
 
 // The symbol unit is always set to the first instance regardless of the current sheet
 // instance to prevent file churn.
 int unit = ( aSymbol->GetInstanceReferences().size() == 0 ) ?
 aSymbol->GetUnit() :
 aSymbol->GetInstanceReferences()[0].m_Unit;
 
 m_out->Print( 0, " (unit %d)", unit );
 
 if( aSymbol->GetConvert() == LIB_ITEM::LIB_CONVERT::DEMORGAN )
 m_out->Print( 0, " (convert %d)", aSymbol->GetConvert() );
 
 m_out->Print( 0, "\n" );
 
 m_out->Print( aNestLevel + 1, "(in_bom %s)", ( aSymbol->GetIncludeInBom() ) ? "yes" : "no" );
 m_out->Print( 0, " (on_board %s)", ( aSymbol->GetIncludeOnBoard() ) ? "yes" : "no" );
 m_out->Print( 0, " (dnp %s)", ( aSymbol->GetDNP() ) ? "yes" : "no" );
 
 if( aSymbol->GetFieldsAutoplaced() != FIELDS_AUTOPLACED_NO )
 m_out->Print( 0, " (fields_autoplaced)" );
 
 m_out->Print( 0, "\n" );
 
 m_out->Print( aNestLevel + 1, "(uuid %s)\n", TO_UTF8( aSymbol->m_Uuid.AsString() ) );
 
 m_nextFreeFieldId = MANDATORY_FIELDS;
 
 for( SCH_FIELD& field : aSymbol->GetFields() )
 {
 int id = field.GetId();
 wxString value = field.GetText();
 
 if( !aForClipboard && aSymbol->GetInstanceReferences().size() )
 {
 // The instance fields are always set to the default instance regardless of the
 // sheet instance to prevent file churn.
 if( id == REFERENCE_FIELD )
 {
 field.SetText( aSymbol->GetInstanceReferences()[0].m_Reference );
 }
 else if( id == VALUE_FIELD )
 {
 field.SetText( aSymbol->GetField( VALUE_FIELD )->GetText() );
 }
 else if( id == FOOTPRINT_FIELD )
 {
 field.SetText( aSymbol->GetField( FOOTPRINT_FIELD )->GetText() );
 }
 }
 
 try
 {
 saveField( &field, aNestLevel + 1 );
 }
 catch( ... )
 {
 // Restore the changed field text on write error.
 if( id == REFERENCE_FIELD || id == VALUE_FIELD || id == FOOTPRINT_FIELD )
 field.SetText( value );
 
 throw;
 }
 
 if( id == REFERENCE_FIELD || id == VALUE_FIELD || id == FOOTPRINT_FIELD )
 field.SetText( value );
 }
 
 for( const std::unique_ptr<SCH_PIN>& pin : aSymbol->GetRawPins() )
 {
 if( pin->GetAlt().IsEmpty() )
 {
 m_out->Print( aNestLevel + 1, "(pin %s (uuid %s))\n",
 m_out->Quotew( pin->GetNumber() ).c_str(),
 TO_UTF8( pin->m_Uuid.AsString() ) );
 }
 else
 {
 m_out->Print( aNestLevel + 1, "(pin %s (uuid %s) (alternate %s))\n",
 m_out->Quotew( pin->GetNumber() ).c_str(),
 TO_UTF8( pin->m_Uuid.AsString() ),
 m_out->Quotew( pin->GetAlt() ).c_str() );
 }
 }
 
 if( !aSymbol->GetInstanceReferences().empty() )
 {
 m_out->Print( aNestLevel + 1, "(instances\n" );
 
 KIID lastProjectUuid;
 KIID rootSheetUuid = aSchematic.Root().m_Uuid;
 SCH_SHEET_LIST fullHierarchy = aSchematic.GetSheets();
 bool project_open = false;
 
 for( size_t i = 0; i < aSymbol->GetInstanceReferences().size(); i++ )
 {
 // If the instance data is part of this design but no longer has an associated sheet
 // path, don't save it. This prevents large amounts of orphaned instance data for the
 // current project from accumulating in the schematic files.
 //
 // Keep all instance data when copying to the clipboard. It may be needed on paste.
 if( !aForClipboard
 && ( aSymbol->GetInstanceReferences()[i].m_Path[0] == rootSheetUuid )
 && !fullHierarchy.GetSheetPathByKIIDPath( aSymbol->GetInstanceReferences()[i].m_Path ) )
 {
 if( project_open && ( ( i + 1 == aSymbol->GetInstanceReferences().size() )
 || lastProjectUuid != aSymbol->GetInstanceReferences()[i+1].m_Path[0] ) )
 {
 m_out->Print( aNestLevel + 2, ")\n" ); // Closes `project`.
 project_open = false;
 }
 
 continue;
 }
 
 if( lastProjectUuid != aSymbol->GetInstanceReferences()[i].m_Path[0] )
 {
 wxString projectName;
 
 if( aSymbol->GetInstanceReferences()[i].m_Path[0] == rootSheetUuid )
 projectName = aSchematic.Prj().GetProjectName();
 else
 projectName = aSymbol->GetInstanceReferences()[i].m_ProjectName;
 
 lastProjectUuid = aSymbol->GetInstanceReferences()[i].m_Path[0];
 m_out->Print( aNestLevel + 2, "(project %s\n",
 m_out->Quotew( projectName ).c_str() );
 project_open = true;
 }
 
 wxString path = aSymbol->GetInstanceReferences()[i].m_Path.AsString();
 
 m_out->Print( aNestLevel + 3, "(path %s\n",
 m_out->Quotew( path ).c_str() );
 m_out->Print( aNestLevel + 4, "(reference %s) (unit %d)\n",
 m_out->Quotew( aSymbol->GetInstanceReferences()[i].m_Reference ).c_str(),
 aSymbol->GetInstanceReferences()[i].m_Unit );
 m_out->Print( aNestLevel + 3, ")\n" );
 
 if( project_open && ( ( i + 1 == aSymbol->GetInstanceReferences().size() )
 || lastProjectUuid != aSymbol->GetInstanceReferences()[i+1].m_Path[0] ) )
 {
 m_out->Print( aNestLevel + 2, ")\n" ); // Closes `project`.
 project_open = false;
 }
 }
 
 m_out->Print( aNestLevel + 1, ")\n" ); // Closes `instances`.
 }
 
 m_out->Print( aNestLevel, ")\n" ); // Closes `symbol`.
}
 
 
void SCH_SEXPR_PLUGIN::saveField( SCH_FIELD* aField, int aNestLevel )
{
 wxCHECK_RET( aField != nullptr && m_out != nullptr, "" );
 
 wxString fieldName = aField->GetCanonicalName();
 // For some reason (bug in legacy parser?) the field ID for non-mandatory fields is -1 so
 // check for this in order to correctly use the field name.
 
 if( aField->GetId() == -1 /* undefined ID */ )
 {
 aField->SetId( m_nextFreeFieldId );
 m_nextFreeFieldId += 1;
 }
 else if( aField->GetId() >= m_nextFreeFieldId )
 {
 m_nextFreeFieldId = aField->GetId() + 1;
 }
 
 m_out->Print( aNestLevel, "(property %s %s (at %s %s %s)",
 m_out->Quotew( fieldName ).c_str(),
 m_out->Quotew( aField->GetText() ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aField->GetPosition().x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aField->GetPosition().y ).c_str(),
 EDA_UNIT_UTILS::FormatAngle( aField->GetTextAngle() ).c_str() );
 
 if( aField->IsNameShown() )
 m_out->Print( 0, " (show_name)" );
 
 if( !aField->CanAutoplace() )
 m_out->Print( 0, " (do_not_autoplace)" );
 
 if( !aField->IsDefaultFormatting()
 || ( aField->GetTextHeight() != schIUScale.MilsToIU( DEFAULT_SIZE_TEXT ) ) )
 {
 m_out->Print( 0, "\n" );
 aField->Format( m_out, aNestLevel, 0 );
 m_out->Print( aNestLevel, ")\n" ); // Closes property token with font effects.
 }
 else
 {
 m_out->Print( 0, ")\n" ); // Closes property token without font effects.
 }
}
 
 
void SCH_SEXPR_PLUGIN::saveBitmap( SCH_BITMAP* aBitmap, int aNestLevel )
{
 wxCHECK_RET( aBitmap != nullptr && m_out != nullptr, "" );
 
 const wxImage* image = aBitmap->GetImage()->GetImageData();
 
 wxCHECK_RET( image != nullptr, "wxImage* is NULL" );
 
 m_out->Print( aNestLevel, "(image (at %s %s)",
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aBitmap->GetPosition().x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aBitmap->GetPosition().y ).c_str() );
 
 double scale = aBitmap->GetImage()->GetScale();
 
 // 20230121 or older file format versions assumed 300 image PPI at load/save.
 // Let's keep compatibility by changing image scale.
 if( SEXPR_SCHEMATIC_FILE_VERSION <= 20230121 )
 {
 BITMAP_BASE* bm_image = aBitmap->GetImage();
 scale = scale * 300.0 / bm_image->GetPPI();
 }
 
 if( scale != 1.0 )
 m_out->Print( 0, " (scale %g)", scale );
 
 m_out->Print( 0, "\n" );
 
 m_out->Print( aNestLevel + 1, "(uuid %s)\n", TO_UTF8( aBitmap->m_Uuid.AsString() ) );
 
 m_out->Print( aNestLevel + 1, "(data" );
 
 wxMemoryOutputStream stream;
 
 image->SaveFile( stream, wxBITMAP_TYPE_PNG );
 
 // Write binary data in hexadecimal form (ASCII)
 wxStreamBuffer* buffer = stream.GetOutputStreamBuffer();
 wxString out = wxBase64Encode( buffer->GetBufferStart(), buffer->GetBufferSize() );
 
 // Apparently the MIME standard character width for base64 encoding is 76 (unconfirmed)
 // so use it in a vein attempt to be standard like.
#define MIME_BASE64_LENGTH 76
 
 size_t first = 0;
 
 while( first < out.Length() )
 {
 m_out->Print( 0, "\n" );
 m_out->Print( aNestLevel + 2, "%s", TO_UTF8( out( first, MIME_BASE64_LENGTH ) ) );
 first += MIME_BASE64_LENGTH;
 }
 
 m_out->Print( 0, "\n" );
 m_out->Print( aNestLevel + 1, ")\n" ); // Closes data token.
 m_out->Print( aNestLevel, ")\n" ); // Closes image token.
}
 
 
void SCH_SEXPR_PLUGIN::saveSheet( SCH_SHEET* aSheet, int aNestLevel )
{
 wxCHECK_RET( aSheet != nullptr && m_out != nullptr, "" );
 
 m_out->Print( aNestLevel, "(sheet (at %s %s) (size %s %s)",
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aSheet->GetPosition().x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aSheet->GetPosition().y ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aSheet->GetSize().x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aSheet->GetSize().y ).c_str() );
 
 if( aSheet->GetFieldsAutoplaced() != FIELDS_AUTOPLACED_NO )
 m_out->Print( 0, " (fields_autoplaced)" );
 
 m_out->Print( 0, "\n" );
 
 STROKE_PARAMS stroke( aSheet->GetBorderWidth(), PLOT_DASH_TYPE::SOLID,
 aSheet->GetBorderColor() );
 
 stroke.SetWidth( aSheet->GetBorderWidth() );
 stroke.Format( m_out, schIUScale, aNestLevel + 1 );
 
 m_out->Print( 0, "\n" );
 
 m_out->Print( aNestLevel + 1, "(fill (color %d %d %d %0.4f))\n",
 KiROUND( aSheet->GetBackgroundColor().r * 255.0 ),
 KiROUND( aSheet->GetBackgroundColor().g * 255.0 ),
 KiROUND( aSheet->GetBackgroundColor().b * 255.0 ),
 aSheet->GetBackgroundColor().a );
 
 m_out->Print( aNestLevel + 1, "(uuid %s)\n", TO_UTF8( aSheet->m_Uuid.AsString() ) );
 
 m_nextFreeFieldId = SHEET_MANDATORY_FIELDS;
 
 for( SCH_FIELD& field : aSheet->GetFields() )
 {
 saveField( &field, aNestLevel + 1 );
 }
 
 for( const SCH_SHEET_PIN* pin : aSheet->GetPins() )
 {
 m_out->Print( aNestLevel + 1, "(pin %s %s (at %s %s %s)\n",
 EscapedUTF8( pin->GetText() ).c_str(),
 getSheetPinShapeToken( pin->GetShape() ),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 pin->GetPosition().x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 pin->GetPosition().y ).c_str(),
 EDA_UNIT_UTILS::FormatAngle( getSheetPinAngle( pin->GetSide() ) ).c_str() );
 
 pin->Format( m_out, aNestLevel + 1, 0 );
 
 m_out->Print( aNestLevel + 2, "(uuid %s)\n", TO_UTF8( pin->m_Uuid.AsString() ) );
 
 m_out->Print( aNestLevel + 1, ")\n" ); // Closes pin token.
 }
 
 // Save all sheet instances here except the root sheet instance.
 std::vector< SCH_SHEET_INSTANCE > sheetInstances = aSheet->GetInstances();
 
 auto it = sheetInstances.begin();
 
 while( it != sheetInstances.end() )
 {
 if( it->m_Path.size() == 0 )
 it = sheetInstances.erase( it );
 else
 it++;
 }
 
 if( !sheetInstances.empty() )
 {
 m_out->Print( aNestLevel + 1, "(instances\n" );
 
 KIID lastProjectUuid;
 KIID rootSheetUuid = m_schematic->Root().m_Uuid;
 SCH_SHEET_LIST fullHierarchy = m_schematic->GetSheets();
 bool project_open = false;
 
 for( size_t i = 0; i < sheetInstances.size(); i++ )
 {
 // If the instance data is part of this design but no longer has an associated sheet
 // path, don't save it. This prevents large amounts of orphaned instance data for the
 // current project from accumulating in the schematic files.
 //
 // Keep all instance data when copying to the clipboard. It may be needed on paste.
 if( ( sheetInstances[i].m_Path[0] == rootSheetUuid )
 && !fullHierarchy.GetSheetPathByKIIDPath( sheetInstances[i].m_Path, false ) )
 {
 if( project_open && ( ( i + 1 == sheetInstances.size() )
 || lastProjectUuid != sheetInstances[i+1].m_Path[0] ) )
 {
 m_out->Print( aNestLevel + 2, ")\n" ); // Closes `project` token.
 project_open = false;
 }
 
 continue;
 }
 
 if( lastProjectUuid != sheetInstances[i].m_Path[0] )
 {
 wxString projectName;
 
 if( sheetInstances[i].m_Path[0] == rootSheetUuid )
 projectName = m_schematic->Prj().GetProjectName();
 else
 projectName = sheetInstances[i].m_ProjectName;
 
 lastProjectUuid = sheetInstances[i].m_Path[0];
 m_out->Print( aNestLevel + 2, "(project %s\n",
 m_out->Quotew( projectName ).c_str() );
 project_open = true;
 }
 
 wxString path = sheetInstances[i].m_Path.AsString();
 
 m_out->Print( aNestLevel + 3, "(path %s (page %s))\n",
 m_out->Quotew( path ).c_str(),
 m_out->Quotew( sheetInstances[i].m_PageNumber ).c_str() );
 
 if( project_open && ( ( i + 1 == sheetInstances.size() )
 || lastProjectUuid != sheetInstances[i+1].m_Path[0] ) )
 {
 m_out->Print( aNestLevel + 2, ")\n" ); // Closes `project` token.
 project_open = false;
 }
 }
 
 m_out->Print( aNestLevel + 1, ")\n" ); // Closes `instances` token.
 }
 
 m_out->Print( aNestLevel, ")\n" ); // Closes sheet token.
}
 
 
void SCH_SEXPR_PLUGIN::saveJunction( SCH_JUNCTION* aJunction, int aNestLevel )
{
 wxCHECK_RET( aJunction != nullptr && m_out != nullptr, "" );
 
 m_out->Print( aNestLevel, "(junction (at %s %s) (diameter %s) (color %d %d %d %s)\n",
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aJunction->GetPosition().x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aJunction->GetPosition().y ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aJunction->GetDiameter() ).c_str(),
 KiROUND( aJunction->GetColor().r * 255.0 ),
 KiROUND( aJunction->GetColor().g * 255.0 ),
 KiROUND( aJunction->GetColor().b * 255.0 ),
 FormatDouble2Str( aJunction->GetColor().a ).c_str() );
 
 m_out->Print( aNestLevel + 1, "(uuid %s)\n", TO_UTF8( aJunction->m_Uuid.AsString() ) );
 
 m_out->Print( aNestLevel, ")\n" );
}
 
 
void SCH_SEXPR_PLUGIN::saveNoConnect( SCH_NO_CONNECT* aNoConnect, int aNestLevel )
{
 wxCHECK_RET( aNoConnect != nullptr && m_out != nullptr, "" );
 
 m_out->Print( aNestLevel, "(no_connect (at %s %s) (uuid %s))\n",
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aNoConnect->GetPosition().x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aNoConnect->GetPosition().y ).c_str(),
 TO_UTF8( aNoConnect->m_Uuid.AsString() ) );
}
 
 
void SCH_SEXPR_PLUGIN::saveBusEntry( SCH_BUS_ENTRY_BASE* aBusEntry, int aNestLevel )
{
 wxCHECK_RET( aBusEntry != nullptr && m_out != nullptr, "" );
 
 // Bus to bus entries are converted to bus line segments.
 if( aBusEntry->GetClass() == "SCH_BUS_BUS_ENTRY" )
 {
 SCH_LINE busEntryLine( aBusEntry->GetPosition(), LAYER_BUS );
 
 busEntryLine.SetEndPoint( aBusEntry->GetEnd() );
 saveLine( &busEntryLine, aNestLevel );
 }
 else
 {
 m_out->Print( aNestLevel, "(bus_entry (at %s %s) (size %s %s)\n",
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aBusEntry->GetPosition().x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aBusEntry->GetPosition().y ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aBusEntry->GetSize().x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aBusEntry->GetSize().y ).c_str() );
 
 aBusEntry->GetStroke().Format( m_out, schIUScale, aNestLevel + 1 );
 
 m_out->Print( 0, "\n" );
 
 m_out->Print( aNestLevel + 1, "(uuid %s)\n", TO_UTF8( aBusEntry->m_Uuid.AsString() ) );
 
 m_out->Print( aNestLevel, ")\n" );
 }
}
 
 
void SCH_SEXPR_PLUGIN::saveShape( SCH_SHAPE* aShape, int aNestLevel )
{
 wxCHECK_RET( aShape != nullptr && m_out != nullptr, "" );
 
 switch( aShape->GetShape() )
 {
 case SHAPE_T::ARC:
 formatArc( m_out, aNestLevel, aShape, false, aShape->GetStroke(), aShape->GetFillMode(),
 aShape->GetFillColor(), aShape->m_Uuid );
 break;
 
 case SHAPE_T::CIRCLE:
 formatCircle( m_out, aNestLevel, aShape, false, aShape->GetStroke(), aShape->GetFillMode(),
 aShape->GetFillColor(), aShape->m_Uuid );
 break;
 
 case SHAPE_T::RECT:
 formatRect( m_out, aNestLevel, aShape, false, aShape->GetStroke(), aShape->GetFillMode(),
 aShape->GetFillColor(), aShape->m_Uuid );
 break;
 
 case SHAPE_T::BEZIER:
 formatBezier( m_out, aNestLevel, aShape, false, aShape->GetStroke(), aShape->GetFillMode(),
 aShape->GetFillColor(), aShape->m_Uuid );
 break;
 
 case SHAPE_T::POLY:
 formatPoly( m_out, aNestLevel, aShape, false, aShape->GetStroke(), aShape->GetFillMode(),
 aShape->GetFillColor(), aShape->m_Uuid );
 break;
 
 default:
 UNIMPLEMENTED_FOR( aShape->SHAPE_T_asString() );
 }
}
 
 
void SCH_SEXPR_PLUGIN::saveLine( SCH_LINE* aLine, int aNestLevel )
{
 wxCHECK_RET( aLine != nullptr && m_out != nullptr, "" );
 
 wxString lineType;
 
 STROKE_PARAMS line_stroke = aLine->GetStroke();
 
 switch( aLine->GetLayer() )
 {
 case LAYER_BUS: lineType = "bus"; break;
 case LAYER_WIRE: lineType = "wire"; break;
 case LAYER_NOTES: lineType = "polyline"; break;
 default:
 UNIMPLEMENTED_FOR( LayerName( aLine->GetLayer() ) );
 }
 
 m_out->Print( aNestLevel, "(%s (pts (xy %s %s) (xy %s %s))\n",
 TO_UTF8( lineType ),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aLine->GetStartPoint().x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aLine->GetStartPoint().y ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aLine->GetEndPoint().x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aLine->GetEndPoint().y ).c_str() );
 
 line_stroke.Format( m_out, schIUScale, aNestLevel + 1 );
 m_out->Print( 0, "\n" );
 
 m_out->Print( aNestLevel + 1, "(uuid %s)\n", TO_UTF8( aLine->m_Uuid.AsString() ) );
 
 m_out->Print( aNestLevel, ")\n" );
}
 
 
void SCH_SEXPR_PLUGIN::saveText( SCH_TEXT* aText, int aNestLevel )
{
 wxCHECK_RET( aText != nullptr && m_out != nullptr, "" );
 
 // Note: label is nullptr SCH_TEXT, but not for SCH_LABEL_XXX,
 SCH_LABEL_BASE* label = dynamic_cast<SCH_LABEL_BASE*>( aText );
 
 m_out->Print( aNestLevel, "(%s %s",
 getTextTypeToken( aText->Type() ),
 m_out->Quotew( aText->GetText() ).c_str() );
 
 if( aText->Type() == SCH_TEXT_T )
 {
 m_out->Print( 0, " (exclude_from_sim %s)\n",
 aText->GetExcludeFromSim() ? "yes" : "no" );
 }
 else if( aText->Type() == SCH_DIRECTIVE_LABEL_T )
 {
 SCH_DIRECTIVE_LABEL* flag = static_cast<SCH_DIRECTIVE_LABEL*>( aText );
 
 m_out->Print( 0, " (length %s)",
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 flag->GetPinLength() ).c_str() );
 }
 
 EDA_ANGLE angle = aText->GetTextAngle();
 
 if( label )
 {
 if( aText->Type() == SCH_GLOBAL_LABEL_T
 || aText->Type() == SCH_HIER_LABEL_T
 || aText->Type() == SCH_DIRECTIVE_LABEL_T )
 {
 m_out->Print( 0, " (shape %s)", getSheetPinShapeToken( label->GetShape() ) );
 }
 
 // The angle of the text is always 0 or 90 degrees for readibility reasons,
 // but the item itself can have more rotation (-90 and 180 deg)
 switch( aText->GetTextSpinStyle() )
 {
 default:
 case TEXT_SPIN_STYLE::LEFT: angle += ANGLE_180; break;
 case TEXT_SPIN_STYLE::UP: break;
 case TEXT_SPIN_STYLE::RIGHT: break;
 case TEXT_SPIN_STYLE::BOTTOM: angle += ANGLE_180; break;
 }
 }
 
 if( aText->GetText().Length() < 50 )
 {
 m_out->Print( 0, " (at %s %s %s)",
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aText->GetPosition().x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aText->GetPosition().y ).c_str(),
 EDA_UNIT_UTILS::FormatAngle( angle ).c_str() );
 }
 else
 {
 m_out->Print( 0, "\n" );
 m_out->Print( aNestLevel + 1, "(at %s %s %s)",
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aText->GetPosition().x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale,
 aText->GetPosition().y ).c_str(),
 EDA_UNIT_UTILS::FormatAngle( angle ).c_str() );
 }
 
 if( aText->GetFieldsAutoplaced() != FIELDS_AUTOPLACED_NO )
 m_out->Print( 0, " (fields_autoplaced)" );
 
 m_out->Print( 0, "\n" );
 aText->EDA_TEXT::Format( m_out, aNestLevel, 0 );
 
 m_out->Print( aNestLevel + 1, "(uuid %s)\n", TO_UTF8( aText->m_Uuid.AsString() ) );
 
 if( label )
 {
 for( SCH_FIELD& field : label->GetFields() )
 saveField( &field, aNestLevel + 1 );
 }
 
 m_out->Print( aNestLevel, ")\n" ); // Closes text token.
}
 
 
void SCH_SEXPR_PLUGIN::saveTextBox( SCH_TEXTBOX* aTextBox, int aNestLevel )
{
 wxCHECK_RET( aTextBox != nullptr && m_out != nullptr, "" );
 
 m_out->Print( aNestLevel, "(text_box %s\n",
 m_out->Quotew( aTextBox->GetText() ).c_str() );
 
 VECTOR2I pos = aTextBox->GetStart();
 VECTOR2I size = aTextBox->GetEnd() - pos;
 
 m_out->Print( aNestLevel + 1, "(exclude_from_sim %s) (at %s %s %s) (size %s %s)\n",
 aTextBox->GetExcludeFromSim() ? "yes" : "no",
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale, pos.x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale, pos.y ).c_str(),
 EDA_UNIT_UTILS::FormatAngle( aTextBox->GetTextAngle() ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale, size.x ).c_str(),
 EDA_UNIT_UTILS::FormatInternalUnits( schIUScale, size.y ).c_str() );
 
 aTextBox->GetStroke().Format( m_out, schIUScale, aNestLevel + 1 );
 m_out->Print( 0, "\n" );
 formatFill( m_out, aNestLevel + 1, aTextBox->GetFillMode(), aTextBox->GetFillColor() );
 m_out->Print( 0, "\n" );
 
 aTextBox->EDA_TEXT::Format( m_out, aNestLevel, 0 );
 
 if( aTextBox->m_Uuid != niluuid )
 m_out->Print( aNestLevel + 1, "(uuid %s)\n", TO_UTF8( aTextBox->m_Uuid.AsString() ) );
 
 m_out->Print( aNestLevel, ")\n" );
}
 
 
void SCH_SEXPR_PLUGIN::saveBusAlias( std::shared_ptr<BUS_ALIAS> aAlias, int aNestLevel )
{
 wxCHECK_RET( aAlias != nullptr, "BUS_ALIAS* is NULL" );
 
 wxString members;
 
 for( const wxString& member : aAlias->Members() )
 {
 if( !members.IsEmpty() )
 members += wxS( " " );
 
 members += m_out->Quotew( member );
 }
 
 m_out->Print( aNestLevel, "(bus_alias %s (members %s))\n",
 m_out->Quotew( aAlias->GetName() ).c_str(),
 TO_UTF8( members ) );
}
 
 
void SCH_SEXPR_PLUGIN::saveInstances( const std::vector<SCH_SHEET_INSTANCE>& aInstances,
 int aNestLevel )
{
 if( aInstances.size() )
 {
 m_out->Print( 0, "\n" );
 m_out->Print( aNestLevel, "(sheet_instances\n" );
 
 for( const SCH_SHEET_INSTANCE& instance : aInstances )
 {
 wxString path = instance.m_Path.AsString();
 
 if( path.IsEmpty() )
 path = wxT( "/" ); // Root path
 
 m_out->Print( aNestLevel + 1, "(path %s (page %s))\n",
 m_out->Quotew( path ).c_str(),
 m_out->Quotew( instance.m_PageNumber ).c_str() );
 }
 
 m_out->Print( aNestLevel, ")\n" ); // Close sheet instances token.
 }
}
 
 
void SCH_SEXPR_PLUGIN::cacheLib( const wxString& aLibraryFileName,
 const STRING_UTF8_MAP* aProperties )
{
 if( !m_cache || !m_cache->IsFile( aLibraryFileName ) || m_cache->IsFileChanged() )
 {
 // a spectacular episode in memory management:
 delete m_cache;
 m_cache = new SCH_SEXPR_PLUGIN_CACHE( aLibraryFileName );
 
 if( !isBuffering( aProperties ) )
 m_cache->Load();
 }
}
 
 
bool SCH_SEXPR_PLUGIN::isBuffering( const STRING_UTF8_MAP* aProperties )
{
 return ( aProperties && aProperties->Exists( SCH_SEXPR_PLUGIN::PropBuffering ) );
}
 
 
int SCH_SEXPR_PLUGIN::GetModifyHash() const
{
 if( m_cache )
 return m_cache->GetModifyHash();
 
 // If the cache hasn't been loaded, it hasn't been modified.
 return 0;
}
 
 
void SCH_SEXPR_PLUGIN::EnumerateSymbolLib( wxArrayString& aSymbolNameList,
 const wxString& aLibraryPath,
 const STRING_UTF8_MAP* aProperties )
{
 LOCALE_IO toggle; // toggles on, then off, the C locale.
 
 bool powerSymbolsOnly = ( aProperties &&
 aProperties->find( SYMBOL_LIB_TABLE::PropPowerSymsOnly ) != aProperties->end() );
 
 cacheLib( aLibraryPath, aProperties );
 
 const LIB_SYMBOL_MAP& symbols = m_cache->m_symbols;
 
 for( LIB_SYMBOL_MAP::const_iterator it = symbols.begin(); it != symbols.end(); ++it )
 {
 if( !powerSymbolsOnly || it->second->IsPower() )
 aSymbolNameList.Add( it->first );
 }
}
 
 
void SCH_SEXPR_PLUGIN::EnumerateSymbolLib( std::vector<LIB_SYMBOL*>& aSymbolList,
  const wxString& aLibraryPath,
 const STRING_UTF8_MAP* aProperties )
{
 LOCALE_IO toggle; // toggles on, then off, the C locale.
 
 bool powerSymbolsOnly = ( aProperties &&
 aProperties->find( SYMBOL_LIB_TABLE::PropPowerSymsOnly ) != aProperties->end() );
 
 cacheLib( aLibraryPath, aProperties );
 
 const LIB_SYMBOL_MAP& symbols = m_cache->m_symbols;
 
 for( LIB_SYMBOL_MAP::const_iterator it = symbols.begin(); it != symbols.end(); ++it )
 {
 if( !powerSymbolsOnly || it->second->IsPower() )
 aSymbolList.push_back( it->second );
 }
}
 
 
LIB_SYMBOL* SCH_SEXPR_PLUGIN::LoadSymbol( const wxString& aLibraryPath, const wxString& aSymbolName,
 const STRING_UTF8_MAP* aProperties )
{
 LOCALE_IO toggle; // toggles on, then off, the C locale.
 
 cacheLib( aLibraryPath, aProperties );
 
 LIB_SYMBOL_MAP::const_iterator it = m_cache->m_symbols.find( aSymbolName );
 
 // We no longer escape '/' in symbol names, but we used to.
 if( it == m_cache->m_symbols.end() && aSymbolName.Contains( '/' ) )
 it = m_cache->m_symbols.find( EscapeString( aSymbolName, CTX_LEGACY_LIBID ) );
 
 if( it == m_cache->m_symbols.end() )
 return nullptr;
 
 return it->second;
}
 
 
void SCH_SEXPR_PLUGIN::SaveSymbol( const wxString& aLibraryPath, const LIB_SYMBOL* aSymbol,
 const STRING_UTF8_MAP* aProperties )
{
 LOCALE_IO toggle; // toggles on, then off, the C locale.
 
 cacheLib( aLibraryPath, aProperties );
 
 m_cache->AddSymbol( aSymbol );
 
 if( !isBuffering( aProperties ) )
 m_cache->Save();
}
 
 
void SCH_SEXPR_PLUGIN::DeleteSymbol( const wxString& aLibraryPath, const wxString& aSymbolName,
 const STRING_UTF8_MAP* aProperties )
{
 LOCALE_IO toggle; // toggles on, then off, the C locale.
 
 cacheLib( aLibraryPath, aProperties );
 
 m_cache->DeleteSymbol( aSymbolName );
 
 if( !isBuffering( aProperties ) )
 m_cache->Save();
}
 
 
void SCH_SEXPR_PLUGIN::CreateSymbolLib( const wxString& aLibraryPath,
 const STRING_UTF8_MAP* aProperties )
{
 if( wxFileExists( aLibraryPath ) )
 {
 THROW_IO_ERROR( wxString::Format( _( "Symbol library '%s' already exists." ),
 aLibraryPath.GetData() ) );
 }
 
 LOCALE_IO toggle;
 
 delete m_cache;
 m_cache = new SCH_SEXPR_PLUGIN_CACHE( aLibraryPath );
 m_cache->SetModified();
 m_cache->Save();
 m_cache->Load(); // update m_writable and m_mod_time
}
 
 
bool SCH_SEXPR_PLUGIN::DeleteSymbolLib( const wxString& aLibraryPath,
 const STRING_UTF8_MAP* aProperties )
{
 wxFileName fn = aLibraryPath;
 
 if( !fn.FileExists() )
 return false;
 
 // Some of the more elaborate wxRemoveFile() crap puts up its own wxLog dialog
 // we don't want that. we want bare metal portability with no UI here.
 if( wxRemove( aLibraryPath ) )
 {
 THROW_IO_ERROR( wxString::Format( _( "Symbol library '%s' cannot be deleted." ),
 aLibraryPath.GetData() ) );
 }
 
 if( m_cache && m_cache->IsFile( aLibraryPath ) )
 {
 delete m_cache;
 m_cache = nullptr;
 }
 
 return true;
}
 
 
void SCH_SEXPR_PLUGIN::SaveLibrary( const wxString& aLibraryPath, const STRING_UTF8_MAP* aProperties )
{
 if( !m_cache )
 m_cache = new SCH_SEXPR_PLUGIN_CACHE( aLibraryPath );
 
 wxString oldFileName = m_cache->GetFileName();
 
 if( !m_cache->IsFile( aLibraryPath ) )
 {
 m_cache->SetFileName( aLibraryPath );
 }
 
 // This is a forced save.
 m_cache->SetModified();
 m_cache->Save();
 m_cache->SetFileName( oldFileName );
}
 
 
bool SCH_SEXPR_PLUGIN::CheckHeader( const wxString& aFileName )
{
 // Open file and check first line
 wxTextFile tempFile;
 
 tempFile.Open( aFileName );
 wxString firstline;
 // read the first line
 firstline = tempFile.GetFirstLine();
 tempFile.Close();
 
 return firstline.StartsWith( wxS( "EESchema" ) );
}
 
 
bool SCH_SEXPR_PLUGIN::IsSymbolLibWritable( const wxString& aLibraryPath )
{
 wxFileName fn( aLibraryPath );
 
 return ( fn.FileExists() && fn.IsFileWritable() ) || fn.IsDirWritable();
}
 
 
void SCH_SEXPR_PLUGIN::GetAvailableSymbolFields( std::vector<wxString>& aNames )
{
 if( !m_cache )
 return;
 
 const LIB_SYMBOL_MAP& symbols = m_cache->m_symbols;
 
 std::set<wxString> fieldNames;
 
 for( LIB_SYMBOL_MAP::const_iterator it = symbols.begin(); it != symbols.end(); ++it )
 {
 std::vector<LIB_FIELD*> fields;
 it->second->GetFields( fields );
 
 for( LIB_FIELD* field : fields )
 {
 if( field->IsMandatory() )
 continue;
 
 // TODO(JE): enable configurability of this outside database libraries?
 // if( field->ShowInChooser() )
 fieldNames.insert( field->GetName() );
 }
 }
 
 std::copy( fieldNames.begin(), fieldNames.end(), std::back_inserter( aNames ) );
}
 
 
void SCH_SEXPR_PLUGIN::GetDefaultSymbolFields( std::vector<wxString>& aNames )
{
 GetAvailableSymbolFields( aNames );
}
 
 
LIB_SYMBOL* SCH_SEXPR_PLUGIN::ParseLibSymbol( LINE_READER& aReader, int aFileVersion )
{
 LOCALE_IO toggle; // toggles on, then off, the C locale.
 LIB_SYMBOL_MAP map;
 SCH_SEXPR_PARSER parser( &aReader );
 
 parser.NeedLEFT();
 parser.NextTok();
 
 return parser.ParseSymbol( map, aFileVersion );
}
 
 
void SCH_SEXPR_PLUGIN::FormatLibSymbol( LIB_SYMBOL* symbol, OUTPUTFORMATTER & formatter )
{
 
 LOCALE_IO toggle; // toggles on, then off, the C locale.
 SCH_SEXPR_PLUGIN_CACHE::SaveSymbol( symbol, formatter );
}
 
 
const char* SCH_SEXPR_PLUGIN::PropBuffering = "buffering";