Немного оптимизации работы команды приложения

(cherry picked from commit 85fecb1)

Author: khorevaa

src/core/Классы/cmd/КомандаПриложения.os

@@ -96,23 +96,7 @@
 //   Произвольный - Значение - полученное значение в результате чтения строки использования или переменных окружения
 Функция ЗначениеОпции(Знач ИмяОпции) Экспорт
 
-	Если СтрНачинаетсяС(ИмяОпции, "-")
-		Или СтрНачинаетсяС(ИмяОпции, "--") Тогда
-		// Ничего не делаем переданы уже нормализированные опции
-	Иначе
-		Префикс = "-";
-		Если СтрДлина(ИмяОпции) > 1 Тогда
-				Префикс = "--";
-		КонецЕсли;
-		ИмяОпции = СтрШаблон("%1%2",Префикс,ИмяОпции);
-	КонецЕсли;
-
-	ОпцииИндекса = ОпцииИндекс[ИмяОпции];
-	Если ОпцииИндекса = Неопределено Тогда
-		ВызватьИсключение СтрШаблон("Ошибка получение значения опции <%1>. Опция не найдена в индексе опций команды", ИмяОпции);
-	КонецЕсли;
-
-	Возврат ОпцииИндекса.Значение;
+	Возврат ОпцияИзИндекса(ИмяОпции).Значение;
 
 КонецФункции
 
@@ -125,12 +109,7 @@
 //   Произвольный - Значение - полученное значение в результате чтения строки использования или переменных окружения
 Функция ЗначениеАргумента(Знач ИмяАргумента) Экспорт
 
-	АргументИндекса = АргументыИндекс[ВРег(ИмяАргумента)];
-	Если АргументИндекса = Неопределено Тогда
-		ВызватьИсключение СтрШаблон("Ошибка получение значения аргумента <%1>. Аргумент не найден в индексе аргументов команды", ИмяАргумента);
-	КонецЕсли;
-
-	Возврат АргументИндекса.Значение;
+	Возврат АргументИзИндекса(ИмяАргумента).Значение;
 
 КонецФункции
 
@@ -453,6 +432,8 @@
 	парсер = Новый Парсер(ТокеныПарсера, ПараметрыПарсера);
 	НачальноеСостояние = парсер.Прочитать();
 
+	ВывестиПутьПарсераВОтладке();
+
 КонецПроцедуры
 
 // Функция добавляет опцию команды и возвращает экземпляр данной опции
@@ -496,6 +477,38 @@
 
 КонецФункции
 
+Функция ОпцияИзИндекса(Знач ИмяОпции) Экспорт
+	
+	Если СтрНачинаетсяС(ИмяОпции, "-")
+		Или СтрНачинаетсяС(ИмяОпции, "--") Тогда
+		// Ничего не делаем переданы уже нормализированные опции
+	Иначе
+		Префикс = "-";
+		Если СтрДлина(ИмяОпции) > 1 Тогда
+				Префикс = "--";
+		КонецЕсли;
+		ИмяОпции = СтрШаблон("%1%2",Префикс,ИмяОпции);
+	КонецЕсли;
+
+	ОпцииИндекса = ОпцииИндекс[ИмяОпции];
+	Если ОпцииИндекса = Неопределено Тогда
+		ВызватьИсключение СтрШаблон("Ошибка получение значения опции <%1>. Опция не найдена в индексе опций команды", ИмяОпции);
+	КонецЕсли;
+
+	Возврат ОпцииИндекса;
+
+КонецФункции
+
+Функция АргументИзИндекса(Знач ИмяАргумента) Экспорт
+	
+	АргументИндекса = АргументыИндекс[ВРег(ИмяАргумента)];
+	Если АргументИндекса = Неопределено Тогда
+		ВызватьИсключение СтрШаблон("Ошибка получение значения аргумента <%1>. Аргумент не найден в индексе аргументов команды", ИмяАргумента);
+	КонецЕсли;
+
+	Возврат АргументИндекса;
+
+КонецФункции
 // Процедура устанавливает процедуру "ВыполнитьКоманду" выполнения для команды
 //
 // Параметры:
@@ -626,6 +639,7 @@
 	Для каждого КлючЗначение Из Опции Цикл
 
 		КлассОпции = КлючЗначение.Ключ;
+		КлассОпции.ИзФайла();
 		КлассОпции.ИзПеременнойОкружения();
 
 		Для каждого ИмяПараметра Из КлассОпции.НаименованияПараметров Цикл
@@ -643,6 +657,7 @@
 	Для каждого КлючЗначение Из Аргументы Цикл
 
 		КлассАргумента = КлючЗначение.Ключ;
+		КлассАргумента.ИзФайла();
 		КлассАргумента.ИзПеременнойОкружения();
 
 		Для каждого ИмяПараметра Из КлассАргумента.НаименованияПараметров Цикл
@@ -944,6 +959,18 @@
 
 КонецПроцедуры
 
+Процедура ВывестиПутьПарсераВОтладке()
+
+	Если Лог.Уровень() = УровниЛога.Отладка Тогда
+		
+		fsm = Новый ВыборСовпадений();
+		Лог.Отладка("Вывожу текущий путь парсинга: ");
+		Лог.Отладка(fsm.СгенеритьСтрокуПути(НачальноеСостояние));
+
+	КонецЕсли;
+	
+КонецПроцедуры
+
 #КонецОбласти
 
 Процедура ПриСозданииОбъекта(ИмяКоманды, ОписаниеКоманды, КлассРеализацииКоманды, ПриложениеКоманды = Неопределено)