Annotation of parser3/src/classes/string.C, revision 1.142.6.1

1.24      paf         1: /** @file
                      2:        Parser: @b string parser class.
                      3: 
1.142.6.1! paf         4:        Copyright (c) 2001-2005 ArtLebedev Group (http://www.artlebedev.com)
1.97      paf         5:        Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
1.113     paf         6: */
1.24      paf         7: 
1.142.6.1! paf         8: static const char * const IDENT_STRING_C="$Date: 2005/06/06 08:45:11 $";
1.1       paf         9: 
1.43      paf        10: #include "classes.h"
1.126     paf        11: #include "pa_vmethod_frame.h"
                     12: 
1.1       paf        13: #include "pa_request.h"
                     14: #include "pa_vdouble.h"
                     15: #include "pa_vint.h"
1.17      paf        16: #include "pa_vtable.h"
1.25      paf        17: #include "pa_vbool.h"
1.27      paf        18: #include "pa_string.h"
1.53      parser     19: #include "pa_sql_connection.h"
1.71      parser     20: #include "pa_dictionary.h"
1.119     paf        21: #include "pa_vmethod_frame.h"
1.1       paf        22: 
1.41      paf        23: // class
                     24: 
1.126     paf        25: class MString: public Methoded {
1.41      paf        26: public:
1.126     paf        27:        MString();
1.44      paf        28: public: // Methoded
1.53      parser     29:        bool used_directly() { return true; }
1.41      paf        30: };
1.1       paf        31: 
1.126     paf        32: // global variable
                     33: 
                     34: DECLARE_CLASS_VAR(string, new MString, 0);
                     35: 
                     36: // defines for statics
                     37: 
                     38: #define MATCH_VAR_NAME "match"
1.133     paf        39: #define TRIM_START_OPTION "start"
                     40: #define TRIM_BOTH_OPTION "both"
                     41: #define TRIM_END_OPTION "end"
1.126     paf        42: 
                     43: // statics
                     44: 
                     45: static const String match_var_name(MATCH_VAR_NAME);
                     46: 
1.1       paf        47: // methods
                     48: 
1.126     paf        49: static void _length(Request& r, MethodParams&) {
                     50:        double result=GET_SELF(r, VString).string().length();
                     51:        r.write_no_lang(*new VDouble(result));
1.1       paf        52: }
                     53: 
1.126     paf        54: static void _int(Request& r, MethodParams& params) {
                     55:        const String& self_string=GET_SELF(r, VString).string();
1.72      parser     56:        int converted;
1.126     paf        57:        Value* default_code=params.count()>0?&params.as_junction(0, "default must be int")
                     58:                :0; // (default)
1.84      parser     59:        try {
1.126     paf        60:                if(self_string.is_empty())
1.121     paf        61:                        throw Exception("parser.runtime",
1.126     paf        62:                                0,
1.121     paf        63:                                "parameter is empty string, error converting");
1.126     paf        64:                converted=self_string.as_int();
1.84      parser     65:        } catch(...) { // convert problem
1.126     paf        66:                if(default_code)
                     67:                        converted=r.process_to_value(*default_code).as_int();
1.84      parser     68:                else
1.126     paf        69:                        rethrow; // we have a problem when no default                   
1.72      parser     70:        }
1.126     paf        71:        r.write_no_lang(*new VInt(converted));
1.1       paf        72: }
                     73: 
1.126     paf        74: static void _double(Request& r, MethodParams& params) {
                     75:        const String& self_string=GET_SELF(r, VString).string();
1.72      parser     76:        double converted;
1.126     paf        77:        Value* default_code=params.count()>0?&params.as_junction(0, "default must be double")
                     78:                :0; // (default)
1.84      parser     79:        try {
1.126     paf        80:                if(self_string.is_empty())
1.121     paf        81:                        throw Exception("parser.runtime",
1.126     paf        82:                                0,
1.121     paf        83:                                "parameter is empty string, error converting");
1.126     paf        84:                converted=self_string.as_double();
1.84      parser     85:        } catch(...) { // convert problem
1.126     paf        86:                if(default_code)
                     87:                        converted=r.process_to_value(*default_code).as_double();
1.84      parser     88:                else
1.126     paf        89:                        rethrow; // we have a problem when no default
1.72      parser     90:        }
                     91: 
1.126     paf        92:        r.write_no_lang(*new VDouble(converted));
1.1       paf        93: }
                     94: 
1.126     paf        95: /*not static*/void _string_format(Request& r, MethodParams& params) {
1.9       paf        96: 
1.126     paf        97:        Value& fmt_maybe_code=params[0];
1.95      paf        98:        // for some time due to stupid {} in original design
1.99      paf        99:        const String& fmt=r.process_to_string(fmt_maybe_code);
1.9       paf       100: 
1.126     paf       101:        const char* buf=format(r.get_self().as_double(), fmt.cstrm());
1.63      parser    102: 
1.126     paf       103:        r.write_no_lang(String(buf));
1.9       paf       104: }
1.11      paf       105: 
1.126     paf       106: static void _left(Request& r, MethodParams& params) {
1.138     paf       107:        ssize_t sn=params.as_int(0, "n must be int", r);
                    108:        if(sn<0)
                    109:                throw Exception("parser.runtime",
                    110:                        0, 
                    111:                        "n(%d) must be >=0", sn);
                    112:        size_t n=(size_t)sn;
                    113: 
1.126     paf       114:        const String& string=GET_SELF(r, VString).string();
1.102     paf       115:        r.write_assign_lang(string.mid(0, n));
1.15      paf       116: }
                    117: 
1.126     paf       118: static void _right(Request& r, MethodParams& params) {
1.138     paf       119:        ssize_t sn=(size_t)params.as_int(0, "n must be int", r);
                    120:        if(sn<0)
                    121:                throw Exception("parser.runtime",
                    122:                        0, 
                    123:                        "n(%d) must be >=0", sn);
                    124:        size_t n=(size_t)sn;
                    125:        
1.15      paf       126:        
1.126     paf       127:        const String& string=GET_SELF(r, VString).string();
1.127     paf       128:        size_t length=string.length();
                    129:        r.write_assign_lang(n<length?string.mid(length-n, string.length()):string);
1.15      paf       130: }
                    131: 
1.126     paf       132: static void _mid(Request& r, MethodParams& params) {
                    133:        const String& string=GET_SELF(r, VString).string();
1.83      parser    134: 
1.138     paf       135:        ssize_t sbegin=params.as_int(0, "p must be int", r);
                    136:        if(sbegin<0)
                    137:                throw Exception("parser.runtime",
                    138:                        0, 
                    139:                        "p(%d) must be >=0", sbegin);
                    140:        size_t begin=(size_t)sbegin;
                    141: 
                    142:        size_t end;
                    143:        if(params.count()>1) {
                    144:                ssize_t sn=params.as_int(1, "n must be int", r);
                    145:                if(sn<0)
                    146:                        throw Exception("parser.runtime",
                    147:                                0, 
                    148:                                "n(%d) must be >=0", sn);
                    149:                end=begin+(size_t)sn;
                    150:        } else 
                    151:                end=string.length();
1.15      paf       152:        
1.138     paf       153:        r.write_assign_lang(string.mid(begin, end));
1.15      paf       154: }
                    155: 
1.126     paf       156: static void _pos(Request& r, MethodParams& params) {
                    157:        Value& substr=params.as_no_junction(0, "substr must not be code");
1.16      paf       158:        
1.126     paf       159:        const String& string=GET_SELF(r, VString).string();
                    160:        r.write_assign_lang(*new VInt((int)string.pos(substr.as_string())));
1.16      paf       161: }
                    162: 
1.128     paf       163: static void split_list(MethodParams& params, int paramIndex,
1.126     paf       164:                       const String& string, 
                    165:                       ArrayString& result) {
                    166:        Value& delim_value=params.as_no_junction(paramIndex, "delimiter must not be code");
1.23      paf       167: 
1.126     paf       168:        size_t pos_after=0;
                    169:        string.split(result, pos_after, delim_value.as_string());
1.19      paf       170: }
                    171: 
1.118     paf       172: #define SPLIT_LEFT 0x0001
                    173: #define SPLIT_RIGHT 0x0010
                    174: #define SPLIT_HORIZONTAL 0x0100
                    175: #define SPLIT_VERTICAL 0x1000
                    176: 
1.126     paf       177: static int split_options(const String* options) {
1.118     paf       178:     struct Split_option {
1.126     paf       179:                const char* keyL;
                    180:                const char* keyU;
1.118     paf       181:                int setBit;
                    182:                int checkBit;
                    183:     } split_option[]={
                    184:                {"l", "L", SPLIT_LEFT, SPLIT_RIGHT}, // 0xVHRL
                    185:                {"r", "R", SPLIT_RIGHT, SPLIT_LEFT},
                    186:                {"h", "H", SPLIT_HORIZONTAL, SPLIT_VERTICAL},
                    187:                {"v", "V", SPLIT_VERTICAL, SPLIT_HORIZONTAL},
1.130     paf       188:                {0, 0, 0, 0}
1.118     paf       189:     };
                    190: 
                    191:        int result=0;
1.126     paf       192:        if(options) {
1.118     paf       193:                for(Split_option *o=split_option; o->keyL; o++) 
1.126     paf       194:                        if(options->pos(o->keyL)!=STRING_NOT_FOUND 
                    195:                                || (o->keyU && options->pos(o->keyU)!=STRING_NOT_FOUND)) {
1.118     paf       196:                                if(result & o->checkBit)
                    197:                                        throw Exception("parser.runtime",
                    198:                                                options,
                    199:                                                "conflicting split options");
                    200:                                result |= o->setBit;
                    201:                        }
                    202:        }
                    203: 
                    204:        return result;
                    205: }
                    206: 
1.128     paf       207: static Table& split_vertical(ArrayString& pieces, bool right) {
1.126     paf       208:        Table::columns_type columns(new ArrayString);
                    209:        *columns+=new String("piece");
1.19      paf       210: 
1.126     paf       211:        Table& table=*new Table(columns, pieces.count());
1.118     paf       212:        if(right) { // right
1.126     paf       213:                for(int i=pieces.count(); --i>=0; ) {
                    214:                        Table::element_type row(new ArrayString);
                    215:                        *row+=pieces[i];
                    216:                        table+=row;
1.118     paf       217:                }
                    218:        } else { // left
1.126     paf       219:                Array_iterator<const String*> i(pieces);
1.118     paf       220:                while(i.has_next()) {
1.126     paf       221:                        Table::element_type row(new ArrayString);
                    222:                        *row+=i.next();
                    223:                        table+=row;
1.118     paf       224:                }
1.61      parser    225:        }
1.118     paf       226: 
1.126     paf       227:        return table;
1.19      paf       228: }
                    229: 
1.128     paf       230: static Table& split_horizontal(ArrayString& pieces, bool right) {
1.126     paf       231:        Table& table=*new Table(Table::columns_type(0) /* nameless */);
                    232:        Table::element_type row(new ArrayString(pieces.count()));
1.118     paf       233:        if(right) { // right
1.131     paf       234:                for(int i=pieces.count(); --i>=0; )
1.126     paf       235:                        *row+=pieces[i];
1.118     paf       236:        } else { // left
1.126     paf       237:                for(Array_iterator<const String*> i(pieces); i.has_next(); )
                    238:                        *row+=i.next();
1.118     paf       239:        }
1.126     paf       240:        table+=row;
1.118     paf       241: 
1.126     paf       242:        return table;
1.118     paf       243: }
                    244: 
1.126     paf       245: static void split_with_options(Request& r, MethodParams& params,
1.118     paf       246:                                                           int bits) {
1.126     paf       247:        const String& string=GET_SELF(r, VString).string();
1.19      paf       248: 
1.126     paf       249:        ArrayString pieces;
1.128     paf       250:        split_list(params, 0, string, pieces);
1.19      paf       251: 
1.118     paf       252:        if(!bits) {
1.126     paf       253:                const String* options=0;
                    254:                if(params.count()>1)
                    255:                        options=&params.as_string(1, "options must not be code");
                    256:                
1.118     paf       257:                bits=split_options(options);
                    258:        }
1.21      paf       259: 
1.118     paf       260:        bool right=(bits & SPLIT_RIGHT) != 0;
                    261:        bool horizontal=(bits & SPLIT_HORIZONTAL) !=0;
1.128     paf       262:        Table& table=horizontal?split_horizontal(pieces, right)
                    263:                :split_vertical(pieces, right);
1.17      paf       264: 
1.126     paf       265:        r.write_no_lang(*new VTable(&table));
1.118     paf       266: }
1.126     paf       267: static void _split(Request& r, MethodParams& params) {
                    268:        split_with_options(r, params, 0 /* maybe-determine from param #2 */);
1.118     paf       269: }
1.126     paf       270: static void _lsplit(Request& r, MethodParams& params) {
                    271:        split_with_options(r, params, SPLIT_LEFT);
1.118     paf       272: }
1.126     paf       273: static void _rsplit(Request& r, MethodParams& params) {
                    274:        split_with_options(r, params, SPLIT_RIGHT);
1.17      paf       275: }
                    276: 
1.126     paf       277: static void search_action(Table& table, Table::element_type row, int, int, int, int, void *) {
1.28      paf       278:        if(row)
                    279:                table+=row;
1.27      paf       280: }
                    281: 
1.74      parser    282: #ifndef DOXYGEN
1.27      paf       283: struct Replace_action_info {
1.126     paf       284:        Request* request;  
                    285:        const String* src;  String* dest;
                    286:        VTable* vtable;
                    287:        Value* replacement_code;
1.27      paf       288: };
1.74      parser    289: #endif
1.105     paf       290: /// @todo they can do $global[$result] there, getting pointer to later-invalid local var, kill this
1.126     paf       291: static void replace_action(Table& table, ArrayString* row, 
                    292:                           int prestart, int prefinish, 
                    293:                           int poststart, int postfinish,
                    294:                           void *info) {
1.27      paf       295:        Replace_action_info& ai=*static_cast<Replace_action_info *>(info);
1.31      paf       296:        if(row) { // begin&middle
1.104     paf       297:                // piece from last match['prestart'] to beginning of this match['prefinish']
                    298:                if(prestart!=prefinish)
                    299:                        *ai.dest << ai.src->mid(prestart, prefinish);//ai.dest->APPEND_CONST("-");
1.51      parser    300:                // store found parts in one-record VTable
1.126     paf       301:                if(table.count()) // middle
1.32      paf       302:                        table.put(0, row);
                    303:                else // begin
1.30      paf       304:                        table+=row;
                    305:                { // execute 'replacement_code' in 'table' context
1.105     paf       306:                        ai.vtable->set_table(table);
1.30      paf       307: 
1.105     paf       308:                        *ai.dest << ai.request->process_to_string(*ai.replacement_code);
1.29      paf       309:                }
                    310:        } else // end
1.104     paf       311:                *ai.dest << ai.src->mid(poststart, postfinish);
1.27      paf       312: }
                    313: 
1.50      parser    314: /// @todo use pcre:study somehow
1.126     paf       315: static void _match(Request& r, MethodParams& params) {
                    316:        Value& regexp=params.as_no_junction(0, "regexp must not be code");
                    317: 
                    318:        const String* options=
                    319:                params.count()>1?
                    320:                &params.as_no_junction(1, "options must not be code").as_string():0;
                    321: 
                    322:        Temp_lang temp_lang(r, String::L_PASS_APPENDED);
                    323:        const String& src=GET_SELF(r, VString).string();
                    324:        bool just_matched;
                    325:        if(params.count()<3) { // search
                    326:                Table* table=src.match(r.charsets.source(),
1.32      paf       327:                        regexp.as_string(), options,
1.64      parser    328:                        search_action, 0,
1.126     paf       329:                        just_matched);
                    330:                Value* result;
                    331:                if(table) 
                    332:                        result=new VTable(table); // table of pre/match/post+substrings
1.64      parser    333:                else 
1.126     paf       334:                        result=new VBool(just_matched);
1.102     paf       335:                r.write_assign_lang(*result);
1.27      paf       336:        } else { // replace
1.126     paf       337:                Value& replacement_code=params.as_junction(2, "replacement param must be code");
1.106     paf       338: 
1.126     paf       339:                String result;
                    340:                VTable* vtable=new VTable;
1.130     paf       341:                Replace_action_info info={
                    342:                        &r,
                    343:                        &src,
                    344:                        &result,
                    345:                        vtable,
                    346:                        &replacement_code
                    347:                };
1.105     paf       348:                Temp_value_element temp_match_var(
1.119     paf       349:                        *replacement_code.get_junction()->method_frame, 
1.126     paf       350:                        match_var_name, vtable);
                    351:                src.match(r.charsets.source(),
1.99      paf       352:                        r.process_to_string(regexp), options,
1.126     paf       353:                        replace_action, &info,
                    354:                        just_matched);
1.102     paf       355:                r.write_assign_lang(result);
1.27      paf       356:        }
1.24      paf       357: }
                    358: 
1.128     paf       359: static void change_case(Request& r, MethodParams&, 
1.49      parser    360:                                                String::Change_case_kind kind) {
1.126     paf       361:        const String& src=GET_SELF(r, VString).string();
1.49      parser    362: 
1.126     paf       363:        r.write_assign_lang(src.change_case(r.charsets.source(), kind));
1.49      parser    364: }
1.126     paf       365: static void _upper(Request& r, MethodParams& params) {
                    366:        change_case(r, params, String::CC_UPPER);
1.49      parser    367: }
1.126     paf       368: static void _lower(Request& r, MethodParams& params) {
                    369:        change_case(r, params, String::CC_LOWER);
1.49      parser    370: }
                    371: 
1.65      parser    372: #ifndef DOXYGEN
1.126     paf       373: class String_sql_event_handlers: public SQL_Driver_query_event_handlers {
                    374:        const String& statement_string; const char* statement_cstr;
                    375:        bool got_column;
1.65      parser    376: public:
1.126     paf       377:        bool got_cell;
                    378:        String& result;
                    379: public:
                    380:        String_sql_event_handlers(
                    381:                const String& astatement_string, const char* astatement_cstr):
                    382:                statement_string(astatement_string), statement_cstr(astatement_cstr),
                    383:                got_column(false),
                    384:                got_cell(false),
                    385:                result(*new String) {}
1.65      parser    386: 
1.128     paf       387:        bool add_column(SQL_Error& error, const char* /*str*/, size_t /*length*/) {
1.124     paf       388:                if(got_column) {
                    389:                        error=SQL_Error("parser.runtime",
1.126     paf       390:                                //statement_string,
1.65      parser    391:                                "result must contain exactly one column");
1.124     paf       392:                        return true;
                    393:                }
1.65      parser    394:                got_column=true;
1.124     paf       395:                return false;
1.65      parser    396:        }
1.124     paf       397:        bool before_rows(SQL_Error& /*error*/ ) { /* ignore */ return false; }
                    398:        bool add_row(SQL_Error& /*error*/) { /* ignore */ return false; }
1.126     paf       399:        bool add_row_cell(SQL_Error& error, const char* str, size_t length) {
1.124     paf       400:                if(got_cell) {
                    401:                        error=SQL_Error("parser.runtime",
1.126     paf       402:                                //statement_string,
1.65      parser    403:                                "result must not contain more then one row");
1.124     paf       404:                        return true;
                    405:                }
1.65      parser    406: 
1.124     paf       407:                try {
                    408:                        got_cell=true;
1.126     paf       409:                        result.append_know_length(str, length, String::L_TAINTED);
1.124     paf       410:                        return false;
                    411:                } catch(...) {
                    412:                        error=SQL_Error("exception occured in String_sql_event_handlers::add_row_cell");
                    413:                        return true;
                    414:                }
1.65      parser    415:        }
                    416: };
                    417: #endif
1.141     paf       418: extern String sql_bind_name;
1.126     paf       419: extern String sql_limit_name;
                    420: extern String sql_offset_name;
                    421: extern String sql_default_name;
                    422: extern String sql_distinct_name;
1.141     paf       423: extern int marshal_binds(HashStringValue& hash, SQL_Driver::Placeholder*& placeholders);
                    424: extern void unmarshal_bind_updates(HashStringValue& hash, int placeholder_count, SQL_Driver::Placeholder* placeholders);
                    425: 
1.126     paf       426: const String* sql_result_string(Request& r, MethodParams& params,
                    427:                                HashStringValue*& options, Value*& default_code) {
                    428:        Value& statement=params.as_junction(0, "statement must be code");
1.53      parser    429: 
1.141     paf       430:        HashStringValue* bind=0;
1.70      parser    431:        ulong limit=0;
                    432:        ulong offset=0;
1.81      parser    433:        default_code=0;
1.126     paf       434:        if(params.count()>1) {
                    435:                Value& voptions=params.as_no_junction(1, "options must be hash, not code");
1.115     paf       436:                if(!voptions.is_string())
1.130     paf       437:                        if((options=voptions.get_hash())) {
1.141     paf       438:                                int valid_options=0;
                    439:                                if(Value* vbind=options->get(sql_bind_name)) {
                    440:                                        valid_options++;
                    441:                                        bind=vbind->get_hash();
                    442:                                }
                    443:                                if(Value* vlimit=options->get(sql_limit_name)) {
                    444:                                        valid_options++;
1.99      paf       445:                                        limit=(ulong)r.process_to_value(*vlimit).as_double();
1.141     paf       446:                                }
                    447:                                if(Value* voffset=options->get(sql_offset_name)) {
                    448:                                        valid_options++;
1.99      paf       449:                                        offset=(ulong)r.process_to_value(*voffset).as_double();
1.141     paf       450:                                }
1.130     paf       451:                                if((default_code=options->get(sql_default_name))) {
1.141     paf       452:                                        valid_options++;
1.130     paf       453:                                        if(!default_code->get_junction())
1.98      paf       454:                                                throw Exception("parser.runtime",
1.126     paf       455:                                                        0,
1.81      parser    456:                                                        "default option must be code");
                    457:                                }
1.141     paf       458:                                if(valid_options!=options->count())
                    459:                                        throw Exception("parser.runtime",
                    460:                                                0,
                    461:                                                "called with invalid option");
1.73      parser    462:                        } else
1.98      paf       463:                                throw Exception("parser.runtime",
1.126     paf       464:                                        0,
1.73      parser    465:                                        "options must be hash");
1.70      parser    466:        } else
                    467:                options=0;
                    468: 
1.141     paf       469:        SQL_Driver::Placeholder* placeholders=0;
                    470:        uint placeholders_count=0;
                    471:        if(bind)
                    472:                placeholders_count=marshal_binds(*bind, placeholders);
                    473: 
1.126     paf       474:        Temp_lang temp_lang(r, String::L_SQL);
1.99      paf       475:        const String& statement_string=r.process_to_string(statement);
1.126     paf       476:        const char* statement_cstr=
                    477:                statement_string.cstr(String::L_UNSPECIFIED, r.connection());
                    478:        String_sql_event_handlers handlers(statement_string, statement_cstr);
                    479:        r.connection()->query(
1.140     paf       480:                statement_cstr, 
1.142     paf       481:                placeholders_count, placeholders,
1.140     paf       482:                offset, limit, 
1.117     paf       483:                handlers,
                    484:                statement_string);
1.53      parser    485:        
1.141     paf       486:        if(bind)
                    487:                unmarshal_bind_updates(*bind, placeholders_count, placeholders);
                    488: 
1.65      parser    489:        if(!handlers.got_cell)
                    490:                return 0; // no lines, caller should return second param[default value]
1.62      parser    491: 
1.126     paf       492:        return &handlers.result;
1.53      parser    493: }
                    494: 
1.126     paf       495: static void _sql(Request& r, MethodParams& params) {
1.53      parser    496: 
1.126     paf       497:        HashStringValue* options;
                    498:        Value* default_code;
                    499:        const String* string=sql_result_string(r, params, options, default_code);
1.62      parser    500:        if(!string) {
1.81      parser    501:                if(default_code) {
1.99      paf       502:                        string=&r.process_to_string(*default_code);
1.68      parser    503:                } else
1.98      paf       504:                        throw Exception("parser.runtime",
1.126     paf       505:                                0,
1.81      parser    506:                                "produced no result, but no default option specified");
1.62      parser    507:        }
1.100     paf       508: 
1.102     paf       509:        r.write_assign_lang(*string);
1.53      parser    510: }
                    511: 
1.126     paf       512: static void _replace(Request& r, MethodParams& params) {
                    513:        const String& src=GET_SELF(r, VString).string();
1.71      parser    514: 
1.126     paf       515:        Table* table=params.as_no_junction(0, "parameter must not be code").get_table();
1.71      parser    516:        if(!table)
1.98      paf       517:                throw Exception("parser.runtime",
1.126     paf       518:                        0,
1.71      parser    519:                        "parameter must be table");
                    520: 
                    521:        Dictionary dict(*table);
1.126     paf       522:        r.write_assign_lang(src.replace(dict));
1.71      parser    523: }
1.79      parser    524: 
1.126     paf       525: static void _save(Request& r, MethodParams& params) {
                    526:        const String& file_name=params.as_string(params.count()-1, 
1.87      paf       527:                "file name must be string");
1.79      parser    528: 
1.126     paf       529:        const String& src=GET_SELF(r, VString).string();
1.79      parser    530: 
1.87      paf       531:        bool do_append=false;
1.126     paf       532:        if(params.count()>1) {
                    533:                const String& mode=params.as_string(0, "mode must be string");
1.87      paf       534:                if(mode=="append")
                    535:                        do_append=true;
                    536:                else
1.98      paf       537:                        throw Exception("parser.runtime",
1.87      paf       538:                                &mode,
                    539:                                "unknown mode, must be 'append'");
                    540:        }               
                    541: 
1.79      parser    542:        // write
1.126     paf       543:        const char* buf=src.cstr(String::L_UNSPECIFIED, r.connection(false/*no error if none*/));
1.94      paf       544:        file_write(r.absolute(file_name), 
1.89      paf       545:                buf, strlen(buf), true, do_append);
1.79      parser    546: }
                    547: 
1.126     paf       548: static void _normalize(Request& r, MethodParams&) {
                    549:        const String& src=GET_SELF(r, VString).string();
                    550: 
                    551:        r.write_assign_lang(src);
1.109     paf       552: }
                    553: 
1.133     paf       554: static void _trim(Request& r, MethodParams& params) {
                    555:        const String& src=GET_SELF(r, VString).string();
                    556: 
                    557:        String::Trim_kind kind=String::TRIM_BOTH;
                    558:        const char* chars=0;
                    559:        if(params.count()>0) {
1.135     paf       560:                const String& skind=params.as_string(0, 
                    561:                        "'where' must be string");
1.137     paf       562:                if(skind.length())
                    563:                        if(skind==TRIM_START_OPTION)
                    564:                                kind=String::TRIM_START;
                    565:                        else if(skind==TRIM_END_OPTION)
                    566:                                kind=String::TRIM_END;
                    567:                        else if(skind==TRIM_BOTH_OPTION)
                    568:                                kind=String::TRIM_BOTH;
                    569:                        else
                    570:                                throw Exception("parser.runtime",
                    571:                                        &skind,
                    572:                                        "'kind' must be one of "TRIM_START_OPTION", "TRIM_BOTH_OPTION", "TRIM_END_OPTION);
1.133     paf       573: 
1.136     paf       574:                if(params.count()>1) {
                    575:                        const String& schars=params.as_string(1, "'chars' must be string");
1.137     paf       576:                        if(schars.length())
                    577:                                chars=schars.cstr();
1.136     paf       578:                }
1.133     paf       579:        }
                    580: 
                    581:        r.write_assign_lang(src.trim(kind, chars));
                    582: }
                    583: 
1.139     paf       584: static void _append(Request& r, MethodParams& params) {
                    585:        // c=a+b
                    586:        VString& va=GET_SELF(r, VString);
                    587:        const String& a=va.string();
                    588:        const String& b=params.as_string(0, "parameter must be string");
                    589:        String& c=*new String(a);
                    590:        c.append(b, String::L_PASS_APPENDED);
                    591:        va.set_string(c);
                    592: }
                    593: 
1.41      paf       594: // constructor
                    595: 
1.126     paf       596: MString::MString(): Methoded("string") {
1.1       paf       597:        // ^string.length[]
1.41      paf       598:        add_native_method("length", Method::CT_DYNAMIC, _length, 0, 0);
1.6       paf       599:        
1.1       paf       600:        // ^string.int[]
1.72      parser    601:        // ^string.int(default)
                    602:        add_native_method("int", Method::CT_DYNAMIC, _int, 0, 1);
1.1       paf       603:        // ^string.double[]
1.72      parser    604:        // ^string.double(default)
                    605:        add_native_method("double", Method::CT_DYNAMIC, _double, 0, 1);
1.9       paf       606: 
1.24      paf       607:        // ^string.format{format}
1.41      paf       608:        add_native_method("format", Method::CT_DYNAMIC, _string_format, 1, 1);
1.14      paf       609: 
1.15      paf       610:        // ^string.left(n)
1.41      paf       611:        add_native_method("left", Method::CT_DYNAMIC, _left, 1, 1);
1.15      paf       612:        // ^string.right(n)
1.41      paf       613:        add_native_method("right", Method::CT_DYNAMIC, _right, 1, 1);
1.15      paf       614:        // ^string.mid(p;n)
1.82      parser    615:        add_native_method("mid", Method::CT_DYNAMIC, _mid, 1, 2);
1.16      paf       616: 
                    617:        // ^string.pos[substr]
1.41      paf       618:        add_native_method("pos", Method::CT_DYNAMIC, _pos, 1, 1);
1.17      paf       619: 
1.118     paf       620:        // ^string.split[delim]
                    621:        // ^string.split[delim][options]
                    622:        add_native_method("split", Method::CT_DYNAMIC, _split, 1, 2);
                    623:                // old names for backward compatibility
                    624:                // ^string.lsplit[delim]
                    625:                add_native_method("lsplit", Method::CT_DYNAMIC, _lsplit, 1, 1);
                    626:                // ^string.rsplit[delim]
                    627:                add_native_method("rsplit", Method::CT_DYNAMIC, _rsplit, 1, 1);
                    628:        
1.32      paf       629:        // ^string.match[regexp][options]
                    630:        // ^string.match[regexp][options]{replacement-code}
1.41      paf       631:        add_native_method("match", Method::CT_DYNAMIC, _match, 1, 3);
1.49      parser    632: 
                    633:        // ^string.toupper[]
                    634:        add_native_method("upper", Method::CT_DYNAMIC, _upper, 0, 0);
                    635:        // ^string.tolower[]
                    636:        add_native_method("lower", Method::CT_DYNAMIC, _lower, 0, 0);
1.53      parser    637: 
1.70      parser    638:        // ^sql[query]
1.141     paf       639:        // ^sql[query][options hash]
1.67      parser    640:        add_native_method("sql", Method::CT_STATIC, _sql, 1, 2);
1.71      parser    641: 
                    642:        // ^string.replace[table]
                    643:        add_native_method("replace", Method::CT_DYNAMIC, _replace, 1, 1);
1.79      parser    644: 
                    645:        // ^string.save[file]  
1.87      paf       646:        add_native_method("save", Method::CT_DYNAMIC, _save, 1, 2);
1.109     paf       647: 
1.112     paf       648:        // ^string.normalize[]  
                    649:        add_native_method("normalize", Method::CT_DYNAMIC, _normalize, 0, 0);
1.133     paf       650: 
                    651:        // ^string.trim[[start|both|end][;chars]]
                    652:        add_native_method("trim", Method::CT_DYNAMIC, _trim, 0, 2);
1.139     paf       653: 
                    654:        // ^string.append[string]
                    655:        add_native_method("append", Method::CT_DYNAMIC, _append, 1, 1);
1.2       paf       656: }      

E-mail: