Определение обязательных соединений, рефакторинг ошибок oscript-library#78

Author: Stivo182

src/core/Классы/internal/parser/Классы/АргументыПарсера.os

@@ -2,13 +2,11 @@
 
 // Ссылка на класс аргумента
 Перем Аргумент Экспорт;
-Перем Обязательный Экспорт; // Булево
 Перем Лог;
 
-Процедура ПриСозданииОбъекта(КлассОпции, ОбязательныйАргумент = Истина)
+Процедура ПриСозданииОбъекта(КлассОпции)
 
 	Аргумент = КлассОпции;
-	Обязательный = ОбязательныйАргумент;
 
 КонецПроцедуры
 
@@ -43,25 +41,21 @@
 			КонтекстПоиска.НеВключенныеАргументы.Вставить(Аргумент, Истина);
 		КонецЕсли;
 
-		Если Обязательный И НЕ (Результат.Найден ИЛИ Аргумент.УстановленаИзПеременнойОкружения) Тогда
-			Результат.Ошибка = СтрШаблон("Ожидается аргумент %1", Аргумент.Имя);
+		Если НЕ (Результат.Найден ИЛИ Аргумент.УстановленаИзПеременнойОкружения) Тогда
+			Результат.Ошибка = ОшибкиПарсера.ОшибкаОжидаетсяАргумент(Аргумент.Имя);
 		КонецЕсли;
 
 		Возврат Результат;
 
 	КонецЕсли;
 
 	Если ПустаяСтрока(Аргументы[0]) Тогда 
-		Если Обязательный Тогда
-			Результат.Ошибка = СтрШаблон("Ожидается аргумент %1", Аргумент.Имя);
-		КонецЕсли;
+		Результат.Ошибка = ОшибкиПарсера.ОшибкаОжидаетсяАргумент(Аргумент.Имя);
 		Возврат Результат;
 	КонецЕсли;
 
 	Если НЕ КонтекстПоиска.СбросОпций И СтрНачинаетсяС(Аргументы[0], "-") И НЕ Аргументы[0] = "-" Тогда
-		Если Обязательный Тогда
-			Результат.Ошибка = СтрШаблон("Ожидается аргумент %1 вместо опции %2", Аргумент.Имя, Аргументы[0]);
-		КонецЕсли;
+		Результат.Ошибка = ОшибкиПарсера.ОшибкаОжидаетсяАргументВместоОпции(Аргумент.Имя, Аргументы[0]);
 		Возврат Результат;		
 	КонецЕсли;
 

src/core/Классы/internal/parser/Классы/ВсеОпцииПарсера.os

@@ -86,6 +86,12 @@
 			КонецЕсли;
 
 			Возврат РезультатПоиска;
+
+		КонецЕсли;
+
+		Если ЗначениеЗаполнено(РезультатПоиска.Ошибка)
+			И ОшибкиПарсера.ОшибкаТребуетВнимания(РезультатПоиска.Ошибка) Тогда
+			Возврат Новый РезультатПоискаПараметра(Аргументы, Ложь, РезультатПоиска.Ошибка);
 		КонецЕсли;
 
 	КонецЦикла;

src/core/Классы/internal/parser/Классы/ОпцияПарсера.os

@@ -2,16 +2,14 @@
 
 Перем Опция Экспорт; // ПараметрКоманды - Ссылка на класс опции
 Перем ОпцииИндекс Экспорт; // Соответствие - Ссылка на текущий индекс опций
-Перем Обязательный Экспорт; // Булево
 
 Перем Лог;
 
-Процедура ПриСозданииОбъекта(КлассОпции, Индекс, ОбязательнаяОпция = Истина)
+Процедура ПриСозданииОбъекта(КлассОпции, Индекс)
 
 	Лог.Отладка("Создан парсер для опции %1", КлассОпции.Имя);
 	Опция = КлассОпции;
 	ОпцииИндекс = Индекс;
-	Обязательный = ОбязательнаяОпция;
 
 КонецПроцедуры
 
@@ -42,8 +40,8 @@
 
 		Результат.Найден = Опция.УстановленаИзПеременнойОкружения;
 
-		Если Обязательный И НЕ (Результат.Найден ИЛИ КонтекстПоиска.СбросОпций) Тогда
-			Результат.Ошибка = ОшибкаОжидаетсяОпция(Опция.Имя);
+		Если НЕ (Результат.Найден ИЛИ КонтекстПоиска.СбросОпций) Тогда
+			Результат.Ошибка = ОшибкиПарсера.ОшибкаОжидаетсяОпция(Опция.Имя);
 		КонецЕсли;
 
 		Возврат Результат;
@@ -128,20 +126,20 @@
 		КлассОпции = ОпцииИндекс[Имя];
 		Если КлассОпции = Неопределено Тогда
 			Лог.Отладка("Неопределенная опция: %1", Строка(Имя));
-			Результат.Ошибка = ОшибкаНеожидаемаяОпция(Имя);
+			Результат.Ошибка = ОшибкиПарсера.ОшибкаНеожидаемаяОпция(Имя);
 			Возврат Результат;
 		КонецЕсли;
 
 		Если Не КлассОпции.Имя = Опция.Имя Тогда
-			Результат.Ошибка = ОшибкаОжидаетсяВместо(Опция.Имя, Имя);
+			Результат.Ошибка = ОшибкиПарсера.ОшибкаОжидаетсяОпцияВместо(Опция.Имя, Имя);
 			Результат.ДополнительныеСвойства.ПрибавочныйИндекс = 1;
 			Возврат Результат;
 		КонецЕсли; 
 
 		Значение = Сред(ТекущийАргумент, 4);
 
 		Если ПустаяСтрока(СокрЛП(Значение)) Тогда
-			Результат.Ошибка = СтрШаблон("Опция %1 должна содержать значение после знака =", Имя);
+			Результат.Ошибка = ОшибкиПарсера.ОшибкаТребуетсяЗначениеПослеЗнакаРавноДляОпции(Имя);
 			Возврат Результат;
 		КонецЕсли;
 
@@ -179,7 +177,7 @@
 
 		Если КлассОпции = Неопределено Тогда
 			Лог.Отладка("Неопределенная опция: %1", Строка(ИмяОпции));
-			Ошибка = ?(Ошибка = Неопределено, ОшибкаНеожидаемаяОпция(ИмяОпции), Ошибка);
+			Ошибка = ?(Ошибка = Неопределено, ОшибкиПарсера.ОшибкаНеожидаемаяОпция(ИмяОпции), Ошибка);
 			Возврат РезультатПоискаОтрицательный(Аргументы, Ошибка);
 		КонецЕсли;
 
@@ -191,7 +189,7 @@
 			Если Не КлассОпции.Имя = Опция.Имя Тогда
 				ИИ = ИИ + 1;
 				Лог.Отладка("Не нашли опцию %1, %2 <> %3", ИмяОпции, КлассОпции.Имя, Опция.Имя);
-				Ошибка = ОшибкаОжидаетсяВместо(Опция.Имя, ИмяОпции);
+				Ошибка = ОшибкиПарсера.ОшибкаОжидаетсяОпцияВместо(Опция.Имя, ИмяОпции);
 				Продолжить;
 			КонецЕсли; 
 
@@ -225,23 +223,23 @@
 
 			Если Аргументы.Вграница() - Индекс = 0 Тогда
 				Если Не КлассОпции.Имя = Опция.Имя Тогда
-					Ошибка = ОшибкаОжидаетсяВместо(Опция.Имя, ИмяОпции);
+					Ошибка = ОшибкиПарсера.ОшибкаОжидаетсяОпцияВместо(Опция.Имя, ИмяОпции);
 				Иначе
-					Ошибка = ОшибкаТребуетсяЗначение(ИмяОпции);
+					Ошибка = ОшибкиПарсера.ОшибкаТребуетсяЗначениеДляОпции(ИмяОпции);
 				КонецЕсли;
 				Возврат РезультатПоискаОтрицательный(Аргументы, Ошибка);
 			КонецЕсли;
 
 			Если Не КлассОпции.Имя = Опция.Имя Тогда
-				Ошибка = ОшибкаОжидаетсяВместо(Опция.Имя, ИмяОпции);
+				Ошибка = ОшибкиПарсера.ОшибкаОжидаетсяОпцияВместо(Опция.Имя, ИмяОпции);
 				Возврат РезультатПоискаОтрицательный(Аргументы, Ошибка, 2);
 			КонецЕсли;
 
 			Значение = Аргументы[Индекс + 1];
 			Лог.Отладка("Значение найденной опции равно <%1>", Значение);
 
 			Если СтрНачинаетсяС(Значение, "-") Тогда
-				Возврат РезультатПоискаОтрицательный(Аргументы, ОшибкаТребуетсяЗначение(ИмяОпции));
+				Возврат РезультатПоискаОтрицательный(Аргументы, ОшибкиПарсера.ОшибкаТребуетсяЗначениеДляОпции(ИмяОпции));
 			КонецЕсли;
 
 			ОпцииКонтекст = КонтекстПоиска.Опции[Опция];
@@ -270,7 +268,7 @@
 		КонецЕсли;
 
 		Если Не КлассОпции.Имя = Опция.Имя Тогда
-			Ошибка = ОшибкаОжидаетсяВместо(Опция.Имя, ИмяОпции);
+			Ошибка = ОшибкиПарсера.ОшибкаОжидаетсяОпцияВместо(Опция.Имя, ИмяОпции);
 			Возврат РезультатПоискаОтрицательный(Аргументы, Ошибка, 1);
 		КонецЕсли; 
 
@@ -299,7 +297,9 @@
 
 	КонецЦикла;
 
-	Ошибка = ?(Обязательный, ОшибкаНеожидаемаяОпция(ТекущийАргумент), Неопределено);
+	Если Не ЗначениеЗаполнено(Ошибка) Тогда
+		Ошибка = ОшибкиПарсера.ОшибкаОжидаетсяОпция(Опция.Имя);
+	КонецЕсли;
 
 	Возврат РезультатПоискаОтрицательный(Аргументы, Ошибка, 1);
 
@@ -320,7 +320,7 @@
 	Лог.Отладка("Класс опции по имени %1", КлассОпции);
 
 	Если КлассОпции = Неопределено Тогда		
-		Ошибка = ОшибкаНеожидаемаяОпция(ИмяОпции);
+		Ошибка = ОшибкиПарсера.ОшибкаНеожидаемаяОпция(ИмяОпции);
 		Возврат РезультатПоискаОтрицательный(Аргументы, Ошибка);
 	КонецЕсли; 
 
@@ -329,14 +329,14 @@
 		Лог.Отладка("Строка содержит <=> второй элемент массива %1", МассивСтрокаАргумента[1]);
 
 		Если Не КлассОпции.Имя = Опция.Имя Тогда
-			Ошибка = ОшибкаОжидаетсяВместо(Опция.Имя, ИмяОпции);
+			Ошибка = ОшибкиПарсера.ОшибкаОжидаетсяОпцияВместо(Опция.Имя, ИмяОпции);
 			Возврат РезультатПоискаОтрицательный(Аргументы, Ошибка, 1);
 		КонецЕсли; 
 
 		Значение = МассивСтрокаАргумента[1];
 
 		Если ПустаяСтрока(Значение) Тогда
-			Ошибка = ОшибкаТребуетсяЗначение(ИмяОпции);
+			Ошибка = ОшибкиПарсера.ОшибкаТребуетсяЗначениеДляОпции(ИмяОпции);
 			Возврат РезультатПоискаОтрицательный(Аргументы, Ошибка);
 		КонецЕсли;
 
@@ -356,7 +356,7 @@
 		Или КлассОпции.ТипОпции = Тип("Массив") И КлассОпции.ТипЭлементаОпции = Тип("Булево") Тогда
 
 		Если Не КлассОпции.Имя = Опция.Имя Тогда
-			Ошибка = ОшибкаОжидаетсяВместо(Опция.Имя, ИмяОпции);
+			Ошибка = ОшибкиПарсера.ОшибкаОжидаетсяОпцияВместо(Опция.Имя, ИмяОпции);
 			Возврат РезультатПоискаОтрицательный(Аргументы, Ошибка, 1);
 		КонецЕсли; 
 
@@ -377,28 +377,28 @@
 
 		Если Аргументы.Количество() - Индекс < 2 Тогда				
 			Если Не КлассОпции.Имя = Опция.Имя Тогда
-				Ошибка = ОшибкаОжидаетсяВместо(Опция.Имя, ИмяОпции);
+				Ошибка = ОшибкиПарсера.ОшибкаОжидаетсяОпцияВместо(Опция.Имя, ИмяОпции);
 			Иначе
-				Ошибка = ОшибкаТребуетсяЗначение(ИмяОпции);
+				Ошибка = ОшибкиПарсера.ОшибкаТребуетсяЗначениеДляОпции(ИмяОпции);
 			КонецЕсли;
 			Возврат РезультатПоискаОтрицательный(Аргументы, Ошибка);
 		КонецЕсли;
 
 		Если Не КлассОпции.Имя = Опция.Имя Тогда
-			Ошибка = ОшибкаОжидаетсяВместо(Опция.Имя, ИмяОпции);
+			Ошибка = ОшибкиПарсера.ОшибкаОжидаетсяОпцияВместо(Опция.Имя, ИмяОпции);
 			Возврат РезультатПоискаОтрицательный(Аргументы, Ошибка, 2);
 		КонецЕсли; 
 
 		Значение = Аргументы[Индекс + 1];
 
 		Если СтрНачинаетсяС(Значение, "-") Тогда
-			Возврат РезультатПоискаОтрицательный(Аргументы, ОшибкаТребуетсяЗначение(ИмяОпции));
+			Возврат РезультатПоискаОтрицательный(Аргументы, ОшибкиПарсера.ОшибкаТребуетсяЗначениеДляОпции(ИмяОпции));
 		КонецЕсли;
 
 		Лог.Отладка("Значение длинной опции <%1>", Значение);
 
 		Если ПустаяСтрока(Значение) Тогда
-			Возврат РезультатПоискаОтрицательный(Аргументы, ОшибкаТребуетсяЗначение(ИмяОпции));
+			Возврат РезультатПоискаОтрицательный(Аргументы, ОшибкиПарсера.ОшибкаТребуетсяЗначениеДляОпции(ИмяОпции));
 		КонецЕсли;
 
 		ОпцииКонтекст = КонтекстПоиска.Опции[Опция];
@@ -446,40 +446,4 @@
 	Возврат РезультатПоиска;
 КонецФункции
 
-Функция ОшибкаТребуетсяЗначение(Имя)
-	Возврат СтрШаблон("Опция %1 должна содержать значение", ВосстановитьТиреПередОпцией(Имя));	
-КонецФункции
-
-Функция ОшибкаНеожидаемаяОпция(Имя)
-	Возврат СтрШаблон("Неожидаемая опция %1", ВосстановитьТиреПередОпцией(Имя));	
-КонецФункции
-
-Функция ОшибкаОжидаетсяОпция(Имя)
-	Возврат СтрШаблон("Ожидается опция %1", ВосстановитьТиреПередОпцией(Имя));
-КонецФункции
-
-Функция ОшибкаОжидаетсяВместо(Имя, ИмяВместо)
-	Если Не Обязательный Тогда
-		Возврат Неопределено;
-	КонецЕсли;
-
-	Возврат СтрШаблон("Ожидается опция %1 вместо %2", 
-		ВосстановитьТиреПередОпцией(Имя), 
-		ВосстановитьТиреПередОпцией(ИмяВместо));
-КонецФункции
-
-Функция ВосстановитьТиреПередОпцией(Имя)
-	
-	Если СтрНачинаетсяС(Имя, "-") Тогда
-		Возврат Имя;
-	КонецЕсли;
-
-	Если СтрДлина(Имя) > 1 Тогда
-		Возврат "--" + Имя;
-	Иначе
-		Возврат "-" + Имя;
-	КонецЕсли;
-	
-КонецФункции
-
 Лог = Логирование.ПолучитьЛог("oscript.lib.cli_class_opt");