/Users/paul/Documents/phlogo/core/List.cpp

/*
 *  List.cpp
 *
 *  Author: Paul Hamilton
 *      Date: 8 Jun 2011
 *
 */

#include "List.h"

#include "Verbs.h"
#include "Thing.h"
#include "ListArrayParser.h"
#include "StringTokenStream.h"

#include <boost/lexical_cast.hpp>

using namespace std;
using namespace boost;

namespace phlogo {

static const char LIST_START = '[';
static const char LIST_END = ']';
static const char SPACE = ' ';

List::List(tListArray *list) {
        _list = list;
}

string List::str() {

        string s = "";
        for (tListArray::const_iterator i=_list->begin(); i != _list->end(); i++) {
                if (s.length() != 0)
                        s += SPACE;
                if ((*i)->isWord())
                        s += (*i)->getWord();
                else if ((*i)->isLong()) 
                        s += lexical_cast<string>((*i)->getLong());
                else if ((*i)->isDouble()) 
                        s += lexical_cast<string>((*i)->getDouble());
        else
        {
                        s += LIST_START + (*i)->getList().str() + LIST_END;
                }
        }
        return s;
}

void List::add(pThing thing) {
        _list->push_back(thing); 
}

void List::addString(const std::string &s) {
        pThing thing(new Thing());
        thing->set(s);
        add(thing);
}

void List::clear() { 
        _list->clear();
}

unsigned int List::size() { 
        return _list->size(); 
}

pThing List::operator[](const size_t idx) { 
        return (*_list)[idx]; 
}
pThing List::get(const size_t idx) { 
        return (*_list)[idx]; 
}

void List::set(const size_t idx, pThing thing) { 
        (*_list)[idx] = thing; 
}

void List::push_front(pThing thing) {
        tListArray l2;
        for (tListArray::iterator i=_list->begin(); i!=_list->end(); i++)
                l2.push_back(*i);
        _list->clear();
        _list->push_back(thing);
        for (tListArray::iterator i=l2.begin(); i!=l2.end(); i++)
                _list->push_back(*i);
}

void List::push_back(pThing thing) {
        _list->push_back(thing);
}

pThing List::pop_front() {
    pThing t = _list->front();
    _list->pop_front();
    return t;
}

pThing List::pop_back() {
    pThing t = _list->back();
    _list->pop_back();
    return t;
}

bool List::isList(char c) {
        return c == LIST_START;
}

void List::fromWord(StringTokenStream *sts) {
        sts->forward(ListArrayParser::fromWord(_list, sts->remain(), 0));
        sts->skipWs();
}

}