closes #31 - параметр версия для make-dist и make-cf

Author: EvilBeaver

src/Классы/КомандаВыгрузитьИзХранилища.os

@@ -38,10 +38,8 @@
  Попытка
 
  УправлениеКонфигуратором = ОкружениеСборки.ПолучитьКонфигуратор();
- Если ЗначениеЗаполнено(Параметры.Версия1С) Тогда
- УправлениеКонфигуратором.ИспользоватьВерсиюПлатформы(Параметры.Версия1С);
- КонецЕсли;
-
+ ОкружениеСборки.ПрименитьВерсию1С(УправлениеКонфигуратором, Параметры.Версия1С);
+ 
  Если Параметры.ИспользоватьTool1CD Тогда
  ФайлВерсии = ВФ.НовоеИмяФайла(".cf");
 

src/Классы/КомандаСнятьСПоддержки.os

@@ -0,0 +1,28 @@
+
+///////////////////////////////////////////////////////////////////////////////////////////////////
+// Прикладной интерфейс
+
+Процедура ЗарегистрироватьКоманду(Знач ИмяКоманды, Знач Парсер) Экспорт
+ОписаниеКоманды = Парсер.ОписаниеКоманды(ИмяКоманды, "Снятие исходной конфигурации с поддержки");
+Парсер.ДобавитьКоманду(ОписаниеКоманды);
+КонецПроцедуры
+
+// Выполняет логику команды
+// 
+// Параметры:
+// ПараметрыКоманды - Соответствие ключей командной строки и их значений
+//
+Функция ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт
+
+Лог = Логирование.ПолучитьЛог(ПараметрыСистемы.ИмяЛогаСистемы());
+Конфигуратор = ОкружениеСборки.ПолучитьКонфигуратор();
+ПараметрыЗапуска = Конфигуратор.ПолучитьПараметрыЗапуска();
+ПараметрыЗапуска.Добавить("/ManageCfgSupport -disableSupport");
+
+Конфигуратор.ВыполнитьКоманду(ПараметрыЗапуска);
+Лог.Отладка(Конфигуратор.ВыводКоманды());
+
+Конфигуратор.ОбновитьКонфигурациюБазыДанных();
+
+КонецФункции
+

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

@@ -17,7 +17,8 @@
  Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-setup", "Собирать дистрибутив вида setup.exe");
  Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-files", "Собирать дистрибутив вида 'файлы поставки'");
  Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-option", "Вариант поставки");
-Парсер.ДобавитьПараметрКоллекцияКоманды(ОписаниеКоманды, "-prop-files", "Файлы с переменными сборки (дополнительные)");
+ Парсер.ДобавитьПараметрКоллекцияКоманды(ОписаниеКоманды, "-prop-files", "Файлы с переменными сборки (дополнительные)");
+ Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-v8version", "Версия платформы 1С");
  Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
 КонецПроцедуры
@@ -30,7 +31,11 @@
 Функция ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт
 
  Параметры = РазобратьПараметры(ПараметрыКоманды);
+
+ Версия1С = Параметры.Версия1С;
  УправлениеКонфигуратором = ОкружениеСборки.ПолучитьКонфигуратор();
+ ОкружениеСборки.ПрименитьВерсию1С(УправлениеКонфигуратором, Версия1С);
+
  ВыполнитьСборку(
  УправлениеКонфигуратором,
  Параметры.ФайлМанифеста,
@@ -42,7 +47,14 @@
 
 КонецФункции
 
-Процедура ВыполнитьСборку(Знач УправлениеКонфигуратором, Знач ФайлМанифеста, Знач СобиратьИнсталлятор, Знач СобиратьФайлыПоставки, Знач ВариантПоставки, Знач ВыходнойКаталог, Знач ФайлыСвойств) Экспорт
+Процедура ВыполнитьСборку(
+ Знач УправлениеКонфигуратором,
+ Знач ФайлМанифеста,
+ Знач СобиратьИнсталлятор,
+ Знач СобиратьФайлыПоставки,
+ Знач ВариантПоставки,
+ Знач ВыходнойКаталог,
+ Знач ФайлыСвойств) Экспорт
 
  Информация = СобратьИнформациюОКонфигурации(УправлениеКонфигуратором, ФайлыСвойств);
  СоздатьДистрибутивПоМанифесту(УправлениеКонфигуратором, ФайлМанифеста, Информация, СобиратьИнсталлятор, СобиратьФайлыПоставки, ВариантПоставки, ВыходнойКаталог);
@@ -176,6 +188,7 @@
  Результат.Вставить("ВариантПоставки", ПараметрыКоманды["-option"]);
  Результат.Вставить("ВыходнойКаталог", ПараметрыКоманды["-out"]);
 Результат.Вставить("ФайлыСвойств", ПараметрыКоманды["-prop-files"]);
+Результат.Вставить("Версия1С", ПараметрыКоманды["-v8version"]);
 
  Возврат Результат;
 

src/Модули/ПараметрыСистемы.os

@@ -10,6 +10,7 @@
  КлассыРеализацииКоманд["help"] = "КомандаСправкаПоПараметрам";
  КлассыРеализацииКоманд["version"] = "КомандаВерсия";
  КлассыРеализацииКоманд["load-storage"] = "КомандаВыгрузитьИзХранилища";
+ КлассыРеализацииКоманд["drop-support"] = "КомандаСнятьСПоддержки";
  КлассыРеализацииКоманд["load-src"] = "КомандаСобратьИзИсходныхФайлов";
  КлассыРеализацииКоманд["make-cf"] = "КомандаСоздатьФайлыПоставки";
  КлассыРеализацииКоманд["make-dist"] = "КомандаСоздатьДистрибутив";