Добавлена функциональность установки меток (tags) при изменении версии конфигруации в хранилище

Author: khorevaa

src/core/Классы/КомандаExport.os

@@ -30,6 +30,8 @@
 
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-amount-look-for-license", "<число> количество повторов получения лицензии (попытка подключения каждые 10 сек), 0 - без ограничений");
 	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-stop-if-empty-comment", "Остановить, если Комментарий к версии пустой");
+	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-auto-set-tags", "Автоматическая установка тэгов по версия конфиграции");
+
 
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
@@ -44,6 +46,7 @@
 	Лимит = ПараметрыКоманды["-limit"];
 	ПереименовыватьФайлМодуляОбычнойФормы = ПараметрыКоманды["-process-fatform-modules"];
 	ПрерватьВыполнениеБезКомментарияКВерсии = ПараметрыКоманды["-stop-if-empty-comment"];
+	АвтоматическаяУстановкаТэговПоВерсиям = ПараметрыКоманды["-auto-set-tags"];
 
 	Если ЛокальныйКаталогГит = Неопределено Тогда
 
@@ -81,6 +84,12 @@
 
 	КонецЕсли;
 
+	Если АвтоматическаяУстановкаТэговПоВерсиям = Неопределено Тогда
+
+		АвтоматическаяУстановкаТэговПоВерсиям = Ложь;
+
+	КонецЕсли;
+
 	МаксВерсия = Число(МаксВерсия);
 	МинВерсия = Число(МинВерсия);
 	Лимит = Число(Лимит);
@@ -99,7 +108,9 @@
                                                         ,
                                                         , 
                                                         Лимит, 
-                                                        ПрерватьВыполнениеБезКомментарияКВерсии);
+														ПрерватьВыполнениеБезКомментарияКВерсии,
+														,
+														АвтоматическаяУстановкаТэговПоВерсиям);
 	ДополнительныеПараметры.Лог.Информация("Выгрузка завершена");
 
 	Возврат МенеджерКомандПриложения.РезультатыКоманд().Успех;

src/core/Классы/КомандаSync.os

@@ -31,6 +31,7 @@
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-amount-look-for-license", "<число> количество повторов получения лицензии (попытка подключения каждые 10 сек), 0 - без ограничений");
 	Парсер.ДобавитьПараметрФлагКоманды       (ОписаниеКоманды, "-process-fatform-modules", "Переименовывать модули обычных форм в Module.bsl");	
 	Парсер.ДобавитьПараметрФлагКоманды       (ОписаниеКоманды, "-stop-if-empty-comment", "Остановить, если Комментарий к версии пустой");
+	Парсер.ДобавитьПараметрФлагКоманды		 (ОписаниеКоманды, "-auto-set-tags", "Автоматическая установка тэгов по версия конфиграции");
 
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
@@ -49,6 +50,7 @@
 	Парсер.ДобавитьИменованныйПараметр("-push-every-n-commits", "<число> количество коммитов до промежуточной отправки на удаленный сервер");
 	Парсер.ДобавитьПараметрФлаг       ("-process-fatform-modules", "Переименовывать модули обычных форм в Module.bsl");
 	Парсер.ДобавитьПараметрФлагКоманды("-stop-if-empty-comment", "Остановить, если Комментарий к версии пустой");
+	Парсер.ДобавитьПараметрФлагКоманды("-auto-set-tags", "Автоматическая установка тэгов по версия конфиграции");
 
 КонецПроцедуры // ЗарегистрироватьКоманду
 
@@ -70,6 +72,7 @@
 	КоличествоКоммитовДоPush = ПараметрыКоманды["-push-every-n-commits"];
 	ПереименовыватьФайлМодуляОбычнойФормы = ПараметрыКоманды["-process-fatform-modules"];
 	ПрерватьВыполнениеБезКомментарияКВерсии = ПараметрыКоманды["-stop-if-empty-comment"];
+	АвтоматическаяУстановкаТэговПоВерсиям = ПараметрыКоманды["-auto-set-tags"];
 
 	Если НачальнаяВерсия = Неопределено Тогда
 
@@ -101,6 +104,12 @@
 
 	КонецЕсли;
 
+	Если АвтоматическаяУстановкаТэговПоВерсиям = Неопределено Тогда
+
+		АвтоматическаяУстановкаТэговПоВерсиям = Ложь;
+
+	КонецЕсли;
+
 	НачальнаяВерсия = Число(НачальнаяВерсия);
 	КонечнаяВерсия = Число(КонечнаяВерсия);
 	Лимит = Число(Лимит);
@@ -159,10 +168,12 @@
 							КоличествоКоммитовДоPush, 
 							URLРепозитория,
 							Лимит,
-							ПрерватьВыполнениеБезКомментарияКВерсии);
+							ПрерватьВыполнениеБезКомментарияКВерсии,
+							ИмяВетки,
+							АвтоматическаяУстановкаТэговПоВерсиям);
 
 	Лог.Информация("Отправка изменений на удаленный узел");
-	КодВозврата = Распаковщик.ВыполнитьGitPush(ЛокальныйКаталогГит, URLРепозитория, ИмяВетки);
+	КодВозврата = Распаковщик.ВыполнитьGitPush(ЛокальныйКаталогГит, URLРепозитория, ИмяВетки, АвтоматическаяУстановкаТэговПоВерсиям);
 	Если КодВозврата <> 0 Тогда
 		ВызватьИсключение "Не удалось отправить изменения на удаленный узел (код: " + КодВозврата + ")";
 	КонецЕсли;

src/core/Классы/МенеджерСинхронизации.os

@@ -431,7 +431,7 @@
 
 // Выполняет фиксацию изменений в локальном каталоге git
 //
-Процедура ВыполнитьКоммитГит(Знач КаталогРабочейКопии, Знач Комментарий, Знач Автор, Знач Дата=Неопределено) Экспорт
+Процедура ВыполнитьКоммитГит(Знач КаталогРабочейКопии, Знач Комментарий, Знач Автор, Знач Дата=Неопределено, Знач НоваяМетка = "") Экспорт
 
 	Если Дата = Неопределено Тогда
 		Дата = ТекущаяДата();
@@ -465,6 +465,12 @@
 	КомандаКоммита = СтрШаблон("git commit -a --file=""%1"" --author=""%2"" ", ИмяФайлаКомментария, Автор);
 
 	КомандныйФайл.ДобавитьКоманду(КомандаКоммита);
+	
+	Если ЗначениеЗаполнено(НоваяМетка) Тогда
+
+		ДобавитьКоманду(КомандныйФайл, "git tag " + Строка(НоваяМетка));
+	
+	КонецЕсли;
 
 	Если Не ЭтоWindows Тогда
 		КомандныйФайл.ДобавитьКоманду("exit $#");
@@ -509,7 +515,7 @@
 
 // Cтандартная процедура git push
 //
-Функция ВыполнитьGitPush(Знач ЛокальныйРепозиторий, Знач УдаленныйРепозиторий, Знач ИмяВетки = Неопределено) Экспорт
+Функция ВыполнитьGitPush(Знач ЛокальныйРепозиторий, Знач УдаленныйРепозиторий, Знач ИмяВетки = Неопределено, Знач ОтправитьМетки = Ложь) Экспорт
 
 	КомандныйФайл = Новый КомандныйФайл;
 	ИмяФайлаЛогаКоммита = ВременныеФайлы.СоздатьФайл("log");
@@ -534,6 +540,9 @@
 	КонецЕсли;
 
 	КомандныйФайл.ДобавитьКоманду(СтрокаКоманды);
+    Если ОтправитьМетки Тогда
+		КомандныйФайл.ДобавитьКоманду(ПолучитьСтрокуКомандыPushTags(ЛокальныйРепозиторий,УдаленныйРепозиторий));
+    КонецЕсли;
     КомандныйФайл.ДобавитьКоманду("exit " + ?(ЭтоWindows, "/b %ERRORLEVEL%", "$#"));
 
 	Результат = КомандныйФайл.Исполнить();
@@ -546,6 +555,25 @@
 
 КонецФункции
 
+Функция ПолучитьСтрокуКомандыPushTags(Знач ЛокальныйРепозиторий, Знач УдаленныйРепозиторий, Знач ИмяВетки = Неопределено))
+
+	ПараметрыКоманды = Новый Массив;
+	ПараметрыКоманды.Добавить("git push -u");
+	ПараметрыКоманды.Добавить(СтрЗаменить(УдаленныйРепозиторий, "%", "%%"));
+	ПараметрыКоманды.Добавить("--tags ");
+	ПараметрыКоманды.Добавить(КомандныйФайл.СуффиксПеренаправленияВывода(ИмяФайлаЛогаКоммита, Истина));
+
+	СтрокаКоманды = СобратьКоманднуюСтроку(ПараметрыКоманды);
+	Если Лог.Уровень() = УровниЛога.Отладка Тогда
+		сообщение = "строкаКоманды push tags= <"+?(строкаКоманды = Неопределено, "Неопределено", строкаКоманды)+">";
+		Лог.Отладка(сообщение);
+	КонецЕсли;
+
+	Возврат СтрокаКоманды;
+
+КонецФункции
+
+
 // Cтандартная процедура git pull
 //
 Функция ВыполнитьGitPull(Знач ЛокальныйРепозиторий, Знач УдаленныйРепозиторий, Знач ИмяВетки) Экспорт
@@ -919,7 +947,9 @@
 		Знач КоличествоКоммитовДоPush = 0,
 		Знач URLРепозитория = Неопределено,
 		Знач Лимит = 0,
-		Знач ПрерватьВыполнениеБезКомментарияКВерсии = Ложь) Экспорт
+		Знач ПрерватьВыполнениеБезКомментарияКВерсии = Ложь,
+		Знач ИмяВетки = Неопределено,
+		Знач АвтоматическаяУстановкаТэговПоВерсиям = Ложь) Экспорт
 
 	Лог.Информация("Начало синхронизации с git");
 	ТаблицаИсторииХранилища = ПрочитатьИзХранилищаИсториюКоммитовСАвторами(ФайлХранилища);
@@ -964,6 +994,11 @@
 	ИспользоватьПромежуточныйPUSH = КоличествоКоммитовДоPush > 0;
 	СчетчикКоммитов = 0;
 
+	СтрокаТекущейВерсии = ТаблицаИсторииХранилища.Найти(СледующаяВерсия, "НомерВерсии");
+	Если СтрокаТекущейВерсии <> Неопределено Тогда
+		ПоследнняяВерсияКонфигурации = СтрокаТекущейВерсии.Тэг;
+	КонецЕсли;
+
 	Пока СледующаяВерсия <= МаксимальнаяВерсияДляРазбора Цикл
 
 		СтрокаВерсии = ТаблицаИсторииХранилища.Найти(СледующаяВерсия, "НомерВерсии");
@@ -978,19 +1013,27 @@
 				ВызватьИсключение СтрШаблон("Нашли следующую версию %1, а комментарий не задан! Автор %2.", СледующаяВерсия, СтрокаВерсии.Автор);;
 			КонецЕсли;
 
+			НоваяМетка = "";
+			Если ПоследнняяВерсияКонфигурации <> СтрокаВерсии.Тэг
+				И АвтоматическаяУстановкаТэговПоВерсиям Тогда
+				ОтправитьНовыеМетки = Истина;
+				НоваяМетка = СтрокаВерсии.Тэг;
+			КонецЕсли;
+
 			Попытка
 				Лог.Информация("Получаем исходники для версии " + СледующаяВерсия + ", " + ТекущаяДата());
 
 				РазложитьМодулиПоНомеруВерсииХранилища1С(КаталогРабочейКопии, ФайлХранилища, СледующаяВерсия, Формат);
 				Лог.Отладка("Фиксируем в файле VERSION версию " + СледующаяВерсия);
 				ЗаписатьФайлВерсийГит(КаталогРабочейКопии, СледующаяВерсия);
-				ВыполнитьКоммитГит(КаталогРабочейКопии, СтрокаВерсии.Комментарий, СтрокаВерсии.ПредставлениеАвтора, СтрокаВерсии.Дата);
+				ВыполнитьКоммитГит(КаталогРабочейКопии, СтрокаВерсии.Комментарий, СтрокаВерсии.ПредставлениеАвтора, СтрокаВерсии.Дата, НоваяМетка);
 				СчетчикКоммитов = СчетчикКоммитов + 1;
 
 				Если ИспользоватьПромежуточныйPUSH И
 					СчетчикКоммитов = КоличествоКоммитовДоPush Тогда
-					ВыполнитьGitPush(КаталогРабочейКопии, URLРепозитория);
+					ВыполнитьGitPush(КаталогРабочейКопии, URLРепозитория, ИмяВетки, ОтправитьНовыеМетки);
 					СчетчикКоммитов = 0;
+					ОтправитьНовыеМетки  = Ложь;
 				КонецЕсли;
 
 

src/core/Модули/РаспаковщикКонфигурации.os

@@ -79,7 +79,9 @@
 									Знач КоличествоКоммитовДоPush = 0, 
 									Знач URLРепозитория = Неопределено, 
 									Знач Лимит = 0,
-									Знач ПрерватьВыполнениеБезКомментарияКВерсии) Экспорт
+									Знач ПрерватьВыполнениеБезКомментарияКВерсии,
+									Знач ИмяВетки = Неопределено,
+									Знач АвтоматическаяУстановкаТэговПоВерсиям) Экспорт
 
 	ФайлБазыДанныхХранилища = ПолучитьПутьКБазеДанныхХранилища(ПутьКХранилищу);
 	Распаковщик.СинхронизироватьХранилищеКонфигурацийСГит(ЛокальныйКаталогГит, 
@@ -90,7 +92,9 @@
 															КоличествоКоммитовДоPush, 
 															URLРепозитория, 
 															Лимит,
-															ПрерватьВыполнениеБезКомментарияКВерсии);
+															ПрерватьВыполнениеБезКомментарияКВерсии,
+															ИмяВетки,
+															АвтоматическаяУстановкаТэговПоВерсиям);
 
 КонецПроцедуры // ВыполнитьЭкспортИсходников
 

src/xml-config.os

@@ -98,6 +98,8 @@
 			Ключ = "КоличествоКоммитовДоPush";
 		ИначеЕсли КлючИЗначение.Ключ = "stop-if-empty-comment" Тогда
 			Ключ = "ПрерватьВыполнениеБезКомментарияКВерсии";
+		ИначеЕсли КлючИЗначение.Ключ = "auto-set-tags" Тогда
+			Ключ = "АвтоматическаяУстановкаТэговПоВерсиям";
 		Иначе
 			ВызватьИсключение НекорректнаяСтруктураНастроек();
 		КонецЕсли;