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  * Copyright (c) 2011 The FreeBSD Foundation
   7  * All rights reserved.
   8  * Portions of this software were developed by David Chisnall
   9  * under sponsorship from the FreeBSD Foundation.
  10  *
  11  * Redistribution and use in source and binary forms, with or without
  12  * modification, are permitted provided that the following conditions
  13  * are met:
  14  * 1. Redistributions of source code must retain the above copyright
  15  *    notice, this list of conditions and the following disclaimer.
  16  * 2. Redistributions in binary form must reproduce the above copyright
  17  *    notice, this list of conditions and the following disclaimer in the
  18  *    documentation and/or other materials provided with the distribution.
  19  *
  20  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  21  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  22  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  23  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  24  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  25  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  26  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  27  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  28  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  29  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  30  * SUCH DAMAGE.
  31  */
  32 
  33 #include "lint.h"
  34 #include <limits.h>
  35 #include <stddef.h>
  36 #include <stdlib.h>
  37 
  38 #include "ldpart.h"
  39 #include "lmonetary.h"
  40 
  41 extern const char *__fix_locale_grouping_str(const char *);
  42 
  43 #define LCMONETARY_SIZE_FULL (sizeof (struct lc_monetary_T) / sizeof (char *))
  44 #define LCMONETARY_SIZE_MIN \
  45         (offsetof(struct lc_monetary_T, int_p_cs_precedes) / sizeof (char *))
  46 
  47 static char     empty[] = "";
  48 static char     numempty[] = { CHAR_MAX, '\0' };
  49 
  50 static const struct lc_monetary_T _C_monetary_locale = {
  51         empty,          /* int_curr_symbol */
  52         empty,          /* currency_symbol */
  53         empty,          /* mon_decimal_point */
  54         empty,          /* mon_thousands_sep */
  55         numempty,       /* mon_grouping */
  56         empty,          /* positive_sign */
  57         empty,          /* negative_sign */
  58         numempty,       /* int_frac_digits */
  59         numempty,       /* frac_digits */
  60         numempty,       /* p_cs_precedes */
  61         numempty,       /* p_sep_by_space */
  62         numempty,       /* n_cs_precedes */
  63         numempty,       /* n_sep_by_space */
  64         numempty,       /* p_sign_posn */
  65         numempty,       /* n_sign_posn */
  66         numempty,       /* int_p_cs_precedes */
  67         numempty,       /* int_n_cs_precedes */
  68         numempty,       /* int_p_sep_by_space */
  69         numempty,       /* int_n_sep_by_space */
  70         numempty,       /* int_p_sign_posn */
  71         numempty        /* int_n_sign_posn */
  72 };
  73 
  74 static struct lc_monetary_T _monetary_locale;
  75 static int      _monetary_using_locale;
  76 static char     *_monetary_locale_buf;
  77 
  78 struct xlocale_monetary __xlocale_global_monetary;
  79 
  80 static char
  81 cnv(const char *str)
  82 {
  83         int i = strtol(str, NULL, 10);
  84 
  85         if (i == -1)
  86                 i = CHAR_MAX;
  87         return ((char)i);
  88 }
  89 
  90 static void
  91 destruct_monetary(void *v)
  92 {
  93         struct xlocale_monetary *l = v;
  94 
  95         if (l->buffer != NULL)
  96                 free(l->buffer);
  97 
  98         free(l);
  99 }
 100 
 101 static int
 102 monetary_load_locale_l(struct xlocale_monetary *loc, int *using_locale,
 103     int *changed, const char *name)
 104 {
 105         int ret;
 106         struct lc_monetary_T *l = &loc->locale;
 107 
 108         ret = __part_load_locale(name, using_locale,
 109             &loc->buffer, "LC_MONETARY",
 110             LCMONETARY_SIZE_FULL, LCMONETARY_SIZE_MIN,
 111             (const char **)l);
 112         if (ret != _LDP_ERROR)
 113                 *changed = 1;
 114         if (ret == _LDP_LOADED) {
 115                 l->mon_grouping =
 116                     __fix_locale_grouping_str(l->mon_grouping);
 117 
 118 #define M_ASSIGN_CHAR(NAME) \
 119                 (((char *)l->NAME)[0] = \
 120                         cnv(l->NAME))
 121 
 122                 M_ASSIGN_CHAR(int_frac_digits);
 123                 M_ASSIGN_CHAR(frac_digits);
 124                 M_ASSIGN_CHAR(p_cs_precedes);
 125                 M_ASSIGN_CHAR(p_sep_by_space);
 126                 M_ASSIGN_CHAR(n_cs_precedes);
 127                 M_ASSIGN_CHAR(n_sep_by_space);
 128                 M_ASSIGN_CHAR(p_sign_posn);
 129                 M_ASSIGN_CHAR(n_sign_posn);
 130 
 131                 /*
 132                  * The six additional C99 international monetary formatting
 133                  * parameters default to the national parameters when
 134                  * reading FreeBSD LC_MONETARY data files.
 135                  */
 136 #define M_ASSIGN_ICHAR(NAME)                                    \
 137                 do {                                            \
 138                         if (l->int_##NAME == NULL)           \
 139                                 l->int_##NAME =                      \
 140                                     l->NAME;                 \
 141                         else                                    \
 142                                 M_ASSIGN_CHAR(int_##NAME);      \
 143                 } while (0)
 144 
 145                 M_ASSIGN_ICHAR(p_cs_precedes);
 146                 M_ASSIGN_ICHAR(n_cs_precedes);
 147                 M_ASSIGN_ICHAR(p_sep_by_space);
 148                 M_ASSIGN_ICHAR(n_sep_by_space);
 149                 M_ASSIGN_ICHAR(p_sign_posn);
 150                 M_ASSIGN_ICHAR(n_sign_posn);
 151         }
 152         return (ret);
 153 }
 154 
 155 int
 156 __monetary_load_locale(const char *name)
 157 {
 158         return (monetary_load_locale_l(&__xlocale_global_monetary,
 159             &__xlocale_global_locale.using_monetary_locale,
 160             &__xlocale_global_locale.monetary_locale_changed, name));
 161 }
 162 
 163 void *
 164 __monetary_load(const char *name, locale_t loc)
 165 {
 166         struct xlocale_monetary *new;
 167 
 168         new = calloc(sizeof(struct xlocale_monetary), 1);
 169         if (new == NULL)
 170                 return (NULL);
 171 
 172         new->header.header.destructor = destruct_monetary;
 173         if (monetary_load_locale_l(new, &loc->using_monetary_locale,
 174             &loc->monetary_locale_changed, name) == _LDP_ERROR) {
 175                 xlocale_release(new);
 176                 return (NULL);
 177         }
 178 
 179         return (NULL);
 180 }
 181 
 182 struct lc_monetary_T *
 183 __get_current_monetary_locale(locale_t loc)
 184 {
 185         return (loc->using_monetary_locale
 186             ? &((struct xlocale_monetary*)loc->components[XLC_MONETARY])->locale
 187             : (struct lc_monetary_T *)&_C_monetary_locale);
 188 }