parser3/src/main/pa_request.C - diff

Return to pa_request.C CVS log

Up to [parser3project] / parser3 / src / main

Diff for /parser3/src/main/pa_request.C between versions 1.245.2.17 and 1.245.2.31

version 1.245.2.17, 2003/02/14 17:28:20	version 1.245.2.31, 2003/03/07 14:56:59
Line 16 static const char* IDENT_REQUEST_C="$Dat	Line 16 static const char* IDENT_REQUEST_C="$Dat
#include "pa_vint.h"	#include "pa_vint.h"
#include "pa_vmethod_frame.h"	#include "pa_vmethod_frame.h"
#include "pa_types.h"	#include "pa_types.h"
	#include "pa_venv.h"
	#include "pa_vmath.h"
	#include "pa_vstatus.h"
	#include "pa_vrequest.h"
#include "pa_vtable.h"	#include "pa_vtable.h"
#include "pa_vfile.h"	#include "pa_vfile.h"
#include "pa_dictionary.h"	#include "pa_dictionary.h"
Line 77 VStateless_classPtr VClassMAIN_create();	Line 81 VStateless_classPtr VClassMAIN_create();
// op.C	// op.C
VHashPtr exception2vhash(Pool& pool, const Exception& e);	VHashPtr exception2vhash(Pool& pool, const Exception& e);

void lock_system_class(HashStringValue::key_type key, HashStringValue::value_type value, int) {
if(VStateless_class *value_class=value->get_class())
value_class->lock();
}

//	//
Request::Request(SAPI_Info& asapi_info, Request_info& arequest_info,	Request::Request(Pool& apool, SAPI_Info& asapi_info, Request_info& arequest_info,
uchar adefault_lang, bool status_allowed):	String_UL adefault_lang, bool status_allowed):
	// private
	fpool(apool),
	anti_endless_execute_recoursion(0),

	// public
	method_frame(0),
	rcontext(0),
	wcontext(0),
	flang(adefault_lang),
	fconnection(0),
	finterrupted(false),

	// public
	#ifdef RESOURCES_DEBUG
	sql_connect_time(0),
	sql_request_time(0),
	#endif

	// public
sapi_info(asapi_info),	sapi_info(asapi_info),
request_info(arequest_info),	request_info(arequest_info),
fdefault_lang(adefault_lang), flang(adefault_lang),

main_class(VClassMAIN_create()),
charsets(pool(), UTF8_charset, UTF8_charset, *UTF8_charset), // default charsets	charsets(pool(), UTF8_charset, UTF8_charset, *UTF8_charset), // default charsets

response(new VResponse(fpool, arequest_info, charsets)),	main_class(VClassMAIN_create()),
form(new VForm),	form(new VForm),
mail(new VMail),	mail(new VMail),
cookie(new VCookie)	response(new VResponse(fpool, arequest_info, charsets)),
	cookie(new VCookie),

	// private
	configure_admin_done(false),

	// private defaults
	fdefault_lang(adefault_lang),
	// private mime types
	mime_types(0)
{	{
// maybe expire old caches	// maybe expire old caches
cache_managers.maybe_expire();	cache_managers.maybe_expire();
Line 105 Request::Request(SAPI_Info& asapi_info,	Line 129 Request::Request(SAPI_Info& asapi_info,
classes().put(main_class->name(), main_class);	classes().put(main_class->name(), main_class);
// classes:	// classes:
// table, file, random, mail, image, ...	// table, file, random, mail, image, ...
methoded_array.register_directly_used(*this);	methoded_array().register_directly_used(*this);

/// methodless	/// methodless
// env class	// env class
classes().put(StringPtr(new String(ENV_CLASS_NAME)),	classes().put(StringPtr(new String(ENV_CLASS_NAME)),
ValuePtr(new VEnv(asapi_info)));	ValuePtr(new VEnv(pool(), asapi_info)));
// status class	// status class
if(status_allowed)	if(status_allowed)
classes().put(StringPtr(new String(STATUS_CLASS_NAME)),	classes().put(StringPtr(new String(STATUS_CLASS_NAME)),
Line 132 Request::Request(SAPI_Info& asapi_info,	Line 156 Request::Request(SAPI_Info& asapi_info,
classes().put(mail->get_class()->base_class()->name(), mail);	classes().put(mail->get_class()->base_class()->name(), mail);
// math class	// math class
{	{
ValuePtr math(new VMail);	ValuePtr math(new VMath);
classes().put(math->get_class()->base_class()->name(), math);	classes().put(math->get_class()->base_class()->name(), math);
}	}

// prevent system classes from modification [calling add_method]
// ^process[$string:CLASS]{@method} prohibited from now on...
classes().for_each(lock_system_class, 0);
}	}

Request::~Request() {	Request::~Request() {
#ifdef XML	#ifdef XML
// if for some strange reason xml generic errors failed to be reported, free them up	// if for some strange reason xml generic errors failed to be reported, free them up
if(const char* xml_generic_errors=xmlGenericErrors()) {	if(const char* xml_generic_errors=xmlGenericErrors()) {
SAPI::log(pool(), "warning: unreported xmlGenericErrors: %s", xml_generic_errors);	SAPI::log(sapi_info, "warning: unreported xmlGenericErrors: %s", xml_generic_errors);
free((void *)xml_generic_errors);	free((void *)xml_generic_errors);
}	}
#endif	#endif
Line 183 void Request::configure_admin(VStateless	Line 203 void Request::configure_admin(VStateless

// configure method_frame options	// configure method_frame options
// until someone with less privileges have overriden them	// until someone with less privileges have overriden them
methoded_array.configure_admin(*this);	methoded_array().configure_admin(*this);
}	}

/**	/**
Line 208 struct timeval mt[10];	Line 228 struct timeval mt[10];
gettimeofday(&mt[0],NULL);	gettimeofday(&mt[0],NULL);
#endif	#endif
try {	try {
char auto_filespec=(char )malloc(MAX_STRING);

// loading config	// loading config
if(config_filespec) {	if(config_filespec) {
StringPtr filespec(new String);	StringPtr filespec(new String);
Line 260 gettimeofday(&mt[0],NULL);	Line 278 gettimeofday(&mt[0],NULL);
configure_admin(*main_class, StringPtr(0));	configure_admin(*main_class, StringPtr(0));

// configure not-method_frame=user options	// configure not-method_frame=user options
methoded_array.configure_user(*this);	methoded_array().configure_user(*this);

// $MAIN:MIME-TYPES	// $MAIN:MIME-TYPES
if(ValuePtr element=main_class->get_element(mime_types_name, *main_class, false))	if(ValuePtr element=main_class->get_element(mime_types_name, *main_class, false))
Line 300 gettimeofday(&mt[2],NULL);	Line 318 gettimeofday(&mt[2],NULL);
if(const Method *method=junction->method) {	if(const Method *method=junction->method) {
// preparing to pass parameters to	// preparing to pass parameters to
// @postprocess[data]	// @postprocess[data]
VMethodFrame frame(pool(), method->name, junction, 0/no parent*/);	VMethodFrame frame(pool(), method->name, junction, 0/no parent*/); frame.ref();
frame.set_self(main_class);	frame.set_self(main_class);

frame.store_param(body_vstring_before_post_process);	frame.store_param(body_vstring_before_post_process);
Line 398 t[9]-t[3]	Line 416 t[9]-t[3]
if(const Method *method=junction->method) {	if(const Method *method=junction->method) {
// preparing to pass parameters to	// preparing to pass parameters to
// @unhandled_exception[exception;stack]	// @unhandled_exception[exception;stack]
VMethodFrame frame(pool(), method->name, junction, 0/no caller*/);	VMethodFrame frame(pool(), method->name, junction, 0/no caller*/); frame.ref();
frame.set_self(main_class);	frame.set_self(main_class);

// $exception	// $exception
frame.store_param(exception2vhash(pool(), e));	frame.store_param(exception2vhash(pool(), e));
// $stack[^table::set{name origin}]	// $stack[^table::set{name origin}]
Table::columns_type stack_trace_columns;	Table::columns_type stack_trace_columns(new ArrayString);
*stack_trace_columns+=StringPtr(new String("name"));	*stack_trace_columns+=StringPtr(new String("name"));
*stack_trace_columns+=StringPtr(new String("file"));	*stack_trace_columns+=StringPtr(new String("file"));
*stack_trace_columns+=StringPtr(new String("lineno"));	*stack_trace_columns+=StringPtr(new String("lineno"));
TablePtr stack_trace(new Table(Exception::undefined_source, stack_trace_columns));	TablePtr stack_trace(new Table(Exception::undefined_source, stack_trace_columns));
Array_iterator<StringPtr> tracei(exception_trace);	Array_iterator<StringPtr> tracei(exception_trace);
while(tracei.has_next()) {	while(tracei.has_next()) {
Table::element_type row;	Table::element_type row(new ArrayString);

StringPtr name=tracei.next();	StringPtr name=tracei.next();
*row+=name; // name column	*row+=name; // name column
Line 419 t[9]-t[3]	Line 437 t[9]-t[3]
const String_fragment::Origin& origin=name->origin();	const String_fragment::Origin& origin=name->origin();
if(origin.file) {	if(origin.file) {
*row+=StringPtr(new String(origin.file, 0, true)); // file column	*row+=StringPtr(new String(origin.file, 0, true)); // file column
char buf=(char )malloc(MAX_NUMBER);	*row+=StringPtr(new String(
size_t buf_size=snprintf(buf, MAX_NUMBER, "%d", 1+origin.line);	pool().format_integer(1+origin.line),
*row+=StringPtr(new String(buf, buf_size, true)); // line column	0, true)); // line column
}	}
#endif	#endif
*stack_trace+=row;	*stack_trace+=row;
Line 439 t[9]-t[3]	Line 457 t[9]-t[3]
// doing that ugly	// doing that ugly

// make up result: $origin $source $comment $type $code	// make up result: $origin $source $comment $type $code
char buf=(char )malloc(MAX_STRING);	char *buf=new(pool()) char[MAX_STRING];
size_t printed=0;	size_t printed=0;
if(StringPtr problem_source=e.problem_source()) {	if(StringPtr problem_source=e.problem_source()) {
#ifndef NO_STRING_ORIGIN	#ifndef NO_STRING_ORIGIN
Line 493 VStateless_classPtr Request::use_file(VS	Line 511 VStateless_classPtr Request::use_file(VS
file_spec=StringPtr(0);	file_spec=StringPtr(0);
if(ValuePtr element=main_class->get_element(class_path_name, *main_class, false)) {	if(ValuePtr element=main_class->get_element(class_path_name, *main_class, false)) {
if(element->is_string()) {	if(element->is_string()) {
file_spec=file_readable(absolute(element->as_string(&pool())), file_name); // found at class_path?	file_spec=file_readable(absolute(element->as_string(&pool())), file_name); // found at class_path?
} else if(Table *table=element->get_table()) {	} else if(Table *table=element->get_table()) {
int size=table->count();	int size=table->count();
for(int i=size; i--; ) {	for(int i=size; i--; ) {
StringPtr path=(*table->get(i))[0];	StringPtr path=(*table->get(i))[0];
if(file_spec=file_readable(absolute(path), file_name))	if(file_spec=file_readable(absolute(path), file_name))
break; // found along class_path	break; // found along class_path
}	}
} else	} else
Line 540 VStateless_classPtr Request::use_buf(VSt	Line 558 VStateless_classPtr Request::use_buf(VSt

// locate and execute possible @conf[] static	// locate and execute possible @conf[] static
VStringPtr vfilespec(new VString(filespec));	VStringPtr vfilespec(new VString(filespec));
const Method *method_called;	Execute_nonvirtual_method_result executed=execute_nonvirtual_method(cclass,
execute_nonvirtual_method(cclass,
conf_method_name, vfilespec,	conf_method_name, vfilespec,
false/no result needed/, &method_called);	false/no string result needed/);
if(method_called)	if(executed.method)
configure_admin(cclass, method_called->name);	configure_admin(cclass, executed.method->name);

// locate and execute possible @auto[] static	// locate and execute possible @auto[] static
execute_nonvirtual_method(cclass,	execute_nonvirtual_method(cclass,
auto_method_name, vfilespec,	auto_method_name, vfilespec,
0/no result needed/);	false/no result needed/);
return VStateless_classPtr(&cclass);	return VStateless_classPtr(&cclass);
}	}

Line 664 StringPtr Request::mime_type_of(const ch	Line 681 StringPtr Request::mime_type_of(const ch
bool Request::origins_mode() {	bool Request::origins_mode() {
return main_class->get_element(origins_mode_name, *main_class, false)!=0; // $ORIGINS mode	return main_class->get_element(origins_mode_name, *main_class, false)!=0; // $ORIGINS mode
}	}

	GdomeDOMString_auto_ptr Request::transcode(StringPtr s) {
	return charsets.source().transcode(s);
	}

	StringPtr Request::transcode(GdomeDOMString* s
	#ifndef NO_STRING_ORIGIN
	, StringPtr origin
	#endif
	) {
	return charsets.source().transcode(pool(), s
	#ifndef NO_STRING_ORIGIN
	, origin
	#endif
	);
	}

	StringPtr Request::transcode(xmlChar* s
	#ifndef NO_STRING_ORIGIN
	, StringPtr origin
	#endif
	) {
	return charsets.source().transcode(pool(), s
	#ifndef NO_STRING_ORIGIN
	, origin
	#endif
	);
	}

E-mail:

Removed from v.1.245.2.17
changed lines
	Added in v.1.245.2.31