1 /* Split a wide string into tokens. 2 Copyright (C) 1999, 2011-2021 Free Software Foundation, Inc. 3 Written by Bruno Haible <bruno@clisp.org>, 1999. 4 5 This file is free software: you can redistribute it and/or modify 6 it under the terms of the GNU Lesser General Public License as 7 published by the Free Software Foundation; either version 3 of the 8 License, or (at your option) any later version. 9 10 This file is distributed in the hope that it will be useful, 11 but WITHOUT ANY WARRANTY; without even the implied warranty of 12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 GNU Lesser General Public License for more details. 14 15 You should have received a copy of the GNU Lesser General Public License 16 along with this program. If not, see <https://www.gnu.org/licenses/>. */ 17 18 wchar_t * 19 wcstok (wchar_t *wcs, const wchar_t *delim, wchar_t **ptr) /* */ 20 { 21 if (wcs == NULL) 22 { 23 wcs = *ptr; 24 if (wcs == NULL) 25 return NULL; /* reminder that end of token sequence has been reached */ 26 } 27 28 /* Skip leading delimiters. */ 29 wcs += wcsspn (wcs, delim); 30 31 /* Found a token? */ 32 if (*wcs == (wchar_t)'\0') 33 { 34 *ptr = NULL; 35 return NULL; 36 } 37 /* Move past the token. */ 38 { 39 wchar_t *token_end = wcspbrk (wcs, delim); 40 if (token_end) 41 { 42 /* NUL-terminate the token. */ 43 *token_end = (wchar_t)'\0'; 44 *ptr = token_end + 1; 45 } 46 else 47 *ptr = NULL; 48 } 49 return wcs; 50 }