From 79e6af86ca526d5fb56af6f6ca3da713e3a5e9f9 Mon Sep 17 00:00:00 2001 From: Thomas Voss Date: Tue, 13 Feb 2024 13:02:28 +0100 Subject: Genesis commit --- vendor/librune/lib/mbstring/rtou8.c | 38 +++++++++++++ vendor/librune/lib/mbstring/u8bspn.c | 22 ++++++++ vendor/librune/lib/mbstring/u8cbspn.c | 20 +++++++ vendor/librune/lib/mbstring/u8chk.c | 21 ++++++++ vendor/librune/lib/mbstring/u8chkr.c | 9 ++++ vendor/librune/lib/mbstring/u8chr.c | 97 ++++++++++++++++++++++++++++++++++ vendor/librune/lib/mbstring/u8cspn.c | 20 +++++++ vendor/librune/lib/mbstring/u8len.c | 13 +++++ vendor/librune/lib/mbstring/u8next.c | 15 ++++++ vendor/librune/lib/mbstring/u8prev.c | 39 ++++++++++++++ vendor/librune/lib/mbstring/u8rchr.c | 87 ++++++++++++++++++++++++++++++ vendor/librune/lib/mbstring/u8rlen.c | 20 +++++++ vendor/librune/lib/mbstring/u8set.c | 24 +++++++++ vendor/librune/lib/mbstring/u8spn.c | 22 ++++++++ vendor/librune/lib/mbstring/u8tor.c | 31 +++++++++++ vendor/librune/lib/mbstring/u8tor_uc.c | 26 +++++++++ vendor/librune/lib/mbstring/u8wdth.c | 13 +++++ 17 files changed, 517 insertions(+) create mode 100644 vendor/librune/lib/mbstring/rtou8.c create mode 100644 vendor/librune/lib/mbstring/u8bspn.c create mode 100644 vendor/librune/lib/mbstring/u8cbspn.c create mode 100644 vendor/librune/lib/mbstring/u8chk.c create mode 100644 vendor/librune/lib/mbstring/u8chkr.c create mode 100644 vendor/librune/lib/mbstring/u8chr.c create mode 100644 vendor/librune/lib/mbstring/u8cspn.c create mode 100644 vendor/librune/lib/mbstring/u8len.c create mode 100644 vendor/librune/lib/mbstring/u8next.c create mode 100644 vendor/librune/lib/mbstring/u8prev.c create mode 100644 vendor/librune/lib/mbstring/u8rchr.c create mode 100644 vendor/librune/lib/mbstring/u8rlen.c create mode 100644 vendor/librune/lib/mbstring/u8set.c create mode 100644 vendor/librune/lib/mbstring/u8spn.c create mode 100644 vendor/librune/lib/mbstring/u8tor.c create mode 100644 vendor/librune/lib/mbstring/u8tor_uc.c create mode 100644 vendor/librune/lib/mbstring/u8wdth.c (limited to 'vendor/librune/lib/mbstring') diff --git a/vendor/librune/lib/mbstring/rtou8.c b/vendor/librune/lib/mbstring/rtou8.c new file mode 100644 index 0000000..1028e7e --- /dev/null +++ b/vendor/librune/lib/mbstring/rtou8.c @@ -0,0 +1,38 @@ +#include + +#include "mbstring.h" + +#include "internal/common.h" + +int +rtou8(char8_t *s, rune ch, size_t n) +{ + if (ch <= _1B_MAX) { + if (n >= 1) + s[0] = ch; + return 1; + } else if (ch <= _2B_MAX) { + if (n >= 2) { + s[0] = (ch >> 6) | 0xC0; + s[1] = (ch & 0x3F) | 0x80; + } + return 2; + } else if (ch <= _3B_MAX) { + if (n >= 3) { + s[0] = (ch >> 12) | 0xE0; + s[1] = ((ch >> 6) & 0x3F) | 0x80; + s[2] = (ch & 0x3F) | 0x80; + } + return 3; + } else if (ch <= _4B_MAX) { + if (n >= 4) { + s[0] = (ch >> 18) | 0xF0; + s[1] = ((ch >> 12) & 0x3F) | 0x80; + s[2] = ((ch >> 6) & 0x3F) | 0x80; + s[3] = (ch & 0x3F) | 0x80; + } + return 4; + } + + unreachable(); +} diff --git a/vendor/librune/lib/mbstring/u8bspn.c b/vendor/librune/lib/mbstring/u8bspn.c new file mode 100644 index 0000000..40964a7 --- /dev/null +++ b/vendor/librune/lib/mbstring/u8bspn.c @@ -0,0 +1,22 @@ +#include "mbstring.h" + +size_t +u8bspn(const char8_t *s, size_t n, const rune *p, size_t m) +{ + rune ch; + size_t k = 0; + + while (u8next(&ch, &s, &n)) { + for (size_t i = 0; i < m; i++) { + if (p[i] == ch) { + k += u8wdth(ch); + goto found; + } + } + + break; +found:; + } + + return k; +} diff --git a/vendor/librune/lib/mbstring/u8cbspn.c b/vendor/librune/lib/mbstring/u8cbspn.c new file mode 100644 index 0000000..9566de4 --- /dev/null +++ b/vendor/librune/lib/mbstring/u8cbspn.c @@ -0,0 +1,20 @@ +#include "mbstring.h" + +size_t +u8cbspn(const char8_t *s, size_t n, const rune *p, size_t m) +{ + rune ch; + size_t k = 0; + + while (u8next(&ch, &s, &n)) { + for (size_t i = 0; i < m; i++) { + if (p[i] == ch) + goto found; + } + + k += u8wdth(ch); + } + +found: + return k; +} diff --git a/vendor/librune/lib/mbstring/u8chk.c b/vendor/librune/lib/mbstring/u8chk.c new file mode 100644 index 0000000..e2d5b1e --- /dev/null +++ b/vendor/librune/lib/mbstring/u8chk.c @@ -0,0 +1,21 @@ +#include "rune.h" +#define _RUNE_NO_MACRO_WRAPPER 1 +#include "mbstring.h" + +#include "internal/common.h" + +char8_t * +u8chk(const char8_t *s, size_t n) +{ + while (n) { + rune ch; + int m = u8tor(&ch, s); + + if (ch == RUNE_ERROR) + return (char8_t *)s; + n -= m; + s += m; + } + + return nullptr; +} diff --git a/vendor/librune/lib/mbstring/u8chkr.c b/vendor/librune/lib/mbstring/u8chkr.c new file mode 100644 index 0000000..2457dda --- /dev/null +++ b/vendor/librune/lib/mbstring/u8chkr.c @@ -0,0 +1,9 @@ +#include "mbstring.h" +#include "rune.h" + +bool +u8chkr(rune ch) +{ + return !((ch >= 0xD800 && ch <= 0xDFFF) || ch == 0xFFFE || ch == 0xFFFF + || ch > RUNE_MAX); +} diff --git a/vendor/librune/lib/mbstring/u8chr.c b/vendor/librune/lib/mbstring/u8chr.c new file mode 100644 index 0000000..008b7d7 --- /dev/null +++ b/vendor/librune/lib/mbstring/u8chr.c @@ -0,0 +1,97 @@ +#include +#include +#include + +#define _RUNE_NO_MACRO_WRAPPER 1 +#include "mbstring.h" + +/* NOTE: The memmem*() functions were taken directly from the memmem() + implementation on OpenBSD. As a result, these functions are licensed under + OpenBSDs 2-Clause BSD License instead of this libraries 0-Clause BSD License. + + The license for these functions is as follows: + + Copyright © 2005–2020 Rich Felker, et al. + + Permission is hereby granted, free of charge, to any person obtaining + a copy of this software and associated documentation files (the + “Software”), to deal in the Software without restriction, including + without limitation the rights to use, copy, modify, merge, publish, + distribute, sublicense, and/or sell copies of the Software, and to + permit persons to whom the Software is furnished to do so, subject to + the following conditions: + + The above copyright notice and this permission notice shall be + included in all copies or substantial portions of the Software. + + THE SOFTWARE IS PROVIDED “AS IS”, WITHOUT WARRANTY OF ANY KIND, + EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF + MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. + IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY + CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, + TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE + SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */ + +static char8_t * +memmem2(const char8_t *h, size_t k, const char8_t *n) +{ + uint16_t hw, nw; + hw = h[0] << 8 | h[1]; + nw = n[0] << 8 | n[1]; + + for (h += 2, k -= 2; k; k--, hw = hw << 8 | *h++) { + if (hw == nw) + return (char8_t *)h - 2; + } + return hw == nw ? (char8_t *)h - 2 : nullptr; +} + +static char8_t * +memmem3(const char8_t *h, size_t k, const char8_t *n) +{ + uint32_t hw, nw; + hw = h[0] << 24 | h[1] << 16 | h[2] << 8; + nw = n[0] << 24 | n[1] << 16 | n[2] << 8; + + for (h += 3, k -= 3; k; k--, hw = (hw | *h++) << 8) { + if (hw == nw) + return (char8_t *)h - 3; + } + return hw == nw ? (char8_t *)h - 3 : nullptr; +} + +static char8_t * +memmem4(const char8_t *h, size_t k, const char8_t *n) +{ + uint32_t hw, nw; + hw = h[0] << 24 | h[1] << 16 | h[2] << 8 | h[3]; + nw = n[0] << 24 | n[1] << 16 | n[2] << 8 | n[3]; + + for (h += 4, k -= 4; k; k--, hw = hw << 8 | *h++) { + if (hw == nw) + return (char8_t *)h - 4; + } + return hw == nw ? (char8_t *)h - 4 : nullptr; +} + +char8_t * +u8chr(const char8_t *s, rune ch, size_t n) +{ + char8_t buf[U8_LEN_MAX]; + int m = rtou8(buf, ch, sizeof(buf)); + + if (n < (size_t)m) + return nullptr; + switch (m) { + case 1: + return memchr(s, ch, n); + case 2: + return memmem2(s, n, buf); + case 3: + return memmem3(s, n, buf); + case 4: + return memmem4(s, n, buf); + } + + unreachable(); +} diff --git a/vendor/librune/lib/mbstring/u8cspn.c b/vendor/librune/lib/mbstring/u8cspn.c new file mode 100644 index 0000000..259095a --- /dev/null +++ b/vendor/librune/lib/mbstring/u8cspn.c @@ -0,0 +1,20 @@ +#include "mbstring.h" + +size_t +u8cspn(const char8_t *s, size_t n, const rune *p, size_t m) +{ + rune ch; + size_t k = 0; + + while (u8next(&ch, &s, &n)) { + for (size_t i = 0; i < m; i++) { + if (p[i] == ch) + goto found; + } + + k++; + } + +found: + return k; +} diff --git a/vendor/librune/lib/mbstring/u8len.c b/vendor/librune/lib/mbstring/u8len.c new file mode 100644 index 0000000..14539e8 --- /dev/null +++ b/vendor/librune/lib/mbstring/u8len.c @@ -0,0 +1,13 @@ +#include "mbstring.h" + +size_t +u8len(const char8_t *s, size_t n) +{ + rune unused; + size_t m = 0; + + while (u8next(&unused, &s, &n)) + m++; + + return m; +} diff --git a/vendor/librune/lib/mbstring/u8next.c b/vendor/librune/lib/mbstring/u8next.c new file mode 100644 index 0000000..4c391f8 --- /dev/null +++ b/vendor/librune/lib/mbstring/u8next.c @@ -0,0 +1,15 @@ +#include "mbstring.h" + +int +u8next(rune *ch, const char8_t **s, size_t *n) +{ + int m = 0; + + if (*n) { + m = u8tor_uc(ch, *s); + *n -= m; + *s += m; + } + + return m; +} diff --git a/vendor/librune/lib/mbstring/u8prev.c b/vendor/librune/lib/mbstring/u8prev.c new file mode 100644 index 0000000..a7b0189 --- /dev/null +++ b/vendor/librune/lib/mbstring/u8prev.c @@ -0,0 +1,39 @@ +#include "mbstring.h" +#include "rune.h" + +#include "internal/common.h" + +int +u8prev(rune *ch, const char8_t **p, const char8_t *start) +{ + int off; + bool match = true; + const char8_t *s = *p; + ptrdiff_t d = s - start; + + if (d <= 0) { + return 0; + } else if (U1(s[-1])) { + *ch = s[-1]; + off = 1; + } else if (d > 1 && UC(s[-1]) && U2(s[-2])) { + *ch = ((s[-2] & 0x1F) << 6) | (s[-1] & 0x3F); + off = 2; + } else if (d > 2 && UC(s[-1]) && UC(s[-2]) && U3(s[-3])) { + *ch = ((s[-3] & 0x0F) << 12) | ((s[-2] & 0x3F) << 6) | (s[-1] & 0x3F); + off = 3; + } else if (d > 3 && UC(s[-1]) && UC(s[-2]) && UC(s[-3]) && U4(s[-4])) { + *ch = ((s[-4] & 0x07) << 18) | ((s[-3] & 0x3F) << 12) + | ((s[-2] & 0x3F) << 6) | (s[-1] & 0x3F); + off = 4; + } else + match = false; + + if (!(match && u8chkr(*ch))) { + *ch = RUNE_ERROR; + off = 1; + } + + *p -= off; + return off; +} diff --git a/vendor/librune/lib/mbstring/u8rchr.c b/vendor/librune/lib/mbstring/u8rchr.c new file mode 100644 index 0000000..b92c323 --- /dev/null +++ b/vendor/librune/lib/mbstring/u8rchr.c @@ -0,0 +1,87 @@ +#include +#include + +#define _RUNE_NO_MACRO_WRAPPER 1 +#include "mbstring.h" + +static char8_t * +memrchr1(const char8_t *s, size_t k, const char8_t *n) +{ + for (const char8_t *p = s + k - 1; k-- > 0; p--) { + if (*p == *n) + return (char8_t *)p; + } + return nullptr; +} + +static char8_t * +memrchr2(const char8_t *h, size_t k, const char8_t *n) +{ + uint16_t hw, nw; + const char8_t *H = h + k - 1; + hw = H[-1] << 8 | H[-0]; + nw = n[+0] << 8 | n[+1]; + + for (H -= 2, k -= 2; k; k--, hw = hw >> 8 | (*H-- << 8)) { + if (hw == nw) + return (char8_t *)H + 1; + } + + return hw == nw ? (char8_t *)H + 1 : nullptr; +} + +static char8_t * +memrchr3(const char8_t *h, size_t k, const char8_t *n) +{ + uint32_t hw, nw; + const char8_t *H = h + k - 1; + hw = H[-2] << 24 | H[-1] << 16 | H[-0] << 8; + nw = n[+0] << 24 | n[+1] << 16 | n[+2] << 8; + + for (H -= 3, k -= 3; k; + k--, hw = (hw >> 8 | (*H-- << 24)) & UINT32_C(0xFFFFFF00)) + { + if (hw == nw) + return (char8_t *)H + 1; + } + + return hw == nw ? (char8_t *)H + 1 : nullptr; +} + +static char8_t * +memrchr4(const char8_t *h, size_t k, const char8_t *n) +{ + uint32_t hw, nw; + const char8_t *H = h + k - 1; + hw = H[-3] << 24 | H[-2] << 16 | H[-1] << 8 | H[-0]; + nw = n[+0] << 24 | n[+1] << 16 | n[+2] << 8 | n[+3]; + + for (H -= 4, k -= 4; k; k--, hw = hw >> 8 | (*H-- << 24)) { + if (hw == nw) + return (char8_t *)H + 1; + } + + return hw == nw ? (char8_t *)H + 1 : nullptr; +} + +char8_t * +u8rchr(const char8_t *s, rune ch, size_t n) +{ + char8_t buf[U8_LEN_MAX]; + int m = rtou8(buf, ch, sizeof(buf)); + + if (n < (size_t)m) + return nullptr; + switch (m) { + case 1: + return (char8_t *)memrchr1(s, n, buf); + case 2: + return (char8_t *)memrchr2(s, n, buf); + case 3: + return (char8_t *)memrchr3(s, n, buf); + case 4: + return (char8_t *)memrchr4(s, n, buf); + } + + unreachable(); +} diff --git a/vendor/librune/lib/mbstring/u8rlen.c b/vendor/librune/lib/mbstring/u8rlen.c new file mode 100644 index 0000000..ac579c7 --- /dev/null +++ b/vendor/librune/lib/mbstring/u8rlen.c @@ -0,0 +1,20 @@ +#include + +#include "mbstring.h" + +#include "internal/common.h" + +int +u8rlen(const char8_t *s) +{ + if (U1(*s)) + return 1; + else if (U2(*s)) + return 2; + else if (U3(*s)) + return 3; + else if (U4(*s)) + return 4; + + unreachable(); +} diff --git a/vendor/librune/lib/mbstring/u8set.c b/vendor/librune/lib/mbstring/u8set.c new file mode 100644 index 0000000..84cf943 --- /dev/null +++ b/vendor/librune/lib/mbstring/u8set.c @@ -0,0 +1,24 @@ +#include + +#include "mbstring.h" + +#include "internal/common.h" + +size_t +u8set(char8_t *s, rune ch, size_t n) +{ + int m; + char8_t buf[U8_LEN_MAX]; + + if (n == 0) + return 0; + if (ch <= _1B_MAX) { + memset(s, ch, n); + return n; + } + m = rtou8(buf, ch, sizeof(buf)); + for (size_t i = 0; i < n; i += m) + memcpy(s + i, buf, m); + + return n - n % m; +} diff --git a/vendor/librune/lib/mbstring/u8spn.c b/vendor/librune/lib/mbstring/u8spn.c new file mode 100644 index 0000000..5f49b0e --- /dev/null +++ b/vendor/librune/lib/mbstring/u8spn.c @@ -0,0 +1,22 @@ +#include "mbstring.h" + +size_t +u8spn(const char8_t *s, size_t n, const rune *p, size_t m) +{ + rune ch; + size_t k = 0; + + while (u8next(&ch, &s, &n)) { + for (size_t i = 0; i < m; i++) { + if (p[i] == ch) { + k++; + goto found; + } + } + + break; +found:; + } + + return k; +} diff --git a/vendor/librune/lib/mbstring/u8tor.c b/vendor/librune/lib/mbstring/u8tor.c new file mode 100644 index 0000000..6f657d9 --- /dev/null +++ b/vendor/librune/lib/mbstring/u8tor.c @@ -0,0 +1,31 @@ +#include "mbstring.h" +#include "rune.h" + +#include "internal/common.h" + +int +u8tor(rune *ch, const char8_t *s) +{ + int n = 0; + + if (U1(s[0])) { + *ch = s[0]; + n = 1; + } else if (U2(s[0]) && UC(s[1])) { + *ch = ((s[0] & 0x1F) << 6) | (s[1] & 0x3F); + n = 2; + } else if (U3(s[0]) && UC(s[1]) && UC(s[2])) { + *ch = ((s[0] & 0x0F) << 12) | ((s[1] & 0x3F) << 6) | (s[2] & 0x3F); + n = 3; + } else if (U4(s[0]) && UC(s[1]) && UC(s[2]) && UC(s[3])) { + *ch = ((s[0] & 0x07) << 18) | ((s[1] & 0x3F) << 12) + | ((s[2] & 0x3F) << 6) | (s[3] & 0x3F); + n = 4; + } + + if (n && u8chkr(*ch)) + return n; + + *ch = RUNE_ERROR; + return 1; +} diff --git a/vendor/librune/lib/mbstring/u8tor_uc.c b/vendor/librune/lib/mbstring/u8tor_uc.c new file mode 100644 index 0000000..da9b206 --- /dev/null +++ b/vendor/librune/lib/mbstring/u8tor_uc.c @@ -0,0 +1,26 @@ +#include + +#include "mbstring.h" + +#include "internal/common.h" + +int +u8tor_uc(rune *ch, const char8_t *s) +{ + if (U1(s[0])) { + *ch = s[0]; + return 1; + } else if (U2(s[0])) { + *ch = ((s[0] & 0x1F) << 6) | (s[1] & 0x3F); + return 2; + } else if (U3(s[0])) { + *ch = ((s[0] & 0x0F) << 12) | ((s[1] & 0x3F) << 6) | (s[2] & 0x3F); + return 3; + } else if (U4(s[0])) { + *ch = ((s[0] & 0x07) << 18) | ((s[1] & 0x3F) << 12) + | ((s[2] & 0x3F) << 6) | (s[3] & 0x3F); + return 4; + } + + unreachable(); +} diff --git a/vendor/librune/lib/mbstring/u8wdth.c b/vendor/librune/lib/mbstring/u8wdth.c new file mode 100644 index 0000000..65fa702 --- /dev/null +++ b/vendor/librune/lib/mbstring/u8wdth.c @@ -0,0 +1,13 @@ +#include "mbstring.h" + +#include "internal/common.h" + +int +u8wdth(rune ch) +{ + return ch <= _1B_MAX ? 1 + : ch <= _2B_MAX ? 2 + : ch <= _3B_MAX ? 3 + : ch <= _4B_MAX ? 4 + : 0; +} -- cgit v1.2.3