Annotation of parser3/src/classes/table.C, revision 1.5
1.1 paf 1: /*
2: Parser
3: Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
4: Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
5:
1.5 ! paf 6: $Id: table.C,v 1.4 2001/03/12 18:13:48 paf Exp $
1.1 paf 7: */
8:
9: #include "pa_request.h"
10: #include "_table.h"
11: #include "pa_vtable.h"
1.2 paf 12: #include "pa_common.h"
1.1 paf 13:
14: // global var
15:
16: VClass *table_class;
17:
18: // methods
19:
20:
21: // TODO: проверить ^set в ^menu & co
22:
1.2 paf 23: static void set_or_load(
24: Request& r,
25: const String& method_name, Array *params,
26: bool is_load) {
1.1 paf 27: Pool& pool=r.pool();
28: // data is last parameter
29: Value *vdata=static_cast<Value *>(params->get(params->size()-1));
1.4 paf 30: // forcing
31: // [this param type]
32: // [this param type]
1.3 paf 33: r.fail_if_junction_(true, *vdata,
34: method_name, "body must not be a junction");
1.1 paf 35:
1.2 paf 36: // data or file_name
37: char *data_or_filename=vdata->as_string().cstr();
38: // data
39: char *data=is_load?file_read(pool, r.absolute(data_or_filename)):data_or_filename;
1.1 paf 40:
41: // parse columns
42: Array *columns;
43: #ifndef NO_STRING_ORIGIN
44: const Origin& origin=method_name.origin();
1.2 paf 45: const char *file=origin.file;
1.1 paf 46: uint line=origin.line;
47: #endif
48: if(params->size()==2) {
49: columns=0;
50: } else {
51: columns=new(pool) Array(pool);
52:
53: if(char *row_chars=getrow(&data))
54: do {
55: String *name=new(pool) String(pool);
56: name->APPEND(lsplit(&row_chars, '\t'), 0, file, line++);
57: *columns+=name;
58: } while(row_chars);
59: }
60:
61: // parse cells
62: Table& table=*new(pool) Table(pool, method_name, columns);
63: char *row_chars;
64: while(row_chars=getrow(&data)) {
65: Array *row=new(pool) Array(pool);
66: while(char *cell_chars=lsplit(&row_chars, '\t')) {
67: String *cell=new(pool) String(pool);
68: cell->APPEND(cell_chars, 0, file, line);
69: *row+=cell;
70: }
71: line++;
72: table+=row;
73: };
74:
75: // replace any previous table value
76: r.self->as_vtable().set_table(table);
77: }
78:
1.2 paf 79:
80: static void _set(Request& r, const String& method_name, Array *params) {
81: set_or_load(r, method_name, params, false);
82: }
83:
84: static void _load(Request& r, const String& method_name, Array *params) {
85: set_or_load(r, method_name, params, true);
86: }
87:
1.1 paf 88: void initialize_table_class(Pool& pool, VClass& vclass) {
1.2 paf 89: // ^table.set[data] ^table.set[nameless;data]
1.1 paf 90: vclass.add_native_method("set", _set, 1, 2);
1.2 paf 91:
1.5 ! paf 92: // ^table.load[file] ^table.load[nameless;file]
1.2 paf 93: vclass.add_native_method("load", _load, 1, 2);
1.1 paf 94: }
E-mail: