Return to pa_value.h CVS log

Up to [parser3project] / parser3 / src / include

Annotation of parser3/src/include/pa_value.h, revision 1.23

1.1       paf         1: /*
1.23    ! paf         2:   $Id: pa_value.h,v 1.22 2001/02/23 22:22:07 paf Exp $
1.1       paf         3: */
                      4: 
                      5: /*
                      6:        data core
                      7: */
                      8: 
                      9: #ifndef PA_VALUE_H
                     10: #define PA_VALUE_H
                     11: 
1.9       paf        12: #include "pa_pool.h"
1.1       paf        13: #include "pa_string.h"
1.9       paf        14: #include "pa_array.h"
                     15: //#include "pa_voperator.h"
1.1       paf        16: 
1.9       paf        17: class Value;
                     18: class VClass;
                     19: //class VOperator;
                     20: class Junction;
                     21: class WContext;
                     22: 
                     23: class Method : public Pooled {
1.1       paf        24: public:
1.11      paf        25:        const String& name;
                     26:        Array& params_names;
                     27:        Array& locals_names;
1.23    ! paf        28:        const Array& code;
1.9       paf        29: 
                     30:        Method(
                     31:                Pool& apool,
1.11      paf        32:                const String& aname,
                     33:                Array& aparams_names,
                     34:                Array& alocals_names,
1.23    ! paf        35:                const Array& acode) : 
1.19      paf        36: 
1.9       paf        37:                Pooled(apool),
                     38:                name(aname),
1.11      paf        39:                params_names(aparams_names),
                     40:                locals_names(alocals_names),
1.9       paf        41:                code(acode) {
                     42:        }
1.1       paf        43: };
                     44: 
1.9       paf        45: /*
1.7       paf        46: class Operator : public Method {
                     47:        // operator module static vars stored in there
1.9       paf        48:        VOperator_class *self;
1.7       paf        49: };
1.9       paf        50: */
1.7       paf        51: 
1.21      paf        52: class Junction : public Pooled {
1.2       paf        53: public:
                     54: 
1.20      paf        55:        Junction(Pool& apool,
                     56:                Method *amethod,
1.23    ! paf        57:                Value *aself,
1.20      paf        58:                Value *aroot,
                     59:                Value *arcontext,
1.23    ! paf        60:                const Array *acode) : Pooled(apool),
1.20      paf        61:                
                     62:                method(amethod),
1.23    ! paf        63:                self(aself),
1.20      paf        64:                root(aroot),
                     65:                rcontext(arcontext),
                     66:                code(acode) {
                     67:        }
                     68: 
1.21      paf        69:        Method *method;
1.23    ! paf        70:        Value *self;
1.21      paf        71:        Value *root;
                     72:        Value *rcontext;
1.23    ! paf        73:        const Array *code;
1.8       paf        74: };
                     75: 
1.9       paf        76: class Value : public Pooled {
1.17      paf        77: public: // Value
1.9       paf        78: 
                     79:        // all: for error reporting after fail(), etc
1.13      paf        80:        virtual const char *type() const =0;
1.18      paf        81:        const String *name() const { return fname; }
1.9       paf        82: 
1.13      paf        83:        // string: value
1.16      paf        84:        // unknown: ""
                     85:        // others: 0
1.13      paf        86:        virtual String *get_string() { return 0; }
1.9       paf        87:        
1.13      paf        88:        // string: value
1.21      paf        89:        virtual void put_string(String *astring) { failed("storing string to %s:%s"); }
1.1       paf        90: 
1.9       paf        91:        // junction: auto_calc,root,self,rcontext,wcontext, code
1.23    ! paf        92:        virtual Junction *get_junction() { return 0; }
1.8       paf        93: 
1.1       paf        94:        // hash: (key)=value
1.2       paf        95:        // object_class: (field)=STATIC.value;(STATIC)=hash;(method)=method_ref with self=object_class
1.1       paf        96:        // object_instance: (field)=value;(STATIC)=hash;(method)=method_ref
1.7       paf        97:        // operator_class: (field)=value - static values only
1.19      paf        98:        // wcontext: transparent
                     99:        // frame: my or self_transparent
1.21      paf       100:        virtual Value *get_element(const String& name) { failed("getting element from %s:%s"); return 0; }
1.13      paf       101:        
1.15      paf       102:        // hash: (key)=value
1.9       paf       103:        // object_class, operator_class: (field)=value - static values only
1.19      paf       104:        // wcontext: transparent
                    105:        // frame: my or self_transparent
1.21      paf       106:        virtual void put_element(const String& name, Value *value) { failed("putting element to %s:%s"); }
1.5       paf       107: 
                    108:        // object_class, object_instance: object_class
1.19      paf       109:        // frame: transparent
                    110:        // wcontext: transparent
1.9       paf       111:        virtual VClass *get_class() { return 0; }
                    112: 
                    113:        // object_class: true when this class is this or derived from 'ancestor'
1.19      paf       114:        // frame: transparent
                    115:        // wcontext: transparent
1.21      paf       116:        virtual bool is_or_derived_from(VClass& ancestor) { failed("thoghts of ancestors of %s:%s"); return false; }
1.17      paf       117: 
                    118: public: // usage
                    119: 
1.18      paf       120:        Value(Pool& apool) : Pooled(apool), fname(0) {}
1.17      paf       121: 
1.18      paf       122:        void set_name(const String& aname) { fname=&aname; }
                    123: 
                    124:        String& as_string() {
1.17      paf       125:                String *result=get_string(); 
                    126:                if(!result)
1.21      paf       127:                        failed("getting string of %s:%s");
1.17      paf       128:                return *result;
                    129:        }
1.9       paf       130: 
1.18      paf       131: private:
                    132: 
                    133:        const String *fname;
                    134: 
1.9       paf       135: private: 
1.6       paf       136: 
1.18      paf       137:        void failed(char *action);
1.1       paf       138: };
                    139: 
                    140: /*
                    141: descendants:
                    142:        text:+ value:String
                    143:     hash:+ keys&values:Hash
                    144:     table:+ columns_order:Array, columns:Hash, rows:Array
                    145:     object_class:+ STATIC:Hash, methods:Hash
                    146:     object_instance:+ object_class, fields:Hash
1.2       paf       147:     method_ref:+ self:Value/object_class, method:String
1.4       paf       148:     method_self_n_params_n_locals:+ self:Value/object_class[1st try], params_locals&values:Hash[2nd try]
1.8       paf       149:        junction:+ self:Value, code:String
1.1       paf       150: */
                    151: 
                    152: #endif