Merge branch 'feature/issue-48' into develop

Author: artbear

tests/v8files-extractor-test.os

@@ -23,6 +23,7 @@
 	ВсеТесты.Добавить("Тест_ДолженСоздатьРепозитарийГит");
 	ВсеТесты.Добавить("Тест_ДолженПроверитьНастройкиРепозитарияГит");
 	ВсеТесты.Добавить("Тест_ДолженОбработатьИзмененияИзГитДляКаталогаСВложеннымиКаталогами");
+	ВсеТесты.Добавить("Тест_ДолженСобратьФайлОбработкиИзЗаданнойПапки");
 
 	Возврат ВсеТесты;
 
@@ -57,6 +58,19 @@
 
 КонецФункции
 
+Функция ПолучитьКаталогТестовойОбработки()
+	
+	ИмяКаталогаИсходников = "Fixture";
+	КаталогИсходниковТеста = ОбъединитьПути(КаталогПроекта(),  "src", "tests");
+	ПутьФайла = ОбъединитьПути(КаталогИсходниковТеста, ИмяКаталогаИсходников);	
+
+	КаталогИсходников = Новый Файл(ПутьФайла);
+	Ожидаем.Что(КаталогИсходников.Существует(), "Каталог с исходными кодами обработки должен существовать").ЭтоИстина();
+	
+	Возврат КаталогИсходников;
+
+КонецФункции
+
 //}
 
 //{ тесты
@@ -192,6 +206,22 @@
 	Исполнитель.ПроверитьНастройкиРепозитарияГит();
 КонецПроцедуры
 
+Процедура Тест_ДолженСобратьФайлОбработкиИзЗаданнойПапки() Экспорт
+	
+	КаталогОбработки = ПолучитьКаталогТестовойОбработки();
+	
+	КаталогВыгрузки = ВременныеФайлы.СоздатьКаталог();
+	
+	Исполнитель = ЗагрузитьИсполнителя();
+	Исполнитель.Компилировать(КаталогОбработки.ПолноеИмя, КаталогВыгрузки);
+	
+	ИмяФайлаОбработки = КаталогОбработки.Имя;
+	НайденныеФайлы = НайтиФайлы(КаталогВыгрузки, ИмяФайлаОбработки + ".epf");
+
+	Ожидаем.Что(НайденныеФайлы, "ожидаем, что в КаталогВыгрузки найден файл обработки").ИмеетДлину(1);
+
+КонецПроцедуры
+
 //}
 
 //{ служебные методы

v8files-extractor.os

@@ -63,7 +63,12 @@
 		ИначеЕсли Команда = ВозможныеКоманды().ОбработатьИзмененияИзГит Тогда
 			ОбработатьИзмененияИзГит(Аргументы.ЗначенияПараметров["ВыходнойКаталог"]);
 		ИначеЕсли Команда = ВозможныеКоманды().Компилировать Тогда
-			Компилировать(Аргументы.ЗначенияПараметров["ПутьВходящихДанных"], Аргументы.ЗначенияПараметров["ВыходнойКаталог"], Аргументы.ЗначенияПараметров["--type"]);
+			Компилировать(
+				Аргументы.ЗначенияПараметров["ПутьВходящихДанных"], 
+				Аргументы.ЗначенияПараметров["ВыходнойКаталог"], 
+				Аргументы.ЗначенияПараметров["--type"],
+				Аргументы.ЗначенияПараметров["--recursive"]
+			);
 		КонецЕсли;
 
 	Исключение
@@ -102,6 +107,7 @@
 	Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ПутьВходящихДанных");
 	Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ВыходнойКаталог");
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "--type");
+	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "--recursive");
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
 КонецПроцедуры
 
@@ -271,9 +277,10 @@
 	Сообщить("		Показ этого экрана");
 	Сообщить("	--git-precommit outputPath");
 	Сообщить("		Запустить чтение индекса из git и определить список файлов для разбора, разложить их и добавить исходники в индекс");
-	Сообщить("	--compile inputPath outputPath [--type TYPE]");
+	Сообщить("	--compile inputPath outputPath [--type TYPE] [--recursive]");
 	Сообщить("		Собрать внешний файл/обработку.");
 	Сообщить("		В параметре --type указывается тип файла для сборки (epf/erf). Значение по умолчанию - epf");
+	Сообщить("		Если указан параметр --recursive, скрипт будет рекурсивно искать исходные коды отчетов и обработок в указанном каталоге и собирать их, повторяя структуру каталога");
 КонецПроцедуры
 
 
@@ -426,11 +433,7 @@
 
 КонецПроцедуры
 
-Функция Компилировать(Знач Путь, Знач КаталогВыгрузки, Знач ТипФайла)
-
-	Если ТипФайла = Неопределено Тогда
-		ТипФайла = "epf";
-	КонецЕсли;
+Функция Компилировать(Знач Путь, Знач КаталогВыгрузки, Знач ТипФайла = "epf", Знач Рекурсивно = Ложь) Экспорт
 
 	ПутьКИсходникам = ОбъединитьПути(ТекущийКаталог(), Путь);
 
@@ -439,12 +442,52 @@
 	Ожидаем.Что(ПапкаИсходников.Существует(), "Папка " + ПутьКИсходникам + " должна существовать").ЭтоИстина();
 	Ожидаем.Что(ПапкаИсходников.ЭтоКаталог(), "Путь " + ПутьКИсходникам + "должен быть каталогом").ЭтоИстина();
 
+	Если Рекурсивно Тогда
+		СобратьКаталог(ПутьКИсходникам, КаталогВыгрузки, ТипФайла);
+	Иначе
+		СобратьФайл(ПутьКИсходникам, КаталогВыгрузки, ТипФайла);
+	КонецЕсли;
+
+КонецФункции
+
+Процедура СобратьКаталог(Знач ПутьКИсходникам, КаталогВыгрузки, Знач ТипФайла)
+
+	СписокФайловВКаталоге = НайтиФайлы(ПутьКИсходникам);
+
+	Если НЕ Новый Файл(КаталогВыгрузки).Существует() Тогда
+		СоздатьКаталог(КаталогВыгрузки);
+	КонецЕсли;
+
+	Для Каждого Файл Из СписокФайловВКаталоге Цикл
+		
+		Если НЕ Файл.ЭтоКаталог() Тогда
+			Продолжить;
+		КонецЕсли;
+
+		Если ЭтоПутьКИсходнымКодамОбработок(Файл.ПолноеИмя) Тогда
+			СобратьФайл(Файл.ПолноеИмя, КаталогВыгрузки, ТипФайла);
+		Иначе
+			НовыйПутьВыгрузки = ОбъединитьПути(КаталогВыгрузки, Файл.Имя);
+			СобратьКаталог(Файл.ПолноеИмя, НовыйПутьВыгрузки, ТипФайла);
+		КонецЕсли;
+
+	КонецЦикла;
+
+КонецПроцедуры
+
+Функция СобратьФайл(Знач ПутьКИсходникам, Знач КаталогВыгрузки, Знач ТипФайла)
+
+	Лог.Информация("Собираю исходники <"+ПутьКИсходникам+">");
+
+	ПапкаИсходников = Новый Файл(ПутьКИсходникам);
+
 	ИмяПапки = ПапкаИсходников.Имя;
 	ИмяФайлаОбъекта = ОбъединитьПути(ТекущийКаталог(), КаталогВыгрузки, ИмяПапки + "." + ТипФайла);
 
 	Переименования = ПолучитьСоответствиеПереименований(ПутьКИсходникам);
-
+	
 	ВременныйКаталог = ВременныеФайлы.СоздатьКаталог();
+	Лог.Информация("Восстанавливаю структуру исходников в <" + ВременныйКаталог + ">");
 
 	Для Каждого Переименование Из Переименования Цикл
 
@@ -472,6 +515,13 @@
 
 КонецФункции
 
+Функция ЭтоПутьКИсходнымКодамОбработок(ПутьКПапке)
+	
+	ФайлПереименования = Новый Файл(ОбъединитьПути(ПутьКПапке, "renames.txt"));
+	Возврат ФайлПереименования.Существует();
+
+КонецФункции
+
 // Функция - Получает соответствие переименований файлов обработки на основе
 //			 файла renames.txt
 //
@@ -483,8 +533,7 @@
 //								раскладывании файлов по иерархии)
 //
 Функция ПолучитьСоответствиеПереименований(ПутьКИсходникам)
-	Лог.Информация("Собираю исходники <"+ПутьКИсходникам+">");
-
+	
 	Переименования = Новый Соответствие;
 
 	ФайлПереименования = Новый Файл(ОбъединитьПути(ПутьКИсходникам, "renames.txt"));