нов: Трансформация результатов от нескольких проектов

Author: Stepa86

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

@@ -95,7 +95,7 @@
 
 	Для Каждого цКаталог Из каталоги Цикл
 
-		каталогИсходников = Новый Файл(цКаталог);
+		каталогИсходников = Новый Файл(СокрЛП(цКаталог));
 		каталогПроекта = Новый Файл(каталогИсходников.Путь);
 
 		файлПроекта = Новый Файл(ОбъединитьПути(каталогПроекта.ПолноеИмя, ".project"));

src/Классы/ПрименениеФайлаНастроек.os

@@ -6,13 +6,15 @@
 Перем _ПрименятьНастройки;
 Перем _ФайлыОшибок;
 Перем _ФайлНастроек;
-Перем _КаталогИсходников;
 Перем _ФайлыСИсходнымКодом;
 
+Перем КаталогиИсходников;
+Перем _КаталогИсходников; // Каталог исходников по умолчанию
+
 Перем _КешПравил;
 
 Перем _УдалятьПоддержку;
-Перем _ДанныеПоддержки;
+Перем ДанныеПоддержкиПоИсходникам;
 
 Перем _ФильтрПоПодсистемам;
 Перем _ДанныеФильтраПоПодсистемам;
@@ -52,6 +54,9 @@
 		|			'-СтандартныеПодсистемы*, -ПодключаемоеОборудование*'")
 	.ТСтрока()
 	.ВОкружении("GENERIC_ISSUE_FILTER_BY_SUBSYSTEM");
+
+	Команда.Опция("d debug", Ложь, "Режим отладки")
+	.ТБулево();
 
 КонецПроцедуры
 
@@ -145,6 +150,10 @@
 
 	_Лог = Логирование.ПолучитьЛог(ИмяЛога());
 
+	Если Команда.ЗначениеОпции("debug") Тогда
+		_Лог.УстановитьУровень(УровниЛога.Отладка);
+	КонецЕсли;
+
 	файлыОшибок = Команда.ЗначениеАргумента("GENERIC_ISSUE_JSON");
 	_лог.Информация("GENERIC_ISSUE_JSON = " + файлыОшибок);
 
@@ -193,16 +202,34 @@
 
 	КонецЦикла;
 
-	_КаталогИсходников = ОбщегоНазначения.АбсолютныйПуть(путьККаталогуИсходников);
-	каталогИсходников = Новый Файл(_КаталогИсходников);
-	_лог.Информация("Каталог исходников = " + _КаталогИсходников);
+	КаталогиИсходников = Новый Массив;
+
+	стрКаталоги = СтрЗаменить(ПутьККаталогуИсходников, ";", ",");
 
-	Если Не каталогИсходников.Существует()
-		Или Не каталогИсходников.ЭтоКаталог() Тогда
+	Для Каждого цКаталог Из СтрРазделить(стрКаталоги, ",") Цикл
+		
+		каталог = Новый Файл(СокрЛП(цКаталог));
+		
+		Если каталог.Существует()
+			И каталог.ЭтоКаталог() Тогда
+			
+			КаталогиИсходников.Добавить(каталог.ПолноеИмя);
+			_лог.Информация("Каталог исходников = " + каталог.ПолноеИмя);
+			
+		КонецЕсли;
+
+	КонецЦикла;
+
+	Если КаталогиИсходников.Количество() = 0 Тогда
 
 		_лог.Ошибка(СтрШаблон("Каталог исходников <%1> не существует. Файлы на поддержке удалены не будут", путьККаталогуИсходников));
 		_УдалятьПоддержку = Неопределено;
+		_КаталогИсходников = "";
 
+	Иначе
+
+		_КаталогИсходников = КаталогиИсходников[0];
+
 	КонецЕсли;
 
 	Если Не _ПрименятьНастройки
@@ -213,7 +240,15 @@
 
 	Если Не _УдалятьПоддержку = Неопределено Тогда
 
-		_ДанныеПоддержки = Новый Поддержка(_КаталогИсходников);
+		ДанныеПоддержкиПоИсходникам = Новый Соответствие;
+
+		Для Каждого цКаталог Из КаталогиИсходников Цикл
+			
+			приведенныйПуть = СтрЗаменить(НРег(цКаталог), "\", "/"); // Чтобы при сравнении не расходились слеши
+
+			ДанныеПоддержкиПоИсходникам.Вставить(приведенныйПуть, Новый Поддержка(цКаталог));
+			
+		КонецЦикла;
 
 	КонецЕсли;
 
@@ -487,12 +522,45 @@
 
 	путьКФайлу = ОбеспечитьПутьКФайлуСИсходнымКодом(пОшибка.primaryLocation.filePath);
 
-	текУровень = _ДанныеПоддержки.Уровень(путьКФайлу);
+	даныеПоддержки = ДанныеПоддержкиДляФайла(путьКФайлу);
+	
+	Если даныеПоддержки = Неопределено Тогда
+		Возврат Ложь;
+	КонецЕсли;
+
+	текУровень = даныеПоддержки.Уровень(путьКФайлу);
 
 	Возврат текУровень <= _УдалятьПоддержку;
 
 КонецФункции
 
+Функция ДанныеПоддержкиДляФайла(Знач ПутьКФайлу)
+	
+	Для Каждого цКлючИЗначение Из ДанныеПоддержкиПоИсходникам Цикл
+		
+		приведенныйПутьКФайлу = СтрЗаменить(НРег(ПутьКФайлу), "\", "/");
+
+		Если СтрНачинаетсяС(приведенныйПутьКФайлу, цКлючИЗначение.Ключ) Тогда
+			Возврат цКлючИЗначение.Значение;
+		КонецЕсли;
+		
+	КонецЦикла;
+	
+	_лог.Предупреждение("Не удалось получить данные поддержки для файла %1", ПутьКФайлу);
+	
+	массивИсточников = Новый Массив;
+	Для Каждого цКлючИЗначение Из ДанныеПоддержкиПоИсходникам Цикл
+		
+		массивИсточников.Добавить(цКлючИЗначение.Ключ);
+		
+	КонецЦикла;
+
+	_лог.Предупреждение("	Доступные источники: [%1]", СтрСоединить(массивИсточников, ", "));
+
+	Возврат Неопределено;
+	
+КонецФункции
+
 Функция ИсключитьЗамечаниеФильтромПоПодсистеме(Знач пОшибка)
 
 	Если Не _ДанныеФильтраПоПодсистемам.ЕстьОтбор