|
|
| version 1.60, 2001/07/09 16:13:17 | version 1.63, 2001/07/18 10:06:04 |
|---|---|
| Line 59 static void _double(Request& r, const St | Line 59 static void _double(Request& r, const St |
| Temp_lang temp_lang(r, String::UL_PASS_APPENDED); | Temp_lang temp_lang(r, String::UL_PASS_APPENDED); |
| char *buf=format(pool, r.self->as_double(), r.process(fmt).as_string().cstr()); | char *buf=format(pool, r.self->as_double(), r.process(fmt).as_string().cstr()); |
| r.write_no_lang(String(pool, buf)); | String result(pool); |
| result.APPEND_CLEAN(buf, 0, | |
| method_name.origin().file, | |
| method_name.origin().line); | |
| r.write_no_lang(result); | |
| } | } |
| static void _left(Request& r, const String&, MethodParams *params) { | static void _left(Request& r, const String&, MethodParams *params) { |
| Line 112 static void _lsplit(Request& r, const St | Line 116 static void _lsplit(Request& r, const St |
| Pool& pool=r.pool(); | Pool& pool=r.pool(); |
| const String& string=*static_cast<VString *>(r.self)->get_string(); | const String& string=*static_cast<VString *>(r.self)->get_string(); |
| Array& row=*new(pool) Array(pool); | Array pieces(pool); |
| split_list(r, method_name, params, string, row); | split_list(r, method_name, params, string, pieces); |
| Table& table=*new(pool) Table(pool, &string, | Array& columns=*new(pool) Array(pool); |
| 0/*nameless*/, 1/*row preallocate(and only)*/); | columns+=new(pool) String(pool, "piece"); |
| table+=&row; | |
| Table& table=*new(pool) Table(pool, &string, | |
| &columns, pieces.size()); | |
| int size=pieces.quick_size(); | |
| for(int i=0; i<size; i++) { | |
| Array& row=*new(pool) Array(pool); | |
| row+=pieces.quick_get(i); | |
| table+=&row; | |
| } | |
| r.write_no_lang(*new(pool) VTable(pool, &table)); | r.write_no_lang(*new(pool) VTable(pool, &table)); |
| } | } |
| Line 126 static void _rsplit(Request& r, const St | Line 137 static void _rsplit(Request& r, const St |
| Pool& pool=r.pool(); | Pool& pool=r.pool(); |
| const String& string=*static_cast<VString *>(r.self)->get_string(); | const String& string=*static_cast<VString *>(r.self)->get_string(); |
| Array list(pool); | Array pieces(pool); |
| split_list(r, method_name, params, string, list); | split_list(r, method_name, params, string, pieces); |
| Array& row=*new(pool) Array(pool); | Array& columns=*new(pool) Array(pool); |
| for(int i=list.size(); --i>=0; ) | columns+=new(pool) String(pool, "piece"); |
| row+=list.get(i); | |
| Table& table=*new(pool) Table(pool, &string, | Table& table=*new(pool) Table(pool, &string, |
| 0/*nameless*/, 1/*row preallocate(and only)*/); | &columns, pieces.size()); |
| table+=&row; | for(int i=pieces.size(); --i>=0; ) { |
| Array& row=*new(pool) Array(pool); | |
| row+=pieces.get(i); | |
| table+=&row; | |
| } | |
| r.write_no_lang(*new(pool) VTable(pool, &table)); | r.write_no_lang(*new(pool) VTable(pool, &table)); |
| } | } |
| Line 247 static void _lower(Request& r, const Str | Line 261 static void _lower(Request& r, const Str |
| change_case(r, method_name, params, String::CC_LOWER); | change_case(r, method_name, params, String::CC_LOWER); |
| } | } |
| String& sql_result_string(Request& r, const String& method_name, MethodParams *params) { | const String* sql_result_string(Request& r, const String& method_name, MethodParams *params) { |
| Pool& pool=r.pool(); | Pool& pool=r.pool(); |
| if(!r.connection) | if(!r.connection) |
| Line 257 String& sql_result_string(Request& r, co | Line 271 String& sql_result_string(Request& r, co |
| Value& statement=params->as_junction(0, "statement must be code"); | Value& statement=params->as_junction(0, "statement must be code"); |
| ulong offset=0; | ulong offset=(ulong)(params->size()>2?params->as_int(2, r):0); |
| if(params->size()>1) { | |
| Value& offset_code=params->as_junction(1, "offset must be expression"); | |
| offset=(ulong)r.process(offset_code).as_double(); | |
| } | |
| 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(); |
| Line 290 String& sql_result_string(Request& r, co | Line 300 String& sql_result_string(Request& r, co |
| &statement_string, | &statement_string, |
| "result must contain exactly one column"); | "result must contain exactly one column"); |
| if(sql_row_count!=1) | if(!sql_row_count) |
| return 0; // no lines, should return second param[default value] | |
| if(sql_row_count>1) | |
| PTHROW(0, 0, | PTHROW(0, 0, |
| &statement_string, | &statement_string, |
| "result must contain exactly one row"); | "result must not contain more then one row"); |
| String& result=*new(pool) String(pool); | String *result=new(pool) String(pool); |
| SQL_Driver::Cell& cell=sql_rows[0][0]; | SQL_Driver::Cell& cell=sql_rows[0][0]; |
| result.APPEND_TAINTED( | result->APPEND_TAINTED( |
| (const char *)cell.ptr, cell.size, | (const char *)cell.ptr, cell.size, |
| statement_cstr, 0); | statement_cstr, 0); |
| Line 307 String& sql_result_string(Request& r, co | Line 320 String& sql_result_string(Request& r, co |
| static void _sql(Request& r, const String& method_name, MethodParams *params) { | static void _sql(Request& r, const String& method_name, MethodParams *params) { |
| Pool& pool=r.pool(); | Pool& pool=r.pool(); |
| VString& result=*new(pool) VString(sql_result_string(r, method_name, params)); | const String *string=sql_result_string(r, method_name, params); |
| if(!string) { | |
| Value& default_code=params->as_junction(1, "default result must code"); | |
| Value& processed_code=r.process(default_code); | |
| string=processed_code.get_string(); | |
| if(!string) | |
| string=empty_string; | |
| } | |
| VString& result=*new(pool) VString(*string); | |
| result.set_name(method_name); | result.set_name(method_name); |
| r.write_assign_lang(result); | r.write_assign_lang(result); |
| } | } |
| Line 354 MString::MString(Pool& apool) : Methoded | Line 375 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](offset) | // ^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 |