polserver/pol-core/bscript/berror.cpp

/*
History
=======

Notes
=======

*/

#include "../clib/stl_inc.h"

#include "berror.h"
#include "impstr.h"
#include "contiter.h"

unsigned int BError::creations_ = 0;
unsigned int BError::creations()
{
    return creations_;
}

BError::BError() : 
    BStruct( OTError )
{
    ++creations_;
}

BError::BError( const BError& other ) :
    BStruct( other, OTError )
{
    ++creations_;
}

BError::BError( istream& is, unsigned size ) :
    BStruct( is, size, OTError )
{
    ++creations_;
}

BError::BError( const char *err ) : 
    BStruct( OTError )
{
    ++creations_;
    addMember( "errortext", new String( err ) );
}

BError::BError( const string& err ) : 
    BStruct( OTError )
{
    ++creations_;
    addMember( "errortext", new String( err ) );
}


BObjectImp *BError::copy( void ) const
{  
	return new BError(*this);
}

char BError::packtype() const
{
    return 'e';
}

const char* BError::typetag() const
{
    return "error";
}

const char* BError::typeOf() const
{
    return "Error";
}

int BError::typeOfInt() const
{
	return OTError;
}

BObjectImp* BError::unpack( istream& is )
{
    unsigned size;
    char colon;
    if (! (is >> size >> colon))
    {
        return new BError( "Unable to unpack struct elemcount" );
    }
	if ( (int)size <= 0 )
    {
        return new BError( "Unable to unpack struct elemcount. Length given must be positive integer!" );
    }
	if ( colon != ':' ) 
	{ 
		return new BError( "Unable to unpack struct elemcount. Bad format. Colon not found!" ); 
	}
	return new BError( is, size );
}


bool BError::isTrue() const
{
    return false;
}
bool BError::isEqual( const BObjectImp& imp ) const
{
    return (imp.isa(OTError) || imp.isa(OTUninit));
}

ContIterator* BError::createIterator( BObject* pIterVal )
{
    return new ContIterator();
}

BObjectRef BError::OperSubscript( const BObject& obj )
{
    return BObjectRef( this );
}

BObjectImp* BError::array_assign( BObjectImp* /*idx*/, BObjectImp* /*target*/ )
{
    return this;
}