\tickylang

<?php

namespace ticky;

class lang {

    /**
     * @var array 语言数据
     */
    private static $tlang = [];

    /**
     * @var string 语言作用域
     */
    private static $range = 'zh-cn';

    /**
     * @var string 语言自动侦测的变量
     */
    protected static $tlangDetectVar = 'lang';

    /**
     * @var string 语言 Cookie 变量
     */
    protected static $tlangCookieVar = 'ticky_var';

    /**
     * @var int 语言 Cookie 的过期时间
     */
    protected static $tlangCookieExpire = 3600;

    /**
     * @var array 允许语言列表
     */
    protected static $allowLangList = [];

    /**
     * @var array Accept-Language 转义为对应语言包名称 系统默认配置
     */
    protected static $acceptLanguage = ['zh-hans-cn' => 'zh-cn'];

    /**
     * 设定当前的语言
     * @access public
     * @param  string $range 语言作用域
     * @return string
     */
    public static function range($range = '') {
        if ($range) {
            self::$range = $range;
        }

        return self::$range;
    }

    /**
     * 设置语言定义(不区分大小写)
     * @access public
     * @param  string|array  $name  语言变量
     * @param  string        $value 语言值
     * @param  string        $range 语言作用域
     * @return mixed
     */
    public static function set($name, $value = null, $range = '') {
        $range = $range ?: self::$range;

        if (!isset(self::$tlang[$range])) {
            self::$tlang[$range] = [];
        }

        if (is_array($name)) {
            return self::$tlang[$range] = array_change_key_case($name) + self::$tlang[$range];
        }

        return self::$tlang[$range][strtolower($name)] = $value;
    }

    /**
     * 加载语言定义(不区分大小写)
     * @access public
     * @param  array|string $file 语言文件
     * @param  string $range      语言作用域
     * @return mixed
     */
    public static function load($file, $range = '') {
        $range = $range ?: self::$range;
        $file = is_string($file) ? [$file] : $file;

        if (!isset(self::$tlang[$range])) {
            self::$tlang[$range] = [];
        }
        $tlang = [];
        foreach ($file as $_file) {

            if (is_file($_file)) {
                $_lang = include $_file;
                if (is_array($_lang)) {
                    $tlang = array_change_key_case($_lang) + $tlang;
                }
            }
        }

        if (!empty($tlang)) {
            self::$tlang[$range] = $tlang + self::$tlang[$range];
        }

        return self::$tlang[$range];
    }

    /**
     * 获取语言定义(不区分大小写)
     * @access public
     * @param  string|null $name  语言变量
     * @param  string      $range 语言作用域
     * @return mixed
     */
    public static function has($name, $range = '') {
        $range = $range ?: self::$range;

        return isset(self::$tlang[$range][strtolower($name)]);
    }

    /**
     * 获取语言定义(不区分大小写)
     * @access public
     * @param  string|null $name  语言变量
     * @param  array       $vars  变量替换
     * @param  string      $range 语言作用域
     * @return mixed
     */
    public static function get($name = null, $vars = [], $range = '') {
        $range = $range ?: self::$range;

        // 空参数返回所有定义
        if (empty($name)) {
            return self::$tlang[$range];
        }

        $key = strtolower($name);
        $value = isset(self::$tlang[$range][$key]) ? self::$tlang[$range][$key] : $name;

        // 变量解析
        if (!empty($vars) && is_array($vars)) {
            /**
             * Notes:
             * 为了检测的方便，数字索引的判断仅仅是参数数组的第一个元素的key为数字0
             * 数字索引采用的是系统的 sprintf 函数替换，用法请参考 sprintf 函数
             */
            if (key($vars) === 0) {
                // 数字索引解析
                array_unshift($vars, $value);
                $value = call_user_func_array('sprintf', $vars);
            } else {
                // 关联索引解析
                $replace = array_keys($vars);
                foreach ($replace as &$v) {
                    $v = "{:{$v}}";
                }
                $value = str_replace($replace, $vars, $value);
            }
        }

        return $value;
    }

    /**
     * 自动侦测设置获取语言选择
     * @access public
     * @return string
     */
    public static function detect() {
        $tlangSet = '';

        if (isset($_GET[self::$tlangDetectVar])) {
            // url 中设置了语言变量
            $tlangSet = strtolower($_GET[self::$tlangDetectVar]);
        } elseif (isset($_COOKIE[self::$tlangCookieVar])) {
            // Cookie 中设置了语言变量
            $tlangSet = strtolower($_COOKIE[self::$tlangCookieVar]);
        } elseif (isset($_SERVER['HTTP_ACCEPT_LANGUAGE'])) {
            // 自动侦测浏览器语言
            preg_match('/^([a-z\d\-]+)/i', $_SERVER['HTTP_ACCEPT_LANGUAGE'], $matches);
            $tlangSet = strtolower($matches[1]);
            $acceptLangs = Config::get('header_accept_lang');

            if (isset($acceptLangs[$tlangSet])) {
                $tlangSet = $acceptLangs[$tlangSet];
            } elseif (isset(self::$acceptLanguage[$tlangSet])) {
                $tlangSet = self::$acceptLanguage[$tlangSet];
            }
        }

        // 合法的语言
        if (empty(self::$allowLangList) || in_array($tlangSet, self::$allowLangList)) {
            self::$range = $tlangSet ?: self::$range;
        }

        return self::$range;
    }

    /**
     * 设置语言自动侦测的变量
     * @access public
     * @param  string $var 变量名称
     * @return void
     */
    public static function setLangDetectVar($var) {
        self::$tlangDetectVar = $var;
    }

    /**
     * 设置语言的 cookie 保存变量
     * @access public
     * @param  string $var 变量名称
     * @return void
     */
    public static function setLangCookieVar($var) {
        self::$tlangCookieVar = $var;
    }

    /**
     * 设置语言的 cookie 的过期时间
     * @access public
     * @param  string $expire 过期时间
     * @return void
     */
    public static function setLangCookieExpire($expire) {
        self::$tlangCookieExpire = $expire;
    }

    /**
     * 设置允许的语言列表
     * @access public
     * @param  array $list 语言列表
     * @return void
     */
    public static function setAllowLangList($list) {
        self::$allowLangList = $list;
    }

}