← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to plugin/pbms/src/cslib/CSString.cc

Added the PBMS daemon plugin.

(Augen zu und durch!)

Show diffs side-by-side

added added

removed removed

Lines of Context:
plugin/pbms/src/cslib/CSString.cc
 
1
/* Copyright (c) 2008 PrimeBase Technologies GmbH, Germany
 
2
 *
 
3
 * PrimeBase Media Stream for MySQL
 
4
 *
 
5
 * This program is free software; you can redistribute it and/or modify
 
6
 * it under the terms of the GNU General Public License as published by
 
7
 * the Free Software Foundation; either version 2 of the License, or
 
8
 * (at your option) any later version.
 
9
 *
 
10
 * This program is distributed in the hope that it will be useful,
 
11
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 
12
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
13
 * GNU General Public License for more details.
 
14
 *
 
15
 * You should have received a copy of the GNU General Public License
 
16
 * along with this program; if not, write to the Free Software
 
17
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 
18
 *
 
19
 * Original author: Paul McCullagh (H&G2JCtL)
 
20
 * Continued development: Barry Leslie
 
21
 *
 
22
 * 2007-06-15
 
23
 *
 
24
 * CORE SYSTEM STORAGE
 
25
 * Basic storage structures.
 
26
 *
 
27
 */
 
28
 
 
29
#include <inttypes.h>
 
30
#include "CSConfig.h"
 
31
 
 
32
#include <assert.h>
 
33
#include <string.h>
 
34
#include <ctype.h>
 
35
 
 
36
#include "CSGlobal.h"
 
37
#include "CSUTF8.h"
 
38
#include "CSStorage.h"
 
39
#include "CSMemory.h"
 
40
#include "CSString.h"
 
41
#include "CSStrUtil.h"
 
42
#include "CSGlobal.h"
 
43
 
 
44
 
 
45
/*
 
46
 * ---------------------------------------------------------------
 
47
 * Core System String Buffers
 
48
 */
 
49
 
 
50
CSStringBuffer_::CSStringBuffer_():
 
51
iBuffer(NULL),
 
52
iGrow(0),
 
53
iSize(0),
 
54
myStrLen(0)
 
55
{
 
56
        iGrow = 20;
 
57
}
 
58
 
 
59
CSStringBuffer_::CSStringBuffer_(u_int grow):
 
60
iBuffer(NULL),
 
61
iGrow(0),
 
62
iSize(0),
 
63
myStrLen(0)
 
64
{
 
65
        iGrow = grow;
 
66
}
 
67
 
 
68
CSStringBuffer_::~CSStringBuffer_()
 
69
{
 
70
        clear();
 
71
}
 
72
 
 
73
void CSStringBuffer_::clear()
 
74
{
 
75
        if (iBuffer)
 
76
                cs_free(iBuffer);
 
77
        iBuffer = NULL;
 
78
        iSize = 0;
 
79
        myStrLen = 0; 
 
80
}
 
81
 
 
82
void CSStringBuffer_::append(char ch)
 
83
{
 
84
        if (iSize == myStrLen) {
 
85
                cs_realloc((void **) &iBuffer, iSize + iGrow);
 
86
                iSize += iGrow;
 
87
        }
 
88
        iBuffer[myStrLen] = ch;
 
89
        myStrLen++;
 
90
}
 
91
 
 
92
void CSStringBuffer_::append(const char *str, size_t len)
 
93
{
 
94
        if (myStrLen + len > iSize) {
 
95
                size_t add = len;
 
96
                
 
97
                if (add < iGrow)
 
98
                        add = iGrow;
 
99
                cs_realloc((void **) &iBuffer, iSize + add);
 
100
                iSize += add;
 
101
        }
 
102
        memcpy(iBuffer + myStrLen, str, len);
 
103
        myStrLen += len;
 
104
}
 
105
 
 
106
void CSStringBuffer_::append(int value)
 
107
{
 
108
        char buffer[100];
 
109
 
 
110
        snprintf(buffer, 100, "%"PRId32"", value);
 
111
        append(buffer);
 
112
}
 
113
 
 
114
void CSStringBuffer_::append(uint32_t value)
 
115
{
 
116
        char buffer[100];
 
117
 
 
118
        snprintf(buffer, 100, "%"PRIu32"", value);
 
119
        append(buffer);
 
120
}
 
121
 
 
122
char *CSStringBuffer_::getCString()
 
123
{
 
124
        if (iSize == myStrLen) {
 
125
                cs_realloc((void **) &iBuffer, iSize + 1);
 
126
                iSize++;
 
127
        }
 
128
        iBuffer[myStrLen] = 0;
 
129
        return iBuffer;
 
130
}
 
131
 
 
132
char *CSStringBuffer_::take()
 
133
{
 
134
        char *buf;
 
135
 
 
136
        cs_realloc((void **) &iBuffer, myStrLen + 1);
 
137
        iSize = myStrLen + 1;
 
138
        iBuffer[myStrLen] = 0;
 
139
 
 
140
        buf = iBuffer;
 
141
        iBuffer = NULL;
 
142
        iSize = 0;
 
143
        myStrLen = 0; 
 
144
        return buf;
 
145
}
 
146
 
 
147
void CSStringBuffer_::setLength(u_int len)
 
148
{
 
149
        if (len > iSize) {
 
150
                cs_realloc((void **) &iBuffer, len + 1);
 
151
                iSize = len+1;
 
152
        }
 
153
        myStrLen = len;
 
154
}
 
155
 
 
156
u_int CSStringBuffer_::ignore(u_int pos, char ch)
 
157
{
 
158
        while (pos < myStrLen && iBuffer[pos] == ch)
 
159
                pos++;
 
160
        return pos;
 
161
}
 
162
 
 
163
u_int CSStringBuffer_::find(u_int pos, char ch)
 
164
{
 
165
        while (pos < myStrLen && iBuffer[pos] != ch)
 
166
                pos++;
 
167
        return pos;
 
168
}
 
169
 
 
170
u_int CSStringBuffer_::trim(u_int pos, char ch)
 
171
{
 
172
        while (pos > 0 && iBuffer[pos-1] == ch)
 
173
                pos--;
 
174
        return pos;
 
175
}
 
176
 
 
177
CSString *CSStringBuffer_::substr(u_int pos, u_int len)
 
178
{
 
179
        CSString *s = CSString::newString(iBuffer + pos, len);
 
180
 
 
181
        return s;
 
182
}
 
183
 
 
184
/*
 
185
 * ---------------------------------------------------------------
 
186
 * Generic Strings
 
187
 */
 
188
 
 
189
CSString *CSString::newString(const char *cstr)
 
190
{
 
191
        return CSCString::newString(cstr);
 
192
}
 
193
 
 
194
CSString *CSString::newString(const char *bytes, u_int len)
 
195
{
 
196
        return CSCString::newString(bytes, len);
 
197
}
 
198
 
 
199
CSString *CSString::newString(CSStringBuffer *sb)
 
200
{
 
201
        return CSCString::newString(sb);
 
202
}
 
203
 
 
204
CSString *CSString::concat(CSString *cat_str)
 
205
{
 
206
        CSString *new_str = NULL;
 
207
        u_int len_a, len_b;
 
208
        
 
209
        enter_();
 
210
        len_a = length();
 
211
        len_b = cat_str->length();
 
212
        new_str = clone(len_a + len_b);
 
213
        try_(a) {
 
214
                for (u_int i=0; i<len_b; i++)
 
215
                        new_str->setCharAt(len_a+i, cat_str->charAt(i));
 
216
        }
 
217
        catch_(a) {
 
218
                new_str->release();
 
219
                throw_();
 
220
        }
 
221
        cont_(a);
 
222
        return_(new_str);
 
223
}
 
224
 
 
225
CSString *CSString::concat(const char *cat_str)
 
226
{
 
227
        CSString *new_str = NULL;
 
228
        u_int len_a, len_b;
 
229
        
 
230
        enter_();
 
231
        len_a = length();
 
232
        len_b = strlen(cat_str);
 
233
        new_str = clone(len_a + len_b);
 
234
        try_(a) {
 
235
                for (u_int i=0; i<len_b; i++)
 
236
                        new_str->setCharAt(len_a+i, cat_str[i]);
 
237
        }
 
238
        catch_(a) {
 
239
                new_str->release();
 
240
                throw_();
 
241
        }
 
242
        cont_(a);
 
243
        return_(new_str);
 
244
}
 
245
 
 
246
CSString *CSString::toUpper()
 
247
{
 
248
        CSString *new_str = NULL;
 
249
        u_int len;
 
250
 
 
251
        enter_();
 
252
        len = new_str->length();
 
253
        try_(a) {
 
254
                for (u_int i=0; i<len; i++)
 
255
                        new_str->setCharAt(i, upperCharAt(i));
 
256
        }
 
257
        catch_(a) {
 
258
                new_str->release();
 
259
                throw_();
 
260
        }
 
261
        cont_(a);
 
262
        return_(new_str);
 
263
}
 
264
 
 
265
u_int CSString::hashKey()
 
266
{
 
267
        register u_int h = 0, g;
 
268
        
 
269
        for (u_int i=0; i<length(); i++) {
 
270
                h = (h << 4) + (u_int) upperCharAt(i);
 
271
                if ((g = (h & 0xF0000000)))
 
272
                        h = (h ^ (g >> 24)) ^ g;
 
273
        }
 
274
 
 
275
        return (h);
 
276
}
 
277
 
 
278
u_int CSString::locate(const char *w_cstr, s_int count)
 
279
{
 
280
        s_int len = length();
 
281
        s_int i;
 
282
 
 
283
        if (count >= 0) {
 
284
                i = 0;
 
285
                while (i < len) {
 
286
                        if (startsWith((u_int) i, w_cstr)) {
 
287
                                count--;
 
288
                                if (!count)
 
289
                                        return i;
 
290
                        }
 
291
                        i++;
 
292
                }
 
293
        }
 
294
        else {
 
295
                count = -count;
 
296
                i = len - (s_int) strlen(w_cstr);
 
297
                while (i >= 0) {
 
298
                        if (startsWith((u_int) i, w_cstr)) {
 
299
                                count--;
 
300
                                if (!count)
 
301
                                        return i;
 
302
                        }
 
303
                        i--;
 
304
                }
 
305
        }
 
306
        return i;
 
307
}
 
308
 
 
309
u_int CSString::locate(u_int pos, const char *w_cstr)
 
310
{
 
311
        u_int len = length();
 
312
        u_int i;
 
313
 
 
314
        if (pos > len)
 
315
                return len;
 
316
        i = pos;
 
317
        while (i < len) {
 
318
                if (startsWith(i, w_cstr))
 
319
                        return i;
 
320
                i++;
 
321
        }
 
322
        return i;
 
323
}
 
324
 
 
325
u_int CSString::locate(u_int pos, CS_CHAR ch)
 
326
{
 
327
        u_int len = length();
 
328
        u_int i;
 
329
 
 
330
        if (pos > len)
 
331
                return len;
 
332
        i = pos;
 
333
        while (i < len) {
 
334
                if (charAt(i) == ch)
 
335
                        return i;
 
336
                i++;
 
337
        }
 
338
        return i;
 
339
}
 
340
 
 
341
u_int CSString::skip(u_int pos, CS_CHAR ch)
 
342
{
 
343
        u_int len = length();
 
344
        u_int i;
 
345
 
 
346
        if (pos > len)
 
347
                return len;
 
348
        i = pos;
 
349
        while (i < len) {
 
350
                if (charAt(i) != ch)
 
351
                        return i;
 
352
                i++;
 
353
        }
 
354
        return i;
 
355
}
 
356
 
 
357
CSString *CSString::substr(u_int index, u_int size)
 
358
{
 
359
        return clone(index, size);
 
360
}
 
361
 
 
362
CSString *CSString::substr(u_int index)
 
363
{
 
364
        return clone(index, length() - index);
 
365
        
 
366
}
 
367
 
 
368
CSString *CSString::left(const char *w_cstr, s_int count)
 
369
{
 
370
        u_int idx = locate(w_cstr, count);
 
371
 
 
372
        if (idx == (u_int)-1)
 
373
                return CSCString::newString("");
 
374
        return substr(0, idx);
 
375
}
 
376
 
 
377
CSString *CSString::left(const char *w_cstr)
 
378
{
 
379
        return left(w_cstr, 1);
 
380
}
 
381
 
 
382
CSString *CSString::right(const char *w_cstr, s_int count)
 
383
{
 
384
        u_int idx = locate(w_cstr, count);
 
385
 
 
386
        if (idx == (u_int)-1) {
 
387
                this->retain();
 
388
                return this;
 
389
        }
 
390
        
 
391
        if (idx == length())
 
392
                return newString("");
 
393
                
 
394
        return substr(idx + strlen(w_cstr));
 
395
}
 
396
 
 
397
CSString *CSString::right(const char *w_cstr)
 
398
{
 
399
        return right(w_cstr, 1);
 
400
}
 
401
 
 
402
bool CSString::startsWith(const char *w_str)
 
403
{
 
404
        return startsWith(0, w_str);
 
405
}
 
406
 
 
407
bool CSString::endsWith(const char *w_str)
 
408
{
 
409
        return startsWith(length() - strlen(w_str), w_str);
 
410
}
 
411
 
 
412
u_int CSString::nextPos(u_int pos)
 
413
{
 
414
        if (pos >= length())
 
415
                return length();
 
416
        return pos + 1;
 
417
}
 
418
 
 
419
CSString *CSString::clone(u_int len)
 
420
{
 
421
        return clone(0, len);
 
422
}
 
423
 
 
424
CSString *CSString::clone()
 
425
{
 
426
        return clone(0, length());
 
427
}
 
428
 
 
429
bool CSString::equals(const char *str)
 
430
{
 
431
        u_int len = length();
 
432
        u_int i;
 
433
        
 
434
        for (i=0; i<len && *str; i++) {
 
435
                if (charAt(i) != *str)
 
436
                        return false;
 
437
                str++;
 
438
        }
 
439
        return i==len && !*str;
 
440
}
 
441
 
 
442
/*
 
443
 * ---------------------------------------------------------------
 
444
 * Standard C String
 
445
 */
 
446
 
 
447
CSCString::CSCString():
 
448
CSString(),
 
449
myCString(NULL),
 
450
myStrLen(0)
 
451
{
 
452
}
 
453
 
 
454
CSCString::~CSCString()
 
455
{
 
456
        if (myCString)
 
457
                cs_free(myCString);
 
458
}
 
459
 
 
460
const char *CSCString::getCString()
 
461
{
 
462
        return myCString;
 
463
}
 
464
 
 
465
CS_CHAR CSCString::charAt(u_int pos)
 
466
{
 
467
        if (pos < myStrLen)
 
468
                return (CS_CHAR) (unsigned char) myCString[pos];
 
469
        return (CS_CHAR) 0;
 
470
}
 
471
 
 
472
CS_CHAR CSCString::upperCharAt(u_int pos)
 
473
{
 
474
        if (pos < myStrLen)
 
475
                return (CS_CHAR) (unsigned char) toupper(myCString[pos]);
 
476
        return (CS_CHAR) 0;
 
477
}
 
478
 
 
479
void CSCString::setCharAt(u_int pos, CS_CHAR ch)
 
480
{
 
481
        if (pos < myStrLen)
 
482
                myCString[pos] = (unsigned char) ch;
 
483
}
 
484
 
 
485
int CSCString::compare(const char *val, u_int len)
 
486
{
 
487
        const char *pa = myCString, *pb = val;
 
488
        int r = 0;
 
489
        
 
490
        enter_();
 
491
        
 
492
        if (pa && pb) {
 
493
                while (*pa && *pb && len) {
 
494
                        r = toupper(*pa) - toupper(*pb);
 
495
                        if (r != 0)
 
496
                                break;
 
497
                        pa++;
 
498
                        pb++;
 
499
                        len--;
 
500
                }
 
501
                if (len)
 
502
                        r = toupper(*pa) - toupper(*pb);
 
503
        }
 
504
 
 
505
        return_(r);
 
506
}
 
507
 
 
508
int CSCString::compare(CSString *val)
 
509
{
 
510
        return compare(val->getCString(), (u_int)-1);
 
511
}
 
512
 
 
513
bool CSCString::startsWith(u_int index, const char *w_str)
 
514
{
 
515
        u_int len = strlen(w_str);
 
516
        char *str;
 
517
        
 
518
        if (index > myStrLen)
 
519
                index = myStrLen;
 
520
        str = myCString + index;
 
521
        for (u_int i=0; i<len && *str; i++) {
 
522
                if (*str != *w_str)
 
523
                        return false;
 
524
                str++;
 
525
                w_str++;
 
526
        }
 
527
        return (*w_str == 0);
 
528
}
 
529
 
 
530
void CSCString::setLength(u_int len)
 
531
{
 
532
        cs_realloc((void **) &myCString, len+1);
 
533
        myCString[len] = 0;
 
534
        myStrLen = len;
 
535
}
 
536
 
 
537
CSString *CSCString::clone(u_int pos, u_int len)
 
538
{
 
539
        CSCString *str = NULL;
 
540
        
 
541
        enter_();
 
542
        new_(str, CSCString());
 
543
        try_(a) {
 
544
                str->myCString = (char *) cs_malloc(len + 1);
 
545
                str->myStrLen = len;
 
546
                if (pos > myStrLen)
 
547
                        pos = myStrLen;
 
548
                if (len > myStrLen - pos) {
 
549
                        /* More space has been allocated than required.
 
550
                         * It may be that this space will be used up.
 
551
                         * Set the zero terminator at the end
 
552
                         * of the space!
 
553
                         */
 
554
                        str->myCString[len] = 0;
 
555
                        len = myStrLen - pos;
 
556
                }
 
557
                memcpy(str->myCString, myCString+pos, len);
 
558
                str->myCString[len] = 0;
 
559
        }
 
560
        catch_(a) {
 
561
                str->release();
 
562
                throw_();
 
563
        }
 
564
        cont_(a);
 
565
        return_(str);
 
566
}
 
567
 
 
568
CSObject *CSCString::getKey()
 
569
{
 
570
        return (CSObject *) this;
 
571
}
 
572
 
 
573
int CSCString::compareKey(CSObject *key)
 
574
{
 
575
        return compare((CSString *) key);
 
576
}
 
577
 
 
578
CSString *CSCString::newString(const char *cstr)
 
579
{
 
580
        CSCString *str;
 
581
        
 
582
        enter_();
 
583
        new_(str, CSCString());
 
584
        push_(str);
 
585
        str->myCString = cs_strdup(cstr);
 
586
        str->myStrLen = strlen(cstr);
 
587
        pop_(str);
 
588
        return_((CSString *) str);
 
589
}
 
590
 
 
591
CSString *CSCString::newString(const char *bytes, u_int len)
 
592
{
 
593
        CSCString *str;
 
594
        
 
595
        enter_();
 
596
        new_(str, CSCString());
 
597
        push_(str);
 
598
        str->myStrLen = len;
 
599
        str->myCString = (char *) cs_malloc(len+1);
 
600
        memcpy(str->myCString, bytes, len);
 
601
        str->myCString[len] = 0;
 
602
        pop_(str);
 
603
        return_((CSString *) str);
 
604
}
 
605
 
 
606
CSString *CSCString::newString(CSStringBuffer *sb)
 
607
{
 
608
        CSCString *str;
 
609
        
 
610
        enter_();
 
611
        push_(sb);
 
612
        new_(str, CSCString());
 
613
        push_(str);
 
614
        str->myCString = sb->take();
 
615
        str->myStrLen = sb->length();
 
616
        pop_(str);
 
617
        release_(sb);
 
618
        return_((CSString *) str);
 
619
}
 
620