specctra.h

Go to the documentation of this file.

/*
 * This program source code file is part of KiCad, a free EDA CAD application.
 *
 * Copyright (C) 2007-2013 SoftPLC Corporation, Dick Hollenbeck <[email protected]>
 * Copyright The KiCad Developers, see AUTHORS.txt for contributors.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <https://www.gnu.org/licenses/>.
 */
 
#ifndef SPECCTRA_H_
#define SPECCTRA_H_
 
 
//  see http://www.boost.org/libs/ptr_container/doc/ptr_sequence_adapter.html
#include <boost/ptr_container/ptr_vector.hpp>
 
//  see http://www.boost.org/libs/ptr_container/doc/ptr_set.html
#include <boost/ptr_container/ptr_set.hpp>
 
#include <specctra_import_export/specctra_lexer.h>
 
#include <map>
#include <memory>
 
#include <core/typeinfo.h>
#include <geometry/shape_poly_set.h>
#include <layer_ids.h>
 
// all outside the DSN namespace:
class BOARD;
class COMMIT;
class PAD;
class PCB_TRACK;
class PCB_ARC;
class PCB_VIA;
class NETCLASS;
class FOOTPRINT;
class SHAPE_POLY_SET;
 
typedef DSN::T  DSN_T;
 

namespace DSN {
 
 
class SPECCTRA_DB;
 

void ExportBoardToSpecctraFile( BOARD* aBoard, const wxString& aFullFilename );
 

const char* GetTokenText( T aTok );
 

struct POINT
{
    double  x;
    double  y;
 
    POINT() { x=0.0; y=0.0; }
 
    POINT( double aX, double aY ) :
        x(aX), y(aY)
    {
    }
 
    bool operator==( const POINT& other ) const
    {
        return x==other.x && y==other.y;
    }
 
    bool operator!=( const POINT& other ) const
    {
        return !( *this == other );
    }
 
    POINT& operator+=( const POINT& other )
    {
        x += other.x;
        y += other.y;
        return *this;
    }
 
    POINT& operator=( const POINT& other )
    {
        x = other.x;
        y = other.y;
        return *this;
    }

    void FixNegativeZero()
    {
        if( x == -0.0 )
            x = 0.0;
 
        if( y == -0.0 )
            y = 0.0;
    }

    void Format( OUTPUTFORMATTER* out, int nestLevel ) const
    {
        out->Print( nestLevel, " %.6g %.6g", x, y );
    }
};
 
 
struct PROPERTY
{
    std::string name;
    std::string value;

    void Format( OUTPUTFORMATTER* out, int nestLevel ) const
    {
        const char* quoteName  = out->GetQuoteChar( name.c_str() );
        const char* quoteValue = out->GetQuoteChar( value.c_str() );
 
        out->Print( nestLevel, "(%s%s%s %s%s%s)\n",
                   quoteName,  name.c_str(), quoteName,
                   quoteValue, value.c_str(), quoteValue );
    }
};
 
typedef std::vector<PROPERTY>       PROPERTIES;
 
 
class UNIT_RES;

class ELEM
{
public:
 
    ELEM( DSN_T aType, ELEM* aParent = nullptr );
 
    virtual ~ELEM();
 
    DSN_T   Type() const { return type; }
 
    const char* Name() const;
 

    virtual UNIT_RES* GetUnits() const;

    virtual void Format( OUTPUTFORMATTER* out, int nestLevel );

    virtual void FormatContents( OUTPUTFORMATTER* out, int nestLevel )
    {
        // overridden in ELEM_HOLDER
    }
 
    void SetParent( ELEM* aParent )
    {
        parent = aParent;
    }
 
protected:

    std::string makeHash()
    {
        sf.Clear();
        FormatContents( &sf, 0 );
        sf.StripUseless();
 
        return sf.GetString();
    }
 
    // avoid creating this for every compare, make static.
    static STRING_FORMATTER  sf;
 
    DSN_T           type;
    ELEM*           parent;
 
private:
    friend class SPECCTRA_DB;
};
 

class ELEM_HOLDER : public ELEM
{
public:
 
    ELEM_HOLDER( DSN_T aType, ELEM* aParent = nullptr ) :
        ELEM( aType, aParent )
    {
    }
 
    virtual void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override;
 
 
    //-----< list operations >--------------------------------------------

    int FindElem( DSN_T aType, int instanceNum = 0 );
 

    int Length() const
    {
        return kids.size();
    }
 
    void Append( ELEM* aElem )
    {
        kids.push_back( aElem );
    }
 
    ELEM* Replace( int aIndex, ELEM* aElem )
    {
        ELEM_ARRAY::auto_type ret = kids.replace( aIndex, aElem );
        return ret.release();
    }
 
    ELEM* Remove( int aIndex )
    {
        ELEM_ARRAY::auto_type ret = kids.release( kids.begin() + aIndex );
        return ret.release();
    }
 
    void Insert( int aIndex, ELEM* aElem ) { kids.insert( kids.begin() + aIndex, aElem ); }
 
    ELEM* At( int aIndex ) const
    {
        // we have varying sized objects and are using polymorphism, so we
        // must return a pointer not a reference.
        return (ELEM*) &kids[aIndex];
    }
 
    ELEM* operator[]( int aIndex ) const
    {
        return At( aIndex );
    }
 
    void Delete( int aIndex ) { kids.erase( kids.begin() + aIndex ); }
 
private:
    friend class SPECCTRA_DB;
 
    typedef boost::ptr_vector<ELEM> ELEM_ARRAY;
 
    ELEM_ARRAY      kids;      
};
 

class PARSER : public ELEM
{
public:
 
    PARSER( ELEM* aParent );
 
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override;
 
private:
    friend class SPECCTRA_DB;
 
    char        string_quote;
    bool        space_in_quoted_tokens;
    bool        case_sensitive;
    bool        wires_include_testpoint;
    bool        routes_include_testpoint;
    bool        routes_include_guides;
    bool        routes_include_image_conductor;
    bool        via_rotate_first;
    bool        generated_by_freeroute;

    std::vector<std::string> constants;
 
    std::string              host_cad;
    std::string              host_version;
};
 

class UNIT_RES : public ELEM
{
public:

    static UNIT_RES Default;
 
    UNIT_RES( ELEM* aParent, DSN_T aType ) :
        ELEM( aType, aParent )
    {
        units = T_inch;
        value = 2540000;
    }
 
    DSN_T GetEngUnits() const  { return units; }
    int GetValue() const  { return value; }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        if( type == T_unit )
            out->Print( nestLevel, "(%s %s)\n", Name(), GetTokenText( units ) );
        else    // T_resolution
            out->Print( nestLevel, "(%s %s %d)\n", Name(), GetTokenText( units ), value );
    }
 
private:
    friend class SPECCTRA_DB;
 
    DSN_T       units;
    int         value;
};
 
 
class RECTANGLE : public ELEM
{
public:
 
    RECTANGLE( ELEM* aParent ) :
        ELEM( T_rect, aParent )
    {
    }
 
    void SetLayerId( std::string& aLayerId )
    {
        layer_id = aLayerId;
    }
 
    void SetCorners( const POINT& aPoint0, const POINT& aPoint1 )
    {
        point0 = aPoint0;
        point0.FixNegativeZero();
 
        point1 = aPoint1;
        point1.FixNegativeZero();
    }
 
    POINT GetOrigin() { return point0; }
    POINT GetEnd() { return point1; }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* newline = nestLevel ? "\n" : "";
 
        const char* quote = out->GetQuoteChar( layer_id.c_str() );
 
        out->Print( nestLevel, "(%s %s%s%s %.6g %.6g %.6g %.6g)%s",
                    Name(),
                    quote, layer_id.c_str(), quote,
                    point0.x, point0.y,
                    point1.x, point1.y,
                    newline );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string     layer_id;
 
    POINT           point0;         
    POINT           point1;
};
 

class RULE : public ELEM
{
public:
 
    RULE( ELEM* aParent, DSN_T aType ) :
        ELEM( aType, aParent )
    {
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        out->Print( nestLevel, "(%s", Name() );
 
        bool singleLine;
 
        if( m_rules.size() == 1 )
        {
            singleLine = true;
            out->Print( 0, " %s)", m_rules.begin()->c_str() );
        }
 
        else
        {
            out->Print( 0, "\n" );
            singleLine = false;
 
            for( const std::string& rule : m_rules )
                out->Print( nestLevel+1, "%s\n", rule.c_str() );
 
            out->Print( nestLevel, ")" );
        }
 
        if( nestLevel || !singleLine )
            out->Print( 0, "\n" );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::vector<std::string> m_rules;      
};
 
 
class LAYER_RULE : public ELEM
{
public:
 
    LAYER_RULE( ELEM* aParent ) :
        ELEM( T_layer_rule, aParent )
    {
        m_rule = nullptr;
    }
 
    ~LAYER_RULE()
    {
        delete m_rule;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        out->Print( nestLevel, "(%s", Name() );
 
        for( const std::string& layer : m_layer_ids )
        {
            const char* quote = out->GetQuoteChar( layer.c_str() );
            out->Print( 0, " %s%s%s", quote, layer.c_str(), quote );
        }
 
        out->Print( 0 , "\n" );
 
        if( m_rule )
            m_rule->Format( out, nestLevel+1 );
 
        out->Print( nestLevel, ")\n" );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::vector<std::string> m_layer_ids;
    RULE*                    m_rule;
};
 

class PATH : public ELEM
{
public:
 
    PATH( ELEM* aParent, DSN_T aType = T_path ) :
        ELEM( aType, aParent )
    {
        aperture_width = 0.0;
        aperture_type  = T_round;
    }
 
    void AppendPoint( const POINT& aPoint )
    {
        points.push_back( aPoint );
    }
 
    std::vector<POINT>& GetPoints() {return points; }
 
    void SetLayerId( const std::string& aLayerId )
    {
        layer_id = aLayerId;
    }
 
    void SetAperture( double aWidth )
    {
        aperture_width = aWidth;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* newline = nestLevel ? "\n" : "";
 
        const char* quote = out->GetQuoteChar( layer_id.c_str() );
 
        const int RIGHTMARGIN = 70;
        int perLine = out->Print( nestLevel, "(%s %s%s%s %.6g",
                                  Name(),
                                  quote, layer_id.c_str(), quote,
                                  aperture_width );
 
        int wrapNest = std::max( nestLevel+1, 6 );
 
        for( const POINT& pt : points )
        {
            if( perLine > RIGHTMARGIN )
            {
                out->Print( 0, "\n" );
                perLine = out->Print( wrapNest, "%s", "" );
            }
            else
            {
                perLine += out->Print( 0, "  " );
            }
 
            perLine += out->Print( 0, "%.6g %.6g", pt.x, pt.y );
        }
 
        if( aperture_type == T_square )
        {
            out->Print( 0, "(aperture_type square)" );
        }
 
        out->Print( 0, ")%s", newline );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string        layer_id;
    double             aperture_width;
 
    std::vector<POINT> points;
    DSN_T              aperture_type;
};
 
typedef boost::ptr_vector<PATH> PATHS;
 
 
class BOUNDARY : public ELEM
{
public:
 
    BOUNDARY( ELEM* aParent, DSN_T aType = T_boundary ) :
        ELEM( aType, aParent )
    {
        rectangle = nullptr;
    }
 
    ~BOUNDARY()
    {
        delete rectangle;
    }

    void GetCorners( std::vector<double>& aBuffer )
    {
        if( rectangle )
        {
            aBuffer.push_back( rectangle->GetOrigin().x );
            aBuffer.push_back( rectangle->GetOrigin().y );
 
            aBuffer.push_back( rectangle->GetOrigin().x );
            aBuffer.push_back( rectangle->GetEnd().y );
 
            aBuffer.push_back( rectangle->GetEnd().x );
            aBuffer.push_back( rectangle->GetEnd().y );
 
            aBuffer.push_back( rectangle->GetEnd().x );
            aBuffer.push_back( rectangle->GetOrigin().y );
        }
        else
        {
            for( PATH& path : paths )
            {
                for( const POINT& pt : path.GetPoints() )
                {
                    aBuffer.push_back( pt.x );
                    aBuffer.push_back( pt.y );
                }
            }
        }
    }
 
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        out->Print( nestLevel, "(%s\n", Name() );
 
        if( rectangle )
            rectangle->Format( out, nestLevel+1 );
        else
        {
            for( PATH& path : paths )
                path.Format( out, nestLevel+1 );
        }
 
        out->Print( nestLevel, ")\n" );
    }
 
private:
    friend class SPECCTRA_DB;
 
    // only one or the other of these two is used, not both
    PATHS           paths;
    RECTANGLE*      rectangle;
};
 
 
class CIRCLE : public ELEM
{
public:
    CIRCLE( ELEM* aParent ) :
        ELEM( T_circle, aParent )
    {
        diameter = 0.0;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* newline = nestLevel ? "\n" : "";
 
        const char* quote = out->GetQuoteChar( layer_id.c_str() );
        out->Print( nestLevel, "(%s %s%s%s %.6g", Name(), quote, layer_id.c_str(), quote, diameter );
 
        if( vertex.x!=0.0 || vertex.y!=0.0 )
            out->Print( 0, " %.6g %.6g)%s", vertex.x, vertex.y, newline );
        else
            out->Print( 0, ")%s", newline );
    }
 
    void SetLayerId( const std::string& aLayerId )
    {
        layer_id = aLayerId;
    }
 
    void SetDiameter( double aDiameter )
    {
        diameter = aDiameter;
    }
 
    void SetVertex( const POINT& aVertex )
    {
        vertex = aVertex;
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string layer_id;
 
    double      diameter;
    POINT       vertex;     // POINT's constructor sets to (0,0)
};
 
 
class QARC : public ELEM
{
public:
    QARC( ELEM* aParent ) :
        ELEM( T_qarc, aParent )
    {
        aperture_width = 0.0;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* newline = nestLevel ? "\n" : "";
 
        const char* quote = out->GetQuoteChar( layer_id.c_str() );
        out->Print( nestLevel, "(%s %s%s%s %.6g", Name(), quote, layer_id.c_str(), quote,
                                 aperture_width );
 
        for( const POINT& pt : vertex )
            out->Print( 0, "  %.6g %.6g", pt.x, pt.y );
 
        out->Print( 0, ")%s", newline );
    }
 
    void SetLayerId( std::string& aLayerId )
    {
        layer_id = aLayerId;
    }
 
    void SetStart( const POINT& aStart )
    {
        vertex[0] = aStart;
 
        // no -0.0 on the printouts!
        vertex[0].FixNegativeZero();
    }
 
    void SetEnd( const POINT& aEnd )
    {
        vertex[1] = aEnd;
 
        // no -0.0 on the printouts!
        vertex[1].FixNegativeZero();
    }
 
    void SetCenter( const POINT& aCenter )
    {
        vertex[2] = aCenter;
 
        // no -0.0 on the printouts!
        vertex[2].FixNegativeZero();
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string layer_id;
    double      aperture_width;
    POINT       vertex[3];
};
 
 
class WINDOW : public ELEM
{
public:
 
    WINDOW( ELEM* aParent, DSN_T aType = T_window ) :
        ELEM( aType, aParent )
    {
        shape = nullptr;
    }
 
    ~WINDOW()
    {
        delete shape;
    }
 
    void SetShape( ELEM* aShape )
    {
        delete shape;
        shape = aShape;
 
        if( aShape )
        {
            wxASSERT( aShape->Type()==T_rect
                        || aShape->Type()==T_circle
                        || aShape->Type()==T_qarc
                        || aShape->Type()==T_path
                        || aShape->Type()==T_polygon);
 
            aShape->SetParent( this );
        }
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        out->Print( nestLevel, "(%s ", Name() );
 
        if( shape )
            shape->Format( out, 0 );
 
        out->Print( 0, ")\n" );
    }
 
protected:
    /*  <shape_descriptor >::=
        [<rectangle_descriptor> |
        <circle_descriptor> |
        <polygon_descriptor> |
        <path_descriptor> |
        <qarc_descriptor> ]
    */
    ELEM*       shape;
 
private:
    friend class SPECCTRA_DB;
};
 

class KEEPOUT : public ELEM
{
public:

    KEEPOUT( ELEM* aParent, DSN_T aType ) :
        ELEM( aType, aParent )
    {
        m_rules = nullptr;
        m_place_rules = nullptr;
        m_shape = nullptr;
 
        m_sequence_number = -1;
    }
 
    ~KEEPOUT()
    {
        delete m_rules;
        delete m_place_rules;
        delete m_shape;
    }
 
    void SetShape( ELEM* aShape )
    {
        delete m_shape;
        m_shape = aShape;
 
        if( aShape )
        {
            wxASSERT( aShape->Type()==T_rect
                            || aShape->Type()==T_circle
                            || aShape->Type()==T_qarc
                            || aShape->Type()==T_path
                            || aShape->Type()==T_polygon);
 
            aShape->SetParent( this );
        }
    }
 
    void AddWindow( WINDOW* aWindow )
    {
        aWindow->SetParent( this );
        m_windows.push_back( aWindow );
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* newline = "\n";
 
        out->Print( nestLevel, "(%s", Name() );
 
        if( m_name.size() )
        {
            const char* quote = out->GetQuoteChar( m_name.c_str() );
            out->Print( 0, " %s%s%s", quote, m_name.c_str(), quote );
        }
        // Could be not needed:
#if 1
        else
        {
            out->Print( 0, " \"\"" );   // the zone with no name or net_code == 0
        }
#endif
 
        if( m_sequence_number != -1 )
            out->Print( 0, " (sequence_number %d)", m_sequence_number );
 
        if( m_shape )
        {
            out->Print( 0, " " );
            m_shape->Format( out, 0 );
        }
 
        if( m_rules )
        {
            out->Print( 0, "%s", newline );
            newline = "";
            m_rules->Format( out, nestLevel+1 );
        }
 
        if( m_place_rules )
        {
            out->Print( 0, "%s", newline );
            newline = "";
            m_place_rules->Format( out, nestLevel+1 );
        }
 
        if( m_windows.size() )
        {
            out->Print( 0, "%s", newline );
            newline = "";
 
            for( WINDOW& window : m_windows )
                window.Format( out, nestLevel+1 );
 
            out->Print( nestLevel, ")\n" );
        }
        else
        {
            out->Print( 0, ")\n" );
        }
    }
 
protected:
    std::string               m_name;
    int                       m_sequence_number;
    RULE*                     m_rules;
    RULE*                     m_place_rules;
 
    boost::ptr_vector<WINDOW> m_windows;
 
    /*  <shape_descriptor >::=
        [<rectangle_descriptor> |
        <circle_descriptor> |
        <polygon_descriptor> |
        <path_descriptor> |
        <qarc_descriptor> ]
    */
    ELEM*                     m_shape;
 
private:
    friend class SPECCTRA_DB;
};
 

class VIA : public ELEM
{
public:
 
    VIA( ELEM* aParent ) :
        ELEM( T_via, aParent )
    {
    }
 
    void AppendVia( const char* aViaName )
    {
        m_padstacks.push_back( aViaName );
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const int RIGHTMARGIN = 80;
        int perLine = out->Print( nestLevel, "(%s", Name() );
 
        for( const std::string& padstack : m_padstacks )
        {
            if( perLine > RIGHTMARGIN )
            {
                out->Print( 0, "\n" );
                perLine = out->Print( nestLevel+1, "%s", "");
            }
 
            const char* quote = out->GetQuoteChar( padstack.c_str() );
            perLine += out->Print( 0, " %s%s%s", quote, padstack.c_str(), quote );
        }
 
        if( m_spares.size() )
        {
            out->Print( 0, "\n" );
 
            perLine = out->Print( nestLevel+1, "(spare" );
 
            for( const std::string& spare : m_spares )
            {
                if( perLine > RIGHTMARGIN )
                {
                    out->Print( 0, "\n" );
                    perLine = out->Print( nestLevel+2, "%s", "");
                }
 
                const char* quote = out->GetQuoteChar( spare.c_str() );
                perLine += out->Print( 0, " %s%s%s", quote, spare.c_str(), quote );
            }
 
            out->Print( 0, ")" );
        }
 
        out->Print( 0, ")\n" );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::vector<std::string> m_padstacks;
    std::vector<std::string> m_spares;
};
 
 
class CLASSES : public ELEM
{
public:
    CLASSES( ELEM* aParent ) :
        ELEM( T_classes, aParent )
    {
    }
 
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        for( const std::string& class_id : class_ids )
        {
            const char* quote = out->GetQuoteChar( class_id.c_str() );
            out->Print( nestLevel, "%s%s%s\n", quote, class_id.c_str(), quote );
        }
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::vector<std::string> class_ids;
};
 
 
class CLASS_CLASS : public ELEM_HOLDER
{
public:

    CLASS_CLASS( ELEM* aParent, DSN_T aType ) :
        ELEM_HOLDER( aType, aParent )
    {
        classes = nullptr;
    }
 
    ~CLASS_CLASS()
    {
        delete classes;
    }
 
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        if( classes )
            classes->Format( out, nestLevel );
 
        // format the kids
        ELEM_HOLDER::FormatContents( out, nestLevel );
    }
 
private:
    friend class SPECCTRA_DB;
 
    CLASSES*        classes;
 
    // rule | layer_rule are put into the kids container.
};
 
 
class CONTROL : public ELEM_HOLDER
{
public:
    CONTROL( ELEM* aParent ) :
        ELEM_HOLDER( T_control, aParent )
    {
        via_at_smd = false;
        via_at_smd_grid_on = false;
    }
 
    ~CONTROL()
    {
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        out->Print( nestLevel, "(%s\n", Name() );
 
        out->Print( nestLevel+1, "(via_at_smd %s", via_at_smd ? "on" : "off" );
 
        if( via_at_smd_grid_on )
            out->Print( 0, " grid %s", via_at_smd_grid_on ? "on" : "off" );
 
        out->Print( 0, ")\n" );
 
        for( int i = 0; i < Length(); ++i )
            At(i)->Format( out, nestLevel+1 );
 
        out->Print( nestLevel, ")\n" );
    }
 
private:
    friend class SPECCTRA_DB;
 
    bool    via_at_smd;
    bool    via_at_smd_grid_on;
};
 
 
class LAYER : public ELEM
{
public:
    LAYER( ELEM* aParent ) :
        ELEM( T_layer, aParent )
    {
        layer_type = T_signal;
        direction  = -1;
        cost       = -1;
        cost_type  = -1;
 
        rules = nullptr;
    }
 
    ~LAYER()
    {
        delete rules;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* quote = out->GetQuoteChar( name.c_str() );
 
        out->Print( nestLevel, "(%s %s%s%s\n", Name(), quote, name.c_str(), quote );
 
        out->Print( nestLevel+1, "(type %s)\n", GetTokenText( layer_type ) );
 
        if( properties.size() )
        {
            out->Print( nestLevel+1, "(property\n" );
 
            for( PROPERTY& property : properties )
                property.Format( out, nestLevel+2 );
 
            out->Print( nestLevel+1, ")\n" );
        }
 
        if( direction != -1 )
            out->Print( nestLevel+1, "(direction %s)\n", GetTokenText( (DSN_T)direction ) );
 
        if( rules )
            rules->Format( out, nestLevel+1 );
 
        if( cost != -1 )
        {
            if( cost < 0 )
                // positive integer, stored as negative.
                out->Print( nestLevel+1, "(cost %d", -cost );
            else
                out->Print( nestLevel+1, "(cost %s", GetTokenText( (DSN_T)cost ) );
 
            if( cost_type != -1 )
                out->Print( 0, " (type %s)", GetTokenText( (DSN_T)cost_type ) );
 
            out->Print( 0, ")\n" );
        }
 
        if( use_net.size() )
        {
            out->Print( nestLevel+1, "(use_net" );
 
            for( const std::string& net : use_net )
            {
                quote = out->GetQuoteChar( net.c_str() );
                out->Print( 0, " %s%s%s",  quote, net.c_str(), quote );
            }
 
            out->Print( 0, ")\n" );
        }
 
        out->Print( nestLevel, ")\n" );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string              name;
    DSN_T                    layer_type; 
    int                      direction;

    int                      cost;
    int                      cost_type;  
    RULE*                    rules;
    std::vector<std::string> use_net;
 
    PROPERTIES               properties;
};
 
 
class SPECCTRA_LAYER_PAIR : public ELEM
{
public:
    SPECCTRA_LAYER_PAIR( ELEM* aParent ) :
        ELEM( T_layer_pair, aParent )
    {
        layer_weight = 0.0;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* quote0 = out->GetQuoteChar( layer_id0.c_str() );
        const char* quote1 = out->GetQuoteChar( layer_id1.c_str() );
 
        out->Print( nestLevel, "(%s %s%s%s %s%s%s %.6g)\n",
                    Name(),
                    quote0, layer_id0.c_str(), quote0,
                    quote1, layer_id1.c_str(), quote1,
                    layer_weight );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string     layer_id0;
    std::string     layer_id1;
 
    double          layer_weight;
};
 
typedef boost::ptr_vector<SPECCTRA_LAYER_PAIR>  SPECCTRA_LAYER_PAIRS;
 
 
class LAYER_NOISE_WEIGHT : public ELEM
{
    friend class SPECCTRA_DB;
 
    SPECCTRA_LAYER_PAIRS     layer_pairs;
 
public:
 
    LAYER_NOISE_WEIGHT( ELEM* aParent ) :
        ELEM( T_layer_noise_weight, aParent )
    {
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        out->Print( nestLevel, "(%s\n", Name() );
 
        for( SPECCTRA_LAYER_PAIR& pair : layer_pairs )
            pair.Format( out, nestLevel+1 );
 
        out->Print( nestLevel, ")\n" );
    }
};
 

class COPPER_PLANE : public KEEPOUT
{
public:
    COPPER_PLANE( ELEM* aParent ) :
        KEEPOUT( aParent, T_plane )
    {}
 
private:
    friend class SPECCTRA_DB;
};
 
typedef boost::ptr_vector<COPPER_PLANE>    COPPER_PLANES;
 

class TOKPROP : public ELEM
{
public:
    TOKPROP( ELEM* aParent, DSN_T aType ) :
        ELEM( aType, aParent )
    {
        // Do not leave uninitialized members
        value = T_NONE;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        out->Print( nestLevel, "(%s %s)\n", Name(), GetTokenText( value ) );
    }
 
private:
    friend class SPECCTRA_DB;
 
    DSN_T       value;
};
 

class STRINGPROP : public ELEM
{
public:
    STRINGPROP( ELEM* aParent, DSN_T aType ) :
        ELEM( aType, aParent )
    {
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* quote = out->GetQuoteChar( value.c_str() );
 
        out->Print( nestLevel, "(%s %s%s%s)\n",
                               Name(),
                               quote, value.c_str(), quote );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string     value;
};
 
 
class REGION : public ELEM_HOLDER
{
public:
    REGION( ELEM* aParent ) :
        ELEM_HOLDER( T_region, aParent )
    {
        m_rectangle = nullptr;
        m_polygon = nullptr;
        m_rules = nullptr;
    }
 
    ~REGION()
    {
        delete m_rectangle;
        delete m_polygon;
        delete m_rules;
    }
 
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        if( m_region_id.size() )
        {
            const char* quote = out->GetQuoteChar( m_region_id.c_str() );
            out->Print( nestLevel, "%s%s%s\n", quote, m_region_id.c_str(), quote );
        }
 
        if( m_rectangle )
            m_rectangle->Format( out, nestLevel );
 
        if( m_polygon )
            m_polygon->Format( out, nestLevel );
 
        ELEM_HOLDER::FormatContents( out, nestLevel );
 
        if( m_rules )
            m_rules->Format( out, nestLevel );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string     m_region_id;
 
    //-----<mutually exclusive>--------------------------------------
    RECTANGLE*      m_rectangle;
    PATH*           m_polygon;
    //-----</mutually exclusive>-------------------------------------
 
    /* region_net | region_class | region_class_class are all mutually
       exclusive and are put into the kids container.
    */
 
    RULE*           m_rules;
};
 
 
class GRID : public ELEM
{
public:
    GRID( ELEM* aParent ) :
        ELEM( T_grid, aParent )
    {
        m_grid_type  = T_via;
        m_direction  = T_NONE;
        m_dimension  = 0.0;
        m_offset     = 0.0;
        m_image_type = T_NONE;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        out->Print( nestLevel, "(%s %s %.6g", Name(), GetTokenText( m_grid_type ), m_dimension );
 
        if( m_grid_type == T_place )
        {
            if( m_image_type == T_smd || m_image_type == T_pin )
                out->Print( 0, " (image_type %s)", GetTokenText( m_image_type ) );
        }
        else
        {
            if( m_direction == T_x || m_direction == T_y )
                out->Print( 0, " (direction %s)", GetTokenText( m_direction ) );
        }
 
        if( m_offset != 0.0 )
            out->Print( 0, " (offset %.6g)", m_offset );
 
        out->Print( 0, ")\n");
    }
 
private:
    friend class SPECCTRA_DB;
 
    DSN_T       m_grid_type;      
    double      m_dimension;
    DSN_T       m_direction;      
    double      m_offset;
    DSN_T       m_image_type;
};
 
 
class STRUCTURE_OUT : public ELEM
{
public:
    STRUCTURE_OUT( ELEM* aParent ) :
        ELEM( T_structure_out, aParent )
    {
        m_rules = nullptr;
    }
 
    ~STRUCTURE_OUT()
    {
        delete m_rules;
    }
 
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        for( LAYER& layer : m_layers )
            layer.Format( out, nestLevel );
 
        if( m_rules )
            m_rules->Format( out, nestLevel );
    }
 
private:
    friend class SPECCTRA_DB;
 
    boost::ptr_vector<LAYER> m_layers;
    RULE*                    m_rules;
};
 
 
class STRUCTURE : public ELEM_HOLDER
{
public:
    STRUCTURE( ELEM* aParent ) :
        ELEM_HOLDER( T_structure, aParent )
    {
        m_unit = nullptr;
        m_layer_noise_weight = nullptr;
        m_boundary = nullptr;
        m_place_boundary = nullptr;
        m_via = nullptr;
        m_control = nullptr;
        m_rules = nullptr;
        m_place_rules = nullptr;
    }
 
    ~STRUCTURE()
    {
        delete m_unit;
        delete m_layer_noise_weight;
        delete m_boundary;
        delete m_place_boundary;
        delete m_via;
        delete m_control;
        delete m_rules;
        delete m_place_rules;
    }
 
    void SetBOUNDARY( BOUNDARY *aBoundary )
    {
        delete m_boundary;
        m_boundary = aBoundary;
 
        if( m_boundary )
            m_boundary->SetParent( this );
    }
 
    void SetPlaceBOUNDARY( BOUNDARY *aBoundary )
    {
        delete m_place_boundary;
        m_place_boundary = aBoundary;
 
        if( m_place_boundary )
            m_place_boundary->SetParent( this );
    }
 
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        if( m_unit )
            m_unit->Format( out, nestLevel );
 
        for( LAYER& layer : m_layers)
            layer.Format( out, nestLevel );
 
        if( m_layer_noise_weight )
            m_layer_noise_weight->Format( out, nestLevel );
 
        if( m_boundary )
            m_boundary->Format( out, nestLevel );
 
        if( m_place_boundary )
            m_place_boundary->Format( out, nestLevel );
 
        for( COPPER_PLANE& plane : m_planes )
            plane.Format( out, nestLevel );
 
        for( REGION& region : m_regions )
            region.Format( out, nestLevel );
 
        for( KEEPOUT& keepout : m_keepouts )
            keepout.Format( out, nestLevel );
 
        if( m_via )
            m_via->Format( out, nestLevel );
 
        if( m_control )
            m_control->Format( out, nestLevel );
 
        for( int i=0; i<Length();  ++i )
        {
            At(i)->Format( out, nestLevel );
        }
 
        if( m_rules )
            m_rules->Format( out, nestLevel );
 
        if( m_place_rules )
            m_place_rules->Format( out, nestLevel );
 
        for( GRID& grid : m_grids )
            grid.Format( out, nestLevel );
    }
 
    UNIT_RES* GetUnits() const override
    {
        if( m_unit )
            return m_unit;
 
        return ELEM::GetUnits();
    }
 
private:
    friend class SPECCTRA_DB;
 
    UNIT_RES*                       m_unit;
 
    boost::ptr_vector<LAYER>        m_layers;
 
    LAYER_NOISE_WEIGHT*             m_layer_noise_weight;
 
    BOUNDARY*                       m_boundary;
    BOUNDARY*                       m_place_boundary;
    VIA*                            m_via;
    CONTROL*                        m_control;
    RULE*                           m_rules;
 
    boost::ptr_vector<KEEPOUT>      m_keepouts;
    boost::ptr_vector<COPPER_PLANE> m_planes;
    boost::ptr_vector<REGION>       m_regions;
 
    RULE*                           m_place_rules;
 
    boost::ptr_vector<GRID>         m_grids;
};
 

class PLACE : public ELEM
{
public:
    PLACE( ELEM* aParent ) :
        ELEM( T_place, aParent )
    {
        m_side = T_front;
 
        m_rotation = 0.0;
 
        m_hasVertex = false;
 
        m_mirror = T_NONE;
        m_status = T_NONE;
 
        m_place_rules = nullptr;
 
        m_lock_type = T_NONE;
        m_rules = nullptr;
        m_region = nullptr;
    }
 
    ~PLACE()
    {
        delete m_place_rules;
        delete m_rules;
        delete m_region;
    }
 
    void SetVertex( const POINT& aVertex )
    {
        m_vertex = aVertex;
        m_vertex.FixNegativeZero();
        m_hasVertex = true;
    }
 
    void SetRotation( double aRotation )
    {
        m_rotation = aRotation;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override;
 
private:
    friend class SPECCTRA_DB;
 
    std::string     m_component_id;       
 
    DSN_T           m_side;
 
    double          m_rotation;
 
    bool            m_hasVertex;
    POINT           m_vertex;
 
    DSN_T           m_mirror;
    DSN_T           m_status;
 
    std::string     m_logical_part;
 
    RULE*           m_place_rules;
 
    PROPERTIES      m_properties;
 
    DSN_T           m_lock_type;
 
    //-----<mutually exclusive>--------------
    RULE*           m_rules;
    REGION*         m_region;
    //-----</mutually exclusive>-------------
 
    std::string     m_part_number;
};
 

class COMPONENT : public ELEM
{
public:
    COMPONENT( ELEM* aParent ) :
        ELEM( T_component, aParent )
    {
    }
 
    const std::string& GetImageId() const  { return m_image_id; }
    void SetImageId( const std::string& aImageId )
    {
        m_image_id = aImageId;
    }
 

//    static int Compare( IMAGE* lhs, IMAGE* rhs );
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* quote = out->GetQuoteChar( m_image_id.c_str() );
        out->Print( nestLevel, "(%s %s%s%s\n", Name(), quote, m_image_id.c_str(), quote );
 
        FormatContents( out, nestLevel+1 );
 
        out->Print( nestLevel, ")\n" );
    }
 
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        for( PLACE& place : m_places )
            place.Format( out, nestLevel );
    }
 
private:
    friend class SPECCTRA_DB;
 
//  std::string              m_hash;       ///< a hash string used by Compare(), not Format()ed/exported.
 
    std::string              m_image_id;
    boost::ptr_vector<PLACE> m_places;
};
 
 
class PLACEMENT : public ELEM
{
public:
    PLACEMENT( ELEM* aParent ) :
        ELEM( T_placement, aParent )
    {
        m_unit = nullptr;
        m_flip_style = DSN_T( T_NONE );
    }
 
    ~PLACEMENT()
    {
        delete m_unit;
    }

    COMPONENT* LookupCOMPONENT( const std::string& imageName )
    {
        for( COMPONENT& component : m_components )
        {
            if( component.GetImageId().compare( imageName ) == 0 )
                return &component;
        }
 
        COMPONENT* added = new COMPONENT(this);
        m_components.push_back( added );
        added->SetImageId( imageName );
        return added;
    }
 
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        if( m_unit )
            m_unit->Format( out, nestLevel );
 
        if( m_flip_style != DSN_T( T_NONE ) )
        {
            out->Print( nestLevel, "(place_control (flip_style %s))\n", GetTokenText( m_flip_style ) );
        }
 
        for(auto & m_component : m_components )
            m_component.Format( out, nestLevel );
    }
 
    UNIT_RES* GetUnits() const override
    {
        if( m_unit )
            return m_unit;
 
        return ELEM::GetUnits();
    }
 
private:
    friend class SPECCTRA_DB;
 
    UNIT_RES*                    m_unit;
    DSN_T                        m_flip_style;
    boost::ptr_vector<COMPONENT> m_components;
};
 

class SHAPE : public WINDOW
{
public:
    SHAPE( ELEM* aParent, DSN_T aType = T_shape ) :
        WINDOW( aParent, aType )
    {
        m_connect = T_on;
    }
 
    void SetConnect( DSN_T aConnect )
    {
        m_connect = aConnect;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        out->Print( nestLevel, "(%s ", Name() );
 
        if( shape )
            shape->Format( out, 0 );
 
        if( m_connect == T_off )
            out->Print( 0, "(connect %s)", GetTokenText( m_connect ) );
 
        if( m_windows.size() )
        {
            out->Print( 0, "\n" );
 
            for( WINDOW& window : m_windows )
                window.Format( out, nestLevel+1 );
 
            out->Print( nestLevel, ")\n" );
        }
        else
        {
            out->Print( 0, ")\n" );
        }
    }
 
private:
    friend class SPECCTRA_DB;
 
    DSN_T                     m_connect;
 
    /*  <shape_descriptor >::=
        [<rectangle_descriptor> |
        <circle_descriptor> |
        <polygon_descriptor> |
        <path_descriptor> |
        <qarc_descriptor> ]
    ELEM*           shape;      // inherited from WINDOW
    */
 
    boost::ptr_vector<WINDOW> m_windows;
};
 
 
class PIN : public ELEM
{
public:
    PIN( ELEM* aParent ) :
        ELEM( T_pin, aParent )
    {
        m_rotation = 0.0;
        m_isRotated = false;
        m_kiNetCode = 0;
    }
 
    void SetRotation( double aRotation )
    {
        m_rotation = aRotation;
        m_isRotated = (aRotation != 0.0);
    }
 
    void SetVertex( const POINT& aPoint )
    {
        m_vertex = aPoint;
        m_vertex.FixNegativeZero();
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* quote = out->GetQuoteChar( m_padstack_id.c_str() );
        if( m_isRotated )
            out->Print( nestLevel, "(pin %s%s%s (rotate %.6g)", quote, m_padstack_id.c_str(), quote, m_rotation );
        else
            out->Print( nestLevel, "(pin %s%s%s", quote, m_padstack_id.c_str(), quote );
 
        quote = out->GetQuoteChar( m_pin_id.c_str() );
        out->Print( 0, " %s%s%s %.6g %.6g)\n", quote, m_pin_id.c_str(), quote, m_vertex.x, m_vertex.y );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string     m_padstack_id;
    double          m_rotation;
    bool            m_isRotated;
    std::string     m_pin_id;
    POINT           m_vertex;
 
    int             m_kiNetCode;      
};
 
 
class LIBRARY;
 
class IMAGE : public ELEM_HOLDER
{
public:
    IMAGE( ELEM* aParent ) :
        ELEM_HOLDER( T_image, aParent )
    {
        m_side = T_both;
        m_unit = nullptr;
        m_rules = nullptr;
        m_place_rules = nullptr;
        m_duplicated = 0;
    }
 
    ~IMAGE()
    {
        delete m_unit;
        delete m_rules;
        delete m_place_rules;
    }

    static int Compare( IMAGE* lhs, IMAGE* rhs );
 
    std::string GetImageId()
    {
        if( m_duplicated )
        {
            return m_image_id + "::" + std::to_string( m_duplicated );
        }
 
        return m_image_id;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        std::string imageId = GetImageId();
 
        const char* quote = out->GetQuoteChar( imageId.c_str() );
 
        out->Print( nestLevel, "(%s %s%s%s", Name(), quote, imageId.c_str(), quote );
 
        FormatContents( out, nestLevel+1 );
 
        out->Print( nestLevel, ")\n" );
    }
 
    // this is here for makeHash()
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        if( m_side != T_both )
            out->Print( 0, " (side %s)", GetTokenText( m_side ) );
 
        out->Print( 0, "\n");
 
        if( m_unit )
            m_unit->Format( out, nestLevel );
 
        // format the kids, which in this class are the shapes
        ELEM_HOLDER::FormatContents( out, nestLevel );
 
        for( PIN& pin : m_pins )
            pin.Format( out, nestLevel );
 
        if( m_rules )
            m_rules->Format( out, nestLevel );
 
        if( m_place_rules )
            m_place_rules->Format( out, nestLevel );
 
        for( KEEPOUT& keepout : m_keepouts )
            keepout.Format( out, nestLevel );
    }
 
    UNIT_RES* GetUnits() const override
    {
        if( m_unit )
            return m_unit;
 
        return ELEM::GetUnits();
    }
 
private:
    friend class SPECCTRA_DB;
    friend class LIBRARY;
 
    std::string     m_hash;       
 
    std::string     m_image_id;
    DSN_T           m_side;
    UNIT_RES*       m_unit;
 
    /*  The grammar spec says only one outline is supported, but I am seeing
        *.dsn examples with multiple outlines.  So the outlines will go into
        the kids list.
    */
 
    boost::ptr_vector<PIN>     m_pins;
 
    RULE*                      m_rules;
    RULE*                      m_place_rules;
 
    boost::ptr_vector<KEEPOUT> m_keepouts;
 
    int                        m_duplicated;     
};
 

class PADSTACK : public ELEM_HOLDER
{
public:
    PADSTACK() :
        ELEM_HOLDER( T_padstack, nullptr )
    {
        m_unit = nullptr;
        m_rotate = T_on;
        m_absolute = T_off;
        m_rules = nullptr;
        m_attach = T_off;
    }
 
    ~PADSTACK()
    {
        delete m_unit;
        delete m_rules;
    }
 
    const std::string& GetPadstackId()
    {
        return m_padstack_id;
    }

    static int Compare( PADSTACK* lhs, PADSTACK* rhs );
 
    void SetPadstackId( const char* aPadstackId )
    {
        m_padstack_id = aPadstackId;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* quote = out->GetQuoteChar( m_padstack_id.c_str() );
 
        out->Print( nestLevel, "(%s %s%s%s\n", Name(), quote, m_padstack_id.c_str(), quote );
 
        FormatContents( out, nestLevel+1 );
 
        out->Print( nestLevel, ")\n" );
    }
 
    // this factored out for use by Compare()
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        if( m_unit )
            m_unit->Format( out, nestLevel );
 
        // format the kids, which in this class are the shapes
        ELEM_HOLDER::FormatContents( out, nestLevel );
 
        out->Print( nestLevel, "%s", "" );
 
        // spec for <attach_descriptor> says default is on, so
        // print the off condition to override this.
        if( m_attach == T_off )
        {
            out->Print( 0, "(attach off)" );
        }
        else if( m_attach == T_on )
        {
            const char* quote = out->GetQuoteChar( m_via_id.c_str() );
 
            out->Print( 0, "(attach on (use_via %s%s%s))", quote, m_via_id.c_str(), quote );
        }
 
        if( m_rotate == T_off )   // print the non-default
            out->Print( 0, "(rotate %s)", GetTokenText( m_rotate ) );
 
        if( m_absolute == T_on )  // print the non-default
            out->Print( 0, "(absolute %s)", GetTokenText( m_absolute ) );
 
        out->Print( 0, "\n" );
 
        if( m_rules )
            m_rules->Format( out, nestLevel );
    }
 
 
    UNIT_RES* GetUnits() const override
    {
        if( m_unit )
            return m_unit;
 
        return ELEM::GetUnits();
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string  m_hash;       
 
    std::string  m_padstack_id;
    UNIT_RES*    m_unit;
 
    /* The shapes are stored in the kids list */
 
    DSN_T        m_rotate;
    DSN_T        m_absolute;
    DSN_T        m_attach;
    std::string  m_via_id;
 
    RULE*        m_rules;
};
 

inline bool operator<( const PADSTACK& lhs, const PADSTACK& rhs )
{
    return PADSTACK::Compare( (PADSTACK*) &lhs, (PADSTACK*) &rhs ) < 0;
}
 

class LIBRARY : public ELEM
{
public:
    LIBRARY( ELEM* aParent, DSN_T aType = T_library ) :
        ELEM( aType, aParent )
    {
        m_unit = nullptr;
//        via_start_index = -1;       // 0 or greater means there is at least one via
    }
 
    ~LIBRARY()
    {
        delete m_unit;
    }
 
    void AddPadstack( PADSTACK* aPadstack )
    {
        aPadstack->SetParent( this );
        m_padstacks.push_back( aPadstack );
    }
 
/*
    void SetViaStartIndex( int aIndex )
    {
        via_start_index = aIndex;
    }
    int GetViaStartIndex()
    {
        return via_start_index;
    }
*/

    int FindIMAGE( IMAGE* aImage )
    {
        unsigned i;
 
        for( i = 0; i < m_images.size(); ++i )
        {
            if( IMAGE::Compare( aImage, &m_images[i] ) == 0 )
                return (int) i;
        }
 
        // There is no match to the IMAGE contents, but now generate a unique
        // name for it.
        int dups = 1;
 
        for( const IMAGE& image : m_images )
        {
            if( image.m_image_id == aImage->m_image_id )
                aImage->m_duplicated = dups++;
        }
 
        return -1;
    }
 

    void AppendIMAGE( IMAGE* aImage )
    {
        aImage->SetParent( this );
        m_images.push_back( aImage );
    }

    IMAGE* LookupIMAGE( IMAGE* aImage )
    {
        int ndx = FindIMAGE( aImage );
 
        if( ndx == -1 )
        {
            AppendIMAGE( aImage );
            return aImage;
        }
 
        return &m_images[ndx];
    }

    int FindVia( PADSTACK* aVia )
    {
        for( unsigned i = 0; i < m_vias.size(); ++i )
        {
            if( PADSTACK::Compare( aVia, &m_vias[i] ) == 0 )
                return int( i );
        }
 
        return -1;
    }

    void AppendVia( PADSTACK* aVia )
    {
        aVia->SetParent( this );
        m_vias.push_back( aVia );
    }
 

    void AppendPADSTACK( PADSTACK* aPadstack )
    {
        aPadstack->SetParent( this );
        m_padstacks.push_back( aPadstack );
    }

    PADSTACK* LookupVia( PADSTACK* aVia )
    {
        int ndx = FindVia( aVia );
 
        if( ndx == -1 )
        {
            AppendVia( aVia );
            return aVia;
        }
 
        return &m_vias[ndx];
    }

    PADSTACK* FindPADSTACK( const std::string& aPadstackId )
    {
        for( PADSTACK& padstack : m_padstacks )
        {
            if( padstack.GetPadstackId().compare( aPadstackId ) == 0 )
                return &padstack;
        }
 
        return nullptr;
    }
 
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        if( m_unit )
            m_unit->Format( out, nestLevel );
 
        for( IMAGE& image : m_images )
            image.Format( out, nestLevel );
 
        for( PADSTACK& padstack : m_padstacks )
            padstack.Format( out, nestLevel );
 
        for( PADSTACK& via : m_vias )
            via.Format( out, nestLevel );
    }
 
    UNIT_RES* GetUnits() const override
    {
        if( m_unit )
            return m_unit;
 
        return ELEM::GetUnits();
    }
 
private:
    friend class SPECCTRA_DB;
 
    UNIT_RES*       m_unit;
    boost::ptr_vector<IMAGE>    m_images;
 
    boost::ptr_vector<PADSTACK> m_padstacks;      
    boost::ptr_vector<PADSTACK> m_vias;
};
 

struct PIN_REF : public ELEM
{
    PIN_REF( ELEM* aParent ) :
        ELEM( T_pin, aParent )
    {
    }
 

    int FormatIt( OUTPUTFORMATTER* out, int nestLevel )
    {
        // only print the newline if there is a nest level, and make
        // the quotes unconditional on this one.
        const char* newline = nestLevel ? "\n" : "";
 
        const char* cquote = out->GetQuoteChar( component_id.c_str() );
        const char* pquote = out->GetQuoteChar( pin_id.c_str() );
 
        return out->Print( nestLevel, "%s%s%s-%s%s%s%s", cquote, component_id.c_str(), cquote,
                                      pquote, pin_id.c_str(), pquote, newline );
    }
 
    std::string     component_id;
    std::string     pin_id;
};
 
 
class FROMTO : public ELEM
{
public:
    FROMTO( ELEM* aParent ) :
        ELEM( T_fromto, aParent )
    {
        m_rules = nullptr;
        m_fromto_type  = DSN_T( T_NONE );
    }
 
    ~FROMTO()
    {
        delete m_rules;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        // no quoting on these two, the lexer preserved the quotes on input
        out->Print( nestLevel, "(%s %s %s ", Name(), m_fromText.c_str(), m_toText.c_str() );
 
        if( m_fromto_type != DSN_T( T_NONE ) )
            out->Print( 0, "(type %s)", GetTokenText( m_fromto_type ) );
 
        if( m_net_id.size() )
        {
            const char* quote = out->GetQuoteChar( m_net_id.c_str() );
            out->Print( 0, "(net %s%s%s)",  quote, m_net_id.c_str(), quote );
        }
 
        bool singleLine = true;
 
        if( m_rules || m_layer_rules.size() )
        {
            out->Print( 0, "\n" );
            singleLine = false;
        }
 
        if( m_rules )
            m_rules->Format( out, nestLevel+1 );
 
        /*
        if( circuit.size() )
            out->Print( nestLevel, "%s\n", circuit.c_str() );
        */
 
        for( LAYER_RULE& layer_rule : m_layer_rules )
            layer_rule.Format( out, nestLevel+1 );
 
        out->Print( singleLine ? 0 : nestLevel, ")" );
 
        if( nestLevel || !singleLine )
            out->Print( 0, "\n" );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string                   m_fromText;
    std::string                   m_toText;
 
    DSN_T                         m_fromto_type;
    std::string                   m_net_id;
    RULE*                         m_rules;
//  std::string                   m_circuit;
    boost::ptr_vector<LAYER_RULE> m_layer_rules;
};
 

class COMP_ORDER : public ELEM
{
public:
    COMP_ORDER( ELEM* aParent ) :
        ELEM( T_comp_order, aParent )
    {
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        out->Print( nestLevel, "(%s", Name() );
 
        for( const std::string& placement_id : m_placement_ids )
        {
            const char* quote = out->GetQuoteChar( placement_id.c_str() );
            out->Print( 0, " %s%s%s", quote, placement_id.c_str(), quote );
        }
 
        out->Print( 0, ")" );
 
        if( nestLevel )
            out->Print( 0, "\n" );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::vector<std::string> m_placement_ids;
};
 
typedef boost::ptr_vector<COMP_ORDER>   COMP_ORDERS;

class NET : public ELEM
{
public:
    NET( ELEM* aParent ) :
        ELEM( T_net, aParent )
    {
        m_unassigned = false;
        m_net_number = T_NONE;
        m_pins_type = T_pins;
 
        m_type = T_NONE;
        m_supply = T_NONE;
 
        m_rules = nullptr;
        m_comp_order = nullptr;
    }
 
    ~NET()
    {
        delete m_rules;
        delete m_comp_order;
    }
 
    int FindPIN_REF( const std::string& aComponent )
    {
        for( unsigned i = 0; i < m_pins.size(); ++i )
        {
            if( aComponent == m_pins[i].component_id )
                return int(i);
        }
 
        return -1;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* quote = out->GetQuoteChar( m_net_id.c_str() );
        const char* space = " ";
 
        out->Print( nestLevel, "(%s %s%s%s", Name(), quote, m_net_id.c_str(), quote );
 
        if( m_unassigned )
        {
            out->Print( 0, "%s(unassigned)", space );
            space = "";         // only needed one space
        }
 
        if( m_net_number != T_NONE )
        {
            out->Print( 0, "%s(net_number %d)", space, m_net_number );
            // space = "";
        }
 
        out->Print( 0, "\n" );
 
        if( m_pins.size() )
        {
            const int RIGHTMARGIN = 80;
            int perLine = out->Print( nestLevel+1, "(%s", GetTokenText( m_pins_type ) );
 
            for( PIN_REF& pin : m_pins )
            {
                if( perLine > RIGHTMARGIN )
                {
                    out->Print( 0, "\n");
                    perLine = out->Print( nestLevel+2, "%s", "" );
                }
                else
                {
                    perLine += out->Print( 0, " " );
                }
 
                perLine += pin.FormatIt( out, 0 );
            }
 
            out->Print( 0, ")\n" );
        }
 
        if( m_comp_order )
            m_comp_order->Format( out, nestLevel+1 );
 
        if( m_type != T_NONE )
            out->Print( nestLevel+1, "(type %s)\n", GetTokenText( m_type ) );
 
        if( m_rules )
            m_rules->Format( out, nestLevel+1 );
 
        for( LAYER_RULE& layer_rule : m_layer_rules )
            layer_rule.Format( out, nestLevel+1 );
 
        for( FROMTO& from_to : m_fromtos )
            from_to.Format( out, nestLevel+1 );
 
        out->Print( nestLevel, ")\n" );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string                   m_net_id;
    bool                          m_unassigned;
    int                           m_net_number;
 
    DSN_T                         m_pins_type;      
    std::vector<PIN_REF>          m_pins;
 
    std::vector<PIN_REF>          m_expose;
    std::vector<PIN_REF>          m_noexpose;
    std::vector<PIN_REF>          m_source;
    std::vector<PIN_REF>          m_load;
    std::vector<PIN_REF>          m_terminator;
 
    DSN_T                         m_type;           
    DSN_T                         m_supply;         
    RULE*                         m_rules;
 
    boost::ptr_vector<LAYER_RULE> m_layer_rules;
    boost::ptr_vector<FROMTO>     m_fromtos;
    COMP_ORDER*                   m_comp_order;
};
 
 
class TOPOLOGY : public ELEM
{
public:
    TOPOLOGY( ELEM* aParent ) :
        ELEM( T_topology, aParent )
    {
    }
 
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        for( FROMTO& from_to : m_fromtos )
            from_to.Format( out, nestLevel );
 
        for( COMP_ORDER& comp_order : m_comp_orders )
            comp_order.Format( out, nestLevel );
    }
 
private:
    friend class SPECCTRA_DB;
 
    boost::ptr_vector<FROMTO>     m_fromtos;
    boost::ptr_vector<COMP_ORDER> m_comp_orders;
};
 

class CLASS : public ELEM
{
public:
    CLASS( ELEM* aParent ) :
        ELEM( T_class, aParent )
    {
        m_rules = nullptr;
        m_topology = nullptr;
    }
 
    ~CLASS()
    {
        delete m_rules;
        delete m_topology;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* quote = out->GetQuoteChar( m_class_id.c_str() );
 
        int perLine = out->Print( nestLevel, "(%s %s%s%s", Name(), quote, m_class_id.c_str(), quote );
 
        const int RIGHTMARGIN = 72;
 
        for( const std::string& net_id : m_net_ids )
        {
            const char* space = " ";
 
            if( perLine > RIGHTMARGIN )
            {
                out->Print( 0, "\n" );
                perLine = out->Print( nestLevel+1, "%s", "" );
                space = ""; // no space at first net_id of the line
            }
 
            // Allegro PCB Router (Specctra) doesn't like empty net names
            if( net_id.empty() )
                continue;
 
            quote = out->GetQuoteChar( net_id.c_str() );
            perLine += out->Print( 0, "%s%s%s%s", space, quote, net_id.c_str(), quote );
        }
 
        bool newLine = false;
 
        if( m_circuit.size() || m_rules || m_layer_rules.size() || m_topology )
        {
            out->Print( 0, "\n" );
            newLine = true;
        }
 
        if( m_circuit.size() )
        {
            out->Print( nestLevel+1, "(circuit\n" );
 
            for( const std::string& circuit : m_circuit )
                out->Print( nestLevel + 2, "%s\n", circuit.c_str() );
 
            out->Print( nestLevel+1, ")\n" );
        }
 
        if( m_rules )
            m_rules->Format( out, nestLevel+1 );
 
        for( LAYER_RULE& layer_rule : m_layer_rules )
            layer_rule.Format( out, nestLevel + 1 );
 
        if( m_topology )
            m_topology->Format( out, nestLevel+1 );
 
        out->Print( newLine ? nestLevel : 0, ")\n" );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string                   m_class_id;
    std::vector<std::string>      m_net_ids;

    std::vector<std::string>      m_circuit;
 
    RULE*                         m_rules;
    boost::ptr_vector<LAYER_RULE> m_layer_rules;
    TOPOLOGY*                     m_topology;
};
 
typedef boost::ptr_vector<CLASS> CLASSLIST;
 
 
class NETWORK : public ELEM
{
public:
    NETWORK( ELEM* aParent ) :
        ELEM( T_network, aParent )
    {
    }
 
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        for( NET& net : m_nets )
            net.Format( out, nestLevel );
 
        for( CLASS& c : m_classes )
            c.Format( out, nestLevel );
    }
 
private:
    friend class SPECCTRA_DB;
 
    boost::ptr_vector<NET>   m_nets;
    boost::ptr_vector<CLASS> m_classes;
};
 
 
class CONNECT : public ELEM
{
    // @todo not completed.
 
public:
    CONNECT( ELEM* aParent ) :
        ELEM( T_connect, aParent ) {}
};
 

class WIRE : public ELEM
{
public:
    WIRE( ELEM* aParent ) :
        ELEM( T_wire, aParent )
    {
        m_shape = nullptr;
        m_connect = nullptr;
 
        m_turret = -1;
        m_wire_type = T_NONE;
        m_attr = T_NONE;
        m_supply = false;
    }
 
    ~WIRE()
    {
        delete m_shape;
        delete m_connect;
    }
 
    void SetShape( ELEM* aShape )
    {
        delete m_shape;
        m_shape = aShape;
 
        if( aShape )
        {
            wxASSERT(aShape->Type()==T_rect || aShape->Type()==T_circle
                     || aShape->Type()==T_qarc || aShape->Type()==T_path
                     || aShape->Type()==T_polygon);
 
            aShape->SetParent( this );
        }
    }
 
    void AddWindow( WINDOW* aWindow )
    {
        aWindow->SetParent( this );
        m_windows.push_back( aWindow );
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        out->Print( nestLevel, "(%s ", Name() );
 
        if( m_shape )
            m_shape->Format( out, 0 );
 
        if( m_net_id.size() )
        {
            const char* quote = out->GetQuoteChar( m_net_id.c_str() );
            out->Print( 0, "(net %s%s%s)", quote, m_net_id.c_str(), quote );
        }
 
        if( m_turret >= 0 )
            out->Print( 0, "(turrent %d)", m_turret );
 
        if( m_wire_type != T_NONE )
            out->Print( 0, "(type %s)", GetTokenText( m_wire_type ) );
 
        if( m_attr != T_NONE )
            out->Print( 0, "(attr %s)", GetTokenText( m_attr ) );
 
        if( m_shield.size() )
        {
            const char* quote = out->GetQuoteChar( m_shield.c_str() );
            out->Print( 0, "(shield %s%s%s)", quote, m_shield.c_str(), quote );
        }
 
        if( m_windows.size() )
        {
            out->Print( 0, "\n" );
 
            for( WINDOW& window : m_windows )
                window.Format( out, nestLevel + 1 );
 
            out->Print( nestLevel, "" );
        }
 
        if( m_connect )
            m_connect->Format( out, 0 );
 
        if( m_supply )
            out->Print( 0, "(supply)" );
 
        out->Print( 0, ")\n" );
    }
 
private:
    friend class SPECCTRA_DB;
 
    /*  <shape_descriptor >::=
        [<rectangle_descriptor> |
        <circle_descriptor> |
        <polygon_descriptor> |
        <path_descriptor> |
        <qarc_descriptor> ]
    */
    ELEM*                     m_shape;
 
    std::string               m_net_id;
    int                       m_turret;
    DSN_T                     m_wire_type;
    DSN_T                     m_attr;
    std::string               m_shield;
    boost::ptr_vector<WINDOW> m_windows;
    CONNECT*                  m_connect;
    bool                      m_supply;
};
 

class WIRE_VIA : public ELEM
{
public:
    WIRE_VIA( ELEM* aParent ) :
        ELEM( T_via, aParent )
    {
        m_via_number = -1;
        m_via_type = T_NONE;
        m_attr = T_NONE;
        m_supply = false;
    }
 
    const std::string& GetPadstackId()
    {
        return m_padstack_id;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* quote = out->GetQuoteChar( m_padstack_id.c_str() );
 
        const int RIGHTMARGIN = 80;
        int perLine = out->Print( nestLevel, "(%s %s%s%s", Name(), quote, m_padstack_id.c_str(), quote );
 
        for( POINT& pt : m_vertexes )
        {
            if( perLine > RIGHTMARGIN )
            {
                out->Print( 0, "\n" );
                perLine = out->Print( nestLevel+1, "%s", "" );
            }
            else
            {
                perLine += out->Print( 0, "  " );
            }
 
            perLine += out->Print( 0, "%.6g %.6g", pt.x, pt.y );
        }
 
        if( m_net_id.size() || m_via_number!=-1 || m_via_type!=T_NONE || m_attr!=T_NONE || m_supply)
            out->Print( 0, " " );
 
        if( m_net_id.size() )
        {
            if( perLine > RIGHTMARGIN )
            {
                out->Print( 0, "\n" );
                perLine = out->Print( nestLevel+1, "%s", "" );
            }
 
            quote = out->GetQuoteChar( m_net_id.c_str() );
            perLine += out->Print( 0, "(net %s%s%s)", quote, m_net_id.c_str(), quote );
        }
 
        if( m_via_number != -1 )
        {
            if( perLine > RIGHTMARGIN )
            {
                out->Print( 0, "\n" );
                perLine = out->Print( nestLevel+1, "%s", "" );
            }
 
            perLine += out->Print( 0, "(via_number %d)", m_via_number );
        }
 
        if( m_via_type != T_NONE )
        {
            if( perLine > RIGHTMARGIN )
            {
                out->Print( 0, "\n" );
                perLine = out->Print( nestLevel+1, "%s", "" );
            }
 
            perLine += out->Print( 0, "(type %s)", GetTokenText( m_via_type ) );
        }
 
        if( m_attr != T_NONE )
        {
            if( perLine > RIGHTMARGIN )
            {
                out->Print( 0, "\n" );
                perLine = out->Print( nestLevel+1, "%s", "" );
            }
 
            if( m_attr == T_virtual_pin )
            {
                quote = out->GetQuoteChar( m_virtual_pin_name.c_str() );
                perLine += out->Print( 0, "(attr virtual_pin %s%s%s)", quote, m_virtual_pin_name.c_str(), quote );
            }
            else
            {
                perLine += out->Print( 0, "(attr %s)", GetTokenText( m_attr ) );
            }
        }
 
        if( m_supply )
        {
            if( perLine > RIGHTMARGIN )
            {
                out->Print( 0, "\n" );
                perLine = out->Print( nestLevel+1, "%s", "" );
            }
 
            perLine += out->Print( 0, "(supply)" );
        }
 
        if( m_contact_layers.size() )
        {
            out->Print( 0, "\n" );
            out->Print( nestLevel+1, "(contact\n" );
 
            for( const std::string& contact_layer : m_contact_layers )
            {
                quote = out->GetQuoteChar( contact_layer.c_str() );
                out->Print( nestLevel+2, "%s%s%s\n", quote, contact_layer.c_str(), quote );
            }
 
            out->Print( nestLevel+1, "))\n" );
        }
        else
        {
            out->Print( 0, ")\n" );
        }
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string              m_padstack_id;
    std::vector<POINT>       m_vertexes;
    std::string              m_net_id;
    int                      m_via_number;
    DSN_T                    m_via_type;
    DSN_T                    m_attr;
    std::string              m_virtual_pin_name;
    std::vector<std::string> m_contact_layers;
    bool                     m_supply;
};
 

class WIRING : public ELEM
{
public:
    WIRING( ELEM* aParent ) :
        ELEM( T_wiring, aParent )
    {
        unit = nullptr;
    }
 
    ~WIRING()
    {
        delete unit;
    }
 
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        if( unit )
            unit->Format( out, nestLevel );
 
        for( WIRE& wire : wires )
            wire.Format( out, nestLevel );
 
        for( WIRE_VIA& wire_via : wire_vias )
            wire_via.Format( out, nestLevel );
    }
 
    UNIT_RES*  GetUnits() const override
    {
        if( unit )
            return unit;
 
        return ELEM::GetUnits();
    }
 
private:
    friend class SPECCTRA_DB;
 
    UNIT_RES*                   unit;
    boost::ptr_vector<WIRE>     wires;
    boost::ptr_vector<WIRE_VIA> wire_vias;
};
 
 
class PCB : public ELEM
{
public:
    PCB( ELEM* aParent = nullptr ) :
        ELEM( T_pcb, aParent )
    {
        m_parser = nullptr;
        m_resolution = nullptr;
        m_unit = nullptr;
        m_structure = nullptr;
        m_placement = nullptr;
        m_library = nullptr;
        m_network = nullptr;
        m_wiring = nullptr;
    }
 
    ~PCB()
    {
        delete m_parser;
        delete m_resolution;
        delete m_unit;
        delete m_structure;
        delete m_placement;
        delete m_library;
        delete m_network;
        delete m_wiring;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* quote = out->GetQuoteChar( m_pcbname.c_str() );
 
        out->Print( nestLevel, "(%s %s%s%s\n", Name(), quote, m_pcbname.c_str(), quote );
 
        if( m_parser )
            m_parser->Format( out, nestLevel+1 );
 
        if( m_resolution )
            m_resolution->Format( out, nestLevel+1 );
 
        if( m_unit )
            m_unit->Format( out, nestLevel+1 );
 
        if( m_structure )
            m_structure->Format( out, nestLevel+1 );
 
        if( m_placement )
            m_placement->Format( out, nestLevel+1 );
 
        if( m_library )
            m_library->Format( out, nestLevel+1 );
 
        if( m_network )
            m_network->Format( out, nestLevel+1 );
 
        if( m_wiring )
            m_wiring->Format( out, nestLevel+1 );
 
        out->Print( nestLevel, ")\n" );
    }
 
    UNIT_RES*  GetUnits() const override
    {
        if( m_unit )
            return m_unit;
 
        if( m_resolution )
            return m_resolution->GetUnits();
 
        return ELEM::GetUnits();
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string     m_pcbname;
    PARSER*         m_parser;
    UNIT_RES*       m_resolution;
    UNIT_RES*       m_unit;
    STRUCTURE*      m_structure;
    PLACEMENT*      m_placement;
    LIBRARY*        m_library;
    NETWORK*        m_network;
    WIRING*         m_wiring;
};
 
 
class ANCESTOR : public ELEM
{
public:
    ANCESTOR( ELEM* aParent ) :
        ELEM( T_ancestor, aParent )
    {
        time_stamp = time(nullptr);
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        char    temp[80];
        struct  tm* tmp;
 
        tmp = localtime( &time_stamp );
        strftime( temp, sizeof(temp), "%b %d %H : %M : %S %Y", tmp );
 
        // format the time first to temp
        // filename may be empty, so quote it just in case.
        out->Print( nestLevel, "(%s \"%s\" (created_time %s)\n", Name(), filename.c_str(), temp );
 
        if( comment.size() )
        {
            const char* quote = out->GetQuoteChar( comment.c_str() );
            out->Print( nestLevel+1, "(comment %s%s%s)\n", quote, comment.c_str(), quote );
        }
 
        out->Print( nestLevel, ")\n" );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string     filename;
    std::string     comment;
    time_t          time_stamp;
};
 
typedef boost::ptr_vector<ANCESTOR>     ANCESTORS;
 
 
class HISTORY : public ELEM
{
public:
    HISTORY( ELEM* aParent ) :
        ELEM( T_history, aParent )
    {
        time_stamp = time(nullptr);
    }
 
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        for( ANCESTOR& ancestor : ancestors )
            ancestor.Format( out, nestLevel );
 
        char    temp[80];
        struct  tm* tmp;
 
        tmp = localtime( &time_stamp );
        strftime( temp, sizeof( temp ), "%b %d %H : %M : %S %Y", tmp );
 
        // format the time first to temp
        out->Print( nestLevel, "(self (created_time %s)\n", temp );
 
        for( const std::string& comment : comments )
        {
            const char* quote = out->GetQuoteChar( comment.c_str() );
            out->Print( nestLevel+1, "(comment %s%s%s)\n", quote, comment.c_str(), quote );
        }
 
        out->Print( nestLevel, ")\n" );
    }
 
private:
    friend class SPECCTRA_DB;
 
    ANCESTORS                ancestors;
    time_t                   time_stamp;
    std::vector<std::string> comments;
};
 

class SUPPLY_PIN : public ELEM
{
public:
    SUPPLY_PIN( ELEM* aParent ) :
        ELEM( T_supply_pin, aParent )
    {
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        bool singleLine = pin_refs.size() <= 1;
        out->Print( nestLevel, "(%s", Name() );
 
        if( singleLine )
        {
            out->Print( 0, "%s", " " );
            pin_refs.begin()->Format( out, 0 );
        }
        else
        {
            for( PIN_REF& pin_ref : pin_refs )
                pin_ref.FormatIt( out, nestLevel + 1 );
        }
 
        if( net_id.size() )
        {
            const char* newline = singleLine ? "" : "\n";
 
            const char* quote = out->GetQuoteChar( net_id.c_str() );
            out->Print( singleLine ? 0 : nestLevel+1, " (net %s%s%s)%s",
                        quote, net_id.c_str(), quote, newline );
        }
 
        out->Print( singleLine ? 0 : nestLevel, ")\n");
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::vector<PIN_REF>  pin_refs;
    std::string           net_id;
};
 

class NET_OUT : public ELEM
{
public:
    NET_OUT( ELEM* aParent ) :
        ELEM( T_net_out, aParent )
    {
        rules = nullptr;
        net_number = -1;
        m_unassigned = false;
    }
 
    ~NET_OUT()
    {
        delete rules;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* quote = out->GetQuoteChar( net_id.c_str() );
 
        // cannot use Type() here, it is T_net_out and we need "(net "
        out->Print( nestLevel, "(net %s%s%s\n", quote, net_id.c_str(), quote );
 
        if( m_unassigned )
            out->Print( nestLevel + 1, "(unassigned)\n" );
 
        if( net_number>= 0 )
            out->Print( nestLevel+1, "(net_number %d)\n", net_number );
 
        if( rules )
            rules->Format( out, nestLevel+1 );
 
        for( WIRE& wire : wires )
            wire.Format( out, nestLevel + 1 );
 
        for( WIRE_VIA& wire_via : wire_vias )
            wire_via.Format( out, nestLevel + 1 );
 
        for( SUPPLY_PIN& supply_pin : supply_pins )
            supply_pin.Format( out, nestLevel + 1 );
 
        out->Print( nestLevel, ")\n" );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string                   net_id;
    int                           net_number;
    bool                          m_unassigned;
    RULE*                         rules;
    boost::ptr_vector<WIRE>       wires;
    boost::ptr_vector<WIRE_VIA>   wire_vias;
    boost::ptr_vector<SUPPLY_PIN> supply_pins;
};
 
 
class ROUTE : public ELEM
{
public:
    ROUTE( ELEM* aParent ) :
        ELEM( T_route, aParent )
    {
        resolution = nullptr;
        parser = nullptr;
        structure_out = nullptr;
        library = nullptr;
    }
 
    ~ROUTE()
    {
        delete resolution;
        delete parser;
        delete structure_out;
        delete library;
//        delete test_points;
    }
 
    UNIT_RES*  GetUnits() const override
    {
        if( resolution )
            return resolution;
 
        return ELEM::GetUnits();
    }
 
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        if( resolution )
            resolution->Format( out, nestLevel );
 
        if( parser )
            parser->Format( out, nestLevel );
 
        if( structure_out )
            structure_out->Format( out, nestLevel );
 
        if( library )
            library->Format( out, nestLevel );
 
        if( net_outs.size() )
        {
            out->Print( nestLevel, "(network_out\n" );
 
            for( NET_OUT& net_out : net_outs )
                net_out.Format( out, nestLevel + 1 );
 
            out->Print( nestLevel, ")\n" );
        }
 
//        if( test_poinst )
//            test_points->Format( out, nestLevel );
    }
 
private:
    friend class SPECCTRA_DB;
 
    UNIT_RES*                  resolution;
    PARSER*                    parser;
    STRUCTURE_OUT*             structure_out;
    LIBRARY*                   library;
    boost::ptr_vector<NET_OUT> net_outs;
//  TEST_POINTS*               test_points;
};
 

struct PIN_PAIR
{
    PIN_PAIR( ELEM* aParent = nullptr ) :
        was( aParent ),
        is( aParent )
    {
    }
 
    PIN_REF     was;
    PIN_REF     is;
};
 

class WAS_IS : public ELEM
{
public:
    WAS_IS( ELEM* aParent ) :
        ELEM( T_was_is, aParent )
    {
    }
 
    void FormatContents( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        for( PIN_PAIR& pin_pair : pin_pairs )
        {
            out->Print( nestLevel, "(pins " );
            pin_pair.was.Format( out, 0 );
            out->Print( 0, " " );
            pin_pair.is.Format( out, 0 );
            out->Print( 0, ")\n" );
        }
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::vector<PIN_PAIR> pin_pairs;
};
 

class SESSION : public ELEM
{
public:
    SESSION( ELEM* aParent = nullptr ) :
        ELEM( T_session, aParent )
    {
        history = nullptr;
        structure = nullptr;
        placement = nullptr;
        was_is = nullptr;
        route = nullptr;
    }
 
    ~SESSION()
    {
        delete history;
        delete structure;
        delete placement;
        delete was_is;
        delete route;
    }
 
    void Format( OUTPUTFORMATTER* out, int nestLevel ) override
    {
        const char* quote = out->GetQuoteChar( session_id.c_str() );
        out->Print( nestLevel, "(%s %s%s%s\n", Name(), quote, session_id.c_str(), quote );
 
        out->Print( nestLevel+1, "(base_design \"%s\")\n", base_design.c_str() );
 
        if( history )
            history->Format( out, nestLevel+1 );
 
        if( structure )
            structure->Format( out, nestLevel+1 );
 
        if( placement )
            placement->Format( out, nestLevel+1 );
 
        if( was_is )
            was_is->Format( out, nestLevel+1 );
 
        if( route )
            route->Format( out, nestLevel+1 );
 
        out->Print( nestLevel, ")\n" );
    }
 
private:
    friend class SPECCTRA_DB;
 
    std::string     session_id;
    std::string     base_design;
 
    HISTORY*        history;
    STRUCTURE*      structure;
    PLACEMENT*      placement;
    WAS_IS*         was_is;
    ROUTE*          route;
 
/*  not supported:
    FLOOR_PLAN*         floor_plan;
    NET_PIN_CHANGES*    net_pin_changes;
    SWAP_HISTORY*       swap_history;
*/
};
 
typedef boost::ptr_set<PADSTACK>    PADSTACKSET;
 

class SPECCTRA_DB : public SPECCTRA_LEXER
{
public:
 
    SPECCTRA_DB() :
        SPECCTRA_LEXER( 0 )         // LINE_READER* == nullptr, no DSNLEXER::PushReader()
    {
        // The LINE_READER will be pushed from an automatic instantiation,
        // we don't own it:
        wxASSERT( !iOwnReaders );
 
        m_pcb   = nullptr;
        m_session = nullptr;
        m_quote_char += '"';
        m_footprintsAreFlipped = false;
 
        SetSpecctraMode( true );
 
        // Avoid not initialized members:
        m_routeResolution = nullptr;
        m_sessionBoard = nullptr;
        m_top_via_layer = 0;
        m_bot_via_layer = 0;
    }
 
    virtual ~SPECCTRA_DB()
    {
        delete m_pcb;
        delete m_session;
 
        deleteNETs();
    }

    static PCB* MakePCB();

    void SetPCB( PCB* aPcb )
    {
        delete m_pcb;
        m_pcb = aPcb;
    }
 
    PCB* GetPCB()  { return m_pcb; }

    void SetSESSION( SESSION* aSession )
    {
        delete m_session;
        m_session = aSession;
    }
 
    SESSION* GetSESSION() { return m_session; }

    void LoadPCB( const wxString& aFilename );

    void LoadSESSION( const wxString& aFilename );

    void ExportPCB( const wxString& aFilename,  bool aNameChange=false );

    void FromBOARD( BOARD* aBoard );

    void FromSESSION( BOARD* aBoard, COMMIT& aCommit );

    void ExportSESSION( const wxString& aFilename );

    bool BuiltBoardOutlines( BOARD* aBoard  );

    void FlipFOOTPRINTs( BOARD* aBoard );

    void RevertFOOTPRINTs( BOARD* aBoard );
 
private:
    void buildLayerMaps( BOARD* aBoard );

    int findLayerName( const std::string& aLayerName ) const;

    void readCOMPnPIN( std::string* component_id, std::string* pid_id );

    void readTIME( time_t* time_stamp );
 
    void doPCB( PCB* growth );
    void doPARSER( PARSER* growth );
    void doRESOLUTION( UNIT_RES* growth );
    void doUNIT( UNIT_RES* growth );
    void doSTRUCTURE( STRUCTURE* growth );
    void doSTRUCTURE_OUT( STRUCTURE_OUT* growth );
    void doLAYER_NOISE_WEIGHT( LAYER_NOISE_WEIGHT* growth );
    void doSPECCTRA_LAYER_PAIR( SPECCTRA_LAYER_PAIR* growth );
    void doBOUNDARY( BOUNDARY* growth );
    void doRECTANGLE( RECTANGLE* growth );
    void doPATH( PATH* growth );
    void doSTRINGPROP( STRINGPROP* growth );
    void doTOKPROP( TOKPROP* growth );
    void doVIA( VIA* growth );
    void doCONTROL( CONTROL* growth );
    void doLAYER( LAYER* growth );
    void doRULE( RULE* growth );
    void doKEEPOUT( KEEPOUT* growth );
    void doCIRCLE( CIRCLE* growth );
    void doQARC( QARC* growth );
    void doWINDOW( WINDOW* growth );
    void doCONNECT( CONNECT* growth );
    void doREGION( REGION* growth );
    void doCLASS_CLASS( CLASS_CLASS* growth );
    void doLAYER_RULE( LAYER_RULE* growth );
    void doCLASSES( CLASSES* growth );
    void doGRID( GRID* growth );
    void doPLACE( PLACE* growth );
    void doCOMPONENT( COMPONENT* growth );
    void doPLACEMENT( PLACEMENT* growth );
    void doPROPERTIES( PROPERTIES* growth );
    void doPADSTACK( PADSTACK* growth );
    void doSHAPE( SHAPE* growth );
    void doIMAGE( IMAGE* growth );
    void doLIBRARY( LIBRARY* growth );
    void doPIN( PIN* growth );
    void doNET( NET* growth );
    void doNETWORK( NETWORK* growth );
    void doCLASS( CLASS* growth );
    void doTOPOLOGY( TOPOLOGY* growth );
    void doFROMTO( FROMTO* growth );
    void doCOMP_ORDER( COMP_ORDER* growth );
    void doWIRE( WIRE* growth );
    void doWIRE_VIA( WIRE_VIA* growth );
    void doWIRING( WIRING* growth );
    void doSESSION( SESSION* growth );
    void doANCESTOR( ANCESTOR* growth );
    void doHISTORY( HISTORY* growth );
    void doROUTE( ROUTE* growth );
    void doWAS_IS( WAS_IS* growth );
    void doNET_OUT( NET_OUT* growth );
    void doSUPPLY_PIN( SUPPLY_PIN* growth );
 
    //-----<FromBOARD>-------------------------------------------------------

    void fillBOUNDARY( BOARD* aBoard, BOUNDARY* aBoundary );

    IMAGE* makeIMAGE( BOARD* aBoard, FOOTPRINT* aFootprint );

    PADSTACK* makePADSTACK( BOARD* aBoard, PAD* aPad );

    PADSTACK* makeVia( int aCopperDiameter, int aDrillDiameter, int aTopLayer, int aBotLayer );

    PADSTACK* makeVia( const ::PCB_VIA* aVia );

    void deleteNETs()
    {
        for( NET* net : m_nets )
            delete net;
 
        m_nets.clear();
    }

    void exportNETCLASS( const NETCLASS* aNetClass, const BOARD* aBoard );
 
    //-----</FromBOARD>------------------------------------------------------
 
    //-----<FromSESSION>-----------------------------------------------------

    PCB_TRACK* makeTRACK( WIRE* wire, PATH* aPath, int aPointIndex, int aNetcode );

    PCB_ARC* makeARC( WIRE* wire, QARC* aQarc, int aNetcode );

    PCB_VIA* makeVIA( WIRE_VIA*aVia, PADSTACK* aPadstack, const POINT& aPoint, int aNetCode,
                      int aViaDrillDefault );
 
    //-----</FromSESSION>----------------------------------------------------

    static const KEYWORD keywords[];
 
    PCB*              m_pcb;
    SHAPE_POLY_SET    m_brd_outlines;       // the board outlines for DSN export
    SESSION*          m_session;
    wxString          m_filename;
    std::string       m_quote_char;
 
    bool              m_footprintsAreFlipped;
 
    STRING_FORMATTER  m_sf;
 
    std::vector<std::string>    m_layerIds;        
 
    std::map<PCB_LAYER_ID, int> m_kicadLayer2pcb; 
    std::map<int, PCB_LAYER_ID> m_pcbLayer2kicad;  

    UNIT_RES*                m_routeResolution;

    BOARD*                   m_sessionBoard;
 
    static const KICAD_T     scanPADs[];
 
    boost::ptr_set<PADSTACK> m_padstackset;

    std::vector<NET*>        m_nets;

    int                      m_top_via_layer;
    int                      m_bot_via_layer;
};

 
bool ImportSpecctraSession( BOARD* aBoard, const wxString& fullFileName, COMMIT& aCommit );
 
}           // namespace DSN
 
#endif      // SPECCTRA_H_