Добавлена возможность инкрементной конвертации в формат EDT

Author: yukon39

src/Классы/edtExport.os

@@ -12,6 +12,9 @@
 Перем ИмяРасширения;
 Перем ИмяБазовогоПроекта;
 
+Перем ИмяФайлаДампаКонфигурации;
+Перем ИмяФайлаИзменений;
+
 #Область Интерфейс_плагина
 
 // Возвращает версию плагина
@@ -38,11 +41,11 @@
 //   Строка - описание функциональности плагина
 //
 Функция Описание() Экспорт
-	Возврат "Плагин добавляет возможность выгрузки в формате EDT." 
-	 + " Важно: Для работы плагина необходимы установленные EDT и Ring";
+	Возврат "Плагин добавляет возможность выгрузки в формате EDT."
+	+ " Важно: Для работы плагина необходимы установленные EDT и Ring";
 КонецФункции
 
-// Возвращает подробную справку к плагину 
+// Возвращает подробную справку к плагину
 //
 //  Возвращаемое значение:
 //   Строка - подробная справка для плагина
@@ -58,7 +61,7 @@
 //
 Функция Имя() Экспорт
 	Возврат "edtExport";
-КонецФункции 
+КонецФункции
 
 // Возвращает имя лога плагина
 //
@@ -74,101 +77,112 @@
 #Область Подписки_на_события
 
 Процедура ПриАктивизации(СтандартныйОбработчик) Экспорт
-
+	
 	Обработчик = СтандартныйОбработчик;
-
+	
 КонецПроцедуры
 
 // BSLLS:UnusedParameters-off
 Процедура ПередНачаломВыполнения(ПутьКХранилищу, КаталогРабочейКопии) Экспорт
-// BSLLS:UnusedParameters-on
-
+	// BSLLS:UnusedParameters-on
+	
 	ИмяРасширения = Обработчик.ПолучитьИмяРасширения();
-
+	
 КонецПроцедуры
 
 Процедура ПриРегистрацииКомандыПриложения(ИмяКоманды, КлассРеализации) Экспорт
-
+	
 	Лог.Отладка("Ищу команду <%1> в списке поддерживаемых", ИмяКоманды);
 	Если КомандыПлагина.Найти(ИмяКоманды) = Неопределено Тогда
 		Возврат;
 	КонецЕсли;
-
+	
 	Лог.Отладка("Устанавливаю дополнительные параметры для команды %1", ИмяКоманды);
 
 	КлассРеализации.Опция("P project-name", "", "[*edtExport] Имя проекта")
-						.ТСтрока()
-						.ВОкружении("GITSYNC_PROJECT_NAME");
-
+	.ТСтрока()
+	.ВОкружении("GITSYNC_PROJECT_NAME");
+	
 	КлассРеализации.Опция("W workspace-location", "", "[*edtExport] расположение рабочей области")
-						.ТСтрока()
-						.ВОкружении("GITSYNC_WORKSPACE_LOCATION");
-
+	.ТСтрока()
+	.ВОкружении("GITSYNC_WORKSPACE_LOCATION");
+	
 	КлассРеализации.Опция(
-		"B base-project-name", 
-		"", 
+		"B base-project-name",
+		"",
 		"[*edtExport] имя базового проекта в рабочей области (для расширений))")
-			.ТСтрока()
-			.ВОкружении("GITSYNC_BASE_PROJECT_NAME");
-
+	.ТСтрока()
+	.ВОкружении("GITSYNC_BASE_PROJECT_NAME");
+	
 КонецПроцедуры
 
 Процедура ПриПолученииПараметров(ПараметрыКоманды) Экспорт
 
-	ИмяПроекта          = ПараметрыКоманды.Параметр("project-name");
+	ИмяПроекта = ПараметрыКоманды.Параметр("project-name");
 	РабочееПространство = ПараметрыКоманды.Параметр("workspace-location");
-	ИмяБазовогоПроекта  = ПараметрыКоманды.Параметр("base-project-name");
-
-	Если Не ПустаяСтрока(ИмяРасширения) 
+	ИмяБазовогоПроекта = ПараметрыКоманды.Параметр("base-project-name");
+	
+	Если Не ПустаяСтрока(ИмяРасширения)
 		И Не ПустаяСтрока(ИмяБазовогоПроекта)
 		И ПустаяСтрока(РабочееПространство) Тогда
-	
-	 	ВызватьИсключение "При конвертации расширений с указанием базового проекта, 
-		 |параметр workspace-location обязателен";
-
+		
+		ВызватьИсключение "При конвертации расширений с указанием базового проекта, 
+		|параметр workspace-location обязателен";
+		
 	КонецЕсли;
-
+	
 	Если ПустаяСтрока(ИмяПроекта) Тогда
 		ВызватьИсключение "Не заполнено имя проекта";
 	КонецЕсли;
-
+	
 КонецПроцедуры
 
 // BSLLS:UnusedParameters-off
 Процедура ПередПеремещениемВКаталогРабочейКопии(
-		Конфигуратор, 
-		КаталогРабочейКопии, 
-		КаталогВыгрузки, 
-		ПутьКХранилищу, 
+		Конфигуратор,
+		КаталогРабочейКопии,
+		КаталогВыгрузки,
+		ПутьКХранилищу,
 		НомерВерсии) Экспорт
-// BSLLS:UnusedParameters-on
-
+	// BSLLS:UnusedParameters-on
+	
 	Лог.Отладка("Начинаю выгрузку EDT");
 	Лог.Отладка("Имя проекта: %1", ИмяПроекта);
-
+	
+	ПутьКФайлуИзменений = ОбъединитьПути(КаталогВыгрузки, ИмяФайлаИзменений);
+	Если ФС.ФайлСуществует(ПутьКФайлуИзменений) Тогда
+		
+		Лог.Отладка("Используем инкрементный импорт проекта в EDT");
+		
+		ДополнитьИнкрементнуюВыгрузкуПроекта(Конфигуратор, КаталогВыгрузки);
+		
+	Иначе
+		Лог.Отладка("Используем полный импорт проекта в EDT");
+	КонецЕсли;
+	
 	ВременноеРабочееПространство = ВременныеФайлы.СоздатьКаталог();
 	Если Не ПустаяСтрока(РабочееПространство) Тогда
 		ФС.КопироватьСодержимоеКаталога(РабочееПространство, ВременноеРабочееПространство);
 	КонецЕсли;
-
+	
 	Лог.Отладка("Рабочее пространство EDT: %1", ВременноеРабочееПространство);
 
 	КаталогПроекта = ОбъединитьПути(ВременноеРабочееПространство, ИмяПроекта);
-
+	
 	Лог.Отладка("Каталог проекта EDT: %1", КаталогПроекта);
 	ФС.ОбеспечитьПустойКаталог(КаталогПроекта);
-
+	
 	Команда = Новый Команда;
 
 	Параметры = Новый Массив();
 	Параметры.Добавить(СтрШаблон("--configuration-files ""%1""", КаталогВыгрузки));
-	Параметры.Добавить(СтрШаблон("--workspace-location ""%1""",  ВременноеРабочееПространство));
-	Параметры.Добавить(СтрШаблон("--project ""%1""",             КаталогПроекта));
+	Параметры.Добавить(СтрШаблон("--workspace-location ""%1""", ВременноеРабочееПространство));
+	Параметры.Добавить(СтрШаблон("--project ""%1""", КаталогПроекта));
 
 	Если Не ПустаяСтрока(ИмяРасширения) И Не ПустаяСтрока(ИмяБазовогоПроекта) Тогда
 		Параметры.Добавить(СтрШаблон("--base-project-name ""%1""", ИмяБазовогоПроекта));
 	КонецЕсли;
-
+	
 	Команда.УстановитьСтрокуЗапуска("ring edt workspace import");
 	Команда.УстановитьКодировкуВывода(КодировкаТекста.ANSI);
 	Команда.ДобавитьЛогВыводаКоманды("oscript.lib.gitsync.plugins.edtExport");
@@ -177,30 +191,198 @@
 	Команда.ПоказыватьВыводНемедленно(Ложь);
 	Команда.УстановитьПравильныйКодВозврата(0);
 	КодВозврата = Команда.Исполнить();
-
+	
 	Лог.Отладка("Код возврата EDT: %1", КодВозврата);
-
+	
+	ТекущийФайлВерсийМетаданных = Новый Файл(ОбъединитьПути(КаталогВыгрузки, ИмяФайлаДампаКонфигурации));
+	Если ТекущийФайлВерсийМетаданных.Существует() Тогда
+		
+		ТекущийФайлВерсийМетаданных2 = ОбъединитьПути(КаталогПроекта, ИмяФайлаДампаКонфигурации);
+		КопироватьФайл(ТекущийФайлВерсийМетаданных.ПолноеИмя,
+			ТекущийФайлВерсийМетаданных2);
+		
+	КонецЕсли;
+	
 	Лог.Отладка("Очищаю каталог выгрузки");
 	УдалитьФайлы(КаталогВыгрузки, "*");
-
+	
 	Лог.Отладка("Копирую каталог проекта EDT в каталог выгрузки");
 	ФС.КопироватьСодержимоеКаталога(КаталогПроекта, КаталогВыгрузки);
-
+	
 КонецПроцедуры
 
 #КонецОбласти
 
-Процедура Инициализация()
+#Область Вспомогательные_процедуры_и_функции
+
+Процедура ДополнитьИнкрементнуюВыгрузкуПроекта(Конфигуратор, КаталогВыгрузки)
+	
+	ПутьКФайлуДополнительнойВыгрузки = ВременныеФайлы.НовоеИмяФайла();
+	
+	СформироватьСписокДополнительныхОбъектов(КаталогВыгрузки, ПутьКФайлуДополнительнойВыгрузки);
+	
+	Если ФС.ФайлСуществует(ПутьКФайлуДополнительнойВыгрузки) Тогда
+		
+		Параметры = Конфигуратор.ПолучитьПараметрыЗапуска();
+		
+		Параметры.Добавить(СтрШаблон("/DumpConfigToFiles ""%1""", КаталогВыгрузки));
+		Параметры.Добавить(СтрШаблон("-listFile ""%1""", ПутьКФайлуДополнительнойВыгрузки));
+		
+		Конфигуратор.ВыполнитьКоманду(Параметры);
+		
+		ВременныеФайлы.УдалитьФайл(ПутьКФайлуДополнительнойВыгрузки);
+		
+	КонецЕсли;
+	
+КонецПроцедуры
+
+// Возращает имя родительского объекта меданных
+//
+// Параметры:
+//   ПолноеИмяОбъекта - Строка - Полное имя объекта метаданных.
+//
+//  Возвращаемое значение:
+//   Строка - имя родительского объекта
+//
+Функция РодительОбъекта(ПолноеИмяОбъекта)
+	
+	ЧастиИмени = СтрРазделить(ПолноеИмяОбъекта, ".");
+	
+	Если ЧастиИмени.Количество() > 1 Тогда
+		
+		ТипОбъектаМетаданных = ЧастиИмени[0];
+		ИмяОбъектаМетаданных = ЧастиИмени[1];
+		
+	Иначе
+		Возврат ПолноеИмяОбъекта;
+	КонецЕсли;
+	
+	Если СтрНайти("Configuration,Language", ТипОбъектаМетаданных) > 0 Тогда
+		Возврат ТипОбъектаМетаданных;
+	Иначе
+		Возврат СтрШаблон("%1.%2", ТипОбъектаМетаданных, ИмяОбъектаМетаданных);
+	КонецЕсли;
+	
+КонецФункции
+
+Функция ИзмененныеОбъектыМетаданных(ПутьКФайлуИзменений)
+	
+	РегулярноеВыражение = Новый РегулярноеВыражение("^(?>New|Modified):(\S+)\s*$");
+	
+	ЧтениеФайла = Новый ЧтениеТекста(ПутьКФайлуИзменений);
+	Совпадения = РегулярноеВыражение.НайтиСовпадения(ЧтениеФайла.Прочитать());
+	ЧтениеФайла.Закрыть();
+	
+	ИзмененныеОбъекты = Новый Соответствие;
+	ИзмененныеОбъекты.Вставить("Configuration", Новый Массив);
+	ИзмененныеОбъекты.Вставить("Language", Новый Массив);
+	
+	Для Каждого Совпадение Из Совпадения Цикл
+		
+		ИмяОбъектаМетаданных = Совпадение.Группы[1].Значение;
+		Родитель = РодительОбъекта(ИмяОбъектаМетаданных);
+		
+		ПодчиненныеОбъекты = ИзмененныеОбъекты.Получить(Родитель);
+		Если ПодчиненныеОбъекты = Неопределено Тогда
+			ПодчиненныеОбъекты = Новый Массив;
+			ИзмененныеОбъекты.Вставить(Родитель, ПодчиненныеОбъекты);
+		КонецЕсли;
+		
+		ПодчиненныеОбъекты.Добавить(ИмяОбъектаМетаданных);
+		
+	КонецЦикла;
+	
+	Возврат ИзмененныеОбъекты;
+	
+КонецФункции
 
+Функция ДополнительныеОбъектыКВыгрузке(ВыгруженныеИзменения, ИмяФайлаДампа)
+	
+	СписокОбъектов = Новый Массив;
+	
+	ДочерниеОбъекты = Новый Массив;
+	ДочерниеОбъекты.Добавить("Form");
+	ДочерниеОбъекты.Добавить("Template");
+	ДочерниеОбъекты.Добавить("Recalculation");
+	ДочерниеОбъекты.Добавить("Subsystem");
+	
+	ЧтениеXML = Новый ЧтениеXML;
+	ЧтениеXML.ОткрытьФайл(ИмяФайлаДампа);
+
+	ЧтениеXML.ПерейтиКСодержимому(); // ConfigDumpInfo
+	ЧтениеXML.Прочитать(); // ConfigVersions
+	ЧтениеXML.Прочитать(); // Metadata
+
+	Пока ЧтениеXML.Имя = "Metadata" Цикл
+
+		ИмяОбъекта = ЧтениеXML.ЗначениеАтрибута("name");
+
+		Родитель = РодительОбъекта(ИмяОбъекта);
+
+		Сегменты = СтрРазделить(ИмяОбъекта, ".");
+
+		Если Сегменты.Количество() > 2 И ДочерниеОбъекты.Найти(Сегменты[2]) = Неопределено Тогда
+			Продолжить;
+		КонецЕсли;
+		Изменения = ВыгруженныеИзменения.Получить(Родитель);
+		Если Изменения <> Неопределено Тогда
+			
+			Если Изменения.Найти(ИмяОбъекта) = Неопределено Или Родитель = "Configuration" Тогда
+				СписокОбъектов.Добавить(ИмяОбъекта);
+			КонецЕсли;
+			
+		КонецЕсли;
+
+		Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
+			ЧтениеXML.Пропустить();
+		КонецЕсли;
+		
+		ЧтениеXML.Прочитать();
+
+	КонецЦикла;
+	
+	ЧтениеXML.Закрыть();
+	
+	Возврат СписокОбъектов;
+	
+КонецФункции
+
+Процедура СформироватьСписокДополнительныхОбъектов(КаталогВыгрузки, ПутьКФайлуДополнительнойВыгрузки)
+	
+	ПутьКФайлуИзменений = ОбъединитьПути(КаталогВыгрузки, ИмяФайлаИзменений);
+	ПутьКФайлуВерсийМетаданных = ОбъединитьПути(КаталогВыгрузки, ИмяФайлаДампаКонфигурации);
+	
+	ИзмененныеОбъекты = ИзмененныеОбъектыМетаданных(ПутьКФайлуИзменений);
+	ДополнительныеОбъектыКВыгрузке = ДополнительныеОбъектыКВыгрузке(ИзмененныеОбъекты, ПутьКФайлуВерсийМетаданных);
+	
+	Если ДополнительныеОбъектыКВыгрузке.Количество() > 0 Тогда
+		
+		ФайлОбъектовВыгрузки = Новый ТекстовыйДокумент();
+		Для Каждого ДополнительныйОбъект Из ДополнительныеОбъектыКВыгрузке Цикл
+			ФайлОбъектовВыгрузки.ДобавитьСтроку(ДополнительныйОбъект);
+		КонецЦикла;
+		ФайлОбъектовВыгрузки.Записать(ПутьКФайлуДополнительнойВыгрузки, КодировкаТекста.UTF8);
+		
+	КонецЕсли;
+	
+КонецПроцедуры
+
+Процедура Инициализация()
+	
 	ВерсияПлагина = "1.2.0";
 	Лог = Логирование.ПолучитьЛог(ИмяЛога());
 	КомандыПлагина = Новый Массив;
 	КомандыПлагина.Добавить("sync");
 
-	ИмяРасширения       = "";
+	ИмяРасширения = "";
 	РабочееПространство = "";
-	ИмяБазовогоПроекта  = "";
-
+	ИмяБазовогоПроекта = "";
+	
+	ИмяФайлаДампаКонфигурации = "ConfigDumpInfo.xml";
+	ИмяФайлаИзменений = "dumplist.txt";
+	
 КонецПроцедуры
 
-Инициализация();
+#КонецОбласти
+
+Инициализация();