Если при установке пакета и компиляции файла packagedef возникает ошибка поиска файлов, тогда

Исправил неверный поиск файлов внутри архива #813
Исправил внесенную ошибку очистки каталога пакета
Устранил давно возникшую путаницу в одинаковых именах объектов разных типов, из-за чего и была пропущена ошибка
добавил диагностических отладочных сообщений
рефакторинг имен параметров

Author: artbear

src/core/Классы/УстановкаПакета.os

@@ -13,60 +13,65 @@
 Перем Метаданные;
 
 Процедура УстановитьПакетИзАрхива(Знач ФайлАрхива) Экспорт
-	
+
 	Лог.Отладка("Устанавливаю пакет из архива: " + ФайлАрхива);
 	Если мЗависимостиВРаботе = Неопределено Тогда
 		мЗависимостиВРаботе = Новый Соответствие;
 	КонецЕсли;
-	
+
 	мВременныйКаталогУстановки = ВременныеФайлы.СоздатьКаталог();
 	Лог.Отладка("Временный каталог установки: " + мВременныйКаталогУстановки);
-	
+
+	ПутьУстановки = "";
 	Попытка
-		
+
 		Лог.Отладка("Открываем архив пакета");
 		ЧтениеПакета = Новый ЧтениеZipФайла;
 		ЧтениеПакета.Открыть(ФайлАрхива);
-		
+
 		ФайлСодержимого = ИзвлечьОбязательныйФайл(ЧтениеПакета, КонстантыOpm.ИмяФайлаСодержимогоПакета);
 		ФайлМетаданных  = ИзвлечьОбязательныйФайл(ЧтениеПакета, КонстантыOpm.ИмяФайлаМетаданныхПакета);
-		
+
 		Метаданные = ПрочитатьМетаданныеПакета(ФайлМетаданных);
 		ИмяПакета = Метаданные.Свойства().Имя;
-		
-		ПутьУстановки = НайтиСоздатьКаталогУстановки(ИмяПакета);
-		
+
+		ОбъектКаталогУстановки = НайтиСоздатьКаталогУстановки(ИмяПакета);
+		ПутьУстановки = ОбъектКаталогУстановки.ПолноеИмя;
+
 		Лог.Информация("Устанавливаю пакет " +  ИмяПакета);
 		ПроверитьВерсиюСреды(Метаданные);
 		Если мЗависимостиВРаботе[ИмяПакета] = "ВРаботе" Тогда
 			ВызватьИсключение "Циклическая зависимость по пакету " + ИмяПакета;
 		КонецЕсли;
-		
+
 		мЗависимостиВРаботе.Вставить(ИмяПакета, "ВРаботе");
-				
+
 		СтандартнаяОбработка = Истина;
-		УстановитьФайлыПакета(ПутьУстановки, ФайлСодержимого, СтандартнаяОбработка);
+		УстановитьФайлыПакета(ОбъектКаталогУстановки, ФайлСодержимого, СтандартнаяОбработка);
 		Если СтандартнаяОбработка Тогда
-			СгенерироватьСкриптыЗапускаПриложенийПриНеобходимости(ПутьУстановки.ПолноеИмя, Метаданные);
-			РаботаСПакетами.СоздатьКонфигурационныеФайлыОСкрипт(ПутьУстановки.ПолноеИмя, Метаданные, мРежимУстановкиПакетов);
+			СгенерироватьСкриптыЗапускаПриложенийПриНеобходимости(ПутьУстановки, Метаданные);
+			РаботаСПакетами.СоздатьКонфигурационныеФайлыОСкрипт(ПутьУстановки, Метаданные, мРежимУстановкиПакетов);
 		КонецЕсли;
-		СохранитьФайлМетаданныхПакета(ПутьУстановки.ПолноеИмя, ФайлМетаданных);
-		
+		СохранитьФайлМетаданныхПакета(ПутьУстановки, ФайлМетаданных);
+
 		ЧтениеПакета.Закрыть();
-		
+
 		ВременныеФайлы.УдалитьФайл(мВременныйКаталогУстановки);
-		
+
 		мЗависимостиВРаботе.Вставить(ИмяПакета, "Установлен");
-		
+
 	Исключение
-		УдалитьКаталогУстановкиПриОшибке(ПутьУстановки);
+		Лог.Предупреждение("Обрабатываю возникшую ошибку...");
+		Если ЗначениеЗаполнено(ПутьУстановки) Тогда
+			УдалитьКаталогУстановкиПриОшибке(ПутьУстановки);
+		КонецЕсли;
 		ЧтениеПакета.Закрыть();
 		ВременныеФайлы.УдалитьФайл(мВременныйКаталогУстановки);
 		ВызватьИсключение;
 	КонецПопытки;
-	
+
 	Лог.Информация("Установка завершена");
-	
+
 КонецПроцедуры
 
 Процедура УстановитьКешПакетов(КэшПакетовВУстановке) Экспорт
@@ -82,12 +87,12 @@
 КонецПроцедуры
 
 Процедура ПроверитьВерсиюСреды(Манифест)
-	
+
 	Свойства = Манифест.Свойства();
 	Если НЕ Свойства.Свойство("ВерсияСреды") Тогда
 		Возврат;
 	КонецЕсли;
-	
+
 	ИмяПакета = Свойства.Имя;
 	ТребуемаяВерсияСреды = Свойства.ВерсияСреды;
 	СистемнаяИнформация = Новый СистемнаяИнформация;
@@ -98,12 +103,12 @@
 			"Ошибка установки пакета <%1>: Обнаружена устаревшая версия движка OneScript.
 			|Требуемая версия: %2
 			|Текущая версия: %3
-			|Обновите OneScript перед установкой пакета", 
+			|Обновите OneScript перед установкой пакета",
 			ИмяПакета,
 			ТребуемаяВерсияСреды,
 			ВерсияСреды
 		);
-		
+
 		ВызватьИсключение ТекстСообщения;
 	КонецЕсли;
 
@@ -116,54 +121,72 @@
 КонецПроцедуры
 
 Функция НайтиСоздатьКаталогУстановки(Знач ИдентификаторПакета)
-	
-	ПутьУстановки = Новый Файл(ОбъединитьПути(мЦелевойКаталог, ИдентификаторПакета));
-	Лог.Отладка("Путь установки пакета: " + ПутьУстановки.ПолноеИмя);
-	
-	Если Не ПутьУстановки.Существует() Тогда
-		СоздатьКаталог(ПутьУстановки.ПолноеИмя);
-	ИначеЕсли ПутьУстановки.ЭтоФайл() Тогда
-		ВызватьИсключение "Не удалось создать каталог " + ПутьУстановки.ПолноеИмя;
+
+	ОбъектКаталогУстановки = Новый Файл(ОбъединитьПути(мЦелевойКаталог, ИдентификаторПакета));
+	ПутьУстановки = ОбъектКаталогУстановки.ПолноеИмя;
+	Лог.Отладка("Путь установки пакета: " + ПутьУстановки);
+
+	Если Не ОбъектКаталогУстановки.Существует() Тогда
+		СоздатьКаталог(ПутьУстановки);
+	ИначеЕсли ОбъектКаталогУстановки.ЭтоФайл() Тогда
+		ВызватьИсключение "Не удалось создать каталог " + ПутьУстановки;
 	КонецЕсли;
-	
-	Возврат ПутьУстановки;
-	
+
+	Возврат ОбъектКаталогУстановки;
+
 КонецФункции
 
-Процедура УстановитьФайлыПакета(Знач ПутьУстановки, Знач ФайлСодержимого, СтандартнаяОбработка)
-	
+Процедура УстановитьФайлыПакета(Знач ОбъектКаталогУстановки, Знач ФайлСодержимого, СтандартнаяОбработка)
+
 	ЧтениеСодержимого = Новый ЧтениеZipФайла(ФайлСодержимого);
-	КаталогУстановки = ПутьУстановки.ПолноеИмя;
+	КаталогУстановки = ОбъектКаталогУстановки.ПолноеИмя;
+
+	Попытка
 
-	Попытка	
-		
 		Лог.Отладка("Устанавливаю файлы пакета из архива");
-		УдалитьУстаревшиеФайлы(ПутьУстановки);
+		УдалитьУстаревшиеФайлы(ОбъектКаталогУстановки);
 
 		ИзвлечьФайл(ЧтениеСодержимого, КонстантыOpm.ИмяФайлаСпецификацииПакета, КаталогУстановки);
 
-		ОбработчикСобытий = ПолучитьОбработчикСобытий(КаталогУстановки);
+		Попытка
+			ОбработчикСобытий = ПолучитьОбработчикСобытий(КаталогУстановки);
+		Исключение
+			ОписаниеОшибки = ОписаниеОшибки();
+			Если Найти(ОписаниеОшибки, "System.IO.FileNotFoundException") <> 0 Тогда
+				ОбработчикСобытий = Неопределено;
+			Иначе
+				ВызватьИсключение;
+			КонецЕсли;
+		КонецПопытки;
+		ПолученОбработчикСобытий = ОбработчикСобытий <> Неопределено;
 
-		ВызватьСобытиеПередУстановкой(ОбработчикСобытий, КаталогУстановки, ЧтениеСодержимого);
+		Если ПолученОбработчикСобытий Тогда
+			ВызватьСобытиеПередУстановкой(ОбработчикСобытий, КаталогУстановки, ЧтениеСодержимого);
+		КонецЕсли;
 
 		ЧтениеСодержимого.ИзвлечьВсе(КаталогУстановки);
-		
+
+		Если Не ПолученОбработчикСобытий Тогда
+			ОбработчикСобытий = ПолучитьОбработчикСобытий(КаталогУстановки);
+		КонецЕсли;
+
 		ВызватьСобытиеПриУстановке(ОбработчикСобытий, КаталогУстановки, СтандартнаяОбработка);
-	
+
 	Исключение
 		ЧтениеСодержимого.Закрыть();
 		ВызватьИсключение;
 	КонецПопытки;
-	
+
 	ЧтениеСодержимого.Закрыть();
-	
+
 КонецПроцедуры
 
-Процедура УдалитьУстаревшиеФайлы(Знач ПутьУстановки)
+Процедура УдалитьУстаревшиеФайлы(Знач ОбъектКаталогУстановки)
 	Лог.Отладка("Удаляю устаревшие файлы");
-	УдалитьФайлыВКаталоге(ПутьУстановки.ПолноеИмя, "*.os", Истина);
-	УдалитьФайлыВКаталоге(ПутьУстановки.ПолноеИмя, "*.dll", Истина);
-	УдалитьФайлыВКаталоге(ПутьУстановки.ПолноеИмя, "packagedef", Ложь);
+	ПутьУстановки = ОбъектКаталогУстановки.ПолноеИмя;
+	УдалитьФайлыВКаталоге(ПутьУстановки, "*.os", Истина);
+	УдалитьФайлыВКаталоге(ПутьУстановки, "*.dll", Истина);
+	УдалитьФайлыВКаталоге(ПутьУстановки, "packagedef", Ложь);
 КонецПроцедуры
 
 Процедура УдалитьФайлыВКаталоге(Знач ПутьКаталога, Знач МаскаФайлов, Знач ИскатьВПодкаталогах = Истина)
@@ -180,7 +203,7 @@
 	Если ФС.ФайлСуществует(ПутьКФайлуСпецификации) Тогда
 		Лог.Отладка("Найден файл спецификации пакета");
 		Лог.Отладка("Компиляция файла спецификации пакета");
-		
+
 		ОписаниеПакета = Новый ОписаниеПакета();
 		ВнешнийКонтекст = Новый Структура("Описание", ОписаниеПакета);
 		ОбработчикСобытий = ЗагрузитьСценарий(ПутьКФайлуСпецификации, ВнешнийКонтекст);
@@ -218,21 +241,21 @@
 КонецПроцедуры
 
 Процедура СгенерироватьСкриптыЗапускаПриложенийПриНеобходимости(Знач КаталогУстановки, Знач ОписаниеПакета)
-	
+
 	ИмяПакета = ОписаниеПакета.Свойства().Имя;
-	
+
 	Для Каждого ФайлПриложения Из ОписаниеПакета.ИсполняемыеФайлы() Цикл
-		
+
 		ИмяСкриптаЗапуска = ?(ПустаяСтрока(ФайлПриложения.ИмяПриложения), ИмяПакета, ФайлПриложения.ИмяПриложения);
 		Лог.Информация("Регистрация приложения: " + ИмяСкриптаЗапуска);
-		
+
 		ОбъектФайл = Новый Файл(ОбъединитьПути(КаталогУстановки, ФайлПриложения.Путь));
-		
+
 		Если Не ОбъектФайл.Существует() Тогда
 			Лог.Ошибка("Файл приложения " + ОбъектФайл.ПолноеИмя + " не существует");
 			ВызватьИсключение "Некорректные данные в метаданных пакета";
 		КонецЕсли;
-		
+
 		Если мРежимУстановкиПакетов = РежимУстановкиПакетов.Локально Тогда
 			КаталогУстановкиСкриптовЗапускаПриложений = ОбъединитьПути(КонстантыOpm.ЛокальныйКаталогУстановкиПакетов, "bin");
 			ФС.ОбеспечитьКаталог(КаталогУстановкиСкриптовЗапускаПриложений);
@@ -245,11 +268,11 @@
 		Иначе
 			ВызватьИсключение "Неизвестный режим установки пакетов <" + мРежимУстановкиПакетов + ">";
 		КонецЕсли;
-		
+
 		СоздатьСкриптЗапуска(ИмяСкриптаЗапуска, ОбъектФайл.ПолноеИмя, КаталогУстановкиСкриптовЗапускаПриложений);
-	
+
 	КонецЦикла;
-	
+
 КонецПроцедуры
 
 Процедура СоздатьСкриптЗапуска(Знач ИмяСкриптаЗапуска, Знач ПутьФайлаПриложения, Знач Каталог) Экспорт
@@ -281,7 +304,7 @@
 КонецПроцедуры
 
 Функция ПрочитатьМетаданныеПакета(Знач ФайлМетаданных)
-	
+
 	Перем Метаданные;
 	Лог.Отладка("Чтение метаданных пакета");
 	Попытка
@@ -290,24 +313,24 @@
 		Лог.Отладка("XML загружен");
 		Сериализатор = Новый СериализацияМетаданныхПакета;
 		Метаданные = Сериализатор.ПрочитатьXML(Чтение);
-		
+
 		Чтение.Закрыть();
 	Исключение
 		Чтение.Закрыть();
 		ВызватьИсключение;
 	КонецПопытки;
 	Лог.Отладка("Метаданные прочитаны");
-	
+
 	Возврат Метаданные;
-	
+
 КонецФункции
 
-Процедура СохранитьФайлМетаданныхПакета(Знач КаталогУстановки, Знач ПутьКФайлуМетаданных)
-	
-	ПутьСохранения = ОбъединитьПути(КаталогУстановки, КонстантыOpm.ИмяФайлаМетаданныхПакета);
+Процедура СохранитьФайлМетаданныхПакета(Знач ПутьУстановки, Знач ПутьКФайлуМетаданных)
+
+	ПутьСохранения = ОбъединитьПути(ПутьУстановки, КонстантыOpm.ИмяФайлаМетаданныхПакета);
 	ДанныеФайла = Новый ДвоичныеДанные(ПутьКФайлуМетаданных);
 	ДанныеФайла.Записать(ПутьСохранения);
-	
+
 КонецПроцедуры
 
 Процедура УдалитьКаталогУстановкиПриОшибке(Знач Каталог)
@@ -324,28 +347,48 @@
 //
 
 Функция ИзвлечьОбязательныйФайл(Знач Чтение, Знач ИмяФайла)
-	
+
 	ПутьФайла = ИзвлечьФайл(Чтение, ИмяФайла, мВременныйКаталогУстановки);
 	Если ПутьФайла = "" Тогда
 		ВызватьИсключение "Неверная структура пакета. Не найден файл " + ИмяФайла;
 	КонецЕсли;
-	
+
 	Возврат ПутьФайла;
-	
+
 КонецФункции
 
 Функция ИзвлечьФайл(Знач Чтение, Знач ИмяФайла, Знач КаталогКудаИзвлечь)
 	Лог.Отладка("Извлечение: %1", ИмяФайла);
-	Элемент = Чтение.Элементы.Найти(ИмяФайла);
+	Лог.Отладка("Извлечение: КаталогКудаИзвлечь %1", КаталогКудаИзвлечь);
+
+	Элемент = НайтиЭлементАрхива(Чтение, ИмяФайла);
 	Если Элемент = Неопределено Тогда
 		Лог.Отладка("Не удалось извлечь файл %1", ИмяФайла);
 		Возврат "";
 	КонецЕсли;
-	
+
 	Чтение.Извлечь(Элемент, КаталогКудаИзвлечь);
-	
+
 	Возврат ОбъединитьПути(мВременныйКаталогУстановки, ИмяФайла);
-	
+
+КонецФункции
+
+Функция НайтиЭлементАрхива(Знач Чтение, Знач ПолноеИмя)
+	Лог.Отладка("НайтиЭлементАрхива: ищем в архиве файл %1", ПолноеИмя);
+	Файл = Новый Файл(ПолноеИмя);
+	Если Лев(Файл.Путь, 2) = ".\" Или Лев(Файл.Путь, 2) = "./" Тогда
+		ПолноеИмя = Файл.Имя;
+	КонецЕсли;
+	Для Каждого Элемент Из Чтение.Элементы Цикл
+
+		Если НРег(Элемент.ПолноеИмя) = НРег(ПолноеИмя) Тогда
+			Лог.Отладка("НайтиЭлементАрхива: нашли Элемент.ПолноеИмя %1", Элемент.ПолноеИмя);
+
+			Возврат Элемент;
+		КонецЕсли;
+	КонецЦикла;
+	Лог.Отладка("НайтиЭлементАрхива: не нашли элемент");
+	Возврат Неопределено;
 КонецФункции
 
 Лог = Логирование.ПолучитьЛог("oscript.app.opm");