--- parser3/src/include/Attic/pa_value.h	2001/02/22 08:16:09	1.12
+++ parser3/src/include/Attic/pa_value.h	2001/02/23 14:18:26	1.19
@@ -1,5 +1,5 @@
 /*
-  $Id: pa_value.h,v 1.12 2001/02/22 08:16:09 paf Exp $
+  $Id: pa_value.h,v 1.19 2001/02/23 14:18:26 paf Exp $
 */
 
 /*
@@ -10,7 +10,6 @@
 #define PA_VALUE_H
 
 #include "pa_pool.h"
-#include "pa_exception.h"
 #include "pa_string.h"
 #include "pa_array.h"
 //#include "pa_voperator.h"
@@ -34,6 +33,7 @@ public:
 		Array& aparams_names,
 		Array& alocals_names,
 		Array& acode) : 
+
 		Pooled(apool),
 		name(aname),
 		params_names(aparams_names),
@@ -65,53 +65,75 @@ class Junction {
 };
 
 class Value : public Pooled {
-public:
-
-	Value(Pool& apool) : Pooled(apool) {}
-
-public:
+public: // Value
 
 	// all: for error reporting after fail(), etc
-	virtual const char *get_type() const =0;
+	virtual const char *type() const =0;
+	const String *name() const { return fname; }
 
-	// text: value
-	// object_class: [class classname]
-	virtual String *get_string() { /*vclass: failed("getting string representation"); */return 0; }
+	// string: value
+	// unknown: ""
+	// others: 0
+	virtual String *get_string() { return 0; }
 	
-	// text: value
-	virtual void put_string(const String *astring) { failed("storing string"); }
+	// 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"); return 0; }
+	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"); return 0; }
+	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
 	// operator_class: (field)=value - static values only
-	virtual Value *get_element(const String& name) const =0;
-
+	// wcontext: transparent
+	// frame: my or self_transparent
+	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)=0;
+	// wcontext: transparent
+	// frame: my or self_transparent
+	virtual void put_element(const String& name, Value *value) { failed("putting element to %s"); }
 
 	// object_instance, object_class: method
+	// frame: transparent
+	// wcontext: transparent
 	virtual Method *get_method(const String& name) const { return 0; }
 
 	// object_class, object_instance: object_class
+	// frame: transparent
+	// wcontext: transparent
 	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"); return false; }
+	// frame: transparent
+	// wcontext: transparent
+	virtual bool is_or_derived_from(VClass& ancestor) { failed("thoghts of ancestors of %s"); return false; }
 
-private: 
+public: // usage
+
+	Value(Pool& apool) : Pooled(apool), fname(0) {}
 
-	void failed(char *action) {
-		pool().exception().raise(0,0,
-			0,
-			action);
+	void set_name(const String& aname) { fname=&aname; }
+
+	String& as_string() {
+		String *result=get_string(); 
+		if(!result)
+			failed("getting string of %s");
+		return *result;
 	}
+
+private:
+
+	const String *fname;
+
+private: 
+
+	void failed(char *action);
 };
 
 /*