Merge branch 'develop' into patch-1

Author: Tushkan

packagedef

@@ -5,7 +5,7 @@
 		.Версия(ПараметрыСистемы_ЛокальнаяВерсия.ВерсияПродукта())
 		.ВерсияСреды("1.0.16")
 		.ЗависитОт("logos")
-		.ЗависитОт("cmdline")
+		.ЗависитОт("cmdline", "0.4")
 		.ЗависитОт("tempfiles")
 		.ЗависитОт("tool1cd", "0.3")
 		.ЗависитОт("v8runner", "0.7.0")

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

@@ -26,6 +26,7 @@
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-maxversion", "<номер максимальной версии для выгрузки>");
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-limit", "<выгрузить неболее limit версий от текущей выгруженной>");
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-tempdir", "<Путь к каталогу временных файлов>");
+	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-process-fatform-modules", "Переименовывать модули обычных форм в Module.bsl");
 
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-amount-look-for-license", "<число> количество повторов получения лицензии (попытка подключения каждые 10 сек)");
 
@@ -40,6 +41,7 @@
 	МинВерсия = ПараметрыКоманды["-minversion"];
 	МаксВерсия = ПараметрыКоманды["-maxversion"];
 	Лимит = ПараметрыКоманды["-limit"];
+	ПереименовыватьФайлМодуляОбычнойФормы = ПараметрыКоманды["-process-fatform-modules"];
 
 	Если ЛокальныйКаталогГит = Неопределено Тогда
 
@@ -78,6 +80,7 @@
 	Распаковщик = РаспаковщикКонфигурации.ПолучитьИНастроитьРаспаковщик(ПараметрыКоманды, ДополнительныеПараметры);
 	Распаковщик.ВерсияПлатформы				= ПараметрыКоманды["-v8version"];
 	Распаковщик.ДоменПочтыДляGitПоУмолчанию	= ПараметрыКоманды["-email"];
+	Распаковщик.ПереименовыватьФайлМодуляОбычнойФормы = ПереименовыватьФайлМодуляОбычнойФормы;
 	ДополнительныеПараметры.Лог.Информация("Начинаю выгрузку исходников");
 	РаспаковщикКонфигурации.ВыполнитьЭкспортИсходников(Распаковщик, ПараметрыКоманды["ПутьКХранилищу"], ЛокальныйКаталогГит, МинВерсия, МаксВерсия, Формат,,, Лимит);
 	ДополнительныеПараметры.Лог.Информация("Выгрузка завершена");

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

@@ -29,6 +29,7 @@
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-tempdir", "<Путь к каталогу временных файлов>");
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-push-every-n-commits", "<число> количество коммитов до промежуточной отправки на удаленный сервер");
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-amount-look-for-license", "<число> количество повторов получения лицензии (попытка подключения каждые 10 сек)");
+	Парсер.ДобавитьПараметрФлагКоманды       (ОписаниеКоманды, "-process-fatform-modules", "Переименовывать модули обычных форм в Module.bsl");	
 
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
@@ -45,6 +46,7 @@
 	Парсер.ДобавитьИменованныйПараметр("-format", "<hierarchical|plain>");
 	Парсер.ДобавитьИменованныйПараметр("-tempdir", "<Путь к каталогу временных файлов>");
 	Парсер.ДобавитьИменованныйПараметр("-push-every-n-commits", "<число> количество коммитов до промежуточной отправки на удаленный сервер");
+	Парсер.ДобавитьПараметрФлаг       ("-process-fatform-modules", "Переименовывать модули обычных форм в Module.bsl");
 
 КонецПроцедуры // ЗарегистрироватьКоманду
 
@@ -64,6 +66,7 @@
 	ИмяВетки				= ПараметрыКоманды["-branch"];
 	Лимит					= ПараметрыКоманды["-limit"];
 	КоличествоКоммитовДоPush = ПараметрыКоманды["-push-every-n-commits"];
+	ПереименовыватьФайлМодуляОбычнойФормы = ПараметрыКоманды["-process-fatform-modules"];
 
 	Если НачальнаяВерсия = Неопределено Тогда
 
@@ -127,6 +130,7 @@
 	Распаковщик = РаспаковщикКонфигурации.ПолучитьРаспаковщик(ДополнительныеПараметры);
 	Распаковщик.ВерсияПлатформы = ВерсияПлатформы;
 	Распаковщик.ДоменПочтыДляGitПоУмолчанию = ДоменПочты;
+	Распаковщик.ПереименовыватьФайлМодуляОбычнойФормы = ПереименовыватьФайлМодуляОбычнойФормы;
 
 	Лог.Информация("Получение изменений с удаленного узла (pull)");
 	КодВозврата = Распаковщик.ВыполнитьGitPull(ЛокальныйКаталогГит, URLРепозитория, ИмяВетки);

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

@@ -26,6 +26,7 @@
 Перем ДоменПочтыДляGitПоУмолчанию Экспорт;
 Перем ВерсияПлатформы Экспорт;
 Перем КоличествоЦикловОжиданияЛицензии Экспорт;
+Перем ПереименовыватьФайлМодуляОбычнойФормы Экспорт;
 
 // Выполняет выгрузку конфигурации в файлы
 // и распределение файлов по каталогам согласно иерархии метаданных.
@@ -244,7 +245,7 @@
 		Если Нрег(Прав(Файл.ПолноеИмя, 5)) = ".form" Или Нрег(Файл.Имя) = "form.bin" Тогда
 			КаталогФормы = ОбъединитьПути(НовыйКаталог.ПолноеИмя, НовыйФайл.ИмяБезРасширения);
 			СоздатьКаталог(КаталогФормы);
-			РаспаковатьКонтейнерМетаданных(НовыйФайл.ПолноеИмя, КаталогФормы)
+			РаспаковатьКонтейнерМетаданных(НовыйФайл.ПолноеИмя, КаталогФормы, Переименования, ФайлВыгрузкиКаталог.ПолноеИмя + ПолучитьРазделительПути());
 		КонецЕсли;
 
 	КонецЦикла;
@@ -393,7 +394,7 @@
 
 КонецПроцедуры
 
-Процедура РаспаковатьКонтейнерМетаданных(Знач ФайлРаспаковки, Знач КаталогРаспаковки)
+Процедура РаспаковатьКонтейнерМетаданных(Знач ФайлРаспаковки, Знач КаталогРаспаковки, Знач Переименования, Знач КорневойКаталог)
 	ФайлДляРаспаковки = Новый файл(ФайлРаспаковки);
 	Если КаталогРаспаковки = "" тогда
 		КаталогРаспаковки = ВременныеФайлы.СоздатьКаталог();
@@ -407,6 +408,21 @@
 
 	ЗапуститьПриложение(СтрокаЗапуска,,Истина);
 
+	Если ПереименовыватьФайлМодуляОбычнойФормы Тогда
+
+		Для Каждого ФайлМодуля Из НайтиФайлы(КаталогРаспаковки, "module", Истина) Цикл
+
+			СтароеИмяФайла = ФайлМодуля.ПолноеИмя;
+			НовоеИмяФайла = ОбъединитьПути(ФайлМодуля.Путь, "Module.bsl");
+			ПереместитьФайл(СтароеИмяФайла, НовоеИмяФайла);
+			ДобавитьПереименование(Переименования,
+				СтрЗаменить(СтароеИмяФайла, КорневойКаталог, ""),
+				СтрЗаменить(НовоеИмяФайла, КорневойКаталог, ""));
+
+		КонецЦикла;
+
+	КонецЕсли;
+
 КонецПроцедуры
 
 // Выполняет фиксацию изменений в локальном каталоге git
@@ -915,10 +931,15 @@
 
 	Если Лимит > 0 Тогда
 
+		СтрокаТекущейВерсии = ТаблицаИсторииХранилища.Найти(ТекущаяВерсия, "НомерВерсии");
+		ИндексСтрокиТекущейВерсии = ТаблицаИсторииХранилища.Индекс(СтрокаТекущейВерсии);
+		ИндексСтрокиСОграничением = Мин(ТаблицаИсторииХранилища.Количество() - 1, ИндексСтрокиТекущейВерсии + Лимит);
+		НомерВерсииСогласноЛимита = ТаблицаИсторииХранилища[ИндексСтрокиСОграничением].НомерВерсии;
+
 		Если КонечнаяВерсия = 0 Тогда
-			КонечнаяВерсия = ТекущаяВерсия + Лимит;
+			КонечнаяВерсия = НомерВерсииСогласноЛимита;
 		Иначе
-			КонечнаяВерсия = ?(КонечнаяВерсия >= (ТекущаяВерсия + Лимит), КонечнаяВерсия, (ТекущаяВерсия + Лимит));
+			КонечнаяВерсия = ?(КонечнаяВерсия >= НомерВерсииСогласноЛимита, КонечнаяВерсия, НомерВерсииСогласноЛимита);
 		КонецЕсли;
 
 	КонецЕсли;