jcs.org
mutt stable branch with some hacks
1/* Reentrant string tokenizer. Generic version.
2 Copyright (C) 1991,1996-1999,2001,2004 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
9
10 The GNU C Library 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 GNU
13 Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
18 02111-1307 USA. */
19
20#include <string.h>
21
22/* Taken from glibc 2.6.1 */
23
24/* Parse S into tokens separated by characters in DELIM.
25 If S is NULL, the saved pointer in SAVE_PTR is used as
26 the next starting point. For example:
27 char s[] = "-abc-=-def";
28 char *sp;
29 x = strtok_r(s, "-", &sp); // x = "abc", sp = "=-def"
30 x = strtok_r(NULL, "-=", &sp); // x = "def", sp = NULL
31 x = strtok_r(NULL, "=", &sp); // x = NULL
32 // s = "abc\0-def\0"
33*/
34char *
35strtok_r (char *s, const char *delim, char **save_ptr)
36{
37 char *token;
38
39 if (s == NULL)
40 s = *save_ptr;
41
42 /* Scan leading delimiters. */
43 s += strspn (s, delim);
44 if (*s == '\0')
45 {
46 *save_ptr = s;
47 return NULL;
48 }
49
50 /* Find the end of the token. */
51 token = s;
52 s = strpbrk (token, delim);
53 if (s == NULL)
54 /* This token finishes the string. */
55 *save_ptr = strchr (token, '\0');
56 else
57 {
58 /* Terminate the token and make *SAVE_PTR point past it. */
59 *s = '\0';
60 *save_ptr = s + 1;
61 }
62 return token;
63}