Annotation of parser3/src/types/pa_vhash.h, revision 1.20

1.10      paf         1: /** @file
                      2:        Parser: @b hash parser type decl.
                      3: 
1.1       paf         4:        Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
1.3       paf         5:        Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
1.1       paf         6: 
1.20    ! parser      7:        $Id: pa_vhash.h,v 1.19 2001/09/24 14:34:25 parser Exp $
1.1       paf         8: */
                      9: 
                     10: #ifndef PA_VHASH_H
                     11: #define PA_VHASH_H
                     12: 
1.13      paf        13: #include "classes.h"
1.1       paf        14: #include "pa_value.h"
                     15: #include "pa_hash.h"
                     16: 
1.13      paf        17: extern Methoded *hash_base_class;
                     18: 
1.11      paf        19: /// value of type 'hash', implemented with Hash
1.13      paf        20: class VHash : public VStateless_class {
1.1       paf        21: public: // value
                     22: 
1.2       paf        23:        const char *type() const { return "hash"; }
1.17      parser     24: 
1.19      parser     25:        /// VHash: finteger
                     26:        int as_int() const { return fhash.size(); }
                     27:        /// VHash: finteger
                     28:        double as_double() const { return as_int(); }
1.17      parser     29:        /// VHash: count!=0
1.19      parser     30:        bool is_defined() const { return as_int()!=0; }
1.20    ! parser     31:        /// VHash: count
        !            32:        Value *as_expr_result(bool return_string_as_is=false) { return NEW VInt(pool(), as_int()); }
1.1       paf        33: 
1.11      paf        34:        /// VHash: fhash
1.8       paf        35:        Hash *get_hash() { return &fhash; }
1.14      paf        36: 
                     37:        /// VHash: 0
                     38:        VStateless_class *get_class() { return 0; }
1.7       paf        39: 
1.11      paf        40:        /// VHash: (key)=value
1.1       paf        41:        Value *get_element(const String& name) { 
1.15      parser     42:                // $CLASS,$method
1.13      paf        43:                if(Value *result=VStateless_class::get_element(name))
                     44:                        return result;
                     45: 
                     46:                // $element
1.16      parser     47:                if(Value *result=static_cast<Value *>(fhash.get(name)))
                     48:                        return result;
                     49: 
                     50:                // default value
                     51:                return static_cast<Value *>(fhash.get(*hash_default_element_name));
1.1       paf        52:        }
                     53:        
1.11      paf        54:        /// VHash: (key)=value
1.1       paf        55:        void put_element(const String& name, Value *value) { 
1.5       paf        56:                fhash.put(name, value);
1.1       paf        57:        }
                     58: 
                     59: public: // usage
                     60: 
1.13      paf        61:        VHash(Pool& apool) : VStateless_class(apool, hash_base_class), 
                     62:                fhash(apool), 
1.18      parser     63:                fdefault(0) {
                     64:        }
                     65: 
                     66:        VHash(Pool& apool, const Hash& source) : VStateless_class(apool, hash_base_class), 
                     67:                fhash(source), 
1.13      paf        68:                fdefault(0) {
                     69:        }
1.7       paf        70: 
                     71:        Hash& hash() { return fhash; }
1.1       paf        72: 
1.13      paf        73:        void set_default(Value& adefault) { fdefault=&adefault; }
                     74:        Value *get_default() { return fdefault; }
                     75: 
1.1       paf        76: private:
1.6       paf        77: 
1.9       paf        78:        Hash fhash;
1.13      paf        79:        Value *fdefault;
1.6       paf        80: 
1.1       paf        81: };
                     82: 
                     83: #endif

E-mail: