<?php defined("SYSPATH") or die("No direct script access.");
/**
 * Gallery - a web based photo album viewer and editor
 * Copyright (C) 2000-2009 Bharat Mediratta
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or (at
 * your option) any later version.
 *
 * This program 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
 * General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA  02110-1301, USA.
 */

/**
 * This is the API for handling locales.
 */
class locales_Core {
  private static $locales;
  private static $language_subtag_to_locale;

  /**
   * Return the list of available locales.
   */
  static function available() {
    if (empty(self::$locales)) {
      self::_init_language_data();
    }

    return self::$locales;
  }

  static function installed() {
    $available = self::available();
    $default = module::get_var("gallery", "default_locale");
    $codes = explode("|", module::get_var("gallery", "installed_locales", $default));
    foreach ($codes as $code) {
      if (isset($available->$code)) {
        $installed[$code] = $available[$code];
      }
    }
    return $installed;
  }

  static function update_installed($locales) {
    // Ensure that the default is included...
    $default = module::get_var("gallery", "default_locale");
    $locales = in_array($default, $locales)
      ? $locales
      : array_merge($locales, array($default));

    module::set_var("gallery", "installed_locales", join("|", $locales));

    // Clear the cache
    self::$locales = null;
  }

  // @todo Might want to add a localizable language name as well.
  private static function _init_language_data() {
    $l["af_ZA"] = "Afrikaans";                            // Afrikaans
    $l["ar_SA"] = "&#1575;&#1604;&#1593;&#1585;&#1576;&#1610;&#1577;"; // Arabic
    $l["be_BY"] = "&#1041;&#1077;&#1083;&#1072;&#1088;&#1091;&#1089;&#1082;&#1110;"; // Belarusian
    $l["bg_BG"] = "&#x0411;&#x044a;&#x043b;&#x0433;&#x0430;&#x0440;&#x0441;&#x043a;&#x0438;"; // Bulgarian
    $l["ca_ES"] = "Catalan";                              // Catalan
    $l["cs_CZ"] = "&#x010c;esky";                         // Czech
    $l["da_DK"] = "Dansk";                                // Danish
    $l["de_DE"] = "Deutsch";                              // German
    $l["el_GR"] = "Greek";                                // Greek
    $l["en_GB"] = "English (UK)";                         // English (UK)
    $l["en_US"] = "English (US)";                         // English (US)
    $l["es_AR"] = "Espa&#241;ol (AR)";                    // Spanish (AR)
    $l["es_ES"] = "Espa&#241;ol";                         // Spanish (ES)
    $l["es_MX"] = "Espa&#241;ol (MX)";                    // Spanish (MX)
    $l["et_EE"] = "Eesti";                                // Estonian
    $l["eu_ES"] = "Euskara";                              // Basque
    $l["fa_IR"] = "&#1601;&#1575;&#1585;&#1587;&#1610;";  // Farsi
    $l["fi_FI"] = "Suomi";                                // Finnish
    $l["fr_FR"] = "Fran&#231;ais";                        // French
    $l["ga_IE"] = "Gaeilge";                              // Irish
    $l["he_IL"] = "&#1506;&#1489;&#1512;&#1497;&#1514;";  // Hebrew
    $l["hu_HU"] = "Magyar";                               // Hungarian
    $l["is_IS"] = "Icelandic";                            // Icelandic
    $l["it_IT"] = "Italiano";                             // Italian
    $l["ja_JP"] = "&#x65e5;&#x672c;&#x8a9e;";             // Japanese
    $l["ko_KR"] = "&#xd55c;&#xad6d;&#xb9d0;";             // Korean
    $l["lt_LT"] = "Lietuvi&#371;";                        // Lithuanian
    $l["lv_LV"] = "Latvie&#353;u";                        // Latvian
    $l["nl_NL"] = "Nederlands";                           // Dutch
    $l["no_NO"] = "Norsk bokm&#229;l";                    // Norwegian
    $l["pl_PL"] = "Polski";                               // Polish
    $l["pt_BR"] = "Portugu&#234;s Brasileiro";            // Portuguese (BR)
    $l["pt_PT"] = "Portugu&#234;s";                       // Portuguese (PT)
    $l["ro_RO"] = "Rom&#226;n&#259;";                     // Romanian
    $l["ru_RU"] = "&#1056;&#1091;&#1089;&#1089;&#1082;&#1080;&#1081;"; // Russian
    $l["sk_SK"] = "Sloven&#269;ina";                      // Slovak
    $l["sl_SI"] = "Sloven&#353;&#269;ina";                // Slovenian
    $l["sr_CS"] = "Srpski";                               // Serbian
    $l["sv_SE"] = "Svenska";                              // Swedish
    $l["tr_TR"] = "T&#252;rk&#231;e";                     // Turkish
    $l["uk_UA"] = "Ð£ÐºÑÐ°ÑÐ½ÑÑÐºÐ°";     // Ukrainian
    $l["vi_VN"] = "Ti&#7871;ng Vi&#7879;t";               // Vietnamese
    $l["zh_CN"] = "&#31616;&#20307;&#20013;&#25991;";     // Chinese (CN)
    $l["zh_TW"] = "&#32321;&#39636;&#20013;&#25991;";     // Chinese (TW)
    asort($l, SORT_LOCALE_STRING);
    self::$locales = $l;

    // Language subtag to (default) locale mapping
    foreach ($l as $locale => $name) {
      list ($language) = explode("_", $locale . "_");
      // The first one mentioned is the default
      if (!isset($d[$language])) {
        $d[$language] = $locale;
      }
    }
    self::$language_subtag_to_locale = $d;
  }

  static function display_name($locale=null) {
    if (empty(self::$locales)) {
      self::_init_language_data();
    }
    $locale or $locale = I18n::instance()->locale();

    return self::$locales["$locale"];
  }

  static function is_rtl($locale=null) {
    $locale or $locale = I18n::instance()->locale();
    list ($language, $territory) = explode('_', $locale . "_");
    return in_array($language, array("he", "fa", "ar"));
  }

  /**
   * Returns the best match comparing the HTTP accept-language header
   * with the installed locales.
   * @todo replace this with request::accepts_language() when we upgrade to Kohana 2.4
   */
  static function locale_from_http_request() {
    $http_accept_language = Input::instance()->server("HTTP_ACCEPT_LANGUAGE");
    if ($http_accept_language) {
      // Parse the HTTP header and build a preference list
      // Example value: "de,en-us;q=0.7,en-uk,fr-fr;q=0.2"
      $locale_preferences = array();
      foreach (explode(",", $http_accept_language) as $code) {
        list ($requested_locale, $qvalue) = explode(";", $code . ";");
        $requested_locale = trim($requested_locale);
        $qvalue = trim($qvalue);
        if (preg_match("/^([a-z]{2,3})(?:[_-]([a-zA-Z]{2}))?/", $requested_locale, $matches)) {
          $requested_locale = strtolower($matches[1]);
          if (!empty($matches[2])) {
            $requested_locale .= "_" . strtoupper($matches[2]);
          }
          $requested_locale = trim(str_replace("-", "_", $requested_locale));
          if (!strlen($qvalue)) {
            // If not specified, default to 1.
            $qvalue = 1;
          } else {
            // qvalue is expected to be something like "q=0.7"
            list ($ignored, $qvalue) = explode("=", $qvalue . "==");
            $qvalue = floatval($qvalue);
          }
          // Group by language to boost inexact same-language matches
          list ($language) = explode("_", $requested_locale . "_");
          if (!isset($locale_preferences[$language])) {
            $locale_preferences[$language] = array();
          }
          $locale_preferences[$language][$requested_locale] = $qvalue;
        }
      }

      // Compare and score requested locales with installed ones
      $scored_locales = array();
      foreach ($locale_preferences as $language => $requested_locales) {
        // Inexact match adjustment (same language, different region)
        $fallback_adjustment_factor = 0.95;
        if (count($requested_locales) > 1) {
          // Sort by qvalue, descending
          $qvalues = array_values($requested_locales);
          rsort($qvalues);
          // Ensure inexact match scores worse than 2nd preference in same language.
          $fallback_adjustment_factor *= $qvalues[1];
        }
        foreach ($requested_locales as $requested_locale => $qvalue) {
          list ($matched_locale, $match_score) =
              self::_locale_match_score($requested_locale, $qvalue, $fallback_adjustment_factor);
          if ($matched_locale &&
              (!isset($scored_locales[$matched_locale]) ||
               $match_score > $scored_locales[$matched_locale])) {
            $scored_locales[$matched_locale] = $match_score;
          }
        }
      }

      arsort($scored_locales);

      list ($locale) = each($scored_locales);
      return $locale;
    }

    return null;
  }

  private static function _locale_match_score($requested_locale, $qvalue, $adjustment_factor) {
    $installed = self::installed();
    if (isset($installed[$requested_locale])) {
      return array($requested_locale, $qvalue);
    }
    list ($language) = explode("_", $requested_locale . "_");
    if (isset(self::$language_subtag_to_locale[$language]) &&
        isset($installed[self::$language_subtag_to_locale[$language]])) {
      $score = $adjustment_factor * $qvalue;
      return array(self::$language_subtag_to_locale[$language], $score);
    }
    return array(null, 0);
  }

  static function set_request_locale() {
    // 1. Check the session specific preference (cookie)
    $locale = self::cookie_locale();
    // 2. Check the user's preference
    if (!$locale) {
      $locale = user::active()->locale;
    }
    // 3. Check the browser's / OS' preference
    if (!$locale) {
      $locale = locales::locale_from_http_request();
    }
    // If we have any preference, override the site's default locale
    if ($locale) {
      I18n::instance()->locale($locale);
    }
  }

  static function cookie_locale() {
    $cookie_data = Input::instance()->cookie("g_locale");
    $locale = null;
    if ($cookie_data) {
      if (preg_match("/^([a-z]{2,3}(?:_[A-Z]{2})?)$/", trim($cookie_data), $matches)) {
        $requested_locale = $matches[1];
        $installed_locales = locales::installed();
        if (isset($installed_locales[$requested_locale])) {
          $locale = $requested_locale;
        }
      }
    }
    return $locale;
  }
}