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

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

#include "Verbs.h"

#include "Thing.h"
#include "World.h"
#include "TokenStream.h"
#include "Scope.h"
#include "Interpreter.h"
#include "Exceptions.h"

#include <math.h>

using namespace std;
using namespace boost;

namespace phlogo {
    
void getVerbs(List *l, Verbs *v) {
    
        std::map<std::string, std::string>::const_iterator i = v->getVerbTokenMap().begin();
        for (; i != v->getVerbTokenMap().end(); i++) {
        pThing t(new Thing(i->first));
        l->add(t);
    }
}
    
void getFunctions(List *l, Verbs *v) {
    
    std::map<std::string, std::string>::const_iterator i = v->getFuncTokenMap().begin();
    for (; i != v->getFuncTokenMap().end(); i++) {
        pThing t(new Thing(i->first));
        l->add(t);
    }
}

void getVariables(List *l, World *w) {
    
    Scope *s = w->getScope();
        std::map<std::string, pThing >::const_iterator i = s->begin();
        for (; i != s->end(); i++) {
        pThing t(new Thing(i->first));
        l->add(t);
    }
}

void Verbs::contents(TokenStream *ts) {
    
    pThing t(new Thing());
    List l = t->allocList();
    {
        pThing t1(new Thing());
        List l1 = t1->allocList();
        getVerbs(&l1, this);
        getFunctions(&l1, this);
        l.add(t1);
    }
    {
        pThing t1(new Thing());
        List l1 = t1->allocList();
        getVariables(&l1, _world);
        l.add(t1);
    }
    {
        pThing t1(new Thing());
        List l1 = t1->allocList();
        l.add(t1);
    }
    _world->setResult(t);
    
}
    
void Verbs::procedures(TokenStream *ts) {
    
    pThing t(new Thing());
    List l = t->allocList();
    getFunctions(&l, this);
   _world->setResult(t);
    
}
void Verbs::primitives(TokenStream *ts) {
    
    pThing t(new Thing());
    List l = t->allocList();
    getVerbs(&l, this);
    _world->setResult(t);
    
}
void Verbs::names(TokenStream *ts) {
    
    pThing t(new Thing());
    List l = t->allocList();
    getVariables(&l, _world);
    _world->setResult(t);
    
}

void Verbs::erase(TokenStream *ts) {
    
        pThing thing;
        _itp->getNextThing(_world, ts, &thing);
        if (!thing->isList())
                BOOST_THROW_EXCEPTION( no_list_in_thing_exception() );
        
        for (tListArray::iterator i=thing->getList().begin(); i != thing->getList().end(); i++) {
                if ((*i)->isWord()) {
            string w = (*i)->getWord();
            // erase this.
            removeFunction(w);
            _world->getScope()->removeThing(w);
        }
        }
}

void Verbs::erall(TokenStream *ts) {
    
    removeFunctions();
    _world->getScope()->removeThings();
    
}

void Verbs::erps(TokenStream *ts) {
    
    removeFunctions();

}

void Verbs::erns(TokenStream *ts) {

    _world->getScope()->removeThings();

}

void Verbs::ern(TokenStream *ts) {
    
        pThing thing;
        _itp->getNextThing(_world, ts, &thing);
    if (thing->isList()) {
        
        for (tListArray::iterator i=thing->getList().begin(); i != thing->getList().end(); i++) {
            if ((*i)->isWord()) {
                string w = (*i)->getWord();
                // erase this.
                _world->getScope()->removeThing(w);
            }
        }
        
    }
    else {
        
        _world->getScope()->removeThing(thing->getWord());
        
    }
        
}

void Verbs::procedurep(TokenStream *ts) {

    string s = getWord(ts);
        std::map<std::string, std::string>::const_iterator i = getFuncTokenMap().find(s);
    setBooleanResult(i != getFuncTokenMap().end());

}

void Verbs::primitivep(TokenStream *ts) {
    
    string s = getWord(ts);
        std::map<std::string, std::string>::const_iterator i = getVerbTokenMap().find(s);
    setBooleanResult(i != getVerbTokenMap().end());
    
}

void Verbs::namep(TokenStream *ts) {
    
    string name = getWord(ts);
    try {
        _world->getScope()->getThing(name);
        setBooleanResult(true);
    }
    catch (no_thing_exception &x) {
        setBooleanResult(false);
    }
    
}
    
}