mirror of
https://github.com/reactos/reactos.git
synced 2024-11-10 00:34:39 +00:00
62 lines
1.1 KiB
C
62 lines
1.1 KiB
C
/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
|
|
#include <precomp.h>
|
|
|
|
#include <string.h>
|
|
#include <internal/tls.h>
|
|
|
|
char** _lasttoken(); /* lasttok.c */
|
|
|
|
/*
|
|
* @implemented
|
|
*/
|
|
char* strtok(char* s, const char* delim)
|
|
{
|
|
const char *spanp;
|
|
int c, sc;
|
|
char *tok;
|
|
#if 1
|
|
char ** lasttoken = _lasttoken();
|
|
#else
|
|
PTHREADDATA ThreadData = GetThreadData();
|
|
char ** lasttoken = &ThreadData->lasttoken;
|
|
#endif
|
|
|
|
if (s == NULL && (s = *lasttoken) == NULL)
|
|
return (NULL);
|
|
|
|
/*
|
|
* Skip (span) leading delimiters (s += strspn(s, delim), sort of).
|
|
*/
|
|
cont:
|
|
c = *s++;
|
|
for (spanp = delim; (sc = *spanp++) != 0;) {
|
|
if (c == sc)
|
|
goto cont;
|
|
}
|
|
|
|
if (c == 0) { /* no non-delimiter characters */
|
|
*lasttoken = NULL;
|
|
return (NULL);
|
|
}
|
|
tok = s - 1;
|
|
|
|
/*
|
|
* Scan token (scan for delimiters: s += strcspn(s, delim), sort of).
|
|
* Note that delim must have one NUL; we stop if we see that, too.
|
|
*/
|
|
for (;;) {
|
|
c = *s++;
|
|
spanp = delim;
|
|
do {
|
|
if ((sc = *spanp++) == c) {
|
|
if (c == 0)
|
|
s = NULL;
|
|
else
|
|
s[-1] = 0;
|
|
*lasttoken = s;
|
|
return (tok);
|
|
}
|
|
} while (sc != 0);
|
|
}
|
|
/* NOTREACHED */
|
|
}
|