1*f14fb602SLionel Sambuc /* $NetBSD: strtok_r.c,v 1.10 2012/06/25 22:32:46 abs Exp $ */
22fe8fb19SBen Gras
32fe8fb19SBen Gras /*
42fe8fb19SBen Gras * Copyright (c) 1988 Regents of the University of California.
52fe8fb19SBen Gras * All rights reserved.
62fe8fb19SBen Gras *
72fe8fb19SBen Gras * Redistribution and use in source and binary forms, with or without
82fe8fb19SBen Gras * modification, are permitted provided that the following conditions
92fe8fb19SBen Gras * are met:
102fe8fb19SBen Gras * 1. Redistributions of source code must retain the above copyright
112fe8fb19SBen Gras * notice, this list of conditions and the following disclaimer.
122fe8fb19SBen Gras * 2. Redistributions in binary form must reproduce the above copyright
132fe8fb19SBen Gras * notice, this list of conditions and the following disclaimer in the
142fe8fb19SBen Gras * documentation and/or other materials provided with the distribution.
152fe8fb19SBen Gras * 3. Neither the name of the University nor the names of its contributors
162fe8fb19SBen Gras * may be used to endorse or promote products derived from this software
172fe8fb19SBen Gras * without specific prior written permission.
182fe8fb19SBen Gras *
192fe8fb19SBen Gras * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
202fe8fb19SBen Gras * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
212fe8fb19SBen Gras * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
222fe8fb19SBen Gras * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
232fe8fb19SBen Gras * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
242fe8fb19SBen Gras * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
252fe8fb19SBen Gras * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
262fe8fb19SBen Gras * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
272fe8fb19SBen Gras * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
282fe8fb19SBen Gras * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
292fe8fb19SBen Gras * SUCH DAMAGE.
302fe8fb19SBen Gras */
312fe8fb19SBen Gras
322fe8fb19SBen Gras #include <sys/cdefs.h>
332fe8fb19SBen Gras #if defined(LIBC_SCCS) && !defined(lint)
342fe8fb19SBen Gras #if 0
352fe8fb19SBen Gras static char *sccsid = "@(#)strtok.c 5.8 (Berkeley) 2/24/91";
362fe8fb19SBen Gras #else
37*f14fb602SLionel Sambuc __RCSID("$NetBSD: strtok_r.c,v 1.10 2012/06/25 22:32:46 abs Exp $");
382fe8fb19SBen Gras #endif
392fe8fb19SBen Gras #endif /* LIBC_SCCS and not lint */
402fe8fb19SBen Gras
412fe8fb19SBen Gras #include "namespace.h"
422fe8fb19SBen Gras
432fe8fb19SBen Gras #include <assert.h>
442fe8fb19SBen Gras #include <string.h>
452fe8fb19SBen Gras
462fe8fb19SBen Gras #ifdef __weak_alias
__weak_alias(strtok_r,_strtok_r)472fe8fb19SBen Gras __weak_alias(strtok_r,_strtok_r)
482fe8fb19SBen Gras #endif
492fe8fb19SBen Gras
502fe8fb19SBen Gras char *
51*f14fb602SLionel Sambuc strtok_r(char *s, const char *delim, char **lasts)
522fe8fb19SBen Gras {
532fe8fb19SBen Gras const char *spanp;
542fe8fb19SBen Gras int c, sc;
552fe8fb19SBen Gras char *tok;
562fe8fb19SBen Gras
572fe8fb19SBen Gras /* s may be NULL */
582fe8fb19SBen Gras _DIAGASSERT(delim != NULL);
592fe8fb19SBen Gras _DIAGASSERT(lasts != NULL);
602fe8fb19SBen Gras
612fe8fb19SBen Gras if (s == NULL && (s = *lasts) == NULL)
622fe8fb19SBen Gras return (NULL);
632fe8fb19SBen Gras
642fe8fb19SBen Gras /*
652fe8fb19SBen Gras * Skip (span) leading delimiters (s += strspn(s, delim), sort of).
662fe8fb19SBen Gras */
672fe8fb19SBen Gras cont:
682fe8fb19SBen Gras c = *s++;
692fe8fb19SBen Gras for (spanp = delim; (sc = *spanp++) != 0;) {
702fe8fb19SBen Gras if (c == sc)
712fe8fb19SBen Gras goto cont;
722fe8fb19SBen Gras }
732fe8fb19SBen Gras
742fe8fb19SBen Gras if (c == 0) { /* no non-delimiter characters */
752fe8fb19SBen Gras *lasts = NULL;
762fe8fb19SBen Gras return (NULL);
772fe8fb19SBen Gras }
782fe8fb19SBen Gras tok = s - 1;
792fe8fb19SBen Gras
802fe8fb19SBen Gras /*
812fe8fb19SBen Gras * Scan token (scan for delimiters: s += strcspn(s, delim), sort of).
822fe8fb19SBen Gras * Note that delim must have one NUL; we stop if we see that, too.
832fe8fb19SBen Gras */
842fe8fb19SBen Gras for (;;) {
852fe8fb19SBen Gras c = *s++;
862fe8fb19SBen Gras spanp = delim;
872fe8fb19SBen Gras do {
882fe8fb19SBen Gras if ((sc = *spanp++) == c) {
892fe8fb19SBen Gras if (c == 0)
902fe8fb19SBen Gras s = NULL;
912fe8fb19SBen Gras else
922fe8fb19SBen Gras s[-1] = 0;
932fe8fb19SBen Gras *lasts = s;
942fe8fb19SBen Gras return (tok);
952fe8fb19SBen Gras }
962fe8fb19SBen Gras } while (sc != 0);
972fe8fb19SBen Gras }
982fe8fb19SBen Gras /* NOTREACHED */
992fe8fb19SBen Gras }
100