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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
#define _GNU_SOURCE
#include <stdio.h>
#include <stdlib.h>
#include <alloc.h>
#include <dynarr.h>
#include <errors.h>
#include <macros.h>
#include <mbstring.h>
#include <rune.h>
#include <unicode/string.h>
#define TESTFILE "wnext.in"
static bool test(const char8_t *, size_t, int);
static int hexdigits(rune);
int
main(int, char **argv)
{
int rv;
size_t n;
ssize_t nr;
char *line;
FILE *fp;
rv = EXIT_SUCCESS;
line = nullptr;
mlib_setprogname(argv[0]);
if ((fp = fopen(TESTFILE, "r")) == nullptr)
err("fopen: %s:", TESTFILE);
for (int id = 1; (nr = getline(&line, &n, fp)) > 0; id++) {
if (line[nr - 1] == '\n')
line[--nr] = '\0';
if (!test(line, (size_t)nr, id))
rv = EXIT_FAILURE;
}
if (ferror(fp))
err("getline: %s:", TESTFILE);
free(line);
fclose(fp);
return rv;
}
bool
test(const char8_t *line, size_t n, int id)
{
size_t total = 0;
const char8_t *line2 = line;
typedef dynarr(char8_t) word;
dynarr(word) words = {};
do {
rune op, ch;
u8next(&op, &line2, &n);
sscanf(line2, "%" SCNxRUNE, &ch);
int off = hexdigits(ch);
off = MAX(4, off);
line2 += off, n -= off;
char8_t buf[U8_LEN_MAX] = {};
int w = rtou8(buf, sizeof(buf), ch);
total += w;
if (op == U'÷')
DAPUSH(&words, (word){});
DAEXTEND(&words.buf[words.len - 1], buf, w);
} while (n > 0);
size_t off = 0;
char8_t *buf = bufalloc(nullptr, 1, total);
da_foreach (&words, wd) {
memcpy(buf + off, wd->buf, wd->len);
off += wd->len;
}
/* Assert the word count is correct */
size_t words_got = u8wcnt(buf, total);
if (words_got != words.len) {
warn("case %d: expected %zu word(s) but got %zu: ‘%s’", id, words.len,
words_got, line);
return false;
}
/* Assert the individual words are correct */
struct u8view wd;
const char8_t *buf_cpy = buf;
for (size_t i = 0; u8wnext(&wd, &buf_cpy, &total); i++) {
word wd2 = words.buf[i];
if (!u8eq(wd.p, wd.len, wd2.buf, wd2.len)) {
warn("case %d: expected word ‘%.*s’ but got ‘%.*s’", id,
(int)wd2.len, wd2.buf, (int)wd.len, wd.p);
return false;
}
}
da_foreach (&words, wd)
free(wd->buf);
free(words.buf);
free(buf);
return true;
}
int
hexdigits(rune ch)
{
int n = 0;
do {
ch /= 16;
n++;
} while (ch != 0);
return n;
}
|
