Return to pa_vmframe.h CVS log

Up to [parser3project] / parser3 / src / include

z

/*
  $Id: pa_vmframe.h,v 1.15 2001/03/08 12:19:20 paf Exp $
*/

#ifndef PA_VMFRAME_H
#define PA_VMFRAME_H

#include "pa_wcontext.h"
#include "pa_vunknown.h"
#include "pa_vjunction.h"

class VMethodFrame : public WContext {
public: // Value

	// all: for error reporting after fail(), etc
	const char *type() const { return "method_frame"; }
	// frame: my or self_transparent
	Value *get_element(const String& name) { 
		Value *result=static_cast<Value *>(my.get(name));
		if(!result)
			result=fself->get_element(name);
		return result; 
	}
	// frame: my or self_transparent
	void put_element(const String& name, Value *value){ 
		if(!my.put_replace(name, value))
			fself->put_element(name, value);
	}

	// frame: self_transparent
	VClass* get_class() { return fself->get_class(); }

	// methodframe: self_transparent
	VAliased *get_aliased() { return fself->get_aliased(); }

public: // usage

	VMethodFrame(Pool& apool, const Junction& ajunction) : 
		WContext(apool, 0 /* empty */, false /* not constructing */),

		junction(ajunction),
		store_param_index(0),
		my(apool),
		fself(0) {
		if(Method* method=junction.method) { // method junction?
			if(method->locals_names) { // there are any local var names?
				// remember them
				// those are flags that name is local == to be looked up in 'my'
				for(int i=0; i<method->locals_names->size(); i++) {
					my.put(
						*static_cast<String *>(method->locals_names->get(i)), 
						NEW VUnknown(pool()));
				}
			}
		}
	}

	void set_self(Value& aself) { fself=&aself; }

	void store_param(Value *value) {
		Method *method=junction.method;
		int max_params=method->params_names?method->params_names->size():0;
		if(store_param_index==max_params)
			THROW(0,0,
				&junction.self.name(),
				"%s method '%s' accepts maximum %d parameters", 
					junction.self.type(),
					method->name.cstr(),
					max_params);
		
		String& name=*static_cast<String *>(method->params_names->get(store_param_index++));
		my.put(name, value);
		value->set_name(name);
	}
	void fill_unspecified_params() {
		Array *params_names=junction.method->params_names;
		if(params_names) // there are any parameters might need filling?
			for(; store_param_index<params_names->size(); store_param_index++)
				my.put(
					*static_cast<String *>(params_names->get(store_param_index)), 
					NEW VUnknown(pool()));
	}

public:
	
	const Junction& junction;

private:
	int store_param_index;
	Hash my;
	Value *fself;

};

#endif