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

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

E-mail: