Return to random.C CVS log

Up to [parser3project] / parser3 / src / classes

random:generate

/** @file
	Parser: random parser class.

	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)

	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)

	$Id: random.C,v 1.1 2001/04/02 08:43:41 paf Exp $
*/

#include <process.h>
#include <time.h>

#include "pa_config_includes.h"
#include "pa_common.h"
#include "_random.h"
#include "pa_vint.h"
#include "pa_request.h"

// global var

VStateless_class *random_class;

// methods

static void _generate(Request& r, const String& method_name, Array *params) {
	Pool& pool=r.pool();

    uint max=params->size()?
		(uint)(r.process(*static_cast<Value *>(params->get(0)))).as_double():0;
    if(max<=0) 
		max=1000000;
	
	r.write_no_lang(*new(pool) VInt(pool, rand()%max));
}

// initialize

void initialize_random_class(Pool& pool, VStateless_class& vclass) {
	// setting seed
	srand(getpid()+time(NULL));  rand();
	
	// ^random.generate[]
	// ^random.generate(range)
	vclass.add_native_method("generate", Method::CT_STATIC, _generate, 0, 1);
}