lib/libc/citrus/citrus_lc_monetary.c

   1 /* $NetBSD: citrus_lc_monetary.c,v 1.4 2010/06/13 04:14:57 tnozaki Exp $ */
   2
   3 /*-
   4  * Copyright (c)2008 Citrus Project,
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  19  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  20  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  26  * SUCH DAMAGE.
  27  */
  28
  29 #include <sys/cdefs.h>
  30 #if defined(LIBC_SCCS) && !defined(lint)
  31 __RCSID("$NetBSD: citrus_lc_monetary.c,v 1.4 2010/06/13 04:14:57 tnozaki Exp $");
  32 #endif /* LIBC_SCCS and not lint */
  33
  34 #include "namespace.h"
  35 #include "reentrant.h"
  36 #include <sys/types.h>
  37 #include <sys/localedef.h>
  38 #include <sys/queue.h>
  39 #include <assert.h>
  40 #include <errno.h>
  41 #include <langinfo.h>
  42 #include <limits.h>
  43 #define __SETLOCALE_SOURCE__
  44 #include <locale.h>
  45 #include <stddef.h>
  46 #include <stdio.h>
  47 #include <stdlib.h>
  48 #include <string.h>
  49
  50 #include "setlocale_local.h"
  51
  52 #include "citrus_namespace.h"
  53 #include "citrus_types.h"
  54 #include "citrus_bcs.h"
  55 #include "citrus_region.h"
  56 #include "citrus_lookup.h"
  57 #include "citrus_aliasname_local.h"
  58 #include "citrus_module.h"
  59 #include "citrus_mmap.h"
  60 #include "citrus_hash.h"
  61 #include "citrus_db.h"
  62 #include "citrus_db_hash.h"
  63 #include "citrus_memstream.h"
  64 #include "runetype_local.h"
  65
  66 #include "fix_grouping.h"
  67 #include "citrus_fix_grouping.h"
  68
  69 /*
  70  * macro required by all template headers
  71  */
  72 #define _PREFIX(name)           __CONCAT(_citrus_LC_MONETARY_, name)
  73
  74 #include "nb_lc_monetary_misc.h"
  75 #include "citrus_lc_template_decl.h"
  76
  77 static __inline void
  78 _citrus_LC_MONETARY_uninit(_MonetaryLocale *data)
  79 {
  80         _DIAGASSERT(data != NULL);
  81
  82         free(__UNCONST(data->int_curr_symbol));
  83         free(__UNCONST(data->currency_symbol));
  84         free(__UNCONST(data->mon_decimal_point));
  85         free(__UNCONST(data->mon_thousands_sep));
  86         free(__UNCONST(data->mon_grouping));
  87         free(__UNCONST(data->positive_sign));
  88         free(__UNCONST(data->negative_sign));
  89 }
  90
  91 #include "citrus_lc_monetary.h"
  92
  93 struct _citrus_LC_MONETARY_key {
  94         const char *name;
  95         size_t offset;
  96 };
  97
  98 #define OFFSET(field) (offsetof(_MonetaryLocale, field))
  99 static const struct _citrus_LC_MONETARY_key keys_string[] = {
 100   { _CITRUS_LC_MONETARY_SYM_INT_CURR_SYMBOL,    OFFSET(int_curr_symbol   ) },
 101   { _CITRUS_LC_MONETARY_SYM_CURRENCY_SYMBOL,    OFFSET(currency_symbol   ) },
 102   { _CITRUS_LC_MONETARY_SYM_MON_DECIMAL_POINT,  OFFSET(mon_decimal_point ) },
 103   { _CITRUS_LC_MONETARY_SYM_MON_THOUSANDS_SEP,  OFFSET(mon_thousands_sep ) },
 104   { _CITRUS_LC_MONETARY_SYM_MON_GROUPING,       OFFSET(mon_grouping      ) },
 105   { _CITRUS_LC_MONETARY_SYM_POSITIVE_SIGN,      OFFSET(positive_sign     ) },
 106   { _CITRUS_LC_MONETARY_SYM_NEGATIVE_SIGN,      OFFSET(negative_sign     ) },
 107   { NULL, (size_t)0 }
 108 };
 109 static const struct _citrus_LC_MONETARY_key keys_char[] = {
 110   { _CITRUS_LC_MONETARY_SYM_INT_FRAC_DIGITS,    OFFSET(int_frac_digits   ) },
 111   { _CITRUS_LC_MONETARY_SYM_FRAC_DIGITS,        OFFSET(frac_digits       ) },
 112   { _CITRUS_LC_MONETARY_SYM_P_CS_PRECEDES,      OFFSET(p_cs_precedes     ) },
 113   { _CITRUS_LC_MONETARY_SYM_P_SEP_BY_SPACE,     OFFSET(p_sep_by_space    ) },
 114   { _CITRUS_LC_MONETARY_SYM_N_CS_PRECEDES,      OFFSET(n_cs_precedes     ) },
 115   { _CITRUS_LC_MONETARY_SYM_N_SEP_BY_SPACE,     OFFSET(n_sep_by_space    ) },
 116   { _CITRUS_LC_MONETARY_SYM_P_SIGN_POSN,        OFFSET(p_sign_posn       ) },
 117   { _CITRUS_LC_MONETARY_SYM_N_SIGN_POSN,        OFFSET(n_sign_posn       ) },
 118   { _CITRUS_LC_MONETARY_SYM_INT_P_CS_PRECEDES,  OFFSET(int_p_cs_precedes ) },
 119   { _CITRUS_LC_MONETARY_SYM_INT_N_CS_PRECEDES,  OFFSET(int_n_cs_precedes ) },
 120   { _CITRUS_LC_MONETARY_SYM_INT_P_SEP_BY_SPACE, OFFSET(int_p_sep_by_space) },
 121   { _CITRUS_LC_MONETARY_SYM_INT_N_SEP_BY_SPACE, OFFSET(int_n_sep_by_space) },
 122   { _CITRUS_LC_MONETARY_SYM_INT_P_SIGN_POSN,    OFFSET(int_p_sign_posn   ) },
 123   { _CITRUS_LC_MONETARY_SYM_INT_N_SIGN_POSN,    OFFSET(int_n_sign_posn   ) },
 124   { NULL, (size_t)0 }
 125 };
 126
 127 static __inline int
 128 _citrus_LC_MONETARY_init_normal(_MonetaryLocale * __restrict data,
 129     struct _citrus_db * __restrict db)
 130 {
 131         const struct _citrus_LC_MONETARY_key *key;
 132         char **p_string, *p_char;
 133         const char *s;
 134         uint8_t u8;
 135
 136         _DIAGASSERT(data != NULL);
 137         _DIAGASSERT(db != NULL);
 138
 139         memset(data, 0, sizeof(*data));
 140         for (key = &keys_string[0]; key->name != NULL; ++key) {
 141                 if (_db_lookupstr_by_s(db, key->name, &s, NULL))
 142                         goto fatal;
 143                 p_string = (char **)(void *)
 144                     (((char *)(void *)data) + key->offset);
 145                 *p_string = strdup(s);
 146                 if (*p_string == NULL)
 147                         goto fatal;
 148         }
 149         for (key = &keys_char[0]; key->name != NULL; ++key) {
 150                 if (_db_lookup8_by_s(db, key->name, &u8, NULL))
 151                         goto fatal;
 152                 p_char = ((char *)(void *)data) + key->offset;
 153                 *p_char = (char)(unsigned char)u8;
 154         }
 155         _CITRUS_FIXUP_CHAR_MAX_MD(data->mon_grouping);
 156
 157         return 0;
 158
 159 fatal:
 160         _citrus_LC_MONETARY_uninit(data);
 161         return EFTYPE;
 162 }
 163
 164 static __inline int
 165 _citrus_LC_MONETARY_init_fallback(_MonetaryLocale * __restrict data,
 166     struct _memstream * __restrict ms)
 167 {
 168         const struct _citrus_LC_MONETARY_key *key;
 169         char **p_string, *p_char;
 170         const char *s;
 171         size_t n;
 172         char *t;
 173         long int l;
 174
 175         _DIAGASSERT(data != NULL);
 176         _DIAGASSERT(ms != NULL);
 177
 178         memset(data, 0, sizeof(*data));
 179         for (key = &keys_string[0]; key->name != NULL; ++key) {
 180                 if ((s = _memstream_getln(ms, &n)) == NULL)
 181                         goto fatal;
 182                 p_string = (char **)(void *)
 183                     (((char *)(void *)data) + key->offset);
 184                 *p_string = strndup(s, n - 1);
 185                 if (*p_string == NULL)
 186                         goto fatal;
 187         }
 188         for (key = &keys_char[0]; key->name != NULL; ++key) {
 189                 if ((s = _memstream_getln(ms, &n)) == NULL)
 190                         goto fatal;
 191                 t = strndup(s, n - 1);
 192                 if (t == NULL)
 193                         goto fatal;
 194                 s = (const char *)t;
 195                 l = _bcs_strtol(s, &t, 0);
 196                 if (s == t || l < 0 || l > 0x7fL) {
 197                         free(t);
 198                         goto fatal;
 199                 }
 200                 free(t);
 201                 p_char = ((char *)(void *)data) + key->offset;
 202                 *p_char = (char)(l & 0x7fL);
 203         }
 204         data->mon_grouping =
 205             __fix_locale_grouping_str(data->mon_grouping);
 206         return 0;
 207
 208 fatal:
 209         _citrus_LC_MONETARY_uninit(data);
 210         return EFTYPE;
 211 }
 212
 213 /*
 214  * macro required by citrus_lc_template.h
 215  */
 216 #define _CATEGORY_DB            "LC_MONETARY"
 217 #define _CATEGORY_MAGIC         _CITRUS_LC_MONETARY_MAGIC_1
 218
 219 #include "citrus_lc_template.h"
 220 _LOCALE_CATEGORY_ENTRY(_citrus_LC_MONETARY_);