Merge pull request #67 from dmpas/feature/issue66-install-l

Fix #66: локальная установка в локальный каталог.

Author: nixel2007

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

@@ -3,10 +3,16 @@
 
 Перем Лог;
 
+// Массив каталогов в порядке возрастания приоритета
+Перем МассивКаталоговПоискаБиблиотек;
+
 Перем УстановленныеПакеты;
 
 Функция ПакетУстановлен(Знач ОписаниеЗависимости) Экспорт
 
+	Перем УстановленныеПакеты;
+	УстановленныеПакеты = ПолучитьУстановленныеПакеты();
+
 	ПакетУстановлен = УстановленныеПакеты.Получить(ОписаниеЗависимости.ИмяПакета) <> Неопределено;
 
 	КаталогБиблиотек = ОбъединитьПути(КаталогПрограммы(), ПолучитьЗначениеСистемнойНастройки("lib.system"));
@@ -34,32 +40,57 @@
 
 Процедура Обновить() Экспорт
 
-	КаталогБиблиотек = ОбъединитьПути(КаталогПрограммы(), ПолучитьЗначениеСистемнойНастройки("lib.system"));
-	Лог.Отладка("КаталогБиблиотек " + КаталогБиблиотек);
-	УстановленныеПакеты = Новый Соответствие;
-	
-	НайденныеФайлы = НайтиФайлы(КаталогБиблиотек, ПолучитьМаскуВсеФайлы());
-	Для Каждого ФайлКаталога Из НайденныеФайлы Цикл
-		Если ФайлКаталога.ЭтоКаталог() Тогда
-			ДобавитьУстановленныйПакет(ФайлКаталога);
-		КонецЕсли;
+	Для Каждого КаталогБиблиотек Из МассивКаталоговПоискаБиблиотек Цикл
+
+		Лог.Отладка("КаталогБиблиотек " + КаталогБиблиотек);
+		УстановленныеПакеты = Новый Соответствие;
+
+		НайденныеФайлы = НайтиФайлы(КаталогБиблиотек, ПолучитьМаскуВсеФайлы());
+		Для Каждого ФайлКаталога Из НайденныеФайлы Цикл
+			Если ФайлКаталога.ЭтоКаталог() Тогда
+
+				// ДобавитьУстановленныйПакет заменит уже добавленный пакет при совпадении имён
+				// Соответственно, более поздние каталоги будут иметь приоритет
+				ДобавитьУстановленныйПакет(ФайлКаталога);
+
+			КонецЕсли;
+		КонецЦикла;
+
 	КонецЦикла;
 
 КонецПроцедуры
 
 Функция ПолучитьУстановленныеПакеты() Экспорт
+
+	Если УстановленныеПакеты = Неопределено Тогда
+		Обновить();
+	КонецЕсли;
+
 	Возврат УстановленныеПакеты;
+
 КонецФункции
 
 Процедура Инициализация()
 
 	Лог = Логирование.ПолучитьЛог("oscript.app.opm");
-	//Лог.УстановитьУровень(УровниЛога.Отладка);
-	
-	Обновить();
+	МассивКаталоговПоискаБиблиотек = Новый Массив;
+
+	КаталогСистемныхБиблиотек = ОбъединитьПути(
+			КаталогПрограммы(),
+			ПолучитьЗначениеСистемнойНастройки("lib.system")
+	);
+
+	МассивКаталоговПоискаБиблиотек.Добавить(КаталогСистемныхБиблиотек);
 
 КонецПроцедуры
 
+// Добавляет каталог в список, по которому выполняется поиск библиотек
+Процедура ДобавитьКаталогБиблиотек(Знач Каталог) Экспорт
+
+	МассивКаталоговПоискаБиблиотек.Добавить(Каталог);
+
+КонецПроцедуры
+
 Процедура ДобавитьУстановленныйПакет(Знач ФайлКаталога)
 
 	ПутьКФайлуМетаданных = ОбъединитьПути(ФайлКаталога.ПолноеИмя, КонстантыOpm.ИмяФайлаМетаданныхПакета);

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

@@ -7,6 +7,7 @@
 Перем мЗависимостиВРаботе;
 Перем ЭтоWindows;
 Перем мРежимУстановкиПакетов;
+Перем КэшУстановленныхПакетов;
 
 Процедура УстановитьПакетИзАрхива(Знач ФайлАрхива) Экспорт
 
@@ -137,7 +138,7 @@
 КонецПроцедуры
 
 Процедура ОбновитьУстановленныеПакеты() Экспорт
-	КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов;
+	КэшУстановленныхПакетов = ПолучитьУстановленныеПакеты();
 	УстановленныеПакеты = КэшУстановленныхПакетов.ПолучитьУстановленныеПакеты();
 	Для Каждого КлючИЗначение Из УстановленныеПакеты Цикл
 		ОбновитьПакетИзОблака(КлючИЗначение.Ключ);
@@ -197,7 +198,26 @@
 КонецПроцедуры
 
 Функция ПолучитьУстановленныеПакеты()
-	Возврат Новый КэшУстановленныхПакетов();
+
+	Если КэшУстановленныхПакетов = Неопределено Тогда
+
+		КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов();
+
+		Если мРежимУстановкиПакетов = РежимУстановкиПакетов.Локально Тогда
+
+			ПутьККаталогуЛокальнойУстановки = ОбъединитьПути(
+					ТекущийКаталог(),
+					КонстантыOpm.ЛокальныйКаталогУстановкиПакетов
+			);
+
+			КэшУстановленныхПакетов.ДобавитьКаталогБиблиотек(ПутьККаталогуЛокальнойУстановки);
+
+		КонецЕсли;
+
+	КонецЕсли;
+
+	Возврат КэшУстановленныхПакетов;
+
 КонецФункции
 
 Процедура СкачатьИУстановитьПакетПоОписанию(Знач ОписаниеПакета)