Merge pull request #17 from Nivanchenko/feature/speed-up

Небольшое ускорение при параллельной обработке желудей.

src/internal/Классы/ФабрикаЖелудей.os

@@ -26,9 +26,7 @@
 		Возврат НайденныеОпределения[0];
 	КонецЕсли;
 
-	НайденноеОпределение = ПроцессорыКоллекций.ИзКоллекции(НайденныеОпределения)
-		.Фильтровать("Результат = Элемент.Верховный()")
-		.ПолучитьПервый();
+	НайденноеОпределение = НайтиОпределениеВерховного(НайденныеОпределения);
 
 	Если НайденноеОпределение = Неопределено Тогда
 		ВызватьИсключение "Найдено несколько желудей с именем/прозвищем """ + Имя + """";
@@ -37,6 +35,15 @@
 	Возврат НайденноеОпределение;
 КонецФункции
 
+Функция НайтиОпределениеВерховного(Коллекция)
+	Для Каждого Элемент из Коллекция Цикл
+		Если Элемент.Верховный() = Истина Тогда
+			Возврат Элемент; 
+		КонецЕсли;
+	КонецЦикла;
+	Возврат Неопределено;
+КонецФункции
+
 Функция ПолучитьСписокОпределенийЖелудей(Имя) Экспорт
 
 	Результат = Новый Массив;
@@ -193,9 +200,7 @@
 		ПередаваемыеПрилепляемыеЧастицы = ПереданныеПрилепляемыеЧастицы;
 	Иначе
 
-		КоличествоБлестяшек = ПроцессорыКоллекций.ИзКоллекции(ОпределениеЖелудя.ПрилепляемыеЧастицы())
-			.Фильтровать("Результат = Элемент.ТипЧастицы() = ТипыПрилепляемыхЧастиц.Блестяшка()")
-			.Количество();
+		КоличествоБлестяшек = ПосчитатьКоличествоБлестяшек(ОпределениеЖелудя.ПрилепляемыеЧастицы());
 
 		Если КоличествоБлестяшек <> ПереданныеПрилепляемыеЧастицы.Количество() Тогда
 			ВызватьИсключение "При поиске желудя " + ИмяЖелудя + " количество переданных произвольных параметров отличается от количества параметров не-желудей/не-деталек.";
@@ -251,6 +256,16 @@
 
 КонецФункции
 
+Функция ПосчитатьКоличествоБлестяшек(ПрилепляемыеЧастицы)
+	Количество = 0;
+	Для Каждого Элемент из ПрилепляемыеЧастицы Цикл
+		Если Элемент.ТипЧастицы() = ТипыПрилепляемыхЧастиц.Блестяшка() Тогда
+			Количество = Количество + 1;	
+		КонецЕсли;
+	КонецЦикла;
+	Возврат Количество;
+КонецФункции
+
 Функция ДобавитьЖителяЛеса(ТипЖителяТеля, ИмяЖителяЛеса, АннотацияНадКонструктором)
 
 	РефлекторОбъекта = Новый РефлекторОбъекта(ТипЖителяТеля);

src/Модули/РаботаСАннотациями.os

@@ -1,25 +1,34 @@
 #Использовать fluent
 
 Функция ПолучитьАннотацию(Свойство, ИмяАннотации) Экспорт
-	Аннотация = ПроцессорыКоллекций.ИзКоллекции(Свойство.Аннотации)
-		.Фильтровать(
-			"Результат = ВРег(Элемент.Имя) = ВРег(ДополнительныеПараметры.ИмяАннотации)", 
-			Новый Структура("ИмяАннотации", ИмяАннотации)
-		).ПолучитьПервый();
-
+	Аннотация = ОтфильтроватьПервуюАннотациюПоИмени(Свойство.Аннотации, ИмяАннотации);
 	Возврат Аннотация;
 КонецФункции
 
 Функция ПолучитьАннотации(Свойство, ИмяАннотации) Экспорт
-	Аннотации = ПроцессорыКоллекций.ИзКоллекции(Свойство.Аннотации)
-		.Фильтровать(
-			"Результат = ВРег(Элемент.Имя) = ВРег(ДополнительныеПараметры.ИмяАннотации)", 
-			Новый Структура("ИмяАннотации", ИмяАннотации)
-		).ВМассив();
-
+	Аннотации = ОтфильтроватьАннотацииПоИмени(Свойство.Аннотации, ИмяАннотации);
 	Возврат Аннотации;
 КонецФункции
 
+Функция ОтфильтроватьАннотацииПоИмени(Аннотации, ИмяАннотации)
+	Массив = Новый Массив();
+	Для каждого Элемент Из Аннотации Цикл
+		Если ВРег(Элемент.Имя) = ВРег(ИмяАннотации) Тогда
+			Массив.Добавить(Элемент);
+		КонецЕсли;
+	КонецЦикла;
+	Возврат Массив; 
+КонецФункции
+
+Функция ОтфильтроватьПервуюАннотациюПоИмени(Аннотации, ИмяАннотации)
+	Для каждого Элемент Из Аннотации Цикл
+		Если ВРег(Элемент.Имя) = ВРег(ИмяАннотации) Тогда
+			Возврат Элемент;
+		КонецЕсли;
+	КонецЦикла;
+	Возврат Неопределено; 
+КонецФункции
+
 Функция ПолучитьЗначениеПараметраАннотации(
 	Аннотация, 
 	ИмяПараметра = "Значение", 
@@ -33,11 +42,7 @@
 		Возврат ЗначениеПоУмолчанию;
 	КонецЕсли;
 
-	ПараметрАннотации = ПроцессорыКоллекций.ИзКоллекции(Аннотация.Параметры)
-		.Фильтровать(
-			"Результат = ВРег(Элемент.Имя) = ВРег(ДополнительныеПараметры.ИмяПараметра)", 
-			Новый Структура("ИмяПараметра", ИмяПараметра)
-		).ПолучитьПервый();
+	ПараметрАннотации = ПолучитьПараметрАннотации(Аннотация.Параметры, ИмяПараметра);
 
 	Если ПараметрАннотации <> Неопределено Тогда
 		Возврат ПараметрАннотации.Значение;
@@ -59,4 +64,13 @@
 		ВызватьИсключение Сообщение; 
 	КонецЕсли;
 
+КонецФункции
+
+Функция ПолучитьПараметрАннотации(ПараметрыАннотации, ИмяПараметра)
+	Для каждого Элемент Из ПараметрыАннотации Цикл
+		Если ВРег(Элемент.Имя) = ВРег(ИмяПараметра) Тогда
+			Возврат Элемент;
+		КонецЕсли;
+	КонецЦикла;
+	Возврат Неопределено;
 КонецФункции