Annotation of parser3/src/classes/string.C, revision 1.18
1.1 paf 1: /*
1.4 paf 2: Parser
3: Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
1.5 paf 4: Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
1.4 paf 5:
1.18 ! paf 6: $Id: string.C,v 1.17 2001/03/29 17:11:39 paf Exp $
1.1 paf 7: */
8:
9: #include "pa_request.h"
10: #include "_string.h"
11: #include "pa_vdouble.h"
12: #include "pa_vint.h"
1.17 paf 13: #include "pa_vtable.h"
1.1 paf 14:
15: // global var
16:
1.10 paf 17: VStateless_class *string_class;
1.1 paf 18:
19: // methods
20:
1.7 paf 21: static void _length(Request& r, const String&, Array *) {
1.1 paf 22: Pool& pool=r.pool();
1.15 paf 23: Value& value=*new(pool) VDouble(pool, r.self->get_string()->size());
1.11 paf 24: r.write_no_lang(value);
1.1 paf 25: }
26:
1.7 paf 27: static void _int(Request& r, const String&, Array *) {
1.1 paf 28: Pool& pool=r.pool();
1.13 paf 29: Value& value=*new(pool) VInt(pool, (int)r.self->as_double());
1.11 paf 30: r.write_no_lang(value);
1.1 paf 31: }
32:
1.7 paf 33: static void _double(Request& r, const String&, Array *) {
1.1 paf 34: Pool& pool=r.pool();
1.13 paf 35: Value& value=*new(pool) VDouble(pool, r.self->as_double());
1.11 paf 36: r.write_no_lang(value);
1.1 paf 37: }
38:
1.18 ! paf 39: /*not static*/void _string_format(Request& r, const String& method_name, Array *params) {
1.9 paf 40: Pool& pool=r.pool();
41:
42: Value& fmt=*static_cast<Value *>(params->get(0));
1.17 paf 43: // forcing [this param type]
1.16 paf 44: r.fail_if_junction_(true, fmt, method_name, "fmt must not be junction");
1.9 paf 45:
1.13 paf 46: char *buf=format(pool, r.self->as_double(), fmt.as_string().cstr());
1.9 paf 47:
1.12 paf 48: r.write_no_lang(String(pool, buf));
1.9 paf 49: }
1.11 paf 50:
1.18 ! paf 51: static void _left(Request& r, const String&, Array *params) {
1.15 paf 52: Pool& pool=r.pool();
53:
54: size_t n=(size_t)r.process(*static_cast<Value *>(params->get(0))).as_double();
55:
56: const String& string=*static_cast<VString *>(r.self)->get_string();
57: r.write_assign_lang(*new(pool) VString(string.piece(0, n)));
58: }
59:
1.18 ! paf 60: static void _right(Request& r, const String&, Array *params) {
1.15 paf 61: Pool& pool=r.pool();
62:
63: size_t n=(size_t)r.process(*static_cast<Value *>(params->get(0))).as_double();
64:
65: const String& string=*static_cast<VString *>(r.self)->get_string();
66: r.write_assign_lang(*new(pool) VString(string.piece(string.size()-n, string.size())));
67: }
68:
1.18 ! paf 69: static void _mid(Request& r, const String&, Array *params) {
1.15 paf 70: Pool& pool=r.pool();
71:
72: size_t p=(size_t)r.process(*static_cast<Value *>(params->get(0))).as_double();
73: size_t n=(size_t)r.process(*static_cast<Value *>(params->get(1))).as_double();
74:
75: const String& string=*static_cast<VString *>(r.self)->get_string();
76: r.write_assign_lang(*new(pool) VString(string.piece(p, p+n)));
77: }
78:
1.18 ! paf 79: static void _pos(Request& r, const String& method_name, Array *params) {
1.16 paf 80: Pool& pool=r.pool();
81:
82: Value& substr=*static_cast<Value *>(params->get(0));
1.17 paf 83: // forcing [this param type]
1.16 paf 84: r.fail_if_junction_(true, substr, method_name, "substr must not be junction");
85:
86: const String& string=*static_cast<VString *>(r.self)->get_string();
87: r.write_assign_lang(*new(pool) VInt(pool, string.pos(substr.as_string())));
88: }
89:
1.18 ! paf 90: static void _lsplit(Request& r, const String& method_name, Array *params) {
1.17 paf 91: Pool& pool=r.pool();
92:
93: Value& delim_value=*static_cast<Value *>(params->get(0));
94: // forcing [this param type]
95: r.fail_if_junction_(true, delim_value, method_name, "delimiter must not be junction");
96: const String& delim=delim_value.as_string();
97:
98: const String& string=*static_cast<VString *>(r.self)->get_string();
99:
100: Table& result=*new(pool) Table(pool, &string, 0);
101:
1.18 ! paf 102: if(delim.size()) {
! 103: size_t pos_after=0;
! 104: int pos_before;
! 105: while((pos_before=string.pos(delim, pos_after))>=0) { // we have 'delim' in 'string'?
1.17 paf 106: Array& row=*new(pool) Array(pool, 1);
1.18 ! paf 107: result+=&(row+=&string.piece(pos_after, pos_before));
! 108: pos_after=pos_before+delim.size();
1.17 paf 109: }
1.18 ! paf 110: // last piece
1.17 paf 111: if(pos_after<string.size()) {
112: Array& row=*new(pool) Array(pool, 1);
113: result+=&(row+=&string.piece(pos_after, string.size()));
1.18 ! paf 114: }
! 115: } else { // empty delim
1.17 paf 116: Array& row=*new(pool) Array(pool, 1);
117: result+=&(row+=&string);
118: }
119:
120: r.write_no_lang(*new(pool) VTable(pool, &result));
121: }
122:
1.11 paf 123: // initialize
1.9 paf 124:
1.10 paf 125: void initialize_string_class(Pool& pool, VStateless_class& vclass) {
1.1 paf 126: // ^string.length[]
1.6 paf 127: vclass.add_native_method("length", _length, 0, 0);
128:
1.1 paf 129: // ^string.int[]
1.6 paf 130: vclass.add_native_method("int", _int, 0, 0);
131:
1.1 paf 132: // ^string.double[]
1.6 paf 133: vclass.add_native_method("double", _double, 0, 0);
1.9 paf 134:
135: // ^string.format[]
136: vclass.add_native_method("format", _string_format, 1, 1);
1.14 paf 137:
1.15 paf 138: // ^string.left(n)
139: vclass.add_native_method("left", _left, 1, 1);
140: // ^string.right(n)
141: vclass.add_native_method("right", _right, 1, 1);
142: // ^string.mid(p;n)
143: vclass.add_native_method("mid", _mid, 2, 2);
1.16 paf 144:
145: // ^string.pos[substr]
146: vclass.add_native_method("pos", _pos, 1, 1);
1.17 paf 147:
148: // ^string.lsplit[delim]
149: vclass.add_native_method("lsplit", _lsplit, 1, 1);
1.2 paf 150: }
1.1 paf 151:
E-mail:
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to string.C CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [parser3project] / parser3 / src / classes