xref: /minix3/lib/libc/string/strtok_r.c (revision f14fb602092e015ff630df58e17c2a9cd57d29b3)
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