Добавлена поддержка лямбда выражений без параметров

Author: sfaqer

README.md

@@ -68,9 +68,11 @@
 1. Предоставить возможность не писать возврат в однострочных лямбда выражениях вашим потребителям, если это функция
 
 В составе библиотеки поставляет ряд функциональных интерфейсов (в модуле `ФункциональныеИнтерфейсы`):
+1. Вызываемый   - Функция `Вызвать` без параметров
 1. УниФункция   - Функция `Применить` с одним параметром
 1. БиФункция    - Функция `Применить` с двумя параметром
 1. ТриФункция   - Функция `Применить` с тремя параметром
+1. Запускаемый  - Процедура `Запустить` без параметров
 1. УниПроцедура - Процедура `Принять` с одним параметром
 1. БиПроцедура  - Процедура `Принять` с двумя параметрами
 1. ТриПроцедура - Процедура `Принять` с тремя параметрами
@@ -372,6 +374,17 @@
 
 ### ФункциональныеИнтерфейсы
 
+#### Вызываемый
+
+```bsl
+// Возвращает интерфейс объекта содержащий функцию без параметров
+//
+//  Возвращаемое значение:
+//   ИнтерфейсОбъекта - Искомый интерфейс
+//
+Функция Вызываемый() Экспорт
+```
+
 #### УниФункция
 
 ```bsl
@@ -404,6 +417,16 @@
 //
 Функция ТриФункция() 
 ```
+#### Запускаемый
+
+```bsl
+// Возвращает интерфейс объекта содержащий функцию без параметров
+//
+//  Возвращаемое значение:
+//   ИнтерфейсОбъекта - Искомый интерфейс
+//
+Функция Запускаемый() Экспорт
+```
 
 #### УниПроцедура
 

packagedef

@@ -1,5 +1,5 @@
 Описание.Имя("lambdas")
-        .Версия("0.1.2")
+        .Версия("0.1.3")
         .Автор("Кирилл Черненко")
         .АдресАвтора("https://github.com/sfaqer")
         .Описание("API для реализации функциональных интерфейсов для OneScript")

src/internal/Классы/Вызываемый.os

@@ -0,0 +1,2 @@
+Функция Вызвать() Экспорт // BSLLS:FunctionShouldHaveReturn-off
+КонецФункции

src/internal/Классы/Запускаемый.os

@@ -0,0 +1,2 @@
+Процедура Запустить() Экспорт
+КонецПроцедуры

src/internal/Модули/ЛямбдыКешируемыеЗначения.os

@@ -6,7 +6,7 @@
 	Если ЭтоЛямбдаВыражение = Неопределено Тогда
 
 		ЭтоЛямбдаВыражение = Новый РегулярноеВыражение(
-			"\(?\s*([^)]+)\s*\)?\s*->\s*\{?([^\}]+)\}?"
+			"\(?\s*([^)]*)\s*\)?\s*->\s*\{?([^\}]+)\}?"
 		);
 
 	КонецЕсли;

src/Классы/ЛямбдаВыражение.os

@@ -189,10 +189,11 @@
 	КонецЕсли;
 
 	Совпадения = ЭтоЛямбдаВыражение.НайтиСовпадения(Выражение);
-	
+
 	РазобранноеВыражение.Параметры = СтрРазделить(
 		Совпадения[0].Группы[1].Значение,
-		","
+		",",
+		Ложь
 	);
 
 	РазобранноеВыражение.Тело = Совпадения[0].Группы[2].Значение;
@@ -206,7 +207,9 @@
 
 	Если ЭтоФункция Тогда
 
-		Если КоличествоПараметров = 1 Тогда
+		Если КоличествоПараметров = 0 Тогда
+			мИнтерфейс = ФункциональныеИнтерфейсы.Вызываемый();
+		ИначеЕсли КоличествоПараметров = 1 Тогда
 			мИнтерфейс = ФункциональныеИнтерфейсы.УниФункция();
 		ИначеЕсли КоличествоПараметров = 2 Тогда // BSLLS:MagicNumber-off
 			мИнтерфейс = ФункциональныеИнтерфейсы.БиФункция();
@@ -216,7 +219,9 @@
 
 	Иначе
 
-		Если КоличествоПараметров = 1 Тогда
+		Если КоличествоПараметров = 0 Тогда
+			мИнтерфейс = ФункциональныеИнтерфейсы.Запускаемый();
+		ИначеЕсли КоличествоПараметров = 1 Тогда
 			мИнтерфейс = ФункциональныеИнтерфейсы.УниПроцедура();
 		ИначеЕсли КоличествоПараметров = 2 Тогда // BSLLS:MagicNumber-off
 			мИнтерфейс = ФункциональныеИнтерфейсы.БиПроцедура();

src/Модули/ФункциональныеИнтерфейсы.os

@@ -1,13 +1,31 @@
 #Использовать reflector
 #Использовать "../internal"
 
+Перем Вызываемый;   // Кеш интерфейса Вызываемый
 Перем УниФункция;   // Кеш интерфейса УниФункция
 Перем БиФункция;    // Кеш интерфейса БиФункция
 Перем ТриФункция;   // Кеш интерфейса ТриФункция 
+Перем Запускаемый;  // Кеш интерфейса Запускаемый
 Перем УниПроцедура; // Кеш интерфейса УниПроцедура
 Перем БиПроцедура;  // Кеш интерфейса БиПроцедура
 Перем ТриПроцедура; // Кеш интерфейса ТриПроцедура 
 
+// Возвращает интерфейс объекта содержащий функцию без параметров
+//
+//  Возвращаемое значение:
+//   ИнтерфейсОбъекта - Искомый интерфейс
+//
+Функция Вызываемый() Экспорт
+	
+	Если Не ЗначениеЗаполнено(Вызываемый) Тогда
+		Вызываемый = Новый ИнтерфейсОбъекта();
+		Вызываемый.ИзОбъекта(Тип("Вызываемый"));
+	КонецЕсли;
+
+	Возврат Вызываемый;
+
+КонецФункции
+
 // Возвращает интерфейс объекта содержащий функцию с одним параметром
 //
 //  Возвращаемое значение:
@@ -56,6 +74,22 @@
 
 КонецФункции
 
+// Возвращает интерфейс объекта содержащий процедуру без параметров
+//
+//  Возвращаемое значение:
+//   ИнтерфейсОбъекта - Искомый интерфейс
+//
+Функция Запускаемый() Экспорт
+	
+	Если Не ЗначениеЗаполнено(Запускаемый) Тогда
+		Запускаемый = Новый ИнтерфейсОбъекта();
+		Запускаемый.ИзОбъекта(Тип("Запускаемый"));
+	КонецЕсли;
+
+	Возврат Запускаемый;
+
+КонецФункции
+
 // Возвращает интерфейс объекта содержащий процедуру с одним параметром
 //
 //  Возвращаемое значение:

tests/ЛямбдаВыражение.os

@@ -280,6 +280,24 @@
 
 КонецПроцедуры
 
+&Тест
+Процедура ОпределяетсяИнтерфейсДляФункцииБезПараметров() Экспорт
+
+	// Дано
+
+	ЛямбдаВыражение = Новый ЛямбдаВыражение(" -> Возврат 1");
+
+	// Когда
+
+	ЛямбдаВыражение.ВОбъект();
+
+	// Тогда
+
+	Ожидаем.Что(Рефлектор.ПолучитьСвойство(ЛямбдаВыражение, "мИнтерфейс"))
+		.Равно(ФункциональныеИнтерфейсы.Вызываемый());
+
+КонецПроцедуры
+
 &Тест
 Процедура ОпределяетсяИнтерфейсДляФункцииСОднимПараметром() Экспорт
 
@@ -334,6 +352,24 @@
 
 КонецПроцедуры
 
+&Тест
+Процедура ОпределяетсяИнтерфейсДляПроцедурыБезПараметров() Экспорт
+
+	// Дано
+
+	ЛямбдаВыражение = Новый ЛямбдаВыражение(" -> X = 1 = 1");
+
+	// Когда
+
+	ЛямбдаВыражение.ВОбъект();
+
+	// Тогда
+
+	Ожидаем.Что(Рефлектор.ПолучитьСвойство(ЛямбдаВыражение, "мИнтерфейс"))
+		.Равно(ФункциональныеИнтерфейсы.Запускаемый());
+
+КонецПроцедуры
+
 &Тест
 Процедура ОпределяетсяИнтерфейсДляПроцедурыСОднимПараметром() Экспорт
 

tests/ФункциональныеИнтерфейсы.os

@@ -1,5 +1,14 @@
 #Использовать ".."
 
+&Тест
+Процедура Вызываемый() Экспорт
+	
+	Ожидаем.Что(ФункциональныеИнтерфейсы.Вызываемый())
+		.ИмеетТип("ИнтерфейсОбъекта")
+		.Равно(ФункциональныеИнтерфейсы.Вызываемый());
+
+КонецПроцедуры
+
 &Тест
 Процедура УниФункция() Экспорт
 
@@ -27,6 +36,15 @@
 
 КонецПроцедуры
 
+&Тест
+Процедура Запускаемый() Экспорт
+	
+	Ожидаем.Что(ФункциональныеИнтерфейсы.Запускаемый())
+		.ИмеетТип("ИнтерфейсОбъекта")
+		.Равно(ФункциональныеИнтерфейсы.Запускаемый());
+
+КонецПроцедуры
+
 &Тест
 Процедура УниПроцедура() Экспорт