1 /* Measure strcoll execution time in different locales.
2 Copyright (C) 2015-2023 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <https://www.gnu.org/licenses/>. */
27 #include "bench-timing.h"
30 /* Many thanks to http://generator.lorem-ipsum.info/ */
31 #define INPUT_PREFIX "strcoll-inputs/"
33 static const char *const input_files[] = {
35 "filelist#en_US.UTF-8",
36 "lorem_ipsum#vi_VN.UTF-8",
37 "lorem_ipsum#ar_SA.UTF-8",
38 "lorem_ipsum#en_US.UTF-8",
39 "lorem_ipsum#zh_CN.UTF-8",
40 "lorem_ipsum#cs_CZ.UTF-8",
41 "lorem_ipsum#en_GB.UTF-8",
42 "lorem_ipsum#da_DK.UTF-8",
43 "lorem_ipsum#pl_PL.UTF-8",
44 "lorem_ipsum#fr_FR.UTF-8",
45 "lorem_ipsum#pt_PT.UTF-8",
46 "lorem_ipsum#el_GR.UTF-8",
47 "lorem_ipsum#ru_RU.UTF-8",
48 "lorem_ipsum#he_IL.UTF-8",
49 "lorem_ipsum#es_ES.UTF-8",
50 "lorem_ipsum#hi_IN.UTF-8",
51 "lorem_ipsum#sv_SE.UTF-8",
52 "lorem_ipsum#hu_HU.UTF-8",
53 "lorem_ipsum#tr_TR.UTF-8",
54 "lorem_ipsum#is_IS.UTF-8",
55 "lorem_ipsum#it_IT.UTF-8",
56 "lorem_ipsum#sr_RS.UTF-8",
57 "lorem_ipsum#ja_JP.UTF-8"
60 #define TEXTFILE_DELIMITER " \n\r\t.,?!"
63 read_file (const char *filename)
67 int fd = open (filename, O_CLOEXEC);
71 if (fstat (fd, &stats) == 0)
73 buffer = malloc (stats.st_size + 1);
76 if (read (fd, buffer, stats.st_size) == stats.st_size)
77 buffer[stats.st_size] = '\0';
92 count_words (const char *text, const char *delim)
95 char *tmp = strdup (text);
97 char *token = strtok (tmp, delim);
102 token = strtok (NULL, delim);
116 new_word_list (size_t size)
118 word_list *list = malloc (sizeof (word_list));
119 assert (list != NULL);
121 list->words = malloc (size * sizeof (char *));
122 assert (list->words != NULL);
127 str_word_list (const char *str, const char *delim)
130 word_list *list = new_word_list (count_words (str, delim));
132 char *toks = strdup (str);
133 char *word = strtok (toks, delim);
134 while (word != NULL && n < list->size)
137 list->words[n++] = strdup (word);
138 word = strtok (NULL, delim);
146 copy_word_list (const word_list *list)
149 word_list *copy = new_word_list (list->size);
151 for (i = 0; i < list->size; i++)
152 copy->words[i] = strdup (list->words[i]);
158 free_word_list (word_list *list)
161 for (i = 0; i < list->size; i++)
162 free (list->words[i]);
169 compare_words (const void *a, const void *b)
171 const char *s1 = *(char **) a;
172 const char *s2 = *(char **) b;
173 return strcoll (s1, s2);
176 #undef INNER_LOOP_ITERS
177 #define INNER_LOOP_ITERS 16
180 bench_list (json_ctx_t *json_ctx, word_list *list)
183 timing_t start, stop, cur;
185 word_list **tests = malloc (INNER_LOOP_ITERS * sizeof (word_list *));
186 assert (tests != NULL);
187 for (i = 0; i < INNER_LOOP_ITERS; i++)
188 tests[i] = copy_word_list (list);
191 for (i = 0; i < INNER_LOOP_ITERS; i++)
192 qsort (tests[i]->words, tests[i]->size, sizeof (char *), compare_words);
195 TIMING_DIFF (cur, start, stop);
196 setlocale (LC_ALL, "en_US.UTF-8");
197 json_attr_double (json_ctx, "duration", cur);
198 json_attr_double (json_ctx, "iterations", i);
199 json_attr_double (json_ctx, "mean", (double) cur / i);
201 for (i = 0; i < INNER_LOOP_ITERS; i++)
202 free_word_list (tests[i]);
215 bench_file (json_ctx_t *json_ctx, const char *testname, const char *filename,
218 if (setlocale (LC_ALL, locale) == NULL)
221 char *text = read_file (filename);
225 word_list *list = str_word_list (text, TEXTFILE_DELIMITER);
227 json_attr_object_begin (json_ctx, testname);
228 bench_list (json_ctx, list);
229 json_attr_object_end (json_ctx);
231 free_word_list (list);
239 json_ctx_t *json_ctx = malloc (sizeof (json_ctx_t));
240 assert (json_ctx != NULL);
241 json_init (json_ctx, 2, stdout);
242 json_attr_object_begin (json_ctx, "strcoll");
245 result_t result = OK;
246 for (i = 0; i < (sizeof (input_files) / sizeof (input_files[0])); i++)
248 char *locale = strchr (input_files[i], '#');
251 printf ("Failed to get locale from filename %s, aborting!\n",
253 return ERROR_FILENAME;
257 asprintf (&filename, INPUT_PREFIX "%s", input_files[i]);
258 result = bench_file (json_ctx, input_files[i], filename, locale + 1);
262 if (result == ERROR_LOCALE)
263 printf ("Failed to set locale %s, aborting!\n", locale);
264 else if (result == ERROR_IO)
265 printf ("Failed to read file %s, aborting!\n", filename);
273 json_attr_object_end (json_ctx);