summary refs log tree commit diff
path: root/locale/monetary.c
blob: 2683eb2bf060acfd33937b998798953be7b05b4b (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
/* 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:
 */