1 /*
2 * This file and its contents are supplied under the terms of the
3 * Common Development and Distribution License ("CDDL"), version 1.0.
4 * You may only use this file in accordance with the terms of version
5 * 1.0 of the CDDL.
6 *
7 * A full copy of the text of the CDDL should have accompanied this
8 * source. A copy of the CDDL is also available via the Internet at
9 * http://www.illumos.org/license/CDDL.
10 */
11
12 /*
13 * Copyright 2013 Garrett D'Amore <garrett@damore.org>
14 * Copyright 2010 Nexenta Systems, Inc. All rights reserved.
15 */
16
17 /*
18 * LC_MONETARY database generation routines for localedef.
19 */
20
21 #include <stdio.h>
22 #include <stdlib.h>
23 #include <errno.h>
24 #include <sys/types.h>
25 #include <string.h>
26 #include <unistd.h>
27 #include "localedef.h"
28 #include "parser.tab.h"
29 #include "lmonetary.h"
30
31 static struct lc_monetary mon;
32
33 void
34 init_monetary(void)
35 {
36 (void) memset(&mon, 0, sizeof (mon));
37 }
38
39 void
40 add_monetary_str(wchar_t *wcs)
41 {
42 char *str;
43
44 if ((str = to_mb_string(wcs)) == NULL) {
45 INTERR;
46 return;
47 }
48 free(wcs);
49 switch (last_kw) {
50 case T_INT_CURR_SYMBOL:
51 mon.int_curr_symbol = str;
52 break;
53 case T_CURRENCY_SYMBOL:
54 mon.currency_symbol = str;
55 break;
56 case T_MON_DECIMAL_POINT:
57 mon.mon_decimal_point = str;
58 break;
59 case T_MON_THOUSANDS_SEP:
60 mon.mon_thousands_sep = str;
61 break;
62 case T_POSITIVE_SIGN:
63 mon.positive_sign = str;
64 break;
65 case T_NEGATIVE_SIGN:
66 mon.negative_sign = str;
67 break;
68 default:
69 free(str);
70 INTERR;
71 break;
72 }
73 }
74
75 void
76 add_monetary_num(int n)
77 {
78 char *str = NULL;
79
80 (void) asprintf(&str, "%d", n);
81 if (str == NULL) {
82 errf(_("out of memory"));
83 return;
84 }
85
86 switch (last_kw) {
87 case T_INT_FRAC_DIGITS:
88 mon.int_frac_digits = str;
89 break;
90 case T_FRAC_DIGITS:
91 mon.frac_digits = str;
92 break;
93 case T_P_CS_PRECEDES:
94 mon.p_cs_precedes = str;
95 break;
96 case T_P_SEP_BY_SPACE:
97 mon.p_sep_by_space = str;
98 break;
99 case T_N_CS_PRECEDES:
100 mon.n_cs_precedes = str;
101 break;
102 case T_N_SEP_BY_SPACE:
103 mon.n_sep_by_space = str;
104 break;
105 case T_P_SIGN_POSN:
106 mon.p_sign_posn = str;
107 break;
108 case T_N_SIGN_POSN:
109 mon.n_sign_posn = str;
110 break;
111 case T_INT_P_CS_PRECEDES:
112 mon.int_p_cs_precedes = str;
113 break;
114 case T_INT_N_CS_PRECEDES:
115 mon.int_n_cs_precedes = str;
116 break;
117 case T_INT_P_SEP_BY_SPACE:
118 mon.int_p_sep_by_space = str;
119 break;
120 case T_INT_N_SEP_BY_SPACE:
121 mon.int_n_sep_by_space = str;
122 break;
123 case T_INT_P_SIGN_POSN:
124 mon.int_p_sign_posn = str;
125 break;
126 case T_INT_N_SIGN_POSN:
127 mon.int_n_sign_posn = str;
128 break;
129 case T_MON_GROUPING:
130 mon.mon_grouping = str;
131 break;
132 default:
133 INTERR;
134 break;
135 }
136 }
137
138 void
139 reset_monetary_group(void)
140 {
141 free((char *)mon.mon_grouping);
142 mon.mon_grouping = NULL;
143 }
144
145 void
146 add_monetary_group(int n)
147 {
148 char *s = NULL;
149
150 if (mon.mon_grouping == NULL) {
151 (void) asprintf(&s, "%d", n);
152 } else {
153 (void) asprintf(&s, "%s;%d", mon.mon_grouping, n);
154 }
155 if (s == NULL)
156 errf(_("out of memory"));
157
158 free((char *)mon.mon_grouping);
159 mon.mon_grouping = s;
160 }
161
162 void
163 dump_monetary(void)
164 {
165 FILE *f;
166
167 if ((f = open_category()) == NULL) {
168 return;
169 }
170
171 if ((putl_category(mon.int_curr_symbol, f) == EOF) ||
172 (putl_category(mon.currency_symbol, f) == EOF) ||
173 (putl_category(mon.mon_decimal_point, f) == EOF) ||
174 (putl_category(mon.mon_thousands_sep, f) == EOF) ||
175 (putl_category(mon.mon_grouping, f) == EOF) ||
176 (putl_category(mon.positive_sign, f) == EOF) ||
177 (putl_category(mon.negative_sign, f) == EOF) ||
178 (putl_category(mon.int_frac_digits, f) == EOF) ||
179 (putl_category(mon.frac_digits, f) == EOF) ||
180 (putl_category(mon.p_cs_precedes, f) == EOF) ||
181 (putl_category(mon.p_sep_by_space, f) == EOF) ||
182 (putl_category(mon.n_cs_precedes, f) == EOF) ||
183 (putl_category(mon.n_sep_by_space, f) == EOF) ||
184 (putl_category(mon.p_sign_posn, f) == EOF) ||
185 (putl_category(mon.n_sign_posn, f) == EOF) ||
186 (putl_category(mon.int_p_cs_precedes, f) == EOF) ||
187 (putl_category(mon.int_n_cs_precedes, f) == EOF) ||
188 (putl_category(mon.int_p_sep_by_space, f) == EOF) ||
189 (putl_category(mon.int_n_sep_by_space, f) == EOF) ||
190 (putl_category(mon.int_p_sign_posn, f) == EOF) ||
191 (putl_category(mon.int_n_sign_posn, f) == EOF)) {
192 return;
193 }
194 close_category(f);
195 }