Merge pull request #182 from oscript-library/feature/1.0.0

Author: nixel2007

packagedef

@@ -93,6 +93,7 @@
 		.ЗависитОт("gitrunner", "1.6.0")
 		.ВключитьФайл("packagedef")
 		.ВключитьФайл("src")
+		.ВключитьФайл("tasks")
 		.ВключитьФайл("oscript_modules")
 		.ОпределяетКласс("КэшУстановленныхПакетов", "src/core/Классы/КэшУстановленныхПакетов.os")
 		.ОпределяетКласс("МенеджерПолученияПакетов", "src/core/Классы/МенеджерПолученияПакетов.os")

src/cmd/Классы/КомандаOpm_Install.os

@@ -6,6 +6,7 @@
 	КомандаПриложения.Опция("a all", Ложь, "Установить все пакеты, зарегистрированные в хабе");
 	КомандаПриложения.Опция("f file", "", "Указать файл из которого нужно установить пакет. Поддерживает указание маски файла для пакетной установки");
 	КомандаПриложения.Опция("l local", Ложь, "Установить пакеты в локальный каталог oscript_modules");
+	КомандаПриложения.Опция("dev", Ложь, "Признак установки пакетов для разработки");
 	КомандаПриложения.Опция("s skip-install-deps", Ложь, "признак пропуска установки зависимых пакетов");
 	КомандаПриложения.Опция("skip-create-app", Ложь, "признак отключения создания файла запуска");
 	КомандаПриложения.Опция("d dest", "", "Переопределить стандартный каталог в который устанавливаются пакеты (вместо oscript_modules)");
@@ -31,6 +32,7 @@
 Процедура ВыполнитьКоманду(Знач КомандаПриложения) Экспорт
 
 	УстановкаВЛокальныйКаталог = КомандаПриложения.ЗначениеОпции("local");
+	УстановкаПакетовРазработчика = КомандаПриложения.ЗначениеОпции("dev");
 	УстановкаВсехПакетов = КомандаПриложения.ЗначениеОпции("all");
 	КаталогУстановки = КомандаПриложения.ЗначениеОпции("dest");
 	ФайлПакетаУстановки = КомандаПриложения.ЗначениеОпции("file");
@@ -58,6 +60,7 @@
 	КонецЕсли;
 
     Лог.Отладка("УстановкаВЛокальныйКаталог: %1", УстановкаВЛокальныйКаталог);
+    Лог.Отладка("УстановкаПакетовРазработчика: %1", УстановкаПакетовРазработчика);
     Лог.Отладка("УстановкаВсехПакетов: %1", УстановкаВсехПакетов);
     Лог.Отладка("КаталогУстановки: %1", КаталогУстановки);
     Лог.Отладка("ФайлПакетаУстановки: %1", ФайлПакетаУстановки);
@@ -67,6 +70,7 @@
 
 	НастройкаУстановки = РаботаСПакетами.ПолучитьНастройкуУстановки();
 	НастройкаУстановки.УстанавливатьЗависимости = НеобходимоУстановитьЗависимости;
+	НастройкаУстановки.УстанавливатьЗависимостиРазработчика = УстановкаПакетовРазработчика;
 	НастройкаУстановки.СоздаватьФайлыЗапуска = СоздаватьФайлыЗапуска;
 	НастройкаУстановки.ИмяСервера = ИмяСервера;
 

src/core/Классы/МенеджерУстановкиПакетов.os

@@ -15,6 +15,7 @@
 Перем ИмяСервера;
 
 Перем УстанавливатьЗависимости;
+Перем УстанавливатьЗависимостиРазработчика;
 Перем СоздаватьФайлыЗапуска;
 
 Процедура ПриСозданииОбъекта(Знач ВходящийРежимУстановкиПакетов = Неопределено, Знач ВходящийКаталогУстановки = Неопределено, Знач ВходящийКаталогУстановкиЗависимостей = Неопределено, Знач ВходящийИмяСервера = "")
@@ -52,6 +53,7 @@
 
 	КешУстановленныхПакетов = Новый Соответствие;
 	УстанавливатьЗависимости = Истина;
+	УстанавливатьЗависимостиРазработчика = Ложь;
 	СоздаватьФайлыЗапуска = Истина;
 	ИмяСервера = ВходящийИмяСервера;
 КонецПроцедуры
@@ -60,6 +62,10 @@
 	УстанавливатьЗависимости = ПУстанавливатьЗависимости;
 КонецПроцедуры
 
+Процедура УстанавливатьЗависимостиРазработчика(Знач ПУстанавливатьЗависимостиРазработчика) Экспорт
+	УстанавливатьЗависимостиРазработчика = ПУстанавливатьЗависимостиРазработчика;
+КонецПроцедуры
+
 Процедура СоздаватьФайлыЗапуска(Знач ПСоздаватьФайлыЗапуска) Экспорт
 	СоздаватьФайлыЗапуска = ПСоздаватьФайлыЗапуска;
 КонецПроцедуры
@@ -95,9 +101,19 @@
 
 КонецПроцедуры
 
-Процедура УстановитьПакетПоОписанию(Знач ОписаниеПакета) Экспорт
+Процедура УстановитьПакетПоОписанию(Знач ЗависимостьПакета) Экспорт
 
-	УстановитьПакетПоИмениИВерсии(ОписаниеПакета.ИмяПакета, ОписаниеПакета.МинимальнаяВерсия, Истина);
+	Если ЗависимостьПакета.ДляРазработки Тогда
+		Если УстанавливатьЗависимостиРазработчика Тогда
+			Лог.Информация("<%1> отмечена как зависимость для разработчика. Устанавливаем.", ЗависимостьПакета.ИмяПакета);
+		Иначе
+			Лог.Информация("<%1> отмечена как зависимость для разработчика, " + 
+				"но установка зависимостей для разработчика не активирована. Пропускаем.", ЗависимостьПакета.ИмяПакета);
+			Возврат;
+		КонецЕсли;
+	КонецЕсли;
+
+	УстановитьПакетПоИмениИВерсии(ЗависимостьПакета.ИмяПакета, ЗависимостьПакета.МинимальнаяВерсия, Истина);
 
 КонецПроцедуры
 

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

@@ -45,6 +45,11 @@
 	Возврат ЭтотОбъект;
 КонецФункции
 
+Функция ВерсияМанифеста(Знач Параметр) Экспорт
+	УстановитьСвойствоПакета("ВерсияМанифеста", Параметр);
+	Возврат ЭтотОбъект;
+КонецФункции
+
 Функция ТочкаВхода(Знач Параметр) Экспорт
 	УстановитьСвойствоПакета("ТочкаВхода", Параметр);
 	Возврат ЭтотОбъект;
@@ -81,10 +86,35 @@
 
 Функция ЗависитОт(Знач ИмяПакета, Знач МинимальнаяВерсия = Неопределено, Знач МаксимальнаяВерсия = Неопределено) Экспорт
 
-	ТекЗависимость = Зависимость(ИмяПакета);
-	Если ТекЗависимость = Неопределено Тогда
+	Зависимость = Зависимость(ИмяПакета);
+	Если Зависимость = Неопределено Тогда
+		Зависимость = мЗависимости.Добавить();
+		Зависимость.ИмяПакета = ИмяПакета;
+	КонецЕсли;
+
+	Зависимость.ДляРазработки = Ложь;
+	
+	Если МинимальнаяВерсия = Неопределено Тогда
+		Возврат ЭтотОбъект;
+	КонецЕсли;
+	
+	Зависимость.МинимальнаяВерсия  = МинимальнаяВерсия;
+	Зависимость.МаксимальнаяВерсия = МаксимальнаяВерсия;
+	
+	Возврат ЭтотОбъект;
+	
+КонецФункции
+
+Функция РазработкаЗависитОт(
+	Знач ИмяПакета, 
+	Знач МинимальнаяВерсия = Неопределено, 
+	Знач МаксимальнаяВерсия = Неопределено) Экспорт
+	
+	Зависимость = Зависимость(ИмяПакета);
+	Если Зависимость = Неопределено Тогда
 		Зависимость = мЗависимости.Добавить();
 		Зависимость.ИмяПакета = ИмяПакета;
+		Зависимость.ДляРазработки = Истина;
 	КонецЕсли;
 
 	Если МинимальнаяВерсия = Неопределено Тогда
@@ -195,6 +225,7 @@
 
 	мЗависимости = Новый ТаблицаЗначений;
 	мЗависимости.Колонки.Добавить("ИмяПакета");
+	мЗависимости.Колонки.Добавить("ДляРазработки", Новый ОписаниеТипов("Булево"));
 	мЗависимости.Колонки.Добавить("МинимальнаяВерсия");
 	мЗависимости.Колонки.Добавить("МаксимальнаяВерсия");
 

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

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

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

@@ -44,6 +44,7 @@
 	СоответствиеИменСвойств.Вставить("Описание"   , "description");
 	СоответствиеИменСвойств.Вставить("АдресАвтора", "author-email");
 	СоответствиеИменСвойств.Вставить("ВерсияСреды", "engine-version");
+	СоответствиеИменСвойств.Вставить("ВерсияМанифеста", "manifest-version");
 	СоответствиеИменСвойств.Вставить("Задачи", "tasks");
 
 	Возврат СоответствиеИменСвойств;
@@ -88,6 +89,7 @@
 	Для Каждого Зависимость Из Зависимости Цикл
 		Запись.ЗаписатьНачалоЭлемента(ИменаКоллекцийПакета().Зависимости);
 		Запись.ЗаписатьАтрибут("name", Зависимость.ИмяПакета);
+		Запись.ЗаписатьАтрибут("dev", Формат(Зависимость.ДляРазработки, "БЛ=false; БИ=true"));
 		Если Не ПустаяСтрока(Зависимость.МинимальнаяВерсия) Тогда
 			Запись.ЗаписатьАтрибут("version", Зависимость.МинимальнаяВерсия);
 		КонецЕсли;
@@ -235,10 +237,21 @@
 
 	МинимальнаяВерсия = ЧтениеXML.ПолучитьАтрибут("version");
 	МаксимальнаяВерсия = ЧтениеXML.ПолучитьАтрибут("version-max");
-	
-	Лог.Отладка("Добавляем зависимость " + ИмяЗависимости + " " + МинимальнаяВерсия + " " + МаксимальнаяВерсия);
-	ОписаниеПакета.ЗависитОт(ИмяЗависимости, МинимальнаяВерсия, МаксимальнаяВерсия);
-	
+	ДляРазработки = ЧтениеXML.ПолучитьАтрибут("dev");
+	
+	Лог.Отладка(
+		"Добавляем зависимость %1 %2 %3 %4",
+		ИмяЗависимости,
+		МинимальнаяВерсия,
+		МаксимальнаяВерсия,
+		ДляРазработки
+	);
+
+	Если ДляРазработки = "true" Тогда
+		ОписаниеПакета.РазработкаЗависитОт(ИмяЗависимости, МинимальнаяВерсия, МаксимальнаяВерсия);
+	Иначе
+		ОписаниеПакета.ЗависитОт(ИмяЗависимости, МинимальнаяВерсия, МаксимальнаяВерсия);
+	КонецЕсли;
 	ЧтениеXML.Прочитать();
 
 КонецПроцедуры

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");