Merge pull request #56 from dmpas/feature/fat-forms

Переименовывание `module` в `module.bsl`.

Author: EvilBeaver

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");
 
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
@@ -38,6 +39,7 @@
 	МинВерсия = ПараметрыКоманды["-minversion"];
 	МаксВерсия = ПараметрыКоманды["-maxversion"];
 	Лимит = ПараметрыКоманды["-limit"];
+	ПереименовыватьФайлМодуляОбычнойФормы = ПараметрыКоманды["-process-fatform-modules"];
 
 	Если ЛокальныйКаталогГит = Неопределено Тогда
 
@@ -76,6 +78,7 @@
 	Распаковщик = РаспаковщикКонфигурации.ПолучитьИНастроитьРаспаковщик(ПараметрыКоманды, ДополнительныеПараметры);
 	Распаковщик.ВерсияПлатформы				= ПараметрыКоманды["-v8version"];
 	Распаковщик.ДоменПочтыДляGitПоУмолчанию	= ПараметрыКоманды["-email"];
+	Распаковщик.ПереименовыватьФайлМодуляОбычнойФормы = ПереименовыватьФайлМодуляОбычнойФормы;
 	ДополнительныеПараметры.Лог.Информация("Начинаю выгрузку исходников");
 	РаспаковщикКонфигурации.ВыполнитьЭкспортИсходников(Распаковщик, ПараметрыКоманды["ПутьКХранилищу"], ЛокальныйКаталогГит, МинВерсия, МаксВерсия, Формат,,, Лимит);
 	ДополнительныеПараметры.Лог.Информация("Выгрузка завершена");

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

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

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

@@ -25,6 +25,7 @@
 
 Перем ДоменПочтыДляGitПоУмолчанию Экспорт;
 Перем ВерсияПлатформы Экспорт;
+Перем ПереименовыватьФайлМодуляОбычнойФормы Экспорт;
 
 // Выполняет выгрузку конфигурации в файлы
 // и распределение файлов по каталогам согласно иерархии метаданных.
@@ -233,7 +234,7 @@
 		Если Нрег(Прав(Файл.ПолноеИмя, 5)) = ".form" Или Нрег(Файл.Имя) = "form.bin" Тогда
 			КаталогФормы = ОбъединитьПути(НовыйКаталог.ПолноеИмя, НовыйФайл.ИмяБезРасширения);
 			СоздатьКаталог(КаталогФормы);
-			РаспаковатьКонтейнерМетаданных(НовыйФайл.ПолноеИмя, КаталогФормы)
+			РаспаковатьКонтейнерМетаданных(НовыйФайл.ПолноеИмя, КаталогФормы, Переименования, ФайлВыгрузкиКаталог.ПолноеИмя + ПолучитьРазделительПути());
 		КонецЕсли;
 
 	КонецЦикла;
@@ -382,7 +383,7 @@
 
 КонецПроцедуры
 
-Процедура РаспаковатьКонтейнерМетаданных(Знач ФайлРаспаковки, Знач КаталогРаспаковки)
+Процедура РаспаковатьКонтейнерМетаданных(Знач ФайлРаспаковки, Знач КаталогРаспаковки, Знач Переименования, Знач КорневойКаталог)
 	ФайлДляРаспаковки = Новый файл(ФайлРаспаковки);
 	Если КаталогРаспаковки = "" тогда
 		КаталогРаспаковки = ВременныеФайлы.СоздатьКаталог();
@@ -396,6 +397,21 @@
 
 	ЗапуститьПриложение(СтрокаЗапуска,,Истина);
 
+	Если ПереименовыватьФайлМодуляОбычнойФормы Тогда
+
+		Для Каждого ФайлМодуля Из НайтиФайлы(КаталогРаспаковки, "module", Истина) Цикл
+
+			СтароеИмяФайла = ФайлМодуля.ПолноеИмя;
+			НовоеИмяФайла = ОбъединитьПути(ФайлМодуля.Путь, "Module.bsl");
+			ПереместитьФайл(СтароеИмяФайла, НовоеИмяФайла);
+			ДобавитьПереименование(Переименования,
+				СтрЗаменить(СтароеИмяФайла, КорневойКаталог, ""),
+				СтрЗаменить(НовоеИмяФайла, КорневойКаталог, ""));
+
+		КонецЦикла;
+
+	КонецЕсли;
+
 КонецПроцедуры
 
 // Выполняет фиксацию изменений в локальном каталоге git