Return to pa_vobject.h CVS log

Up to [parser3project] / parser3 / src / include

^class:method() just compiled

/*
  $Id: pa_vobject.h,v 1.3 2001/02/25 08:12:21 paf Exp $
*/

#ifndef PA_VOBJECT_H
#define PA_VOBJECT_H

#include "pa_value.h"
#include "pa_vjunction.h"

class VObject : public Value {
public: // Value
	
	// all: for error reporting after fail(), etc
	const char *type() const { return "Object"; }

	// object_instance: (field)=value;(STATIC)=hash;(method)=method_ref
	Value *get_element(const String& name) {
		// $STATIC=STATIC hash
		if(name==STATIC_NAME)
			return &vclass.STATICS;

		// $method=junction(this+method)
		if(Method *method=static_cast<Method *>(vclass.methods().get(name))) {
			Junction& j=*NEW Junction(pool(), 
				*this,
				method,0,0,0,0);

			return NEW VJunction(j);
		}

		// $field=fields.field
		return static_cast<Value *>(fields.get(name));
	}

	// object_instance: (field)=value
	void put_element(const String& name, Value *value) {
		// speed1:
		//   will not check for '$STATIC(subst)' trick
		//   will hope that user ain't THAT self-hating person
		// speed2:
		//   will not check for '$method_name(subst)' trick
		//   -same-

		fields.put(name, value);
	}

	// object_class, object_instance: object_class
	VClass *get_class() { return &vclass; }

public: // creation

	VObject(Pool& apool, VClass& vclass) : 
		Value(apool), 
		vclass(vclass),
		fields(apool) {
	}

private:

	VClass& vclass;
	Hash fields;
};

#endif