芝麻web文件管理V1.00

编辑当前文件:/home2/sdektunc/timucuy2124.gob.mx/administrator/components/com_finder/src/Indexer/Language/El.php

<?php
/**
 * @package     Joomla.Administrator
 * @subpackage  com_finder
 *
 * @copyright   (C) 2018 Open Source Matters, Inc. <https://www.joomla.org>
 * @license     GNU General Public License version 2 or later; see LICENSE.txt
 *
 * The Greek stemmer was adapted for Joomla! 4 by Nicholas K. Dionysopoulos <nicholas@akeebabackup.com>. This is
 * derivative work, based on the Greek stemmer for Drupal, see
 * https://github.com/magaras/greek_stemmer/blob/master/mod_stemmer.php
 */

namespace Joomla\Component\Finder\Administrator\Indexer\Language;

\defined('_JEXEC') or die;

use Joomla\Component\Finder\Administrator\Indexer\Language;

/**
 * Greek language support class for the Finder indexer package.
 *
 * @since  4.0.0
 */
class El extends Language
{
	/**
	 * Language locale of the class
	 *
	 * @var    string
	 * @since  4.0.0
	 */
	public $language = 'el';

/**
	 * Method to construct the language object.
	 *
	 * @since   4.0.0
	 */
	public function __construct($locale = null)
	{
		// Override parent constructor since we don't need to load an external stemmer
	}

/**
	 * Method to tokenise a text string. It takes into account the odd punctuation commonly used in Greek text, mapping
	 * it to ASCII punctuation.
	 *
	 * Reference: http://www.teicrete.gr/users/kutrulis/Glosika/Stixi.htm
	 *
	 * @param string $input The input to tokenise.
	 *
	 * @return  array  An array of term strings.
	 *
	 * @since   4.0.0
	 */
	public function tokenise($input)
	{
		// Replace Greek calligraphic double quotes (various styles) to dumb double quotes
		$input = str_replace(['“', '”', '„', '«' ,'»'], '"', $input);

// Replace Greek calligraphic single quotes (various styles) to dumb single quotes
		$input = str_replace(['‘','’','‚'], "'", $input);

// Replace the middle dot (ano teleia) with a comma, adequate for the purpose of stemming
		$input = str_replace('·', ',', $input);

// Dot and dash (τελεία και παύλα), used to denote the end of a context at the end of a paragraph.
		$input = str_replace('.–', '.', $input);

// Ellipsis, two styles (separate dots or single glyph)
		$input = str_replace(['...', '…'], '.', $input);

// Cross. Marks the death date of a person. Removed.
		$input = str_replace('†', '', $input);

// Star. Reference, supposition word (in philology), birth date of a person.
		$input = str_replace('*', '', $input);

// Paragraph. Indicates change of subject.
		$input = str_replace('§', '.', $input);

// Plus/minus. Shows approximation. Not relevant for the stemmer, hence its conversion to a space.
		$input = str_replace('±', ' ', $input);

return parent::tokenise($input);
	}

/**
	 * Method to stem a token.
	 *
	 * @param   string  $token  The token to stem.
	 *
	 * @return  string  The stemmed token.
	 *
	 * @since   4.0.0
	 */
	public function stem($token)
	{
		$token = $this->toUpperCase($token, $wCase);

// Stop-word removal
		$stop_words = '/^(ΕΚΟ|ΑΒΑ|ΑΓΑ|ΑΓΗ|ΑΓΩ|ΑΔΗ|ΑΔΩ|ΑΕ|ΑΕΙ|ΑΘΩ|ΑΙ|ΑΙΚ|ΑΚΗ|ΑΚΟΜΑ|ΑΚΟΜΗ|ΑΚΡΙΒΩΣ|ΑΛΑ|ΑΛΗΘΕΙΑ|ΑΛΗΘΙΝΑ|ΑΛΛΑΧΟΥ|ΑΛΛΙΩΣ|ΑΛΛΙΩΤΙΚΑ|'
				. 'ΑΛΛΟΙΩΣ|ΑΛΛΟΙΩΤΙΚΑ|ΑΛΛΟΤΕ|ΑΛΤ|ΑΛΩ|ΑΜΑ|ΑΜΕ|ΑΜΕΣΑ|ΑΜΕΣΩΣ|ΑΜΩ|ΑΝ|ΑΝΑ|ΑΝΑΜΕΣΑ|ΑΝΑΜΕΤΑΞΥ|ΑΝΕΥ|ΑΝΤΙ|ΑΝΤΙΠΕΡΑ|ΑΝΤΙΣ|ΑΝΩ|ΑΝΩΤΕΡΩ|ΑΞΑΦΝΑ|'
				. 'ΑΠ|ΑΠΕΝΑΝΤΙ|ΑΠΟ|ΑΠΟΨΕ|ΑΠΩ|ΑΡΑ|ΑΡΑΓΕ|ΑΡΕ|ΑΡΚ|ΑΡΚΕΤΑ|ΑΡΛ|ΑΡΜ|ΑΡΤ|ΑΡΥ|ΑΡΩ|ΑΣ|ΑΣΑ|ΑΣΟ|ΑΤΑ|ΑΤΕ|ΑΤΗ|ΑΤΙ|ΑΤΜ|ΑΤΟ|ΑΥΡΙΟ|ΑΦΗ|ΑΦΟΤΟΥ|ΑΦΟΥ|'
				. 'ΑΧ|ΑΧΕ|ΑΧΟ|ΑΨΑ|ΑΨΕ|ΑΨΗ|ΑΨΥ|ΑΩΕ|ΑΩΟ|ΒΑΝ|ΒΑΤ|ΒΑΧ|ΒΕΑ|ΒΕΒΑΙΟΤΑΤΑ|ΒΗΞ|ΒΙΑ|ΒΙΕ|ΒΙΗ|ΒΙΟ|ΒΟΗ|ΒΟΩ|ΒΡΕ|ΓΑ|ΓΑΒ|ΓΑΡ|ΓΕΝ|ΓΕΣ||ΓΗ|ΓΗΝ|ΓΙ|ΓΙΑ|'
				. 'ΓΙΕ|ΓΙΝ|ΓΙΟ|ΓΚΙ|ΓΙΑΤΙ|ΓΚΥ|ΓΟΗ|ΓΟΟ|ΓΡΗΓΟΡΑ|ΓΡΙ|ΓΡΥ|ΓΥΗ|ΓΥΡΩ|ΔΑ|ΔΕ|ΔΕΗ|ΔΕΙ|ΔΕΝ|ΔΕΣ|ΔΗ|ΔΗΘΕΝ|ΔΗΛΑΔΗ|ΔΗΩ|ΔΙ|ΔΙΑ|ΔΙΑΡΚΩΣ|ΔΙΟΛΟΥ|ΔΙΣ|'
				. 'ΔΙΧΩΣ|ΔΟΛ|ΔΟΝ|ΔΡΑ|ΔΡΥ|ΔΡΧ|ΔΥΕ|ΔΥΟ|ΔΩ|ΕΑΜ|ΕΑΝ|ΕΑΡ|ΕΘΗ|ΕΙ|ΕΙΔΕΜΗ|ΕΙΘΕ|ΕΙΜΑΙ|ΕΙΜΑΣΤΕ|ΕΙΝΑΙ|ΕΙΣ|ΕΙΣΑΙ|ΕΙΣΑΣΤΕ|ΕΙΣΤΕ|ΕΙΤΕ|ΕΙΧΑ|ΕΙΧΑΜΕ|'
				. 'ΕΙΧΑΝ|ΕΙΧΑΤΕ|ΕΙΧΕ|ΕΙΧΕΣ|ΕΚ|ΕΚΕΙ|ΕΛΑ|ΕΛΙ|ΕΜΠ|ΕΝ|ΕΝΤΕΛΩΣ|ΕΝΤΟΣ|ΕΝΤΩΜΕΤΑΞΥ|ΕΝΩ|ΕΞ|ΕΞΑΦΝΑ|ΕΞΙ|ΕΞΙΣΟΥ|ΕΞΩ|ΕΟΚ|ΕΠΑΝΩ|ΕΠΕΙΔΗ|ΕΠΕΙΤΑ|ΕΠΗ|'
				. 'ΕΠΙ|ΕΠΙΣΗΣ|ΕΠΟΜΕΝΩΣ|ΕΡΑ|ΕΣ|ΕΣΑΣ|ΕΣΕ|ΕΣΕΙΣ|ΕΣΕΝΑ|ΕΣΗ|ΕΣΤΩ|ΕΣΥ|ΕΣΩ|ΕΤΙ|ΕΤΣΙ|ΕΥ|ΕΥΑ|ΕΥΓΕ|ΕΥΘΥΣ|ΕΥΤΥΧΩΣ|ΕΦΕ|ΕΦΕΞΗΣ|ΕΦΤ|ΕΧΕ|ΕΧΕΙ|'
				. 'ΕΧΕΙΣ|ΕΧΕΤΕ|ΕΧΘΕΣ|ΕΧΟΜΕ|ΕΧΟΥΜΕ|ΕΧΟΥΝ|ΕΧΤΕΣ|ΕΧΩ|ΕΩΣ|ΖΕΑ|ΖΕΗ|ΖΕΙ|ΖΕΝ|ΖΗΝ|ΖΩ|Η|ΗΔΗ|ΗΔΥ|ΗΘΗ|ΗΛΟ|ΗΜΙ|ΗΠΑ|ΗΣΑΣΤΕ|ΗΣΟΥΝ|ΗΤΑ|ΗΤΑΝ|ΗΤΑΝΕ|'
				. 'ΗΤΟΙ|ΗΤΤΟΝ|ΗΩ|ΘΑ|ΘΥΕ|ΘΩΡ|Ι|ΙΑ|ΙΒΟ|ΙΔΗ|ΙΔΙΩΣ|ΙΕ|ΙΙ|ΙΙΙ|ΙΚΑ|ΙΛΟ|ΙΜΑ|ΙΝΑ|ΙΝΩ|ΙΞΕ|ΙΞΟ|ΙΟ|ΙΟΙ|ΙΣΑ|ΙΣΑΜΕ|ΙΣΕ|ΙΣΗ|ΙΣΙΑ|ΙΣΟ|ΙΣΩΣ|ΙΩΒ|ΙΩΝ|'
				. 'ΙΩΣ|ΙΑΝ|ΚΑΘ|ΚΑΘΕ|ΚΑΘΕΤΙ|ΚΑΘΟΛΟΥ|ΚΑΘΩΣ|ΚΑΙ|ΚΑΝ|ΚΑΠΟΤΕ|ΚΑΠΟΥ|ΚΑΠΩΣ|ΚΑΤ|ΚΑΤΑ|ΚΑΤΙ|ΚΑΤΙΤΙ|ΚΑΤΟΠΙΝ|ΚΑΤΩ|ΚΑΩ|ΚΒΟ|ΚΕΑ|ΚΕΙ|ΚΕΝ|ΚΙ|ΚΙΜ|'
				. 'ΚΙΟΛΑΣ|ΚΙΤ|ΚΙΧ|ΚΚΕ|ΚΛΙΣΕ|ΚΛΠ|ΚΟΚ|ΚΟΝΤΑ|ΚΟΧ|ΚΤΛ|ΚΥΡ|ΚΥΡΙΩΣ|ΚΩ|ΚΩΝ|ΛΑ|ΛΕΑ|ΛΕΝ|ΛΕΟ|ΛΙΑ|ΛΙΓΑΚΙ|ΛΙΓΟΥΛΑΚΙ|ΛΙΓΟ|ΛΙΓΩΤΕΡΟ|ΛΙΟ|ΛΙΡ|ΛΟΓΩ|'
				. 'ΛΟΙΠΑ|ΛΟΙΠΟΝ|ΛΟΣ|ΛΣ|ΛΥΩ|ΜΑ|ΜΑΖΙ|ΜΑΚΑΡΙ|ΜΑΛΙΣΤΑ|ΜΑΛΛΟΝ|ΜΑΝ|ΜΑΞ|ΜΑΣ|ΜΑΤ|ΜΕ|ΜΕΘΑΥΡΙΟ|ΜΕΙ|ΜΕΙΟΝ|ΜΕΛ|ΜΕΛΕΙ|ΜΕΛΛΕΤΑΙ|ΜΕΜΙΑΣ|ΜΕΝ|ΜΕΣ|'
				. 'ΜΕΣΑ|ΜΕΤ|ΜΕΤΑ|ΜΕΤΑΞΥ|ΜΕΧΡΙ|ΜΗ|ΜΗΔΕ|ΜΗΝ|ΜΗΠΩΣ|ΜΗΤΕ|ΜΙ|ΜΙΞ|ΜΙΣ|ΜΜΕ|ΜΝΑ|ΜΟΒ|ΜΟΛΙΣ|ΜΟΛΟΝΟΤΙ|ΜΟΝΑΧΑ|ΜΟΝΟΜΙΑΣ|ΜΙΑ|ΜΟΥ|ΜΠΑ|ΜΠΟΡΕΙ|'
				. 'ΜΠΟΡΟΥΝ|ΜΠΡΑΒΟ|ΜΠΡΟΣ|ΜΠΩ|ΜΥ|ΜΥΑ|ΜΥΝ|ΝΑ|ΝΑΕ|ΝΑΙ|ΝΑΟ|ΝΔ|ΝΕΐ|ΝΕΑ|ΝΕΕ|ΝΕΟ|ΝΙ|ΝΙΑ|ΝΙΚ|ΝΙΛ|ΝΙΝ|ΝΙΟ|ΝΤΑ|ΝΤΕ|ΝΤΙ|ΝΤΟ|ΝΥΝ|ΝΩΕ|ΝΩΡΙΣ|ΞΑΝΑ|'
				. 'ΞΑΦΝΙΚΑ|ΞΕΩ|ΞΙ|Ο|ΟΑ|ΟΑΠ|ΟΔΟ|ΟΕ|ΟΖΟ|ΟΗΕ|ΟΙ|ΟΙΑ|ΟΙΗ|ΟΚΑ|ΟΛΟΓΥΡΑ|ΟΛΟΝΕΝ|ΟΛΟΤΕΛΑ|ΟΛΩΣΔΙΟΛΟΥ|ΟΜΩΣ|ΟΝ|ΟΝΕ|ΟΝΟ|ΟΠΑ|ΟΠΕ|ΟΠΗ|ΟΠΟ|'
				. 'ΟΠΟΙΑΔΗΠΟΤΕ|ΟΠΟΙΑΝΔΗΠΟΤΕ|ΟΠΟΙΑΣΔΗΠΟΤΕ|ΟΠΟΙΔΗΠΟΤΕ|ΟΠΟΙΕΣΔΗΠΟΤΕ|ΟΠΟΙΟΔΗΠΟΤΕ|ΟΠΟΙΟΝΔΗΠΟΤΕ|ΟΠΟΙΟΣΔΗΠΟΤΕ|ΟΠΟΙΟΥΔΗΠΟΤΕ|ΟΠΟΙΟΥΣΔΗΠΟΤΕ|'
				. 'ΟΠΟΙΩΝΔΗΠΟΤΕ|ΟΠΟΤΕΔΗΠΟΤΕ|ΟΠΟΥ|ΟΠΟΥΔΗΠΟΤΕ|ΟΠΩΣ|ΟΡΑ|ΟΡΕ|ΟΡΗ|ΟΡΟ|ΟΡΦ|ΟΡΩ|ΟΣΑ|ΟΣΑΔΗΠΟΤΕ|ΟΣΕ|ΟΣΕΣΔΗΠΟΤΕ|ΟΣΗΔΗΠΟΤΕ|ΟΣΗΝΔΗΠΟΤΕ|'
				. 'ΟΣΗΣΔΗΠΟΤΕ|ΟΣΟΔΗΠΟΤΕ|ΟΣΟΙΔΗΠΟΤΕ|ΟΣΟΝΔΗΠΟΤΕ|ΟΣΟΣΔΗΠΟΤΕ|ΟΣΟΥΔΗΠΟΤΕ|ΟΣΟΥΣΔΗΠΟΤΕ|ΟΣΩΝΔΗΠΟΤΕ|ΟΤΑΝ|ΟΤΕ|ΟΤΙ|ΟΤΙΔΗΠΟΤΕ|ΟΥ|ΟΥΔΕ|ΟΥΚ|ΟΥΣ|'
				. 'ΟΥΤΕ|ΟΥΦ|ΟΧΙ|ΟΨΑ|ΟΨΕ|ΟΨΗ|ΟΨΙ|ΟΨΟ|ΠΑ|ΠΑΛΙ|ΠΑΝ|ΠΑΝΤΟΤΕ|ΠΑΝΤΟΥ|ΠΑΝΤΩΣ|ΠΑΠ|ΠΑΡ|ΠΑΡΑ|ΠΕΙ|ΠΕΡ|ΠΕΡΑ|ΠΕΡΙ|ΠΕΡΙΠΟΥ|ΠΕΡΣΙ|ΠΕΡΥΣΙ|ΠΕΣ|ΠΙ|'
				. 'ΠΙΑ|ΠΙΘΑΝΟΝ|ΠΙΚ|ΠΙΟ|ΠΙΣΩ|ΠΙΤ|ΠΙΩ|ΠΛΑΙ|ΠΛΕΟΝ|ΠΛΗΝ|ΠΛΩ|ΠΜ|ΠΟΑ|ΠΟΕ|ΠΟΛ|ΠΟΛΥ|ΠΟΠ|ΠΟΤΕ|ΠΟΥ|ΠΟΥΘΕ|ΠΟΥΘΕΝΑ|ΠΡΕΠΕΙ|ΠΡΙ|ΠΡΙΝ|ΠΡΟ|'
				. 'ΠΡΟΚΕΙΜΕΝΟΥ|ΠΡΟΚΕΙΤΑΙ|ΠΡΟΠΕΡΣΙ|ΠΡΟΣ|ΠΡΟΤΟΥ|ΠΡΟΧΘΕΣ|ΠΡΟΧΤΕΣ|ΠΡΩΤΥΤΕΡΑ|ΠΥΑ|ΠΥΞ|ΠΥΟ|ΠΥΡ|ΠΧ|ΠΩ|ΠΩΛ|ΠΩΣ|ΡΑ|ΡΑΙ|ΡΑΠ|ΡΑΣ|ΡΕ|ΡΕΑ|ΡΕΕ|ΡΕΙ|'
				. 'ΡΗΣ|ΡΘΩ|ΡΙΟ|ΡΟ|ΡΟΐ|ΡΟΕ|ΡΟΖ|ΡΟΗ|ΡΟΘ|ΡΟΙ|ΡΟΚ|ΡΟΛ|ΡΟΝ|ΡΟΣ|ΡΟΥ|ΣΑΙ|ΣΑΝ|ΣΑΟ|ΣΑΣ|ΣΕ|ΣΕΙΣ|ΣΕΚ|ΣΕΞ|ΣΕΡ|ΣΕΤ|ΣΕΦ|ΣΗΜΕΡΑ|ΣΙ|ΣΙΑ|ΣΙΓΑ|ΣΙΚ|'
				. 'ΣΙΧ|ΣΚΙ|ΣΟΙ|ΣΟΚ|ΣΟΛ|ΣΟΝ|ΣΟΣ|ΣΟΥ|ΣΡΙ|ΣΤΑ|ΣΤΗ|ΣΤΗΝ|ΣΤΗΣ|ΣΤΙΣ|ΣΤΟ|ΣΤΟΝ|ΣΤΟΥ|ΣΤΟΥΣ|ΣΤΩΝ|ΣΥ|ΣΥΓΧΡΟΝΩΣ|ΣΥΝ|ΣΥΝΑΜΑ|ΣΥΝΕΠΩΣ|ΣΥΝΗΘΩΣ|'
				. 'ΣΧΕΔΟΝ|ΣΩΣΤΑ|ΤΑ|ΤΑΔΕ|ΤΑΚ|ΤΑΝ|ΤΑΟ|ΤΑΥ|ΤΑΧΑ|ΤΑΧΑΤΕ|ΤΕ|ΤΕΙ|ΤΕΛ|ΤΕΛΙΚΑ|ΤΕΛΙΚΩΣ|ΤΕΣ|ΤΕΤ|ΤΖΟ|ΤΗ|ΤΗΛ|ΤΗΝ|ΤΗΣ|ΤΙ|ΤΙΚ|ΤΙΜ|ΤΙΠΟΤΑ|ΤΙΠΟΤΕ|'
				. 'ΤΙΣ|ΤΝΤ|ΤΟ|ΤΟΙ|ΤΟΚ|ΤΟΜ|ΤΟΝ|ΤΟΠ|ΤΟΣ|ΤΟΣ?Ν|ΤΟΣΑ|ΤΟΣΕΣ|ΤΟΣΗ|ΤΟΣΗΝ|ΤΟΣΗΣ|ΤΟΣΟ|ΤΟΣΟΙ|ΤΟΣΟΝ|ΤΟΣΟΣ|ΤΟΣΟΥ|ΤΟΣΟΥΣ|ΤΟΤΕ|ΤΟΥ|ΤΟΥΛΑΧΙΣΤΟ|'
				. 'ΤΟΥΛΑΧΙΣΤΟΝ|ΤΟΥΣ|ΤΣ|ΤΣΑ|ΤΣΕ|ΤΥΧΟΝ|ΤΩ|ΤΩΝ|ΤΩΡΑ|ΥΑΣ|ΥΒΑ|ΥΒΟ|ΥΙΕ|ΥΙΟ|ΥΛΑ|ΥΛΗ|ΥΝΙ|ΥΠ|ΥΠΕΡ|ΥΠΟ|ΥΠΟΨΗ|ΥΠΟΨΙΝ|ΥΣΤΕΡΑ|ΥΦΗ|ΥΨΗ|ΦΑ|ΦΑΐ|ΦΑΕ|'
				. 'ΦΑΝ|ΦΑΞ|ΦΑΣ|ΦΑΩ|ΦΕΖ|ΦΕΙ|ΦΕΤΟΣ|ΦΕΥ|ΦΙ|ΦΙΛ|ΦΙΣ|ΦΟΞ|ΦΠΑ|ΦΡΙ|ΧΑ|ΧΑΗ|ΧΑΛ|ΧΑΝ|ΧΑΦ|ΧΕ|ΧΕΙ|ΧΘΕΣ|ΧΙ|ΧΙΑ|ΧΙΛ|ΧΙΟ|ΧΛΜ|ΧΜ|ΧΟΗ|ΧΟΛ|ΧΡΩ|ΧΤΕΣ|'
				. 'ΧΩΡΙΣ|ΧΩΡΙΣΤΑ|ΨΕΣ|ΨΗΛΑ|ΨΙ|ΨΙΤ|Ω|ΩΑ|ΩΑΣ|ΩΔΕ|ΩΕΣ|ΩΘΩ|ΩΜΑ|ΩΜΕ|ΩΝ|ΩΟ|ΩΟΝ|ΩΟΥ|ΩΣ|ΩΣΑΝ|ΩΣΗ|ΩΣΟΤΟΥ|ΩΣΠΟΥ|ΩΣΤΕ|ΩΣΤΟΣΟ|ΩΤΑ|ΩΧ|ΩΩΝ)$/';

if (preg_match($stop_words, $token))
		{
			return $this->toLowerCase($token, $wCase);
		}

// Vowels
		$v = '(Α|Ε|Η|Ι|Ο|Υ|Ω)';

// Vowels without Y
		$v2 = '(Α|Ε|Η|Ι|Ο|Ω)';

$test1 = true;

if (preg_match($re, $token, $match))
		{
			$token = $match[1];

if (preg_match($exceptS1, $token))
			{
				$token = $token . 'I';
			}

if (preg_match($exceptS2, $token))
			{
				$token = $token . 'IΖ';
			}

return $this->toLowerCase($token, $wCase);
		}

// Step S2. 7 stems
		$re       = '/^(.+?)(ΩΘΗΚΑ|ΩΘΗΚΕΣ|ΩΘΗΚΕ|ΩΘΗΚΑΜΕ|ΩΘΗΚΑΤΕ|ΩΘΗΚΑΝ|ΩΘΗΚΑΝΕ)$/';
		$exceptS1 = '/^(ΑΛ|ΒΙ|ΕΝ|ΥΨ|ΛΙ|ΖΩ|Σ|Χ)$/';

if (preg_match($re, $token, $match))
		{
			$token = $match[1];

if (preg_match($exceptS1, $token))
			{
				$token = $token . 'ΩΝ';
			}

return $this->toLowerCase($token, $wCase);
		}

if ($token == "ΙΣΑ")
		{
			$token = "ΙΣ";

return $token;
		}

if (preg_match($re, $token, $match))
		{
			$token = $match[1];

if (preg_match($exceptS1, $token))
			{
				$token = $token . 'Ι';
			}

if (preg_match($exceptS2, $token))
			{
				$token = $token . 'ΙΣ';
			}

return $this->toLowerCase($token, $wCase);
		}

if (preg_match($re, $token, $match))
		{
			$token = $match[1];

if (preg_match($exceptS1, $token))
			{
				$token = $token . 'Ι';
			}

return $this->toLowerCase($token, $wCase);
		}

// Step S5. 11 stems
		$re       = '/^(.+?)(ΙΣΤΟΣ|ΙΣΤΟΥ|ΙΣΤΟ|ΙΣΤΕ|ΙΣΤΟΙ|ΙΣΤΩΝ|ΙΣΤΟΥΣ|ΙΣΤΗ|ΙΣΤΗΣ|ΙΣΤΑ|ΙΣΤΕΣ)$/';
		$exceptS1 = '/^(Μ|Π|ΑΠ|ΑΡ|ΗΔ|ΚΤ|ΣΚ|ΣΧ|ΥΨ|ΦΑ|ΧΡ|ΧΤ|ΑΚΤ|ΑΟΡ|ΑΣΧ|ΑΤΑ|ΑΧΝ|ΑΧΤ|ΓΕΜ|ΓΥΡ|ΕΜΠ|ΕΥΠ|ΕΧΘ|ΗΦΑ|ΚΑΘ|ΚΑΚ|ΚΥΛ|ΛΥΓ|ΜΑΚ|ΜΕΓ|ΤΑΧ|ΦΙΛ|ΧΩΡ)$/';
		$exceptS2 = '/^(ΔΑΝΕ|ΣΥΝΑΘΡΟ|ΚΛΕ|ΣΕ|ΕΣΩΚΛΕ|ΑΣΕ|ΠΛΕ)$/';

if (preg_match($re, $token, $match))
		{
			$token = $match[1];

if (preg_match($exceptS1, $token))
			{
				$token = $token . 'ΙΣΤ';
			}

if (preg_match($exceptS2, $token))
			{
				$token = $token . 'Ι';
			}

return $this->toLowerCase($token, $wCase);
		}

if (preg_match($re, $token, $match))
		{
			$token = $match[1];

if (preg_match($exceptS1, $token))
			{
				$token = str_replace('ΙΚ', "", $token);
			}

if (preg_match($exceptS2, $token))
			{
				$token = $token . "ΙΣΜ";
			}

if (preg_match($exceptS3, $token))
			{
				$token = $token . "Ι";
			}

if (preg_match($exceptS4, $token))
			{
				$token = str_replace('ΙΝ', "", $token);
			}

return $this->toLowerCase($token, $wCase);
		}

// Step S7. 4 stems
		$re       = '/^(.+?)(ΑΡΑΚΙ|ΑΡΑΚΙΑ|ΟΥΔΑΚΙ|ΟΥΔΑΚΙΑ)$/';
		$exceptS1 = '/^(Σ|Χ)$/';

if (preg_match($re, $token, $match))
		{
			$token = $match[1];

if (preg_match($exceptS1, $token))
			{
				$token = $token . "AΡΑΚ";
			}

return $this->toLowerCase($token, $wCase);
		}

// Step S8. 8 stems
		$re       = '/^(.+?)(ΑΚΙ|ΑΚΙΑ|ΙΤΣΑ|ΙΤΣΑΣ|ΙΤΣΕΣ|ΙΤΣΩΝ|ΑΡΑΚΙ|ΑΡΑΚΙΑ)$/';
		$exceptS1 = '/^(ΑΝΘΡ|ΒΑΜΒ|ΒΡ|ΚΑΙΜ|ΚΟΝ|ΚΟΡ|ΛΑΒΡ|ΛΟΥΛ|ΜΕΡ|ΜΟΥΣΤ|ΝΑΓΚΑΣ|ΠΛ|Ρ|ΡΥ|Σ|ΣΚ|ΣΟΚ|ΣΠΑΝ|ΤΖ|ΦΑΡΜ|Χ|'
				. 'ΚΑΠΑΚ|ΑΛΙΣΦ|ΑΜΒΡ|ΑΝΘΡ|Κ|ΦΥΛ|ΚΑΤΡΑΠ|ΚΛΙΜ|ΜΑΛ|ΣΛΟΒ|Φ|ΣΦ|ΤΣΕΧΟΣΛΟΒ)$/';
		$exceptS2 = '/^(Β|ΒΑΛ|ΓΙΑΝ|ΓΛ|Ζ|ΗΓΟΥΜΕΝ|ΚΑΡΔ|ΚΟΝ|ΜΑΚΡΥΝ|ΝΥΦ|ΠΑΤΕΡ|Π|ΣΚ|ΤΟΣ|ΤΡΙΠΟΛ)$/';

// For words like ΠΛΟΥΣΙΟΚΟΡΙΤΣΑ, ΠΑΛΙΟΚΟΡΙΤΣΑ etc
		$exceptS3 = '/(ΚΟΡ)$/';

if (preg_match($re, $token, $match))
		{
			$token = $match[1];

if (preg_match($exceptS1, $token))
			{
				$token = $token . "ΑΚ";
			}

if (preg_match($exceptS2, $token))
			{
				$token = $token . "ΙΤΣ";
			}

if (preg_match($exceptS3, $token))
			{
				$token = $token . "ΙΤΣ";
			}

return $this->toLowerCase($token, $wCase);
		}

if (preg_match($re, $token, $match))
		{
			$token = $match[1];

if (preg_match($exceptS1, $token))
			{
				$token = $token . "ΙΔ";
			}

if (preg_match($exceptS2, $token))
			{
				$token = $token . "ΙΔ";
			}

return $this->toLowerCase($token, $wCase);
		}

if (preg_match($re, $token, $match))
		{
			$token = $match[1];

if (preg_match($exceptS1, $token))
			{
				$token = $token . "ΙΣΚ";
			}

return $this->toLowerCase($token, $wCase);
		}

// Step 1
		// step1list is used in Step 1. 41 stems
		$step1list             = Array();
		$step1list["ΦΑΓΙΑ"]    = "ΦΑ";
		$step1list["ΦΑΓΙΟΥ"]   = "ΦΑ";
		$step1list["ΦΑΓΙΩΝ"]   = "ΦΑ";
		$step1list["ΣΚΑΓΙΑ"]   = "ΣΚΑ";
		$step1list["ΣΚΑΓΙΟΥ"]  = "ΣΚΑ";
		$step1list["ΣΚΑΓΙΩΝ"]  = "ΣΚΑ";
		$step1list["ΟΛΟΓΙΟΥ"]  = "ΟΛΟ";
		$step1list["ΟΛΟΓΙΑ"]   = "ΟΛΟ";
		$step1list["ΟΛΟΓΙΩΝ"]  = "ΟΛΟ";
		$step1list["ΣΟΓΙΟΥ"]   = "ΣΟ";
		$step1list["ΣΟΓΙΑ"]    = "ΣΟ";
		$step1list["ΣΟΓΙΩΝ"]   = "ΣΟ";
		$step1list["ΤΑΤΟΓΙΑ"]  = "ΤΑΤΟ";
		$step1list["ΤΑΤΟΓΙΟΥ"] = "ΤΑΤΟ";
		$step1list["ΤΑΤΟΓΙΩΝ"] = "ΤΑΤΟ";
		$step1list["ΚΡΕΑΣ"]    = "ΚΡΕ";
		$step1list["ΚΡΕΑΤΟΣ"]  = "ΚΡΕ";
		$step1list["ΚΡΕΑΤΑ"]   = "ΚΡΕ";
		$step1list["ΚΡΕΑΤΩΝ"]  = "ΚΡΕ";
		$step1list["ΠΕΡΑΣ"]    = "ΠΕΡ";
		$step1list["ΠΕΡΑΤΟΣ"]  = "ΠΕΡ";

// Added by Spyros. Also at $re in step1
		$step1list["ΠΕΡΑΤΗ"]     = "ΠΕΡ";
		$step1list["ΠΕΡΑΤΑ"]     = "ΠΕΡ";
		$step1list["ΠΕΡΑΤΩΝ"]    = "ΠΕΡ";
		$step1list["ΤΕΡΑΣ"]      = "ΤΕΡ";
		$step1list["ΤΕΡΑΤΟΣ"]    = "ΤΕΡ";
		$step1list["ΤΕΡΑΤΑ"]     = "ΤΕΡ";
		$step1list["ΤΕΡΑΤΩΝ"]    = "ΤΕΡ";
		$step1list["ΦΩΣ"]        = "ΦΩ";
		$step1list["ΦΩΤΟΣ"]      = "ΦΩ";
		$step1list["ΦΩΤΑ"]       = "ΦΩ";
		$step1list["ΦΩΤΩΝ"]      = "ΦΩ";
		$step1list["ΚΑΘΕΣΤΩΣ"]   = "ΚΑΘΕΣΤ";
		$step1list["ΚΑΘΕΣΤΩΤΟΣ"] = "ΚΑΘΕΣΤ";
		$step1list["ΚΑΘΕΣΤΩΤΑ"]  = "ΚΑΘΕΣΤ";
		$step1list["ΚΑΘΕΣΤΩΤΩΝ"] = "ΚΑΘΕΣΤ";
		$step1list["ΓΕΓΟΝΟΣ"]    = "ΓΕΓΟΝ";
		$step1list["ΓΕΓΟΝΟΤΟΣ"]  = "ΓΕΓΟΝ";
		$step1list["ΓΕΓΟΝΟΤΑ"]   = "ΓΕΓΟΝ";
		$step1list["ΓΕΓΟΝΟΤΩΝ"]  = "ΓΕΓΟΝ";

if (preg_match($re, $token, $match))
		{
			$stem   = $match[1];
			$suffix = $match[2];
			$token  = $stem . (array_key_exists($suffix, $step1list) ? $step1list[$suffix] : '');
			$test1  = false;
		}

// Step 2a. 2 stems
		$re = '/^(.+?)(ΑΔΕΣ|ΑΔΩΝ)$/';

if (preg_match($re, $token, $match))
		{
			$token = $match[1];
			$re    = '/(ΟΚ|ΜΑΜ|ΜΑΝ|ΜΠΑΜΠ|ΠΑΤΕΡ|ΓΙΑΓΙ|ΝΤΑΝΤ|ΚΥΡ|ΘΕΙ|ΠΕΘΕΡ)$/';

if (!preg_match($re, $token))
			{
				$token = $token . "ΑΔ";
			}
		}

// Step 2b. 2 stems
		$re = '/^(.+?)(ΕΔΕΣ|ΕΔΩΝ)$/';

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token  = $match[1];
			$exept2 = '/(ΟΠ|ΙΠ|ΕΜΠ|ΥΠ|ΓΗΠ|ΔΑΠ|ΚΡΑΣΠ|ΜΙΛ)$/';

if (preg_match($exept2, $token))
			{
				$token = $token . 'ΕΔ';
			}
		}

// Step 2c
		$re = '/^(.+?)(ΟΥΔΕΣ|ΟΥΔΩΝ)$/';

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token = $match[1];

$exept3 = '/(ΑΡΚ|ΚΑΛΙΑΚ|ΠΕΤΑΛ|ΛΙΧ|ΠΛΕΞ|ΣΚ|Σ|ΦΛ|ΦΡ|ΒΕΛ|ΛΟΥΛ|ΧΝ|ΣΠ|ΤΡΑΓ|ΦΕ)$/';

if (preg_match($exept3, $token))
			{
				$token = $token . 'ΟΥΔ';
			}
		}

// Step 2d
		$re = '/^(.+?)(ΕΩΣ|ΕΩΝ)$/';

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token  = $match[1];
			$test1  = false;
			$exept4 = '/^(Θ|Δ|ΕΛ|ΓΑΛ|Ν|Π|ΙΔ|ΠΑΡ)$/';

if (preg_match($exept4, $token))
			{
				$token = $token . 'Ε';
			}
		}

// Step 3
		$re = '/^(.+?)(ΙΑ|ΙΟΥ|ΙΩΝ)$/';

if (preg_match($re, $token, $fp))
		{
			$stem  = $fp[1];
			$token = $stem;
			$re    = '/' . $v . '$/';
			$test1 = false;

if (preg_match($re, $token))
			{
				$token = $stem . 'Ι';
			}
		}

// Step 4
		$re = '/^(.+?)(ΙΚΑ|ΙΚΟ|ΙΚΟΥ|ΙΚΩΝ)$/';

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token  = $match[1];
			$test1  = false;
			$re     = '/' . $v . '$/';
			$exept5 = '/^(ΑΛ|ΑΔ|ΕΝΔ|ΑΜΑΝ|ΑΜΜΟΧΑΛ|ΗΘ|ΑΝΗΘ|ΑΝΤΙΔ|ΦΥΣ|ΒΡΩΜ|ΓΕΡ|ΕΞΩΔ|ΚΑΛΠ|ΚΑΛΛΙΝ|ΚΑΤΑΔ|ΜΟΥΛ|ΜΠΑΝ|ΜΠΑΓΙΑΤ|ΜΠΟΛ|ΜΠΟΣ|ΝΙΤ|ΞΙΚ|ΣΥΝΟΜΗΛ|ΠΕΤΣ|'
					. 'ΠΙΤΣ|ΠΙΚΑΝΤ|ΠΛΙΑΤΣ|ΠΟΣΤΕΛΝ|ΠΡΩΤΟΔ|ΣΕΡΤ|ΣΥΝΑΔ|ΤΣΑΜ|ΥΠΟΔ|ΦΙΛΟΝ|ΦΥΛΟΔ|ΧΑΣ)$/';

if (preg_match($re, $token) || preg_match($exept5, $token))
			{
				$token = $token . 'ΙΚ';
			}
		}

// Step 5a
		$re  = '/^(.+?)(ΑΜΕ)$/';
		$re2 = '/^(.+?)(ΑΓΑΜΕ|ΗΣΑΜΕ|ΟΥΣΑΜΕ|ΗΚΑΜΕ|ΗΘΗΚΑΜΕ)$/';

if ($token == "ΑΓΑΜΕ")
		{
			$token = "ΑΓΑΜ";
		}

if (preg_match($re2, $token))
		{
			preg_match($re2, $token, $match);
			$token = $match[1];
			$test1 = false;
		}

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token  = $match[1];
			$test1  = false;
			$exept6 = '/^(ΑΝΑΠ|ΑΠΟΘ|ΑΠΟΚ|ΑΠΟΣΤ|ΒΟΥΒ|ΞΕΘ|ΟΥΛ|ΠΕΘ|ΠΙΚΡ|ΠΟΤ|ΣΙΧ|Χ)$/';

if (preg_match($exept6, $token))
			{
				$token = $token . "ΑΜ";
			}
		}

if (preg_match($re3, $token))
		{
			preg_match($re3, $token, $match);
			$token = $match[1];
			$test1 = false;
			$re3   = '/^(ΤΡ|ΤΣ)$/';

if (preg_match($re3, $token))
			{
				$token = $token . "ΑΓΑΝ";
			}
		}

if (preg_match($re2, $token))
		{
			preg_match($re2, $token, $match);
			$token  = $match[1];
			$test1  = false;
			$re2    = '/' . $v2 . '$/';
			$exept7 = '/^(ΒΕΤΕΡ|ΒΟΥΛΚ|ΒΡΑΧΜ|Γ|ΔΡΑΔΟΥΜ|Θ|ΚΑΛΠΟΥΖ|ΚΑΣΤΕΛ|ΚΟΡΜΟΡ|ΛΑΟΠΛ|ΜΩΑΜΕΘ|Μ|ΜΟΥΣΟΥΛΜ|Ν|ΟΥΛ|Π|ΠΕΛΕΚ|ΠΛ|ΠΟΛΙΣ|ΠΟΡΤΟΛ|ΣΑΡΑΚΑΤΣ|ΣΟΥΛΤ|'
					. 'ΤΣΑΡΛΑΤ|ΟΡΦ|ΤΣΙΓΓ|ΤΣΟΠ|ΦΩΤΟΣΤΕΦ|Χ|ΨΥΧΟΠΛ|ΑΓ|ΟΡΦ|ΓΑΛ|ΓΕΡ|ΔΕΚ|ΔΙΠΛ|ΑΜΕΡΙΚΑΝ|ΟΥΡ|ΠΙΘ|ΠΟΥΡΙΤ|Σ|ΖΩΝΤ|ΙΚ|ΚΑΣΤ|ΚΟΠ|ΛΙΧ|ΛΟΥΘΗΡ|ΜΑΙΝΤ|'
					. 'ΜΕΛ|ΣΙΓ|ΣΠ|ΣΤΕΓ|ΤΡΑΓ|ΤΣΑΓ|Φ|ΕΡ|ΑΔΑΠ|ΑΘΙΓΓ|ΑΜΗΧ|ΑΝΙΚ|ΑΝΟΡΓ|ΑΠΗΓ|ΑΠΙΘ|ΑΤΣΙΓΓ|ΒΑΣ|ΒΑΣΚ|ΒΑΘΥΓΑΛ|ΒΙΟΜΗΧ|ΒΡΑΧΥΚ|ΔΙΑΤ|ΔΙΑΦ|ΕΝΟΡΓ|'
					. 'ΘΥΣ|ΚΑΠΝΟΒΙΟΜΗΧ|ΚΑΤΑΓΑΛ|ΚΛΙΒ|ΚΟΙΛΑΡΦ|ΛΙΒ|ΜΕΓΛΟΒΙΟΜΗΧ|ΜΙΚΡΟΒΙΟΜΗΧ|ΝΤΑΒ|ΞΗΡΟΚΛΙΒ|ΟΛΙΓΟΔΑΜ|ΟΛΟΓΑΛ|ΠΕΝΤΑΡΦ|ΠΕΡΗΦ|ΠΕΡΙΤΡ|ΠΛΑΤ|'
					. 'ΠΟΛΥΔΑΠ|ΠΟΛΥΜΗΧ|ΣΤΕΦ|ΤΑΒ|ΤΕΤ|ΥΠΕΡΗΦ|ΥΠΟΚΟΠ|ΧΑΜΗΛΟΔΑΠ|ΨΗΛΟΤΑΒ)$/';

if (preg_match($re2, $token) || preg_match($exept7, $token))
			{
				$token = $token . "ΑΝ";
			}
		}

// Step 5c
		$re3 = '/^(.+?)(ΕΤΕ)$/';
		$re4 = '/^(.+?)(ΗΣΕΤΕ)$/';

if (preg_match($re4, $token))
		{
			preg_match($re4, $token, $match);
			$token = $match[1];
			$test1 = false;
		}

if (preg_match($re3, $token))
		{
			preg_match($re3, $token, $match);
			$token  = $match[1];
			$test1  = false;
			$re3    = '/' . $v2 . '$/';
			$exept8 = '/(ΟΔ|ΑΙΡ|ΦΟΡ|ΤΑΘ|ΔΙΑΘ|ΣΧ|ΕΝΔ|ΕΥΡ|ΤΙΘ|ΥΠΕΡΘ|ΡΑΘ|ΕΝΘ|ΡΟΘ|ΣΘ|ΠΥΡ|ΑΙΝ|ΣΥΝΔ|ΣΥΝ|ΣΥΝΘ|ΧΩΡ|ΠΟΝ|ΒΡ|ΚΑΘ|ΕΥΘ|ΕΚΘ|ΝΕΤ|ΡΟΝ|ΑΡΚ|ΒΑΡ|ΒΟΛ|ΩΦΕΛ)$/';
			$exept9 = '/^(ΑΒΑΡ|ΒΕΝ|ΕΝΑΡ|ΑΒΡ|ΑΔ|ΑΘ|ΑΝ|ΑΠΛ|ΒΑΡΟΝ|ΝΤΡ|ΣΚ|ΚΟΠ|ΜΠΟΡ|ΝΙΦ|ΠΑΓ|ΠΑΡΑΚΑΛ|ΣΕΡΠ|ΣΚΕΛ|ΣΥΡΦ|ΤΟΚ|Υ|Δ|ΕΜ|ΘΑΡΡ|Θ)$/';

if (preg_match($re3, $token) || preg_match($exept8, $token) || preg_match($exept9, $token))
			{
				$token = $token . "ΕΤ";
			}
		}

// Step 5d
		$re = '/^(.+?)(ΟΝΤΑΣ|ΩΝΤΑΣ)$/';

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token   = $match[1];
			$test1   = false;
			$exept10 = '/^(ΑΡΧ)$/';
			$exept11 = '/(ΚΡΕ)$/';

if (preg_match($exept10, $token))
			{
				$token = $token . "ΟΝΤ";
			}

if (preg_match($exept11, $token))
			{
				$token = $token . "ΩΝΤ";
			}
		}

// Step 5e
		$re = '/^(.+?)(ΟΜΑΣΤΕ|ΙΟΜΑΣΤΕ)$/';

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token   = $match[1];
			$test1   = false;
			$exept11 = '/^(ΟΝ)$/';

if (preg_match($exept11, $token))
			{
				$token = $token . "ΟΜΑΣΤ";
			}
		}

// Step 5f
		$re  = '/^(.+?)(ΕΣΤΕ)$/';
		$re2 = '/^(.+?)(ΙΕΣΤΕ)$/';

if (preg_match($re2, $token))
		{
			preg_match($re2, $token, $match);
			$token = $match[1];
			$test1 = false;
			$re2   = '/^(Π|ΑΠ|ΣΥΜΠ|ΑΣΥΜΠ|ΑΚΑΤΑΠ|ΑΜΕΤΑΜΦ)$/';

if (preg_match($re2, $token))
			{
				$token = $token . "ΙΕΣΤ";
			}
		}

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token   = $match[1];
			$test1   = false;
			$exept12 = '/^(ΑΛ|ΑΡ|ΕΚΤΕΛ|Ζ|Μ|Ξ|ΠΑΡΑΚΑΛ|ΑΡ|ΠΡΟ|ΝΙΣ)$/';

if (preg_match($exept12, $token))
			{
				$token = $token . "ΕΣΤ";
			}
		}

// Step 5g
		$re  = '/^(.+?)(ΗΚΑ|ΗΚΕΣ|ΗΚΕ)$/';
		$re2 = '/^(.+?)(ΗΘΗΚΑ|ΗΘΗΚΕΣ|ΗΘΗΚΕ)$/';

if (preg_match($re2, $token))
		{
			preg_match($re2, $token, $match);
			$token = $match[1];
			$test1 = false;
		}

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token   = $match[1];
			$test1   = false;
			$exept13 = '/(ΣΚΩΛ|ΣΚΟΥΛ|ΝΑΡΘ|ΣΦ|ΟΘ|ΠΙΘ)$/';
			$exept14 = '/^(ΔΙΑΘ|Θ|ΠΑΡΑΚΑΤΑΘ|ΠΡΟΣΘ|ΣΥΝΘ|)$/';

if (preg_match($exept13, $token) || preg_match($exept14, $token))
			{
				$token = $token . "ΗΚ";
			}
		}

// Step 5h
		$re = '/^(.+?)(ΟΥΣΑ|ΟΥΣΕΣ|ΟΥΣΕ)$/';

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token   = $match[1];
			$test1   = false;
			$exept15 = '/^(ΦΑΡΜΑΚ|ΧΑΔ|ΑΓΚ|ΑΝΑΡΡ|ΒΡΟΜ|ΕΚΛΙΠ|ΛΑΜΠΙΔ|ΛΕΧ|Μ|ΠΑΤ|Ρ|Λ|ΜΕΔ|ΜΕΣΑΖ|ΥΠΟΤΕΙΝ|ΑΜ|ΑΙΘ|ΑΝΗΚ|ΔΕΣΠΟΖ|ΕΝΔΙΑΦΕΡ|ΔΕ|ΔΕΥΤΕΡΕΥ|ΚΑΘΑΡΕΥ|ΠΛΕ|ΤΣΑ)$/';
			$exept16 = '/(ΠΟΔΑΡ|ΒΛΕΠ|ΠΑΝΤΑΧ|ΦΡΥΔ|ΜΑΝΤΙΛ|ΜΑΛΛ|ΚΥΜΑΤ|ΛΑΧ|ΛΗΓ|ΦΑΓ|ΟΜ|ΠΡΩΤ)$/';

if (preg_match($exept15, $token) || preg_match($exept16, $token))
			{
				$token = $token . "ΟΥΣ";
			}
		}

// Step 5i
		$re = '/^(.+?)(ΑΓΑ|ΑΓΕΣ|ΑΓΕ)$/';

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token   = $match[1];
			$test1   = false;
			$exept17 = '/^(ΨΟΦ|ΝΑΥΛΟΧ)$/';
			$exept20 = '/(ΚΟΛΛ)$/';
			$exept18 = '/^(ΑΒΑΣΤ|ΠΟΛΥΦ|ΑΔΗΦ|ΠΑΜΦ|Ρ|ΑΣΠ|ΑΦ|ΑΜΑΛ|ΑΜΑΛΛΙ|ΑΝΥΣΤ|ΑΠΕΡ|ΑΣΠΑΡ|ΑΧΑΡ|ΔΕΡΒΕΝ|ΔΡΟΣΟΠ|ΞΕΦ|ΝΕΟΠ|ΝΟΜΟΤ|ΟΛΟΠ|ΟΜΟΤ|ΠΡΟΣΤ|ΠΡΟΣΩΠΟΠ|'
				. 'ΣΥΜΠ|ΣΥΝΤ|Τ|ΥΠΟΤ|ΧΑΡ|ΑΕΙΠ|ΑΙΜΟΣΤ|ΑΝΥΠ|ΑΠΟΤ|ΑΡΤΙΠ|ΔΙΑΤ|ΕΝ|ΕΠΙΤ|ΚΡΟΚΑΛΟΠ|ΣΙΔΗΡΟΠ|Λ|ΝΑΥ|ΟΥΛΑΜ|ΟΥΡ|Π|ΤΡ|Μ)$/';
			$exept19 = '/(ΟΦ|ΠΕΛ|ΧΟΡΤ|ΛΛ|ΣΦ|ΡΠ|ΦΡ|ΠΡ|ΛΟΧ|ΣΜΗΝ)$/';

if ((preg_match($exept18, $token) || preg_match($exept19, $token))
				&& !(preg_match($exept17, $token) || preg_match($exept20, $token)))
			{
				$token = $token . "ΑΓ";
			}
		}

// Step 5j
		$re = '/^(.+?)(ΗΣΕ|ΗΣΟΥ|ΗΣΑ)$/';

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token   = $match[1];
			$test1   = false;
			$exept21 = '/^(Ν|ΧΕΡΣΟΝ|ΔΩΔΕΚΑΝ|ΕΡΗΜΟΝ|ΜΕΓΑΛΟΝ|ΕΠΤΑΝ)$/';

if (preg_match($exept21, $token))
			{
				$token = $token . "ΗΣ";
			}
		}

// Step 5k
		$re = '/^(.+?)(ΗΣΤΕ)$/';

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token   = $match[1];
			$test1   = false;
			$exept22 = '/^(ΑΣΒ|ΣΒ|ΑΧΡ|ΧΡ|ΑΠΛ|ΑΕΙΜΝ|ΔΥΣΧΡ|ΕΥΧΡ|ΚΟΙΝΟΧΡ|ΠΑΛΙΜΨ)$/';

if (preg_match($exept22, $token))
			{
				$token = $token . "ΗΣΤ";
			}
		}

// Step 5l
		$re = '/^(.+?)(ΟΥΝΕ|ΗΣΟΥΝΕ|ΗΘΟΥΝΕ)$/';

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token   = $match[1];
			$test1   = false;
			$exept23 = '/^(Ν|Ρ|ΣΠΙ|ΣΤΡΑΒΟΜΟΥΤΣ|ΚΑΚΟΜΟΥΤΣ|ΕΞΩΝ)$/';

if (preg_match($exept23, $token))
			{
				$token = $token . "ΟΥΝ";
			}
		}

// Step 5m
		$re = '/^(.+?)(ΟΥΜΕ|ΗΣΟΥΜΕ|ΗΘΟΥΜΕ)$/';

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token   = $match[1];
			$test1   = false;
			$exept24 = '/^(ΠΑΡΑΣΟΥΣ|Φ|Χ|ΩΡΙΟΠΛ|ΑΖ|ΑΛΛΟΣΟΥΣ|ΑΣΟΥΣ)$/';

if (preg_match($exept24, $token))
			{
				$token = $token . "ΟΥΜ";
			}
		}

if (preg_match($re, $token, $match))
		{
			$token = $match[1] . "ΜΑ";
		}

if (preg_match($re2, $token) && $test1)
		{
			preg_match($re2, $token, $match);
			$token = $match[1];
		}

if (preg_match($re, $token))
		{
			preg_match($re, $token, $match);
			$token = $match[1];
		}

return $this->toLowerCase($token, $wCase);
	}

/**
	 * Converts the token to uppercase, suppressing accents and diaeresis. The array $wCase contains a special map of
	 * the uppercase rule used to convert each character at each position.
	 *
	 * @param   string  $token   Token to process
	 * @param   array   &$wCase  Map of uppercase rules
	 *
	 * @return  string
	 *
	 * @since   4.0.0
	 */
	protected function toUpperCase($token, &$wCase)
	{
		$wCase      = array_fill(0, mb_strlen($token, 'UTF-8'), 0);
		$caseConvert = array(
			"α" => 'Α',
			"β" => 'Β',
			"γ" => 'Γ',
			"δ" => 'Δ',
			"ε" => 'Ε',
			"ζ" => 'Ζ',
			"η" => 'Η',
			"θ" => 'Θ',
			"ι" => 'Ι',
			"κ" => 'Κ',
			"λ" => 'Λ',
			"μ" => 'Μ',
			"ν" => 'Ν',
			"ξ" => 'Ξ',
			"ο" => 'Ο',
			"π" => 'Π',
			"ρ" => 'Ρ',
			"σ" => 'Σ',
			"τ" => 'Τ',
			"υ" => 'Υ',
			"φ" => 'Φ',
			"χ" => 'Χ',
			"ψ" => 'Ψ',
			"ω" => 'Ω',
			"ά" => 'Α',
			"έ" => 'Ε',
			"ή" => 'Η',
			"ί" => 'Ι',
			"ό" => 'Ο',
			"ύ" => 'Υ',
			"ώ" => 'Ω',
			"ς" => 'Σ',
			"ϊ" => 'Ι',
			"ϋ" => 'Ι',
			"ΐ" => 'Ι',
			"ΰ" => 'Υ',
		);
		$newToken    = '';

for ($i = 0; $i < mb_strlen($token); $i++)
		{
			$char    = mb_substr($token, $i, 1);
			$isLower = array_key_exists($char, $caseConvert);

if (!$isLower)
			{
				$newToken .= $char;

continue;
			}

$upperCase = $caseConvert[$char];
			$newToken  .= $upperCase;

$wCase[$i] = 1;

if (in_array($char, ['ά', 'έ', 'ή', 'ί', 'ό', 'ύ', 'ώ', 'ς']))
			{
				$wCase[$i] = 2;
			}

if (in_array($char, ['ϊ', 'ϋ']))
			{
				$wCase[$i] = 3;
			}

if (in_array($char, ['ΐ', 'ΰ']))
			{
				$wCase[$i] = 4;
			}
		}

return $newToken;
	}

/**
	 * Converts the suppressed uppercase token back to lowercase, using the $wCase map to add back the accents,
	 * diaeresis and handle the special case of final sigma (different lowercase glyph than the regular sigma, only
	 * used at the end of words).
	 *
	 * @param   string  $token  Token to process
	 * @param   array   $wCase  Map of lowercase rules
	 *
	 * @return  string
	 *
	 * @since   4.0.0
	 */
	protected function toLowerCase($token, $wCase)
	{
		$newToken    = '';

for ($i = 0; $i < mb_strlen($token); $i++)
		{
			$char    = mb_substr($token, $i, 1);

// Is $wCase not set at this position? We assume no case conversion ever took place.
			if (!isset($wCase[$i]))
			{
				$newToken .= $char;

continue;
			}

// The character was not case-converted
			if ($wCase[$i] == 0)
			{
				$newToken .= $char;

continue;
			}

// Case 1: Unaccented letter
			if ($wCase[$i] == 1)
			{
				$newToken .= mb_strtolower($char);

continue;
			}

// Case 2: Vowel with accent (tonos); or the special case of final sigma
			if ($wCase[$i] == 2)
			{
				$charMap = [
					'Α' => 'ά',
					'Ε' => 'έ',
					'Η' => 'ή',
					'Ι' => 'ί',
					'Ο' => 'ό',
					'Υ' => 'ύ',
					'Ω' => 'ώ',
					'Σ' => 'ς'
				];

$newToken .= $charMap[$char];

continue;
			}

// Case 3: vowels with diaeresis (dialytika)
			if ($wCase[$i] == 3)
			{
				$charMap = [
					'Ι' => 'ϊ',
					'Υ' => 'ϋ'
				];

$newToken .= $charMap[$char];

continue;
			}

// Case 4: vowels with both diaeresis (dialytika) and accent (tonos)
			if ($wCase[$i] == 4)
			{
				$charMap = [
					'Ι' => 'ΐ',
					'Υ' => 'ΰ'
				];

$newToken .= $charMap[$char];

continue;
			}

// This should never happen!
			$newToken .= $char;
		}

return $newToken;
	}
}