Реализован показ сравнения бинарных файлов 1С с помощью инструмента "v8reader"

Author: artbear

README.md

@@ -4,6 +4,3 @@ v8Diff
 Удобное сравнение файлов внешних обработок и отчетов 1С, конфигураций 1С, макетов и т.п.
 
 Пример использования описан в http://infostart.ru/public/118207/
-
-
-

packagedef

@@ -4,6 +4,8 @@
 		.ЗависитОт("logos")
 		.ЗависитОт("cmdline")
 		.ЗависитОт("asserts")
+		.ЗависитОт("v8runner")
+		.ЗависитОт("tempfiles")
 		.ВключитьФайл("src")
 		.ВключитьФайл("ibService")
 		.ИсполняемыйФайл("v8diff.os");

src/Классы/КомандаСравнить.os

@@ -1,5 +1,7 @@
 #Использовать logos
 #Использовать asserts
+#Использовать v8runner
+#Использовать tempfiles
 
 Перем Лог;
 
@@ -10,13 +12,11 @@
 	ОписаниеКоманды = Парсер.ОписаниеКоманды(ИмяКоманды, "Сравнение внешних бинарных файлов 1С");
 	Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ПервыйПуть", "Путь к первому файлу для сравнения");
 	Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ВторойПуть", "Путь ко второму файлу для сравнения");
-	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "--silent", "Не показывать окно с ошибкой и не ожидать действий пользователя");
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
 	// для использования по умолчанию
 	Парсер.ДобавитьПараметр("ПервыйПуть", "Путь к первому файлу для сравнения");
 	Парсер.ДобавитьПараметр("ВторойПуть", "Путь ко второму файлу для сравнения");
-	Парсер.ДобавитьПараметрФлаг("--silent", "Не показывать окно с ошибкой и не ожидать действий пользователя");
 КонецПроцедуры
 
 // Выполняет логику команды
@@ -37,5 +37,41 @@
 	Ожидаем.Что(ПервыйФайл.Существует(), СтрШаблон("Первый файл должен существовать, а это не так! %1", ПервыйПуть)).ЭтоИстина();
 	Ожидаем.Что(ВторойФайл.Существует(), СтрШаблон("Первый файл должен существовать, а это не так! %1", ВторойПуть)).ЭтоИстина();
 
+	СравнитьФайлы(ПервыйФайл, ВторойФайл);
+
 	Возврат МенеджерКомандПриложения.РезультатыКоманд().Успех;
-КонецФункции
+КонецФункции
+
+Процедура СравнитьФайлы(Знач ПервыйФайл, Знач ВторойФайл)
+	УстановитьУровеньЛогаКонфигуратораРавнымУровнюПродукта();
+
+	УправлениеКонфигуратором = Новый УправлениеКонфигуратором;
+	ВременныйКаталог = ВременныеФайлы.СоздатьКаталог();
+
+	УправлениеКонфигуратором.КаталогСборки(ВременныйКаталог);
+
+	ФайлОписанияСравнения = ПодготовитьФайлОписанияСравнения(ПервыйФайл, ВторойФайл);
+
+	Параметры = УправлениеКонфигуратором.ПолучитьПараметрыЗапуска();
+	Параметры.Добавить("");
+
+	КомандаДля1С = СтрШаблон("""diff;%1;shutdownAfterClose""", ФайлОписанияСравнения.ПолноеИмя);
+	ДопПараметр = СтрШаблон("/Execute %1 ", ОбъединитьПути(ПараметрыСистемы.КаталогПроекта(), "tools", "v8reader.epf"));
+
+	УправлениеКонфигуратором.ЗапуститьВРежимеПредприятия(КомандаДля1С, Ложь, ДопПараметр);
+
+КонецПроцедуры
+
+Процедура УстановитьУровеньЛогаКонфигуратораРавнымУровнюПродукта()
+	ДопЛог = Логирование.ПолучитьЛог("oscript.lib.v8runner");
+	ДопЛог.УстановитьУровень(Лог.Уровень());
+КонецПроцедуры
+
+Функция ПодготовитьФайлОписанияСравнения(Знач ПервыйФайл, Знач ВторойФайл)
+	ПутьФайла = ВременныеФайлы.НовоеИмяФайла();
+	ЗаписьТекста = Новый ЗаписьТекста(ПутьФайла);
+	ЗаписьТекста.ЗаписатьСтроку(ПервыйФайл.ПолноеИмя);
+	ЗаписьТекста.ЗаписатьСтроку(ВторойФайл.ПолноеИмя);
+	ЗаписьТекста.Закрыть();
+	Возврат Новый Файл(ПутьФайла);
+КонецФункции

src/Модули/ПараметрыСистемы.os

@@ -32,4 +32,14 @@
 //  myapp /home/user/somefile.txt будет аналогично myapp default-action /home/user/somefile.txt 
 Функция ИмяКомандыПоУмолчанию() Экспорт
 	Возврат "diff";
-КонецФункции
+КонецФункции
+
+// Возвращает путь корневого каталога проекта
+//
+//  Возвращаемое значение:
+//   Строка - путь корневого каталога проекта
+//
+Функция КаталогПроекта() Экспорт
+	ФайлСкрипта = Новый Файл(СтартовыйСценарий().Источник);
+	Возврат ФайлСкрипта.Путь;
+КонецФункции // КаталогПроекта()

tools/V8Reader.epf

@@ -67,8 +67,17 @@
 МенеджерКомандПриложения.РегистраторКоманд(ПараметрыСистемы);
 
 Попытка
-    ЗавершитьРаботу(ПолезнаяРабота());
+    КодВозврата = ПолезнаяРабота();
+
 Исключение
     Лог.КритичнаяОшибка(ОписаниеОшибки());
-    ЗавершитьРаботу(МенеджерКомандПриложения.РезультатыКоманд().ОшибкаВремениВыполнения);
+
+	Сообщить("Нажмите любой символ для завершения ...");
+	Консоль = Новый Консоль;
+	Консоль.Прочитать();
+
+    КодВозврата = МенеджерКомандПриложения.РезультатыКоманд().ОшибкаВремениВыполнения;
 КонецПопытки;
+
+ВременныеФайлы.Удалить();
+ЗавершитьРаботу(КодВозврата);