posix/bug-regex5.c

   1 #include <stdio.h>
   2 #include <string.h>
   3 #include <locale.h>
   4 #include <locale/localeinfo.h>
   5
   6 int
   7 main (void)
   8 {
   9   int32_t table_size, idx, i, found;
  10   const int32_t *symb_table;
  11   const unsigned char *extra;
  12   uint32_t nrules;
  13   char *ca;
  14   union locale_data_value u;
  15
  16   ca = setlocale (LC_ALL, "da_DK.ISO-8859-1");
  17   if (ca == NULL)
  18     {
  19       printf ("cannot set locale: %m\n");
  20       return 1;
  21     }
  22   printf ("current locale : %s\n", ca);
  23
  24   u.string = nl_langinfo (_NL_COLLATE_NRULES);
  25   nrules = u.word;
  26   if (nrules == 0)
  27     {
  28       printf("No rule\n");
  29       return 1;
  30     }
  31
  32   u.string = nl_langinfo (_NL_COLLATE_SYMB_HASH_SIZEMB);
  33   table_size = u.word;
  34   symb_table = (const int32_t *) nl_langinfo (_NL_COLLATE_SYMB_TABLEMB);
  35   extra = (const unsigned char *) nl_langinfo (_NL_COLLATE_SYMB_EXTRAMB);
  36
  37   found = 0;
  38   for (i = 0; i < table_size; ++i)
  39     {
  40       if (symb_table[2 * i] != 0)
  41         {
  42           char elem[256];
  43           idx = symb_table[2 * i + 1];
  44           strncpy (elem, (const char *) (extra + idx + 1), extra[idx]);
  45           elem[extra[idx]] = '\0';
  46           printf ("Found a collating element: %s\n", elem);
  47           ++found;
  48         }
  49     }
  50   if (found == 0)
  51     {
  52       printf ("No collating element!\n");
  53       return 1;
  54     }
  55   else if (found != 4)
  56     {
  57       printf ("expected 4 collating elements, found %d\n", found);
  58       return 1;
  59     }
  60
  61   return 0;
  62 }