You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
529 lines
13 KiB
529 lines
13 KiB
/*
|
|
* Copyright (C) 2016 Mark Roszko <mark.roszko@gmail.com>
|
|
*
|
|
* 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" );
|
|
}
|
|
}
|
|
}
|
|
}
|