Добавление отправки на удаленный репо каждые n - коммитов

Author: khorevaa

.vscode/tasks.json

@@ -0,0 +1,64 @@
+{
+    "version": "0.1.0",
+    "command": "oscript",
+    "isShellCommand": true,
+    "showOutput": "silent",
+    "args": [
+        "-encoding=utf-8"
+    ],
+    "tasks": [
+        {
+            "taskName": "OneScript: compile",
+            "args": [
+                "-compile",
+                "${file}"
+            ],
+            "echoCommand": true,
+            "showOutput": "always",
+            "suppressTaskName": true,
+            "isBuildCommand": false
+        },
+        {
+            "taskName": "OneScript: check",
+            "args": [
+                "-check",
+                "${file}"
+            ],
+            "echoCommand": true,
+            "showOutput": "always",
+            "suppressTaskName": true,
+            "isBuildCommand": false
+        },
+        {
+            "taskName": "OneScript: make",
+            "args": [
+                "-make",
+                "${file}",
+                "${fileBasename}.exe"
+            ],
+            "echoCommand": true,
+            "showOutput": "always",
+            "suppressTaskName": true,
+            "isBuildCommand": false
+        },
+        {
+            "taskName": "OneScript: run",
+            "args": [
+                "${file}"
+            ],
+            "echoCommand": true,
+            "showOutput": "always",
+            "suppressTaskName": true,
+            "isBuildCommand": true,
+            "problemMatcher": {
+                "fileLocation": "absolute",
+                "pattern": {
+                    "regexp": "^{Модуль\\s+(.*)\\s\\/\\s.*:\\s+(\\d+)\\s+\\/\\s+(.*)}$",
+                    "file": 1,
+                    "location": 2,
+                    "message": 3
+                }
+            }
+        }
+    ]
+}

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

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

src/gitsync.os

@@ -286,7 +286,8 @@
 			Знач НачальнаяВерсия = 0,
 			Знач КонечнаяВерсия = 0,
 			Знач Формат = Неопределено,
-			Знач ИмяВетки = Неопределено) Экспорт
+			Знач ИмяВетки = Неопределено
+			Знач КоличествоКоммитовДоPush = 0) Экспорт
 
 	Лог.Информация("Начинаю синхронизацию хранилища 1С и репозитария GIT");
 
@@ -322,7 +323,7 @@
 	КонецЕсли;
 
 	Лог.Информация("Синхронизация изменений с хранилищем");
-	ВыполнитьЭкспортИсходников(Распаковщик, ПутьКХранилищу, ЛокальныйКаталогГит, НачальнаяВерсия, КонечнаяВерсия, Формат);
+	ВыполнитьЭкспортИсходников(Распаковщик, ПутьКХранилищу, ЛокальныйКаталогГит, НачальнаяВерсия, КонечнаяВерсия, Формат, КоличествоКоммитовДоPush, URLРепозитория, ИмяВетки);
 
 	Лог.Информация("Отправка изменений на удаленный узел");
 	КодВозврата = Распаковщик.ВыполнитьGitPush(ЛокальныйКаталогГит, URLРепозитория, ИмяВетки);
@@ -334,10 +335,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";
 		Иначе
 			ВызватьИсключение НекорректнаяСтруктураНастроек();
 		КонецЕсли;