glibc/locale/monetary.c

133 lines
3.8 KiB
C
Raw Normal View History

/* Copyright (C) 1995 Free Software Foundation, Inc.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.
The GNU C Library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with the GNU C Library; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#include <langinfo.h>
#include <libintl.h>
#include <stdlib.h>
#include <string.h>
#include "localedef.h"
#include "token.h"
/* The content iof the field int_curr_symbol has to be taken from
ISO-4217. We test for correct values. */
#define DEFINE_INT_CURR(str) str,
static const char *const valid_int_curr[] =
{
# include "iso-4217.def"
};
#define NVALID_INT_CURR ((sizeof (valid_int_curr) \
/ sizeof (valid_int_curr[0])))
#undef DEFINE_INT_CURR
/* These are defined in locfile-parse.c. */
extern struct cat_item LC_MONETARY_desc[];
extern char *LC_MONETARY_values[];
static int _curr_strcmp(const char *s1, const char **s2);
void
monetary_check(void)
{
int item_no, val;
for (item_no = 0; LC_MONETARY_desc[item_no].item_id != 0; ++item_no)
/* Test whether the entry has been defined. Byte values are simply
stored. */
if (LC_MONETARY_values[item_no] == NULL)
{
int errcode;
errcode = LC_MONETARY_desc[item_no].status = std ? 5 : 0;
error (errcode, 0, gettext ("item `%s' of category `%s' undefined"),
LC_MONETARY_desc[item_no].name, "LC_MONETARY");
}
else
switch (LC_MONETARY_desc[item_no].item_id)
{
case INT_CURR_SYMBOL:
if (strlen (LC_MONETARY_values[item_no]) != 4)
error (0, 0,
gettext ("item `%s' of category `%s' has wrong length"),
LC_MONETARY_desc[item_no].name, "LC_MONETARY");
else if (bsearch (LC_MONETARY_values[item_no], valid_int_curr,
NVALID_INT_CURR, sizeof (char *),
(comparison_fn_t) _curr_strcmp) == NULL)
error (0, 0, gettext ("item `%s' does not correspond to any "
"valid name in ISO-4217"),
LC_MONETARY_desc[item_no].name);
break;
case P_CS_PRECEDES:
case P_SEP_BY_SPACE:
case N_CS_PRECEDES:
case N_SEP_BY_SPACE:
case P_SIGN_POSN:
case N_SIGN_POSN:
val = (int) *(char *) LC_MONETARY_values[item_no];
if (val < LC_MONETARY_desc[item_no].min
|| val > LC_MONETARY_desc[item_no].max)
error (0, 0, gettext ("value for item `%s' in category `%s' "
"must be in range %d...%d"),
LC_MONETARY_desc[item_no].name, "LC_MONETARY",
LC_MONETARY_desc[item_no].min,
LC_MONETARY_desc[item_no].max);
break;
case MON_DECIMAL_POINT:
/* The decimal point must not be empty. This is not said
explicitly in POSIX but ANSI C (ISO/IEC 9899) says in
4.4.2.1 it has to be != "". */
if (LC_MONETARY_values[item_no][0] == '\0')
error (0, 0,
gettext ("item `%s' in category `%s' must not be empty"),
LC_MONETARY_desc[item_no].name, "LC_MONETARY");
break;
case CURRENCY_SYMBOL:
case MON_THOUSANDS_SEP:
case MON_GROUPING:
case POSITIVE_SIGN:
case NEGATIVE_SIGN:
case INT_FRAC_DIGITS:
case FRAC_DIGITS:
/* Everything is ok for these values. */
break;
default:
error (5, 0, gettext ("Internal error in %s, line %u"),
__FUNCTION__, __LINE__);
/* NOTREACHED */
}
}
static int
_curr_strcmp(const char *s1, const char **s2)
{
return strcmp (s1, *s2);
}
/*
* Local Variables:
* mode:c
* c-basic-offset:2
* End:
*/