Merge pull request #11 from Khorevaa/Добавление-возможности-push-каждые-n-коммитов

Добавление возможности push каждые n коммитов

Author: EvilBeaver

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

@@ -471,7 +471,7 @@
 
 // Cтандартная процедура git push
 //
-Функция ВыполнитьGitPush(Знач ЛокальныйРепозиторий, Знач УдаленныйРепозиторий, Знач ИмяВетки) Экспорт
+Функция ВыполнитьGitPush(Знач ЛокальныйРепозиторий, Знач УдаленныйРепозиторий, Знач ИмяВетки = Неопределено) Экспорт
 
 	КомандныйФайл = СоздатьКомандныйФайл();
 	ИмяФайлаЛогаКоммита = ВременныеФайлы.СоздатьФайл("log");
@@ -889,7 +889,14 @@
 
 // Основная функция синхронизации. Перемещает в git набор коммитов хранилища 1С
 //
-Процедура СинхронизироватьХранилищеКонфигурацийСГит(Знач КаталогРабочейКопии, Знач ФайлХранилища, Знач НачальнаяВерсия = 0, Знач КонечнаяВерсия = 0, Знач Формат = Неопределено) Экспорт
+Процедура СинхронизироватьХранилищеКонфигурацийСГит(Знач КаталогРабочейКопии, 
+		Знач ФайлХранилища, 
+		Знач НачальнаяВерсия = 0, 
+		Знач КонечнаяВерсия = 0, 
+		Знач Формат = Неопределено, 
+		Знач КоличествоКоммитовДоPush = 0,
+		Знач URLРепозитория = Неопределено
+		) Экспорт
 
 	Лог.Информация("Начало синхронизации с git");
 	ТаблицаИсторииХранилища = ПрочитатьИзХранилищаИсториюКоммитовСАвторами(ФайлХранилища);
@@ -906,9 +913,12 @@
 
 	МаксимальнаяВерсияДляРазбора = ОпределитьМаксимальнуюВерсиюСУчетомОграниченияСверху(ТаблицаИсторииХранилища, ТекущаяВерсия, КонечнаяВерсия);
 	Лог.Информация("Номер последней версии в хранилище: " + МаксимальнаяВерсияДляРазбора);
-
+	
+	ИспользоватьПромежуточныйPUSH = КоличествоКоммитовДоPush > 0;
+	СчетчикКоммитов = 0;
+	
 	Пока СледующаяВерсия <= МаксимальнаяВерсияДляРазбора Цикл
-
+				
 		СтрокаВерсии = ТаблицаИсторииХранилища.Найти(СледующаяВерсия, "НомерВерсии");
 		Если СтрокаВерсии <> Неопределено Тогда
 
@@ -923,6 +933,14 @@
 
 				РазложитьМодулиПоНомеруВерсииХранилища1С(КаталогРабочейКопии, ФайлХранилища, СледующаяВерсия, Формат);
 				ВыполнитьКоммитГит(КаталогРабочейКопии, СтрокаВерсии.Комментарий, СтрокаВерсии.ПредставлениеАвтора, СтрокаВерсии.Дата);
+				СчетчикКоммитов = СчетчикКоммитов + 1;
+
+				Если ИспользоватьПромежуточныйPUSH И
+					СчетчикКоммитов = КоличествоКоммитовДоPush Тогда
+					ВыполнитьGitPush(КаталогРабочейКопии, URLРепозитория);
+					СчетчикКоммитов = 0;
+				КонецЕсли;
+
 
 			Исключение
 				Лог.Отладка("Откатываем файл VERSION после ошибки");

src/gitsync.os

@@ -291,7 +291,8 @@
 			Знач НачальнаяВерсия = 0,
 			Знач КонечнаяВерсия = 0,
 			Знач Формат = Неопределено,
-			Знач ИмяВетки = Неопределено) Экспорт
+			Знач ИмяВетки = Неопределено,
+			Знач КоличествоКоммитовДоPush = 0) Экспорт
 
 	Лог.Информация("Начинаю синхронизацию хранилища 1С и репозитария GIT");
 
@@ -302,6 +303,14 @@
 	Если Формат = Неопределено Тогда
 		Формат = РежимВыгрузкиФайлов.Авто;
 	КонецЕсли;
+	
+	Если КоличествоКоммитовДоPush = Неопределено Тогда
+		КоличествоКоммитовДоPush  = 0;
+	КонецЕсли;
+
+	Если ТипЗнч(КоличествоКоммитовДоPush) = Тип("Строка") Тогда
+		КоличествоКоммитовДоPush = Число(КоличествоКоммитовДоPush);
+	КонецЕсли;
 
 	Если ИмяВетки = Неопределено Тогда
 		ИмяВетки = "master";
@@ -314,7 +323,7 @@
 	Лог.Отладка("ВерсияПлатформы = " + ВерсияПлатформы);
 	Лог.Отладка("Формат = " + Формат);
 	Лог.Отладка("ИмяВетки = " + ИмяВетки);
-
+	
 
 	Распаковщик = ПолучитьРаспаковщик();
 	Распаковщик.ВерсияПлатформы = ВерсияПлатформы;
@@ -327,7 +336,14 @@
 	КонецЕсли;
 
 	Лог.Информация("Синхронизация изменений с хранилищем");
-	ВыполнитьЭкспортИсходников(Распаковщик, ПутьКХранилищу, ЛокальныйКаталогГит, НачальнаяВерсия, КонечнаяВерсия, Формат);
+	ВыполнитьЭкспортИсходников(Распаковщик, 
+							ПутьКХранилищу, 
+							ЛокальныйКаталогГит, 
+							НачальнаяВерсия, 
+							КонечнаяВерсия, 
+							Формат, 
+							КоличествоКоммитовДоPush, 
+							URLРепозитория);
 
 	Лог.Информация("Отправка изменений на удаленный узел");
 	КодВозврата = Распаковщик.ВыполнитьGitPush(ЛокальныйКаталогГит, URLРепозитория, ИмяВетки);
@@ -339,10 +355,10 @@
 
 КонецПроцедуры
 
-Процедура ВыполнитьЭкспортИсходников(Знач Распаковщик, Знач ПутьКХранилищу, Знач ЛокальныйКаталогГит, Знач НачальнаяВерсия = 0, Знач КонечнаяВерсия = 0, Знач Формат = Неопределено)
+Процедура ВыполнитьЭкспортИсходников(Знач Распаковщик, Знач ПутьКХранилищу, Знач ЛокальныйКаталогГит, Знач НачальнаяВерсия = 0, Знач КонечнаяВерсия = 0, Знач Формат = Неопределено, Знач КоличествоКоммитовДоPush = 0, Знач URLРепозитория= Неопределено, Знач ИмяВетки = Неопределено)
 
 	ФайлБазыДанныхХранилища = ПолучитьПутьКБазеДанныхХранилища(ПутьКХранилищу);
-	Распаковщик.СинхронизироватьХранилищеКонфигурацийСГит(ЛокальныйКаталогГит, ФайлБазыДанныхХранилища, НачальнаяВерсия, КонечнаяВерсия, Формат);
+	Распаковщик.СинхронизироватьХранилищеКонфигурацийСГит(ЛокальныйКаталогГит, ФайлБазыДанныхХранилища, НачальнаяВерсия, КонечнаяВерсия, Формат, КоличествоКоммитовДоPush, URLРепозитория, ИмяВетки);
 
 КонецПроцедуры
 

src/xml-config.os

@@ -94,6 +94,8 @@
 			Ключ = "ПутьКПлатформе83";
 		ИначеЕсли КлючИЗначение.Ключ = "git-executable" Тогда
 			Ключ = "ПутьGit";
+		ИначеЕсли КлючИЗначение.Ключ = "push-every-n-commits" Тогда
+			Ключ = "КоличествоКоммитовДоPush";
 		Иначе
 			ВызватьИсключение НекорректнаяСтруктураНастроек();
 		КонецЕсли;