Merge pull request #135 from oscript-library/feature/before-install-134

Событие "ПередУстановкой" + указание удаления файлов перед установкой

Author: artbear

.gitignore

@@ -6,3 +6,5 @@ bdd-*.xml
 src/oscript.cfg
 
 src/cmd/oscript\.cfg
+exec.log
+test-reports/tests.xml

src/core/Классы/ОписаниеПакета.os

@@ -206,6 +206,7 @@
 	ТипыМодулей = Новый Структура("Класс,Модуль", "Класс", "Модуль");
 
 	мВключаемыеФайлы  = Новый Массив;
+
 	мИсполняемыеФайлы = Новый ТаблицаЗначений;
 	мИсполняемыеФайлы.Колонки.Добавить("Путь");
 	мИсполняемыеФайлы.Колонки.Добавить("ИмяПриложения");

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

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

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

@@ -137,9 +137,13 @@
 
 		Лог.Отладка("Устанавливаю файлы пакета из архива");
 		УдалитьУстаревшиеФайлы(ПутьУстановки);
+
+		ОбработчикСобытий = ПолучитьОбработчикСобытий(ПутьУстановки.ПолноеИмя);
+
+		ВызватьСобытиеПередУстановкой(ОбработчикСобытий, ПутьУстановки.ПолноеИмя, ЧтениеСодержимого);
+
 		ЧтениеСодержимого.ИзвлечьВсе(ПутьУстановки.ПолноеИмя);
 
-		ОбработчикСобытий = ПолучитьОбработчикСобытий(ПутьУстановки.ПолноеИмя);
 		ВызватьСобытиеПриУстановке(ОбработчикСобытий, ПутьУстановки.ПолноеИмя, СтандартнаяОбработка);
 
 	Исключение
@@ -180,6 +184,20 @@
 	Возврат ОбработчикСобытий;
 КонецФункции
 
+Процедура ВызватьСобытиеПередУстановкой(Знач ОбработчикСобытий, Знач Каталог, Знач ЧтениеZipФайла)
+
+	Если ОбработчикСобытий = Неопределено Тогда
+		Возврат;
+	КонецЕсли;
+
+	Рефлектор = Новый Рефлектор;
+	Если Рефлектор.МетодСуществует(ОбработчикСобытий, "ПередУстановкой") Тогда
+		Лог.Отладка("Вызываю событие ПередУстановкой");
+		ОбработчикСобытий.ПередУстановкой(Каталог, ЧтениеZipФайла);
+	КонецЕсли;
+
+КонецПроцедуры
+
 Процедура ВызватьСобытиеПриУстановке(Знач ОбработчикСобытий, Знач Каталог, СтандартнаяОбработка)
 
 	Если ОбработчикСобытий = Неопределено Тогда