1 /*
2 * Copyright 2010 Nexenta Systems, Inc. All rights reserved.
3 * Copyright (c) 2000, 2001 Alexey Zelkin <phantom@FreeBSD.org>
4 * All rights reserved.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 * notice, this list of conditions and the following disclaimer in the
13 * documentation and/or other materials provided with the distribution.
14 *
15 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
16 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25 * SUCH DAMAGE.
26 */
27
28 #include "lint.h"
29 #include <limits.h>
30 #include <stddef.h>
31 #include <stdlib.h>
32 #include "ldpart.h"
33 #include "lmonetary.h"
34
35 extern int __mlocale_changed;
36 extern const char *__fix_locale_grouping_str(const char *);
37
38 #define LCMONETARY_SIZE_FULL (sizeof (struct lc_monetary_T) / sizeof (char *))
39 #define LCMONETARY_SIZE_MIN \
40 (offsetof(struct lc_monetary_T, int_p_cs_precedes) / sizeof (char *))
41
42 static char empty[] = "";
43 static char numempty[] = { CHAR_MAX, '\0' };
44
45 static const struct lc_monetary_T _C_monetary_locale = {
46 empty, /* int_curr_symbol */
47 empty, /* currency_symbol */
48 empty, /* mon_decimal_point */
49 empty, /* mon_thousands_sep */
50 numempty, /* mon_grouping */
51 empty, /* positive_sign */
52 empty, /* negative_sign */
53 numempty, /* int_frac_digits */
54 numempty, /* frac_digits */
55 numempty, /* p_cs_precedes */
56 numempty, /* p_sep_by_space */
57 numempty, /* n_cs_precedes */
58 numempty, /* n_sep_by_space */
59 numempty, /* p_sign_posn */
60 numempty, /* n_sign_posn */
61 numempty, /* int_p_cs_precedes */
62 numempty, /* int_n_cs_precedes */
63 numempty, /* int_p_sep_by_space */
64 numempty, /* int_n_sep_by_space */
65 numempty, /* int_p_sign_posn */
66 numempty /* int_n_sign_posn */
67 };
68
69 static struct lc_monetary_T _monetary_locale;
70 static int _monetary_using_locale;
71 static char *_monetary_locale_buf;
72
73 static char
74 cnv(const char *str)
75 {
76 int i = strtol(str, NULL, 10);
77
78 if (i == -1)
79 i = CHAR_MAX;
80 return ((char)i);
81 }
82
83 int
84 __monetary_load_locale(const char *name)
85 {
86 int ret;
87
88 ret = __part_load_locale(name, &_monetary_using_locale,
89 &_monetary_locale_buf, "LC_MONETARY",
90 LCMONETARY_SIZE_FULL, LCMONETARY_SIZE_MIN,
91 (const char **)&_monetary_locale);
92 if (ret != _LDP_ERROR)
93 __mlocale_changed = 1;
94 if (ret == _LDP_LOADED) {
95 _monetary_locale.mon_grouping =
96 __fix_locale_grouping_str(_monetary_locale.mon_grouping);
97
98 #define M_ASSIGN_CHAR(NAME) \
99 (((char *)_monetary_locale.NAME)[0] = \
100 cnv(_monetary_locale.NAME))
101
102 M_ASSIGN_CHAR(int_frac_digits);
103 M_ASSIGN_CHAR(frac_digits);
104 M_ASSIGN_CHAR(p_cs_precedes);
105 M_ASSIGN_CHAR(p_sep_by_space);
106 M_ASSIGN_CHAR(n_cs_precedes);
107 M_ASSIGN_CHAR(n_sep_by_space);
108 M_ASSIGN_CHAR(p_sign_posn);
109 M_ASSIGN_CHAR(n_sign_posn);
110
111 /*
112 * The six additional C99 international monetary formatting
113 * parameters default to the national parameters when
114 * reading FreeBSD LC_MONETARY data files.
115 */
116 #define M_ASSIGN_ICHAR(NAME) \
117 if (_monetary_locale.int_##NAME == NULL) \
118 _monetary_locale.int_##NAME = \
119 _monetary_locale.NAME; \
120 else \
121 M_ASSIGN_CHAR(int_##NAME);
122
123 M_ASSIGN_ICHAR(p_cs_precedes);
124 M_ASSIGN_ICHAR(n_cs_precedes);
125 M_ASSIGN_ICHAR(p_sep_by_space);
126 M_ASSIGN_ICHAR(n_sep_by_space);
127 M_ASSIGN_ICHAR(p_sign_posn);
128 M_ASSIGN_ICHAR(n_sign_posn);
129 }
130 return (ret);
131 }
132
133 struct lc_monetary_T *
134 __get_current_monetary_locale(void)
135 {
136 return (_monetary_using_locale ? &_monetary_locale :
137 (struct lc_monetary_T *)&_C_monetary_locale);
138 }