feature namecase. Склонение составных фамилий ( Салтыков-Щедрин )

Library/NCL/NCLNameCaseCore.php

@@ -585,7 +585,8 @@ class NCLNameCaseCore extends NCL
 
 				$namepart = '';
 
-        switch ($word->getNamePart())
+				$name_part_letter=$word->getNamePart();
+				switch ($name_part_letter)
 				{
 						case 'F': $namepart = 'Father';
 								break;
@@ -597,18 +598,60 @@ class NCLNameCaseCore extends NCL
 
 				$method = $gender . $namepart . 'Name';
 
-        $this->setWorkingWord($word->getWord());
+				//если фамилия из 2х слов через дефис
+				//http://new.gramota.ru/spravka/buro/search-answer?s=273912
 
-        if ($this->$method())
+				//рабоиваем слово с дефисами на части
+				$tmp=$word->getWordOrig();
+				$cur_words=explode('-', $tmp);
+				$o_cur_words=array();
+
+				$result=array();
+				$last_rule=-1;
+
+				$cnt=count($cur_words);
+				foreach ($cur_words as $k=>$cur_word){
+					$is_norm_rules=true;
+					$o_ncw=new NCLNameCaseWord($cur_word);
+					if ( $name_part_letter=='S' && $cnt>1 && $k<$cnt-1 ){
+						//если первая часть фамилии тоже фамилия, то склоняем по общим правилам
+						//иначе не склоняется
+						$o_nc = new NCLNameCaseRu();
+						$o_nc->detectNamePart( $o_ncw );
+						$is_norm_rules=( $o_ncw->getNamePart()==$name_part_letter );
+					}
+
+					$this->setWorkingWord($cur_word);
+
+					if ($is_norm_rules && $this->$method())
 					{
-            $word->setNameCases($this->lastResult);
-            $word->setRule($this->lastRule);
+						//склоняется
+						$result_tmp=$this->lastResult;
+						$last_rule=$this->lastRule;
 					}
 					else
 					{
-            $word->setNameCases(array_fill(0, $this->CaseCount, $word->getWord()));
-            $word->setRule(-1);
+						//не склоняется. Заполняем что есть
+						$result_tmp=array_fill(0, $this->CaseCount, $cur_word);
+						$last_rule=-1;
 					}
+
+					$o_ncw->setNameCases($result_tmp);
+					$o_cur_words[]=$o_ncw;
+				}
+
+				//объединение пачку частей слова в одно слово по каждому падежу
+				foreach ($o_cur_words as $o_ncw){
+					$namecases=$o_ncw->getNameCases();
+					foreach ($namecases as $k=>$namecase){
+						if ( key_exists($k, $result) ) $result[$k]=$result[$k].'-'.$namecase;
+						else $result[$k]=$namecase;
+					}
+				}
+
+				//устанавливаем падежи для целого слова
+				$word->setNameCases($result, false);
+				$word->setRule($last_rule);
 		}
 
 		/**

Library/NCL/NCLNameCaseWord.php

@@ -20,6 +20,12 @@ class NCLNameCaseWord
 		 */
 		private $word = '';
 
+		/**
+		 * Оригинальное слово
+		 * @var string
+		 */
+		private $word_orig = '';
+
 		/**
 		 * Тип текущей записи (Фамилия/Имя/Отчество)
 		 * - <b>N</b> - ім’я
@@ -84,6 +90,7 @@ class NCLNameCaseWord
 		 */
 		public function __construct($word)
 		{
+				$this->word_orig=$word;
 				$this->generateMask($word);
 				$this->word = NCLStr::strtolower($word);
 		}
@@ -156,10 +163,10 @@ class NCLNameCaseWord
 		 * Сохраняет результат склонения текущего слова
 		 * @param array $nameCases массив со всеми падежами
 		 */
-    public function setNameCases($nameCases)
+		public function setNameCases($nameCases, $is_return_mask=true)
 		{
 				$this->NameCases = $nameCases;
-        $this->returnMask();
+				if ($is_return_mask) $this->returnMask();
 		}
 
 		/**
@@ -272,6 +279,15 @@ class NCLNameCaseWord
 				return $this->word;
 		}
 
+		/**
+		 * Возвращает текущее оригинальное слово.
+		 * @return string текущее слово
+		 */
+		public function getWordOrig()
+		{
+				return $this->word_orig;
+		}
+
 		/**
 		 * Если уже был расчитан пол для всех слов системы, тогда каждому слову предается окончательное
 		 * решение. Эта функция определяет было ли принято окончательное решение.