/Users/paul/Documents/phlogo/core/RandomVerbs.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::random(TokenStream *ts) {

    long low = getLong(ts);
    long high = 0;
        if (ts->withinSubExpression())
        high = getLong(ts);
        else {
        high = low;
        low = 0;
    }
    double n = (double)::rand()/(double)RAND_MAX;
    double x = (n * (high-low)) + low;
    setLongResult((long)x);
}    

void Verbs::rerandom(TokenStream *ts) {
    
    srand(getLong(ts));

}

}