pd.if.org Git - pdclib.old/blob - functions/string/strtok.c

   1 /* $Id$ */
   2
   3 /* strtok( char *, const char * )
   4
   5    This file is part of the Public Domain C Library (PDCLib).
   6    Permission is granted to use, modify, and / or redistribute at will.
   7 */
   8
   9 #include <string.h>
  10
  11 #ifndef REGTEST
  12
  13 char * strtok( char * _PDCLIB_restrict s1, const char * _PDCLIB_restrict s2 )
  14 {
  15     static char * tmp = NULL;
  16     const char * p = s2;
  17
  18     if ( s1 != NULL )
  19     {
  20         /* new string */
  21         tmp = s1;
  22     }
  23     else
  24     {
  25         /* old string continued */
  26         if ( tmp == NULL )
  27         {
  28             /* No old string, no new string, nothing to do */
  29             return NULL;
  30         }
  31         s1 = tmp;
  32     }
  33
  34     /* skipping leading s2 characters */
  35     while ( *p && *s1 )
  36     {
  37         if ( *s1 == *p )
  38         {
  39             /* found seperator; skip and start over */
  40             ++s1;
  41             p = s2;
  42             continue;
  43         }
  44         ++p;
  45     }
  46
  47     if ( ! *s1 )
  48     {
  49         /* no more to parse */
  50         return ( tmp = NULL );
  51     }
  52
  53     /* skipping non-s2 characters */
  54     tmp = s1;
  55     while ( *tmp )
  56     {
  57         p = s2;
  58         while ( *p )
  59         {
  60             if ( *tmp == *p++ )
  61             {
  62                 /* found seperator; overwrite with '\0', position tmp, return */
  63                 *tmp++ = '\0';
  64                 return s1;
  65             }
  66         }
  67         ++tmp;
  68     }
  69
  70     /* parsed to end of string */
  71     return ( tmp = NULL );
  72 }
  73
  74 #endif
  75
  76 #ifdef TEST
  77 #include <_PDCLIB_test.h>
  78
  79 int main( void )
  80 {
  81     char s[] = "_a_bc__d_";
  82     TESTCASE( strtok( s, "_" ) == &s[1] );
  83     TESTCASE( s[1] == 'a' );
  84     TESTCASE( s[2] == '\0' );
  85     TESTCASE( strtok( NULL, "_" ) == &s[3] );
  86     TESTCASE( s[3] == 'b' );
  87     TESTCASE( s[4] == 'c' );
  88     TESTCASE( s[5] == '\0' );
  89     TESTCASE( strtok( NULL, "_" ) == &s[7] );
  90     TESTCASE( s[6] == '_' );
  91     TESTCASE( s[7] == 'd' );
  92     TESTCASE( s[8] == '\0' );
  93     TESTCASE( strtok( NULL, "_" ) == NULL );
  94     return TEST_RESULTS;
  95 }
  96 #endif