Версия манифеста

Author: nixel2007

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

@@ -45,6 +45,11 @@
 	Возврат ЭтотОбъект;
 КонецФункции
 
+Функция ВерсияМанифеста(Знач Параметр) Экспорт
+	УстановитьСвойствоПакета("ВерсияМанифеста", Параметр);
+	Возврат ЭтотОбъект;
+КонецФункции
+
 Функция ТочкаВхода(Знач Параметр) Экспорт
 	УстановитьСвойствоПакета("ТочкаВхода", Параметр);
 	Возврат ЭтотОбъект;

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

@@ -36,6 +36,7 @@
 		УстановитьТекущийКаталог(РабочийКаталог);
 		УточнитьФайлМанифеста(ФайлМанифеста);
 		Манифест = ПрочитатьМанифест(ФайлМанифеста);
+		РаботаСОписаниемПакета.ПроверитьВерсиюМанифеста(Манифест);
 		ВызватьСобытиеПередСборкой();
 		СобратьПакетВКаталогеСборки(Манифест, ВыходнойКаталог);
 		УстановитьТекущийКаталог(ТекущийРабКаталог);

src/core/Классы/СериализацияМетаданныхПакета.os

@@ -44,6 +44,7 @@
 	СоответствиеИменСвойств.Вставить("Описание"   , "description");
 	СоответствиеИменСвойств.Вставить("АдресАвтора", "author-email");
 	СоответствиеИменСвойств.Вставить("ВерсияСреды", "engine-version");
+	СоответствиеИменСвойств.Вставить("ВерсияМанифеста", "manifest-version");
 	СоответствиеИменСвойств.Вставить("Задачи", "tasks");
 
 	Возврат СоответствиеИменСвойств;

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

@@ -40,7 +40,8 @@
 		ПутьУстановки = ОбъектКаталогУстановки.ПолноеИмя;
 
 		Лог.Информация("Устанавливаю пакет " +  ИмяПакета);
-		ПроверитьВерсиюСреды(Метаданные);
+		РаботаСОписаниемПакета.ПроверитьВерсиюМанифеста(Метаданные);
+		РаботаСОписаниемПакета.ПроверитьВерсиюСреды(Метаданные);
 		Если мЗависимостиВРаботе[ИмяПакета] = "ВРаботе" Тогда
 			ВызватьИсключение "Циклическая зависимость по пакету " + ИмяПакета;
 		КонецЕсли;
@@ -91,34 +92,6 @@
 	СоздаватьФайлЗапуска = ПСоздаватьФайлЗапуска;
 КонецПроцедуры
 
-Процедура ПроверитьВерсиюСреды(Манифест)
-
-	Свойства = Манифест.Свойства();
-	Если НЕ Свойства.Свойство("ВерсияСреды") Тогда
-		Возврат;
-	КонецЕсли;
-
-	ИмяПакета = Свойства.Имя;
-	ТребуемаяВерсияСреды = Свойства.ВерсияСреды;
-	СистемнаяИнформация = Новый СистемнаяИнформация;
-	ВерсияСреды = СистемнаяИнформация.Версия;
-	Лог.Отладка("ПроверитьВерсиюСреды: Перед вызовом СравнитьВерсии(ЭтаВерсия = <%1>, БольшеЧемВерсия = <%2>)", ТребуемаяВерсияСреды, ВерсияСреды);
-	Если РаботаСВерсиями.СравнитьВерсии(ТребуемаяВерсияСреды, ВерсияСреды) > 0 Тогда
-			ТекстСообщения = СтрШаблон(
-			"Ошибка установки пакета <%1>: Обнаружена устаревшая версия движка OneScript.
-			|Требуемая версия: %2
-			|Текущая версия: %3
-			|Обновите OneScript перед установкой пакета",
-			ИмяПакета,
-			ТребуемаяВерсияСреды,
-			ВерсияСреды
-		);
-
-		ВызватьИсключение ТекстСообщения;
-	КонецЕсли;
-
-КонецПроцедуры
-
 Процедура УстановитьЦелевойКаталог(Знач ЦелевойКаталогУстановки) Экспорт
 	Лог.Отладка("Каталог установки пакета '%1'", ЦелевойКаталогУстановки);
 	ФС.ОбеспечитьКаталог(ЦелевойКаталогУстановки);

src/core/Модули/РаботаСОписаниемПакета.os

@@ -1,3 +1,5 @@
+Перем Лог;
+
 Функция ПрочитатьОписаниеПакета() Экспорт
 
 	Описание = Новый ОписаниеПакета();
@@ -12,4 +14,65 @@
 
 	Возврат Описание;
 
-КонецФункции
+КонецФункции
+
+Процедура ПроверитьВерсиюМанифеста(Манифест) Экспорт
+
+	Свойства = Манифест.Свойства();
+	Если НЕ Свойства.Свойство("ВерсияМанифеста") Тогда
+		Возврат;
+	КонецЕсли;
+
+	ИмяПакета = Свойства.Имя;
+	ТребуемаяВерсияМанифеста = Свойства.ВерсияМанифеста;
+	ТекущаяВерсияМанифеста = КонстантыOpm.ВерсияПродукта;
+	Лог.Отладка(
+		"ПроверитьВерсиюМанифеста: Перед вызовом СравнитьВерсии(ЭтаВерсия = <%1>, БольшеЧемВерсия = <%2>)",
+		ТребуемаяВерсияМанифеста,
+		ТекущаяВерсияМанифеста
+	);
+	Если РаботаСВерсиями.СравнитьВерсии(ТребуемаяВерсияМанифеста, ТекущаяВерсияМанифеста) > 0 Тогда
+			ТекстСообщения = СтрШаблон(
+			"Ошибка установки пакета <%1>: Обнаружена устаревшая версия opm.
+			|Требуемая версия: %2
+			|Текущая версия: %3
+			|Обновите opm перед установкой пакета",
+			ИмяПакета,
+			ТребуемаяВерсияМанифеста,
+			ТекущаяВерсияМанифеста
+		);
+
+		ВызватьИсключение ТекстСообщения;
+	КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ПроверитьВерсиюСреды(Манифест) Экспорт
+
+	Свойства = Манифест.Свойства();
+	Если НЕ Свойства.Свойство("ВерсияСреды") Тогда
+		Возврат;
+	КонецЕсли;
+
+	ИмяПакета = Свойства.Имя;
+	ТребуемаяВерсияСреды = Свойства.ВерсияСреды;
+	СистемнаяИнформация = Новый СистемнаяИнформация;
+	ВерсияСреды = СистемнаяИнформация.Версия;
+	Лог.Отладка("ПроверитьВерсиюСреды: Перед вызовом СравнитьВерсии(ЭтаВерсия = <%1>, БольшеЧемВерсия = <%2>)", ТребуемаяВерсияСреды, ВерсияСреды);
+	Если РаботаСВерсиями.СравнитьВерсии(ТребуемаяВерсияСреды, ВерсияСреды) > 0 Тогда
+			ТекстСообщения = СтрШаблон(
+			"Ошибка установки пакета <%1>: Обнаружена устаревшая версия движка OneScript.
+			|Требуемая версия: %2
+			|Текущая версия: %3
+			|Обновите OneScript перед установкой пакета",
+			ИмяПакета,
+			ТребуемаяВерсияСреды,
+			ВерсияСреды
+		);
+
+		ВызватьИсключение ТекстСообщения;
+	КонецЕсли;
+
+КонецПроцедуры
+
+Лог = Логирование.ПолучитьЛог("oscript.app.opm");

tests/mft-serializer-test.os

@@ -31,10 +31,12 @@
 		.Автор("Я")
 		.Версия("1.0.5")
 		.ВерсияСреды("1.0")
+		.ВерсияМанифеста("1.0")
 		.Описание("Это пакет для тестирования")
 		.АдресАвтора("[email protected]")
 		.ЗависитОт("asserts")
 		.ЗависитОт("cmdline",">=2.1","<3.0")
+		.Задачи("tasks")
 		.ВключитьФайл("src")
 		.ВключитьФайл("tests")
 		.ОпределяетМодуль("Модуль1", "src/m1.os")
@@ -60,7 +62,7 @@
 
 	ЗаписатьМанифест(Запись, СоздатьТестовыйМанифест());
 
-	Результат = СтрЗаменить(Запись.Закрыть(), Символы.ВК+Символы.ПС, Символы.ПС);
+	Результат = СтрЗаменить(Запись.Закрыть(), Символы.ВК + Символы.ПС, Символы.ПС);
 	Результат = СтрЗаменить(Результат, " />", "/>");
 
 	Эталон = 
@@ -70,8 +72,10 @@
 	|    <author>Я</author>
 	|    <version>1.0.5</version>
 	|    <engine-version>1.0</engine-version>
+	|    <manifest-version>1.0</manifest-version>
 	|    <description>Это пакет для тестирования</description>
 	|    <author-email>[email protected]</author-email>
+	|    <tasks>tasks</tasks>
 	|    <depends-on name=""asserts""/>
 	|    <depends-on name=""cmdline"" version=""&gt;=2.1"" version-max=""&lt;3.0""/>
 	|    <executable>src/app1.os</executable>
@@ -108,8 +112,10 @@
 	|    <author>Я</author>
 	|    <version>1.0.5</version>
 	|    <engine-version>1.0</engine-version>
+	|    <manifest-version>1.0</manifest-version>
 	|    <description>Это пакет для тестирования</description>
 	|    <author-email>[email protected]</author-email>
+	|    <tasks>tasks</tasks>
 	|    <depends-on name=""asserts""/>
 	|    <depends-on name=""cmdline"" version=""&gt;=2.1"" version-max=""&lt;3.0""/>
 	|    <executable>src/app1.os</executable>

tests/packagedef-test.os

@@ -45,15 +45,18 @@
 			.Автор("Я")
 			.Версия("1.0.5")
 			.ВерсияСреды("1.0")
+			.ВерсияМанифеста("1.0")
 			.Описание("Это пакет для тестирования")
-			.АдресАвтора("[email protected]");
+			.АдресАвтора("[email protected]")
+			;
 
 	Свойства = Описание.Свойства();
 
 	Ожидаем.Что(Свойства.Имя).Равно("ТестовыйПакет");
 	Ожидаем.Что(Свойства.Автор).Равно("Я");
 	Ожидаем.Что(Свойства.Версия).Равно("1.0.5");
 	Ожидаем.Что(Свойства.ВерсияСреды).Равно("1.0");
+	Ожидаем.Что(Свойства.ВерсияМанифеста).Равно("1.0");
 	Ожидаем.Что(Свойства.Описание).Равно("Это пакет для тестирования");
 	Ожидаем.Что(Свойства.АдресАвтора).Равно("[email protected]");