Home | History | Annotate | Line # | Download | only in mklocale
      1 /* $NetBSD: mklocaledb.c,v 1.4 2015/06/16 22:54:10 christos 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 /*
     30  * XXX TEMPORARY IMPLEMENTATION.
     31  * don't waste your time, all we need is localedef(1).
     32  */
     33 
     34 #if HAVE_NBTOOL_CONFIG_H
     35 #include "nbtool_config.h"
     36 #endif
     37 
     38 #include <sys/cdefs.h>
     39 #if !defined(lint)
     40 __RCSID("$NetBSD: mklocaledb.c,v 1.4 2015/06/16 22:54:10 christos Exp $");
     41 #endif /* not lint */
     42 
     43 #include <assert.h>
     44 #include <err.h>
     45 #include <errno.h>
     46 #include <limits.h>
     47 #include <stdint.h>
     48 #include <stdio.h>
     49 #include <stdlib.h>
     50 #include <string.h>
     51 #include <unistd.h>
     52 
     53 #include "fix_grouping.h"
     54 
     55 #include "citrus_namespace.h"
     56 #include "citrus_bcs.h"
     57 #include "citrus_types.h"
     58 #include "citrus_region.h"
     59 #include "citrus_db_factory.h"
     60 #include "citrus_db_hash.h"
     61 #include "citrus_db.h"
     62 
     63 #include "citrus_lc_monetary.h"
     64 #include "citrus_lc_numeric.h"
     65 #include "citrus_lc_time.h"
     66 #include "citrus_lc_messages.h"
     67 
     68 void mklocaledb(const char *, FILE *, FILE *);
     69 
     70 /*
     71  * TODO: -d debug options's output.
     72  */
     73 extern int debug;
     74 extern void usage(void);
     75 
     76 static int
     77 save_as_string(struct _db_factory *df,
     78     const char *key, const char *value)
     79 {
     80 	return _db_factory_addstr_by_s(df, key, value);
     81 }
     82 
     83 static int
     84 save_as_grouping(struct _db_factory *df,
     85     const char *key, const char *value)
     86 {
     87 	value = __fix_locale_grouping_str(value);
     88 	return _db_factory_addstr_by_s(df, key, value);
     89 }
     90 
     91 static int
     92 save_as_uint8(struct _db_factory *df,
     93     const char *key, const char *head)
     94 {
     95 	char *tail;
     96 	unsigned long int value;
     97 	uint8_t u8;
     98 
     99 	value = _bcs_strtoul(head, &tail, 0);
    100 	if (head == tail || value > 0xFF)
    101 		return 1;
    102 	u8 = (uint8_t)(value & 0xFF);
    103 	return _db_factory_add8_by_s(df, key, u8);
    104 }
    105 
    106 typedef struct {
    107 	const char *key;
    108 	int (*save)(struct _db_factory *,
    109 	    const char *, const char *);
    110 } token_t;
    111 
    112 typedef struct {
    113 	const char *magic, * vers_sym;
    114 	uint32_t version;
    115 	const token_t tokens[];
    116 } category_t;
    117 
    118 static const category_t lc_monetary = {
    119     _CITRUS_LC_MONETARY_MAGIC_1,
    120     _CITRUS_LC_MONETARY_SYM_VERSION,
    121     _CITRUS_LC_MONETARY_VERSION,
    122     {
    123 	{ _CITRUS_LC_MONETARY_SYM_INT_CURR_SYMBOL,    &save_as_string   },
    124 	{ _CITRUS_LC_MONETARY_SYM_CURRENCY_SYMBOL,    &save_as_string   },
    125 	{ _CITRUS_LC_MONETARY_SYM_MON_DECIMAL_POINT,  &save_as_string   },
    126 	{ _CITRUS_LC_MONETARY_SYM_MON_THOUSANDS_SEP,  &save_as_string   },
    127 	{ _CITRUS_LC_MONETARY_SYM_MON_GROUPING,       &save_as_grouping },
    128 	{ _CITRUS_LC_MONETARY_SYM_POSITIVE_SIGN,      &save_as_string   },
    129 	{ _CITRUS_LC_MONETARY_SYM_NEGATIVE_SIGN,      &save_as_string   },
    130 	{ _CITRUS_LC_MONETARY_SYM_INT_FRAC_DIGITS,    &save_as_uint8    },
    131 	{ _CITRUS_LC_MONETARY_SYM_FRAC_DIGITS,        &save_as_uint8    },
    132 	{ _CITRUS_LC_MONETARY_SYM_P_CS_PRECEDES,      &save_as_uint8    },
    133 	{ _CITRUS_LC_MONETARY_SYM_P_SEP_BY_SPACE,     &save_as_uint8    },
    134 	{ _CITRUS_LC_MONETARY_SYM_N_CS_PRECEDES,      &save_as_uint8    },
    135 	{ _CITRUS_LC_MONETARY_SYM_N_SEP_BY_SPACE,     &save_as_uint8    },
    136 	{ _CITRUS_LC_MONETARY_SYM_P_SIGN_POSN,        &save_as_uint8    },
    137 	{ _CITRUS_LC_MONETARY_SYM_N_SIGN_POSN,        &save_as_uint8    },
    138 	{ _CITRUS_LC_MONETARY_SYM_INT_P_CS_PRECEDES,  &save_as_uint8    },
    139 	{ _CITRUS_LC_MONETARY_SYM_INT_P_SEP_BY_SPACE, &save_as_uint8    },
    140 	{ _CITRUS_LC_MONETARY_SYM_INT_N_CS_PRECEDES,  &save_as_uint8    },
    141 	{ _CITRUS_LC_MONETARY_SYM_INT_N_SEP_BY_SPACE, &save_as_uint8    },
    142 	{ _CITRUS_LC_MONETARY_SYM_INT_P_SIGN_POSN,    &save_as_uint8    },
    143 	{ _CITRUS_LC_MONETARY_SYM_INT_N_SIGN_POSN,    &save_as_uint8    },
    144 	{ NULL },
    145     },
    146 };
    147 
    148 static const category_t lc_numeric = {
    149     _CITRUS_LC_NUMERIC_MAGIC_1,
    150     _CITRUS_LC_NUMERIC_SYM_VERSION,
    151     _CITRUS_LC_NUMERIC_VERSION,
    152     {
    153 	{ _CITRUS_LC_NUMERIC_SYM_DECIMAL_POINT, &save_as_string   },
    154 	{ _CITRUS_LC_NUMERIC_SYM_THOUSANDS_SEP, &save_as_string   },
    155 	{ _CITRUS_LC_NUMERIC_SYM_GROUPING,      &save_as_grouping },
    156 	{ NULL },
    157     },
    158 };
    159 
    160 static const category_t lc_time = {
    161     _CITRUS_LC_TIME_MAGIC_1,
    162     _CITRUS_LC_TIME_SYM_VERSION,
    163     _CITRUS_LC_TIME_VERSION,
    164     {
    165 	{ _CITRUS_LC_TIME_SYM_ABDAY_1,     &save_as_string },
    166 	{ _CITRUS_LC_TIME_SYM_ABDAY_2,     &save_as_string },
    167 	{ _CITRUS_LC_TIME_SYM_ABDAY_3,     &save_as_string },
    168 	{ _CITRUS_LC_TIME_SYM_ABDAY_4,     &save_as_string },
    169 	{ _CITRUS_LC_TIME_SYM_ABDAY_5,     &save_as_string },
    170 	{ _CITRUS_LC_TIME_SYM_ABDAY_6,     &save_as_string },
    171 	{ _CITRUS_LC_TIME_SYM_ABDAY_7,     &save_as_string },
    172 	{ _CITRUS_LC_TIME_SYM_DAY_1,       &save_as_string },
    173 	{ _CITRUS_LC_TIME_SYM_DAY_2,       &save_as_string },
    174 	{ _CITRUS_LC_TIME_SYM_DAY_3,       &save_as_string },
    175 	{ _CITRUS_LC_TIME_SYM_DAY_4,       &save_as_string },
    176 	{ _CITRUS_LC_TIME_SYM_DAY_5,       &save_as_string },
    177 	{ _CITRUS_LC_TIME_SYM_DAY_6,       &save_as_string },
    178 	{ _CITRUS_LC_TIME_SYM_DAY_7,       &save_as_string },
    179 	{ _CITRUS_LC_TIME_SYM_ABMON_1,     &save_as_string },
    180 	{ _CITRUS_LC_TIME_SYM_ABMON_2,     &save_as_string },
    181 	{ _CITRUS_LC_TIME_SYM_ABMON_3,     &save_as_string },
    182 	{ _CITRUS_LC_TIME_SYM_ABMON_4,     &save_as_string },
    183 	{ _CITRUS_LC_TIME_SYM_ABMON_5,     &save_as_string },
    184 	{ _CITRUS_LC_TIME_SYM_ABMON_6,     &save_as_string },
    185 	{ _CITRUS_LC_TIME_SYM_ABMON_7,     &save_as_string },
    186 	{ _CITRUS_LC_TIME_SYM_ABMON_8,     &save_as_string },
    187 	{ _CITRUS_LC_TIME_SYM_ABMON_9,     &save_as_string },
    188 	{ _CITRUS_LC_TIME_SYM_ABMON_10,    &save_as_string },
    189 	{ _CITRUS_LC_TIME_SYM_ABMON_11,    &save_as_string },
    190 	{ _CITRUS_LC_TIME_SYM_ABMON_12,    &save_as_string },
    191 	{ _CITRUS_LC_TIME_SYM_MON_1,       &save_as_string },
    192 	{ _CITRUS_LC_TIME_SYM_MON_2,       &save_as_string },
    193 	{ _CITRUS_LC_TIME_SYM_MON_3,       &save_as_string },
    194 	{ _CITRUS_LC_TIME_SYM_MON_4,       &save_as_string },
    195 	{ _CITRUS_LC_TIME_SYM_MON_5,       &save_as_string },
    196 	{ _CITRUS_LC_TIME_SYM_MON_6,       &save_as_string },
    197 	{ _CITRUS_LC_TIME_SYM_MON_7,       &save_as_string },
    198 	{ _CITRUS_LC_TIME_SYM_MON_8,       &save_as_string },
    199 	{ _CITRUS_LC_TIME_SYM_MON_9,       &save_as_string },
    200 	{ _CITRUS_LC_TIME_SYM_MON_10,      &save_as_string },
    201 	{ _CITRUS_LC_TIME_SYM_MON_11,      &save_as_string },
    202 	{ _CITRUS_LC_TIME_SYM_MON_12,      &save_as_string },
    203 	{ _CITRUS_LC_TIME_SYM_AM_STR,      &save_as_string },
    204 	{ _CITRUS_LC_TIME_SYM_PM_STR,      &save_as_string },
    205 	{ _CITRUS_LC_TIME_SYM_D_T_FMT,     &save_as_string },
    206 	{ _CITRUS_LC_TIME_SYM_D_FMT,       &save_as_string },
    207 	{ _CITRUS_LC_TIME_SYM_T_FMT,       &save_as_string },
    208 	{ _CITRUS_LC_TIME_SYM_T_FMT_AMPM,  &save_as_string },
    209 	{ NULL },
    210     },
    211 };
    212 
    213 static const category_t lc_messages = {
    214     _CITRUS_LC_MESSAGES_MAGIC_1,
    215     _CITRUS_LC_MESSAGES_SYM_VERSION,
    216     _CITRUS_LC_MESSAGES_VERSION,
    217     {
    218 	{ _CITRUS_LC_MESSAGES_SYM_YESEXPR, &save_as_string },
    219 	{ _CITRUS_LC_MESSAGES_SYM_NOEXPR,  &save_as_string },
    220 	{ _CITRUS_LC_MESSAGES_SYM_YESSTR,  &save_as_string },
    221 	{ _CITRUS_LC_MESSAGES_SYM_NOSTR,   &save_as_string },
    222 	{ NULL },
    223     },
    224 };
    225 
    226 void
    227 mklocaledb(const char *type, FILE *reader, FILE *writer)
    228 {
    229 	static const char delim[3] = { '\0', '\0', '#' };
    230 	const category_t *category = NULL;
    231 	struct _db_factory *df;
    232 	const token_t *token;
    233 	char *line;
    234 	size_t size;
    235 	void *serialized;
    236 	struct _region r;
    237 
    238 	_DIAGASSERT(type != NULL);
    239 	_DIAGASSERT(reader != NULL);
    240 	_DIAGASSERT(writer != NULL);
    241 
    242 	if (!strcasecmp(type, "MONETARY"))
    243 		category = &lc_monetary;
    244 	else if (!strcasecmp(type, "NUMERIC"))
    245 		category = &lc_numeric;
    246 	else if (!strcasecmp(type, "TIME"))
    247 		category = &lc_time;
    248 	else if (!strcasecmp(type, "MESSAGES"))
    249 		category = &lc_messages;
    250 	else {
    251 		usage();
    252 		/*NOTREACHED*/
    253 	}
    254 	if (_db_factory_create(&df, &_db_hash_std, NULL))
    255 		errx(EXIT_FAILURE, "can't create db factory");
    256 	if (_db_factory_add32_by_s(df, category->vers_sym, category->version))
    257 		errx(EXIT_FAILURE, "can't store db");
    258 	token = &category->tokens[0];
    259 	while (token->key != NULL) {
    260 		line = fparseln(reader, NULL,
    261 		    NULL, delim, FPARSELN_UNESCALL);
    262 		if (line == NULL)
    263 			errx(EXIT_FAILURE, "can't read line");
    264 		if ((*token->save)(df, token->key, (const char *)line))
    265 			errx(EXIT_FAILURE, "can't store db");
    266 		free(line);
    267 		++token;
    268 	}
    269 	size = _db_factory_calc_size(df);
    270 	_DIAGASSERT(size > 0);
    271 	serialized = malloc(size);
    272 	if (serialized == NULL)
    273 		errx(EXIT_FAILURE, "can't malloc");
    274 	_DIAGASSERT(serialized != NULL);
    275 	_region_init(&r, serialized, size);
    276 	if (_db_factory_serialize(df, category->magic, &r))
    277 		errx(EXIT_FAILURE, "can't serialize db");
    278 	fwrite(serialized, size, 1, writer);
    279 	_db_factory_free(df);
    280 }
    281