cc65/libsrc/common/strtok.c

/*
** strtok.c
**
** Ullrich von Bassewitz, 11.12.1998
*/



#include <string.h>



/*****************************************************************************/
/*                                   Data                                    */
/*****************************************************************************/



/* Memory location that holds the last input */
static char* Last = 0;



/*****************************************************************************/
/*                                   Code                                    */
/*****************************************************************************/



char* __fastcall__ strtok (register char* s1, const char* s2)
{
    char c;
    char* start;

    /* Use the stored location if called with a NULL pointer */
    if (s1 == 0) {
        s1 = Last;
    }

    /* If s1 is empty, there are no more tokens. Return 0 in this case. */
    if (*s1 == '\0') {
        return 0;
    }

    /* Search the address of the first element in s1 that equals none
    ** of the characters in s2.
    */
    while ((c = *s1) && strchr (s2, c) != 0) {
        ++s1;
    }
    if (c == '\0') {
        /* No more tokens found */
        Last = s1;
        return 0;
    }

    /* Remember the start of the token */
    start = s1;

    /* Search for the end of the token */
    while ((c = *s1) && strchr (s2, c) == 0) {
        ++s1;
    }
    if (c == '\0') {
        /* Last element */
        Last = s1;
    } else {
        *s1 = '\0';
        Last = s1 + 1;
    }

    /* Return the start of the token */
    return start;
}