New wide char/multibyte char functions from drepper.
[kopensolaris-gnu/glibc.git] / wcsmbs / wcstok.c
1 /* Copyright (C) 1995 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Library General Public License as
6 published by the Free Software Foundation; either version 2 of the
7 License, or (at your option) any later version.
8
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12 Library General Public License for more details.
13
14 You should have received a copy of the GNU Library General Public
15 License along with the GNU C Library; see the file COPYING.LIB.  If
16 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
17 Cambridge, MA 02139, USA.  */
18
19 #include <wcstr.h>
20 #include <errno.h>
21
22
23 static wchar_t *olds = NULL;
24
25 /* Parse WCS into tokens separated by characters in DELIM.
26    If WCS is NULL, the last string wcstok() was called with is
27    used.  */
28 wchar_t *
29 wcstok (wcs, delim)
30     register wchar_t *wcs;
31     register const wchar_t *delim;
32 {
33   wchar_t *token;
34
35   if (wcs == NULL)
36     {
37       if (olds == NULL)
38         {
39           errno = EINVAL;
40           return NULL;
41         }
42       else
43         wcs = olds;
44     }
45
46   /* Scan leading delimiters.  */
47   wcs += wcsspn (wcs, delim);
48   if (*wcs == L'\0')
49     {
50       olds = NULL;
51       return NULL;
52     }
53
54   /* Find the end of the token.  */
55   token = wcs;
56   wcs = wcspbrk (token, delim);
57   if (wcs == NULL)
58     /* This token finishes the string.  */
59     olds = NULL;
60   else
61     {
62       /* Terminate the token and make OLDS point past it.  */
63       *wcs = L'\0';
64       olds = wcs + 1;
65     }
66   return token;
67 }