sexpr.cpp

Go to the documentation of this file.

/*
 * Copyright (C) 2016 Mark Roszko <[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 "sexpr/sexpr.h"
#include <cctype>
#include <iterator>
#include <stdexcept>
#include <iomanip>
#include <sstream>
#include <wx/debug.h>
 
namespace SEXPR
{
    SEXPR::SEXPR( SEXPR_TYPE aType, size_t aLineNumber ) :
        m_type( aType ), m_lineNumber( aLineNumber )
    {
    }
 
    SEXPR::SEXPR(SEXPR_TYPE aType) :
        m_type( aType ), m_lineNumber( 1 )
    {
    }
 
    SEXPR_VECTOR const * SEXPR::GetChildren() const
    {
        if( m_type != SEXPR_TYPE::SEXPR_TYPE_LIST )
        {
            throw INVALID_TYPE_EXCEPTION("SEXPR is not a list type!");
        }
 
        return &static_cast< SEXPR_LIST const * >(this)->m_children;
    }
 
    SEXPR* SEXPR::GetChild( size_t aIndex ) const
    {
        if( m_type != SEXPR_TYPE::SEXPR_TYPE_LIST )
        {
            throw INVALID_TYPE_EXCEPTION("SEXPR is not a list type!");
        }
 
        return static_cast< SEXPR_LIST const * >(this)->m_children[aIndex];
    }
 
    void SEXPR::AddChild( SEXPR* aChild )
    {
        if( m_type != SEXPR_TYPE::SEXPR_TYPE_LIST )
        {
            throw INVALID_TYPE_EXCEPTION("SEXPR is not a list type!");
        }
 
        SEXPR_LIST* list = static_cast< SEXPR_LIST * >( this );
 
        list->m_children.push_back( aChild );
    }
 
    size_t SEXPR::GetNumberOfChildren() const
    {
        if( m_type != SEXPR_TYPE::SEXPR_TYPE_LIST )
        {
            throw INVALID_TYPE_EXCEPTION("SEXPR is not a list type!");
        }
 
        return static_cast< SEXPR_LIST const * >(this)->m_children.size();
    }
 
    std::string const & SEXPR::GetString() const
    {
        if( m_type != SEXPR_TYPE::SEXPR_TYPE_ATOM_STRING )
        {
            throw INVALID_TYPE_EXCEPTION("SEXPR is not a string type!");
        }
 
        return static_cast< SEXPR_STRING const * >(this)->m_value;
    }
 
    int32_t SEXPR::GetInteger() const
    {
        return static_cast< int >( GetLongInteger() );
    }
 
    int64_t SEXPR::GetLongInteger() const
    {
        if( m_type != SEXPR_TYPE::SEXPR_TYPE_ATOM_INTEGER )
        {
            throw INVALID_TYPE_EXCEPTION("SEXPR is not a integer type!");
        }
 
        return static_cast< SEXPR_INTEGER const * >(this)->m_value;
    }
 
    double SEXPR::GetDouble() const
    {
        // we may end up parsing "intended" floats/doubles as ints
        // so here we allow silent casting back to doubles
        if( m_type == SEXPR_TYPE::SEXPR_TYPE_ATOM_DOUBLE )
        {
            return static_cast< SEXPR_DOUBLE const * >(this)->m_value;
        }
        else if( m_type == SEXPR_TYPE::SEXPR_TYPE_ATOM_INTEGER )
        {
            return static_cast< SEXPR_INTEGER const * >(this)->m_value;
        }
        else
        {
            throw INVALID_TYPE_EXCEPTION("SEXPR is not a double type!");
        }
    }
 
    float SEXPR::GetFloat() const
    {
        return static_cast< float >( GetDouble() );
    }
 
    std::string const & SEXPR::GetSymbol() const
    {
        if( m_type != SEXPR_TYPE::SEXPR_TYPE_ATOM_SYMBOL )
        {
            std::string err_msg( "GetSymbol(): SEXPR is not a symbol type! error line ");
            err_msg += std::to_string( GetLineNumber() );
            throw INVALID_TYPE_EXCEPTION( err_msg );
        }
 
        return static_cast< SEXPR_SYMBOL const * >(this)->m_value;
    }
 
 
    SEXPR_LIST* SEXPR::GetList()
    {
        if( m_type != SEXPR_TYPE::SEXPR_TYPE_LIST )
        {
            throw INVALID_TYPE_EXCEPTION("SEXPR is not a list type!");
        }
 
        return static_cast< SEXPR_LIST* >(this);
    }
 
    std::string SEXPR::AsString( size_t aLevel ) const
    {
        std::string result;
 
        if( IsList() )
        {
            if( aLevel != 0 )
            {
                result = "\n";
            }
 
            result.append( aLevel * 2, ' ' );
            aLevel++;
            result += "(";
 
            SEXPR_VECTOR const* list = GetChildren();
 
            for( std::vector<SEXPR *>::const_iterator it = list->begin(); it != list->end(); ++it )
            {
                result += (*it)->AsString( aLevel );
 
                if( it != list->end() - 1 )
                {
                    result += " ";
                }
            }
            result += ")";
 
            aLevel--;
        }
        else if( IsString() )
        {
            result += "\"" + GetString() + "\"";
        }
        else if( IsSymbol() )
        {
            result += GetSymbol();
        }
        else if( IsInteger() )
        {
            std::stringstream out;
            out << GetInteger();
            result += out.str();
        }
        else if( IsDouble() )
        {
            std::stringstream out;
            out << std::setprecision( 16 ) << GetDouble();
            result += out.str();
        }
 
        return result;
    }
 
    SEXPR_LIST::~SEXPR_LIST()
    {
        for( auto child : m_children )
        {
            delete child;
        }
 
        m_children.clear();
    }
 
    SEXPR_LIST& operator<< ( SEXPR_LIST& list, const ISEXPRABLE& obj )
    {
        SEXPR* sobj = obj.SerializeSEXPR();
        list.AddChild( sobj );
 
        return list;
    }
 
    SEXPR_LIST& operator<< ( SEXPR_LIST& list, int64_t value )
    {
        list.AddChild( new SEXPR_INTEGER( value ) );
        return list;
    }
 
    SEXPR_LIST& operator<< ( SEXPR_LIST& list, int32_t value )
    {
        list.AddChild( new SEXPR_INTEGER( value ) );
        return list;
    }
 
    SEXPR_LIST& operator<< ( SEXPR_LIST& list, float value )
    {
        list.AddChild( new SEXPR_DOUBLE( value ) );
        return list;
    }
 
    SEXPR_LIST& operator<< ( SEXPR_LIST& list, double value )
    {
        list.AddChild( new SEXPR_DOUBLE( value ) );
        return list;
    }
 
    SEXPR_LIST& operator<< ( SEXPR_LIST& list, std::string value )
    {
        list.AddChild( new SEXPR_STRING( value ) );
        return list;
    }
 
    SEXPR_LIST& operator<< ( SEXPR_LIST& list, SEXPR* obj )
    {
        list.AddChild( obj );
        return list;
    }
 
    SEXPR_LIST& operator<< ( SEXPR_LIST& list, const _OUT_STRING setting )
    {
        SEXPR *res;
 
        if( setting._Symbol )
        {
            res = new SEXPR_SYMBOL( setting._String );
        }
        else
        {
            res = new SEXPR_STRING( setting._String );
        }
 
        list.AddChild( res );
 
        return list;
    }
 
    SEXPR_LIST& operator>> ( SEXPR_LIST& input, ISEXPRABLE& obj )
    {
        obj.DeserializeSEXPR( input );
 
        return input;
    }
 
    SEXPR_LIST& operator>> ( SEXPR_LIST& input, int32_t& inte )
    {
        SEXPR* child = input.GetChild( input.m_inStreamChild );
 
        if( child->IsInteger() )
        {
            inte = child->GetInteger();
            input.m_inStreamChild++;
        }
        else
        {
            throw std::invalid_argument( "SEXPR is not a integer type!" );
        }
 
        return input;
    }
 
    SEXPR_LIST& operator>> ( SEXPR_LIST& input, std::string& str )
    {
        SEXPR* child = input.GetChild( input.m_inStreamChild );
 
        if( child->IsString() || child->IsSymbol() )
        {
            str = child->GetString();
            input.m_inStreamChild++;
        }
        else
        {
            throw std::invalid_argument( "SEXPR is not a string type!" );
        }
 
        return input;
    }
 
    SEXPR_LIST& operator>> ( SEXPR_LIST& input, int64_t& lint )
    {
        SEXPR* child = input.GetChild( input.m_inStreamChild );
 
        if( child->IsInteger() )
        {
            lint = child->GetLongInteger();
            input.m_inStreamChild++;
        }
        else
        {
            throw std::invalid_argument("SEXPR is not a long integer type!");
        }
 
        return input;
    }
 
    SEXPR_LIST& operator>> ( SEXPR_LIST& input, float& fl )
    {
        SEXPR* child = input.GetChild( input.m_inStreamChild );
        if( child->IsDouble() )
        {
            fl = child->GetFloat();
            input.m_inStreamChild++;
        }
        else
        {
            throw std::invalid_argument( "SEXPR is not a float type!" );
        }
 
        return input;
    }
 
    SEXPR_LIST& operator>> ( SEXPR_LIST& input, double& dbl )
    {
        SEXPR* child = input.GetChild( input.m_inStreamChild );
 
        if( child->IsDouble() )
        {
            dbl = child->GetDouble();
            input.m_inStreamChild++;
        }
        else
        {
            throw std::invalid_argument( "SEXPR is not a double type!" );
        }
 
        return input;
    }
 
    SEXPR_LIST& operator>> ( SEXPR_LIST& input, const _IN_STRING is )
    {
        SEXPR* child = input.GetChild( input.m_inStreamChild );
 
        if( is._Symbol )
        {
            if( child->IsSymbol() )
            {
                is._String = child->GetSymbol();
                input.m_inStreamChild++;
            }
            else
            {
                throw std::invalid_argument( "operator>>: SEXPR is not a symbol type!" );
            }
        }
        else
        {
            if( child->IsString() )
            {
                is._String = child->GetString();
                input.m_inStreamChild++;
            }
            else
            {
                throw std::invalid_argument( "SEXPR is not a string type!" );
            }
        }
 
        return input;
    }
 
    SEXPR_LIST& operator<< ( SEXPR_LIST& list, SEXPR_LIST* list2 )
    {
        list.AddChild( list2 );
 
        return list;
    }
 
    size_t SEXPR_LIST::doScan( const SEXPR_SCAN_ARG *args, size_t num_args )
    {
        size_t i = 0;
 
        for( i = 0; i < num_args; i++ )
        {
            SEXPR* child = GetChild( i );
            const SEXPR_SCAN_ARG& arg = args[i];
 
            try
            {
                if( arg.type == SEXPR_SCAN_ARG::Type::DOUBLE )
                {
                    *arg.u.dbl_value = child->GetDouble();
                }
                else if( arg.type == SEXPR_SCAN_ARG::Type::INT )
                {
                    *arg.u.dbl_value = child->GetInteger();
                }
                else if( arg.type == SEXPR_SCAN_ARG::Type::STRING )
                {
                    if( child->IsSymbol() )
                    {
                        *arg.u.str_value = child->GetSymbol();
                    }
                    else if( child->IsString() )
                    {
                        *arg.u.str_value = child->GetString();
                    }
                }
                else if( arg.type == SEXPR_SCAN_ARG::Type::LONGINT )
                {
                    *arg.u.lint_value = child->GetLongInteger();
                }
                else if( arg.type == SEXPR_SCAN_ARG::Type::SEXPR_STRING )
                {
                    if( arg.u.sexpr_str->_Symbol )
                    {
                        arg.u.sexpr_str->_String = child->GetSymbol();
                    }
                    else
                    {
                        arg.u.sexpr_str->_String = child->GetString();
                    }
 
                }
                else if( arg.type == SEXPR_SCAN_ARG::Type::STRING_COMP )
                {
                    if( child->IsSymbol() )
                    {
                        if( child->GetSymbol() != arg.str_value )
                        {
                            return i;
                        }
                    }
                    else if( child->IsString() )
                    {
                        if( child->GetString() != arg.str_value )
                        {
                            return i;
                        }
                    }
                }
                else
                {
                    throw std::invalid_argument( "unsupported argument type, this shouldn't have happened" );
                }
            }
            catch( const INVALID_TYPE_EXCEPTION& )
            {
                return i;
            }
        }
 
        return i;
    }
 
    void SEXPR_LIST::doAddChildren( const SEXPR_CHILDREN_ARG *args, size_t num_args )
    {
        size_t i = 0;
 
        for( i = 0; i < num_args; i++ )
        {
            const SEXPR_CHILDREN_ARG& arg = args[i];
 
            if( arg.type == SEXPR_CHILDREN_ARG::Type::DOUBLE )
            {
                AddChild( new SEXPR_DOUBLE( arg.u.dbl_value ) );
            }
            else if( arg.type == SEXPR_CHILDREN_ARG::Type::INT )
            {
                AddChild( new SEXPR_INTEGER( arg.u.int_value ) );
            }
            else if( arg.type == SEXPR_CHILDREN_ARG::Type::LONGINT )
            {
                AddChild( new SEXPR_INTEGER( arg.u.lint_value ) );
            }
            else if( arg.type == SEXPR_CHILDREN_ARG::Type::STRING )
            {
                AddChild( new SEXPR_STRING( arg.str_value ) );
            }
            else if( arg.type == SEXPR_CHILDREN_ARG::Type::SEXPR_ATOM )
            {
                AddChild( arg.u.sexpr_ptr );
            }
            else if( arg.type == SEXPR_CHILDREN_ARG::Type::SEXPR_STRING )
            {
                if( arg.u.symbol )
                {
                    AddChild( new SEXPR_SYMBOL( arg.str_value ) );
                }
                else
                {
                    AddChild( new SEXPR_STRING( arg.str_value ) );
                }
            }
            else
            {
                throw std::invalid_argument( "unexpected argument type, this shouldn't have happened" );
            }
        }
    }
}