<?php

/**

 * Zend Framework

 *

 * LICENSE

 *

 * This source file is subject to the new BSD license that is bundled

 * with this package in the file LICENSE.txt.

 * It is also available through the world-wide-web at this URL:

 * http://framework.zend.com/license/new-bsd

 * If you did not receive a copy of the license and are unable to

 * obtain it through the world-wide-web, please send an email

 * to license@zend.com so we can send you a copy immediately.

 *

 * @category   Zend

 * @package    Zend_Locale

 * @subpackage Format

 * @copyright  Copyright (c) 2005-2010 Zend Technologies USA Inc. (http://www.zend.com)

 * @version    $Id: Format.php 22808 2010-08-08 09:38:42Z thomas $

 * @license    http://framework.zend.com/license/new-bsd     New BSD License

 */

/**

 * include needed classes

 */

require_once 'Zend/Locale/Data.php';

/**

 * @category   Zend

 * @package    Zend_Locale

 * @subpackage Format

 * @copyright  Copyright (c) 2005-2010 Zend Technologies USA Inc. (http://www.zend.com)

 * @license    http://framework.zend.com/license/new-bsd     New BSD License

 */

class Zend_Locale_Format

{

    const STANDARD   = 'auto';

    private static $_options = array('date_format'   => null,

                                     'number_format' => null,

                                     'format_type'   => 'iso',

                                     'fix_date'      => false,

                                     'locale'        => null,

                                     'cache'         => null,

                                     'disableCache'  => false,

                                     'precision'     => null);

    /**

     * Sets class wide options, if no option was given, the actual set options will be returned

     * The 'precision' option of a value is used to truncate or stretch extra digits. -1 means not to touch the extra digits.

     * The 'locale' option helps when parsing numbers and dates using separators and month names.

     * The date format 'format_type' option selects between CLDR/ISO date format specifier tokens and PHP's date() tokens.

     * The 'fix_date' option enables or disables heuristics that attempt to correct invalid dates.

     * The 'number_format' option can be used to specify a default number format string

     * The 'date_format' option can be used to specify a default date format string, but beware of using getDate(),

     * checkDateFormat() and getTime() after using setOptions() with a 'format'.  To use these four methods

     * with the default date format for a locale, use array('date_format' => null, 'locale' => $locale) for their options.

     *

     * @param  array  $options  Array of options, keyed by option name: format_type = 'iso' | 'php', fix_date = true | false,

     *                          locale = Zend_Locale | locale string, precision = whole number between -1 and 30

     * @throws Zend_Locale_Exception

     * @return Options array if no option was given

     */

    public static function setOptions(array $options = array())

    {

        self::$_options = self::_checkOptions($options) + self::$_options;

        return self::$_options;

    }

    /**

     * Internal function for checking the options array of proper input values

     * See {@link setOptions()} for details.

     *

     * @param  array  $options  Array of options, keyed by option name: format_type = 'iso' | 'php', fix_date = true | false,

     *                          locale = Zend_Locale | locale string, precision = whole number between -1 and 30

     * @throws Zend_Locale_Exception

     * @return Options array if no option was given

     */

    private static function _checkOptions(array $options = array())

    {

        if (count($options) == 0) {

            return self::$_options;

        }

        foreach ($options as $name => $value) {

            $name  = strtolower($name);

            if ($name !== 'locale') {

                if (gettype($value) === 'string') {

                    $value = strtolower($value);

                }

            }

            switch($name) {

                case 'number_format' :

                    if ($value == Zend_Locale_Format::STANDARD) {

                        $locale = self::$_options['locale'];

                        if (isset($options['locale'])) {

                            $locale = $options['locale'];

                        }

                        $options['number_format'] = Zend_Locale_Data::getContent($locale, 'decimalnumber');

                    } else if ((gettype($value) !== 'string') and ($value !== NULL)) {

                        require_once 'Zend/Locale/Exception.php';

                        throw new Zend_Locale_Exception("Unknown number format type '" . gettype($value) . "'. "

                            . "Format '$value' must be a valid number format string.");

                    }

                    break;

                case 'date_format' :

                    if ($value == Zend_Locale_Format::STANDARD) {

                        $locale = self::$_options['locale'];

                        if (isset($options['locale'])) {

                            $locale = $options['locale'];

                        }

                        $options['date_format'] = Zend_Locale_Format::getDateFormat($locale);

                    } else if ((gettype($value) !== 'string') and ($value !== NULL)) {

                        require_once 'Zend/Locale/Exception.php';

                        throw new Zend_Locale_Exception("Unknown dateformat type '" . gettype($value) . "'. "

                            . "Format '$value' must be a valid ISO or PHP date format string.");

                    } else {

                        if (((isset($options['format_type']) === true) and ($options['format_type'] == 'php')) or

                            ((isset($options['format_type']) === false) and (self::$_options['format_type'] == 'php'))) {

                            $options['date_format'] = Zend_Locale_Format::convertPhpToIsoFormat($value);

                        }

                    }

                    break;

                case 'format_type' :

                    if (($value != 'php') && ($value != 'iso')) {

                        require_once 'Zend/Locale/Exception.php';

                        throw new Zend_Locale_Exception("Unknown date format type '$value'. Only 'iso' and 'php'"

                           . " are supported.");

                    }

                    break;

                case 'fix_date' :

                    if (($value !== true) && ($value !== false)) {

                        require_once 'Zend/Locale/Exception.php';

                        throw new Zend_Locale_Exception("Enabling correction of dates must be either true or false"

                            . "(fix_date='$value').");

                    }

                    break;

                case 'locale' :

                    $options['locale'] = Zend_Locale::findLocale($value);

                    break;

                case 'cache' :

                    if ($value instanceof Zend_Cache_Core) {

                        Zend_Locale_Data::setCache($value);

                    }

                    break;

                case 'disablecache' :

                    Zend_Locale_Data::disableCache($value);

                    break;

                case 'precision' :

                    if ($value === NULL) {

                        $value = -1;

                    }

                    if (($value < -1) || ($value > 30)) {

                        require_once 'Zend/Locale/Exception.php';

                        throw new Zend_Locale_Exception("'$value' precision is not a whole number less than 30.");

                    }

                    break;

                default:

                    require_once 'Zend/Locale/Exception.php';

                    throw new Zend_Locale_Exception("Unknown option: '$name' = '$value'");

                    break;

            }

        }

        return $options;

    }

    /**

     * Changes the numbers/digits within a given string from one script to another

     * 'Decimal' representated the stardard numbers 0-9, if a script does not exist

     * an exception will be thrown.

     *

     * Examples for conversion from Arabic to Latin numerals:

     *   convertNumerals('١١٠ Tests', 'Arab'); -> returns '100 Tests'

     * Example for conversion from Latin to Arabic numerals:

     *   convertNumerals('100 Tests', 'Latn', 'Arab'); -> returns '١١٠ Tests'

     *

     * @param  string  $input  String to convert

     * @param  string  $from   Script to parse, see {@link Zend_Locale::getScriptList()} for details.

     * @param  string  $to     OPTIONAL Script to convert to

     * @return string  Returns the converted input

     * @throws Zend_Locale_Exception

     */

    public static function convertNumerals($input, $from, $to = null)

    {

        if (!self::_getUniCodeSupport()) {

            trigger_error("Sorry, your PCRE extension does not support UTF8 which is needed for the I18N core", E_USER_NOTICE);

        }

        $from   = strtolower($from);

        $source = Zend_Locale_Data::getContent('en', 'numberingsystem', $from);

        if (empty($source)) {

            require_once 'Zend/Locale/Exception.php';

            throw new Zend_Locale_Exception("Unknown script '$from'. Use 'Latn' for digits 0,1,2,3,4,5,6,7,8,9.");

        }

        if ($to !== null) {

            $to     = strtolower($to);

            $target = Zend_Locale_Data::getContent('en', 'numberingsystem', $to);

            if (empty($target)) {

                require_once 'Zend/Locale/Exception.php';

                throw new Zend_Locale_Exception("Unknown script '$to'. Use 'Latn' for digits 0,1,2,3,4,5,6,7,8,9.");

            }

        } else {

            $target = '0123456789';

        }

        for ($x = 0; $x < 10; ++$x) {

            $asource[$x] = "/" . iconv_substr($source, $x, 1, 'UTF-8') . "/u";

            $atarget[$x] = iconv_substr($target, $x, 1, 'UTF-8');

        }

        return preg_replace($asource, $atarget, $input);

    }

    /**

     * Returns the normalized number from a localized one

     * Parsing depends on given locale (grouping and decimal)

     *

     * Examples for input:

     * '2345.4356,1234' = 23455456.1234

     * '+23,3452.123' = 233452.123

     * '12343 ' = 12343

     * '-9456' = -9456

     * '0' = 0

     *

     * @param  string $input    Input string to parse for numbers

     * @param  array  $options  Options: locale, precision. See {@link setOptions()} for details.

     * @return string Returns the extracted number

     * @throws Zend_Locale_Exception

     */

    public static function getNumber($input, array $options = array())

    {

        $options = self::_checkOptions($options) + self::$_options;

        if (!is_string($input)) {

            return $input;

        }

        if (!self::isNumber($input, $options)) {

            require_once 'Zend/Locale/Exception.php';

            throw new Zend_Locale_Exception('No localized value in ' . $input . ' found, or the given number does not match the localized format');

        }

        // Get correct signs for this locale

        $symbols = Zend_Locale_Data::getList($options['locale'],'symbols');

        // Change locale input to be default number

        if ((strpos($input, $symbols['minus']) !== false) ||

            (strpos($input, '-') !== false)) {

            $input = strtr($input, array($symbols['minus'] => '', '-' => ''));

            $input = '-' . $input;

        }

        $input = str_replace($symbols['group'],'', $input);

        if (strpos($input, $symbols['decimal']) !== false) {

            if ($symbols['decimal'] != '.') {

                $input = str_replace($symbols['decimal'], ".", $input);

            }

            $pre = substr($input, strpos($input, '.') + 1);

            if ($options['precision'] === null) {

                $options['precision'] = strlen($pre);

            }

            if (strlen($pre) >= $options['precision']) {

                $input = substr($input, 0, strlen($input) - strlen($pre) + $options['precision']);

            }

            if (($options['precision'] == 0) && ($input[strlen($input) - 1] == '.')) {

                $input = substr($input, 0, -1);

            }

        }

        return $input;

    }

    /**

     * Returns a locale formatted number depending on the given options.

     * The seperation and fraction sign is used from the set locale.

     * ##0.#  -> 12345.12345 -> 12345.12345

     * ##0.00 -> 12345.12345 -> 12345.12

     * ##,##0.00 -> 12345.12345 -> 12,345.12

     *

     * @param   string  $input    Localized number string

     * @param   array   $options  Options: number_format, locale, precision. See {@link setOptions()} for details.

     * @return  string  locale formatted number

     * @throws Zend_Locale_Exception

     */

    public static function toNumber($value, array $options = array())

    {

        // load class within method for speed

        require_once 'Zend/Locale/Math.php';

        $value             = Zend_Locale_Math::normalize($value);

        $value             = Zend_Locale_Math::floatalize($value);

        $options           = self::_checkOptions($options) + self::$_options;

        $options['locale'] = (string) $options['locale'];

        // Get correct signs for this locale

        $symbols = Zend_Locale_Data::getList($options['locale'], 'symbols');

        $oenc = iconv_get_encoding('internal_encoding');

        iconv_set_encoding('internal_encoding', 'UTF-8');

        // Get format

        $format = $options['number_format'];

        if ($format === null) {

            $format  = Zend_Locale_Data::getContent($options['locale'], 'decimalnumber');

            $format  = self::_seperateFormat($format, $value, $options['precision']);

            if ($options['precision'] !== null) {

                $value   = Zend_Locale_Math::normalize(Zend_Locale_Math::round($value, $options['precision']));

            }

        } else {

            // seperate negative format pattern when available

            $format  = self::_seperateFormat($format, $value, $options['precision']);

            if (strpos($format, '.')) {

                if (is_numeric($options['precision'])) {

                    $value = Zend_Locale_Math::round($value, $options['precision']);

                } else {

                    if (substr($format, iconv_strpos($format, '.') + 1, 3) == '###') {

                        $options['precision'] = null;

                    } else {

                        $options['precision'] = iconv_strlen(iconv_substr($format, iconv_strpos($format, '.') + 1,

                                                             iconv_strrpos($format, '0') - iconv_strpos($format, '.')));

                        $format = iconv_substr($format, 0, iconv_strpos($format, '.') + 1) . '###'

                                . iconv_substr($format, iconv_strrpos($format, '0') + 1);

                    }

                }

            } else {

                $value = Zend_Locale_Math::round($value, 0);

                $options['precision'] = 0;

            }

            $value = Zend_Locale_Math::normalize($value);

        }

        if (iconv_strpos($format, '0') === false) {

            iconv_set_encoding('internal_encoding', $oenc);

            require_once 'Zend/Locale/Exception.php';

            throw new Zend_Locale_Exception('Wrong format... missing 0');

        }

        // get number parts

        $pos = iconv_strpos($value, '.');

        if ($pos !== false) {

            if ($options['precision'] === null) {

                $precstr = iconv_substr($value, $pos + 1);

            } else {

                $precstr = iconv_substr($value, $pos + 1, $options['precision']);

                if (iconv_strlen($precstr) < $options['precision']) {

                    $precstr = $precstr . str_pad("0", ($options['precision'] - iconv_strlen($precstr)), "0");

                }

            }

        } else {

            if ($options['precision'] > 0) {

                $precstr = str_pad("0", ($options['precision']), "0");

            }

        }

        if ($options['precision'] === null) {

            if (isset($precstr)) {

                $options['precision'] = iconv_strlen($precstr);

            } else {

                $options['precision'] = 0;

            }

        }

        // get fraction and format lengths

        if (strpos($value, '.') !== false) {

            $number = substr((string) $value, 0, strpos($value, '.'));

        } else {

            $number = $value;

        }

        $prec = call_user_func(Zend_Locale_Math::$sub, $value, $number, $options['precision']);

        $prec = Zend_Locale_Math::floatalize($prec);

        $prec = Zend_Locale_Math::normalize($prec);

        if (iconv_strpos($prec, '-') !== false) {

            $prec = iconv_substr($prec, 1);

        }

        if (($prec == 0) and ($options['precision'] > 0)) {

            $prec = "0.0";

        }

        if (($options['precision'] + 2) > iconv_strlen($prec)) {

            $prec = str_pad((string) $prec, $options['precision'] + 2, "0", STR_PAD_RIGHT);

        }

        if (iconv_strpos($number, '-') !== false) {

            $number = iconv_substr($number, 1);

        }

        $group  = iconv_strrpos($format, ',');

        $group2 = iconv_strpos ($format, ',');

        $point  = iconv_strpos ($format, '0');

        // Add fraction

        $rest = "";

        if (iconv_strpos($format, '.')) {