/*
 * Copyright (C) 2007-2013 Xagasoft, All rights reserved.
 *
 * This file is part of the libgats library and is released under the
 * terms of the license contained in the file LICENSE.
 */

#include "gats/list.h"

#include "gats/string.h"
#include "gats/integer.h"
#include "gats/float.h"
#include "gats/boolean.h"
#include "gats/dictionary.h"

#include <bu/formatter.h>
#include <bu/stream.h>

Gats::List::List()
{
}

Gats::List::~List()
{
    for( iterator i = begin(); i; i++ )
    {
        delete *i;
    }
}

Gats::Object *Gats::List::clone() const
{
    Gats::List *pClone = new Gats::List;
    for( const_iterator i = begin(); i; i++ )
    {
        pClone->append( (*i)->clone() );
    }
    return pClone;
}

void Gats::List::write( Bu::Stream &rOut ) const
{
    rOut.write("l", 1 );
    for( const_iterator i = begin(); i; i++ )
    {
        (*i)->write( rOut );
    }
    rOut.write("e", 1 );
}

void Gats::List::read( Bu::Stream &rIn, char cType )
{
    for(;;)
    {
        Gats::Object *pObj = Gats::Object::read( rIn );
        if( pObj == NULL )
            break;
        append( pObj );
    }
}

void Gats::List::append( const char *s )
{
    Bu::List<Gats::Object *>::append( new Gats::String( s ) );
}

void Gats::List::append( const Bu::String &s )
{
    Bu::List<Gats::Object *>::append( new Gats::String( s ) );
}

void Gats::List::append( int32_t i )
{
    Bu::List<Gats::Object *>::append( new Gats::Integer( i ) );
}

void Gats::List::append( int64_t i )
{
    Bu::List<Gats::Object *>::append( new Gats::Integer( i ) );
}

void Gats::List::append( double d )
{
    Bu::List<Gats::Object *>::append( new Gats::Float( d ) );
}

void Gats::List::appendStr( const Bu::String &s )
{
    Bu::List<Gats::Object *>::append( new Gats::String( s ) );
}

void Gats::List::appendInt( int64_t i )
{
    Bu::List<Gats::Object *>::append( new Gats::Integer( i ) );
}

void Gats::List::appendFloat( double d )
{
    Bu::List<Gats::Object *>::append( new Gats::Float( d ) );
}

void Gats::List::appendBool( bool b )
{
    Bu::List<Gats::Object *>::append( new Gats::Boolean( b ) );
}

void Gats::List::appendList( Gats::List *pL )
{
    Bu::List<Gats::Object *>::append( pL );
}

void Gats::List::appendDict( Gats::Dictionary *pD )
{
    Bu::List<Gats::Object *>::append( pD );
}

Gats::List *Gats::List::appendList()
{
    Gats::List *pLst = new Gats::List();
    appendList( pLst );
    return pLst;
}

Gats::Dictionary *Gats::List::appendDict()
{
    Gats::Dictionary *pDict = new Gats::Dictionary();
    appendDict( pDict );
    return pDict;
}

void Gats::List::prepend( const char *s )
{
    Bu::List<Gats::Object *>::prepend( new Gats::String( s ) );
}

void Gats::List::prepend( const Bu::String &s )
{
    Bu::List<Gats::Object *>::prepend( new Gats::String( s ) );
}

void Gats::List::prepend( int32_t i )
{
    Bu::List<Gats::Object *>::prepend( new Gats::Integer( i ) );
}

void Gats::List::prepend( int64_t i )
{
    Bu::List<Gats::Object *>::prepend( new Gats::Integer( i ) );
}

void Gats::List::prepend( double d )
{
    Bu::List<Gats::Object *>::prepend( new Gats::Float( d ) );
}

void Gats::List::prependStr( const Bu::String &s )
{
    Bu::List<Gats::Object *>::prepend( new Gats::String( s ) );
}

void Gats::List::prependInt( int64_t i )
{
    Bu::List<Gats::Object *>::prepend( new Gats::Integer( i ) );
}

void Gats::List::prependFloat( double d )
{
    Bu::List<Gats::Object *>::prepend( new Gats::Float( d ) );
}

void Gats::List::prependBool( bool b )
{
    Bu::List<Gats::Object *>::prepend( new Gats::Boolean( b ) );
}

void Gats::List::prependList( Gats::List *pL )
{
    Bu::List<Gats::Object *>::prepend( pL );
}

void Gats::List::prependDict( Gats::Dictionary *pD )
{
    Bu::List<Gats::Object *>::prepend( pD );
}

Gats::List *Gats::List::prependList()
{
    Gats::List *pLst = new Gats::List();
    prependList( pLst );
    return pLst;
}

Gats::Dictionary *Gats::List::prependDict()
{
    Gats::Dictionary *pDict = new Gats::Dictionary();
    prependDict( pDict );
    return pDict;
}

Bu::Formatter &operator<<( Bu::Formatter &f, const Gats::List &l )
{
    f << "(list) [";
    f.incIndent();
    for( Gats::List::const_iterator i = l.begin(); i; i++ )
    {
        f << f.nl << **i;
    }
    f.decIndent();
    f << f.nl << "]";
    return f;
}