usr.bin/localedef/time.c

   1 /*-
   2  * Copyright 2010 Nexenta Systems, Inc.  All rights reserved.
   3  * Copyright 2015 John Marino <draco@marino.st>
   4  *
   5  * This source code is derived from the illumos localedef command, and
   6  * provided under BSD-style license terms by Nexenta Systems, Inc.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  *
  12  * 1. Redistributions of source code must retain the above copyright
  13  *    notice, this list of conditions and the following disclaimer.
  14  * 2. Redistributions in binary form must reproduce the above copyright
  15  *    notice, this list of conditions and the following disclaimer in the
  16  *    documentation and/or other materials provided with the distribution.
  17  *
  18  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
  19  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  20  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  21  * ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
  22  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  23  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  24  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  25  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  26  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  27  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  28  * POSSIBILITY OF SUCH DAMAGE.
  29  */
  30
  31 /*
  32  * LC_TIME database generation routines for localedef.
  33  */
  34 #include <sys/cdefs.h>
  35 __FBSDID("$FreeBSD$");
  36
  37 #include <stdio.h>
  38 #include <stdlib.h>
  39 #include <errno.h>
  40 #include <sys/types.h>
  41 #include <string.h>
  42 #include <unistd.h>
  43 #include "localedef.h"
  44 #include "parser.h"
  45 #include "timelocal.h"
  46
  47 struct lc_time_T tm;
  48
  49 void
  50 init_time(void)
  51 {
  52         (void) memset(&tm, 0, sizeof (tm));
  53 }
  54
  55 void
  56 add_time_str(wchar_t *wcs)
  57 {
  58         char    *str;
  59
  60         if ((str = to_mb_string(wcs)) == NULL) {
  61                 INTERR;
  62                 return;
  63         }
  64         free(wcs);
  65
  66         switch (last_kw) {
  67         case T_D_T_FMT:
  68                 tm.c_fmt = str;
  69                 break;
  70         case T_D_FMT:
  71                 tm.x_fmt = str;
  72                 break;
  73         case T_T_FMT:
  74                 tm.X_fmt = str;
  75                 break;
  76         case T_T_FMT_AMPM:
  77                 tm.ampm_fmt = str;
  78                 break;
  79         case T_DATE_FMT:
  80                 /*
  81                  * This one is a Solaris extension, Too bad date just
  82                  * doesn't use %c, which would be simpler.
  83                  */
  84                 tm.date_fmt = str;
  85                 break;
  86         case T_ERA_D_FMT:
  87         case T_ERA_T_FMT:
  88         case T_ERA_D_T_FMT:
  89                 /* Silently ignore it. */
  90                 free(str);
  91                 break;
  92         default:
  93                 free(str);
  94                 INTERR;
  95                 break;
  96         }
  97 }
  98
  99 static void
 100 add_list(const char *ptr[], char *str, int limit)
 101 {
 102         int     i;
 103         for (i = 0; i < limit; i++) {
 104                 if (ptr[i] == NULL) {
 105                         ptr[i] = str;
 106                         return;
 107                 }
 108         }
 109         fprintf(stderr,"too many list elements");
 110 }
 111
 112 void
 113 add_time_list(wchar_t *wcs)
 114 {
 115         char *str;
 116
 117         if ((str = to_mb_string(wcs)) == NULL) {
 118                 INTERR;
 119                 return;
 120         }
 121         free(wcs);
 122
 123         switch (last_kw) {
 124         case T_ABMON:
 125                 add_list(tm.mon, str, 12);
 126                 break;
 127         case T_MON:
 128                 add_list(tm.month, str, 12);
 129                 break;
 130         case T_ABDAY:
 131                 add_list(tm.wday, str, 7);
 132                 break;
 133         case T_DAY:
 134                 add_list(tm.weekday, str, 7);
 135                 break;
 136         case T_AM_PM:
 137                 if (tm.am == NULL) {
 138                         tm.am = str;
 139                 } else if (tm.pm == NULL) {
 140                         tm.pm = str;
 141                 } else {
 142                         fprintf(stderr,"too many list elements");
 143                         free(str);
 144                 }
 145                 break;
 146         case T_ALT_DIGITS:
 147         case T_ERA:
 148                 free(str);
 149                 break;
 150         default:
 151                 free(str);
 152                 INTERR;
 153                 break;
 154         }
 155 }
 156
 157 void
 158 check_time_list(void)
 159 {
 160         switch (last_kw) {
 161         case T_ABMON:
 162                 if (tm.mon[11] != NULL)
 163                         return;
 164                 break;
 165         case T_MON:
 166                 if (tm.month[11] != NULL)
 167                         return;
 168                 break;
 169         case T_ABDAY:
 170                 if (tm.wday[6] != NULL)
 171                         return;
 172                 break;
 173         case T_DAY:
 174                 if (tm.weekday[6] != NULL)
 175                         return;
 176                 break;
 177         case T_AM_PM:
 178                 if (tm.pm != NULL)
 179                         return;
 180                 break;
 181         case T_ERA:
 182         case T_ALT_DIGITS:
 183                 return;
 184         default:
 185                 fprintf(stderr,"unknown list");
 186                 break;
 187         }
 188
 189         fprintf(stderr,"too few items in list (%d)", last_kw);
 190 }
 191
 192 void
 193 reset_time_list(void)
 194 {
 195         int i;
 196         switch (last_kw) {
 197         case T_ABMON:
 198                 for (i = 0; i < 12; i++) {
 199                         free((char *)tm.mon[i]);
 200                         tm.mon[i] = NULL;
 201                 }
 202                 break;
 203         case T_MON:
 204                 for (i = 0; i < 12; i++) {
 205                         free((char *)tm.month[i]);
 206                         tm.month[i] = NULL;
 207                 }
 208                 break;
 209         case T_ABDAY:
 210                 for (i = 0; i < 7; i++) {
 211                         free((char *)tm.wday[i]);
 212                         tm.wday[i] = NULL;
 213                 }
 214                 break;
 215         case T_DAY:
 216                 for (i = 0; i < 7; i++) {
 217                         free((char *)tm.weekday[i]);
 218                         tm.weekday[i] = NULL;
 219                 }
 220                 break;
 221         case T_AM_PM:
 222                 free((char *)tm.am);
 223                 tm.am = NULL;
 224                 free((char *)tm.pm);
 225                 tm.pm = NULL;
 226                 break;
 227         }
 228 }
 229
 230 void
 231 dump_time(void)
 232 {
 233         FILE *f;
 234         int i;
 235
 236         if ((f = open_category()) == NULL) {
 237                 return;
 238         }
 239
 240         for (i = 0; i < 12; i++) {
 241                 if (putl_category(tm.mon[i], f) == EOF) {
 242                         return;
 243                 }
 244         }
 245         for (i = 0; i < 12; i++) {
 246                 if (putl_category(tm.month[i], f) == EOF) {
 247                         return;
 248                 }
 249         }
 250         for (i = 0; i < 7; i++) {
 251                 if (putl_category(tm.wday[i], f) == EOF) {
 252                         return;
 253                 }
 254         }
 255         for (i = 0; i < 7; i++) {
 256                 if (putl_category(tm.weekday[i], f) == EOF) {
 257                         return;
 258                 }
 259         }
 260
 261         /*
 262          * NOTE: If date_fmt is not specified, then we'll default to
 263          * using the %c for date.  This is reasonable for most
 264          * locales, although for reasons that I don't understand
 265          * Solaris historically has had a separate format for date.
 266          */
 267         if ((putl_category(tm.X_fmt, f) == EOF) ||
 268             (putl_category(tm.x_fmt, f) == EOF) ||
 269             (putl_category(tm.c_fmt, f) == EOF) ||
 270             (putl_category(tm.am, f) == EOF) ||
 271             (putl_category(tm.pm, f) == EOF) ||
 272             (putl_category(tm.date_fmt ? tm.date_fmt : tm.c_fmt, f) == EOF) ||
 273             (putl_category(tm.ampm_fmt, f) == EOF)) {
 274                 return;
 275         }
 276         close_category(f);
 277 }