Subversion Repositories HelenOS

Rev

Rev 4226 | Rev 4264 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4226 Rev 4234
1
/*
1
/*
2
 * Copyright (c) 2005 Martin Decky
2
 * Copyright (c) 2005 Martin Decky
3
 * Copyright (c) 2008 Jiri Svoboda
3
 * Copyright (c) 2008 Jiri Svoboda
4
 * All rights reserved.
4
 * All rights reserved.
5
 *
5
 *
6
 * Redistribution and use in source and binary forms, with or without
6
 * Redistribution and use in source and binary forms, with or without
7
 * modification, are permitted provided that the following conditions
7
 * modification, are permitted provided that the following conditions
8
 * are met:
8
 * are met:
9
 *
9
 *
10
 * - Redistributions of source code must retain the above copyright
10
 * - Redistributions of source code must retain the above copyright
11
 *   notice, this list of conditions and the following disclaimer.
11
 *   notice, this list of conditions and the following disclaimer.
12
 * - Redistributions in binary form must reproduce the above copyright
12
 * - Redistributions in binary form must reproduce the above copyright
13
 *   notice, this list of conditions and the following disclaimer in the
13
 *   notice, this list of conditions and the following disclaimer in the
14
 *   documentation and/or other materials provided with the distribution.
14
 *   documentation and/or other materials provided with the distribution.
15
 * - The name of the author may not be used to endorse or promote products
15
 * - The name of the author may not be used to endorse or promote products
16
 *   derived from this software without specific prior written permission.
16
 *   derived from this software without specific prior written permission.
17
 *
17
 *
18
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
19
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
20
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
21
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
22
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
23
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
24
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
25
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
27
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28
 */
28
 */
29
 
29
 
30
/** @addtogroup libc
30
/** @addtogroup libc
31
 * @{
31
 * @{
32
 */
32
 */
33
/** @file
33
/** @file
34
 */
34
 */
35
 
35
 
36
#include <string.h>
36
#include <string.h>
37
#include <stdlib.h>
37
#include <stdlib.h>
38
#include <limits.h>
38
#include <limits.h>
39
#include <ctype.h>
39
#include <ctype.h>
40
#include <malloc.h>
40
#include <malloc.h>
41
#include <errno.h>
41
#include <errno.h>
-
 
42
#include <align.h>
42
#include <string.h>
43
#include <string.h>
43
 
44
 
44
/** Byte mask consisting of lowest @n bits (out of 8) */
45
/** Byte mask consisting of lowest @n bits (out of 8) */
45
#define LO_MASK_8(n)  ((uint8_t) ((1 << (n)) - 1))
46
#define LO_MASK_8(n)  ((uint8_t) ((1 << (n)) - 1))
46
 
47
 
47
/** Byte mask consisting of lowest @n bits (out of 32) */
48
/** Byte mask consisting of lowest @n bits (out of 32) */
48
#define LO_MASK_32(n)  ((uint32_t) ((1 << (n)) - 1))
49
#define LO_MASK_32(n)  ((uint32_t) ((1 << (n)) - 1))
49
 
50
 
50
/** Byte mask consisting of highest @n bits (out of 8) */
51
/** Byte mask consisting of highest @n bits (out of 8) */
51
#define HI_MASK_8(n)  (~LO_MASK_8(8 - (n)))
52
#define HI_MASK_8(n)  (~LO_MASK_8(8 - (n)))
52
 
53
 
53
/** Number of data bits in a UTF-8 continuation byte */
54
/** Number of data bits in a UTF-8 continuation byte */
54
#define CONT_BITS  6
55
#define CONT_BITS  6
55
 
56
 
56
/** Decode a single character from a string.
57
/** Decode a single character from a string.
57
 *
58
 *
58
 * Decode a single character from a string of size @a size. Decoding starts
59
 * Decode a single character from a string of size @a size. Decoding starts
59
 * at @a offset and this offset is moved to the beginning of the next
60
 * at @a offset and this offset is moved to the beginning of the next
60
 * character. In case of decoding error, offset generally advances at least
61
 * character. In case of decoding error, offset generally advances at least
61
 * by one. However, offset is never moved beyond size.
62
 * by one. However, offset is never moved beyond size.
62
 *
63
 *
63
 * @param str    String (not necessarily NULL-terminated).
64
 * @param str    String (not necessarily NULL-terminated).
64
 * @param offset Byte offset in string where to start decoding.
65
 * @param offset Byte offset in string where to start decoding.
65
 * @param size   Size of the string (in bytes).
66
 * @param size   Size of the string (in bytes).
66
 *
67
 *
67
 * @return Value of decoded character, U_SPECIAL on decoding error or
68
 * @return Value of decoded character, U_SPECIAL on decoding error or
68
 *         NULL if attempt to decode beyond @a size.
69
 *         NULL if attempt to decode beyond @a size.
69
 *
70
 *
70
 */
71
 */
71
wchar_t str_decode(const char *str, size_t *offset, size_t size)
72
wchar_t str_decode(const char *str, size_t *offset, size_t size)
72
{
73
{
73
    if (*offset + 1 > size)
74
    if (*offset + 1 > size)
74
        return 0;
75
        return 0;
75
   
76
   
76
    /* First byte read from string */
77
    /* First byte read from string */
77
    uint8_t b0 = (uint8_t) str[(*offset)++];
78
    uint8_t b0 = (uint8_t) str[(*offset)++];
78
   
79
   
79
    /* Determine code length */
80
    /* Determine code length */
80
   
81
   
81
    unsigned int b0_bits;  /* Data bits in first byte */
82
    unsigned int b0_bits;  /* Data bits in first byte */
82
    unsigned int cbytes;   /* Number of continuation bytes */
83
    unsigned int cbytes;   /* Number of continuation bytes */
83
   
84
   
84
    if ((b0 & 0x80) == 0) {
85
    if ((b0 & 0x80) == 0) {
85
        /* 0xxxxxxx (Plain ASCII) */
86
        /* 0xxxxxxx (Plain ASCII) */
86
        b0_bits = 7;
87
        b0_bits = 7;
87
        cbytes = 0;
88
        cbytes = 0;
88
    } else if ((b0 & 0xe0) == 0xc0) {
89
    } else if ((b0 & 0xe0) == 0xc0) {
89
        /* 110xxxxx 10xxxxxx */
90
        /* 110xxxxx 10xxxxxx */
90
        b0_bits = 5;
91
        b0_bits = 5;
91
        cbytes = 1;
92
        cbytes = 1;
92
    } else if ((b0 & 0xf0) == 0xe0) {
93
    } else if ((b0 & 0xf0) == 0xe0) {
93
        /* 1110xxxx 10xxxxxx 10xxxxxx */
94
        /* 1110xxxx 10xxxxxx 10xxxxxx */
94
        b0_bits = 4;
95
        b0_bits = 4;
95
        cbytes = 2;
96
        cbytes = 2;
96
    } else if ((b0 & 0xf8) == 0xf0) {
97
    } else if ((b0 & 0xf8) == 0xf0) {
97
        /* 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx */
98
        /* 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx */
98
        b0_bits = 3;
99
        b0_bits = 3;
99
        cbytes = 3;
100
        cbytes = 3;
100
    } else {
101
    } else {
101
        /* 10xxxxxx -- unexpected continuation byte */
102
        /* 10xxxxxx -- unexpected continuation byte */
102
        return U_SPECIAL;
103
        return U_SPECIAL;
103
    }
104
    }
104
   
105
   
105
    if (*offset + cbytes > size)
106
    if (*offset + cbytes > size)
106
        return U_SPECIAL;
107
        return U_SPECIAL;
107
   
108
   
108
    wchar_t ch = b0 & LO_MASK_8(b0_bits);
109
    wchar_t ch = b0 & LO_MASK_8(b0_bits);
109
   
110
   
110
    /* Decode continuation bytes */
111
    /* Decode continuation bytes */
111
    while (cbytes > 0) {
112
    while (cbytes > 0) {
112
        uint8_t b = (uint8_t) str[(*offset)++];
113
        uint8_t b = (uint8_t) str[(*offset)++];
113
       
114
       
114
        /* Must be 10xxxxxx */
115
        /* Must be 10xxxxxx */
115
        if ((b & 0xc0) != 0x80)
116
        if ((b & 0xc0) != 0x80)
116
            return U_SPECIAL;
117
            return U_SPECIAL;
117
       
118
       
118
        /* Shift data bits to ch */
119
        /* Shift data bits to ch */
119
        ch = (ch << CONT_BITS) | (wchar_t) (b & LO_MASK_8(CONT_BITS));
120
        ch = (ch << CONT_BITS) | (wchar_t) (b & LO_MASK_8(CONT_BITS));
120
        cbytes--;
121
        cbytes--;
121
    }
122
    }
122
   
123
   
123
    return ch;
124
    return ch;
124
}
125
}
125
 
126
 
126
/** Encode a single character to string representation.
127
/** Encode a single character to string representation.
127
 *
128
 *
128
 * Encode a single character to string representation (i.e. UTF-8) and store
129
 * Encode a single character to string representation (i.e. UTF-8) and store
129
 * it into a buffer at @a offset. Encoding starts at @a offset and this offset
130
 * it into a buffer at @a offset. Encoding starts at @a offset and this offset
130
 * is moved to the position where the next character can be written to.
131
 * is moved to the position where the next character can be written to.
131
 *
132
 *
132
 * @param ch     Input character.
133
 * @param ch     Input character.
133
 * @param str    Output buffer.
134
 * @param str    Output buffer.
134
 * @param offset Byte offset where to start writing.
135
 * @param offset Byte offset where to start writing.
135
 * @param size   Size of the output buffer (in bytes).
136
 * @param size   Size of the output buffer (in bytes).
136
 *
137
 *
137
 * @return EOK if the character was encoded successfully, EOVERFLOW if there
138
 * @return EOK if the character was encoded successfully, EOVERFLOW if there
138
 *     was not enough space in the output buffer or EINVAL if the character
139
 *     was not enough space in the output buffer or EINVAL if the character
139
 *     code was invalid.
140
 *     code was invalid.
140
 */
141
 */
141
int chr_encode(const wchar_t ch, char *str, size_t *offset, size_t size)
142
int chr_encode(const wchar_t ch, char *str, size_t *offset, size_t size)
142
{
143
{
143
    if (*offset >= size)
144
    if (*offset >= size)
144
        return EOVERFLOW;
145
        return EOVERFLOW;
145
   
146
   
146
    if (!chr_check(ch))
147
    if (!chr_check(ch))
147
        return EINVAL;
148
        return EINVAL;
148
   
149
   
149
    /* Unsigned version of ch (bit operations should only be done
150
    /* Unsigned version of ch (bit operations should only be done
150
       on unsigned types). */
151
       on unsigned types). */
151
    uint32_t cc = (uint32_t) ch;
152
    uint32_t cc = (uint32_t) ch;
152
   
153
   
153
    /* Determine how many continuation bytes are needed */
154
    /* Determine how many continuation bytes are needed */
154
   
155
   
155
    unsigned int b0_bits;  /* Data bits in first byte */
156
    unsigned int b0_bits;  /* Data bits in first byte */
156
    unsigned int cbytes;   /* Number of continuation bytes */
157
    unsigned int cbytes;   /* Number of continuation bytes */
157
   
158
   
158
    if ((cc & ~LO_MASK_32(7)) == 0) {
159
    if ((cc & ~LO_MASK_32(7)) == 0) {
159
        b0_bits = 7;
160
        b0_bits = 7;
160
        cbytes = 0;
161
        cbytes = 0;
161
    } else if ((cc & ~LO_MASK_32(11)) == 0) {
162
    } else if ((cc & ~LO_MASK_32(11)) == 0) {
162
        b0_bits = 5;
163
        b0_bits = 5;
163
        cbytes = 1;
164
        cbytes = 1;
164
    } else if ((cc & ~LO_MASK_32(16)) == 0) {
165
    } else if ((cc & ~LO_MASK_32(16)) == 0) {
165
        b0_bits = 4;
166
        b0_bits = 4;
166
        cbytes = 2;
167
        cbytes = 2;
167
    } else if ((cc & ~LO_MASK_32(21)) == 0) {
168
    } else if ((cc & ~LO_MASK_32(21)) == 0) {
168
        b0_bits = 3;
169
        b0_bits = 3;
169
        cbytes = 3;
170
        cbytes = 3;
170
    } else {
171
    } else {
171
        /* Codes longer than 21 bits are not supported */
172
        /* Codes longer than 21 bits are not supported */
172
        return EINVAL;
173
        return EINVAL;
173
    }
174
    }
174
   
175
   
175
    /* Check for available space in buffer */
176
    /* Check for available space in buffer */
176
    if (*offset + cbytes >= size)
177
    if (*offset + cbytes >= size)
177
        return EOVERFLOW;
178
        return EOVERFLOW;
178
   
179
   
179
    /* Encode continuation bytes */
180
    /* Encode continuation bytes */
180
    unsigned int i;
181
    unsigned int i;
181
    for (i = cbytes; i > 0; i--) {
182
    for (i = cbytes; i > 0; i--) {
182
        str[*offset + i] = 0x80 | (cc & LO_MASK_32(CONT_BITS));
183
        str[*offset + i] = 0x80 | (cc & LO_MASK_32(CONT_BITS));
183
        cc = cc >> CONT_BITS;
184
        cc = cc >> CONT_BITS;
184
    }
185
    }
185
   
186
   
186
    /* Encode first byte */
187
    /* Encode first byte */
187
    str[*offset] = (cc & LO_MASK_32(b0_bits)) | HI_MASK_8(8 - b0_bits - 1);
188
    str[*offset] = (cc & LO_MASK_32(b0_bits)) | HI_MASK_8(8 - b0_bits - 1);
188
   
189
   
189
    /* Advance offset */
190
    /* Advance offset */
190
    *offset += cbytes + 1;
191
    *offset += cbytes + 1;
191
   
192
   
192
    return EOK;
193
    return EOK;
193
}
194
}
194
 
195
 
-
 
196
/** Get size of string.
-
 
197
 *
-
 
198
 * Get the number of bytes which are used by the string @a str (excluding the
-
 
199
 * NULL-terminator).
-
 
200
 *
-
 
201
 * @param str String to consider.
-
 
202
 *
-
 
203
 * @return Number of bytes used by the string
-
 
204
 *
-
 
205
 */
-
 
206
size_t str_size(const char *str)
-
 
207
{
-
 
208
    size_t size = 0;
-
 
209
   
-
 
210
    while (*str++ != 0)
-
 
211
        size++;
-
 
212
   
-
 
213
    return size;
-
 
214
}
-
 
215
 
-
 
216
/** Get size of wide string.
-
 
217
 *
-
 
218
 * Get the number of bytes which are used by the wide string @a str (excluding the
-
 
219
 * NULL-terminator).
-
 
220
 *
-
 
221
 * @param str Wide string to consider.
-
 
222
 *
-
 
223
 * @return Number of bytes used by the wide string
-
 
224
 *
-
 
225
 */
-
 
226
size_t wstr_size(const wchar_t *str)
-
 
227
{
-
 
228
    return (wstr_length(str) * sizeof(wchar_t));
-
 
229
}
-
 
230
 
-
 
231
/** Get size of string with length limit.
-
 
232
 *
-
 
233
 * Get the number of bytes which are used by up to @a max_len first
-
 
234
 * characters in the string @a str. If @a max_len is greater than
-
 
235
 * the length of @a str, the entire string is measured (excluding the
-
 
236
 * NULL-terminator).
-
 
237
 *
-
 
238
 * @param str     String to consider.
-
 
239
 * @param max_len Maximum number of characters to measure.
-
 
240
 *
-
 
241
 * @return Number of bytes used by the characters.
-
 
242
 *
-
 
243
 */
-
 
244
size_t str_lsize(const char *str, count_t max_len)
-
 
245
{
-
 
246
    count_t len = 0;
-
 
247
    size_t offset = 0;
-
 
248
   
-
 
249
    while (len < max_len) {
-
 
250
        if (str_decode(str, &offset, STR_NO_LIMIT) == 0)
-
 
251
            break;
-
 
252
       
-
 
253
        len++;
-
 
254
    }
-
 
255
   
-
 
256
    return offset;
-
 
257
}
-
 
258
 
-
 
259
/** Get size of wide string with length limit.
-
 
260
 *
-
 
261
 * Get the number of bytes which are used by up to @a max_len first
-
 
262
 * wide characters in the wide string @a str. If @a max_len is greater than
-
 
263
 * the length of @a str, the entire wide string is measured (excluding the
-
 
264
 * NULL-terminator).
-
 
265
 *
-
 
266
 * @param str     Wide string to consider.
-
 
267
 * @param max_len Maximum number of wide characters to measure.
-
 
268
 *
-
 
269
 * @return Number of bytes used by the wide characters.
-
 
270
 *
-
 
271
 */
-
 
272
size_t wstr_lsize(const wchar_t *str, count_t max_len)
-
 
273
{
-
 
274
    return (wstr_nlength(str, max_len * sizeof(wchar_t)) * sizeof(wchar_t));
-
 
275
}
-
 
276
 
-
 
277
/** Get number of characters in a string.
-
 
278
 *
-
 
279
 * @param str NULL-terminated string.
-
 
280
 *
-
 
281
 * @return Number of characters in string.
-
 
282
 *
-
 
283
 */
-
 
284
count_t str_length(const char *str)
-
 
285
{
-
 
286
    count_t len = 0;
-
 
287
    size_t offset = 0;
-
 
288
   
-
 
289
    while (str_decode(str, &offset, STR_NO_LIMIT) != 0)
-
 
290
        len++;
-
 
291
   
-
 
292
    return len;
-
 
293
}
-
 
294
 
-
 
295
/** Get number of characters in a wide string.
-
 
296
 *
-
 
297
 * @param str NULL-terminated wide string.
-
 
298
 *
-
 
299
 * @return Number of characters in @a str.
-
 
300
 *
-
 
301
 */
-
 
302
count_t wstr_length(const wchar_t *wstr)
-
 
303
{
-
 
304
    count_t len = 0;
-
 
305
   
-
 
306
    while (*wstr++ != 0)
-
 
307
        len++;
-
 
308
   
-
 
309
    return len;
-
 
310
}
-
 
311
 
-
 
312
/** Get number of characters in a string with size limit.
-
 
313
 *
-
 
314
 * @param str  NULL-terminated string.
-
 
315
 * @param size Maximum number of bytes to consider.
-
 
316
 *
-
 
317
 * @return Number of characters in string.
-
 
318
 *
-
 
319
 */
-
 
320
count_t str_nlength(const char *str, size_t size)
-
 
321
{
-
 
322
    count_t len = 0;
-
 
323
    size_t offset = 0;
-
 
324
   
-
 
325
    while (str_decode(str, &offset, size) != 0)
-
 
326
        len++;
-
 
327
   
-
 
328
    return len;
-
 
329
}
-
 
330
 
-
 
331
/** Get number of characters in a string with size limit.
-
 
332
 *
-
 
333
 * @param str  NULL-terminated string.
-
 
334
 * @param size Maximum number of bytes to consider.
-
 
335
 *
-
 
336
 * @return Number of characters in string.
-
 
337
 *
-
 
338
 */
-
 
339
count_t wstr_nlength(const wchar_t *str, size_t size)
-
 
340
{
-
 
341
    count_t len = 0;
-
 
342
    count_t limit = ALIGN_DOWN(size, sizeof(wchar_t));
-
 
343
    count_t offset = 0;
-
 
344
   
-
 
345
    while ((offset < limit) && (*str++ != 0)) {
-
 
346
        len++;
-
 
347
        offset += sizeof(wchar_t);
-
 
348
    }
-
 
349
   
-
 
350
    return len;
-
 
351
}
-
 
352
 
-
 
353
/** Check whether character is plain ASCII.
-
 
354
 *
-
 
355
 * @return True if character is plain ASCII.
-
 
356
 *
-
 
357
 */
-
 
358
bool ascii_check(wchar_t ch)
-
 
359
{
-
 
360
    if ((ch >= 0) && (ch <= 127))
-
 
361
        return true;
-
 
362
   
-
 
363
    return false;
-
 
364
}
-
 
365
 
195
/** Check whether character is valid
366
/** Check whether character is valid
196
 *
367
 *
197
 * @return True if character is a valid Unicode code point.
368
 * @return True if character is a valid Unicode code point.
198
 *
369
 *
199
 */
370
 */
200
bool chr_check(const wchar_t ch)
371
bool chr_check(wchar_t ch)
201
{
372
{
202
    if ((ch >= 0) && (ch <= 1114111))
373
    if ((ch >= 0) && (ch <= 1114111))
203
        return true;
374
        return true;
204
   
375
   
205
    return false;
376
    return false;
206
}
377
}
-
 
378
 
-
 
379
/** Compare two NULL terminated strings.
-
 
380
 *
-
 
381
 * Do a char-by-char comparison of two NULL-terminated strings.
-
 
382
 * The strings are considered equal iff they consist of the same
-
 
383
 * characters on the minimum of their lengths.
-
 
384
 *
-
 
385
 * @param s1 First string to compare.
-
 
386
 * @param s2 Second string to compare.
-
 
387
 *
-
 
388
 * @return 0 if the strings are equal, -1 if first is smaller,
-
 
389
 *         1 if second smaller.
-
 
390
 *
-
 
391
 */
-
 
392
int str_cmp(const char *s1, const char *s2)
-
 
393
{
-
 
394
    wchar_t c1 = 0;
-
 
395
    wchar_t c2 = 0;
-
 
396
   
-
 
397
    size_t off1 = 0;
-
 
398
    size_t off2 = 0;
-
 
399
 
-
 
400
    while (true) {
-
 
401
        c1 = str_decode(s1, &off1, STR_NO_LIMIT);
-
 
402
        c2 = str_decode(s2, &off2, STR_NO_LIMIT);
-
 
403
 
-
 
404
        if (c1 < c2)
-
 
405
            return -1;
-
 
406
       
-
 
407
        if (c1 > c2)
-
 
408
            return 1;
-
 
409
 
-
 
410
        if (c1 == 0 || c2 == 0)
-
 
411
            break;     
-
 
412
    }
-
 
413
 
-
 
414
    return 0;
-
 
415
}
-
 
416
 
-
 
417
/** Compare two NULL terminated strings with length limit.
-
 
418
 *
-
 
419
 * Do a char-by-char comparison of two NULL-terminated strings.
-
 
420
 * The strings are considered equal iff they consist of the same
-
 
421
 * characters on the minimum of their lengths and the length limit.
-
 
422
 *
-
 
423
 * @param s1      First string to compare.
-
 
424
 * @param s2      Second string to compare.
-
 
425
 * @param max_len Maximum number of characters to consider.
-
 
426
 *
-
 
427
 * @return 0 if the strings are equal, -1 if first is smaller,
-
 
428
 *         1 if second smaller.
-
 
429
 *
-
 
430
 */
-
 
431
int str_lcmp(const char *s1, const char *s2, count_t max_len)
-
 
432
{
-
 
433
    wchar_t c1 = 0;
-
 
434
    wchar_t c2 = 0;
-
 
435
   
-
 
436
    size_t off1 = 0;
-
 
437
    size_t off2 = 0;
-
 
438
   
-
 
439
    count_t len = 0;
-
 
440
 
-
 
441
    while (true) {
-
 
442
        if (len >= max_len)
-
 
443
            break;
-
 
444
 
-
 
445
        c1 = str_decode(s1, &off1, STR_NO_LIMIT);
-
 
446
        c2 = str_decode(s2, &off2, STR_NO_LIMIT);
-
 
447
 
-
 
448
        if (c1 < c2)
-
 
449
            return -1;
-
 
450
 
-
 
451
        if (c1 > c2)
-
 
452
            return 1;
-
 
453
 
-
 
454
        if (c1 == 0 || c2 == 0)
-
 
455
            break;
-
 
456
 
-
 
457
        ++len; 
-
 
458
    }
-
 
459
 
-
 
460
    return 0;
-
 
461
 
-
 
462
}
-
 
463
 
-
 
464
/** Copy NULL-terminated string.
-
 
465
 *
-
 
466
 * Copy source string @a src to destination buffer @a dst.
-
 
467
 * No more than @a size bytes are written. NULL-terminator is always
-
 
468
 * written after the last succesfully copied character (i.e. if the
-
 
469
 * destination buffer is has at least 1 byte, it will be always
-
 
470
 * NULL-terminated).
-
 
471
 *
-
 
472
 * @param src   Source string.
-
 
473
 * @param dst   Destination buffer.
-
 
474
 * @param count Size of the destination buffer.
-
 
475
 *
-
 
476
 */
-
 
477
void str_ncpy(char *dst, const char *src, size_t size)
-
 
478
{
-
 
479
    /* No space for the NULL-terminator in the buffer */
-
 
480
    if (size == 0)
-
 
481
        return;
-
 
482
   
-
 
483
    wchar_t ch;
-
 
484
    size_t str_off = 0;
-
 
485
    size_t dst_off = 0;
-
 
486
   
-
 
487
    while ((ch = str_decode(src, &str_off, STR_NO_LIMIT)) != 0) {
-
 
488
        if (chr_encode(ch, dst, &dst_off, size) != EOK)
-
 
489
            break;
-
 
490
    }
-
 
491
   
-
 
492
    if (dst_off >= size)
-
 
493
        dst[size - 1] = 0;
-
 
494
    else
-
 
495
        dst[dst_off] = 0;
-
 
496
}
-
 
497
 
-
 
498
/** Copy NULL-terminated wide string to string
-
 
499
 *
-
 
500
 * Copy source wide string @a src to destination buffer @a dst.
-
 
501
 * No more than @a size bytes are written. NULL-terminator is always
-
 
502
 * written after the last succesfully copied character (i.e. if the
-
 
503
 * destination buffer is has at least 1 byte, it will be always
-
 
504
 * NULL-terminated).
-
 
505
 *
-
 
506
 * @param src   Source wide string.
-
 
507
 * @param dst   Destination buffer.
-
 
508
 * @param count Size of the destination buffer.
-
 
509
 *
-
 
510
 */
-
 
511
void wstr_nstr(char *dst, const wchar_t *src, size_t size)
-
 
512
{
-
 
513
    /* No space for the NULL-terminator in the buffer */
-
 
514
    if (size == 0)
-
 
515
        return;
-
 
516
   
-
 
517
    wchar_t ch;
-
 
518
    count_t src_idx = 0;
-
 
519
    size_t dst_off = 0;
-
 
520
   
-
 
521
    while ((ch = src[src_idx++]) != 0) {
-
 
522
        if (chr_encode(ch, dst, &dst_off, size) != EOK)
-
 
523
            break;
-
 
524
    }
-
 
525
   
-
 
526
    if (dst_off >= size)
-
 
527
        dst[size - 1] = 0;
-
 
528
    else
-
 
529
        dst[dst_off] = 0;
-
 
530
}
-
 
531
 
-
 
532
/** Find first occurence of character in string.
-
 
533
 *
-
 
534
 * @param str String to search.
-
 
535
 * @param ch  Character to look for.
-
 
536
 *
-
 
537
 * @return Pointer to character in @a str or NULL if not found.
-
 
538
 *
-
 
539
 */
-
 
540
const char *str_chr(const char *str, wchar_t ch)
-
 
541
{
-
 
542
    wchar_t acc;
-
 
543
    size_t off = 0;
-
 
544
   
-
 
545
    while ((acc = str_decode(str, &off, STR_NO_LIMIT)) != 0) {
-
 
546
        if (acc == ch)
-
 
547
            return (str + off);
-
 
548
    }
-
 
549
   
-
 
550
    return NULL;
-
 
551
}
-
 
552
 
-
 
553
/** Insert a wide character into a wide string.
-
 
554
 *
-
 
555
 * Insert a wide character into a wide string at position
-
 
556
 * @a pos. The characters after the position are shifted.
-
 
557
 *
-
 
558
 * @param str     String to insert to.
-
 
559
 * @param ch      Character to insert to.
-
 
560
 * @param pos     Character index where to insert.
-
 
561
 @ @param max_pos Characters in the buffer.
-
 
562
 *
-
 
563
 * @return True if the insertion was sucessful, false if the position
-
 
564
 *         is out of bounds.
-
 
565
 *
-
 
566
 */
-
 
567
bool wstr_linsert(wchar_t *str, wchar_t ch, count_t pos, count_t max_pos)
-
 
568
{
-
 
569
    count_t len = wstr_length(str);
-
 
570
   
-
 
571
    if ((pos > len) || (pos + 1 > max_pos))
-
 
572
        return false;
-
 
573
   
-
 
574
    count_t i;
-
 
575
    for (i = len; i + 1 > pos; i--)
-
 
576
        str[i + 1] = str[i];
-
 
577
   
-
 
578
    str[pos] = ch;
-
 
579
   
-
 
580
    return true;
-
 
581
}
-
 
582
 
-
 
583
/** Remove a wide character from a wide string.
-
 
584
 *
-
 
585
 * Remove a wide character from a wide string at position
-
 
586
 * @a pos. The characters after the position are shifted.
-
 
587
 *
-
 
588
 * @param str String to remove from.
-
 
589
 * @param pos Character index to remove.
-
 
590
 *
-
 
591
 * @return True if the removal was sucessful, false if the position
-
 
592
 *         is out of bounds.
-
 
593
 *
-
 
594
 */
-
 
595
bool wstr_remove(wchar_t *str, count_t pos)
-
 
596
{
-
 
597
    count_t len = wstr_length(str);
-
 
598
   
-
 
599
    if (pos >= len)
-
 
600
        return false;
-
 
601
   
-
 
602
    count_t i;
-
 
603
    for (i = pos + 1; i <= len; i++)
-
 
604
        str[i - 1] = str[i];
-
 
605
   
-
 
606
    return true;
-
 
607
}
207
 
608
 
208
/** Count the number of characters in the string, not including terminating 0.
609
/** Count the number of characters in the string, not including terminating 0.
209
 *
610
 *
210
 * @param str       String.
611
 * @param str       String.
211
 * @return      Number of characters in string.
612
 * @return      Number of characters in string.
212
 */
613
 */
213
size_t strlen(const char *str)
614
size_t strlen(const char *str)
214
{
615
{
215
    size_t counter = 0;
616
    size_t counter = 0;
216
 
617
 
217
    while (str[counter] != 0)
618
    while (str[counter] != 0)
218
        counter++;
619
        counter++;
219
 
620
 
220
    return counter;
621
    return counter;
221
}
622
}
222
 
623
 
223
int strcmp(const char *a, const char *b)
624
int strcmp(const char *a, const char *b)
224
{
625
{
225
    int c = 0;
626
    int c = 0;
226
   
627
   
227
    while (a[c] && b[c] && (!(a[c] - b[c])))
628
    while (a[c] && b[c] && (!(a[c] - b[c])))
228
        c++;
629
        c++;
229
   
630
   
230
    return (a[c] - b[c]);
631
    return (a[c] - b[c]);
231
}
632
}
232
 
633
 
233
int strncmp(const char *a, const char *b, size_t n)
634
int strncmp(const char *a, const char *b, size_t n)
234
{
635
{
235
    size_t c = 0;
636
    size_t c = 0;
236
 
637
 
237
    while (c < n && a[c] && b[c] && (!(a[c] - b[c])))
638
    while (c < n && a[c] && b[c] && (!(a[c] - b[c])))
238
        c++;
639
        c++;
239
   
640
   
240
    return ( c < n ? a[c] - b[c] : 0);
641
    return ( c < n ? a[c] - b[c] : 0);
241
   
642
   
242
}
643
}
243
 
644
 
244
int stricmp(const char *a, const char *b)
645
int stricmp(const char *a, const char *b)
245
{
646
{
246
    int c = 0;
647
    int c = 0;
247
   
648
   
248
    while (a[c] && b[c] && (!(tolower(a[c]) - tolower(b[c]))))
649
    while (a[c] && b[c] && (!(tolower(a[c]) - tolower(b[c]))))
249
        c++;
650
        c++;
250
   
651
   
251
    return (tolower(a[c]) - tolower(b[c]));
652
    return (tolower(a[c]) - tolower(b[c]));
252
}
653
}
253
 
654
 
254
/** Return pointer to the first occurence of character c in string.
655
/** Return pointer to the first occurence of character c in string.
255
 *
656
 *
256
 * @param str       Scanned string.
657
 * @param str       Scanned string.
257
 * @param c     Searched character (taken as one byte).
658
 * @param c     Searched character (taken as one byte).
258
 * @return      Pointer to the matched character or NULL if it is not
659
 * @return      Pointer to the matched character or NULL if it is not
259
 *          found in given string.
660
 *          found in given string.
260
 */
661
 */
261
char *strchr(const char *str, int c)
662
char *strchr(const char *str, int c)
262
{
663
{
263
    while (*str != '\0') {
664
    while (*str != '\0') {
264
        if (*str == (char) c)
665
        if (*str == (char) c)
265
            return (char *) str;
666
            return (char *) str;
266
        str++;
667
        str++;
267
    }
668
    }
268
 
669
 
269
    return NULL;
670
    return NULL;
270
}
671
}
271
 
672
 
272
/** Return pointer to the last occurence of character c in string.
673
/** Return pointer to the last occurence of character c in string.
273
 *
674
 *
274
 * @param str       Scanned string.
675
 * @param str       Scanned string.
275
 * @param c     Searched character (taken as one byte).
676
 * @param c     Searched character (taken as one byte).
276
 * @return      Pointer to the matched character or NULL if it is not
677
 * @return      Pointer to the matched character or NULL if it is not
277
 *          found in given string.
678
 *          found in given string.
278
 */
679
 */
279
char *strrchr(const char *str, int c)
680
char *strrchr(const char *str, int c)
280
{
681
{
281
    char *retval = NULL;
682
    char *retval = NULL;
282
 
683
 
283
    while (*str != '\0') {
684
    while (*str != '\0') {
284
        if (*str == (char) c)
685
        if (*str == (char) c)
285
            retval = (char *) str;
686
            retval = (char *) str;
286
        str++;
687
        str++;
287
    }
688
    }
288
 
689
 
289
    return (char *) retval;
690
    return (char *) retval;
290
}
691
}
291
 
692
 
292
/** Convert string to a number.
693
/** Convert string to a number.
293
 * Core of strtol and strtoul functions.
694
 * Core of strtol and strtoul functions.
294
 *
695
 *
295
 * @param nptr      Pointer to string.
696
 * @param nptr      Pointer to string.
296
 * @param endptr    If not NULL, function stores here pointer to the first
697
 * @param endptr    If not NULL, function stores here pointer to the first
297
 *          invalid character.
698
 *          invalid character.
298
 * @param base      Zero or number between 2 and 36 inclusive.
699
 * @param base      Zero or number between 2 and 36 inclusive.
299
 * @param sgn       It's set to 1 if minus found.
700
 * @param sgn       It's set to 1 if minus found.
300
 * @return      Result of conversion.
701
 * @return      Result of conversion.
301
 */
702
 */
302
static unsigned long
703
static unsigned long
303
_strtoul(const char *nptr, char **endptr, int base, char *sgn)
704
_strtoul(const char *nptr, char **endptr, int base, char *sgn)
304
{
705
{
305
    unsigned char c;
706
    unsigned char c;
306
    unsigned long result = 0;
707
    unsigned long result = 0;
307
    unsigned long a, b;
708
    unsigned long a, b;
308
    const char *str = nptr;
709
    const char *str = nptr;
309
    const char *tmpptr;
710
    const char *tmpptr;
310
   
711
   
311
    while (isspace(*str))
712
    while (isspace(*str))
312
        str++;
713
        str++;
313
   
714
   
314
    if (*str == '-') {
715
    if (*str == '-') {
315
        *sgn = 1;
716
        *sgn = 1;
316
        ++str;
717
        ++str;
317
    } else if (*str == '+')
718
    } else if (*str == '+')
318
        ++str;
719
        ++str;
319
   
720
   
320
    if (base) {
721
    if (base) {
321
        if ((base == 1) || (base > 36)) {
722
        if ((base == 1) || (base > 36)) {
322
            /* FIXME: set errno to EINVAL */
723
            /* FIXME: set errno to EINVAL */
323
            return 0;
724
            return 0;
324
        }
725
        }
325
        if ((base == 16) && (*str == '0') && ((str[1] == 'x') ||
726
        if ((base == 16) && (*str == '0') && ((str[1] == 'x') ||
326
            (str[1] == 'X'))) {
727
            (str[1] == 'X'))) {
327
            str += 2;
728
            str += 2;
328
        }
729
        }
329
    } else {
730
    } else {
330
        base = 10;
731
        base = 10;
331
       
732
       
332
        if (*str == '0') {
733
        if (*str == '0') {
333
            base = 8;
734
            base = 8;
334
            if ((str[1] == 'X') || (str[1] == 'x'))  {
735
            if ((str[1] == 'X') || (str[1] == 'x'))  {
335
                base = 16;
736
                base = 16;
336
                str += 2;
737
                str += 2;
337
            }
738
            }
338
        }
739
        }
339
    }
740
    }
340
   
741
   
341
    tmpptr = str;
742
    tmpptr = str;
342
 
743
 
343
    while (*str) {
744
    while (*str) {
344
        c = *str;
745
        c = *str;
345
        c = (c >= 'a' ? c - 'a' + 10 : (c >= 'A' ? c - 'A' + 10 :
746
        c = (c >= 'a' ? c - 'a' + 10 : (c >= 'A' ? c - 'A' + 10 :
346
            (c <= '9' ? c - '0' : 0xff)));
747
            (c <= '9' ? c - '0' : 0xff)));
347
        if (c > base) {
748
        if (c > base) {
348
            break;
749
            break;
349
        }
750
        }
350
       
751
       
351
        a = (result & 0xff) * base + c;
752
        a = (result & 0xff) * base + c;
352
        b = (result >> 8) * base + (a >> 8);
753
        b = (result >> 8) * base + (a >> 8);
353
       
754
       
354
        if (b > (ULONG_MAX >> 8)) {
755
        if (b > (ULONG_MAX >> 8)) {
355
            /* overflow */
756
            /* overflow */
356
            /* FIXME: errno = ERANGE*/
757
            /* FIXME: errno = ERANGE*/
357
            return ULONG_MAX;
758
            return ULONG_MAX;
358
        }
759
        }
359
   
760
   
360
        result = (b << 8) + (a & 0xff);
761
        result = (b << 8) + (a & 0xff);
361
        ++str;
762
        ++str;
362
    }
763
    }
363
   
764
   
364
    if (str == tmpptr) {
765
    if (str == tmpptr) {
365
        /*
766
        /*
366
         * No number was found => first invalid character is the first
767
         * No number was found => first invalid character is the first
367
         * character of the string.
768
         * character of the string.
368
         */
769
         */
369
        /* FIXME: set errno to EINVAL */
770
        /* FIXME: set errno to EINVAL */
370
        str = nptr;
771
        str = nptr;
371
        result = 0;
772
        result = 0;
372
    }
773
    }
373
   
774
   
374
    if (endptr)
775
    if (endptr)
375
        *endptr = (char *) str;
776
        *endptr = (char *) str;
376
 
777
 
377
    if (nptr == str) {
778
    if (nptr == str) {
378
        /*FIXME: errno = EINVAL*/
779
        /*FIXME: errno = EINVAL*/
379
        return 0;
780
        return 0;
380
    }
781
    }
381
 
782
 
382
    return result;
783
    return result;
383
}
784
}
384
 
785
 
385
/** Convert initial part of string to long int according to given base.
786
/** Convert initial part of string to long int according to given base.
386
 * The number may begin with an arbitrary number of whitespaces followed by
787
 * The number may begin with an arbitrary number of whitespaces followed by
387
 * optional sign (`+' or `-'). If the base is 0 or 16, the prefix `0x' may be
788
 * optional sign (`+' or `-'). If the base is 0 or 16, the prefix `0x' may be
388
 * inserted and the number will be taken as hexadecimal one. If the base is 0
789
 * inserted and the number will be taken as hexadecimal one. If the base is 0
389
 * and the number begin with a zero, number will be taken as octal one (as with
790
 * and the number begin with a zero, number will be taken as octal one (as with
390
 * base 8). Otherwise the base 0 is taken as decimal.
791
 * base 8). Otherwise the base 0 is taken as decimal.
391
 *
792
 *
392
 * @param nptr      Pointer to string.
793
 * @param nptr      Pointer to string.
393
 * @param endptr    If not NULL, function stores here pointer to the first
794
 * @param endptr    If not NULL, function stores here pointer to the first
394
 *          invalid character.
795
 *          invalid character.
395
 * @param base      Zero or number between 2 and 36 inclusive.
796
 * @param base      Zero or number between 2 and 36 inclusive.
396
 * @return      Result of conversion.
797
 * @return      Result of conversion.
397
 */
798
 */
398
long int strtol(const char *nptr, char **endptr, int base)
799
long int strtol(const char *nptr, char **endptr, int base)
399
{
800
{
400
    char sgn = 0;
801
    char sgn = 0;
401
    unsigned long number = 0;
802
    unsigned long number = 0;
402
   
803
   
403
    number = _strtoul(nptr, endptr, base, &sgn);
804
    number = _strtoul(nptr, endptr, base, &sgn);
404
 
805
 
405
    if (number > LONG_MAX) {
806
    if (number > LONG_MAX) {
406
        if ((sgn) && (number == (unsigned long) (LONG_MAX) + 1)) {
807
        if ((sgn) && (number == (unsigned long) (LONG_MAX) + 1)) {
407
            /* FIXME: set 0 to errno */
808
            /* FIXME: set 0 to errno */
408
            return number;     
809
            return number;     
409
        }
810
        }
410
        /* FIXME: set ERANGE to errno */
811
        /* FIXME: set ERANGE to errno */
411
        return (sgn ? LONG_MIN : LONG_MAX);
812
        return (sgn ? LONG_MIN : LONG_MAX);
412
    }
813
    }
413
   
814
   
414
    return (sgn ? -number : number);
815
    return (sgn ? -number : number);
415
}
816
}
416
 
817
 
417
 
818
 
418
/** Convert initial part of string to unsigned long according to given base.
819
/** Convert initial part of string to unsigned long according to given base.
419
 * The number may begin with an arbitrary number of whitespaces followed by
820
 * The number may begin with an arbitrary number of whitespaces followed by
420
 * optional sign (`+' or `-'). If the base is 0 or 16, the prefix `0x' may be
821
 * optional sign (`+' or `-'). If the base is 0 or 16, the prefix `0x' may be
421
 * inserted and the number will be taken as hexadecimal one. If the base is 0
822
 * inserted and the number will be taken as hexadecimal one. If the base is 0
422
 * and the number begin with a zero, number will be taken as octal one (as with
823
 * and the number begin with a zero, number will be taken as octal one (as with
423
 * base 8). Otherwise the base 0 is taken as decimal.
824
 * base 8). Otherwise the base 0 is taken as decimal.
424
 *
825
 *
425
 * @param nptr      Pointer to string.
826
 * @param nptr      Pointer to string.
426
 * @param endptr    If not NULL, function stores here pointer to the first
827
 * @param endptr    If not NULL, function stores here pointer to the first
427
 *          invalid character
828
 *          invalid character
428
 * @param base      Zero or number between 2 and 36 inclusive.
829
 * @param base      Zero or number between 2 and 36 inclusive.
429
 * @return      Result of conversion.
830
 * @return      Result of conversion.
430
 */
831
 */
431
unsigned long strtoul(const char *nptr, char **endptr, int base)
832
unsigned long strtoul(const char *nptr, char **endptr, int base)
432
{
833
{
433
    char sgn = 0;
834
    char sgn = 0;
434
    unsigned long number = 0;
835
    unsigned long number = 0;
435
   
836
   
436
    number = _strtoul(nptr, endptr, base, &sgn);
837
    number = _strtoul(nptr, endptr, base, &sgn);
437
 
838
 
438
    return (sgn ? -number : number);
839
    return (sgn ? -number : number);
439
}
840
}
440
 
841
 
441
char *strcpy(char *dest, const char *src)
842
char *strcpy(char *dest, const char *src)
442
{
843
{
443
    char *orig = dest;
844
    char *orig = dest;
444
   
845
   
445
    while ((*(dest++) = *(src++)))
846
    while ((*(dest++) = *(src++)))
446
        ;
847
        ;
447
    return orig;
848
    return orig;
448
}
849
}
449
 
850
 
450
char *strncpy(char *dest, const char *src, size_t n)
851
char *strncpy(char *dest, const char *src, size_t n)
451
{
852
{
452
    char *orig = dest;
853
    char *orig = dest;
453
   
854
   
454
    while ((*(dest++) = *(src++)) && --n)
855
    while ((*(dest++) = *(src++)) && --n)
455
        ;
856
        ;
456
    return orig;
857
    return orig;
457
}
858
}
458
 
859
 
459
char *strcat(char *dest, const char *src)
860
char *strcat(char *dest, const char *src)
460
{
861
{
461
    char *orig = dest;
862
    char *orig = dest;
462
    while (*dest++)
863
    while (*dest++)
463
        ;
864
        ;
464
    --dest;
865
    --dest;
465
    while ((*dest++ = *src++))
866
    while ((*dest++ = *src++))
466
        ;
867
        ;
467
    return orig;
868
    return orig;
468
}
869
}
469
 
870
 
470
char * strdup(const char *s1)
871
char * strdup(const char *s1)
471
{
872
{
472
    size_t len = strlen(s1) + 1;
873
    size_t len = strlen(s1) + 1;
473
    void *ret = malloc(len);
874
    void *ret = malloc(len);
474
 
875
 
475
    if (ret == NULL)
876
    if (ret == NULL)
476
        return (char *) NULL;
877
        return (char *) NULL;
477
 
878
 
478
    return (char *) memcpy(ret, s1, len);
879
    return (char *) memcpy(ret, s1, len);
479
}
880
}
480
 
881
 
481
char *strtok(char *s, const char *delim)
882
char *strtok(char *s, const char *delim)
482
{
883
{
483
    static char *next;
884
    static char *next;
484
 
885
 
485
    return strtok_r(s, delim, &next);
886
    return strtok_r(s, delim, &next);
486
}
887
}
487
 
888
 
488
char *strtok_r(char *s, const char *delim, char **next)
889
char *strtok_r(char *s, const char *delim, char **next)
489
{
890
{
490
    char *start, *end;
891
    char *start, *end;
491
 
892
 
492
    if (s == NULL)
893
    if (s == NULL)
493
        s = *next;
894
        s = *next;
494
 
895
 
495
    /* Skip over leading delimiters. */
896
    /* Skip over leading delimiters. */
496
    while (*s && (strchr(delim, *s) != NULL)) ++s;
897
    while (*s && (strchr(delim, *s) != NULL)) ++s;
497
    start = s;
898
    start = s;
498
 
899
 
499
    /* Skip over token characters. */
900
    /* Skip over token characters. */
500
    while (*s && (strchr(delim, *s) == NULL)) ++s;
901
    while (*s && (strchr(delim, *s) == NULL)) ++s;
501
    end = s;
902
    end = s;
502
    *next = (*s ? s + 1 : s);
903
    *next = (*s ? s + 1 : s);
503
 
904
 
504
    if (start == end) {
905
    if (start == end) {
505
        return NULL;    /* No more tokens. */
906
        return NULL;    /* No more tokens. */
506
    }
907
    }
507
 
908
 
508
    /* Overwrite delimiter with NULL terminator. */
909
    /* Overwrite delimiter with NULL terminator. */
509
    *end = '\0';
910
    *end = '\0';
510
    return start;
911
    return start;
511
}
912
}
512
 
913
 
513
/** @}
914
/** @}
514
 */
915
 */
515
 
916