Fix #26. Зависимости для разработки

Author: nixel2007

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

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

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

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

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

@@ -57,6 +57,7 @@
 
 	Настройка = Новый Структура();
 	Настройка.Вставить("УстанавливатьЗависимости", Истина);
+	Настройка.Вставить("УстанавливатьЗависимостиРазработчика", Ложь);
 	Настройка.Вставить("СоздаватьФайлыЗапуска", Истина);
 	Настройка.Вставить("ИмяСервера", "");
 
@@ -80,6 +81,7 @@
 	МенеджерУстановки = Новый МенеджерУстановкиПакетов(РежимУстановки, ЦелевойКаталог, , НастройкаУстановки.ИмяСервера);
 	МенеджерУстановки.УстанавливатьЗависимости(НастройкаУстановки.УстанавливатьЗависимости);
 	МенеджерУстановки.СоздаватьФайлыЗапуска(НастройкаУстановки.СоздаватьФайлыЗапуска);
+	МенеджерУстановки.УстанавливатьЗависимостиРазработчика(НастройкаУстановки.УстанавливатьЗависимостиРазработчика);
 	МенеджерУстановки.УстановитьПакетПоИмениИВерсии(ИмяВерсияПакета.ИмяПакета, ИмяВерсияПакета.Версия, ЭтоЗависимость);
 
 КонецПроцедуры
@@ -94,40 +96,12 @@
 
 	МенеджерУстановки = Новый МенеджерУстановкиПакетов(РежимУстановки, ЦелевойКаталог, , НастройкаУстановки.ИмяСервера);
 	МенеджерУстановки.УстанавливатьЗависимости(НастройкаУстановки.УстанавливатьЗависимости);
+	МенеджерУстановки.УстанавливатьЗависимостиРазработчика(НастройкаУстановки.УстанавливатьЗависимостиРазработчика);
 	МенеджерУстановки.СоздаватьФайлыЗапуска(НастройкаУстановки.СоздаватьФайлыЗапуска);
 	МенеджерУстановки.УстановитьПакетИзАрхива(ИмяФайлаПакета);
 
 КонецПроцедуры
 
-Процедура ПроверитьВерсиюСреды(Манифест)
-	
-	Свойства = Манифест.Свойства();
-	Если НЕ Свойства.Свойство("ВерсияСреды") Тогда
-		Возврат;
-	КонецЕсли;
-	
-	ИмяПакета = Свойства.Имя;
-	ТребуемаяВерсияСреды = Свойства.ВерсияСреды;
-	СистемнаяИнформация = Новый СистемнаяИнформация;
-	ВерсияСреды = СистемнаяИнформация.Версия;
-	Лог.Отладка("ПроверитьВерсиюСреды: Перед вызовом СравнитьВерсии(ЭтаВерсия = <%1>, БольшеЧемВерсия = <%2>)", ТребуемаяВерсияСреды, ВерсияСреды);
-	Если РаботаСВерсиями.СравнитьВерсии(ТребуемаяВерсияСреды, ВерсияСреды) > 0 Тогда
-			ТекстСообщения = СтрШаблон(
-			"Ошибка установки пакета <%1>: Обнаружена устаревшая версия движка OneScript.
-			|Требуемая версия: %2
-			|Текущая версия: %3
-			|Обновите OneScript перед установкой пакета", 
-			ИмяПакета,
-			ТребуемаяВерсияСреды,
-			ВерсияСреды
-		);
-		
-		ВызватьИсключение ТекстСообщения;
-	КонецЕсли;
-
-КонецПроцедуры
-
-
 Процедура УстановитьВсеПакетыИзОблака(Знач РежимУстановки, Знач ЦелевойКаталог = Неопределено, 
 										Знач НастройкаУстановки = Неопределено) Экспорт
 
@@ -150,13 +124,14 @@
 
 	ОписаниеПакета = РаботаСОписаниемПакета.ПрочитатьОписаниеПакета();
 
-	ПроверитьВерсиюСреды(ОписаниеПакета);
+	РаботаСОписаниемПакета.ПроверитьВерсиюСреды(ОписаниеПакета);
 
 	Если НастройкаУстановки = Неопределено Тогда
 		НастройкаУстановки = ПолучитьНастройкуУстановки();
 	КонецЕсли;
 
 	МенеджерУстановки = Новый МенеджерУстановкиПакетов(РежимУстановки, , , НастройкаУстановки.ИмяСервера);
+	МенеджерУстановки.УстанавливатьЗависимостиРазработчика(НастройкаУстановки.УстанавливатьЗависимостиРазработчика);
 	МенеджерУстановки.СоздаватьФайлыЗапуска(НастройкаУстановки.СоздаватьФайлыЗапуска);
 
 	МенеджерУстановки.РазрешитьЗависимостиПакета(ОписаниеПакета);

tests/mft-serializer-test.os

@@ -36,6 +36,7 @@
 		.АдресАвтора("[email protected]")
 		.ЗависитОт("asserts")
 		.ЗависитОт("cmdline",">=2.1","<3.0")
+		.РазработкаЗависитОт("logos")
 		.Задачи("tasks")
 		.ВключитьФайл("src")
 		.ВключитьФайл("tests")
@@ -76,8 +77,9 @@
 	|    <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""/>
+	|    <depends-on name=""asserts"" dev=""false""/>
+	|    <depends-on name=""cmdline"" dev=""false"" version=""&gt;=2.1"" version-max=""&lt;3.0""/>
+	|    <depends-on name=""logos"" dev=""true""/>
 	|    <executable>src/app1.os</executable>
 	|    <executable>src/app2.os</executable>
 	|    <include-content>src</include-content>
@@ -116,8 +118,9 @@
 	|    <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""/>
+	|    <depends-on name=""asserts"" dev=""false""/>
+	|    <depends-on name=""cmdline"" dev=""false"" version=""&gt;=2.1"" version-max=""&lt;3.0""/>
+	|    <depends-on name=""logos"" dev=""true""/>
 	|    <executable>src/app1.os</executable>
 	|    <executable>src/app2.os</executable>
 	|</opm-metadata>";