parser3/src/classes/double.C - diff

Return to double.C CVS log

Up to [parser3project] / parser3 / src / classes

Diff for /parser3/src/classes/double.C between versions 1.33 and 1.48

version 1.33, 2001/07/13 12:13:50	version 1.48, 2002/08/01 11:26:43
Line 1	Line 1
/** @file	/** @file
Parser: @b double parser class.	Parser: @b double parser class.

Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)	Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
*/	*/
static const char *RCSId="$Id$";
	static const char* IDENT_DOUBLE_C="$Id$";

#include "classes.h"	#include "classes.h"
#include "pa_request.h"	#include "pa_request.h"
Line 16 static const char *RCSId="$Id$";	Line 16 static const char *RCSId="$Id$";

void _string_format(Request& r, const String& method_name, MethodParams *);	void _string_format(Request& r, const String& method_name, MethodParams *);

// defines

#define DOUBLE_CLASS_NAME "double"

// class	// class

class MDouble : public Methoded {	class MDouble : public Methoded {
Line 31 public: // Methoded	Line 27 public: // Methoded

// methods	// methods

static void _int(Request& r, const String& method_name, MethodParams *) {	static void _int(Request& r, const String& method_name, MethodParams *params) {
Pool& pool=r.pool();	Pool& pool=r.pool();
	Value *default_code=params->size()>0?
	default_code=&params->as_junction(0, "default must be int"):0; // (default)

VDouble vdouble=static_cast<VDouble >(r.self);	VDouble vdouble=static_cast<VDouble >(r.self);
Value& result=*new(pool) VInt(pool, vdouble->as_int());	Value& result=*new(pool) VInt(pool, vdouble->as_int());
result.set_name(method_name);
r.write_no_lang(result);	r.write_no_lang(result);
}	}

static void _double(Request& r, const String& method_name, MethodParams *) {	static void _double(Request& r, const String& method_name, MethodParams *params) {
Pool& pool=r.pool();	Pool& pool=r.pool();
	Value *default_code=params->size()>0?
	default_code=&params->as_junction(0, "default must be double"):0; // (default)

VDouble vdouble=static_cast<VDouble >(r.self);	VDouble vdouble=static_cast<VDouble >(r.self);
Value& result=*new(pool) VDouble(pool, vdouble->as_double());	Value& result=*new(pool) VDouble(pool, vdouble->as_double());
result.set_name(method_name);
r.write_no_lang(result);	r.write_no_lang(result);
}	}

Line 59 static void vdouble_op(Request& r, Metho	Line 59 static void vdouble_op(Request& r, Metho
vdouble_op_func_ptr func) {	vdouble_op_func_ptr func) {
VDouble vdouble=static_cast<VDouble >(r.self);	VDouble vdouble=static_cast<VDouble >(r.self);
double param=params->size()?	double param=params->size()?
r.process(	params->as_double(0, "param must be double", r):1/used in inc/dec/;
params->get(0),
0/no name/,
false/don't intercept string/).as_double():1/used in inc/dec/;
(func)(vdouble, param);	(func)(vdouble, param);
}	}

Line 74 static void _mod(Request& r, const Strin	Line 71 static void _mod(Request& r, const Strin

// from string.C	// from string.C
extern	extern
const String* sql_result_string(Request& r, const String& method_name,	const String* sql_result_string(Request& r, const String& method_name, MethodParams *params,
MethodParams *params);	Hash & options, Value & default_code);

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

const String *string=sql_result_string(r, method_name, params);	double val;
double val=string?string->as_int():params->as_double(1, r);	Hash *options;
	Value *default_code;
	if(const String *string=sql_result_string(r, method_name, params, options, default_code))
	val=string->as_double();
	else
	if(default_code)
	val=r.process_to_value(*default_code).as_double();
	else {
	throw Exception("parser.runtime",
	&method_name,
	"produced no result, but no default option specified");
	val=0; //calm, compiler
	}
VDouble& result=*new(pool) VDouble(pool, val);	VDouble& result=*new(pool) VDouble(pool, val);
result.set_name(method_name);
r.write_assign_lang(result);	r.write_assign_lang(result);
}	}

// constructor	// constructor

MDouble::MDouble(Pool& apool) : Methoded(apool) {	MDouble::MDouble(Pool& apool) : Methoded(apool, "double") {
set_name(*NEW String(pool(), DOUBLE_CLASS_NAME));


// ^double.int[]	// ^double.int[]
add_native_method("int", Method::CT_DYNAMIC, _int, 0, 0);	add_native_method("int", Method::CT_DYNAMIC, _int, 0, 1);

// ^double.double[]	// ^double.double[]
add_native_method("double", Method::CT_DYNAMIC, _double, 0, 0);	add_native_method("double", Method::CT_DYNAMIC, _double, 0, 1);

// ^double.inc[]	// ^double.inc[]
// ^double.inc[offset]	// ^double.inc[offset]
Line 115 MDouble::MDouble(Pool& apool) : Methoded	Line 120 MDouble::MDouble(Pool& apool) : Methoded
// ^double.format{format}	// ^double.format{format}
add_native_method("format", Method::CT_DYNAMIC, _string_format, 1, 1);	add_native_method("format", Method::CT_DYNAMIC, _string_format, 1, 1);

// ^double:sql[query](default)	// ^sql[query]
// ^double:sql[query](default)(offset)	// ^sql[query][$.limit(1) $.offset(2) $.default(0.0)]
add_native_method("sql", Method::CT_STATIC, _sql, 2, 3);	add_native_method("sql", Method::CT_STATIC, _sql, 1, 2);
}	}
// global variable	// global variable

E-mail:

Removed from v.1.33
changed lines
	Added in v.1.48