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

/*
 *  ListArrayParser.cpp
 *
 *  Author: Paul Hamilton
 *      Date: 7 Jul 2011
 *
 */
#include "ListArrayParser.h"
        
#include "Thing.h"
#include "Array.h"
#include "List.h"

using namespace std;

namespace phlogo {

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

void ListArrayParser::addString(tListArray *list, const std::string &s) {
        pThing thing(new Thing());
        thing->set(s);
        list->push_back(thing); 
}

size_t ListArrayParser::addList(tListArray *list, const string &word, size_t pos) {
        pThing thing(new Thing());
        List l = thing->allocList();
        size_t newpos = fromWord(l._list, word, pos);
        list->push_back(thing);
        return newpos;
}

size_t ListArrayParser::addArray(tListArray *list, const string &word, size_t pos) {
        pThing thing(new Thing());
        Array a = thing->allocArray(0);
        size_t newpos = fromWord(a._array, word, pos);
        list->push_back(thing);
        return newpos;
}

size_t ListArrayParser::fromWord(tListArray *list, const string &word, size_t pos) {
        
        if (word[pos] == LIST_START || word[pos] == ARRAY_START) {
                pos++;
                size_t nextpos = word.find_first_of(LIST_ARRAY_CHARS, pos);
                if (word[nextpos] == ARRAY_END || word[nextpos] == LIST_END) {
            if (nextpos > pos)
                addString(list, word.substr(pos, nextpos-pos));
                        return nextpos+1;
                }
                else if (word[nextpos] == LIST_START) {
                        nextpos = addList(list, word, nextpos);
                        while (word[nextpos] == LIST_SEP) {
                                nextpos++;
                                if (word[nextpos] == LIST_START)
                                        nextpos = addList(list, word, nextpos);
                                else if (word[nextpos] == ARRAY_START)
                                        nextpos = addArray(list, word, nextpos);
                                else {
                                        pos = nextpos;
                                        nextpos = word.find_first_of(LIST_ARRAY_CHARS, pos);
                                        addString(list, word.substr(pos, nextpos-pos));
                                }
                        }
                        
                        return nextpos+1;
                }
                else if (word[nextpos] == ARRAY_START) {
                        nextpos = addArray(list, word, nextpos);
                        while (word[nextpos] == LIST_SEP) {
                                nextpos++;
                                if (word[nextpos] == LIST_START)
                                        nextpos = addList(list, word, nextpos);
                                else if (word[nextpos] == ARRAY_START)
                                        nextpos = addArray(list, word, nextpos);
                                else {
                                        pos = nextpos;
                                        nextpos = word.find_first_of(LIST_ARRAY_CHARS, pos);
                                        addString(list, word.substr(pos, nextpos-pos));
                                }
                        }
                        
                        return nextpos+1;
                }
                else {
                        addString(list, word.substr(pos, nextpos-pos));
                        pos = nextpos+1;
                        nextpos = word.find_first_of(LIST_ARRAY_CHARS, pos);
                        while (word[nextpos] == LIST_SEP) {
                                addString(list, word.substr(pos, nextpos-pos));
                                pos = nextpos+1;
                                nextpos = word.find_first_of(LIST_ARRAY_CHARS, pos);
                        }
                        if (word[nextpos] == LIST_START)
                                nextpos = addList(list, word, nextpos);
                        else if (word[nextpos] == ARRAY_START)
                                nextpos = addArray(list, word, nextpos);
                        else
                                addString(list, word.substr(pos, nextpos-pos));
                                
                        return nextpos+1;
                }
        }
        return string::npos;

}

string ListArrayParser::toString(const wListIter &begin, 
                        const wListIter &end) {
                        
        string s = "";
        for (wList::const_iterator i=begin; i != end; i++) {
                if (s.length() != 0)
                        s += SPACE;
                s += *i;
        }
        return s;
        
}

}