wcstok.c 3.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293
  1. /* $OpenBSD: wcstok.c,v 1.3 2005/08/08 08:05:37 espie Exp $ */
  2. /* $NetBSD: wcstok.c,v 1.3 2003/07/10 08:50:48 tshiozak Exp $ */
  3. /*-
  4. * Copyright (c) 1998 Softweyr LLC. All rights reserved.
  5. *
  6. * strtok_r, from Berkeley strtok
  7. * Oct 13, 1998 by Wes Peters <wes@softweyr.com>
  8. *
  9. * Copyright (c) 1988, 1993
  10. * The Regents of the University of California. All rights reserved.
  11. *
  12. * Redistribution and use in source and binary forms, with or without
  13. * modification, are permitted provided that the following conditions
  14. * are met:
  15. * 1. Redistributions of source code must retain the above copyright
  16. * notices, this list of conditions and the following disclaimer.
  17. * 2. Redistributions in binary form must reproduce the above copyright
  18. * notices, this list of conditions and the following disclaimer in the
  19. * documentation and/or other materials provided with the distribution.
  20. * 3. All advertising materials mentioning features or use of this software
  21. * must display the following acknowledgement:
  22. * This product includes software developed by Softweyr LLC, the
  23. * University of California, Berkeley, and its contributors.
  24. * 4. Neither the name of the University nor the names of its contributors
  25. * may be used to endorse or promote products derived from this software
  26. * without specific prior written permission.
  27. *
  28. * THIS SOFTWARE IS PROVIDED BY SOFTWEYR LLC, THE REGENTS AND CONTRIBUTORS
  29. * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  30. * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
  31. * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SOFTWEYR LLC, THE
  32. * REGENTS, OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  33. * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
  34. * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
  35. * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
  36. * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
  37. * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  38. * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  39. *
  40. * Original version ID:
  41. * FreeBSD: src/lib/libc/string/wcstok.c,v 1.1 2002/09/07 08:16:57 tjr Exp
  42. */
  43. #include <wchar.h>
  44. wchar_t *
  45. wcstok(wchar_t * __restrict s, const wchar_t * __restrict delim,
  46. wchar_t ** __restrict last)
  47. {
  48. const wchar_t *spanp;
  49. wchar_t c, sc;
  50. wchar_t *tok;
  51. if (s == NULL && (s = *last) == NULL)
  52. return (NULL);
  53. /*
  54. * Skip (span) leading delimiters (s += wcsspn(s, delim), sort of).
  55. */
  56. cont:
  57. c = *s++;
  58. for (spanp = delim; (sc = *spanp++) != L'\0';) {
  59. if (c == sc)
  60. goto cont;
  61. }
  62. if (c == L'\0') { /* no non-delimiter characters */
  63. *last = NULL;
  64. return (NULL);
  65. }
  66. tok = s - 1;
  67. /*
  68. * Scan token (scan for delimiters: s += wcscspn(s, delim), sort of).
  69. * Note that delim must have one NUL; we stop if we see that, too.
  70. */
  71. for (;;) {
  72. c = *s++;
  73. spanp = delim;
  74. do {
  75. if ((sc = *spanp++) == c) {
  76. if (c == L'\0')
  77. s = NULL;
  78. else
  79. s[-1] = L'\0';
  80. *last = s;
  81. return (tok);
  82. }
  83. } while (sc != L'\0');
  84. }
  85. /* NOTREACHED */
  86. }