<?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 Data

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

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

 * @version    $Id$

 */

/**

 * include needed classes

 */

require_once 'Zend/Locale.php';

/** @see Zend_Xml_Security */

require_once 'Zend/Xml/Security.php';

/**

 * Locale data reader, handles the CLDR

 *

 * @category   Zend

 * @package    Zend_Locale

 * @subpackage Data

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

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

 */

class Zend_Locale_Data

{

    /**

     * Locale files

     *

     * @var array

     */

    private static $_ldml = array();

    /**

     * List of values which are collected

     *

     * @var array

     */

    private static $_list = array();

    /**

     * Internal cache for ldml values

     *

     * @var Zend_Cache_Core

     */

    private static $_cache = null;

    /**

     * Internal value to remember if cache supports tags

     *

     * @var boolean

     */

    private static $_cacheTags = false;

    /**

     * Internal option, cache disabled

     *

     * @var boolean

     */

    private static $_cacheDisabled = false;

    /**

     * Read the content from locale

     *

     * Can be called like:

     * <ldml>

     *     <delimiter>test</delimiter>

     *     <second type='myone'>content</second>

     *     <second type='mysecond'>content2</second>

     *     <third type='mythird' />

     * </ldml>

     *

     * Case 1: _readFile('ar','/ldml/delimiter')             -> returns [] = test

     * Case 1: _readFile('ar','/ldml/second[@type=myone]')   -> returns [] = content

     * Case 2: _readFile('ar','/ldml/second','type')         -> returns [myone] = content; [mysecond] = content2

     * Case 3: _readFile('ar','/ldml/delimiter',,'right')    -> returns [right] = test

     * Case 4: _readFile('ar','/ldml/third','type','myone')  -> returns [myone] = mythird

     *

     * @param  string $locale

     * @param  string $path

     * @param  string $attribute

     * @param  string $value

     * @access private

     * @return array

     */

    private static function _readFile($locale, $path, $attribute, $value, $temp)

    {

        // without attribute - read all values

        // with attribute    - read only this value

        if (!empty(self::$_ldml[(string) $locale])) {

            $result = self::$_ldml[(string) $locale]->xpath($path);

            if (!empty($result)) {

                foreach ($result as &$found) {

                    if (empty($value)) {

                        if (empty($attribute)) {

                            // Case 1

                            $temp[] = (string) $found;

                        } else if (empty($temp[(string) $found[$attribute]])){

                            // Case 2

                            $temp[(string) $found[$attribute]] = (string) $found;

                        }

                    } else if (empty ($temp[$value])) {

                        if (empty($attribute)) {

                            // Case 3

                            $temp[$value] = (string) $found;

                        } else {

                            // Case 4

                            $temp[$value] = (string) $found[$attribute];

                        }

                    }

                }

            }

        }

        return $temp;

    }

    /**

     * Find possible routing to other path or locale

     *

     * @param  string $locale

     * @param  string $path

     * @param  string $attribute

     * @param  string $value

     * @param  array  $temp

     * @return bool

     * @throws Zend_Locale_Exception

     */

    private static function _findRoute($locale, $path, $attribute, $value, &$temp)

    {

        // load locale file if not already in cache

        // needed for alias tag when referring to other locale

        if (empty(self::$_ldml[(string) $locale])) {

            $filename = dirname(__FILE__) . '/Data/' . $locale . '.xml';

            if (!file_exists($filename)) {

                require_once 'Zend/Locale/Exception.php';

                throw new Zend_Locale_Exception("Missing locale file '$filename' for '$locale' locale.");

            }

            self::$_ldml[(string) $locale] = Zend_Xml_Security::scanFile($filename);

        }

        // search for 'alias' tag in the search path for redirection

        $search = '';

        $tok = strtok($path, '/');

        // parse the complete path

        if (!empty(self::$_ldml[(string) $locale])) {

            while ($tok !== false) {

                $search .=  '/' . $tok;

                if (strpos($search, '[@') !== false) {

                    while (strrpos($search, '[@') > strrpos($search, ']')) {

                        $tok = strtok('/');

                        if (empty($tok)) {

                            $search .= '/';

                        }

                        $search = $search . '/' . $tok;

                    }

                }

                $result = self::$_ldml[(string) $locale]->xpath($search . '/alias');

                // alias found

                if (!empty($result)) {

                    $source = $result[0]['source'];

                    $newpath = $result[0]['path'];

                    // new path - path //ldml is to ignore

                    if ($newpath != '//ldml') {

                        // other path - parse to make real path

                        while (substr($newpath,0,3) == '../') {

                            $newpath = substr($newpath, 3);

                            $search = substr($search, 0, strrpos($search, '/'));

                        }

                        // truncate ../ to realpath otherwise problems with alias

                        $path = $search . '/' . $newpath;

                        while (($tok = strtok('/'))!== false) {

                            $path = $path . '/' . $tok;

                        }

                    }

                    // reroute to other locale

                    if ($source != 'locale') {

                        $locale = $source;

                    }

                    $temp = self::_getFile($locale, $path, $attribute, $value, $temp);

                    return false;

                }

                $tok = strtok('/');

            }

        }

        return true;

    }

    /**

     * Read the right LDML file

     *

     * @param  string      $locale

     * @param  string      $path

     * @param  string|bool $attribute

     * @param  string|bool $value

     * @param  array       $temp

     * @return array

     * @throws Zend_Locale_Exception

     */

    private static function _getFile($locale, $path, $attribute = false, $value = false, $temp = array())

    {

        $result = self::_findRoute($locale, $path, $attribute, $value, $temp);

        if ($result) {

            $temp = self::_readFile($locale, $path, $attribute, $value, $temp);

        }

        // parse required locales reversive

        // example: when given zh_Hans_CN

        // 1. -> zh_Hans_CN

        // 2. -> zh_Hans

        // 3. -> zh

        // 4. -> root

        if (($locale != 'root') && ($result)) {

            $locale = substr($locale, 0, -strlen(strrchr($locale, '_')));

            if (!empty($locale)) {

                $temp = self::_getFile($locale, $path, $attribute, $value, $temp);

            } else {

                $temp = self::_getFile('root', $path, $attribute, $value, $temp);

            }

        }

        return $temp;

    }

    /**

     * Find the details for supplemental calendar datas

     *

     * @param  string $locale Locale for Detaildata

     * @param  array  $list   List to search

     * @return string         Key for Detaildata

     */

    private static function _calendarDetail($locale, $list)

    {

        $ret = "001";

        foreach ($list as $key => $value) {

            if (strpos($locale, '_') !== false) {

                $locale = substr($locale, strpos($locale, '_') + 1);

            }

            if (strpos($key, $locale) !== false) {

                $ret = $key;

                break;

            }

        }

        return $ret;

    }

    /**

     * Internal function for checking the locale

     *

     * @param  string|Zend_Locale $locale Locale to check

     * @return string

     * @throws Zend_Locale_Exception

     */

    private static function _checkLocale($locale)

    {

        if (empty($locale)) {

            $locale = new Zend_Locale();

        }

        if (!(Zend_Locale::isLocale((string) $locale, null, false))) {

            require_once 'Zend/Locale/Exception.php';

            throw new Zend_Locale_Exception("Locale (" . (string) $locale . ") is a unknown locale");

        }

        if (Zend_Locale::isAlias($locale)) {

            // Return a valid CLDR locale so that the XML file can be loaded.

            return Zend_Locale::getAlias($locale);

        }

        return (string) $locale;

    }

    /**

     * Read the LDML file, get a array of multipath defined value

     *

     * @param  string      $locale

     * @param  string      $path

     * @param  bool|string $value

     * @return array

     * @throws Zend_Locale_Exception

     */

    public static function getList($locale, $path, $value = false)

    {

        $locale = self::_checkLocale($locale);

        if (!isset(self::$_cache) && !self::$_cacheDisabled) {

            require_once 'Zend/Cache.php';

            self::$_cache = Zend_Cache::factory(

                'Core',

                'File',

                array('automatic_serialization' => true),

                array());

        }

        $val = $value;

        if (is_array($value)) {

            $val = implode('_' , $value);

        }

        $val = urlencode($val);

        $id  = self::_filterCacheId('Zend_LocaleL_' . $locale . '_' . $path . '_' . $val);

        if (!self::$_cacheDisabled && ($result = self::$_cache->load($id))) {

            return unserialize($result);

        }

        $temp = array();

        switch(strtolower($path)) {

            case 'language':

                $temp = self::_getFile($locale, '/ldml/localeDisplayNames/languages/language', 'type');

                break;

            case 'script':

                $temp = self::_getFile($locale, '/ldml/localeDisplayNames/scripts/script', 'type');

                break;

            case 'territory':

                $temp = self::_getFile($locale, '/ldml/localeDisplayNames/territories/territory', 'type');

                if ($value === 1) {

                    foreach($temp as $key => $value) {

                        if ((is_numeric($key) === false) and ($key != 'QO') and ($key != 'EU')) {

                            unset($temp[$key]);

                        }

                    }

                } else if ($value === 2) {

                    foreach($temp as $key => $value) {

                        if (is_numeric($key) or ($key == 'QO') or ($key == 'EU')) {

                            unset($temp[$key]);

                        }

                    }

                }

                break;

            case 'variant':

                $temp = self::_getFile($locale, '/ldml/localeDisplayNames/variants/variant', 'type');

                break;

            case 'key':

                $temp = self::_getFile($locale, '/ldml/localeDisplayNames/keys/key', 'type');

                break;

            case 'type':

                if (empty($value)) {

                    $temp = self::_getFile($locale, '/ldml/localeDisplayNames/types/type', 'type');

                } else {

                    if (($value == 'calendar') or

                        ($value == 'collation') or

                        ($value == 'currency')) {

                        $temp = self::_getFile($locale, '/ldml/localeDisplayNames/types/type[@key=\'' . $value . '\']', 'type');

                    } else {

                        $temp = self::_getFile($locale, '/ldml/localeDisplayNames/types/type[@type=\'' . $value . '\']', 'type');

                    }

                }

                break;

            case 'layout':

                $temp  = self::_getFile($locale, '/ldml/layout/orientation/characterOrder', '', 'characterOrder');

                $temp += self::_getFile($locale, '/ldml/layout/orientation/lineOrder', '', 'lineOrder');

                break;

            case 'contexttransform':

                if (empty($value)) {

                    $value = 'uiListOrMenu';

                }

                $temp = self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'languages\']/contextTransform[@type=\''.$value.'\']', '', 'languages');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'day-format-except-narrow\']/contextTransform[@type=\''.$value.'\']', '', 'day-format-except-narrow');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'day-standalone-except-narrow\']/contextTransform[@type=\''.$value.'\']', '', 'day-standalone-except-narrow');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'day-narrow\']/contextTransform[@type=\''.$value.'\']', '', 'day-narrow');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'month-format-except-narrow\']/contextTransform[@type=\''.$value.'\']', '', 'month-format-except-narrow');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'month-standalone-except-narrow\']/contextTransform[@type=\''.$value.'\']', '', 'month-standalone-except-narrow');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'month-narrow\']/contextTransform[@type=\''.$value.'\']', '', 'month-narrow');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'script\']/contextTransform[@type=\''.$value.'\']', '', 'script');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'territory\']/contextTransform[@type=\''.$value.'\']', '', 'territory');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'variant\']/contextTransform[@type=\''.$value.'\']', '', 'variant');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'key\']/contextTransform[@type=\''.$value.'\']', '', 'key');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'type\']/contextTransform[@type=\''.$value.'\']', '', 'type');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'era-name\']/contextTransform[@type=\''.$value.'\']', '', 'era-name');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'era-abbr\']/contextTransform[@type=\''.$value.'\']', '', 'era-abbr');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'era-narrow\']/contextTransform[@type=\''.$value.'\']', '', 'era-narrow');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'quater-format-wide\']/contextTransform[@type=\''.$value.'\']', '', 'quater-format-wide');

                $temp += self::_getFile($locale, '/ldml/contextTransforms/contextTransformUsage[@type=\'quater-standalone-wide\']/contextTransform[@type=\''.$value.'\']', '', 'quater-standalone-wide');