|
|
| version 1.185, 2009/07/07 05:47:43 | version 1.192, 2010/04/05 00:57:01 |
|---|---|
| Line 20 static const char * const IDENT_STRING_C | Line 20 static const char * const IDENT_STRING_C |
| #include "pa_dictionary.h" | #include "pa_dictionary.h" |
| #include "pa_vmethod_frame.h" | #include "pa_vmethod_frame.h" |
| #include "pa_vregex.h" | #include "pa_vregex.h" |
| #include "pa_charsets.h" | |
| // class | // class |
| Line 41 DECLARE_CLASS_VAR(string, new MString, 0 | Line 42 DECLARE_CLASS_VAR(string, new MString, 0 |
| #define TRIM_END_OPTION "right" | #define TRIM_END_OPTION "right" |
| #define TRIM_BOTH_OPTION "both" | #define TRIM_BOTH_OPTION "both" |
| #define MODE_APPEND "append" | |
| // statics | // statics |
| static const String match_var_name(MATCH_VAR_NAME); | static const String match_var_name(MATCH_VAR_NAME); |
| Line 292 static void split_with_options(Request& | Line 295 static void split_with_options(Request& |
| if(!bits) { | if(!bits) { |
| const String* options=0; | const String* options=0; |
| if(params_count>1) | if(params_count>1) |
| options=¶ms.as_string(1, "options must not be code"); | options=¶ms.as_string(1, OPTIONS_MUST_NOT_BE_CODE); |
| bits=split_options(options); | bits=split_options(options); |
| } | } |
| Line 369 static void _match(Request& r, MethodPar | Line 372 static void _match(Request& r, MethodPar |
| size_t params_count=params.count(); | size_t params_count=params.count(); |
| Value& regexp=params.as_no_junction(0, "regexp must not be code"); | Value& regexp=params.as_no_junction(0, "regexp must not be code"); |
| Value* options=(params_count>1)?¶ms.as_no_junction(1, "options must not be code"):0; | Value* options=(params_count>1)?¶ms.as_no_junction(1, OPTIONS_MUST_NOT_BE_CODE):0; |
| VRegex* vregex; | VRegex* vregex; |
| VRegexCleaner vrcleaner; | VRegexCleaner vrcleaner; |
| if(Value* value=regexp.as(VREGEX_TYPE, false)){ | if(Value* value=regexp.as(VREGEX_TYPE)){ |
| if(options && options->is_defined()) | if(options && options->is_defined()) |
| throw Exception(PARSER_RUNTIME, | throw Exception(PARSER_RUNTIME, |
| 0, | 0, |
| Line 421 static void _match(Request& r, MethodPar | Line 424 static void _match(Request& r, MethodPar |
| 0, | 0, |
| "replacement option should be junction or string"); | "replacement option should be junction or string"); |
| Value* default_code=(params_count==4)?¶ms.as_junction(3, "default value must be code"):0; | |
| String result; | String result; |
| VTable* vtable=new VTable; | VTable* vtable=new VTable; |
| Replace_action_info info={ | Replace_action_info info={ |
| Line 431 static void _match(Request& r, MethodPar | Line 436 static void _match(Request& r, MethodPar |
| replacement_code | replacement_code |
| }; | }; |
| Temp_value_element* temp_match_var=0; | if(is_junction){ |
| Temp_value_element temp( *replacement_code->get_junction()->method_frame, match_var_name, vtable); | |
| if(is_junction) | src.match(vregex, replace_action, &info, matches_count); |
| temp_match_var=new Temp_value_element( | } else { |
| *replacement_code->get_junction()->method_frame, | src.match(vregex, replace_action, &info, matches_count); |
| match_var_name, vtable); | } |
| src.match(vregex, | |
| replace_action, &info, | |
| matches_count); | |
| if(temp_match_var) | |
| delete temp_match_var; | |
| r.write_assign_lang(result); | if(!matches_count && default_code) |
| r.process_write(*default_code); | |
| else | |
| r.write_assign_lang(result); | |
| } | } |
| } | } |
| Line 613 static void _replace(Request& r, MethodP | Line 614 static void _replace(Request& r, MethodP |
| } | } |
| static void _save(Request& r, MethodParams& params) { | static void _save(Request& r, MethodParams& params) { |
| size_t params_count=params.count(); | bool do_append=false; |
| const String& file_name=params.as_string(params_count-1, FILE_NAME_MUST_BE_STRING); | Charset* asked_charset=0; |
| size_t file_name_index=0; | |
| if(params.count()>1) | |
| if(HashStringValue* options=params.as_no_junction(1, "second parameter should be string or hash").get_hash()){ | |
| int valid_options=0; | |
| if(Value* vcharset_name=options->get(PA_CHARSET_NAME)){ | |
| asked_charset=&::charsets.get(vcharset_name->as_string().change_case(r.charsets.source(), String::CC_UPPER)); | |
| valid_options++; | |
| } | |
| if(Value* vappend=options->get(MODE_APPEND)){ | |
| do_append=vappend->as_bool(); | |
| valid_options++; | |
| } | |
| if(valid_options != options->count()) | |
| throw Exception(PARSER_RUNTIME, | |
| 0, | |
| INVALID_OPTION_PASSED); | |
| } else { | |
| const String& mode=params.as_string(0, "mode must be string"); | |
| if(mode==MODE_APPEND){ | |
| do_append=true; | |
| file_name_index++; | |
| } else | |
| throw Exception(PARSER_RUNTIME, | |
| &mode, | |
| "unknown mode, must be 'append'"); | |
| } | |
| const String& file_name=params.as_string(file_name_index, FILE_NAME_MUST_BE_STRING); | |
| const String& src=GET_SELF(r, VString).string(); | const String& src=GET_SELF(r, VString).string(); |
| bool do_append=false; | String::Body sbody=src.cstr_to_string_body_untaint(String::L_AS_IS, r.connection(false/*no error if none*/)); |
| if(params_count>1) { | |
| const String& mode=params.as_string(0, "mode must be string"); | |
| if(mode=="append") | |
| do_append=true; | |
| else | |
| throw Exception(PARSER_RUNTIME, | |
| &mode, | |
| "unknown mode, must be 'append'"); | |
| } | |
| // write | // write |
| String::Body sbody=src.cstr_to_string_body_untaint(String::L_AS_IS, r.connection(false/*no error if none*/)); | file_write(r.charsets, r.absolute(file_name), sbody.cstr(), sbody.length(), true, do_append, asked_charset); |
| file_write(r.absolute(file_name), sbody.cstr(), sbody.length(), true, do_append); | |
| } | } |
| static void _normalize(Request& r, MethodParams&) { | static void _normalize(Request& r, MethodParams&) { |
| Line 760 MString::MString(): Methoded("string") { | Line 779 MString::MString(): Methoded("string") { |
| // ^string.match[regexp][options] | // ^string.match[regexp][options] |
| // ^string.match[regexp][options]{replacement-code} | // ^string.match[regexp][options]{replacement-code} |
| add_native_method("match", Method::CT_DYNAMIC, _match, 1, 3); | // ^string.match[regexp][options]{replacement-code}{code-if-nothing-is-found} |
| add_native_method("match", Method::CT_DYNAMIC, _match, 1, 4); | |
| // ^string.upper[] | // ^string.upper[] |
| add_native_method("upper", Method::CT_DYNAMIC, _upper, 0, 0); | add_native_method("upper", Method::CT_DYNAMIC, _upper, 0, 0); |
| // ^string.lower[] | // ^string.lower[] |
| add_native_method("lower", Method::CT_DYNAMIC, _lower, 0, 0); | add_native_method("lower", Method::CT_DYNAMIC, _lower, 0, 0); |
| // ^sql[query] | // ^string:sql{query} |
| // ^sql[query][options hash] | // ^string:sql{query}[options hash] |
| add_native_method("sql", Method::CT_STATIC, _sql, 1, 2); | add_native_method("sql", Method::CT_STATIC, _sql, 1, 2); |
| // ^string.replace[table] | // ^string.replace[table] |
| add_native_method("replace", Method::CT_DYNAMIC, _replace, 1, 1); | add_native_method("replace", Method::CT_DYNAMIC, _replace, 1, 1); |
| // ^string.save[file] | // ^string.save[append][file] |
| // ^string.save[file] | |
| // ^string.save[file][$.append(true) $.charset[...]] | |
| add_native_method("save", Method::CT_DYNAMIC, _save, 1, 2); | add_native_method("save", Method::CT_DYNAMIC, _save, 1, 2); |
| // ^string.normalize[] | // ^string.normalize[] |
| Line 791 MString::MString(): Methoded("string") { | Line 813 MString::MString(): Methoded("string") { |
| add_native_method("base64", Method::CT_ANY, _base64, 0, 1); | add_native_method("base64", Method::CT_ANY, _base64, 0, 1); |
| // ^string.js-escape[] | // ^string.js-escape[] |
| // ^string:js-unescape[escaped%uXXXXstring] | |
| add_native_method("js-escape", Method::CT_ANY, _escape, 0, 0); | add_native_method("js-escape", Method::CT_ANY, _escape, 0, 0); |
| // ^string:js-unescape[escaped%uXXXXstring] | |
| add_native_method("js-unescape", Method::CT_STATIC, _unescape, 1, 1); | add_native_method("js-unescape", Method::CT_STATIC, _unescape, 1, 1); |
| } | } |