glibc/posix/bug-regex5.c
Roland McGrath 5d0bbaaf3a * scripts/abilist.awk: Grok function descriptor symbols.
* intl/tst-gettext.c (main): Check return values from setlocale.
	Add necessary unsetenv's to make LANG=existing-locale check work.

	* intl/tst-gettext.sh: Use mkdir -p.  Copy test files unconditionally,
	so aborted prior runs don't confuse things.

	* locale/localeinfo.h (struct locale_data: union locale_data_value):
	Use uintptr_t instead of unsigned int for `word' member.
	(_NL_CURRENT_WORD): Cast to uint32_t.

	* posix/bug-regex5.c (main): Use union to extract _NL_COLLATE_NRULES
	value.
2002-11-21 03:41:31 +00:00

63 lines
1.3 KiB
C

#include <stdio.h>
#include <string.h>
#include <locale.h>
#include <locale/localeinfo.h>
int
main (void)
{
int32_t table_size, idx, i, found;
const int32_t *symb_table;
const unsigned char *extra;
uint32_t nrules;
char *ca;
union locale_data_value u;
ca = setlocale (LC_ALL, "da_DK.ISO-8859-1");
if (ca == NULL)
{
printf ("cannot set locale: %m\n");
return 1;
}
printf ("current locale : %s\n", ca);
u.string = nl_langinfo (_NL_COLLATE_NRULES);
nrules = u.word;
if (nrules == 0)
{
printf("No rule\n");
return 1;
}
u.string = nl_langinfo (_NL_COLLATE_SYMB_HASH_SIZEMB);
table_size = u.word;
symb_table = (const int32_t *) nl_langinfo (_NL_COLLATE_SYMB_TABLEMB);
extra = (const unsigned char *) nl_langinfo (_NL_COLLATE_SYMB_EXTRAMB);
found = 0;
for (i = 0; i < table_size; ++i)
{
if (symb_table[2 * i] != 0)
{
char elem[256];
idx = symb_table[2 * i + 1];
strncpy (elem, extra + idx + 1, extra[idx]);
elem[extra[idx]] = '\0';
printf ("Found a collating element: %s\n", elem);
++found;
}
}
if (found == 0)
{
printf ("No collating element!\n");
return 1;
}
else if (found != 4)
{
printf ("expected 4 collating elements, found %d\n", found);
return 1;
}
return 0;
}