Return to core.C CVS log

Up to [parser3project] / parser3 / src / main

no message

/*
$Id: core.C,v 1.34 2001/02/24 14:20:51 paf Exp $
*/

#include "pa_request.h"
#include "pa_wwrapper.h"
#include "pa_common.h"
#include "pa_vclass.h"

#include <stdio.h>

void core() {
	Pool pool;
	Request request(pool);
	request.core();
}

void Request::core() {
	TRY {
		String name_RUN(pool()); name_RUN.APPEND_CONST("RUN");
		char *result=execute_MAIN(construct_class(name_RUN, load_and_compile_RUN()));
		printf("result-----------------\n%sEOF----------------\n", result);
	} 
	CATCH(e) {
		printf("\nERROR: ");
		const String *problem_source=e.problem_source();
		if(problem_source) {
			const Origin& origin=problem_source->origin();
			if(origin.file)
				printf("%s(%d): ",
				origin.file, 1+origin.line);
			printf("'%s' ", 
				problem_source->cstr());
		}
		printf("%s", e.comment());
		const String *type=e.type();
		if(type) {
			printf("  type: %s", type->cstr());
			const String *code=e.code();
			if(code)
				printf(", code: %s", code->cstr());
		}
		printf("\n");
	}
	END_CATCH
}

Array& Request::load_and_compile_RUN() {
	char *file="Y:\\parser3\\src\\test.p";
	char *source=file_read(pool(), file);
	Array& compiled_methods=COMPILE(source, file);
	return compiled_methods;
}

VClass *Request::construct_class(String& name, Array& compiled_methods) {
	// create new 'name' vclass, add it to request's classes
	Array immediate_parents(pool());
	// TODO: immediate_parents=@PARENTS

	VClass *result=NEW VClass(pool(), immediate_parents);
	result->set_name(name);
	classes().put(name, result);
		
	for(int i=0; i<compiled_methods.size(); i++) {
		// TODO: filter out @PARENTS & @CLASS & ?co?
		Method &method=*static_cast<Method *>(compiled_methods.quick_get(i));
		result->add_method(method.name, method);
	}

	return result;
}

char *Request::execute_MAIN(VClass *class_RUN) {
	// initialize contexts
	self=root=rcontext=class_RUN;
	wcontext=NEW WWrapper(pool(), class_RUN);

	// locate @main code
	String name_main(pool());
	name_main.APPEND_CONST(MAIN_METHOD_NAME);

	Value *value_main=class_RUN->get_element(name_main);
	if(!value_main)
		THROW(0,0,
			class_RUN->name(), "class does not contain method '"MAIN_METHOD_NAME"'");

	Junction *junction_main=value_main->get_junction();
	const Method *method_main=junction_main->method;

	if(!method_main)
		THROW(0,0,
			class_RUN->name(), 
			"class does contain '"MAIN_METHOD_NAME"' but it is not a method");

	// execute!	
	execute(method_main->code);

	// return chars
	return wcontext->get_string()->cstr();
}