home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 387b.lha / dice_v2.02 / lib / string / strtok.c < prev   
Encoding:
C/C++ Source or Header  |  1990-05-30  |  495 b   |  41 lines
  1.  
  2. /*
  3.  *  STRTOK.C
  4.  *
  5.  *  (c)Copyright 1990, Matthew Dillon, All Rights Reserved
  6.  */
  7.  
  8. #include <string.h>
  9.  
  10. char *
  11. strtok(cmd, toks)
  12. char *cmd;
  13. const char *toks;
  14. {
  15.     static char *Cmd;
  16.     short i;
  17.     char *ptr;
  18.  
  19.     if (cmd == NULL) {
  20.     cmd = Cmd;
  21.     if (cmd == NULL)
  22.         return(NULL);
  23.     }
  24.  
  25.     /*
  26.      *    skip whitespace
  27.      */
  28.  
  29.     while (*cmd && strchr(toks, *cmd))
  30.     ++cmd;
  31.  
  32.     if (*cmd == 0)
  33.     return(NULL);
  34.  
  35.     if (ptr = strpbrk(cmd, toks))
  36.     *ptr++ = 0;
  37.     Cmd = ptr;
  38.     return(cmd);
  39. }
  40.  
  41.