Рефакторинг. Вынос выполнения задач в отдельный класс. Вынос чтения манифеста в отдельный модуль.

Author: nixel2007

src/Классы/ВыполнятельЗадач.os

@@ -0,0 +1,31 @@
+
+Процедура ВыполнитьЗадачу(Знач ИмяЗадачи, Знач ПараметрыЗадачи) Экспорт
+	
+	Если ПараметрыЗадачи = Неопределено Тогда
+		ПараметрыЗадачи = Новый Массив;
+	КонецЕсли;
+
+	ПутьККаталогуЗадач = "";
+	
+	ОписаниеПакета = РаботаСОписаниемПакета.ПрочитатьОписаниеПакета();
+	Свойства = ОписаниеПакета.Свойства();
+	Если Свойства.Свойство("Задачи") Тогда
+		ПутьККаталогуЗадач = Свойства.Задачи;
+	КонецЕсли;
+
+	Если НЕ ЗначениеЗаполнено(ПутьККаталогуЗадач) Тогда
+		ПутьККаталогуЗадач = ОбъединитьПути(ТекущийКаталог(), "tasks");
+	КонецЕсли;
+
+	КаталогЗадач = Новый Файл(ПутьККаталогуЗадач);
+	Если НЕ КаталогЗадач.Существует() Тогда
+		ТекстСообщения = СтрШаблон("Не найден каталог задач: %1", КаталогЗадач.ПолноеИмя);
+		ВызватьИсключение ТекстСообщения;
+	КонецЕсли;
+
+	ПутьКЗадаче = ОбъединитьПути(ПутьККаталогуЗадач, ИмяЗадачи + ".os");
+	ПараметрыСценария = Новый Структура("ПараметрыЗадачи", ПараметрыЗадачи);
+	ЗагрузитьСценарий(ПутьКЗадаче, ПараметрыСценария);
+
+КонецПроцедуры
+

src/Классы/ДиспетчерКомандПриложения.os

@@ -141,41 +141,10 @@
 КонецПроцедуры
 
 Процедура ВыполнитьЗадачу(Знач ИмяЗадачи, Знач ПараметрыЗадачи) 
-
-	Если ПараметрыЗадачи = Неопределено Тогда
-		ПараметрыЗадачи = Новый Массив;
-	КонецЕсли;
-
-	ПутьККаталогуЗадач = "";
-
-	ПутьКМанифесту = ОбъединитьПути(ТекущийКаталог(), Константы.ИмяФайлаСпецификацииПакета);
 
-	Файл_Манифест = Новый Файл(ПутьКМанифесту);
-	Если Файл_Манифест.Существует() Тогда
-		Описание = Новый ОписаниеПакета();
-		Контекст = Новый Структура("Описание", Описание);
-		ЗагрузитьСценарий(ПутьКМанифесту, Контекст);
+	ВыполнятельЗадач = Новый ВыполнятельЗадач();
+	ВыполнятельЗадач.ВыполнитьЗадачу(ИмяЗадачи, ПараметрыЗадачи);
 
-		Свойства = Описание.Свойства();
-		Если Свойства.Свойство("Задачи") Тогда
-			ПутьККаталогуЗадач = Свойства.Задачи;
-		КонецЕсли;
-	КонецЕсли;
-
-	Если НЕ ЗначениеЗаполнено(ПутьККаталогуЗадач) Тогда
-		ПутьККаталогуЗадач = ОбъединитьПути(ТекущийКаталог(), "tasks");
-	КонецЕсли;
-
-	КаталогЗадач = Новый Файл(ПутьККаталогуЗадач);
-	Если НЕ КаталогЗадач.Существует() Тогда
-		ТекстСообщения = СтрШаблон("Не найден каталог задач: %1", КаталогЗадач.ПолноеИмя);
-		ВызватьИсключение ТекстСообщения;
-	КонецЕсли;
-
-	ПутьКЗадаче = ОбъединитьПути(ПутьККаталогуЗадач, ИмяЗадачи + ".os");
-	ПараметрыСценария = Новый Структура("ПараметрыЗадачи", ПараметрыЗадачи);
-	ЗагрузитьСценарий(ПутьКЗадаче, ПараметрыСценария);
-
 КонецПроцедуры
 
 Процедура ОбновитьПакет(Знач ЗначенияПараметров) Экспорт

src/Классы/УстановкаПакета.os

@@ -89,20 +89,11 @@
 
 Процедура УстановитьПакетыПоОписаниюПакета() Экспорт
 
-	ПутьКМанифесту = ОбъединитьПути(ТекущийКаталог(), Константы.ИмяФайлаСпецификацииПакета);
+	ОписаниеПакета = РаботаСОписаниемПакета.ПрочитатьОписаниеПакета();
 
-	Файл_Манифест = Новый Файл(ПутьКМанифесту);
-	Если НЕ Файл_Манифест.Существует() Тогда
-		ВызватьИсключение "В текущем каталоге не обнаружен файл " + Константы.ИмяФайлаСпецификацииПакета;
-	КонецЕсли;
-
-	Описание = Новый ОписаниеПакета();
-	Контекст = Новый Структура("Описание", Описание);
-	ЗагрузитьСценарий(ПутьКМанифесту, Контекст);
-	
-	ПроверитьВерсиюСреды(Описание);
+	ПроверитьВерсиюСреды(ОписаниеПакета);
 
-	РазрешитьЗависимостиПакета(Описание);
+	РазрешитьЗависимостиПакета(ОписаниеПакета);
 
 КонецПроцедуры
 

src/Модули/РаботаСОписаниемПакета.os

@@ -0,0 +1,15 @@
+Функция ПрочитатьОписаниеПакета() Экспорт
+
+	Описание = Новый ОписаниеПакета();
+
+	ПутьКМанифесту = ОбъединитьПути(ТекущийКаталог(), Константы.ИмяФайлаСпецификацииПакета);
+	
+	Файл_Манифест = Новый Файл(ПутьКМанифесту);
+	Если Файл_Манифест.Существует() Тогда
+		Контекст = Новый Структура("Описание", Описание);
+        ЗагрузитьСценарий(ПутьКМанифесту, Контекст);
+    КонецЕсли;		
+
+	Возврат Описание;
+
+КонецФункции