--- parser3/src/classes/math.C 2002/02/08 07:27:40 1.12 +++ parser3/src/classes/math.C 2002/04/10 09:53:14 1.17 @@ -2,9 +2,9 @@ Parser: @b math parser class. Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com) - Author: Alexander Petrosyan (http://paf.design.ru) + Author: Alexandr Petrosian (http://paf.design.ru) - $Id: math.C,v 1.12 2002/02/08 07:27:40 paf Exp $ + $Id: math.C,v 1.17 2002/04/10 09:53:14 paf Exp $ */ #include "pa_common.h" @@ -29,7 +29,7 @@ public: void configure_admin(Request& r); public: // Methoded - bool used_directly() { return true; } + bool used_directly() { return false; } }; // methods @@ -38,14 +38,14 @@ static void _random(Request& r, const St Pool& pool=r.pool(); Value& range=params->as_junction(0, "range must be expression"); - uint max=(uint)r.process(range).as_double(); - if(max<=1) - throw Exception(0, 0, + double top=r.process_to_value(range).as_double(); + if(top<=1) + throw Exception("parser.runtime", &method_name, - "bad range [0..%u]", max); + "top must be above 1 (%g)", top); Value& result=*new(pool) VInt(pool, (int)( - ((double)((randomizer=rand())% RAND_MAX)) / RAND_MAX * max )); + ((double)((randomizer=rand())% RAND_MAX)) / RAND_MAX * uint(top) )); result.set_name(method_name); r.write_no_lang(result); } @@ -62,7 +62,7 @@ static void math1(Request& r, Pool& pool=r.pool(); Value& param=params->as_junction(0, "parameter must be expression"); - Value& result=*new(pool) VDouble(pool, (*func)(r.process(param).as_double())); + Value& result=*new(pool) VDouble(pool, (*func)(r.process_to_value(param).as_double())); result.set_name(method_name); r.write_no_lang(result); } @@ -95,8 +95,8 @@ static void math2(Request& r, Value& b=params->as_junction(1, "parameter must be expression"); Value& result=*new(pool) VDouble(pool, (*func)( - r.process(a).as_double(), - r.process(b).as_double())); + r.process_to_value(a).as_double(), + r.process_to_value(b).as_double())); result.set_name(method_name); r.write_no_lang(result); } @@ -141,13 +141,13 @@ MMath::MMath(Pool& apool) : Methoded(apo void MMath::configure_admin(Request&) { // setting seed srand( - randomizer ^ + randomizer #ifdef WIN32 - GetCurrentThreadId() ^ + ^ GetCurrentThreadId() #else - getpid() ^ + ^ getpid() #endif - (unsigned int)time(NULL) + ^ (unsigned int)time(NULL) ); if(!randomizer) randomizer=rand();