1 files changed, 174 insertions, 0 deletions

diff --git a/private/crt32/string/wcstok.c b/private/crt32/string/wcstok.c
new file mode 100644
index 000000000..4d1c324ae
--- /dev/null
+++ b/private/crt32/string/wcstok.c
@@ -0,0 +1,174 @@
+/***
+*wcstok.c - tokenize a wide-character string with given delimiters
+*
+*	Copyright (c) 1989-1993, Microsoft Corporation. All rights reserved.
+*
+*Purpose:
+*	defines wcstok() - breaks wide-character string into series of token
+*	via repeated calls.
+*
+*Revision History:
+*	09-09-91   ETC	Created from strtok.c.
+*	08-17-92   KRS	Activate multithread support.
+*	02-17-93   GJF	Changed for new _getptd().
+*
+*******************************************************************************/
+
+#include <cruntime.h>
+#include <string.h>
+#ifdef	MTHREAD
+#include <os2dll.h>
+#endif
+
+/***
+*wchar_t *wcstok(string, control) - tokenize string with delimiter in control
+*	(wide-characters)
+*
+*Purpose:
+*	wcstok considers the string to consist of a sequence of zero or more
+*	text tokens separated by spans of one or more control chars. the first
+*	call, with string specified, returns a pointer to the first wchar_t of
+*	the first token, and will write a null wchar_t into string immediately
+*	following the returned token. subsequent calls with zero for the first
+*	argument (string) will work thru the string until no tokens remain. the
+*	control string may be different from call to call. when no tokens remain
+*	in string a NULL pointer is returned. remember the control chars with a
+*	bit map, one bit per wchar_t. the null wchar_t is always a control char
+*	(wide-characters).
+*
+*Entry:
+*	wchar_t *string - wchar_t string to tokenize, or NULL to get next token
+*	wchar_t *control - wchar_t string of characters to use as delimiters
+*
+*Exit:
+*	returns pointer to first token in string, or if string
+*	was NULL, to next token
+*	returns NULL when no more tokens remain.
+*
+*Uses:
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+wchar_t * _CRTAPI1 wcstok (
+	wchar_t * string,
+	const wchar_t * control
+	)
+{
+	wchar_t *token;
+	const wchar_t *ctl;
+
+#ifdef	MTHREAD
+
+#ifdef	_CRUISER_
+
+	struct _tiddata * tdata;
+
+	tdata = _gettidtab();	/* init tid's data address */
+
+#else	/* ndef _CRUISER_ */
+
+#ifdef	_WIN32_
+
+	_ptiddata ptd = _getptd();
+
+#else	/* ndef _WIN32_ */
+
+#error ERROR - ONLY CRUISER OR WIN32 TARGET SUPPORTED!
+
+#endif	/* _WIN32_ */
+
+#endif	/* _CRUISER_ */
+
+#else
+
+	static wchar_t *nextoken;
+
+#endif
+
+	/* If string==NULL, continue with previous string */
+	if (!string)
+
+#ifdef	MTHREAD
+
+#ifdef	_CRUISER_
+
+		string = tdata->_wtoken;
+
+#else	/* ndef _CRUISER_ */
+
+#ifdef	_WIN32_
+
+		string = ptd->_wtoken;
+
+#else	/* ndef _WIN32_ */
+
+#error ERROR - ONLY CRUISER OR WIN32 TARGET SUPPORTED!
+
+#endif	/* _WIN32_ */
+
+#endif	/* _CRUISER_ */
+
+#else
+
+		string = nextoken;
+
+#endif
+
+	/* Find beginning of token (skip over leading delimiters). Note that
+	 * there is no token iff this loop sets string to point to the terminal
+	 * null (*string == '\0') */
+
+	while (*string) {
+		for (ctl=control; *ctl && *ctl != *string; ctl++)
+			;
+		if (!*ctl) break;
+		string++;
+	}
+
+	token = string;
+
+	/* Find the end of the token. If it is not the end of the string,
+	 * put a null there. */
+	for ( ; *string ; string++ ) {
+		for (ctl=control; *ctl && *ctl != *string; ctl++)
+			;
+		if (*ctl) {
+			*string++ = '\0';
+			break;
+		}
+	}
+
+	/* Update nextoken (or the corresponding field in the per-thread data
+	 * structure */
+#ifdef	MTHREAD
+
+#ifdef _CRUISER_
+
+	tdata->_wtoken = string;
+
+#else	/* _CRUISER_ */
+
+#ifdef	_WIN32_
+
+	ptd->_wtoken = string;
+
+#else	/* ndef _WIN32_ */
+
+#error ERROR - ONLY CRUISER OR WIN32 TARGET SUPPORTED!
+
+#endif	/* _WIN32_ */
+
+#endif	/* _CRUISER_ */
+
+#else
+	nextoken = string;
+#endif
+
+	/* Determine if a token has been found. */
+	if ( token == string )
+		return NULL;
+	else
+		return token;
+}