--- parser3/src/include/Attic/pa_value.h	2001/02/12 11:34:11	1.2
+++ parser3/src/include/Attic/pa_value.h	2001/02/23 09:43:13	1.16
@@ -1,5 +1,5 @@
 /*
-  $Id: pa_value.h,v 1.2 2001/02/12 11:34:11 paf Exp $
+  $Id: pa_value.h,v 1.16 2001/02/23 09:43:13 paf Exp $
 */
 
 /*
@@ -9,13 +9,45 @@
 #ifndef PA_VALUE_H
 #define PA_VALUE_H
 
+#include "pa_pool.h"
+#include "pa_exception.h"
 #include "pa_string.h"
+#include "pa_array.h"
+//#include "pa_voperator.h"
 
-class Method {
+class Value;
+class VClass;
+//class VOperator;
+class Junction;
+class WContext;
+
+class Method : public Pooled {
 public:
-	Array param_names;
-	String code;
+	const String& name;
+	Array& params_names;
+	Array& locals_names;
+	Array& code;
+
+	Method(
+		Pool& apool,
+		const String& aname,
+		Array& aparams_names,
+		Array& alocals_names,
+		Array& acode) : 
+		Pooled(apool),
+		name(aname),
+		params_names(aparams_names),
+		locals_names(alocals_names),
+		code(acode) {
+	}
+};
+
+/*
+class Operator : public Method {
+	// operator module static vars stored in there
+	VOperator_class *self;
 };
+*/
 
 class Method_ref {
 public:
@@ -23,23 +55,65 @@ public:
 	Method& method;
 };
 
-class Value {
+class Junction {
+	bool auto_calc;
+	Value& root;
+	Value *self;
+	Value& rcontext;
+	WContext& wcontext;
+	Array& code;
+};
+
+class Value : public Pooled {
+public:
+
+	Value(Pool& apool) : Pooled(apool) {}
+
 public:
-	// text: value
-	virtual String *get_string() const =0;
-	virtual String *put_string(const String *astring)=0;
+
+	// all: for error reporting after fail(), etc
+	virtual const char *type() const =0;
+
+	// string: value
+	// unknown: ""
+	// others: 0
+	virtual String *get_string() { return 0; }
+	
+	// string: value
+	virtual void put_string(String *astring) { failed("storing string to %s"); }
+
+	// method_ref: self, method
+	virtual Method_ref *get_method_ref() { failed("extracting method reference from %s"); return 0; }
+
+	// junction: auto_calc,root,self,rcontext,wcontext, code
+	virtual Junction *get_junction() { failed("getting junction from %s"); return 0; }
 
 	// hash: (key)=value
 	// object_class: (field)=STATIC.value;(STATIC)=hash;(method)=method_ref with self=object_class
 	// object_instance: (field)=value;(STATIC)=hash;(method)=method_ref
-	virtual Value *get_element(const String& name) const =0;
-	virtual Value *put_element(const String& name, const Value *avalue)=0;
+	// operator_class: (field)=value - static values only
+	virtual Value *get_element(const String& name) { failed("getting element from %s"); return 0; }
+	
+	// hash: (key)=value
+	// object_class, operator_class: (field)=value - static values only
+	virtual void put_element(const String& name, Value *value) { failed("putting element to %s"); }
 
 	// object_instance, object_class: method
-	virtual Method *get_method(const String& name) const =0;
+	virtual Method *get_method(const String& name) const { return 0; }
 
-	// method_ref: "self" part, method
-	virtual Method_ref *get_method_ref() const =0;
+	// object_class, object_instance: object_class
+	virtual VClass *get_class() { return 0; }
+
+	// object_class: true when this class is this or derived from 'ancestor'
+	virtual bool is_or_derived_from(VClass& ancestor) { failed("thoghts of ancestors of %s"); return false; }
+
+private: 
+
+	void failed(char *action) {
+		THROW(0,0,
+			0,
+			action, type());
+	}
 };
 
 /*
@@ -50,9 +124,8 @@ descendants:
     object_class:+ STATIC:Hash, methods:Hash
     object_instance:+ object_class, fields:Hash
     method_ref:+ self:Value/object_class, method:String
-    method_self_n_params:+ self:Value/object_class[1st try], params&values:Hash[2nd try]
-
-
+    method_self_n_params_n_locals:+ self:Value/object_class[1st try], params_locals&values:Hash[2nd try]
+	junction:+ self:Value, code:String
 */
 
 #endif