--- parser3/src/include/Attic/pa_vclass.h	2001/02/22 09:14:25	1.4
+++ parser3/src/include/Attic/pa_vclass.h	2001/02/24 15:26:02	1.14
@@ -1,20 +1,14 @@
 /*
-  $Id: pa_vclass.h,v 1.4 2001/02/22 09:14:25 paf Exp $
-*/
-
-/*
-	data core
+  $Id: pa_vclass.h,v 1.14 2001/02/24 15:26:02 paf Exp $
 */
 
 #ifndef PA_VCLASS_H
 #define PA_VCLASS_H
 
 #include "pa_value.h"
-///#include "pa_vhash.h"
-class VHash {
-public:
-	VHash(Pool& apool, Hash& hash) {}
-};
+#include "pa_vhash.h"
+#include "pa_vstring.h"
+#include "pa_vjunction.h"
 
 class VClass : public Value {
 public: // Value
@@ -24,29 +18,32 @@ public: // Value
 
 	// object_class: (field)=STATIC.value;(STATIC)=hash;(method)=method_ref with self=object_class
 	Value *get_element(const String& name) {
+		// $NAME=name()
+		if(name==NAME_NAME)
+			return NEW VString(VClass::name());
+		// $PARENTS=parents table
+		if(name==PARENTS_NAME)
+			return 0;// TODO: table of parents
 		// $STATIC=STATIC hash
-		if(name==STATIC_NAME)
-			return 0;//TODO:new(pool()) VHash(pool(), STATIC);
+		if(name==STATICS_NAME)
+			return &STATICS;
 
-		// $field=STATIC.field
-		Value *result=static_cast<Value *>(STATIC.get(name));
-		if(!result) {
-			// $method=VMethod_ref
-			if(Method *method=get_method(name))
-				result=0;///new(pool()) VMethod_ref(this, method);
+		// $method=junction(this+method)
+		if(Method *method=static_cast<Method *>(methods.get(name))) {
+			Junction& j=*NEW Junction(pool(), 
+				*this,
+				method,0,0,0,0);
+
+			return NEW VJunction(j);
 		}
 
-		return result;
+		// $field=STATIC.field
+		return STATICS.get_element(name);
 	}
 
 	// object_class, operator_class: (field)=value - static values only
 	void put_element(const String& name, Value *value) {
-		STATIC.put(name, value);
-	}
-
-	// object_instance, object_class: method
-	Method *get_method(const String& name) const {
-		return static_cast<Method *>(methods.get(name));
+		STATICS.put_element(name, value);
 	}
 
 	// object_class, object_instance: object_class
@@ -57,40 +54,35 @@ public: // Value
 		if(this==&ancestor)
 			return true; // it's me
 
-		return parents_hash.get(ancestor.name())!=0;
+		return parents_hash.get(*ancestor.name())!=0;
 	}
 
 public: // usage
-	
-	const String& name() const { return *fname; }
 
-public: // creation
-
-	VClass(Pool& apool, String& aname, const Array& immediate_parents) : 
+	VClass(Pool& apool) : 
 		Value(apool), 
-		fname(&aname),
-		STATIC(apool),
+		STATICS(apool),
 		methods(apool),
 		parents(apool),
 		parents_hash(apool) {
-		// TODO: monkey immediate_parents 
-			// fill parents & parents_hash
 	}
-	
-	void rename(String *aname) { fname=aname; }
 
 	void add_method(const String& name, Method& method) {
 		methods.put(name, &method);
 	}
 	void add_parent(VClass& parent) {
 		parents+=&parent;
-		parents_hash.put(parent.name(), &parent);
+		parents_hash.put(*parent.name(), &parent);
+		// TODO: monkey immediate_parent
+			// fill parents & parents_hash
 	}
 
+public: //usage
+
+	VHash STATICS;
+
 private:
 
-	String *fname;
-	Hash STATIC;
 	Hash methods;
 	Array parents;  Hash parents_hash;
 };