Merge pull request #33 from oscript-library/fix/install-deps

Исправлена проверка установленного пакета. Добавлена проверка необходимости обновления версии установленного пакета.

Author: EvilBeaver

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

@@ -5,10 +5,30 @@
 
 Перем УстановленныеПакеты;
 
-Функция ПакетУстановлен(Знач ИмяПакета) Экспорт
-
-	Возврат УстановленныеПакеты[ИмяПакета] = Истина;
-
+Функция ПакетУстановлен(Знач ОписаниеЗависимости) Экспорт
+	
+	ПакетУстановлен = УстановленныеПакеты.Получить(ОписаниеЗависимости.ИмяПакета) <> Неопределено;
+	
+	КаталогБиблиотек = ОбъединитьПути(КаталогПрограммы(), ПолучитьЗначениеСистемнойНастройки("lib.system"));
+	ПутьКФайлуМетаданных = ОбъединитьПути(
+		КаталогБиблиотек,
+		ОписаниеЗависимости.ИмяПакета,
+		Константы.ИмяФайлаМетаданныхПакета
+	);
+	ФайлМетаданных = Новый Файл(ПутьКФайлуМетаданных);
+	Если ФайлМетаданных.Существует() Тогда	
+		МетаОписаниеПакета = ПрочитатьМетаданныеПакета(ПутьКФайлуМетаданных);
+		УстановленнаяВерсия = МетаОписаниеПакета.Свойства().Версия;	
+	Иначе
+		// @deprecated
+		УстановленнаяВерсия = 0;
+	КонецЕсли;
+	
+	УстановленаКорректнаяВерсия = ОписаниеЗависимости.МинимальнаяВерсия = Неопределено
+		ИЛИ РаботаСВерсиями.СравнитьВерсии(УстановленнаяВерсия, ОписаниеЗависимости.МинимальнаяВерсия) = 1;
+	
+	Возврат ПакетУстановлен И УстановленаКорректнаяВерсия;
+	
 КонецФункции
 
 Процедура Обновить() Экспорт
@@ -31,7 +51,7 @@
 КонецФункции
 
 Процедура Инициализация()
-
+	
 	Лог = Логирование.ПолучитьЛог("oscript.app.opm");
 	//Лог.УстановитьУровень(УровниЛога.Отладка);
 
@@ -43,22 +63,34 @@
 
 	ПутьКФайлуМетаданных = ОбъединитьПути(ФайлКаталога.ПолноеИмя, Константы.ИмяФайлаМетаданныхПакета);
 	ФайлМетаданных = Новый Файл(ПутьКФайлуМетаданных);
-	Если ФайлМетаданных.Существует() Тогда
-		
+	Если ФайлМетаданных.Существует() Тогда	
+		МетаОписаниеПакета = ПрочитатьМетаданныеПакета(ПутьКФайлуМетаданных);	
+	Иначе
+		// @deprecated
+		МетаОписаниеПакета = Истина;
+	КонецЕсли;
+	
+	УстановленныеПакеты.Вставить(ФайлКаталога.Имя, МетаОписаниеПакета);
+	
+КонецПроцедуры
+
+Функция ПрочитатьМетаданныеПакета(Знач ПутьКФайлуМетаданных)
+	
+	Перем Метаданные;
+	Попытка
 		Чтение = Новый ЧтениеXML;
 		Чтение.ОткрытьФайл(ПутьКФайлуМетаданных);
-		Лог.Отладка("XML загружен");
 		Сериализатор = Новый СериализацияМетаданныхПакета;
-		МетаОписаниеПакета = Сериализатор.ПрочитатьXML(Чтение);
+		Метаданные = Сериализатор.ПрочитатьXML(Чтение);
 
 		Чтение.Закрыть();
+	Исключение
+		Чтение.Закрыть();
+		ВызватьИсключение;
+	КонецПопытки;
 
-	Иначе
-		МетаОписаниеПакета = Истина;
-	КонецЕсли;
-
-	УстановленныеПакеты.Вставить(ФайлКаталога.Имя, МетаОписаниеПакета);
+	Возврат Метаданные;
 
-КонецПроцедуры
+КонецФункции
 
 Инициализация();

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

@@ -179,14 +179,14 @@
 
 	Для Каждого Зависимость Из Зависимости Цикл
 		Лог.Информация("Устанавливаю зависимость: " + Зависимость.ИмяПакета);
-		
-		Если Не УстановленныеПакеты.ПакетУстановлен(Зависимость.ИмяПакета) Тогда
+
+		Если Не УстановленныеПакеты.ПакетУстановлен(Зависимость) Тогда
 			// скачать
 			// определить зависимости и так по кругу
 			СкачатьИУстановитьПакетПоОписанию(Зависимость);
 			УстановленныеПакеты.Обновить();
 		Иначе
-			Лог.Отладка("" + Зависимость.ИмяПакета + " установлен. Пропускаем");
+			Лог.Информация("" + Зависимость.ИмяПакета + " уже установлен. Пропускаем.");
 			// считаем, что версия всегда подходит
 		КонецЕсли;
 
@@ -200,7 +200,7 @@
 
 Процедура СкачатьИУстановитьПакетПоОписанию(Знач ОписаниеПакета)
 	// TODO: Нужно скачивание конкретной версии по маркеру
-	СкачатьИУстановитьПакет(ОписаниеПакета.ИмяПакета, Неопределено);
+	СкачатьИУстановитьПакет(ОписаниеПакета.ИмяПакета, ОписаниеПакета.МинимальнаяВерсия);
 КонецПроцедуры
 
 Процедура СкачатьИУстановитьПакет(Знач ИмяПакета, Знач ВерсияПакета)

src/Модули/РаботаСВерсиями.os

@@ -77,6 +77,10 @@
 		Если КомпонентЭтаВерсия <> Неопределено и КомпонентБольшеЧем = Неопределено Тогда
 			Возврат 1;
 		КонецЕсли;
+
+		Если КомпонентЭтаВерсия = Неопределено И КомпонентБольшеЧем = Неопределено Тогда
+			Возврат 0;
+		КонецЕсли;
 
 		Попытка
 			ЧислоЭтаВерсия = Число(КомпонентЭтаВерсия);

tests/pkg-cache.os

@@ -32,6 +32,7 @@
 	Утверждения.ПроверитьЛожь(НайденныйКаталог = Неопределено, "в библиотеке должен быть хоть один пакет");
 
 	КэшПакетов = Новый КэшУстановленныхПакетов();
-	Утверждения.ПроверитьИстину(КэшПакетов.ПакетУстановлен(Каталог.Имя), "Должен быть найден пакет " + Каталог.Имя);
+	ОписаниеЗависимости = Новый Структура("ИмяПакета, МинимальнаяВерсия, МаксимальнаяВерсия", Каталог.Имя);
+	Утверждения.ПроверитьИстину(КэшПакетов.ПакетУстановлен(ОписаниеЗависимости), "Должен быть найден пакет " + Каталог.Имя);
 
 КонецПроцедуры