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

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

E-mail: