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

Author: Stepa86

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

@@ -5,11 +5,11 @@
 Перем _Лог;
 Перем _РезультатПроверки;
 Перем _ФайлДжсон;
-Перем _КаталогИсходников;
 Перем _ВыгружатьОшибкиОбъектов;
 Перем _ИспользоватьОтносительныеПути;
 
-Перем ГенераторПутей;
+Перем КаталогИсходниковПоПроекту;
+Перем ГенераторПутейПоПроекту;
 
 Процедура ОписаниеКоманды(Команда) Экспорт
 
@@ -21,12 +21,17 @@
 	.ТСтрока()
 	.ВОкружении("EDT_VALIDATION_JSON");
 
-	Команда.Аргумент("SRC", "", "Путь к каталогу с исходниками. Например ./src")
+	Команда.Аргумент("SRC", "", "Путь к каталогам с исходниками. Можно указать несколько, если результат проверки содержит несколько проектов.
+	|		Пример для одного проекта: `project/src`.
+	|		Пример для несколькоих проектов `project1/src, project2/src`")
 	.ТСтрока()
 	.ВОкружении("SRC");
 
 	Команда.Опция("e ObjectErrors", Ложь, "Ошибки объектов назначать на первую строку модуля формы/объекта");
 	Команда.Опция("r UseRelativePaths", Ложь, "В файл результата записывать относительные пути");
+
+	Команда.Опция("d debug", Ложь, "Режим отладки")
+	.ТБулево();
 
 КонецПроцедуры
 
@@ -48,10 +53,16 @@
 
 Процедура ИнициализацияПараметров(Знач Команда)
 
+	Если Команда.ЗначениеОпции("debug") Тогда
+		_лог.УстановитьУровень(УровниЛога.Отладка);
+	КонецЕсли;
+
 	результатПроверки = Команда.ЗначениеАргумента("EDT_VALIDATION_RESULT");
 	_лог.Отладка("EDT_VALIDATION_RESULT = " + результатПроверки);
+
 	путьКРезультату = Команда.ЗначениеАргумента("EDT_VALIDATION_JSON");
 	_лог.Отладка("EDT_VALIDATION_JSON = " + путьКРезультату);
+
 	путьККаталогуИсходников = Команда.ЗначениеАргумента("SRC");
 	_лог.Отладка("SRC = " + путьККаталогуИсходников);
 
@@ -65,26 +76,59 @@
 
 	КонецЕсли;
 
-	_КаталогИсходников = ОбщегоНазначения.АбсолютныйПуть(путьККаталогуИсходников);
-	каталогИсходников = Новый Файл(_КаталогИсходников);
-	_лог.Отладка("Каталог исходников = " + _КаталогИсходников);
-	
-	Если Не каталогИсходников.Существует()
-		Или Не каталогИсходников.ЭтоКаталог() Тогда
-		
-		_лог.Ошибка(СтрШаблон("Каталог исходников <%1> не существует.", путьККаталогуИсходников));
-		ЗавершитьРаботу(1);
-		
-	КонецЕсли;
-	
 	_ФайлДжсон = ОбщегоНазначения.АбсолютныйПуть(путьКРезультату);
 	_лог.Отладка("Файл результат = " + _ФайлДжсон);
 
 	_ВыгружатьОшибкиОбъектов = Команда.ЗначениеОпции("ObjectErrors");
 	_ИспользоватьОтносительныеПути = Команда.ЗначениеОпции("UseRelativePaths");
+	
+	ИнициализироватьКаталогиПоПроектам(путьККаталогуИсходников);
+
+КонецПроцедуры
+
+Процедура ИнициализироватьКаталогиПоПроектам(Знач ПутьККаталогуИсходников)
 
-	ГенераторПутей = Новый Путь1СПоМетаданным(_КаталогИсходников);
+	стрКаталоги = СтрЗаменить(ПутьККаталогуИсходников, ";", ",");
+	каталоги = СтрРазделить(стрКаталоги, ",");
 
+	КаталогИсходниковПоПроекту = Новый Соответствие;
+
+	Для Каждого цКаталог Из каталоги Цикл
+		
+		каталогИсходников = Новый Файл(цКаталог);
+		каталогПроекта = Новый Файл(каталогИсходников.Путь);
+		
+		файлПроекта = Новый Файл(ОбъединитьПути(каталогПроекта.ПолноеИмя, ".project"));
+		
+		Если файлПроекта.Существует()
+			И каталогИсходников.Существует()
+			И каталогИсходников.ЭтоКаталог() Тогда
+
+			имяПроекта = каталогПроекта.Имя;
+
+			КаталогИсходниковПоПроекту.Вставить(имяПроекта, каталогИсходников.ПолноеИмя);
+
+			_лог.Отладка("Каталог исходников для проекта %1 = %2", имяПроекта, каталогИсходников.ПолноеИмя);
+
+		КонецЕсли;
+
+	КонецЦикла;
+	
+	Если КаталогИсходниковПоПроекту.Количество() = 0 Тогда
+		
+		_лог.Ошибка("Не удалось заполнить соответствие проектов исходникам для SRC = <%1>", ПутьККаталогуИсходников);
+		ЗавершитьРаботу(1);
+
+	КонецЕсли;
+	
+	ГенераторПутейПоПроекту = Новый Соответствие;
+
+	Для Каждого цПроектИКаталог Из КаталогИсходниковПоПроекту Цикл
+		
+		ГенераторПутейПоПроекту.Вставить(цПроектИКаталог.Ключ, Новый Путь1СПоМетаданным(цПроектИКаталог.Значение));
+		
+	КонецЦикла;
+
 КонецПроцедуры
 
 Функция ТаблицаПоФайлуРезультата()
@@ -159,7 +203,7 @@
 
 	// В отчете могут быть дубли
 
-	тз.Свернуть("Правило,Серьезность,Тип,Метаданные,Положение,Описание");
+	тз.Свернуть("Проект,Правило,Серьезность,Тип,Метаданные,Положение,Описание");
 
 	Возврат тз;
 
@@ -234,6 +278,7 @@
 	КонецЕсли;
 
 	мета = СтрокаТаблицы.Метаданные;
+	проект = СтрокаТаблицы.Проект;
 
 	Если СтрЗаканчиваетсяНа(ВРег(мета), ".ФОРМА") Тогда
 
@@ -243,23 +288,23 @@
 
 	ИначеЕсли СтрРазделить(мета, ".").Количество() = 2 Тогда
 
-		Если ПутьКМетаданнымСуществует(мета + ".МодульОбъекта") Тогда
+		Если ПутьКМетаданнымСуществует(проект, мета + ".МодульОбъекта") Тогда
 
 			СтрокаТаблицы.Метаданные = мета + ".МодульОбъекта";
 
-		ИначеЕсли ПутьКМетаданнымСуществует(мета + ".МодульМенеджера") Тогда
+		ИначеЕсли ПутьКМетаданнымСуществует(проект, мета + ".МодульМенеджера") Тогда
 
 			СтрокаТаблицы.Метаданные = мета + ".МодульМенеджера";
 
-		ИначеЕсли ПутьКМетаданнымСуществует(мета + ".МодульНабораЗаписей") Тогда
+		ИначеЕсли ПутьКМетаданнымСуществует(проект, мета + ".МодульНабораЗаписей") Тогда
 
 			СтрокаТаблицы.Метаданные = мета + ".МодульНабораЗаписей";
 
-		ИначеЕсли ПутьКМетаданнымСуществует(мета + ".МодульМенеджераЗначения") Тогда
+		ИначеЕсли ПутьКМетаданнымСуществует(проект, мета + ".МодульМенеджераЗначения") Тогда
 
 			СтрокаТаблицы.Метаданные = мета + ".МодульМенеджераЗначения";
 
-		ИначеЕсли ПутьКМетаданнымСуществует(мета + ".МодульКоманды") Тогда
+		ИначеЕсли ПутьКМетаданнымСуществует(проект, мета + ".МодульКоманды") Тогда
 
 			СтрокаТаблицы.Метаданные = мета + ".МодульКоманды";
 
@@ -294,7 +339,7 @@
 
 	Для каждого цСтрока Из таблицаРезультатов Цикл
 
-		цСтрока.Путь = генераторПутей.Путь(цСтрока.Метаданные);
+		цСтрока.Путь = ГенераторПутейПоПроекту[цСтрока.Проект].Путь(цСтрока.Метаданные);
 
 		Если Не ПроверитьПуть(цСтрока.Путь, цСтрока.Метаданные) Тогда
 
@@ -490,9 +535,9 @@
 
 #КонецОбласти
 
-Функция ПутьКМетаданнымСуществует(Знач пМетаданные)
+Функция ПутьКМетаданнымСуществует(Знач Проект, Знач пМетаданные)
 
-	Путь = генераторПутей.Путь(пМетаданные);
+	Путь = ГенераторПутейПоПроекту[Проект].Путь(пМетаданные);
 
 	Возврат ПроверитьПуть(Путь, пМетаданные, Ложь);
 

src/Модули/ОПриложении.os

@@ -9,7 +9,7 @@
 
 Функция Версия() Экспорт
 
-	Возврат "1.9.3";
+	Возврат "1.10.1";
 
 КонецФункции