Оптимизация создания делегатам по лямбда выражениям, теперь не создаю…

…тся в случае если не будут исполнены

packagedef

@@ -1,5 +1,5 @@
 Описание.Имя("collectionos")
-        .Версия("0.7.0")
+        .Версия("0.7.1")
         .Автор("Кирилл Черненко")
         .АдресАвтора("https://github.com/sfaqer")
         .Описание("Фреймворк коллекций для OneScript")

src/internal/Классы/Итераторы/ИтераторЗначениеСоответствие.os

@@ -15,7 +15,11 @@
 КонецПроцедуры
 
 Процедура ДляКаждогоОставшегося(Знач Действие, Знач Контекст = Неопределено) Экспорт
-
+
+	Если Не ЕстьСледующий() Тогда
+		Возврат;
+	КонецЕсли;
+
 	Если ТипЗнч(Действие) = Тип("Строка") Тогда
 
 		Действие = Лямбда.Выражение(Действие)

src/internal/Классы/Итераторы/ИтераторКлючСоответствие.os

@@ -15,7 +15,11 @@
 КонецПроцедуры
 
 Процедура ДляКаждогоОставшегося(Знач Действие, Знач Контекст = Неопределено) Экспорт
-
+
+	Если Не ЕстьСледующий() Тогда
+		Возврат;
+	КонецЕсли;
+
 	Если ТипЗнч(Действие) = Тип("Строка") Тогда
 
 		Действие = Лямбда.Выражение(Действие)

src/internal/Классы/Итераторы/СписокИтераторМассив.os

@@ -41,7 +41,11 @@
 КонецПроцедуры
 
 Процедура ДляКаждогоОставшегося(Знач Действие, Знач Контекст = Неопределено) Экспорт
-
+
+	Если Не ЕстьСледующий() Тогда
+		Возврат;
+	КонецЕсли;
+
 	Если ТипЗнч(Действие) = Тип("Строка") Тогда
 
 		Действие = Лямбда.Выражение(Действие)

src/Классы/Коллекции/Карты/КартаСоответствие.os

@@ -20,6 +20,10 @@
 
 Процедура ДляКаждого(Знач Алгоритм, Знач Контекст = Неопределено) Экспорт
 
+	Если Пусто() Тогда
+		Возврат;
+	КонецЕсли;
+
 	Если ТипЗнч(Алгоритм) = Тип("Строка") Тогда
 
 		Алгоритм = Лямбда.Выражение(Алгоритм)
@@ -191,25 +195,25 @@
 
 Функция ВычислитьЕслиОтсутствует(Ключ, Знач ФункцияНазначения, Знач Контекст = Неопределено) Экспорт
 
-	Если ТипЗнч(ФункцияНазначения) = Тип("Строка") Тогда
-		ФункцияНазначения = Лямбда.Выражение(ФункцияНазначения)
-			.Интерфейс(ФункциональныеИнтерфейсы.УниФункция());
+	НовоеЗначение = Неопределено;
+	ТекущееЗначение = Получить(Ключ);
 
-		Если ТипЗнч(Контекст) = Тип("Структура")
-            Или ТипЗнч(Контекст) = Тип("ФиксированнаяСтруктура") Тогда
-			ФункцияНазначения.Контекст(Контекст);
-		Иначе
-			ФункцияНазначения.ЗахватитьОбъект(Контекст);
-		КонецЕсли;
+	Если ТекущееЗначение.Пустой() Тогда
 
-		ФункцияНазначения = ФункцияНазначения.ВДействие();
+		Если ТипЗнч(ФункцияНазначения) = Тип("Строка") Тогда
+			ФункцияНазначения = Лямбда.Выражение(ФункцияНазначения)
+				.Интерфейс(ФункциональныеИнтерфейсы.УниФункция());
 
-	КонецЕсли;
+			Если ТипЗнч(Контекст) = Тип("Структура")
+				Или ТипЗнч(Контекст) = Тип("ФиксированнаяСтруктура") Тогда
+				ФункцияНазначения.Контекст(Контекст);
+			Иначе
+				ФункцияНазначения.ЗахватитьОбъект(Контекст);
+			КонецЕсли;
 
-	НовоеЗначение = Неопределено;
-	ТекущееЗначение = Получить(Ключ);
+			ФункцияНазначения = ФункцияНазначения.ВДействие();
 
-	Если ТекущееЗначение.Пустой() Тогда
+		КонецЕсли;
 
 		НовоеЗначение = ФункцияНазначения.Выполнить(Ключ);
 
@@ -231,24 +235,24 @@
 
 Функция ВычислитьЕслиПрисутствует(Ключ, Знач ФункцияПереназначения, Знач Контекст = Неопределено) Экспорт
 
-	Если ТипЗнч(ФункцияПереназначения) = Тип("Строка") Тогда
-		ФункцияПереназначения = Лямбда.Выражение(ФункцияПереназначения)
-			.Интерфейс(ФункциональныеИнтерфейсы.БиФункция());
+	НовоеЗначение = Неопределено;
 
-		Если ТипЗнч(Контекст) = Тип("Структура")
-            Или ТипЗнч(Контекст) = Тип("ФиксированнаяСтруктура") Тогда
-			ФункцияПереназначения.Контекст(Контекст);
-		Иначе
-			ФункцияПереназначения.ЗахватитьОбъект(Контекст);
-		КонецЕсли;
+	Если СодержитКлюч(Ключ) Тогда
 
-		ФункцияПереназначения = ФункцияПереназначения.ВДействие();
+		Если ТипЗнч(ФункцияПереназначения) = Тип("Строка") Тогда
+			ФункцияПереназначения = Лямбда.Выражение(ФункцияПереназначения)
+				.Интерфейс(ФункциональныеИнтерфейсы.БиФункция());
 
-	КонецЕсли;
+			Если ТипЗнч(Контекст) = Тип("Структура")
+				Или ТипЗнч(Контекст) = Тип("ФиксированнаяСтруктура") Тогда
+				ФункцияПереназначения.Контекст(Контекст);
+			Иначе
+				ФункцияПереназначения.ЗахватитьОбъект(Контекст);
+			КонецЕсли;
 
-	НовоеЗначение = Неопределено;
+			ФункцияПереназначения = ФункцияПереназначения.ВДействие();
 
-	Если СодержитКлюч(Ключ) Тогда
+		КонецЕсли;
 
 		СтароеЗначение = Получить(Ключ);
 		НовоеЗначение  = ФункцияПереназначения.Выполнить(Ключ, СтароеЗначение.Получить());
@@ -336,6 +340,10 @@
 
 Процедура ЗаменитьВсе(Знач ФункцияПереназначения, Знач Контекст = Неопределено) Экспорт
 
+	Если Пусто() Тогда
+		Возврат;
+	КонецЕсли;
+
 	Если ТипЗнч(ФункцияПереназначения) = Тип("Строка") Тогда
 
 		ФункцияПереназначения = Лямбда.Выражение(ФункцияПереназначения)

src/Классы/Коллекции/Множества/МножествоКарта.os

@@ -94,6 +94,10 @@
 
 Функция УдалитьЕсли(Знач Предикат, Знач Контекст = Неопределено) Экспорт
 
+	Если Пусто() Тогда
+		Возврат Ложь;
+	КонецЕсли;
+
 	Если ТипЗнч(Предикат) = Тип("Строка") Тогда
 
 		Предикат = Лямбда.Выражение(Предикат)

src/Классы/Коллекции/Множества/МножествоСоответствие.os

@@ -15,27 +15,7 @@
 КонецФункции
 
 Процедура ДляКаждого(Знач Алгоритм, Знач Контекст = Неопределено) Экспорт
-
-	Если ТипЗнч(Алгоритм) = Тип("Строка") Тогда
-
-		Алгоритм = Лямбда.Выражение(Алгоритм)
-			.Интерфейс(ФункциональныеИнтерфейсы.УниПроцедура());
-
-		Если ТипЗнч(Контекст) = Тип("Структура")
-            Или ТипЗнч(Контекст) = Тип("ФиксированнаяСтруктура") Тогда
-			Алгоритм.Контекст(Контекст);
-		Иначе
-			Алгоритм.ЗахватитьОбъект(Контекст);
-		КонецЕсли;
-
-		Алгоритм = Алгоритм.ВДействие();
-
-	КонецЕсли;
-
-	Для каждого КлючИЗначение Из Соответствие Цикл
-		Алгоритм.Выполнить(КлючИЗначение.Ключ);
-	КонецЦикла;
-
+	Итератор().ДляКаждогоОставшегося(Алгоритм, Контекст);
 КонецПроцедуры
 
 Функция Содержит(Элемент) Экспорт
@@ -156,6 +136,10 @@
 
 Функция УдалитьЕсли(Знач Предикат, Знач Контекст = Неопределено) Экспорт
 
+	Если Пусто() Тогда
+		Возврат Ложь;
+	КонецЕсли;
+
 	Если ТипЗнч(Предикат) = Тип("Строка") Тогда
 
 		Предикат = Лямбда.Выражение(Предикат)

src/Классы/Коллекции/Очереди/ОчередьМассив.os

@@ -16,25 +16,7 @@
 КонецФункции
 
 Процедура ДляКаждого(Знач Алгоритм, Знач Контекст = Неопределено) Экспорт
-
-	Если ТипЗнч(Алгоритм) = Тип("Строка") Тогда
-
-		Алгоритм = Лямбда.Выражение(Алгоритм)
-			.Интерфейс(ФункциональныеИнтерфейсы.УниПроцедура());
-
-		Если ТипЗнч(Контекст) = Тип("Структура")
-            Или ТипЗнч(Контекст) = Тип("ФиксированнаяСтруктура") Тогда
-			Алгоритм.Контекст(Контекст);
-		Иначе
-			Алгоритм.ЗахватитьОбъект(Контекст);
-		КонецЕсли;
-
-		Алгоритм = Алгоритм.ВДействие();
-
-	КонецЕсли;
-
 	Итератор().ДляКаждогоОставшегося(Алгоритм, Контекст);
-
 КонецПроцедуры
 
 Функция Содержит(Элемент) Экспорт
@@ -150,6 +132,10 @@
 
 Функция УдалитьЕсли(Знач Предикат, Знач Контекст = Неопределено) Экспорт
 
+	Если Пусто() Тогда
+		Возврат Ложь;
+	КонецЕсли;
+
 	Если ТипЗнч(Предикат) = Тип("Строка") Тогда
 
 		Предикат = Лямбда.Выражение(Предикат)

src/Классы/Коллекции/Очереди/ПриоритетнаяОчередь.os

@@ -17,25 +17,7 @@
 КонецФункции
 
 Процедура ДляКаждого(Знач Алгоритм, Знач Контекст = Неопределено) Экспорт
-
-	Если ТипЗнч(Алгоритм) = Тип("Строка") Тогда
-
-		Алгоритм = Лямбда.Выражение(Алгоритм)
-			.Интерфейс(ФункциональныеИнтерфейсы.УниПроцедура());
-
-		Если ТипЗнч(Контекст) = Тип("Структура")
-            Или ТипЗнч(Контекст) = Тип("ФиксированнаяСтруктура") Тогда
-			Алгоритм.Контекст(Контекст);
-		Иначе
-			Алгоритм.ЗахватитьОбъект(Контекст);
-		КонецЕсли;
-
-		Алгоритм = Алгоритм.ВДействие();
-
-	КонецЕсли;
-
 	Итератор().ДляКаждогоОставшегося(Алгоритм, Контекст);
-
 КонецПроцедуры
 
 Функция Содержит(Элемент) Экспорт
@@ -151,6 +133,10 @@
 
 Функция УдалитьЕсли(Знач Предикат, Знач Контекст = Неопределено) Экспорт
 
+	Если Пусто() Тогда
+		Возврат Ложь;
+	КонецЕсли;
+
 	Если ТипЗнч(Предикат) = Тип("Строка") Тогда
 
 		Предикат = Лямбда.Выражение(Предикат)

src/Классы/Коллекции/Списки/СписокМассив.os

@@ -14,25 +14,7 @@
 КонецФункции
 
 Процедура ДляКаждого(Знач Алгоритм, Знач Контекст = Неопределено) Экспорт
-
-	Если ТипЗнч(Алгоритм) = Тип("Строка") Тогда
-
-		Алгоритм = Лямбда.Выражение(Алгоритм)
-			.Интерфейс(ФункциональныеИнтерфейсы.УниПроцедура());
-
-		Если ТипЗнч(Контекст) = Тип("Структура")
-            Или ТипЗнч(Контекст) = Тип("ФиксированнаяСтруктура") Тогда
-			Алгоритм.Контекст(Контекст);
-		Иначе
-			Алгоритм.ЗахватитьОбъект(Контекст);
-		КонецЕсли;
-
-		Алгоритм = Алгоритм.ВДействие();
-
-	КонецЕсли;
-
 	Итератор().ДляКаждогоОставшегося(Алгоритм, Контекст);
-
 КонецПроцедуры
 
 Функция Содержит(Элемент) Экспорт
@@ -183,6 +165,10 @@
 
 Функция УдалитьЕсли(Знач Предикат, Знач Контекст = Неопределено) Экспорт
 
+	Если Пусто() Тогда
+		Возврат Ложь;
+	КонецЕсли;
+
 	Если ТипЗнч(Предикат) = Тип("Строка") Тогда
 
 		Предикат = Лямбда.Выражение(Предикат)
@@ -274,6 +260,10 @@
 
 Процедура ЗаменитьВсе(Знач Алгоритм, Знач Контекст = Неопределено) Экспорт
 
+	Если Пусто() Тогда
+		Возврат;
+	КонецЕсли;
+
 	Если ТипЗнч(Алгоритм) = Тип("Строка") Тогда
 
 		Алгоритм = Лямбда.Выражение(Алгоритм)
@@ -298,6 +288,10 @@
 
 Процедура Сортировать(Знач СравнениеЗначений, Знач Контекст = Неопределено) Экспорт
 
+	Если Пусто() Тогда
+		Возврат;
+	КонецЕсли;
+
 	Если ТипЗнч(СравнениеЗначений) = Тип("Строка") Тогда
 
 		СравнениеЗначений = Лямбда.Выражение(СравнениеЗначений)

tests/ТестМодуль/ТестМодуль.os

@@ -61,30 +61,22 @@
 
 	КонецЦикла;
 
-	Попытка
-		ФоновыеЗадания.ОжидатьЗавершенияЗадач();
-	Исключение
-
-		ИнформацияОбОшибке = ИнформацияОбОшибке();
-		Сообщить(ТипЗнч(ИнформацияОбОшибке));
-		Если ИнформацияОбОшибке.Параметры <> Неопределено И ИнформацияОбОшибке.Параметры.Количество() > 0 Тогда
-			ИнформацияОбОшибке = ИнформацияОбОшибке.Параметры[0].ИнформацияОбОшибке;
-		КонецЕсли;
+	ФоновыеЗадания.ОжидатьВсе(Задания);
 
-		ФоновыеЗадания.Очистить();
+	Для каждого ФоновоеЗадание Из Задания Цикл
 
-		ВызватьИсключение ПодробноеПредставлениеОшибки(ИнформацияОбОшибке);
+		Если ФоновоеЗадание.Состояние = СостояниеФоновогоЗадания.ЗавершеноАварийно Тогда
+			ВызватьИсключение ФоновоеЗадание.ИнформацияОбОшибке;
+		КонецЕсли;
 
-	КонецПопытки;
+	КонецЦикла;
 
 	Результаты = Новый Массив;
 
 	Для каждого ФоновоеЗадание Из Задания Цикл
 		Результаты.Добавить(ФоновоеЗадание.Результат);
 	КонецЦикла;
 
-	ФоновыеЗадания.Очистить();
-
 	Возврат Результаты;
 
 КонецФункции