tests/bench-mbuiter.c

   1 /* Benchmarks for the mbuiter module.
   2    Copyright (C) 2023-2024 Free Software Foundation, Inc.
   3
   4    This program is free software: you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation, either version 3 of the License, or
   7    (at your option) any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
  16
  17 #include <config.h>
  18
  19 #include <stdlib.h>
  20 #include <string.h>
  21 #include <locale.h>
  22 #include <uchar.h>
  23
  24 #include "bench.h"
  25 #include "bench-multibyte.h"
  26 #include "mbuiter.h"
  27
  28 unsigned long long volatile result;
  29
  30 static void
  31 do_test (char test, int repeat, const char *locale_name, const char *text)
  32 {
  33   printf ("Test %c\n", test);
  34   if (setlocale (LC_ALL, locale_name) != NULL)
  35     {
  36       struct timings_state ts;
  37       timing_start (&ts);
  38
  39       int count;
  40       for (count = 0; count < repeat; count++)
  41         {
  42           unsigned long long sum = 0;
  43           mbui_iterator_t iter;
  44           for (mbui_init (iter, text); mbui_avail (iter); mbui_advance (iter))
  45             {
  46               sum += mbui_cur (iter).wc;
  47             }
  48           result = sum;
  49         }
  50
  51       timing_end (&ts);
  52       timing_output (&ts);
  53     }
  54   else
  55     {
  56       printf ("Skipping test: locale %s not installed.\n", locale_name);
  57     }
  58   printf ("\n");
  59 }
  60
  61 /* Performs some or all of the following tests:
  62      a - ASCII text, C locale
  63      b - ASCII text, UTF-8 locale
  64      c - French text, C locale
  65      d - French text, ISO-8859-1 locale
  66      e - French text, UTF-8 locale
  67      f - Greek text, C locale
  68      g - Greek text, ISO-8859-7 locale
  69      h - Greek text, UTF-8 locale
  70      i - Chinese text, UTF-8 locale
  71      j - Chinese text, GB18030 locale
  72    Pass the tests to be performed as first argument.  */
  73 int
  74 main (int argc, char *argv[])
  75 {
  76   if (argc != 3)
  77     {
  78       fprintf (stderr, "Usage: %s TESTS REPETITIONS\n", argv[0]);
  79       fprintf (stderr, "Example: %s abcdefghij 100000\n", argv[0]);
  80       exit (1);
  81     }
  82
  83   const char *tests = argv[1];
  84   int repeat = atoi (argv[2]);
  85
  86   text_init ();
  87
  88   /* Execute each test.  */
  89   size_t i;
  90   for (i = 0; i < strlen (tests); i++)
  91     {
  92       char test = tests[i];
  93
  94       switch (test)
  95         {
  96         case 'a':
  97           do_test (test, repeat, "C", text_latin_ascii);
  98           break;
  99         case 'b':
 100           do_test (test, repeat, "en_US.UTF-8", text_latin_ascii);
 101           break;
 102         case 'c':
 103           do_test (test, repeat, "C", text_french_iso8859);
 104           break;
 105         case 'd':
 106           do_test (test, repeat, "fr_FR.ISO-8859-1", text_french_iso8859);
 107           break;
 108         case 'e':
 109           do_test (test, repeat, "en_US.UTF-8", text_french_utf8);
 110           break;
 111         case 'f':
 112           do_test (test, repeat, "C", text_greek_iso8859);
 113           break;
 114         case 'g':
 115           do_test (test, repeat, "el_GR.ISO-8859-7", text_greek_iso8859);
 116           break;
 117         case 'h':
 118           do_test (test, repeat, "en_US.UTF-8", text_greek_utf8);
 119           break;
 120         case 'i':
 121           do_test (test, repeat, "en_US.UTF-8", text_chinese_utf8);
 122           break;
 123         case 'j':
 124           do_test (test, repeat, "zh_CN.GB18030", text_chinese_gb18030);
 125           break;
 126         default:
 127           /* Ignore.  */
 128           ;
 129         }
 130     }
 131
 132   return 0;
 133 }