usr.bin/mklocale/mklocaledb.c

   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 }