Mercurial > hg > octave-kai > gnulib-hg
annotate lib/strtok_r.c @ 10780:5c7a68d31801
Add support for Haiku.
| author | Bruno Haible <bruno@clisp.org> |
|---|---|
| date | Mon, 10 Nov 2008 12:37:32 +0100 |
| parents | bbbbbf4cd1c5 |
| children | bc6846876d71 |
| rev | line source |
|---|---|
| 5434 | 1 /* Reentrant string tokenizer. Generic version. |
|
7944
a1d177cd9523
* doc/gnulib-tool.texi (Initial import): Update to match current
Paul Eggert <eggert@cs.ucla.edu>
parents:
7314
diff
changeset
|
2 Copyright (C) 1991,1996-1999,2001,2004,2007 Free Software Foundation, Inc. |
| 5434 | 3 This file is part of the GNU C Library. |
| 4 | |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
7944
diff
changeset
|
5 This program is free software: you can redistribute it and/or modify |
|
5435
93bb789dad4b
Sync with glibc CVS.
Simon Josefsson <simon@josefsson.org>
parents:
5434
diff
changeset
|
6 it under the terms of the GNU General Public License as published by |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
7944
diff
changeset
|
7 the Free Software Foundation; either version 3 of the License, or |
|
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
7944
diff
changeset
|
8 (at your option) any later version. |
| 5434 | 9 |
|
5435
93bb789dad4b
Sync with glibc CVS.
Simon Josefsson <simon@josefsson.org>
parents:
5434
diff
changeset
|
10 This program is distributed in the hope that it will be useful, |
| 5434 | 11 but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
5435
93bb789dad4b
Sync with glibc CVS.
Simon Josefsson <simon@josefsson.org>
parents:
5434
diff
changeset
|
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
93bb789dad4b
Sync with glibc CVS.
Simon Josefsson <simon@josefsson.org>
parents:
5434
diff
changeset
|
13 GNU General Public License for more details. |
| 5434 | 14 |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
7944
diff
changeset
|
15 You should have received a copy of the GNU General Public License |
|
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
7944
diff
changeset
|
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
| 5434 | 17 |
| 7314 | 18 #ifdef HAVE_CONFIG_H |
| 19 # include <config.h> | |
| 20 #endif | |
| 5434 | 21 |
| 22 #include <string.h> | |
| 23 | |
| 24 #undef strtok_r | |
| 25 #undef __strtok_r | |
| 26 | |
| 27 #ifndef _LIBC | |
| 28 # define __strtok_r strtok_r | |
| 29 # define __rawmemchr strchr | |
| 30 #endif | |
| 31 | |
| 32 /* Parse S into tokens separated by characters in DELIM. | |
| 33 If S is NULL, the saved pointer in SAVE_PTR is used as | |
| 34 the next starting point. For example: | |
| 35 char s[] = "-abc-=-def"; | |
| 36 char *sp; | |
| 37 x = strtok_r(s, "-", &sp); // x = "abc", sp = "=-def" | |
| 38 x = strtok_r(NULL, "-=", &sp); // x = "def", sp = NULL | |
| 39 x = strtok_r(NULL, "=", &sp); // x = NULL | |
| 40 // s = "abc\0-def\0" | |
| 41 */ | |
| 42 char * | |
| 43 __strtok_r (char *s, const char *delim, char **save_ptr) | |
| 44 { | |
| 45 char *token; | |
| 46 | |
| 47 if (s == NULL) | |
| 48 s = *save_ptr; | |
| 49 | |
| 50 /* Scan leading delimiters. */ | |
| 51 s += strspn (s, delim); | |
| 52 if (*s == '\0') | |
| 53 { | |
| 54 *save_ptr = s; | |
| 55 return NULL; | |
| 56 } | |
| 57 | |
| 58 /* Find the end of the token. */ | |
| 59 token = s; | |
| 60 s = strpbrk (token, delim); | |
| 61 if (s == NULL) | |
| 62 /* This token finishes the string. */ | |
| 63 *save_ptr = __rawmemchr (token, '\0'); | |
| 64 else | |
| 65 { | |
| 66 /* Terminate the token and make *SAVE_PTR point past it. */ | |
| 67 *s = '\0'; | |
| 68 *save_ptr = s + 1; | |
| 69 } | |
| 70 return token; | |
| 71 } | |
| 72 #ifdef weak_alias | |
| 73 libc_hidden_def (__strtok_r) | |
| 74 weak_alias (__strtok_r, strtok_r) | |
| 75 #endif |