aboutsummaryrefslogtreecommitdiff
path: root/lib/mbstring/u8rchr.c
blob: df6be06cd6a1a2ab836737f9057b89483e1b084e (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
#include <stddef.h>
#include <stdint.h>

#define __MLIB_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, size_t n, rune ch)
{
	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();
}