rfctime.c

Go to the documentation of this file.

/*
 * Copyright (C) 2007 by egnite Software GmbH. All rights reserved.
 *
 * 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.
 * 3. Neither the name of the copyright holders nor the names of
 *    contributors may be used to endorse or promote products derived
 *    from this software without specific prior written permission.
 *
 * 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.
 *
 * For additional information see http://www.ethernut.de/
 */

#include <stdio.h>
#include <string.h>
#include <ctype.h>

#include <pro/rfctime.h>

static char rfc1123_buf[32];
static char *wkdays[7] = { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" };
static char *months[12] = { "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" };

static char *skip_spaces(CONST char *str)
{
    while (*str == ' ' || *str == '\t')
        str++;
    return (char *)str;
}

static char *parse_digits(CONST char *str, int *val)
{
    *val = 0;
    while (isdigit((unsigned char)*str)) {
        *val *= 10;
        *val += *str++ - '0';
    }
    return (char *)str;
}

char *TimeParseYear(CONST char *str, int *year)
{
    str = parse_digits(str, year);
    if (*year < 70) {
        *year += 100;
    }
    else if (*year > 1900) {
        *year -= 1900;
    }
    return (char *)str;
}

char *TimeParseMonth(CONST char *str, int *month)
{
    if (*str == 'A') {
        if (*++str == 'p' || *str == 'P') {
            /* April */
            *month = 3;
        }
        else {
            /* August */
            *month = 7;
        }
    }
    else if (*str == 'D') {
        /* December */
        *month = 11;
    }
    else if (*str == 'F') {
        /* February */
        *month = 1;
    }
    else if (*str == 'J') {
        if (*++str == 'a' || *str == 'A') {
            /* January */
            *month = 0;
        }
        else if (*str && (*++str == 'l' || *str == 'L')) {
            /* July */
            *month = 6;
        }
        else {
            /* June */
            *month = 5;
        }
    }
    else if (*str == 'M') {
        if (*++str == 'a' && (*++str == 'r' || *str == 'R')) {
            /* March */
            *month = 2;
        }
        else {
            /* May */
            *month = 4;
        }
    }
    else if (*str == 'N') {
        /* November */
        *month = 10;
    }
    else if (*str == 'O') {
        /* October */
        *month = 9;
    }
    else {
        /* September */
        *month = 8;
    }
    while (isalpha((unsigned char)*str)) {
        str++;
    }
    return (char *)str;
}

char *TimeParseDmy(CONST char *str, int *mday, int *mon, int *year)
{
    str = parse_digits(str, mday);
    while (*str && !isalpha((unsigned char)*str)) {
        str++;
    }
    str = TimeParseMonth(str, mon);
    while (*str && !isdigit((unsigned char)*str)) {
        str++;
    }
    str = TimeParseYear(str, year);

    return (char *)str;
}

char *TimeParseHms(CONST char *str, int *hour, int *min, int *sec)
{
    str = parse_digits(str, hour);
    if (*str == ':') {
        str = parse_digits(str + 1, min);
        if (*str == ':') {
            str = parse_digits(str + 1, sec);
        }
        else {
            *sec = 0;
        }
    }
    else {
        *min = 0;
    }
    return (char *)str;
}

time_t RfcTimeParse(CONST char *str)
{
    struct _tm dts = { 0, 0, 0, 1, 0, 0, 0, 0, 0 };

    /* Skip leading whitespace. */
    str = skip_spaces(str);

    /* Skip weekday, optional in RFC 822. */
    if (isalpha((unsigned char)*str)) {
        while (*str && *str != ' ' && *str != '\t')
            str++;
        str = skip_spaces(str);
    }

    if (isalpha((unsigned char)*str)) {
        /* asctime format 'Fri Feb 2 2007 07:30:05'. */
        str = TimeParseMonth(str, &dts.tm_mon);
        str = skip_spaces(str);
        str = parse_digits(str, &dts.tm_mday);
        str = skip_spaces(str);
        str = TimeParseYear(str, &dts.tm_year);
        str = skip_spaces(str);
        str = TimeParseHms(str, &dts.tm_hour, &dts.tm_min, &dts.tm_sec);
    }
    else if (*str) {
        /* RFC 850 'Friday, 02-Feb-2007 07:30:05 GMT'. */
        /* RFC 1123 'Fri, 02 Feb 2007 07:30:05 GMT'. */
        str = TimeParseDmy(str, &dts.tm_mday, &dts.tm_mon, &dts.tm_year);
        str = skip_spaces(str);
        str = TimeParseHms(str, &dts.tm_hour, &dts.tm_min, &dts.tm_sec);
    }
    str = skip_spaces(str);
    if (strcmp(str, "GMT") == 0) {
        return mktime(&dts);
    }
    return _mkgmtime(&dts);
}

char *Rfc1123TimeString(struct _tm *tm)
{
    sprintf(rfc1123_buf, "%s, %02d %s %04d %02d:%02d:%02d",
            wkdays[tm->tm_wday],
            tm->tm_mday, months[tm->tm_mon], tm->tm_year + 1900,
            tm->tm_hour, tm->tm_min, tm->tm_sec);

    return rfc1123_buf;
}