[BACK]Return to pa_value.h CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / include

Diff for /parser3/src/include/Attic/pa_value.h between versions 1.6 and 1.19

version 1.6, 2001/02/14 12:20:48 version 1.19, 2001/02/23 14:18:26
Line 9 Line 9
 #ifndef PA_VALUE_H  #ifndef PA_VALUE_H
 #define PA_VALUE_H  #define PA_VALUE_H
   
   #include "pa_pool.h"
 #include "pa_string.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:  public:
         Array param_names;          const String& name;
         Array local_names;          Array& params_names;
         String code;          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 {  class Method_ref {
 public:  public:
Line 24  public: Line 55  public:
         Method& method;          Method& method;
 };  };
   
 class Value {  class Junction {
 public:          bool auto_calc;
         // text: value          Value& root;
         virtual String *get_string() const =0;          Value *self;
         virtual String *put_string(const String *astring)=0;          Value& rcontext;
           WContext& wcontext;
           Array& code;
   };
   
   class Value : public Pooled {
   public: // Value
   
           // all: for error reporting after fail(), etc
           virtual const char *type() const =0;
           const String *name() const { return fname; }
   
           // 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; }
   
         // method_ref: "self" part, method          // junction: auto_calc,root,self,rcontext,wcontext, code
         virtual Method_ref *get_method_ref() const =0;          virtual Junction *get_junction() { failed("getting junction from %s"); return 0; }
   
         // hash: (key)=value          // hash: (key)=value
         // object_class: (field)=STATIC.value;(STATIC)=hash;(method)=method_ref with self=object_class          // object_class: (field)=STATIC.value;(STATIC)=hash;(method)=method_ref with self=object_class
         // object_instance: (field)=value;(STATIC)=hash;(method)=method_ref          // object_instance: (field)=value;(STATIC)=hash;(method)=method_ref
         virtual Value *get_element(const String& name) const =0;          // operator_class: (field)=value - static values only
         virtual Value *put_element(const String& name, const Value *avalue)=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
           // 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          // object_instance, object_class: method
         virtual Method *get_method(const String& name) const =0;          // frame: transparent
           // wcontext: transparent
           virtual Method *get_method(const String& name) const { return 0; }
   
         // object_class, object_instance: object_class          // object_class, object_instance: object_class
         virtual Class *get_class() const =0;          // frame: transparent
           // wcontext: transparent
           virtual VClass *get_class() { return 0; }
   
           // object_class: true when this class is this or derived from 'ancestor'
           // frame: transparent
           // wcontext: transparent
           virtual bool is_or_derived_from(VClass& ancestor) { failed("thoghts of ancestors of %s"); return false; }
   
   public: // usage
   
           Value(Pool& apool) : Pooled(apool), fname(0) {}
   
           void set_name(const String& aname) { fname=&aname; }
   
           String& as_string() {
                   String *result=get_string(); 
                   if(!result)
                           failed("getting string of %s");
                   return *result;
           }
   
         // object_class: true when this class is derived from 'parent'  private:
         virtual bool has_parent(Class *aparent) const =0;  
           const String *fname;
   
   private: 
   
           void failed(char *action);
 };  };
   
 /*  /*
Line 58  descendants: Line 145  descendants:
     object_instance:+ object_class, fields:Hash      object_instance:+ object_class, fields:Hash
     method_ref:+ self:Value/object_class, method:String      method_ref:+ self:Value/object_class, method:String
     method_self_n_params_n_locals:+ self:Value/object_class[1st try], params_locals&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  #endif
Removed from v.1.6  
changed lines
  Added in v.1.19

E-mail: