Merge pull request #70 from dmpas/feature/v8unpack-lib

переведено на компоненту v8unpack

Author: EvilBeaver

bin/v8unpack.exe

@@ -11,6 +11,7 @@
 		.ЗависитОт("v8runner", "0.7.0")
 		.ЗависитОт("strings")
 		.ЗависитОт("1commands", "1.1.1")
+		.ЗависитОт("v8unpack")
 		.ВключитьФайл("src")
 		.ВключитьФайл("tests")
 		.ВключитьФайл("features")

packagedef

@@ -13,6 +13,7 @@
 #Использовать v8runner
 #Использовать strings
 #Использовать 1commands
+#Использовать v8unpack
 
 Перем Лог;
 Перем мФайлПрограммыРаспаковки;
@@ -399,18 +400,9 @@
 КонецПроцедуры
 
 Процедура РаспаковатьКонтейнерМетаданных(Знач ФайлРаспаковки, Знач КаталогРаспаковки, Знач Переименования, Знач КорневойКаталог)
-	ФайлДляРаспаковки = Новый файл(ФайлРаспаковки);
-	Если КаталогРаспаковки = "" тогда
-		КаталогРаспаковки = ВременныеФайлы.СоздатьКаталог();
-	КонецЕсли;
-
-	СтрокаЗапуска = """"+ФайлПрограммыРаспаковки()+""" -parse """+ФайлДляРаспаковки.ПолноеИмя+""" """+КаталогРаспаковки+"""";
-	Если НЕ ЭтоWindows Тогда
-		СтрокаЗапуска = "sh -c '"+СтрокаЗапуска+"'";
-	КонецЕсли;
-	Лог.Отладка(СтрокаЗапуска);
 
-	ЗапуститьПриложение(СтрокаЗапуска,,Истина);
+	Распаковщик = Новый ЧтениеФайла8(ФайлРаспаковки);
+	Распаковщик.ИзвлечьВсе(КаталогРаспаковки, Истина);
 
 	Если ПереименовыватьФайлМодуляОбычнойФормы Тогда
 
@@ -1183,32 +1175,6 @@
 ////////////////////////////////////////////////////////////////////////////////////////////////
 // Общие функции
 
-
-Функция ФайлПрограммыРаспаковки()
-
-	Если мФайлПрограммыРаспаковки = Неопределено Тогда
-		Если ЭтоWindows Тогда
-			КаталогДвоичныхФайлов = ОбъединитьПути(ТекущийСценарий().Каталог, "..\..\..\bin");
-			ФайлПрограммы = Новый Файл(ОбъединитьПути(КаталогДвоичныхФайлов, "v8unpack.exe"));
-			Если Не ФайлПрограммы.Существует() Тогда
-				ВызватьИсключение СтроковыеФункции.ПодставитьПараметрыВСтроку("Не обнаружен файл программы распаковки: <%1>", ФайлПрограммы.ПолноеИмя);
-			КонецЕсли;
-
-			ФайлZLib = Новый Файл(ОбъединитьПути(КаталогДвоичныхФайлов, "zlib1.dll"));
-			Если Не ФайлZLib.Существует() Тогда
-				ВызватьИсключение СтроковыеФункции.ПодставитьПараметрыВСтроку("Не обнаружена библиотека zlib1: <%1>", ФайлZLib.ПолноеИмя);
-			КонецЕсли;
-			мФайлПрограммыРаспаковки = ФайлПрограммы.ПолноеИмя;
-		Иначе
-			мФайлПрограммыРаспаковки = "v8unpack"; //установка происходит из репозитариев, поэтому уже в переменной path
-		КонецЕсли;
-
-	КонецЕсли;
-
-	Возврат мФайлПрограммыРаспаковки;
-
-КонецФункции
-
 Функция ИмяФайлаАвторов() Экспорт
 	Возврат "AUTHORS";
 КонецФункции