maint/gnulib/tests/uniname/test-uninames.c

/* */
This source file includes following definitions.
fill_names
fill_aliases
name_has_alias
test_name_lookup
test_inverse_lookup
test_alias_lookup
main
   1 /* Test the Unicode character name functions.
   2    Copyright (C) 2000-2003, 2005, 2007, 2009-2021 Free Software Foundation,
   3    Inc.
   4 
   5    This program is free software: you can redistribute it and/or modify
   6    it under the terms of the GNU General Public License as published by
   7    the Free Software Foundation; either version 3 of the License, or
   8    (at your option) any later version.
   9 
  10    This program 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
  13    GNU General Public License for more details.
  14 
  15    You should have received a copy of the GNU General Public License
  16    along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
  17 
  18 #include <config.h>
  19 
  20 #include <stdio.h>
  21 #include <stdlib.h>
  22 #include <string.h>
  23 
  24 #include "xalloc.h"
  25 #include "uniname.h"
  26 
  27 /* The names according to the UnicodeData.txt file, modified to contain the
  28    Hangul syllable names, as described in the Unicode 3.0 book.  */
  29 static const char * unicode_names [0x110000];
  30 
  31 /* Maximum entries in unicode_aliases.  */
  32 #define ALIASLEN 0x200
  33 
  34 /* The aliases according to the NameAliases.txt file.  */
  35 struct unicode_alias
  36 {
  37   const char *name;
  38   unsigned int uc;
  39 };
  40 
  41 static struct unicode_alias unicode_aliases [ALIASLEN];
  42 static int aliases_count;
  43 
  44 /* Stores in unicode_names[] the relevant contents of the UnicodeData.txt
  45    file.  */
  46 static void
  47 fill_names (const char *unicodedata_filename)
     /*  */
  48 {
  49   FILE *stream;
  50   char *field0;
  51   char *field1;
  52   char line[1024];
  53   int lineno = 0;
  54 
  55   stream = fopen (unicodedata_filename, "r");
  56   if (stream == NULL)
  57     {
  58       fprintf (stderr, "error during fopen of '%s'\n", unicodedata_filename);
  59       exit (EXIT_FAILURE);
  60     }
  61 
  62   while (fgets (line, sizeof line, stream))
  63     {
  64       char *p;
  65       char *comment;
  66       unsigned long i;
  67 
  68       lineno++;
  69 
  70       comment = strchr (line, '#');
  71       if (comment != NULL)
  72         *comment = '\0';
  73       if (line[strspn (line, " \t\r\n")] == '\0')
  74         continue;
  75 
  76       field0 = p = line;
  77       p = strchr (p, ';');
  78       if (!p)
  79         {
  80           fprintf (stderr, "short line in '%s':%d\n",
  81                    unicodedata_filename, lineno);
  82           exit (EXIT_FAILURE);
  83         }
  84       *p++ = '\0';
  85 
  86       field1 = p;
  87       if (*field1 == '<')
  88         continue;
  89       p = strchr (p, ';');
  90       if (!p)
  91         {
  92           fprintf (stderr, "short line in '%s':%d\n",
  93                    unicodedata_filename, lineno);
  94           exit (EXIT_FAILURE);
  95         }
  96       *p = '\0';
  97       i = strtoul (field0, NULL, 16);
  98       if (i >= 0x110000)
  99         {
 100           fprintf (stderr, "index too large\n");
 101           exit (EXIT_FAILURE);
 102         }
 103       unicode_names[i] = xstrdup (field1);
 104     }
 105   if (ferror (stream) || fclose (stream))
 106     {
 107       fprintf (stderr, "error reading from '%s'\n", unicodedata_filename);
 108       exit (1);
 109     }
 110 }
 111 
 112 /* Stores in unicode_aliases[] the relevant contents of the NameAliases.txt
 113    file.  */
 114 static void
 115 fill_aliases (const char *namealiases_filename)
     /*  */
 116 {
 117   FILE *stream;
 118   char *field0;
 119   char *field1;
 120   char line[1024];
 121   int lineno = 0;
 122 
 123   stream = fopen (namealiases_filename, "r");
 124   if (stream == NULL)
 125     {
 126       fprintf (stderr, "error during fopen of '%s'\n", namealiases_filename);
 127       exit (EXIT_FAILURE);
 128     }
 129 
 130   while (fgets (line, sizeof line, stream))
 131     {
 132       char *p;
 133       char *comment;
 134       unsigned long uc;
 135 
 136       comment = strchr (line, '#');
 137       if (comment != NULL)
 138         *comment = '\0';
 139       if (line[strspn (line, " \t\r\n")] == '\0')
 140         continue;
 141 
 142       lineno++;
 143 
 144       field0 = p = line;
 145       p = strchr (p, ';');
 146       if (!p)
 147         {
 148           fprintf (stderr, "short line in '%s':%d\n",
 149                    namealiases_filename, lineno);
 150           exit (EXIT_FAILURE);
 151         }
 152       *p++ = '\0';
 153 
 154       field1 = p;
 155       p = strchr (p, ';');
 156       if (!p)
 157         {
 158           fprintf (stderr, "short line in '%s':%d\n",
 159                    namealiases_filename, lineno);
 160           exit (EXIT_FAILURE);
 161         }
 162       *p = '\0';
 163 
 164       uc = strtoul (field0, NULL, 16);
 165       if (uc >= 0x110000)
 166         {
 167           fprintf (stderr, "index too large\n");
 168           exit (EXIT_FAILURE);
 169         }
 170 
 171       if (aliases_count == ALIASLEN)
 172         {
 173           fprintf (stderr, "too many aliases\n");
 174           exit (EXIT_FAILURE);
 175         }
 176       unicode_aliases[aliases_count].name = xstrdup (field1);
 177       unicode_aliases[aliases_count].uc = uc;
 178       aliases_count++;
 179     }
 180   if (ferror (stream) || fclose (stream))
 181     {
 182       fprintf (stderr, "error reading from '%s'\n", namealiases_filename);
 183       exit (1);
 184     }
 185 }
 186 
 187 static int
 188 name_has_alias (unsigned int uc)
     /*  */
 189 {
 190   int i;
 191   for (i = 0; i < ALIASLEN; i++)
 192     if (unicode_aliases[i].uc == uc)
 193       return 1;
 194   return 0;
 195 }
 196 
 197 /* Perform an exhaustive test of the unicode_character_name function.  */
 198 static int
 199 test_name_lookup ()
     /*  */
 200 {
 201   int error = 0;
 202   unsigned int i;
 203   char buf[UNINAME_MAX];
 204 
 205   for (i = 0; i < 0x11000; i++)
 206     {
 207       char *result = unicode_character_name (i, buf);
 208 
 209       if (unicode_names[i] != NULL)
 210         {
 211           if (result == NULL)
 212             {
 213               fprintf (stderr, "\\u%04X name lookup failed!\n", i);
 214               error = 1;
 215             }
 216           else if (strcmp (result, unicode_names[i]) != 0)
 217             {
 218               fprintf (stderr, "\\u%04X name lookup returned wrong name: %s\n",
 219                                i, result);
 220               error = 1;
 221             }
 222         }
 223       else
 224         {
 225           if (result != NULL)
 226             {
 227               fprintf (stderr, "\\u%04X name lookup returned wrong name: %s\n",
 228                                i, result);
 229               error = 1;
 230             }
 231         }
 232     }
 233 
 234   for (i = 0x110000; i < 0x1000000; i++)
 235     {
 236       char *result = unicode_character_name (i, buf);
 237 
 238       if (result != NULL)
 239         {
 240           fprintf (stderr, "\\u%04X name lookup returned wrong name: %s\n",
 241                            i, result);
 242           error = 1;
 243         }
 244     }
 245 
 246   return error;
 247 }
 248 
 249 /* Perform a test of the unicode_name_character function.  */
 250 static int
 251 test_inverse_lookup ()
     /*  */
 252 {
 253   int error = 0;
 254   unsigned int i;
 255 
 256   /* First, verify all valid character names are recognized.  */
 257   for (i = 0; i < 0x110000; i++)
 258     if (unicode_names[i] != NULL)
 259       {
 260         unsigned int result = unicode_name_character (unicode_names[i]);
 261         if (result != i)
 262           {
 263             if (result == UNINAME_INVALID)
 264               fprintf (stderr, "inverse name lookup of \"%s\" failed\n",
 265                        unicode_names[i]);
 266             else
 267               fprintf (stderr,
 268                        "inverse name lookup of \"%s\" returned 0x%04X\n",
 269                        unicode_names[i], result);
 270             error = 1;
 271           }
 272       }
 273 
 274   /* Second, generate random but likely names and verify they are not
 275      recognized unless really valid.  */
 276   for (i = 0; i < 10000; i++)
 277     {
 278       unsigned int i1, i2;
 279       const char *s1;
 280       const char *s2;
 281       unsigned int l1, l2, j1, j2;
 282       char buf[2*UNINAME_MAX];
 283       unsigned int result;
 284 
 285       do i1 = ((rand () % 0x11) << 16)
 286               + ((rand () & 0xff) << 8)
 287               + (rand () & 0xff);
 288       while (unicode_names[i1] == NULL);
 289 
 290       do i2 = ((rand () % 0x11) << 16)
 291               + ((rand () & 0xff) << 8)
 292               + (rand () & 0xff);
 293       while (unicode_names[i2] == NULL);
 294 
 295       s1 = unicode_names[i1];
 296       l1 = strlen (s1);
 297       s2 = unicode_names[i2];
 298       l2 = strlen (s2);
 299 
 300       /* Concatenate a starting piece of s1 with an ending piece of s2.  */
 301       for (j1 = 1; j1 <= l1; j1++)
 302         if (j1 == l1 || s1[j1] == ' ')
 303           for (j2 = 0; j2 < l2; j2++)
 304             if (j2 == 0 || s2[j2-1] == ' ')
 305               {
 306                 memcpy (buf, s1, j1);
 307                 buf[j1] = ' ';
 308                 memcpy (buf + j1 + 1, s2 + j2, l2 - j2 + 1);
 309 
 310                 result = unicode_name_character (buf);
 311                 if (result != UNINAME_INVALID
 312                     && !name_has_alias (result)
 313                     && !(unicode_names[result] != NULL
 314                          && strcmp (unicode_names[result], buf) == 0))
 315                   {
 316                     fprintf (stderr,
 317                              "inverse name lookup of \"%s\" returned 0x%04X\n",
 318                              unicode_names[i], result);
 319                     error = 1;
 320                   }
 321               }
 322     }
 323 
 324   /* Third, some extreme case that used to loop.  */
 325   if (unicode_name_character ("A A") != UNINAME_INVALID)
 326     error = 1;
 327 
 328   return error;
 329 }
 330 
 331 /* Perform a test of the unicode_name_character function for aliases.  */
 332 static int
 333 test_alias_lookup ()
     /*  */
 334 {
 335   int error = 0;
 336   unsigned int i;
 337   char buf[UNINAME_MAX];
 338 
 339   /* Verify all valid character names are recognized.  */
 340   for (i = 0; i < ALIASLEN; i++)
 341     if (unicode_aliases[i].uc != UNINAME_INVALID
 342         /* Skip if the character has no canonical name (e.g. control
 343            characters).  */
 344         && unicode_character_name (unicode_aliases[i].uc, buf))
 345       {
 346         unsigned int result = unicode_name_character (unicode_aliases[i].name);
 347         if (result != unicode_aliases[i].uc)
 348           {
 349             if (result == UNINAME_INVALID)
 350               fprintf (stderr, "inverse name lookup of \"%s\" failed\n",
 351                        unicode_aliases[i].name);
 352             else
 353               fprintf (stderr,
 354                        "inverse name lookup of \"%s\" returned 0x%04X\n",
 355                        unicode_aliases[i].name, result);
 356             error = 1;
 357           }
 358       }
 359 
 360   return error;
 361 }
 362 
 363 int
 364 main (int argc, char *argv[])
     /*  */
 365 {
 366   int error = 0;
 367   int i;
 368 
 369   for (i = 1; i < argc && strcmp (argv[i], "--") != 0; i++)
 370     fill_names (argv[i]);
 371 
 372   if (i < argc)
 373     {
 374       int j;
 375       for (j = 0; j < ALIASLEN; j++)
 376         unicode_aliases[j].uc = UNINAME_INVALID;
 377 
 378       i++;
 379       for (; i < argc; i++)
 380         fill_aliases (argv[i]);
 381     }
 382 
 383   error |= test_name_lookup ();
 384   error |= test_inverse_lookup ();
 385 
 386   if (aliases_count > 0)
 387     error |= test_alias_lookup ();
 388 
 389   return error;
 390 }
/* */
root/maint/gnulib/tests/uniname/test-uninames.c

DEFINITIONS
