Универсальная запаковка и получение двоичных файлов

Author: khorevaa

features/step_definitions/ОбщиеФункции.os

@@ -106,7 +106,7 @@
 
 Функция КаталогОбработки()
 
-	Возврат ОбъединитьПути(КаталогПроекта(), "/src/Классы/internal/Классы/epf", "ОбработкаКонвертацииMXLJSON", "ОбработкаКонвертацииMXLJSON.xml");
+	Возврат ОбъединитьПути(КаталогПроекта(), "epf", "ОбработкаКонвертацииMXLJSON", "ОбработкаКонвертацииMXLJSON.xml");
 
 КонецФункции
 

src/Классы/internal/Классы/ЗагрузчикВнешнейEPF.os

@@ -1,10 +1,8 @@
 Функция ПолучитьИндексФайлов() Экспорт
 
 	ИндексФайлов = Новый Соответствие;
+	ИндексФайлов.Вставить("ОбработкаКонвертацииMXLJSON.epf", "ОбработкаКонвертацииMXLJSON_v8storage");
 
-	ИндексФайлов.Вставить("ОбработкаКонвертацииMXLJSON_1.0.0", "ОбработкаКонвертацииMXLJSON_1_0_0");
-
-	
 	Возврат ИндексФайлов;
 
 КонецФункции

src/Классы/internal/Классы/МенеджерЗапакованныхФайлов.os renamed to src/Классы/internal/Классы/МенеджерЗапакованныхФайловV8Storage.os

@@ -1,98 +1,87 @@
-Перем ХранилищеКонфигурации;
-Перем ПутьКФайлуОбработку;
-Перем Лог;
-Перем ЭтоПриложениеEXE;
+Перем ПутьКФайлу;
 
-Функция ПолучитьПутьКОбработке() Экспорт
-	
-	СобратьОбработку();
+#Область ПрограммныйИнтерфейс
 
-	Возврат ПутьКФайлуОбработку;
+Функция ПолучитьПутьКФайлу(Знач ИмяФайла) Экспорт
 
-КонецФункции
+	Если Не ПустаяСтрока(ПутьКФайлу) Тогда
+		Возврат ПутьКФайлу;
+	КонецЕсли;
 
-Процедура СобратьОбработку()
+	МенеджерЗапакованныхФайлов = Новый МенеджерЗапакованныхФайловV8Storage;
+	ИндексФайлов = МенеджерЗапакованныхФайлов.ПолучитьИндексФайлов();
 
-	ФайлОбработки = Новый Файл(ПутьКФайлуОбработку);
+	ИмяКлассаФайла = ИндексФайлов[ИмяФайла];
 
-	Если ФайлОбработки.Существует() Тогда
-		Возврат;
+	Если ИмяКлассаФайла = Неопределено Тогда
+		ВызватьИсключение СтрШаблон("Не удалось найти двоичные данные для файла <%1>", ИмяФайла);
 	КонецЕсли;
 
-	Если ЭтоСборкаEXE() Тогда
-		ЗагрузчикВнешнейEPF = Новый ЗагрузчикВнешнейEPF;
-		ПутьКФайлуОбработку = ЗагрузчикВнешнейEPF.ПолучитьПутьКФайлу();
-	Иначе
+	КлассФайла = Новый (ИмяКлассаФайла);
 
-		ПутьКФайлуОбработку = ПутьКСобраннойEpf();
+	ПутьКФайлу = "";
 
-		Если ПустаяСтрока(ПутьКФайлуОбработку) Тогда
-			Лог.Отладка("Не найдена готовая обработка. Делаю попытку собрать временную обработку исходников");
-		
-			ПутьКФайлуОбработку = СобратьФайлОбработки();
+	НайтиФайлИлиРаспаковать(КлассФайла, ПутьКФайлу);
 
-		КонецЕсли;
+	Возврат ПутьКФайлу;
 
-	КонецЕсли;
-	
-КонецПроцедуры
+КонецФункции
 
-Функция ПутьКСобраннойEpf()
-	
-	КаталогБиблиотеки = ОбъединитьПути(ОбъединитьПути(ТекущийСценарий().Каталог, "..", "..", ".."), "..");
+#КонецОбласти
 
-	ФайлКаталогаБиблиотеки = Новый Файл(КаталогБиблиотеки);
+#Область Упакованные_файлы
 
-	ПутьККаталогуБиблиотеки = ФайлКаталогаБиблиотеки.ПолноеИмя;
+Процедура РаспаковатьДанные(Знач ПутьКФайлу, КлассФайла)
 
-	ПутьКСобраннойEpf = ОбъединитьПути(ПутьККаталогуБиблиотеки, "bin", "ОбработкаКонвертацииMXLJSON.epf");
+	ДвоичныеДанные = Base64Значение(КлассФайла.ДвоичныеДанные());
 
-	ФайлСобраннойEpf = Новый Файл(ПутьКСобраннойEpf);
+	ОбеспечитьКаталог(ПутьКФайлу);
 
-	Если ФайлСобраннойEpf.Существует() Тогда
-		Лог.Отладка("Найдена готовая обработка по пути: %1", ПутьКСобраннойEpf );
-			
-		Возврат ФайлСобраннойEpf.ПолноеИмя;
-	КонецЕсли;
+	ДвоичныеДанные.Записать(ПутьКФайлу);
+
+КонецПроцедуры
+
+Функция ВычислитьХешФайла(Знач ПутьКФайлу)
 
-	Возврат "";
+	ХешФайла = Новый ХешированиеДанных(ХешФункция.MD5);
+	ХешФайла.ДобавитьФайл(ПутьКФайлу);
+
+ 	Возврат ХешФайла.ХешСуммаСтрокой;
 
 КонецФункции
 
-Функция СобратьФайлОбработки()
-	
-	ПутьКНовомуФайлу = ПолучитьПутьКФайлу("ОбработкаКонвертацииXMLJSON.epf", "1.0.0");
+Процедура НайтиФайлИлиРаспаковать(КлассФайла, ПутьКФайлу)
 
-	КаталоИсходниковОбработки = ОбъединитьПути(ТекущийСценарий().Каталог, "epf");
-	ФайлXmlОбработки = ОбъединитьПути(КаталоИсходниковОбработки, "ОбработкаКонвертацииMXLJSON.xml");
+	ИмяФайла = КлассФайла.ИмяФайла();
 
-	ХранилищеКонфигурации.СобратьОбработкуКонвертации(ФайлXmlОбработки, ПутьКНовомуФайлу);
+	ПутьКФайлу = ПолучитьПутьКВременномуФайлу(ИмяФайла);
 
-	Возврат ПутьКНовомуФайлу;
+	ВременныйФайл = Новый Файл(ПутьКФайлу);
 
-КонецФункции
-	
-Функция ПолучитьПутьКФайлу(ИмяФайла, ВерсияФайла)
-	ПутьКФайлу = ОбъединитьПути(КаталогВременныхФайлов(), ".v8storage", СтрЗаменить(ВерсияФайла, ".", "_"), ИмяФайла);
+	Если Не ВременныйФайл.Существует()
+		Тогда// ИЛИ Не ВычислитьХешФайла(ПутьКФайлу) = ДанныеDll.Хеш() Тогда
+		РаспаковатьДанные(ПутьКФайлу, КлассФайла);
+	КонецЕсли;
+
+КонецПроцедуры
+
+Функция ПолучитьПутьКВременномуФайлу(Знач ИмяФайла)
+	ПутьКФайлу = ОбъединитьПути(КаталогВременныхФайлов(), ".gitsync-plugins", ИмяФайла);
 	Возврат ПутьКФайлу;
 КонецФункции
 
-Функция ЭтоСборкаEXE() Экспорт
-	
-	Если ЭтоПриложениеEXE = Неопределено Тогда
-		ЭтоПриложениеEXE = ВРег(Прав(ТекущийСценарий().Источник, 3)) = "EXE";
-	КонецЕсли;
+Процедура ОбеспечитьКаталог(ПутьККаталогу)
 
-	Возврат ЭтоПриложениеEXE;
+	ВременныйКаталог = Новый Файл(ПутьККаталогу);
 
-КонецФункции
+	Если ВременныйКаталог.Существует() Тогда
+		Возврат;
+	КонецЕсли;
 
-Процедура ПриСозданииОбъекта(Знач ЗначениеХранилищеКонфигурации)
-	
-	ХранилищеКонфигурации = ЗначениеХранилищеКонфигурации;
+	СоздатьКаталог(ВременныйКаталог.Путь);
 
-	ПутьКФайлуОбработку = "";
+КонецПроцедуры
 
-	Лог = Логирование.ПолучитьЛог("oscript.lib.v8storage");
+#КонецОбласти
 
-КонецПроцедуры
+ПутьКФайлу = "";

src/Классы/internal/Классы/ОбработкаКонвертацииMXLJSON_1_0_0.os renamed to src/Классы/internal/Классы/ОбработкаКонвертацииMXLJSON_v8storage.os

@@ -540,7 +540,7 @@
 
     КлючЗапуска = СтрШаблон("""%1;%2""", ПутьКФайлуОтчета, ПутьКФайлуОтчетаJSON);
 
-    ПутьКФайлуОбработки = ОбработкаКонвертации.ПолучитьПутьКОбработке();
+    ПутьКФайлуОбработки = ОбработкаКонвертации.ПолучитьПутьКФайлу("ОбработкаКонвертацииMXLJSON.epf");
 
     ПараметрыЗапускаОбработки = СтрШаблон("/Execute ""%1""", ПутьКФайлуОбработки);
     УправлениеКонфигураторомХранилища.ЗапуститьВРежимеПредприятия(КлючЗапуска, Ложь, ПараметрыЗапускаОбработки);
@@ -710,7 +710,7 @@
     ПараметрыАвторизации = Новый Структура();
     УстановитьПараметрыАвторизации("");
 
-    ОбработкаКонвертации = Новый ОбработкаКонвертацииXMLJSON(ЭтотОбъект);
+    ОбработкаКонвертации = Новый ОбработкаКонвертацииXMLJSON;
 
     СистемнаяИнформация = Новый СистемнаяИнформация;
     ЭтоWindows = Найти(НРег(СистемнаяИнформация.ВерсияОС), "windows") > 0;