comparison lwlib/lw_string.c @ 0:2c24602be78f

Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
author lost@l-w.ca
date Wed, 19 Jan 2011 22:27:17 -0700
parents
children 8e25147c2aa8
comparison
equal deleted inserted replaced
-1:000000000000 0:2c24602be78f
1 /*
2 lw_string.c
3
4 Copyright © 2010 William Astle
5
6 This file is part of LWTOOLS.
7
8 LWTOOLS is free software: you can redistribute it and/or modify it under the
9 terms of the GNU General Public License as published by the Free Software
10 Foundation, either version 3 of the License, or (at your option) any later
11 version.
12
13 This program is distributed in the hope that it will be useful, but WITHOUT
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
16 more details.
17
18 You should have received a copy of the GNU General Public License along with
19 this program. If not, see <http://www.gnu.org/licenses/>.
20 */
21
22 #include <string.h>
23 #include <stdlib.h>
24
25 #define ___lw_string_c_seen___
26 #include "lw_alloc.h"
27 #include "lw_string.h"
28
29 char *lw_strdup(const char *s)
30 {
31 char *r;
32
33 if (!s)
34 s = "(null)";
35
36 r = lw_alloc(strlen(s) + 1);
37 strcpy(r, s);
38 return r;
39 }
40
41 char *lw_strndup(const char *s, int len)
42 {
43 char *r;
44 int sl;
45
46 sl = strlen(s);
47 if (sl > len)
48 sl = len;
49
50 r = lw_alloc(sl + 1);
51 memmove(r, s, sl);
52 r[sl] = '\0';
53 return r;
54 }
55
56 char *lw_token(const char *s, int sep, const char **ap)
57 {
58 const char *p;
59 char *r;
60
61 if (!s)
62 return NULL;
63
64 p = strchr(s, sep);
65 if (!p)
66 {
67 if (ap)
68 *ap = NULL;
69 return lw_strdup(s);
70 }
71
72 r = lw_alloc(p - s + 1);
73 strncpy(r, (char *)s, p - s);
74 r[p - s] = '\0';
75
76 if (ap)
77 {
78 while (*p && *p == sep)
79 p++;
80 *ap = p;
81 }
82 return r;
83 }