|
|
| version 1.65, 2001/07/23 11:19:25 | version 1.69, 2001/08/02 09:58:33 |
|---|---|
| Line 124 static void _lsplit(Request& r, const St | Line 124 static void _lsplit(Request& r, const St |
| Table& table=*new(pool) Table(pool, &string, | Table& table=*new(pool) Table(pool, &string, |
| &columns, pieces.size()); | &columns, pieces.size()); |
| int size=pieces.quick_size(); | Array_iter i(pieces); |
| for(int i=0; i<size; i++) { | while(i.has_next()) { |
| Array& row=*new(pool) Array(pool); | Array& row=*new(pool) Array(pool); |
| row+=pieces.quick_get(i); | row+=i.next(); |
| table+=&row; | table+=&row; |
| } | } |
| r.write_no_lang(*new(pool) VTable(pool, &table)); | r.write_no_lang(*new(pool) VTable(pool, &table)); |
| Line 183 static void replace_action(Table& table, | Line 183 static void replace_action(Table& table, |
| vtable.set_name(*ai.origin); | vtable.set_name(*ai.origin); |
| Junction *junction=ai.replacement_code->get_junction(); | Junction *junction=ai.replacement_code->get_junction(); |
| junction->rcontext=/*must be some way to get to | Value *saved_match_var_value=junction->root->get_element(*match_var_name); |
| outside world junction->root=*/&vtable; | junction->root->put_element(*match_var_name, &vtable); |
| Value& replaced=ai.request->process(*ai.replacement_code, ai.origin, false); | Value& replaced=ai.request->process(*ai.replacement_code, ai.origin, false); |
| junction->root->put_element(*match_var_name, saved_match_var_value); | |
| /* | /* |
| ai.dest->APPEND_CONST("("); | ai.dest->APPEND_CONST("("); |
| Line 313 const String* sql_result_string(Request& | Line 314 const String* sql_result_string(Request& |
| Value& statement=params->as_junction(0, "statement must be code"); | Value& statement=params->as_junction(0, "statement must be code"); |
| ulong offset=(ulong)(params->size()>2?params->as_int(2, r):0); | |
| Temp_lang temp_lang(r, String::UL_SQL); | Temp_lang temp_lang(r, String::UL_SQL); |
| const String& statement_string=r.process(statement).as_string(); | const String& statement_string=r.process(statement).as_string(); |
| const char *statement_cstr= | const char *statement_cstr= |
| Line 323 const String* sql_result_string(Request& | Line 322 const String* sql_result_string(Request& |
| bool need_rethrow=false; Exception rethrow_me; | bool need_rethrow=false; Exception rethrow_me; |
| PTRY { | PTRY { |
| r.connection->query( | r.connection->query( |
| statement_cstr, offset, 0, | statement_cstr, 0, 0, |
| handlers); | handlers); |
| } | } |
| PCATCH(e) { // query problem | PCATCH(e) { // query problem |
| Line 346 static void _sql(Request& r, const Strin | Line 345 static void _sql(Request& r, const Strin |
| const String *string=sql_result_string(r, method_name, params); | const String *string=sql_result_string(r, method_name, params); |
| if(!string) { | if(!string) { |
| Value& default_code=params->as_junction(1, "default result must code"); | if(params->size()>1) { |
| Value& processed_code=r.process(default_code); | Value& default_code=params->as_junction(1, "default result must code"); |
| string=processed_code.get_string(); | Value& processed_code=r.process(default_code); |
| if(!string) | string=processed_code.get_string(); |
| string=empty_string; | if(!string) |
| string=empty_string; | |
| } else | |
| PTHROW(0, 0, | |
| &method_name, | |
| "produced no result, but no default specified"); | |
| } | } |
| VString& result=*new(pool) VString(*string); | VString& result=*new(pool) VString(*string); |
| result.set_name(method_name); | result.set_name(method_name); |
| Line 399 MString::MString(Pool& apool) : Methoded | Line 403 MString::MString(Pool& apool) : Methoded |
| // ^string.tolower[] | // ^string.tolower[] |
| add_native_method("lower", Method::CT_DYNAMIC, _lower, 0, 0); | add_native_method("lower", Method::CT_DYNAMIC, _lower, 0, 0); |
| // ^string:sql[query] | |
| // ^string:sql[query]{default} | // ^string:sql[query]{default} |
| // ^string:sql[query]{default}(offset) | add_native_method("sql", Method::CT_STATIC, _sql, 1, 2); |
| add_native_method("sql", Method::CT_STATIC, _sql, 2, 3); | |
| } | } |
| // global variable | // global variable |