Аннотация "ОсобоеОбращение" для указания списка напильников, которые …

…могут применяться на желуде
autumn-library · Feb 21, 2024 · 868a3c3 · 868a3c3
1 parent f94038f
commit 868a3c3
Show file tree

Hide file tree

Showing 5 changed files with 109 additions and 12 deletions.
diff --git a/src/internal/Классы/АннотацияНапильник.os b/src/internal/Классы/АннотацияНапильник.os
@@ -1,3 +1,5 @@
+#Использовать asserts
+
 Перем _ПрименяетсяТолькоНа;
 
 Функция ПрименяетсяТолькоНа() Экспорт
@@ -7,5 +9,10 @@
 &Аннотация("Напильник")
 &Прозвище("Напильник")
 Процедура ПриСозданииОбъекта(Значение = "", &Повторяемый ПрименяетсяТолькоНа = Неопределено)
+
+	Для Каждого МестоПрименения Из ПрименяетсяТолькоНа Цикл
+		Ожидаем.Что(МестоПрименения, "Ограничение применения напильника должно быть задано строкой").ИмеетТип("Строка");
+	КонецЦикла;
+
 	_ПрименяетсяТолькоНа = ПрименяетсяТолькоНа;
 КонецПроцедуры
diff --git a/src/internal/Классы/АннотацияОсобоеОбращение.os b/src/internal/Классы/АннотацияОсобоеОбращение.os
@@ -0,0 +1,39 @@
+#Использовать asserts
+
+Перем _ПрименятьТолькоНапильники;
+Перем _НеПрименятьНапильники;
+
+Функция НапильникПрименяется(ИмяНапильника) Экспорт
+
+	Если _ПрименятьТолькоНапильники.Количество() > 0 Тогда
+		Возврат _ПрименятьТолькоНапильники.Найти(ИмяНапильника) <> Неопределено;
+	Иначе
+		Возврат _НеПрименятьНапильники.Найти(ИмяНапильника) = Неопределено;
+	КонецЕсли;
+
+КонецФункции
+
+&Аннотация("ОсобоеОбращение")
+Процедура ПриСозданииОбъекта(
+	&Повторяемый ПрименятьТолькоНапильник = Неопределено,
+	&Повторяемый НеПрименятьНапильник = Неопределено
+)
+
+	Для Каждого МестоПрименения Из ПрименятьТолькоНапильник Цикл
+		Ожидаем.Что(МестоПрименения, "Ограничение ""только"" применения напильника должно быть задано строкой")
+			.ИмеетТип("Строка");
+	КонецЦикла;
+
+	Для Каждого МестоПрименения Из НеПрименятьНапильник Цикл
+		Ожидаем.Что(МестоПрименения, "Ограничение ""не"" применения напильника должно быть задано строкой")
+			.ИмеетТип("Строка");
+	КонецЦикла;
+
+	Если ПрименятьТолькоНапильник.Количество() > 0 И НеПрименятьНапильник.Количество() > 0 Тогда
+		ВызватьИсключение "Нельзя одновременно задавать ограничения ""только"" и ""не""";
+	КонецЕсли;
+
+	_ПрименятьТолькоНапильники = ПрименятьТолькоНапильник;
+	_НеПрименятьНапильники = НеПрименятьНапильник;
+
+КонецПроцедуры
diff --git a/src/internal/Классы/ФабрикаЖелудей.os b/src/internal/Классы/ФабрикаЖелудей.os
@@ -613,33 +613,48 @@
 
 	ПрименяемыеНапильники = Новый Массив;
 	ПрозвищаЖелудя = ОпределениеЖелудя.Прозвища();
+
+	АннотацииЗавязи = ОпределениеЖелудя.Завязь().ДанныеМетода().Аннотации;
+	АннотацияОсобоеОбращение = РаботаСАннотациями.НайтиАннотацию(АннотацииЗавязи, "ОсобоеОбращение");
+	ОпределениеАннотацииОсобоеОбращение = Поделка.ПолучитьОпределениеАннотации("ОсобоеОбращение");
+	Если АннотацияОсобоеОбращение <> Неопределено Тогда
+		ОбъектАннотацииОсобоеОбращение = ОпределениеАннотацииОсобоеОбращение.СоздатьОбъектАннотации(АннотацияОсобоеОбращение);
+	КонецЕсли;
 
 	Для Каждого ОпределениеНапильника Из ОпределенияНапильников Цикл
 
 		КорневаяАннотация = ОпределениеНапильника.КорневаяАннотация();
 		ПрименяетсяТолькоНа = КорневаяАннотация.ПрименяетсяТолькоНа();
 
+		НапильникМожетПрименяться = Ложь;
+
 		Если ПрименяетсяТолькоНа.Количество() = 0 Тогда
-			ПрименяемыеНапильники.Добавить(ОпределениеНапильника);
-			Продолжить;
+			НапильникМожетПрименяться = Истина;
+		ИначеЕсли ПрименяетсяТолькоНа.Найти(ОпределениеЖелудя.Имя()) <> Неопределено Тогда
+			НапильникМожетПрименяться = Истина;
+		Иначе
+
+			Для Каждого ПрозвищеЖелудя Из ПрозвищаЖелудя Цикл
+				Если ПрименяетсяТолькоНа.Найти(ПрозвищеЖелудя) <> Неопределено Тогда
+					НапильникМожетПрименяться = Истина;
+					Прервать;
+				КонецЕсли;
+			КонецЦикла;
+
 		КонецЕсли;
 
-		Если ПрименяетсяТолькоНа.Найти(ОпределениеЖелудя.Имя()) <> Неопределено Тогда
-			ПрименяемыеНапильники.Добавить(ОпределениеНапильника);
-			Продолжить;
+		Если НапильникМожетПрименяться И ОбъектАннотацииОсобоеОбращение <> Неопределено Тогда
+			НапильникМожетПрименяться = ОбъектАннотацииОсобоеОбращение.НапильникПрименяется(ОпределениеНапильника.Имя());
 		КонецЕсли;
 
-		Для Каждого ПрозвищеЖелудя Из ПрозвищаЖелудя Цикл
-			Если ПрименяетсяТолькоНа.Найти(ПрозвищеЖелудя) <> Неопределено Тогда
-				ПрименяемыеНапильники.Добавить(ОпределениеНапильника);
-				Прервать;
-			КонецЕсли;
-		КонецЦикла;
+		Если НапильникМожетПрименяться Тогда
+			ПрименяемыеНапильники.Добавить(ОпределениеНапильника);
+		КонецЕсли;
 
 	КонецЦикла;
 
 	КэшПрименяемыхНапильников.Вставить(ОпределениеЖелудя.Имя(), ПрименяемыеНапильники);
-	
+
 	Возврат ПрименяемыеНапильники;
 
 КонецФункции

diff --git a/tests/Поделка.os b/tests/Поделка.os
@@ -901,3 +901,22 @@
 	Ожидаем.Что(НапильникПоИмени.СработалоРаз).Равно(1);
 
 КонецПроцедуры
+
+&Тест
+Процедура ФильтрНапильниковИзЖелудяРаботает() Экспорт
+
+	// Дано
+	Поделка = Новый Поделка;
+	Поделка.ЗапуститьПриложение();
+
+	// Когда
+	Желудь = Поделка.НайтиЖелудь("ЖелудьИзбирательноПрименяющийНапильники");
+	ЖелудьНижнегоУровня = Поделка.НайтиЖелудь("ЖелудьНижнегоУровня");
+
+	// Тогда
+	Ожидаем.Что(Желудь.ЖелудьНижнегоУровня, "Желудь должен внедриться в поле")
+		.Равно(ЖелудьНижнегоУровня);
+	Ожидаем.Что(Желудь.ВторойЖелудьНижнегоУровня, "Желудь не должен инициализироваться в методе ФинальныйШтрих")
+		.Равно(Неопределено);
+
+КонецПроцедуры
diff --git a/tests/ТестКлассы/Классы/ЖелудьИзбирательноПрименяющийНапильники.os b/tests/ТестКлассы/Классы/ЖелудьИзбирательноПрименяющийНапильники.os
@@ -0,0 +1,17 @@
+&Пластилин
+Перем ЖелудьНижнегоУровня Экспорт;
+
+Перем ВторойЖелудьНижнегоУровня Экспорт;
+
+&ФинальныйШтрих
+Процедура Инит() Экспорт
+	ВторойЖелудьНижнегоУровня = ЖелудьНижнегоУровня;
+КонецПроцедуры
+
+&Желудь
+&ОсобоеОбращение(
+	ПрименятьТолькоНапильник = "ОбработкаНапильникомПластилинаНаПолях"
+)
+Процедура ПриСозданииОбъекта()
+
+КонецПроцедуры