Управление выходным каталогом distr через параметры.

Author: EvilBeaver

src/Классы/КомандаСоздатьДистрибутив.os

@@ -13,6 +13,7 @@
     // TODO - с помощью tool1cd можно получить из хранилища
     // на больших историях версий получается массивный xml дамп таблицы
     Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ФайлМанифеста", "Путь к манифесту сборки");
+    Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-out", "Выходной каталог");
 	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-setup", "Собирать дистрибутив вида setup.exe");
     Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-files", "Собирать дистрибутив вида 'файлы поставки'");
     Парсер.ДобавитьКоманду(ОписаниеКоманды);
@@ -28,14 +29,19 @@
 
     Параметры = РазобратьПараметры(ПараметрыКоманды);
     УправлениеКонфигуратором = ОкружениеСборки.ПолучитьКонфигуратор();
-    ВыполнитьСборку(УправлениеКонфигуратором, Параметры.ФайлМанифеста, Параметры.СобиратьИнсталлятор, Параметры.СобиратьФайлыПоставки);
+    ВыполнитьСборку(
+        УправлениеКонфигуратором,
+        Параметры.ФайлМанифеста,
+        Параметры.СобиратьИнсталлятор,
+        Параметры.СобиратьФайлыПоставки,
+        Параметры.ВыходнойКаталог);
 
 КонецФункции
 
-Процедура ВыполнитьСборку(Знач УправлениеКонфигуратором, Знач ФайлМанифеста, Знач СобиратьИнсталлятор, Знач СобиратьФайлыПоставки) Экспорт
+Процедура ВыполнитьСборку(Знач УправлениеКонфигуратором, Знач ФайлМанифеста, Знач СобиратьИнсталлятор, Знач СобиратьФайлыПоставки, Знач ВыходнойКаталог) Экспорт
 
     Информация = СобратьИнформациюОКонфигурации(УправлениеКонфигуратором);
-    СоздатьДистрибутивПоМанифесту(УправлениеКонфигуратором, ФайлМанифеста, Информация.Версия, СобиратьИнсталлятор, СобиратьФайлыПоставки);
+    СоздатьДистрибутивПоМанифесту(УправлениеКонфигуратором, ФайлМанифеста, Информация.Версия, СобиратьИнсталлятор, СобиратьФайлыПоставки, ВыходнойКаталог);
 
 КонецПроцедуры
 
@@ -93,12 +99,19 @@
 
 КонецФункции // ПрочитатьИнформациюОМетаданных()
 
-Функция СоздатьДистрибутивПоМанифесту(Знач УправлениеКонфигуратором, Знач ФайлМанифеста, Знач ВерсияМетаданных, Знач СобиратьИнсталлятор, Знач СобиратьФайлыПоставки)
+Функция СоздатьДистрибутивПоМанифесту(
+    Знач УправлениеКонфигуратором,
+    Знач ФайлМанифеста,
+    Знач ВерсияМетаданных,
+    Знач СобиратьИнсталлятор,
+    Знач СобиратьФайлыПоставки,
+    Знач ВыходнойКаталог)
 
     Сборщик = Новый СборщикДистрибутива;
     Сборщик.ФайлМанифеста = ФайлМанифеста;
     Сборщик.СоздаватьИнсталлятор = СобиратьИнсталлятор;
     Сборщик.СоздаватьФайлыПоставки = СобиратьФайлыПоставки;
+    Сборщик.ВыходнойКаталог = ВыходнойКаталог; 
 
     Сборщик.Собрать(УправлениеКонфигуратором, ВерсияМетаданных, ВерсияМетаданных);
 
@@ -115,6 +128,7 @@
     Результат.Вставить("ФайлМанифеста", ПараметрыКоманды["ФайлМанифеста"]);
     Результат.Вставить("СобиратьИнсталлятор", ПараметрыКоманды["-setup"]);
     Результат.Вставить("СобиратьФайлыПоставки", ПараметрыКоманды["-files"]);
+    Результат.Вставить("ВыходнойКаталог", ПараметрыКоманды["-out"]);
 
     Возврат Результат;
 

src/Классы/СборщикДистрибутива.os

@@ -2,6 +2,7 @@
 Перем ФайлМанифеста Экспорт;
 Перем СоздаватьИнсталлятор Экспорт;
 Перем СоздаватьФайлыПоставки Экспорт;
+Перем ВыходнойКаталог Экспорт;
 
 Перем Лог;
 
@@ -11,22 +12,27 @@
 	Лог.Отладка("Использую шаблон манифеста: " + Манифест);
     УстановитьНомерСборкиВМанифесте(Манифест, ВерсияМетаданных, ИмяКаталогаШаблонаВерсии);
 
-    ВыходнойКаталог = Новый Файл(ОбъединитьПути(УправлениеКонфигуратором.КаталогСборки(), ОкружениеСборки.ИмяКаталогаФормированияДистрибутива()));
-	Если Не ВыходнойКаталог.Существует() Тогда
-		СоздатьКаталог(ВыходнойКаталог.ПолноеИмя);
-	ИначеЕсли ВыходнойКаталог.ЭтоКаталог() Тогда
-		УдалитьФайлы(ВыходнойКаталог.ПолноеИмя, "*.*");
+    Если ПустаяСтрока(ВыходнойКаталог) Тогда
+		ВыходнойКаталогОбъект = Новый Файл(ОбъединитьПути(УправлениеКонфигуратором.КаталогСборки(), ОкружениеСборки.ИмяКаталогаФормированияДистрибутива()));
+	Иначе
+		ВыходнойКаталогОбъект = Новый Файл(ВыходнойКаталог);
+	КонецЕсли;
+
+	Если Не ВыходнойКаталогОбъект.Существует() Тогда
+		СоздатьКаталог(ВыходнойКаталогОбъект.ПолноеИмя);
+	ИначеЕсли ВыходнойКаталогОбъект.ЭтоКаталог() Тогда
+		УдалитьФайлы(ВыходнойКаталогОбъект.ПолноеИмя, "*.*");
 	Иначе
 		УдалитьФайлы(Манифест);
-		ВызватьИсключение "Каталог <" +ВыходнойКаталог.ПолноеИмя+ "> не является каталогом";
+		ВызватьИсключение "Каталог <" +ВыходнойКаталогОбъект.ПолноеИмя+ "> не является каталогом";
 	КонецЕсли;
 
 	// внешние файлы релиза
 	СИ = Новый СистемнаяИнформация();
 	СИ.УстановитьПеременнуюСреды("V8BuildRoot", УправлениеКонфигуратором.КаталогСборки());
 
     Параметры = УправлениеКонфигуратором.ПолучитьПараметрыЗапуска();
-	Параметры.Добавить("/CreateDistributive """ + ВыходнойКаталог.ПолноеИмя + """");
+	Параметры.Добавить("/CreateDistributive """ + ВыходнойКаталогОбъект.ПолноеИмя + """");
 	Параметры.Добавить("-File """ + Манифест + """");
 	Если СоздаватьФайлыПоставки Тогда
         Параметры.Добавить("-MakeFiles");
@@ -42,7 +48,7 @@
 		ВызватьИсключение;
 	КонецПопытки;
 
-	Возврат ВыходнойКаталог.ПолноеИмя;
+	Возврат ВыходнойКаталогОбъект.ПолноеИмя;
 
 КонецФункции // Собрать()