Наброски изменения механизма

Author: khorevaa

src/core/Классы/ГенераторОтчетаПокрытия.os

@@ -9,8 +9,11 @@
 Перем ГенерируемыеОтчеты; // Структура
 
 Перем ПутиФайловВОтносительные;
-
 Перем Лог;
+Перем ШаблонИмениФайлаСтатистики; // Строка
+Перем МассивПутейЗамены; // Соответствие
+
+Перем ТаблицаСтатистикиПокрытия; // ТаблицаЗначение
 
 // Устанавливает путь к файлу статистик
 //
@@ -28,6 +31,22 @@
 
 КонецФункции
 
+// Устанавливает путь к файлу статистик
+//
+// Параметры:
+//   ПутьКфайлу - Строка - Путь к файлу статистики (по умолчанию stat.json)
+//
+//  Возвращаемое значение:
+//   Объект.ГенераторОтчетаПокрытия - экземпляр этого объекта ГенераторОтчетаПокрытия
+//
+Функция ИмяФайлаСтатистики(Знач ПутьКфайлу = "stat.json") Экспорт
+
+	ПутьКФайлуСтатистики = ПутьКфайлу;
+
+	Возврат ЭтотОбъект;
+
+КонецФункции
+
 // Устанавливает выходной-рабочий каталог 
 //
 // Параметры:
@@ -89,6 +108,23 @@
 
 КонецФункции
 
+// Добавляет путь к замене
+//
+// Параметры:
+//   ЗаменяемыйПуть - Строка - путь к замене
+//   НовыйПуть - Строка - новый путь
+//
+//  Возвращаемое значение:
+//   Объект.ГенераторОтчетаПокрытия - экземпляр этого объекта ГенераторОтчетаПокрытия
+//
+Функция ЗаменитьПуть(Знач ЗаменяемыйПуть, Знач НовыйПуть) Экспорт
+
+	МассивПутейЗамены.Вставить(ЗаменяемыйПуть, НовыйПуть);
+
+	Возврат ЭтотОбъект;
+
+КонецФункции
+
 // Добавляет отчет в формате Clover для генерации
 //
 // Параметры:
@@ -142,52 +178,169 @@
 //
 Процедура Сформировать() Экспорт
 
-	ПроверитьФайлСтатистики();
+	НоваяТаблицаСтатистикиПокрытия();
 
 	ПрочитатьДанныеСтатистики();
 
+	ОбработатьТаблицуСтатистикиПокрытия();
+
 	СформироватьОтчетClover();
 	СформироватьОтчетGenericCoverage();
-
 	СформироватьОтчетCobertura();
 
 КонецПроцедуры
 
 Процедура ПрочитатьДанныеСтатистики()
 
-	ЧтениеТекста = Новый ЧтениеТекста(ПутьКФайлуСтатистики, КодировкаТекста.UTF8);
+	МассивФайловСтатистики = НайтиФайлы(ПутьКРабочемуКаталогу, ШаблонИмениФайлаСтатистики);
+
+	Для Каждого ФайлСтатистики Из МассивФайловСтатистики Цикл
+
+		ПрочитатьФайлСтатистики(ФайлСтатистики);
+
+	КонецЦикла;
+
+	Если ЗначениеЗаполнено(ПутьКФайлуСтатистики) Тогда
+		
+		ФайлСтатистики = Новый Файл(ПутьКФайлуСтатистики);
+		
+		Если ФайлСтатистики.Существует() Тогда
+			ПрочитатьФайлСтатистики(ФайлСтатистики);
+		КонецЕсли;
+		
+	КонецЕсли;
+
+КонецПроцедуры
+
+Функция ПрочитатьФайлСтатистики(Знач ФайлСтатистики)
+	
+	ЧтениеТекста = Новый ЧтениеТекста(ФайлСтатистики.ПолноеИмя, КодировкаТекста.UTF8);
 
 	СтрокаJSON = ЧтениеТекста.Прочитать();
 	ЧтениеТекста.Закрыть();
 
 	Парсер = Новый ПарсерJSON();
 
 	ДанныеФайлаСтатистики = Парсер.ПрочитатьJSON(СтрокаJSON);
-	ДанныеСтатистикиПокрытия = Новый Соответствие;
-
+	
 	Для Каждого Файл Из ДанныеФайлаСтатистики Цикл
 
 		ДанныеФайла = Файл.Значение;
 
 		ПутьКФайлу = ДанныеФайла.Получить("#path");
 
+		ВыполнитьЗаменуПутей(ПутьКФайлу);
+		
 		Если НЕ ЭтоФайлПроекта(ПутьКФайлу) Тогда
 			Продолжить;
 		КонецЕсли;
 
-		ФайлПокрытия = Новый Файл(ПутьКФайлу);
-		ПолноеИмя = ФайлПокрытия.ПолноеИмя;
+		ДобавитьВДанныеСтатистикиПокрытия(ПутьКФайлу, ДанныеФайла);
+
+	КонецЦикла;
+
+	СвернутьТаблицуСтатистикиПокрытия();
+
+КонецФункции
+
+Процедура ОбработатьТаблицуСтатистикиПокрытия()
+
+	Если НЕ ПутиФайловВОтносительные Тогда
+		Возврат;
+	КонецЕсли;
+
+	СтрокаЗамены = СтрШаблон("%1%2", ПутьККаталогуПроекта, ПолучитьРазделительПути());
+	
+	Для каждого СтрокаТаблицыСтатистики Из ТаблицаСтатистикиПокрытия Цикл
+		
+		ПутьКФайлу = СтрокаТаблицыСтатистики.ПутьКФайлу;
+
+		СтрокаТаблицыСтатистики.ПутьКФайлу = СтрЗаменить(ПутьКФайлу, СтрокаЗамены, "");
+
+	КонецЦикла;
+
+КонецПроцедуры
+
+Процедура ВыполнитьЗаменуПутей(Знач ПутьКФайлу)
+	
+	Для каждого ПутьЗамены Из МассивПутейЗамены Цикл
+		
+		СтрокаПоиска = ПутьЗамены.Ключ;
+		СтрокаЗамены = ПутьЗамены.Значение;
+
+		Если СтрНачинаетсяС(ПутьКФайлу, СтрокаПоиска) Тогда
+			
+			ПутьКФайлу = СтрЗаменить(ПутьКФайлу, СтрокаПоиска, СтрокаЗамены);
+
+		КонецЕсли;
+	
+	КонецЦикла;
+
+КонецПроцедуры
+
+Процедура ДобавитьВДанныеСтатистикиПокрытия(Знач ПутьКФайлу, ДанныеФайла)
+	
+	Для каждого ДанныеМетодов Из ДанныеФайла Цикл
+		
+		ИмяМетода = ДанныеМетодов.Ключ;
 
-		Если ПутиФайловВОтносительные Тогда
-			ДанныеФайла.Вставить("#path", СтрЗаменить(ПолноеИмя, ПутьККаталогуПроекта + "/", ""));
+		Если ИмяМетода = "#path" Тогда
+			Продолжить;
 		КонецЕсли;
+	
+		СтрокиМетода = ДанныеМетодов.Значение;
+
+		Для каждого ДанныеПокрытияСтроки Из СтрокиМетода Цикл
+		
+			СтрокаМодуля = ДанныеПокрытияСтроки.Ключ;
+			КоличествоВызовов = ДанныеФайла.Получить("count");
+			ВремяВыполнения = ДанныеФайла.Получить("time");
+
+			ДобавитьВТаблицуСтатистики(ПутьКфайлу, 
+										ИмяМетода,
+										СтрокаМодуля,
+										КоличествоВызовов,
+										ВремяВыполнения);
 
-		ДанныеСтатистикиПокрытия.Вставить(Файл.Ключ, ДанныеФайла);
+		КонецЦикла;
 
 	КонецЦикла;
 
 КонецПроцедуры
 
+Функция НоваяТаблицаСтатистикиПокрытия()
+
+	ТаблицаСтатистикиПокрытия = Новый ТаблицаЗначений;
+
+	ТаблицаСтатистикиПокрытия.Колонки.Добавить("ПутьКФайлу");
+	ТаблицаСтатистикиПокрытия.Колонки.Добавить("ИмяМетода");
+	ТаблицаСтатистикиПокрытия.Колонки.Добавить("СтрокаМодуля");
+	ТаблицаСтатистикиПокрытия.Колонки.Добавить("КоличествоВызовов");
+	ТаблицаСтатистикиПокрытия.Колонки.Добавить("ВремяВыполнения");
+	
+КонецФункции
+
+Процедура СвернутьТаблицуСтатистикиПокрытия()
+
+	ТаблицаСтатистикиПокрытия.Свернуть("ПутьКФайлу, ИмяМетода, СтрокаМодуля", "КоличествоВызовов, ВремяВыполнения");
+	
+КонецПроцедуры
+
+Процедура ДобавитьВТаблицуСтатистики(Знач ПутьКФайлу,
+									Знач ИмяМетода,
+									Знач СтрокаМодуля,
+									Знач КоличествоВызовов,
+									Знач ВремяВыполнения)
+
+	НоваяСтрока = ТаблицаСтатистикиПокрытия.Добавить();
+	НоваяСтрока.ПутьКФайлу = ПутьКФайлу;
+	НоваяСтрока.ИмяМетода = ИмяМетода;
+	НоваяСтрока.СтрокаМодуля = СтрокаМодуля;
+	НоваяСтрока.КоличествоВызовов = Число(КоличествоВызовов);
+	НоваяСтрока.ВремяВыполнения = Число(ВремяВыполнения);
+
+КонецПроцедуры
+
 Функция ЭтоФайлПроекта(Знач ПутьКФайлу)
 
 	ФайлПодходит = СтрНачинаетсяС(ПутьКФайлу, ПутьККаталогуИсходников);
@@ -312,6 +465,8 @@
 
 	ГенерируемыеОтчеты = Новый Структура;
 
+	МассивПутейЗамены = Новый Массив;
+
 	ПутьКФайлуСтатистикиПоУмолчанию();
 
 КонецПроцедуры