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

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

#include "Verbs.h"

#include "Thing.h"

#include <boost/algorithm/string/predicate.hpp>
#include <boost/lexical_cast.hpp>

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

namespace phlogo {

void Verbs::wordp(TokenStream *ts) {
    
    setBooleanResult(getThing(ts)->isWord());

}

void Verbs::listp(TokenStream *ts) {
    
    setBooleanResult(getThing(ts)->isList());

}

void Verbs::arrayp(TokenStream *ts) {
    
    setBooleanResult(getThing(ts)->isArray());

}

void Verbs::emptyp(TokenStream *ts) {
    
        pThing thing = getThing(ts);
    
    bool empty = false;
    if (thing->isList())
        empty = thing->getList().size() == 0;
    else if (thing->isArray())
        empty = thing->getArray().size() == 0;
    else if (thing->isWord())
        empty = thing->getWord().length() == 0;
    
    setBooleanResult(empty);
}

void Verbs::equalp(TokenStream *ts) {
    
    setBooleanResult(equal(getThing(ts), getThing(ts)));

}

void Verbs::notequalp(TokenStream *ts) {
    
    setBooleanResult(!equal(getThing(ts), getThing(ts)));
    
}

void Verbs::beforep(TokenStream *ts) {
    
    setBooleanResult(!lexicographical_compare(getWord(ts), getWord(ts)));
    
}

void Verbs::eq(TokenStream *ts) {
    
    setBooleanResult(getThing(ts) == getThing(ts));
    
}


void Verbs::memberp(TokenStream *ts) {
    
    pThing t = getThing(ts);
    pThing t2 = getThing(ts);
    
    if (t2->isList()) {
        List l = t2->getList();
        for (tListArray::iterator i = l.begin(); i != l.end(); i++) {
            if (equal(*i, t)) {
                setBooleanResult(true);
                return;
            }
        }
    }
    setBooleanResult(false);
}


void Verbs::substringp(TokenStream *ts) {
    
    string s1 = getWord(ts);
    string s2 = getWord(ts);
    setBooleanResult(s2.find(s1) != string::npos);

}

void Verbs::numberp(TokenStream *ts) {
    
    pThing t = getThing(ts);
    if (t->isLong() || t->isDouble()) {
        setBooleanResult(true);
        return;
    }
 
    if (t->isWord()) {
        string s = t->getWord();
        try {
            lexical_cast<long>(s);
            setBooleanResult(true);
            return;
        }
        catch (bad_cast &x) {
            try {
                lexical_cast<double>(s);
                setBooleanResult(true);
                return;
            }
            catch (bad_cast &x) {
            }
        }
    }
    
    setBooleanResult(false);
}

}