lmonetary.c revision 302408
1206358Srpaulo/* 2206358Srpaulo * Copyright (c) 2000, 2001 Alexey Zelkin <phantom@FreeBSD.org> 3206358Srpaulo * All rights reserved. 4206358Srpaulo * 5206358Srpaulo * Copyright (c) 2011 The FreeBSD Foundation 6206358Srpaulo * All rights reserved. 7206358Srpaulo * Portions of this software were developed by David Chisnall 8206358Srpaulo * under sponsorship from the FreeBSD Foundation. 9206358Srpaulo * 10206358Srpaulo * Redistribution and use in source and binary forms, with or without 11206358Srpaulo * modification, are permitted provided that the following conditions 12206358Srpaulo * are met: 13206358Srpaulo * 1. Redistributions of source code must retain the above copyright 14206358Srpaulo * notice, this list of conditions and the following disclaimer. 15206358Srpaulo * 2. Redistributions in binary form must reproduce the above copyright 16206358Srpaulo * notice, this list of conditions and the following disclaimer in the 17206358Srpaulo * documentation and/or other materials provided with the distribution. 18206358Srpaulo * 19206358Srpaulo * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 20206358Srpaulo * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 21206358Srpaulo * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 22206358Srpaulo * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 23206358Srpaulo * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 24206358Srpaulo * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 25206358Srpaulo * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 26206358Srpaulo * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 27206358Srpaulo * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 28206358Srpaulo * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 29206358Srpaulo * SUCH DAMAGE. 30206358Srpaulo */ 31206358Srpaulo 32206358Srpaulo#include <sys/cdefs.h> 33206358Srpaulo__FBSDID("$FreeBSD: stable/11/lib/libc/locale/lmonetary.c 271110 2014-09-04 17:36:21Z pfg $"); 34206358Srpaulo 35206358Srpaulo#include <limits.h> 36206358Srpaulo#include <stddef.h> 37206358Srpaulo#include <stdlib.h> 38206358Srpaulo 39206358Srpaulo#include "ldpart.h" 40206358Srpaulo#include "lmonetary.h" 41206358Srpaulo 42214069Sbschmidtextern const char * __fix_locale_grouping_str(const char *); 43214069Sbschmidt 44214069Sbschmidt#define LCMONETARY_SIZE_FULL (sizeof(struct lc_monetary_T) / sizeof(char *)) 45214069Sbschmidt#define LCMONETARY_SIZE_MIN \ 46214069Sbschmidt (offsetof(struct lc_monetary_T, int_p_cs_precedes) / \ 47214069Sbschmidt sizeof(char *)) 48214069Sbschmidt 49214069Sbschmidtstatic char empty[] = ""; 50206358Srpaulostatic char numempty[] = { CHAR_MAX, '\0'}; 51206358Srpaulo 52206358Srpaulostatic const struct lc_monetary_T _C_monetary_locale = { 53206358Srpaulo empty, /* int_curr_symbol */ 54206358Srpaulo empty, /* currency_symbol */ 55206358Srpaulo empty, /* mon_decimal_point */ 56206358Srpaulo empty, /* mon_thousands_sep */ 57206358Srpaulo numempty, /* mon_grouping */ 58206358Srpaulo empty, /* positive_sign */ 59206358Srpaulo empty, /* negative_sign */ 60206358Srpaulo numempty, /* int_frac_digits */ 61206358Srpaulo numempty, /* frac_digits */ 62206358Srpaulo numempty, /* p_cs_precedes */ 63206358Srpaulo numempty, /* p_sep_by_space */ 64206358Srpaulo numempty, /* n_cs_precedes */ 65206358Srpaulo numempty, /* n_sep_by_space */ 66206358Srpaulo numempty, /* p_sign_posn */ 67206358Srpaulo numempty, /* n_sign_posn */ 68206358Srpaulo numempty, /* int_p_cs_precedes */ 69214894Sbschmidt numempty, /* int_n_cs_precedes */ 70214894Sbschmidt numempty, /* int_p_sep_by_space */ 71214894Sbschmidt numempty, /* int_n_sep_by_space */ 72214894Sbschmidt numempty, /* int_p_sign_posn */ 73214894Sbschmidt numempty /* int_n_sign_posn */ 74214894Sbschmidt}; 75214894Sbschmidt 76214894Sbschmidtstruct xlocale_monetary __xlocale_global_monetary; 77206358Srpaulo 78206358Srpaulostatic char 79206358Srpaulocnv(const char *str) 80206358Srpaulo{ 81214069Sbschmidt int i = strtol(str, NULL, 10); 82214069Sbschmidt 83214069Sbschmidt if (i == -1) 84214069Sbschmidt i = CHAR_MAX; 85214069Sbschmidt return ((char)i); 86214069Sbschmidt} 87214069Sbschmidt 88214069Sbschmidtstatic void 89214069Sbschmidtdestruct_monetary(void *v) 90214069Sbschmidt{ 91206358Srpaulo struct xlocale_monetary *l = v; 92206358Srpaulo if (l->buffer) 93 free(l->buffer); 94 free(l); 95} 96 97static int 98monetary_load_locale_l(struct xlocale_monetary *loc, int *using_locale, 99 int *changed, const char *name) 100{ 101 int ret; 102 struct lc_monetary_T *l = &loc->locale; 103 104 ret = __part_load_locale(name, using_locale, 105 &loc->buffer, "LC_MONETARY", 106 LCMONETARY_SIZE_FULL, LCMONETARY_SIZE_MIN, 107 (const char **)l); 108 if (ret != _LDP_ERROR) 109 *changed = 1; 110 if (ret == _LDP_LOADED) { 111 l->mon_grouping = 112 __fix_locale_grouping_str(l->mon_grouping); 113 114#define M_ASSIGN_CHAR(NAME) (((char *)l->NAME)[0] = \ 115 cnv(l->NAME)) 116 117 M_ASSIGN_CHAR(int_frac_digits); 118 M_ASSIGN_CHAR(frac_digits); 119 M_ASSIGN_CHAR(p_cs_precedes); 120 M_ASSIGN_CHAR(p_sep_by_space); 121 M_ASSIGN_CHAR(n_cs_precedes); 122 M_ASSIGN_CHAR(n_sep_by_space); 123 M_ASSIGN_CHAR(p_sign_posn); 124 M_ASSIGN_CHAR(n_sign_posn); 125 126 /* 127 * The six additional C99 international monetary formatting 128 * parameters default to the national parameters when 129 * reading FreeBSD LC_MONETARY data files. 130 */ 131#define M_ASSIGN_ICHAR(NAME) \ 132 do { \ 133 if (l->int_##NAME == NULL) \ 134 l->int_##NAME = \ 135 l->NAME; \ 136 else \ 137 M_ASSIGN_CHAR(int_##NAME); \ 138 } while (0) 139 140 M_ASSIGN_ICHAR(p_cs_precedes); 141 M_ASSIGN_ICHAR(n_cs_precedes); 142 M_ASSIGN_ICHAR(p_sep_by_space); 143 M_ASSIGN_ICHAR(n_sep_by_space); 144 M_ASSIGN_ICHAR(p_sign_posn); 145 M_ASSIGN_ICHAR(n_sign_posn); 146 } 147 return (ret); 148} 149int 150__monetary_load_locale(const char *name) 151{ 152 return monetary_load_locale_l(&__xlocale_global_monetary, 153 &__xlocale_global_locale.using_monetary_locale, 154 &__xlocale_global_locale.monetary_locale_changed, name); 155} 156void* __monetary_load(const char *name, locale_t l) 157{ 158 struct xlocale_monetary *new = calloc(sizeof(struct xlocale_monetary), 1); 159 new->header.header.destructor = destruct_monetary; 160 if (monetary_load_locale_l(new, &l->using_monetary_locale, 161 &l->monetary_locale_changed, name) == _LDP_ERROR) 162 { 163 xlocale_release(new); 164 return NULL; 165 } 166 return new; 167} 168 169 170struct lc_monetary_T * 171__get_current_monetary_locale(locale_t loc) 172{ 173 return (loc->using_monetary_locale 174 ? &((struct xlocale_monetary*)loc->components[XLC_MONETARY])->locale 175 : (struct lc_monetary_T *)&_C_monetary_locale); 176} 177 178#ifdef LOCALE_DEBUG 179void 180monetdebug() { 181printf( "int_curr_symbol = %s\n" 182 "currency_symbol = %s\n" 183 "mon_decimal_point = %s\n" 184 "mon_thousands_sep = %s\n" 185 "mon_grouping = %s\n" 186 "positive_sign = %s\n" 187 "negative_sign = %s\n" 188 "int_frac_digits = %d\n" 189 "frac_digits = %d\n" 190 "p_cs_precedes = %d\n" 191 "p_sep_by_space = %d\n" 192 "n_cs_precedes = %d\n" 193 "n_sep_by_space = %d\n" 194 "p_sign_posn = %d\n" 195 "n_sign_posn = %d\n" 196 "int_p_cs_precedes = %d\n" 197 "int_p_sep_by_space = %d\n" 198 "int_n_cs_precedes = %d\n" 199 "int_n_sep_by_space = %d\n" 200 "int_p_sign_posn = %d\n" 201 "int_n_sign_posn = %d\n", 202 _monetary_locale.int_curr_symbol, 203 _monetary_locale.currency_symbol, 204 _monetary_locale.mon_decimal_point, 205 _monetary_locale.mon_thousands_sep, 206 _monetary_locale.mon_grouping, 207 _monetary_locale.positive_sign, 208 _monetary_locale.negative_sign, 209 _monetary_locale.int_frac_digits[0], 210 _monetary_locale.frac_digits[0], 211 _monetary_locale.p_cs_precedes[0], 212 _monetary_locale.p_sep_by_space[0], 213 _monetary_locale.n_cs_precedes[0], 214 _monetary_locale.n_sep_by_space[0], 215 _monetary_locale.p_sign_posn[0], 216 _monetary_locale.n_sign_posn[0], 217 _monetary_locale.int_p_cs_precedes[0], 218 _monetary_locale.int_p_sep_by_space[0], 219 _monetary_locale.int_n_cs_precedes[0], 220 _monetary_locale.int_n_sep_by_space[0], 221 _monetary_locale.int_p_sign_posn[0], 222 _monetary_locale.int_n_sign_posn[0] 223); 224} 225#endif /* LOCALE_DEBUG */ 226