Annotation of parser3/src/types/pa_vtable.C, revision 1.21.2.4
1.1 parser 1: /** @file
2: Parser: @b table class.
3:
1.21.2.1 paf 4: Copyright(c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)
1.11 paf 5: Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
1.14 paf 6: */
1.1 parser 7:
1.21.2.4! paf 8: static const char* IDENT_VTABLE_C="$Date: 2003/02/04 11:29:10 $";
1.1 parser 9:
10: #include "pa_vtable.h"
11: #include "pa_vstring.h"
1.5 parser 12: #include "pa_vhash.h"
1.21.2.2 paf 13: #include "pa_vvoid.h"
1.1 parser 14:
1.3 parser 15: #ifndef DOXYGEN
1.1 parser 16: struct Record_info {
1.21.2.2 paf 17: Table* table;
18: HashStringValue* hash;
1.1 parser 19: };
1.3 parser 20: #endif
1.21.2.2 paf 21: static void store_column_item_to_hash(StringPtr column_name,
22: Record_info *info) {
23: ValuePtr value;
24: if(StringPtr column_item=info->table->item(column_name))
25: value=ValuePtr(new VString(column_item));
1.1 parser 26: else
1.21.2.2 paf 27: value=ValuePtr(new VVoid);
28: info->hash->put(column_name, value);
1.1 parser 29: }
1.21.2.2 paf 30: ValuePtr VTable::fields_element() {
31: Table& ltable=*table(Exception::undefined_source);
32: if(Table::columns_type columns=ltable.columns()) {
33: ValuePtr result(new VHash);
34: Record_info record_info={<able, result->get_hash(Exception::undefined_source)};
1.1 parser 35: columns->for_each(store_column_item_to_hash, &record_info);
36: return result;
37: }
1.21.2.3 paf 38: return ValuePtr(0);
1.1 parser 39: }
40:
41:
1.21.2.2 paf 42: ValuePtr VTable::get_element(StringPtr aname, Value& aself, bool looking_up) {
1.1 parser 43: // fields
1.21.2.2 paf 44: if(*aname==TABLE_FIELDS_ELEMENT_NAME)
1.1 parser 45: return fields_element();
46:
1.2 parser 47: // methods
1.21.2.2 paf 48: if(ValuePtr result=VStateless_object::get_element(aname, aself, looking_up))
1.2 parser 49: return result;
50:
1.1 parser 51: // columns
52: if(ftable) {
1.16 paf 53: int index=ftable->column_name2index(aname, false);
54: if(index>=0) // column aname|number valid
1.21.2.2 paf 55: if(StringPtr string=ftable->item(index)) // there is such column
56: return ValuePtr(new VString(string));
1.1 parser 57: else
1.21.2.2 paf 58: return ValuePtr(new VVoid);
1.1 parser 59: }
60:
1.13 paf 61: throw Exception("parser.runtime",
1.21.2.2 paf 62: aname,
1.1 parser 63: "column not found");
1.21.2.3 paf 64: return ValuePtr(0); //unreached
1.1 parser 65: }
E-mail: