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

/*
 *  PredicateVerbs.cpp
 *
 *  Author: Paul Hamilton
 *      Date: 17 Aug 2011
 *
 */

#include "Verbs.h"

#include "Thing.h"
#include "World.h"

#include <boost/algorithm/string/case_conv.hpp>

using namespace std;
using namespace boost;
using namespace boost::algorithm;

namespace phlogo {

void Verbs::count(TokenStream *ts) {
    
    pThing t = getThing(ts);
    if (t->isWord())
        setLongResult(t->getWord().length());
    else if (t->isList())
        setLongResult((long)t->getList().size());
    else if (t->isArray())
        setLongResult((long)t->getArray().size());
    else
        setLongResult(0);
    
}

void Verbs::ascii(TokenStream *ts) {
    
    setLongResult(getWord(ts)[0]);
    
}

void Verbs::ch(TokenStream *ts) {

    setStringResult(string(1, (char)getLong(ts)));
    
}

void Verbs::member(TokenStream *ts) {
    
    pThing t = getThing(ts);
    pThing t2 = getThing(ts);
    pThing r(new Thing());
    List l = r->allocList();
    
    if (t2->isList()) {
        List l2 = t2->getList();
        for (tListArray::iterator i = l2.begin(); i != l2.end(); i++) {
            if (equal(*i, t)) {
                for (; i != l2.end(); i++)
                    l.push_back(*i);
                break;
            }
        }
    }
    _world->setResult(r);
}

void Verbs::lowercase(TokenStream *ts) {
  
    string s = getWord(ts);
    to_lower(s);
    setStringResult(s);

}

void Verbs::uppercase(TokenStream *ts) {
    
    string s = getWord(ts);
    to_upper(s);
    setStringResult(s);

}

}