|
|
| version 1.147, 2005/11/22 11:21:35 | version 1.166, 2008/07/18 09:12:17 |
|---|---|
| Line 36 DECLARE_CLASS_VAR(string, new MString, 0 | Line 36 DECLARE_CLASS_VAR(string, new MString, 0 |
| // defines for statics | // defines for statics |
| #define MATCH_VAR_NAME "match" | #define MATCH_VAR_NAME "match" |
| #define TRIM_START_OPTION "start" | #define TRIM_START_OPTION "left" |
| #define TRIM_END_OPTION "right" | |
| #define TRIM_BOTH_OPTION "both" | #define TRIM_BOTH_OPTION "both" |
| #define TRIM_END_OPTION "end" | |
| // statics | // statics |
| Line 47 static const String match_var_name(MATCH | Line 47 static const String match_var_name(MATCH |
| // methods | // methods |
| static void _length(Request& r, MethodParams&) { | static void _length(Request& r, MethodParams&) { |
| double result=GET_SELF(r, VString).string().length(); | double result=GET_SELF(r, VString).string().length(r.charsets.source()); |
| r.write_no_lang(*new VDouble(result)); | r.write_no_lang(*new VDouble(result)); |
| } | } |
| Line 56 static void _int(Request& r, MethodParam | Line 56 static void _int(Request& r, MethodParam |
| int converted; | int converted; |
| try { | try { |
| if(self_string.is_empty()) | if(self_string.is_empty()) |
| throw Exception("parser.runtime", | throw Exception(PARSER_RUNTIME, |
| 0, | 0, |
| "parameter is empty string, error converting"); | "parameter is empty string, error converting"); |
| converted=self_string.as_int(); | converted=self_string.as_int(); |
| Line 74 static void _double(Request& r, MethodPa | Line 74 static void _double(Request& r, MethodPa |
| double converted; | double converted; |
| try { | try { |
| if(self_string.is_empty()) | if(self_string.is_empty()) |
| throw Exception("parser.runtime", | throw Exception(PARSER_RUNTIME, |
| 0, | 0, |
| "parameter is empty string, error converting"); | "parameter is empty string, error converting"); |
| converted=self_string.as_double(); | converted=self_string.as_double(); |
| Line 88 static void _double(Request& r, MethodPa | Line 88 static void _double(Request& r, MethodPa |
| r.write_no_lang(*new VDouble(converted)); | r.write_no_lang(*new VDouble(converted)); |
| } | } |
| static void _bool(Request& r, MethodParams& params) { | |
| const String& self_string=GET_SELF(r, VString).string(); | |
| bool converted; | |
| try { | |
| if(self_string.is_empty()) | |
| throw Exception(PARSER_RUNTIME, | |
| 0, | |
| "parameter is empty string, error converting"); | |
| try { | |
| converted=self_string.as_bool(); | |
| } catch(...) { | |
| const String& lower_string=self_string.change_case(r.charsets.source(), String::CC_LOWER); | |
| if(lower_string == "true"){ | |
| converted=true; | |
| } else if (lower_string == "false"){ | |
| converted=false; | |
| } else { | |
| rethrow; | |
| } | |
| } | |
| } catch(...) { // convert problem | |
| if(params.count()>0) | |
| converted=params.as_bool(0, "default must be bool", r); // (default) | |
| else | |
| rethrow; // we have a problem when no default | |
| } | |
| r.write_no_lang(*new VBool(converted)); | |
| } | |
| /*not static*/void _string_format(Request& r, MethodParams& params) { | /*not static*/void _string_format(Request& r, MethodParams& params) { |
| Value& fmt_maybe_code=params[0]; | Value& fmt_maybe_code=params[0]; |
| // for some time due to stupid {} in original design | // for some time due to stupid {} in original design |
| const String& fmt=r.process_to_string(fmt_maybe_code); | const String& fmt=r.process_to_string(fmt_maybe_code); |
| const char* buf=format(r.get_self().as_double(), fmt.cstrm()); | const char* buf=format(r.get_self().as_double(), fmt.trim().cstrm()); |
| r.write_no_lang(String(buf)); | r.write_no_lang(String(buf)); |
| } | } |
| Line 102 static void _double(Request& r, MethodPa | Line 133 static void _double(Request& r, MethodPa |
| static void _left(Request& r, MethodParams& params) { | static void _left(Request& r, MethodParams& params) { |
| ssize_t sn=params.as_int(0, "n must be int", r); | ssize_t sn=params.as_int(0, "n must be int", r); |
| if(sn<0) | if(sn<0) |
| throw Exception("parser.runtime", | throw Exception(PARSER_RUNTIME, |
| 0, | 0, |
| "n(%d) must be >=0", sn); | "n(%d) must be >=0", sn); |
| size_t n=(size_t)sn; | size_t n=(size_t)sn; |
| const String& string=GET_SELF(r, VString).string(); | const String& string=GET_SELF(r, VString).string(); |
| r.write_assign_lang(string.mid(0, n)); | r.write_assign_lang(string.mid(r.charsets.source(), 0, n)); |
| } | } |
| static void _right(Request& r, MethodParams& params) { | static void _right(Request& r, MethodParams& params) { |
| ssize_t sn=(size_t)params.as_int(0, "n must be int", r); | ssize_t sn=(size_t)params.as_int(0, "n must be int", r); |
| if(sn<0) | if(sn<0) |
| throw Exception("parser.runtime", | throw Exception(PARSER_RUNTIME, |
| 0, | 0, |
| "n(%d) must be >=0", sn); | "n(%d) must be >=0", sn); |
| size_t n=(size_t)sn; | size_t n=(size_t)sn; |
| const String& string=GET_SELF(r, VString).string(); | const String& string=GET_SELF(r, VString).string(); |
| size_t length=string.length(); | size_t length=string.length(r.charsets.source()); |
| r.write_assign_lang(n<length?string.mid(length-n, string.length()):string); | r.write_assign_lang(n<length?string.mid(r.charsets.source(), length-n, length, length):string); |
| } | } |
| static void _mid(Request& r, MethodParams& params) { | static void _mid(Request& r, MethodParams& params) { |
| Line 130 static void _mid(Request& r, MethodParam | Line 160 static void _mid(Request& r, MethodParam |
| ssize_t sbegin=params.as_int(0, "p must be int", r); | ssize_t sbegin=params.as_int(0, "p must be int", r); |
| if(sbegin<0) | if(sbegin<0) |
| throw Exception("parser.runtime", | throw Exception(PARSER_RUNTIME, |
| 0, | 0, |
| "p(%d) must be >=0", sbegin); | "p(%d) must be >=0", sbegin); |
| size_t begin=(size_t)sbegin; | size_t begin=(size_t)sbegin; |
| size_t end; | size_t end; |
| size_t length=0; | |
| if(params.count()>1) { | if(params.count()>1) { |
| ssize_t sn=params.as_int(1, "n must be int", r); | ssize_t sn=params.as_int(1, "n must be int", r); |
| if(sn<0) | if(sn<0) |
| throw Exception("parser.runtime", | throw Exception(PARSER_RUNTIME, |
| 0, | 0, |
| "n(%d) must be >=0", sn); | "n(%d) must be >=0", sn); |
| end=begin+(size_t)sn; | end=begin+(size_t)sn; |
| } else | } else { |
| end=string.length(); | length=string.length(r.charsets.source()); |
| end=length; | |
| r.write_assign_lang(string.mid(begin, end)); | } |
| r.write_assign_lang(string.mid(r.charsets.source(), begin, end, length)); | |
| } | } |
| static void _pos(Request& r, MethodParams& params) { | static void _pos(Request& r, MethodParams& params) { |
| Value& substr=params.as_no_junction(0, "substr must not be code"); | Value& substr=params.as_no_junction(0, "substr must not be code"); |
| const String& string=GET_SELF(r, VString).string(); | const String& string=GET_SELF(r, VString).string(); |
| r.write_assign_lang(*new VInt((int)string.pos(substr.as_string()))); | ssize_t offset=0; |
| if(params.count()>1){ | |
| offset=params.as_int(1, "n must be int", r); | |
| if(offset<0) | |
| throw Exception(PARSER_RUNTIME, | |
| 0, | |
| "n(%d) must be >=0", offset); | |
| } | |
| r.write_no_lang(*new VInt((int)string.pos(r.charsets.source(), substr.as_string(), (size_t)offset))); | |
| } | } |
| static void split_list(MethodParams& params, int paramIndex, | static void split_list(MethodParams& params, int paramIndex, |
| Line 190 static int split_options(const String* o | Line 232 static int split_options(const String* o |
| if(options->pos(o->keyL)!=STRING_NOT_FOUND | if(options->pos(o->keyL)!=STRING_NOT_FOUND |
| || (o->keyU && options->pos(o->keyU)!=STRING_NOT_FOUND)) { | || (o->keyU && options->pos(o->keyU)!=STRING_NOT_FOUND)) { |
| if(result & o->checkBit) | if(result & o->checkBit) |
| throw Exception("parser.runtime", | throw Exception(PARSER_RUNTIME, |
| options, | options, |
| "conflicting split options"); | "conflicting split options"); |
| result |= o->setBit; | result |= o->setBit; |
| Line 200 static int split_options(const String* o | Line 242 static int split_options(const String* o |
| return result; | return result; |
| } | } |
| static Table& split_vertical(ArrayString& pieces, bool right) { | static Table& split_vertical(ArrayString& pieces, bool right, const String* column_name) { |
| Table::columns_type columns(new ArrayString); | Table::columns_type columns(new ArrayString); |
| *columns+=new String("piece"); | *columns+=column_name; |
| Table& table=*new Table(columns, pieces.count()); | Table& table=*new Table(columns, pieces.count()); |
| if(right) { // right | if(right) { // right |
| Line 255 static void split_with_options(Request& | Line 297 static void split_with_options(Request& |
| bool right=(bits & SPLIT_RIGHT) != 0; | bool right=(bits & SPLIT_RIGHT) != 0; |
| bool horizontal=(bits & SPLIT_HORIZONTAL) !=0; | bool horizontal=(bits & SPLIT_HORIZONTAL) !=0; |
| Table& table=horizontal?split_horizontal(pieces, right) | |
| :split_vertical(pieces, right); | const String* column_name=0; |
| if(params.count()>2){ | |
| column_name=¶ms.as_string(2, COLUMN_NAME_MUST_BE_STRING); | |
| if (horizontal && column_name->length()) | |
| throw Exception(PARSER_RUNTIME, | |
| column_name, | |
| "column name can't be specified with horisontal split"); | |
| } | |
| if(!column_name || !column_name->length()) | |
| column_name=new String("piece"); | |
| Table& table=horizontal?split_horizontal(pieces, right):split_vertical(pieces, right, column_name); | |
| r.write_no_lang(*new VTable(&table)); | r.write_no_lang(*new VTable(&table)); |
| } | } |
| Line 317 static void _match(Request& r, MethodPar | Line 370 static void _match(Request& r, MethodPar |
| Temp_lang temp_lang(r, String::L_PASS_APPENDED); | Temp_lang temp_lang(r, String::L_PASS_APPENDED); |
| const String& src=GET_SELF(r, VString).string(); | const String& src=GET_SELF(r, VString).string(); |
| bool just_matched; | int matches_count=0; |
| if(params.count()<3) { // search | if(params.count()<3) { // search |
| Table* table=src.match(r.charsets.source(), | Table* table=src.match(r.charsets.source(), |
| regexp.as_string(), options, | regexp.as_string(), options, |
| search_action, 0, | search_action, 0, |
| just_matched); | matches_count); |
| Value* result; | // r.write_assign_lang(*new VTable(table)); |
| if(table) | if(table){ |
| result=new VTable(table); // table of pre/match/post+substrings | r.write_assign_lang(*new VTable(table)); |
| else | } else { |
| result=new VBool(just_matched); | r.write_assign_lang(*new VInt(matches_count)); |
| r.write_assign_lang(*result); | } |
| } else { // replace | } else { // replace |
| Value& replacement_code=params.as_junction(2, "replacement param must be code"); | Value& replacement_code=params.as_junction(2, "replacement param must be code"); |
| Line 347 static void _match(Request& r, MethodPar | Line 401 static void _match(Request& r, MethodPar |
| src.match(r.charsets.source(), | src.match(r.charsets.source(), |
| r.process_to_string(regexp), options, | r.process_to_string(regexp), options, |
| replace_action, &info, | replace_action, &info, |
| just_matched); | matches_count); |
| r.write_assign_lang(result); | r.write_assign_lang(result); |
| } | } |
| } | } |
| Line 382 public: | Line 436 public: |
| bool add_column(SQL_Error& error, const char* /*str*/, size_t /*length*/) { | bool add_column(SQL_Error& error, const char* /*str*/, size_t /*length*/) { |
| if(got_column) { | if(got_column) { |
| error=SQL_Error("parser.runtime", | error=SQL_Error(PARSER_RUNTIME, |
| //statement_string, | //statement_string, |
| "result must contain exactly one column"); | "result must contain exactly one column"); |
| return true; | return true; |
| Line 394 public: | Line 448 public: |
| bool add_row(SQL_Error& /*error*/) { /* ignore */ return false; } | bool add_row(SQL_Error& /*error*/) { /* ignore */ return false; } |
| bool add_row_cell(SQL_Error& error, const char* str, size_t length) { | bool add_row_cell(SQL_Error& error, const char* str, size_t length) { |
| if(got_cell) { | if(got_cell) { |
| error=SQL_Error("parser.runtime", | error=SQL_Error(PARSER_RUNTIME, |
| //statement_string, | //statement_string, |
| "result must not contain more then one row"); | "result must not contain more then one row"); |
| return true; | return true; |
| Line 424 const String* sql_result_string(Request& | Line 478 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"); |
| HashStringValue* bind=0; | HashStringValue* bind=0; |
| ulong limit=0; | ulong limit=SQL_NO_LIMIT; |
| ulong offset=0; | ulong offset=0; |
| default_code=0; | default_code=0; |
| if(params.count()>1) { | if(params.count()>1) { |
| Line 446 const String* sql_result_string(Request& | Line 500 const String* sql_result_string(Request& |
| } | } |
| if((default_code=options->get(sql_default_name))) { | if((default_code=options->get(sql_default_name))) { |
| valid_options++; | valid_options++; |
| if(!default_code->get_junction()) | |
| throw Exception("parser.runtime", | |
| 0, | |
| "default option must be code"); | |
| } | } |
| if(valid_options!=options->count()) | if(valid_options!=options->count()) |
| throw Exception("parser.runtime", | throw Exception(PARSER_RUNTIME, |
| 0, | 0, |
| "called with invalid option"); | "called with invalid option"); |
| } else | } else |
| throw Exception("parser.runtime", | throw Exception(PARSER_RUNTIME, |
| 0, | 0, |
| "options must be hash"); | "options must be hash"); |
| } else | } else |
| Line 472 const String* sql_result_string(Request& | Line 522 const String* sql_result_string(Request& |
| const char* statement_cstr= | const char* statement_cstr= |
| statement_string.cstr(String::L_UNSPECIFIED, r.connection()); | statement_string.cstr(String::L_UNSPECIFIED, r.connection()); |
| String_sql_event_handlers handlers(statement_string, statement_cstr); | String_sql_event_handlers handlers(statement_string, statement_cstr); |
| r.connection()->query( | r.connection()->query( |
| statement_cstr, | statement_cstr, |
| placeholders_count, placeholders, | placeholders_count, placeholders, |
| Line 497 static void _sql(Request& r, MethodParam | Line 548 static void _sql(Request& r, MethodParam |
| if(default_code) { | if(default_code) { |
| string=&r.process_to_string(*default_code); | string=&r.process_to_string(*default_code); |
| } else | } else |
| throw Exception("parser.runtime", | throw Exception(PARSER_RUNTIME, |
| 0, | 0, |
| "produced no result, but no default option specified"); | "produced no result, but no default option specified"); |
| } | } |
| Line 508 static void _sql(Request& r, MethodParam | Line 559 static void _sql(Request& r, MethodParam |
| static void _replace(Request& r, MethodParams& params) { | static void _replace(Request& r, MethodParams& params) { |
| const String& src=GET_SELF(r, VString).string(); | const String& src=GET_SELF(r, VString).string(); |
| Table* table=params.as_no_junction(0, "parameter must not be code").get_table(); | Table* table=params.as_no_junction(0, PARAM_MUST_NOT_BE_CODE).get_table(); |
| if(!table) | if(!table) |
| throw Exception("parser.runtime", | throw Exception(PARSER_RUNTIME, |
| 0, | 0, |
| "parameter must be table"); | "parameter must be table"); |
| Line 519 static void _replace(Request& r, MethodP | Line 570 static void _replace(Request& r, MethodP |
| } | } |
| static void _save(Request& r, MethodParams& params) { | static void _save(Request& r, MethodParams& params) { |
| const String& file_name=params.as_string(params.count()-1, | const String& file_name=params.as_string(params.count()-1, FILE_NAME_MUST_BE_STRING); |
| "file name must be string"); | |
| const String& src=GET_SELF(r, VString).string(); | const String& src=GET_SELF(r, VString).string(); |
| Line 530 static void _save(Request& r, MethodPara | Line 580 static void _save(Request& r, MethodPara |
| if(mode=="append") | if(mode=="append") |
| do_append=true; | do_append=true; |
| else | else |
| throw Exception("parser.runtime", | throw Exception(PARSER_RUNTIME, |
| &mode, | &mode, |
| "unknown mode, must be 'append'"); | "unknown mode, must be 'append'"); |
| } | } |
| Line 556 static void _trim(Request& r, MethodPara | Line 606 static void _trim(Request& r, MethodPara |
| const String& skind=params.as_string(0, | const String& skind=params.as_string(0, |
| "'where' must be string"); | "'where' must be string"); |
| if(skind.length()) | if(skind.length()) |
| if(skind==TRIM_START_OPTION) | if(skind==TRIM_BOTH_OPTION) |
| kind=String::TRIM_BOTH; | |
| else if(skind==TRIM_START_OPTION || skind=="start") | |
| kind=String::TRIM_START; | kind=String::TRIM_START; |
| else if(skind==TRIM_END_OPTION) | else if(skind==TRIM_END_OPTION || skind=="end") |
| kind=String::TRIM_END; | kind=String::TRIM_END; |
| else if(skind==TRIM_BOTH_OPTION) | |
| kind=String::TRIM_BOTH; | |
| else | else |
| throw Exception("parser.runtime", | throw Exception(PARSER_RUNTIME, |
| &skind, | &skind, |
| "'kind' must be one of "TRIM_START_OPTION", "TRIM_BOTH_OPTION", "TRIM_END_OPTION); | "'kind' must be one of "TRIM_START_OPTION", "TRIM_BOTH_OPTION", "TRIM_END_OPTION); |
| Line 581 static void _append(Request& r, MethodPa | Line 631 static void _append(Request& r, MethodPa |
| // c=a+b | // c=a+b |
| VString& va=GET_SELF(r, VString); | VString& va=GET_SELF(r, VString); |
| const String& a=va.string(); | const String& a=va.string(); |
| const String& b=params.as_string(0, "parameter must be string"); | const String& b=params.as_string(0, PARAMETER_MUST_BE_STRING); |
| String& c=*new String(a); | String& c=*new String(a); |
| c.append(b, String::L_PASS_APPENDED); | c.append(b, String::L_PASS_APPENDED); |
| va.set_string(c); | va.set_string(c); |
| Line 590 static void _append(Request& r, MethodPa | Line 640 static void _append(Request& r, MethodPa |
| static void _base64(Request& r, MethodParams& params) { | static void _base64(Request& r, MethodParams& params) { |
| if(params.count()) { | if(params.count()) { |
| // decode | // decode |
| const char* cstr=params.as_string(0, "parameter must be string").cstr(); | const char* cstr=params.as_string(0, PARAMETER_MUST_BE_STRING).cstr(); |
| void* decoded_cstr=0; | char* decoded_cstr=0; |
| size_t decoded_size=0; | size_t decoded_size=0; |
| pa_base64_decode(cstr, strlen(cstr), decoded_cstr, decoded_size); | pa_base64_decode(cstr, strlen(cstr), decoded_cstr, decoded_size); |
| if(decoded_cstr && decoded_size) | if(decoded_cstr && decoded_size) |
| r.write_assign_lang(*new String(static_cast<const char*>(decoded_cstr), decoded_size, true)); | r.write_assign_lang(*new String(decoded_cstr, decoded_size, true)); |
| } else { | } else { |
| // encode | // encode |
| VString& vself=GET_SELF(r, VString); | VString& self=GET_SELF(r, VString); |
| const char* cstr=vself.string().cstr(); | const char* cstr=self.string().cstr(); |
| const char* encoded=pa_base64_encode(cstr, strlen(cstr)); | const char* encoded=pa_base64_encode(cstr, strlen(cstr)); |
| r.write_assign_lang(*new String(encoded, 0, true/*once ?param=base64(something) was needed*/)); | r.write_assign_lang(*new String(encoded, 0, true/*once ?param=base64(something) was needed*/)); |
| } | } |
| Line 617 MString::MString(): Methoded("string") { | Line 667 MString::MString(): Methoded("string") { |
| // ^string.double[] | // ^string.double[] |
| // ^string.double(default) | // ^string.double(default) |
| add_native_method("double", Method::CT_DYNAMIC, _double, 0, 1); | add_native_method("double", Method::CT_DYNAMIC, _double, 0, 1); |
| // ^void.bool[] | |
| // ^void.bool(default) | |
| add_native_method("bool", Method::CT_DYNAMIC, _bool, 0, 1); | |
| // ^string.format{format} | // ^string.format[format] |
| add_native_method("format", Method::CT_DYNAMIC, _string_format, 1, 1); | add_native_method("format", Method::CT_DYNAMIC, _string_format, 1, 1); |
| // ^string.left(n) | // ^string.left(n) |
| add_native_method("left", Method::CT_DYNAMIC, _left, 1, 1); | add_native_method("left", Method::CT_DYNAMIC, _left, 1, 1); |
| // ^string.right(n) | // ^string.right(n) |
| add_native_method("right", Method::CT_DYNAMIC, _right, 1, 1); | add_native_method("right", Method::CT_DYNAMIC, _right, 1, 1); |
| // ^string.mid(p) | |
| // ^string.mid(p;n) | // ^string.mid(p;n) |
| add_native_method("mid", Method::CT_DYNAMIC, _mid, 1, 2); | add_native_method("mid", Method::CT_DYNAMIC, _mid, 1, 2); |
| // ^string.pos[substr] | // ^string.pos[substr] |
| add_native_method("pos", Method::CT_DYNAMIC, _pos, 1, 1); | // ^string.pos[substr](n) |
| add_native_method("pos", Method::CT_DYNAMIC, _pos, 1, 2); | |
| // ^string.split[delim] | // ^string.split[delim] |
| // ^string.split[delim][options] | // ^string.split[delim][options] |
| add_native_method("split", Method::CT_DYNAMIC, _split, 1, 2); | // ^string.split[delim][options][column name] |
| add_native_method("split", Method::CT_DYNAMIC, _split, 1, 3); | |
| // old names for backward compatibility | // old names for backward compatibility |
| // ^string.lsplit[delim] | // ^string.lsplit[delim] |
| add_native_method("lsplit", Method::CT_DYNAMIC, _lsplit, 1, 1); | add_native_method("lsplit", Method::CT_DYNAMIC, _lsplit, 1, 1); |
| Line 644 MString::MString(): Methoded("string") { | Line 700 MString::MString(): Methoded("string") { |
| // ^string.match[regexp][options]{replacement-code} | // ^string.match[regexp][options]{replacement-code} |
| add_native_method("match", Method::CT_DYNAMIC, _match, 1, 3); | add_native_method("match", Method::CT_DYNAMIC, _match, 1, 3); |
| // ^string.toupper[] | // ^string.upper[] |
| add_native_method("upper", Method::CT_DYNAMIC, _upper, 0, 0); | add_native_method("upper", Method::CT_DYNAMIC, _upper, 0, 0); |
| // ^string.tolower[] | // ^string.lower[] |
| add_native_method("lower", Method::CT_DYNAMIC, _lower, 0, 0); | add_native_method("lower", Method::CT_DYNAMIC, _lower, 0, 0); |
| // ^sql[query] | // ^sql[query] |