Поддержка стандарта именования выходных файлов CICD @artbear+@EvilBeaver

Author: EvilBeaver

packagedef

@@ -2,10 +2,11 @@
 Описание.Имя("packman")
 .Версия("0.4")
 .ЗависитОт("logos")
-.ЗависитОт("cmdline")
+.ЗависитОт("cmdline", "0.5")
 .ЗависитОт("v8runner")
 .ЗависитОт("asserts")
 .ЗависитОт("tool1cd")
+.ЗависитОт("strings")
 .ЗависитОт("tempfiles")
 .ВключитьФайл("src")
 .ВключитьФайл("tools/СборИнформацииОМетаданных.epf")

packman-0.4.ospx

@@ -67,7 +67,7 @@
  Префикс = ОкружениеСборки.ИмяКаталогаФормированияДистрибутива();
  КонецЕсли;
 
- Имя = Префикс;
+Имя = ?(ПустаяСтрока(Префикс),"", Префикс + "-");
  Если ЗначениеЗаполнено(ОписаниеМетаданных) Тогда
  Имя = Имя + ОкружениеСборки.ОпределитьСтандартноеИмяКаталогаШаблона(ОписаниеМетаданных);
  КонецЕсли;

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

@@ -127,6 +127,9 @@
 ЧтениеБазыДанных.ОткрытьФайл(ФайлХранилища);
 Попытка
 ТаблицаБД = ЧтениеБазыДанных.ПрочитатьТаблицу("VERSIONS");
+Для Каждого Стр Из ТаблицаБД Цикл
+Стр.VERNUM = Число(Стр.VERNUM);
+КонецЦикла
 Исключение
 ЧтениеБазыДанных.ЗакрытьФайл();
 ВызватьИсключение;
@@ -140,7 +143,7 @@
 ТаблицаБД.Сортировать("VERNUM Убыв");
 СтрокаВерсии = ТаблицаБД[0];
 Иначе
-СтрокаВерсии = ТаблицаБД.Найти(Строка(ВерсияХранилища), "VERNUM");
+СтрокаВерсии = ТаблицаБД.Найти(ВерсияХранилища, "VERNUM");
 Если СтрокаВерсии = Неопределено Тогда
 ВызватьИсключение СтрШаблон("Заданный номер версии %1 не был найден в таблице БД хранилища", ВерсияХранилища);
 КонецЕсли;
@@ -171,7 +174,7 @@
 Ключ = Лев(Текст, Поз-1);
 Значение = Сред(Текст, Поз+1);
 
-Если Ключ = "НомерВерсии" Тогда
+Если Ключ = "НомерВерсииХранилища" Тогда
 Значение = Число(Значение);
 КонецЕсли;
 

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

@@ -105,6 +105,7 @@
 Запись.Закрыть();
 ВызватьИсключение;
 КонецПопытки;
+
 Запись.Закрыть();
 КонецЕсли;
 

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

@@ -1,4 +1,5 @@
 #Использовать v8runner
+#Использовать strings
 
 Перем мРабочийКаталогСборки;
 
@@ -48,12 +49,14 @@
 
  Результат = Новый Структура();
  ЧтениеТекста = Новый ЧтениеТекста(ИмяФайла);
+ Лог = Логирование.ПолучитьЛог(ПараметрыСистемы.ИмяЛогаСистемы());
+ Лог.Отладка("Читаю информацию о метаданных");
  Пока Истина Цикл
  Стр = ЧтениеТекста.ПрочитатьСтроку();
  Если Стр = Неопределено Тогда
  Прервать;
  КонецЕсли;
- 
+ Лог.Отладка("Прочитано: " + Стр);
  Позиция = Найти(Стр, "=");
  Если Позиция = 0 Тогда
  Продолжить;
@@ -69,6 +72,26 @@
  КонецЕсли;
 
  ЧтениеТекста.Закрыть();
+
+ // Предустановленное окружение
+ СИ = Новый СистемнаяИнформация;
+ Переменные = СИ.ПолучитьПеременнуюСреды("VPACKMAN_BUILDVARS");
+ Если Переменные <> Неопределено Тогда
+	Лог.Отладка("Обнаружена переменная VPACKMAN_BUILDVARS");
+Лог.Отладка("VPACKMAN_BUILDVARS=" + Переменные);
+Строки = СтроковыеФункции.РазложитьСтрокуВМассивПодстрок(Переменные, ";");
+Для Каждого Стр Из Строки Цикл
+Лог.Отладка("Прочитано: " + Стр);
+Позиция = Найти(Стр, "=");
+Если Позиция = 0 Тогда
+Продолжить;
+КонецЕсли;
+
+Результат.Вставить(Лев(Стр, Позиция-1), Сред(Стр, Позиция+1));
+КонецЦикла;
+Иначе
+Лог.Отладка("Переменная окружения VPACKMAN_BUILDVARS не найдена");
+ КонецЕсли;
 
  Возврат Результат;
 

src/Модули/ОкружениеСборки.os

@@ -94,7 +94,7 @@
 
 ПараметрыКоммита = Команда.ПрочитатьПараметрыКоммита(ФайлТест.ПолноеИмя);
 Ожидаем.Что(ПараметрыКоммита).ИмеетТип("Структура");
-Ожидаем.Что(ПараметрыКоммита.НомерВерсииХранилища).Равно("2");
+Ожидаем.Что(ПараметрыКоммита.НомерВерсииХранилища).Равно(2);
 
 КонецПроцедуры