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

   1 // ----------------------------------------------------------------------------
   2 // $Id$
   3 // ----------------------------------------------------------------------------
   4 // Public Domain C Library - http://pdclib.sourceforge.net
   5 // This code is Public Domain. Use, modify, and redistribute at will.
   6 // ----------------------------------------------------------------------------
   7
   8 char * strtok( char * restrict s1, const char * restrict s2 ) { /* TODO */ };
   9
  10 /* PDPC code - unreviewed
  11 {
  12     static char *old = NULL;
  13     char *p;
  14     size_t len;
  15     size_t remain;
  16
  17     if (s1 != NULL) old = s1;
  18     if (old == NULL) return (NULL);
  19     p = old;
  20     len = strspn(p, s2);
  21     remain = strlen(p);
  22     if (remain <= len) { old = NULL; return (NULL); }
  23     p += len;
  24     len = strcspn(p, s2);
  25     remain = strlen(p);
  26     if (remain <= len) { old = NULL; return (p); }
  27     *(p + len) = '\0';
  28     old = p + len + 1;
  29     return (p);
  30 }
  31 */