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

/*
 *  Array.cpp
 *
 *  Author: Paul Hamilton
 *      Date: 18 Jun 2011
 *
 */
#include "Array.h"
        
#include "Thing.h"
#include "List.h"
#include "ListArrayParser.h"
#include "StringTokenStream.h"

using namespace std;

namespace phlogo {

static const char ARRAY_START = '{';
static const char ARRAY_END = '}';
static const char LIST_START = '[';
static const char LIST_END = ']';
static const char *EMPTY_LIST = "[]";
static const char SPACE = ' ';

Array::Array(tListArray *array, int length) {
        _array = array;
        for (int i=0; i<length; i++) {
                pThing l(new Thing());
                _array->push_back(l);
        }
}

Array::Array(tListArray *array) {
        _array = array;
}

void Array::set(int i, pThing thing) {
        (*_array)[i] = thing;
}

void Array::push_front(pThing thing) {
    _array->push_front(thing);
}

void Array::clear() { 
        _array->clear();
}

unsigned int Array::size() { 
        return _array->size(); 
}

pThing Array::operator[](const size_t idx) { 
        return (*_array)[idx]; 
}

pThing Array::get(const size_t idx) { 
        return (*_array)[idx]; 
}

bool Array::isArray(char c) {
        return c == ARRAY_START;
}

std::string Array::str() {
                        
        string s(1, ARRAY_START);
        for (tListArray::const_iterator i=_array->begin(); i != _array->end(); i++) {
                if (s.length() > 1 || s[0] != ARRAY_START)
                        s += SPACE;
                if ((*i)->isWord())
                        s += (*i)->getWord();
                else if ((*i)->isList())
                        s += LIST_START + (*i)->getList().str() + LIST_END;
                else if ((*i)->isArray())
                        s += (*i)->getArray().str();
                else
                        s += EMPTY_LIST;
        }
        return s + ARRAY_END;
        
}

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

}