usr/src/lib/libc/port/i18n/wstok.c

   1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License (the "License").
   6  * You may not use this file except in compliance with the License.
   7  *
   8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
   9  * or http://www.opensolaris.org/os/licensing.
  10  * See the License for the specific language governing permissions
  11  * and limitations under the License.
  12  *
  13  * When distributing Covered Code, include this CDDL HEADER in each
  14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  15  * If applicable, add the following below this CDDL HEADER, with the
  16  * fields enclosed by brackets "[]" replaced with your own identifying
  17  * information: Portions Copyright [yyyy] [name of copyright owner]
  18  *
  19  * CDDL HEADER END
  20  */
  21
  22 /*
  23  * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
  24  * Use is subject to license terms.
  25  */
  26
  27 /*      Copyright (c) 1986 AT&T */
  28 /*        All Rights Reserved   */
  29
  30 #pragma ident   "%Z%%M% %I%     %E% SMI"
  31
  32 /*
  33  * uses wcspbrk and wcsspn to break string into tokens on
  34  * sequentially subsequent calls. returns WNULL when no
  35  * non-separator characters remain.
  36  * 'subsequent' calls are calls with first argument WNULL.
  37  */
  38
  39 #pragma weak _wstok = wstok
  40
  41 #include "lint.h"
  42 #include "mtlib.h"
  43 #include "mse_int.h"
  44 #include <stdlib.h>
  45 #include <wchar.h>
  46 #include <thread.h>
  47 #include "libc.h"
  48 #include "tsd.h"
  49
  50 #ifndef WNULL
  51 #define WNULL   (wchar_t *)0
  52 #endif
  53
  54 wchar_t *
  55 __wcstok_xpg5(wchar_t *string, const wchar_t *sepset, wchar_t **ptr)
  56 {
  57         wchar_t *q, *r;
  58
  59         /* first or subsequent call */
  60         if ((string == WNULL && (string = *ptr) == 0) ||
  61             (((q = string + wcsspn(string, sepset)) != WNULL) && *q == L'\0'))
  62                 return (WNULL);
  63
  64         /* sepset becomes next string after separator */
  65         if ((r = wcspbrk(q, sepset)) == WNULL)  /* move past token */
  66                 *ptr = 0;       /* indicate this is last token */
  67         else {
  68                 *r = L'\0';
  69                 *ptr = r + 1;
  70         }
  71         return (q);
  72 }
  73
  74
  75 wchar_t *
  76 wcstok(wchar_t *string, const wchar_t *sepset)
  77 {
  78         wchar_t **lasts = tsdalloc(_T_WCSTOK, sizeof (wchar_t *), NULL);
  79
  80         if (lasts == NULL)
  81                 return (NULL);
  82         return (__wcstok_xpg5(string, sepset, lasts));
  83 }
  84
  85 wchar_t *
  86 wstok(wchar_t *string, const wchar_t *sepset)
  87 {
  88         return (wcstok(string, sepset));
  89 }