compiler/stdc/strsep.c

   1 /*
   2     Copyright © 2004-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     BSD function strsep().
   6 */
   7
   8 /*****************************************************************************
   9
  10     NAME */
  11 #include <string.h>
  12
  13         char * strsep (
  14
  15 /*  SYNOPSIS */
  16         char       ** strptr,
  17         const char * sep)
  18
  19 /*  FUNCTION
  20         Separates a string by the characters in sep.
  21
  22     INPUTS
  23         str - The string to check or NULL if the next word in
  24                 the last string is to be searched.
  25         sep - Characters which separate "words" in str.
  26
  27     RESULT
  28         The first word in str or the next one if str is NULL.
  29
  30     NOTES
  31         The function changes str !
  32
  33     EXAMPLE
  34         char buffer[64];
  35         char **bufptr
  36
  37         strcpy (buffer, "Hello, this is a test.");
  38         *bufptr = buffer
  39
  40         // First word. Returns "Hello"
  41         strtok (bufptr, " \t,.");
  42
  43         // Next word. Returns "this"
  44         strtok (bufptr, " \t,.");
  45
  46         // Next word. Returns "is"
  47         strtok (bufptr, " \t");
  48
  49         // Next word. Returns "a"
  50         strtok (bufptr, " \t");
  51
  52         // Next word. Returns "test."
  53         strtok (bufptr, " \t");
  54
  55         // Next word. Returns NULL.
  56         strtok (bufptr, " \t");
  57
  58     BUGS
  59
  60     SEE ALSO
  61
  62     INTERNALS
  63
  64 ******************************************************************************/
  65 {
  66     char * retval;
  67
  68     if (*strptr == NULL)
  69         return NULL;
  70
  71     *strptr += strspn (*strptr, sep);
  72
  73     if (**strptr == '\0')
  74     {
  75         *strptr = NULL;
  76         return NULL;
  77     }
  78     else
  79         retval = *strptr;
  80
  81     *strptr += strcspn (*strptr, sep);
  82
  83     if (**strptr != '\0')
  84         *(*strptr) ++ = '\0';
  85     else
  86         *strptr = NULL;
  87
  88     return retval;
  89 } /* strsep */