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

/*
 *  BasicVerbs.cpp
 *
 *  Author: Paul Hamilton
 *      Date: 13 Jun 2011
 *
 */

#include "Verbs.h"

#include "Interpreter.h"
#include "Console.h"
#include "World.h"
#include "Thing.h"
#include "Turtle.h"
#include "Exceptions.h"
#include "Operator.h"

#include <boost/lexical_cast.hpp>
#include <math.h>

using namespace std;
using namespace boost;

namespace phlogo {

void Verbs::print(TokenStream *ts) {

        pThing thing;
        _itp->getNextThing(_world, ts, &thing);
        _world->getConsole()->outputLine(thing->str());
}

void Verbs::clearscreen(TokenStream *ts) {
        _world->getConsole()->reset();
    if (_world->getTurtle())
        _world->getTurtle()->clear();
}

void Verbs::add(TokenStream *ts) {
    
    Add(_world).doOp(_itp, _world, ts);
}

void Verbs::sub(TokenStream *ts) {
    
    Sub(_world).doOp(_itp, _world, ts);
}

void Verbs::mul(TokenStream *ts) {

    Mul(_world).doOp(_itp, _world, ts);
}

void Verbs::div(TokenStream *ts) {

    Div(_world).doOp(_itp, _world, ts);
}

void Verbs::make(TokenStream *ts) {

        string name = getWord(ts);

        pThing thing;
        _itp->getNextThing(_world, ts, &thing);

        _world->setThing(name, thing, false);
}

void Verbs::thing(TokenStream *ts) {

        _world->setResult(_world->getThing(getWord(ts)));

}

void Verbs::output(TokenStream *ts) {

        _itp->getVerbs()->run(ts);

}

}