1b528cefcSMark Murray /*
2*ae771770SStanislav Sedov * Copyright (c) 1995, 1996, 1997 Kungliga Tekniska Högskolan
3b528cefcSMark Murray * (Royal Institute of Technology, Stockholm, Sweden).
4b528cefcSMark Murray * All rights reserved.
5b528cefcSMark Murray *
6b528cefcSMark Murray * Redistribution and use in source and binary forms, with or without
7b528cefcSMark Murray * modification, are permitted provided that the following conditions
8b528cefcSMark Murray * are met:
9b528cefcSMark Murray *
10b528cefcSMark Murray * 1. Redistributions of source code must retain the above copyright
11b528cefcSMark Murray * notice, this list of conditions and the following disclaimer.
12b528cefcSMark Murray *
13b528cefcSMark Murray * 2. Redistributions in binary form must reproduce the above copyright
14b528cefcSMark Murray * notice, this list of conditions and the following disclaimer in the
15b528cefcSMark Murray * documentation and/or other materials provided with the distribution.
16b528cefcSMark Murray *
17b528cefcSMark Murray * 3. Neither the name of the Institute nor the names of its contributors
18b528cefcSMark Murray * may be used to endorse or promote products derived from this software
19b528cefcSMark Murray * without specific prior written permission.
20b528cefcSMark Murray *
21b528cefcSMark Murray * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22b528cefcSMark Murray * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23b528cefcSMark Murray * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24b528cefcSMark Murray * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25b528cefcSMark Murray * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26b528cefcSMark Murray * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27b528cefcSMark Murray * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28b528cefcSMark Murray * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29b528cefcSMark Murray * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30b528cefcSMark Murray * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31b528cefcSMark Murray * SUCH DAMAGE.
32b528cefcSMark Murray */
33b528cefcSMark Murray
34b528cefcSMark Murray #include <config.h>
35b528cefcSMark Murray
36b528cefcSMark Murray #include <string.h>
37b528cefcSMark Murray
38b528cefcSMark Murray #include "roken.h"
39b528cefcSMark Murray
40b528cefcSMark Murray #ifndef HAVE_STRTOK_R
41b528cefcSMark Murray
42*ae771770SStanislav Sedov ROKEN_LIB_FUNCTION char * ROKEN_LIB_CALL
strtok_r(char * s1,const char * s2,char ** lasts)43b528cefcSMark Murray strtok_r(char *s1, const char *s2, char **lasts)
44b528cefcSMark Murray {
45b528cefcSMark Murray char *ret;
46b528cefcSMark Murray
47b528cefcSMark Murray if (s1 == NULL)
48b528cefcSMark Murray s1 = *lasts;
49b528cefcSMark Murray while(*s1 && strchr(s2, *s1))
50b528cefcSMark Murray ++s1;
51b528cefcSMark Murray if(*s1 == '\0')
52b528cefcSMark Murray return NULL;
53b528cefcSMark Murray ret = s1;
54b528cefcSMark Murray while(*s1 && !strchr(s2, *s1))
55b528cefcSMark Murray ++s1;
56b528cefcSMark Murray if(*s1)
57b528cefcSMark Murray *s1++ = '\0';
58b528cefcSMark Murray *lasts = s1;
59b528cefcSMark Murray return ret;
60b528cefcSMark Murray }
61b528cefcSMark Murray
62b528cefcSMark Murray #endif /* HAVE_STRTOK_R */
63