--- parser3/src/classes/table.C 2001/07/23 11:19:25 1.94 +++ parser3/src/classes/table.C 2001/09/26 10:32:25 1.115 @@ -2,22 +2,18 @@ Parser: @b table parser class. Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com) - Author: Alexander Petrosyan (http://design.ru/paf) -*/ -static const char *RCSId="$Id: table.C,v 1.94 2001/07/23 11:19:25 parser Exp $"; - -#include "pa_config_includes.h" -#include "pcre.h" + $Id: table.C,v 1.115 2001/09/26 10:32:25 parser Exp $ +*/ #include "classes.h" +#include "pa_config_includes.h" #include "pa_common.h" #include "pa_request.h" #include "pa_vtable.h" #include "pa_vint.h" #include "pa_sql_connection.h" -#include "pa_dir.h" #include "pa_vbool.h" // defines @@ -65,10 +61,10 @@ static void _set(Request& r, const Strin // parse cells Array rows(pool); data.split(rows, &pos_after, "\n", 1, String::UL_CLEAN); - int size=rows.quick_size(); - for(int i=0; iAPPEND_TAINTED(cell_chars, 0, file, line); *row+=cell; } +#ifndef NO_STRING_ORIGIN line++; +#endif table+=row; }; @@ -156,7 +154,7 @@ static Table *fill_month_days(Request& r for(int wday=0; wday<7; wday++, _day++) { String *cell=new(pool) String(pool); if(_day>=1 && _day<=monthDays) { - char *buf=(char *)malloc(2+1); + char *buf=(char *)pool.malloc(2+1); cell->APPEND_CLEAN(buf, sprintf(buf, "%02d", _day), method_name.origin().file, method_name.origin().line); } @@ -200,7 +198,7 @@ static Table *fill_week_days(Request& r, tm *tmOut=localtime(&t); Array& row=*new(pool) Array(pool, 4); #define WDFILL(size, value) { \ - char *buf=(char *)malloc(size+1); \ + char *buf=(char *)pool.malloc(size+1); \ String *cell=new(pool) String(pool); \ cell->APPEND_CLEAN(buf, sprintf(buf, "%0"#size"d", value), \ method_name.origin().file, \ @@ -255,17 +253,17 @@ static void _save(Request& r, const Stri if(params->size()==1) { // not nameless=named output // write out names line if(table.columns()) { // named table - for(int column=0; columnsize(); column++) { - if(column) - sdata.APPEND_CONST("\t"); - sdata.append(*static_cast(table.columns()->quick_get(column)), + Array_iter i(*table.columns()); + while(i.has_next()) { + sdata.append(*i.next_string(), //*static_cast(table.columns()->quick_get(column)), String::UL_TABLE); + if(i.has_next()) + sdata.APPEND_CONST("\t"); } } else { // nameless table - int lsize=table.size()?static_cast(table.get(0))->size():0; - if(lsize) + if(int lsize=table.size()?static_cast(table.get(0))->size():0) for(int column=0; column(table.quick_get(index)); - for(int column=0; columnsize(); column++) { - if(column) - sdata.APPEND_CONST("\t"); - sdata.append(*static_cast(row->quick_get(column)), + Array_iter i(table); + while(i.has_next()) { + Array_iter c(*static_cast(i.next())); + while(c.has_next()) { + sdata.append(*c.next_string(), //*static_cast(row->quick_get(column)), String::UL_TABLE); + if(c.has_next()) + sdata.APPEND_CONST("\t"); } sdata.APPEND_CONST("\n"); } @@ -326,8 +325,9 @@ static void _menu(Request& r, const Stri VTable& vtable=*static_cast(r.self); Table& table=vtable.table(); bool need_delim=false; - vtable.lock(); int saved_current=table.current(); - for(int row=0; row(r.self)->table(); - - r.write_no_lang(*new(pool) VBool(pool, table.size()==0)); -} - -/// used by table: _record / store_column_item_to_hash -struct Record_info { - Pool *pool; - Table *table; - Hash *hash; -}; -static void store_column_item_to_hash(Array::Item *item, void *info) { - Record_info& ri=*static_cast(info); - String& column_name=*static_cast(item); - Value *value; - if(const String *column_item=ri.table->item(column_name)) - value=new(*ri.pool) VString(*column_item); - else - value=new(*ri.pool) VVoid(*ri.pool); - ri.hash->put(column_name, value); -} -static void _record(Request& r, const String& method_name, MethodParams *) { - Table& table=static_cast(r.self)->table(); - if(const Array *columns=table.columns()) { - Pool& pool=r.pool(); - Value& result=*new(pool) VHash(pool); - Record_info record_info={&pool, &table, result.get_hash()}; - columns->for_each(store_column_item_to_hash, &record_info); - result.set_name(method_name); - r.write_no_lang(result); - } -} - -/// used by table: _hash / table_row_to_hash +#ifndef DOXYGEN struct Row_info { Table *table; int key_field; Array *value_fields; Hash *hash; }; +#endif static void table_row_to_hash(Array::Item *value, void *info) { Array& row=*static_cast(value); Row_info& ri=*static_cast(info); @@ -404,10 +370,11 @@ static void table_row_to_hash(Array::Ite } } static void _hash(Request& r, const String& method_name, MethodParams *params) { + Pool& pool=r.pool(); Table& table=static_cast(r.self)->table(); + Value& result=*new(pool) VHash(pool); if(const Array *columns=table.columns()) if(columns->size()>1) { - Pool& pool=r.pool(); const String& key_field_name=params->as_no_junction(0, "key field name must not be code").as_string(); @@ -430,15 +397,14 @@ static void _hash(Request& r, const Stri } // integers: key_field & value_fields - Value& result=*new(pool) VHash(pool); Row_info row_info={&table, key_field, &value_fields, result.get_hash()}; table.for_each(table_row_to_hash, &row_info); - result.set_name(method_name); - r.write_no_lang(result); } + result.set_name(method_name); + r.write_no_lang(result); } -/// used by table: _sort / sort_cmp_string|sort_cmp_double +#ifndef DOXYGEN struct Table_seq_item { Array *row; union { @@ -446,6 +412,7 @@ struct Table_seq_item { double d; } value; }; +#endif static int sort_cmp_string(const void *a, const void *b) { return strcmp( static_cast(a)->value.c_str, @@ -463,27 +430,27 @@ static int sort_cmp_double(const void *a return 0; } static void _sort(Request& r, const String& method_name, MethodParams *params) { + Pool& pool=r.pool(); Value& key_maker=params->as_junction(0, "key-maker must be code"); - bool reverse=params->size()==2/*..[asc|desc]*/? + bool reverse=params->size()==2/*..[desc|asc|]*/? reverse=params->as_no_junction(1, "order must not be code").as_string()=="desc": - false; - - Table& table=static_cast(r.self)->table(); + false; // default=asc - // anything to sort? - if(!table.size()) - return; + Table& old_table=static_cast(r.self)->table(); + Table& new_table=*new(pool) Table(pool, &method_name, old_table.columns()); - Table_seq_item *seq=(Table_seq_item *)malloc(sizeof(Table_seq_item)*table.size()); + Table_seq_item *seq=(Table_seq_item *)pool.malloc(sizeof(Table_seq_item)*old_table.size()); int i; // calculate key values bool key_values_are_strings=true; - for(i=0; i(r.self); - // disable ^a.menu{^a.append[]} - vtable.lock(); vtable.table()+=&row; - vtable.unlock(); } static void _join(Request& r, const String& method_name, MethodParams *params) { @@ -645,15 +610,19 @@ static void _sql(Request& r, const Strin Value& statement=params->as_junction(0, "statement must be code"); ulong limit=0; - if(params->size()>1) { - Value& limit_code=params->as_junction(1, "limit must be expression"); - limit=(uint)r.process(limit_code).as_double(); - } - ulong offset=0; - if(params->size()>2) { - Value& offset_code=params->as_junction(2, "offset must be expression"); - offset=(ulong)r.process(offset_code).as_double(); + if(params->size()>1) { + Value& voptions=params->as_no_junction(1, "options must be hash, not code"); + if(voptions.is_defined()) + if(Hash *options=voptions.get_hash()) { + if(Value *vlimit=(Value *)options->get(*sql_limit_name)) + limit=(ulong)r.process(*vlimit).as_double(); + if(Value *voffset=(Value *)options->get(*sql_offset_name)) + offset=(ulong)r.process(*voffset).as_double(); + } else + PTHROW(0, 0, + &method_name, + "options must be hash"); } Temp_lang temp_lang(r, String::UL_SQL); @@ -663,7 +632,7 @@ static void _sql(Request& r, const Strin Table_sql_event_handlers handlers(pool, method_name, statement_string, statement_cstr); bool need_rethrow=false; Exception rethrow_me; - PTRY { + PTRY { r.connection->query( statement_cstr, offset, limit, handlers); @@ -676,89 +645,13 @@ static void _sql(Request& r, const Strin PTHROW(rethrow_me.type(), rethrow_me.code(), &statement_string, // setting more specific source [were url] rethrow_me.comment()); - - if(!handlers.table) - PTHROW(0, 0, - &statement_string, - "no table result"); - - // replace any previous table value - static_cast(r.self)->set_table(*handlers.table); -} - -static void _dir(Request& r, const String& method_name, MethodParams *params) { - Pool& pool=r.pool(); - Value& relative_path=params->as_no_junction(0, "path must not be code"); - - const String *regexp; - pcre *regexp_code; - int ovecsize; - int *ovector; - if(params->size()>1) { - regexp=¶ms->as_no_junction(1, "regexp must not be code").as_string(); - - const char *pattern=regexp->cstr(String::UL_AS_IS); - const char *errptr; - int erroffset; - regexp_code=pcre_compile(pattern, PCRE_EXTRA | PCRE_DOTALL, - &errptr, &erroffset, - r.pcre_tables); - - if(!regexp_code) - PTHROW(0, 0, - ®exp->mid(erroffset, regexp->size()), - "regular expression syntax error - %s", errptr); - - ovector=(int *)malloc(sizeof(int)*(ovecsize=(1/*match*/)*3)); - } else - regexp_code=0; - - - const char* absolute_path_cstr=r.absolute(relative_path.as_string()) - .cstr(String::UL_FILE_NAME); - - Array& columns=*new(pool) Array(pool); - columns+=new(pool) String(pool, "name"); - Table& table=*new(pool) Table(pool, &method_name, &columns); - - LOAD_DIR(absolute_path_cstr, - size_t file_name_size=strlen(ffblk.ff_name); - bool suits=true; - if(regexp_code) { - int exec_result=pcre_exec(regexp_code, 0, - ffblk.ff_name, file_name_size, 0, - 0, ovector, ovecsize); - - if(exec_result==PCRE_ERROR_NOMATCH) - suits=false; - else if(exec_result<0) { - (*pcre_free)(regexp_code); - PTHROW(0, 0, - regexp, - "regular expression execute (%d)", - exec_result); - } - } - - if(suits) { - char *file_name_cstr=(char *)r.malloc(file_name_size); - memcpy(file_name_cstr, ffblk.ff_name, file_name_size); - String &file_name=*new(pool) String(pool); - file_name.APPEND(file_name_cstr, file_name_size, String::UL_FILE_NAME, - method_name.origin().file, method_name.origin().line); - - Array& row=*new(pool) Array(pool); - row+=&file_name; - table+=&row; - } - ); - - if(regexp_code) - (*pcre_free)(regexp_code); + Table *result= + handlers.table?handlers.table: // query resulted in table? return it + new(pool) Table(pool, &method_name, 0); // query returned no table, fake it // replace any previous table value - static_cast(r.self)->set_table(table); + static_cast(r.self)->set_table(*result); } static void _columns(Request& r, const String& method_name, MethodParams *) { @@ -770,10 +663,10 @@ static void _columns(Request& r, const S Table& source_table=static_cast(r.self)->table(); if(const Array *source_columns=source_table.columns()) { - int size=source_columns->quick_size(); - for(int i=0; iquick_get(i); + result_row+=i.next(); result_table+=&result_row; } } @@ -818,18 +711,12 @@ MTable::MTable(Pool& apool) : Methoded(a // ^table.menu{code}[delim] add_native_method("menu", Method::CT_DYNAMIC, _menu, 1, 2); - // ^table.empty[] - add_native_method("empty", Method::CT_DYNAMIC, _empty, 0, 0); - - // ^table.record[] - add_native_method("record", Method::CT_DYNAMIC, _record, 0, 0); - // ^table:hash[key field name] // ^table:hash[key field name][value field name;...] add_native_method("hash", Method::CT_DYNAMIC, _hash, 1, 1000); - // ^table.sort{string-key-maker} ^table.sort{string-key-maker}[asc|desc] - // ^table.sort(numeric-key-maker) ^table.sort(numeric-key-maker)[asc|desc] + // ^table.sort{string-key-maker} ^table.sort{string-key-maker}[desc|asc] + // ^table.sort(numeric-key-maker) ^table.sort(numeric-key-maker)[desc|asc] add_native_method("sort", Method::CT_DYNAMIC, _sort, 1, 2); // ^table.locate[field;value] @@ -845,12 +732,9 @@ MTable::MTable(Pool& apool) : Methoded(a add_native_method("join", Method::CT_DYNAMIC, _join, 1, 1); - // ^table:sql[query][(count[;offset])] - add_native_method("sql", Method::CT_DYNAMIC, _sql, 1, 3); - - // ^table:dir[path] - // ^table:dir[path][regexp] - add_native_method("dir", Method::CT_DYNAMIC, _dir, 1, 2); + // ^table:sql[query] + // ^table:sql[query][$.limit(1) $.offset(2)] + add_native_method("sql", Method::CT_DYNAMIC, _sql, 1, 2); // ^table:columns[] add_native_method("columns", Method::CT_DYNAMIC, _columns, 0, 0);