/*-
 * Copyright 2010 Nexenta Systems, Inc.  All rights reserved.
 * Copyright 2015 John Marino <draco@marino.st>
 *
 * This source code is derived from the illumos localedef command, and
 * provided under BSD-style license terms by Nexenta Systems, Inc.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

/*
 * LC_TIME database generation routines for localedef.
 */
#include <sys/cdefs.h>
#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include <sys/types.h>
#include <string.h>
#include <unistd.h>
#include "localedef.h"
#include "parser.h"
#include "timelocal.h"

struct lc_time_T tm;

void
init_time(void)
{
        (void) memset(&tm, 0, sizeof (tm));
}

void
add_time_str(wchar_t *wcs)
{
        char    *str;

        if ((str = to_mb_string(wcs)) == NULL) {
                INTERR;
                return;
        }
        free(wcs);

        switch (last_kw) {
        case T_D_T_FMT:
                tm.c_fmt = str;
                break;
        case T_D_FMT:
                tm.x_fmt = str;
                break;
        case T_T_FMT:
                tm.X_fmt = str;
                break;
        case T_T_FMT_AMPM:
                tm.ampm_fmt = str;
                break;
        case T_DATE_FMT:
                /*
                 * This one is a Solaris extension, Too bad date just
                 * doesn't use %c, which would be simpler.
                 */
                tm.date_fmt = str;
                break;
        case T_ERA_D_FMT:
        case T_ERA_T_FMT:
        case T_ERA_D_T_FMT:
                /* Silently ignore it. */
                free(str);
                break;
        default:
                free(str);
                INTERR;
                break;
        }
}

static void
add_list(const char *ptr[], char *str, int limit)
{
        int     i;
        for (i = 0; i < limit; i++) {
                if (ptr[i] == NULL) {
                        ptr[i] = str;
                        return;
                }
        }
        fprintf(stderr,"too many list elements\n");
}

void
add_time_list(wchar_t *wcs)
{
        char *str;

        if ((str = to_mb_string(wcs)) == NULL) {
                INTERR;
                return;
        }
        free(wcs);

        switch (last_kw) {
        case T_ABMON:
                add_list(tm.mon, str, 12);
                break;
        case T_MON:
                add_list(tm.month, str, 12);
                break;
        case T_ABDAY:
                add_list(tm.wday, str, 7);
                break;
        case T_DAY:
                add_list(tm.weekday, str, 7);
                break;
        case T_AM_PM:
                if (tm.am == NULL) {
                        tm.am = str;
                } else if (tm.pm == NULL) {
                        tm.pm = str;
                } else {
                        fprintf(stderr,"too many list elements\n");
                        free(str);
                }
                break;
        case T_ALT_DIGITS:
        case T_ERA:
                free(str);
                break;
        default:
                free(str);
                INTERR;
                break;
        }
}

void
check_time_list(void)
{
        switch (last_kw) {
        case T_ABMON:
                if (tm.mon[11] != NULL)
                        return;
                break;
        case T_MON:
                if (tm.month[11] != NULL)
                        return;
                break;
        case T_ABDAY:
                if (tm.wday[6] != NULL)
                        return;
                break;
        case T_DAY:
                if (tm.weekday[6] != NULL)
                        return;
                break;
        case T_AM_PM:
                if (tm.pm != NULL)
                        return;
                break;
        case T_ERA:
        case T_ALT_DIGITS:
                return;
        default:
                fprintf(stderr,"unknown list\n");
                break;
        }

        fprintf(stderr,"too few items in list (%d)\n", last_kw);
}

void
reset_time_list(void)
{
        int i;
        switch (last_kw) {
        case T_ABMON:
                for (i = 0; i < 12; i++) {
                        free((char *)tm.mon[i]);
                        tm.mon[i] = NULL;
                }
                break;
        case T_MON:
                for (i = 0; i < 12; i++) {
                        free((char *)tm.month[i]);
                        tm.month[i] = NULL;
                }
                break;
        case T_ABDAY:
                for (i = 0; i < 7; i++) {
                        free((char *)tm.wday[i]);
                        tm.wday[i] = NULL;
                }
                break;
        case T_DAY:
                for (i = 0; i < 7; i++) {
                        free((char *)tm.weekday[i]);
                        tm.weekday[i] = NULL;
                }
                break;
        case T_AM_PM:
                free((char *)tm.am);
                tm.am = NULL;
                free((char *)tm.pm);
                tm.pm = NULL;
                break;
        }
}

void
dump_time(void)
{
        FILE *f;
        int i;

        if ((f = open_category()) == NULL) {
                return;
        }

        for (i = 0; i < 12; i++) {
                if (putl_category(tm.mon[i], f) == EOF) {
                        return;
                }
        }
        for (i = 0; i < 12; i++) {
                if (putl_category(tm.month[i], f) == EOF) {
                        return;
                }
        }
        for (i = 0; i < 7; i++) {
                if (putl_category(tm.wday[i], f) == EOF) {
                        return;
                }
        }
        for (i = 0; i < 7; i++) {
                if (putl_category(tm.weekday[i], f) == EOF) {
                        return;
                }
        }

        /*
         * NOTE: If date_fmt is not specified, then we'll default to
         * using the %c for date.  This is reasonable for most
         * locales, although for reasons that I don't understand
         * Solaris historically has had a separate format for date.
         */
        if ((putl_category(tm.X_fmt, f) == EOF) ||
            (putl_category(tm.x_fmt, f) == EOF) ||
            (putl_category(tm.c_fmt, f) == EOF) ||
            (putl_category(tm.am, f) == EOF) ||
            (putl_category(tm.pm, f) == EOF) ||
            (putl_category(tm.date_fmt ? tm.date_fmt : tm.c_fmt, f) == EOF) ||
            (putl_category(tm.ampm_fmt, f) == EOF)) {
                return;
        }
        close_category(f);
}