<?php

/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4 foldmethod=marker: */

// LICENSE AGREEMENT. If folded, press za here to unfold and read license {{{ 

/**
* +-----------------------------------------------------------------------------+
* | Copyright (c) 2004-2006 Sergio Goncalves Carvalho                                |
* +-----------------------------------------------------------------------------+
* | This file is part of XML_RPC2.                                              |
* |                                                                             |
* | XML_RPC2 is free software; you can redistribute it and/or modify            |
* | it under the terms of the GNU Lesser General Public License as published by |
* | the Free Software Foundation; either version 2.1 of the License, or         |
* | (at your option) any later version.                                         |
* |                                                                             |
* | XML_RPC2 is distributed in the hope that it will be useful,                 |
* | but WITHOUT ANY WARRANTY; without even the implied warranty of              |
* | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               |
* | GNU Lesser General Public License for more details.                         |
* |                                                                             |
* | You should have received a copy of the GNU Lesser General Public License    |
* | along with XML_RPC2; if not, write to the Free Software                     |
* | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA                    |
* | 02111-1307 USA                                                              |
* +-----------------------------------------------------------------------------+
* | Author: Sergio Carvalho <sergio.carvalho@portugalmail.com>                  |
* +-----------------------------------------------------------------------------+
*
* @category   XML
* @package    XML_RPC2
* @author     Sergio Carvalho <sergio.carvalho@portugalmail.com>  
* @copyright  2004-2006 Sergio Carvalho
* @license    http://www.gnu.org/copyleft/lesser.html  LGPL License 2.1
* @version    CVS: $Id: Datetime.php,v 1.5 2006/01/22 01:57:00 fab Exp $
* @link       http://pear.php.net/package/XML_RPC2
*/

// }}}

// dependencies {{{
require_once 'XML/RPC2/Exception.php';
require_once 'XML/RPC2/Backend/Php/Value/Scalar.php';
// }}}

/**
 * XML_RPC datetime value class. Instances of this class represent datetime scalars in XML_RPC
 * 
 * To work on a compatible way with the xmlrpcext backend, we introduce a particular "nativeValue" which is
 * a standard class (stdclass) with three public properties :
 * scalar => the iso8601 date string
 * timestamp => the corresponding timestamp (int)
 * xmlrpc_type => 'datetime'
 * 
 * The constructor can be called with a iso8601 string, with a timestamp or with a such object 
 *  
 * @category   XML
 * @package    XML_RPC2
 * @author     Sergio Carvalho <sergio.carvalho@portugalmail.com>  
 * @copyright  2004-2006 Sergio Carvalho
 * @license    http://www.gnu.org/copyleft/lesser.html  LGPL License 2.1
 * @link       http://pear.php.net/package/XML_RPC2
 */
class XML_RPC2_Backend_Php_Value_Datetime extends XML_RPC2_Backend_Php_Value
{

    // {{{ constructor
    
    /**
     * Constructor. Will build a new XML_RPC2_Backend_Php_Value_Datetime with the given value
     * 
     * The provided value can be an int, which will be interpreted as a Unix timestamp, or 
     * a string in iso8601 format, or a "stdclass native value"  
     *
     * @param mixed $nativeValue a timestamp, an iso8601 date or a "stdclass native value" 
     * @see http://www.w3.org/TR/NOTE-datetime
     */
    public function __construct($nativeValue) 
    {
        if ((!is_int($nativeValue)) and (!is_float($nativeValue)) and (!is_string($nativeValue)) and (!is_object($nativeValue))) {
            throw new XML_RPC2_InvalidTypeException(sprintf('Cannot create XML_RPC2_Backend_Php_Value_Datetime from type \'%s\'.', gettype($nativeValue)));
        }
        if ((is_object($nativeValue)) &&(strtolower(get_class($nativeValue)) == 'stdclass') && (isset($nativeValue->xmlrpc_type))) {
            $scalar = $nativeValue->scalar;
            $timestamp = $nativeValue->timestamp;  
        } else {
	        if ((is_int($nativeValue)) or (is_float($nativeValue))) {
	            $scalar = XML_RPC2_Backend_Php_Value_Datetime::_timestampToIso8601($nativeValue);
	            $timestamp = (int) $nativeValue;
	        } elseif (is_string($nativeValue)) {
	            $scalar= $nativeValue;
	            $timestamp = (int) XML_RPC2_Backend_Php_Value_Datetime::_iso8601ToTimestamp($nativeValue);
	        } else {
                throw new XML_RPC2_InvalidTypeException(sprintf('Cannot create XML_RPC2_Backend_Php_Value_Datetime from type \'%s\'.', gettype($nativeValue)));
            }
        }
        $tmp              = new stdclass();
        $tmp->scalar      = $scalar;
        $tmp->timestamp   = $timestamp;
        $tmp->xmlrpc_type = 'datetime';
        $this->setNativeValue($tmp);
    }
    
    // }}}
    // {{{ _iso8601ToTimestamp()
    
    /**
     * Convert a iso8601 datetime string into timestamp
     * 
     * @param string $datetime iso8601 datetime
     * @return int corresponding timestamp
     */
    private static function _iso8601ToTimestamp($datetime)
    {
        if (!preg_match('/([0-9]{4})(-?([0-9]{2})(-?([0-9]{2})(T([0-9]{2}):([0-9]{2})(:([0-9]{2})(\.([0-9]+))?)?(Z|(([-+])([0-9]{2}):([0-9]{2})))?)?)?)?/', $datetime, $matches)) {
            throw new XML_RPC2_InvalidDateFormatException(sprintf('Provided date \'%s\' is not ISO-8601.', $datetime));
        }
        $year           = $matches[1];
        $month          = array_key_exists(3, $matches) ? $matches[3] : 1;
        $day            = array_key_exists(5, $matches) ? $matches[5] : 1;
        $hour           = array_key_exists(7, $matches) ? $matches[7] : 0;
        $minutes        = array_key_exists(8, $matches) ? $matches[8] : 0;
        $seconds        = array_key_exists(10, $matches) ? $matches[10] : 0;
        $milliseconds   = array_key_exists(12, $matches) ? ((double) ('0.' . $matches[12])) : 0;
        if (array_key_exists(13, $matches)) {
            if ($matches[13] == 'Z') {
                $tzSeconds = 0;                
            } else {
                $tmp = ($matches[15] == '-') ? -1 : 1;
                $tzSeconds = $tmp * (((int) $matches[16]) * 3600 + ((int) $matches[17]) * 60);
            }    
        } else {
            $tzSeconds = 0;
        }
        $result = ((double) @mktime($hour, $minutes, $seconds, $month, $day, $year, 0)) +
                  ((double) $milliseconds) -
                  ((double) $tzSeconds);
        if ($milliseconds==0) return ((int) $result);
        return $result;
    }     
    
    // }}}
    // {{{ _timestampToIso8601()
    
    /**
     * Convert a timestamp into an iso8601 datetime
     * 
     * @param int $timestamp timestamp
     * @return string iso8601 datetim
     */
    private static function _timestampToIso8601($timestamp)
    {
        return strftime('%Y%m%dT%H:%M:%S', (int) $timestamp);    
    }
     
    // }}}
    // {{{ decode()
    
    /**
     * Decode transport XML and set the instance value accordingly
     *
     * @param mixed The encoded XML-RPC value,
     */
    public static function decode($xml) 
    {
        // TODO Remove reparsing of XML fragment, when SimpleXML proves more solid. Currently it segfaults when
        // xpath is used both in an element and in one of its children
        $xml = simplexml_load_string($xml->asXML());
        $value = $xml->xpath('/value/dateTime.iso8601/text()');
        if (!array_key_exists(0, $value)) {
            $value = $xml->xpath('/value/text()');
        }
        // Emulate xmlrpcext results (to be able to switch from a backend to another)
        $result              = new stdclass();
        $result->scalar      = (string) $value[0];
        $result->timestamp   = (int) XML_RPC2_Backend_Php_Value_Datetime::_iso8601ToTimestamp((string) $value[0]);
        $result->xmlrpc_type = 'datetime';
        return $result;
    }
    
    // }}}
    // {{{ encode()
    
    /**
     * Encode the instance into XML, for transport
     * 
     * @return string The encoded XML-RPC value,
     */
    public function encode() 
    {
        $native = $this->getNativeValue();
        return '<dateTime.iso8601>' . $native->scalar . '</dateTime.iso8601>';
    }
    
    // }}}
    
}

?>
