aboutsummaryrefslogtreecommitdiff
path: root/lib/mbstring/u8rchr.c
blob: 47eaa4ce6879eff0a80fc6ccca00688c2c4221b1 (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
#include <stddef.h>
#include <stdint.h>

#include "mbstring.h"

static const 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 p;
	}
	return nullptr;
}

static const 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 H + 1;
	}

	return hw == nw ? H + 1 : nullptr;
}

static const 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 H + 1;
	}

	return hw == nw ? H + 1 : nullptr;
}

static const 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 H + 1;
	}

	return hw == nw ? H + 1 : nullptr;
}

const char8_t *
u8rchr(u8view_t sv, rune ch)
{
	char8_t buf[U8_LEN_MAX];
	int n = rtou8(buf, ch, sizeof(buf));

	if (sv.len < (size_t)n)
		return nullptr;
	switch (n) {
	case 1:
		return memrchr1(sv.p, sv.len, buf);
	case 2:
		return memrchr2(sv.p, sv.len, buf);
	case 3:
		return memrchr3(sv.p, sv.len, buf);
	case 4:
		return memrchr4(sv.p, sv.len, buf);
	}

	unreachable();
}