home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / gnu / djgpp / libsrc / c / str / strtok.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-06-28  |  2.3 KB  |  83 lines
  1. /* This is file STRTOK.C */
  2. /* This file may have been modified by DJ Delorie (Jan 1991).  If so,
  3. ** these modifications are Coyright (C) 1993 DJ Delorie, 24 Kirsten Ave,
  4. ** Rochester NH, 03867-2954, USA.
  5. */
  6.  
  7. /*
  8.  * Copyright (c) 1988 Regents of the University of California.
  9.  * All rights reserved.
  10.  *
  11.  * Redistribution and use in source and binary forms are permitted
  12.  * provided that: (1) source distributions retain this entire copyright
  13.  * notice and comment, and (2) distributions including binaries display
  14.  * the following acknowledgement:  ``This product includes software
  15.  * developed by the University of California, Berkeley and its contributors''
  16.  * in the documentation or other materials provided with the distribution
  17.  * and in all advertising materials mentioning features or use of this
  18.  * software. Neither the name of the University nor the names of its
  19.  * contributors may be used to endorse or promote products derived
  20.  * from this software without specific prior written permission.
  21.  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  22.  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  23.  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  24.  */
  25.  
  26. #if defined(LIBC_SCCS) && !defined(lint)
  27. static char sccsid[] = "@(#)strtok.c    5.7 (Berkeley) 6/1/90";
  28. #endif /* LIBC_SCCS and not lint */
  29.  
  30. #include <stddef.h>
  31. #include <string.h>
  32.  
  33. char *
  34. strtok(s, delim)
  35.     register char *s;
  36.     register const char *delim;
  37. {
  38.     register char *spanp;
  39.     register int c, sc;
  40.     char *tok;
  41.     static char *last;
  42.  
  43.  
  44.     if (s == NULL && (s = last) == NULL)
  45.         return (NULL);
  46.  
  47.     /*
  48.      * Skip (span) leading delimiters (s += strspn(s, delim), sort of).
  49.      */
  50. cont:
  51.     c = *s++;
  52.     for (spanp = delim; (sc = *spanp++) != 0;) {
  53.         if (c == sc)
  54.             goto cont;
  55.     }
  56.  
  57.     if (c == 0) {        /* no non-delimiter characters */
  58.         last = NULL;
  59.         return (NULL);
  60.     }
  61.     tok = s - 1;
  62.  
  63.     /*
  64.      * Scan token (scan for delimiters: s += strcspn(s, delim), sort of).
  65.      * Note that delim must have one NUL; we stop if we see that, too.
  66.      */
  67.     for (;;) {
  68.         c = *s++;
  69.         spanp = delim;
  70.         do {
  71.             if ((sc = *spanp++) == c) {
  72.                 if (c == 0)
  73.                     s = NULL;
  74.                 else
  75.                     s[-1] = 0;
  76.                 last = s;
  77.                 return (tok);
  78.             }
  79.         } while (sc != 0);
  80.     }
  81.     /* NOTREACHED */
  82. }
  83.