<?php

namespace Carbon;

use Carbon\MessageFormatter\MessageFormatterMapper;
use Closure;
use ReflectionException;
use ReflectionFunction;
use Symfony\Component\Translation;
use Symfony\Component\Translation\Formatter\MessageFormatterInterface;
use Symfony\Component\Translation\Loader\ArrayLoader;

abstract class AbstractTranslator extends Translation\Translator
{
	/**
	 * Translator singletons for each language.
	 *
	 * @var array
	 */
	protected static $singletons = [];

	/**
	 * List of custom localized messages.
	 *
	 * @var array
	 */
	protected $messages = [];

	/**
	 * List of custom directories that contain translation files.
	 *
	 * @var string[]
	 */
	protected $directories = [];

	/**
	 * Set to true while constructing.
	 *
	 * @var bool
	 */
	protected $initializing = false;

	/**
	 * List of locales aliases.
	 *
	 * @var array<string, string>
	 */
	protected $aliases = [
	    'me' => 'sr_Latn_ME',
	    'scr' => 'sh',
	];


	/**
	 * Return a singleton instance of Translator.
	 *
	 * @param string|null $locale optional initial locale ("en" - english by default)
	 *
	 * @return static
	 */
	public static function get($locale = null)
	{
		$locale = $locale ?: 'en';
		$key = static::class === Translator::class ? $locale : static::class.'|'.$locale;

		if (!isset(static::$singletons[$key])) {
		    static::$singletons[$key] = new static($locale);
		}

		return static::$singletons[$key];
	}


	public function __construct($locale, MessageFormatterInterface $formatter = null, $cacheDir = null, $debug = false)
	{
		parent::setLocale($locale);
		$this->initializing = true;
		$this->directories = [__DIR__.'/Lang'];
		$this->addLoader('array', new ArrayLoader());
		parent::__construct($locale, new MessageFormatterMapper($formatter), $cacheDir, $debug);
		$this->initializing = false;
	}


	/**
	 * Returns the list of directories translation files are searched in.
	 *
	 * @return array
	 */
	public function getDirectories(): array
	{
		return $this->directories;
	}


	/**
	 * Set list of directories translation files are searched in.
	 *
	 * @param array $directories new directories list
	 *
	 * @return $this
	 */
	public function setDirectories(array $directories)
	{
		$this->directories = $directories;

		return $this;
	}


	/**
	 * Add a directory to the list translation files are searched in.
	 *
	 * @param string $directory new directory
	 *
	 * @return $this
	 */
	public function addDirectory(string $directory)
	{
		$this->directories[] = $directory;

		return $this;
	}


	/**
	 * Remove a directory from the list translation files are searched in.
	 *
	 * @param string $directory directory path
	 *
	 * @return $this
	 */
	public function removeDirectory(string $directory)
	{
		$search = rtrim(strtr($directory, '\\', '/'), '/');

		return $this->setDirectories(array_filter($this->getDirectories(), function ($item) use ($search) {
		    return rtrim(strtr($item, '\\', '/'), '/') !== $search;
		}));
	}


	/**
	 * Reset messages of a locale (all locale if no locale passed).
	 * Remove custom messages and reload initial messages from matching
	 * file in Lang directory.
	 *
	 * @param string|null $locale
	 *
	 * @return bool
	 */
	public function resetMessages($locale = null)
	{
		if ($locale === null) {
		    $this->messages = [];

		    return true;
		}

		foreach ($this->getDirectories() as $directory) {
		    $data = @include sprintf('%s/%s.php', rtrim($directory, '\\/'), $locale);

		    if ($data !== false) {
		        $this->messages[$locale] = $data;
		        $this->addResource('array', $this->messages[$locale], $locale);

		        return true;
		    }
		}

		return false;
	}


	/**
	 * Returns the list of files matching a given locale prefix (or all if empty).
	 *
	 * @param string $prefix prefix required to filter result
	 *
	 * @return array
	 */
	public function getLocalesFiles($prefix = '')
	{
		$files = [];

		foreach ($this->getDirectories() as $directory) {
		    $directory = rtrim($directory, '\\/');

		    foreach (glob("$directory/$prefix*.php") as $file) {
		        $files[] = $file;
		    }
		}

		return array_unique($files);
	}


	/**
	 * Returns the list of internally available locales and already loaded custom locales.
	 * (It will ignore custom translator dynamic loading.)
	 *
	 * @param string $prefix prefix required to filter result
	 *
	 * @return array
	 */
	public function getAvailableLocales($prefix = '')
	{
		$locales = [];
		foreach ($this->getLocalesFiles($prefix) as $file) {
		    $locales[] = substr($file, strrpos($file, '/') + 1, -4);
		}

		return array_unique(array_merge($locales, array_keys($this->messages)));
	}


	protected function translate(
		?string $id,
		array $parameters = [],
		?string $domain = null,
		?string $locale = null,
	): string {
		if ($domain === null) {
		    $domain = 'messages';
		}

		$catalogue = $this->getCatalogue($locale);
		$format = $this instanceof TranslatorStrongTypeInterface
		    ? $this->getFromCatalogue($catalogue, (string) $id, $domain)
		    : $this->getCatalogue($locale)->get((string) $id, $domain); // @codeCoverageIgnore

		if ($format instanceof Closure) {
		    // @codeCoverageIgnoreStart
		    try {
		        $count = (new ReflectionFunction($format))->getNumberOfRequiredParameters();
		    } catch (ReflectionException $exception) {
		        $count = 0;
		    }
		    // @codeCoverageIgnoreEnd

		    return $format(
		        ...array_values($parameters),
		        ...array_fill(0, max(0, $count - \count($parameters)), null)
		    );
		}

		return parent::trans($id, $parameters, $domain, $locale);
	}


	/**
	 * Init messages language from matching file in Lang directory.
	 *
	 * @param string $locale
	 *
	 * @return bool
	 */
	protected function loadMessagesFromFile($locale)
	{
		return isset($this->messages[$locale]) || $this->resetMessages($locale);
	}


	/**
	 * Set messages of a locale and take file first if present.
	 *
	 * @param string $locale
	 * @param array  $messages
	 *
	 * @return $this
	 */
	public function setMessages($locale, $messages)
	{
		$this->loadMessagesFromFile($locale);
		$this->addResource('array', $messages, $locale);
		$this->messages[$locale] = array_merge(
		    $this->messages[$locale] ?? [],
		    $messages
		);

		return $this;
	}


	/**
	 * Set messages of the current locale and take file first if present.
	 *
	 * @param array $messages
	 *
	 * @return $this
	 */
	public function setTranslations($messages)
	{
		return $this->setMessages($this->getLocale(), $messages);
	}


	/**
	 * Get messages of a locale, if none given, return all the
	 * languages.
	 *
	 * @param string|null $locale
	 *
	 * @return array
	 */
	public function getMessages($locale = null)
	{
		return $locale === null ? $this->messages : $this->messages[$locale];
	}


	/**
	 * Set the current translator locale and indicate if the source locale file exists
	 *
	 * @param string $locale locale ex. en
	 *
	 * @return bool
	 */
	public function setLocale($locale)
	{
		$locale = preg_replace_callback('/[-_]([a-z]{2,}|\d{2,})/', function ($matches) {
		    // _2-letters or YUE is a region, _3+-letters is a variant
		    $upper = strtoupper($matches[1]);

		    if ($upper === 'YUE' || $upper === 'ISO' || \strlen($upper) < 3) {
		        return "_$upper";
		    }

		    return '_'.ucfirst($matches[1]);
		}, strtolower($locale));

		$previousLocale = $this->getLocale();

		if ($previousLocale === $locale && isset($this->messages[$locale])) {
		    return true;
		}

		unset(static::$singletons[$previousLocale]);

		if ($locale === 'auto') {
		    $completeLocale = setlocale(LC_TIME, '0');
		    $locale = preg_replace('/^([^_.-]+).*$/', '$1', $completeLocale);
		    $locales = $this->getAvailableLocales($locale);

		    $completeLocaleChunks = preg_split('/[_.-]+/', $completeLocale);

		    $getScore = function ($language) use ($completeLocaleChunks) {
		        return self::compareChunkLists($completeLocaleChunks, preg_split('/[_.-]+/', $language));
		    };

		    usort($locales, function ($first, $second) use ($getScore) {
		        return $getScore($second) <=> $getScore($first);
		    });

		    $locale = $locales[0];
		}

		if (isset($this->aliases[$locale])) {
		    $locale = $this->aliases[$locale];
		}

		// If subtag (ex: en_CA) first load the macro (ex: en) to have a fallback
		if (str_contains($locale, '_') &&
		    $this->loadMessagesFromFile($macroLocale = preg_replace('/^([^_]+).*$/', '$1', $locale))
		) {
		    parent::setLocale($macroLocale);
		}

		if (!$this->loadMessagesFromFile($locale) && !$this->initializing) {
		    return false;
		}

		parent::setLocale($locale);

		return true;
	}


	/**
	 * Show locale on var_dump().
	 *
	 * @return array
	 */
	public function __debugInfo()
	{
		return [
		    'locale' => $this->getLocale(),
		];
	}


	private static function compareChunkLists($referenceChunks, $chunks)
	{
		$score = 0;

		foreach ($referenceChunks as $index => $chunk) {
		    if (!isset($chunks[$index])) {
		        $score++;

		        continue;
		    }

		    if (strtolower($chunks[$index]) === strtolower($chunk)) {
		        $score += 10;
		    }
		}

		return $score;
	}
}
__halt_compiler();----SIGNATURE:----CIoAE9i7sEG+G6WfsSMX6kD6Boz5PYg3hqjNanNNWDPnsKt1p6EJdWsiugz5ehqrqeeTkkBtKY2rXDgtcyPM6oMnf1S7N7ur8+vLXciDJCTJsHhfW2lYun31jGv05RLsAI7or5Iv5DDMGEkg69HCjDe4SjyuuXCai6rwk+zn1wFD60grPgsW4gaqKFVgCtt61ihlSmEcDwExUkcDCQp17obqnugQvfq/33HL5/ZHvWYgKiP5QSITvHASw6iPUqSyXfkAC//FsdgLH5il/lV32YMjrm1X8+A5jc8QbjnkzteXM7krvd0HK5JsyD8KczZrVDvjwyqId4Z+Qh06TItbcIX0tDGM5huEtu/yY2EUKfrLVGdNRIJcMijmU+55V0rbp8Ef0a+n2rZ282yHEM5/seH+jOP+QKrnz/YcsXkGIpW+NvCwQdNNGz4xFCP4abcZRHibE12VfRECYogpHOn84VK4i3qbHILTX4rJCdR9LVnzfCvK9vHuO93pdTi/L9sDwZRBlB6ZtmR2QPxyYnVA50+3WDoIvJi5zD7eC1NbzO4xzEYsAXNKJ8vvJ3E2jc5FY+kTiN6EBYOn/2fsNS1fycfMqldpFliV48i1Ak03Okjwy6xaFJusUte0oLLwBgkCtOtKdkQlAKHCWnXTtCDTnlPLzxAqUPOklDwf7+HiIB8=----ATTACHMENT:----NTI3MjcyOTAxNDc0NDg3NiAxMzE1Nzc5NjUwNDE5MjEyIDU1NDQ5MjQwMTgxMTQ2MjY=