Annotation of parser3/src/types/pa_vhash.h, revision 1.43.2.14
1.10 paf 1: /** @file
2: Parser: @b hash parser type decl.
3:
1.43.2.7 paf 4: Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)
1.29 paf 5: Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
1.1 paf 6: */
7:
8: #ifndef PA_VHASH_H
9: #define PA_VHASH_H
1.34 paf 10:
1.43.2.13 paf 11: static const char* IDENT_VHASH_H="$Date: 2003/02/14 16:52:21 $";
1.1 paf 12:
1.13 paf 13: #include "classes.h"
1.1 paf 14: #include "pa_value.h"
15: #include "pa_hash.h"
1.21 parser 16: #include "pa_vint.h"
1.43.2.2 paf 17: #include "pa_globals.h"
1.1 paf 18:
1.39 paf 19: // defines
20:
21: #define VHASH_TYPE "hash"
1.42 paf 22: #define HASH_FIELDS_NAME "fields"
1.39 paf 23:
1.26 paf 24: // externs
25:
1.43.2.10 paf 26: extern MethodedPtr hash_class;
1.43.2.14! paf 27: extern StringPtr hash_default_element_name;
1.13 paf 28:
1.26 paf 29: // forwards
30:
31: class VHash_lock;
32:
1.11 paf 33: /// value of type 'hash', implemented with Hash
1.43.2.2 paf 34: class VHash: public VStateless_object {
1.26 paf 35: friend class VHash_lock;
1.1 paf 36: public: // value
37:
1.43.2.7 paf 38: override const char* type() const { return VHASH_TYPE; }
1.43.2.10 paf 39: override VStateless_class *get_class() { return hash_class.get(); }
1.17 parser 40:
1.19 parser 41: /// VHash: finteger
1.43.2.2 paf 42: override int as_int() const { return fhash.count(); }
1.19 parser 43: /// VHash: finteger
1.43.2.1 paf 44: override double as_double() const { return as_int(); }
1.17 parser 45: /// VHash: count!=0
1.43.2.1 paf 46: override bool is_defined() const { return as_int()!=0; }
1.23 parser 47: /// VHash: count!=0
1.43.2.1 paf 48: override bool as_bool() const { return is_defined(); }
1.20 parser 49: /// VHash: count
1.43.2.2 paf 50: override ValuePtr as_expr_result(bool ) { return ValuePtr(new VInt(as_int())); }
1.1 paf 51:
1.11 paf 52: /// VHash: fhash
1.43.2.11 paf 53: override HashStringValue *get_hash(StringPtr source) { return &hash(source); }
1.14 paf 54:
1.11 paf 55: /// VHash: (key)=value
1.43.2.6 paf 56: override ValuePtr get_element(StringPtr aname, Value& aself, bool looking_up) {
1.36 paf 57: // $method
1.43.2.2 paf 58: if(ValuePtr result=VStateless_object::get_element(aname, aself, looking_up))
1.13 paf 59: return result;
1.42 paf 60:
61: // $fields -- pseudo field to make 'hash' more like 'table'
1.43.2.2 paf 62: if(*aname == HASH_FIELDS_NAME)
1.43.2.9 paf 63: return ValuePtr(this);
1.13 paf 64:
65: // $element
1.43.2.2 paf 66: if(ValuePtr result=fhash.get(aname))
1.16 parser 67: return result;
68:
69: // default value
1.22 parser 70: return get_default();
1.1 paf 71: }
72:
1.11 paf 73: /// VHash: (key)=value
1.43.2.6 paf 74: override bool put_element(StringPtr aname, ValuePtr avalue, bool /*replace*/) {
1.43.2.2 paf 75: if(flocked) {
1.40 paf 76: if(!fhash.put_replace(aname, avalue))
77: throw Exception("parser.runtime",
1.43.2.2 paf 78: aname,
79: "can not insert new hash key (hash flocked)");
1.40 paf 80: } else
81: fhash.put(aname, avalue);
1.36 paf 82:
83: return true;
1.1 paf 84: }
85:
86: public: // usage
87:
1.43.2.2 paf 88: VHash(): flocked(false) {}
1.18 parser 89:
1.43.2.2 paf 90: VHash(const HashStringValue& source): fhash(source), flocked(false) {}
1.7 paf 91:
1.43.2.8 paf 92: HashStringValue& hash(StringPtr source) {
1.26 paf 93: check_lock(source);
1.43.2.8 paf 94: return fhash;
1.26 paf 95: }
1.43.2.11 paf 96:
97: HashStringValue& hash() { return fhash; }
1.1 paf 98:
1.43.2.14! paf 99: void set_default(ValuePtr adefault) {
! 100: ValuePtr dest=VStateless_classPtr(0);
! 101: fhash.put(hash_default_element_name, adefault);
! 102: }
! 103: ValuePtr get_default() {
! 104: return fhash.get(hash_default_element_name);
! 105: }
1.13 paf 106:
1.43.2.6 paf 107: void check_lock(StringPtr source) {
1.43.2.2 paf 108: if(flocked)
1.30 paf 109: throw Exception("parser.runtime",
1.26 paf 110: source,
1.43.2.2 paf 111: "can not modify hash (flocked)");
1.26 paf 112: }
113:
1.1 paf 114: private:
1.6 paf 115:
1.43.2.2 paf 116: bool flocked;
117: HashStringValue fhash;
1.26 paf 118:
119: };
1.43.2.5 paf 120: DECLARE_OBJECT_PTR(VHash);
1.26 paf 121:
122: class VHash_lock {
123: VHash& fhash;
124: bool saved;
125: public:
1.43.2.2 paf 126: VHash_lock(VHash& ahash): fhash(ahash) {
127: saved=fhash.flocked;
128: fhash.flocked=true;
1.26 paf 129: }
130: ~VHash_lock() {
1.43.2.2 paf 131: fhash.flocked=saved;
1.26 paf 132: }
1.6 paf 133:
1.1 paf 134: };
135:
136: #endif
E-mail:
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pa_vhash.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [parser3project] / parser3 / src / types