Merge branch 'evil/develop' into v8unpack-lib.

Author: dmpas

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

@@ -26,6 +26,7 @@
 
 Перем ДоменПочтыДляGitПоУмолчанию Экспорт;
 Перем ВерсияПлатформы Экспорт;
+Перем ПереименовыватьФайлМодуляОбычнойФормы Экспорт;
 
 // Выполняет выгрузку конфигурации в файлы
 // и распределение файлов по каталогам согласно иерархии метаданных.
@@ -234,7 +235,7 @@
 		Если Нрег(Прав(Файл.ПолноеИмя, 5)) = ".form" Или Нрег(Файл.Имя) = "form.bin" Тогда
 			КаталогФормы = ОбъединитьПути(НовыйКаталог.ПолноеИмя, НовыйФайл.ИмяБезРасширения);
 			СоздатьКаталог(КаталогФормы);
-			РаспаковатьКонтейнерМетаданных(НовыйФайл.ПолноеИмя, КаталогФормы)
+			РаспаковатьКонтейнерМетаданных(НовыйФайл.ПолноеИмя, КаталогФормы, Переименования, ФайлВыгрузкиКаталог.ПолноеИмя + ПолучитьРазделительПути());
 		КонецЕсли;
 
 	КонецЦикла;
@@ -383,11 +384,26 @@
 
 КонецПроцедуры
 
-Процедура РаспаковатьКонтейнерМетаданных(Знач ФайлРаспаковки, Знач КаталогРаспаковки)
+Процедура РаспаковатьКонтейнерМетаданных(Знач ФайлРаспаковки, Знач КаталогРаспаковки, Знач Переименования, Знач КорневойКаталог)
 
 	Распаковщик = Новый ЧтениеФайла8(ФайлРаспаковки);
 	Распаковщик.ИзвлечьВсе(КаталогРаспаковки, Истина);
 
+	Если ПереименовыватьФайлМодуляОбычнойФормы Тогда
+
+		Для Каждого ФайлМодуля Из НайтиФайлы(КаталогРаспаковки, "module", Истина) Цикл
+
+			СтароеИмяФайла = ФайлМодуля.ПолноеИмя;
+			НовоеИмяФайла = ОбъединитьПути(ФайлМодуля.Путь, "Module.bsl");
+			ПереместитьФайл(СтароеИмяФайла, НовоеИмяФайла);
+			ДобавитьПереименование(Переименования,
+				СтрЗаменить(СтароеИмяФайла, КорневойКаталог, ""),
+				СтрЗаменить(НовоеИмяФайла, КорневойКаталог, ""));
+
+		КонецЦикла;
+
+	КонецЕсли;
+
 КонецПроцедуры
 
 // Выполняет фиксацию изменений в локальном каталоге git
@@ -1144,32 +1160,6 @@
 ////////////////////////////////////////////////////////////////////////////////////////////////
 // Общие функции
 
-
-Функция ФайлПрограммыРаспаковки()
-
-	Если мФайлПрограммыРаспаковки = Неопределено Тогда
-		Если ЭтоWindows Тогда
-			КаталогДвоичныхФайлов = ОбъединитьПути(ТекущийСценарий().Каталог, "..\..\..\bin");
-			ФайлПрограммы = Новый Файл(ОбъединитьПути(КаталогДвоичныхФайлов, "v8unpack.exe"));
-			Если Не ФайлПрограммы.Существует() Тогда
-				ВызватьИсключение СтроковыеФункции.ПодставитьПараметрыВСтроку("Не обнаружен файл программы распаковки: <%1>", ФайлПрограммы.ПолноеИмя);
-			КонецЕсли;
-
-			ФайлZLib = Новый Файл(ОбъединитьПути(КаталогДвоичныхФайлов, "zlib1.dll"));
-			Если Не ФайлZLib.Существует() Тогда
-				ВызватьИсключение СтроковыеФункции.ПодставитьПараметрыВСтроку("Не обнаружена библиотека zlib1: <%1>", ФайлZLib.ПолноеИмя);
-			КонецЕсли;
-			мФайлПрограммыРаспаковки = ФайлПрограммы.ПолноеИмя;
-		Иначе
-			мФайлПрограммыРаспаковки = "v8unpack"; //установка происходит из репозитариев, поэтому уже в переменной path
-		КонецЕсли;
-
-	КонецЕсли;
-
-	Возврат мФайлПрограммыРаспаковки;
-
-КонецФункции
-
 Функция ИмяФайлаАвторов() Экспорт
 	Возврат "AUTHORS";
 КонецФункции