Добавил выгрузку с учетом increment

.gitignore

@@ -6,3 +6,4 @@ exec\.log
 bdd-log\.xml
 
 *.ospx
+oscript_modules/

packagedef

@@ -8,7 +8,7 @@
 		.ЗависитОт("cmdline", "0.4.1")
 		.ЗависитОт("tempfiles")
 		.ЗависитОт("tool1cd", "0.4")
-		.ЗависитОт("v8runner", "0.7.0")
+		.ЗависитОт("v8runner")
 		.ЗависитОт("gitrunner", "1.1.0")
 		.ЗависитОт("strings")
 		.ЗависитОт("1commands", "1.1.1")

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

@@ -32,6 +32,7 @@
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-amount-look-for-license", "<число> количество повторов получения лицензии (попытка подключения каждые 10 сек), 0 - без ограничений");
 	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-stop-if-empty-comment", "Остановить, если Комментарий к версии пустой");
 	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-auto-set-tags", "Автоматическая установка тэгов по версия конфиграции");
+	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-increment", "Частичная выгрузка конфигурации");
 
 
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
@@ -49,6 +50,7 @@
 	ПроверитьАвторовХранилища = ПараметрыКоманды["-check-authors"];
 	ПрерватьВыполнениеБезКомментарияКВерсии = ПараметрыКоманды["-stop-if-empty-comment"];
 	АвтоматическаяУстановкаТэговПоВерсиям = ПараметрыКоманды["-auto-set-tags"];
+	ТолькоИзменения = ПараметрыКоманды["-increment"];
 
 	Если ЛокальныйКаталогГит = Неопределено Тогда
 
@@ -119,7 +121,8 @@
 														ПрерватьВыполнениеБезКомментарияКВерсии,
 														,
 														АвтоматическаяУстановкаТэговПоВерсиям,
-														ПроверитьАвторовХранилища);
+														ПроверитьАвторовХранилища,
+														ТолькоИзменения);
 	ДополнительныеПараметры.Лог.Информация("Выгрузка завершена");
 
 	Возврат МенеджерКомандПриложения.РезультатыКоманд().Успех;

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

@@ -32,6 +32,7 @@
 Перем ДоменПочтыДляGitПоУмолчанию Экспорт;
 Перем ВерсияПлатформы Экспорт;
 Перем ПереименовыватьФайлМодуляОбычнойФормы Экспорт;
+Перем ТолькоИзменения Экспорт;
 
 // Выполняет выгрузку конфигурации в файлы
 // и распределение файлов по каталогам согласно иерархии метаданных.
@@ -49,9 +50,26 @@
 		СоздатьКаталог(ВыходнойКаталог);
 	КонецЕсли;
 
+	КаталогВыгрузки = ?(ТолькоИзменения, ВыходнойКаталог, КаталогПлоскойВыгрузки);
 	Попытка
-		ВыгрузитьМодулиКонфигурации(ФайлКонфигурации, КаталогПлоскойВыгрузки, Формат);
-		РазложитьМодули1СПоПапкамСогласноИерархииМетаданных(КаталогПлоскойВыгрузки, ВыходнойКаталог, Формат);
+		ВыгрузитьМодулиКонфигурации(ФайлКонфигурации, КаталогВыгрузки, Формат);
+		Если НЕ ТолькоИзменения Тогда
+			РазложитьМодули1СПоПапкамСогласноИерархииМетаданных(КаталогПлоскойВыгрузки, ВыходнойКаталог, Формат);
+		Иначе
+			МассивФайлов = НайтиФайлы(КаталогВыгрузки, "*.bin", Истина);
+			Для каждого Файл из МассивФайлов Цикл
+				Если Нрег(Прав(Файл.ПолноеИмя, 5)) = ".form" Или Нрег(Файл.Имя) = "form.bin" Тогда
+					КаталогФормы = ОбъединитьПути(Файл.Путь, Файл.ИмяБезРасширения);
+					СоздатьКаталог(КаталогФормы);
+					РаспаковатьКонтейнерМетаданных(Файл.ПолноеИмя, КаталогФормы);
+				КонецЕсли;
+			КонецЦикла;
+
+			Если Новый Файл(ОбъединитьПути(КаталогВыгрузки, "renames.txt")).Существует() Тогда
+				УдалитьВременныеФайлыПриНеобходимости(ОбъединитьПути(КаталогВыгрузки, "renames.txt"));
+			КонецЕсли;
+
+		КонецЕсли;
 	Исключение
 		УдалитьВременныеФайлыПриНеобходимости(КаталогПлоскойВыгрузки);
 		ВызватьИсключение;
@@ -115,18 +133,36 @@
 		СоздатьКаталог(КаталогПлоскойВыгрузки);
 	КонецЕсли;
 
-	МассивФайлов = НайтиФайлы(КаталогПлоскойВыгрузки, ПолучитьМаскуВсеФайлы());
-	Если МассивФайлов.Количество() <> 0 Тогда
-		ВызватьИсключение "В каталоге <"+КаталогПлоскойВыгрузки+"> не должно быть файлов";
-	КонецЕсли;
+	Если НЕ ТолькоИзменения Тогда
+		МассивФайлов = НайтиФайлы(КаталогПлоскойВыгрузки, ПолучитьМаскуВсеФайлы());
+		Если МассивФайлов.Количество() <> 0 Тогда
+			ВызватьИсключение "В каталоге <"+КаталогПлоскойВыгрузки+"> не должно быть файлов";
+		КонецЕсли;
 
-	ПараметрыЗапуска = Конфигуратор.ПолучитьПараметрыЗапуска();
-	ПараметрыЗапуска.Добавить("/Visible");
-	ПараметрДампаКонфигурации = СтрШаблон("/DumpConfigToFiles ""%1"" -format %2", КаталогПлоскойВыгрузки, ТРег(Формат));
-	ПараметрыЗапуска.Добавить(ПараметрДампаКонфигурации);
+		ПараметрыЗапуска = Конфигуратор.ПолучитьПараметрыЗапуска();
+		ПараметрыЗапуска.Добавить("/Visible");
+		ПараметрДампаКонфигурации = СтрШаблон("/DumpConfigToFiles ""%1"" -format %2", КаталогПлоскойВыгрузки, ТРег(Формат));
+		ПараметрыЗапуска.Добавить(ПараметрДампаКонфигурации);
+
+		ВыполнитьКомандуКонфигуратора(Конфигуратор, ПараметрыЗапуска);
 
-	ВыполнитьКомандуКонфигуратора(Конфигуратор, ПараметрыЗапуска);
+	Иначе
 
+		Попытка
+			Конфигуратор.ВыгрузитьКонфигурациюВФайлы(КаталогПлоскойВыгрузки, , ТолькоИзменения);
+		Исключение
+
+			ОписаниеОшибки = ОписаниеОшибки();
+			Если ПроверитьОписаниеОшибкиНаКритичность(ОписаниеОшибки) Тогда
+				УдалитьВременныеФайлыПриНеобходимости(Конфигуратор.КаталогСборки());
+				ВызватьИсключение;
+			КонецЕсли;
+		КонецПопытки;
+
+		УдалитьВременныеФайлыПриНеобходимости(Конфигуратор.КаталогСборки());
+
+	КонецЕсли;
+
 КонецПроцедуры
 
 Функция ПолучитьМенеджерКонфигуратора()
@@ -403,7 +439,7 @@
 
 КонецПроцедуры
 
-Процедура РаспаковатьКонтейнерМетаданных(Знач ФайлРаспаковки, Знач КаталогРаспаковки, Знач Переименования, Знач КорневойКаталог)
+Процедура РаспаковатьКонтейнерМетаданных(Знач ФайлРаспаковки, Знач КаталогРаспаковки, Знач Переименования = Неопределено, Знач КорневойКаталог = Неопределено)
 
 	dllРаспаковать(ФайлРаспаковки, КаталогРаспаковки);
 	ВыполнитьСборкуМусора(); // см. камент к процедуре dllРаспаковать
@@ -415,10 +451,11 @@
 			СтароеИмяФайла = ФайлМодуля.ПолноеИмя;
 			НовоеИмяФайла = ОбъединитьПути(ФайлМодуля.Путь, "Module.bsl");
 			ПереместитьФайл(СтароеИмяФайла, НовоеИмяФайла);
-			ДобавитьПереименование(Переименования,
-				СтрЗаменить(СтароеИмяФайла, КорневойКаталог, ""),
-				СтрЗаменить(НовоеИмяФайла, КорневойКаталог, ""));
-
+			Если Переименования <> Неопределено Тогда
+				ДобавитьПереименование(Переименования,
+					СтрЗаменить(СтароеИмяФайла, КорневойКаталог, ""),
+					СтрЗаменить(НовоеИмяФайла, КорневойКаталог, ""));
+			КонецЕсли;
 		КонецЦикла;
 
 	КонецЕсли;
@@ -911,7 +948,8 @@
 		Знач ПрерватьВыполнениеБезКомментарияКВерсии = Ложь,
 		Знач ИмяВетки = Неопределено,
 		Знач АвтоматическаяУстановкаТэговПоВерсиям = Ложь,
-		Знач ПроверитьАвторовХранилища = Ложь) Экспорт
+		Знач ПроверитьАвторовХранилища = Ложь,
+		Знач ТолькоИзменения = Ложь) Экспорт
 
 	Лог.Информация("Начало синхронизации с git");
 	ТаблицаИсторииХранилища = ПрочитатьИзХранилищаИсториюКоммитовСАвторами(ФайлХранилища);
@@ -921,6 +959,7 @@
 	Лог.Информация("Номер синхронизированной версии: " + ТекущаяВерсия);
 	СледующаяВерсия = ТекущаяВерсия + 1;
 
+	УстановитьРежимТолькоОбновленияФайлов(ТолькоИзменения);
 	Если НачальнаяВерсия > 0 Тогда
 		СледующаяВерсия = Макс(НачальнаяВерсия, СледующаяВерсия);
 	КонецЕсли;
@@ -1421,6 +1460,10 @@
 	Возврат КоличествоЦикловОжиданияЛицензииПоУмолчанию;
 КонецФункции
 
+Функция УстановитьРежимТолькоОбновленияФайлов(Значение) Экспорт
+	ТолькоИзменения = Значение;
+КонецФункции
+
 
 //////////////////////////////////////////////////////////////////////////////////////////////
 СистемнаяИнформация = Новый СистемнаяИнформация;
@@ -1431,3 +1474,4 @@
 ДоменПочтыДляGitПоУмолчанию = "localhost";
 УдалятьВременныеФайлы = Ложь;
 КоличествоЦикловОжиданияЛицензииПоУмолчанию = 1;
+ТолькоИзменения = Ложь;