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

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

E-mail: