/src/php-src/ext/date/php_date.c

Source
/*
   +----------------------------------------------------------------------+
   | Copyright © The PHP Group and Contributors.                          |
   +----------------------------------------------------------------------+
   | This source file is subject to the Modified BSD License that is      |
   | bundled with this package in the file LICENSE, and is available      |
   | through the World Wide Web at <https://www.php.net/license/>.        |
   |                                                                      |
   | SPDX-License-Identifier: BSD-3-Clause                                |
   +----------------------------------------------------------------------+
   | Authors: Derick Rethans <derick@derickrethans.nl>                    |
   +----------------------------------------------------------------------+
 */

#include "php.h"
#include "php_main.h"
#include "php_ini.h"
#include "ext/standard/info.h"
#include "ext/standard/php_versioning.h"
#include "php_date.h"
#include "php_time.h"
#include "zend_interfaces.h"
#include "zend_exceptions.h"
#include "lib/timelib.h"
#include "lib/timelib_private.h"
#ifndef PHP_WIN32
#include <time.h>
#else
#include "win32/time.h"
#endif

static inline uint64_t php_date_llabs(int64_t i) { return i >= 0 ? (uint64_t)i : -(uint64_t)i; }

#ifdef PHP_WIN32
#define DATE_I64_BUF_LEN 65
# define DATE_I64A(i, s, len) _i64toa_s(i, s, len, 10)
# define DATE_A64I(i, s) i = _atoi64(s)
#else
#define DATE_I64_BUF_LEN 65
# define DATE_I64A(i, s, len) \
  do { \
    int st = snprintf(s, len, "%lld", i); \
    s[st] = '\0'; \
  } while (0);
#define DATE_A64I(i, s) i = strtoll(s, NULL, 10)
#endif

PHPAPI time_t php_time(void)
{
#ifdef HAVE_GETTIMEOFDAY
  struct timeval tm;

  if (UNEXPECTED(gettimeofday(&tm, NULL) != SUCCESS)) {
    /* fallback, can't reasonably happen */
    return time(NULL);
  }

  return tm.tv_sec;
#else
  return time(NULL);
#endif
}

/*
 * RFC822, Section 5.1: http://www.ietf.org/rfc/rfc822.txt
 *  date-time   =  [ day "," ] date time        ; dd mm yy hh:mm:ss zzz
 *  day         =  "Mon"  / "Tue" /  "Wed"  / "Thu"  /  "Fri"  / "Sat" /  "Sun"
 *  date        =  1*2DIGIT month 2DIGIT        ; day month year e.g. 20 Jun 82
 *  month       =  "Jan"  /  "Feb" /  "Mar"  /  "Apr"  /  "May"  /  "Jun" /  "Jul"  /  "Aug"  /  "Sep"  /  "Oct" /  "Nov"  /  "Dec"
 *  time        =  hour zone                    ; ANSI and Military
 *  hour        =  2DIGIT ":" 2DIGIT [":" 2DIGIT] ; 00:00:00 - 23:59:59
 *  zone        =  "UT"  / "GMT"  /  "EST" / "EDT"  /  "CST" / "CDT"  /  "MST" / "MDT"  /  "PST" / "PDT"  /  1ALPHA  / ( ("+" / "-") 4DIGIT )
 */
#define DATE_FORMAT_RFC822   "D, d M y H:i:s O"

/*
 * RFC850, Section 2.1.4: http://www.ietf.org/rfc/rfc850.txt
 *  Format must be acceptable both to the ARPANET and to the getdate routine.
 *  One format that is acceptable to both is Weekday, DD-Mon-YY HH:MM:SS TIMEZONE
 *  TIMEZONE can be any timezone name (3 or more letters)
 */
#define DATE_FORMAT_RFC850   "l, d-M-y H:i:s T"

/*
 * RFC1036, Section 2.1.2: http://www.ietf.org/rfc/rfc1036.txt
 *  Its format must be acceptable both in RFC-822 and to the getdate(3)
 *  Wdy, DD Mon YY HH:MM:SS TIMEZONE
 *  There is no hope of having a complete list of timezones.  Universal
 *  Time (GMT), the North American timezones (PST, PDT, MST, MDT, CST,
 *  CDT, EST, EDT) and the +/-hhmm offset specified in RFC-822 should be supported.
 */
#define DATE_FORMAT_RFC1036  "D, d M y H:i:s O"

/*
 * RFC1123, Section 5.2.14: http://www.ietf.org/rfc/rfc1123.txt
 *  RFC-822 Date and Time Specification: RFC-822 Section 5
 *  The syntax for the date is hereby changed to: date = 1*2DIGIT month 2*4DIGIT
 */
#define DATE_FORMAT_RFC1123  "D, d M Y H:i:s O"

/*
 * RFC7231, Section 7.1.1: http://tools.ietf.org/html/rfc7231
 */
#define DATE_FORMAT_RFC7231  "D, d M Y H:i:s \\G\\M\\T"

/*
 * RFC2822, Section 3.3: http://www.ietf.org/rfc/rfc2822.txt
 *  FWS             =       ([*WSP CRLF] 1*WSP) /   ; Folding white space
 *  CFWS            =       *([FWS] comment) (([FWS] comment) / FWS)
 *
 *  date-time       =       [ day-of-week "," ] date FWS time [CFWS]
 *  day-of-week     =       ([FWS] day-name)
 *  day-name        =       "Mon" / "Tue" / "Wed" / "Thu" / "Fri" / "Sat" / "Sun"
 *  date            =       day month year
 *  year            =       4*DIGIT
 *  month           =       (FWS month-name FWS)
 *  month-name      =       "Jan" / "Feb" / "Mar" / "Apr" / "May" / "Jun" / "Jul" / "Aug" / "Sep" / "Oct" / "Nov" / "Dec"
 *  day             =       ([FWS] 1*2DIGIT)
 *  time            =       time-of-day FWS zone
 *  time-of-day     =       hour ":" minute [ ":" second ]
 *  hour            =       2DIGIT
 *  minute          =       2DIGIT
 *  second          =       2DIGIT
 *  zone            =       (( "+" / "-" ) 4DIGIT)
 */
#define DATE_FORMAT_RFC2822  "D, d M Y H:i:s O"

/*
 * RFC3339, Section 5.6: http://www.ietf.org/rfc/rfc3339.txt
 *  date-fullyear   = 4DIGIT
 *  date-month      = 2DIGIT  ; 01-12
 *  date-mday       = 2DIGIT  ; 01-28, 01-29, 01-30, 01-31 based on month/year
 *
 *  time-hour       = 2DIGIT  ; 00-23
 *  time-minute     = 2DIGIT  ; 00-59
 *  time-second     = 2DIGIT  ; 00-58, 00-59, 00-60 based on leap second rules
 *
 *  time-secfrac    = "." 1*DIGIT
 *  time-numoffset  = ("+" / "-") time-hour ":" time-minute
 *  time-offset     = "Z" / time-numoffset
 *
 *  partial-time    = time-hour ":" time-minute ":" time-second [time-secfrac]
 *  full-date       = date-fullyear "-" date-month "-" date-mday
 *  full-time       = partial-time time-offset
 *
 *  date-time       = full-date "T" full-time
 */
#define DATE_FORMAT_RFC3339  "Y-m-d\\TH:i:sP"

/*
 * This format does not technically match the ISO 8601 standard, as it does not
 * use : in the UTC offset format specifier. This is kept for BC reasons. The
 * DATE_FORMAT_ISO8601_EXPANDED format does correct this, as well as adding
 * support for years out side of the traditional 0000-9999 range.
 */
#define DATE_FORMAT_ISO8601  "Y-m-d\\TH:i:sO"

/* ISO 8601:2004(E)
 *
 * Section 3.5 Expansion:
 * By mutual agreement of the partners in information interchange, it is
 * permitted to expand the component identifying the calendar year, which is
 * otherwise limited to four digits. This enables reference to dates and times
 * in calendar years outside the range supported by complete representations,
 * i.e. before the start of the year [0000] or after the end of the year
 * [9999]."
 *
 * Section 4.1.2.4 Expanded representations:
 * If, by agreement, expanded representations are used, the formats shall be as
 * specified below. The interchange parties shall agree the additional number of
 * digits in the time element year. In the examples below it has been agreed to
 * expand the time element year with two digits.
 * Extended format: ±YYYYY-MM-DD
 * Example: +001985-04-12
 *
 * PHP's year expansion digits are variable.
 */
#define DATE_FORMAT_ISO8601_EXPANDED    "X-m-d\\TH:i:sP"

/* Internal Only
 * This format only extends the year when needed, keeping the 'P' format with
 * colon for UTC offsets
 */
#define DATE_FORMAT_ISO8601_LARGE_YEAR  "x-m-d\\TH:i:sP"

/*
 * RFC3339, Appendix A: http://www.ietf.org/rfc/rfc3339.txt
 *  ISO 8601 also requires (in section 5.3.1.3) that a decimal fraction
 *  be proceeded by a "0" if less than unity.  Annex B.2 of ISO 8601
 *  gives examples where the decimal fractions are not preceded by a "0".
 *  This grammar assumes section 5.3.1.3 is correct and that Annex B.2 is
 *  in error.
 */
#define DATE_FORMAT_RFC3339_EXTENDED  "Y-m-d\\TH:i:s.vP"

/*
 * This comes from various sources that like to contradict. I'm going with the
 * format here because of:
 * http://msdn.microsoft.com/en-us/library/windows/desktop/aa384321%28v=vs.85%29.aspx
 * and http://curl.haxx.se/rfc/cookie_spec.html
 */
#define DATE_FORMAT_COOKIE   "l, d-M-Y H:i:s T"

#define SUNFUNCS_RET_TIMESTAMP 0
#define SUNFUNCS_RET_STRING    1
#define SUNFUNCS_RET_DOUBLE    2

#define PHP_DATE_TIMEZONE_GROUP_AFRICA     0x0001
#define PHP_DATE_TIMEZONE_GROUP_AMERICA    0x0002
#define PHP_DATE_TIMEZONE_GROUP_ANTARCTICA 0x0004
#define PHP_DATE_TIMEZONE_GROUP_ARCTIC     0x0008
#define PHP_DATE_TIMEZONE_GROUP_ASIA       0x0010
#define PHP_DATE_TIMEZONE_GROUP_ATLANTIC   0x0020
#define PHP_DATE_TIMEZONE_GROUP_AUSTRALIA  0x0040
#define PHP_DATE_TIMEZONE_GROUP_EUROPE     0x0080
#define PHP_DATE_TIMEZONE_GROUP_INDIAN     0x0100
#define PHP_DATE_TIMEZONE_GROUP_PACIFIC    0x0200
#define PHP_DATE_TIMEZONE_GROUP_UTC        0x0400
#define PHP_DATE_TIMEZONE_GROUP_ALL        0x07FF
#define PHP_DATE_TIMEZONE_GROUP_ALL_W_BC   0x0FFF
#define PHP_DATE_TIMEZONE_PER_COUNTRY      0x1000

#define PHP_DATE_PERIOD_EXCLUDE_START_DATE 0x0001
#define PHP_DATE_PERIOD_INCLUDE_END_DATE   0x0002

#include "php_date_arginfo.h"

static const char* guess_timezone(const timelib_tzdb *tzdb);
static void date_register_classes(void);
/* }}} */

ZEND_DECLARE_MODULE_GLOBALS(date)
static PHP_GINIT_FUNCTION(date);

/* True global */
timelib_tzdb *php_date_global_timezone_db;
int php_date_global_timezone_db_enabled;

#define DATE_DEFAULT_LATITUDE "31.7667"
#define DATE_DEFAULT_LONGITUDE "35.2333"

/* on 90'50; common sunset declaration (start of sun body appear) */
#define DATE_SUNSET_ZENITH "90.833333"

/* on 90'50; common sunrise declaration (sun body disappeared) */
#define DATE_SUNRISE_ZENITH "90.833333"

static PHP_INI_MH(OnUpdate_date_timezone);

/* {{{ INI Settings */
PHP_INI_BEGIN()
  STD_PHP_INI_ENTRY("date.timezone", "UTC", PHP_INI_ALL, OnUpdate_date_timezone, default_timezone, zend_date_globals, date_globals)
  PHP_INI_ENTRY("date.default_latitude",           DATE_DEFAULT_LATITUDE,        PHP_INI_ALL, NULL)
  PHP_INI_ENTRY("date.default_longitude",          DATE_DEFAULT_LONGITUDE,       PHP_INI_ALL, NULL)
  PHP_INI_ENTRY("date.sunset_zenith",              DATE_SUNSET_ZENITH,           PHP_INI_ALL, NULL)
  PHP_INI_ENTRY("date.sunrise_zenith",             DATE_SUNRISE_ZENITH,          PHP_INI_ALL, NULL)
PHP_INI_END()
/* }}} */

static zend_class_entry *date_ce_date, *date_ce_timezone, *date_ce_interval, *date_ce_period;
static zend_class_entry *date_ce_immutable, *date_ce_interface;
static zend_class_entry *date_ce_date_error, *date_ce_date_object_error, *date_ce_date_range_error;
static zend_class_entry *date_ce_date_exception, *date_ce_date_invalid_timezone_exception, *date_ce_date_invalid_operation_exception, *date_ce_date_malformed_string_exception, *date_ce_date_malformed_interval_string_exception, *date_ce_date_malformed_period_string_exception;


PHPAPI zend_class_entry *php_date_get_date_ce(void)
{
  return date_ce_date;
}

PHPAPI zend_class_entry *php_date_get_immutable_ce(void)
{
  return date_ce_immutable;
}

PHPAPI zend_class_entry *php_date_get_interface_ce(void)
{
  return date_ce_interface;
}

PHPAPI zend_class_entry *php_date_get_timezone_ce(void)
{
  return date_ce_timezone;
}

PHPAPI zend_class_entry *php_date_get_interval_ce(void)
{
  return date_ce_interval;
}

PHPAPI zend_class_entry *php_date_get_period_ce(void)
{
  return date_ce_period;
}

static zend_object_handlers date_object_handlers_date;
static zend_object_handlers date_object_handlers_immutable;
static zend_object_handlers date_object_handlers_timezone;
static zend_object_handlers date_object_handlers_interval;
static zend_object_handlers date_object_handlers_period;

static void date_throw_uninitialized_error(zend_class_entry *ce)
{
  if (ce->type == ZEND_INTERNAL_CLASS) {
    zend_throw_error(date_ce_date_object_error, "Object of type %s has not been correctly initialized by calling parent::__construct() in its constructor", ZSTR_VAL(ce->name));
  } else {
    zend_class_entry *ce_ptr = ce;
    while (ce_ptr && ce_ptr->parent && ce_ptr->type == ZEND_USER_CLASS) {
      ce_ptr = ce_ptr->parent;
    }
    if (ce_ptr->type != ZEND_INTERNAL_CLASS) {
      zend_throw_error(date_ce_date_object_error, "Object of type %s not been correctly initialized by calling parent::__construct() in its constructor", ZSTR_VAL(ce->name));
      return;
    }
    zend_throw_error(date_ce_date_object_error, "Object of type %s (inheriting %s) has not been correctly initialized by calling parent::__construct() in its constructor", ZSTR_VAL(ce->name), ZSTR_VAL(ce_ptr->name));
  }
}

#define DATE_CHECK_INITIALIZED(member, ce) \
  if (UNEXPECTED(!member)) { \
    date_throw_uninitialized_error(ce); \
    RETURN_THROWS(); \
  }

static void date_object_free_storage_date(zend_object *object);
static void date_object_free_storage_timezone(zend_object *object);
static void date_object_free_storage_interval(zend_object *object);
static void date_object_free_storage_period(zend_object *object);

static zend_object *date_object_new_date(zend_class_entry *class_type);
static zend_object *date_object_new_timezone(zend_class_entry *class_type);
static zend_object *date_object_new_interval(zend_class_entry *class_type);
static zend_object *date_object_new_period(zend_class_entry *class_type);

static zend_object *date_object_clone_date(zend_object *this_ptr);
static zend_object *date_object_clone_timezone(zend_object *this_ptr);
static zend_object *date_object_clone_interval(zend_object *this_ptr);
static zend_object *date_object_clone_period(zend_object *this_ptr);

static int date_object_compare_date(zval *d1, zval *d2);
static HashTable *date_object_get_gc(zend_object *object, zval **table, int *n);
static HashTable *date_object_get_properties_for(zend_object *object, zend_prop_purpose purpose);
static HashTable *date_object_get_gc_interval(zend_object *object, zval **table, int *n);
static HashTable *date_object_get_properties_interval(zend_object *object);
static HashTable *date_object_get_gc_period(zend_object *object, zval **table, int *n);
static HashTable *date_object_get_properties_for_timezone(zend_object *object, zend_prop_purpose purpose);
static HashTable *date_object_get_gc_timezone(zend_object *object, zval **table, int *n);
static HashTable *date_object_get_debug_info_timezone(zend_object *object, int *is_temp);
static void php_timezone_to_string(php_timezone_obj *tzobj, zval *zv);

static int date_interval_compare_objects(zval *o1, zval *o2);
static zval *date_interval_read_property(zend_object *object, zend_string *member, int type, void **cache_slot, zval *rv);
static zval *date_interval_write_property(zend_object *object, zend_string *member, zval *value, void **cache_slot);
static zval *date_interval_get_property_ptr_ptr(zend_object *object, zend_string *member, int type, void **cache_slot);
static int date_period_has_property(zend_object *object, zend_string *name, int type, void **cache_slot);
static zval *date_period_read_property(zend_object *object, zend_string *name, int type, void **cache_slot, zval *rv);
static zval *date_period_write_property(zend_object *object, zend_string *name, zval *value, void **cache_slot);
static zval *date_period_get_property_ptr_ptr(zend_object *object, zend_string *name, int type, void **cache_slot);
static void date_period_unset_property(zend_object *object, zend_string *name, void **cache_slot);
static HashTable *date_period_get_properties_for(zend_object *object, zend_prop_purpose purpose);
static int date_object_compare_timezone(zval *tz1, zval *tz2);

/* {{{ Module struct */
zend_module_entry date_module_entry = {
  STANDARD_MODULE_HEADER,
  "date",                     /* extension name */
  ext_functions,              /* function list */
  PHP_MINIT(date),            /* process startup */
  PHP_MSHUTDOWN(date),        /* process shutdown */
  PHP_RINIT(date),            /* request startup */
  PHP_RSHUTDOWN(date),        /* request shutdown */
  PHP_MINFO(date),            /* extension info */
  PHP_DATE_VERSION,                /* extension version */
  PHP_MODULE_GLOBALS(date),   /* globals descriptor */
  PHP_GINIT(date),            /* globals ctor */
  NULL,                       /* globals dtor */
  ZEND_MODULE_POST_ZEND_DEACTIVATE_N(date), /* post deactivate */
  STANDARD_MODULE_PROPERTIES_EX
};
/* }}} */


/* {{{ PHP_GINIT_FUNCTION */
static PHP_GINIT_FUNCTION(date)
{
  date_globals->default_timezone = NULL;
  date_globals->timezone = NULL;
  date_globals->tzcache = NULL;
  date_globals->duration_cache = NULL;
}
/* }}} */


static void _php_date_tzinfo_dtor(zval *zv) /* {{{ */
{
  timelib_tzinfo *tzi = (timelib_tzinfo*)Z_PTR_P(zv);

  timelib_tzinfo_dtor(tzi);
} /* }}} */

/* {{{ PHP_RINIT_FUNCTION */
PHP_RINIT_FUNCTION(date)
{
  if (DATEG(timezone)) {
    efree(DATEG(timezone));
  }
  DATEG(timezone) = NULL;
  DATEG(tzcache) = NULL;
  DATEG(last_errors) = NULL;

  return SUCCESS;
}
/* }}} */

/* {{{ PHP_RSHUTDOWN_FUNCTION */
PHP_RSHUTDOWN_FUNCTION(date)
{
  if (DATEG(timezone)) {
    efree(DATEG(timezone));
  }
  DATEG(timezone) = NULL;
  if (DATEG(duration_cache)) {
    zend_object_release(DATEG(duration_cache));
  }
  DATEG(duration_cache) = NULL;

  return SUCCESS;
}
/* }}} */

ZEND_MODULE_POST_ZEND_DEACTIVATE_D(date)
{
  if (DATEG(tzcache)) {
    zend_hash_destroy(DATEG(tzcache));
    FREE_HASHTABLE(DATEG(tzcache));
    DATEG(tzcache) = NULL;
  }

  if (DATEG(last_errors)) {
    timelib_error_container_dtor(DATEG(last_errors));
    DATEG(last_errors) = NULL;
  }

  return SUCCESS;
}

#define DATE_TIMEZONEDB      php_date_global_timezone_db ? php_date_global_timezone_db : timelib_builtin_db()

/* {{{ PHP_MINIT_FUNCTION */
PHP_MINIT_FUNCTION(date)
{
  php_date_global_timezone_db = NULL;
  php_date_global_timezone_db_enabled = 0;

  REGISTER_INI_ENTRIES();
  date_register_classes();
  register_php_date_symbols(module_number);
  PHP_MINIT(date_time)(INIT_FUNC_ARGS_PASSTHRU);

  DATEG(last_errors) = NULL;
  return SUCCESS;
}
/* }}} */

/* {{{ PHP_MSHUTDOWN_FUNCTION */
PHP_MSHUTDOWN_FUNCTION(date)
{
  UNREGISTER_INI_ENTRIES();

  if (DATEG(last_errors)) {
    timelib_error_container_dtor(DATEG(last_errors));
  }

#ifndef ZTS
  DATEG(default_timezone) = NULL;
#endif

  return SUCCESS;
}
/* }}} */

/* {{{ PHP_MINFO_FUNCTION */
PHP_MINFO_FUNCTION(date)
{
  const timelib_tzdb *tzdb = DATE_TIMEZONEDB;

  php_info_print_table_start();
  php_info_print_table_row(2, "date/time support", "enabled");
  php_info_print_table_row(2, "timelib version", TIMELIB_ASCII_VERSION);
  php_info_print_table_row(2, "\"Olson\" Timezone Database Version", tzdb->version);
  php_info_print_table_row(2, "Timezone Database", php_date_global_timezone_db_enabled ? "external" : "internal");
  php_info_print_table_row(2, "Default timezone", guess_timezone(tzdb));
  php_info_print_table_end();

  DISPLAY_INI_ENTRIES();
}
/* }}} */

/* {{{ Timezone Cache functions */
static timelib_tzinfo *php_date_parse_tzfile(const char *formal_tzname, const timelib_tzdb *tzdb)
{
  timelib_tzinfo *tzi;
  int dummy_error_code;

  if(!DATEG(tzcache)) {
    ALLOC_HASHTABLE(DATEG(tzcache));
    zend_hash_init(DATEG(tzcache), 4, NULL, _php_date_tzinfo_dtor, 0);
  }

  if ((tzi = zend_hash_str_find_ptr(DATEG(tzcache), formal_tzname, strlen(formal_tzname))) != NULL) {
    return tzi;
  }

  tzi = timelib_parse_tzfile(formal_tzname, tzdb, &dummy_error_code);
  if (tzi) {
    zend_hash_str_add_ptr(DATEG(tzcache), formal_tzname, strlen(formal_tzname), tzi);
  }
  return tzi;
}

static timelib_tzinfo *php_date_parse_tzfile_wrapper(const char *formal_tzname, const timelib_tzdb *tzdb, int *dummy_error_code)
{
  return php_date_parse_tzfile(formal_tzname, tzdb);
}
/* }}} */

/* Callback to check the date.timezone only when changed increases performance */
/* {{{ static PHP_INI_MH(OnUpdate_date_timezone) */
static PHP_INI_MH(OnUpdate_date_timezone)
{
  if (new_value && !timelib_timezone_id_is_valid(ZSTR_VAL(new_value), DATE_TIMEZONEDB)) {
    php_error_docref(
      NULL, E_WARNING,
      "Invalid date.timezone value '%s', using '%s' instead",
      ZSTR_VAL(new_value),
      DATEG(default_timezone) ? DATEG(default_timezone) : "UTC"
    );
    return FAILURE;
  }

  if (OnUpdateString(entry, new_value, mh_arg1, mh_arg2, mh_arg3, stage) == FAILURE) {
    return FAILURE;
  }

  return SUCCESS;
}
/* }}} */

/* {{{ Helper functions */
static const char* guess_timezone(const timelib_tzdb *tzdb)
{
  /* Checking whether timezone has been set with date_default_timezone_set() */
  if (DATEG(timezone) && (strlen(DATEG(timezone))) > 0) {
    return DATEG(timezone);
  }
  /* Check config setting for default timezone */
  if (!DATEG(default_timezone)) {
    /* Special case: ext/date wasn't initialized yet */
    zval *ztz;

    if (NULL != (ztz = cfg_get_entry("date.timezone", sizeof("date.timezone")))
      && Z_TYPE_P(ztz) == IS_STRING && Z_STRLEN_P(ztz) > 0 && timelib_timezone_id_is_valid(Z_STRVAL_P(ztz), tzdb)) {
      return Z_STRVAL_P(ztz);
    }
  } else if (*DATEG(default_timezone)) {
    return DATEG(default_timezone);
  }
  /* Fallback to UTC */
  return "UTC";
}

PHPAPI timelib_tzinfo *get_timezone_info(void)
{
  timelib_tzinfo *tzi;

  const char *tz = guess_timezone(DATE_TIMEZONEDB);
  tzi = php_date_parse_tzfile(tz, DATE_TIMEZONEDB);
  if (! tzi) {
    zend_throw_error(date_ce_date_error, "Timezone database is corrupt. Please file a bug report as this should never happen");
  }
  return tzi;
}

static void update_property(zend_object *object, zend_string *key, zval *prop_val)
{
  if (ZSTR_LEN(key) > 0 && ZSTR_VAL(key)[0] == '\0') { // not public
    const char *class_name, *prop_name;
    size_t prop_name_len;

    if (zend_unmangle_property_name_ex(key, &class_name, &prop_name, &prop_name_len) == SUCCESS) {
      if (class_name[0] != '*') { // private
        zend_string *cname;
        zend_class_entry *ce;

        cname = zend_string_init(class_name, strlen(class_name), 0);
        ce = zend_lookup_class(cname);

        if (ce) {
          zend_update_property(ce, object, prop_name, prop_name_len, prop_val);
        }

        zend_string_release_ex(cname, 0);
      } else { // protected
        zend_update_property(object->ce, object, prop_name, prop_name_len, prop_val);
      }
    }
    return;
  }

  // public
  zend_update_property(object->ce, object, ZSTR_VAL(key), ZSTR_LEN(key), prop_val);
}
/* }}} */


/* {{{ date() and gmdate() data */
#include "zend_smart_str.h"

static const char * const mon_full_names[] = {
  "January", "February", "March", "April",
  "May", "June", "July", "August",
  "September", "October", "November", "December"
};

static const char * const mon_short_names[] = {
  "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
};

static const char * const day_full_names[] = {
  "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"
};

static const char * const day_short_names[] = {
  "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
};

static const char *english_suffix(timelib_sll number)
{
  if (number >= 10 && number <= 19) {
    return "th";
  } else {
    switch (number % 10) {
      case 1: return "st";
      case 2: return "nd";
      case 3: return "rd";
    }
  }
  return "th";
}
/* }}} */

/* {{{ day of week helpers */
static const char *php_date_full_day_name(timelib_sll y, timelib_sll m, timelib_sll d)
{
  timelib_sll day_of_week = timelib_day_of_week(y, m, d);
  if (day_of_week < 0) {
    return "Unknown";
  }
  return day_full_names[day_of_week];
}

static const char *php_date_short_day_name(timelib_sll y, timelib_sll m, timelib_sll d)
{
  timelib_sll day_of_week = timelib_day_of_week(y, m, d);
  if (day_of_week < 0) {
    return "Unknown";
  }
  return day_short_names[day_of_week];
}
/* }}} */

/* {{{ date_format - (gm)date helper */
static zend_string *date_format(const char *format, size_t format_len, const timelib_time *t, bool localtime)
{
  smart_str            string = {0};
  size_t               i;
  int                  length = 0;
  char                 buffer[97];
  timelib_time_offset *offset = NULL;
  timelib_sll          isoweek, isoyear;
  bool                 rfc_colon;
  int                  weekYearSet = 0;

  if (!format_len) {
    return ZSTR_EMPTY_ALLOC();
  }

  if (localtime) {
    if (t->zone_type == TIMELIB_ZONETYPE_ABBR) {
      offset = timelib_time_offset_ctor();
      offset->offset = (t->z + (t->dst * 3600));
      offset->leap_secs = 0;
      offset->is_dst = t->dst;
      offset->abbr = timelib_strdup(t->tz_abbr);
    } else if (t->zone_type == TIMELIB_ZONETYPE_OFFSET) {
      offset = timelib_time_offset_ctor();
      offset->offset = (t->z);
      offset->leap_secs = 0;
      offset->is_dst = 0;
      offset->abbr = timelib_malloc(9); /* GMT±xxxx\0 */
      snprintf(offset->abbr, 9, "GMT%c%02d%02d",
                                (offset->offset < 0) ? '-' : '+',
                                abs(offset->offset / 3600),
                                abs((offset->offset % 3600) / 60));
    } else if (t->zone_type == TIMELIB_ZONETYPE_ID) {
      offset = timelib_get_time_zone_info(t->sse, t->tz_info);
    } else {
      /* Shouldn't happen, but code defensively */
      offset = timelib_time_offset_ctor();
    }
  }

  for (i = 0; i < format_len; i++) {
    rfc_colon = false;
    switch (format[i]) {
      /* day */
      case 'd': length = slprintf(buffer, sizeof(buffer), "%02d", (int) t->d); break;
      case 'D': length = slprintf(buffer, sizeof(buffer), "%s", php_date_short_day_name(t->y, t->m, t->d)); break;
      case 'j': length = slprintf(buffer, sizeof(buffer), "%d", (int) t->d); break;
      case 'l': length = slprintf(buffer, sizeof(buffer), "%s", php_date_full_day_name(t->y, t->m, t->d)); break;
      case 'S': length = slprintf(buffer, sizeof(buffer), "%s", english_suffix(t->d)); break;
      case 'w': length = slprintf(buffer, sizeof(buffer), "%d", (int) timelib_day_of_week(t->y, t->m, t->d)); break;
      case 'N': length = slprintf(buffer, sizeof(buffer), "%d", (int) timelib_iso_day_of_week(t->y, t->m, t->d)); break;
      case 'z': length = slprintf(buffer, sizeof(buffer), "%d", (int) timelib_day_of_year(t->y, t->m, t->d)); break;

      /* week */
      case 'W':
        if(!weekYearSet) { timelib_isoweek_from_date(t->y, t->m, t->d, &isoweek, &isoyear); weekYearSet = 1; }
        length = slprintf(buffer, sizeof(buffer), "%02d", (int) isoweek); break; /* iso weeknr */
      case 'o':
        if(!weekYearSet) { timelib_isoweek_from_date(t->y, t->m, t->d, &isoweek, &isoyear); weekYearSet = 1; }
        length = slprintf(buffer, sizeof(buffer), ZEND_LONG_FMT, (zend_long) isoyear); break; /* iso year */

      /* month */
      case 'F': length = slprintf(buffer, sizeof(buffer), "%s", mon_full_names[t->m - 1]); break;
      case 'm': length = slprintf(buffer, sizeof(buffer), "%02d", (int) t->m); break;
      case 'M': length = slprintf(buffer, sizeof(buffer), "%s", mon_short_names[t->m - 1]); break;
      case 'n': length = slprintf(buffer, sizeof(buffer), "%d", (int) t->m); break;
      case 't': length = slprintf(buffer, sizeof(buffer), "%d", (int) timelib_days_in_month(t->y, t->m)); break;

      /* year */
      case 'L': length = slprintf(buffer, sizeof(buffer), "%d", timelib_is_leap((int) t->y)); break;
      case 'y': length = slprintf(buffer, sizeof(buffer), "%02d", (int) (t->y % 100)); break;
      case 'Y': length = slprintf(buffer, sizeof(buffer), "%s%04" PRIu64, t->y < 0 ? "-" : "", php_date_llabs((timelib_sll) t->y)); break;
      case 'x': length = slprintf(buffer, sizeof(buffer), "%s%04" PRIu64, t->y < 0 ? "-" : (t->y >= 10000 ? "+" : ""), php_date_llabs((timelib_sll) t->y)); break;
      case 'X': length = slprintf(buffer, sizeof(buffer), "%s%04" PRIu64, t->y < 0 ? "-" : "+", php_date_llabs((timelib_sll) t->y)); break;

      /* time */
      case 'a': length = slprintf(buffer, sizeof(buffer), "%s", t->h >= 12 ? "pm" : "am"); break;
      case 'A': length = slprintf(buffer, sizeof(buffer), "%s", t->h >= 12 ? "PM" : "AM"); break;
      case 'B': {
        int retval = ((((long)t->sse)-(((long)t->sse) - ((((long)t->sse) % 86400) + 3600))) * 10);
        if (retval < 0) {
          retval += 864000;
        }
        /* Make sure to do this on a positive int to avoid rounding errors */
        retval = (retval / 864)  % 1000;
        length = slprintf(buffer, sizeof(buffer), "%03d", retval);
        break;
      }
      case 'g': length = slprintf(buffer, sizeof(buffer), "%d", (t->h % 12) ? (int) t->h % 12 : 12); break;
      case 'G': length = slprintf(buffer, sizeof(buffer), "%d", (int) t->h); break;
      case 'h': length = slprintf(buffer, sizeof(buffer), "%02d", (t->h % 12) ? (int) t->h % 12 : 12); break;
      case 'H': length = slprintf(buffer, sizeof(buffer), "%02d", (int) t->h); break;
      case 'i': length = slprintf(buffer, sizeof(buffer), "%02d", (int) t->i); break;
      case 's': length = slprintf(buffer, sizeof(buffer), "%02d", (int) t->s); break;
      case 'u': length = slprintf(buffer, sizeof(buffer), "%06d", (int) floor(t->us)); break;
      case 'v': length = slprintf(buffer, sizeof(buffer), "%03d", (int) floor(t->us / 1000)); break;

      /* timezone */
      case 'I': length = slprintf(buffer, sizeof(buffer), "%d", localtime ? offset->is_dst : 0); break;
      case 'p':
        if (!localtime || strcmp(offset->abbr, "UTC") == 0 || strcmp(offset->abbr, "Z") == 0 || strcmp(offset->abbr, "GMT+0000") == 0) {
          length = slprintf(buffer, sizeof(buffer), "%s", "Z");
          break;
        }
        ZEND_FALLTHROUGH;
      case 'P': rfc_colon = true; ZEND_FALLTHROUGH;
      case 'O': length = slprintf(buffer, sizeof(buffer), "%c%02d%s%02d",
                      localtime ? ((offset->offset < 0) ? '-' : '+') : '+',
                      localtime ? abs(offset->offset / 3600) : 0,
                      rfc_colon ? ":" : "",
                      localtime ? abs((offset->offset % 3600) / 60) : 0
                );
            break;
      case 'T': length = slprintf(buffer, sizeof(buffer), "%s", localtime ? offset->abbr : "GMT"); break;
      case 'e': if (!localtime) {
                length = slprintf(buffer, sizeof(buffer), "%s", "UTC");
            } else {
              switch (t->zone_type) {
                case TIMELIB_ZONETYPE_ID:
                  length = slprintf(buffer, sizeof(buffer), "%s", t->tz_info->name);
                  break;
                case TIMELIB_ZONETYPE_ABBR:
                  length = slprintf(buffer, sizeof(buffer), "%s", offset->abbr);
                  break;
                case TIMELIB_ZONETYPE_OFFSET: {
                  int seconds = offset->offset % 60;
                  if (seconds == 0) {
                      length = slprintf(buffer, sizeof(buffer), "%c%02d:%02d",
                              ((offset->offset < 0) ? '-' : '+'),
                              abs(offset->offset / 3600),
                              abs((offset->offset % 3600) / 60)
                             );
                  } else {
                      length = slprintf(buffer, sizeof(buffer), "%c%02d:%02d:%02d",
                              ((offset->offset < 0) ? '-' : '+'),
                              abs(offset->offset / 3600),
                              abs((offset->offset % 3600) / 60),
                          abs(seconds)
                             );
                  }
                  break;
                }
              }
            }
            break;
      case 'Z': length = slprintf(buffer, sizeof(buffer), "%d", localtime ? offset->offset : 0); break;

      /* full date/time */
      case 'c': length = slprintf(buffer, sizeof(buffer), "%04" ZEND_LONG_FMT_SPEC "-%02d-%02dT%02d:%02d:%02d%c%02d:%02d",
                              (zend_long) t->y, (int) t->m, (int) t->d,
                      (int) t->h, (int) t->i, (int) t->s,
                      localtime ? ((offset->offset < 0) ? '-' : '+') : '+',
                      localtime ? abs(offset->offset / 3600) : 0,
                      localtime ? abs((offset->offset % 3600) / 60) : 0
                );
            break;
      case 'r': length = slprintf(buffer, sizeof(buffer), "%3s, %02d %3s %04" ZEND_LONG_FMT_SPEC " %02d:%02d:%02d %c%02d%02d",
                              php_date_short_day_name(t->y, t->m, t->d),
                      (int) t->d, mon_short_names[t->m - 1],
                      (zend_long) t->y, (int) t->h, (int) t->i, (int) t->s,
                      localtime ? ((offset->offset < 0) ? '-' : '+') : '+',
                      localtime ? abs(offset->offset / 3600) : 0,
                      localtime ? abs((offset->offset % 3600) / 60) : 0
                );
            break;
      case 'U': length = slprintf(buffer, sizeof(buffer), "%lld", (timelib_sll) t->sse); break;

      case '\\': if (i < format_len) i++; ZEND_FALLTHROUGH;

      default: buffer[0] = format[i]; buffer[1] = '\0'; length = 1; break;
    }
    smart_str_appendl(&string, buffer, length);
  }

  smart_str_0(&string);

  if (localtime) {
    timelib_time_offset_dtor(offset);
  }

  return string.s;
}

PHPAPI zend_string *php_format_date_obj(const char *format, size_t format_len, const php_date_obj *date_obj)
{
  if (!date_obj->time) {
    return NULL;
  }

  return date_format(format, format_len, date_obj->time, date_obj->time->is_localtime);
}

static void php_date(INTERNAL_FUNCTION_PARAMETERS, bool localtime)
{
  zend_string *format;
  zend_long    ts;
  bool    ts_is_null = 1;

  ZEND_PARSE_PARAMETERS_START(1, 2)
    Z_PARAM_STR(format)
    Z_PARAM_OPTIONAL
    Z_PARAM_LONG_OR_NULL(ts, ts_is_null)
  ZEND_PARSE_PARAMETERS_END();

  if (ts_is_null) {
    ts = php_time();
  }

  RETURN_STR(php_format_date(ZSTR_VAL(format), ZSTR_LEN(format), ts, localtime));
}
/* }}} */

PHPAPI zend_string *php_format_date(const char *format, size_t format_len, time_t ts, bool localtime) /* {{{ */
{
  timelib_time   *t;
  timelib_tzinfo *tzi;
  zend_string *string;

  t = timelib_time_ctor();

  if (localtime) {
    tzi = get_timezone_info();
    t->tz_info = tzi;
    t->zone_type = TIMELIB_ZONETYPE_ID;
    timelib_unixtime2local(t, ts);
  } else {
    tzi = NULL;
    timelib_unixtime2gmt(t, ts);
  }

  string = date_format(format, format_len, t, localtime);

  timelib_time_dtor(t);
  return string;
}
/* }}} */

/* {{{ php_idate */
PHPAPI bool php_idate(char format, time_t ts, bool localtime, int *result)
{
  timelib_time   *t;
  timelib_tzinfo *tzi;
  timelib_time_offset *offset = NULL;
  timelib_sll isoweek, isoyear;
  bool success = true;

  t = timelib_time_ctor();

  if (!localtime) {
    tzi = get_timezone_info();
    t->tz_info = tzi;
    t->zone_type = TIMELIB_ZONETYPE_ID;
    timelib_unixtime2local(t, ts);
  } else {
    tzi = NULL;
    timelib_unixtime2gmt(t, ts);
  }

  if (!localtime) {
    if (t->zone_type == TIMELIB_ZONETYPE_ABBR) {
      offset = timelib_time_offset_ctor();
      offset->offset = (t->z + (t->dst * 3600));
      offset->leap_secs = 0;
      offset->is_dst = t->dst;
      offset->abbr = timelib_strdup(t->tz_abbr);
    } else if (t->zone_type == TIMELIB_ZONETYPE_OFFSET) {
      offset = timelib_time_offset_ctor();
      offset->offset = (t->z + (t->dst * 3600));
      offset->leap_secs = 0;
      offset->is_dst = t->dst;
      offset->abbr = timelib_malloc(9); /* GMT±xxxx\0 */
      snprintf(offset->abbr, 9, "GMT%c%02d%02d",
                                (offset->offset < 0) ? '-' : '+',
                                abs(offset->offset / 3600),
                                abs((offset->offset % 3600) / 60));
    } else {
      offset = timelib_get_time_zone_info(t->sse, t->tz_info);
    }
  }

  timelib_isoweek_from_date(t->y, t->m, t->d, &isoweek, &isoyear);

  switch (format) {
    /* day */
    case 'd': case 'j': *result = (int) t->d; break;

    case 'N': *result = (int) timelib_iso_day_of_week(t->y, t->m, t->d); break;
    case 'w': *result = (int) timelib_day_of_week(t->y, t->m, t->d); break;
    case 'z': *result = (int) timelib_day_of_year(t->y, t->m, t->d); break;

    /* week */
    case 'W': *result = (int) isoweek; break; /* iso weeknr */

    /* month */
    case 'm': case 'n': *result = (int) t->m; break;
    case 't': *result = (int) timelib_days_in_month(t->y, t->m); break;

    /* year */
    case 'L': *result = (int) timelib_is_leap((int) t->y); break;
    case 'y': *result = (int) (t->y % 100); break;
    case 'Y': *result = (int) t->y; break;
    case 'o': *result = (int) isoyear; break; /* iso year */

    /* Swatch Beat a.k.a. Internet Time */
    case 'B':
      *result = ((((long)t->sse)-(((long)t->sse) - ((((long)t->sse) % 86400) + 3600))) * 10);
      if (*result < 0) {
        *result += 864000;
      }
      /* Make sure to do this on a positive int to avoid rounding errors */
      *result = (*result / 864) % 1000;
      break;

    /* time */
    case 'g': case 'h': *result = (int) ((t->h % 12) ? (int) t->h % 12 : 12); break;
    case 'H': case 'G': *result = (int) t->h; break;
    case 'i': *result = (int) t->i; break;
    case 's': *result = (int) t->s; break;

    /* timezone */
    case 'I': *result = (int) (!localtime ? offset->is_dst : 0); break;
    case 'Z': *result = (int) (!localtime ? offset->offset : 0); break;

    case 'U': *result = (int) t->sse; break;

    default:
      success = false;
  }

  if (!localtime) {
    timelib_time_offset_dtor(offset);
  }
  timelib_time_dtor(t);

  return success;
}
/* }}} */

/* {{{ Format a local date/time */
PHP_FUNCTION(date)
{
  php_date(INTERNAL_FUNCTION_PARAM_PASSTHRU, 1);
}
/* }}} */

/* {{{ Format a GMT date/time */
PHP_FUNCTION(gmdate)
{
  php_date(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0);
}
/* }}} */

/* {{{ Format a local time/date as integer */
PHP_FUNCTION(idate)
{
  zend_string *format;
  zend_long    ts;
  bool    ts_is_null = 1;
  int ret = 0;

  ZEND_PARSE_PARAMETERS_START(1, 2)
    Z_PARAM_STR(format)
    Z_PARAM_OPTIONAL
    Z_PARAM_LONG_OR_NULL(ts, ts_is_null)
  ZEND_PARSE_PARAMETERS_END();

  if (ZSTR_LEN(format) != 1) {
    php_error_docref(NULL, E_WARNING, "idate format is one char");
    RETURN_FALSE;
  }

  if (ts_is_null) {
    ts = php_time();
  }

  bool ok = php_idate(ZSTR_VAL(format)[0], ts, 0, &ret);
  if (!ok) {
    php_error_docref(NULL, E_WARNING, "Unrecognized date format token");
    RETURN_FALSE;
  }
  RETURN_LONG(ret);
}
/* }}} */

/* {{{ php_date_set_tzdb - NOT THREADSAFE */
PHPAPI void php_date_set_tzdb(timelib_tzdb *tzdb)
{
  const timelib_tzdb *builtin = timelib_builtin_db();

  if (php_version_compare(tzdb->version, builtin->version) > 0) {
    php_date_global_timezone_db = tzdb;
    php_date_global_timezone_db_enabled = 1;
  }
}
/* }}} */

/* {{{ php_parse_date: Backwards compatibility function */
PHPAPI zend_long php_parse_date(const char *string, zend_long *now)
{
  timelib_time *parsed_time;
  timelib_error_container *error = NULL;
  int           error2;
  zend_long   retval;

  parsed_time = timelib_strtotime(string, strlen(string), &error, DATE_TIMEZONEDB, php_date_parse_tzfile_wrapper);
  if (error->error_count) {
    timelib_time_dtor(parsed_time);
    timelib_error_container_dtor(error);
    return -1;
  }
  timelib_error_container_dtor(error);
  timelib_update_ts(parsed_time, NULL);
  retval = timelib_date_to_int(parsed_time, &error2);
  timelib_time_dtor(parsed_time);
  if (error2) {
    return -1;
  }
  return retval;
}
/* }}} */

/* {{{ Convert string representation of date and time to a timestamp */
PHP_FUNCTION(strtotime)
{
  zend_string *times;
  int parse_error, epoch_does_not_fit_in_zend_long;
  timelib_error_container *error;
  zend_long preset_ts, ts;
  bool preset_ts_is_null = 1;
  timelib_time *t, *now;
  timelib_tzinfo *tzi;

  ZEND_PARSE_PARAMETERS_START(1, 2)
    Z_PARAM_STR(times)
    Z_PARAM_OPTIONAL
    Z_PARAM_LONG_OR_NULL(preset_ts, preset_ts_is_null)
  ZEND_PARSE_PARAMETERS_END();

  /* timelib_strtotime() expects the string to not be empty */
  if (ZSTR_LEN(times) == 0) {
    RETURN_FALSE;
  }

  tzi = get_timezone_info();
  if (!tzi) {
    return;
  }

  now = timelib_time_ctor();
  now->tz_info = tzi;
  now->zone_type = TIMELIB_ZONETYPE_ID;
  timelib_unixtime2local(now,
    !preset_ts_is_null ? (timelib_sll) preset_ts : (timelib_sll) php_time());

  t = timelib_strtotime(ZSTR_VAL(times), ZSTR_LEN(times), &error,
    DATE_TIMEZONEDB, php_date_parse_tzfile_wrapper);
  parse_error = error->error_count;
  timelib_error_container_dtor(error);
  if (parse_error) {
    timelib_time_dtor(now);
    timelib_time_dtor(t);
    RETURN_FALSE;
  }

  timelib_fill_holes(t, now, TIMELIB_NO_CLONE);
  timelib_update_ts(t, tzi);
  ts = timelib_date_to_int(t, &epoch_does_not_fit_in_zend_long);

  timelib_time_dtor(now);
  timelib_time_dtor(t);

  if (epoch_does_not_fit_in_zend_long) {
    php_error_docref(NULL, E_WARNING, "Epoch doesn't fit in a PHP integer");
    RETURN_FALSE;
  }

  RETURN_LONG(ts);
}
/* }}} */

/* {{{ php_mktime - (gm)mktime helper */
PHPAPI void php_mktime(INTERNAL_FUNCTION_PARAMETERS, bool gmt)
{
  zend_long hou, min, sec, mon, day, yea;
  bool min_is_null = 1, sec_is_null = 1, mon_is_null = 1, day_is_null = 1, yea_is_null = 1;
  timelib_time *now;
  timelib_tzinfo *tzi = NULL;
  zend_long ts, adjust_seconds = 0;
  int epoch_does_not_fit_in_zend_long;

  ZEND_PARSE_PARAMETERS_START(1, 6)
    Z_PARAM_LONG(hou)
    Z_PARAM_OPTIONAL
    Z_PARAM_LONG_OR_NULL(min, min_is_null)
    Z_PARAM_LONG_OR_NULL(sec, sec_is_null)
    Z_PARAM_LONG_OR_NULL(mon, mon_is_null)
    Z_PARAM_LONG_OR_NULL(day, day_is_null)
    Z_PARAM_LONG_OR_NULL(yea, yea_is_null)
  ZEND_PARSE_PARAMETERS_END();

  /* Initialize structure with current time */
  now = timelib_time_ctor();
  if (gmt) {
    timelib_unixtime2gmt(now, (timelib_sll) php_time());
  } else {
    tzi = get_timezone_info();
    if (!tzi) {
      return;
    }
    now->tz_info = tzi;
    now->zone_type = TIMELIB_ZONETYPE_ID;
    timelib_unixtime2local(now, (timelib_sll) php_time());
  }

  now->h = hou;

  if (!min_is_null) {
    now->i = min;
  }

  if (!sec_is_null) {
    now->s = sec;
  }

  if (!mon_is_null) {
    now->m = mon;
  }

  if (!day_is_null) {
    now->d = day;
  }

  if (!yea_is_null) {
    if (yea >= 0 && yea < 70) {
      yea += 2000;
    } else if (yea >= 70 && yea <= 100) {
      yea += 1900;
    }
    now->y = yea;
  }

  /* Update the timestamp */
  if (gmt) {
    timelib_update_ts(now, NULL);
  } else {
    timelib_update_ts(now, tzi);
  }

  /* Clean up and return */
  ts = timelib_date_to_int(now, &epoch_does_not_fit_in_zend_long);

  if (epoch_does_not_fit_in_zend_long) {
    timelib_time_dtor(now);
    php_error_docref(NULL, E_WARNING, "Epoch doesn't fit in a PHP integer");
    RETURN_FALSE;
  }

  ts += adjust_seconds;
  timelib_time_dtor(now);

  RETURN_LONG(ts);
}
/* }}} */

/* {{{ Get UNIX timestamp for a date */
PHP_FUNCTION(mktime)
{
  php_mktime(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0);
}
/* }}} */

/* {{{ Get UNIX timestamp for a GMT date */
PHP_FUNCTION(gmmktime)
{
  php_mktime(INTERNAL_FUNCTION_PARAM_PASSTHRU, 1);
}
/* }}} */

/* {{{ Returns true(1) if it is a valid date in gregorian calendar */
PHP_FUNCTION(checkdate)
{
  zend_long m, d, y;

  ZEND_PARSE_PARAMETERS_START(3, 3)
    Z_PARAM_LONG(m)
    Z_PARAM_LONG(d)
    Z_PARAM_LONG(y)
  ZEND_PARSE_PARAMETERS_END();

  if (y < 1 || y > 32767 || !timelib_valid_date(y, m, d)) {
    RETURN_FALSE;
  }
  RETURN_TRUE; /* True : This month, day, year arguments are valid */
}
/* }}} */

/* {{{ php_strftime - (gm)strftime helper */
PHPAPI void php_strftime(INTERNAL_FUNCTION_PARAMETERS, bool gmt)
{
  zend_string         *format;
  zend_long            timestamp;
  bool            timestamp_is_null = 1;
  struct tm            ta;
  int                  max_reallocs = 5;
  size_t               buf_len = 256, real_len;
  timelib_time        *ts;
  timelib_tzinfo      *tzi;
  timelib_time_offset *offset = NULL;
  zend_string     *buf;

  ZEND_PARSE_PARAMETERS_START(1, 2)
    Z_PARAM_STR(format)
    Z_PARAM_OPTIONAL
    Z_PARAM_LONG_OR_NULL(timestamp, timestamp_is_null)
  ZEND_PARSE_PARAMETERS_END();

  if (ZSTR_LEN(format) == 0) {
    RETURN_FALSE;
  }

  if (timestamp_is_null) {
    timestamp = (zend_long) php_time();
  }

  ts = timelib_time_ctor();
  if (gmt) {
    tzi = NULL;
    timelib_unixtime2gmt(ts, (timelib_sll) timestamp);
  } else {
    tzi = get_timezone_info();
    if (!tzi) {
      return;
    }
    ts->tz_info = tzi;
    ts->zone_type = TIMELIB_ZONETYPE_ID;
    timelib_unixtime2local(ts, (timelib_sll) timestamp);
  }
  ta.tm_sec   = ts->s;
  ta.tm_min   = ts->i;
  ta.tm_hour  = ts->h;
  ta.tm_mday  = ts->d;
  ta.tm_mon   = ts->m - 1;
  ta.tm_year  = ts->y - 1900;
  ta.tm_wday  = timelib_day_of_week(ts->y, ts->m, ts->d);
  ta.tm_yday  = timelib_day_of_year(ts->y, ts->m, ts->d);
  if (gmt) {
    ta.tm_isdst = 0;
#ifdef HAVE_STRUCT_TM_TM_GMTOFF
    ta.tm_gmtoff = 0;
#endif
#ifdef HAVE_STRUCT_TM_TM_ZONE
    ta.tm_zone = "GMT";
#endif
  } else {
    offset = timelib_get_time_zone_info(timestamp, tzi);

    ta.tm_isdst = offset->is_dst;
#ifdef HAVE_STRUCT_TM_TM_GMTOFF
    ta.tm_gmtoff = offset->offset;
#endif
#ifdef HAVE_STRUCT_TM_TM_ZONE
    ta.tm_zone = offset->abbr;
#endif
  }

  /* VS2012 crt has a bug where strftime crash with %z and %Z format when the
     initial buffer is too small. See
     http://connect.microsoft.com/VisualStudio/feedback/details/759720/vs2012-strftime-crash-with-z-formatting-code */
  buf = zend_string_alloc(buf_len, 0);
  while ((real_len = strftime(ZSTR_VAL(buf), buf_len, ZSTR_VAL(format), &ta)) == buf_len || real_len == 0) {
    buf_len *= 2;
    buf = zend_string_extend(buf, buf_len, 0);
    if (!--max_reallocs) {
      break;
    }
  }
#ifdef PHP_WIN32
  /* VS2012 strftime() returns number of characters, not bytes.
    See VC++11 bug id 766205. */
  if (real_len > 0) {
    real_len = strlen(buf->val);
  }
#endif

  timelib_time_dtor(ts);
  if (!gmt) {
    timelib_time_offset_dtor(offset);
  }

  if (real_len && real_len != buf_len) {
    buf = zend_string_truncate(buf, real_len, 0);
    RETURN_NEW_STR(buf);
  }
  zend_string_efree(buf);
  RETURN_FALSE;
}
/* }}} */

/* {{{ Format a local time/date according to locale settings */
PHP_FUNCTION(strftime)
{
  php_strftime(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0);
}
/* }}} */

/* {{{ Format a GMT/UCT time/date according to locale settings */
PHP_FUNCTION(gmstrftime)
{
  php_strftime(INTERNAL_FUNCTION_PARAM_PASSTHRU, 1);
}
/* }}} */

/* {{{ Return current UNIX timestamp */
PHP_FUNCTION(time)
{
  ZEND_PARSE_PARAMETERS_NONE();

  RETURN_LONG((zend_long)php_time());
}
/* }}} */

/* {{{ Returns the results of the C system call localtime as an associative array if the associative_array argument is set to 1 other wise it is a regular array */
PHP_FUNCTION(localtime)
{
  zend_long timestamp;
  bool timestamp_is_null = 1;
  bool associative = 0;
  timelib_tzinfo *tzi;
  timelib_time   *ts;

  ZEND_PARSE_PARAMETERS_START(0, 2)
    Z_PARAM_OPTIONAL
    Z_PARAM_LONG_OR_NULL(timestamp, timestamp_is_null)
    Z_PARAM_BOOL(associative)
  ZEND_PARSE_PARAMETERS_END();

  if (timestamp_is_null) {
    timestamp = (zend_long) php_time();
  }

  tzi = get_timezone_info();
  if (!tzi) {
    RETURN_THROWS();
  }
  ts = timelib_time_ctor();
  ts->tz_info = tzi;
  ts->zone_type = TIMELIB_ZONETYPE_ID;
  timelib_unixtime2local(ts, (timelib_sll) timestamp);

  array_init_size(return_value, 9);

  if (associative) {
    add_assoc_long(return_value, "tm_sec",   ts->s);
    add_assoc_long(return_value, "tm_min",   ts->i);
    add_assoc_long(return_value, "tm_hour",  ts->h);
    add_assoc_long(return_value, "tm_mday",  ts->d);
    add_assoc_long(return_value, "tm_mon",   ts->m - 1);
    add_assoc_long(return_value, "tm_year",  ts->y - 1900);
    add_assoc_long(return_value, "tm_wday",  timelib_day_of_week(ts->y, ts->m, ts->d));
    add_assoc_long(return_value, "tm_yday",  timelib_day_of_year(ts->y, ts->m, ts->d));
    add_assoc_long(return_value, "tm_isdst", ts->dst);
  } else {
    zend_hash_real_init_packed(Z_ARRVAL_P(return_value));
    add_next_index_long(return_value, ts->s);
    add_next_index_long(return_value, ts->i);
    add_next_index_long(return_value, ts->h);
    add_next_index_long(return_value, ts->d);
    add_next_index_long(return_value, ts->m - 1);
    add_next_index_long(return_value, ts->y- 1900);
    add_next_index_long(return_value, timelib_day_of_week(ts->y, ts->m, ts->d));
    add_next_index_long(return_value, timelib_day_of_year(ts->y, ts->m, ts->d));
    add_next_index_long(return_value, ts->dst);
  }

  timelib_time_dtor(ts);
}
/* }}} */

/* {{{ Get date/time information */
PHP_FUNCTION(getdate)
{
  zend_long timestamp;
  bool timestamp_is_null = 1;
  timelib_tzinfo *tzi;
  timelib_time   *ts;

  ZEND_PARSE_PARAMETERS_START(0, 1)
    Z_PARAM_OPTIONAL
    Z_PARAM_LONG_OR_NULL(timestamp, timestamp_is_null)
  ZEND_PARSE_PARAMETERS_END();

  if (timestamp_is_null) {
    timestamp = (zend_long) php_time();
  }

  tzi = get_timezone_info();
  if (!tzi) {
    RETURN_THROWS();
  }
  ts = timelib_time_ctor();
  ts->tz_info = tzi;
  ts->zone_type = TIMELIB_ZONETYPE_ID;
  timelib_unixtime2local(ts, (timelib_sll) timestamp);

  array_init_size(return_value, 11);

  add_assoc_long(return_value, "seconds", ts->s);
  add_assoc_long(return_value, "minutes", ts->i);
  add_assoc_long(return_value, "hours", ts->h);
  add_assoc_long(return_value, "mday", ts->d);
  add_assoc_long(return_value, "wday", timelib_day_of_week(ts->y, ts->m, ts->d));
  add_assoc_long(return_value, "mon", ts->m);
  add_assoc_long(return_value, "year", ts->y);
  add_assoc_long(return_value, "yday", timelib_day_of_year(ts->y, ts->m, ts->d));
  add_assoc_string(return_value, "weekday", php_date_full_day_name(ts->y, ts->m, ts->d));
  add_assoc_string(return_value, "month", mon_full_names[ts->m - 1]);
  add_index_long(return_value, 0, timestamp);

  timelib_time_dtor(ts);
}
/* }}} */

static void create_date_period_datetime(timelib_time *datetime, zend_class_entry *ce, zval *zv)
{
  if (datetime) {
    php_date_obj *date_obj;

    zend_result result = object_init_ex(zv, ce);
    ZEND_ASSERT(result == SUCCESS && "should succeed as it reuses an existing object's ce");
    date_obj = Z_PHPDATE_P(zv);
    date_obj->time = timelib_time_clone(datetime);
  } else {
    ZVAL_NULL(zv);
  }
}

static void create_date_period_interval(timelib_rel_time *interval, zval *zv)
{
  if (interval) {
    php_interval_obj *interval_obj;

    object_init_ex(zv, date_ce_interval);
    interval_obj = Z_PHPINTERVAL_P(zv);
    interval_obj->diff = timelib_rel_time_clone(interval);
    interval_obj->initialized = true;
  } else {
    ZVAL_NULL(zv);
  }
}

/* define an overloaded iterator structure */
typedef struct {
  zend_object_iterator  intern;
  zval                  current;
  php_period_obj       *object;
  int                   current_index;
} date_period_it;

/* {{{ date_period_it_invalidate_current */
static void date_period_it_invalidate_current(zend_object_iterator *iter)
{
  date_period_it *iterator = (date_period_it *)iter;

  if (Z_TYPE(iterator->current) != IS_UNDEF) {
    zval_ptr_dtor(&iterator->current);
    ZVAL_UNDEF(&iterator->current);
  }
}
/* }}} */

/* {{{ date_period_it_dtor */
static void date_period_it_dtor(zend_object_iterator *iter)
{
  date_period_it *iterator = (date_period_it *)iter;

  date_period_it_invalidate_current(iter);

  zval_ptr_dtor(&iterator->intern.data);
}
/* }}} */

/* {{{ date_period_it_has_more */
static zend_result date_period_it_has_more(zend_object_iterator *iter)
{
  date_period_it *iterator = (date_period_it *)iter;
  php_period_obj *object   = Z_PHPPERIOD_P(&iterator->intern.data);

  if (object->end) {
    if (object->current->sse == object->end->sse) {
      if (object->include_end_date) {
        return object->current->us <= object->end->us ? SUCCESS : FAILURE;
      } else {
        return object->current->us < object->end->us ? SUCCESS : FAILURE;
      }
    }

    return object->current->sse < object->end->sse ? SUCCESS : FAILURE;
  } else {
    return (iterator->current_index < object->recurrences) ? SUCCESS : FAILURE;
  }
}
/* }}} */

static zend_class_entry *get_base_date_class(zend_class_entry *start_ce)
{
  zend_class_entry *tmp = start_ce;

  while (tmp != date_ce_date && tmp != date_ce_immutable && tmp->parent) {
    tmp = tmp->parent;
  }

  return tmp;
}

/* {{{ date_period_it_current_data */
static zval *date_period_it_current_data(zend_object_iterator *iter)
{
  date_period_it *iterator = (date_period_it *)iter;
  php_period_obj *object   = Z_PHPPERIOD_P(&iterator->intern.data);
  timelib_time   *it_time = object->current;
  php_date_obj   *newdateobj;

  /* Create new object */
  zval_ptr_dtor(&iterator->current);
  php_date_instantiate(get_base_date_class(object->start_ce), &iterator->current);
  newdateobj = Z_PHPDATE_P(&iterator->current);
  newdateobj->time = timelib_time_ctor();
  *newdateobj->time = *it_time;
  if (it_time->tz_abbr) {
    newdateobj->time->tz_abbr = timelib_strdup(it_time->tz_abbr);
  }
  if (it_time->tz_info) {
    newdateobj->time->tz_info = it_time->tz_info;
  }

  return &iterator->current;
}
/* }}} */

/* {{{ date_period_it_current_key */
static void date_period_it_current_key(zend_object_iterator *iter, zval *key)
{
  date_period_it *iterator = (date_period_it *)iter;
  ZVAL_LONG(key, iterator->current_index);
}
/* }}} */

static void date_period_advance(timelib_time *it_time, timelib_rel_time *interval)
{
  it_time->have_relative = 1;
  it_time->relative = *interval;
  it_time->sse_uptodate = 0;
  timelib_update_ts(it_time, NULL);
  timelib_update_from_sse(it_time);
}

/* {{{ date_period_it_move_forward */
static void date_period_it_move_forward(zend_object_iterator *iter)
{
  date_period_it *iterator = (date_period_it *)iter;
  php_period_obj *object   = Z_PHPPERIOD_P(&iterator->intern.data);
  timelib_time   *it_time  = object->current;
  zval current_zv;

  date_period_advance(it_time, object->interval);

  /* rebuild properties */
  zend_std_get_properties_ex(&object->std);

  create_date_period_datetime(object->current, object->start_ce, &current_zv);
  zval_ptr_dtor(&current_zv);

  iterator->current_index++;
  date_period_it_invalidate_current(iter);
}
/* }}} */

/* {{{ date_period_it_rewind */
static void date_period_it_rewind(zend_object_iterator *iter)
{
  date_period_it *iterator = (date_period_it *)iter;

  iterator->current_index = 0;
  if (iterator->object->current) {
    timelib_time_dtor(iterator->object->current);
  }
  if (!iterator->object->start) {
    date_throw_uninitialized_error(date_ce_period);
    return;
  }

  iterator->object->current = timelib_time_clone(iterator->object->start);

  if (!iterator->object->include_start_date) {
    date_period_advance(iterator->object->current, iterator->object->interval);
  }

  date_period_it_invalidate_current(iter);
}
/* }}} */

/* iterator handler table */
static const zend_object_iterator_funcs date_period_it_funcs = {
  date_period_it_dtor,
  date_period_it_has_more,
  date_period_it_current_data,
  date_period_it_current_key,
  date_period_it_move_forward,
  date_period_it_rewind,
  date_period_it_invalidate_current,
  NULL, /* get_gc */
};

static zend_object_iterator *date_object_period_get_iterator(zend_class_entry *ce, zval *object, int by_ref) /* {{{ */
{
  date_period_it *iterator;

  if (by_ref) {
    zend_throw_error(NULL, "An iterator cannot be used with foreach by reference");
    return NULL;
  }

  iterator = emalloc(sizeof(date_period_it));

  zend_iterator_init((zend_object_iterator*)iterator);

  ZVAL_OBJ_COPY(&iterator->intern.data, Z_OBJ_P(object));
  iterator->intern.funcs = &date_period_it_funcs;
  iterator->object = Z_PHPPERIOD_P(object);
  ZVAL_UNDEF(&iterator->current);

  return (zend_object_iterator*)iterator;
} /* }}} */

static void implement_date_interface_handler(zend_class_entry *interface, zend_class_entry *implementor) /* {{{ */
{
  if (implementor->type == ZEND_USER_CLASS &&
    !instanceof_function(implementor, date_ce_date) &&
    !instanceof_function(implementor, date_ce_immutable)
  ) {
    zend_error_noreturn(E_ERROR, "DateTimeInterface can't be implemented by user classes");
  }
} /* }}} */

static int date_interval_has_property(zend_object *object, zend_string *name, int type, void **cache_slot) /* {{{ */
{
  php_interval_obj *obj;
  zval rv;
  zval *prop;
  int retval = 0;

  obj = php_interval_obj_from_obj(object);

  if (!obj->initialized) {
    retval = zend_std_has_property(object, name, type, cache_slot);
    return retval;
  }

  prop = date_interval_read_property(object, name, BP_VAR_IS, cache_slot, &rv);

  if (prop != &EG(uninitialized_zval)) {
    if (type == 2) {
      retval = 1;
    } else if (type == 1) {
      retval = zend_is_true(prop);
    } else if (type == 0) {
      retval = (Z_TYPE_P(prop) != IS_NULL);
    }
  } else {
    retval = zend_std_has_property(object, name, type, cache_slot);
  }

  return retval;

}
/* }}} */

static void date_register_classes(void) /* {{{ */
{
  date_ce_interface = register_class_DateTimeInterface();
  date_ce_interface->interface_gets_implemented = implement_date_interface_handler;

  date_ce_date = register_class_DateTime(date_ce_interface);
  date_ce_date->create_object = date_object_new_date;
  date_ce_date->default_object_handlers = &date_object_handlers_date;
  memcpy(&date_object_handlers_date, &std_object_handlers, sizeof(zend_object_handlers));
  date_object_handlers_date.offset = offsetof(php_date_obj, std);
  date_object_handlers_date.free_obj = date_object_free_storage_date;
  date_object_handlers_date.clone_obj = date_object_clone_date;
  date_object_handlers_date.compare = date_object_compare_date;
  date_object_handlers_date.get_properties_for = date_object_get_properties_for;
  date_object_handlers_date.get_gc = date_object_get_gc;

  date_ce_immutable = register_class_DateTimeImmutable(date_ce_interface);
  date_ce_immutable->create_object = date_object_new_date;
  date_ce_immutable->default_object_handlers = &date_object_handlers_date;
  memcpy(&date_object_handlers_immutable, &std_object_handlers, sizeof(zend_object_handlers));
  date_object_handlers_immutable.clone_obj = date_object_clone_date;
  date_object_handlers_immutable.compare = date_object_compare_date;
  date_object_handlers_immutable.get_properties_for = date_object_get_properties_for;
  date_object_handlers_immutable.get_gc = date_object_get_gc;

  date_ce_timezone = register_class_DateTimeZone();
  date_ce_timezone->create_object = date_object_new_timezone;
  date_ce_timezone->default_object_handlers = &date_object_handlers_timezone;
  memcpy(&date_object_handlers_timezone, &std_object_handlers, sizeof(zend_object_handlers));
  date_object_handlers_timezone.offset = offsetof(php_timezone_obj, std);
  date_object_handlers_timezone.free_obj = date_object_free_storage_timezone;
  date_object_handlers_timezone.clone_obj = date_object_clone_timezone;
  date_object_handlers_timezone.get_properties_for = date_object_get_properties_for_timezone;
  date_object_handlers_timezone.get_gc = date_object_get_gc_timezone;
  date_object_handlers_timezone.get_debug_info = date_object_get_debug_info_timezone;
  date_object_handlers_timezone.compare = date_object_compare_timezone;

  date_ce_interval = register_class_DateInterval();
  date_ce_interval->create_object = date_object_new_interval;
  date_ce_interval->default_object_handlers = &date_object_handlers_interval;
  memcpy(&date_object_handlers_interval, &std_object_handlers, sizeof(zend_object_handlers));
  date_object_handlers_interval.offset = offsetof(php_interval_obj, std);
  date_object_handlers_interval.free_obj = date_object_free_storage_interval;
  date_object_handlers_interval.clone_obj = date_object_clone_interval;
  date_object_handlers_interval.has_property = date_interval_has_property;
  date_object_handlers_interval.read_property = date_interval_read_property;
  date_object_handlers_interval.write_property = date_interval_write_property;
  date_object_handlers_interval.get_properties = date_object_get_properties_interval;
  date_object_handlers_interval.get_property_ptr_ptr = date_interval_get_property_ptr_ptr;
  date_object_handlers_interval.get_gc = date_object_get_gc_interval;
  date_object_handlers_interval.compare = date_interval_compare_objects;

  date_ce_period = register_class_DatePeriod(zend_ce_aggregate);
  date_ce_period->create_object = date_object_new_period;
  date_ce_period->default_object_handlers = &date_object_handlers_period;
  date_ce_period->get_iterator = date_object_period_get_iterator;
  memcpy(&date_object_handlers_period, &std_object_handlers, sizeof(zend_object_handlers));
  date_object_handlers_period.offset = offsetof(php_period_obj, std);
  date_object_handlers_period.free_obj = date_object_free_storage_period;
  date_object_handlers_period.clone_obj = date_object_clone_period;
  date_object_handlers_period.get_gc = date_object_get_gc_period;
  date_object_handlers_period.get_property_ptr_ptr = date_period_get_property_ptr_ptr;
  date_object_handlers_period.has_property = date_period_has_property;
  date_object_handlers_period.read_property = date_period_read_property;
  date_object_handlers_period.write_property = date_period_write_property;
  date_object_handlers_period.get_properties_for = date_period_get_properties_for;
  date_object_handlers_period.unset_property = date_period_unset_property;

  date_ce_date_error = register_class_DateError(zend_ce_error);
  date_ce_date_object_error = register_class_DateObjectError(date_ce_date_error);
  date_ce_date_range_error = register_class_DateRangeError(date_ce_date_error);

  date_ce_date_exception = register_class_DateException(zend_ce_exception);
  date_ce_date_invalid_timezone_exception = register_class_DateInvalidTimeZoneException(date_ce_date_exception);
  date_ce_date_invalid_operation_exception = register_class_DateInvalidOperationException(date_ce_date_exception);
  date_ce_date_malformed_string_exception = register_class_DateMalformedStringException(date_ce_date_exception);
  date_ce_date_malformed_interval_string_exception = register_class_DateMalformedIntervalStringException(date_ce_date_exception);
  date_ce_date_malformed_period_string_exception = register_class_DateMalformedPeriodStringException(date_ce_date_exception);
} /* }}} */

static zend_object *date_object_new_date(zend_class_entry *class_type) /* {{{ */
{
  php_date_obj *intern = zend_object_alloc(sizeof(php_date_obj), class_type);

  zend_object_std_init(&intern->std, class_type);
  object_properties_init(&intern->std, class_type);

  return &intern->std;
} /* }}} */

static zend_object *date_object_clone_date(zend_object *this_ptr) /* {{{ */
{
  const php_date_obj *old_obj = php_date_obj_from_obj(this_ptr);
  php_date_obj *new_obj = php_date_obj_from_obj(date_object_new_date(old_obj->std.ce));

  zend_objects_clone_members(&new_obj->std, &old_obj->std);
  if (!old_obj->time) {
    return &new_obj->std;
  }

  /* this should probably moved to a new `timelib_time *timelime_time_clone(timelib_time *)` */
  new_obj->time = timelib_time_ctor();
  *new_obj->time = *old_obj->time;
  if (old_obj->time->tz_abbr) {
    new_obj->time->tz_abbr = timelib_strdup(old_obj->time->tz_abbr);
  }
  if (old_obj->time->tz_info) {
    new_obj->time->tz_info = old_obj->time->tz_info;
  }

  return &new_obj->std;
} /* }}} */

static void date_clone_immutable(zval *object, zval *new_object) /* {{{ */
{
  ZVAL_OBJ(new_object, date_object_clone_date(Z_OBJ_P(object)));
} /* }}} */

static int date_object_compare_date(zval *d1, zval *d2) /* {{{ */
{
  php_date_obj *o1;
  php_date_obj *o2;

  ZEND_COMPARE_OBJECTS_FALLBACK(d1, d2);

  o1 = Z_PHPDATE_P(d1);
  o2 = Z_PHPDATE_P(d2);

  if (!o1->time || !o2->time) {
    zend_throw_error(date_ce_date_object_error, "Trying to compare an incomplete DateTime or DateTimeImmutable object");
    return ZEND_UNCOMPARABLE;
  }
  if (!o1->time->sse_uptodate) {
    timelib_update_ts(o1->time, o1->time->tz_info);
  }
  if (!o2->time->sse_uptodate) {
    timelib_update_ts(o2->time, o2->time->tz_info);
  }

  return timelib_time_compare(o1->time, o2->time);
} /* }}} */

static HashTable *date_object_get_gc(zend_object *object, zval **table, int *n) /* {{{ */
{
  *table = NULL;
  *n = 0;
  return zend_std_get_properties(object);
} /* }}} */

static HashTable *date_object_get_gc_timezone(zend_object *object, zval **table, int *n) /* {{{ */
{
  *table = NULL;
  *n = 0;
  return zend_std_get_properties(object);
} /* }}} */

static zend_string *date_create_tz_offset_str(timelib_sll offset)
{
  int seconds = offset % 60;
  size_t size;
  const char *format;

  if (seconds == 0) {
    size = sizeof("+05:00");
    format = "%c%02d:%02d";
  } else {
    size = sizeof("+05:00:01");
    format = "%c%02d:%02d:%02d";
  }

  zend_string *tmpstr = zend_string_alloc(size - 1, 0);

  /* Note: if seconds == 0, the seconds argument will be excessive and therefore ignored. */
  ZSTR_LEN(tmpstr) = snprintf(ZSTR_VAL(tmpstr), size, format,
    offset < 0 ? '-' : '+',
    abs((int)(offset / 3600)),
    abs((int)(offset % 3600) / 60),
    abs(seconds));

  return tmpstr;
}

static void date_object_to_hash(php_date_obj *dateobj, HashTable *props)
{
  zval zv;

  /* first we add the date and time in ISO format */
  ZVAL_STR(&zv, date_format("x-m-d H:i:s.u", sizeof("x-m-d H:i:s.u")-1, dateobj->time, true));
  zend_hash_str_update(props, "date", sizeof("date")-1, &zv);

  /* then we add the timezone name (or similar) */
  if (dateobj->time->is_localtime) {
    ZVAL_LONG(&zv, dateobj->time->zone_type);
    zend_hash_str_update(props, "timezone_type", sizeof("timezone_type")-1, &zv);

    switch (dateobj->time->zone_type) {
      case TIMELIB_ZONETYPE_ID:
        ZVAL_STRING(&zv, dateobj->time->tz_info->name);
        break;
      case TIMELIB_ZONETYPE_OFFSET:
        ZVAL_NEW_STR(&zv, date_create_tz_offset_str(dateobj->time->z));
        break;
      case TIMELIB_ZONETYPE_ABBR:
        ZVAL_STRING(&zv, dateobj->time->tz_abbr);
        break;
    }
    zend_hash_str_update(props, "timezone", sizeof("timezone")-1, &zv);
  }
}

static HashTable *date_object_get_properties_for(zend_object *object, zend_prop_purpose purpose) /* {{{ */
{
  HashTable *props;
  php_date_obj *dateobj;

  switch (purpose) {
    case ZEND_PROP_PURPOSE_SERIALIZE:
    case ZEND_PROP_PURPOSE_VAR_EXPORT:
    case ZEND_PROP_PURPOSE_JSON:
    case ZEND_PROP_PURPOSE_ARRAY_CAST:
      break;
    case ZEND_PROP_PURPOSE_DEBUG: {
      if (object->ce->__debugInfo) {
        int is_temp = 0;
        HashTable *ht = zend_std_get_debug_info(object, &is_temp);
        if (ht && !is_temp) {
          GC_TRY_ADDREF(ht);
        }
        return ht;
      }
      break;
    }
    default:
      return zend_std_get_properties_for(object, purpose);
  }

  dateobj = php_date_obj_from_obj(object);
  props = zend_array_dup(zend_std_get_properties(object));
  if (!dateobj->time) {
    return props;
  }

  date_object_to_hash(dateobj, props);

  return props;
} /* }}} */

static zend_object *date_object_new_timezone(zend_class_entry *class_type) /* {{{ */
{
  php_timezone_obj *intern = zend_object_alloc(sizeof(php_timezone_obj), class_type);

  zend_object_std_init(&intern->std, class_type);
  object_properties_init(&intern->std, class_type);

  return &intern->std;
} /* }}} */

static zend_object *date_object_clone_timezone(zend_object *this_ptr) /* {{{ */
{
  const php_timezone_obj *old_obj = php_timezone_obj_from_obj(this_ptr);
  php_timezone_obj *new_obj = php_timezone_obj_from_obj(date_object_new_timezone(old_obj->std.ce));

  zend_objects_clone_members(&new_obj->std, &old_obj->std);
  if (!old_obj->initialized) {
    return &new_obj->std;
  }

  new_obj->type = old_obj->type;
  new_obj->initialized = true;
  switch (new_obj->type) {
    case TIMELIB_ZONETYPE_ID:
      new_obj->tzi.tz = old_obj->tzi.tz;
      break;
    case TIMELIB_ZONETYPE_OFFSET:
      new_obj->tzi.utc_offset = old_obj->tzi.utc_offset;
      break;
    case TIMELIB_ZONETYPE_ABBR:
      new_obj->tzi.z.utc_offset = old_obj->tzi.z.utc_offset;
      new_obj->tzi.z.dst        = old_obj->tzi.z.dst;
      new_obj->tzi.z.abbr       = timelib_strdup(old_obj->tzi.z.abbr);
      break;
  }

  return &new_obj->std;
} /* }}} */

static int date_object_compare_timezone(zval *tz1, zval *tz2) /* {{{ */
{
  php_timezone_obj *o1, *o2;

  ZEND_COMPARE_OBJECTS_FALLBACK(tz1, tz2);

  o1 = Z_PHPTIMEZONE_P(tz1);
  o2 = Z_PHPTIMEZONE_P(tz2);

  if (!o1->initialized || !o2->initialized) {
    zend_throw_error(date_ce_date_object_error, "Trying to compare uninitialized DateTimeZone objects");
    return ZEND_UNCOMPARABLE;
  }

  if (o1->type != o2->type) {
    zend_throw_error(date_ce_date_exception, "Cannot compare two different kinds of DateTimeZone objects");
    return ZEND_UNCOMPARABLE;
  }

  switch (o1->type) {
    case TIMELIB_ZONETYPE_OFFSET:
      return o1->tzi.utc_offset == o2->tzi.utc_offset ? 0 : 1;
    case TIMELIB_ZONETYPE_ABBR:
      return strcmp(o1->tzi.z.abbr, o2->tzi.z.abbr) ? 1 : 0;
    case TIMELIB_ZONETYPE_ID:
      return strcmp(o1->tzi.tz->name, o2->tzi.tz->name) ? 1 : 0;
    default: ZEND_UNREACHABLE();
  }
} /* }}} */

static void php_timezone_to_string(php_timezone_obj *tzobj, zval *zv)
{
  switch (tzobj->type) {
    case TIMELIB_ZONETYPE_ID:
      ZVAL_STRING(zv, tzobj->tzi.tz->name);
      break;
    case TIMELIB_ZONETYPE_OFFSET:
      ZVAL_NEW_STR(zv, date_create_tz_offset_str(tzobj->tzi.utc_offset));
      break;
    case TIMELIB_ZONETYPE_ABBR:
      ZVAL_STRING(zv, tzobj->tzi.z.abbr);
      break;
  }
}

static void date_timezone_object_to_hash(php_timezone_obj *tzobj, HashTable *props)
{
  zval zv;

  ZVAL_LONG(&zv, tzobj->type);
  zend_hash_str_update(props, "timezone_type", strlen("timezone_type"), &zv);

  php_timezone_to_string(tzobj, &zv);
  zend_hash_str_update(props, "timezone", strlen("timezone"), &zv);
}

static HashTable *date_object_get_properties_for_timezone(zend_object *object, zend_prop_purpose purpose) /* {{{ */
{
  HashTable *props;
  php_timezone_obj *tzobj;

  switch (purpose) {
    case ZEND_PROP_PURPOSE_SERIALIZE:
    case ZEND_PROP_PURPOSE_VAR_EXPORT:
    case ZEND_PROP_PURPOSE_JSON:
    case ZEND_PROP_PURPOSE_ARRAY_CAST:
      break;
    case ZEND_PROP_PURPOSE_DEBUG: {
      if (object->ce->__debugInfo) {
        int is_temp = 0;
        HashTable *ht = zend_std_get_debug_info(object, &is_temp);
        if (ht && !is_temp) {
          GC_TRY_ADDREF(ht);
        }
        return ht;
      }
      break;
    }
    default:
      return zend_std_get_properties_for(object, purpose);
  }

  tzobj = php_timezone_obj_from_obj(object);
  props = zend_array_dup(zend_std_get_properties(object));
  if (!tzobj->initialized) {
    return props;
  }

  date_timezone_object_to_hash(tzobj, props);

  return props;
} /* }}} */

static HashTable *date_object_get_debug_info_timezone(zend_object *object, int *is_temp) /* {{{ */
{
  HashTable *ht, *props;
  zval zv;
  php_timezone_obj *tzobj;

  tzobj = php_timezone_obj_from_obj(object);
  props = zend_std_get_properties(object);

  *is_temp = 1;
  ht = zend_array_dup(props);

  ZVAL_LONG(&zv, tzobj->type);
  zend_hash_str_update(ht, "timezone_type", sizeof("timezone_type")-1, &zv);

  php_timezone_to_string(tzobj, &zv);
  zend_hash_str_update(ht, "timezone", sizeof("timezone")-1, &zv);

  return ht;
} /* }}} */

static zend_object *date_object_new_interval(zend_class_entry *class_type) /* {{{ */
{
  php_interval_obj *intern = zend_object_alloc(sizeof(php_interval_obj), class_type);

  zend_object_std_init(&intern->std, class_type);
  object_properties_init(&intern->std, class_type);

  return &intern->std;
} /* }}} */

static zend_object *date_object_clone_interval(zend_object *this_ptr) /* {{{ */
{
  const php_interval_obj *old_obj = php_interval_obj_from_obj(this_ptr);
  php_interval_obj *new_obj = php_interval_obj_from_obj(date_object_new_interval(old_obj->std.ce));

  zend_objects_clone_members(&new_obj->std, &old_obj->std);
  new_obj->civil_or_wall = old_obj->civil_or_wall;
  new_obj->from_string = old_obj->from_string;
  if (old_obj->date_string) {
    new_obj->date_string = zend_string_copy(old_obj->date_string);
  }
  new_obj->initialized = old_obj->initialized;
  if (old_obj->diff) {
    new_obj->diff = timelib_rel_time_clone(old_obj->diff);
  }

  return &new_obj->std;
} /* }}} */

static HashTable *date_object_get_gc_interval(zend_object *object, zval **table, int *n) /* {{{ */
{

  *table = NULL;
  *n = 0;
  return zend_std_get_properties(object);
} /* }}} */

static void date_interval_object_to_hash(php_interval_obj *intervalobj, HashTable *props)
{
  zval zv;

  /* Records whether this is a special relative interval that needs to be recreated from a string */
  if (intervalobj->from_string) {
    ZVAL_BOOL(&zv, (bool)intervalobj->from_string);
    zend_hash_str_update(props, "from_string", strlen("from_string"), &zv);
    ZVAL_STR_COPY(&zv, intervalobj->date_string);
    zend_hash_str_update(props, "date_string", strlen("date_string"), &zv);
    return;
  }

#define PHP_DATE_INTERVAL_ADD_PROPERTY(n,f) \
  ZVAL_LONG(&zv, (zend_long)intervalobj->diff->f); \
  zend_hash_str_update(props, n, sizeof(n)-1, &zv);

  PHP_DATE_INTERVAL_ADD_PROPERTY("y", y);
  PHP_DATE_INTERVAL_ADD_PROPERTY("m", m);
  PHP_DATE_INTERVAL_ADD_PROPERTY("d", d);
  PHP_DATE_INTERVAL_ADD_PROPERTY("h", h);
  PHP_DATE_INTERVAL_ADD_PROPERTY("i", i);
  PHP_DATE_INTERVAL_ADD_PROPERTY("s", s);
  ZVAL_DOUBLE(&zv, (double)intervalobj->diff->us / 1000000.0);
  zend_hash_str_update(props, "f", sizeof("f") - 1, &zv);
  PHP_DATE_INTERVAL_ADD_PROPERTY("invert", invert);
  if (intervalobj->diff->days != TIMELIB_UNSET) {
    PHP_DATE_INTERVAL_ADD_PROPERTY("days", days);
  } else {
    ZVAL_FALSE(&zv);
    zend_hash_str_update(props, "days", sizeof("days")-1, &zv);
  }
  ZVAL_BOOL(&zv, (bool)intervalobj->from_string);
  zend_hash_str_update(props, "from_string", strlen("from_string"), &zv);

#undef PHP_DATE_INTERVAL_ADD_PROPERTY
}

static HashTable *date_object_get_properties_interval(zend_object *object) /* {{{ */
{
  HashTable *props;
  php_interval_obj *intervalobj;

  intervalobj = php_interval_obj_from_obj(object);
  props = zend_std_get_properties(object);
  if (!intervalobj->initialized) {
    return props;
  }

  /* The table may still be held elsewhere (e.g. json_encode() walking a cycle), so separate it before writing */
  if (UNEXPECTED(GC_REFCOUNT(props) > 1)) {
        GC_TRY_DELREF(props);
    props = object->properties = zend_array_dup(props);
  }

  date_interval_object_to_hash(intervalobj, props);

  return props;
} /* }}} */

static zend_object *date_object_new_period(zend_class_entry *class_type) /* {{{ */
{
  php_period_obj *intern = zend_object_alloc(sizeof(php_period_obj), class_type);

  zend_object_std_init(&intern->std, class_type);
  object_properties_init(&intern->std, class_type);

  return &intern->std;
} /* }}} */

static zend_object *date_object_clone_period(zend_object *this_ptr) /* {{{ */
{
  const php_period_obj *old_obj = php_period_obj_from_obj(this_ptr);
  php_period_obj *new_obj = php_period_obj_from_obj(date_object_new_period(old_obj->std.ce));

  zend_objects_clone_members(&new_obj->std, &old_obj->std);
  new_obj->initialized = old_obj->initialized;
  new_obj->recurrences = old_obj->recurrences;
  new_obj->include_start_date = old_obj->include_start_date;
  new_obj->include_end_date = old_obj->include_end_date;
  new_obj->start_ce = old_obj->start_ce;

  if (old_obj->start) {
    new_obj->start = timelib_time_clone(old_obj->start);
  }
  if (old_obj->current) {
    new_obj->current = timelib_time_clone(old_obj->current);
  }
  if (old_obj->end) {
    new_obj->end = timelib_time_clone(old_obj->end);
  }
  if (old_obj->interval) {
    new_obj->interval = timelib_rel_time_clone(old_obj->interval);
  }
  return &new_obj->std;
} /* }}} */

static void date_object_free_storage_date(zend_object *object) /* {{{ */
{
  php_date_obj *intern = php_date_obj_from_obj(object);

  if (intern->time) {
    timelib_time_dtor(intern->time);
  }

  zend_object_std_dtor(&intern->std);
} /* }}} */

static void date_object_free_storage_timezone(zend_object *object) /* {{{ */
{
  php_timezone_obj *intern = php_timezone_obj_from_obj(object);

  if (intern->type == TIMELIB_ZONETYPE_ABBR) {
    timelib_free(intern->tzi.z.abbr);
  }
  zend_object_std_dtor(&intern->std);
} /* }}} */

static void date_object_free_storage_interval(zend_object *object) /* {{{ */
{
  php_interval_obj *intern = php_interval_obj_from_obj(object);

  if (intern->date_string) {
    zend_string_release(intern->date_string);
    intern->date_string = NULL;
  }
  timelib_rel_time_dtor(intern->diff);
  zend_object_std_dtor(&intern->std);
} /* }}} */

static void date_object_free_storage_period(zend_object *object) /* {{{ */
{
  php_period_obj *intern = php_period_obj_from_obj(object);

  if (intern->start) {
    timelib_time_dtor(intern->start);
  }

  if (intern->current) {
    timelib_time_dtor(intern->current);
  }

  if (intern->end) {
    timelib_time_dtor(intern->end);
  }

  timelib_rel_time_dtor(intern->interval);
  zend_object_std_dtor(&intern->std);
} /* }}} */

static void add_common_properties(HashTable *myht, zend_object *zobj)
{
  HashTable *common;
  zend_string *name;
  zval *prop;

  common = zend_std_get_properties(zobj);

  ZEND_HASH_FOREACH_STR_KEY_VAL_IND(common, name, prop) {
    if (zend_hash_add(myht, name, prop) != NULL) {
      Z_TRY_ADDREF_P(prop);
    }
  } ZEND_HASH_FOREACH_END();
}

/* Advanced Interface */
/* TODO: remove this API because it is unsafe to use as-is, as it does not propagate the failure/success status. */
PHPAPI zval *php_date_instantiate(zend_class_entry *pce, zval *object) /* {{{ */
{
  object_init_ex(object, pce);
  return object;
} /* }}} */

/* Helper function used to store the latest found warnings and errors while
 * parsing, from either strtotime or parse_from_format. */
static void update_errors_warnings(timelib_error_container **last_errors) /* {{{ */
{
  if (DATEG(last_errors)) {
    timelib_error_container_dtor(DATEG(last_errors));
    DATEG(last_errors) = NULL;
  }

  if (last_errors == NULL || (*last_errors) == NULL) {
    return;
  }

  if ((*last_errors)->warning_count || (*last_errors)->error_count) {
    DATEG(last_errors) = *last_errors;
    return;
  }

  timelib_error_container_dtor(*last_errors);
  *last_errors = NULL;
} /* }}} */

static void php_date_set_time_fraction(timelib_time *time, int microsecond)
{
  time->us = microsecond;
}

static void php_date_get_current_time_with_fraction(time_t *sec, suseconds_t *usec)
{
#ifdef HAVE_GETTIMEOFDAY
  struct timeval tp = {0}; /* For setting microsecond */

  gettimeofday(&tp, NULL);
  *sec = tp.tv_sec;
  *usec = tp.tv_usec;
#else
  *sec = time(NULL);
  *usec = 0;
#endif
}

PHPAPI bool php_date_initialize(php_date_obj *dateobj, const char *time_str, size_t time_str_len, const char *format, zval *timezone_object, int flags) /* {{{ */
{
  timelib_time   *now;
  timelib_tzinfo *tzi = NULL;
  timelib_error_container *err = NULL;
  int type = TIMELIB_ZONETYPE_ID, new_dst = 0;
  char *new_abbr = NULL;
  timelib_sll new_offset = 0;
  time_t sec;
  suseconds_t usec;
  int options = 0;

  if (dateobj->time) {
    timelib_time_dtor(dateobj->time);
  }
  if (format) {
    if (time_str_len == 0) {
      time_str = "";
    }
    dateobj->time = timelib_parse_from_format(format, time_str, time_str_len, &err, DATE_TIMEZONEDB, php_date_parse_tzfile_wrapper);
  } else {
    if (time_str_len == 0) {
      time_str = "now";
      time_str_len = sizeof("now") - 1;
    }
    dateobj->time = timelib_strtotime(time_str, time_str_len, &err, DATE_TIMEZONEDB, php_date_parse_tzfile_wrapper);
  }

  /* update last errors and warnings */
  update_errors_warnings(&err);

  /* If called from a constructor throw an exception */
  if ((flags & PHP_DATE_INIT_CTOR) && err && err->error_count) {
    /* spit out the first library error message, at least */
    zend_throw_exception_ex(date_ce_date_malformed_string_exception, 0, "Failed to parse time string (%s) at position %d (%c): %s", time_str,
      err->error_messages[0].position, err->error_messages[0].character ? err->error_messages[0].character : ' ', err->error_messages[0].message);
  }
  if (err && err->error_count) {
    timelib_time_dtor(dateobj->time);
    dateobj->time = 0;
    return 0;
  }

  if (timezone_object) {
    php_timezone_obj *tzobj;

    tzobj = Z_PHPTIMEZONE_P(timezone_object);
    switch (tzobj->type) {
      case TIMELIB_ZONETYPE_ID:
        tzi = tzobj->tzi.tz;
        break;
      case TIMELIB_ZONETYPE_OFFSET:
        new_offset = tzobj->tzi.utc_offset;
        break;
      case TIMELIB_ZONETYPE_ABBR:
        new_offset = tzobj->tzi.z.utc_offset;
        new_dst    = tzobj->tzi.z.dst;
        new_abbr   = timelib_strdup(tzobj->tzi.z.abbr);
        break;
      default:
        zend_throw_error(NULL, "The DateTimeZone object has not been correctly initialized by its constructor");
        return 0;
    }
    type = tzobj->type;
  } else if (dateobj->time->tz_info) {
    tzi = dateobj->time->tz_info;
  } else {
    tzi = get_timezone_info();
    if (!tzi) {
      return 0;
    }
  }

  now = timelib_time_ctor();
  now->zone_type = type;
  switch (type) {
    case TIMELIB_ZONETYPE_ID:
      now->tz_info = tzi;
      break;
    case TIMELIB_ZONETYPE_OFFSET:
      now->z = new_offset;
      break;
    case TIMELIB_ZONETYPE_ABBR:
      now->z = new_offset;
      now->dst = new_dst;
      now->tz_abbr = new_abbr;
      break;
  }
  php_date_get_current_time_with_fraction(&sec, &usec);
  timelib_unixtime2local(now, (timelib_sll) sec);
  php_date_set_time_fraction(now, usec);

  if (!format
   && time_str_len == sizeof("now") - 1
   && memcmp(time_str, "now", sizeof("now") - 1) == 0) {
    timelib_time_dtor(dateobj->time);
    dateobj->time = now;
    return 1;
  }

  options = TIMELIB_NO_CLONE;
  if (flags & PHP_DATE_INIT_FORMAT) {
    options |= TIMELIB_OVERRIDE_TIME;
  }
  timelib_fill_holes(dateobj->time, now, options);

  timelib_update_ts(dateobj->time, tzi);
  timelib_update_from_sse(dateobj->time);

  dateobj->time->have_relative = 0;

  timelib_time_dtor(now);

  return 1;
} /* }}} */

PHPAPI void php_date_initialize_from_ts_long(php_date_obj *dateobj, zend_long sec, int usec) /* {{{ */
{
  dateobj->time = timelib_time_ctor();
  dateobj->time->zone_type = TIMELIB_ZONETYPE_OFFSET;

  timelib_unixtime2gmt(dateobj->time, (timelib_sll)sec);
  timelib_update_ts(dateobj->time, NULL);
  php_date_set_time_fraction(dateobj->time, usec);
} /* }}} */

PHPAPI bool php_date_initialize_from_ts_double(php_date_obj *dateobj, double ts) /* {{{ */
{
  double sec_dval = trunc(ts);
  zend_long sec;
  int usec;

  if (UNEXPECTED(isnan(sec_dval) || !PHP_DATE_DOUBLE_FITS_LONG(sec_dval))) {
    zend_argument_error(
      date_ce_date_range_error,
      1,
      "must be a finite number between " TIMELIB_LONG_FMT " and " TIMELIB_LONG_FMT ".999999, %g given",
      TIMELIB_LONG_MIN,
      TIMELIB_LONG_MAX,
      ts
    );
    return false;
  }

  sec = (zend_long)sec_dval;
  usec = (int) round(fmod(ts, 1) * 1000000);

  if (UNEXPECTED(abs(usec) == 1000000)) {
    sec += usec > 0 ? 1 : -1;
    usec = 0;
  }

  if (UNEXPECTED(usec < 0)) {
    if (UNEXPECTED(sec == TIMELIB_LONG_MIN)) {
      zend_argument_error(
        date_ce_date_range_error,
        1,
        "must be a finite number between " TIMELIB_LONG_FMT " and " TIMELIB_LONG_FMT ".999999, %g given",
        TIMELIB_LONG_MIN,
        TIMELIB_LONG_MAX,
        ts
      );
      return false;
    }

    sec = sec - 1;
    usec = 1000000 + usec;
  }

  php_date_initialize_from_ts_long(dateobj, sec, usec);

  return true;
} /* }}} */

/* {{{ Returns new DateTime object */
PHP_FUNCTION(date_create)
{
  zval           *timezone_object = NULL;
  char           *time_str = NULL;
  size_t          time_str_len = 0;

  ZEND_PARSE_PARAMETERS_START(0, 2)
    Z_PARAM_OPTIONAL
    Z_PARAM_STRING(time_str, time_str_len)
    Z_PARAM_OBJECT_OF_CLASS_OR_NULL(timezone_object, date_ce_timezone)
  ZEND_PARSE_PARAMETERS_END();

  php_date_instantiate(date_ce_date, return_value);
  if (!php_date_initialize(Z_PHPDATE_P(return_value), time_str, time_str_len, NULL, timezone_object, 0)) {
    zval_ptr_dtor(return_value);
    RETURN_FALSE;
  }
}
/* }}} */

/* {{{ Returns new DateTimeImmutable object */
PHP_FUNCTION(date_create_immutable)
{
  zval           *timezone_object = NULL;
  char           *time_str = NULL;
  size_t          time_str_len = 0;

  ZEND_PARSE_PARAMETERS_START(0, 2)
    Z_PARAM_OPTIONAL
    Z_PARAM_STRING(time_str, time_str_len)
    Z_PARAM_OBJECT_OF_CLASS_OR_NULL(timezone_object, date_ce_timezone)
  ZEND_PARSE_PARAMETERS_END();

  php_date_instantiate(date_ce_immutable, return_value);
  if (!php_date_initialize(Z_PHPDATE_P(return_value), time_str, time_str_len, NULL, timezone_object, 0)) {
    zval_ptr_dtor(return_value);
    RETURN_FALSE;
  }
}
/* }}} */

/* {{{ Returns new DateTime object formatted according to the specified format */
PHP_FUNCTION(date_create_from_format)
{
  zval           *timezone_object = NULL;
  char           *time_str = NULL, *format_str = NULL;
  size_t          time_str_len = 0, format_str_len = 0;

  ZEND_PARSE_PARAMETERS_START(2, 3)
    Z_PARAM_STRING(format_str, format_str_len)
    Z_PARAM_PATH(time_str, time_str_len)
    Z_PARAM_OPTIONAL
    Z_PARAM_OBJECT_OF_CLASS_OR_NULL(timezone_object, date_ce_timezone)
  ZEND_PARSE_PARAMETERS_END();

  if (object_init_ex(return_value, execute_data->This.value.ce ? execute_data->This.value.ce : date_ce_date) != SUCCESS) {
    RETURN_THROWS();
  }
  if (!php_date_initialize(Z_PHPDATE_P(return_value), time_str, time_str_len, format_str, timezone_object, PHP_DATE_INIT_FORMAT)) {
    zval_ptr_dtor(return_value);
    RETURN_FALSE;
  }
}
/* }}} */

/* {{{ Returns new DateTimeImmutable object formatted according to the specified format */
PHP_FUNCTION(date_create_immutable_from_format)
{
  zval           *timezone_object = NULL;
  char           *time_str = NULL, *format_str = NULL;
  size_t          time_str_len = 0, format_str_len = 0;

  ZEND_PARSE_PARAMETERS_START(2, 3)
    Z_PARAM_STRING(format_str, format_str_len)
    Z_PARAM_PATH(time_str, time_str_len)
    Z_PARAM_OPTIONAL
    Z_PARAM_OBJECT_OF_CLASS_OR_NULL(timezone_object, date_ce_timezone)
  ZEND_PARSE_PARAMETERS_END();

  if (object_init_ex(return_value, execute_data->This.value.ce ? execute_data->This.value.ce : date_ce_immutable) != SUCCESS) {
    RETURN_THROWS();
  }
  if (!php_date_initialize(Z_PHPDATE_P(return_value), time_str, time_str_len, format_str, timezone_object, PHP_DATE_INIT_FORMAT)) {
    zval_ptr_dtor(return_value);
    RETURN_FALSE;
  }
}
/* }}} */

/* {{{ Creates new DateTime object */
PHP_METHOD(DateTime, __construct)
{
  zval *timezone_object = NULL;
  char *time_str = NULL;
  size_t time_str_len = 0;

  ZEND_PARSE_PARAMETERS_START(0, 2)
    Z_PARAM_OPTIONAL
    Z_PARAM_STRING(time_str, time_str_len)
    Z_PARAM_OBJECT_OF_CLASS_OR_NULL(timezone_object, date_ce_timezone)
  ZEND_PARSE_PARAMETERS_END();

  php_date_initialize(Z_PHPDATE_P(ZEND_THIS), time_str, time_str_len, NULL, timezone_object, PHP_DATE_INIT_CTOR);
}
/* }}} */

/* {{{ Creates new DateTimeImmutable object */
PHP_METHOD(DateTimeImmutable, __construct)
{
  zval *timezone_object = NULL;
  char *time_str = NULL;
  size_t time_str_len = 0;

  ZEND_PARSE_PARAMETERS_START(0, 2)
    Z_PARAM_OPTIONAL
    Z_PARAM_STRING(time_str, time_str_len)
    Z_PARAM_OBJECT_OF_CLASS_OR_NULL(timezone_object, date_ce_timezone)
  ZEND_PARSE_PARAMETERS_END();

  php_date_initialize(Z_PHPDATE_P(ZEND_THIS), time_str, time_str_len, NULL, timezone_object, PHP_DATE_INIT_CTOR);
}
/* }}} */

/* {{{ Creates new DateTime object from an existing immutable DateTimeImmutable object. */
PHP_METHOD(DateTime, createFromImmutable)
{
  zval *datetimeimmutable_object = NULL;
  php_date_obj *new_obj = NULL;
  php_date_obj *old_obj = NULL;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_OBJECT_OF_CLASS(datetimeimmutable_object, date_ce_immutable)
  ZEND_PARSE_PARAMETERS_END();

  old_obj = Z_PHPDATE_P(datetimeimmutable_object);
  DATE_CHECK_INITIALIZED(old_obj->time, Z_OBJCE_P(datetimeimmutable_object));

  if (object_init_ex(return_value, execute_data->This.value.ce ? execute_data->This.value.ce : date_ce_date) != SUCCESS) {
    RETURN_THROWS();
  }
  new_obj = Z_PHPDATE_P(return_value);

  new_obj->time = timelib_time_clone(old_obj->time);
}
/* }}} */

/* {{{ Creates new DateTime object from an existing DateTimeInterface object. */
PHP_METHOD(DateTime, createFromInterface)
{
  zval *datetimeinterface_object = NULL;
  php_date_obj *new_obj = NULL;
  php_date_obj *old_obj = NULL;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_OBJECT_OF_CLASS(datetimeinterface_object, date_ce_interface)
  ZEND_PARSE_PARAMETERS_END();

  old_obj = Z_PHPDATE_P(datetimeinterface_object);
  DATE_CHECK_INITIALIZED(old_obj->time, Z_OBJCE_P(datetimeinterface_object));

  if (object_init_ex(return_value, execute_data->This.value.ce ? execute_data->This.value.ce : date_ce_date) != SUCCESS) {
    RETURN_THROWS();
  }
  new_obj = Z_PHPDATE_P(return_value);

  new_obj->time = timelib_time_clone(old_obj->time);
}
/* }}} */

/* {{{ Creates new DateTime object from given unix timestamp */
PHP_METHOD(DateTime, createFromTimestamp)
{
  zval         *value;
  zval         new_object;
  php_date_obj *new_dateobj;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_NUMBER(value)
  ZEND_PARSE_PARAMETERS_END();

  if (object_init_ex(&new_object, execute_data->This.value.ce ? execute_data->This.value.ce : date_ce_date) != SUCCESS) {
    RETURN_THROWS();
  }
  new_dateobj = Z_PHPDATE_P(&new_object);

  switch (Z_TYPE_P(value)) {
    case IS_LONG:
      php_date_initialize_from_ts_long(new_dateobj, Z_LVAL_P(value), 0);
      break;

    case IS_DOUBLE:
      if (!php_date_initialize_from_ts_double(new_dateobj, Z_DVAL_P(value))) {
        zval_ptr_dtor(&new_object);
        RETURN_THROWS();
      }
      break;

    default: ZEND_UNREACHABLE();
  }

  RETURN_OBJ(Z_OBJ(new_object));
}
/* }}} */

/* {{{ Creates new DateTimeImmutable object from an existing mutable DateTime object. */
PHP_METHOD(DateTimeImmutable, createFromMutable)
{
  zval *datetime_object = NULL;
  php_date_obj *new_obj = NULL;
  php_date_obj *old_obj = NULL;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_OBJECT_OF_CLASS(datetime_object, date_ce_date)
  ZEND_PARSE_PARAMETERS_END();

  old_obj = Z_PHPDATE_P(datetime_object);
  DATE_CHECK_INITIALIZED(old_obj->time, Z_OBJCE_P(datetime_object));

  if (object_init_ex(return_value, execute_data->This.value.ce ? execute_data->This.value.ce : date_ce_immutable) != SUCCESS) {
    RETURN_THROWS();
  }
  new_obj = Z_PHPDATE_P(return_value);

  new_obj->time = timelib_time_clone(old_obj->time);
}
/* }}} */

/* {{{ Creates new DateTimeImmutable object from an existing DateTimeInterface object. */
PHP_METHOD(DateTimeImmutable, createFromInterface)
{
  zval *datetimeinterface_object = NULL;
  php_date_obj *new_obj = NULL;
  php_date_obj *old_obj = NULL;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_OBJECT_OF_CLASS(datetimeinterface_object, date_ce_interface)
  ZEND_PARSE_PARAMETERS_END();

  old_obj = Z_PHPDATE_P(datetimeinterface_object);
  DATE_CHECK_INITIALIZED(old_obj->time, Z_OBJCE_P(datetimeinterface_object));

  if (object_init_ex(return_value, execute_data->This.value.ce ? execute_data->This.value.ce : date_ce_immutable) != SUCCESS) {
    RETURN_THROWS();
  }
  new_obj = Z_PHPDATE_P(return_value);

  new_obj->time = timelib_time_clone(old_obj->time);
}
/* }}} */

/* {{{ Creates new DateTimeImmutable object from given unix timestamp */
PHP_METHOD(DateTimeImmutable, createFromTimestamp)
{
  zval         *value;
  zval         new_object;
  php_date_obj *new_dateobj;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_NUMBER(value)
  ZEND_PARSE_PARAMETERS_END();

  if (object_init_ex(&new_object, execute_data->This.value.ce ? execute_data->This.value.ce : date_ce_immutable) != SUCCESS) {
    RETURN_THROWS();
  }
  new_dateobj = Z_PHPDATE_P(&new_object);

  switch (Z_TYPE_P(value)) {
    case IS_LONG:
      php_date_initialize_from_ts_long(new_dateobj, Z_LVAL_P(value), 0);
      break;

    case IS_DOUBLE:
      if (!php_date_initialize_from_ts_double(new_dateobj, Z_DVAL_P(value))) {
        zval_ptr_dtor(&new_object);
        RETURN_THROWS();
      }
      break;

    default: ZEND_UNREACHABLE();
  }

  RETURN_OBJ(Z_OBJ(new_object));
}
/* }}} */

static bool php_date_initialize_from_hash(php_date_obj **dateobj, const HashTable *myht)
{
  zval             *z_date;
  zval             *z_timezone_type;
  zval             *z_timezone;
  zval              tmp_obj;
  timelib_tzinfo   *tzi;

  z_date = zend_hash_str_find(myht, "date", sizeof("date")-1);
  if (!z_date || Z_TYPE_P(z_date) != IS_STRING) {
    return false;
  }

  z_timezone_type = zend_hash_str_find(myht, "timezone_type", sizeof("timezone_type")-1);
  if (!z_timezone_type || Z_TYPE_P(z_timezone_type) != IS_LONG) {
    return false;
  }

  z_timezone = zend_hash_str_find(myht, "timezone", sizeof("timezone")-1);
  if (!z_timezone || Z_TYPE_P(z_timezone) != IS_STRING) {
    return false;
  }

  switch (Z_LVAL_P(z_timezone_type)) {
    case TIMELIB_ZONETYPE_OFFSET:
    case TIMELIB_ZONETYPE_ABBR: {
      zend_string *tmp = zend_string_concat3(
        Z_STRVAL_P(z_date), Z_STRLEN_P(z_date), " ", 1,
        Z_STRVAL_P(z_timezone), Z_STRLEN_P(z_timezone));
      bool ret = php_date_initialize(*dateobj, ZSTR_VAL(tmp), ZSTR_LEN(tmp), NULL, NULL, 0);
      zend_string_release(tmp);
      return ret;
    }

    case TIMELIB_ZONETYPE_ID: {
      bool ret;
      php_timezone_obj *tzobj;

      tzi = php_date_parse_tzfile(Z_STRVAL_P(z_timezone), DATE_TIMEZONEDB);

      if (tzi == NULL) {
        return false;
      }

      tzobj = Z_PHPTIMEZONE_P(php_date_instantiate(date_ce_timezone, &tmp_obj));
      tzobj->type = TIMELIB_ZONETYPE_ID;
      tzobj->tzi.tz = tzi;
      tzobj->initialized = true;

      ret = php_date_initialize(*dateobj, Z_STRVAL_P(z_date), Z_STRLEN_P(z_date), NULL, &tmp_obj, 0);
      zval_ptr_dtor(&tmp_obj);
      return ret;
    }
  }
  return false;
} /* }}} */

/* {{{ */
PHP_METHOD(DateTime, __set_state)
{
  php_date_obj     *dateobj;
  zval             *array;
  HashTable        *myht;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_ARRAY(array)
  ZEND_PARSE_PARAMETERS_END();

  myht = Z_ARRVAL_P(array);

  php_date_instantiate(date_ce_date, return_value);
  dateobj = Z_PHPDATE_P(return_value);
  if (!php_date_initialize_from_hash(&dateobj, myht)) {
    zend_throw_error(NULL, "Invalid serialization data for DateTime object");
    RETURN_THROWS();
  }
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTimeImmutable, __set_state)
{
  php_date_obj     *dateobj;
  zval             *array;
  HashTable        *myht;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_ARRAY(array)
  ZEND_PARSE_PARAMETERS_END();

  myht = Z_ARRVAL_P(array);

  php_date_instantiate(date_ce_immutable, return_value);
  dateobj = Z_PHPDATE_P(return_value);
  if (!php_date_initialize_from_hash(&dateobj, myht)) {
    zend_throw_error(NULL, "Invalid serialization data for DateTimeImmutable object");
    RETURN_THROWS();
  }
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTime, __serialize)
{
  zval             *object = ZEND_THIS;
  php_date_obj     *dateobj;
  HashTable        *myht;

  ZEND_PARSE_PARAMETERS_NONE();

  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));

  array_init(return_value);
  myht = Z_ARRVAL_P(return_value);
  date_object_to_hash(dateobj, myht);

  add_common_properties(myht, &dateobj->std);
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTimeImmutable, __serialize)
{
  zval             *object = ZEND_THIS;
  php_date_obj     *dateobj;
  HashTable        *myht;

  ZEND_PARSE_PARAMETERS_NONE();

  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));

  array_init(return_value);
  myht = Z_ARRVAL_P(return_value);
  date_object_to_hash(dateobj, myht);

  add_common_properties(myht, &dateobj->std);
}
/* }}} */

static bool date_time_is_internal_property(const zend_string *name)
{
  if (
    zend_string_equals_literal(name, "date") ||
    zend_string_equals_literal(name, "timezone_type") ||
    zend_string_equals_literal(name, "timezone")
  ) {
    return true;
  }
  return false;
}

static void restore_custom_datetime_properties(zval *object, const HashTable *myht)
{
  zend_string      *prop_name;
  zval             *prop_val;

  ZEND_HASH_FOREACH_STR_KEY_VAL(myht, prop_name, prop_val) {
    if (!prop_name || (Z_TYPE_P(prop_val) == IS_REFERENCE) || date_time_is_internal_property(prop_name)) {
      continue;
    }
    update_property(Z_OBJ_P(object), prop_name, prop_val);
  } ZEND_HASH_FOREACH_END();
}

/* {{{ */
PHP_METHOD(DateTime, __unserialize)
{
  zval             *object = ZEND_THIS;
  php_date_obj     *dateobj;
  HashTable        *myht;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_ARRAY_HT(myht)
  ZEND_PARSE_PARAMETERS_END();

  dateobj = Z_PHPDATE_P(object);

  if (!php_date_initialize_from_hash(&dateobj, myht)) {
    zend_throw_error(NULL, "Invalid serialization data for DateTime object");
    RETURN_THROWS();
  }

  restore_custom_datetime_properties(object, myht);
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTimeImmutable, __unserialize)
{
  zval             *object = ZEND_THIS;
  php_date_obj     *dateobj;
  HashTable        *myht;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_ARRAY_HT(myht)
  ZEND_PARSE_PARAMETERS_END();

  dateobj = Z_PHPDATE_P(object);

  if (!php_date_initialize_from_hash(&dateobj, myht)) {
    zend_throw_error(NULL, "Invalid serialization data for DateTimeImmutable object");
    RETURN_THROWS();
  }

  restore_custom_datetime_properties(object, myht);
}
/* }}} */

/* {{{
 * Common implementation for DateTime::__wakeup() and DateTimeImmutable::__wakeup() */
static void php_do_date_time_wakeup(INTERNAL_FUNCTION_PARAMETERS, const char *class_name)
{
  zval             *object = ZEND_THIS;
  php_date_obj     *dateobj;
  const HashTable  *myht;

  ZEND_PARSE_PARAMETERS_NONE();

  dateobj = Z_PHPDATE_P(object);

  myht = Z_OBJPROP_P(object);

  if (!php_date_initialize_from_hash(&dateobj, myht)) {
    zend_throw_error(NULL, "Invalid serialization data for %s object", class_name);
    RETURN_THROWS();
  }
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTime, __wakeup)
{
  php_do_date_time_wakeup(INTERNAL_FUNCTION_PARAM_PASSTHRU, "DateTime");
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTimeImmutable, __wakeup)
{
  php_do_date_time_wakeup(INTERNAL_FUNCTION_PARAM_PASSTHRU, "DateTimeImmutable");
}
/* }}} */

/* Helper function used to add an associative array of warnings and errors to a zval */
static void zval_from_error_container(zval *z, const timelib_error_container *error) /* {{{ */
{
  int   i;
  zval element;

  add_assoc_long(z, "warning_count", error->warning_count);
  array_init_size(&element, error->warning_count);
  for (i = 0; i < error->warning_count; i++) {
    add_index_string(&element, error->warning_messages[i].position, error->warning_messages[i].message);
  }
  add_assoc_zval(z, "warnings", &element);

  add_assoc_long(z, "error_count", error->error_count);
  array_init_size(&element, error->error_count);
  for (i = 0; i < error->error_count; i++) {
    add_index_string(&element, error->error_messages[i].position, error->error_messages[i].message);
  }
  add_assoc_zval(z, "errors", &element);
} /* }}} */

/* {{{ Returns the warnings and errors found while parsing a date/time string. */
PHP_FUNCTION(date_get_last_errors)
{
  ZEND_PARSE_PARAMETERS_NONE();

  if (DATEG(last_errors)) {
    array_init(return_value);
    zval_from_error_container(return_value, DATEG(last_errors));
  } else {
    RETURN_FALSE;
  }
}
/* }}} */

static void php_date_do_return_parsed_time(INTERNAL_FUNCTION_PARAMETERS, timelib_time *parsed_time, timelib_error_container *error) /* {{{ */
{
  zval element;

  array_init(return_value);
#define PHP_DATE_PARSE_DATE_SET_TIME_ELEMENT(name, elem) \
  if (parsed_time->elem == TIMELIB_UNSET) {               \
    add_assoc_bool(return_value, #name, 0); \
  } else {                                       \
    add_assoc_long(return_value, #name, parsed_time->elem); \
  }
  PHP_DATE_PARSE_DATE_SET_TIME_ELEMENT(year,      y);
  PHP_DATE_PARSE_DATE_SET_TIME_ELEMENT(month,     m);
  PHP_DATE_PARSE_DATE_SET_TIME_ELEMENT(day,       d);
  PHP_DATE_PARSE_DATE_SET_TIME_ELEMENT(hour,      h);
  PHP_DATE_PARSE_DATE_SET_TIME_ELEMENT(minute,    i);
  PHP_DATE_PARSE_DATE_SET_TIME_ELEMENT(second,    s);

  if (parsed_time->us == TIMELIB_UNSET) {
    add_assoc_bool(return_value, "fraction", 0);
  } else {
    add_assoc_double(return_value, "fraction", (double)parsed_time->us / 1000000.0);
  }

  zval_from_error_container(return_value, error);

  timelib_error_container_dtor(error);

  add_assoc_bool(return_value, "is_localtime", parsed_time->is_localtime);

  if (parsed_time->is_localtime) {
    PHP_DATE_PARSE_DATE_SET_TIME_ELEMENT(zone_type, zone_type);
    switch (parsed_time->zone_type) {
      case TIMELIB_ZONETYPE_OFFSET:
        PHP_DATE_PARSE_DATE_SET_TIME_ELEMENT(zone, z);
        add_assoc_bool(return_value, "is_dst", parsed_time->dst);
        break;
      case TIMELIB_ZONETYPE_ID:
        if (parsed_time->tz_abbr) {
          add_assoc_string(return_value, "tz_abbr", parsed_time->tz_abbr);
        }
        if (parsed_time->tz_info) {
          add_assoc_string(return_value, "tz_id", parsed_time->tz_info->name);
        }
        break;
      case TIMELIB_ZONETYPE_ABBR:
        PHP_DATE_PARSE_DATE_SET_TIME_ELEMENT(zone, z);
        add_assoc_bool(return_value, "is_dst", parsed_time->dst);
        add_assoc_string(return_value, "tz_abbr", parsed_time->tz_abbr);
        break;
    }
  }
  if (parsed_time->have_relative) {
    array_init(&element);
    add_assoc_long(&element, "year",   parsed_time->relative.y);
    add_assoc_long(&element, "month",  parsed_time->relative.m);
    add_assoc_long(&element, "day",    parsed_time->relative.d);
    add_assoc_long(&element, "hour",   parsed_time->relative.h);
    add_assoc_long(&element, "minute", parsed_time->relative.i);
    add_assoc_long(&element, "second", parsed_time->relative.s);
    if (parsed_time->relative.have_weekday_relative) {
      add_assoc_long(&element, "weekday", parsed_time->relative.weekday);
    }
    if (parsed_time->relative.have_special_relative && (parsed_time->relative.special.type == TIMELIB_SPECIAL_WEEKDAY)) {
      add_assoc_long(&element, "weekdays", parsed_time->relative.special.amount);
    }
    if (parsed_time->relative.first_last_day_of) {
      add_assoc_bool(&element, parsed_time->relative.first_last_day_of == TIMELIB_SPECIAL_FIRST_DAY_OF_MONTH ? "first_day_of_month" : "last_day_of_month", 1);
    }
    add_assoc_zval(return_value, "relative", &element);
  }
  timelib_time_dtor(parsed_time);
} /* }}} */

/* {{{ Returns associative array with detailed info about given date */
PHP_FUNCTION(date_parse)
{
  zend_string                    *date;
  timelib_error_container *error;
  timelib_time                   *parsed_time;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_STR(date)
  ZEND_PARSE_PARAMETERS_END();

  parsed_time = timelib_strtotime(ZSTR_VAL(date), ZSTR_LEN(date), &error, DATE_TIMEZONEDB, php_date_parse_tzfile_wrapper);
  php_date_do_return_parsed_time(INTERNAL_FUNCTION_PARAM_PASSTHRU, parsed_time, error);
}
/* }}} */

/* {{{ Returns associative array with detailed info about given date */
PHP_FUNCTION(date_parse_from_format)
{
  zend_string                    *date, *format;
  timelib_error_container *error;
  timelib_time                   *parsed_time;

  ZEND_PARSE_PARAMETERS_START(2, 2)
    Z_PARAM_STR(format)
    Z_PARAM_PATH_STR(date)
  ZEND_PARSE_PARAMETERS_END();

  parsed_time = timelib_parse_from_format(ZSTR_VAL(format), ZSTR_VAL(date), ZSTR_LEN(date), &error, DATE_TIMEZONEDB, php_date_parse_tzfile_wrapper);
  php_date_do_return_parsed_time(INTERNAL_FUNCTION_PARAM_PASSTHRU, parsed_time, error);
}
/* }}} */

/* {{{ Returns date formatted according to given format */
PHP_FUNCTION(date_format)
{
  zval         *object;
  php_date_obj *dateobj;
  char         *format;
  size_t       format_len;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "Os", &object, date_ce_interface, &format, &format_len) == FAILURE) {
    RETURN_THROWS();
  }
  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));
  RETURN_STR(date_format(format, format_len, dateobj->time, dateobj->time->is_localtime));
}
/* }}} */

typedef enum {
  PHP_DATE_MODIFY_WARNING,
  PHP_DATE_MODIFY_THROW
} php_date_modify_error_mode;

static bool php_date_modify(zval *object, char *modify, size_t modify_len, const php_date_modify_error_mode error_mode) /* {{{ */
{
  php_date_obj *dateobj;
  timelib_time *tmp_time;
  timelib_error_container *err = NULL;

  dateobj = Z_PHPDATE_P(object);

  if (!(dateobj->time)) {
    date_throw_uninitialized_error(Z_OBJCE_P(object));
    return false;
  }

  tmp_time = timelib_strtotime(modify, modify_len, &err, DATE_TIMEZONEDB, php_date_parse_tzfile_wrapper);

  /* update last errors and warnings */
  update_errors_warnings(&err);

  if (err && err->error_count) {
    /* spit out the first library error message, at least */
    if (error_mode == PHP_DATE_MODIFY_THROW) {
      zend_string *func_name = get_active_function_or_method_name();
      zend_throw_exception_ex(date_ce_date_malformed_string_exception, 0,
        "%s(): Failed to parse time string (%s) at position %d (%c): %s",
        ZSTR_VAL(func_name),
        modify,
        err->error_messages[0].position,
        err->error_messages[0].character ? err->error_messages[0].character : ' ',
        err->error_messages[0].message);
      zend_string_release_ex(func_name, false);
    } else {
      php_error_docref(NULL, E_WARNING, "Failed to parse time string (%s) at position %d (%c): %s", modify,
        err->error_messages[0].position,
        err->error_messages[0].character ? err->error_messages[0].character : ' ',
        err->error_messages[0].message);
    }
    timelib_time_dtor(tmp_time);
    return false;
  }

  memcpy(&dateobj->time->relative, &tmp_time->relative, sizeof(timelib_rel_time));
  dateobj->time->have_relative = tmp_time->have_relative;
  dateobj->time->sse_uptodate = 0;

  if (tmp_time->y != TIMELIB_UNSET) {
    dateobj->time->y = tmp_time->y;
  }
  if (tmp_time->m != TIMELIB_UNSET) {
    dateobj->time->m = tmp_time->m;
  }
  if (tmp_time->d != TIMELIB_UNSET) {
    dateobj->time->d = tmp_time->d;
  }

  if (tmp_time->h != TIMELIB_UNSET) {
    dateobj->time->h = tmp_time->h;
    if (tmp_time->i != TIMELIB_UNSET) {
      dateobj->time->i = tmp_time->i;
      if (tmp_time->s != TIMELIB_UNSET) {
        dateobj->time->s = tmp_time->s;
      } else {
        dateobj->time->s = 0;
      }
    } else {
      dateobj->time->i = 0;
      dateobj->time->s = 0;
    }
  }

  if (tmp_time->us != TIMELIB_UNSET) {
    dateobj->time->us = tmp_time->us;
  }

  /* Reset timezone to UTC if we detect a "@<ts>" modification */
  if (
    tmp_time->y == 1970 && tmp_time->m == 1 && tmp_time->d == 1 &&
    tmp_time->h == 0 && tmp_time->i == 0 && tmp_time->s == 0 && tmp_time->us == 0 &&
    tmp_time->have_zone && tmp_time->zone_type == TIMELIB_ZONETYPE_OFFSET &&
    tmp_time->z == 0 && tmp_time->dst == 0
  ) {
    timelib_set_timezone_from_offset(dateobj->time, 0);
  }

  timelib_time_dtor(tmp_time);

  timelib_update_ts(dateobj->time, NULL);
  timelib_update_from_sse(dateobj->time);
  dateobj->time->have_relative = 0;
  memset(&dateobj->time->relative, 0, sizeof(dateobj->time->relative));

  return true;
} /* }}} */

/* {{{ Alters the timestamp. */
PHP_FUNCTION(date_modify)
{
  zval         *object;
  char         *modify;
  size_t        modify_len;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "Os", &object, date_ce_date, &modify, &modify_len) == FAILURE) {
    RETURN_THROWS();
  }

  if (!php_date_modify(object, modify, modify_len, PHP_DATE_MODIFY_WARNING)) {
    RETURN_FALSE;
  }

  RETURN_OBJ_COPY(Z_OBJ_P(object));
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTime, modify)
{
  zval                *object;
  char                *modify;
  size_t               modify_len;

  object = ZEND_THIS;
  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_STRING(modify, modify_len)
  ZEND_PARSE_PARAMETERS_END();

  if (!php_date_modify(object, modify, modify_len, PHP_DATE_MODIFY_THROW)) {
    RETURN_THROWS();
  }

  RETURN_OBJ_COPY(Z_OBJ_P(object));
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTimeImmutable, modify)
{
  zval *object, new_object;
  char *modify;
  size_t   modify_len;

  object = ZEND_THIS;
  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_STRING(modify, modify_len)
  ZEND_PARSE_PARAMETERS_END();

  date_clone_immutable(object, &new_object);

  if (!php_date_modify(&new_object, modify, modify_len, PHP_DATE_MODIFY_THROW)) {
    zval_ptr_dtor(&new_object);
    RETURN_THROWS();
  }

  RETURN_OBJ(Z_OBJ(new_object));
}
/* }}} */

static void php_date_add(zval *object, zval *interval, zval *return_value) /* {{{ */
{
  php_date_obj     *dateobj;
  php_interval_obj *intobj;
  timelib_time     *new_time;

  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));
  intobj = Z_PHPINTERVAL_P(interval);
  DATE_CHECK_INITIALIZED(intobj->initialized, Z_OBJCE_P(interval));

  if (intobj->civil_or_wall == PHP_DATE_WALL) {
    new_time = timelib_add_wall(dateobj->time, intobj->diff);
  } else {
    new_time = timelib_add(dateobj->time, intobj->diff);
  }
  timelib_time_dtor(dateobj->time);
  dateobj->time = new_time;
} /* }}} */

/* {{{ Adds an interval to the current date in object. */
PHP_FUNCTION(date_add)
{
  zval *object, *interval;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "OO", &object, date_ce_date, &interval, date_ce_interval) == FAILURE) {
    RETURN_THROWS();
  }

  php_date_add(object, interval, return_value);

  RETURN_OBJ_COPY(Z_OBJ_P(object));
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTimeImmutable, add)
{
  zval *object, *interval, new_object;

  object = ZEND_THIS;
  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_OBJECT_OF_CLASS(interval, date_ce_interval)
  ZEND_PARSE_PARAMETERS_END();

  date_clone_immutable(object, &new_object);
  php_date_add(&new_object, interval, return_value);

  RETURN_OBJ(Z_OBJ(new_object));
}
/* }}} */

static void php_date_sub(zval *object, zval *interval, zval *return_value, const bool should_throw) /* {{{ */
{
  php_date_obj     *dateobj;
  php_interval_obj *intobj;
  timelib_time     *new_time;

  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));
  intobj = Z_PHPINTERVAL_P(interval);
  DATE_CHECK_INITIALIZED(intobj->initialized, Z_OBJCE_P(interval));

  if (intobj->diff->have_weekday_relative || intobj->diff->have_special_relative) {
    if (should_throw) {
      zend_string *func_name = get_active_function_or_method_name();
      zend_throw_exception_ex(date_ce_date_invalid_operation_exception, 0,
        "%s(): Only non-special relative time specifications are supported for subtraction",
        ZSTR_VAL(func_name));
      zend_string_release_ex(func_name, false);
    } else {
      php_error_docref(NULL, E_WARNING, "Only non-special relative time specifications are supported for subtraction");
    }
    return;
  }

  if (intobj->civil_or_wall == PHP_DATE_WALL) {
    new_time = timelib_sub_wall(dateobj->time, intobj->diff);
  } else {
    new_time = timelib_sub(dateobj->time, intobj->diff);
  }
  timelib_time_dtor(dateobj->time);
  dateobj->time = new_time;
} /* }}} */

/* {{{ Subtracts an interval to the current date in object. */
PHP_FUNCTION(date_sub)
{
  zval *object, *interval;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "OO", &object, date_ce_date, &interval, date_ce_interval) == FAILURE) {
    RETURN_THROWS();
  }

  php_date_sub(object, interval, return_value, false);
  RETURN_OBJ_COPY(Z_OBJ_P(object));
}
/* }}} */

/* {{{ Subtracts an interval to the current date in object. */
PHP_METHOD(DateTime, sub)
{
  zval *object, *interval;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "OO", &object, date_ce_date, &interval, date_ce_interval) == FAILURE) {
    RETURN_THROWS();
  }

  php_date_sub(object, interval, return_value, true);

  RETURN_OBJ_COPY(Z_OBJ_P(object));
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTimeImmutable, sub)
{
  zval *object, *interval, new_object;

  object = ZEND_THIS;
  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_OBJECT_OF_CLASS(interval, date_ce_interval)
  ZEND_PARSE_PARAMETERS_END();

  date_clone_immutable(object, &new_object);

  php_date_sub(&new_object, interval, return_value, true);

  RETURN_OBJ(Z_OBJ(new_object));
}
/* }}} */

static void set_timezone_from_timelib_time(php_timezone_obj *tzobj, const timelib_time *t)
{
  /* Free abbreviation if already set */
  if (tzobj->initialized && tzobj->type == TIMELIB_ZONETYPE_ABBR) {
    timelib_free(tzobj->tzi.z.abbr);
  }

  /* Set new values */
  tzobj->initialized = true;
  tzobj->type = t->zone_type;

  switch (t->zone_type) {
    case TIMELIB_ZONETYPE_ID:
      tzobj->tzi.tz = t->tz_info;
      break;
    case TIMELIB_ZONETYPE_OFFSET:
      tzobj->tzi.utc_offset = t->z;
      break;
    case TIMELIB_ZONETYPE_ABBR:
      tzobj->tzi.z.utc_offset = t->z;
      tzobj->tzi.z.dst = t->dst;
      tzobj->tzi.z.abbr = timelib_strdup(t->tz_abbr);
      break;
  }
}


/* {{{ Return new DateTimeZone object relative to give DateTime */
PHP_FUNCTION(date_timezone_get)
{
  zval             *object;
  php_date_obj     *dateobj;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "O", &object, date_ce_interface) == FAILURE) {
    RETURN_THROWS();
  }
  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));
  if (dateobj->time->is_localtime) {
    php_timezone_obj *tzobj;
    php_date_instantiate(date_ce_timezone, return_value);
    tzobj = Z_PHPTIMEZONE_P(return_value);
    set_timezone_from_timelib_time(tzobj, dateobj->time);
  } else {
    RETURN_FALSE;
  }
}
/* }}} */

static void php_date_timezone_set(zval *object, zval *timezone_object, zval *return_value) /* {{{ */
{
  php_date_obj     *dateobj;
  php_timezone_obj *tzobj;

  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));
  tzobj = Z_PHPTIMEZONE_P(timezone_object);

  switch (tzobj->type) {
    case TIMELIB_ZONETYPE_OFFSET:
      timelib_set_timezone_from_offset(dateobj->time, tzobj->tzi.utc_offset);
      break;
    case TIMELIB_ZONETYPE_ABBR:
      timelib_set_timezone_from_abbr(dateobj->time, tzobj->tzi.z);
      break;
    case TIMELIB_ZONETYPE_ID:
      timelib_set_timezone(dateobj->time, tzobj->tzi.tz);
      break;
  }
  timelib_unixtime2local(dateobj->time, dateobj->time->sse);
} /* }}} */

/* {{{ Sets the timezone for the DateTime object. */
PHP_FUNCTION(date_timezone_set)
{
  zval *object;
  zval *timezone_object;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "OO", &object, date_ce_date, &timezone_object, date_ce_timezone) == FAILURE) {
    RETURN_THROWS();
  }

  php_date_timezone_set(object, timezone_object, return_value);

  RETURN_OBJ_COPY(Z_OBJ_P(object));
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTimeImmutable, setTimezone)
{
  zval *object, new_object;
  zval *timezone_object;

  object = ZEND_THIS;
  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_OBJECT_OF_CLASS(timezone_object, date_ce_timezone)
  ZEND_PARSE_PARAMETERS_END();

  date_clone_immutable(object, &new_object);
  php_date_timezone_set(&new_object, timezone_object, return_value);

  RETURN_OBJ(Z_OBJ(new_object));
}
/* }}} */

/* {{{ Returns the DST offset. */
PHP_FUNCTION(date_offset_get)
{
  zval                *object;
  php_date_obj        *dateobj;
  timelib_time_offset *offset;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "O", &object, date_ce_interface) == FAILURE) {
    RETURN_THROWS();
  }
  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));
  if (dateobj->time->is_localtime) {
    switch (dateobj->time->zone_type) {
      case TIMELIB_ZONETYPE_ID:
        offset = timelib_get_time_zone_info(dateobj->time->sse, dateobj->time->tz_info);
        RETVAL_LONG(offset->offset);
        timelib_time_offset_dtor(offset);
        break;
      case TIMELIB_ZONETYPE_OFFSET:
        RETVAL_LONG(dateobj->time->z);
        break;
      case TIMELIB_ZONETYPE_ABBR:
        RETVAL_LONG((dateobj->time->z + (3600 * dateobj->time->dst)));
        break;
    }
    return;
  } else {
    RETURN_LONG(0);
  }
}
/* }}} */

static void php_date_time_set(zval *object, zend_long h, zend_long i, zend_long s, zend_long ms, zval *return_value) /* {{{ */
{
  php_date_obj *dateobj;

  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));
  dateobj->time->h = h;
  dateobj->time->i = i;
  dateobj->time->s = s;
  dateobj->time->us = ms;
  timelib_update_ts(dateobj->time, NULL);
  timelib_update_from_sse(dateobj->time);
} /* }}} */

/* {{{ Sets the time. */
PHP_FUNCTION(date_time_set)
{
  zval *object;
  zend_long  h, i, s = 0, ms = 0;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "Oll|ll", &object, date_ce_date, &h, &i, &s, &ms) == FAILURE) {
    RETURN_THROWS();
  }

  php_date_time_set(object, h, i, s, ms, return_value);

  RETURN_OBJ_COPY(Z_OBJ_P(object));
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTimeImmutable, setTime)
{
  zval *object, new_object;
  zend_long  h, i, s = 0, ms = 0;

  object = ZEND_THIS;
  ZEND_PARSE_PARAMETERS_START(2, 4)
    Z_PARAM_LONG(h)
    Z_PARAM_LONG(i)
    Z_PARAM_OPTIONAL
    Z_PARAM_LONG(s)
    Z_PARAM_LONG(ms)
  ZEND_PARSE_PARAMETERS_END();

  date_clone_immutable(object, &new_object);
  php_date_time_set(&new_object, h, i, s, ms, return_value);

  RETURN_OBJ(Z_OBJ(new_object));
}
/* }}} */

static void php_date_date_set(zval *object, zend_long y, zend_long m, zend_long d, zval *return_value) /* {{{ */
{
  php_date_obj *dateobj;

  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));
  dateobj->time->y = y;
  dateobj->time->m = m;
  dateobj->time->d = d;
  timelib_update_ts(dateobj->time, NULL);
} /* }}} */

/* {{{ Sets the date. */
PHP_FUNCTION(date_date_set)
{
  zval *object;
  zend_long  y, m, d;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "Olll", &object, date_ce_date, &y, &m, &d) == FAILURE) {
    RETURN_THROWS();
  }

  php_date_date_set(object, y, m, d, return_value);

  RETURN_OBJ_COPY(Z_OBJ_P(object));
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTimeImmutable, setDate)
{
  zval *object, new_object;
  zend_long  y, m, d;

  object = ZEND_THIS;
  ZEND_PARSE_PARAMETERS_START(3, 3)
    Z_PARAM_LONG(y)
    Z_PARAM_LONG(m)
    Z_PARAM_LONG(d)
  ZEND_PARSE_PARAMETERS_END();

  date_clone_immutable(object, &new_object);
  php_date_date_set(&new_object, y, m, d, return_value);

  RETURN_OBJ(Z_OBJ(new_object));
}
/* }}} */

static void php_date_isodate_set(zval *object, zend_long y, zend_long w, zend_long d, zval *return_value) /* {{{ */
{
  php_date_obj *dateobj;

  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));
  dateobj->time->y = y;
  dateobj->time->m = 1;
  dateobj->time->d = 1;
  memset(&dateobj->time->relative, 0, sizeof(dateobj->time->relative));
  dateobj->time->relative.d = timelib_daynr_from_weeknr(y, w, d);
  dateobj->time->have_relative = 1;

  timelib_update_ts(dateobj->time, NULL);
} /* }}} */

/* {{{ Sets the ISO date. */
PHP_FUNCTION(date_isodate_set)
{
  zval *object;
  zend_long  y, w, d = 1;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "Oll|l", &object, date_ce_date, &y, &w, &d) == FAILURE) {
    RETURN_THROWS();
  }

  php_date_isodate_set(object, y, w, d, return_value);

  RETURN_OBJ_COPY(Z_OBJ_P(object));
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTimeImmutable, setISODate)
{
  zval *object, new_object;
  zend_long  y, w, d = 1;

  object = ZEND_THIS;
  ZEND_PARSE_PARAMETERS_START(2, 3)
    Z_PARAM_LONG(y)
    Z_PARAM_LONG(w)
    Z_PARAM_OPTIONAL
    Z_PARAM_LONG(d)
  ZEND_PARSE_PARAMETERS_END();

  date_clone_immutable(object, &new_object);
  php_date_isodate_set(&new_object, y, w, d, return_value);

  RETURN_OBJ(Z_OBJ(new_object));
}
/* }}} */

static void php_date_timestamp_set(zval *object, zend_long timestamp, zval *return_value) /* {{{ */
{
  php_date_obj *dateobj;

  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));
  timelib_unixtime2local(dateobj->time, (timelib_sll)timestamp);
  timelib_update_ts(dateobj->time, NULL);
  php_date_set_time_fraction(dateobj->time, 0);
} /* }}} */

/* {{{ Sets the date and time based on an Unix timestamp. */
PHP_FUNCTION(date_timestamp_set)
{
  zval *object;
  zend_long  timestamp;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "Ol", &object, date_ce_date, &timestamp) == FAILURE) {
    RETURN_THROWS();
  }

  php_date_timestamp_set(object, timestamp, return_value);

  RETURN_OBJ_COPY(Z_OBJ_P(object));
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTimeImmutable, setTimestamp)
{
  zval *object, new_object;
  zend_long  timestamp;

  object = ZEND_THIS;
  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_LONG(timestamp)
  ZEND_PARSE_PARAMETERS_END();

  date_clone_immutable(object, &new_object);
  php_date_timestamp_set(&new_object, timestamp, return_value);

  RETURN_OBJ(Z_OBJ(new_object));
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTimeImmutable, setMicrosecond)
{
  zval *object, new_object;
  php_date_obj *dateobj, *new_dateobj;
  zend_long us;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_LONG(us)
  ZEND_PARSE_PARAMETERS_END();

  if (UNEXPECTED(us < 0 || us > 999999)) {
    zend_argument_error(
      date_ce_date_range_error,
      1,
      "must be between 0 and 999999, " ZEND_LONG_FMT " given",
      us
    );
    RETURN_THROWS();
  }

  object = ZEND_THIS;
  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));

  date_clone_immutable(object, &new_object);
  new_dateobj = Z_PHPDATE_P(&new_object);

  php_date_set_time_fraction(new_dateobj->time, (int)us);

  RETURN_OBJ(Z_OBJ(new_object));
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTime, setMicrosecond)
{
  zval *object;
  php_date_obj *dateobj;
  zend_long us;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_LONG(us)
  ZEND_PARSE_PARAMETERS_END();

  if (UNEXPECTED(us < 0 || us > 999999)) {
    zend_argument_error(
      date_ce_date_range_error,
      1,
      "must be between 0 and 999999, " ZEND_LONG_FMT " given",
      us
    );
    RETURN_THROWS();
  }

  object = ZEND_THIS;
  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));
  php_date_set_time_fraction(dateobj->time, (int)us);

  RETURN_OBJ_COPY(Z_OBJ_P(object));
}
/* }}} */

/* {{{ Gets the Unix timestamp. */
PHP_FUNCTION(date_timestamp_get)
{
  zval         *object;
  php_date_obj *dateobj;
  zend_long     timestamp;
  int           epoch_does_not_fit_in_zend_long;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "O", &object, date_ce_interface) == FAILURE) {
    RETURN_THROWS();
  }
  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));

  if (!dateobj->time->sse_uptodate) {
    timelib_update_ts(dateobj->time, NULL);
  }

  timestamp = timelib_date_to_int(dateobj->time, &epoch_does_not_fit_in_zend_long);

  if (epoch_does_not_fit_in_zend_long) {
    zend_throw_error(date_ce_date_range_error, "Epoch doesn't fit in a PHP integer");
    RETURN_THROWS();
  }

  RETURN_LONG(timestamp);
}
/* }}} */

PHP_METHOD(DateTime, getMicrosecond) /* {{{ */
{
  zval *object;
  php_date_obj *dateobj;

  ZEND_PARSE_PARAMETERS_NONE();

  object = ZEND_THIS;
  dateobj = Z_PHPDATE_P(object);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(object));

  RETURN_LONG((zend_long)dateobj->time->us);
}
/* }}} */

/* {{{ Returns the difference between two DateTime objects. */
PHP_FUNCTION(date_diff)
{
  zval         *object1, *object2;
  php_date_obj *dateobj1, *dateobj2;
  php_interval_obj *interval;
  bool      absolute = false;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "OO|b", &object1, date_ce_interface, &object2, date_ce_interface, &absolute) == FAILURE) {
    RETURN_THROWS();
  }
  dateobj1 = Z_PHPDATE_P(object1);
  dateobj2 = Z_PHPDATE_P(object2);
  DATE_CHECK_INITIALIZED(dateobj1->time, Z_OBJCE_P(object1));
  DATE_CHECK_INITIALIZED(dateobj2->time, Z_OBJCE_P(object2));

  php_date_instantiate(date_ce_interval, return_value);
  interval = Z_PHPINTERVAL_P(return_value);
  interval->diff = timelib_diff(dateobj1->time, dateobj2->time);
  if (absolute) {
    interval->diff->invert = 0;
  }
  interval->initialized = true;
  interval->civil_or_wall = PHP_DATE_CIVIL;
}
/* }}} */

static bool timezone_initialize(php_timezone_obj *tzobj, const zend_string *tz_zstr, char **warning_message) /* {{{ */
{
  timelib_time  dummy_t = {0};
  int           dst, not_found;
  const char *tz = ZSTR_VAL(tz_zstr);

  ZEND_ASSERT(!zend_str_has_nul_byte(tz_zstr) && "timezone should have been checked to not have null bytes");

  dummy_t.z = timelib_parse_zone(&tz, &dst, &dummy_t, &not_found, DATE_TIMEZONEDB, php_date_parse_tzfile_wrapper);
  if ((dummy_t.z >= (100 * 60 * 60)) || (dummy_t.z <= (-100 * 60 * 60))) {
    if (warning_message) {
      spprintf(warning_message, 0, "Timezone offset is out of range (%s)", ZSTR_VAL(tz_zstr));
    }
    timelib_free(dummy_t.tz_abbr);
    return false;
  }
  dummy_t.dst = dst;
  if (!not_found && (*tz != '\0')) {
    if (warning_message) {
      spprintf(warning_message, 0, "Unknown or bad timezone (%s)", ZSTR_VAL(tz_zstr));
    }
    timelib_free(dummy_t.tz_abbr);
    return false;
  }
  if (not_found) {
    if (warning_message) {
      spprintf(warning_message, 0, "Unknown or bad timezone (%s)", ZSTR_VAL(tz_zstr));
    }
    return false;
  } else {
    set_timezone_from_timelib_time(tzobj, &dummy_t);
    timelib_free(dummy_t.tz_abbr);
    return true;
  }
} /* }}} */

/* {{{ Returns new DateTimeZone object */
PHP_FUNCTION(timezone_open)
{
  zend_string *tz;
  php_timezone_obj *tzobj;
  char *warning_message;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_PATH_STR(tz) /* To prevent null bytes */
  ZEND_PARSE_PARAMETERS_END();

  tzobj = Z_PHPTIMEZONE_P(php_date_instantiate(date_ce_timezone, return_value));
  if (!timezone_initialize(tzobj, tz, &warning_message)) {
    php_error_docref(NULL, E_WARNING, "%s", warning_message);
    efree(warning_message);
    zval_ptr_dtor(return_value);
    RETURN_FALSE;
  }
}
/* }}} */

/* {{{ Creates new DateTimeZone object. */
PHP_METHOD(DateTimeZone, __construct)
{
  zend_string *tz;
  php_timezone_obj *tzobj;
  char *exception_message;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_PATH_STR(tz) /* To prevent null bytes */
  ZEND_PARSE_PARAMETERS_END();

  tzobj = Z_PHPTIMEZONE_P(ZEND_THIS);
  if (!timezone_initialize(tzobj, tz, &exception_message)) {
    zend_throw_exception_ex(date_ce_date_invalid_timezone_exception, 0, "DateTimeZone::__construct(): %s", exception_message);
    efree(exception_message);
    RETURN_THROWS();
  }
}
/* }}} */

static bool php_date_timezone_initialize_from_hash(php_timezone_obj **tzobj, const HashTable *myht) /* {{{ */
{
  zval            *z_timezone_type;

  if ((z_timezone_type = zend_hash_str_find(myht, "timezone_type", sizeof("timezone_type") - 1)) == NULL) {
    return false;
  }

  zval *z_timezone;

  if ((z_timezone = zend_hash_str_find(myht, "timezone", sizeof("timezone") - 1)) == NULL) {
    return false;
  }

  if (Z_TYPE_P(z_timezone_type) != IS_LONG) {
    return false;
  }
  if (Z_LVAL_P(z_timezone_type) < TIMELIB_ZONETYPE_OFFSET || Z_LVAL_P(z_timezone_type) > TIMELIB_ZONETYPE_ID) {
    return false;
  }
  if (Z_TYPE_P(z_timezone) != IS_STRING) {
    return false;
  }
  if (UNEXPECTED(zend_str_has_nul_byte(Z_STR_P(z_timezone)))) {
    return false;
  }
  return timezone_initialize(*tzobj, Z_STR_P(z_timezone), NULL);
} /* }}} */

/* {{{  */
PHP_METHOD(DateTimeZone, __set_state)
{
  php_timezone_obj *tzobj;
  HashTable        *myht;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_ARRAY_HT(myht)
  ZEND_PARSE_PARAMETERS_END();

  php_date_instantiate(date_ce_timezone, return_value);
  tzobj = Z_PHPTIMEZONE_P(return_value);
  if (!php_date_timezone_initialize_from_hash(&tzobj, myht)) {
    zend_throw_error(NULL, "Invalid serialization data for DateTimeZone object");
    RETURN_THROWS();
  }
}
/* }}} */

/* {{{  */
PHP_METHOD(DateTimeZone, __wakeup)
{
  zval             *object = ZEND_THIS;
  php_timezone_obj *tzobj;
  const HashTable  *myht;

  ZEND_PARSE_PARAMETERS_NONE();

  tzobj = Z_PHPTIMEZONE_P(object);

  myht = Z_OBJPROP_P(object);

  if (!php_date_timezone_initialize_from_hash(&tzobj, myht)) {
    zend_throw_error(NULL, "Invalid serialization data for DateTimeZone object");
    RETURN_THROWS();
  }
}
/* }}} */

/* {{{ */
PHP_METHOD(DateTimeZone, __serialize)
{
  zval             *object = ZEND_THIS;
  php_timezone_obj *tzobj;
  HashTable        *myht;

  ZEND_PARSE_PARAMETERS_NONE();

  tzobj = Z_PHPTIMEZONE_P(object);
  DATE_CHECK_INITIALIZED(tzobj->initialized, Z_OBJCE_P(object));

  array_init(return_value);
  myht = Z_ARRVAL_P(return_value);
  date_timezone_object_to_hash(tzobj, myht);

  add_common_properties(myht, &tzobj->std);
}
/* }}} */

static bool date_timezone_is_internal_property(const zend_string *name)
{
  if (
    zend_string_equals_literal(name, "timezone_type") ||
    zend_string_equals_literal(name, "timezone")
  ) {
    return true;
  }
  return false;
}

static void restore_custom_datetimezone_properties(zval *object, const HashTable *myht)
{
  zend_string      *prop_name;
  zval             *prop_val;

  ZEND_HASH_FOREACH_STR_KEY_VAL(myht, prop_name, prop_val) {
    if (!prop_name || (Z_TYPE_P(prop_val) == IS_REFERENCE) || date_timezone_is_internal_property(prop_name)) {
      continue;
    }
    update_property(Z_OBJ_P(object), prop_name, prop_val);
  } ZEND_HASH_FOREACH_END();
}

/* {{{ */
PHP_METHOD(DateTimeZone, __unserialize)
{
  zval             *object = ZEND_THIS;
  php_timezone_obj *tzobj;
  HashTable        *myht;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_ARRAY_HT(myht)
  ZEND_PARSE_PARAMETERS_END();

  tzobj = Z_PHPTIMEZONE_P(object);

  if (!php_date_timezone_initialize_from_hash(&tzobj, myht)) {
    zend_throw_error(NULL, "Invalid serialization data for DateTimeZone object");
    RETURN_THROWS();
  }

  restore_custom_datetimezone_properties(object, myht);
}
/* }}} */

/* {{{ Returns the name of the timezone. */
PHP_FUNCTION(timezone_name_get)
{
  zval             *object;
  php_timezone_obj *tzobj;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "O", &object, date_ce_timezone) == FAILURE) {
    RETURN_THROWS();
  }
  tzobj = Z_PHPTIMEZONE_P(object);
  DATE_CHECK_INITIALIZED(tzobj->initialized, Z_OBJCE_P(object));
  php_timezone_to_string(tzobj, return_value);
}
/* }}} */

/* {{{ Returns the timezone name from abbreviation */
PHP_FUNCTION(timezone_name_from_abbr)
{
  zend_string  *abbr;
  const char   *tzid;
  zend_long     gmtoffset = -1;
  zend_long     isdst = -1;

  ZEND_PARSE_PARAMETERS_START(1, 3)
    Z_PARAM_STR(abbr)
    Z_PARAM_OPTIONAL
    Z_PARAM_LONG(gmtoffset)
    Z_PARAM_LONG(isdst)
  ZEND_PARSE_PARAMETERS_END();

  tzid = timelib_timezone_id_from_abbr(ZSTR_VAL(abbr), gmtoffset, isdst);

  if (tzid) {
    RETURN_STRING(tzid);
  } else {
    RETURN_FALSE;
  }
}
/* }}} */

/* {{{ Returns the timezone offset. */
PHP_FUNCTION(timezone_offset_get)
{
  zval                *object, *dateobject;
  php_timezone_obj    *tzobj;
  php_date_obj        *dateobj;
  timelib_time_offset *offset;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "OO", &object, date_ce_timezone, &dateobject, date_ce_interface) == FAILURE) {
    RETURN_THROWS();
  }
  tzobj = Z_PHPTIMEZONE_P(object);
  DATE_CHECK_INITIALIZED(tzobj->initialized, Z_OBJCE_P(object));
  dateobj = Z_PHPDATE_P(dateobject);
  DATE_CHECK_INITIALIZED(dateobj->time, Z_OBJCE_P(dateobject));

  switch (tzobj->type) {
    case TIMELIB_ZONETYPE_ID:
      offset = timelib_get_time_zone_info(dateobj->time->sse, tzobj->tzi.tz);
      RETVAL_LONG(offset->offset);
      timelib_time_offset_dtor(offset);
      break;
    case TIMELIB_ZONETYPE_OFFSET:
      RETURN_LONG(tzobj->tzi.utc_offset);
    case TIMELIB_ZONETYPE_ABBR:
      RETURN_LONG(tzobj->tzi.z.utc_offset + (tzobj->tzi.z.dst * 3600));
  }
}
/* }}} */

/* {{{ Returns numerically indexed array containing associative array for all transitions in the specified range for the timezone. */
PHP_FUNCTION(timezone_transitions_get)
{
  zval                *object, element;
  php_timezone_obj    *tzobj;
  uint64_t             begin = 0;
  bool                 found;
  zend_long            timestamp_begin = ZEND_LONG_MIN, timestamp_end = INT32_MAX;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "O|ll", &object, date_ce_timezone, &timestamp_begin, &timestamp_end) == FAILURE) {
    RETURN_THROWS();
  }
  tzobj = Z_PHPTIMEZONE_P(object);
  DATE_CHECK_INITIALIZED(tzobj->initialized, Z_OBJCE_P(object));
  if (tzobj->type != TIMELIB_ZONETYPE_ID) {
    RETURN_FALSE;
  }

#define add_nominal() \
    array_init_size(&element, 5); \
    add_assoc_long(&element, "ts",     timestamp_begin); \
    add_assoc_str(&element, "time", php_format_date(DATE_FORMAT_ISO8601_LARGE_YEAR, 13, timestamp_begin, 0)); \
    add_assoc_long(&element, "offset", tzobj->tzi.tz->type[0].offset); \
    add_assoc_bool(&element, "isdst",  tzobj->tzi.tz->type[0].isdst); \
    add_assoc_string(&element, "abbr", &tzobj->tzi.tz->timezone_abbr[tzobj->tzi.tz->type[0].abbr_idx]); \
    add_next_index_zval(return_value, &element);

#define add(i,ts) \
    array_init_size(&element, 5); \
    add_assoc_long(&element, "ts",     ts); \
    add_assoc_str(&element, "time", php_format_date(DATE_FORMAT_ISO8601_LARGE_YEAR, 13, ts, 0)); \
    add_assoc_long(&element, "offset", tzobj->tzi.tz->type[tzobj->tzi.tz->trans_idx[i]].offset); \
    add_assoc_bool(&element, "isdst",  tzobj->tzi.tz->type[tzobj->tzi.tz->trans_idx[i]].isdst); \
    add_assoc_string(&element, "abbr", &tzobj->tzi.tz->timezone_abbr[tzobj->tzi.tz->type[tzobj->tzi.tz->trans_idx[i]].abbr_idx]); \
    add_next_index_zval(return_value, &element);

#define add_by_index(i,ts) \
    array_init_size(&element, 5); \
    add_assoc_long(&element, "ts",     ts); \
    add_assoc_str(&element, "time", php_format_date(DATE_FORMAT_ISO8601_LARGE_YEAR, 13, ts, 0)); \
    add_assoc_long(&element, "offset", tzobj->tzi.tz->type[i].offset); \
    add_assoc_bool(&element, "isdst",  tzobj->tzi.tz->type[i].isdst); \
    add_assoc_string(&element, "abbr", &tzobj->tzi.tz->timezone_abbr[tzobj->tzi.tz->type[i].abbr_idx]); \
    add_next_index_zval(return_value, &element);

#define add_from_tto(to,ts) \
    array_init_size(&element, 5); \
    add_assoc_long(&element, "ts",     ts); \
    add_assoc_str(&element, "time", php_format_date(DATE_FORMAT_ISO8601_LARGE_YEAR, 13, ts, 0)); \
    add_assoc_long(&element, "offset", (to)->offset); \
    add_assoc_bool(&element, "isdst",  (to)->is_dst); \
    add_assoc_string(&element, "abbr", (to)->abbr); \
    add_next_index_zval(return_value, &element);

#define add_last() add(tzobj->tzi.tz->bit64.timecnt - 1, timestamp_begin)

  array_init(return_value);

  if (timestamp_begin == ZEND_LONG_MIN) {
    add_nominal();
    begin = 0;
    found = true;
  } else {
    begin = 0;
    found = false;
    if (tzobj->tzi.tz->bit64.timecnt > 0) {
      do {
        if (tzobj->tzi.tz->trans[begin] > timestamp_begin) {
          if (begin > 0) {
            add(begin - 1, timestamp_begin);
          } else {
            add_nominal();
          }
          found = true;
          break;
        }
        begin++;
      } while (begin < tzobj->tzi.tz->bit64.timecnt);
    }
  }

  if (!found) {
    if (tzobj->tzi.tz->bit64.timecnt > 0) {
      if (tzobj->tzi.tz->posix_info && tzobj->tzi.tz->posix_info->dst_end) {
        timelib_time_offset *tto = timelib_get_time_zone_info(timestamp_begin, tzobj->tzi.tz);
        add_from_tto(tto, timestamp_begin);
        timelib_time_offset_dtor(tto);
      } else {
        add_last();
      }
    } else {
      add_nominal();
    }
  } else {
    for (uint64_t i = begin; i < tzobj->tzi.tz->bit64.timecnt; ++i) {
      if (tzobj->tzi.tz->trans[i] < timestamp_end) {
        add(i, tzobj->tzi.tz->trans[i]);
      } else {
        return;
      }
    }
  }
  if (tzobj->tzi.tz->posix_info && tzobj->tzi.tz->posix_info->dst_end) {
    timelib_sll start_y, end_y, dummy_m, dummy_d;
    timelib_sll last_transition_ts = tzobj->tzi.tz->trans[tzobj->tzi.tz->bit64.timecnt - 1];

    /* Find out year for last transition */
    timelib_unixtime2date(last_transition_ts, &start_y, &dummy_m, &dummy_d);

    /* Find out year for final boundary timestamp */
    timelib_unixtime2date(timestamp_end, &end_y, &dummy_m, &dummy_d);

    for (timelib_sll i = start_y; i <= end_y; i++) {
      timelib_posix_transitions transitions = { 0 };

      timelib_get_transitions_for_year(tzobj->tzi.tz, i, &transitions);

      for (size_t j = 0; j < transitions.count; j++) {
        if (transitions.times[j] <= last_transition_ts) {
          continue;
        }
        if (transitions.times[j] < timestamp_begin) {
          continue;
        }
        if (transitions.times[j] > timestamp_end) {
          return;
        }
        add_by_index(transitions.types[j], transitions.times[j]);
      }
    }
  }
}
/* }}} */

/* {{{ Returns location information for a timezone, including country code, latitude/longitude and comments */
PHP_FUNCTION(timezone_location_get)
{
  zval                *object;
  php_timezone_obj    *tzobj;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "O", &object, date_ce_timezone) == FAILURE) {
    RETURN_THROWS();
  }
  tzobj = Z_PHPTIMEZONE_P(object);
  DATE_CHECK_INITIALIZED(tzobj->initialized, Z_OBJCE_P(object));
  if (tzobj->type != TIMELIB_ZONETYPE_ID) {
    RETURN_FALSE;
  }

  array_init(return_value);
  add_assoc_string(return_value, "country_code", tzobj->tzi.tz->location.country_code);
  add_assoc_double(return_value, "latitude", tzobj->tzi.tz->location.latitude);
  add_assoc_double(return_value, "longitude", tzobj->tzi.tz->location.longitude);
  add_assoc_string(return_value, "comments", tzobj->tzi.tz->location.comments);
}
/* }}} */

static bool date_interval_initialize(timelib_rel_time **rt, const char *format, size_t format_length) /* {{{ */
{
  timelib_time     *b = NULL, *e = NULL;
  timelib_rel_time *p = NULL;
  int               r = 0;
  bool              retval = false;
  timelib_error_container *errors;

  timelib_strtointerval(format, format_length, &b, &e, &p, &r, &errors);

  if (errors->error_count > 0) {
    zend_throw_exception_ex(date_ce_date_malformed_interval_string_exception, 0, "Unknown or bad format (%s)", format);
    retval = false;
    if (p) {
      timelib_rel_time_dtor(p);
    }
  } else {
    if (p) {
      *rt = p;
      retval = true;
    } else {
      if (b && e) {
        timelib_update_ts(b, NULL);
        timelib_update_ts(e, NULL);
        *rt = timelib_diff(b, e);
        retval = true;
      } else {
        zend_throw_exception_ex(date_ce_date_malformed_interval_string_exception, 0, "Failed to parse interval (%s)", format);
        retval = false;
      }
    }
  }
  timelib_error_container_dtor(errors);
  timelib_free(b);
  timelib_free(e);
  return retval;
} /* }}} */

static int date_interval_compare_objects(zval *o1, zval *o2)
{
  ZEND_COMPARE_OBJECTS_FALLBACK(o1, o2);
  /* There is no well defined way to compare intervals like P1M and P30D, which may compare
   * smaller, equal or greater depending on the point in time at which the interval starts. As
   * such, we treat DateInterval objects are non-comparable and emit a warning. */
  zend_error(E_WARNING, "Cannot compare DateInterval objects");
  return ZEND_UNCOMPARABLE;
}

/* {{{ date_interval_read_property */
static zval *date_interval_read_property(zend_object *object, zend_string *name, int type, void **cache_slot, zval *rv)
{
  php_interval_obj *obj;
  zval *retval;
  timelib_sll value = -1;
  double      fvalue = -1;

  obj = php_interval_obj_from_obj(object);

  if (!obj->initialized) {
    retval = zend_std_read_property(object, name, type, cache_slot, rv);
    return retval;
  }

#define GET_VALUE_FROM_STRUCT(n,m)            \
  if (zend_string_equals_literal(name, m)) { \
    value = obj->diff->n; \
    break; \
  }
  do {
    GET_VALUE_FROM_STRUCT(y, "y");
    GET_VALUE_FROM_STRUCT(m, "m");
    GET_VALUE_FROM_STRUCT(d, "d");
    GET_VALUE_FROM_STRUCT(h, "h");
    GET_VALUE_FROM_STRUCT(i, "i");
    GET_VALUE_FROM_STRUCT(s, "s");
    if (zend_string_equals_literal(name, "f")) {
      fvalue = obj->diff->us / 1000000.0;
      break;
    }
    GET_VALUE_FROM_STRUCT(invert, "invert");
    GET_VALUE_FROM_STRUCT(days, "days");
    /* didn't find any */
    retval = zend_std_read_property(object, name, type, cache_slot, rv);

    return retval;
  } while(0);

  retval = rv;

  if (fvalue != -1) {
    ZVAL_DOUBLE(retval, fvalue);
  } else if (value != TIMELIB_UNSET) {
    ZVAL_LONG(retval, value);
  } else {
    ZVAL_FALSE(retval);
  }

  return retval;
}
/* }}} */

/* {{{ date_interval_write_property */
static zval *date_interval_write_property(zend_object *object, zend_string *name, zval *value, void **cache_slot)
{
  php_interval_obj *obj;

  obj = php_interval_obj_from_obj(object);

  if (!obj->initialized) {
    return zend_std_write_property(object, name, value, cache_slot);
  }

#define SET_VALUE_FROM_STRUCT(n,m) \
  if (zend_string_equals_literal(name, m)) { \
    obj->diff->n = zval_get_long(value); \
    break; \
  }

  do {
    SET_VALUE_FROM_STRUCT(y, "y");
    SET_VALUE_FROM_STRUCT(m, "m");
    SET_VALUE_FROM_STRUCT(d, "d");
    SET_VALUE_FROM_STRUCT(h, "h");
    SET_VALUE_FROM_STRUCT(i, "i");
    SET_VALUE_FROM_STRUCT(s, "s");
    if (zend_string_equals_literal(name, "f")) {
      obj->diff->us = zend_dval_to_lval(zval_get_double(value) * 1000000.0);
      break;
    }
    SET_VALUE_FROM_STRUCT(invert, "invert");
    /* didn't find any */
    value = zend_std_write_property(object, name, value, cache_slot);
  } while(0);

  return value;
}
/* }}} */

/* {{{ date_interval_get_property_ptr_ptr */
static zval *date_interval_get_property_ptr_ptr(zend_object *object, zend_string *name, int type, void **cache_slot)
{
  zval *ret;

  if (
    zend_string_equals_literal(name, "y") ||
    zend_string_equals_literal(name, "m") ||
    zend_string_equals_literal(name, "d") ||
    zend_string_equals_literal(name, "h") ||
    zend_string_equals_literal(name, "i") ||
    zend_string_equals_literal(name, "s") ||
    zend_string_equals_literal(name, "f") ||
    zend_string_equals_literal(name, "days") ||
    zend_string_equals_literal(name, "invert") ) {
    /* Fallback to read_property. */
    if (cache_slot) {
      cache_slot[0] = cache_slot[1] = cache_slot[2] = NULL;
    }
    ret = NULL;
  } else {
    ret = zend_std_get_property_ptr_ptr(object, name, type, cache_slot);
  }

  return ret;
}
/* }}} */

/* {{{ Creates new DateInterval object. */
PHP_METHOD(DateInterval, __construct)
{
  zend_string *interval_string = NULL;
  timelib_rel_time *reltime;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_STR(interval_string)
  ZEND_PARSE_PARAMETERS_END();

  if (!date_interval_initialize(&reltime, ZSTR_VAL(interval_string), ZSTR_LEN(interval_string))) {
    RETURN_THROWS();
  }

  php_interval_obj *diobj = Z_PHPINTERVAL_P(ZEND_THIS);
  diobj->diff = reltime;
  diobj->initialized = 1;
  diobj->civil_or_wall = PHP_DATE_WALL;
}
/* }}} */

static void php_date_interval_initialize_from_hash(php_interval_obj *intobj, const HashTable *myht) /* {{{ */
{
  /* If we have a date_string, use that instead */
  const zval *date_str = zend_hash_str_find(myht, "date_string", strlen("date_string"));
  if (date_str && Z_TYPE_P(date_str) == IS_STRING) {
    timelib_time   *time;
    timelib_error_container *err = NULL;

    time = timelib_strtotime(Z_STRVAL_P(date_str), Z_STRLEN_P(date_str), &err, DATE_TIMEZONEDB, php_date_parse_tzfile_wrapper);

    if (err->error_count > 0)  {
      zend_throw_error(NULL,
        "Unknown or bad format (%s) at position %d (%c) while unserializing: %s",
        Z_STRVAL_P(date_str),
        err->error_messages[0].position,
        err->error_messages[0].character ? err->error_messages[0].character : ' ', err->error_messages[0].message);
        timelib_time_dtor(time);
        timelib_error_container_dtor(err);
        return;
    }

    /* If ->diff is already set, then we need to free it first */
    if (intobj->diff) {
      timelib_rel_time_dtor(intobj->diff);
    }

    intobj->diff = timelib_rel_time_clone(&time->relative);
    intobj->initialized = true;
    intobj->civil_or_wall = PHP_DATE_CIVIL;
    intobj->from_string = true;
    intobj->date_string = zend_string_copy(Z_STR_P(date_str));

    timelib_time_dtor(time);
    timelib_error_container_dtor(err);

    return;
  }

  /* If ->diff is already set, then we need to free it first */
  if (intobj->diff) {
    timelib_rel_time_dtor(intobj->diff);
  }

  /* Set new value */
  intobj->diff = timelib_rel_time_ctor();

#define PHP_DATE_INTERVAL_READ_PROPERTY(element, member, itype, def) \
  do { \
    zval *z_arg = zend_hash_str_find(myht, element, sizeof(element) - 1); \
    if (z_arg && Z_TYPE_P(z_arg) <= IS_STRING) { \
      intobj->diff->member = (itype)zval_get_long(z_arg); \
    } else { \
      intobj->diff->member = (itype)def; \
    } \
  } while (0);

#define PHP_DATE_INTERVAL_READ_PROPERTY_I64(element, member) \
  do { \
    zval *z_arg = zend_hash_str_find(myht, element, sizeof(element) - 1); \
    if (z_arg && Z_TYPE_P(z_arg) <= IS_STRING) { \
      zend_string *tmp_str; \
      zend_string *str = zval_get_tmp_string(z_arg, &tmp_str); \
      DATE_A64I(intobj->diff->member, ZSTR_VAL(str)); \
      zend_tmp_string_release(tmp_str); \
    } else { \
      intobj->diff->member = -1LL; \
    } \
  } while (0);

#define PHP_DATE_INTERVAL_READ_PROPERTY_DAYS(member) \
  do { \
    zval *z_arg = zend_hash_str_find(myht, "days", sizeof("days") - 1); \
    if (z_arg && Z_TYPE_P(z_arg) == IS_FALSE) { \
      intobj->diff->member = TIMELIB_UNSET; \
    } else if (z_arg && Z_TYPE_P(z_arg) <= IS_STRING) { \
      zend_string *tmp_str; \
      zend_string *str = zval_get_tmp_string(z_arg, &tmp_str); \
      DATE_A64I(intobj->diff->member, ZSTR_VAL(str)); \
      zend_tmp_string_release(tmp_str); \
    } else { \
      intobj->diff->member = -1LL; \
    } \
  } while (0);

#define PHP_DATE_INTERVAL_READ_PROPERTY_DOUBLE(element, member, def) \
  do { \
    zval *z_arg = zend_hash_str_find(myht, element, sizeof(element) - 1); \
    if (z_arg) { \
      intobj->diff->member = (double)zval_get_double(z_arg); \
    } else { \
      intobj->diff->member = (double)def; \
    } \
  } while (0);

  PHP_DATE_INTERVAL_READ_PROPERTY("y", y, timelib_sll, -1)
  PHP_DATE_INTERVAL_READ_PROPERTY("m", m, timelib_sll, -1)
  PHP_DATE_INTERVAL_READ_PROPERTY("d", d, timelib_sll, -1)
  PHP_DATE_INTERVAL_READ_PROPERTY("h", h, timelib_sll, -1)
  PHP_DATE_INTERVAL_READ_PROPERTY("i", i, timelib_sll, -1)
  PHP_DATE_INTERVAL_READ_PROPERTY("s", s, timelib_sll, -1)
  {
    const zval *z_arg = zend_hash_str_find(myht, "f", sizeof("f") - 1);
    if (z_arg) {
      intobj->diff->us = zend_dval_to_lval(zval_get_double(z_arg) * 1000000.0);
    }
  }
  PHP_DATE_INTERVAL_READ_PROPERTY("weekday", weekday, int, -1)
  PHP_DATE_INTERVAL_READ_PROPERTY("weekday_behavior", weekday_behavior, int, -1)
  PHP_DATE_INTERVAL_READ_PROPERTY("first_last_day_of", first_last_day_of, int, -1)
  PHP_DATE_INTERVAL_READ_PROPERTY("invert", invert, int, 0);
  PHP_DATE_INTERVAL_READ_PROPERTY_DAYS(days);
  PHP_DATE_INTERVAL_READ_PROPERTY("special_type", special.type, unsigned int, 0);
  PHP_DATE_INTERVAL_READ_PROPERTY_I64("special_amount", special.amount);
  PHP_DATE_INTERVAL_READ_PROPERTY("have_weekday_relative", have_weekday_relative, unsigned int, 0);
  PHP_DATE_INTERVAL_READ_PROPERTY("have_special_relative", have_special_relative, unsigned int, 0);
  {
    const zval *z_arg = zend_hash_str_find(myht, "civil_or_wall", sizeof("civil_or_wall") - 1);
    intobj->civil_or_wall = PHP_DATE_CIVIL;
    if (z_arg) {
      zend_long val = zval_get_long(z_arg);
      intobj->civil_or_wall = val;
    }
  }

  intobj->initialized = true;
} /* }}} */

/* {{{ */
PHP_METHOD(DateInterval, __set_state)
{
  php_interval_obj *intobj;
  HashTable        *myht;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_ARRAY_HT(myht)
  ZEND_PARSE_PARAMETERS_END();

  php_date_instantiate(date_ce_interval, return_value);
  intobj = Z_PHPINTERVAL_P(return_value);
  php_date_interval_initialize_from_hash(intobj, myht);
}
/* }}} */

/* {{{ */
PHP_METHOD(DateInterval, __serialize)
{
  zval             *object = ZEND_THIS;
  php_interval_obj *intervalobj;
  HashTable        *myht;

  ZEND_PARSE_PARAMETERS_NONE();

  intervalobj = Z_PHPINTERVAL_P(object);
  DATE_CHECK_INITIALIZED(intervalobj->initialized, Z_OBJCE_P(object));

  array_init(return_value);
  myht = Z_ARRVAL_P(return_value);
  date_interval_object_to_hash(intervalobj, myht);

  add_common_properties(myht, &intervalobj->std);
}
/* }}} */

static bool date_interval_is_internal_property(const zend_string *name)
{
  if (
    zend_string_equals_literal(name, "date_string") ||
    zend_string_equals_literal(name, "from_string") ||
    zend_string_equals_literal(name, "y") ||
    zend_string_equals_literal(name, "m") ||
    zend_string_equals_literal(name, "d") ||
    zend_string_equals_literal(name, "h") ||
    zend_string_equals_literal(name, "i") ||
    zend_string_equals_literal(name, "s") ||
    zend_string_equals_literal(name, "f") ||
    zend_string_equals_literal(name, "invert") ||
    zend_string_equals_literal(name, "days")
  ) {
    return true;
  }
  return false;
}

static void restore_custom_dateinterval_properties(zval *object, const HashTable *myht)
{
  zend_string      *prop_name;
  zval             *prop_val;

  ZEND_HASH_FOREACH_STR_KEY_VAL(myht, prop_name, prop_val) {
    if (!prop_name || (Z_TYPE_P(prop_val) == IS_REFERENCE) || date_interval_is_internal_property(prop_name)) {
      continue;
    }
    update_property(Z_OBJ_P(object), prop_name, prop_val);
  } ZEND_HASH_FOREACH_END();
}


/* {{{ */
PHP_METHOD(DateInterval, __unserialize)
{
  zval             *object = ZEND_THIS;
  php_interval_obj *intervalobj;
  HashTable        *myht;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_ARRAY_HT(myht)
  ZEND_PARSE_PARAMETERS_END();

  intervalobj = Z_PHPINTERVAL_P(object);

  php_date_interval_initialize_from_hash(intervalobj, myht);
  restore_custom_dateinterval_properties(object, myht);
}
/* }}} */

/* {{{ */
PHP_METHOD(DateInterval, __wakeup)
{
  zval             *object = ZEND_THIS;
  php_interval_obj *intobj;
  const HashTable  *myht;

  ZEND_PARSE_PARAMETERS_NONE();

  intobj = Z_PHPINTERVAL_P(object);

  myht = Z_OBJPROP_P(object);

  php_date_interval_initialize_from_hash(intobj, myht);
}
/* }}} */

static void date_interval_instantiate_from_time(zval *return_value, timelib_time *time, zend_string *time_str)
{
  php_interval_obj *diobj;

  php_date_instantiate(date_ce_interval, return_value);
  diobj = Z_PHPINTERVAL_P(return_value);
  diobj->diff = timelib_rel_time_clone(&time->relative);
  diobj->initialized = true;
  diobj->civil_or_wall = PHP_DATE_CIVIL;
  diobj->from_string = true;
  diobj->date_string = zend_string_copy(time_str);
}

/* {{{ Uses the normal date parsers and sets up a DateInterval from the relative parts of the parsed string */
PHP_FUNCTION(date_interval_create_from_date_string)
{
  zend_string    *time_str = NULL;
  timelib_time   *time;
  timelib_error_container *err = NULL;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_STR(time_str)
  ZEND_PARSE_PARAMETERS_END();

  time = timelib_strtotime(ZSTR_VAL(time_str), ZSTR_LEN(time_str), &err, DATE_TIMEZONEDB, php_date_parse_tzfile_wrapper);

  if (err->error_count > 0)  {
    php_error_docref(NULL, E_WARNING, "Unknown or bad format (%s) at position %d (%c): %s", ZSTR_VAL(time_str),
      err->error_messages[0].position, err->error_messages[0].character ? err->error_messages[0].character : ' ', err->error_messages[0].message);
    RETVAL_FALSE;
    goto cleanup;
  }

  if (time->have_date || time->have_time || time->have_zone) {
    php_error_docref(NULL, E_WARNING, "String '%s' contains non-relative elements", ZSTR_VAL(time_str));
    RETVAL_FALSE;
    goto cleanup;
  }

  date_interval_instantiate_from_time(return_value, time, time_str);

cleanup:
  timelib_time_dtor(time);
  timelib_error_container_dtor(err);
}
/* }}} */

/* {{{ Uses the normal date parsers and sets up a DateInterval from the relative parts of the parsed string */
PHP_METHOD(DateInterval, createFromDateString)
{
  zend_string    *time_str = NULL;
  timelib_time   *time;
  timelib_error_container *err = NULL;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_STR(time_str)
  ZEND_PARSE_PARAMETERS_END();

  time = timelib_strtotime(ZSTR_VAL(time_str), ZSTR_LEN(time_str), &err, DATE_TIMEZONEDB, php_date_parse_tzfile_wrapper);

  if (err->error_count > 0)  {
    zend_throw_error(date_ce_date_malformed_interval_string_exception, "Unknown or bad format (%s) at position %d (%c): %s", ZSTR_VAL(time_str),
      err->error_messages[0].position, err->error_messages[0].character ? err->error_messages[0].character : ' ', err->error_messages[0].message);
    goto cleanup;
  }

  if (time->have_date || time->have_time || time->have_zone) {
    zend_throw_error(date_ce_date_malformed_interval_string_exception, "String '%s' contains non-relative elements", ZSTR_VAL(time_str));
    goto cleanup;
  }

  date_interval_instantiate_from_time(return_value, time, time_str);

cleanup:
  timelib_time_dtor(time);
  timelib_error_container_dtor(err);
}
/* }}} */

/* {{{ date_interval_format -  */
static zend_string *date_interval_format(const char *format, size_t format_len, timelib_rel_time *t)
{
  smart_str            string = {0};
  size_t               i;
  int                  length, have_format_spec = 0;
  char                 buffer[33];

  if (!format_len) {
    return ZSTR_EMPTY_ALLOC();
  }

  for (i = 0; i < format_len; i++) {
    if (have_format_spec) {
      switch (format[i]) {
        case 'Y': length = slprintf(buffer, sizeof(buffer), "%02d", (int) t->y); break;
        case 'y': length = slprintf(buffer, sizeof(buffer), "%d", (int) t->y); break;

        case 'M': length = slprintf(buffer, sizeof(buffer), "%02d", (int) t->m); break;
        case 'm': length = slprintf(buffer, sizeof(buffer), "%d", (int) t->m); break;

        case 'D': length = slprintf(buffer, sizeof(buffer), "%02d", (int) t->d); break;
        case 'd': length = slprintf(buffer, sizeof(buffer), "%d", (int) t->d); break;

        case 'H': length = slprintf(buffer, sizeof(buffer), "%02d", (int) t->h); break;
        case 'h': length = slprintf(buffer, sizeof(buffer), "%d", (int) t->h); break;

        case 'I': length = slprintf(buffer, sizeof(buffer), "%02d", (int) t->i); break;
        case 'i': length = slprintf(buffer, sizeof(buffer), "%d", (int) t->i); break;

        case 'S': length = slprintf(buffer, sizeof(buffer), "%02" ZEND_LONG_FMT_SPEC, (zend_long) t->s); break;
        case 's': length = slprintf(buffer, sizeof(buffer), ZEND_LONG_FMT, (zend_long) t->s); break;

        case 'F': length = slprintf(buffer, sizeof(buffer), "%06" ZEND_LONG_FMT_SPEC, (zend_long) t->us); break;
        case 'f': length = slprintf(buffer, sizeof(buffer), ZEND_LONG_FMT, (zend_long) t->us); break;

        case 'a': {
          if ((int) t->days != TIMELIB_UNSET) {
            length = slprintf(buffer, sizeof(buffer), "%d", (int) t->days);
          } else {
            length = slprintf(buffer, sizeof(buffer), "(unknown)");
          }
        } break;
        case 'r': length = slprintf(buffer, sizeof(buffer), "%s", t->invert ? "-" : ""); break;
        case 'R': length = slprintf(buffer, sizeof(buffer), "%c", t->invert ? '-' : '+'); break;

        case '%': length = slprintf(buffer, sizeof(buffer), "%%"); break;
        default: buffer[0] = '%'; buffer[1] = format[i]; buffer[2] = '\0'; length = 2; break;
      }
      smart_str_appendl(&string, buffer, length);
      have_format_spec = 0;
    } else {
      if (format[i] == '%') {
        have_format_spec = 1;
      } else {
        smart_str_appendc(&string, format[i]);
      }
    }
  }

  smart_str_0(&string);

  if (string.s == NULL) {
    return ZSTR_EMPTY_ALLOC();
  }

  return string.s;
}
/* }}} */

/* {{{ Formats the interval. */
PHP_FUNCTION(date_interval_format)
{
  zval             *object;
  php_interval_obj *diobj;
  const char       *format;
  size_t            format_len;

  if (zend_parse_method_parameters(ZEND_NUM_ARGS(), getThis(), "Os", &object, date_ce_interval, &format, &format_len) == FAILURE) {
    RETURN_THROWS();
  }
  diobj = Z_PHPINTERVAL_P(object);
  DATE_CHECK_INITIALIZED(diobj->initialized, Z_OBJCE_P(object));

  RETURN_STR(date_interval_format(format, format_len, diobj->diff));
}
/* }}} */

static bool date_period_initialize(timelib_time **st, timelib_time **et, timelib_rel_time **d, zend_long *recurrences, const char *format, size_t format_length) /* {{{ */
{
  timelib_time     *b = NULL, *e = NULL;
  timelib_rel_time *p = NULL;
  int               r = 0;
  timelib_error_container *errors;
  bool              retval = false;

  timelib_strtointerval(format, format_length, &b, &e, &p, &r, &errors);

  if (errors->error_count > 0) {
    retval = false;
    zend_throw_exception_ex(date_ce_date_malformed_period_string_exception, 0, "Unknown or bad format (%s)", format);
    if (b) {
      timelib_time_dtor(b);
    }
    if (e) {
      timelib_time_dtor(e);
    }
    if (p) {
      timelib_rel_time_dtor(p);
    }
  } else {
    *st = b;
    *et = e;
    *d  = p;
    *recurrences = r;
    retval = true;
  }
  timelib_error_container_dtor(errors);
  return retval;
} /* }}} */

static bool date_period_init_iso8601_string(php_period_obj *dpobj, zend_class_entry* base_ce, const char *isostr, size_t isostr_len, zend_long *recurrences)
{
  if (!date_period_initialize(&(dpobj->start), &(dpobj->end), &(dpobj->interval), recurrences, isostr, isostr_len)) {
    return false;
  }

  if (dpobj->start == NULL) {
    zend_string *func = get_active_function_or_method_name();
    zend_throw_exception_ex(date_ce_date_malformed_period_string_exception, 0, "%s(): ISO interval must contain a start date, \"%s\" given", ZSTR_VAL(func), isostr);
    zend_string_release(func);
    return false;
  }
  if (dpobj->interval == NULL) {
    zend_string *func = get_active_function_or_method_name();
    zend_throw_exception_ex(date_ce_date_malformed_period_string_exception, 0, "%s(): ISO interval must contain an interval, \"%s\" given", ZSTR_VAL(func), isostr);
    zend_string_release(func);
    return false;
  }
  if (dpobj->end == NULL && *recurrences == 0) {
    zend_string *func = get_active_function_or_method_name();
    zend_throw_exception_ex(date_ce_date_malformed_period_string_exception, 0, "%s(): ISO interval must contain an end date or a recurrence count, \"%s\" given", ZSTR_VAL(func), isostr);
    zend_string_release(func);
    return false;
  }

  if (dpobj->start) {
    timelib_update_ts(dpobj->start, NULL);
  }
  if (dpobj->end) {
    timelib_update_ts(dpobj->end, NULL);
  }
  dpobj->start_ce = base_ce;

  return true;
}

static bool date_period_init_finish(php_period_obj *dpobj, zend_long options, zend_long recurrences)
{
  const zend_long max_recurrences = (INT_MAX - 8);

  if (dpobj->end == NULL && (recurrences < 1 || recurrences > max_recurrences)) {
    zend_string *func = get_active_function_or_method_name();
    zend_throw_exception_ex(date_ce_date_malformed_period_string_exception, 0, "%s(): Recurrence count must be greater or equal to 1 and lower than " ZEND_LONG_FMT, ZSTR_VAL(func), max_recurrences + 1);
    zend_string_release(func);
    return false;
  }

  /* options */
  dpobj->include_start_date = !(options & PHP_DATE_PERIOD_EXCLUDE_START_DATE);
  dpobj->include_end_date = options & PHP_DATE_PERIOD_INCLUDE_END_DATE;

  /* recurrences */
  recurrences += dpobj->include_start_date + dpobj->include_end_date;

  if (UNEXPECTED(recurrences > max_recurrences)) {
    zend_string *func = get_active_function_or_method_name();
    zend_throw_exception_ex(date_ce_date_malformed_string_exception, 0, "%s(): Recurrence count must be greater or equal to 1 and lower than " ZEND_LONG_FMT " (including options)", ZSTR_VAL(func), max_recurrences + 1);
    zend_string_release(func);
    return false;
  }

  dpobj->recurrences = (int)recurrences;

  dpobj->initialized = true;

  return true;
}

PHP_METHOD(DatePeriod, createFromISO8601String)
{
  php_period_obj *dpobj;
  zend_long recurrences = 0, options = 0;
  char *isostr = NULL;
  size_t isostr_len = 0;

  ZEND_PARSE_PARAMETERS_START(1, 2)
    Z_PARAM_STRING(isostr, isostr_len)
    Z_PARAM_OPTIONAL
    Z_PARAM_LONG(options)
  ZEND_PARSE_PARAMETERS_END();

  if (object_init_ex(return_value, execute_data->This.value.ce ? execute_data->This.value.ce : date_ce_period) != SUCCESS) {
    RETURN_THROWS();
  }
  dpobj = Z_PHPPERIOD_P(return_value);

  dpobj->current = NULL;

  if (!date_period_init_iso8601_string(dpobj, date_ce_immutable, isostr, isostr_len, &recurrences)) {
    RETURN_THROWS();
  }

  if (!date_period_init_finish(dpobj, options, recurrences)) {
    RETURN_THROWS();
  }
}

static void date_period_reset(php_period_obj *period_obj)
{
  if (period_obj->start) {
    timelib_time_dtor(period_obj->start);
  }
  if (period_obj->current) {
    timelib_time_dtor(period_obj->current);
  }
  if (period_obj->end) {
    timelib_time_dtor(period_obj->end);
  }
  if (period_obj->interval) {
    timelib_rel_time_dtor(period_obj->interval);
  }
  memset(period_obj, 0, offsetof(php_period_obj, std));
}

/* {{{ Creates new DatePeriod object. */
PHP_METHOD(DatePeriod, __construct)
{
  php_period_obj   *dpobj;
  php_date_obj     *dateobj;
  zval *start, *end = NULL, *interval;
  zend_long  recurrences = 0, options = 0;
  char *isostr = NULL;
  size_t   isostr_len = 0;
  timelib_time *clone;

  if (zend_parse_parameters_ex(ZEND_PARSE_PARAMS_QUIET, ZEND_NUM_ARGS(), "OOl|l", &start, date_ce_interface, &interval, date_ce_interval, &recurrences, &options) == FAILURE) {
    if (zend_parse_parameters_ex(ZEND_PARSE_PARAMS_QUIET, ZEND_NUM_ARGS(), "OOO|l", &start, date_ce_interface, &interval, date_ce_interval, &end, date_ce_interface, &options) == FAILURE) {
      if (zend_parse_parameters_ex(ZEND_PARSE_PARAMS_QUIET, ZEND_NUM_ARGS(), "s|l", &isostr, &isostr_len, &options) == FAILURE) {
        zend_type_error("DatePeriod::__construct() accepts (DateTimeInterface, DateInterval, int [, int]), or (DateTimeInterface, DateInterval, DateTime [, int]), or (string [, int]) as arguments");
        RETURN_THROWS();
      }
    }
  }

  dpobj = Z_PHPPERIOD_P(ZEND_THIS);
  date_period_reset(dpobj);

  if (isostr) {
    zend_error(E_DEPRECATED, "Calling DatePeriod::__construct(string $isostr, int $options = 0) is deprecated, "
      "use DatePeriod::createFromISO8601String() instead");
    if (UNEXPECTED(EG(exception))) {
      RETURN_THROWS();
    }

    if (!date_period_init_iso8601_string(dpobj, date_ce_date, isostr, isostr_len, &recurrences)) {
      RETURN_THROWS();
    }
  } else {
    /* check initialisation */
    DATE_CHECK_INITIALIZED(Z_PHPDATE_P(start)->time, date_ce_interface);
    if (end) {
      DATE_CHECK_INITIALIZED(Z_PHPDATE_P(end)->time, date_ce_interface);
    }
    DATE_CHECK_INITIALIZED(Z_PHPINTERVAL_P(interval)->initialized, Z_OBJCE_P(interval));

    /* init */
    php_interval_obj *intobj = Z_PHPINTERVAL_P(interval);

    /* start date */
    dateobj = Z_PHPDATE_P(start);
    clone = timelib_time_ctor();
    memcpy(clone, dateobj->time, sizeof(timelib_time));
    if (dateobj->time->tz_abbr) {
      clone->tz_abbr = timelib_strdup(dateobj->time->tz_abbr);
    }
    if (dateobj->time->tz_info) {
      clone->tz_info = dateobj->time->tz_info;
    }
    dpobj->start = clone;
    dpobj->start_ce = Z_OBJCE_P(start);

    /* interval */
    dpobj->interval = timelib_rel_time_clone(intobj->diff);

    /* end date */
    if (end) {
      dateobj = Z_PHPDATE_P(end);
      clone = timelib_time_clone(dateobj->time);
      dpobj->end = clone;
    }
  }

  if (!date_period_init_finish(dpobj, options, recurrences)) {
    RETURN_THROWS();
  }
}
/* }}} */

/* {{{ Get start date. */
PHP_METHOD(DatePeriod, getStartDate)
{
  php_period_obj   *dpobj;
  php_date_obj     *dateobj;

  ZEND_PARSE_PARAMETERS_NONE();

  dpobj = Z_PHPPERIOD_P(ZEND_THIS);
  DATE_CHECK_INITIALIZED(dpobj->start, Z_OBJCE_P(ZEND_THIS));

  php_date_instantiate(dpobj->start_ce, return_value);
  dateobj = Z_PHPDATE_P(return_value);
  dateobj->time = timelib_time_ctor();
  *dateobj->time = *dpobj->start;
  if (dpobj->start->tz_abbr) {
    dateobj->time->tz_abbr = timelib_strdup(dpobj->start->tz_abbr);
  }
  if (dpobj->start->tz_info) {
    dateobj->time->tz_info = dpobj->start->tz_info;
  }
}
/* }}} */

/* {{{ Get end date. */
PHP_METHOD(DatePeriod, getEndDate)
{
  php_period_obj   *dpobj;
  php_date_obj     *dateobj;

  ZEND_PARSE_PARAMETERS_NONE();

  dpobj = Z_PHPPERIOD_P(ZEND_THIS);

  if (!dpobj->end) {
    return;
  }

  php_date_instantiate(dpobj->start_ce, return_value);
  dateobj = Z_PHPDATE_P(return_value);
  dateobj->time = timelib_time_ctor();
  *dateobj->time = *dpobj->end;
  if (dpobj->end->tz_abbr) {
      dateobj->time->tz_abbr = timelib_strdup(dpobj->end->tz_abbr);
  }
  if (dpobj->end->tz_info) {
      dateobj->time->tz_info = dpobj->end->tz_info;
  }
}
/* }}} */

/* {{{ Get date interval. */
PHP_METHOD(DatePeriod, getDateInterval)
{
  php_period_obj   *dpobj;
  php_interval_obj *diobj;

  ZEND_PARSE_PARAMETERS_NONE();

  dpobj = Z_PHPPERIOD_P(ZEND_THIS);
  DATE_CHECK_INITIALIZED(dpobj->interval, Z_OBJCE_P(ZEND_THIS));

  php_date_instantiate(date_ce_interval, return_value);
  diobj = Z_PHPINTERVAL_P(return_value);
  diobj->diff = timelib_rel_time_clone(dpobj->interval);
  diobj->initialized = true;
}
/* }}} */

/* {{{ Get recurrences. */
PHP_METHOD(DatePeriod, getRecurrences)
{
  php_period_obj   *dpobj;

  ZEND_PARSE_PARAMETERS_NONE();

  dpobj = Z_PHPPERIOD_P(ZEND_THIS);

  if (0 == dpobj->recurrences - dpobj->include_start_date - dpobj->include_end_date) {
    return;
  }

  RETURN_LONG(dpobj->recurrences - dpobj->include_start_date - dpobj->include_end_date);
}
/* }}} */

PHP_METHOD(DatePeriod, getIterator)
{
  ZEND_PARSE_PARAMETERS_NONE();

  zend_create_internal_iterator_zval(return_value, ZEND_THIS);
}

static bool check_id_allowed(const char *id, zend_long what) /* {{{ */
{
  if ((what & PHP_DATE_TIMEZONE_GROUP_AFRICA)     && strncasecmp(id, "Africa/",      7) == 0) return true;
  if ((what & PHP_DATE_TIMEZONE_GROUP_AMERICA)    && strncasecmp(id, "America/",     8) == 0) return true;
  if ((what & PHP_DATE_TIMEZONE_GROUP_ANTARCTICA) && strncasecmp(id, "Antarctica/", 11) == 0) return true;
  if ((what & PHP_DATE_TIMEZONE_GROUP_ARCTIC)     && strncasecmp(id, "Arctic/",      7) == 0) return true;
  if ((what & PHP_DATE_TIMEZONE_GROUP_ASIA)       && strncasecmp(id, "Asia/",        5) == 0) return true;
  if ((what & PHP_DATE_TIMEZONE_GROUP_ATLANTIC)   && strncasecmp(id, "Atlantic/",    9) == 0) return true;
  if ((what & PHP_DATE_TIMEZONE_GROUP_AUSTRALIA)  && strncasecmp(id, "Australia/",  10) == 0) return true;
  if ((what & PHP_DATE_TIMEZONE_GROUP_EUROPE)     && strncasecmp(id, "Europe/",      7) == 0) return true;
  if ((what & PHP_DATE_TIMEZONE_GROUP_INDIAN)     && strncasecmp(id, "Indian/",      7) == 0) return true;
  if ((what & PHP_DATE_TIMEZONE_GROUP_PACIFIC)    && strncasecmp(id, "Pacific/",     8) == 0) return true;
  if ((what & PHP_DATE_TIMEZONE_GROUP_UTC)        && strncasecmp(id, "UTC",          3) == 0) return true;
  return false;
} /* }}} */

/* {{{ Returns numerically index array with all timezone identifiers. */
PHP_FUNCTION(timezone_identifiers_list)
{
  const timelib_tzdb             *tzdb;
  const timelib_tzdb_index_entry *table;
  int                             i, item_count;
  zend_long                       what = PHP_DATE_TIMEZONE_GROUP_ALL;
  char                           *option = NULL;
  size_t                          option_len = 0;

  ZEND_PARSE_PARAMETERS_START(0, 2)
    Z_PARAM_OPTIONAL
    Z_PARAM_LONG(what)
    Z_PARAM_STRING_OR_NULL(option, option_len)
  ZEND_PARSE_PARAMETERS_END();

  /* Extra validation */
  if (what == PHP_DATE_TIMEZONE_PER_COUNTRY && option_len != 2) {
    zend_argument_value_error(2, "must be a two-letter ISO 3166-1 compatible country code "
      "when argument #1 ($timezoneGroup) is DateTimeZone::PER_COUNTRY");
    RETURN_THROWS();
  }

  tzdb = DATE_TIMEZONEDB;
  table = timelib_timezone_identifiers_list((timelib_tzdb*) tzdb, &item_count);

  array_init(return_value);
  zend_hash_real_init_packed(Z_ARRVAL_P(return_value));

  for (i = 0; i < item_count; ++i) {
    if (what == PHP_DATE_TIMEZONE_PER_COUNTRY) {
      if (tzdb->data[table[i].pos + 5] == option[0] && tzdb->data[table[i].pos + 6] == option[1]) {
        add_next_index_string(return_value, table[i].id);
      }
    } else if (what == PHP_DATE_TIMEZONE_GROUP_ALL_W_BC || (check_id_allowed(table[i].id, what) && (tzdb->data[table[i].pos + 4] == '\1'))) {
      add_next_index_string(return_value, table[i].id);
    }
  };
}
/* }}} */

/* {{{ Returns the Olson database version number. */
PHP_FUNCTION(timezone_version_get)
{
  const timelib_tzdb *tzdb;

  ZEND_PARSE_PARAMETERS_NONE();

  tzdb = DATE_TIMEZONEDB;
  RETURN_STRING(tzdb->version);
}
/* }}} */

/* {{{ Returns associative array containing dst, offset and the timezone name */
PHP_FUNCTION(timezone_abbreviations_list)
{
  const timelib_tz_lookup_table *table, *entry;
  zval                          element, *abbr_array_p, abbr_array;

  ZEND_PARSE_PARAMETERS_NONE();

  table = timelib_timezone_abbreviations_list();
  array_init(return_value);
  entry = table;

  do {
    array_init(&element);
    add_assoc_bool_ex(&element, "dst", sizeof("dst") -1, entry->type);
    add_assoc_long_ex(&element, "offset", sizeof("offset") - 1, entry->gmtoffset);
    if (entry->full_tz_name) {
      add_assoc_string_ex(&element, "timezone_id", sizeof("timezone_id") - 1, entry->full_tz_name);
    } else {
      add_assoc_null_ex(&element, "timezone_id", sizeof("timezone_id") - 1);
    }

    abbr_array_p = zend_hash_str_find(Z_ARRVAL_P(return_value), entry->name, strlen(entry->name));
    if (!abbr_array_p) {
      array_init(&abbr_array);
      add_assoc_zval(return_value, entry->name, &abbr_array);
    } else {
      ZVAL_COPY_VALUE(&abbr_array, abbr_array_p);
    }
    add_next_index_zval(&abbr_array, &element);
    entry++;
  } while (entry->name);
}
/* }}} */

/* {{{ Sets the default timezone used by all date/time functions in a script */
PHP_FUNCTION(date_default_timezone_set)
{
  char *zone;
  size_t   zone_len;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_STRING(zone, zone_len)
  ZEND_PARSE_PARAMETERS_END();

  if (!timelib_timezone_id_is_valid(zone, DATE_TIMEZONEDB)) {
    php_error_docref(NULL, E_NOTICE, "Timezone ID '%s' is invalid", zone);
    RETURN_FALSE;
  }
  if (DATEG(timezone)) {
    efree(DATEG(timezone));
    DATEG(timezone) = NULL;
  }
  DATEG(timezone) = estrndup(zone, zone_len);
  RETURN_TRUE;
}
/* }}} */

/* {{{ Gets the default timezone used by all date/time functions in a script */
PHP_FUNCTION(date_default_timezone_get)
{
  timelib_tzinfo *default_tz;
  ZEND_PARSE_PARAMETERS_NONE();

  default_tz = get_timezone_info();
  if (!default_tz) {
    RETURN_THROWS();
  }
  RETVAL_STRING(default_tz->name);
}
/* }}} */

/* {{{ php_do_date_sunrise_sunset
 *  Common for date_sunrise() and date_sunset() functions
 */
static void php_do_date_sunrise_sunset(INTERNAL_FUNCTION_PARAMETERS, bool calc_sunset)
{
  double latitude, longitude, zenith, gmt_offset, altitude;
  bool latitude_is_null = 1, longitude_is_null = 1, zenith_is_null = 1, gmt_offset_is_null = 1;
  double h_rise, h_set, N;
  timelib_sll rise, set, transit;
  zend_long time, retformat = SUNFUNCS_RET_STRING;
  int             rs;
  timelib_time   *t;
  timelib_tzinfo *tzi;
  zend_string    *retstr;

  ZEND_PARSE_PARAMETERS_START(1, 6)
    Z_PARAM_LONG(time)
    Z_PARAM_OPTIONAL
    Z_PARAM_LONG(retformat)
    Z_PARAM_DOUBLE_OR_NULL(latitude, latitude_is_null)
    Z_PARAM_DOUBLE_OR_NULL(longitude, longitude_is_null)
    Z_PARAM_DOUBLE_OR_NULL(zenith, zenith_is_null)
    Z_PARAM_DOUBLE_OR_NULL(gmt_offset, gmt_offset_is_null)
  ZEND_PARSE_PARAMETERS_END();

  if (latitude_is_null) {
    latitude = zend_ini_double_literal("date.default_latitude");
  }

  if (longitude_is_null) {
    longitude = zend_ini_double_literal("date.default_longitude");
  }

  if (zenith_is_null) {
    if (calc_sunset) {
      zenith = zend_ini_double_literal("date.sunset_zenith");
    } else {
      zenith = zend_ini_double_literal("date.sunrise_zenith");
    }
  }

  if (retformat != SUNFUNCS_RET_TIMESTAMP &&
    retformat != SUNFUNCS_RET_STRING &&
    retformat != SUNFUNCS_RET_DOUBLE)
  {
    zend_argument_value_error(2, "must be one of SUNFUNCS_RET_TIMESTAMP, SUNFUNCS_RET_STRING, or SUNFUNCS_RET_DOUBLE");
    RETURN_THROWS();
  }
  altitude = 90 - zenith;

  if (!zend_finite(latitude) || !zend_finite(longitude)) {
    RETURN_FALSE;
  }

  /* Initialize time struct */
  tzi = get_timezone_info();
  if (!tzi) {
    RETURN_THROWS();
  }
  t = timelib_time_ctor();
  t->tz_info = tzi;
  t->zone_type = TIMELIB_ZONETYPE_ID;

  if (gmt_offset_is_null) {
    gmt_offset = timelib_get_current_offset(t) / 3600.0;
  }

  timelib_unixtime2local(t, time);
  rs = timelib_astro_rise_set_altitude(t, longitude, latitude, altitude, 1, &h_rise, &h_set, &rise, &set, &transit);
  timelib_time_dtor(t);

  if (rs != 0) {
    RETURN_FALSE;
  }

  if (retformat == SUNFUNCS_RET_TIMESTAMP) {
    RETURN_LONG(calc_sunset ? set : rise);
  }
  N = (calc_sunset ? h_set : h_rise) + gmt_offset;

  if (N > 24 || N < 0) {
    N -= floor(N / 24) * 24;
  }
  if (!(N <= 24 && N >= 0)) {
    RETURN_FALSE;
  }

  switch (retformat) {
    case SUNFUNCS_RET_STRING:
      retstr = strpprintf(0, "%02d:%02d", (int) N, (int) (60 * (N - (int) N)));
      RETURN_NEW_STR(retstr);
    case SUNFUNCS_RET_DOUBLE:
      RETURN_DOUBLE(N);
  }
}
/* }}} */

/* {{{ Returns time of sunrise for a given day and location */
PHP_FUNCTION(date_sunrise)
{
  php_do_date_sunrise_sunset(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0);
}
/* }}} */

/* {{{ Returns time of sunset for a given day and location */
PHP_FUNCTION(date_sunset)
{
  php_do_date_sunrise_sunset(INTERNAL_FUNCTION_PARAM_PASSTHRU, 1);
}
/* }}} */

/* {{{ Returns an array with information about sun set/rise and twilight begin/end */
PHP_FUNCTION(date_sun_info)
{
  zend_long       time;
  double          latitude, longitude;
  timelib_time   *t, *t2;
  timelib_tzinfo *tzi;
  int             rs;
  timelib_sll     rise, set, transit;
  int             dummy;
  double          ddummy;

  ZEND_PARSE_PARAMETERS_START(3, 3)
    Z_PARAM_LONG(time)
    Z_PARAM_DOUBLE(latitude)
    Z_PARAM_DOUBLE(longitude)
  ZEND_PARSE_PARAMETERS_END();

  if (!zend_finite(latitude)) {
    zend_argument_value_error(2, "must be finite");
    RETURN_THROWS();
  }
  if (!zend_finite(longitude)) {
    zend_argument_value_error(3, "must be finite");
    RETURN_THROWS();
  }

  /* Initialize time struct */
  tzi = get_timezone_info();
  if (!tzi) {
    RETURN_THROWS();
  }
  t = timelib_time_ctor();
  t->tz_info = tzi;
  t->zone_type = TIMELIB_ZONETYPE_ID;
  timelib_unixtime2local(t, time);

  /* Setup */
  t2 = timelib_time_ctor();
  array_init(return_value);

  /* Get sun up/down and transit */
  rs = timelib_astro_rise_set_altitude(t, longitude, latitude, -35.0/60, 1, &ddummy, &ddummy, &rise, &set, &transit);
  switch (rs) {
    case -1: /* always below */
      add_assoc_bool(return_value, "sunrise", 0);
      add_assoc_bool(return_value, "sunset", 0);
      break;
    case 1: /* always above */
      add_assoc_bool(return_value, "sunrise", 1);
      add_assoc_bool(return_value, "sunset", 1);
      break;
    default:
      t2->sse = rise;
      add_assoc_long(return_value, "sunrise", timelib_date_to_int(t2, &dummy));
      t2->sse = set;
      add_assoc_long(return_value, "sunset", timelib_date_to_int(t2, &dummy));
  }
  t2->sse = transit;
  add_assoc_long(return_value, "transit", timelib_date_to_int(t2, &dummy));

  /* Get civil twilight */
  rs = timelib_astro_rise_set_altitude(t, longitude, latitude, -6.0, 0, &ddummy, &ddummy, &rise, &set, &transit);
  switch (rs) {
    case -1: /* always below */
      add_assoc_bool(return_value, "civil_twilight_begin", 0);
      add_assoc_bool(return_value, "civil_twilight_end", 0);
      break;
    case 1: /* always above */
      add_assoc_bool(return_value, "civil_twilight_begin", 1);
      add_assoc_bool(return_value, "civil_twilight_end", 1);
      break;
    default:
      t2->sse = rise;
      add_assoc_long(return_value, "civil_twilight_begin", timelib_date_to_int(t2, &dummy));
      t2->sse = set;
      add_assoc_long(return_value, "civil_twilight_end", timelib_date_to_int(t2, &dummy));
  }

  /* Get nautical twilight */
  rs = timelib_astro_rise_set_altitude(t, longitude, latitude, -12.0, 0, &ddummy, &ddummy, &rise, &set, &transit);
  switch (rs) {
    case -1: /* always below */
      add_assoc_bool(return_value, "nautical_twilight_begin", 0);
      add_assoc_bool(return_value, "nautical_twilight_end", 0);
      break;
    case 1: /* always above */
      add_assoc_bool(return_value, "nautical_twilight_begin", 1);
      add_assoc_bool(return_value, "nautical_twilight_end", 1);
      break;
    default:
      t2->sse = rise;
      add_assoc_long(return_value, "nautical_twilight_begin", timelib_date_to_int(t2, &dummy));
      t2->sse = set;
      add_assoc_long(return_value, "nautical_twilight_end", timelib_date_to_int(t2, &dummy));
  }

  /* Get astronomical twilight */
  rs = timelib_astro_rise_set_altitude(t, longitude, latitude, -18.0, 0, &ddummy, &ddummy, &rise, &set, &transit);
  switch (rs) {
    case -1: /* always below */
      add_assoc_bool(return_value, "astronomical_twilight_begin", 0);
      add_assoc_bool(return_value, "astronomical_twilight_end", 0);
      break;
    case 1: /* always above */
      add_assoc_bool(return_value, "astronomical_twilight_begin", 1);
      add_assoc_bool(return_value, "astronomical_twilight_end", 1);
      break;
    default:
      t2->sse = rise;
      add_assoc_long(return_value, "astronomical_twilight_begin", timelib_date_to_int(t2, &dummy));
      t2->sse = set;
      add_assoc_long(return_value, "astronomical_twilight_end", timelib_date_to_int(t2, &dummy));
  }
  timelib_time_dtor(t);
  timelib_time_dtor(t2);
}
/* }}} */

static HashTable *date_object_get_gc_period(zend_object *object, zval **table, int *n) /* {{{ */
{
  *table = NULL;
  *n = 0;
  return zend_std_get_properties(object);
} /* }}} */

static void date_period_object_to_hash(php_period_obj *period_obj, HashTable *props)
{
  zval zv;

  create_date_period_datetime(period_obj->start, period_obj->start_ce, &zv);
  zend_hash_str_update(props, "start", sizeof("start")-1, &zv);

  create_date_period_datetime(period_obj->current, period_obj->start_ce, &zv);
  zend_hash_str_update(props, "current", sizeof("current")-1, &zv);

  create_date_period_datetime(period_obj->end, period_obj->start_ce, &zv);
  zend_hash_str_update(props, "end", sizeof("end")-1, &zv);

  create_date_period_interval(period_obj->interval, &zv);
  zend_hash_str_update(props, "interval", sizeof("interval")-1, &zv);

  /* converted to larger type (int->long); must check when unserializing */
  ZVAL_LONG(&zv, (zend_long) period_obj->recurrences);
  zend_hash_str_update(props, "recurrences", sizeof("recurrences")-1, &zv);

  ZVAL_BOOL(&zv, period_obj->include_start_date);
  zend_hash_str_update(props, "include_start_date", sizeof("include_start_date")-1, &zv);

  ZVAL_BOOL(&zv, period_obj->include_end_date);
  zend_hash_str_update(props, "include_end_date", sizeof("include_end_date")-1, &zv);
}

static bool php_date_period_initialize_from_hash(php_period_obj *period_obj, const HashTable *myht) /* {{{ */
{
  zval *ht_entry;

  /* this function does no rollback on error */

  ht_entry = zend_hash_str_find(myht, "start", sizeof("start")-1);
  if (ht_entry) {
    if (Z_TYPE_P(ht_entry) == IS_OBJECT && instanceof_function(Z_OBJCE_P(ht_entry), date_ce_interface)) {
      php_date_obj *date_obj;
      date_obj = Z_PHPDATE_P(ht_entry);

      if (!date_obj->time) {
        return false;
      }

      if (period_obj->start != NULL) {
        timelib_time_dtor(period_obj->start);
      }
      period_obj->start = timelib_time_clone(date_obj->time);
      period_obj->start_ce = Z_OBJCE_P(ht_entry);
    } else if (Z_TYPE_P(ht_entry) != IS_NULL) {
      return false;
    }
  } else {
    return false;
  }

  ht_entry = zend_hash_str_find(myht, "end", sizeof("end")-1);
  if (ht_entry) {
    if (Z_TYPE_P(ht_entry) == IS_OBJECT && instanceof_function(Z_OBJCE_P(ht_entry), date_ce_interface)) {
      php_date_obj *date_obj;
      date_obj = Z_PHPDATE_P(ht_entry);

      if (!date_obj->time || !period_obj->start_ce) {
        return false;
      }

      if (period_obj->end != NULL) {
        timelib_time_dtor(period_obj->end);
      }
      period_obj->end = timelib_time_clone(date_obj->time);
    } else if (Z_TYPE_P(ht_entry) != IS_NULL) {
      return false;
    }
  } else {
    return false;
  }

  ht_entry = zend_hash_str_find(myht, "current", sizeof("current")-1);
  if (ht_entry) {
    if (Z_TYPE_P(ht_entry) == IS_OBJECT && instanceof_function(Z_OBJCE_P(ht_entry), date_ce_interface)) {
      php_date_obj *date_obj;
      date_obj = Z_PHPDATE_P(ht_entry);

      if (!date_obj->time || !period_obj->start_ce) {
        return false;
      }

      if (period_obj->current != NULL) {
        timelib_time_dtor(period_obj->current);
      }
      period_obj->current = timelib_time_clone(date_obj->time);
    } else if (Z_TYPE_P(ht_entry) != IS_NULL)  {
      return false;
    }
  } else {
    return false;
  }

  ht_entry = zend_hash_str_find(myht, "interval", sizeof("interval")-1);
  if (ht_entry) {
    if (Z_TYPE_P(ht_entry) == IS_OBJECT && Z_OBJCE_P(ht_entry) == date_ce_interval) {
      php_interval_obj *interval_obj;
      interval_obj = Z_PHPINTERVAL_P(ht_entry);

      if (!interval_obj->initialized) {
        return false;
      }

      if (period_obj->interval != NULL) {
        timelib_rel_time_dtor(period_obj->interval);
      }
      period_obj->interval = timelib_rel_time_clone(interval_obj->diff);
    } else { /* interval is required */
      return false;
    }
  } else {
    return false;
  }

  ht_entry = zend_hash_str_find(myht, "recurrences", sizeof("recurrences")-1);
  if (ht_entry &&
      Z_TYPE_P(ht_entry) == IS_LONG && Z_LVAL_P(ht_entry) >= 0 && Z_LVAL_P(ht_entry) <= INT_MAX) {
    period_obj->recurrences = Z_LVAL_P(ht_entry);
  } else {
    return false;
  }

  ht_entry = zend_hash_str_find(myht, "include_start_date", sizeof("include_start_date")-1);
  if (ht_entry &&
      (Z_TYPE_P(ht_entry) == IS_FALSE || Z_TYPE_P(ht_entry) == IS_TRUE)) {
    period_obj->include_start_date = (Z_TYPE_P(ht_entry) == IS_TRUE);
  } else {
    return false;
  }

  ht_entry = zend_hash_str_find(myht, "include_end_date", sizeof("include_end_date")-1);
  if (ht_entry &&
      (Z_TYPE_P(ht_entry) == IS_FALSE || Z_TYPE_P(ht_entry) == IS_TRUE)) {
    period_obj->include_end_date = (Z_TYPE_P(ht_entry) == IS_TRUE);
  } else {
    return false;
  }

  period_obj->initialized = true;

  return true;
} /* }}} */

/* {{{ */
PHP_METHOD(DatePeriod, __set_state)
{
  php_period_obj   *period_obj;
  HashTable        *myht;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_ARRAY_HT(myht)
  ZEND_PARSE_PARAMETERS_END();

  object_init_ex(return_value, date_ce_period);
  period_obj = Z_PHPPERIOD_P(return_value);
  if (!php_date_period_initialize_from_hash(period_obj, myht)) {
    zend_throw_error(NULL, "Invalid serialization data for DatePeriod object");
    RETURN_THROWS();
  }
}
/* }}} */

/* {{{ */
PHP_METHOD(DatePeriod, __serialize)
{
  zval             *object = ZEND_THIS;
  php_period_obj   *period_obj;
  HashTable        *myht;

  ZEND_PARSE_PARAMETERS_NONE();

  period_obj = Z_PHPPERIOD_P(object);
  DATE_CHECK_INITIALIZED(period_obj->start, Z_OBJCE_P(object));

  array_init(return_value);
  myht = Z_ARRVAL_P(return_value);
  date_period_object_to_hash(period_obj, myht);

  add_common_properties(myht, &period_obj->std);
}
/* }}} */

/* {{{ date_period_is_internal_property
 *  Common for date_period_read_property(), date_period_write_property(), and
 *  restore_custom_dateperiod_properties functions
 */
static bool date_period_is_internal_property(const zend_string *name)
{
  if (
    zend_string_equals_literal(name, "start") ||
    zend_string_equals_literal(name, "current") ||
    zend_string_equals_literal(name, "end") ||
    zend_string_equals_literal(name, "interval") ||
    zend_string_equals_literal(name, "recurrences") ||
    zend_string_equals_literal(name, "include_start_date") ||
    zend_string_equals_literal(name, "include_end_date")
  ) {
    return true;
  }
  return false;
}
/* }}} */

static void restore_custom_dateperiod_properties(zval *object, const HashTable *myht)
{
  zend_string      *prop_name;
  zval             *prop_val;

  ZEND_HASH_FOREACH_STR_KEY_VAL(myht, prop_name, prop_val) {
    if (!prop_name || (Z_TYPE_P(prop_val) == IS_REFERENCE) || date_period_is_internal_property(prop_name)) {
      continue;
    }
    update_property(Z_OBJ_P(object), prop_name, prop_val);
  } ZEND_HASH_FOREACH_END();
}

/* {{{ */
PHP_METHOD(DatePeriod, __unserialize)
{
  zval             *object = ZEND_THIS;
  php_period_obj   *period_obj;
  HashTable        *myht;

  ZEND_PARSE_PARAMETERS_START(1, 1)
    Z_PARAM_ARRAY_HT(myht)
  ZEND_PARSE_PARAMETERS_END();

  period_obj = Z_PHPPERIOD_P(object);

  if (!php_date_period_initialize_from_hash(period_obj, myht)) {
    zend_throw_error(NULL, "Invalid serialization data for DatePeriod object");
    RETURN_THROWS();
  }
  restore_custom_dateperiod_properties(object, myht);
}
/* }}} */

/* {{{ */
PHP_METHOD(DatePeriod, __wakeup)
{
  zval             *object = ZEND_THIS;
  php_period_obj   *period_obj;
  const HashTable  *myht;

  ZEND_PARSE_PARAMETERS_NONE();

  period_obj = Z_PHPPERIOD_P(object);

  myht = Z_OBJPROP_P(object);

  if (!php_date_period_initialize_from_hash(period_obj, myht)) {
    zend_throw_error(NULL, "Invalid serialization data for DatePeriod object");
    RETURN_THROWS();
  }

  restore_custom_dateperiod_properties(object, myht);
}
/* }}} */

static int date_period_has_property(zend_object *object, zend_string *name, int type, void **cache_slot)
{
  zval rv;
  zval *prop;

  if (!date_period_is_internal_property(name)) {
    return zend_std_has_property(object, name, type, cache_slot);
  }

  php_period_obj *period_obj = php_period_obj_from_obj(object);
  if (!period_obj->initialized) {
    switch (type) {
      case ZEND_PROPERTY_ISSET: /* Intentional fallthrough */
      case ZEND_PROPERTY_NOT_EMPTY:
        return 0;
      case ZEND_PROPERTY_EXISTS:
        return 1;
      default: ZEND_UNREACHABLE();
    }
  }

  if (type == ZEND_PROPERTY_EXISTS) {
    return 1;
  }

  prop = date_period_read_property(object, name, BP_VAR_IS, cache_slot, &rv);
  ZEND_ASSERT(prop != &EG(uninitialized_zval));

  bool result;

  if (type == ZEND_PROPERTY_NOT_EMPTY) {
    result = zend_is_true(prop);
  } else if (type == ZEND_PROPERTY_ISSET) {
    result = Z_TYPE_P(prop) != IS_NULL;
  } else {
    ZEND_UNREACHABLE();
  }

  zval_ptr_dtor(prop);

  return result;
}

/* {{{ date_period_read_property */
static zval *date_period_read_property(zend_object *object, zend_string *name, int type, void **cache_slot, zval *rv)
{
  if (date_period_is_internal_property(name)) {
    if (type == BP_VAR_IS || type == BP_VAR_R) {
      php_period_obj *period_obj = php_period_obj_from_obj(object);

      if (zend_string_equals_literal(name, "start")) {
        create_date_period_datetime(period_obj->start, period_obj->start_ce, rv);
        return rv;
      } else if (zend_string_equals_literal(name, "current")) {
        create_date_period_datetime(period_obj->current, period_obj->start_ce, rv);
        return rv;
      } else if (zend_string_equals_literal(name, "end")) {
        create_date_period_datetime(period_obj->end, period_obj->start_ce, rv);
        return rv;
      } else if (zend_string_equals_literal(name, "interval")) {
        create_date_period_interval(period_obj->interval, rv);
        return rv;
      } else if (zend_string_equals_literal(name, "recurrences")) {
        ZVAL_LONG(rv, period_obj->recurrences);
        return rv;
      } else if (zend_string_equals_literal(name, "include_start_date")) {
        ZVAL_BOOL(rv, period_obj->include_start_date);
        return rv;
      } else if (zend_string_equals_literal(name, "include_end_date")) {
        ZVAL_BOOL(rv, period_obj->include_end_date);
        return rv;
      }
    } else {
      zend_readonly_property_modification_error_ex("DatePeriod", ZSTR_VAL(name));
      return &EG(uninitialized_zval);
    }
  }

  return zend_std_read_property(object, name, type, cache_slot, rv);
}
/* }}} */

static zval *date_period_write_property(zend_object *object, zend_string *name, zval *value, void **cache_slot)
{
  if (date_period_is_internal_property(name)) {
    zend_readonly_property_modification_error_ex("DatePeriod", ZSTR_VAL(name));
    return value;
  }

  return zend_std_write_property(object, name, value, cache_slot);
}

static zval *date_period_get_property_ptr_ptr(zend_object *object, zend_string *name, int type, void **cache_slot)
{
  if (date_period_is_internal_property(name)) {
    zend_readonly_property_modification_error_ex("DatePeriod", ZSTR_VAL(name));
    return &EG(error_zval);
  }

  return zend_std_get_property_ptr_ptr(object, name, type, cache_slot);
}

static HashTable *date_period_get_properties_for(zend_object *object, zend_prop_purpose purpose)
{
  if (purpose == ZEND_PROP_PURPOSE_DEBUG) {
    if (object->ce->__debugInfo) {
      int is_temp = 0;
      HashTable *ht = zend_std_get_debug_info(object, &is_temp);
      if (ht && !is_temp) {
        GC_TRY_ADDREF(ht);
      }
      return ht;
    }
  }

  php_period_obj *period_obj = php_period_obj_from_obj(object);
  HashTable *props = zend_array_dup(zend_std_get_properties(object));
  if (!period_obj->initialized) {
    return props;
  }

  date_period_object_to_hash(period_obj, props);

  return props;
}

static void date_period_unset_property(zend_object *object, zend_string *name, void **cache_slot)
{
  if (date_period_is_internal_property(name)) {
    zend_throw_error(NULL, "Cannot unset %s::$%s", ZSTR_VAL(object->ce->name), ZSTR_VAL(name));
    return;
  }

  zend_std_unset_property(object, name, cache_slot);
}

Coverage Report

Created: 2026-10-28 06:20