Еще небольшая доработка для работы с Windows\Linux при работе v8unpack #46

Author: artbear

v8files-extractor.os

@@ -8,6 +8,7 @@
 Перем Лог;
 Перем КодВозврата;
 Перем мВозможныеКоманды;
+Перем ЭтоWindows;
 
 Функция ВозможныеКоманды()
 
@@ -110,6 +111,9 @@
 КонецПроцедуры
 
 Процедура Инициализация()
+	СистемнаяИнформация = Новый СистемнаяИнформация;
+	ЭтоWindows = Найти(ВРег(СистемнаяИнформация.ВерсияОС), "WINDOWS") > 0;
+
 	Лог = Логирование.ПолучитьЛог("oscript.app.v8files-extractor");
 	//Лог.УстановитьУровень(УровниЛога.Отладка);
 КонецПроцедуры
@@ -627,7 +631,10 @@
 	Лог.Информация("Собираю файл из исходников <"+ПапкаИсходников+"> в файл "+ИмяФайлаОбъекта);
 
 	ПутьЗапаковщика = ОбъединитьПути(КаталогПроекта(), "tools", "v8unpack");
-	Ожидаем.Что(ПутьЗапаковщика, "Не найден путь к v8unpack").Не_().ИмеетДлину(0);
+	Если ЭтоWindows Тогда
+		ПутьЗапаковщика = ПутьЗапаковщика+".exe";
+	КонецЕсли;
+	Ожидаем.Что(Новый Файл(ПутьЗапаковщика).Существует(), "Не найден путь к v8unpack").ЭтоИстина();
 
 	ВременныйФайл = ВременныеФайлы.СоздатьФайл();
 
@@ -683,12 +690,11 @@
 	НайденныеФайлы = Новый Массив;
 	Расширение = "";
 
-	СистемнаяИнформация = Новый СистемнаяИнформация;
-	ЭтоWindows = Найти(ВРег(СистемнаяИнформация.ВерсияОС), "WINDOWS") > 0;
 	Если ЭтоWindows Тогда
 		Расширение = ".exe";
 	КонецЕсли;
 
+	СистемнаяИнформация = Новый СистемнаяИнформация;
 	ПапкаПоиска = СистемнаяИнформация.ПолучитьПеременнуюСреды("PATH");
 	РазделительПапок = ";"; 
 	СписокПапок = СтрРазделить(ПапкаПоиска, РазделительПапок);