openbsd-compat/strtok.c

   1 /*
   2  * Copyright (c) 1988 Regents of the University of California.
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  * 3. All advertising materials mentioning features or use of this software
  14  *    must display the following acknowledgement:
  15  *      This product includes software developed by the University of
  16  *      California, Berkeley and its contributors.
  17  * 4. Neither the name of the University nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  */
  33
  34 #include "config.h"
  35
  36 #ifndef HAVE_STRTOK_R
  37
  38 #include "bsd-strtok.h"
  39
  40 #if defined(LIBC_SCCS) && !defined(lint)
  41 static char *rcsid = "$OpenBSD: strtok.c,v 1.3 1999/11/09 11:19:46 art Exp $";
  42 #endif /* LIBC_SCCS and not lint */
  43
  44 #include <string.h>
  45
  46 char *strtok_r(char *s, const char *delim, char **last)
  47 {
  48         register char *spanp;
  49         register int c, sc;
  50         char *tok;
  51
  52         if (s == NULL && (s = *last) == NULL)
  53                 return (NULL);
  54
  55         /*
  56          * Skip (span) leading delimiters (s += strspn(s, delim), sort of).
  57          */
  58 cont:
  59         c = *s++;
  60         for (spanp = (char *)delim; (sc = *spanp++) != 0;) {
  61                 if (c == sc)
  62                         goto cont;
  63         }
  64
  65         if (c == 0) {           /* no non-delimiter characters */
  66                 *last = NULL;
  67                 return (NULL);
  68         }
  69         tok = s - 1;
  70
  71         /*
  72          * Scan token (scan for delimiters: s += strcspn(s, delim), sort of).
  73          * Note that delim must have one NUL; we stop if we see that, too.
  74          */
  75         for (;;) {
  76                 c = *s++;
  77                 spanp = (char *)delim;
  78                 do {
  79                         if ((sc = *spanp++) == c) {
  80                                 if (c == 0)
  81                                         s = NULL;
  82                                 else
  83                                         s[-1] = 0;
  84                                 *last = s;
  85                                 return (tok);
  86                         }
  87                 } while (sc != 0);
  88         }
  89         /* NOTREACHED */
  90 }
  91
  92 #endif /* !HAVE_STRTOK_R */