/*
* opencog/atoms/value/RandomStream.cc
*
* Copyright (C) 2015, 2018 Linas Vepstas
* All Rights Reserved
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU Affero General Public License v3 as
* published by the Free Software Foundation and including the exceptions
* at http://opencog.org/wiki/Licenses
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU Affero General Public License
* along with this program; if not, write to:
* Free Software Foundation, Inc.,
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*/
#include <stdlib.h>
#include <opencog/atoms/value/RandomStream.h>
#include <opencog/atoms/value/ValueFactory.h>
using namespace opencog;
// ==============================================================
RandomStream::RandomStream(int len) :
FloatValue(RANDOM_STREAM), _len(len)
{
_value.resize(len, 0.0);
}
// ==============================================================
void RandomStream::update() const
{
static thread_local unsigned short xsubi[3] = {0, 0, 0};
for (int i=0; i< _len; i++)
{
_value[i] = erand48(xsubi);
}
}
// ==============================================================
std::string RandomStream::to_string(const std::string& indent) const
{
std::string rv = indent + "(" + nameserver().getTypeName(_type);
rv += " " + std::to_string(_len);
rv += ")\n" + indent + "; Current sample:\n";
rv += indent + "; " + FloatValue::to_string("", FLOAT_VALUE);
return rv;
}
// ==============================================================
// Adds factor when library is loaded.
DEFINE_VALUE_FACTORY(RANDOM_STREAM, createRandomStream, int)