root/ext/date/lib/timelib.c

/* [<][>][^][v][top][bottom][index][help] */

DEFINITIONS

This source file includes following definitions.
  1. timelib_time_ctor
  2. timelib_rel_time_ctor
  3. timelib_time_clone
  4. timelib_rel_time_clone
  5. timelib_time_tz_abbr_update
  6. timelib_time_dtor
  7. timelib_rel_time_dtor
  8. timelib_time_offset_ctor
  9. timelib_time_offset_dtor
  10. timelib_tzinfo_ctor
  11. timelib_tzinfo_clone
  12. timelib_tzinfo_dtor
  13. timelib_get_tz_abbr_ptr
  14. timelib_error_container_dtor
  15. timelib_date_to_int
  16. timelib_decimal_hour_to_hms
  17. timelib_dump_date
  18. timelib_dump_rel_time
  19. timelib_parse_tz_cor

/*
   +----------------------------------------------------------------------+
   | PHP Version 5                                                        |
   +----------------------------------------------------------------------+
   | Copyright (c) 1997-2015 The PHP Group                                |
   +----------------------------------------------------------------------+
   | This source file is subject to version 3.01 of the PHP license,      |
   | that is bundled with this package in the file LICENSE, and is        |
   | available through the world-wide-web at the following url:           |
   | http://www.php.net/license/3_01.txt                                  |
   | If you did not receive a copy of the PHP license and are unable to   |
   | obtain it through the world-wide-web, please send a note to          |
   | license@php.net so we can mail you a copy immediately.               |
   +----------------------------------------------------------------------+
   | Authors: Derick Rethans <derick@derickrethans.nl>                    |
   +----------------------------------------------------------------------+
 */

/* $Id$ */

#include "timelib.h"
#include <ctype.h>
#include <math.h>

#define TIMELIB_TIME_FREE(m)    \
        if (m) {                \
                free(m);        \
                m = NULL;       \
        }                       \

#define TIMELIB_LLABS(y) (y < 0 ? (y * -1) : y)

#define HOUR(a) (int)(a * 60)

timelib_time* timelib_time_ctor(void)
{
        timelib_time *t;
        t = calloc(1, sizeof(timelib_time));

        return t;
}

timelib_rel_time* timelib_rel_time_ctor(void)
{
        timelib_rel_time *t;
        t = calloc(1, sizeof(timelib_rel_time));

        return t;
}

timelib_time* timelib_time_clone(timelib_time *orig)
{
        timelib_time *tmp = timelib_time_ctor();
        memcpy(tmp, orig, sizeof(timelib_time));
        if (orig->tz_abbr) {
                tmp->tz_abbr = strdup(orig->tz_abbr);
        }
        if (orig->tz_info) {
                tmp->tz_info = orig->tz_info;
        }
        return tmp;
}

timelib_rel_time* timelib_rel_time_clone(timelib_rel_time *rel)
{
        timelib_rel_time *tmp = timelib_rel_time_ctor();
        memcpy(tmp, rel, sizeof(timelib_rel_time));
        return tmp;
}

void timelib_time_tz_abbr_update(timelib_time* tm, char* tz_abbr)
{
        unsigned int i;
        
        TIMELIB_TIME_FREE(tm->tz_abbr);
        tm->tz_abbr = strdup(tz_abbr);
        for (i = 0; i < strlen(tz_abbr); i++) {
                tm->tz_abbr[i] = toupper(tz_abbr[i]);
        }
}

void timelib_time_dtor(timelib_time* t)
{
        TIMELIB_TIME_FREE(t->tz_abbr);
        TIMELIB_TIME_FREE(t);
}

void timelib_rel_time_dtor(timelib_rel_time* t)
{
        TIMELIB_TIME_FREE(t);
}

timelib_time_offset* timelib_time_offset_ctor(void)
{
        timelib_time_offset *t;
        t = calloc(1, sizeof(timelib_time_offset));

        return t;
}

void timelib_time_offset_dtor(timelib_time_offset* t)
{
        TIMELIB_TIME_FREE(t->abbr);
        TIMELIB_TIME_FREE(t);
}

timelib_tzinfo* timelib_tzinfo_ctor(char *name)
{
        timelib_tzinfo *t;
        t = calloc(1, sizeof(timelib_tzinfo));
        t->name = strdup(name);

        return t;
}

timelib_tzinfo *timelib_tzinfo_clone(timelib_tzinfo *tz)
{
        timelib_tzinfo *tmp = timelib_tzinfo_ctor(tz->name);
        tmp->bit32.ttisgmtcnt = tz->bit32.ttisgmtcnt;
        tmp->bit32.ttisstdcnt = tz->bit32.ttisstdcnt;
        tmp->bit32.leapcnt = tz->bit32.leapcnt;
        tmp->bit32.timecnt = tz->bit32.timecnt;
        tmp->bit32.typecnt = tz->bit32.typecnt;
        tmp->bit32.charcnt = tz->bit32.charcnt;

        tmp->trans = (int32_t *) malloc(tz->bit32.timecnt * sizeof(int32_t));
        tmp->trans_idx = (unsigned char*) malloc(tz->bit32.timecnt * sizeof(unsigned char));
        memcpy(tmp->trans, tz->trans, tz->bit32.timecnt * sizeof(int32_t));
        memcpy(tmp->trans_idx, tz->trans_idx, tz->bit32.timecnt * sizeof(unsigned char));

        tmp->type = (ttinfo*) malloc(tz->bit32.typecnt * sizeof(struct ttinfo));
        memcpy(tmp->type, tz->type, tz->bit32.typecnt * sizeof(struct ttinfo));

        tmp->timezone_abbr = (char*) malloc(tz->bit32.charcnt);
        memcpy(tmp->timezone_abbr, tz->timezone_abbr, tz->bit32.charcnt);

        tmp->leap_times = (tlinfo*) malloc(tz->bit32.leapcnt * sizeof(tlinfo));
        memcpy(tmp->leap_times, tz->leap_times, tz->bit32.leapcnt * sizeof(tlinfo));

        return tmp;
}

void timelib_tzinfo_dtor(timelib_tzinfo *tz)
{
        TIMELIB_TIME_FREE(tz->name);
        TIMELIB_TIME_FREE(tz->trans);
        TIMELIB_TIME_FREE(tz->trans_idx);
        TIMELIB_TIME_FREE(tz->type);
        TIMELIB_TIME_FREE(tz->timezone_abbr);
        TIMELIB_TIME_FREE(tz->leap_times);
        TIMELIB_TIME_FREE(tz->location.comments);
        TIMELIB_TIME_FREE(tz);
        tz = NULL;
}

char *timelib_get_tz_abbr_ptr(timelib_time *t)
{
        if (!t->sse_uptodate) {
                timelib_update_ts(t, NULL);
        };
        return t->tz_abbr;
}

void timelib_error_container_dtor(timelib_error_container *errors)
{
        int i;

        for (i = 0; i < errors->warning_count; i++) {
                free(errors->warning_messages[i].message);
        }
        free(errors->warning_messages);
        for (i = 0; i < errors->error_count; i++) {
                free(errors->error_messages[i].message);
        }
        free(errors->error_messages);
        free(errors);
}

signed long timelib_date_to_int(timelib_time *d, int *error)
{
        timelib_sll ts;

        ts = d->sse;

        if (ts < LONG_MIN || ts > LONG_MAX) {
                if (error) {
                        *error = 1;
                }
                return 0;
        }
        if (error) {
                *error = 0;
        }
        return (signed long) d->sse;
}

void timelib_decimal_hour_to_hms(double h, int *hour, int *min, int *sec)
{
        *hour = floor(h);
        *min =  floor((h - *hour) * 60);
        *sec =  (h - *hour - ((float) *min / 60)) * 3600;
}

void timelib_dump_date(timelib_time *d, int options)
{
        if ((options & 2) == 2) {
                printf("TYPE: %d ", d->zone_type);
        }
        printf("TS: %lld | %s%04lld-%02lld-%02lld %02lld:%02lld:%02lld",
                d->sse, d->y < 0 ? "-" : "", TIMELIB_LLABS(d->y), d->m, d->d, d->h, d->i, d->s);
        if (d->f > +0.0) {
                printf(" %.5f", d->f);
        }

        if (d->is_localtime) {
                switch (d->zone_type) {
                        case TIMELIB_ZONETYPE_OFFSET: /* Only offset */
                                printf(" GMT %05d%s", d->z, d->dst == 1 ? " (DST)" : "");
                                break;
                        case TIMELIB_ZONETYPE_ID: /* Timezone struct */
                                /* Show abbreviation if wanted */
                                if (d->tz_abbr) {
                                        printf(" %s", d->tz_abbr);
                                }
                                /* Do we have a TimeZone struct? */
                                if (d->tz_info) {
                                        printf(" %s", d->tz_info->name);
                                }
                                break;
                        case TIMELIB_ZONETYPE_ABBR:
                                printf(" %s", d->tz_abbr);
                                printf(" %05d%s", d->z, d->dst == 1 ? " (DST)" : "");
                                break;
                }
        }

        if ((options & 1) == 1) {
                if (d->have_relative) {
                        printf("%3lldY %3lldM %3lldD / %3lldH %3lldM %3lldS",
                                d->relative.y, d->relative.m, d->relative.d, d->relative.h, d->relative.i, d->relative.s);
                        if (d->relative.first_last_day_of != 0) {
                                switch (d->relative.first_last_day_of) {
                                        case 1:
                                                printf(" / first day of");
                                                break;
                                        case 2:
                                                printf(" / last day of");
                                                break;
                                }
                        }
                        if (d->relative.have_weekday_relative) {
                                printf(" / %d.%d", d->relative.weekday, d->relative.weekday_behavior);
                        }
                        if (d->relative.have_special_relative) {
                                switch (d->relative.special.type) {
                                        case TIMELIB_SPECIAL_WEEKDAY:
                                                printf(" / %lld weekday", d->relative.special.amount);
                                                break;
                                        case TIMELIB_SPECIAL_DAY_OF_WEEK_IN_MONTH:
                                                printf(" / x y of z month");
                                                break;
                                        case TIMELIB_SPECIAL_LAST_DAY_OF_WEEK_IN_MONTH:
                                                printf(" / last y of z month");
                                                break;
                                }
                        }
                }
        }
        printf("\n");
}

void timelib_dump_rel_time(timelib_rel_time *d)
{
        printf("%3lldY %3lldM %3lldD / %3lldH %3lldM %3lldS (days: %lld)%s",
                d->y, d->m, d->d, d->h, d->i, d->s, d->days, d->invert ? " inverted" : "");
        if (d->first_last_day_of != 0) {
                switch (d->first_last_day_of) {
                        case 1:
                                printf(" / first day of");
                                break;
                        case 2:
                                printf(" / last day of");
                                break;
                }
        }
        printf("\n");
}

long timelib_parse_tz_cor(char **ptr)
{
        char *begin = *ptr, *end;
        long  tmp;

        while (isdigit(**ptr) || **ptr == ':') {
                ++*ptr;
        }
        end = *ptr;
        switch (end - begin) {
                case 1:
                case 2:
                        return HOUR(strtol(begin, NULL, 10));
                        break;
                case 3:
                case 4:
                        if (begin[1] == ':') {
                                tmp = HOUR(strtol(begin, NULL, 10)) + strtol(begin + 2, NULL, 10);
                                return tmp;
                        } else if (begin[2] == ':') {
                                tmp = HOUR(strtol(begin, NULL, 10)) + strtol(begin + 3, NULL, 10);
                                return tmp;
                        } else {
                                tmp = strtol(begin, NULL, 10);
                                return HOUR(tmp / 100) + tmp % 100;
                        }
                case 5:
                        tmp = HOUR(strtol(begin, NULL, 10)) + strtol(begin + 3, NULL, 10);
                        return tmp;
        }
        return 0;
}

/* [<][>][^][v][top][bottom][index][help] */