1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
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;
}
|