#include "util/tc_platform.h"
#include "util/tc_strptime.h"

#ifdef TARGET_PLATFORM_WINDOWS

void get_locale_strings(void);

/* XXX This version of the implementation is not really complete.
Some of the fields cannot add information alone.  But if seeing
some of them in the same format (such as year, week and weekday)
this is enough information for determining the date.  */

#include <ctype.h>
#include <limits.h>
#include <string.h>
#include <time.h>

#define match_char(ch1, ch2) if (ch1 != ch2) return NULL


#ifdef _MSC_VER

#ifndef strcasecmp
#define strcasecmp _stricmp
#endif

#ifndef strncasecmp
#define strncasecmp  _strnicmp 
#endif

#endif

#ifndef Macintosh
#if defined __GNUC__ && __GNUC__ >= 2
# define match_string(cs1, s2) \
   ({ size_t len = strlen (cs1);                                               \
      int result = strncasecmp ((cs1), (s2), len) == 0;                        \
      if (result) (s2) += len;                                                 \
      result; })
#else
/* Oh come on.  Get a reasonable compiler.  */
# define match_string(cs1, s2) \
   (strncasecmp ((cs1), (s2), strlen (cs1)) ? 0 : ((s2) += strlen (cs1), 1))
#endif
#else
# define match_string(cs1, s2) \
   (strncmp ((cs1), (s2), strlen (cs1)) ? 0 : ((s2) += strlen (cs1), 1))
#endif /* mac */

/* We intentionally do not use isdigit() for testing because this will
lead to problems with the wide character version.  */
#define get_number(from, to, n) \
   do {                                                                        \
     int __n = n;                                                              \
     val = 0;                                                                  \
     while (*rp == ' ')                                                        \
       ++rp;                                                                   \
     if (*rp < '0' || *rp > '9')                                               \
       return NULL;                                                            \
     do {                                                                      \
       val *= 10;                                                              \
       val += *rp++ - '0';                                                     \
     } while (--__n > 0 && val * 10 <= to && *rp >= '0' && *rp <= '9');        \
     if (val < from || val > to)                                               \
       return NULL;                                                            \
   } while (0)
# define get_alt_number(from, to, n) \
   /* We don't have the alternate representation.  */                          \
   get_number(from, to, n)
#define recursive(new_fmt) \
   (*(new_fmt) != '\0'                                                         \
    && (rp = strptime_internal (rp, (new_fmt), tm, decided)) != NULL)

/* This version: may overwrite these with versions for the locale */
static char weekday_name[][20] =
{
    "Sunday", "Monday", "Tuesday", "Wednesday",
    "Thursday", "Friday", "Saturday"
};
static char ab_weekday_name[][10] =
{
    "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
};
static char month_name[][20] =
{
    "January", "February", "March", "April", "May", "June",
    "July", "August", "September", "October", "November", "December"
};
static char ab_month_name[][10] =
{
    "Jan", "Feb", "Mar", "Apr", "May", "Jun",
    "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
};

static char am_pm[][4] = { "AM", "PM" };


# define HERE_D_T_FMT "%a %b %e %H:%M:%S %Y"
# define HERE_D_FMT "%y/%m/%d"
# define HERE_T_FMT_AMPM "%I:%M:%S %p"
# define HERE_T_FMT "%H:%M:%S"

static const unsigned short int __mon_yday[2][13] =
{
    /* Normal years.  */
    { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365 },
    /* Leap years.  */
    { 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366 }
};


/* Status of lookup: do we use the locale data or the raw data?  */
enum locale_status { null, loc, raw };

# define __isleap(year) \
   ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0))

/* Compute the day of the week.  */
void
day_of_the_week(struct tm *tm)
{
    /* We know that January 1st 1970 was a Thursday (= 4).  Compute the
    the difference between this data in the one on TM and so determine
    the weekday.  */
    int corr_year = 1900 + tm->tm_year - (tm->tm_mon < 2);
    int wday = (-473
        + (365 * (tm->tm_year - 70))
        + (corr_year / 4)
        - ((corr_year / 4) / 25) + ((corr_year / 4) % 25 < 0)
        + (((corr_year / 4) / 25) / 4)
        + __mon_yday[0][tm->tm_mon]
        + tm->tm_mday - 1);
    tm->tm_wday = ((wday % 7) + 7) % 7;
}

/* Compute the day of the year.  */
void
day_of_the_year(struct tm *tm)
{
    tm->tm_yday = (__mon_yday[__isleap(1900 + tm->tm_year)][tm->tm_mon]
        + (tm->tm_mday - 1));
}

char *
strptime_internal(const char *rp, const char *fmt, struct tm *tm,
    enum locale_status *decided)
{
    const char *rp_backup;
    int cnt;
    size_t val;
    int have_I, is_pm;
    int century, want_century;
    int have_wday, want_xday;
    int have_yday;
    int have_mon, have_mday;

    have_I = is_pm = 0;
    century = -1;
    want_century = 0;
    have_wday = want_xday = have_yday = have_mon = have_mday = 0;

    while (*fmt != '\0')
    {
        /* A white space in the format string matches 0 more or white
        space in the input string.  */
        if (isspace(*fmt))
        {
            while (isspace(*rp))
                ++rp;
            ++fmt;
            continue;
        }

        /* Any character but `%' must be matched by the same character
        in the iput string.  */
        if (*fmt != '%')
        {
            match_char(*fmt++, *rp++);
            continue;
        }

        ++fmt;

        /* We need this for handling the `E' modifier.  */
    start_over:

        /* Make back up of current processing pointer.  */
        rp_backup = rp;

        switch (*fmt++)
        {
        case '%':
            /* Match the `%' character itself.  */
            match_char('%', *rp++);
            break;
        case 'a':
        case 'A':
            /* Match day of week.  */
            for (cnt = 0; cnt < 7; ++cnt)
            {
                if (*decided != loc
                    && (match_string(weekday_name[cnt], rp)
                        || match_string(ab_weekday_name[cnt], rp)))
                {
                    *decided = raw;
                    break;
                }
            }
            if (cnt == 7)
                /* Does not match a weekday name.  */
                return NULL;
            tm->tm_wday = cnt;
            have_wday = 1;
            break;
        case 'b':
        case 'B':
        case 'h':
            /* Match month name.  */
            for (cnt = 0; cnt < 12; ++cnt)
            {
                if (match_string(month_name[cnt], rp)
                    || match_string(ab_month_name[cnt], rp))
                {
                    *decided = raw;
                    break;
                }
            }
            if (cnt == 12)
                /* Does not match a month name.  */
                return NULL;
            tm->tm_mon = cnt;
            want_xday = 1;
            break;
        case 'c':
            /* Match locale's date and time format.  */
            if (!recursive(HERE_T_FMT_AMPM))
                return NULL;
            break;
        case 'C':
            /* Match century number.  */
            get_number(0, 99, 2);
            century = val;
            want_xday = 1;
            break;
        case 'd':
        case 'e':
            /* Match day of month.  */
            get_number(1, 31, 2);
            tm->tm_mday = val;
            have_mday = 1;
            want_xday = 1;
            break;
        case 'F':
            if (!recursive("%Y-%m-%d"))
                return NULL;
            want_xday = 1;
            break;
        case 'x':
            /* Fall through.  */
        case 'D':
            /* Match standard day format.  */
            if (!recursive(HERE_D_FMT))
                return NULL;
            want_xday = 1;
            break;
        case 'k':
        case 'H':
            /* Match hour in 24-hour clock.  */
            get_number(0, 23, 2);
            tm->tm_hour = val;
            have_I = 0;
            break;
        case 'I':
            /* Match hour in 12-hour clock.  */
            get_number(1, 12, 2);
            tm->tm_hour = val % 12;
            have_I = 1;
            break;
        case 'j':
            /* Match day number of year.  */
            get_number(1, 366, 3);
            tm->tm_yday = val - 1;
            have_yday = 1;
            break;
        case 'm':
            /* Match number of month.  */
            get_number(1, 12, 2);
            tm->tm_mon = val - 1;
            have_mon = 1;
            want_xday = 1;
            break;
        case 'M':
            /* Match minute.  */
            get_number(0, 59, 2);
            tm->tm_min = val;
            break;
        case 'n':
        case 't':
            /* Match any white space.  */
            while (isspace(*rp))
                ++rp;
            break;
        case 'p':
            /* Match locale's equivalent of AM/PM.  */
            if (!match_string(am_pm[0], rp))
                if (match_string(am_pm[1], rp))
                    is_pm = 1;
                else
                    return NULL;
            break;
        case 'r':
            if (!recursive(HERE_T_FMT_AMPM))
                return NULL;
            break;
        case 'R':
            if (!recursive("%H:%M"))
                return NULL;
            break;
        case 's':
        {
            /* The number of seconds may be very high so we cannot use
            the `get_number' macro.  Instead read the number
            character for character and construct the result while
            doing this.  */
            time_t secs = 0;
            if (*rp < '0' || *rp > '9')
                /* We need at least one digit.  */
                return NULL;

            do
            {
                secs *= 10;
                secs += *rp++ - '0';
            } while (*rp >= '0' && *rp <= '9');

            if ((gmtime_s(tm, &secs)) == 0)
                /* Error in function.  */
                return NULL;
        }
        break;
        case 'S':
            get_number(0, 61, 2);
            tm->tm_sec = val;
            break;
        case 'X':
            /* Fall through.  */
        case 'T':
            if (!recursive(HERE_T_FMT))
                return NULL;
            break;
        case 'u':
            get_number(1, 7, 1);
            tm->tm_wday = val % 7;
            have_wday = 1;
            break;
        case 'g':
            get_number(0, 99, 2);
            /* XXX This cannot determine any field in TM.  */
            break;
        case 'G':
            if (*rp < '0' || *rp > '9')
                return NULL;
            /* XXX Ignore the number since we would need some more
            information to compute a real date.  */
            do
                ++rp;
            while (*rp >= '0' && *rp <= '9');
            break;
        case 'U':
        case 'V':
        case 'W':
            get_number(0, 53, 2);
            /* XXX This cannot determine any field in TM without some
            information.  */
            break;
        case 'w':
            /* Match number of weekday.  */
            get_number(0, 6, 1);
            tm->tm_wday = val;
            have_wday = 1;
            break;
        case 'y':
            /* Match year within century.  */
            get_number(0, 99, 2);
            /* The "Year 2000: The Millennium Rollover" paper suggests that
            values in the range 69-99 refer to the twentieth century.  */
            tm->tm_year = val >= 69 ? val : val + 100;
            /* Indicate that we want to use the century, if specified.  */
            want_century = 1;
            want_xday = 1;
            break;
        case 'Y':
            /* Match year including century number.  */
            get_number(0, 9999, 4);
            tm->tm_year = val - 1900;
            want_century = 0;
            want_xday = 1;
            break;
        case 'Z':
            /* XXX How to handle this?  */
            break;
        case 'E':
            /* We have no information about the era format.  Just use
            the normal format.  */
            if (*fmt != 'c' && *fmt != 'C' && *fmt != 'y' && *fmt != 'Y'
                && *fmt != 'x' && *fmt != 'X')
                /* This is an invalid format.  */
                return NULL;

            goto start_over;
        case 'O':
            switch (*fmt++)
            {
            case 'd':
            case 'e':
                /* Match day of month using alternate numeric symbols.  */
                get_alt_number(1, 31, 2);
                tm->tm_mday = val;
                have_mday = 1;
                want_xday = 1;
                break;
            case 'H':
                /* Match hour in 24-hour clock using alternate numeric
                symbols.  */
                get_alt_number(0, 23, 2);
                tm->tm_hour = val;
                have_I = 0;
                break;
            case 'I':
                /* Match hour in 12-hour clock using alternate numeric
                symbols.  */
                get_alt_number(1, 12, 2);
                tm->tm_hour = val - 1;
                have_I = 1;
                break;
            case 'm':
                /* Match month using alternate numeric symbols.  */
                get_alt_number(1, 12, 2);
                tm->tm_mon = val - 1;
                have_mon = 1;
                want_xday = 1;
                break;
            case 'M':
                /* Match minutes using alternate numeric symbols.  */
                get_alt_number(0, 59, 2);
                tm->tm_min = val;
                break;
            case 'S':
                /* Match seconds using alternate numeric symbols.  */
                get_alt_number(0, 61, 2);
                tm->tm_sec = val;
                break;
            case 'U':
            case 'V':
            case 'W':
                get_alt_number(0, 53, 2);
                /* XXX This cannot determine any field in TM without
                further information.  */
                break;
            case 'w':
                /* Match number of weekday using alternate numeric symbols.  */
                get_alt_number(0, 6, 1);
                tm->tm_wday = val;
                have_wday = 1;
                break;
            case 'y':
                /* Match year within century using alternate numeric symbols.  */
                get_alt_number(0, 99, 2);
                tm->tm_year = val >= 69 ? val : val + 100;
                want_xday = 1;
                break;
            default:
                return NULL;
            }
            break;
        default:
            return NULL;
        }
    }

    if (have_I && is_pm)
        tm->tm_hour += 12;

    if (century != -1)
    {
        if (want_century)
            tm->tm_year = tm->tm_year % 100 + (century - 19) * 100;
        else
            /* Only the century, but not the year.  Strange, but so be it.  */
            tm->tm_year = (century - 19) * 100;
    }

    if (want_xday && !have_wday) {
        if (!(have_mon && have_mday) && have_yday) {
            /* we don't have tm_mon and/or tm_mday, compute them */
            int t_mon = 0;
            while (__mon_yday[__isleap(1900 + tm->tm_year)][t_mon] <= tm->tm_yday)
                t_mon++;
            if (!have_mon)
                tm->tm_mon = t_mon - 1;
            if (!have_mday)
                tm->tm_mday = tm->tm_yday - __mon_yday[__isleap(1900 + tm->tm_year)][t_mon - 1] + 1;
        }
        day_of_the_week(tm);
    }
    if (want_xday && !have_yday)
        day_of_the_year(tm);

    return (char *)rp;
}

char *
strptime(const char *buf, const char *format, struct tm *tm)
{
    enum locale_status decided;
#ifdef HAVE_LOCALE_H
    if (!have_used_strptime) {
        get_locale_strings();
        /* have_used_strptime = 1; might change locale during session */
    }
#endif
    decided = raw;
    return strptime_internal(buf, format, tm, &decided);
}

#ifdef HAVE_LOCALE_H
void get_locale_strings(void)
{
    int i;
    struct tm tm;
    char buff[4];

    tm.tm_sec = tm.tm_min = tm.tm_hour = tm.tm_mday = tm.tm_mon
        = tm.tm_isdst = 0;
    tm.tm_year = 30;
    for (i = 0; i < 12; i++) {
        tm.tm_mon = i;
        strftime(ab_month_name[i], 10, "%b", &tm);
        strftime(month_name[i], 20, "%B", &tm);
    }
    tm.tm_mon = 0;
    for (i = 0; i < 7; i++) {
        tm.tm_mday = tm.tm_yday = i + 1; /* 2000-1-2 was a Sunday */
        tm.tm_wday = i;
        strftime(ab_weekday_name[i], 10, "%a", &tm);
        strftime(weekday_name[i], 20, "%A", &tm);
    }
    tm.tm_hour = 1;
    /* in locales where these are unused, they may be empty: better
    not to reset them then */
    strftime(buff, 4, "%p", &tm);
    if (strlen(buff)) strcpy(am_pm[0], buff);
    tm.tm_hour = 13;
    strftime(buff, 4, "%p", &tm);
    if (strlen(buff)) strcpy(am_pm[1], buff);
}
#endif

#endif