Выпил события ПередУстановкой

ПередУстановкой вызывается до этапа распаковки файлов. Сценариев работы придумать не получается, а вот получение сценария-констант этот метод разламывает из-за невозможности компиляции самого packagedef

Author: nixel2007

src/Классы/СборщикПакета.os

@@ -258,18 +258,7 @@
 	ЗаписьТекста.ЗаписатьСтроку("///////////////////////////////////////////////////////////////////
 	|
 	|");
-	
-	ЗаписьТекста.ЗаписатьСтроку("// Вызывается пакетным менеджером перед установкой пакета на клиентскую машину.");
-	ЗаписьТекста.ЗаписатьСтроку("// ");
-	ЗаписьТекста.ЗаписатьСтроку("// Параметры:");
-	ЗаписьТекста.ЗаписатьСтроку("//   АрхивПакета - ЧтениеZipФайла. Открытый архив пакета.");
-	ЗаписьТекста.ЗаписатьСтроку("//   КаталогУстановкиПакета - строка. Путь в который пакетный менеджер устанавливает текущий пакет.");
-	ЗаписьТекста.ЗаписатьСтроку("// ");
-	ЗаписьТекста.ЗаписатьСтроку("Процедура ПередУстановкой(Знач АрхивПакета, Знач КаталогУстановкиПакета, СтандартнаяОбработка) Экспорт");
-	ЗаписьТекста.ЗаписатьСтроку("	// TODO: Реализуйте спец. логику установки, если требуется");
-	ЗаписьТекста.ЗаписатьСтроку("КонецПроцедуры");
-	ЗаписьТекста.ЗаписатьСтроку(Символы.ПС);
-	
+		
 	ЗаписьТекста.ЗаписатьСтроку("// Вызывается пакетным менеджером после распаковки пакета на клиентскую машину.");
 	ЗаписьТекста.ЗаписатьСтроку("// ");
 	ЗаписьТекста.ЗаписатьСтроку("// Параметры:");

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

@@ -365,31 +365,14 @@
 
 	ЧтениеСодержимого = Новый ЧтениеZipФайла(ФайлСодержимого);
 	Попытка	
-		ИмяФайлаСпецификацииПакета = КонстантыOpm.ИмяФайлаСпецификацииПакета;
-		ЭлементСпецификацииПакета = ЧтениеСодержимого.Элементы.Найти(ИмяФайлаСпецификацииПакета);
-		Если ЭлементСпецификацииПакета <> Неопределено Тогда
-			Лог.Отладка("Найден файл спецификации пакета");
-			
-			ЧтениеСодержимого.Извлечь(ЭлементСпецификацииПакета, мВременныйКаталогУстановки, РежимВосстановленияПутейФайловZIP.НеВосстанавливать);
-			Лог.Отладка("Компиляция файла спецификации пакета");
-			ОбъектСкрипта = ЗагрузитьСценарий(ОбъединитьПути(мВременныйКаталогУстановки, ИмяФайлаСпецификацииПакета));
-			
-			ВызватьСобытиеПередУстановкой(ОбъектСкрипта, ЧтениеСодержимого, ПутьУстановки.ПолноеИмя, СтандартнаяОбработка);
-			
-			Если СтандартнаяОбработка Тогда
-				
-				Лог.Отладка("Устанавливаю файлы пакета из архива");
-				УдалитьУстаревшиеФайлы(ПутьУстановки);
-				ЧтениеСодержимого.ИзвлечьВсе(ПутьУстановки.ПолноеИмя);
-				
-				ВызватьСобытиеПриУстановке(ОбъектСкрипта, ПутьУстановки.ПолноеИмя, СтандартнаяОбработка);
-				
-			КонецЕсли;
-		Иначе
-			Лог.Отладка("Устанавливаю файлы пакета из архива");
-			УдалитьУстаревшиеФайлы(ПутьУстановки);
-			ЧтениеСодержимого.ИзвлечьВсе(ПутьУстановки.ПолноеИмя);
-		КонецЕсли;
+		
+		Лог.Отладка("Устанавливаю файлы пакета из архива");
+		УдалитьУстаревшиеФайлы(ПутьУстановки);
+		ЧтениеСодержимого.ИзвлечьВсе(ПутьУстановки.ПолноеИмя);
+		
+		ОбработчикСобытий = ПолучитьОбработчикСобытий(ПутьУстановки.ПолноеИмя);
+		ВызватьСобытиеПриУстановке(ОбработчикСобытий, ПутьУстановки.ПолноеИмя, СтандартнаяОбработка);
+	
 	Исключение
 		ЧтениеСодержимого.Закрыть();
 		ВызватьИсключение;
@@ -411,24 +394,34 @@
 	КонецЦикла;
 КонецПроцедуры
 
-Процедура ВызватьСобытиеПередУстановкой(Знач ОбъектСкрипта, Знач АрхивПакета, Знач Каталог, СтандартнаяОбработка)
-	
-	Рефлектор = Новый Рефлектор;
-	Если Рефлектор.МетодСуществует(ОбъектСкрипта, "ПередУстановкой") Тогда
-		Лог.Отладка("Вызываю событие ПередУстановкой");
-		ОбъектСкрипта.ПередУстановкой(АрхивПакета, Каталог, СтандартнаяОбработка);
+Функция ПолучитьОбработчикСобытий(Знач ПутьУстановки)
+	ОбработчикСобытий = Неопределено;
+	ИмяФайлаСпецификацииПакета = КонстантыOpm.ИмяФайлаСпецификацииПакета;
+	ПутьКФайлуСпецификации = ОбъединитьПути(ПутьУстановки, ИмяФайлаСпецификацииПакета);
+	Если ФС.ФайлСуществует(ПутьКФайлуСпецификации) Тогда
+		Лог.Отладка("Найден файл спецификации пакета");
+		Лог.Отладка("Компиляция файла спецификации пакета");
+		
+		ОписаниеПакета = Новый ОписаниеПакета();
+		ВнешнийКонтекст = Новый Структура("Описание", ОписаниеПакета);
+		ОбработчикСобытий = ЗагрузитьСценарий(ПутьКФайлуСпецификации, ВнешнийКонтекст);
 	КонецЕсли;
 
-КонецПроцедуры
+	Возврат ОбработчикСобытий;
+КонецФункции
+
+Процедура ВызватьСобытиеПриУстановке(Знач ОбработчикСобытий, Знач Каталог, СтандартнаяОбработка)
+
+	Если ОбработчикСобытий = Неопределено Тогда
+		Возврат;
+	КонецЕсли;
 
-Процедура ВызватьСобытиеПриУстановке(Знач ОбъектСкрипта, Знач Каталог, СтандартнаяОбработка)
-	
 	Рефлектор = Новый Рефлектор;
-	Если Рефлектор.МетодСуществует(ОбъектСкрипта, "ПриУстановке") Тогда
+	Если Рефлектор.МетодСуществует(ОбработчикСобытий, "ПриУстановке") Тогда
 		Лог.Отладка("Вызываю событие ПриУстановке");
-		ОбъектСкрипта.ПриУстановке(Каталог, СтандартнаяОбработка);
+		ОбработчикСобытий.ПриУстановке(Каталог, СтандартнаяОбработка);
 	КонецЕсли;
-	
+
 КонецПроцедуры
 
 Процедура СгенерироватьСкриптыЗапускаПриложенийПриНеобходимости(Знач КаталогУстановки, Знач ОписаниеПакета)