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

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

#include "Verbs.h"

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

#include <math.h>

using namespace std;
using namespace boost;

namespace phlogo {
    
void Verbs::bitAnd(TokenStream *ts) {
    
    setLongResult(getLong(ts) & getLong(ts));
    
}

void Verbs::bitOr(TokenStream *ts) {
    
    setLongResult(getLong(ts) | getLong(ts));

}

void Verbs::bitxor(TokenStream *ts) {
    
    setLongResult(getLong(ts) ^ getLong(ts));

}

void Verbs::bitnot(TokenStream *ts) {
    
    setLongResult(~getLong(ts));

}

void Verbs::lshift(TokenStream *ts) {
    
    long a = getLong(ts);
    long b = getLong(ts);
    
    if (b > 0)
        setLongResult(a << b);
    else
        setLongResult(a >> (-b));
}

}